Source Code

These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. New sections of the software (appearing in EXTENDED_VERBS_FOR_MODING.agc) have been disassembled; labels and comments have been either taken from similar code in later programs or, in cases where this was not possible, added by VirtualAGC for clarity.

004809,000002:                                                                                                  ## Copyright:   Public domain.
004810,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
004811,000004:                                                                                                  ## Purpose:     Part of the source code for AGC program Retread 50. 
004812,000005:                                                                                                  ## Assembler:   yaYUL
004813,000006:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
004814,000007:                                                                                                  ## Website:     www.ibiblio.org/apollo/Restoration.html
004815,000008:                                                                                                  ## Mod history: 2019-06-12 MAS  Recreated from Computer History Museum's
004816,000009:                                                                                                  ##                              physical core-rope modules.
004817,000010:                                                                                                  ##              2021-05-30 ABS  Removed ENDSPF symbol not present in
004818,000011:                                                                                                  ##                              Retread 44 or Aurora 12.
004819,000012: 

Page 135

004821,000014:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
004822,000015: 
004823,000016: 
004824,000017: 
004825,000018:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
004826,000019: 
004827,000020:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
004828,000021:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
004829,000022:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
004830,000023: 
004831,000024:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4

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

004834,000027: 
004835,000028: 
004836,000029: 
004837,000030:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
004838,000031: 
004839,000032: 
004840,000033: 
004841,000034:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
004842,000035: 
004843,000036:                                                                                                  #  DSPCOUNT ERASE                  DISPLAY POSITION INDICATOR
004844,000037:                                                                                                  #  DECBRNCH ERASE                  +DEC, - DEC, OCT INDICATOR
004845,000038:                                                                                                  #  VERBREG  ERASE                  VERB CODE
004846,000039:                                                                                                  #  NOUNREG  ERASE                  NOUN CODE
004847,000040:                                                                                                  #  XREG     ERASE                  R1 INPUT BUFFER
004848,000041:                                                                                                  #  YREG     ERASE                  R2 INPUT BUFFER
004849,000042:                                                                                                  #  ZREG     ERASE                  R3 INPUT BUFFER
004850,000043:                                                                                                  #  XREGLP   ERASE                  LO PART OF XREG (FOR DEC CONV ONLY)
004851,000044:                                                                                                  #  YREGLP   ERASE                  LO PART OF YREG (FOR DEC CONV ONLY)
004852,000045:                                                                                                  #  ZREGLP   ERASE                  LO PART OF ZREG (FOR DEC CONV ONLY)
004853,000046:                                                                                                  #  MODREG   ERASE                  MODE CODE
004854,000047:                                                                                                  #  DSPLOCK  ERASE                  KEYBOARD/SUBROUTINE CALL INTERLOCK
004855,000048:                                                                                                  #  REQRET   ERASE                  RETURN REGISTER FOR LOAD
004856,000049:                                                                                                  #  LOADSTAT ERASE                  STATUS INDICATOR FOR LOADTST
004857,000050:                                                                                                  #  CLPASS   ERASE                  PASS INDICATOR CLEAR
004858,000051:                                                                                                  #  NOUT     ERASE                  ACTIVITY COUNTER FOR DSPTAB
004859,000052:                                                                                                  #  NOUNCADR ERASE                  MACHINE CADR FOR NOUN
004860,000053:                                                                                                  #  MONSAVE  ERASE                  N/V CODE FOR MONITOR. (= MONSAVE1-1)
004861,000054:                                                                                                  #  MONSAVE1 ERASE                  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
004862,000055:                                                                                                  #  DSPTAB   ERASE          +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
004863,000056:                                                                                                  #  CADRSTOR ERASE                  ENDIDLE STORAGE
004864,000057:                                                                                                  #  GRABLOCK ERASE                  INTERNAL INTERLOCK FOR DISPLAY SYSTEM
004865,000058:                                                                                                  #  NVQTEM   ERASE                  NVSUB STORAGE FOR CALLING ADDRESS
004866,000059:                                                                                                  #                                  MUST = NVBNKTEM-1
004867,000060:                                                                                                  #  NVBNKTEM ERASE                  NVSUB STORAGE FOR CALLING BANK
004868,000061:                                                                                                  #                                  MUST = NVQTEM+1
004869,000062:                                                                                                  #  DSPLIST  ERASE          +2      WAITING LIST FOR DSP SYST INTERNAL USE
004870,000063:                                                                                                  #  EXTVBACT REASE                  EXTENDED VERB ACTIVITY INTERLOCK
004871,000064:                                                                                                  #  DSPTEM1  ERASE          +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004872,000065:                                                                                                  #  DSPTEM2  ERASE          +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004873,000066: 

Page 136

004875,000068:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
004876,000069: 
004877,000070: 
004878,000071: 
004879,000072:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
004880,000073: 
004881,000074:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
004882,000075:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
004883,000076:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
004884,000077: 
004885,000078:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
004886,000079:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
004887,000080:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
004888,000081:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
004889,000082: 
004890,000083:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
004891,000084:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
004892,000085:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
004893,000086:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
004894,000087: 
004895,000088:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
004896,000089:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
004897,000090:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
004898,000091:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
004899,000092: 
004900,000093:                                                                                                  #  SGNOFF   =       VBUF   +1      TEMP FOR +,- ON
004901,000094:                                                                                                  #  NVTEMP   =       VBUF   +1      TEMP FOR NVSUB
004902,000095:                                                                                                  #  SFTEMP1  =       VBUF   +1      STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
004903,000096: 
004904,000097:                                                                                                  #  CODE     =       VBUF   +2      FOR DSPIN
004905,000098:                                                                                                  #  SFTEMP2  =       VBUF   +2      STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
004906,000099: 
004907,000100:                                                                                                  #  MIXTEMP  =       VBUF   +3      FOR MIXNOUN DATA
004908,000101:                                                                                                  #  SIGNRET  =       VBUF   +3      RETURN FOR +,- ON
004909,000102: 
004910,000103:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004911,000104: 
004912,000105:                                                                                                  #  ENTRET   =       DOTINC          EXIT FROM ENTER
004913,000106: 
004914,000107:                                                                                                  #  WDCNT    =       DOTRET          CHAR COUNTER FOR DSPWD
004915,000108:                                                                                                  #  INREL    =       DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004916,000109: 
004917,000110:                                                                                                  #  DSPMMTEM =       MATINC          DSPCOUNT SAVE FOR DSPMM
004918,000111:                                                                                                  #  MIXBR    =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
004919,000112: 
004920,000113:                                                                                                  #  TEM1     ERASE                   EXEC TEMP
004921,000114:                                                                                                  #  DSREL    =       TEM1            REL ADDRESS FOR DSPIN
004922,000115: 
004923,000116:                                                                                                  #  TEM2     ERASE                   EXEC TEMP
004924,000117:                                                                                                  #  DSMAG    =       TEM2            MAGNITUDE STORE FOR DSPIN
004925,000118: 

Page 137

004927,000120:                                                                                                  #  IDADDTEM =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
004928,000121: 
004929,000122:                                                                                                  #  TEM3     ERASE                   EXEC TEMP
004930,000123:                                                                                                  #  COUNT    =       TEM3            FOR DSPIN
004931,000124: 
004932,000125:                                                                                                  #  TEM4     ERASE                   EXEC TEMP
004933,000126:                                                                                                  #  LSTPTR   =       TEM4            LIST POINTER FOR GRABUSY
004934,000127:                                                                                                  #  RELRET   =       TEM4            RETURN FOR RELDSP
004935,000128:                                                                                                  #  FREERET  =       TEM4            RETURN FOR FREEDSP
004936,000129: 
004937,000130:                                                                                                  #  TEM5     ERASE                   EXEC TEMP
004938,000131:                                                                                                  #  NOUNADD  =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
004939,000132: 
004940,000133:                                                                                                  #  NNADTEM  ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
004941,000134:                                                                                                  #  NNTYPTEM ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
004942,000135:                                                                                                  #  IDAD1TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004943,000136:                                                                                                  #                                   MUST = IDAD2TEM-1, = IDAD3TEM-2.
004944,000137:                                                                                                  #  IDAD2TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004945,000138:                                                                                                  #                                   MUST = IDAD1TEM+1, = IDAD3TEM-1.
004946,000139:                                                                                                  #  IDAD3TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004947,000140:                                                                                                  #                                   MUST = IDAD1TEM+2, = IDAD2TEM+1.
004948,000141:                                                                                                  #  RUTMXTEM ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
004949,000142:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
004950,000143: 
004951,000144: 
004952,000145: 
004953,000146:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
004954,000147: 
004955,000148:                                                                                                  #  DSPCNT   ERASE                  COUNTER FOR DSPOUT
004956,000149:                                                                                                  #  UPLOCK   ERASE                  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
004957,000150:                                                                                                  #                                                                           RECEPTION OF A BAD MESSAGE IN UPLINK)
004958,000151:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
004959,000152: 
004960,000153: 
004961,000154: 
004962,000155:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
004963,000156: 
004964,000157:                                                                                                  #  KEYTEMP1 =      WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
004965,000158:                                                                                                  #  DSRUPTEM =      WAITEXIT        TEMP FOR DSPOUT
004966,000159:                                                                                                  #  KEYTEMP2 =      RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
004967,000160:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
004968,000161: 
004969,000162: 

Page 138

004971,000164:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
004972,000165:                                                                                                  #  0        10000
004973,000166:                                                                                                  #  1        00001
004974,000167:                                                                                                  #  9        01001
004975,000168:                                                                                                  #  VERB     10001
004976,000169:                                                                                                  #  ERROR RES10010
004977,000170:                                                                                                  #  KEY RLSE 11001
004978,000171:                                                                                                  #  +        11010
004979,000172:                                                                                                  #  -        11011
004980,000173:                                                                                                  #  ENTER    11100
004981,000174:                                                                                                  #  CLEAR    11110
004982,000175:                                                                                                  #  NOUN     11111
004983,000176: 
004984,000177: 
004985,000178: 
004986,000179:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
004987,000180:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
004988,000181:                                                                                                  #  ENERGIZED.
004989,000182:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
004990,000183:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
004991,000184:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
004992,000185: 
004993,000186:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
004994,000187:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
004995,000188:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
004996,000189:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
004997,000190:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
004998,000191:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
004999,000192: 
005000,000193:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
005001,000194:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
005002,000195:                                                                                                  #  MD2   24     R2D2  10
005003,000196:                                                                                                  #  VD1   23     R2D3   7
005004,000197:                                                                                                  #  VD2   22     R2D4   6
005005,000198:                                                                                                  #  ND1   21     R2D5   5
005006,000199:                                                                                                  #  ND2   20     R3D1   4
005007,000200:                                                                                                  #  R1D1  16     R3D2   3
005008,000201:                                                                                                  #  R1D2  15     R3D3   2
005009,000202:                                                                                                  #  R1D3  14     R3D4   1
005010,000203:                                                                                                  #  R1D4  13     R3D5   0
005011,000204:                                                                                                  #  R1D5  12
005012,000205: 
005013,000206: 
005014,000207: 
005015,000208:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
005016,000209: 
005017,000210:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
005018,000211:                                                                                                  #  RELADD
005019,000212:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
005020,000213:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)

Page 139

005022,000215:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
005023,000216:                                                                                                  #  7      1000                                  R1D1 (16)
005024,000217:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
005025,000218:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
005026,000219:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
005027,000220:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
005028,000221:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
005029,000222:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
005030,000223:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
005031,000224:                                                                                                  #         0000   NO RELAYWORD
005032,000225: 
005033,000226: 
005034,000227: 
005035,000228:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
005036,000229:                                                                                                  #  BLANK      00000
005037,000230:                                                                                                  #  0          10101
005038,000231:                                                                                                  #  1          00011
005039,000232:                                                                                                  #  2          11001
005040,000233:                                                                                                  #  3          11011
005041,000234:                                                                                                  #  4          01111
005042,000235:                                                                                                  #  5          11110
005043,000236:                                                                                                  #  6          11100
005044,000237:                                                                                                  #  7          10011
005045,000238:                                                                                                  #  8          11101
005046,000239:                                                                                                  #  9          11111
005047,000240: 

Page 140

005049,000242:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
005050,000243: 
005051,000244: 
005052,000245: 
005053,000246: 04,2000                                           SETLOC   20000                                 
005054,000247: 
005055,000248: 04,2000           03432        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
005056,000249: 04,2001           03454        NVSUBSYB           TC       NVSUBSY1                              
005057,000250: 
005058,000251: 04,2002           37646        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
005059,000252: 04,2003           56652                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
005060,000253: 04,2004           54101                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
005061,000254: 04,2005           56140                           XCH      MPAC                                  
005062,000255: 04,2006           54103                           TS       CHAR                                  
005063,000256: 04,2007           50000                           INDEX    A                                     
005064,000257: 04,2010           02011                           TC       +1                                    #  INPUT CODE     FUNCTION
005065,000258: 04,2011           03253                           TC       CHARALRM                              #  0
005066,000259: 04,2012           02062                           TC       NUM                                   #  1
005067,000260: 04,2013           02062                           TC       NUM                                   #  2
005068,000261: 04,2014           02062                           TC       NUM                                   #  3
005069,000262: 04,2015           02062                           TC       NUM                                   #  4
005070,000263: 04,2016           02062                           TC       NUM                                   #  5
005071,000264: 04,2017           02062                           TC       NUM                                   #  6
005072,000265: 04,2020           02062                           TC       NUM                                   #  7
005073,000266: 04,2021           02053                           TC       89TEST                                #  10                 8
005074,000267: 04,2022           02053                           TC       89TEST                                #  11                 9
005075,000268: 04,2023           03253                           TC       CHARALRM                              #  12
005076,000269: 04,2024           03253                           TC       CHARALRM                              #  13
005077,000270: 04,2025           03253                           TC       CHARALRM                              #  14
005078,000271: 04,2026           03253                           TC       CHARALRM                              #  15
005079,000272: 04,2027           03253                           TC       CHARALRM                              #  16
005080,000273: 04,2030           03253                           TC       CHARALRM                              #  17
005081,000274: 04,2031           02060                           TC       NUM        -2                         #  20                 0
005082,000275: 04,2032           02235                           TC       VERB                                  #  21                 VERB
005083,000276: 04,2033           02343                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
005084,000277: 04,2034           03253                           TC       CHARALRM                              #  23
005085,000278: 04,2035           03253                           TC       CHARALRM                              #  24
005086,000279: 04,2036           03253                           TC       CHARALRM                              #  25
005087,000280: 04,2037           03253                           TC       CHARALRM                              #  26
005088,000281: 04,2040           03253                           TC       CHARALRM                              #  27
005089,000282: 04,2041           03253                           TC       CHARALRM                              #  30
005090,000283: 04,2042           03276                           TC       VBRELDSP                              #  31                 KEY RELEASE
005091,000284: 04,2043           02267                           TC       POSGN                                 #  32                 +
005092,000285: 04,2044           02254                           TC       NEGSGN                                #  33                 -
005093,000286: 04,2045           02051                           TC       ENTERJMP                              #  34                 ENTER
005094,000287: 04,2046           03253                           TC       CHARALRM                              #  35
005095,000288: 04,2047           02407                           TC       CLEAR                                 #  36                 CLEAR
005096,000289: 04,2050           02250                           TC       NOUN                                  #  37                 NOUN
005097,000290: 

Page 141

005099,000292: 04,2051           04102        ENTERJMP           TC       POSTJUMP                              
005100,000293: 04,2052           12003                           CADR     ENTER                                 
005101,000294: 
005102,000295: 04,2053           36165        89TEST             CAF      THREE                                 
005103,000296: 04,2054           70640                           MASK     DECBRNCH                              
005104,000297: 04,2055           10000                           CCS      A                                     
005105,000298: 04,2056           02062                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
005106,000299: 04,2057           03253                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
005107,000300: 
005108,000301: 
005109,000302: 
005110,000303:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
005111,000304:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
005112,000305:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
005113,000306:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
005114,000307:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
005115,000308:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
005116,000309: 
005117,000310: 04,2060           37653                           CAF      ZERO                                  
005118,000311: 04,2061           54103                           TS       CHAR                                  
005119,000312: 04,2062           10637        NUM                CCS      DSPCOUNT                              
005120,000313: 04,2063           02067                           TC       +4                                    #  +
005121,000314: 04,2064           02067                           TC       +3                                    #  +0
005122,000315: 04,2065           02066                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
005123,000316: 04,2066           04205                           TC       ENDOFJOB                              #  -0
005124,000317: 04,2067           02205                           TC       GETINREL                              
005125,000318: 04,2070           10655                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
005126,000319: 04,2071           37653                           CAF      ZERO                                  
005127,000320: 04,2072           54655                           TS       CLPASS                                
005128,000321: 04,2073           02074                           TC       +1                                    
005129,000322: 04,2074           50103                           INDEX    CHAR                                  
005130,000323: 04,2075           34333                           CAF      RELTAB                                
005131,000324: 04,2076           74473                           MASK     LOW5                                  
005132,000325: 04,2077           54110                           TS       CODE                                  
005133,000326: 04,2100           30637                           CA       DSPCOUNT                              
005134,000327: 04,2101           54127                           TS       COUNT                                 
005135,000328: 04,2102           03157                           TC       DSPIN                                 
005136,000329: 04,2103           36165                           CAF      THREE                                 
005137,000330: 04,2104           70640                           MASK     DECBRNCH                              
005138,000331: 04,2105           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
005139,000332: 04,2106           02117                           TC       DECTOBIN                              #  +
005140,000333: 04,2107           50123                           INDEX    INREL                                 #  +0 OCTAL
005141,000334: 04,2110           56641                           XCH      VERBREG                               
005142,000335: 04,2111           54022                           TS       CYL                                   
005143,000336: 04,2112           40022                           CS       CYL                                   
005144,000337: 04,2113           40022                           CS       CYL                                   
005145,000338: 04,2114           56022                           XCH      CYL                                   
005146,000339: 04,2115           60103                           AD       CHAR                                  
005147,000340: 04,2116           02134                           TC       ENDNMTST                              
005148,000341: 04,2117           50123        DECTOBIN           INDEX    INREL                                 
005149,000342: 

Page 142

005151,000344: 04,2120           56641                           XCH      VERBREG                               
005152,000345: 04,2121           54140                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
005153,000346: 04,2122           37653                           CAF      ZERO                                  
005154,000347: 04,2123           54141                           TS       MPAC       +1                         
005155,000348: 04,2124           37650                           CAF      TEN                                   #  10 X 2EXP-14
005156,000349: 04,2125           07257                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
005157,000350: 04,2126           56141                           XCH      MPAC       +1                         
005158,000351: 04,2127           60103                           AD       CHAR                                  
005159,000352: 04,2130           54141                           TS       MPAC       +1                         
005160,000353: 04,2131           02134                           TC       ENDNMTST                              #  NO OF
005161,000354: 04,2132           26140                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
005162,000355: 04,2133           02152                           TC       DECEND                                
005163,000356: 04,2134           50123        ENDNMTST           INDEX    INREL                                 
005164,000357: 04,2135           54641                           TS       VERBREG                               
005165,000358: 04,2136           40637                           CS       DSPCOUNT                              
005166,000359: 04,2137           50123                           INDEX    INREL                                 
005167,000360: 04,2140           62176                           AD       CRITCON                               
005168,000361: 04,2141           00006                           EXTEND                                         
005169,000362: 04,2142           12144                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
005170,000363: 04,2143           02173                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
005171,000364: 04,2144           36165        ENDNUM             CAF      THREE                                 
005172,000365: 04,2145           70640                           MASK     DECBRNCH                              
005173,000366: 04,2146           10000                           CCS      A                                     
005174,000367: 04,2147           02152                           TC       DECEND                                
005175,000368: 04,2150           40637        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
005176,000369: 04,2151           02174                           TC       MORNUM     +1                         #  NEGATIVELY
005177,000370: 04,2152           07062        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
005178,000371: 04,2153           02203                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
005179,000372: 04,2154           36165                           CAF      THREE                                 #  IN MPAC, +1, +2.
005180,000373: 04,2155           70640                           MASK     DECBRNCH                              
005181,000374: 04,2156           50000                           INDEX    A                                     
005182,000375: 04,2157           02157                           TC       +0                                    
005183,000376: 04,2160           02164                           TC       +DECSGN                               
005184,000377: 04,2161           00006                           EXTEND                                         #  - CASE
005185,000378: 04,2162           40142                           DCS      MPAC       +1                         
005186,000379: 04,2163           52142                           DXCH     MPAC       +1                         
005187,000380: 04,2164           56142        +DECSGN            XCH      MPAC       +2                         
005188,000381: 04,2165           50123                           INDEX    INREL                                 
005189,000382: 04,2166           54644                           TS       XREGLP     -2                         
005190,000383: 04,2167           56141                           XCH      MPAC       +1                         
005191,000384: 04,2170           50123                           INDEX    INREL                                 
005192,000385: 04,2171           54641                           TS       VERBREG                               
005193,000386: 04,2172           02150                           TC       ENDALL                                
005194,000387: 04,2173           10637        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
005195,000388: 04,2174           54637                           TS       DSPCOUNT                              
005196,000389: 04,2175           04205                           TC       ENDOFJOB                              
005197,000390: 
005198,000391: 04,2176           00022        CRITCON            OCT      22                                    #  (DEC 18)
005199,000392: 04,2177           00020                           OCT      20                                    #  (DEC 16)
005200,000393: 04,2200           00012                           OCT      12                                    #  (DEC 10)

Page 143

005202,000395: 04,2201           00005                           OCT      5                                     
005203,000396: 04,2202           00000                           OCT      0                                     
005204,000397: 
005205,000398: 04,2203           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
005206,000399: 
005207,000400: 
005208,000401:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
005209,000402:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
005210,000403: 
005211,000404: 04,2205           50637        GETINREL           INDEX    DSPCOUNT                              
005212,000405: 04,2206           32211                           CAF      INRELTAB                              
005213,000406: 04,2207           54123                           TS       INREL                                 #  (A TEMP, REG)
005214,000407: 04,2210           00002                           TC       Q                                     
005215,000408: 
005216,000409: 04,2211           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
005217,000410: 04,2212           00004                           OCT      4                                     #  R3D4           =(1)
005218,000411: 04,2213           00004                           OCT      4                                     #  R3D3           =(2)
005219,000412: 04,2214           00004                           OCT      4                                     #  R3D2           =(3)
005220,000413: 04,2215           00004                           OCT      4                                     #  R3D1           =(4)
005221,000414: 04,2216           00003                           OCT      3                                     #  R2D5           =(5)
005222,000415: 04,2217           00003                           OCT      3                                     #  R2D4           =(6)
005223,000416: 04,2220           00003                           OCT      3                                     #  R2D3           =(7)
005224,000417: 04,2221           00003                           OCT      3                                     #  R2D2           =(8D)
005225,000418: 04,2222           00003                           OCT      3                                     #  R2D1           =(9D)
005226,000419: 04,2223           00002                           OCT      2                                     #  R1D5           =(10D)
005227,000420: 04,2224           00002                           OCT      2                                     #  R1D4           =(11D)
005228,000421: 04,2225           00002                           OCT      2                                     #  R1D3           =(12D)
005229,000422: 04,2226           00002                           OCT      2                                     #  R1D2           =(13D)
005230,000423: 04,2227           00002                           OCT      2                                     #  R1D1           =(14D)
005231,000424: 04,2231                                           LOC      +1                                    #  NO DSPCOUNT NUMBER = 15D
005232,000425: 04,2231           00001                           OCT      1                                     #  ND2            =(16D)
005233,000426: 04,2232           00001                           OCT      1                                     #  ND1            =(17D)
005234,000427: 04,2233           00000                           OCT      0                                     #  VD2            =(18D)
005235,000428: 04,2234           00000                           OCT      0                                     #  VD1            =(19D)
005236,000429: 
005237,000430: 
005238,000431: 04,2235           37653        VERB               CAF      ZERO                                  
005239,000432: 04,2236           54641                           TS       VERBREG                               
005240,000433: 04,2237           34506                           CAF      VD1                                   
005241,000434: 04,2240           54637        NVCOM              TS       DSPCOUNT                              
005242,000435: 04,2241           02517                           TC       2BLANK                                
005243,000436: 04,2242           37653                           CAF      ZERO                                  
005244,000437: 04,2243           54640                           TS       DECBRNCH                              
005245,000438: 04,2244           54653                           TS       REQRET                                #  SET FOR ENTPAS0
005246,000439: 04,2245           34417                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
005247,000440: 04,2246           54122                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
005248,000441:                                                                                                  #  TO TC ENDOFJOB
005249,000442: 04,2247           04205                           TC       ENDOFJOB                              
005250,000443: 

Page 144

005252,000445: 04,2250           37653        NOUN               CAF      ZERO                                  
005253,000446: 04,2251           54642                           TS       NOUNREG                               
005254,000447: 04,2252           34507                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
005255,000448: 04,2253           02240                           TC       NVCOM                                 
005256,000449: 
005257,000450: 
005258,000451: 
005259,000452: 04,2254           02326        NEGSGN             TC       SIGNTEST                              
005260,000453: 04,2255           02313                           TC       -ON                                   
005261,000454: 04,2256           37645                           CAF      TWO                                   
005262,000455: 04,2257           50123        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
005263,000456: 04,2260           67640                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
005264,000457: 04,2261           26640                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
005265,000458: 04,2262           10655        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
005266,000459: 04,2263           37653                           CAF      ZERO                                  
005267,000460: 04,2264           54655                           TS       CLPASS                                
005268,000461: 04,2265           02266                           TC       +1                                    
005269,000462: 04,2266           04205                           TC       ENDOFJOB                              
005270,000463: 
005271,000464: 04,2267           02326        POSGN              TC       SIGNTEST                              
005272,000465: 04,2270           02273                           TC       +ON                                   
005273,000466: 04,2271           37646                           CAF      ONE                                   
005274,000467: 04,2272           02257                           TC       BOTHSGN                               
005275,000468: 
005276,000469: 04,2273           22002        +ON                LXCH     Q                                     
005277,000470: 04,2274           02205                           TC       GETINREL                              
005278,000471: 04,2275           50123                           INDEX    INREL                                 
005279,000472: 04,2276           32321                           CAF      SGNTAB     -2                         
005280,000473: 04,2277           54107                           TS       SGNOFF                                
005281,000474: 04,2300           67646                           AD       ONE                                   
005282,000475: 04,2301           54106                           TS       SGNON                                 
005283,000476: 04,2302           37653        SGNCOM             CAF      ZERO                                  
005284,000477: 04,2303           54110                           TS       CODE                                  
005285,000478: 04,2304           56107                           XCH      SGNOFF                                
005286,000479: 04,2305           03241                           TC       11DSPIN                               
005287,000480: 04,2306           37634                           CAF      BIT11                                 
005288,000481: 04,2307           54110                           TS       CODE                                  
005289,000482: 04,2310           56106                           XCH      SGNON                                 
005290,000483: 04,2311           03241                           TC       11DSPIN                               
005291,000484: 04,2312           00001                           TC       L                                     
005292,000485: 04,2313           22002        -ON                LXCH     Q                                     
005293,000486: 04,2314           02205                           TC       GETINREL                              
005294,000487: 04,2315           50123                           INDEX    INREL                                 
005295,000488: 04,2316           32321                           CAF      SGNTAB     -2                         
005296,000489: 04,2317           54106                           TS       SGNON                                 
005297,000490: 04,2320           67646                           AD       ONE                                   
005298,000491: 04,2321           54107                           TS       SGNOFF                                
005299,000492: 04,2322           02302                           TC       SGNCOM                                
005300,000493: 
005301,000494: 04,2323           00005        SGNTAB             OCT      5                                     #  -R1

Page 145

005303,000496: 04,2324           00003                           OCT      3                                     #  -R2
005304,000497: 04,2325           00000                           OCT      0                                     #  -R3
005305,000498: 
005306,000499: 
005307,000500: 
005308,000501: 04,2326           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
005309,000502: 04,2327           44444                           CS       R1D1                                  #  R2D1, OR R3D1.
005310,000503: 04,2330           02336                           TC       SGNTST1                               
005311,000504: 04,2331           44445                           CS       R2D1                                  
005312,000505: 04,2332           02336                           TC       SGNTST1                               
005313,000506: 04,2333           44446                           CS       R3D1                                  
005314,000507: 04,2334           02336                           TC       SGNTST1                               
005315,000508: 04,2335           04205                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
005316,000509: 04,2336           60637        SGNTST1            AD       DSPCOUNT                              
005317,000510: 04,2337           00006                           EXTEND                                         
005318,000511: 04,2340           12342                           BZF      +2                                    #  MATCH FOUND
005319,000512: 04,2341           00002                           TC       Q                                     
005320,000513: 04,2342           00001                           TC       L                                     #  SIGN LEGAL
005321,000514: 
005322,000515: 
005323,000516: 
005324,000517:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
005325,000518:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR, TEMP, GIMBAL
005326,000519:                                                                                                  #  LOCK, PROG ALM, TRACKER.
005327,000520:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
005328,000521:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
005329,000522: 
005330,000523: 04,2343           56101        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
005331,000524: 04,2344           54652                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
005332,000525: 04,2345           37630                           CAF      BIT15                                 #  TURNS OFF  AUTO, HOLD, FREE, NO ATT,
005333,000526: 04,2346           54675                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, TRACKER, PROG ALM.
005334,000527: 04,2347           47635                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
005335,000528: 04,2350           00006                           EXTEND                                         
005336,000529: 04,2351           03013                           WAND     CHAN13                                
005337,000530: 04,2352           42405                           CS       ERCON                                 #  TURNS OFF  UPLINK ACTIVITY, TEMP,
005338,000531: 04,2353           00006                           EXTEND                                         #  OPERATOR ERROR.
005339,000532: 04,2354           03011                           WAND     DSALMOUT                              
005340,000533: 04,2355           34511        TSTAB              CAF      BINCON                                #  (DEC 10)
005341,000534: 04,2356           54103                           TS       ERCNT                                 #  ERCNT = COUNT
005342,000535: 04,2357           00004                           INHINT                                         
005343,000536: 04,2360           50103                           INDEX    ERCNT                                 
005344,000537: 04,2361           10662                           CCS      DSPTAB                                
005345,000538: 04,2362           67646                           AD       ONE                                   
005346,000539: 04,2363           02370                           TC       ERPLUS                                
005347,000540: 04,2364           67646                           AD       ONE                                   
005348,000541: 04,2365           40000        ERMINUS            CS       A                                     
005349,000542: 04,2366           72406                           MASK     NOTBIT12                              
005350,000543: 04,2367           02373                           TC       ERCOM                                 
005351,000544: 04,2370           40000        ERPLUS             CS       A                                     
005352,000545: 04,2371           72406                           MASK     NOTBIT12                              

Page 146

005354,000547: 04,2372           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
005355,000548: 04,2373           50103        ERCOM              INDEX    ERCNT                                 #  ETC.
005356,000549: 04,2374           54662                           TS       DSPTAB                                
005357,000550: 04,2375           00003                           RELINT                                         
005358,000551: 04,2376           10103                           CCS      ERCNT                                 
005359,000552: 04,2377           02356                           TC       TSTAB      +1                         
005360,000553: 04,2400           37653                           CAF      ZERO                                  
005361,000554: 04,2401           54721                           TS       FAILREG                               
005362,000555: 04,2402           55021                           TS       OLDERR                                
005363,000556: 04,2403           55044                           TS       SFAIL                                 
005364,000557: 04,2404           04205                           TC       ENDOFJOB                              
005365,000558: 
005366,000559: 04,2405           00114        ERCON              OCT      00114                                 #  CHAN 11 BIT 3,4,7.
005367,000560:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR
005368,000561:                                                                                                  #  ERROR.
005369,000562: 04,2406           73777        NOTBIT12           OCT      73777                                 
005370,000563: 
005371,000564: 
005372,000565: 
005373,000566:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
005374,000567:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
005375,000568:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
005376,000569: 
005377,000570:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
005378,000571:                                                                                                  #  APPROPRIATE TO BE CLEARED.
005379,000572: 
005380,000573:                                                                                                  #  CLPASS   +0 PASS0, CAN BE BACKED UP
005381,000574:                                                                                                  #           +NZ HIPASS, CAN BE BACKED UP
005382,000575:                                                                                                  #           -NZ PASS0, CANNOT BE BACKED UP
005383,000576: 
005384,000577: 04,2407           10637        CLEAR              CCS      DSPCOUNT                              
005385,000578: 04,2410           67646                           AD       ONE                                   
005386,000579: 04,2411           02413                           TC       +2                                    
005387,000580: 04,2412           67646                           AD       ONE                                   
005388,000581: 04,2413           54637                           TS       DSPCOUNT                              #  MAG OF DSPCOUNT
005389,000582: 04,2414           02205                           TC       GETINREL                              #  MUST SET INREL, EVEN FOR HIPASS
005390,000583: 04,2415           10655                           CCS      CLPASS                                
005391,000584: 04,2416           02424                           TC       CLPASHI                               #  +
005392,000585: 04,2417           02421                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
005393,000586: 04,2420           02421                           TC       +1                                    #  -
005394,000587: 04,2421           30123                           CA       INREL                                 
005395,000588: 04,2422           02446                           TC       LEGALTST                              
005396,000589: 04,2423           02441                           TC       CLEAR1                                
005397,000590: 04,2424           10123        CLPASHI            CCS      INREL                                 
005398,000591: 04,2425           54123                           TS       INREL                                 
005399,000592: 04,2426           02446                           TC       LEGALTST                              
005400,000593: 04,2427           32515                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
005401,000594: 04,2430           26653                           ADS      REQRET                                
005402,000595: 04,2431           30123                           CA       INREL                                 
005403,000596: 04,2432           54111                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL

Page 147

005405,000598: 04,2433           00006                           EXTEND                                         
005406,000599: 04,2434           26641                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
005407,000600: 04,2435           04063                           TC       BANKCALL                              
005408,000601: 04,2436           12315                           CADR     UPDATVB                               
005409,000602: 04,2437           30111                           CA       MIXTEMP                               
005410,000603: 04,2440           54123                           TS       INREL                                 #  RESTORE INREL
005411,000604: 04,2441           02444        CLEAR1             TC       CLR5                                  
005412,000605: 04,2442           24655                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
005413,000606: 04,2443           04205                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
005414,000607: 04,2444           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
005415,000608: 04,2445           02456                           TC       5BLANK     +2                         
005416,000609: 04,2446           67656        LEGALTST           AD       NEG2                                  
005417,000610: 04,2447           10000                           CCS      A                                     
005418,000611: 04,2450           00002                           TC       Q                                     #  LEGAL  INREL G/ 2
005419,000612: 04,2452                                           LOC      +1                                    
005420,000613: 04,2452           04205                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
005421,000614: 04,2453           00002                           TC       Q                                     #  LEGAL    INREL = 2
005422,000615: 
005423,000616: 
005424,000617: 
005425,000618:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
005426,000619:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
005427,000620:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
005428,000621: 
005429,000622: 04,2454           22002        5BLANK             LXCH     Q                                     
005430,000623: 04,2455           02205                           TC       GETINREL                              
005431,000624: 04,2456           37653                           CAF      ZERO                                  
005432,000625: 04,2457           50123                           INDEX    INREL                                 
005433,000626: 04,2460           54641                           TS       VERBREG                               #  ZERO X, Y, Z REG.
005434,000627: 04,2461           50123                           INDEX    INREL                                 
005435,000628: 04,2462           54644                           TS       XREGLP     -2                         
005436,000629: 04,2463           54110                           TS       CODE                                  
005437,000630: 04,2464           50123                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
005438,000631: 04,2465           47640                           CS       BIT7                                  #  PROTECT OTHERS
005439,000632: 04,2466           70640                           MASK     DECBRNCH                              
005440,000633: 04,2467           72516                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
005441,000634: 04,2470           54640                           TS       DECBRNCH                              
005442,000635: 04,2471           50123                           INDEX    INREL                                 
005443,000636: 04,2472           32506                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
005444,000637: 04,2473           54127                           TS       COUNT                                 
005445,000638: 04,2474           03157                           TC       DSPIN                                 
005446,000639: 04,2475           50123        5BLANK1            INDEX    INREL                                 
005447,000640: 04,2476           32511                           CAF      DOUBLK     -2                         
005448,000641: 04,2477           54637                           TS       DSPCOUNT                              
005449,000642: 04,2500           02517                           TC       2BLANK                                
005450,000643: 04,2501           47645                           CS       TWO                                   
005451,000644: 04,2502           26637                           ADS      DSPCOUNT                              
005452,000645: 04,2503           02517                           TC       2BLANK                                
005453,000646: 04,2504           50123                           INDEX    INREL                                 
005454,000647: 04,2505           34442                           CAF      R1D1       -2                         

Page 148

005456,000649: 04,2506           54637                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
005457,000650: 04,2507           00001                           TC       L                                     #  OF REG. JUST BLANKED
005458,000651: 
005459,000652: 04,2510           00016        SINBLANK           OCT      16                                    #  DEC 14
005460,000653: 04,2511           00005                           OCT      5                                     
005461,000654: 04,2512           00004                           OCT      4                                     
005462,000655: 04,2513           00015        DOUBLK             OCT      15                                    #  DEC 13
005463,000656: 04,2514           00011                           OCT      11                                    #  DEC 9
005464,000657: 04,2515           00003                           OCT      3                                     
005465,000658: 
005466,000659: 04,2516           77774        BRNCHCON           OCT      77774                                 
005467,000660: 
005468,000661:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
005469,000662:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
005470,000663: 
005471,000664: 04,2517           30637        2BLANK             CA       DSPCOUNT                              
005472,000665: 04,2520           54021                           TS       SR                                    
005473,000666: 04,2521           42532                           CS       BLANKCON                              
005474,000667: 04,2522           00004                           INHINT                                         
005475,000668: 04,2523           50021                           INDEX    SR                                    
005476,000669: 04,2524           56662                           XCH      DSPTAB                                
005477,000670: 04,2525           00006                           EXTEND                                         
005478,000671: 04,2526           62530                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
005479,000672: 04,2527           24656                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
005480,000673: 04,2530           00003                           RELINT                                         #  IF -,NOUT OK
005481,000674: 04,2531           00002                           TC       Q                                     
005482,000675: 04,2532           04000        BLANKCON           OCT      4000                                  
005483,000676: 

Page 149

005485,000678:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
005486,000679:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
005487,000680:                                                                                                  #  PASSES.
005488,000681: 
005489,000682: 
005490,000683: 
005491,000684:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
005492,000685:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
005493,000686:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
005494,000687: 
005495,000688: 
005496,000689: 
005497,000690: 05,2000                                           SETLOC   22000                                 
005498,000691: 
005499,000692: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
005500,000693: 05,2001           13403        DSPMM              TCF      DSPMM1                                
005501,000694: 05,2002           02663        LOADLV1            TC       LOADLV                                
005502,000695:                                                                                                  #  END OF STANDARD LEAD INS.
005503,000696: 
005504,000697: 
005505,000698: 
005506,000699: 05,2003           37653        ENTER              CAF      ZERO                                  
005507,000700: 05,2004           54655                           TS       CLPASS                                
005508,000701: 05,2005           34417                           CAF      ENDINST                               
005509,000702: 05,2006           54122                           TS       ENTRET                                
005510,000703: 05,2007           10653                           CCS      REQRET                                
005511,000704: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
005512,000705: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
005513,000706: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
005514,000707: 05,2013           36165                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
005515,000708: 05,2014           70640                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
005516,000709: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
005517,000710: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
005518,000711: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
005519,000712: 05,2020           10637                           CCS      DSPCOUNT                              
005520,000713: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
005521,000714: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
005522,000715: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
005523,000716: 05,2024           40653        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
005524,000717: 05,2025           54653                           TS       REQRET                                #  SET REQRET +.
005525,000718: 05,2026           04547                           TC       FLASHOFF                              
005526,000719: 05,2027           00653                           TC       REQRET                                
005527,000720: 
005528,000721: 05,2030     0122               ENTEXIT            =        ENTRET                                
005529,000722: 
005530,000723: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
005531,000724: 
005532,000725: 05,2031           37653        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
005533,000726: 05,2032           54640                           TS       DECBRNCH                              
005534,000727: 05,2033           40641        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST

Page 150

005536,000729: 05,2034           62030                           AD       LOWVERB                               #  30-VB
005537,000730: 05,2035           00006                           EXTEND                                         
005538,000731: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/E 30
005539,000732: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
005540,000733: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
005541,000734: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
005542,000735: 05,2042           50124                           INDEX    MIXBR                                 
005543,000736: 05,2043           02043                           TC       +0                                    
005544,000737: 05,2044           02046                           TC       +2                                    #  NORMAL
005545,000738: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
005546,000739: 05,2046           10132                           CCS      NNADTEM                               #  NORMAL
005547,000740: 05,2047           02114                           TC       VERBFAN    -2                         #       NORMAL  IF +
005548,000741: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE    IF +0
005549,000742: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
005550,000743: 05,2052           24657                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
005551,000744: 05,2053           04436                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
005552,000745: 05,2054           02102                           TC       INTMCTBS   +2                         
005553,000746: 05,2055           37630        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
005554,000747: 05,2056           54655                           TS       CLPASS                                
005555,000748: 05,2057           44417                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
005556,000749: 05,2060           60122                           AD       ENTEXIT                               #              FROM EXTERNAL
005557,000750: 05,2061           00006                           EXTEND                                         
005558,000751: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
005559,000752: 05,2063           02100                           TC       INTMCTBS                              
005560,000753: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
005561,000754: 05,2065           10640                           CCS      DECBRNCH                              
005562,000755: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
005563,000756: 05,2067           56645                           XCH      ZREG                                  #  OCTAL USED    OK
005564,000757: 05,2070           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
005565,000758: 05,2071           00006                           EXTEND                                         
005566,000759: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
005567,000760: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
005568,000761: 05,2074           02116                           TC       VERBFAN                               
005569,000762: 
005570,000763: 05,2075     0637                                  EBANK=   DSPCOUNT                              
005571,000764: 05,2075           02000 14001  LODNNLOC           2CADR    LODNNTAB                              
005572,000765: 
005573,000766: 05,2077           77772        NEG5               OCT      77772                                 
005574,000767: 
005575,000768: 05,2100           30142        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
005576,000769: 05,2101           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
005577,000770: 05,2102           47643                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
005578,000771: 05,2103           70641                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
005579,000772: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
005580,000773: 05,2105           00006                           EXTEND                                         
005581,000774: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
005582,000775: 05,2107           34446                           CAF      R3D1                                  #  VB NOT = 05 OR 15, DISPLAY CADR.
005583,000776: 05,2110           54637                           TS       DSPCOUNT                              
005584,000777: 05,2111           30657                           CA       NOUNCADR                              
005585,000778: 05,2112           03222                           TC       DSPOCTWD                              

Page 151

005587,000780: 05,2113           02116                           TC       VERBFAN                               
005588,000781: 
005589,000782: 05,2114           67646                           AD       ONE                                   
005590,000783: 05,2115           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
005591,000784: 05,2116           42131        VERBFAN            CS       LST2CON                               
005592,000785: 05,2117           60641                           AD       VERBREG                               #  VERB-LST2CON
005593,000786: 05,2120           10000                           CCS      A                                     
005594,000787: 05,2121           67646                           AD       ONE                                   #  VERB G/ LST2CON
005595,000788: 05,2122           02124                           TC       +2                                    
005596,000789: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
005597,000790: 05,2124           54140                           TS       MPAC                                  
005598,000791: 05,2125           04610                           TC       RELDSP                                #  RELEASE DISPLAY SYST
005599,000792: 05,2126           56140                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
005600,000793: 05,2127           62132                           AD       LST2CADR                              
005601,000794: 05,2130           04105                           TC       BANKJUMP                              
005602,000795: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB

!! START CHANGE FOR RETREAD 50 !!

005604,000797: 05,2132           22364        LST2CADR           CADR     LST2FAN                               

!! END CHANGE FOR RETREAD 50 !!

005606,000799: 
005607,000800: 05,2133           50641        VBFANDIR           INDEX    VERBREG                               
005608,000801: 05,2134           32136                           CAF      VERBTAB                               
005609,000802: 05,2135           04105                           TC       BANKJUMP                              
005610,000803: 
005611,000804: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
005612,000805: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
005613,000806: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
005614,000807: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
005615,000808: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
005616,000809: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
005617,000810: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
005618,000811: 05,2145           10662                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
005619,000812: 05,2146           11255                           CADR     DSPALARM                              #  VB10 SPARE
005620,000813: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
005621,000814: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
005622,000815: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
005623,000816: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
005624,000817: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
005625,000818: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
005626,000819: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
005627,000820: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
005628,000821: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
005629,000822: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
005630,000823: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
005631,000824: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
005632,000825: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
005633,000826: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
005634,000827: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
005635,000828:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
005636,000829: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
005637,000830: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
005638,000831: 05,2170           11303                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2

Page 152

005640,000833: 05,2171           11266                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
005641,000834: 05,2172           11273                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
005642,000835: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
005643,000836: 05,2174           02677                           CADR     SLAP1                                 #  VB36 FRESH START
005644,000837: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
005645,000838: 
005646,000839: 
005647,000840: 
005648,000841:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
005649,000842: 

Page 153

005651,000844:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
005652,000845:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
005653,000846:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
005654,000847:                                                                                                  #   MIXTEMP.
005655,000848: 
005656,000849: 05,2176           10132        MIXNOUN            CCS      NNADTEM                               
005657,000850: 05,2177           02203                           TC       +4                                    #  +  IN USE
005658,000851: 05,2200           02324                           TC       GODSPALM                              #  +0  NOT IN USE
005659,000852: 05,2201           02203                           TC       +2                                    #  -  IN USE
005660,000853: 05,2202           02203                           TC       +1                                    #  -0  IN USE
005661,000854: 05,2203           46162                           CS       SIX                                   
005662,000855: 05,2204           60641                           AD       VERBREG                               
005663,000856: 05,2205           00006                           EXTEND                                         
005664,000857: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
005665,000858: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
005666,000859: 05,2210           37645                           CAF      TWO                                   
005667,000860: 05,2211           54103        MIXNN1             TS       DECOUNT                               
005668,000861: 05,2212           62235                           AD       MIXAD                                 
005669,000862: 05,2213           54131                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
005670,000863: 05,2214           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
005671,000864: 05,2215           30134                           CA       IDAD1TEM                              #  OF NOUN.
005672,000865: 05,2216           54106                           TS       NOUNTEM                               
005673,000866:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
005674,000867:                                                                                                  #    MINOR PART ONLY.
005675,000868: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
005676,000869: 05,2220           02236                           TC       DPTEST                                
005677,000870: 05,2221           02223                           TC       MIXNN2                                #  NO DP
005678,000871: 05,2222           24106                           INCR     NOUNTEM                               #  DP GET MINOR PART
005679,000872: 05,2223           30106        MIXNN2             CA       NOUNTEM                               
005680,000873: 05,2224           74503                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
005681,000874: 05,2225           04440                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
005682,000875: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
005683,000876: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
005684,000877: 05,2230           50131                           INDEX    NOUNADD                               
005685,000878: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
005686,000879: 05,2232           10103                           CCS      DECOUNT                               
005687,000880: 05,2233           02211                           TC       MIXNN1                                
005688,000881: 05,2234           02116                           TC       VERBFAN                               
005689,000882: 
005690,000883: 05,2235           00111        MIXAD              TC       MIXTEMP                               
005691,000884: 
005692,000885: 
005693,000886: 
005694,000887:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
005695,000888:                                                                                                  #           RETURNS TO L+1 IF NO DP.
005696,000889:                                                                                                  #           RETURNS TO L+2 IF DP.
005697,000890: 
005698,000891: 05,2236           50000        DPTEST             INDEX    A                                     
005699,000892: 05,2237           12240                           TCF      +1                                    
005700,000893: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY NO DP

Page 154

005702,000895: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
005703,000896: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
005704,000897: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
005705,000898: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
005706,000899: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
005707,000900: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
005708,000901: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
005709,000902: 05,2250           50002        DPTEST1            INDEX    Q                                     
005710,000903: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
005711,000904: 
005712,000905: 
005713,000906: 
005714,000907: 05,2252           34444        REQDATX            CAF      R1D1                                  
005715,000908: 05,2253           12257                           TCF      REQCOM                                
005716,000909: 05,2254           34445        REQDATY            CAF      R2D1                                  
005717,000910: 05,2255           12257                           TCF      REQCOM                                
005718,000911: 05,2256           34446        REQDATZ            CAF      R3D1                                  
005719,000912: 05,2257           54637        REQCOM             TS       DSPCOUNT                              
005720,000913: 05,2260           40002                           CS       Q                                     
005721,000914: 05,2261           54653                           TS       REQRET                                
005722,000915: 05,2262           04063                           TC       BANKCALL                              
005723,000916: 05,2263           10454                           CADR     5BLANK                                
005724,000917: 05,2264           04543                           TC       FLASHON                               
005725,000918: 05,2265           44417                           CS       ENDINST                               
005726,000919: 05,2266           60122                           AD       ENTEXIT                               
005727,000920: 05,2267           00006                           EXTEND                                         
005728,000921: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
005729,000922: 05,2271           47653                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
005730,000923: 05,2272           54676                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
005731,000924: 05,2273           00122        ENDRQDAT           TC       ENTEXIT                               
005732,000925: 
005733,000926:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
005734,000927:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
005735,000928: 
005736,000929: 
005737,000930: 
005738,000931: 05,2274           54642                           TS       NOUNREG                               
005739,000932: 05,2275           56002        UPDATNN            XCH      Q                                     
005740,000933: 05,2276           54103                           TS       UPDATRET                              
005741,000934: 05,2277           00006                           EXTEND                                         
005742,000935: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
005743,000936: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
005744,000937: 05,2302           10132                           CCS      NNADTEM                               
005745,000938: 05,2303           67646                           AD       ONE                                   #  NORMAL
005746,000939: 05,2304           12307                           TCF      PUTADD                                
005747,000940: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
005748,000941: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
005749,000942: 05,2307           04430        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
005750,000943: 05,2310           34507                           CAF      ND1                                   
005751,000944: 05,2311           54637                           TS       DSPCOUNT                              

Page 155

005753,000946: 05,2312           30642                           CA       NOUNREG                               
005754,000947: 05,2313           12322                           TCF      UPDAT1                                
005755,000948: 
005756,000949: 05,2314           54641                           TS       VERBREG                               
005757,000950: 05,2315           56002        UPDATVB            XCH      Q                                     
005758,000951: 05,2316           54103                           TS       UPDATRET                              
005759,000952: 05,2317           34506                           CAF      VD1                                   
005760,000953: 05,2320           54637                           TS       DSPCOUNT                              
005761,000954: 05,2321           30641                           CA       VERBREG                               
005762,000955: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
005763,000956: 05,2323           00103                           TC       UPDATRET                              
005764,000957: 
005765,000958: 
005766,000959: 
005767,000960: 05,2324           04102        GODSPALM           TC       POSTJUMP                              
005768,000961: 05,2325           11255                           CADR     DSPALARM                              
005769,000962: 

Page 156

005771,000964:                                                                                                  #           NOUN   TABLES
005772,000965:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
005773,000966:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
005774,000967:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
005775,000968:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
005776,000969:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
005777,000970: 
005778,000971:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
005779,000972:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
005780,000973: 
005781,000974:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
005782,000975: 
005783,000976:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
005784,000977:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
005785,000978:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
005786,000979: 
005787,000980:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
005788,000981:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
005789,000982:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
005790,000983:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
005791,000984:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
005792,000985:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
005793,000986: 
005794,000987:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
005795,000988:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
005796,000989:                                                                                                  #  THE FIRST OF THESE ENTRIES.
005797,000990:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
005798,000991:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
005799,000992: 
005800,000993:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
005801,000994:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
005802,000995:                                                                                                  #        QQQQQRRRRRSSSSS
005803,000996:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
005804,000997:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
005805,000998:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
005806,000999:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
005807,001000:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
005808,001001: 
005809,001002: 
005810,001003: 
005811,001004:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
005812,001005:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
005813,001006:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
005814,001007:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
005815,001008:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
005816,001009: 
005817,001010: 
005818,001011: 
005819,001012:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
005820,001013:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
005821,001014: 

Page 157

005823,001016:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
005824,001017:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
005825,001018: 

Page 158

005827,001020:                                                                                                  #           DISPLAY VERBS
005828,001021: 05,2326           47645        DSPABC             CS       TWO                                   
005829,001022: 05,2327           02376                           TC       COMPTEST                              
005830,001023: 05,2330           50131                           INDEX    NOUNADD                               
005831,001024: 05,2331           40002                           CS       2                                     
005832,001025: 05,2332           56116                           XCH      BUF        +2                         
005833,001026: 05,2333           47646        DSPAB              CS       ONE                                   
005834,001027: 05,2334           02376                           TC       COMPTEST                              
005835,001028: 05,2335           50131                           INDEX    NOUNADD                               
005836,001029: 05,2336           40001                           CS       1                                     
005837,001030: 05,2337           56115                           XCH      BUF        +1                         
005838,001031: 05,2340           02420        DSPA               TC       TSTFORDP                              
005839,001032: 05,2341           50131                           INDEX    NOUNADD                               
005840,001033: 05,2342           40000                           CS       0                                     
005841,001034: 05,2343           56114        DSPCOM1            XCH      BUF                                   
005842,001035: 05,2344           02357                           TC       DSPCOM2                               
005843,001036: 05,2345           47646        DSPB               CS       ONE                                   
005844,001037: 05,2346           02376                           TC       COMPTEST                              
005845,001038: 05,2347           50131                           INDEX    NOUNADD                               
005846,001039: 05,2350           40001                           CS       1                                     
005847,001040: 05,2351           02343                           TC       DSPCOM1                               
005848,001041: 05,2352           47645        DSPC               CS       TWO                                   
005849,001042: 05,2353           02376                           TC       COMPTEST                              
005850,001043: 05,2354           50131                           INDEX    NOUNADD                               
005851,001044: 05,2355           40002                           CS       2                                     
005852,001045: 05,2356           02343                           TC       DSPCOM1                               
005853,001046: 05,2357           47645        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
005854,001047: 05,2360           60641                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
005855,001048: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
005856,001049: 05,2362           02365                           TC       DSPCOM3                               
005857,001050: 05,2363           00122                           TC       ENTEXIT                               
005858,001051: 05,2364           02365                           TC       +1                                    
005859,001052: 05,2365           54106        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
005860,001053: 05,2366           50000                           INDEX    A                                     
005861,001054: 05,2367           34444                           CAF      R1D1                                  
005862,001055: 05,2370           54637                           TS       DSPCOUNT                              
005863,001056: 05,2371           50106                           INDEX    DISTEM                                
005864,001057: 05,2372           40114                           CS       BUF                                   
005865,001058: 05,2373           03222                           TC       DSPOCTWD                              
005866,001059: 05,2374           56106                           XCH      DISTEM                                
005867,001060: 05,2375           02361                           TC       DSPCOM2    +2                         
005868,001061: 
005869,001062:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
005870,001063:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
005871,001064:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
005872,001065: 05,2376           54107        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
005873,001066: 05,2377           22002                           LXCH     Q                                     
005874,001067: 05,2400           47646        COMPTST1           CS       ONE                                   
005875,001068: 05,2401           60642                           AD       NOUNREG                               
005876,001069: 05,2402           00006                           EXTEND                                         

Page 159

005878,001071: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
005879,001072: 05,2404           50124                           INDEX    MIXBR                                 #  NOUN NOT = 01.
005880,001073: 05,2405           32442                           CAF      COMPICK    -1                         
005881,001074: 05,2406           50000                           INDEX    A                                     
005882,001075: 05,2407           30000                           CA       0                                     
005883,001076: 05,2410           74475                           MASK     HI5                                   
005884,001077: 05,2411           04456                           TC       LEFT5                                 #  NOUN COMP
005885,001078: 05,2412           60107                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
005886,001079: 05,2413           10000                           CCS      A                                     
005887,001080: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
005888,001081: 05,2416                                           LOC      +1                                    
005889,001082: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
005890,001083: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
005891,001084: 
005892,001085: 
005893,001086: 
005894,001087: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
005895,001088: 05,2421           30132                           CA       NNADTEM                               
005896,001089: 05,2422           67646                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
005897,001090: 05,2423           00006                           EXTEND                                         
005898,001091: 05,2424           12436                           BZF      CHANDSP                               
005899,001092: 05,2425           50124                           INDEX    MIXBR                                 
005900,001093: 05,2426           02426                           TC       +0                                    
005901,001094: 05,2427           02431                           TC       +2                                    #  NORMAL
005902,001095: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
005903,001096: 05,2431           02713                           TC       SFRUTNOR                              
005904,001097: 05,2432           02236                           TC       DPTEST                                
005905,001098: 05,2433           00001                           TC       L                                     #  NO DP
005906,001099: 05,2434           24131                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
005907,001100: 05,2435           00001                           TC       L                                     
005908,001101: 
005909,001102: 
005910,001103: 
005911,001104: 05,2436           00006        CHANDSP            EXTEND                                         
005912,001105: 05,2437           50657                           INDEX    NOUNCADR                              
005913,001106: 05,2440           00000                           READ     0                                     
005914,001107: 05,2441           40000                           CS       A                                     
005915,001108: 05,2442           12343                           TCF      DSPCOM1                               
005916,001109: 
005917,001110: 
005918,001111: 
005919,001112: 05,2443           00133        COMPICK            ADRES    NNTYPTEM                              
005920,001113: 05,2444           00132                           ADRES    NNADTEM                               
005921,001114: 
005922,001115: 05,2445           50124        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
005923,001116: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
005924,001117: 05,2447           50000                           INDEX    A                                     
005925,001118: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
005926,001119: 05,2451           74475                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
005927,001120: 05,2452           04456                           TC       LEFT5                                 

Page 160

005929,001122: 05,2453           54103                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
005930,001123: 05,2454           54106        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
005931,001124: 05,2455           60131                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
005932,001125: 05,2456           50000                           INDEX    A                                     
005933,001126: 05,2457           40000                           CS       0                                     
005934,001127: 05,2460           50106                           INDEX    DECTEM                                
005935,001128: 05,2461           56643                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
005936,001129: 05,2462           10106                           CCS      DECTEM                                
005937,001130: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
005938,001131: 05,2464           37653        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
005939,001132: 05,2465           54141                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
005940,001133: 05,2466           54142                           TS       MPAC       +2                         
005941,001134: 05,2467           50103                           INDEX    DECOUNT                               
005942,001135: 05,2470           34444                           CAF      R1D1                                  
005943,001136: 05,2471           54637                           TS       DSPCOUNT                              
005944,001137: 05,2472           50103                           INDEX    DECOUNT                               
005945,001138: 05,2473           40643                           CS       XREG                                  
005946,001139: 05,2474           54140                           TS       MPAC                                  
005947,001140: 05,2475           02734                           TC       SFCONUM                               #  2X ( SF CON NUMB ) IN A
005948,001141: 05,2476           54107                           TS       SFTEMP1                               
005949,001142: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
005950,001143: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
005951,001144: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
005952,001145: 05,2502           50124                           INDEX    MIXBR                                 
005953,001146: 05,2503           02503                           TC       +0                                    
005954,001147: 05,2504           02507                           TC       DSPSFNOR                              
005955,001148: 05,2505           02721                           TC       SFRUTMIX                              
005956,001149: 05,2506           02522                           TC       DECDSP3                               
005957,001150: 
005958,001151: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
005959,001152: 05,2510           02522                           TC       DECDSP3                               
005960,001153: 
005961,001154: 05,2511     0637                                  EBANK=   DSPCOUNT                              
005962,001155: 05,2511           02037 14001  GTSFOUTL           2CADR    GTSFOUT                               
005963,001156: 
005964,001157: 
005965,001158: 
005966,001159: 05,2513           04063        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
005967,001160: 05,2514           11057                           CADR     DSPDECWD                              
005968,001161: 05,2515           10103                           CCS      DECOUNT                               
005969,001162: 05,2516           02520                           TC       +2                                    
005970,001163: 05,2517           00122                           TC       ENTEXIT                               
005971,001164: 05,2520           54103                           TS       DECOUNT                               
005972,001165: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
005973,001166: 
005974,001167: 
005975,001168: 
005976,001169: 05,2522           50000        DECDSP3            INDEX    A                                     
005977,001170: 05,2523           32525                           CAF      SFOUTABR                              
005978,001171: 05,2524           04105                           TC       BANKJUMP                              
005979,001172: 

Page 161

005981,001174: 05,2525           11255        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
005982,001175: 05,2526           12513                           CADR     DSPDCEND                              
005983,001176: 05,2527           10533                           CADR     DEGOUTSF                              
005984,001177: 05,2530           10620                           CADR     ARTOUTSF                              
005985,001178: 05,2531           10625                           CADR     DP1OUTSF                              
005986,001179: 05,2532           10632                           CADR     DP2OUTSF                              
005987,001180: 05,2533           10541                           CADR     OPDEGOUT                              
005988,001181: 05,2534           10634                           CADR     DP3OUTSF                              
005989,001182: 05,2535                        ENDRTOUT           EQUALS                                         
005990,001183: 
005991,001184: 
005992,001185: 
005993,001186:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
005994,001187:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
005995,001188: 
005996,001189: 
005997,001190: 
005998,001191: 04,2533                                           SETLOC   BLANKCON   +1                         
005999,001192: 
006000,001193:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
006001,001194:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
006002,001195: 
006003,001196: 04,2533           37653        DEGOUTSF           CAF      ZERO                                  
006004,001197: 04,2534           54142                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
006005,001198: 04,2535           02572                           TC       FIXRANGE                              
006006,001199: 04,2536           02540                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
006007,001200: 04,2537           02565                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
006008,001201: 04,2540           02603                           TC       DEGCOM                                
006009,001202: 
006010,001203:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
006011,001204: 
006012,001205: 04,2541           10140        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
006013,001206: 04,2542           56140                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
006014,001207: 04,2543           02546                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
006015,001208: 04,2544           02555                           TC       NEGOPT                                #  IF NEG NON ZERO
006016,001209: 04,2545           67655                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
006017,001210: 04,2546           62617                           AD       20BIAS                                
006018,001211: 04,2547           54140        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
006019,001212: 04,2550           02553                           TC       +3                                    #  NO OVFLOW
006020,001213: 04,2551           37630                           CAF      BIT15                                 #  IF OVFLOW
006021,001214: 04,2552           26140                           ADS      MPAC                                  
006022,001215: 04,2553           37645                           CAF      TWO                                   #  SET MULTIPLIER TO .45
006023,001216: 04,2554           02534                           TC       DEGOUTSF   +1                         
006024,001217: 
006025,001218: 04,2555           56140        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
006026,001219: 04,2556           62617                           AD       20BIAS                                
006027,001220: 04,2557           10000                           CCS      A                                     
006028,001221: 04,2560           02547                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
006029,001222: 04,2562                                           LOC      +1                                    
006030,001223: 04,2562           67646                           AD       ONE                                   #  IF NEG RESTORE SUM
006031,001224: 

Page 162

006033,001226: 04,2563           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
006034,001227: 04,2564           02547                           TC       BIASCOM                               
006035,001228: 
006036,001229: 04,2565           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
006037,001230: 04,2566           50142                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
006038,001231: 04,2567           32614                           DCA      DEGTAB                                
006039,001232: 04,2570           52110                           DXCH     SFTEMP1                               
006040,001233: 04,2571           00002                           TC       Q                                     
006041,001234: 
006042,001235: 04,2572           10140        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
006043,001236: 04,2573           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
006044,001237: 04,2574           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
006045,001238: 04,2575           12576                           TCF      +1                                    
006046,001239: 04,2576           47630                           CS       BIT15                                 
006047,001240: 04,2577           70140                           MASK     MPAC                                  
006048,001241: 04,2600           54140                           TS       MPAC                                  
006049,001242: 04,2601           50002                           INDEX    Q                                     
006050,001243: 04,2602           00001                           TC       1                                     
006051,001244: 
006052,001245: 04,2603           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
006053,001246: 04,2604           50142                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
006054,001247: 04,2605           32614                           DCA      DEGTAB                                
006055,001248: 04,2606           52141                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
006056,001249: 04,2607           07257                           TC       SHORTMP                               
006057,001250: 04,2610           52110                           DXCH     SFTEMP1                               
006058,001251: 04,2611           20141                           DAS      MPAC                                  
006059,001252: 04,2612           02623                           TC       SCOUTEND                              
006060,001253: 
006061,001254: 
006062,001255: 
006063,001256: 04,2613           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
006064,001257: 04,2614           03656                           OCT      03656                                 #  LOW PART OF    .18
006065,001258: 04,2615           16314                           OCT      16314                                 #  HI PART OF     .45
006066,001259: 04,2616           31463                           OCT      31463                                 #  LO PART OF     .45
006067,001260: 
006068,001261: 04,2617           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
006069,001262: 
006070,001263: 04,2620           52110        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
006071,001264: 04,2621           52141                           DXCH     MPAC                                  
006072,001265: 04,2622           07257                           TC       SHORTMP                               
006073,001266: 04,2623           04102        SCOUTEND           TC       POSTJUMP                              
006074,001267: 04,2624           12513                           CADR     DSPDCEND                              
006075,001268: 
006076,001269: 04,2625           02637        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
006077,001270: 04,2626           56142                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
006078,001271: 04,2627           56141                           XCH      MPAC       +1                         #  BY B14.
006079,001272: 04,2630           54140                           TS       MPAC                                  
006080,001273: 04,2631           02623                           TC       SCOUTEND                              
006081,001274: 

Page 163

006083,001276: 04,2632           02637        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
006084,001277: 04,2633           02623                           TC       SCOUTEND                              
006085,001278: 
006086,001279: 
006087,001280: 
006088,001281: 04,2634           02637        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
006089,001282: 04,2635           03032                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
006090,001283: 04,2636           02623                           TC       SCOUTEND                              
006091,001284: 
006092,001285: 
006093,001286: 
006094,001287:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
006095,001288:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
006096,001289: 
006097,001290: 04,2637           56002        DPOUT              XCH      Q                                     
006098,001291: 04,2640           54105                           TS       OVFIND                                
006099,001292: 04,2641           50124                           INDEX    MIXBR                                 
006100,001293: 04,2642           02642                           TC       +0                                    
006101,001294: 04,2643           02660                           TC       DPOUTNOR                              
006102,001295: 04,2644           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
006103,001296: 04,2645           30134                           CA       IDAD1TEM                              #      OF NOUN.
006104,001297: 04,2646           74503                           MASK     LOW11                                 #  E SUBK
006105,001298: 04,2647           04440                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
006106,001299: 04,2650           00006        DPOUTCOM           EXTEND                                         
006107,001300: 04,2651           50000                           INDEX    A                                     #  MIXED         NORMAL
006108,001301: 04,2652           30001                           DCA      0                                     #  C(ESUBK)      C(E)
006109,001302: 04,2653           52141                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
006110,001303: 04,2654           07062                           TC       DMP                                   
006111,001304: 04,2655           00107                           ADRES    SFTEMP1                               
006112,001305: 04,2656           07226                           TC       TPAGREE                               
006113,001306: 04,2657           00105                           TC       OVFIND                                
006114,001307: 
006115,001308: 04,2660           30131        DPOUTNOR           CA       NOUNADD                               #  E
006116,001309: 04,2661           02650                           TC       DPOUTCOM                              
006117,001310: 
006118,001311: 
006119,001312: 
006120,001313:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
006121,001314:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
006122,001315:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
006123,001316:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
006124,001317:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
006125,001318:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
006126,001319: 
006127,001320: 
006128,001321: 
006129,001322: 04,2662           50124        DSPDPDEC           INDEX    MIXBR                                 
006130,001323: 04,2663           02663                           TC       +0                                    
006131,001324: 04,2664           02666                           TC       +2                                    #  NORMAL NOUN
006132,001325: 04,2665           03255                           TC       DSPALARM                              
006133,001326: 

Page 164

006135,001328: 04,2666           00006                           EXTEND                                         
006136,001329: 04,2667           50131                           INDEX    NOUNADD                               
006137,001330: 04,2670           30001                           DCA      0                                     
006138,001331: 04,2671           52141                           DXCH     MPAC                                  
006139,001332: 04,2672           34444                           CAF      R1D1                                  
006140,001333: 04,2673           54637                           TS       DSPCOUNT                              
006141,001334: 04,2674           37653                           CAF      ZERO                                  
006142,001335: 04,2675           54142                           TS       MPAC       +2                         
006143,001336: 04,2676           07226                           TC       TPAGREE                               
006144,001337: 04,2677           03133                           TC       DSP2DEC                               
006145,001338: 04,2700           00122        ENDDPDEC           TC       ENTEXIT                               
006146,001339: 

Page 165

006148,001341:                                                                                                  #           LOAD   VERBS
006149,001342: 
006150,001343: 
006151,001344: 
006152,001345: 05,2535                                           SETLOC   ENDRTOUT                              
006153,001346: 
006154,001347: 05,2535           47645        ABCLOAD            CS       TWO                                   
006155,001348: 05,2536           02376                           TC       COMPTEST                              
006156,001349: 05,2537           32673                           CAF      VBSP1LD                               
006157,001350: 05,2540           02314                           TC       UPDATVB    -1                         
006158,001351: 05,2541           02252                           TC       REQDATX                               
006159,001352: 05,2542           32674                           CAF      VBSP2LD                               
006160,001353: 05,2543           02314                           TC       UPDATVB    -1                         
006161,001354: 05,2544           02254                           TC       REQDATY                               
006162,001355: 05,2545           32675                           CAF      VBSP3LD                               
006163,001356: 05,2546           02314                           TC       UPDATVB    -1                         
006164,001357: 05,2547           02256                           TC       REQDATZ                               
006165,001358: 
006166,001359: 
006167,001360: 
006168,001361: 05,2550           46162        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
006169,001362: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
006170,001363: 05,2552           00006                           EXTEND                                         
006171,001364: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006172,001365: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
006173,001366: 05,2555           37653                           CAF      ZERO                                  #  X COMP
006174,001367: 05,2556           02762                           TC       PUTCOM                                
006175,001368: 05,2557           50131                           INDEX    NOUNADD                               
006176,001369: 05,2560           54000                           TS       0                                     
006177,001370: 05,2561           37646                           CAF      ONE                                   #  Y COMP
006178,001371: 05,2562           02762                           TC       PUTCOM                                
006179,001372: 05,2563           50131                           INDEX    NOUNADD                               
006180,001373: 05,2564           54001                           TS       1                                     
006181,001374: 05,2565           37645                           CAF      TWO                                   #  Z COMP
006182,001375: 05,2566           02762                           TC       PUTCOM                                
006183,001376: 05,2567           50131                           INDEX    NOUNADD                               
006184,001377: 05,2570           54002                           TS       2                                     
006185,001378: 05,2571           02663                           TC       LOADLV                                
006186,001379: 
006187,001380: 05,2572           47646        ABLOAD             CS       ONE                                   
006188,001381: 05,2573           02376                           TC       COMPTEST                              
006189,001382: 05,2574           32673                           CAF      VBSP1LD                               
006190,001383: 05,2575           02314                           TC       UPDATVB    -1                         
006191,001384: 05,2576           02252                           TC       REQDATX                               
006192,001385: 05,2577           32674                           CAF      VBSP2LD                               
006193,001386: 05,2600           02314                           TC       UPDATVB    -1                         
006194,001387: 05,2601           02254                           TC       REQDATY                               
006195,001388: 05,2602           47225        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
006196,001389: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
006197,001390: 05,2604           00006                           EXTEND                                         

Page 166

006199,001392: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006200,001393: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
006201,001394: 05,2607           37653                           CAF      ZERO                                  #  X COMP
006202,001395: 05,2610           02762                           TC       PUTCOM                                
006203,001396: 05,2611           50131                           INDEX    NOUNADD                               
006204,001397: 05,2612           54000                           TS       0                                     
006205,001398: 05,2613           37646                           CAF      ONE                                   #  Y COMP
006206,001399: 05,2614           02762                           TC       PUTCOM                                
006207,001400: 05,2615           50131                           INDEX    NOUNADD                               
006208,001401: 05,2616           54001                           TS       1                                     
006209,001402: 05,2617           02663                           TC       LOADLV                                
006210,001403: 
006211,001404: 05,2620           02252        ALOAD              TC       REQDATX                               
006212,001405: 05,2621           00006                           EXTEND                                         
006213,001406: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006214,001407: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
006215,001408: 05,2624           37653                           CAF      ZERO                                  #  X COMP
006216,001409: 05,2625           02762                           TC       PUTCOM                                
006217,001410: 05,2626           50131                           INDEX    NOUNADD                               
006218,001411: 05,2627           54000                           TS       0                                     
006219,001412: 05,2630           02663                           TC       LOADLV                                
006220,001413: 
006221,001414: 05,2631           47646        BLOAD              CS       ONE                                   
006222,001415: 05,2632           02376                           TC       COMPTEST                              
006223,001416: 05,2633           37630                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
006224,001417: 05,2634           54655                           TS       CLPASS                                
006225,001418: 05,2635           02254                           TC       REQDATY                               
006226,001419: 05,2636           00006                           EXTEND                                         
006227,001420: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006228,001421: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
006229,001422: 05,2641           37646                           CAF      ONE                                   
006230,001423: 05,2642           02762                           TC       PUTCOM                                
006231,001424: 05,2643           50131                           INDEX    NOUNADD                               
006232,001425: 05,2644           54001                           TS       1                                     
006233,001426: 05,2645           02663                           TC       LOADLV                                
006234,001427: 
006235,001428: 05,2646           47645        CLOAD              CS       TWO                                   
006236,001429: 05,2647           02376                           TC       COMPTEST                              
006237,001430: 05,2650           37630                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
006238,001431: 05,2651           54655                           TS       CLPASS                                
006239,001432: 05,2652           02256                           TC       REQDATZ                               
006240,001433: 05,2653           00006                           EXTEND                                         
006241,001434: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006242,001435: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
006243,001436: 05,2656           37645                           CAF      TWO                                   
006244,001437: 05,2657           02762                           TC       PUTCOM                                
006245,001438: 05,2660           50131                           INDEX    NOUNADD                               
006246,001439: 05,2661           54002                           TS       2                                     
006247,001440: 05,2662           02663                           TC       LOADLV                                
006248,001441: 

Page 167

006250,001443: 05,2663           37653        LOADLV             CAF      ZERO                                  
006251,001444: 05,2664           54640                           TS       DECBRNCH                              
006252,001445: 05,2665           47653                           CS       ZERO                                  
006253,001446: 05,2666           54654                           TS       LOADSTAT                              
006254,001447: 05,2667           44506                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
006255,001448: 05,2670           54637                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
006256,001449: 05,2671           04102                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
006257,001450: 05,2672           11400                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
006258,001451: 
006259,001452: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
006260,001453: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
006261,001454: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
006262,001455: 
006263,001456: 
006264,001457: 
006265,001458: 05,2676           54103        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
006266,001459: 05,2677           40640                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
006267,001460: 05,2700           54021                           TS       SR                                    
006268,001461: 05,2701           40021                           CS       SR                                    
006269,001462: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
006270,001463: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
006271,001464: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
006272,001465: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
006273,001466: 05,2706           60103                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
006274,001467: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
006275,001468: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
006276,001469: 05,2711           02324                           TC       GODSPALM                              
006277,001470: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
006278,001471: 
006279,001472: 
006280,001473: 
006281,001474: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
006282,001475: 05,2714           54100                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
006283,001476: 05,2715           34474                           CAF      MID5                                  
006284,001477: 05,2716           70133                           MASK     NNTYPTEM                              
006285,001478: 05,2717           04447                           TC       RIGHT5                                
006286,001479: 05,2720           00100                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
006287,001480: 
006288,001481: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
006289,001482: 05,2722           54100                           TS       EXITEM                                
006290,001483: 05,2723           50103                           INDEX    DECOUNT                               
006291,001484: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
006292,001485: 05,2725           54001                           TS       L                                     
006293,001486: 05,2726           50103                           INDEX    DECOUNT                               
006294,001487: 05,2727           34473                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
006295,001488: 05,2730           70137                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
006296,001489: 05,2731           50001                           INDEX    L                                     
006297,001490: 05,2732           00000                           TC       0                                     
006298,001491:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
006299,001492: 05,2733           00100        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
006300,001493: 

Page 168

006302,001495: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
006303,001496: 05,2735           54100                           TS       EXITEM                                
006304,001497: 05,2736           50124                           INDEX    MIXBR                                 
006305,001498: 05,2737           02737                           TC       +0                                    
006306,001499: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
006307,001500: 05,2741           50103                           INDEX    DECOUNT                               #  MIXED NOUN
006308,001501: 05,2742           32753                           CAF      DISPLACE                              
006309,001502: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
006310,001503: 05,2744           50103                           INDEX    DECOUNT                               
006311,001504: 05,2745           34473                           CAF      LOW5                                  
006312,001505: 05,2746           70133                           MASK     NNTYPTEM                              
006313,001506: 05,2747           50001                           INDEX    L                                     
006314,001507: 05,2750           00000                           TC       0                                     
006315,001508:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
006316,001509: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
006317,001510: 05,2752           00100                           TC       EXITEM                                
006318,001511: 
006319,001512: 05,2753           02712        DISPLACE           TC       GOQ                                   
006320,001513: 05,2754           04447                           TC       RIGHT5                                
006321,001514: 05,2755           04456                           TC       LEFT5                                 
006322,001515: 
006323,001516: 05,2756           34473        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
006324,001517: 05,2757           70133                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
006325,001518: 05,2760           60000                           DOUBLE                                         
006326,001519: 05,2761           00100                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
006327,001520: 
006328,001521: 
006329,001522: 
006330,001523: 05,2762           54103        PUTCOM             TS       DECOUNT                               
006331,001524: 05,2763           56002                           XCH      Q                                     
006332,001525: 05,2764           54101                           TS       DECRET                                
006333,001526: 05,2765           37653                           CAF      ZERO                                  
006334,001527: 05,2766           54105                           TS       OVFIND                                
006335,001528: 05,2767           50103                           INDEX    DECOUNT                               
006336,001529: 05,2770           56646                           XCH      XREGLP                                
006337,001530: 05,2771           54141                           TS       MPAC       +1                         
006338,001531: 05,2772           50103                           INDEX    DECOUNT                               
006339,001532: 05,2773           56643                           XCH      XREG                                  
006340,001533: 05,2774           54140                           TS       MPAC                                  
006341,001534: 05,2775           50124                           INDEX    MIXBR                                 
006342,001535: 05,2776           02776                           TC       +0                                    
006343,001536: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
006344,001537:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
006345,001538: 05,3000           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
006346,001539: 05,3001           30134                           CA       IDAD1TEM                              #          OF NOUN.
006347,001540: 05,3002           74503                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
006348,001541: 05,3003           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
006349,001542: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
006350,001543: 05,3005           60103                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
006351,001544: 05,3006           54131                           TS       NOUNADD                               
006352,001545: 

Page 169

006354,001547: 05,3007           10640                           CCS      DECBRNCH                              
006355,001548: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
006356,001549: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
006357,001550: 05,3012           02236                           TC       DPTEST                                
006358,001551: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
006359,001552:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
006360,001553:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
006361,001554:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
006362,001555: 05,3014           24131        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
006363,001556: 05,3015           30131                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
006364,001557: 05,3016           26103                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
006365,001558: 05,3017           37653                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
006366,001559: 05,3020           50103                           INDEX    DECOUNT                               
006367,001560: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
006368,001561: 05,3022           03040                           TC       PUTCOM2                               
006369,001562: 
006370,001563: 05,3023           04436        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
006371,001564: 05,3024           10640                           CCS      DECBRNCH                              
006372,001565: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
006373,001566: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
006374,001567: 05,3027           02236                           TC       DPTEST                                
006375,001568: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
006376,001569: 05,3031           37653                           CAF      ZERO                                  #  DP
006377,001570: 05,3032           54103                           TS       DECOUNT                               
006378,001571: 05,3033           03014                           TC       PUTDPCOM                              
006379,001572: 
006380,001573: 05,3034           30132                           CA       NNADTEM                               
006381,001574: 05,3035           67646                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
006382,001575: 05,3036           00006                           EXTEND                                         
006383,001576: 05,3037           13044                           BZF      CHANLOAD                              
006384,001577: 05,3040           56140        PUTCOM2            XCH      MPAC                                  
006385,001578: 05,3041           00101                           TC       DECRET                                
006386,001579: 
006387,001580: 05,3042     0637                                  EBANK=   DSPCOUNT                              
006388,001581: 05,3042           02045 14001  GTSFINLC           2CADR    GTSFIN                                
006389,001582: 
006390,001583: 
006391,001584: 05,3044           56140        CHANLOAD           XCH      MPAC                                  
006392,001585: 05,3045           00006                           EXTEND                                         
006393,001586: 05,3046           50657                           INDEX    NOUNCADR                              
006394,001587: 05,3047           01000                           WRITE    0                                     
006395,001588: 05,3050           02663                           TC       LOADLV                                
006396,001589: 
006397,001590: 
006398,001591: 
006399,001592:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
006400,001593: 
006401,001594: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
006402,001595: 05,3052           54107                           TS       SFTEMP1                               
006403,001596: 

Page 170

006405,001598: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
006406,001599: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
006407,001600: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
006408,001601: 05,3056           50124                           INDEX    MIXBR                                 
006409,001602: 05,3057           03057                           TC       +0                                    
006410,001603: 05,3060           03063                           TC       PUTSFNOR                              
006411,001604: 05,3061           02721                           TC       SFRUTMIX                              
006412,001605: 05,3062           03064                           TC       PUTDCSF2                              
006413,001606: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
006414,001607: 
006415,001608: 05,3064           50000        PUTDCSF2           INDEX    A                                     
006416,001609: 05,3065           33067                           CAF      SFINTABR                              
006417,001610: 05,3066           04105                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
006418,001611: 05,3067           11255        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
006419,001612: 05,3070           10761                           CADR     BINROUND                              
006420,001613: 05,3071           10701                           CADR     DEGINSF                               
006421,001614: 05,3072           10751                           CADR     ARTHINSF                              
006422,001615: 05,3073           11001                           CADR     DPINSF                                
006423,001616: 05,3074           11026                           CADR     DPINSF2                               
006424,001617: 05,3075           10764                           CADR     OPTDEGIN                              
006425,001618: 05,3076           11001                           CADR     DPINSF                                #  SAME AS ARITHDP1
006426,001619: 05,3077                        ENDRUTIN           EQUALS                                         
006427,001620: 
006428,001621: 
006429,001622: 
006430,001623:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
006431,001624:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
006432,001625: 
006433,001626: 
006434,001627: 
006435,001628: 04,2701                                           SETLOC   ENDDPDEC   +1                         
006436,001629: 
006437,001630:                                                                                                  #  DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
006438,001631: 
006439,001632: 04,2701           07062        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
006440,001633: 04,2702           02744                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
006441,001634: 04,2703           10141                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
006442,001635: 04,2704           37634                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
006443,001636: 04,2705           02707                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
006444,001637: 04,2706           47634                           CS       BIT11                                 
006445,001638: 04,2707           60141                           AD       MPAC       +1                         
006446,001639: 04,2710           03044                           TC       2ROUND     +2                         
006447,001640: 04,2711           04532                           TC       TPSL1                                 #  LEFT 1
006448,001641: 04,2712           04532        DEGINSF2           TC       TPSL1                                 #  LEFT 2
006449,001642: 04,2713           03053                           TC       TESTOFUF                              
006450,001643: 04,2714           04532                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
006451,001644: 04,2715           10140                           CCS      MPAC                                  
006452,001645: 04,2716           02722                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
006453,001646: 04,2717           02722                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
006454,001647: 04,2720           40000                           COM                                            #  IF - , USE -MAGNITUDE +1

Page 171

006456,001649: 04,2721           54140                           TS       MPAC                                  #  IF -0, USE +0
006457,001650: 04,2722           10105        SIGNFIX            CCS      OVFIND                                
006458,001651: 04,2723           02740                           TC       SGNTO1                                #  IF OVERFLOW
006459,001652: 04,2724           02734                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
006460,001653: 04,2725           10140                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
006461,001654: 04,2727                                           LOC      +1                                    
006462,001655: 04,2727           02736                           TC       NEG180                                
006463,001656: 04,2730           02731                           TC       +1                                    
006464,001657: 04,2731           56140                           XCH      MPAC                                  
006465,001658: 04,2732           77626                           MASK     POSMAX                                
006466,001659: 04,2733           54140                           TS       MPAC                                  
006467,001660: 04,2734           04102        ENDSCALE           TC       POSTJUMP                              
006468,001661: 04,2735           13040                           CADR     PUTCOM2                               
006469,001662: 
006470,001663: 04,2736           47626        NEG180             CS       POSMAX                                
006471,001664: 04,2737           02733                           TC       ENDSCALE   -1                         
006472,001665: 
006473,001666: 04,2740           40140        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
006474,001667: 04,2741           77626                           MASK     POSMAX                                
006475,001668: 04,2742           40000                           CS       A                                     
006476,001669: 04,2743           02733                           TC       ENDSCALE   -1                         
006477,001670: 
006478,001671: 04,2744           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
006479,001672: 
006480,001673: 04,2746           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
006481,001674: 
006482,001675: 04,2750           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
006483,001676: 
006484,001677: 04,2751           07062        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
006485,001678: 04,2752           00107                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
006486,001679: 04,2753           56142                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
006487,001680: 04,2754           56141                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
006488,001681: 04,2755           56140                           XCH      MPAC                                  
006489,001682: 04,2756           00006                           EXTEND                                         
006490,001683: 04,2757           12761                           BZF      BINROUND                              
006491,001684: 04,2760           03255                           TC       DSPALARM                              #  TOO LARGE A LOAD
006492,001685: 04,2761           03042        BINROUND           TC       2ROUND                                
006493,001686: 04,2762           03053                           TC       TESTOFUF                              
006494,001687: 04,2763           02734                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
006495,001688: 
006496,001689: 
006497,001690: 
006498,001691: 04,2764           10140        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
006499,001692: 04,2765           02771                           TC       +4                                    
006500,001693: 04,2766           02771                           TC       +3                                    
006501,001694: 04,2767           03255                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
006502,001695: 04,2770           03255                           TC       DSPALARM                              #          DITTO
006503,001696: 04,2771           32750        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
006504,001697: 04,2772           26140                           ADS      MPAC                                  #  SUBTRACT BIAS
006505,001698: 04,2773           07062                           TC       DMP                                   #  MULT BY 100 / 45  B-2

Page 172

006507,001700: 04,2774           02746                           ADRES    DEGCON2                               
006508,001701: 04,2775           37633                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
006509,001702: 04,2776           60141                           AD       MPAC       +1                         
006510,001703: 04,2777           03044                           TC       2ROUND     +2                         
006511,001704: 04,3000           02712                           TC       DEGINSF2                              
006512,001705: 
006513,001706: 04,3001           07062        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
006514,001707: 04,3002           00107                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
006515,001708: 04,3003           56142                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
006516,001709: 04,3004           60000                           DOUBLE                                         
006517,001710: 04,3005           54142                           TS       MPAC       +2                         
006518,001711: 04,3006           37653                           CAF      ZERO                                  
006519,001712: 04,3007           60141                           AD       MPAC       +1                         
006520,001713: 04,3010           03044                           TC       2ROUND     +2                         
006521,001714: 04,3011           03053                           TC       TESTOFUF                              
006522,001715: 04,3012           50124                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
006523,001716: 04,3013           03013                           TC       +0                                    
006524,001717: 04,3014           03024                           TC       DPINORM                               
006525,001718: 04,3015           30103                           CA       DECOUNT                               #  MIXEDNOUN
006526,001719: 04,3016           60131        DPINCOM            AD       NOUNADD                               #      MIXED                NORMAL
006527,001720: 04,3017           54002                           TS       Q                                     #    E SUBK             E
006528,001721: 04,3020           56141                           XCH      MPAC       +1                         
006529,001722: 04,3021           50002                           INDEX    Q                                     
006530,001723: 04,3022           54001                           TS       1                                     #  PLACE LOW PART IN
006531,001724: 04,3023           02734                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
006532,001725: 04,3024           37653        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
006533,001726: 04,3025           03016                           TC       DPINCOM                               
006534,001727: 
006535,001728: 
006536,001729: 
006537,001730: 04,3026           07062        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
006538,001731: 04,3027           00107                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
006539,001732: 04,3030           03032                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
006540,001733: 04,3031           03003                           TC       DPINSF     +2                         
006541,001734: 
006542,001735: 
006543,001736: 
006544,001737: 04,3032           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
006545,001738: 04,3033           54110                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
006546,001739: 04,3034           36162                           CAF      SIX                                   #  LEFT BY 7
006547,001740: 04,3035           54107        LEFT7COM           TS       SFTEMP1                               
006548,001741: 04,3036           04532                           TC       TPSL1                                 
006549,001742: 04,3037           10107                           CCS      SFTEMP1                               
006550,001743: 04,3040           03035                           TC       LEFT7COM                              
006551,001744: 04,3041           00110                           TC       SFTEMP2                               
006552,001745: 
006553,001746: 
006554,001747: 
006555,001748: 04,3042           56141        2ROUND             XCH      MPAC       +1                         
006556,001749: 04,3043           60000                           DOUBLE                                         

Page 173

006558,001751: 04,3044           54141                           TS       MPAC       +1                         
006559,001752: 04,3045           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
006560,001753: 04,3046           60140                           AD       MPAC                                  
006561,001754: 04,3047           54140                           TS       MPAC                                  
006562,001755: 04,3050           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
006563,001756: 04,3051           54105                           TS       OVFIND                                
006564,001757: 04,3052           00002        2RNDEND            TC       Q                                     
006565,001758: 
006566,001759: 
006567,001760: 
006568,001761: 04,3053           10105        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
006569,001762: 04,3054           03255                           TC       DSPALARM                              #  OF
006570,001763: 04,3055           00002                           TC       Q                                     
006571,001764: 04,3056           03255                           TC       DSPALARM                              #  UF
006572,001765: 

Page 174

006574,001767:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
006575,001768:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
006576,001769: 
006577,001770:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
006578,001771:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
006579,001772:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
006580,001773:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
006581,001774:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
006582,001775: 
006583,001776:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
006584,001777:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
006585,001778:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
006586,001779: 
006587,001780:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
006588,001781: 
006589,001782:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
006590,001783:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
006591,001784: 
006592,001785: 
006593,001786: 
006594,001787:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
006595,001788: 05,3077                                           SETLOC   ENDRUTIN                              
006596,001789: 
006597,001790: 05,3077           47630        MONITOR            CS       BIT15                                 
006598,001791: 05,3100           70657                           MASK     NOUNCADR                              
006599,001792: 05,3101           54141        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
006600,001793: 05,3102           33401                           CAF      LOW6                                  
006601,001794: 05,3103           70641                           MASK     VERBREG                               
006602,001795: 05,3104           04456                           TC       LEFT5                                 
006603,001796: 05,3105           54022                           TS       CYL                                   
006604,001797: 05,3106           56022                           XCH      CYL                                   
006605,001798: 05,3107           60642                           AD       NOUNREG                               
006606,001799: 05,3110           54140                           TS       MPAC                                  #  TEMP STORAGE
006607,001800: 05,3111           40677                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
006608,001801: 05,3112           67645                           AD       TWO                                   
006609,001802: 05,3113           10000                           CCS      A                                     
006610,001803: 05,3114           04633                           TC       RELDSP1                               #  GRABLOCK=0,1, +0 INTO DSPLOCK AND
006611,001804: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
006612,001805: 05,3117                                           LOC      +1                                    
006613,001806: 05,3117           37653                           CAF      ZERO                                  #  GRABLOCK=2, +0 INTO DSPLOCK AND
006614,001807: 05,3120           54652                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
006615,001808: 05,3121           00004                           INHINT                                         
006616,001809: 05,3122           10660                           CCS      MONSAVE                               
006617,001810: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
006618,001811: 05,3124           37646                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
006619,001812: 05,3125           04251                           TC       WAITLIST                              
006620,001813: 05,3126     0637                                  EBANK=   DSPCOUNT                              
006621,001814: 05,3126           03134 12001                     2CADR    MONREQ                                
006622,001815: 
006623,001816: 05,3130           52141                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE

Page 175

006625,001818: 05,3131           52661                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
006626,001819: 05,3132           00003                           RELINT                                         
006627,001820: 05,3133           00122                           TC       ENTRET                                
006628,001821: 
006629,001822: 
006630,001823: 
006631,001824: 05,3134           04526        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
006632,001825: 05,3135           10661                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
006633,001826: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
006634,001827: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
006635,001828: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
006636,001829: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
006637,001830: 05,3142           33157                           CAF      MONDEL                                
006638,001831: 05,3143           04251                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
006639,001832: 05,3144     0637                                  EBANK=   DSPCOUNT                              
006640,001833: 05,3144           03134 12001                     2CADR    MONREQ                                
006641,001834: 
006642,001835: 05,3146           34502                           CAF      CHRPRIO                               
006643,001836: 05,3147           04131                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
006644,001837: 05,3150     0637                                  EBANK=   DSPCOUNT                              
006645,001838: 05,3150           03160 12001                     2CADR    MONDO                                 
006646,001839: 
006647,001840: 05,3152           04321                           TC       TASKOVER                              
006648,001841: 
006649,001842: 05,3153           37653        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
006650,001843: 05,3154           54660                           TS       MONSAVE                               
006651,001844: 05,3155           54661                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
006652,001845: 05,3156           04321                           TC       TASKOVER                              
006653,001846: 
006654,001847: 
006655,001848: 
006656,001849: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
006657,001850: 
006658,001851: 
006659,001852: 
006660,001853: 05,3160           10661        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
006661,001854: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
006662,001855: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
006663,001856: 05,3163           04205                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
006664,001857: 05,3164           04205                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
006665,001858: 05,3165           10652                           CCS      DSPLOCK                               
006666,001859: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
006667,001860: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
006668,001861: 05,3170           70660                           MASK     MONSAVE                               
006669,001862: 05,3171           54107                           TS       NVTEMP                                
006670,001863: 05,3172           04372                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
006671,001864: 05,3173           04205                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
006672,001865: 05,3174           33210                           CAF      MONMASK                               
006673,001866: 05,3175           70660                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
006674,001867: 05,3176           04447                           TC       RIGHT5                                

Page 176

006676,001869: 05,3177           54020                           TS       CYR                                   
006677,001870: 05,3200           56020                           XCH      CYR                                   
006678,001871: 05,3201           54641                           TS       VERBREG                               
006679,001872: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
006680,001873: 05,3203           54122                           TS       ENTRET                                
006681,001874: 05,3204           47630                           CS       BIT15                                 
006682,001875: 05,3205           70661                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
006683,001876: 05,3206           54142                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
006684,001877: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
006685,001878: 
006686,001879:    4347                                           SETLOC   ENDT4FF                               
006687,001880: 
006688,001881:    4347           34355        PASTEVB            CAF      MIDSIX                                
006689,001882:    4350           70660                           MASK     MONSAVE                               
006690,001883:    4351           54107                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
006691,001884:    4352           04372                           TC       NVSUBMON                              #       DISPLAY IT.
006692,001885:    4353           04354                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
006693,001886:    4354           04205        ENDPASTE           TC       ENDOFJOB                              
006694,001887: 
006695,001888:    4355           07700        MIDSIX             OCT      07700                                 
006696,001889: 
006697,001890: 
006698,001891: 
006699,001892: 05,3210                                           SETLOC   ENDMONDO   +1                         
006700,001893: 05,3210           00700        MONMASK            OCT      700                                   
006701,001894: 05,3211           04347        MONBACK            ADRES    PASTEVB                               
006702,001895: 
006703,001896: 05,3212           04522        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
006704,001897: 05,3213           04205                           TC       ENDOFJOB                              
006705,001898: 
006706,001899: 
006707,001900: 
006708,001901:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
006709,001902:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
006710,001903:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
006711,001904: 
006712,001905: 05,3214           34444        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
006713,001906: 05,3215           54637                           TS       DSPCOUNT                              
006714,001907: 05,3216           30657                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
006715,001908: 05,3217           04116                           TC       DATACALL                              
006716,001909: 05,3220           03222                           TC       DSPOCTWD                              
006717,001910: 05,3221           04205                           TC       ENDOFJOB                              
006718,001911: 

Page 177

006720,001913:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1)TO A SIGN AND 5 CHAR DECIMAL
006721,001914:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
006722,001915: 
006723,001916: 04,3057                                           SETLOC   TESTOFUF   +4                         
006724,001917: 
006725,001918: 04,3057           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
006726,001919: 04,3060           54101                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
006727,001920: 04,3061           10140                           CCS      MPAC                                  
006728,001921: 04,3062           03071                           TC       +7                                    
006729,001922: 04,3063           03071                           TC       +6                                    
006730,001923: 04,3064           67646                           AD       ONE                                   
006731,001924: 04,3065           54140                           TS       MPAC                                  
006732,001925: 04,3066           02313                           TC       -ON                                   
006733,001926: 04,3067           40141                           CS       MPAC       +1                         
006734,001927: 04,3070           03073                           TC       +3                                    
006735,001928: 04,3071           02273                           TC       +ON                                   
006736,001929: 04,3072           56141                           XCH      MPAC       +1                         
006737,001930: 04,3073           63132                           AD       DECROUND                              
006738,001931: 04,3074           54141                           TS       MPAC       +1                         
006739,001932: 04,3075           37653                           CAF      ZERO                                  
006740,001933: 04,3076           60140                           AD       MPAC                                  
006741,001934: 04,3077           54140                           TS       MPAC                                  
006742,001935: 04,3100           03104                           TC       +4                                    
006743,001936: 04,3101           37626                           CAF      POSMAX                                
006744,001937: 04,3102           54140                           TS       MPAC                                  
006745,001938: 04,3103           54141                           TS       MPAC       +1                         
006746,001939: 04,3104           37644                           CAF      FOUR                                  
006747,001940: 04,3105           54123        DSPDCWD1           TS       WDCNT                                 
006748,001941: 04,3106           34511                           CAF      BINCON                                
006749,001942: 04,3107           07257                           TC       SHORTMP                               
006750,001943: 04,3110           50140        TRACE1             INDEX    MPAC                                  
006751,001944: 04,3111           34333                           CAF      RELTAB                                
006752,001945: 04,3112           74473                           MASK     LOW5                                  
006753,001946: 04,3113           54110                           TS       CODE                                  
006754,001947: 04,3114           37653                           CAF      ZERO                                  
006755,001948: 04,3115           56142                           XCH      MPAC       +2                         
006756,001949: 04,3116           56141                           XCH      MPAC       +1                         
006757,001950: 04,3117           54140                           TS       MPAC                                  
006758,001951: 04,3120           56637                           XCH      DSPCOUNT                              
006759,001952: 04,3121           54127        TRACE1S            TS       COUNT                                 
006760,001953: 04,3122           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
006761,001954: 04,3123           54637                           TS       DSPCOUNT                              
006762,001955: 04,3124           03157                           TC       DSPIN                                 
006763,001956: 04,3125           10123                           CCS      WDCNT                                 
006764,001957: 04,3126           03105                           TC       DSPDCWD1                              
006765,001958: 04,3127           44506                           CS       VD1                                   
006766,001959: 04,3130           54637                           TS       DSPCOUNT                              
006767,001960: 04,3131           00101                           TC       WDRET                                 
006768,001961: 
006769,001962: 04,3132           02476        DECROUND           OCT      02476                                 
006770,001963: 

Page 178

006772,001965:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
006773,001966:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
006774,001967: 
006775,001968: 04,3133           56002        DSP2DEC            XCH      Q                                     
006776,001969: 04,3134           54101                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSPDECWD
006777,001970: 04,3135           37653                           CAF      ZERO                                  
006778,001971: 04,3136           54110                           TS       CODE                                  
006779,001972: 04,3137           36165                           CAF      THREE                                 
006780,001973: 04,3140           03241                           TC       11DSPIN                               #  -R2 OFF
006781,001974: 04,3141           37644                           CAF      FOUR                                  
006782,001975: 04,3142           03241                           TC       11DSPIN                               #  +R2 OFF
006783,001976: 04,3143           10140                           CCS      MPAC                                  
006784,001977: 04,3144           03154                           TC       +8D                                   
006785,001978: 04,3145           03154                           TC       +7                                    
006786,001979: 04,3146           67646                           AD       ONE                                   
006787,001980: 04,3147           54140                           TS       MPAC                                  
006788,001981: 04,3150           02313                           TC       -ON                                   
006789,001982: 04,3151           40141                           CS       MPAC       +1                         
006790,001983: 04,3152           54141                           TS       MPAC       +1                         
006791,001984: 04,3153           03155                           TC       +2                                    
006792,001985: 04,3154           02273                           TC       +ON                                   
006793,001986: 04,3155           34445                           CAF      R2D1                                  
006794,001987: 04,3156           03105        END2DEC            TC       DSPDCWD1                              
006795,001988: 
006796,001989: 
006797,001990: 
006798,001991: 05,3222                                           SETLOC   DSPFMEM    +6                         
006799,001992:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
006800,001993:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
006801,001994: 
006802,001995: 05,3222           54022        DSPOCTWD           TS       CYL                                   
006803,001996: 05,3223           56002                           XCH      Q                                     
006804,001997: 05,3224           54101                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
006805,001998: 05,3225           37631                           CAF      BIT14                                 #  TO BLANK SIGNS
006806,001999: 05,3226           26637                           ADS      DSPCOUNT                              
006807,002000: 05,3227           37644                           CAF      FOUR                                  
006808,002001: 05,3230           54123        WDAGAIN            TS       WDCNT                                 
006809,002002: 05,3231           40022                           CS       CYL                                   
006810,002003: 05,3232           40022                           CS       CYL                                   
006811,002004: 05,3233           40022                           CS       CYL                                   
006812,002005: 05,3234           40000                           CS       A                                     
006813,002006: 05,3235           77652                           MASK     DSPMSK                                
006814,002007: 05,3236           50000                           INDEX    A                                     
006815,002008: 05,3237           34333                           CAF      RELTAB                                
006816,002009: 05,3240           74473                           MASK     LOW5                                  
006817,002010: 05,3241           54110                           TS       CODE                                  
006818,002011: 05,3242           56637                           XCH      DSPCOUNT                              
006819,002012: 05,3243           54127                           TS       COUNT                                 
006820,002013: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
006821,002014: 05,3245           54637                           TS       DSPCOUNT                              

Page 179

006823,002016: 05,3246           04102                           TC       POSTJUMP                              
006824,002017: 05,3247           11247                           CADR     DSPOCTIN                              
006825,002018: 05,3250           10123        OCTBACK            CCS      WDCNT                                 
006826,002019: 05,3251           03230                           TC       WDAGAIN                               #  +
006827,002020: 05,3252           44506        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
006828,002021: 05,3253           54637                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
006829,002022: 05,3254           00101                           TC       WDRET                                 
006830,002023: 
006831,002024: 05,3255     7652               DSPMSK             =        SEVEN                                 
006832,002025: 
006833,002026: 
006834,002027: 
006835,002028:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
006836,002029:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
006837,002030:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
006838,002031: 
006839,002032: 05,3255           54020        DSP2BIT            TS       CYR                                   
006840,002033: 05,3256           56002                           XCH      Q                                     
006841,002034: 05,3257           54101                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
006842,002035: 05,3260           37646                           CAF      ONE                                   
006843,002036: 05,3261           54123                           TS       WDCNT                                 
006844,002037: 05,3262           40020                           CS       CYR                                   
006845,002038: 05,3263           40020                           CS       CYR                                   
006846,002039: 05,3264           56020                           XCH      CYR                                   
006847,002040: 05,3265           54022                           TS       CYL                                   
006848,002041: 05,3266           03235                           TC       WDAGAIN    +5                         
006849,002042: 
006850,002043: 
006851,002044: 
006852,002045:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
006853,002046:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
006854,002047:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
006855,002048:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
006856,002049: 
006857,002050: 04,3157                                           SETLOC   END2DEC    +1                         
006858,002051: 
006859,002052: 04,3157           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE
006860,002053: 04,3160           54100                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
006861,002054: 04,3161           34473                           CAF      LOW5                                  
006862,002055: 04,3162           70127                           MASK     COUNT                                 
006863,002056: 04,3163           54021                           TS       SR                                    
006864,002057: 04,3164           56021                           XCH      SR                                    
006865,002058: 04,3165           54125                           TS       DSREL                                 
006866,002059: 04,3166           37646                           CAF      BIT1                                  
006867,002060: 04,3167           70127                           MASK     COUNT                                 
006868,002061: 04,3170           10000                           CCS      A                                     
006869,002062: 04,3171           03173                           TC       +2                                    #  LEFT IF COUNT IS ODD
006870,002063: 04,3172           03203                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
006871,002064: 04,3173           56110                           XCH      CODE                                  
006872,002065: 04,3174           04465                           TC       SLEFT5                                #  DOES NOT USE CYL

Page 180

006874,002067: 04,3175           54110                           TS       CODE                                  
006875,002068: 04,3176           37631                           CAF      BIT14                                 
006876,002069: 04,3177           70127                           MASK     COUNT                                 
006877,002070: 04,3200           10000                           CCS      A                                     
006878,002071: 04,3201           37645                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
006879,002072: 04,3202           67646                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
006880,002073: 04,3203           54127                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
006881,002074:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
006882,002075:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
006883,002076: 04,3204           00004        DSPIN1             INHINT                                         
006884,002077: 04,3205           50125                           INDEX    DSREL                                 
006885,002078: 04,3206           10662                           CCS      DSPTAB                                
006886,002079: 04,3207           03211                           TC       +2                                    #  IF +
006887,002080: 04,3211                                           LOC      +1                                    
006888,002081: 04,3211           67646                           AD       ONE                                   #  IF -
006889,002082: 04,3212           54126                           TS       DSMAG                                 
006890,002083: 04,3213           50127                           INDEX    COUNT                                 
006891,002084: 04,3214           73235                           MASK     DSMSK                                 
006892,002085: 04,3215           00006                           EXTEND                                         
006893,002086: 04,3216           60110                           SU       CODE                                  
006894,002087: 04,3217           00006                           EXTEND                                         
006895,002088: 04,3220           13233                           BZF      DSLV                                  #  SAME
006896,002089: 04,3221           50127        DFRNT              INDEX    COUNT                                 
006897,002090: 04,3222           43235                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
006898,002091: 04,3223           70126                           MASK     DSMAG                                 
006899,002092: 04,3224           60110                           AD       CODE                                  
006900,002093: 04,3225           40000                           CS       A                                     
006901,002094: 04,3226           50125                           INDEX    DSREL                                 
006902,002095: 04,3227           56662                           XCH      DSPTAB                                
006903,002096: 04,3230           00006                           EXTEND                                         
006904,002097: 04,3231           63233                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
006905,002098: 04,3232           24656                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
006906,002099: 04,3233           00003        DSLV               RELINT                                         
006907,002100: 04,3234           00100                           TC       DSEXIT                                
006908,002101: 
006909,002102: 04,3235           00037        DSMSK              OCT      37                                    
006910,002103: 04,3236           01740                           OCT      1740                                  
006911,002104: 04,3237           02000                           OCT      2000                                  
006912,002105: 04,3240           03740                           OCT      3740                                  
006913,002106: 
006914,002107: 
006915,002108: 
006916,002109:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
006917,002110:                                                                                                  #  BIT11 OF CODE.
006918,002111: 
006919,002112: 04,3241           54125        11DSPIN            TS       DSREL                                 
006920,002113: 04,3242           37645                           CAF      TWO                                   
006921,002114: 04,3243           54127                           TS       COUNT                                 
006922,002115: 04,3244           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
006923,002116: 04,3245           54100                           TS       DSEXIT                                

Page 181

006925,002118: 04,3246           03204                           TC       DSPIN1                                
006926,002119: 
006927,002120: 
006928,002121: 
006929,002122: 04,3247           03157        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
006930,002123: 04,3250           33252                           CAF      +2                                    
006931,002124: 04,3251           04105                           TC       BANKJUMP                              
006932,002125: 04,3252           13250        ENDSPOCT           CADR     OCTBACK                               
006933,002126: 
006934,002127: 
006935,002128: 
006936,002129:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
006937,002130:                                                                                                  #  ABORT WITH 01501.
006938,002131:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
006939,002132:                                                                                                  #  DO TC ENTRET.
006940,002133: 
006941,002134: 04,3253           34417        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
006942,002135: 04,3254           54122                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
006943,002136: 
006944,002137: 04,3255           04512        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
006945,002138: 04,3256           43265                           CS       NVSBENDL                              
006946,002139: 04,3257           60122                           AD       ENTEXIT                               
006947,002140: 04,3260           00006                           EXTEND                                         
006948,002141: 04,3261           13263                           BZF      +2                                    #  NVSUB INITIATED. ABORT
006949,002142: 04,3262           00122                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
006950,002143: 04,3263           04662                           TC       ABORT                                 
006951,002144: 04,3264           01501                           OCT      01501                                 
006952,002145: 04,3265           04376        NVSBENDL           TC       NVSUBEND                              
006953,002146: 
006954,002147: 
006955,002148: 
006956,002149:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
006957,002150:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
006958,002151:                                                                                                  #  M M LIGHTS.
006959,002152: 
006960,002153: 05,3267                                           SETLOC   DSP2BIT    +10D                       
006961,002154: 
006962,002155: 05,3267           03302        MMCHANG            TC       REQMM                                 
006963,002156: 05,3270           37653                           CAF      ZERO                                  
006964,002157: 05,3271           56642                           XCH      NOUNREG                               
006965,002158: 05,3272           54140                           TS       MPAC                                  
006966,002159: 05,3273           34507                           CAF      ND1                                   
006967,002160: 05,3274           54637                           TS       DSPCOUNT                              
006968,002161: 05,3275           04063                           TC       BANKCALL                              
006969,002162: 05,3276           10517                           CADR     2BLANK                                
006970,002163: 05,3277           30140                           CA       MPAC                                  
006971,002164: 05,3300           04102                           TC       POSTJUMP                              
006972,002165: 05,3301           11255                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
006973,002166: 

Page 182

006975,002168: 05,3302  04,3255               MODROUTB           =        DSPALARM                              #  **FIX LATER**
006976,002169: 05,3302           40002        REQMM              CS       Q                                     
006977,002170: 05,3303           54653                           TS       REQRET                                
006978,002171: 05,3304           34507                           CAF      ND1                                   
006979,002172: 05,3305           54637                           TS       DSPCOUNT                              
006980,002173: 05,3306           37653                           CAF      ZERO                                  
006981,002174: 05,3307           54642                           TS       NOUNREG                               
006982,002175: 05,3310           04063                           TC       BANKCALL                              
006983,002176: 05,3311           10517                           CADR     2BLANK                                
006984,002177: 05,3312           04543                           TC       FLASHON                               
006985,002178: 05,3313           00122                           TC       ENTEXIT                               
006986,002179: 
006987,002180: 
006988,002181: 
006989,002182:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
006990,002183:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
006991,002184:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
006992,002185:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
006993,002186:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
006994,002187:                                                                                                  #  COMPONENT 3  BBCON
006995,002188: 
006996,002189: 05,3314           37646        VBRQEXEC           CAF      BIT1                                  
006997,002190: 05,3315           70706                           MASK     DSPTEM1                               
006998,002191: 05,3316           10000                           CCS      A                                     
006999,002192: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
007000,002193: 05,3320           34476                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
007001,002194: 05,3321           54140        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
007002,002195: 05,3322           47646                           CS       BIT1                                  
007003,002196: 05,3323           70706                           MASK     DSPTEM1                               
007004,002197: 05,3324           54144                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
007005,002198: 05,3325           04610        REQUESTC           TC       RELDSP                                
007006,002199: 05,3326           34417                           CA       ENDINST                               
007007,002200: 05,3327           54143                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
007008,002201: 05,3330           00006                           EXTEND                                         
007009,002202: 05,3331           30710                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
007010,002203: 05,3332           52142                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
007011,002204: 05,3333           30144                           CA       MPAC       +4                         #  PRIO IN A
007012,002205: 05,3334           00004                           INHINT                                         
007013,002206: 05,3335           00140                           TC       MPAC                                  
007014,002207: 
007015,002208: 05,3336           34501        SETVAC             CAF      TCFINDVC                              
007016,002209: 05,3337           03321                           TC       REQEX1                                
007017,002210: 
007018,002211:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
007019,002212:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
007020,002213:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
007021,002214:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
007022,002215:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
007023,002216:                                                                                                  #  COMPONENT 3  BBCON
007024,002217: 

Page 183

007026,002219: 05,3340           34477        VBRQWAIT           CAF      TCWAIT                                
007027,002220: 05,3341           54140                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
007028,002221: 05,3342           30706                           CA       DSPTEM1                               #  TIME DELAY
007029,002222: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
007030,002223: 
007031,002224:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
007032,002225:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
007033,002226:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
007034,002227: 
007035,002228: 
007036,002229: 
007037,002230: 04,3266                                           SETLOC   NVSBENDL   +1                         
007038,002231: 04,3266           37646        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
007039,002232: 04,3267           54654                           TS       LOADSTAT                              
007040,002233: 04,3270           04610                           TC       RELDSP                                
007041,002234: 04,3271           04547                           TC       FLASHOFF                              
007042,002235: 04,3272           03400                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
007043,002236: 
007044,002237: 
007045,002238: 
007046,002239: 04,3273           04400        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
007047,002240: 04,3274           47646                           CS       ONE                                   
007048,002241: 04,3275           03267                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
007049,002242: 
007050,002243: 
007051,002244: 
007052,002245:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
007053,002246: 
007054,002247: 
007055,002248: 
007056,002249:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
007057,002250:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
007058,002251: 
007059,002252: 04,3276           47644        VBRELDSP           CS       BIT3                                  
007060,002253: 04,3277           00006                           EXTEND                                         
007061,002254: 04,3300           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
007062,002255: 04,3301           04610                           TC       RELDSP                                #  SEARCHES LIST
007063,002256: 04,3302           04205                           TC       ENDOFJOB                              
007064,002257: 
007065,002258: 
007066,002259: 
007067,002260:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
007068,002261: 
007069,002262: 04,3303           37225        BUMP               CAF      FIVE                                  #  R2D5
007070,002263: 04,3304           54637                           TS       DSPCOUNT                              
007071,002264: 04,3305           54127                           TS       COUNT                                 
007072,002265: 04,3306           37646                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
007073,002266: 04,3307           70127                           MASK     COUNT                                 
007074,002267: 04,3310           56127                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
007075,002268: 04,3311           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 184

007077,002270: 04,3312           56021                           XCH      SR                                    #  DSREL IN A
007078,002271: 04,3313           50000                           INDEX    A                                     
007079,002272: 04,3314           10662                           CCS      DSPTAB                                
007080,002273: 04,3315           03317                           TC       +2                                    
007081,002274: 04,3317                                           LOC      +1                                    
007082,002275: 04,3317           67646                           AD       ONE                                   #  DSMAG IN A
007083,002276: 04,3320           50127                           INDEX    COUNT                                 
007084,002277: 04,3321           73235                           MASK     DSMSK                                 
007085,002278: 04,3322           50127                           INDEX    COUNT                                 
007086,002279: 04,3323           03324                           TC       +1                                    
007087,002280: 04,3324           03326                           TC       +2                                    #  EVEN(RIGHT)  OK
007088,002281: 04,3325           04447                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
007089,002282: 04,3326           54110                           TS       CODE                                  
007090,002283: 04,3327           47225                           CS       FIVE                                  
007091,002284: 04,3330           60637                           AD       DSPCOUNT                              #  DSPCOUNT-5
007092,002285: 04,3331           10000                           CCS      A                                     #  TO PREVENT -0
007093,002286: 04,3332           67646                           AD       ONE                                   
007094,002287: 04,3333           03335                           TC       +2                                    
007095,002288: 04,3335                                           LOC      +1                                    
007096,002289: 04,3335           54127                           TS       COUNT                                 
007097,002290: 04,3336           03157                           TC       DSPIN                                 #  CODE ALREADY IN CODE
007098,002291: 04,3337           40637                           CS       DSPCOUNT                              
007099,002292: 04,3340           64444                           AD       R1D1                                  #  OCT 16
007100,002293: 04,3341           10000                           CCS      A                                     
007101,002294: 04,3342           56637                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
007102,002295: 04,3343           67646                           AD       ONE                                   #  INCREMENT DSPCOUNT
007103,002296: 04,3344           03304                           TC       BUMP       +1                         
007104,002297: 
007105,002298: 04,3345           37653        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
007106,002299: 04,3346           54637                           TS       DSPCOUNT                              
007107,002300: 04,3347           63376                           AD       SWTAB      +2                         #  OCT 3
007108,002301: 04,3350           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
007109,002302: 04,3351           10662                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
007110,002303: 04,3352           03354                           TC       +2                                    
007111,002304: 04,3354                                           LOC      +1                                    
007112,002305: 04,3354           67646                           AD       ONE                                   
007113,002306: 04,3355           77634                           MASK     BIT11                                 
007114,002307: 04,3356           54110                           TS       CODE                                  
007115,002308: 04,3357           50637                           INDEX    DSPCOUNT                              
007116,002309: 04,3360           33374                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
007117,002310: 04,3361           03241                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
007118,002311: 04,3362           40637                           CS       DSPCOUNT                              
007119,002312: 04,3363           63376                           AD       SWTAB      +2                         #  OCT 3
007120,002313: 04,3364           10000                           CCS      A                                     
007121,002314: 04,3365           56637                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
007122,002315: 04,3366           67646                           AD       ONE                                   #  INCREMENT DSPCOUNT
007123,002316: 04,3367           03346                           TC       SWSGN      +1                         
007124,002317: 04,3370           34444                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
007125,002318: 04,3371           54637                           TS       DSPCOUNT                              
007126,002319: 04,3372           02454                           TC       5BLANK                                #  BLANKS R1

Page 185

007128,002321: 04,3373           00122                           TC       ENTEXIT                               
007129,002322: 
007130,002323: 04,3374           00000        SWTAB              OCT      0                                     #  -R3
007131,002324: 04,3375           00001                           OCT      1                                     #  +R3
007132,002325: 04,3376           00003                           OCT      3                                     #  -R2
007133,002326: 04,3377           00004                           OCT      4                                     #  +R2
007134,002327: 

Page 186

007136,002329:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
007137,002330:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN
007138,002331:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
007139,002332: 
007140,002333:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
007141,002334:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
007142,002335: 
007143,002336:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
007144,002337:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
007145,002338:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
007146,002339:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
007147,002340:                                                                                                  #  FURTHER ACTION).
007148,002341: 
007149,002342:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
007150,002343:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
007151,002344:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
007152,002345:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
007153,002346: 
007154,002347:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
007155,002348:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
007156,002349:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
007157,002350:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
007158,002351:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
007159,002352:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
007160,002353:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
007161,002354:                                                                                                  #  MONITOR SET UP.
007162,002355: 
007163,002356:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
007164,002357: 
007165,002358:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
007166,002359:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
007167,002360: 
007168,002361:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
007169,002362:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
007170,002363: 
007171,002364:    4356                                           SETLOC   MIDSIX     +1                         
007172,002365:    4356           54107        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
007173,002366:    4357           10652                           CCS      DSPLOCK                               
007174,002367:    4360           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
007175,002368:    4361           30002                           CA       Q                                     #  DSP SYST AVAILABLE
007176,002369:    4362           67646                           AD       ONE                                   
007177,002370:    4363           54700                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
007178,002371:    4364           04400                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
007179,002372:    4365           34371        NVSUBCOM           CAF      NVSBBBNK                              
007180,002373: 
007181,002374:    4366           56006                           XCH      BBANK                                 
007182,002375:    4367           54701                           TS       NVBNKTEM                              
007183,002376:    4370           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
007184,002377:    4371     0637                                  EBANK=   DSPCOUNT                              
007185,002378:    4371           12001        NVSBBBNK           BBCON    NVSUB1                                
007186,002379: 

Page 187

007188,002381:    4372           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
007189,002382:    4373           67646                           AD       ONE                                   
007190,002383:    4374           54700                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
007191,002384:    4375           04365                           TC       NVSUBCOM                              
007192,002385: 
007193,002386: 
007194,002387: 
007195,002388:    4376           52701        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
007196,002389:    4377           52006                           DXCH     Z                                     #  DTCB
007197,002390: 
007198,002391: 05,3344                                           SETLOC   ENDRQWT    +1                         
007199,002392: 
007200,002393: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
007201,002394: 05,3345           54122                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
007202,002395: 05,3346           33401                           CAF      LOW6                                  
007203,002396: 05,3347           70107                           MASK     NVTEMP                                
007204,002397: 05,3350           54140                           TS       MPAC                                  #  TEMP STORAGE
007205,002398: 05,3351           33402                           CAF      MID6                                  
007206,002399: 05,3352           70107                           MASK     NVTEMP                                
007207,002400: 05,3353           04447                           TC       RIGHT5                                
007208,002401: 05,3354           54020                           TS       CYR                                   
007209,002402: 05,3355           56020                           XCH      CYR                                   
007210,002403: 05,3356           54141                           TS       MPAC       +1                         #  TEMP STORAGE
007211,002404: 05,3357           10140                           CCS      MPAC                                  #  TEST NOUN
007212,002405: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
007213,002406: 05,3361           56141                           XCH      MPAC       +1                         
007214,002407: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB, THEN RETURN
007215,002408: 05,3363           04376        ENTSET             TC       NVSUBEND                              
007216,002409: 05,3364           10141                           CCS      MPAC       +1                         #  TEST VERB
007217,002410: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
007218,002411: 05,3366           56140                           XCH      MPAC                                  
007219,002412: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
007220,002413: 05,3370           04376                           TC       NVSUBEND                              
007221,002414: 05,3371           56141                           XCH      MPAC       +1                         
007222,002415: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
007223,002416: 05,3373           56140                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
007224,002417: 05,3374           02274                           TC       UPDATNN    -1                         
007225,002418: 05,3375           37653                           CAF      ZERO                                  
007226,002419: 05,3376           54654                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
007227,002420: 05,3377           54655                           TS       CLPASS                                
007228,002421: 05,3400           02031                           TC       ENTPAS0                               
007229,002422: 
007230,002423:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
007231,002424:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
007232,002425: 
007233,002426: 
007234,002427: 
007235,002428: 05,3401           00077        LOW6               OCT      77                                    
007236,002429: 05,3402           07700        MID6               OCT      7700                                  
007237,002430: 

Page 188

007239,002432:    4400                                           SETLOC   NVSUBEND   +2                         
007240,002433:    4400           47630        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
007241,002434:    4401           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
007242,002435:    4402           70661                           MASK     MONSAVE1                              
007243,002436:    4403           67630                           AD       BIT15                                 
007244,002437:    4404           54661                           TS       MONSAVE1                              
007245,002438:    4405           00003                           RELINT                                         
007246,002439:    4406           00002                           TC       Q                                     
007247,002440: 
007248,002441: 
007249,002442: 
007250,002443:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
007251,002444:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
007252,002445:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
007253,002446:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
007254,002447: 
007255,002448: 
007256,002449: 
007257,002450:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
007258,002451:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
007259,002452:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
007260,002453:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
007261,002454:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
007262,002455:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
007263,002456:                                                                                                  #  L+1      FOR TERMINATE
007264,002457:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
007265,002458:                                                                                                  #  L+3      FOR DATA IN
007266,002459:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
007267,002460: 
007268,002461:    4407           37646        ENDIDLE            CAF      ONE                                   
007269,002462:    4410           54652                           TS       DSPLOCK                               
007270,002463:    4411           22004                           LXCH     FBANK                                 
007271,002464:    4412           56002                           XCH      Q                                     
007272,002465:    4413           52120                           DXCH     BUF2                                  
007273,002466:    4414           04112                           TC       MAKECADR                              
007274,002467:    4415           54676                           TS       CADRSTOR                              
007275,002468:    4416           04164                           TC       JOBSLEEP                              
007276,002469: 
007277,002470: 
007278,002471: 
007279,002472:    4417           04205        ENDINST            TC       ENDOFJOB                              
007280,002473: 
007281,002474:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
007282,002475:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
007283,002476:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
007284,002477:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
007285,002478:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
007286,002479:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
007287,002480: 
007288,002481:    4420           10654        DATAWAIT           CCS      LOADSTAT                              

Page 189

007290,002483:    4421           14426                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
007291,002484:    4422           14407                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
007292,002485:    4423           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
007293,002486:    4424           50002                           INDEX    Q                                     #  DATA IN. RETURN TO L+3.
007294,002487:    4425           00002                           TC       2                                     
007295,002488:    4426           50002        DATWAIT1           INDEX    Q                                     #  RETURN TO L+2.
007296,002489:    4427           00001                           TC       1                                     
007297,002490: 
007298,002491:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
007299,002492:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
007300,002493: 
007301,002494: 
007302,002495: 
007303,002496: 05,3403                                           SETLOC   MID6       +1                         
007304,002497:                                                                                                  #  DSPMM PLACE MAJOR MODE CODE INTO MODREG
007305,002498: 
007306,002499: 05,3403           34510        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
007307,002500: 05,3404           56637                           XCH      DSPCOUNT                              
007308,002501: 05,3405           54124                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
007309,002502: 05,3406           30651                           CA       MODREG                                
007310,002503: 05,3407           22002                           LXCH     Q                                     
007311,002504: 05,3410           03255                           TC       DSP2BIT                               
007312,002505: 05,3411           56124                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
007313,002506: 05,3412           54637                           TS       DSPCOUNT                              
007314,002507: 05,3413           00001        DSPMMEND           TC       L                                     
007315,002508: 
007316,002509: 
007317,002510: 
007318,002511:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
007319,002512:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
007320,002513:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
007321,002514: 
007322,002515:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
007323,002516:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
007324,002517: 
007325,002518: 04,3400                                           SETLOC   SWTAB      +4                         
007326,002519: 
007327,002520: 04,3400           10676        RECALTST           CCS      CADRSTOR                              
007328,002521: 04,3401           03406                           TC       RECAL1                                
007329,002522: 04,3402           04205                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
007330,002523: 04,3403           03406                           TC       RECAL1                                
007331,002524: 04,3404           54676                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
007332,002525: 04,3405           03424                           TC       RECAL3                                #  +0 INTO CADRSTOR. RELEASE DISPLAY,
007333,002526:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT.
007334,002527: 04,3406           37653        RECAL1             CAF      ZERO                                  
007335,002528: 04,3407           56676                           XCH      CADRSTOR                              
007336,002529: 04,3410           00004                           INHINT                                         
007337,002530: 04,3411           04170                           TC       JOBWAKE                               
007338,002531: 04,3412           10654                           CCS      LOADSTAT                              
007339,002532: 04,3413           03430                           TC       DOPROC                                #  + PROCEED WITHOUT DATA

Page 190

007341,002534: 04,3414           04205                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
007342,002535: 04,3415           03426                           TC       DOTERM                                #  -   TERMINATE
007343,002536: 04,3416           37645                           CAF      TWO                                   
007344,002537: 04,3417           50635        RECAL2             INDEX    LOCCTR                                
007345,002538: 04,3420           60150                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
007346,002539: 04,3421           50635                           INDEX    LOCCTR                                
007347,002540: 04,3422           54150                           TS       LOC                                   
007348,002541: 04,3423           00003                           RELINT                                         
007349,002542: 04,3424           04633        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
007350,002543: 04,3425           04205                           TC       ENDOFJOB                              
007351,002544: 
007352,002545: 04,3426           37653        DOTERM             CAF      ZERO                                  
007353,002546: 04,3427           03417                           TC       RECAL2                                
007354,002547: 
007355,002548: 04,3430           37646        DOPROC             CAF      ONE                                   
007356,002549: 04,3431           03417                           TC       RECAL2                                
007357,002550: 

Page 191

007359,002552:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
007360,002553: 
007361,002554: 
007362,002555: 
007363,002556:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
007364,002557: 
007365,002558:                                                                                                  #  00000                           1 COMPONENT
007366,002559:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
007367,002560:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
007368,002561: 
007369,002562: 
007370,002563: 
007371,002564:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
007372,002565: 
007373,002566:                                                                                                  #  00000    OCTAL ONLY
007374,002567:                                                                                                  #  00001    STRAIGHT FRACTIONAL
007375,002568:                                                                                                  #  00010    DEGREES (XXX.XX)
007376,002569:                                                                                                  #  00011    ARITHMETIC SF
007377,002570:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)      IN(STRAIGHT)
007378,002571:                                                                                                  #  00101    ARITH DP2   OUT(STRAIGHT)                 IN(SL 7 AT END)
007379,002572:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
007380,002573:                                                                                                  #  00111    ARITH DP3   OUT ( SL 7 AT END)       IN ( STRAIGHT)
007381,002574:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
007382,002575: 
007383,002576: 
007384,002577: 
007385,002578:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
007386,002579: 
007387,002580:                                                                                                  #  00000                           WHOLE
007388,002581:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
007389,002582:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
007390,002583:                                                                                                  #  00010                           DEGREES
007391,002584:                                                                                                  #  00010                           OPTICS DEGREES
007392,002585:                                                                                                  #  00011                           GYRO DEGREES(XX.XXX) USE ARITH DP1
007393,002586:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
007394,002587:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
007395,002588:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
007396,002589:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
007397,002590:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
007398,002591:                                                                                                  #                                      XXXXX. PARTS/MILLION
007399,002592:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
007400,002593:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
007401,002594:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
007402,002595:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
007403,002596:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
007404,002597: 
007405,002598: 
007406,002599: 
007407,002600:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
007408,002601:                                                                                                  #  NOUN TABLES.

Page 192

007410,002603:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
007411,002604:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
007412,002605:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
007413,002606: 

Page 193

007415,002608:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
007416,002609:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
007417,002610:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
007418,002611: 
007419,002612: 
007420,002613: 
007421,002614:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
007422,002615:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
007423,002616:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
007424,002617:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
007425,002618:                                                                                                  #  MIXED OR NORMAL NOUN.
007426,002619: 
007427,002620: 06,2000                                           SETLOC   24000                                 
007428,002621: 
007429,002622: 06,2000           52136        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
007430,002623: 06,2001           50642                           INDEX    NOUNREG                               
007431,002624: 06,2002           32052                           CAF      NNADTAB                               
007432,002625: 06,2003           54132                           TS       NNADTEM                               
007433,002626: 06,2004           50642                           INDEX    NOUNREG                               
007434,002627: 06,2005           32152                           CAF      NNTYPTAB                              
007435,002628: 06,2006           54133                           TS       NNTYPTEM                              
007436,002629: 06,2007           40642                           CS       NOUNREG                               
007437,002630: 06,2010           62036                           AD       MIXCON                                
007438,002631: 06,2011           00006                           EXTEND                                         
007439,002632: 06,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
007440,002633: 06,2013           37646                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
007441,002634: 06,2014           54124                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
007442,002635: 06,2015           02034                           TC       LODNLV                                
007443,002636: 06,2016           37645        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
007444,002637: 06,2017           54124                           TS       MIXBR                                 
007445,002638: 06,2020           50642                           INDEX    NOUNREG                               
007446,002639: 06,2021           32345                           CAF      RUTMXTAB   -55                        
007447,002640: 06,2022           54137                           TS       RUTMXTEM                              
007448,002641: 06,2023           36425                           CAF      LOW10                                 
007449,002642: 06,2024           70132                           MASK     NNADTEM                               
007450,002643: 06,2025           54002                           TS       Q                                     #  TEMP
007451,002644: 06,2026           50000                           INDEX    A                                     
007452,002645: 06,2027           32332                           CAF      IDADDTAB                              
007453,002646: 06,2030           54134                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
007454,002647: 06,2031           00006                           EXTEND                                         
007455,002648: 06,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
007456,002649: 06,2033           32334                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
007457,002650: 06,2034           52136        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
007458,002651: 06,2035           52006                           DXCH     Z                                     
007459,002652: 
007460,002653: 06,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
007461,002654: 
007462,002655: 
007463,002656: 
007464,002657:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
007465,002658: 

Page 194

007467,002660: 06,2037           52110        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
007468,002661: 06,2040           00006                           EXTEND                                         
007469,002662: 06,2041           50000                           INDEX    A                                     
007470,002663: 06,2042           32303                           DCA      SFOUTAB                               
007471,002664: 06,2043           52110        SFCOM              DXCH     SFTEMP1                               
007472,002665: 06,2044           52006                           DXCH     Z                                     
007473,002666: 
007474,002667: 
007475,002668: 
007476,002669:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
007477,002670: 
007478,002671: 06,2045           52110        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
007479,002672: 06,2046           00006                           EXTEND                                         
007480,002673: 06,2047           50000                           INDEX    A                                     
007481,002674: 06,2050           32253                           DCA      SFINTAB                               
007482,002675: 06,2051           12043                           TCF      SFCOM                                 
007483,002676: 
007484,002677: 
007485,002678:                                                                                                  #  NN  NORMAL NOUNS
007486,002679: 06,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
007487,002680: 06,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
007488,002681: 06,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
007489,002682: 06,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
007490,002683: 06,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
007491,002684: 06,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
007492,002685: 06,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
007493,002686: 06,2061           40000                           OCT      40000                                 #  07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
007494,002687: 06,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
007495,002688: 06,2063           00000                           OCT      00000                                 #  11 SPARE
007496,002689: 06,2064           00000                           OCT      00000                                 #  12 SPARE
007497,002690: 06,2065           00000                           OCT      00000                                 #  13 SPARE
007498,002691: 06,2066           00000                           OCT      00000                                 #  14 SPARE
007499,002692: 06,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
007500,002693: 06,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
007501,002694: 06,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
007502,002695: 06,2072           00032                           ECADR    CDUX                                  #  20 ICDU
007503,002696: 06,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
007504,002697: 06,2074           00716                           ECADR    THETAD                                #  22 NEW ANGLES I
007505,002698: 06,2075           00711                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
007506,002699: 06,2076           00706                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
007507,002700: 06,2077           00706                           ECADR    DSPTEM1                               #  25 CHECKLIST
007508,002701: 06,2100           00706                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
007509,002702: 06,2101           01050                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
007510,002703: 06,2102           00706                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
007511,002704: 06,2103           00721                           ECADR    FAILREG                               #  31 FAILREG
007512,002705: 06,2104           00722                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
007513,002706: 06,2105           00724                           ECADR    TET                                   #  33 EPHEMERIS TIME (MIDCOURSE)
007514,002707: 06,2106           00726                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
007515,002708: 06,2107           00730                           ECADR    ROLL                                  #  35 ROLL, PITCH, YAW

Page 195

007517,002710: 06,2110           00733                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
007518,002711: 06,2111           00736                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
007519,002712: 06,2112           00000                           OCT      00000                                 #  40 SPARE
007520,002713: 06,2113           00000                           OCT      00000                                 #  41 SPARE
007521,002714: 06,2114           00000                           OCT      00000                                 #  42 SPARE
007522,002715: 06,2115           00000                           OCT      00000                                 #  43 SPARE
007523,002716: 06,2116           00000                           OCT      00000                                 #  44 SPARE
007524,002717: 06,2117           00000                           OCT      00000                                 #  45 SPARE
007525,002718: 06,2120           00000                           OCT      00000                                 #  46 SPARE
007526,002719: 06,2121           00000                           OCT      00000                                 #  47 SPARE
007527,002720: 06,2122           00000                           OCT      00000                                 #  50 SPARE
007528,002721: 06,2123           00000                           OCT      00000                                 #  51 SPARE
007529,002722: 06,2124           00741                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
007530,002723: 06,2125           00744                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
007531,002724: 06,2126           00747                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
007532,002725: 
007533,002726:                                                                                                  #  NN  MIXED NOUNS
007534,002727: 06,2127           02000                           OCT      02000                                 #  55 OCDU
007535,002728: 06,2130           04002                           OCT      04002                                 #  56 UNCALLED MARK DATA (OCDU & TIME(SEC))
007536,002729: 06,2131           02005                           OCT      02005                                 #  57 NEW ANGLES OCDU
007537,002730: 06,2132           04007                           OCT      04007                                 #  60 IMU MODE STATUS
007538,002731: 06,2133           02012                           OCT      02012                                 #  61 TARGET AZIMUTH AND ELEVATION
007539,002732: 06,2134           02014                           OCT      02014                                 #  62 ICDUZ AND TIME(SEC)
007540,002733: 06,2135           02016                           OCT      02016                                 #  63 OCDUX AND TIME(SEC)
007541,002734: 06,2136           02020                           OCT      02020                                 #  64 OCDUY AND TIME(SEC)
007542,002735: 06,2137           02022                           OCT      02022                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
007543,002736:                                                                                                  #       (FETCHED IN INTERRUPT)
007544,002737: 06,2140           04024                           OCT      04024                                 #  66 SYSTEM TEST RESULTS
007545,002738: 06,2141           04027                           OCT      04027                                 #  67 DELTA GYRO ANGLES
007546,002739: 06,2142           04032                           OCT      04032                                 #  70 PIPA BIAS
007547,002740: 06,2143           04035                           OCT      04035                                 #  71 PIPA SCALE FACTOR ERROR
007548,002741: 06,2144           04040                           OCT      04040                                 #  72 DELTA POSITION
007549,002742: 06,2145           04043                           OCT      04043                                 #  73 DELTA VELOCITY
007550,002743: 06,2146           04046                           OCT      04046                                 #  74 MEASUREMENT DATA (MIDCOURSE)
007551,002744: 06,2147           04051                           OCT      04051                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
007552,002745: 06,2150           04054                           OCT      04054                                 #  76 POSITION VECTOR
007553,002746: 06,2151           04057                           OCT      04057                                 #  77 VELOCITY VECTOR
007554,002747: 
007555,002748: 
007556,002749: 
007557,002750:                                                                                                  #  NN        NORMAL NOUNS
007558,002751: 06,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
007559,002752: 06,2153           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
007560,002753: 06,2154           00140                           OCT      00140                                 #  02 1COMP  WHOLE
007561,002754: 06,2155           00102                           OCT      00102                                 #  03 1COMP  DEGREES
007562,002755: 06,2156           00241                           OCT      00241                                 #  04 1COMP  HOURS
007563,002756: 06,2157           00200                           OCT      00200                                 #  05 1COMP  SECONDS
007564,002757: 06,2160           00203                           OCT      00203                                 #  06 1COMP  GYRO DEGREES
007565,002758: 06,2161           00302                           OCT      00302                                 #  07 1COMP  Y OPT DEGREES
007566,002759: 06,2162           00000                           OCT      00000                                 #  10 1COMP  OCTAL ONLY

Page 196

007568,002761: 06,2163           00000                           OCT      00000                                 #  11        SPARE
007569,002762: 06,2164           00000                           OCT      00000                                 #  12        SPARE
007570,002763: 06,2165           00000                           OCT      00000                                 #  13        SPARE
007571,002764: 06,2166           00000                           OCT      00000                                 #  14        SPARE
007572,002765: 06,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
007573,002766: 06,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
007574,002767: 06,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
007575,002768: 06,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
007576,002769: 06,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
007577,002770: 06,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
007578,002771: 06,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
007579,002772: 06,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
007580,002773: 06,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
007581,002774: 06,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
007582,002775: 06,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
007583,002776: 06,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
007584,002777: 06,2203           02000                           OCT      02000                                 #  31 3COMP  OCTAL ONLY
007585,002778: 06,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
007586,002779: 06,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
007587,002780: 06,2206           00350                           OCT      00350                                 #  34 1COMP  POSITION
007588,002781: 06,2207           04102                           OCT      04102                                 #  35 3COMP  DEGREES
007589,002782: 06,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
007590,002783: 06,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
007591,002784: 06,2212           00000                           OCT      00000                                 #  40        SPARE
007592,002785: 06,2213           00000                           OCT      00000                                 #  41        SPARE
007593,002786: 06,2214           00000                           OCT      00000                                 #  42        SPARE
007594,002787: 06,2215           00000                           OCT      00000                                 #  43        SPARE
007595,002788: 06,2216           00000                           OCT      00000                                 #  44        SPARE
007596,002789: 06,2217           00000                           OCT      00000                                 #  45        SPARE
007597,002790: 06,2220           00000                           OCT      00000                                 #  46        SPARE
007598,002791: 06,2221           00000                           OCT      00000                                 #  47        SPARE
007599,002792: 06,2222           00000                           OCT      00000                                 #  50        SPARE
007600,002793: 06,2223           00000                           OCT      00000                                 #  51        SPARE
007601,002794: 06,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
007602,002795: 06,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
007603,002796: 06,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
007604,002797: 
007605,002798:                                                                                                  #  NN        MIXED NOUNS
007606,002799: 06,2227           00102                           OCT      00102                                 #  55 2COMP  DEGREES, Y OPT DEGREES
007607,002800: 06,2230           00102                           OCT      00102                                 #  56 3COMP  DEGREES, Y OPT DEGREES, SECS
007608,002801: 06,2231           00102                           OCT      00102                                 #  57 2COMP  DEGREES, Y OPT DEGREES
007609,002802: 06,2232           00000                           OCT      00000                                 #  60 3COMP  OCTAL ONLY
007610,002803: 06,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
007611,002804: 06,2234           00002                           OCT      00002                                 #  62 2COMP  DEGREES, SECS
007612,002805: 06,2235           00002                           OCT      00002                                 #  63 2COMP  DEGREES, SECS
007613,002806: 06,2236           00002                           OCT      00002                                 #  64 2COMP  Y OPT DEGREES, SECS
007614,002807: 06,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
007615,002808: 06,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
007616,002809: 06,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
007617,002810: 06,2242           14306                           OCT      14306                                 #  70 3COMP  PIPA BIAS FOR EACH

Page 197

007619,002812: 06,2243           16347                           OCT      16347                                 #  71 3COMP  PIPA SCALE FACTOR ERR.FOR EACH
007620,002813: 06,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
007621,002814: 06,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
007622,002815: 06,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
007623,002816: 06,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
007624,002817: 06,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
007625,002818: 06,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
007626,002819: 
007627,002820: 
007628,002821: 
007629,002822: 06,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
007630,002823: 06,2253           03240                           OCT      03240                                 
007631,002824: 06,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
007632,002825: 06,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
007633,002826: 06,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF)
007634,002827: 06,2257           00000                           OCT      0                                     
007635,002828: 06,2260           00021                           OCT      00021                                 #  GYRO DEGREES
007636,002829: 06,2261           30707                           OCT      30707                                 
007637,002830: 06,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
007638,002831: 06,2263           02133                           OCT      02133                                 
007639,002832: 06,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
007640,002833: 06,2265           30322                           OCT      30322                                 
007641,002834: 06,2266           00004                           OCT      00004                                 #  PIPA BIAS
007642,002835: 06,2267           14021                           OCT      14021                                 
007643,002836: 06,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
007644,002837: 06,2271           31463                           OCT      31463                                 
007645,002838: 06,2272           23420                           OCT      23420                                 #  POSITION
007646,002839: 06,2273           00000                           OCT      00000                                 
007647,002840: 06,2274           00201                           OCT      00201                                 #  VELOCITY
007648,002841: 06,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
007649,002842: 06,2276           01371                           OCT      01371                                 #  TIME WEEKS
007650,002843: 06,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
007651,002844: 06,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
007652,002845: 06,2301           03434                           OCT      03434                                 
007653,002846:                                                                                                  #  END OF SFINTAB
007654,002847: 
007655,002848: 
007656,002849: 
007657,002850: 06,2302           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
007658,002851: 06,2303           13261                           OCT      13261                                 
007659,002852: 06,2304           27670                           OCT      27670                                 #  TIME HOURS
007660,002853: 06,2305           31357                           OCT      31357                                 
007661,002854: 06,2306           00000                           OCT      0                                     #  DEGREES
007662,002855: 06,2307           00000                           OCT      0                                     
007663,002856: 06,2310           01631                           OCT      01631                                 #  GYRO DEGREES
007664,002857: 06,2311           23146                           OCT      23146                                 
007665,002858: 06,2312           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
007666,002859: 06,2313           32323                           OCT      32323                                 
007667,002860: 06,2314           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
007668,002861: 06,2315           06400                           OCT      06400                                 

Page 198

007670,002863: 06,2316           07237                           OCT      07237                                 #  PIPA BIAS
007671,002864: 06,2317           37776                           OCT      37776                                 
007672,002865: 06,2320           00120                           OCT      00120                                 #  PIPA SCALE ERROR
007673,002866: 06,2321           00000                           OCT      00000                                 
007674,002867: 06,2322           00321                           OCT      00321                                 #  POSITION
007675,002868: 06,2323           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
007676,002869: 06,2324           37441                           OCT      37441                                 #  VELOCITY
007677,002870: 06,2325           14247                           OCT      14247                                 
007678,002871: 06,2326           05300                           OCT      05300                                 #  TIME WEEKS
007679,002872: 06,2327           20305                           OCT      20305                                 
007680,002873: 06,2330           34631                           OCT      34631                                 #  ELEVATION DEGREES
007681,002874: 06,2331           23146                           OCT      23146                                 
007682,002875:                                                                                                  #  END OF SFOUTAB
007683,002876: 
007684,002877: 
007685,002878: 
007686,002879:                                                                                                  #  MIXNOUN  SF ROUT
007687,002880: 06,2332           00036        IDADDTAB           ECADR    OPTX                                  #  01       DEGREES
007688,002881: 06,2333           00035                           ECADR    OPTY                                  #  01       Y OPT DEGREES
007689,002882: 06,2334           00706                           ECADR    DSPTEM1                               #  02       DEGREES
007690,002883: 06,2335           00707                           ECADR    DSPTEM1    +1                         #  02       Y OPT DEGREES
007691,002884: 06,2336           00710                           ECADR    DSPTEM1    +2                         #  02       SEC
007692,002885: 06,2337           00752                           ECADR    DESOPTX                               #  03       DEGREES
007693,002886: 06,2340           00753                           ECADR    DESOPTX    +1                         #  03       Y OPT DEGREES
007694,002887: 06,2341           01017                           ECADR    WASKSET                               #  04       OCTAL ONLY****CHANGE TO IN3****
007695,002888: 06,2342           01017                           ECADR    WASKSET                               #  04       OCTAL ONLY
007696,002889: 06,2343           01021                           ECADR    OLDERR                                #  04       OCTAL ONLY
007697,002890: 06,2344           00706                           ECADR    DSPTEM1                               #  05       DEGREES
007698,002891: 06,2345           00707                           ECADR    DSPTEM1    +1                         #  05       ELEVATION DEGREES
007699,002892: 06,2346           00034                           ECADR    CDUZ                                  #  06       DEGREES
007700,002893: 06,2347           00024                           ECADR    TIME2                                 #  06       SEC
007701,002894: 06,2350           00036                           ECADR    OPTX                                  #  07       DEGREES
007702,002895: 06,2351           00024                           ECADR    TIME2                                 #  07       SEC
007703,002896: 06,2352           00035                           ECADR    OPTY                                  #  10       Y OPT DEGREES
007704,002897: 06,2353           00024                           ECADR    TIME2                                 #  10       SEC
007705,002898: 06,2354           00754                           ECADR    SAMPTIME                              #  11       HOURS
007706,002899: 06,2355           00754                           ECADR    SAMPTIME                              #  11       SECONDS
007707,002900: 06,2356           00711                           ECADR    DSPTEM2                               #  12       WHOLE
007708,002901: 06,2357           00712                           ECADR    DSPTEM2    +1                         #  12       FRACTIONAL
007709,002902: 06,2360           00713                           ECADR    DSPTEM2    +2                         #  12       WHOLE
007710,002903: 06,2361           00756                           ECADR    DELVX                                 #  13       GYRO DEGREES
007711,002904: 06,2362           00760                           ECADR    DELVX      +2                         #  13       GYRO DEGREES
007712,002905: 06,2363           00762                           ECADR    DELVX      +4                         #  13       GYRO DEGREES
007713,002906: 06,2364           00764                           ECADR    PBIASX                                #  14       PIPA BIAS
007714,002907: 06,2365           00766                           ECADR    PBIASY                                #  14       PIPA BIAS
007715,002908: 06,2366           00770                           ECADR    PBIASZ                                #  14       PIPA BIAS
007716,002909: 06,2367           00765                           ECADR    PIPASCFX                              #  15       PIPA SCALE FACTOR ERROR
007717,002910: 06,2370           00767                           ECADR    PIPASCFY                              #  15       PIPA SCALE FACTOR ERROR
007718,002911: 06,2371           00771                           ECADR    PIPASCFZ                              #  15       PIPA SCALE FACTOR ERROR
007719,002912: 06,2372           01000                           ECADR    DELR                                  #  16       POSITION

Page 199

007721,002914: 06,2373           01002                           ECADR    DELR       +2                         #  16       POSITION
007722,002915: 06,2374           01004                           ECADR    DELR       +4                         #  16       POSITION
007723,002916: 06,2375           01006                           ECADR    DELVEL                                #  17       VELOCITY
007724,002917: 06,2376           01010                           ECADR    DELVEL     +2                         #  17       VELOCITY
007725,002918: 06,2377           01012                           ECADR    DELVEL     +4                         #  17       VELOCITY
007726,002919: 06,2400           00722                           ECADR    TDEC                                  #  20       TIME WEEKS
007727,002920: 06,2401           00726                           ECADR    MEASQ                                 #  20       POSITION
007728,002921: 06,2402           01014                           ECADR    MEASMODE                              #  20       WHOLE
007729,002922: 06,2403           00706                           ECADR    DSPTEM1                               #  21       POSITION
007730,002923: 06,2404           00710                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
007731,002924: 06,2405           01015                           ECADR    DELTAQ                                #  21       POSITION
007732,002925: 06,2406           00706                           ECADR    DSPTEM1                               #  22       POSITION
007733,002926: 06,2407           00710                           ECADR    DSPTEM1    +2                         #  22       POSITION
007734,002927: 06,2410           00712                           ECADR    DSPTEM1    +4                         #  22       POSITION
007735,002928: 06,2411           00706                           ECADR    DSPTEM1                               #  23       VELOCITY
007736,002929: 06,2412           00710                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
007737,002930: 06,2413           00712                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
007738,002931: 06,2414           00000                           OCT      00000                                 #           SPARE
007739,002932: 06,2415           00000                           OCT      00000                                 #           SPARE
007740,002933: 06,2416           00000                           OCT      00000                                 #           SPARE
007741,002934: 06,2417           00000                           OCT      00000                                 #           SPARE
007742,002935: 06,2420           00000                           OCT      00000                                 #           SPARE
007743,002936: 06,2421           00000                           OCT      00000                                 #           SPARE
007744,002937:                                                                                                  #  END OF IDADDTAB
007745,002938: 
007746,002939: 
007747,002940: 
007748,002941:                                                                                                  #  MIXNOUN  SF ROUT
007749,002942: 06,2422           00302        RUTMXTAB           OCT      00302                                 #  01  DEGREES, Y OPT DEGREES
007750,002943: 06,2423           10302                           OCT      10302                                 #  02  DEGREES, Y OPT DEGREES, SECONDS
007751,002944: 06,2424           00302                           OCT      00302                                 #  03  DEGREES, Y OPT DEGREES
007752,002945: 06,2425           00000                           OCT      00000                                 #  04  OCTAL ONLY
007753,002946: 06,2426           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
007754,002947: 06,2427           00202                           OCT      00202                                 #  06  DEGREES, SECONDS
007755,002948: 06,2430           00202                           OCT      00202                                 #  07  DEGREES, SECONDS
007756,002949: 06,2431           00206                           OCT      00206                                 #  10  Y OPT DEGREES, SECONDS
007757,002950: 06,2432           00205                           OCT      00205                                 #  11  HOURS, SECONDS
007758,002951: 06,2433           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
007759,002952: 06,2434           10204                           OCT      10204                                 #  13  GYRO DEGREES (FOR EACH)
007760,002953: 06,2435           06143                           OCT      06143                                 #  14  PIPA BIAS (FOR EACH)
007761,002954: 06,2436           06143                           OCT      06143                                 #  15  PIPA SCALE FACTOR ERROR (FOR EACH)
007762,002955: 06,2437           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
007763,002956: 06,2440           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
007764,002957: 06,2441           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
007765,002958: 06,2442           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
007766,002959: 06,2443           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
007767,002960: 06,2444           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
007768,002961:                                                                                                  #  END OF RUTMXTAB
007769,002962: 

Page 200

007771,002964:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
007772,002965: 
007773,002966: 
007774,002967: 
007775,002968:    4430                                           SETLOC   DATWAIT1   +2                         
007776,002969: 
007777,002970:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
007778,002971:                                                                                                  #                ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
007779,002972: 
007780,002973:    4430           54657        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
007781,002974:    4431           54003                           TS       EBANK                                 #  SET EBANK BITS
007782,002975:    4432           74504                           MASK     LOW8                                  
007783,002976:    4433           64505                           AD       OCT1400                               
007784,002977:    4434           54131                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
007785,002978:    4435           00002                           TC       Q                                     
007786,002979: 
007787,002980: 
007788,002981: 
007789,002982:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
007790,002983:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
007791,002984: 
007792,002985:    4436           30657        SETNADD            CA       NOUNCADR                              
007793,002986:    4437           14431                           TCF      SETNCADR   +1                         
007794,002987: 
007795,002988: 
007796,002989: 
007797,002990:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
007798,002991:                                                                                                  #                DERIVED AND LEFT IN A.
007799,002992: 
007800,002993:    4440           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
007801,002994:    4441           74504                           MASK     LOW8                                  
007802,002995:    4442           64505                           AD       OCT1400                               #  E ADRES LEFT IN A
007803,002996:    4443           00002                           TC       Q                                     
007804,002997: 
007805,002998: 
007806,002999: 
007807,003000:    4444           00016        R1D1               OCT      16                                    
007808,003001:    4445           00011        R2D1               OCT      11                                    
007809,003002:    4446           00004        R3D1               OCT      4                                     
007810,003003: 
007811,003004:    4447           54020        RIGHT5             TS       CYR                                   
007812,003005:    4450           40020                           CS       CYR                                   
007813,003006:    4451           40020                           CS       CYR                                   
007814,003007:    4452           40020                           CS       CYR                                   
007815,003008:    4453           40020                           CS       CYR                                   
007816,003009:    4454           56020                           XCH      CYR                                   
007817,003010:    4455           00002                           TC       Q                                     
007818,003011: 
007819,003012:    4456           54022        LEFT5              TS       CYL                                   
007820,003013:    4457           40022                           CS       CYL                                   

Page 201

007822,003015:    4460           40022                           CS       CYL                                   
007823,003016:    4461           40022                           CS       CYL                                   
007824,003017:    4462           40022                           CS       CYL                                   
007825,003018:    4463           56022                           XCH      CYL                                   
007826,003019:    4464           00002                           TC       Q                                     
007827,003020: 
007828,003021:    4465           60000        SLEFT5             DOUBLE                                         
007829,003022:    4466           60000                           DOUBLE                                         
007830,003023:    4467           60000                           DOUBLE                                         
007831,003024:    4470           60000                           DOUBLE                                         
007832,003025:    4471           60000                           DOUBLE                                         
007833,003026:    4472           00002                           TC       Q                                     
007834,003027: 
007835,003028: 
007836,003029: 
007837,003030:    4473           00037        LOW5               OCT      37                                    
007838,003031:    4474           01740        MID5               OCT      1740                                  
007839,003032:    4475           76000        HI5                OCT      76000                                 #  MUST STAY HERE
007840,003033: 
007841,003034:    4476           04131        TCNOVAC            TC       NOVAC                                 
007842,003035:    4477           04251        TCWAIT             TC       WAITLIST                              
007843,003036:    4500           04321        TCTSKOVR           TC       TASKOVER                              
007844,003037:    4501           04142        TCFINDVC           TC       FINDVAC                               
007845,003038: 
007846,003039: 
007847,003040: 
007848,003041:    4502           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
007849,003042: 
007850,003043: 
007851,003044: 
007852,003045:    4503           03777        LOW11              OCT      3777                                  
007853,003046:    4504           00377        LOW8               OCT      377                                   
007854,003047:    4505           01400        OCT1400            OCT      1400                                  
007855,003048: 
007856,003049: 
007857,003050: 
007858,003051:    4506           00023        VD1                OCT      23                                    
007859,003052:    4507           00021        ND1                OCT      21                                    
007860,003053:    4510           00025        MD1                OCT      25                                    
007861,003054: 
007862,003055:    4511           00012        BINCON             DEC      10         B-14                       
007863,003056: 
007864,003057:    4512           37640        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
007865,003058:    4513           00006                           EXTEND                                         
007866,003059:    4514           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
007867,003060:    4515           00002                           TC       Q                                     
007868,003061: 
007869,003062:    4516           47640        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
007870,003063:    4517           00006                           EXTEND                                         
007871,003064:    4520           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11

Page 202

007873,003066:    4521           00002                           TC       Q                                     
007874,003067: 
007875,003068:    4522           37642        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
007876,003069:    4523           00006                           EXTEND                                         
007877,003070:    4524           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
007878,003071:    4525           00002                           TC       Q                                     
007879,003072: 
007880,003073:    4526           00006        LODSAMPT           EXTEND                                         
007881,003074:    4527           30025                           DCA      TIME2                                 
007882,003075:    4530           52755                           DXCH     SAMPTIME                              
007883,003076:    4531           00002                           TC       Q                                     
007884,003077: 
007885,003078: 
007886,003079: 
007887,003080:    4532           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
007888,003081:    4533           30142                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
007889,003082:    4534           20142                           DAS      MPAC       +1                         
007890,003083:    4535           60140                           AD       MPAC                                  
007891,003084:    4536           26140                           ADS      MPAC                                  
007892,003085:    4537           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
007893,003086:    4540           00002                           TC       Q                                     #  NO NET OF/UF
007894,003087:    4541           54105                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
007895,003088:    4542           00002                           TC       Q                                     
007896,003089: 
007897,003090: 
007898,003091: 
007899,003092:    4543           37641        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
007900,003093:    4544           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
007901,003094:    4545           05011                           WOR      DSALMOUT                              
007902,003095:    4546           00002                           TC       Q                                     
007903,003096: 
007904,003097: 
007905,003098: 
007906,003099:    4547           47641        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
007907,003100:    4550           00006                           EXTEND                                         
007908,003101:    4551           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
007909,003102:    4552           00002                           TC       Q                                     
007910,003103: 

Page 203

007912,003105:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
007913,003106:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
007914,003107:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
007915,003108: 
007916,003109:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
007917,003110:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
007918,003111: 
007919,003112:                                                                                                  #        THE CALLING SEQUENCES ARE
007920,003113:                                                                                                  #  L        TC     GRABDSP
007921,003114:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
007922,003115:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
007923,003116: 
007924,003117:                                                                                                  #  L        TC     NVSUB
007925,003118:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
007926,003119:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
007927,003120: 
007928,003121: 
007929,003122: 
007930,003123:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
007931,003124:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
007932,003125:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
007933,003126:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
007934,003127:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
007935,003128: 
007936,003129:                                                                                                  #        THE CALLING SEQUENCE IS
007937,003130:                                                                                                  #           CAF    WAKEFCADR
007938,003131:                                                                                                  #           TC     GRABUSY
007939,003132: 
007940,003133:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
007941,003134:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
007942,003135:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
007943,003136:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
007944,003137:                                                                                                  #                                              YOUR CADR IS PUT
007945,003138:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
007946,003139: 
007947,003140:                                                                                                  #         THE CALLING SEQUENCE IS
007948,003141:                                                                                                  #           CAF    WAKEFCADR
007949,003142:                                                                                                  #           TC     NVSUBUSY
007950,003143: 
007951,003144: 
007952,003145:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
007953,003146:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
007954,003147:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
007955,003148: 
007956,003149: 
007957,003150: 
007958,003151:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
007959,003152:                                                                                                  #  AND DISPLAY SYSTEM.
007960,003153:                                                                                                  #  +0  FREE

Page 204

007962,003155:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
007963,003156:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
007964,003157: 
007965,003158: 
007966,003159: 
007967,003160:    4553           10677        GRABDSP            CCS      GRABLOCK                              
007968,003161:    4554           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
007969,003162:    4555           37646                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
007970,003163:    4556           54677                           TS       GRABLOCK                              #  AND RETURN TO L+2
007971,003164:    4557           50002                           INDEX    Q                                     
007972,003165:    4560           00001                           TC       1                                     
007973,003166: 
007974,003167: 
007975,003168: 
007976,003169:    4561           36425        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
007977,003170:    4562           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
007978,003171:    4563           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
007979,003172:    4564           04102        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
007980,003173:    4565           10000                           CADR     GRABUSYB                              
007981,003174: 04,3432                                           SETLOC   DOPROC     +2                         
007982,003175: 04,3432           54001        GRABUSY1           TS       L                                     
007983,003176: 04,3433           10677                           CCS      GRABLOCK                              
007984,003177: 04,3434           03437                           TC       +3                                    #  STILL GRABBED
007985,003178: 04,3435           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
007986,003179: 04,3436           04105                           TC       BANKJUMP                              
007987,003180: 04,3437           37645                           CAF      TWO                                   
007988,003181: 04,3440           54130                           TS       LSTPTR                                
007989,003182: 04,3441           50130                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
007990,003183: 04,3442           10702                           CCS      DSPLIST                               #  FROM BOTTOM.
007991,003184: 04,3443           03445                           TC       +2                                    
007992,003185: 04,3444           03450                           TC       PUTINLST                              #  SPACE FOUND
007993,003186: 04,3445           10130                           CCS      LSTPTR                                #  DECREMENT POINTER
007994,003187: 04,3446           03440                           TC       -6                                    
007995,003188: 04,3447           03514                           TC       LSTFULL                               
007996,003189: 04,3450           30001        PUTINLST           CA       L                                     
007997,003190: 04,3451           50130                           INDEX    LSTPTR                                
007998,003191: 04,3452           54702                           TS       DSPLIST                               
007999,003192: 04,3453           04164                           TC       JOBSLEEP                              
008000,003193: 
008001,003194: 
008002,003195: 
008003,003196:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
008004,003197:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
008005,003198:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
008006,003199:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
008007,003200:                                                                                                  #  SYSTEM IS FREED.
008008,003201: 
008009,003202:    4566                                           SETLOC   GRABUSY    +2                         
008010,003203:    4566           10677        GRABWAIT           CCS      GRABLOCK                              
008011,003204:    4567           14561                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.

Page 205

008013,003206:    4570           37646                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.
008014,003207:    4571           54677                           TS       GRABLOCK                              
008015,003208:    4572           00002                           TC       Q                                     
008016,003209: 
008017,003210: 
008018,003211: 
008019,003212:    4573           44600        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
008020,003213:    4574           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
008021,003214:    4575           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
008022,003215:    4576           04102        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
008023,003216:    4577           10001                           CADR     NVSUBSYB                              
008024,003217:    4600           02003        2K+3               OCT      2003                                  
008025,003218: 
008026,003219: 04,3454                                           SETLOC   PUTINLST   +4                         
008027,003220: 04,3454           54001        NVSUBSY1           TS       L                                     
008028,003221: 04,3455           10652                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
008029,003222: 04,3456           03461                           TC       +3                                    #  STILL BUSY
008030,003223: 04,3457           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
008031,003224: 04,3460           04105                           TC       BANKJUMP                              
008032,003225: 04,3461           37645                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
008033,003226: 04,3462           54677                           TS       GRABLOCK                              
008034,003227: 04,3463           30001                           CA       L                                     
008035,003228: 04,3464           56704                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
008036,003229: 04,3465           56703                           XCH      DSPLIST    +1                         #          (BOTTOM)
008037,003230: 04,3466           56702                           XCH      DSPLIST                               
008038,003231: 04,3467           10000                           CCS      A                                     
008039,003232: 04,3470           03514                           TC       LSTFULL                               
008040,003233: 04,3471           03473                           TC       +2                                    
008041,003234: 04,3472           03514                           TC       LSTFULL                               
008042,003235: 04,3473           04522                           TC       RELDSPON                              
008043,003236: 04,3474           30001                           CA       L                                     
008044,003237: 04,3475           04164        ENDNVBSY           TC       JOBSLEEP                              
008045,003238: 
008046,003239: 
008047,003240: 
008048,003241:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
008049,003242:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
008050,003243:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
008051,003244:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
008052,003245:                                                                                                  #  IS NOT BUSY.
008053,003246: 
008054,003247:    4601                                           SETLOC   NVSUBUSY   +3                         
008055,003248:    4601           54107        NVSBWAIT           TS       NVTEMP                                
008056,003249:    4602           10652                           CCS      DSPLOCK                               
008057,003250:    4603           14606                           TCF      NVSBWT1                               #  BUSY
008058,003251:    4604           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
008059,003252:    4605           14363                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
008060,003253:    4606           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
008061,003254:    4607           14573                           TCF      PRENVBSY                              #  GO TO SLEEP.
008062,003255: 

Page 206

008064,003257:    4610           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
008065,003258:    4611           54130                           TS       RELRET                                #  OFF, SEARCH DSPLIST
008066,003259:    4612           37655                           CAF      NEG1                                  
008067,003260:    4613           60677                           AD       GRABLOCK                              
008068,003261:    4614           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
008069,003262:    4615           64623                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
008070,003263:    4616           04636                           TC       WKSEARCH                              
008071,003264:    4617           04623                           TC       RELDSP2                               #  LIST EMPTY
008072,003265:    4620           04170                           TC       JOBWAKE                               #  LIST NOT EMPTY
008073,003266:    4621           37646                           CAF      ONE                                   
008074,003267:    4622           54677                           TS       GRABLOCK                              
008075,003268:    4623           00004        RELDSP2            INHINT                                         
008076,003269:    4624           47642                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
008077,003270:    4625           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
008078,003271:    4626           03011                           WAND     DSALMOUT                              
008079,003272:    4627           37653                           CAF      ZERO                                  
008080,003273:    4630           54652                           TS       DSPLOCK                               
008081,003274:    4631           00003                           RELINT                                         
008082,003275:    4632           00130                           TC       RELRET                                
008083,003276:    4633           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0, RELDSP LIGHT OFF.
008084,003277:    4634           54130                           TS       RELRET                                #  NO LIST SEARCH
008085,003278:    4635           04623                           TC       RELDSP2                               
008086,003279: 
008087,003280: 
008088,003281: 
008089,003282:    4636           37653        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
008090,003283:    4637           56702                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
008091,003284:    4640           56703                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
008092,003285:    4641           56704                           XCH      DSPLIST    +2                         
008093,003286:    4642           00006                           EXTEND                                         
008094,003287:    4643           14647                           BZF      +4                                    #  EMPTY
008095,003288:    4644           00004                           INHINT                                         #  NOT EMPTY
008096,003289:    4645           50002                           INDEX    Q                                     #  RETURN TO L+2
008097,003290:    4646           00001                           TC       1                                     
008098,003291:    4647           00002                           TC       Q                                     #  RETURN TO L+1
008099,003292: 
008100,003293: 
008101,003294: 
008102,003295:    4650           56002        FREEDSP            XCH      Q                                     
008103,003296:    4651           54130                           TS       FREERET                               
008104,003297:    4652           00004                           INHINT                                         
008105,003298:    4653           34661                           CAF      SHOTIME                               
008106,003299:    4654           04251                           TC       WAITLIST                              
008107,003300:    4655     0637                                  EBANK=   DSPCOUNT                              
008108,003301:    4655           03476 10001                     2CADR    FREEWAIT                              
008109,003302: 
008110,003303:    4657           00003                           RELINT                                         
008111,003304:    4660           00130                           TC       FREERET                               
008112,003305: 
008113,003306:    4661           01750        SHOTIME            OCT      1750                                  
008114,003307: 

Page 207

008116,003309: 04,3476                                           SETLOC   ENDNVBSY   +1                         
008117,003310: 
008118,003311: 04,3476           34502        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
008119,003312: 04,3477           04131                           TC       NOVAC                                 
008120,003313: 04,3500     0637                                  EBANK=   DSPCOUNT                              
008121,003314: 04,3500           03503 10001                     2CADR    FREDSPD0                              
008122,003315: 
008123,003316: 04,3502           04321                           TC       TASKOVER                              
008124,003317: 
008125,003318: 
008126,003319: 
008127,003320: 04,3503           04636        FREDSPD0           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
008128,003321: 04,3504           03512                           TC       LSTEMPTY                              #  LIST EMPTY
008129,003322: 04,3505           04170                           TC       JOBWAKE                               #  LIST NOT EMPTY
008130,003323: 04,3506           00003                           RELINT                                         
008131,003324: 04,3507           37646                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
008132,003325: 04,3510           54677                           TS       GRABLOCK                              
008133,003326: 04,3511           04205                           TC       ENDOFJOB                              
008134,003327: 04,3512           37653        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
008135,003328: 04,3513           03510                           TC       -3                                    
008136,003329: 
008137,003330: 
008138,003331: 
008139,003332: 04,3514           04662        LSTFULL            TC       ABORT                                 
008140,003333: 04,3515           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
008141,003334: 
008142,003335:    4662                                           SETLOC   SHOTIME    +1                         
008143,003336:    4662           04662        ABORT              TC       ABORT                                 #  ****FIX LATER*****
008144,003337: 

Page 208

008146,003339:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
008147,003340:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
008148,003341: 
008149,003342: 05,3414                                           SETLOC   DSPMMEND   +1                         
008150,003343: 
008151,003344: 05,3414           33453        VBTSTLTS           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
008152,003345: 05,3415           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
008153,003346: 05,3416           05011                           WOR      DSALMOUT                              
008154,003347: 05,3417           33454                           CAF      TSTCON2                               #  TURN ON AUTO, HOLD, NO ATT, SPARE,
008155,003348: 05,3420           54675                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM.
008156,003349: 05,3421           37635                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
008157,003350: 05,3422           00006                           EXTEND                                         
008158,003351: 05,3423           05013                           WOR      CHAN13                                
008159,003352: 05,3424           00004                           INHINT                                         
008160,003353: 05,3425           37650                           CAF      TEN                                   
008161,003354: 05,3426           54103        TSTLTS1            TS       ERCNT                                 
008162,003355: 05,3427           43451                           CS       FULLDSP                               
008163,003356: 05,3430           50103                           INDEX    ERCNT                                 
008164,003357: 05,3431           54662                           TS       DSPTAB                                
008165,003358: 05,3432           10103                           CCS      ERCNT                                 
008166,003359: 05,3433           03426                           TC       TSTLTS1                               
008167,003360: 05,3434           43452                           CS       FULLDSP1                              
008168,003361: 05,3435           54663                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
008169,003362: 05,3436           54666                           TS       DSPTAB     +4                         
008170,003363: 05,3437           54670                           TS       DSPTAB     +6                         
008171,003364: 05,3440           37647                           CAF      ELEVEN                                
008172,003365: 05,3441           54656                           TS       NOUT                                  
008173,003366: 05,3442           00003                           RELINT                                         
008174,003367: 05,3443           33456                           CAF      SHOLTS                                
008175,003368: 05,3444           00004                           INHINT                                         
008176,003369: 05,3445           04251                           TC       WAITLIST                              
008177,003370: 05,3446     0662                                  EBANK=   DSPTAB                                
008178,003371: 05,3446           03457 12001                     2CADR    TSTLTS2                               
008179,003372: 
008180,003373: 05,3450           04205                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
008181,003374:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
008182,003375:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
008183,003376: 
008184,003377: 
008185,003378: 
008186,003379: 05,3451           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
008187,003380: 05,3452           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
008188,003381: 05,3453           00174        TSTCON1            OCT      00174                                 #  CHAN 11 BITS 3-7
008189,003382:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
008190,003383:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
008191,003384: 05,3454           40777        TSTCON2            OCT      40777                                 #  DSPTAB+11D BITS 1-9
008192,003385:                                                                                                  #  AUTO, HOLD, FREE, NO ATT, SPARE,
008193,003386:                                                                                                  #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM.
008194,003387: 05,3455           00114        TSTCON3            OCT      00114                                 #  CHAN 11  BITS 3,4,7
008195,003388:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.

Page 209

008197,003390: 05,3456           00764        SHOLTS             OCT      764                                   #  5 SEC
008198,003391: 
008199,003392: 
008200,003393: 
008201,003394: 05,3457           34502        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
008202,003395: 05,3460           04131                           TC       NOVAC                                 
008203,003396: 05,3461     0662                                  EBANK=   DSPTAB                                
008204,003397: 05,3461           03464 12001                     2CADR    TSTLTS3                               
008205,003398: 
008206,003399: 05,3463           04321                           TC       TASKOVER                              
008207,003400: 
008208,003401: 
008209,003402: 
008210,003403: 05,3464           43455        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
008211,003404: 05,3465           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
008212,003405: 05,3466           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
008213,003406: 05,3467           47635                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
008214,003407: 05,3470           00006                           EXTEND                                         
008215,003408: 05,3471           03013                           WAND     CHAN13                                
008216,003409: 05,3472           37630                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
008217,003410: 05,3473           54675                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
008218,003411: 05,3474           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
008219,003412: 05,3475           04102                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
008220,003413: 05,3476           11273                           CADR     VBTERM                                #  IF APPROPRIATE).
008221,003414:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
008222,003415:                                                                                                  #  FOR TERMINATE CONDITION, AND GO TO
008223,003416:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.

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