Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Mike Higgins. A team of volunteers performed the transcription and proof-reading. Note that the scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's section on archive.org. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100
	JUL 9, 1965
Note that the date is the date of the printout, not the date of the program revision.

004894,000002:                                                                                                  ## Copyright:   Public domain.
004895,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
004896,000004:                                                                                                  ## Purpose:     Part of the source code for Retread 44 (revision 0). It was
004897,000005:                                                                                                  ##              the very first program for the Block II AGC, created as an
004898,000006:                                                                                                  ##              extensive rewrite of the Block I program Sunrise.
004899,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
004900,000008:                                                                                                  ##              that the code format has been changed to conform to the
004901,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
004902,000010:                                                                                                  ##              original YUL assembler.
004903,000011:                                                                                                  ## Reference:   pp. 135-209
004904,000012:                                                                                                  ## Assembler:   yaYUL
004905,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
004906,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
004907,000015:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Aurora 12 version.
004908,000016:                                                                                                  ##              2016-12-18 MAS  Transcribed, then fixed typos.
004909,000017:                                                                                                  ##              2016-12-27 RSB  Proofed comment text using octopus/ProoferComments,
004910,000018:                                                                                                  ##                              and fixed errors found.
004911,000019:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
004912,000020:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
004913,000021:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
004914,000022:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
004915,000023:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
004916,000024:                                                                                                  ##                              Luminary 99 vs Comanche 55.
004917,000025: 

Page 135 The log section name, PINBALL GAME BUTTONS AND LIGHTS, is circled in red.

004920,000028:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
004921,000029: 
004922,000030: 
004923,000031: 
004924,000032:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
004925,000033: 
004926,000034:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
004927,000035:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
004928,000036:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
004929,000037: 
004930,000038:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4

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

004933,000041: 
004934,000042: 
004935,000043: 
004936,000044:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
004937,000045: 
004938,000046: 
004939,000047: 
004940,000048:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
004941,000049: 
004942,000050:                                                                                                  #  DSPCOUNT ERASE                  DISPLAY POSITION INDICATOR
004943,000051:                                                                                                  #  DECBRNCH ERASE                  +DEC, - DEC, OCT INDICATOR
004944,000052:                                                                                                  #  VERBREG  ERASE                  VERB CODE
004945,000053:                                                                                                  #  NOUNREG  ERASE                  NOUN CODE
004946,000054:                                                                                                  #  XREG     ERASE                  R1 INPUT BUFFER
004947,000055:                                                                                                  #  YREG     ERASE                  R2 INPUT BUFFER
004948,000056:                                                                                                  #  ZREG     ERASE                  R3 INPUT BUFFER
004949,000057:                                                                                                  #  XREGLP   ERASE                  LO PART OF XREG (FOR DEC CONV ONLY)
004950,000058:                                                                                                  #  YREGLP   ERASE                  LO PART OF YREG (FOR DEC CONV ONLY)
004951,000059:                                                                                                  #  ZREGLP   ERASE                  LO PART OF ZREG (FOR DEC CONV ONLY)
004952,000060:                                                                                                  #  MODREG   ERASE                  MODE CODE
004953,000061:                                                                                                  #  DSPLOCK  ERASE                  KEYBOARD/SUBROUTINE CALL INTERLOCK
004954,000062:                                                                                                  #  REQRET   ERASE                  RETURN REGISTER FOR LOAD
004955,000063:                                                                                                  #  LOADSTAT ERASE                  STATUS INDICATOR FOR LOADTST
004956,000064:                                                                                                  #  CLPASS   ERASE                  PASS INDICATOR CLEAR
004957,000065:                                                                                                  #  NOUT     ERASE                  ACTIVITY COUNTER FOR DSPTAB
004958,000066:                                                                                                  #  NOUNCADR ERASE                  MACHINE CADR FOR NOUN
004959,000067:                                                                                                  #  MONSAVE  ERASE                  N/V CODE FOR MONITOR. (= MONSAVE1-1)
004960,000068:                                                                                                  #  MONSAVE1 ERASE                  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
004961,000069:                                                                                                  #  DSPTAB   ERASE          +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
004962,000070:                                                                                                  #  CADRSTOR ERASE                  ENDIDLE STORAGE
004963,000071:                                                                                                  #  GRABLOCK ERASE                  INTERNAL INTERLOCK FOR DISPLAY SYSTEM
004964,000072:                                                                                                  #  NVQTEM   ERASE                  NVSUB STORAGE FOR CALLING ADDRESS
004965,000073:                                                                                                  #                                  MUST = NVBNKTEM-1
004966,000074:                                                                                                  #  NVBNKTEM ERASE                  NVSUB STORAGE FOR CALLING BANK
004967,000075:                                                                                                  #                                  MUST = NVQTEM+1
004968,000076:                                                                                                  #  DSPLIST  ERASE          +2      WAITING LIST FOR DSP SYST INTERNAL USE
004969,000077:                                                                                                  #  EXTVBACT REASE                  EXTENDED VERB ACTIVITY INTERLOCK
004970,000078:                                                                                                  #  DSPTEM1  ERASE          +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004971,000079:                                                                                                  #  DSPTEM2  ERASE          +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004972,000080: 

Page 136

004974,000082:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
004975,000083: 
004976,000084: 
004977,000085: 
004978,000086:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
004979,000087: 
004980,000088:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
004981,000089:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
004982,000090:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
004983,000091: 
004984,000092:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
004985,000093:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
004986,000094:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
004987,000095:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
004988,000096: 
004989,000097:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
004990,000098:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
004991,000099:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
004992,000100:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
004993,000101: 
004994,000102:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
004995,000103:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
004996,000104:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
004997,000105:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
004998,000106: 
004999,000107:                                                                                                  #  SGNOFF   =       VBUF   +1      TEMP FOR +,- ON
005000,000108:                                                                                                  #  NVTEMP   =       VBUF   +1      TEMP FOR NVSUB
005001,000109:                                                                                                  #  SFTEMP1  =       VBUF   +1      STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
005002,000110: 
005003,000111:                                                                                                  #  CODE     =       VBUF   +2      FOR DSPIN
005004,000112:                                                                                                  #  SFTEMP2  =       VBUF   +2      STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
005005,000113: 
005006,000114:                                                                                                  #  MIXTEMP  =       VBUF   +3      FOR MIXNOUN DATA
005007,000115:                                                                                                  #  SIGNRET  =       VBUF   +3      RETURN FOR +,- ON
005008,000116: 
005009,000117:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
005010,000118: 
005011,000119:                                                                                                  #  ENTRET   =       DOTINC          EXIT FROM ENTER
005012,000120: 
005013,000121:                                                                                                  #  WDCNT    =       DOTRET          CHAR COUNTER FOR DSPWD
005014,000122:                                                                                                  #  INREL    =       DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
005015,000123: 
005016,000124:                                                                                                  #  DSPMMTEM =       MATINC          DSPCOUNT SAVE FOR DSPMM
005017,000125:                                                                                                  #  MIXBR    =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
005018,000126: 
005019,000127:                                                                                                  #  TEM1     ERASE                   EXEC TEMP
005020,000128:                                                                                                  #  DSREL    =       TEM1            REL ADDRESS FOR DSPIN
005021,000129: 
005022,000130:                                                                                                  #  TEM2     ERASE                   EXEC TEMP
005023,000131:                                                                                                  #  DSMAG    =       TEM2            MAGNITUDE STORE FOR DSPIN
005024,000132: 

Page 137

005026,000134:                                                                                                  #  IDADDTEM =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
005027,000135: 
005028,000136:                                                                                                  #  TEM3     ERASE                   EXEC TEMP
005029,000137:                                                                                                  #  COUNT    =       TEM3            FOR DSPIN
005030,000138: 
005031,000139:                                                                                                  #  TEM4     ERASE                   EXEC TEMP
005032,000140:                                                                                                  #  LSTPTR   =       TEM4            LIST POINTER FOR GRABUSY
005033,000141:                                                                                                  #  RELRET   =       TEM4            RETURN FOR RELDSP
005034,000142:                                                                                                  #  FREERET  =       TEM4            RETURN FOR FREEDSP
005035,000143: 
005036,000144:                                                                                                  #  TEM5     ERASE                   EXEC TEMP
005037,000145:                                                                                                  #  NOUNADD  =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
005038,000146: 
005039,000147:                                                                                                  #  NNADTEM  ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
005040,000148:                                                                                                  #  NNTYPTEM ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
005041,000149:                                                                                                  #  IDAD1TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
005042,000150:                                                                                                  #                                   MUST = IDAD2TEM-1, = IDAD3TEM-2.
005043,000151:                                                                                                  #  IDAD2TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
005044,000152:                                                                                                  #                                   MUST = IDAD1TEM+1, = IDAD3TEM-1.
005045,000153:                                                                                                  #  IDAD3TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
005046,000154:                                                                                                  #                                   MUST = IDAD1TEM+2, = IDAD2TEM+1.
005047,000155:                                                                                                  #  RUTMXTEM ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
005048,000156:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
005049,000157: 
005050,000158: 
005051,000159: 
005052,000160:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
005053,000161: 
005054,000162:                                                                                                  #  DSPCNT   ERASE                  COUNTER FOR DSPOUT
005055,000163:                                                                                                  #  UPLOCK   ERASE                  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
005056,000164:                                                                                                  #                                                                           RECEPTION OF A BAD MESSAGE IN UPLINK)
005057,000165:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
005058,000166: 
005059,000167: 
005060,000168: 
005061,000169:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
005062,000170: 
005063,000171:                                                                                                  #  KEYTEMP1 =      WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
005064,000172:                                                                                                  #  DSRUPTEM =      WAITEXIT        TEMP FOR DSPOUT
005065,000173:                                                                                                  #  KEYTEMP2 =      RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
005066,000174:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
005067,000175: 
005068,000176: 

Page 138

005070,000178:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
005071,000179:                                                                                                  #  0        10000
005072,000180:                                                                                                  #  1        00001
005073,000181:                                                                                                  #  9        01001
005074,000182:                                                                                                  #  VERB     10001
005075,000183:                                                                                                  #  ERROR RES10010
005076,000184:                                                                                                  #  KEY RLSE 11001
005077,000185:                                                                                                  #  +        11010
005078,000186:                                                                                                  #  -        11011
005079,000187:                                                                                                  #  ENTER    11100
005080,000188:                                                                                                  #  CLEAR    11110
005081,000189:                                                                                                  #  NOUN     11111
005082,000190: 
005083,000191: 
005084,000192: 
005085,000193:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
005086,000194:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
005087,000195:                                                                                                  #  ENERGIZED.
005088,000196:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
005089,000197:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
005090,000198:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
005091,000199: 
005092,000200:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
005093,000201:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
005094,000202:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
005095,000203:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
005096,000204:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
005097,000205:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
005098,000206: 
005099,000207:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
005100,000208:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
005101,000209:                                                                                                  #  MD2   24     R2D2  10
005102,000210:                                                                                                  #  VD1   23     R2D3   7
005103,000211:                                                                                                  #  VD2   22     R2D4   6
005104,000212:                                                                                                  #  ND1   21     R2D5   5
005105,000213:                                                                                                  #  ND2   20     R3D1   4
005106,000214:                                                                                                  #  R1D1  16     R3D2   3
005107,000215:                                                                                                  #  R1D2  15     R3D3   2
005108,000216:                                                                                                  #  R1D3  14     R3D4   1
005109,000217:                                                                                                  #  R1D4  13     R3D5   0
005110,000218:                                                                                                  #  R1D5  12
005111,000219: 
005112,000220: 
005113,000221: 
005114,000222:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
005115,000223: 
005116,000224:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
005117,000225:                                                                                                  #  RELADD
005118,000226:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
005119,000227:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)

Page 139

005121,000229:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
005122,000230:                                                                                                  #  7      1000                                  R1D1 (16)
005123,000231:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
005124,000232:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
005125,000233:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
005126,000234:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
005127,000235:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
005128,000236:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
005129,000237:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
005130,000238:                                                                                                  #         0000   NO RELAYWORD
005131,000239: 
005132,000240: 
005133,000241: 
005134,000242:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
005135,000243:                                                                                                  #  BLANK      00000
005136,000244:                                                                                                  #  0          10101
005137,000245:                                                                                                  #  1          00011
005138,000246:                                                                                                  #  2          11001
005139,000247:                                                                                                  #  3          11011
005140,000248:                                                                                                  #  4          01111
005141,000249:                                                                                                  #  5          11110
005142,000250:                                                                                                  #  6          11100
005143,000251:                                                                                                  #  7          10011
005144,000252:                                                                                                  #  8          11101
005145,000253:                                                                                                  #  9          11111
005146,000254: 

Page 140

005148,000256:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
005149,000257: 
005150,000258: 
005151,000259: 
005152,000260: 04,2000                                           SETLOC   20000                                 
005153,000261: 
005154,000262: 04,2000           03432        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
005155,000263: 04,2001           03454        NVSUBSYB           TC       NVSUBSY1                              
005156,000264: 
005157,000265: 04,2002           37646        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
005158,000266: 04,2003           56652                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
005159,000267: 04,2004           54101                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
005160,000268: 04,2005           56140                           XCH      MPAC                                  
005161,000269: 04,2006           54103                           TS       CHAR                                  
005162,000270: 04,2007           50000                           INDEX    A                                     
005163,000271: 04,2010           02011                           TC       +1                                    #  INPUT CODE     FUNCTION
005164,000272: 04,2011           03253                           TC       CHARALRM                              #  0
005165,000273: 04,2012           02062                           TC       NUM                                   #  1
005166,000274: 04,2013           02062                           TC       NUM                                   #  2
005167,000275: 04,2014           02062                           TC       NUM                                   #  3
005168,000276: 04,2015           02062                           TC       NUM                                   #  4
005169,000277: 04,2016           02062                           TC       NUM                                   #  5
005170,000278: 04,2017           02062                           TC       NUM                                   #  6
005171,000279: 04,2020           02062                           TC       NUM                                   #  7
005172,000280: 04,2021           02053                           TC       89TEST                                #  10                 8
005173,000281: 04,2022           02053                           TC       89TEST                                #  11                 9
005174,000282: 04,2023           03253                           TC       CHARALRM                              #  12
005175,000283: 04,2024           03253                           TC       CHARALRM                              #  13
005176,000284: 04,2025           03253                           TC       CHARALRM                              #  14
005177,000285: 04,2026           03253                           TC       CHARALRM                              #  15
005178,000286: 04,2027           03253                           TC       CHARALRM                              #  16
005179,000287: 04,2030           03253                           TC       CHARALRM                              #  17
005180,000288: 04,2031           02060                           TC       NUM        -2                         #  20                 0
005181,000289: 04,2032           02235                           TC       VERB                                  #  21                 VERB
005182,000290: 04,2033           02343                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
005183,000291: 04,2034           03253                           TC       CHARALRM                              #  23
005184,000292: 04,2035           03253                           TC       CHARALRM                              #  24
005185,000293: 04,2036           03253                           TC       CHARALRM                              #  25
005186,000294: 04,2037           03253                           TC       CHARALRM                              #  26
005187,000295: 04,2040           03253                           TC       CHARALRM                              #  27
005188,000296: 04,2041           03253                           TC       CHARALRM                              #  30
005189,000297: 04,2042           03276                           TC       VBRELDSP                              #  31                 KEY RELEASE
005190,000298: 04,2043           02267                           TC       POSGN                                 #  32                 +
005191,000299: 04,2044           02254                           TC       NEGSGN                                #  33                 -
005192,000300: 04,2045           02051                           TC       ENTERJMP                              #  34                 ENTER
005193,000301: 04,2046           03253                           TC       CHARALRM                              #  35
005194,000302: 04,2047           02407                           TC       CLEAR                                 #  36                 CLEAR
005195,000303: 04,2050           02250                           TC       NOUN                                  #  37                 NOUN
005196,000304: 

Page 141

005198,000306: 04,2051           04102        ENTERJMP           TC       POSTJUMP                              
005199,000307: 04,2052           12003                           CADR     ENTER                                 
005200,000308: 
005201,000309: 04,2053           36165        89TEST             CAF      THREE                                 
005202,000310: 04,2054           70640                           MASK     DECBRNCH                              
005203,000311: 04,2055           10000                           CCS      A                                     
005204,000312: 04,2056           02062                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
005205,000313: 04,2057           03253                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
005206,000314: 
005207,000315: 
005208,000316: 
005209,000317:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
005210,000318:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
005211,000319:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
005212,000320:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
005213,000321:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
005214,000322:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
005215,000323: 
005216,000324: 04,2060           37653                           CAF      ZERO                                  
005217,000325: 04,2061           54103                           TS       CHAR                                  
005218,000326: 04,2062           10637        NUM                CCS      DSPCOUNT                              
005219,000327: 04,2063           02067                           TC       +4                                    #  +
005220,000328: 04,2064           02067                           TC       +3                                    #  +0
005221,000329: 04,2065           02066                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
005222,000330: 04,2066           04205                           TC       ENDOFJOB                              #  -0
005223,000331: 04,2067           02205                           TC       GETINREL                              
005224,000332: 04,2070           10655                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
005225,000333: 04,2071           37653                           CAF      ZERO                                  
005226,000334: 04,2072           54655                           TS       CLPASS                                
005227,000335: 04,2073           02074                           TC       +1                                    
005228,000336: 04,2074           50103                           INDEX    CHAR                                  
005229,000337: 04,2075           34333                           CAF      RELTAB                                
005230,000338: 04,2076           74473                           MASK     LOW5                                  
005231,000339: 04,2077           54110                           TS       CODE                                  
005232,000340: 04,2100           30637                           CA       DSPCOUNT                              
005233,000341: 04,2101           54127                           TS       COUNT                                 
005234,000342: 04,2102           03157                           TC       DSPIN                                 
005235,000343: 04,2103           36165                           CAF      THREE                                 
005236,000344: 04,2104           70640                           MASK     DECBRNCH                              
005237,000345: 04,2105           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
005238,000346: 04,2106           02117                           TC       DECTOBIN                              #  +
005239,000347: 04,2107           50123                           INDEX    INREL                                 #  +0 OCTAL
005240,000348: 04,2110           56641                           XCH      VERBREG                               
005241,000349: 04,2111           54022                           TS       CYL                                   
005242,000350: 04,2112           40022                           CS       CYL                                   
005243,000351: 04,2113           40022                           CS       CYL                                   
005244,000352: 04,2114           56022                           XCH      CYL                                   
005245,000353: 04,2115           60103                           AD       CHAR                                  
005246,000354: 04,2116           02134                           TC       ENDNMTST                              
005247,000355: 04,2117           50123        DECTOBIN           INDEX    INREL                                 
005248,000356: 

Page 142

005250,000358: 04,2120           56641                           XCH      VERBREG                               
005251,000359: 04,2121           54140                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
005252,000360: 04,2122           37653                           CAF      ZERO                                  
005253,000361: 04,2123           54141                           TS       MPAC       +1                         
005254,000362: 04,2124           37650                           CAF      TEN                                   #  10 X 2EXP-14
005255,000363: 04,2125           07257                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
005256,000364: 04,2126           56141                           XCH      MPAC       +1                         
005257,000365: 04,2127           60103                           AD       CHAR                                  
005258,000366: 04,2130           54141                           TS       MPAC       +1                         
005259,000367: 04,2131           02134                           TC       ENDNMTST                              #  NO OF
005260,000368: 04,2132           26140                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
005261,000369: 04,2133           02152                           TC       DECEND                                
005262,000370: 04,2134           50123        ENDNMTST           INDEX    INREL                                 
005263,000371: 04,2135           54641                           TS       VERBREG                               
005264,000372: 04,2136           40637                           CS       DSPCOUNT                              
005265,000373: 04,2137           50123                           INDEX    INREL                                 
005266,000374: 04,2140           62176                           AD       CRITCON                               
005267,000375: 04,2141           00006                           EXTEND                                         
005268,000376: 04,2142           12144                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
005269,000377: 04,2143           02173                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
005270,000378: 04,2144           36165        ENDNUM             CAF      THREE                                 
005271,000379: 04,2145           70640                           MASK     DECBRNCH                              
005272,000380: 04,2146           10000                           CCS      A                                     
005273,000381: 04,2147           02152                           TC       DECEND                                
005274,000382: 04,2150           40637        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
005275,000383: 04,2151           02174                           TC       MORNUM     +1                         #  NEGATIVELY
005276,000384: 04,2152           07062        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
005277,000385: 04,2153           02203                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
005278,000386: 04,2154           36165                           CAF      THREE                                 #  IN MPAC, +1, +2.
005279,000387: 04,2155           70640                           MASK     DECBRNCH                              
005280,000388: 04,2156           50000                           INDEX    A                                     
005281,000389: 04,2157           02157                           TC       +0                                    
005282,000390: 04,2160           02164                           TC       +DECSGN                               
005283,000391: 04,2161           00006                           EXTEND                                         #  - CASE
005284,000392: 04,2162           40142                           DCS      MPAC       +1                         
005285,000393: 04,2163           52142                           DXCH     MPAC       +1                         
005286,000394: 04,2164           56142        +DECSGN            XCH      MPAC       +2                         
005287,000395: 04,2165           50123                           INDEX    INREL                                 
005288,000396: 04,2166           54644                           TS       XREGLP     -2                         
005289,000397: 04,2167           56141                           XCH      MPAC       +1                         
005290,000398: 04,2170           50123                           INDEX    INREL                                 
005291,000399: 04,2171           54641                           TS       VERBREG                               
005292,000400: 04,2172           02150                           TC       ENDALL                                
005293,000401: 04,2173           10637        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
005294,000402: 04,2174           54637                           TS       DSPCOUNT                              
005295,000403: 04,2175           04205                           TC       ENDOFJOB                              
005296,000404: 
005297,000405: 04,2176           00022        CRITCON            OCT      22                                    #  (DEC 18)
005298,000406: 04,2177           00020                           OCT      20                                    #  (DEC 16)
005299,000407: 04,2200           00012                           OCT      12                                    #  (DEC 10)

Page 143

005301,000409: 04,2201           00005                           OCT      5                                     
005302,000410: 04,2202           00000                           OCT      0                                     
005303,000411: 
005304,000412: 04,2203           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
005305,000413: 
005306,000414: 
005307,000415:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
005308,000416:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
005309,000417: 
005310,000418: 04,2205           50637        GETINREL           INDEX    DSPCOUNT                              
005311,000419: 04,2206           32211                           CAF      INRELTAB                              
005312,000420: 04,2207           54123                           TS       INREL                                 #  (A TEMP, REG)
005313,000421: 04,2210           00002                           TC       Q                                     
005314,000422: 
005315,000423: 04,2211           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
005316,000424: 04,2212           00004                           OCT      4                                     #  R3D4           =(1)
005317,000425: 04,2213           00004                           OCT      4                                     #  R3D3           =(2)
005318,000426: 04,2214           00004                           OCT      4                                     #  R3D2           =(3)
005319,000427: 04,2215           00004                           OCT      4                                     #  R3D1           =(4)
005320,000428: 04,2216           00003                           OCT      3                                     #  R2D5           =(5)
005321,000429: 04,2217           00003                           OCT      3                                     #  R2D4           =(6)
005322,000430: 04,2220           00003                           OCT      3                                     #  R2D3           =(7)
005323,000431: 04,2221           00003                           OCT      3                                     #  R2D2           =(8D)
005324,000432: 04,2222           00003                           OCT      3                                     #  R2D1           =(9D)
005325,000433: 04,2223           00002                           OCT      2                                     #  R1D5           =(10D)
005326,000434: 04,2224           00002                           OCT      2                                     #  R1D4           =(11D)
005327,000435: 04,2225           00002                           OCT      2                                     #  R1D3           =(12D)
005328,000436: 04,2226           00002                           OCT      2                                     #  R1D2           =(13D)
005329,000437: 04,2227           00002                           OCT      2                                     #  R1D1           =(14D)
005330,000438: 04,2231                                           LOC      +1                                    #  NO DSPCOUNT NUMBER = 15D
005331,000439: 04,2231           00001                           OCT      1                                     #  ND2            =(16D)
005332,000440: 04,2232           00001                           OCT      1                                     #  ND1            =(17D)
005333,000441: 04,2233           00000                           OCT      0                                     #  VD2            =(18D)
005334,000442: 04,2234           00000                           OCT      0                                     #  VD1            =(19D)
005335,000443: 
005336,000444: 
005337,000445: 04,2235           37653        VERB               CAF      ZERO                                  
005338,000446: 04,2236           54641                           TS       VERBREG                               
005339,000447: 04,2237           34506                           CAF      VD1                                   
005340,000448: 04,2240           54637        NVCOM              TS       DSPCOUNT                              
005341,000449: 04,2241           02517                           TC       2BLANK                                
005342,000450: 04,2242           37653                           CAF      ZERO                                  
005343,000451: 04,2243           54640                           TS       DECBRNCH                              
005344,000452: 04,2244           54653                           TS       REQRET                                #  SET FOR ENTPAS0
005345,000453: 04,2245           34417                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
005346,000454: 04,2246           54122                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
005347,000455:                                                                                                  #  TO TC ENDOFJOB
005348,000456: 04,2247           04205                           TC       ENDOFJOB                              
005349,000457: 

Page 144

005351,000459: 04,2250           37653        NOUN               CAF      ZERO                                  
005352,000460: 04,2251           54642                           TS       NOUNREG                               
005353,000461: 04,2252           34507                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
005354,000462: 04,2253           02240                           TC       NVCOM                                 
005355,000463: 
005356,000464: 
005357,000465: 
005358,000466: 04,2254           02326        NEGSGN             TC       SIGNTEST                              
005359,000467: 04,2255           02313                           TC       -ON                                   
005360,000468: 04,2256           37645                           CAF      TWO                                   
005361,000469: 04,2257           50123        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
005362,000470: 04,2260           67640                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
005363,000471: 04,2261           26640                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
005364,000472: 04,2262           10655        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
005365,000473: 04,2263           37653                           CAF      ZERO                                  
005366,000474: 04,2264           54655                           TS       CLPASS                                
005367,000475: 04,2265           02266                           TC       +1                                    
005368,000476: 04,2266           04205                           TC       ENDOFJOB                              
005369,000477: 
005370,000478: 04,2267           02326        POSGN              TC       SIGNTEST                              
005371,000479: 04,2270           02273                           TC       +ON                                   
005372,000480: 04,2271           37646                           CAF      ONE                                   
005373,000481: 04,2272           02257                           TC       BOTHSGN                               
005374,000482: 
005375,000483: 04,2273           22002        +ON                LXCH     Q                                     
005376,000484: 04,2274           02205                           TC       GETINREL                              
005377,000485: 04,2275           50123                           INDEX    INREL                                 
005378,000486: 04,2276           32321                           CAF      SGNTAB     -2                         
005379,000487: 04,2277           54107                           TS       SGNOFF                                
005380,000488: 04,2300           67646                           AD       ONE                                   
005381,000489: 04,2301           54106                           TS       SGNON                                 
005382,000490: 04,2302           37653        SGNCOM             CAF      ZERO                                  
005383,000491: 04,2303           54110                           TS       CODE                                  
005384,000492: 04,2304           56107                           XCH      SGNOFF                                
005385,000493: 04,2305           03241                           TC       11DSPIN                               
005386,000494: 04,2306           37634                           CAF      BIT11                                 
005387,000495: 04,2307           54110                           TS       CODE                                  
005388,000496: 04,2310           56106                           XCH      SGNON                                 
005389,000497: 04,2311           03241                           TC       11DSPIN                               
005390,000498: 04,2312           00001                           TC       L                                     
005391,000499: 04,2313           22002        -ON                LXCH     Q                                     
005392,000500: 04,2314           02205                           TC       GETINREL                              
005393,000501: 04,2315           50123                           INDEX    INREL                                 
005394,000502: 04,2316           32321                           CAF      SGNTAB     -2                         
005395,000503: 04,2317           54106                           TS       SGNON                                 
005396,000504: 04,2320           67646                           AD       ONE                                   
005397,000505: 04,2321           54107                           TS       SGNOFF                                
005398,000506: 04,2322           02302                           TC       SGNCOM                                
005399,000507: 
005400,000508: 04,2323           00005        SGNTAB             OCT      5                                     #  -R1

Page 145

005402,000510: 04,2324           00003                           OCT      3                                     #  -R2
005403,000511: 04,2325           00000                           OCT      0                                     #  -R3
005404,000512: 
005405,000513: 
005406,000514: 
005407,000515: 04,2326           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
005408,000516: 04,2327           44444                           CS       R1D1                                  #  R2D1, OR R3D1.
005409,000517: 04,2330           02336                           TC       SGNTST1                               
005410,000518: 04,2331           44445                           CS       R2D1                                  
005411,000519: 04,2332           02336                           TC       SGNTST1                               
005412,000520: 04,2333           44446                           CS       R3D1                                  
005413,000521: 04,2334           02336                           TC       SGNTST1                               
005414,000522: 04,2335           04205                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
005415,000523: 04,2336           60637        SGNTST1            AD       DSPCOUNT                              
005416,000524: 04,2337           00006                           EXTEND                                         
005417,000525: 04,2340           12342                           BZF      +2                                    #  MATCH FOUND
005418,000526: 04,2341           00002                           TC       Q                                     
005419,000527: 04,2342           00001                           TC       L                                     #  SIGN LEGAL
005420,000528: 
005421,000529: 
005422,000530: 
005423,000531:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
005424,000532:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR, TEMP, GIMBAL
005425,000533:                                                                                                  #  LOCK, PROG ALM, TRACKER.
005426,000534:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
005427,000535:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
005428,000536: 
005429,000537: 04,2343           56101        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
005430,000538: 04,2344           54652                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
005431,000539: 04,2345           37630                           CAF      BIT15                                 #  TURNS OFF  AUTO, HOLD, FREE, NO ATT,
005432,000540: 04,2346           54675                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, TRACKER, PROG ALM.
005433,000541: 04,2347           47635                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
005434,000542: 04,2350           00006                           EXTEND                                         
005435,000543: 04,2351           03013                           WAND     CHAN13                                
005436,000544: 04,2352           42405                           CS       ERCON                                 #  TURNS OFF  UPLINK ACTIVITY, TEMP,
005437,000545: 04,2353           00006                           EXTEND                                         #  OPERATOR ERROR.
005438,000546: 04,2354           03011                           WAND     DSALMOUT                              
005439,000547: 04,2355           34511        TSTAB              CAF      BINCON                                #  (DEC 10)
005440,000548: 04,2356           54103                           TS       ERCNT                                 #  ERCNT = COUNT
005441,000549: 04,2357           00004                           INHINT                                         
005442,000550: 04,2360           50103                           INDEX    ERCNT                                 
005443,000551: 04,2361           10662                           CCS      DSPTAB                                
005444,000552: 04,2362           67646                           AD       ONE                                   
005445,000553: 04,2363           02370                           TC       ERPLUS                                
005446,000554: 04,2364           67646                           AD       ONE                                   
005447,000555: 04,2365           40000        ERMINUS            CS       A                                     
005448,000556: 04,2366           72406                           MASK     NOTBIT12                              
005449,000557: 04,2367           02373                           TC       ERCOM                                 
005450,000558: 04,2370           40000        ERPLUS             CS       A                                     
005451,000559: 04,2371           72406                           MASK     NOTBIT12                              

Page 146

005453,000561: 04,2372           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
005454,000562: 04,2373           50103        ERCOM              INDEX    ERCNT                                 #  ETC.
005455,000563: 04,2374           54662                           TS       DSPTAB                                
005456,000564: 04,2375           00003                           RELINT                                         
005457,000565: 04,2376           10103                           CCS      ERCNT                                 
005458,000566: 04,2377           02356                           TC       TSTAB      +1                         
005459,000567: 04,2400           37653                           CAF      ZERO                                  
005460,000568: 04,2401           54721                           TS       FAILREG                               
005461,000569: 04,2402           55021                           TS       OLDERR                                
005462,000570: 04,2403           55044                           TS       SFAIL                                 
005463,000571: 04,2404           04205                           TC       ENDOFJOB                              
005464,000572: 
005465,000573: 04,2405           00114        ERCON              OCT      00114                                 #  CHAN 11 BIT 3,4,7.
005466,000574:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR
005467,000575:                                                                                                  #  ERROR.
005468,000576: 04,2406           73777        NOTBIT12           OCT      73777                                 
005469,000577: 
005470,000578: 
005471,000579: 
005472,000580:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
005473,000581:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
005474,000582:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
005475,000583: 
005476,000584:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
005477,000585:                                                                                                  #  APPROPRIATE TO BE CLEARED.
005478,000586: 
005479,000587:                                                                                                  #  CLPASS   +0 PASS0, CAN BE BACKED UP
005480,000588:                                                                                                  #           +NZ HIPASS, CAN BE BACKED UP
005481,000589:                                                                                                  #           -NZ PASS0, CANNOT BE BACKED UP
005482,000590: 
005483,000591: 04,2407           10637        CLEAR              CCS      DSPCOUNT                              
005484,000592: 04,2410           67646                           AD       ONE                                   
005485,000593: 04,2411           02413                           TC       +2                                    
005486,000594: 04,2412           67646                           AD       ONE                                   
005487,000595: 04,2413           54637                           TS       DSPCOUNT                              #  MAG OF DSPCOUNT
005488,000596: 04,2414           02205                           TC       GETINREL                              #  MUST SET INREL, EVEN FOR HIPASS
005489,000597: 04,2415           10655                           CCS      CLPASS                                
005490,000598: 04,2416           02424                           TC       CLPASHI                               #  +
005491,000599: 04,2417           02421                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
005492,000600: 04,2420           02421                           TC       +1                                    #  -
005493,000601: 04,2421           30123                           CA       INREL                                 
005494,000602: 04,2422           02446                           TC       LEGALTST                              
005495,000603: 04,2423           02441                           TC       CLEAR1                                
005496,000604: 04,2424           10123        CLPASHI            CCS      INREL                                 
005497,000605: 04,2425           54123                           TS       INREL                                 
005498,000606: 04,2426           02446                           TC       LEGALTST                              
005499,000607: 04,2427           32515                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
005500,000608: 04,2430           26653                           ADS      REQRET                                
005501,000609: 04,2431           30123                           CA       INREL                                 
005502,000610: 04,2432           54111                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL

Page 147

005504,000612: 04,2433           00006                           EXTEND                                         
005505,000613: 04,2434           26641                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
005506,000614: 04,2435           04063                           TC       BANKCALL                              
005507,000615: 04,2436           12315                           CADR     UPDATVB                               
005508,000616: 04,2437           30111                           CA       MIXTEMP                               
005509,000617: 04,2440           54123                           TS       INREL                                 #  RESTORE INREL
005510,000618: 04,2441           02444        CLEAR1             TC       CLR5                                  
005511,000619: 04,2442           24655                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
005512,000620: 04,2443           04205                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
005513,000621: 04,2444           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
005514,000622: 04,2445           02456                           TC       5BLANK     +2                         
005515,000623: 04,2446           67656        LEGALTST           AD       NEG2                                  
005516,000624: 04,2447           10000                           CCS      A                                     
005517,000625: 04,2450           00002                           TC       Q                                     #  LEGAL  INREL G/ 2
005518,000626: 04,2452                                           LOC      +1                                    
005519,000627: 04,2452           04205                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
005520,000628: 04,2453           00002                           TC       Q                                     #  LEGAL    INREL = 2
005521,000629: 
005522,000630: 
005523,000631: 
005524,000632:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
005525,000633:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
005526,000634:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
005527,000635: 
005528,000636: 04,2454           22002        5BLANK             LXCH     Q                                     
005529,000637: 04,2455           02205                           TC       GETINREL                              
005530,000638: 04,2456           37653                           CAF      ZERO                                  
005531,000639: 04,2457           50123                           INDEX    INREL                                 
005532,000640: 04,2460           54641                           TS       VERBREG                               #  ZERO X, Y, Z REG.
005533,000641: 04,2461           50123                           INDEX    INREL                                 
005534,000642: 04,2462           54644                           TS       XREGLP     -2                         
005535,000643: 04,2463           54110                           TS       CODE                                  
005536,000644: 04,2464           50123                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
005537,000645: 04,2465           47640                           CS       BIT7                                  #  PROTECT OTHERS
005538,000646: 04,2466           70640                           MASK     DECBRNCH                              
005539,000647: 04,2467           72516                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
005540,000648: 04,2470           54640                           TS       DECBRNCH                              
005541,000649: 04,2471           50123                           INDEX    INREL                                 
005542,000650: 04,2472           32506                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
005543,000651: 04,2473           54127                           TS       COUNT                                 
005544,000652: 04,2474           03157                           TC       DSPIN                                 
005545,000653: 04,2475           50123        5BLANK1            INDEX    INREL                                 
005546,000654: 04,2476           32511                           CAF      DOUBLK     -2                         
005547,000655: 04,2477           54637                           TS       DSPCOUNT                              
005548,000656: 04,2500           02517                           TC       2BLANK                                
005549,000657: 04,2501           47645                           CS       TWO                                   
005550,000658: 04,2502           26637                           ADS      DSPCOUNT                              
005551,000659: 04,2503           02517                           TC       2BLANK                                
005552,000660: 04,2504           50123                           INDEX    INREL                                 
005553,000661: 04,2505           34442                           CAF      R1D1       -2                         

Page 148

005555,000663: 04,2506           54637                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
005556,000664: 04,2507           00001                           TC       L                                     #  OF REG. JUST BLANKED
005557,000665: 
005558,000666: 04,2510           00016        SINBLANK           OCT      16                                    #  DEC 14
005559,000667: 04,2511           00005                           OCT      5                                     
005560,000668: 04,2512           00004                           OCT      4                                     
005561,000669: 04,2513           00015        DOUBLK             OCT      15                                    #  DEC 13
005562,000670: 04,2514           00011                           OCT      11                                    #  DEC 9
005563,000671: 04,2515           00003                           OCT      3                                     
005564,000672: 
005565,000673: 04,2516           77774        BRNCHCON           OCT      77774                                 
005566,000674: 
005567,000675:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
005568,000676:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
005569,000677: 
005570,000678: 04,2517           30637        2BLANK             CA       DSPCOUNT                              
005571,000679: 04,2520           54021                           TS       SR                                    
005572,000680: 04,2521           42532                           CS       BLANKCON                              
005573,000681: 04,2522           00004                           INHINT                                         
005574,000682: 04,2523           50021                           INDEX    SR                                    
005575,000683: 04,2524           56662                           XCH      DSPTAB                                
005576,000684: 04,2525           00006                           EXTEND                                         
005577,000685: 04,2526           62530                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
005578,000686: 04,2527           24656                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
005579,000687: 04,2530           00003                           RELINT                                         #  IF -,NOUT OK
005580,000688: 04,2531           00002                           TC       Q                                     
005581,000689: 04,2532           04000        BLANKCON           OCT      4000                                  
005582,000690: 

Page 149

005584,000692:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
005585,000693:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
005586,000694:                                                                                                  #  PASSES.
005587,000695: 
005588,000696: 
005589,000697: 
005590,000698:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
005591,000699:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
005592,000700:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
005593,000701: 
005594,000702: 
005595,000703: 
005596,000704: 05,2000                                           SETLOC   22000                                 
005597,000705: 
005598,000706: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
005599,000707: 05,2001           13403        DSPMM              TCF      DSPMM1                                
005600,000708: 05,2002           02663        LOADLV1            TC       LOADLV                                
005601,000709:                                                                                                  #  END OF STANDARD LEAD INS.
005602,000710: 
005603,000711: 
005604,000712: 
005605,000713: 05,2003           37653        ENTER              CAF      ZERO                                  
005606,000714: 05,2004           54655                           TS       CLPASS                                
005607,000715: 05,2005           34417                           CAF      ENDINST                               
005608,000716: 05,2006           54122                           TS       ENTRET                                
005609,000717: 05,2007           10653                           CCS      REQRET                                
005610,000718: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
005611,000719: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
005612,000720: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
005613,000721: 05,2013           36165                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
005614,000722: 05,2014           70640                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
005615,000723: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
005616,000724: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
005617,000725: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
005618,000726: 05,2020           10637                           CCS      DSPCOUNT                              
005619,000727: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
005620,000728: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
005621,000729: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
005622,000730: 05,2024           40653        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
005623,000731: 05,2025           54653                           TS       REQRET                                #  SET REQRET +.
005624,000732: 05,2026           04547                           TC       FLASHOFF                              
005625,000733: 05,2027           00653                           TC       REQRET                                
005626,000734: 
005627,000735: 05,2030     0122               ENTEXIT            =        ENTRET                                
005628,000736: 
005629,000737: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
005630,000738: 
005631,000739: 05,2031           37653        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
005632,000740: 05,2032           54640                           TS       DECBRNCH                              
005633,000741: 05,2033           40641        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST

Page 150

005635,000743: 05,2034           62030                           AD       LOWVERB                               #  30-VB
005636,000744: 05,2035           00006                           EXTEND                                         
005637,000745: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/E 30
005638,000746: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
005639,000747: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
005640,000748: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
005641,000749: 05,2042           50124                           INDEX    MIXBR                                 
005642,000750: 05,2043           02043                           TC       +0                                    
005643,000751: 05,2044           02046                           TC       +2                                    #  NORMAL
005644,000752: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
005645,000753: 05,2046           10132                           CCS      NNADTEM                               #  NORMAL
005646,000754: 05,2047           02114                           TC       VERBFAN    -2                         #       NORMAL  IF +
005647,000755: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE    IF +0
005648,000756: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
005649,000757: 05,2052           24657                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
005650,000758: 05,2053           04436                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
005651,000759: 05,2054           02102                           TC       INTMCTBS   +2                         
005652,000760: 05,2055           37630        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
005653,000761: 05,2056           54655                           TS       CLPASS                                
005654,000762: 05,2057           44417                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
005655,000763: 05,2060           60122                           AD       ENTEXIT                               #              FROM EXTERNAL
005656,000764: 05,2061           00006                           EXTEND                                         
005657,000765: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
005658,000766: 05,2063           02100                           TC       INTMCTBS                              
005659,000767: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
005660,000768: 05,2065           10640                           CCS      DECBRNCH                              
005661,000769: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
005662,000770: 05,2067           56645                           XCH      ZREG                                  #  OCTAL USED    OK
005663,000771: 05,2070           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
005664,000772: 05,2071           00006                           EXTEND                                         
005665,000773: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
005666,000774: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
005667,000775: 05,2074           02116                           TC       VERBFAN                               
005668,000776: 
005669,000777: 05,2075     0637                                  EBANK=   DSPCOUNT                              
005670,000778: 05,2075           02000 14001  LODNNLOC           2CADR    LODNNTAB                              
005671,000779: 
005672,000780: 05,2077           77772        NEG5               OCT      77772                                 
005673,000781: 
005674,000782: 05,2100           30142        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
005675,000783: 05,2101           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
005676,000784: 05,2102           47643                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
005677,000785: 05,2103           70641                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
005678,000786: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
005679,000787: 05,2105           00006                           EXTEND                                         
005680,000788: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
005681,000789: 05,2107           34446                           CAF      R3D1                                  #  VB NOT = 05 OR 15, DISPLAY CADR.
005682,000790: 05,2110           54637                           TS       DSPCOUNT                              
005683,000791: 05,2111           30657                           CA       NOUNCADR                              
005684,000792: 05,2112           03222                           TC       DSPOCTWD                              

Page 151

005686,000794: 05,2113           02116                           TC       VERBFAN                               
005687,000795: 
005688,000796: 05,2114           67646                           AD       ONE                                   
005689,000797: 05,2115           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
005690,000798: 05,2116           42131        VERBFAN            CS       LST2CON                               
005691,000799: 05,2117           60641                           AD       VERBREG                               #  VERB-LST2CON
005692,000800: 05,2120           10000                           CCS      A                                     
005693,000801: 05,2121           67646                           AD       ONE                                   #  VERB G/ LST2CON
005694,000802: 05,2122           02124                           TC       +2                                    
005695,000803: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
005696,000804: 05,2124           54140                           TS       MPAC                                  
005697,000805: 05,2125           04610                           TC       RELDSP                                #  RELEASE DISPLAY SYST
005698,000806: 05,2126           56140                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
005699,000807: 05,2127           62132                           AD       LST2CADR                              
005700,000808: 05,2130           04105                           TC       BANKJUMP                              
005701,000809: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
005702,000810: 05,2132           11255        LST2CADR           CADR     DSPALARM                              #  **FIX LATER**
005703,000811: 
005704,000812: 05,2133           50641        VBFANDIR           INDEX    VERBREG                               
005705,000813: 05,2134           32136                           CAF      VERBTAB                               
005706,000814: 05,2135           04105                           TC       BANKJUMP                              
005707,000815: 
005708,000816: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
005709,000817: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
005710,000818: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
005711,000819: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
005712,000820: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
005713,000821: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
005714,000822: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
005715,000823: 05,2145           10662                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
005716,000824: 05,2146           11255                           CADR     DSPALARM                              #  VB10 SPARE
005717,000825: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
005718,000826: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
005719,000827: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
005720,000828: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
005721,000829: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
005722,000830: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
005723,000831: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
005724,000832: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
005725,000833: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
005726,000834: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
005727,000835: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
005728,000836: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
005729,000837: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
005730,000838: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
005731,000839: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
005732,000840:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
005733,000841: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
005734,000842: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
005735,000843: 05,2170           11303                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2

Page 152

005737,000845: 05,2171           11266                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
005738,000846: 05,2172           11273                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
005739,000847: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
005740,000848: 05,2174           02677                           CADR     SLAP1                                 #  VB36 FRESH START
005741,000849: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
005742,000850: 
005743,000851: 
005744,000852: 
005745,000853:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
005746,000854: 

Page 153

005748,000856:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
005749,000857:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
005750,000858:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
005751,000859:                                                                                                  #   MIXTEMP.
005752,000860: 
005753,000861: 05,2176           10132        MIXNOUN            CCS      NNADTEM                               
005754,000862: 05,2177           02203                           TC       +4                                    #  +  IN USE
005755,000863: 05,2200           02324                           TC       GODSPALM                              #  +0  NOT IN USE
005756,000864: 05,2201           02203                           TC       +2                                    #  -  IN USE
005757,000865: 05,2202           02203                           TC       +1                                    #  -0  IN USE
005758,000866: 05,2203           46162                           CS       SIX                                   
005759,000867: 05,2204           60641                           AD       VERBREG                               
005760,000868: 05,2205           00006                           EXTEND                                         
005761,000869: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
005762,000870: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
005763,000871: 05,2210           37645                           CAF      TWO                                   
005764,000872: 05,2211           54103        MIXNN1             TS       DECOUNT                               
005765,000873: 05,2212           62235                           AD       MIXAD                                 
005766,000874: 05,2213           54131                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
005767,000875: 05,2214           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
005768,000876: 05,2215           30134                           CA       IDAD1TEM                              #  OF NOUN.
005769,000877: 05,2216           54106                           TS       NOUNTEM                               
005770,000878:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
005771,000879:                                                                                                  #    MINOR PART ONLY.
005772,000880: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
005773,000881: 05,2220           02236                           TC       DPTEST                                
005774,000882: 05,2221           02223                           TC       MIXNN2                                #  NO DP
005775,000883: 05,2222           24106                           INCR     NOUNTEM                               #  DP GET MINOR PART
005776,000884: 05,2223           30106        MIXNN2             CA       NOUNTEM                               
005777,000885: 05,2224           74503                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
005778,000886: 05,2225           04440                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
005779,000887: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
005780,000888: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
005781,000889: 05,2230           50131                           INDEX    NOUNADD                               
005782,000890: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
005783,000891: 05,2232           10103                           CCS      DECOUNT                               
005784,000892: 05,2233           02211                           TC       MIXNN1                                
005785,000893: 05,2234           02116                           TC       VERBFAN                               
005786,000894: 
005787,000895: 05,2235           00111        MIXAD              TC       MIXTEMP                               
005788,000896: 
005789,000897: 
005790,000898: 
005791,000899:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
005792,000900:                                                                                                  #           RETURNS TO L+1 IF NO DP.
005793,000901:                                                                                                  #           RETURNS TO L+2 IF DP.
005794,000902: 
005795,000903: 05,2236           50000        DPTEST             INDEX    A                                     
005796,000904: 05,2237           12240                           TCF      +1                                    
005797,000905: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY NO DP

Page 154

005799,000907: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
005800,000908: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
005801,000909: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
005802,000910: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
005803,000911: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
005804,000912: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
005805,000913: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
005806,000914: 05,2250           50002        DPTEST1            INDEX    Q                                     
005807,000915: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
005808,000916: 
005809,000917: 
005810,000918: 
005811,000919: 05,2252           34444        REQDATX            CAF      R1D1                                  
005812,000920: 05,2253           12257                           TCF      REQCOM                                
005813,000921: 05,2254           34445        REQDATY            CAF      R2D1                                  
005814,000922: 05,2255           12257                           TCF      REQCOM                                
005815,000923: 05,2256           34446        REQDATZ            CAF      R3D1                                  
005816,000924: 05,2257           54637        REQCOM             TS       DSPCOUNT                              
005817,000925: 05,2260           40002                           CS       Q                                     
005818,000926: 05,2261           54653                           TS       REQRET                                
005819,000927: 05,2262           04063                           TC       BANKCALL                              
005820,000928: 05,2263           10454                           CADR     5BLANK                                
005821,000929: 05,2264           04543                           TC       FLASHON                               
005822,000930: 05,2265           44417                           CS       ENDINST                               
005823,000931: 05,2266           60122                           AD       ENTEXIT                               
005824,000932: 05,2267           00006                           EXTEND                                         
005825,000933: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
005826,000934: 05,2271           47653                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
005827,000935: 05,2272           54676                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
005828,000936: 05,2273           00122        ENDRQDAT           TC       ENTEXIT                               
005829,000937: 
005830,000938:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
005831,000939:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
005832,000940: 
005833,000941: 
005834,000942: 
005835,000943: 05,2274           54642                           TS       NOUNREG                               
005836,000944: 05,2275           56002        UPDATNN            XCH      Q                                     
005837,000945: 05,2276           54103                           TS       UPDATRET                              
005838,000946: 05,2277           00006                           EXTEND                                         
005839,000947: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
005840,000948: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
005841,000949: 05,2302           10132                           CCS      NNADTEM                               
005842,000950: 05,2303           67646                           AD       ONE                                   #  NORMAL
005843,000951: 05,2304           12307                           TCF      PUTADD                                
005844,000952: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
005845,000953: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
005846,000954: 05,2307           04430        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
005847,000955: 05,2310           34507                           CAF      ND1                                   
005848,000956: 05,2311           54637                           TS       DSPCOUNT                              

Page 155

005850,000958: 05,2312           30642                           CA       NOUNREG                               
005851,000959: 05,2313           12322                           TCF      UPDAT1                                
005852,000960: 
005853,000961: 05,2314           54641                           TS       VERBREG                               
005854,000962: 05,2315           56002        UPDATVB            XCH      Q                                     
005855,000963: 05,2316           54103                           TS       UPDATRET                              
005856,000964: 05,2317           34506                           CAF      VD1                                   
005857,000965: 05,2320           54637                           TS       DSPCOUNT                              
005858,000966: 05,2321           30641                           CA       VERBREG                               
005859,000967: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
005860,000968: 05,2323           00103                           TC       UPDATRET                              
005861,000969: 
005862,000970: 
005863,000971: 
005864,000972: 05,2324           04102        GODSPALM           TC       POSTJUMP                              
005865,000973: 05,2325           11255                           CADR     DSPALARM                              
005866,000974: 

Page 156

005868,000976:                                                                                                  #           NOUN   TABLES
005869,000977:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
005870,000978:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
005871,000979:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
005872,000980:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
005873,000981:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
005874,000982: 
005875,000983:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
005876,000984:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
005877,000985: 
005878,000986:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
005879,000987: 
005880,000988:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
005881,000989:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
005882,000990:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
005883,000991: 
005884,000992:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
005885,000993:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
005886,000994:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
005887,000995:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
005888,000996:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
005889,000997:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
005890,000998: 
005891,000999:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
005892,001000:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
005893,001001:                                                                                                  #  THE FIRST OF THESE ENTRIES.
005894,001002:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
005895,001003:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
005896,001004: 
005897,001005:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
005898,001006:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
005899,001007:                                                                                                  #        QQQQQRRRRRSSSSS
005900,001008:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
005901,001009:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
005902,001010:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
005903,001011:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
005904,001012:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
005905,001013: 
005906,001014: 
005907,001015: 
005908,001016:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
005909,001017:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
005910,001018:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
005911,001019:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
005912,001020:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
005913,001021: 
005914,001022: 
005915,001023: 
005916,001024:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
005917,001025:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
005918,001026: 

Page 157

005920,001028:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
005921,001029:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
005922,001030: 

Page 158

005924,001032:                                                                                                  #           DISPLAY VERBS
005925,001033: 05,2326           47645        DSPABC             CS       TWO                                   
005926,001034: 05,2327           02376                           TC       COMPTEST                              
005927,001035: 05,2330           50131                           INDEX    NOUNADD                               
005928,001036: 05,2331           40002                           CS       2                                     
005929,001037: 05,2332           56116                           XCH      BUF        +2                         
005930,001038: 05,2333           47646        DSPAB              CS       ONE                                   
005931,001039: 05,2334           02376                           TC       COMPTEST                              
005932,001040: 05,2335           50131                           INDEX    NOUNADD                               
005933,001041: 05,2336           40001                           CS       1                                     
005934,001042: 05,2337           56115                           XCH      BUF        +1                         
005935,001043: 05,2340           02420        DSPA               TC       TSTFORDP                              
005936,001044: 05,2341           50131                           INDEX    NOUNADD                               
005937,001045: 05,2342           40000                           CS       0                                     
005938,001046: 05,2343           56114        DSPCOM1            XCH      BUF                                   
005939,001047: 05,2344           02357                           TC       DSPCOM2                               
005940,001048: 05,2345           47646        DSPB               CS       ONE                                   
005941,001049: 05,2346           02376                           TC       COMPTEST                              
005942,001050: 05,2347           50131                           INDEX    NOUNADD                               
005943,001051: 05,2350           40001                           CS       1                                     
005944,001052: 05,2351           02343                           TC       DSPCOM1                               
005945,001053: 05,2352           47645        DSPC               CS       TWO                                   
005946,001054: 05,2353           02376                           TC       COMPTEST                              
005947,001055: 05,2354           50131                           INDEX    NOUNADD                               
005948,001056: 05,2355           40002                           CS       2                                     
005949,001057: 05,2356           02343                           TC       DSPCOM1                               
005950,001058: 05,2357           47645        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
005951,001059: 05,2360           60641                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
005952,001060: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
005953,001061: 05,2362           02365                           TC       DSPCOM3                               
005954,001062: 05,2363           00122                           TC       ENTEXIT                               
005955,001063: 05,2364           02365                           TC       +1                                    
005956,001064: 05,2365           54106        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
005957,001065: 05,2366           50000                           INDEX    A                                     
005958,001066: 05,2367           34444                           CAF      R1D1                                  
005959,001067: 05,2370           54637                           TS       DSPCOUNT                              
005960,001068: 05,2371           50106                           INDEX    DISTEM                                
005961,001069: 05,2372           40114                           CS       BUF                                   
005962,001070: 05,2373           03222                           TC       DSPOCTWD                              
005963,001071: 05,2374           56106                           XCH      DISTEM                                
005964,001072: 05,2375           02361                           TC       DSPCOM2    +2                         
005965,001073: 
005966,001074:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
005967,001075:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
005968,001076:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
005969,001077: 05,2376           54107        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
005970,001078: 05,2377           22002                           LXCH     Q                                     
005971,001079: 05,2400           47646        COMPTST1           CS       ONE                                   
005972,001080: 05,2401           60642                           AD       NOUNREG                               
005973,001081: 05,2402           00006                           EXTEND                                         

Page 159

005975,001083: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
005976,001084: 05,2404           50124                           INDEX    MIXBR                                 #  NOUN NOT = 01.
005977,001085: 05,2405           32442                           CAF      COMPICK    -1                         
005978,001086: 05,2406           50000                           INDEX    A                                     
005979,001087: 05,2407           30000                           CA       0                                     
005980,001088: 05,2410           74475                           MASK     HI5                                   
005981,001089: 05,2411           04456                           TC       LEFT5                                 #  NOUN COMP
005982,001090: 05,2412           60107                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
005983,001091: 05,2413           10000                           CCS      A                                     
005984,001092: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
005985,001093: 05,2416                                           LOC      +1                                    
005986,001094: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
005987,001095: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
005988,001096: 
005989,001097: 
005990,001098: 
005991,001099: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
005992,001100: 05,2421           30132                           CA       NNADTEM                               
005993,001101: 05,2422           67646                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
005994,001102: 05,2423           00006                           EXTEND                                         
005995,001103: 05,2424           12436                           BZF      CHANDSP                               
005996,001104: 05,2425           50124                           INDEX    MIXBR                                 
005997,001105: 05,2426           02426                           TC       +0                                    
005998,001106: 05,2427           02431                           TC       +2                                    #  NORMAL
005999,001107: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
006000,001108: 05,2431           02713                           TC       SFRUTNOR                              
006001,001109: 05,2432           02236                           TC       DPTEST                                
006002,001110: 05,2433           00001                           TC       L                                     #  NO DP
006003,001111: 05,2434           24131                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
006004,001112: 05,2435           00001                           TC       L                                     
006005,001113: 
006006,001114: 
006007,001115: 
006008,001116: 05,2436           00006        CHANDSP            EXTEND                                         
006009,001117: 05,2437           50657                           INDEX    NOUNCADR                              
006010,001118: 05,2440           00000                           READ     0                                     
006011,001119: 05,2441           40000                           CS       A                                     
006012,001120: 05,2442           12343                           TCF      DSPCOM1                               
006013,001121: 
006014,001122: 
006015,001123: 
006016,001124: 05,2443           00133        COMPICK            ADRES    NNTYPTEM                              
006017,001125: 05,2444           00132                           ADRES    NNADTEM                               
006018,001126: 
006019,001127: 05,2445           50124        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
006020,001128: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
006021,001129: 05,2447           50000                           INDEX    A                                     
006022,001130: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
006023,001131: 05,2451           74475                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
006024,001132: 05,2452           04456                           TC       LEFT5                                 

Page 160

006026,001134: 05,2453           54103                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
006027,001135: 05,2454           54106        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
006028,001136: 05,2455           60131                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
006029,001137: 05,2456           50000                           INDEX    A                                     
006030,001138: 05,2457           40000                           CS       0                                     
006031,001139: 05,2460           50106                           INDEX    DECTEM                                
006032,001140: 05,2461           56643                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
006033,001141: 05,2462           10106                           CCS      DECTEM                                
006034,001142: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
006035,001143: 05,2464           37653        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
006036,001144: 05,2465           54141                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
006037,001145: 05,2466           54142                           TS       MPAC       +2                         
006038,001146: 05,2467           50103                           INDEX    DECOUNT                               
006039,001147: 05,2470           34444                           CAF      R1D1                                  
006040,001148: 05,2471           54637                           TS       DSPCOUNT                              
006041,001149: 05,2472           50103                           INDEX    DECOUNT                               
006042,001150: 05,2473           40643                           CS       XREG                                  
006043,001151: 05,2474           54140                           TS       MPAC                                  
006044,001152: 05,2475           02734                           TC       SFCONUM                               #  2X ( SF CON NUMB ) IN A
006045,001153: 05,2476           54107                           TS       SFTEMP1                               
006046,001154: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
006047,001155: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
006048,001156: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
006049,001157: 05,2502           50124                           INDEX    MIXBR                                 
006050,001158: 05,2503           02503                           TC       +0                                    
006051,001159: 05,2504           02507                           TC       DSPSFNOR                              
006052,001160: 05,2505           02721                           TC       SFRUTMIX                              
006053,001161: 05,2506           02522                           TC       DECDSP3                               
006054,001162: 
006055,001163: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
006056,001164: 05,2510           02522                           TC       DECDSP3                               
006057,001165: 
006058,001166: 05,2511     0637                                  EBANK=   DSPCOUNT                              
006059,001167: 05,2511           02037 14001  GTSFOUTL           2CADR    GTSFOUT                               
006060,001168: 
006061,001169: 
006062,001170: 
006063,001171: 05,2513           04063        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
006064,001172: 05,2514           11057                           CADR     DSPDECWD                              
006065,001173: 05,2515           10103                           CCS      DECOUNT                               
006066,001174: 05,2516           02520                           TC       +2                                    
006067,001175: 05,2517           00122                           TC       ENTEXIT                               
006068,001176: 05,2520           54103                           TS       DECOUNT                               
006069,001177: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
006070,001178: 
006071,001179: 
006072,001180: 
006073,001181: 05,2522           50000        DECDSP3            INDEX    A                                     
006074,001182: 05,2523           32525                           CAF      SFOUTABR                              
006075,001183: 05,2524           04105                           TC       BANKJUMP                              
006076,001184: 

Page 161

006078,001186: 05,2525           11255        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
006079,001187: 05,2526           12513                           CADR     DSPDCEND                              
006080,001188: 05,2527           10533                           CADR     DEGOUTSF                              
006081,001189: 05,2530           10620                           CADR     ARTOUTSF                              
006082,001190: 05,2531           10625                           CADR     DP1OUTSF                              
006083,001191: 05,2532           10632                           CADR     DP2OUTSF                              
006084,001192: 05,2533           10541                           CADR     OPDEGOUT                              
006085,001193: 05,2534           10634                           CADR     DP3OUTSF                              
006086,001194: 05,2535                        ENDRTOUT           EQUALS                                         
006087,001195: 
006088,001196: 
006089,001197: 
006090,001198:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
006091,001199:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
006092,001200: 
006093,001201: 
006094,001202: 
006095,001203: 04,2533                                           SETLOC   BLANKCON   +1                         
006096,001204: 
006097,001205:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
006098,001206:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
006099,001207: 
006100,001208: 04,2533           37653        DEGOUTSF           CAF      ZERO                                  
006101,001209: 04,2534           54142                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
006102,001210: 04,2535           02572                           TC       FIXRANGE                              
006103,001211: 04,2536           02540                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
006104,001212: 04,2537           02565                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
006105,001213: 04,2540           02603                           TC       DEGCOM                                
006106,001214: 
006107,001215:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
006108,001216: 
006109,001217: 04,2541           10140        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
006110,001218: 04,2542           56140                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
006111,001219: 04,2543           02546                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
006112,001220: 04,2544           02555                           TC       NEGOPT                                #  IF NEG NON ZERO
006113,001221: 04,2545           67655                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
006114,001222: 04,2546           62617                           AD       20BIAS                                
006115,001223: 04,2547           54140        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
006116,001224: 04,2550           02553                           TC       +3                                    #  NO OVFLOW
006117,001225: 04,2551           37630                           CAF      BIT15                                 #  IF OVFLOW
006118,001226: 04,2552           26140                           ADS      MPAC                                  
006119,001227: 04,2553           37645                           CAF      TWO                                   #  SET MULTIPLIER TO .45
006120,001228: 04,2554           02534                           TC       DEGOUTSF   +1                         
006121,001229: 
006122,001230: 04,2555           56140        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
006123,001231: 04,2556           62617                           AD       20BIAS                                
006124,001232: 04,2557           10000                           CCS      A                                     
006125,001233: 04,2560           02547                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
006126,001234: 04,2562                                           LOC      +1                                    
006127,001235: 04,2562           67646                           AD       ONE                                   #  IF NEG RESTORE SUM
006128,001236: 

Page 162

006130,001238: 04,2563           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
006131,001239: 04,2564           02547                           TC       BIASCOM                               
006132,001240: 
006133,001241: 04,2565           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
006134,001242: 04,2566           50142                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
006135,001243: 04,2567           32614                           DCA      DEGTAB                                
006136,001244: 04,2570           52110                           DXCH     SFTEMP1                               
006137,001245: 04,2571           00002                           TC       Q                                     
006138,001246: 
006139,001247: 04,2572           10140        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
006140,001248: 04,2573           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
006141,001249: 04,2574           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
006142,001250: 04,2575           12576                           TCF      +1                                    
006143,001251: 04,2576           47630                           CS       BIT15                                 
006144,001252: 04,2577           70140                           MASK     MPAC                                  
006145,001253: 04,2600           54140                           TS       MPAC                                  
006146,001254: 04,2601           50002                           INDEX    Q                                     
006147,001255: 04,2602           00001                           TC       1                                     
006148,001256: 
006149,001257: 04,2603           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
006150,001258: 04,2604           50142                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
006151,001259: 04,2605           32614                           DCA      DEGTAB                                
006152,001260: 04,2606           52141                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
006153,001261: 04,2607           07257                           TC       SHORTMP                               
006154,001262: 04,2610           52110                           DXCH     SFTEMP1                               
006155,001263: 04,2611           20141                           DAS      MPAC                                  
006156,001264: 04,2612           02623                           TC       SCOUTEND                              
006157,001265: 
006158,001266: 
006159,001267: 
006160,001268: 04,2613           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
006161,001269: 04,2614           03656                           OCT      03656                                 #  LOW PART OF    .18
006162,001270: 04,2615           16314                           OCT      16314                                 #  HI PART OF     .45
006163,001271: 04,2616           31463                           OCT      31463                                 #  LO PART OF     .45
006164,001272: 
006165,001273: 04,2617           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
006166,001274: 
006167,001275: 04,2620           52110        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
006168,001276: 04,2621           52141                           DXCH     MPAC                                  
006169,001277: 04,2622           07257                           TC       SHORTMP                               
006170,001278: 04,2623           04102        SCOUTEND           TC       POSTJUMP                              
006171,001279: 04,2624           12513                           CADR     DSPDCEND                              
006172,001280: 
006173,001281: 04,2625           02637        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
006174,001282: 04,2626           56142                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
006175,001283: 04,2627           56141                           XCH      MPAC       +1                         #  BY B14.
006176,001284: 04,2630           54140                           TS       MPAC                                  
006177,001285: 04,2631           02623                           TC       SCOUTEND                              
006178,001286: 

Page 163

006180,001288: 04,2632           02637        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
006181,001289: 04,2633           02623                           TC       SCOUTEND                              
006182,001290: 
006183,001291: 
006184,001292: 
006185,001293: 04,2634           02637        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
006186,001294: 04,2635           03032                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
006187,001295: 04,2636           02623                           TC       SCOUTEND                              
006188,001296: 
006189,001297: 
006190,001298: 
006191,001299:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
006192,001300:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
006193,001301: 
006194,001302: 04,2637           56002        DPOUT              XCH      Q                                     
006195,001303: 04,2640           54105                           TS       OVFIND                                
006196,001304: 04,2641           50124                           INDEX    MIXBR                                 
006197,001305: 04,2642           02642                           TC       +0                                    
006198,001306: 04,2643           02660                           TC       DPOUTNOR                              
006199,001307: 04,2644           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
006200,001308: 04,2645           30134                           CA       IDAD1TEM                              #      OF NOUN.
006201,001309: 04,2646           74503                           MASK     LOW11                                 #  E SUBK
006202,001310: 04,2647           04440                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
006203,001311: 04,2650           00006        DPOUTCOM           EXTEND                                         
006204,001312: 04,2651           50000                           INDEX    A                                     #  MIXED         NORMAL
006205,001313: 04,2652           30001                           DCA      0                                     #  C(ESUBK)      C(E)
006206,001314: 04,2653           52141                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
006207,001315: 04,2654           07062                           TC       DMP                                   
006208,001316: 04,2655           00107                           ADRES    SFTEMP1                               
006209,001317: 04,2656           07226                           TC       TPAGREE                               
006210,001318: 04,2657           00105                           TC       OVFIND                                
006211,001319: 
006212,001320: 04,2660           30131        DPOUTNOR           CA       NOUNADD                               #  E
006213,001321: 04,2661           02650                           TC       DPOUTCOM                              
006214,001322: 
006215,001323: 
006216,001324: 
006217,001325:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
006218,001326:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
006219,001327:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
006220,001328:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
006221,001329:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
006222,001330:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
006223,001331: 
006224,001332: 
006225,001333: 
006226,001334: 04,2662           50124        DSPDPDEC           INDEX    MIXBR                                 
006227,001335: 04,2663           02663                           TC       +0                                    
006228,001336: 04,2664           02666                           TC       +2                                    #  NORMAL NOUN
006229,001337: 04,2665           03255                           TC       DSPALARM                              
006230,001338: 

Page 164

006232,001340: 04,2666           00006                           EXTEND                                         
006233,001341: 04,2667           50131                           INDEX    NOUNADD                               
006234,001342: 04,2670           30001                           DCA      0                                     
006235,001343: 04,2671           52141                           DXCH     MPAC                                  
006236,001344: 04,2672           34444                           CAF      R1D1                                  
006237,001345: 04,2673           54637                           TS       DSPCOUNT                              
006238,001346: 04,2674           37653                           CAF      ZERO                                  
006239,001347: 04,2675           54142                           TS       MPAC       +2                         
006240,001348: 04,2676           07226                           TC       TPAGREE                               
006241,001349: 04,2677           03133                           TC       DSP2DEC                               
006242,001350: 04,2700           00122        ENDDPDEC           TC       ENTEXIT                               
006243,001351: 

Page 165

006245,001353:                                                                                                  #           LOAD   VERBS
006246,001354: 
006247,001355: 
006248,001356: 
006249,001357: 05,2535                                           SETLOC   ENDRTOUT                              
006250,001358: 
006251,001359: 05,2535           47645        ABCLOAD            CS       TWO                                   
006252,001360: 05,2536           02376                           TC       COMPTEST                              
006253,001361: 05,2537           32673                           CAF      VBSP1LD                               
006254,001362: 05,2540           02314                           TC       UPDATVB    -1                         
006255,001363: 05,2541           02252                           TC       REQDATX                               
006256,001364: 05,2542           32674                           CAF      VBSP2LD                               
006257,001365: 05,2543           02314                           TC       UPDATVB    -1                         
006258,001366: 05,2544           02254                           TC       REQDATY                               
006259,001367: 05,2545           32675                           CAF      VBSP3LD                               
006260,001368: 05,2546           02314                           TC       UPDATVB    -1                         
006261,001369: 05,2547           02256                           TC       REQDATZ                               
006262,001370: 
006263,001371: 
006264,001372: 
006265,001373: 05,2550           46162        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
006266,001374: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
006267,001375: 05,2552           00006                           EXTEND                                         
006268,001376: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006269,001377: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
006270,001378: 05,2555           37653                           CAF      ZERO                                  #  X COMP
006271,001379: 05,2556           02762                           TC       PUTCOM                                
006272,001380: 05,2557           50131                           INDEX    NOUNADD                               
006273,001381: 05,2560           54000                           TS       0                                     
006274,001382: 05,2561           37646                           CAF      ONE                                   #  Y COMP
006275,001383: 05,2562           02762                           TC       PUTCOM                                
006276,001384: 05,2563           50131                           INDEX    NOUNADD                               
006277,001385: 05,2564           54001                           TS       1                                     
006278,001386: 05,2565           37645                           CAF      TWO                                   #  Z COMP
006279,001387: 05,2566           02762                           TC       PUTCOM                                
006280,001388: 05,2567           50131                           INDEX    NOUNADD                               
006281,001389: 05,2570           54002                           TS       2                                     
006282,001390: 05,2571           02663                           TC       LOADLV                                
006283,001391: 
006284,001392: 05,2572           47646        ABLOAD             CS       ONE                                   
006285,001393: 05,2573           02376                           TC       COMPTEST                              
006286,001394: 05,2574           32673                           CAF      VBSP1LD                               
006287,001395: 05,2575           02314                           TC       UPDATVB    -1                         
006288,001396: 05,2576           02252                           TC       REQDATX                               
006289,001397: 05,2577           32674                           CAF      VBSP2LD                               
006290,001398: 05,2600           02314                           TC       UPDATVB    -1                         
006291,001399: 05,2601           02254                           TC       REQDATY                               
006292,001400: 05,2602           47225        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
006293,001401: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
006294,001402: 05,2604           00006                           EXTEND                                         

Page 166

006296,001404: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006297,001405: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
006298,001406: 05,2607           37653                           CAF      ZERO                                  #  X COMP
006299,001407: 05,2610           02762                           TC       PUTCOM                                
006300,001408: 05,2611           50131                           INDEX    NOUNADD                               
006301,001409: 05,2612           54000                           TS       0                                     
006302,001410: 05,2613           37646                           CAF      ONE                                   #  Y COMP
006303,001411: 05,2614           02762                           TC       PUTCOM                                
006304,001412: 05,2615           50131                           INDEX    NOUNADD                               
006305,001413: 05,2616           54001                           TS       1                                     
006306,001414: 05,2617           02663                           TC       LOADLV                                
006307,001415: 
006308,001416: 05,2620           02252        ALOAD              TC       REQDATX                               
006309,001417: 05,2621           00006                           EXTEND                                         
006310,001418: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006311,001419: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
006312,001420: 05,2624           37653                           CAF      ZERO                                  #  X COMP
006313,001421: 05,2625           02762                           TC       PUTCOM                                
006314,001422: 05,2626           50131                           INDEX    NOUNADD                               
006315,001423: 05,2627           54000                           TS       0                                     
006316,001424: 05,2630           02663                           TC       LOADLV                                
006317,001425: 
006318,001426: 05,2631           47646        BLOAD              CS       ONE                                   
006319,001427: 05,2632           02376                           TC       COMPTEST                              
006320,001428: 05,2633           37630                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
006321,001429: 05,2634           54655                           TS       CLPASS                                
006322,001430: 05,2635           02254                           TC       REQDATY                               
006323,001431: 05,2636           00006                           EXTEND                                         
006324,001432: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006325,001433: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
006326,001434: 05,2641           37646                           CAF      ONE                                   
006327,001435: 05,2642           02762                           TC       PUTCOM                                
006328,001436: 05,2643           50131                           INDEX    NOUNADD                               
006329,001437: 05,2644           54001                           TS       1                                     
006330,001438: 05,2645           02663                           TC       LOADLV                                
006331,001439: 
006332,001440: 05,2646           47645        CLOAD              CS       TWO                                   
006333,001441: 05,2647           02376                           TC       COMPTEST                              
006334,001442: 05,2650           37630                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
006335,001443: 05,2651           54655                           TS       CLPASS                                
006336,001444: 05,2652           02256                           TC       REQDATZ                               
006337,001445: 05,2653           00006                           EXTEND                                         
006338,001446: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
006339,001447: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
006340,001448: 05,2656           37645                           CAF      TWO                                   
006341,001449: 05,2657           02762                           TC       PUTCOM                                
006342,001450: 05,2660           50131                           INDEX    NOUNADD                               
006343,001451: 05,2661           54002                           TS       2                                     
006344,001452: 05,2662           02663                           TC       LOADLV                                
006345,001453: 

Page 167

006347,001455: 05,2663           37653        LOADLV             CAF      ZERO                                  
006348,001456: 05,2664           54640                           TS       DECBRNCH                              
006349,001457: 05,2665           47653                           CS       ZERO                                  
006350,001458: 05,2666           54654                           TS       LOADSTAT                              
006351,001459: 05,2667           44506                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
006352,001460: 05,2670           54637                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
006353,001461: 05,2671           04102                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
006354,001462: 05,2672           11400                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
006355,001463: 
006356,001464: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
006357,001465: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
006358,001466: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
006359,001467: 
006360,001468: 
006361,001469: 
006362,001470: 05,2676           54103        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
006363,001471: 05,2677           40640                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
006364,001472: 05,2700           54021                           TS       SR                                    
006365,001473: 05,2701           40021                           CS       SR                                    
006366,001474: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
006367,001475: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
006368,001476: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
006369,001477: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
006370,001478: 05,2706           60103                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
006371,001479: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
006372,001480: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
006373,001481: 05,2711           02324                           TC       GODSPALM                              
006374,001482: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
006375,001483: 
006376,001484: 
006377,001485: 
006378,001486: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
006379,001487: 05,2714           54100                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
006380,001488: 05,2715           34474                           CAF      MID5                                  
006381,001489: 05,2716           70133                           MASK     NNTYPTEM                              
006382,001490: 05,2717           04447                           TC       RIGHT5                                
006383,001491: 05,2720           00100                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
006384,001492: 
006385,001493: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
006386,001494: 05,2722           54100                           TS       EXITEM                                
006387,001495: 05,2723           50103                           INDEX    DECOUNT                               
006388,001496: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
006389,001497: 05,2725           54001                           TS       L                                     
006390,001498: 05,2726           50103                           INDEX    DECOUNT                               
006391,001499: 05,2727           34473                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
006392,001500: 05,2730           70137                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
006393,001501: 05,2731           50001                           INDEX    L                                     
006394,001502: 05,2732           00000                           TC       0                                     
006395,001503:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
006396,001504: 05,2733           00100        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
006397,001505: 

Page 168

006399,001507: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
006400,001508: 05,2735           54100                           TS       EXITEM                                
006401,001509: 05,2736           50124                           INDEX    MIXBR                                 
006402,001510: 05,2737           02737                           TC       +0                                    
006403,001511: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
006404,001512: 05,2741           50103                           INDEX    DECOUNT                               #  MIXED NOUN
006405,001513: 05,2742           32753                           CAF      DISPLACE                              
006406,001514: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
006407,001515: 05,2744           50103                           INDEX    DECOUNT                               
006408,001516: 05,2745           34473                           CAF      LOW5                                  
006409,001517: 05,2746           70133                           MASK     NNTYPTEM                              
006410,001518: 05,2747           50001                           INDEX    L                                     
006411,001519: 05,2750           00000                           TC       0                                     
006412,001520:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
006413,001521: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
006414,001522: 05,2752           00100                           TC       EXITEM                                
006415,001523: 
006416,001524: 05,2753           02712        DISPLACE           TC       GOQ                                   
006417,001525: 05,2754           04447                           TC       RIGHT5                                
006418,001526: 05,2755           04456                           TC       LEFT5                                 
006419,001527: 
006420,001528: 05,2756           34473        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
006421,001529: 05,2757           70133                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
006422,001530: 05,2760           60000                           DOUBLE                                         
006423,001531: 05,2761           00100                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
006424,001532: 
006425,001533: 
006426,001534: 
006427,001535: 05,2762           54103        PUTCOM             TS       DECOUNT                               
006428,001536: 05,2763           56002                           XCH      Q                                     
006429,001537: 05,2764           54101                           TS       DECRET                                
006430,001538: 05,2765           37653                           CAF      ZERO                                  
006431,001539: 05,2766           54105                           TS       OVFIND                                
006432,001540: 05,2767           50103                           INDEX    DECOUNT                               
006433,001541: 05,2770           56646                           XCH      XREGLP                                
006434,001542: 05,2771           54141                           TS       MPAC       +1                         
006435,001543: 05,2772           50103                           INDEX    DECOUNT                               
006436,001544: 05,2773           56643                           XCH      XREG                                  
006437,001545: 05,2774           54140                           TS       MPAC                                  
006438,001546: 05,2775           50124                           INDEX    MIXBR                                 
006439,001547: 05,2776           02776                           TC       +0                                    
006440,001548: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
006441,001549:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
006442,001550: 05,3000           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
006443,001551: 05,3001           30134                           CA       IDAD1TEM                              #          OF NOUN.
006444,001552: 05,3002           74503                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
006445,001553: 05,3003           04430                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
006446,001554: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
006447,001555: 05,3005           60103                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
006448,001556: 05,3006           54131                           TS       NOUNADD                               
006449,001557: 

Page 169

006451,001559: 05,3007           10640                           CCS      DECBRNCH                              
006452,001560: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
006453,001561: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
006454,001562: 05,3012           02236                           TC       DPTEST                                
006455,001563: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
006456,001564:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
006457,001565:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
006458,001566:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
006459,001567: 05,3014           24131        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
006460,001568: 05,3015           30131                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
006461,001569: 05,3016           26103                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
006462,001570: 05,3017           37653                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
006463,001571: 05,3020           50103                           INDEX    DECOUNT                               
006464,001572: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
006465,001573: 05,3022           03040                           TC       PUTCOM2                               
006466,001574: 
006467,001575: 05,3023           04436        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
006468,001576: 05,3024           10640                           CCS      DECBRNCH                              
006469,001577: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
006470,001578: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
006471,001579: 05,3027           02236                           TC       DPTEST                                
006472,001580: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
006473,001581: 05,3031           37653                           CAF      ZERO                                  #  DP
006474,001582: 05,3032           54103                           TS       DECOUNT                               
006475,001583: 05,3033           03014                           TC       PUTDPCOM                              
006476,001584: 
006477,001585: 05,3034           30132                           CA       NNADTEM                               
006478,001586: 05,3035           67646                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
006479,001587: 05,3036           00006                           EXTEND                                         
006480,001588: 05,3037           13044                           BZF      CHANLOAD                              
006481,001589: 05,3040           56140        PUTCOM2            XCH      MPAC                                  
006482,001590: 05,3041           00101                           TC       DECRET                                
006483,001591: 
006484,001592: 05,3042     0637                                  EBANK=   DSPCOUNT                              
006485,001593: 05,3042           02045 14001  GTSFINLC           2CADR    GTSFIN                                
006486,001594: 
006487,001595: 
006488,001596: 05,3044           56140        CHANLOAD           XCH      MPAC                                  
006489,001597: 05,3045           00006                           EXTEND                                         
006490,001598: 05,3046           50657                           INDEX    NOUNCADR                              
006491,001599: 05,3047           01000                           WRITE    0                                     
006492,001600: 05,3050           02663                           TC       LOADLV                                
006493,001601: 
006494,001602: 
006495,001603: 
006496,001604:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
006497,001605: 
006498,001606: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
006499,001607: 05,3052           54107                           TS       SFTEMP1                               
006500,001608: 

Page 170

006502,001610: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
006503,001611: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
006504,001612: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
006505,001613: 05,3056           50124                           INDEX    MIXBR                                 
006506,001614: 05,3057           03057                           TC       +0                                    
006507,001615: 05,3060           03063                           TC       PUTSFNOR                              
006508,001616: 05,3061           02721                           TC       SFRUTMIX                              
006509,001617: 05,3062           03064                           TC       PUTDCSF2                              
006510,001618: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
006511,001619: 
006512,001620: 05,3064           50000        PUTDCSF2           INDEX    A                                     
006513,001621: 05,3065           33067                           CAF      SFINTABR                              
006514,001622: 05,3066           04105                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
006515,001623: 05,3067           11255        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
006516,001624: 05,3070           10761                           CADR     BINROUND                              
006517,001625: 05,3071           10701                           CADR     DEGINSF                               
006518,001626: 05,3072           10751                           CADR     ARTHINSF                              
006519,001627: 05,3073           11001                           CADR     DPINSF                                
006520,001628: 05,3074           11026                           CADR     DPINSF2                               
006521,001629: 05,3075           10764                           CADR     OPTDEGIN                              
006522,001630: 05,3076           11001                           CADR     DPINSF                                #  SAME AS ARITHDP1
006523,001631: 05,3077                        ENDRUTIN           EQUALS                                         
006524,001632: 
006525,001633: 
006526,001634: 
006527,001635:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
006528,001636:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
006529,001637: 
006530,001638: 
006531,001639: 
006532,001640: 04,2701                                           SETLOC   ENDDPDEC   +1                         
006533,001641: 
006534,001642:                                                                                                  #  DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
006535,001643: 
006536,001644: 04,2701           07062        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
006537,001645: 04,2702           02744                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
006538,001646: 04,2703           10141                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
006539,001647: 04,2704           37634                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
006540,001648: 04,2705           02707                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
006541,001649: 04,2706           47634                           CS       BIT11                                 
006542,001650: 04,2707           60141                           AD       MPAC       +1                         
006543,001651: 04,2710           03044                           TC       2ROUND     +2                         
006544,001652: 04,2711           04532                           TC       TPSL1                                 #  LEFT 1
006545,001653: 04,2712           04532        DEGINSF2           TC       TPSL1                                 #  LEFT 2
006546,001654: 04,2713           03053                           TC       TESTOFUF                              
006547,001655: 04,2714           04532                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
006548,001656: 04,2715           10140                           CCS      MPAC                                  
006549,001657: 04,2716           02722                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
006550,001658: 04,2717           02722                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
006551,001659: 04,2720           40000                           COM                                            #  IF - , USE -MAGNITUDE +1

Page 171

006553,001661: 04,2721           54140                           TS       MPAC                                  #  IF -0, USE +0
006554,001662: 04,2722           10105        SIGNFIX            CCS      OVFIND                                
006555,001663: 04,2723           02740                           TC       SGNTO1                                #  IF OVERFLOW
006556,001664: 04,2724           02734                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
006557,001665: 04,2725           10140                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
006558,001666: 04,2727                                           LOC      +1                                    
006559,001667: 04,2727           02736                           TC       NEG180                                
006560,001668: 04,2730           02731                           TC       +1                                    
006561,001669: 04,2731           56140                           XCH      MPAC                                  
006562,001670: 04,2732           77626                           MASK     POSMAX                                
006563,001671: 04,2733           54140                           TS       MPAC                                  
006564,001672: 04,2734           04102        ENDSCALE           TC       POSTJUMP                              
006565,001673: 04,2735           13040                           CADR     PUTCOM2                               
006566,001674: 
006567,001675: 04,2736           47626        NEG180             CS       POSMAX                                
006568,001676: 04,2737           02733                           TC       ENDSCALE   -1                         
006569,001677: 
006570,001678: 04,2740           40140        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
006571,001679: 04,2741           77626                           MASK     POSMAX                                
006572,001680: 04,2742           40000                           CS       A                                     
006573,001681: 04,2743           02733                           TC       ENDSCALE   -1                         
006574,001682: 
006575,001683: 04,2744           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
006576,001684: 
006577,001685: 04,2746           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
006578,001686: 
006579,001687: 04,2750           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
006580,001688: 
006581,001689: 04,2751           07062        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
006582,001690: 04,2752           00107                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
006583,001691: 04,2753           56142                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
006584,001692: 04,2754           56141                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
006585,001693: 04,2755           56140                           XCH      MPAC                                  
006586,001694: 04,2756           00006                           EXTEND                                         
006587,001695: 04,2757           12761                           BZF      BINROUND                              
006588,001696: 04,2760           03255                           TC       DSPALARM                              #  TOO LARGE A LOAD
006589,001697: 04,2761           03042        BINROUND           TC       2ROUND                                
006590,001698: 04,2762           03053                           TC       TESTOFUF                              
006591,001699: 04,2763           02734                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
006592,001700: 
006593,001701: 
006594,001702: 
006595,001703: 04,2764           10140        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
006596,001704: 04,2765           02771                           TC       +4                                    
006597,001705: 04,2766           02771                           TC       +3                                    
006598,001706: 04,2767           03255                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
006599,001707: 04,2770           03255                           TC       DSPALARM                              #          DITTO
006600,001708: 04,2771           32750        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
006601,001709: 04,2772           26140                           ADS      MPAC                                  #  SUBTRACT BIAS
006602,001710: 04,2773           07062                           TC       DMP                                   #  MULT BY 100 / 45  B-2

Page 172

006604,001712: 04,2774           02746                           ADRES    DEGCON2                               
006605,001713: 04,2775           37633                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
006606,001714: 04,2776           60141                           AD       MPAC       +1                         
006607,001715: 04,2777           03044                           TC       2ROUND     +2                         
006608,001716: 04,3000           02712                           TC       DEGINSF2                              
006609,001717: 
006610,001718: 04,3001           07062        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
006611,001719: 04,3002           00107                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
006612,001720: 04,3003           56142                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
006613,001721: 04,3004           60000                           DOUBLE                                         
006614,001722: 04,3005           54142                           TS       MPAC       +2                         
006615,001723: 04,3006           37653                           CAF      ZERO                                  
006616,001724: 04,3007           60141                           AD       MPAC       +1                         
006617,001725: 04,3010           03044                           TC       2ROUND     +2                         
006618,001726: 04,3011           03053                           TC       TESTOFUF                              
006619,001727: 04,3012           50124                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
006620,001728: 04,3013           03013                           TC       +0                                    
006621,001729: 04,3014           03024                           TC       DPINORM                               
006622,001730: 04,3015           30103                           CA       DECOUNT                               #  MIXEDNOUN
006623,001731: 04,3016           60131        DPINCOM            AD       NOUNADD                               #      MIXED                NORMAL
006624,001732: 04,3017           54002                           TS       Q                                     #    E SUBK             E
006625,001733: 04,3020           56141                           XCH      MPAC       +1                         
006626,001734: 04,3021           50002                           INDEX    Q                                     
006627,001735: 04,3022           54001                           TS       1                                     #  PLACE LOW PART IN
006628,001736: 04,3023           02734                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
006629,001737: 04,3024           37653        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
006630,001738: 04,3025           03016                           TC       DPINCOM                               
006631,001739: 
006632,001740: 
006633,001741: 
006634,001742: 04,3026           07062        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
006635,001743: 04,3027           00107                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
006636,001744: 04,3030           03032                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
006637,001745: 04,3031           03003                           TC       DPINSF     +2                         
006638,001746: 
006639,001747: 
006640,001748: 
006641,001749: 04,3032           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
006642,001750: 04,3033           54110                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
006643,001751: 04,3034           36162                           CAF      SIX                                   #  LEFT BY 7
006644,001752: 04,3035           54107        LEFT7COM           TS       SFTEMP1                               
006645,001753: 04,3036           04532                           TC       TPSL1                                 
006646,001754: 04,3037           10107                           CCS      SFTEMP1                               
006647,001755: 04,3040           03035                           TC       LEFT7COM                              
006648,001756: 04,3041           00110                           TC       SFTEMP2                               
006649,001757: 
006650,001758: 
006651,001759: 
006652,001760: 04,3042           56141        2ROUND             XCH      MPAC       +1                         
006653,001761: 04,3043           60000                           DOUBLE                                         

Page 173

006655,001763: 04,3044           54141                           TS       MPAC       +1                         
006656,001764: 04,3045           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
006657,001765: 04,3046           60140                           AD       MPAC                                  
006658,001766: 04,3047           54140                           TS       MPAC                                  
006659,001767: 04,3050           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
006660,001768: 04,3051           54105                           TS       OVFIND                                
006661,001769: 04,3052           00002        2RNDEND            TC       Q                                     
006662,001770: 
006663,001771: 
006664,001772: 
006665,001773: 04,3053           10105        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
006666,001774: 04,3054           03255                           TC       DSPALARM                              #  OF
006667,001775: 04,3055           00002                           TC       Q                                     
006668,001776: 04,3056           03255                           TC       DSPALARM                              #  UF
006669,001777: 

Page 174

006671,001779:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
006672,001780:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
006673,001781: 
006674,001782:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
006675,001783:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
006676,001784:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
006677,001785:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
006678,001786:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
006679,001787: 
006680,001788:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
006681,001789:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
006682,001790:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
006683,001791: 
006684,001792:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
006685,001793: 
006686,001794:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
006687,001795:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
006688,001796: 
006689,001797: 
006690,001798: 
006691,001799:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
006692,001800: 05,3077                                           SETLOC   ENDRUTIN                              
006693,001801: 
006694,001802: 05,3077           47630        MONITOR            CS       BIT15                                 
006695,001803: 05,3100           70657                           MASK     NOUNCADR                              
006696,001804: 05,3101           54141        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
006697,001805: 05,3102           33401                           CAF      LOW6                                  
006698,001806: 05,3103           70641                           MASK     VERBREG                               
006699,001807: 05,3104           04456                           TC       LEFT5                                 
006700,001808: 05,3105           54022                           TS       CYL                                   
006701,001809: 05,3106           56022                           XCH      CYL                                   
006702,001810: 05,3107           60642                           AD       NOUNREG                               
006703,001811: 05,3110           54140                           TS       MPAC                                  #  TEMP STORAGE
006704,001812: 05,3111           40677                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
006705,001813: 05,3112           67645                           AD       TWO                                   
006706,001814: 05,3113           10000                           CCS      A                                     
006707,001815: 05,3114           04633                           TC       RELDSP1                               #  GRABLOCK=0,1, +0 INTO DSPLOCK AND
006708,001816: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
006709,001817: 05,3117                                           LOC      +1                                    
006710,001818: 05,3117           37653                           CAF      ZERO                                  #  GRABLOCK=2, +0 INTO DSPLOCK AND
006711,001819: 05,3120           54652                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
006712,001820: 05,3121           00004                           INHINT                                         
006713,001821: 05,3122           10660                           CCS      MONSAVE                               
006714,001822: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
006715,001823: 05,3124           37646                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
006716,001824: 05,3125           04251                           TC       WAITLIST                              
006717,001825: 05,3126     0637                                  EBANK=   DSPCOUNT                              
006718,001826: 05,3126           03134 12001                     2CADR    MONREQ                                
006719,001827: 
006720,001828: 05,3130           52141                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE

Page 175

006722,001830: 05,3131           52661                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
006723,001831: 05,3132           00003                           RELINT                                         
006724,001832: 05,3133           00122                           TC       ENTRET                                
006725,001833: 
006726,001834: 
006727,001835: 
006728,001836: 05,3134           04526        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
006729,001837: 05,3135           10661                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
006730,001838: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
006731,001839: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
006732,001840: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
006733,001841: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
006734,001842: 05,3142           33157                           CAF      MONDEL                                
006735,001843: 05,3143           04251                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
006736,001844: 05,3144     0637                                  EBANK=   DSPCOUNT                              
006737,001845: 05,3144           03134 12001                     2CADR    MONREQ                                
006738,001846: 
006739,001847: 05,3146           34502                           CAF      CHRPRIO                               
006740,001848: 05,3147           04131                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
006741,001849: 05,3150     0637                                  EBANK=   DSPCOUNT                              
006742,001850: 05,3150           03160 12001                     2CADR    MONDO                                 
006743,001851: 
006744,001852: 05,3152           04321                           TC       TASKOVER                              
006745,001853: 
006746,001854: 05,3153           37653        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
006747,001855: 05,3154           54660                           TS       MONSAVE                               
006748,001856: 05,3155           54661                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
006749,001857: 05,3156           04321                           TC       TASKOVER                              
006750,001858: 
006751,001859: 
006752,001860: 
006753,001861: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
006754,001862: 
006755,001863: 
006756,001864: 
006757,001865: 05,3160           10661        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
006758,001866: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
006759,001867: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
006760,001868: 05,3163           04205                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
006761,001869: 05,3164           04205                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
006762,001870: 05,3165           10652                           CCS      DSPLOCK                               
006763,001871: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
006764,001872: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
006765,001873: 05,3170           70660                           MASK     MONSAVE                               
006766,001874: 05,3171           54107                           TS       NVTEMP                                
006767,001875: 05,3172           04372                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
006768,001876: 05,3173           04205                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
006769,001877: 05,3174           33210                           CAF      MONMASK                               
006770,001878: 05,3175           70660                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
006771,001879: 05,3176           04447                           TC       RIGHT5                                

Page 176

006773,001881: 05,3177           54020                           TS       CYR                                   
006774,001882: 05,3200           56020                           XCH      CYR                                   
006775,001883: 05,3201           54641                           TS       VERBREG                               
006776,001884: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
006777,001885: 05,3203           54122                           TS       ENTRET                                
006778,001886: 05,3204           47630                           CS       BIT15                                 
006779,001887: 05,3205           70661                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
006780,001888: 05,3206           54142                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
006781,001889: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
006782,001890: 
006783,001891:    4347                                           SETLOC   ENDT4FF                               
006784,001892: 
006785,001893:    4347           34355        PASTEVB            CAF      MIDSIX                                
006786,001894:    4350           70660                           MASK     MONSAVE                               
006787,001895:    4351           54107                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
006788,001896:    4352           04372                           TC       NVSUBMON                              #       DISPLAY IT.
006789,001897:    4353           04354                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
006790,001898:    4354           04205        ENDPASTE           TC       ENDOFJOB                              
006791,001899: 
006792,001900:    4355           07700        MIDSIX             OCT      07700                                 
006793,001901: 
006794,001902: 
006795,001903: 
006796,001904: 05,3210                                           SETLOC   ENDMONDO   +1                         
006797,001905: 05,3210           00700        MONMASK            OCT      700                                   
006798,001906: 05,3211           04347        MONBACK            ADRES    PASTEVB                               
006799,001907: 
006800,001908: 05,3212           04522        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
006801,001909: 05,3213           04205                           TC       ENDOFJOB                              
006802,001910: 
006803,001911: 
006804,001912: 
006805,001913:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
006806,001914:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
006807,001915:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
006808,001916: 
006809,001917: 05,3214           34444        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
006810,001918: 05,3215           54637                           TS       DSPCOUNT                              
006811,001919: 05,3216           30657                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
006812,001920: 05,3217           04116                           TC       DATACALL                              
006813,001921: 05,3220           03222                           TC       DSPOCTWD                              
006814,001922: 05,3221           04205        ENDSPF             TC       ENDOFJOB                              
006815,001923: 

Page 177

006817,001925:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1)TO A SIGN AND 5 CHAR DECIMAL
006818,001926:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
006819,001927: 
006820,001928: 04,3057                                           SETLOC   TESTOFUF   +4                         
006821,001929: 
006822,001930: 04,3057           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
006823,001931: 04,3060           54101                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
006824,001932: 04,3061           10140                           CCS      MPAC                                  
006825,001933: 04,3062           03071                           TC       +7                                    
006826,001934: 04,3063           03071                           TC       +6                                    
006827,001935: 04,3064           67646                           AD       ONE                                   
006828,001936: 04,3065           54140                           TS       MPAC                                  
006829,001937: 04,3066           02313                           TC       -ON                                   
006830,001938: 04,3067           40141                           CS       MPAC       +1                         
006831,001939: 04,3070           03073                           TC       +3                                    
006832,001940: 04,3071           02273                           TC       +ON                                   
006833,001941: 04,3072           56141                           XCH      MPAC       +1                         
006834,001942: 04,3073           63132                           AD       DECROUND                              
006835,001943: 04,3074           54141                           TS       MPAC       +1                         
006836,001944: 04,3075           37653                           CAF      ZERO                                  
006837,001945: 04,3076           60140                           AD       MPAC                                  
006838,001946: 04,3077           54140                           TS       MPAC                                  
006839,001947: 04,3100           03104                           TC       +4                                    
006840,001948: 04,3101           37626                           CAF      POSMAX                                
006841,001949: 04,3102           54140                           TS       MPAC                                  
006842,001950: 04,3103           54141                           TS       MPAC       +1                         
006843,001951: 04,3104           37644                           CAF      FOUR                                  
006844,001952: 04,3105           54123        DSPDCWD1           TS       WDCNT                                 
006845,001953: 04,3106           34511                           CAF      BINCON                                
006846,001954: 04,3107           07257                           TC       SHORTMP                               
006847,001955: 04,3110           50140        TRACE1             INDEX    MPAC                                  
006848,001956: 04,3111           34333                           CAF      RELTAB                                
006849,001957: 04,3112           74473                           MASK     LOW5                                  
006850,001958: 04,3113           54110                           TS       CODE                                  
006851,001959: 04,3114           37653                           CAF      ZERO                                  
006852,001960: 04,3115           56142                           XCH      MPAC       +2                         
006853,001961: 04,3116           56141                           XCH      MPAC       +1                         
006854,001962: 04,3117           54140                           TS       MPAC                                  
006855,001963: 04,3120           56637                           XCH      DSPCOUNT                              
006856,001964: 04,3121           54127        TRACE1S            TS       COUNT                                 
006857,001965: 04,3122           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
006858,001966: 04,3123           54637                           TS       DSPCOUNT                              
006859,001967: 04,3124           03157                           TC       DSPIN                                 
006860,001968: 04,3125           10123                           CCS      WDCNT                                 
006861,001969: 04,3126           03105                           TC       DSPDCWD1                              
006862,001970: 04,3127           44506                           CS       VD1                                   
006863,001971: 04,3130           54637                           TS       DSPCOUNT                              
006864,001972: 04,3131           00101                           TC       WDRET                                 
006865,001973: 
006866,001974: 04,3132           02476        DECROUND           OCT      02476                                 
006867,001975: 

Page 178

006869,001977:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
006870,001978:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
006871,001979: 
006872,001980: 04,3133           56002        DSP2DEC            XCH      Q                                     
006873,001981: 04,3134           54101                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSPDECWD
006874,001982: 04,3135           37653                           CAF      ZERO                                  
006875,001983: 04,3136           54110                           TS       CODE                                  
006876,001984: 04,3137           36165                           CAF      THREE                                 
006877,001985: 04,3140           03241                           TC       11DSPIN                               #  -R2 OFF
006878,001986: 04,3141           37644                           CAF      FOUR                                  
006879,001987: 04,3142           03241                           TC       11DSPIN                               #  +R2 OFF
006880,001988: 04,3143           10140                           CCS      MPAC                                  
006881,001989: 04,3144           03154                           TC       +8D                                   
006882,001990: 04,3145           03154                           TC       +7                                    
006883,001991: 04,3146           67646                           AD       ONE                                   
006884,001992: 04,3147           54140                           TS       MPAC                                  
006885,001993: 04,3150           02313                           TC       -ON                                   
006886,001994: 04,3151           40141                           CS       MPAC       +1                         
006887,001995: 04,3152           54141                           TS       MPAC       +1                         
006888,001996: 04,3153           03155                           TC       +2                                    
006889,001997: 04,3154           02273                           TC       +ON                                   
006890,001998: 04,3155           34445                           CAF      R2D1                                  
006891,001999: 04,3156           03105        END2DEC            TC       DSPDCWD1                              
006892,002000: 
006893,002001: 
006894,002002: 
006895,002003: 05,3222                                           SETLOC   DSPFMEM    +6                         
006896,002004:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
006897,002005:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
006898,002006: 
006899,002007: 05,3222           54022        DSPOCTWD           TS       CYL                                   
006900,002008: 05,3223           56002                           XCH      Q                                     
006901,002009: 05,3224           54101                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
006902,002010: 05,3225           37631                           CAF      BIT14                                 #  TO BLANK SIGNS
006903,002011: 05,3226           26637                           ADS      DSPCOUNT                              
006904,002012: 05,3227           37644                           CAF      FOUR                                  
006905,002013: 05,3230           54123        WDAGAIN            TS       WDCNT                                 
006906,002014: 05,3231           40022                           CS       CYL                                   
006907,002015: 05,3232           40022                           CS       CYL                                   
006908,002016: 05,3233           40022                           CS       CYL                                   
006909,002017: 05,3234           40000                           CS       A                                     
006910,002018: 05,3235           77652                           MASK     DSPMSK                                
006911,002019: 05,3236           50000                           INDEX    A                                     
006912,002020: 05,3237           34333                           CAF      RELTAB                                
006913,002021: 05,3240           74473                           MASK     LOW5                                  
006914,002022: 05,3241           54110                           TS       CODE                                  
006915,002023: 05,3242           56637                           XCH      DSPCOUNT                              
006916,002024: 05,3243           54127                           TS       COUNT                                 
006917,002025: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
006918,002026: 05,3245           54637                           TS       DSPCOUNT                              

Page 179

006920,002028: 05,3246           04102                           TC       POSTJUMP                              
006921,002029: 05,3247           11247                           CADR     DSPOCTIN                              
006922,002030: 05,3250           10123        OCTBACK            CCS      WDCNT                                 
006923,002031: 05,3251           03230                           TC       WDAGAIN                               #  +
006924,002032: 05,3252           44506        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
006925,002033: 05,3253           54637                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
006926,002034: 05,3254           00101                           TC       WDRET                                 
006927,002035: 
006928,002036: 05,3255     7652               DSPMSK             =        SEVEN                                 
006929,002037: 
006930,002038: 
006931,002039: 
006932,002040:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
006933,002041:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
006934,002042:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
006935,002043: 
006936,002044: 05,3255           54020        DSP2BIT            TS       CYR                                   
006937,002045: 05,3256           56002                           XCH      Q                                     
006938,002046: 05,3257           54101                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
006939,002047: 05,3260           37646                           CAF      ONE                                   
006940,002048: 05,3261           54123                           TS       WDCNT                                 
006941,002049: 05,3262           40020                           CS       CYR                                   
006942,002050: 05,3263           40020                           CS       CYR                                   
006943,002051: 05,3264           56020                           XCH      CYR                                   
006944,002052: 05,3265           54022                           TS       CYL                                   
006945,002053: 05,3266           03235                           TC       WDAGAIN    +5                         
006946,002054: 
006947,002055: 
006948,002056: 
006949,002057:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
006950,002058:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
006951,002059:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
006952,002060:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
006953,002061: 
006954,002062: 04,3157                                           SETLOC   END2DEC    +1                         
006955,002063: 
006956,002064: 04,3157           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE
006957,002065: 04,3160           54100                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
006958,002066: 04,3161           34473                           CAF      LOW5                                  
006959,002067: 04,3162           70127                           MASK     COUNT                                 
006960,002068: 04,3163           54021                           TS       SR                                    
006961,002069: 04,3164           56021                           XCH      SR                                    
006962,002070: 04,3165           54125                           TS       DSREL                                 
006963,002071: 04,3166           37646                           CAF      BIT1                                  
006964,002072: 04,3167           70127                           MASK     COUNT                                 
006965,002073: 04,3170           10000                           CCS      A                                     
006966,002074: 04,3171           03173                           TC       +2                                    #  LEFT IF COUNT IS ODD
006967,002075: 04,3172           03203                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
006968,002076: 04,3173           56110                           XCH      CODE                                  
006969,002077: 04,3174           04465                           TC       SLEFT5                                #  DOES NOT USE CYL

Page 180

006971,002079: 04,3175           54110                           TS       CODE                                  
006972,002080: 04,3176           37631                           CAF      BIT14                                 
006973,002081: 04,3177           70127                           MASK     COUNT                                 
006974,002082: 04,3200           10000                           CCS      A                                     
006975,002083: 04,3201           37645                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
006976,002084: 04,3202           67646                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
006977,002085: 04,3203           54127                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
006978,002086:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
006979,002087:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
006980,002088: 04,3204           00004        DSPIN1             INHINT                                         
006981,002089: 04,3205           50125                           INDEX    DSREL                                 
006982,002090: 04,3206           10662                           CCS      DSPTAB                                
006983,002091: 04,3207           03211                           TC       +2                                    #  IF +
006984,002092: 04,3211                                           LOC      +1                                    
006985,002093: 04,3211           67646                           AD       ONE                                   #  IF -
006986,002094: 04,3212           54126                           TS       DSMAG                                 
006987,002095: 04,3213           50127                           INDEX    COUNT                                 
006988,002096: 04,3214           73235                           MASK     DSMSK                                 
006989,002097: 04,3215           00006                           EXTEND                                         
006990,002098: 04,3216           60110                           SU       CODE                                  
006991,002099: 04,3217           00006                           EXTEND                                         
006992,002100: 04,3220           13233                           BZF      DSLV                                  #  SAME
006993,002101: 04,3221           50127        DFRNT              INDEX    COUNT                                 
006994,002102: 04,3222           43235                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
006995,002103: 04,3223           70126                           MASK     DSMAG                                 
006996,002104: 04,3224           60110                           AD       CODE                                  
006997,002105: 04,3225           40000                           CS       A                                     
006998,002106: 04,3226           50125                           INDEX    DSREL                                 
006999,002107: 04,3227           56662                           XCH      DSPTAB                                
007000,002108: 04,3230           00006                           EXTEND                                         
007001,002109: 04,3231           63233                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
007002,002110: 04,3232           24656                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
007003,002111: 04,3233           00003        DSLV               RELINT                                         
007004,002112: 04,3234           00100                           TC       DSEXIT                                
007005,002113: 
007006,002114: 04,3235           00037        DSMSK              OCT      37                                    
007007,002115: 04,3236           01740                           OCT      1740                                  
007008,002116: 04,3237           02000                           OCT      2000                                  
007009,002117: 04,3240           03740                           OCT      3740                                  
007010,002118: 
007011,002119: 
007012,002120: 
007013,002121:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
007014,002122:                                                                                                  #  BIT11 OF CODE.
007015,002123: 
007016,002124: 04,3241           54125        11DSPIN            TS       DSREL                                 
007017,002125: 04,3242           37645                           CAF      TWO                                   
007018,002126: 04,3243           54127                           TS       COUNT                                 
007019,002127: 04,3244           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
007020,002128: 04,3245           54100                           TS       DSEXIT                                

Page 181

007022,002130: 04,3246           03204                           TC       DSPIN1                                
007023,002131: 
007024,002132: 
007025,002133: 
007026,002134: 04,3247           03157        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
007027,002135: 04,3250           33252                           CAF      +2                                    
007028,002136: 04,3251           04105                           TC       BANKJUMP                              
007029,002137: 04,3252           13250        ENDSPOCT           CADR     OCTBACK                               
007030,002138: 
007031,002139: 
007032,002140: 
007033,002141:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
007034,002142:                                                                                                  #  ABORT WITH 01501.
007035,002143:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
007036,002144:                                                                                                  #  DO TC ENTRET.
007037,002145: 
007038,002146: 04,3253           34417        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
007039,002147: 04,3254           54122                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
007040,002148: 
007041,002149: 04,3255           04512        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
007042,002150: 04,3256           43265                           CS       NVSBENDL                              
007043,002151: 04,3257           60122                           AD       ENTEXIT                               
007044,002152: 04,3260           00006                           EXTEND                                         
007045,002153: 04,3261           13263                           BZF      +2                                    #  NVSUB INITIATED. ABORT
007046,002154: 04,3262           00122                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
007047,002155: 04,3263           04662                           TC       ABORT                                 
007048,002156: 04,3264           01501                           OCT      01501                                 
007049,002157: 04,3265           04376        NVSBENDL           TC       NVSUBEND                              
007050,002158: 
007051,002159: 
007052,002160: 
007053,002161:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
007054,002162:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
007055,002163:                                                                                                  #  M M LIGHTS.
007056,002164: 
007057,002165: 05,3267                                           SETLOC   DSP2BIT    +10D                       
007058,002166: 
007059,002167: 05,3267           03302        MMCHANG            TC       REQMM                                 
007060,002168: 05,3270           37653                           CAF      ZERO                                  
007061,002169: 05,3271           56642                           XCH      NOUNREG                               
007062,002170: 05,3272           54140                           TS       MPAC                                  
007063,002171: 05,3273           34507                           CAF      ND1                                   
007064,002172: 05,3274           54637                           TS       DSPCOUNT                              
007065,002173: 05,3275           04063                           TC       BANKCALL                              
007066,002174: 05,3276           10517                           CADR     2BLANK                                
007067,002175: 05,3277           30140                           CA       MPAC                                  
007068,002176: 05,3300           04102                           TC       POSTJUMP                              
007069,002177: 05,3301           11255                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
007070,002178: 

Page 182

007072,002180: 05,3302  04,3255               MODROUTB           =        DSPALARM                              #  **FIX LATER**
007073,002181: 05,3302           40002        REQMM              CS       Q                                     
007074,002182: 05,3303           54653                           TS       REQRET                                
007075,002183: 05,3304           34507                           CAF      ND1                                   
007076,002184: 05,3305           54637                           TS       DSPCOUNT                              
007077,002185: 05,3306           37653                           CAF      ZERO                                  
007078,002186: 05,3307           54642                           TS       NOUNREG                               
007079,002187: 05,3310           04063                           TC       BANKCALL                              
007080,002188: 05,3311           10517                           CADR     2BLANK                                
007081,002189: 05,3312           04543                           TC       FLASHON                               
007082,002190: 05,3313           00122                           TC       ENTEXIT                               
007083,002191: 
007084,002192: 
007085,002193: 
007086,002194:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
007087,002195:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
007088,002196:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
007089,002197:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
007090,002198:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
007091,002199:                                                                                                  #  COMPONENT 3  BBCON
007092,002200: 
007093,002201: 05,3314           37646        VBRQEXEC           CAF      BIT1                                  
007094,002202: 05,3315           70706                           MASK     DSPTEM1                               
007095,002203: 05,3316           10000                           CCS      A                                     
007096,002204: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
007097,002205: 05,3320           34476                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
007098,002206: 05,3321           54140        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
007099,002207: 05,3322           47646                           CS       BIT1                                  
007100,002208: 05,3323           70706                           MASK     DSPTEM1                               
007101,002209: 05,3324           54144                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
007102,002210: 05,3325           04610        REQUESTC           TC       RELDSP                                
007103,002211: 05,3326           34417                           CA       ENDINST                               
007104,002212: 05,3327           54143                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
007105,002213: 05,3330           00006                           EXTEND                                         
007106,002214: 05,3331           30710                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
007107,002215: 05,3332           52142                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
007108,002216: 05,3333           30144                           CA       MPAC       +4                         #  PRIO IN A
007109,002217: 05,3334           00004                           INHINT                                         
007110,002218: 05,3335           00140                           TC       MPAC                                  
007111,002219: 
007112,002220: 05,3336           34501        SETVAC             CAF      TCFINDVC                              
007113,002221: 05,3337           03321                           TC       REQEX1                                
007114,002222: 
007115,002223:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
007116,002224:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
007117,002225:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
007118,002226:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
007119,002227:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
007120,002228:                                                                                                  #  COMPONENT 3  BBCON
007121,002229: 

Page 183

007123,002231: 05,3340           34477        VBRQWAIT           CAF      TCWAIT                                
007124,002232: 05,3341           54140                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
007125,002233: 05,3342           30706                           CA       DSPTEM1                               #  TIME DELAY
007126,002234: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
007127,002235: 
007128,002236:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
007129,002237:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
007130,002238:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
007131,002239: 
007132,002240: 
007133,002241: 
007134,002242: 04,3266                                           SETLOC   NVSBENDL   +1                         
007135,002243: 04,3266           37646        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
007136,002244: 04,3267           54654                           TS       LOADSTAT                              
007137,002245: 04,3270           04610                           TC       RELDSP                                
007138,002246: 04,3271           04547                           TC       FLASHOFF                              
007139,002247: 04,3272           03400                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
007140,002248: 
007141,002249: 
007142,002250: 
007143,002251: 04,3273           04400        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
007144,002252: 04,3274           47646                           CS       ONE                                   
007145,002253: 04,3275           03267                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
007146,002254: 
007147,002255: 
007148,002256: 
007149,002257:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
007150,002258: 
007151,002259: 
007152,002260: 
007153,002261:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
007154,002262:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
007155,002263: 
007156,002264: 04,3276           47644        VBRELDSP           CS       BIT3                                  
007157,002265: 04,3277           00006                           EXTEND                                         
007158,002266: 04,3300           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
007159,002267: 04,3301           04610                           TC       RELDSP                                #  SEARCHES LIST
007160,002268: 04,3302           04205                           TC       ENDOFJOB                              
007161,002269: 
007162,002270: 
007163,002271: 
007164,002272:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
007165,002273: 
007166,002274: 04,3303           37225        BUMP               CAF      FIVE                                  #  R2D5
007167,002275: 04,3304           54637                           TS       DSPCOUNT                              
007168,002276: 04,3305           54127                           TS       COUNT                                 
007169,002277: 04,3306           37646                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
007170,002278: 04,3307           70127                           MASK     COUNT                                 
007171,002279: 04,3310           56127                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
007172,002280: 04,3311           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 184

007174,002282: 04,3312           56021                           XCH      SR                                    #  DSREL IN A
007175,002283: 04,3313           50000                           INDEX    A                                     
007176,002284: 04,3314           10662                           CCS      DSPTAB                                
007177,002285: 04,3315           03317                           TC       +2                                    
007178,002286: 04,3317                                           LOC      +1                                    
007179,002287: 04,3317           67646                           AD       ONE                                   #  DSMAG IN A
007180,002288: 04,3320           50127                           INDEX    COUNT                                 
007181,002289: 04,3321           73235                           MASK     DSMSK                                 
007182,002290: 04,3322           50127                           INDEX    COUNT                                 
007183,002291: 04,3323           03324                           TC       +1                                    
007184,002292: 04,3324           03326                           TC       +2                                    #  EVEN(RIGHT)  OK
007185,002293: 04,3325           04447                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
007186,002294: 04,3326           54110                           TS       CODE                                  
007187,002295: 04,3327           47225                           CS       FIVE                                  
007188,002296: 04,3330           60637                           AD       DSPCOUNT                              #  DSPCOUNT-5
007189,002297: 04,3331           10000                           CCS      A                                     #  TO PREVENT -0
007190,002298: 04,3332           67646                           AD       ONE                                   
007191,002299: 04,3333           03335                           TC       +2                                    
007192,002300: 04,3335                                           LOC      +1                                    
007193,002301: 04,3335           54127                           TS       COUNT                                 
007194,002302: 04,3336           03157                           TC       DSPIN                                 #  CODE ALREADY IN CODE
007195,002303: 04,3337           40637                           CS       DSPCOUNT                              
007196,002304: 04,3340           64444                           AD       R1D1                                  #  OCT 16
007197,002305: 04,3341           10000                           CCS      A                                     
007198,002306: 04,3342           56637                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
007199,002307: 04,3343           67646                           AD       ONE                                   #  INCREMENT DSPCOUNT
007200,002308: 04,3344           03304                           TC       BUMP       +1                         
007201,002309: 
007202,002310: 04,3345           37653        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
007203,002311: 04,3346           54637                           TS       DSPCOUNT                              
007204,002312: 04,3347           63376                           AD       SWTAB      +2                         #  OCT 3
007205,002313: 04,3350           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
007206,002314: 04,3351           10662                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
007207,002315: 04,3352           03354                           TC       +2                                    
007208,002316: 04,3354                                           LOC      +1                                    
007209,002317: 04,3354           67646                           AD       ONE                                   
007210,002318: 04,3355           77634                           MASK     BIT11                                 
007211,002319: 04,3356           54110                           TS       CODE                                  
007212,002320: 04,3357           50637                           INDEX    DSPCOUNT                              
007213,002321: 04,3360           33374                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
007214,002322: 04,3361           03241                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
007215,002323: 04,3362           40637                           CS       DSPCOUNT                              
007216,002324: 04,3363           63376                           AD       SWTAB      +2                         #  OCT 3
007217,002325: 04,3364           10000                           CCS      A                                     
007218,002326: 04,3365           56637                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
007219,002327: 04,3366           67646                           AD       ONE                                   #  INCREMENT DSPCOUNT
007220,002328: 04,3367           03346                           TC       SWSGN      +1                         
007221,002329: 04,3370           34444                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
007222,002330: 04,3371           54637                           TS       DSPCOUNT                              
007223,002331: 04,3372           02454                           TC       5BLANK                                #  BLANKS R1

Page 185

007225,002333: 04,3373           00122                           TC       ENTEXIT                               
007226,002334: 
007227,002335: 04,3374           00000        SWTAB              OCT      0                                     #  -R3
007228,002336: 04,3375           00001                           OCT      1                                     #  +R3
007229,002337: 04,3376           00003                           OCT      3                                     #  -R2
007230,002338: 04,3377           00004                           OCT      4                                     #  +R2
007231,002339: 

Page 186

007233,002341:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
007234,002342:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN
007235,002343:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
007236,002344: 
007237,002345:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
007238,002346:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
007239,002347: 
007240,002348:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
007241,002349:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
007242,002350:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
007243,002351:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
007244,002352:                                                                                                  #  FURTHER ACTION).
007245,002353: 
007246,002354:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
007247,002355:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
007248,002356:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
007249,002357:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
007250,002358: 
007251,002359:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
007252,002360:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
007253,002361:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
007254,002362:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
007255,002363:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
007256,002364:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
007257,002365:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
007258,002366:                                                                                                  #  MONITOR SET UP.
007259,002367: 
007260,002368:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
007261,002369: 
007262,002370:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
007263,002371:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
007264,002372: 
007265,002373:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
007266,002374:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
007267,002375: 
007268,002376:    4356                                           SETLOC   MIDSIX     +1                         
007269,002377:    4356           54107        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
007270,002378:    4357           10652                           CCS      DSPLOCK                               
007271,002379:    4360           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
007272,002380:    4361           30002                           CA       Q                                     #  DSP SYST AVAILABLE
007273,002381:    4362           67646                           AD       ONE                                   
007274,002382:    4363           54700                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
007275,002383:    4364           04400                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
007276,002384:    4365           34371        NVSUBCOM           CAF      NVSBBBNK                              
007277,002385: 
007278,002386:    4366           56006                           XCH      BBANK                                 
007279,002387:    4367           54701                           TS       NVBNKTEM                              
007280,002388:    4370           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
007281,002389:    4371     0637                                  EBANK=   DSPCOUNT                              
007282,002390:    4371           12001        NVSBBBNK           BBCON    NVSUB1                                
007283,002391: 

Page 187

007285,002393:    4372           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
007286,002394:    4373           67646                           AD       ONE                                   
007287,002395:    4374           54700                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
007288,002396:    4375           04365                           TC       NVSUBCOM                              
007289,002397: 
007290,002398: 
007291,002399: 
007292,002400:    4376           52701        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
007293,002401:    4377           52006                           DXCH     Z                                     #  DTCB
007294,002402: 
007295,002403: 05,3344                                           SETLOC   ENDRQWT    +1                         
007296,002404: 
007297,002405: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
007298,002406: 05,3345           54122                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
007299,002407: 05,3346           33401                           CAF      LOW6                                  
007300,002408: 05,3347           70107                           MASK     NVTEMP                                
007301,002409: 05,3350           54140                           TS       MPAC                                  #  TEMP STORAGE
007302,002410: 05,3351           33402                           CAF      MID6                                  
007303,002411: 05,3352           70107                           MASK     NVTEMP                                
007304,002412: 05,3353           04447                           TC       RIGHT5                                
007305,002413: 05,3354           54020                           TS       CYR                                   
007306,002414: 05,3355           56020                           XCH      CYR                                   
007307,002415: 05,3356           54141                           TS       MPAC       +1                         #  TEMP STORAGE
007308,002416: 05,3357           10140                           CCS      MPAC                                  #  TEST NOUN
007309,002417: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
007310,002418: 05,3361           56141                           XCH      MPAC       +1                         
007311,002419: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB, THEN RETURN
007312,002420: 05,3363           04376        ENTSET             TC       NVSUBEND                              
007313,002421: 05,3364           10141                           CCS      MPAC       +1                         #  TEST VERB
007314,002422: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
007315,002423: 05,3366           56140                           XCH      MPAC                                  
007316,002424: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
007317,002425: 05,3370           04376                           TC       NVSUBEND                              
007318,002426: 05,3371           56141                           XCH      MPAC       +1                         
007319,002427: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
007320,002428: 05,3373           56140                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
007321,002429: 05,3374           02274                           TC       UPDATNN    -1                         
007322,002430: 05,3375           37653                           CAF      ZERO                                  
007323,002431: 05,3376           54654                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
007324,002432: 05,3377           54655                           TS       CLPASS                                
007325,002433: 05,3400           02031                           TC       ENTPAS0                               
007326,002434: 
007327,002435:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
007328,002436:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
007329,002437: 
007330,002438: 
007331,002439: 
007332,002440: 05,3401           00077        LOW6               OCT      77                                    
007333,002441: 05,3402           07700        MID6               OCT      7700                                  
007334,002442: 

Page 188

007336,002444:    4400                                           SETLOC   NVSUBEND   +2                         
007337,002445:    4400           47630        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
007338,002446:    4401           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
007339,002447:    4402           70661                           MASK     MONSAVE1                              
007340,002448:    4403           67630                           AD       BIT15                                 
007341,002449:    4404           54661                           TS       MONSAVE1                              
007342,002450:    4405           00003                           RELINT                                         
007343,002451:    4406           00002                           TC       Q                                     
007344,002452: 
007345,002453: 
007346,002454: 
007347,002455:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
007348,002456:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
007349,002457:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
007350,002458:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
007351,002459: 
007352,002460: 
007353,002461: 
007354,002462:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
007355,002463:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
007356,002464:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
007357,002465:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
007358,002466:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
007359,002467:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
007360,002468:                                                                                                  #  L+1      FOR TERMINATE
007361,002469:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
007362,002470:                                                                                                  #  L+3      FOR DATA IN
007363,002471:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
007364,002472: 
007365,002473:    4407           37646        ENDIDLE            CAF      ONE                                   
007366,002474:    4410           54652                           TS       DSPLOCK                               
007367,002475:    4411           22004                           LXCH     FBANK                                 
007368,002476:    4412           56002                           XCH      Q                                     
007369,002477:    4413           52120                           DXCH     BUF2                                  
007370,002478:    4414           04112                           TC       MAKECADR                              
007371,002479:    4415           54676                           TS       CADRSTOR                              
007372,002480:    4416           04164                           TC       JOBSLEEP                              
007373,002481: 
007374,002482: 
007375,002483: 
007376,002484:    4417           04205        ENDINST            TC       ENDOFJOB                              
007377,002485: 
007378,002486:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
007379,002487:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
007380,002488:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
007381,002489:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
007382,002490:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
007383,002491:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
007384,002492: 
007385,002493:    4420           10654        DATAWAIT           CCS      LOADSTAT                              

Page 189

007387,002495:    4421           14426                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
007388,002496:    4422           14407                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
007389,002497:    4423           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
007390,002498:    4424           50002                           INDEX    Q                                     #  DATA IN. RETURN TO L+3.
007391,002499:    4425           00002                           TC       2                                     
007392,002500:    4426           50002        DATWAIT1           INDEX    Q                                     #  RETURN TO L+2.
007393,002501:    4427           00001                           TC       1                                     
007394,002502: 
007395,002503:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
007396,002504:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
007397,002505: 
007398,002506: 
007399,002507: 
007400,002508: 05,3403                                           SETLOC   MID6       +1                         
007401,002509:                                                                                                  #  DSPMM PLACE MAJOR MODE CODE INTO MODREG
007402,002510: 
007403,002511: 05,3403           34510        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
007404,002512: 05,3404           56637                           XCH      DSPCOUNT                              
007405,002513: 05,3405           54124                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
007406,002514: 05,3406           30651                           CA       MODREG                                
007407,002515: 05,3407           22002                           LXCH     Q                                     
007408,002516: 05,3410           03255                           TC       DSP2BIT                               
007409,002517: 05,3411           56124                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
007410,002518: 05,3412           54637                           TS       DSPCOUNT                              
007411,002519: 05,3413           00001        DSPMMEND           TC       L                                     
007412,002520: 
007413,002521: 
007414,002522: 
007415,002523:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
007416,002524:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
007417,002525:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
007418,002526: 
007419,002527:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
007420,002528:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
007421,002529: 
007422,002530: 04,3400                                           SETLOC   SWTAB      +4                         
007423,002531: 
007424,002532: 04,3400           10676        RECALTST           CCS      CADRSTOR                              
007425,002533: 04,3401           03406                           TC       RECAL1                                
007426,002534: 04,3402           04205                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
007427,002535: 04,3403           03406                           TC       RECAL1                                
007428,002536: 04,3404           54676                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
007429,002537: 04,3405           03424                           TC       RECAL3                                #  +0 INTO CADRSTOR. RELEASE DISPLAY,
007430,002538:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT.
007431,002539: 04,3406           37653        RECAL1             CAF      ZERO                                  
007432,002540: 04,3407           56676                           XCH      CADRSTOR                              
007433,002541: 04,3410           00004                           INHINT                                         
007434,002542: 04,3411           04170                           TC       JOBWAKE                               
007435,002543: 04,3412           10654                           CCS      LOADSTAT                              
007436,002544: 04,3413           03430                           TC       DOPROC                                #  + PROCEED WITHOUT DATA

Page 190

007438,002546: 04,3414           04205                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
007439,002547: 04,3415           03426                           TC       DOTERM                                #  -   TERMINATE
007440,002548: 04,3416           37645                           CAF      TWO                                   
007441,002549: 04,3417           50635        RECAL2             INDEX    LOCCTR                                
007442,002550: 04,3420           60150                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
007443,002551: 04,3421           50635                           INDEX    LOCCTR                                
007444,002552: 04,3422           54150                           TS       LOC                                   
007445,002553: 04,3423           00003                           RELINT                                         
007446,002554: 04,3424           04633        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
007447,002555: 04,3425           04205                           TC       ENDOFJOB                              
007448,002556: 
007449,002557: 04,3426           37653        DOTERM             CAF      ZERO                                  
007450,002558: 04,3427           03417                           TC       RECAL2                                
007451,002559: 
007452,002560: 04,3430           37646        DOPROC             CAF      ONE                                   
007453,002561: 04,3431           03417                           TC       RECAL2                                
007454,002562: 

Page 191

007456,002564:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
007457,002565: 
007458,002566: 
007459,002567: 
007460,002568:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
007461,002569: 
007462,002570:                                                                                                  #  00000                           1 COMPONENT
007463,002571:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
007464,002572:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
007465,002573: 
007466,002574: 
007467,002575: 
007468,002576:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
007469,002577: 
007470,002578:                                                                                                  #  00000    OCTAL ONLY
007471,002579:                                                                                                  #  00001    STRAIGHT FRACTIONAL
007472,002580:                                                                                                  #  00010    DEGREES (XXX.XX)
007473,002581:                                                                                                  #  00011    ARITHMETIC SF
007474,002582:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)      IN(STRAIGHT)
007475,002583:                                                                                                  #  00101    ARITH DP2   OUT(STRAIGHT)                 IN(SL 7 AT END)
007476,002584:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
007477,002585:                                                                                                  #  00111    ARITH DP3   OUT ( SL 7 AT END)       IN ( STRAIGHT)
007478,002586:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
007479,002587: 
007480,002588: 
007481,002589: 
007482,002590:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
007483,002591: 
007484,002592:                                                                                                  #  00000                           WHOLE
007485,002593:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
007486,002594:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
007487,002595:                                                                                                  #  00010                           DEGREES
007488,002596:                                                                                                  #  00010                           OPTICS DEGREES
007489,002597:                                                                                                  #  00011                           GYRO DEGREES(XX.XXX) USE ARITH DP1
007490,002598:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
007491,002599:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
007492,002600:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
007493,002601:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
007494,002602:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
007495,002603:                                                                                                  #                                      XXXXX. PARTS/MILLION
007496,002604:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
007497,002605:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
007498,002606:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
007499,002607:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
007500,002608:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
007501,002609: 
007502,002610: 
007503,002611: 
007504,002612:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
007505,002613:                                                                                                  #  NOUN TABLES.

Page 192

007507,002615:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
007508,002616:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
007509,002617:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
007510,002618: 

Page 193

007512,002620:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
007513,002621:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
007514,002622:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
007515,002623: 
007516,002624: 
007517,002625: 
007518,002626:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
007519,002627:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
007520,002628:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
007521,002629:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
007522,002630:                                                                                                  #  MIXED OR NORMAL NOUN.
007523,002631: 
007524,002632: 06,2000                                           SETLOC   24000                                 
007525,002633: 
007526,002634: 06,2000           52136        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
007527,002635: 06,2001           50642                           INDEX    NOUNREG                               
007528,002636: 06,2002           32052                           CAF      NNADTAB                               
007529,002637: 06,2003           54132                           TS       NNADTEM                               
007530,002638: 06,2004           50642                           INDEX    NOUNREG                               
007531,002639: 06,2005           32152                           CAF      NNTYPTAB                              
007532,002640: 06,2006           54133                           TS       NNTYPTEM                              
007533,002641: 06,2007           40642                           CS       NOUNREG                               
007534,002642: 06,2010           62036                           AD       MIXCON                                
007535,002643: 06,2011           00006                           EXTEND                                         
007536,002644: 06,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
007537,002645: 06,2013           37646                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
007538,002646: 06,2014           54124                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
007539,002647: 06,2015           02034                           TC       LODNLV                                
007540,002648: 06,2016           37645        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
007541,002649: 06,2017           54124                           TS       MIXBR                                 
007542,002650: 06,2020           50642                           INDEX    NOUNREG                               
007543,002651: 06,2021           32345                           CAF      RUTMXTAB   -55                        
007544,002652: 06,2022           54137                           TS       RUTMXTEM                              
007545,002653: 06,2023           36425                           CAF      LOW10                                 
007546,002654: 06,2024           70132                           MASK     NNADTEM                               
007547,002655: 06,2025           54002                           TS       Q                                     #  TEMP
007548,002656: 06,2026           50000                           INDEX    A                                     
007549,002657: 06,2027           32332                           CAF      IDADDTAB                              
007550,002658: 06,2030           54134                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
007551,002659: 06,2031           00006                           EXTEND                                         
007552,002660: 06,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
007553,002661: 06,2033           32334                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
007554,002662: 06,2034           52136        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
007555,002663: 06,2035           52006                           DXCH     Z                                     
007556,002664: 
007557,002665: 06,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
007558,002666: 
007559,002667: 
007560,002668: 
007561,002669:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
007562,002670: 

Page 194

007564,002672: 06,2037           52110        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.

"Gyro Scale Factor" is written in the margin on the right.

007566,002674: 06,2040           00006                           EXTEND                                         
007567,002675: 06,2041           50000                           INDEX    A                                     
007568,002676: 06,2042           32303                           DCA      SFOUTAB                               
007569,002677: 06,2043           52110        SFCOM              DXCH     SFTEMP1                               
007570,002678: 06,2044           52006                           DXCH     Z                                     
007571,002679: 
007572,002680: 
007573,002681: 
007574,002682:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
007575,002683: 
007576,002684: 06,2045           52110        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
007577,002685: 06,2046           00006                           EXTEND                                         
007578,002686: 06,2047           50000                           INDEX    A                                     
007579,002687: 06,2050           32253                           DCA      SFINTAB                               
007580,002688: 06,2051           12043                           TCF      SFCOM                                 
007581,002689: 
007582,002690: 
007583,002691:                                                                                                  #  NN  NORMAL NOUNS
007584,002692: 06,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
007585,002693: 06,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
007586,002694: 06,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
007587,002695: 06,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
007588,002696: 06,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
007589,002697: 06,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
007590,002698: 06,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
007591,002699: 06,2061           40000                           OCT      40000                                 #  07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
007592,002700: 06,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
007593,002701: 06,2063           00000                           OCT      00000                                 #  11 SPARE
007594,002702: 06,2064           00000                           OCT      00000                                 #  12 SPARE
007595,002703: 06,2065           00000                           OCT      00000                                 #  13 SPARE
007596,002704: 06,2066           00000                           OCT      00000                                 #  14 SPARE
007597,002705: 06,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
007598,002706: 06,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
007599,002707: 06,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
007600,002708: 06,2072           00032                           ECADR    CDUX                                  #  20 ICDU
007601,002709: 06,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
007602,002710: 06,2074           00716                           ECADR    THETAD                                #  22 NEW ANGLES I
007603,002711: 06,2075           00711                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
007604,002712: 06,2076           00706                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
007605,002713: 06,2077           00706                           ECADR    DSPTEM1                               #  25 CHECKLIST
007606,002714: 06,2100           00706                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
007607,002715: 06,2101           01047                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
007608,002716: 06,2102           00706                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
007609,002717: 06,2103           00721                           ECADR    FAILREG                               #  31 FAILREG
007610,002718: 06,2104           00722                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
007611,002719: 06,2105           00724                           ECADR    TET                                   #  33 EPHEMERIS TIME (MIDCOURSE)
007612,002720: 06,2106           00726                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
007613,002721: 06,2107           00730                           ECADR    ROLL                                  #  35 ROLL, PITCH, YAW

Page 195

007615,002723: 06,2110           00733                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
007616,002724: 06,2111           00736                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
007617,002725: 06,2112           00000                           OCT      00000                                 #  40 SPARE
007618,002726: 06,2113           00000                           OCT      00000                                 #  41 SPARE
007619,002727: 06,2114           00000                           OCT      00000                                 #  42 SPARE
007620,002728: 06,2115           00000                           OCT      00000                                 #  43 SPARE
007621,002729: 06,2116           00000                           OCT      00000                                 #  44 SPARE
007622,002730: 06,2117           00000                           OCT      00000                                 #  45 SPARE
007623,002731: 06,2120           00000                           OCT      00000                                 #  46 SPARE
007624,002732: 06,2121           00000                           OCT      00000                                 #  47 SPARE
007625,002733: 06,2122           00000                           OCT      00000                                 #  50 SPARE
007626,002734: 06,2123           00000                           OCT      00000                                 #  51 SPARE
007627,002735: 06,2124           00741                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
007628,002736: 06,2125           00744                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
007629,002737: 06,2126           00747                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
007630,002738: 
007631,002739:                                                                                                  #  NN  MIXED NOUNS
007632,002740: 06,2127           02000                           OCT      02000                                 #  55 OCDU
007633,002741: 06,2130           04002                           OCT      04002                                 #  56 UNCALLED MARK DATA (OCDU & TIME(SEC))
007634,002742: 06,2131           02005                           OCT      02005                                 #  57 NEW ANGLES OCDU
007635,002743: 06,2132           04007                           OCT      04007                                 #  60 IMU MODE STATUS
007636,002744: 06,2133           02012                           OCT      02012                                 #  61 TARGET AZIMUTH AND ELEVATION
007637,002745: 06,2134           02014                           OCT      02014                                 #  62 ICDUZ AND TIME(SEC)
007638,002746: 06,2135           02016                           OCT      02016                                 #  63 OCDUX AND TIME(SEC)
007639,002747: 06,2136           02020                           OCT      02020                                 #  64 OCDUY AND TIME(SEC)
007640,002748: 06,2137           02022                           OCT      02022                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
007641,002749:                                                                                                  #       (FETCHED IN INTERRUPT)
007642,002750: 06,2140           04024                           OCT      04024                                 #  66 SYSTEM TEST RESULTS
007643,002751: 06,2141           04027                           OCT      04027                                 #  67 DELTA GYRO ANGLES
007644,002752: 06,2142           04032                           OCT      04032                                 #  70 PIPA BIAS
007645,002753: 06,2143           04035                           OCT      04035                                 #  71 PIPA SCALE FACTOR ERROR
007646,002754: 06,2144           04040                           OCT      04040                                 #  72 DELTA POSITION
007647,002755: 06,2145           04043                           OCT      04043                                 #  73 DELTA VELOCITY
007648,002756: 06,2146           04046                           OCT      04046                                 #  74 MEASUREMENT DATA (MIDCOURSE)
007649,002757: 06,2147           04051                           OCT      04051                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
007650,002758: 06,2150           04054                           OCT      04054                                 #  76 POSITION VECTOR
007651,002759: 06,2151           04057                           OCT      04057                                 #  77 VELOCITY VECTOR
007652,002760: 
007653,002761: 
007654,002762: 
007655,002763:                                                                                                  #  NN        NORMAL NOUNS
007656,002764: 06,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
007657,002765: 06,2153           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
007658,002766: 06,2154           00140                           OCT      00140                                 #  02 1COMP  WHOLE
007659,002767: 06,2155           00102                           OCT      00102                                 #  03 1COMP  DEGREES
007660,002768: 06,2156           00241                           OCT      00241                                 #  04 1COMP  HOURS
007661,002769: 06,2157           00200                           OCT      00200                                 #  05 1COMP  SECONDS
007662,002770: 06,2160           00203                           OCT      00203                                 #  06 1COMP  GYRO DEGREES
007663,002771: 06,2161           00302                           OCT      00302                                 #  07 1COMP  Y OPT DEGREES
007664,002772: 06,2162           00000                           OCT      00000                                 #  10 1COMP  OCTAL ONLY

Page 196

007666,002774: 06,2163           00000                           OCT      00000                                 #  11        SPARE
007667,002775: 06,2164           00000                           OCT      00000                                 #  12        SPARE
007668,002776: 06,2165           00000                           OCT      00000                                 #  13        SPARE
007669,002777: 06,2166           00000                           OCT      00000                                 #  14        SPARE
007670,002778: 06,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
007671,002779: 06,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
007672,002780: 06,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
007673,002781: 06,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
007674,002782: 06,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
007675,002783: 06,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
007676,002784: 06,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
007677,002785: 06,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
007678,002786: 06,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
007679,002787: 06,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
007680,002788: 06,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
007681,002789: 06,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
007682,002790: 06,2203           02000                           OCT      02000                                 #  31 3COMP  OCTAL ONLY
007683,002791: 06,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
007684,002792: 06,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
007685,002793: 06,2206           00350                           OCT      00350                                 #  34 1COMP  POSITION
007686,002794: 06,2207           04102                           OCT      04102                                 #  35 3COMP  DEGREES
007687,002795: 06,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
007688,002796: 06,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
007689,002797: 06,2212           00000                           OCT      00000                                 #  40        SPARE
007690,002798: 06,2213           00000                           OCT      00000                                 #  41        SPARE
007691,002799: 06,2214           00000                           OCT      00000                                 #  42        SPARE
007692,002800: 06,2215           00000                           OCT      00000                                 #  43        SPARE
007693,002801: 06,2216           00000                           OCT      00000                                 #  44        SPARE
007694,002802: 06,2217           00000                           OCT      00000                                 #  45        SPARE
007695,002803: 06,2220           00000                           OCT      00000                                 #  46        SPARE
007696,002804: 06,2221           00000                           OCT      00000                                 #  47        SPARE
007697,002805: 06,2222           00000                           OCT      00000                                 #  50        SPARE
007698,002806: 06,2223           00000                           OCT      00000                                 #  51        SPARE
007699,002807: 06,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
007700,002808: 06,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
007701,002809: 06,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
007702,002810: 
007703,002811:                                                                                                  #  NN        MIXED NOUNS
007704,002812: 06,2227           00102                           OCT      00102                                 #  55 2COMP  DEGREES, Y OPT DEGREES
007705,002813: 06,2230           00102                           OCT      00102                                 #  56 3COMP  DEGREES, Y OPT DEGREES, SECS
007706,002814: 06,2231           00102                           OCT      00102                                 #  57 2COMP  DEGREES, Y OPT DEGREES
007707,002815: 06,2232           00000                           OCT      00000                                 #  60 3COMP  OCTAL ONLY
007708,002816: 06,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
007709,002817: 06,2234           00002                           OCT      00002                                 #  62 2COMP  DEGREES, SECS
007710,002818: 06,2235           00002                           OCT      00002                                 #  63 2COMP  DEGREES, SECS
007711,002819: 06,2236           00002                           OCT      00002                                 #  64 2COMP  Y OPT DEGREES, SECS
007712,002820: 06,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
007713,002821: 06,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
007714,002822: 06,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
007715,002823: 06,2242           14306                           OCT      14306                                 #  70 3COMP  PIPA BIAS FOR EACH

Page 197

007717,002825: 06,2243           16347                           OCT      16347                                 #  71 3COMP  PIPA SCALE FACTOR ERR.FOR EACH
007718,002826: 06,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
007719,002827: 06,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
007720,002828: 06,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
007721,002829: 06,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
007722,002830: 06,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
007723,002831: 06,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
007724,002832: 
007725,002833: 
007726,002834: 
007727,002835: 06,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
007728,002836: 06,2253           03240                           OCT      03240                                 
007729,002837: 06,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
007730,002838: 06,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
007731,002839: 06,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF)
007732,002840: 06,2257           00000                           OCT      0                                     
007733,002841: 06,2260           00021                           OCT      00021                                 #  GYRO DEGREES
007734,002842: 06,2261           30707                           OCT      30707                                 
007735,002843: 06,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
007736,002844: 06,2263           02133                           OCT      02133                                 
007737,002845: 06,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
007738,002846: 06,2265           30322                           OCT      30322                                 
007739,002847: 06,2266           00004                           OCT      00004                                 #  PIPA BIAS
007740,002848: 06,2267           14021                           OCT      14021                                 
007741,002849: 06,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
007742,002850: 06,2271           31463                           OCT      31463                                 
007743,002851: 06,2272           23420                           OCT      23420                                 #  POSITION
007744,002852: 06,2273           00000                           OCT      00000                                 
007745,002853: 06,2274           00201                           OCT      00201                                 #  VELOCITY
007746,002854: 06,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
007747,002855: 06,2276           01371                           OCT      01371                                 #  TIME WEEKS
007748,002856: 06,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
007749,002857: 06,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
007750,002858: 06,2301           03434                           OCT      03434                                 
007751,002859:                                                                                                  #  END OF SFINTAB
007752,002860: 
007753,002861: 
007754,002862: 
007755,002863: 06,2302           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
007756,002864: 06,2303           13261                           OCT      13261                                 
007757,002865: 06,2304           27670                           OCT      27670                                 #  TIME HOURS
007758,002866: 06,2305           31357                           OCT      31357                                 
007759,002867: 06,2306           00000                           OCT      0                                     #  DEGREES
007760,002868: 06,2307           00000                           OCT      0                                     
007761,002869: 06,2310           01631                           OCT      01631                                 #  GYRO DEGREES
007762,002870: 06,2311           23146                           OCT      23146                                 
007763,002871: 06,2312           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
007764,002872: 06,2313           32323                           OCT      32323                                 
007765,002873: 06,2314           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
007766,002874: 06,2315           06400                           OCT      06400                                 

Page 198

007768,002876: 06,2316           07237                           OCT      07237                                 #  PIPA BIAS
007769,002877: 06,2317           37776                           OCT      37776                                 
007770,002878: 06,2320           00120                           OCT      00120                                 #  PIPA SCALE ERROR
007771,002879: 06,2321           00000                           OCT      00000                                 
007772,002880: 06,2322           00321                           OCT      00321                                 #  POSITION
007773,002881: 06,2323           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
007774,002882: 06,2324           37441                           OCT      37441                                 #  VELOCITY
007775,002883: 06,2325           14247                           OCT      14247                                 
007776,002884: 06,2326           05300                           OCT      05300                                 #  TIME WEEKS
007777,002885: 06,2327           20305                           OCT      20305                                 
007778,002886: 06,2330           34631                           OCT      34631                                 #  ELEVATION DEGREES
007779,002887: 06,2331           23146                           OCT      23146                                 
007780,002888:                                                                                                  #  END OF SFOUTAB
007781,002889: 
007782,002890: 
007783,002891: 
007784,002892:                                                                                                  #  MIXNOUN  SF ROUT
007785,002893: 06,2332           00036        IDADDTAB           ECADR    OPTX                                  #  01       DEGREES
007786,002894: 06,2333           00035                           ECADR    OPTY                                  #  01       Y OPT DEGREES
007787,002895: 06,2334           00706                           ECADR    DSPTEM1                               #  02       DEGREES
007788,002896: 06,2335           00707                           ECADR    DSPTEM1    +1                         #  02       Y OPT DEGREES
007789,002897: 06,2336           00710                           ECADR    DSPTEM1    +2                         #  02       SEC
007790,002898: 06,2337           00752                           ECADR    DESOPTX                               #  03       DEGREES
007791,002899: 06,2340           00753                           ECADR    DESOPTX    +1                         #  03       Y OPT DEGREES
007792,002900: 06,2341           01017                           ECADR    WASKSET                               #  04       OCTAL ONLY****CHANGE TO IN3****
007793,002901: 06,2342           01017                           ECADR    WASKSET                               #  04       OCTAL ONLY
007794,002902: 06,2343           01021                           ECADR    OLDERR                                #  04       OCTAL ONLY
007795,002903: 06,2344           00706                           ECADR    DSPTEM1                               #  05       DEGREES
007796,002904: 06,2345           00707                           ECADR    DSPTEM1    +1                         #  05       ELEVATION DEGREES
007797,002905: 06,2346           00034                           ECADR    CDUZ                                  #  06       DEGREES
007798,002906: 06,2347           00024                           ECADR    TIME2                                 #  06       SEC
007799,002907: 06,2350           00036                           ECADR    OPTX                                  #  07       DEGREES
007800,002908: 06,2351           00024                           ECADR    TIME2                                 #  07       SEC
007801,002909: 06,2352           00035                           ECADR    OPTY                                  #  10       Y OPT DEGREES
007802,002910: 06,2353           00024                           ECADR    TIME2                                 #  10       SEC
007803,002911: 06,2354           00754                           ECADR    SAMPTIME                              #  11       HOURS
007804,002912: 06,2355           00754                           ECADR    SAMPTIME                              #  11       SECONDS
007805,002913: 06,2356           00711                           ECADR    DSPTEM2                               #  12       WHOLE
007806,002914: 06,2357           00712                           ECADR    DSPTEM2    +1                         #  12       FRACTIONAL
007807,002915: 06,2360           00713                           ECADR    DSPTEM2    +2                         #  12       WHOLE
007808,002916: 06,2361           00756                           ECADR    DELVX                                 #  13       GYRO DEGREES
007809,002917: 06,2362           00760                           ECADR    DELVX      +2                         #  13       GYRO DEGREES
007810,002918: 06,2363           00762                           ECADR    DELVX      +4                         #  13       GYRO DEGREES
007811,002919: 06,2364           00764                           ECADR    PBIASX                                #  14       PIPA BIAS
007812,002920: 06,2365           00766                           ECADR    PBIASY                                #  14       PIPA BIAS
007813,002921: 06,2366           00770                           ECADR    PBIASZ                                #  14       PIPA BIAS
007814,002922: 06,2367           00765                           ECADR    PIPASCFX                              #  15       PIPA SCALE FACTOR ERROR
007815,002923: 06,2370           00767                           ECADR    PIPASCFY                              #  15       PIPA SCALE FACTOR ERROR
007816,002924: 06,2371           00771                           ECADR    PIPASCFZ                              #  15       PIPA SCALE FACTOR ERROR
007817,002925: 06,2372           01000                           ECADR    DELR                                  #  16       POSITION

Page 199

007819,002927: 06,2373           01002                           ECADR    DELR       +2                         #  16       POSITION
007820,002928: 06,2374           01004                           ECADR    DELR       +4                         #  16       POSITION
007821,002929: 06,2375           01006                           ECADR    DELVEL                                #  17       VELOCITY
007822,002930: 06,2376           01010                           ECADR    DELVEL     +2                         #  17       VELOCITY
007823,002931: 06,2377           01012                           ECADR    DELVEL     +4                         #  17       VELOCITY
007824,002932: 06,2400           00722                           ECADR    TDEC                                  #  20       TIME WEEKS
007825,002933: 06,2401           00726                           ECADR    MEASQ                                 #  20       POSITION
007826,002934: 06,2402           01014                           ECADR    MEASMODE                              #  20       WHOLE
007827,002935: 06,2403           00706                           ECADR    DSPTEM1                               #  21       POSITION
007828,002936: 06,2404           00710                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
007829,002937: 06,2405           01015                           ECADR    DELTAQ                                #  21       POSITION
007830,002938: 06,2406           00706                           ECADR    DSPTEM1                               #  22       POSITION
007831,002939: 06,2407           00710                           ECADR    DSPTEM1    +2                         #  22       POSITION
007832,002940: 06,2410           00712                           ECADR    DSPTEM1    +4                         #  22       POSITION
007833,002941: 06,2411           00706                           ECADR    DSPTEM1                               #  23       VELOCITY
007834,002942: 06,2412           00710                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
007835,002943: 06,2413           00712                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
007836,002944: 06,2414           00000                           OCT      00000                                 #           SPARE
007837,002945: 06,2415           00000                           OCT      00000                                 #           SPARE
007838,002946: 06,2416           00000                           OCT      00000                                 #           SPARE
007839,002947: 06,2417           00000                           OCT      00000                                 #           SPARE
007840,002948: 06,2420           00000                           OCT      00000                                 #           SPARE
007841,002949: 06,2421           00000                           OCT      00000                                 #           SPARE
007842,002950:                                                                                                  #  END OF IDADDTAB
007843,002951: 
007844,002952: 
007845,002953: 
007846,002954:                                                                                                  #  MIXNOUN  SF ROUT
007847,002955: 06,2422           00302        RUTMXTAB           OCT      00302                                 #  01  DEGREES, Y OPT DEGREES
007848,002956: 06,2423           10302                           OCT      10302                                 #  02  DEGREES, Y OPT DEGREES, SECONDS
007849,002957: 06,2424           00302                           OCT      00302                                 #  03  DEGREES, Y OPT DEGREES
007850,002958: 06,2425           00000                           OCT      00000                                 #  04  OCTAL ONLY
007851,002959: 06,2426           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
007852,002960: 06,2427           00202                           OCT      00202                                 #  06  DEGREES, SECONDS
007853,002961: 06,2430           00202                           OCT      00202                                 #  07  DEGREES, SECONDS
007854,002962: 06,2431           00206                           OCT      00206                                 #  10  Y OPT DEGREES, SECONDS
007855,002963: 06,2432           00205                           OCT      00205                                 #  11  HOURS, SECONDS
007856,002964: 06,2433           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
007857,002965: 06,2434           10204                           OCT      10204                                 #  13  GYRO DEGREES (FOR EACH)
007858,002966: 06,2435           06143                           OCT      06143                                 #  14  PIPA BIAS (FOR EACH)
007859,002967: 06,2436           06143                           OCT      06143                                 #  15  PIPA SCALE FACTOR ERROR (FOR EACH)
007860,002968: 06,2437           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
007861,002969: 06,2440           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
007862,002970: 06,2441           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
007863,002971: 06,2442           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
007864,002972: 06,2443           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
007865,002973: 06,2444           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
007866,002974:                                                                                                  #  END OF RUTMXTAB
007867,002975: 

Page 200

007869,002977:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
007870,002978: 
007871,002979: 
007872,002980: 
007873,002981:    4430                                           SETLOC   DATWAIT1   +2                         
007874,002982: 
007875,002983:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
007876,002984:                                                                                                  #                ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
007877,002985: 
007878,002986:    4430           54657        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
007879,002987:    4431           54003                           TS       EBANK                                 #  SET EBANK BITS
007880,002988:    4432           74504                           MASK     LOW8                                  
007881,002989:    4433           64505                           AD       OCT1400                               
007882,002990:    4434           54131                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
007883,002991:    4435           00002                           TC       Q                                     
007884,002992: 
007885,002993: 
007886,002994: 
007887,002995:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
007888,002996:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
007889,002997: 
007890,002998:    4436           30657        SETNADD            CA       NOUNCADR                              
007891,002999:    4437           14431                           TCF      SETNCADR   +1                         
007892,003000: 
007893,003001: 
007894,003002: 
007895,003003:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
007896,003004:                                                                                                  #                DERIVED AND LEFT IN A.
007897,003005: 
007898,003006:    4440           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
007899,003007:    4441           74504                           MASK     LOW8                                  
007900,003008:    4442           64505                           AD       OCT1400                               #  E ADRES LEFT IN A
007901,003009:    4443           00002                           TC       Q                                     
007902,003010: 
007903,003011: 
007904,003012: 
007905,003013:    4444           00016        R1D1               OCT      16                                    
007906,003014:    4445           00011        R2D1               OCT      11                                    
007907,003015:    4446           00004        R3D1               OCT      4                                     
007908,003016: 
007909,003017:    4447           54020        RIGHT5             TS       CYR                                   
007910,003018:    4450           40020                           CS       CYR                                   
007911,003019:    4451           40020                           CS       CYR                                   
007912,003020:    4452           40020                           CS       CYR                                   
007913,003021:    4453           40020                           CS       CYR                                   
007914,003022:    4454           56020                           XCH      CYR                                   
007915,003023:    4455           00002                           TC       Q                                     
007916,003024: 
007917,003025:    4456           54022        LEFT5              TS       CYL                                   
007918,003026:    4457           40022                           CS       CYL                                   

Page 201

007920,003028:    4460           40022                           CS       CYL                                   
007921,003029:    4461           40022                           CS       CYL                                   
007922,003030:    4462           40022                           CS       CYL                                   
007923,003031:    4463           56022                           XCH      CYL                                   
007924,003032:    4464           00002                           TC       Q                                     
007925,003033: 
007926,003034:    4465           60000        SLEFT5             DOUBLE                                         
007927,003035:    4466           60000                           DOUBLE                                         
007928,003036:    4467           60000                           DOUBLE                                         
007929,003037:    4470           60000                           DOUBLE                                         
007930,003038:    4471           60000                           DOUBLE                                         
007931,003039:    4472           00002                           TC       Q                                     
007932,003040: 
007933,003041: 
007934,003042: 
007935,003043:    4473           00037        LOW5               OCT      37                                    
007936,003044:    4474           01740        MID5               OCT      1740                                  
007937,003045:    4475           76000        HI5                OCT      76000                                 #  MUST STAY HERE
007938,003046: 
007939,003047:    4476           04131        TCNOVAC            TC       NOVAC                                 
007940,003048:    4477           04251        TCWAIT             TC       WAITLIST                              
007941,003049:    4500           04321        TCTSKOVR           TC       TASKOVER                              
007942,003050:    4501           04142        TCFINDVC           TC       FINDVAC                               
007943,003051: 
007944,003052: 
007945,003053: 
007946,003054:    4502           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
007947,003055: 
007948,003056: 
007949,003057: 
007950,003058:    4503           03777        LOW11              OCT      3777                                  
007951,003059:    4504           00377        LOW8               OCT      377                                   
007952,003060:    4505           01400        OCT1400            OCT      1400                                  
007953,003061: 
007954,003062: 
007955,003063: 
007956,003064:    4506           00023        VD1                OCT      23                                    
007957,003065:    4507           00021        ND1                OCT      21                                    
007958,003066:    4510           00025        MD1                OCT      25                                    
007959,003067: 
007960,003068:    4511           00012        BINCON             DEC      10         B-14                       
007961,003069: 
007962,003070:    4512           37640        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
007963,003071:    4513           00006                           EXTEND                                         
007964,003072:    4514           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
007965,003073:    4515           00002                           TC       Q                                     
007966,003074: 
007967,003075:    4516           47640        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
007968,003076:    4517           00006                           EXTEND                                         
007969,003077:    4520           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11

Page 202

007971,003079:    4521           00002                           TC       Q                                     
007972,003080: 
007973,003081:    4522           37642        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
007974,003082:    4523           00006                           EXTEND                                         
007975,003083:    4524           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
007976,003084:    4525           00002                           TC       Q                                     
007977,003085: 
007978,003086:    4526           00006        LODSAMPT           EXTEND                                         
007979,003087:    4527           30025                           DCA      TIME2                                 
007980,003088:    4530           52755                           DXCH     SAMPTIME                              
007981,003089:    4531           00002                           TC       Q                                     
007982,003090: 
007983,003091: 
007984,003092: 
007985,003093:    4532           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
007986,003094:    4533           30142                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
007987,003095:    4534           20142                           DAS      MPAC       +1                         
007988,003096:    4535           60140                           AD       MPAC                                  
007989,003097:    4536           26140                           ADS      MPAC                                  
007990,003098:    4537           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
007991,003099:    4540           00002                           TC       Q                                     #  NO NET OF/UF
007992,003100:    4541           54105                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
007993,003101:    4542           00002                           TC       Q                                     
007994,003102: 
007995,003103: 
007996,003104: 
007997,003105:    4543           37641        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
007998,003106:    4544           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
007999,003107:    4545           05011                           WOR      DSALMOUT                              
008000,003108:    4546           00002                           TC       Q                                     
008001,003109: 
008002,003110: 
008003,003111: 
008004,003112:    4547           47641        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
008005,003113:    4550           00006                           EXTEND                                         
008006,003114:    4551           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
008007,003115:    4552           00002                           TC       Q                                     
008008,003116: 

Page 203

008010,003118:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
008011,003119:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
008012,003120:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
008013,003121: 
008014,003122:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
008015,003123:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
008016,003124: 
008017,003125:                                                                                                  #        THE CALLING SEQUENCES ARE
008018,003126:                                                                                                  #  L        TC     GRABDSP
008019,003127:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
008020,003128:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
008021,003129: 
008022,003130:                                                                                                  #  L        TC     NVSUB
008023,003131:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
008024,003132:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
008025,003133: 
008026,003134: 
008027,003135: 
008028,003136:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
008029,003137:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
008030,003138:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
008031,003139:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
008032,003140:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
008033,003141: 
008034,003142:                                                                                                  #        THE CALLING SEQUENCE IS
008035,003143:                                                                                                  #           CAF    WAKEFCADR
008036,003144:                                                                                                  #           TC     GRABUSY
008037,003145: 
008038,003146:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
008039,003147:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
008040,003148:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
008041,003149:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
008042,003150:                                                                                                  #                                              YOUR CADR IS PUT
008043,003151:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
008044,003152: 
008045,003153:                                                                                                  #         THE CALLING SEQUENCE IS
008046,003154:                                                                                                  #           CAF    WAKEFCADR
008047,003155:                                                                                                  #           TC     NVSUBUSY
008048,003156: 
008049,003157: 
008050,003158:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
008051,003159:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
008052,003160:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
008053,003161: 
008054,003162: 
008055,003163: 
008056,003164:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
008057,003165:                                                                                                  #  AND DISPLAY SYSTEM.
008058,003166:                                                                                                  #  +0  FREE

Page 204

008060,003168:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
008061,003169:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
008062,003170: 
008063,003171: 
008064,003172: 
008065,003173:    4553           10677        GRABDSP            CCS      GRABLOCK                              
008066,003174:    4554           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
008067,003175:    4555           37646                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
008068,003176:    4556           54677                           TS       GRABLOCK                              #  AND RETURN TO L+2
008069,003177:    4557           50002                           INDEX    Q                                     
008070,003178:    4560           00001                           TC       1                                     
008071,003179: 
008072,003180: 
008073,003181: 
008074,003182:    4561           36425        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
008075,003183:    4562           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
008076,003184:    4563           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
008077,003185:    4564           04102        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
008078,003186:    4565           10000                           CADR     GRABUSYB                              
008079,003187: 04,3432                                           SETLOC   DOPROC     +2                         
008080,003188: 04,3432           54001        GRABUSY1           TS       L                                     
008081,003189: 04,3433           10677                           CCS      GRABLOCK                              
008082,003190: 04,3434           03437                           TC       +3                                    #  STILL GRABBED
008083,003191: 04,3435           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
008084,003192: 04,3436           04105                           TC       BANKJUMP                              
008085,003193: 04,3437           37645                           CAF      TWO                                   
008086,003194: 04,3440           54130                           TS       LSTPTR                                
008087,003195: 04,3441           50130                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
008088,003196: 04,3442           10702                           CCS      DSPLIST                               #  FROM BOTTOM.
008089,003197: 04,3443           03445                           TC       +2                                    
008090,003198: 04,3444           03450                           TC       PUTINLST                              #  SPACE FOUND
008091,003199: 04,3445           10130                           CCS      LSTPTR                                #  DECREMENT POINTER
008092,003200: 04,3446           03440                           TC       -6                                    
008093,003201: 04,3447           03514                           TC       LSTFULL                               
008094,003202: 04,3450           30001        PUTINLST           CA       L                                     
008095,003203: 04,3451           50130                           INDEX    LSTPTR                                
008096,003204: 04,3452           54702                           TS       DSPLIST                               
008097,003205: 04,3453           04164                           TC       JOBSLEEP                              
008098,003206: 
008099,003207: 
008100,003208: 
008101,003209:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
008102,003210:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
008103,003211:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
008104,003212:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
008105,003213:                                                                                                  #  SYSTEM IS FREED.
008106,003214: 
008107,003215:    4566                                           SETLOC   GRABUSY    +2                         
008108,003216:    4566           10677        GRABWAIT           CCS      GRABLOCK                              
008109,003217:    4567           14561                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.

Page 205

008111,003219:    4570           37646                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.
008112,003220:    4571           54677                           TS       GRABLOCK                              
008113,003221:    4572           00002                           TC       Q                                     
008114,003222: 
008115,003223: 
008116,003224: 
008117,003225:    4573           44600        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
008118,003226:    4574           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
008119,003227:    4575           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
008120,003228:    4576           04102        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
008121,003229:    4577           10001                           CADR     NVSUBSYB                              
008122,003230:    4600           02003        2K+3               OCT      2003                                  
008123,003231: 
008124,003232: 04,3454                                           SETLOC   PUTINLST   +4                         
008125,003233: 04,3454           54001        NVSUBSY1           TS       L                                     
008126,003234: 04,3455           10652                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
008127,003235: 04,3456           03461                           TC       +3                                    #  STILL BUSY
008128,003236: 04,3457           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
008129,003237: 04,3460           04105                           TC       BANKJUMP                              
008130,003238: 04,3461           37645                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
008131,003239: 04,3462           54677                           TS       GRABLOCK                              
008132,003240: 04,3463           30001                           CA       L                                     
008133,003241: 04,3464           56704                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
008134,003242: 04,3465           56703                           XCH      DSPLIST    +1                         #          (BOTTOM)
008135,003243: 04,3466           56702                           XCH      DSPLIST                               
008136,003244: 04,3467           10000                           CCS      A                                     
008137,003245: 04,3470           03514                           TC       LSTFULL                               
008138,003246: 04,3471           03473                           TC       +2                                    
008139,003247: 04,3472           03514                           TC       LSTFULL                               
008140,003248: 04,3473           04522                           TC       RELDSPON                              
008141,003249: 04,3474           30001                           CA       L                                     
008142,003250: 04,3475           04164        ENDNVBSY           TC       JOBSLEEP                              
008143,003251: 
008144,003252: 
008145,003253: 
008146,003254:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
008147,003255:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
008148,003256:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
008149,003257:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
008150,003258:                                                                                                  #  IS NOT BUSY.
008151,003259: 
008152,003260:    4601                                           SETLOC   NVSUBUSY   +3                         
008153,003261:    4601           54107        NVSBWAIT           TS       NVTEMP                                
008154,003262:    4602           10652                           CCS      DSPLOCK                               
008155,003263:    4603           14606                           TCF      NVSBWT1                               #  BUSY
008156,003264:    4604           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
008157,003265:    4605           14363                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
008158,003266:    4606           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
008159,003267:    4607           14573                           TCF      PRENVBSY                              #  GO TO SLEEP.
008160,003268: 

Page 206

008162,003270:    4610           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
008163,003271:    4611           54130                           TS       RELRET                                #  OFF, SEARCH DSPLIST
008164,003272:    4612           37655                           CAF      NEG1                                  
008165,003273:    4613           60677                           AD       GRABLOCK                              
008166,003274:    4614           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
008167,003275:    4615           64623                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
008168,003276:    4616           04636                           TC       WKSEARCH                              
008169,003277:    4617           04623                           TC       RELDSP2                               #  LIST EMPTY
008170,003278:    4620           04170                           TC       JOBWAKE                               #  LIST NOT EMPTY
008171,003279:    4621           37646                           CAF      ONE                                   
008172,003280:    4622           54677                           TS       GRABLOCK                              
008173,003281:    4623           00004        RELDSP2            INHINT                                         
008174,003282:    4624           47642                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
008175,003283:    4625           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
008176,003284:    4626           03011                           WAND     DSALMOUT                              
008177,003285:    4627           37653                           CAF      ZERO                                  
008178,003286:    4630           54652                           TS       DSPLOCK                               
008179,003287:    4631           00003                           RELINT                                         
008180,003288:    4632           00130                           TC       RELRET                                
008181,003289:    4633           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0, RELDSP LIGHT OFF.
008182,003290:    4634           54130                           TS       RELRET                                #  NO LIST SEARCH
008183,003291:    4635           04623                           TC       RELDSP2                               
008184,003292: 
008185,003293: 
008186,003294: 
008187,003295:    4636           37653        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
008188,003296:    4637           56702                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
008189,003297:    4640           56703                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
008190,003298:    4641           56704                           XCH      DSPLIST    +2                         
008191,003299:    4642           00006                           EXTEND                                         
008192,003300:    4643           14647                           BZF      +4                                    #  EMPTY
008193,003301:    4644           00004                           INHINT                                         #  NOT EMPTY
008194,003302:    4645           50002                           INDEX    Q                                     #  RETURN TO L+2
008195,003303:    4646           00001                           TC       1                                     
008196,003304:    4647           00002                           TC       Q                                     #  RETURN TO L+1
008197,003305: 
008198,003306: 
008199,003307: 
008200,003308:    4650           56002        FREEDSP            XCH      Q                                     
008201,003309:    4651           54130                           TS       FREERET                               
008202,003310:    4652           00004                           INHINT                                         
008203,003311:    4653           34661                           CAF      SHOTIME                               
008204,003312:    4654           04251                           TC       WAITLIST                              
008205,003313:    4655     0637                                  EBANK=   DSPCOUNT                              
008206,003314:    4655           03476 10001                     2CADR    FREEWAIT                              
008207,003315: 
008208,003316:    4657           00003                           RELINT                                         
008209,003317:    4660           00130                           TC       FREERET                               
008210,003318: 
008211,003319:    4661           01750        SHOTIME            OCT      1750                                  
008212,003320: 

Page 207

008214,003322: 04,3476                                           SETLOC   ENDNVBSY   +1                         
008215,003323: 
008216,003324: 04,3476           34502        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
008217,003325: 04,3477           04131                           TC       NOVAC                                 
008218,003326: 04,3500     0637                                  EBANK=   DSPCOUNT                              
008219,003327: 04,3500           03503 10001                     2CADR    FREDSPD0                              
008220,003328: 
008221,003329: 04,3502           04321                           TC       TASKOVER                              
008222,003330: 
008223,003331: 
008224,003332: 
008225,003333: 04,3503           04636        FREDSPD0           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
008226,003334: 04,3504           03512                           TC       LSTEMPTY                              #  LIST EMPTY
008227,003335: 04,3505           04170                           TC       JOBWAKE                               #  LIST NOT EMPTY
008228,003336: 04,3506           00003                           RELINT                                         
008229,003337: 04,3507           37646                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
008230,003338: 04,3510           54677                           TS       GRABLOCK                              
008231,003339: 04,3511           04205                           TC       ENDOFJOB                              
008232,003340: 04,3512           37653        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
008233,003341: 04,3513           03510                           TC       -3                                    
008234,003342: 
008235,003343: 
008236,003344: 
008237,003345: 04,3514           04662        LSTFULL            TC       ABORT                                 
008238,003346: 04,3515           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
008239,003347: 
008240,003348:    4662                                           SETLOC   SHOTIME    +1                         
008241,003349:    4662           04662        ABORT              TC       ABORT                                 #  ****FIX LATER*****
008242,003350: 

Page 208

008244,003352:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
008245,003353:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
008246,003354: 
008247,003355: 05,3414                                           SETLOC   DSPMMEND   +1                         
008248,003356: 
008249,003357: 05,3414           33453        VBTSTLTS           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
008250,003358: 05,3415           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
008251,003359: 05,3416           05011                           WOR      DSALMOUT                              
008252,003360: 05,3417           33454                           CAF      TSTCON2                               #  TURN ON AUTO, HOLD, NO ATT, SPARE,
008253,003361: 05,3420           54675                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM.
008254,003362: 05,3421           37635                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
008255,003363: 05,3422           00006                           EXTEND                                         
008256,003364: 05,3423           05013                           WOR      CHAN13                                
008257,003365: 05,3424           00004                           INHINT                                         
008258,003366: 05,3425           37650                           CAF      TEN                                   
008259,003367: 05,3426           54103        TSTLTS1            TS       ERCNT                                 
008260,003368: 05,3427           43451                           CS       FULLDSP                               
008261,003369: 05,3430           50103                           INDEX    ERCNT                                 
008262,003370: 05,3431           54662                           TS       DSPTAB                                
008263,003371: 05,3432           10103                           CCS      ERCNT                                 
008264,003372: 05,3433           03426                           TC       TSTLTS1                               
008265,003373: 05,3434           43452                           CS       FULLDSP1                              
008266,003374: 05,3435           54663                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
008267,003375: 05,3436           54666                           TS       DSPTAB     +4                         
008268,003376: 05,3437           54670                           TS       DSPTAB     +6                         
008269,003377: 05,3440           37647                           CAF      ELEVEN                                
008270,003378: 05,3441           54656                           TS       NOUT                                  
008271,003379: 05,3442           00003                           RELINT                                         
008272,003380: 05,3443           33456                           CAF      SHOLTS                                
008273,003381: 05,3444           00004                           INHINT                                         
008274,003382: 05,3445           04251                           TC       WAITLIST                              
008275,003383: 05,3446     0662                                  EBANK=   DSPTAB                                
008276,003384: 05,3446           03457 12001                     2CADR    TSTLTS2                               
008277,003385: 
008278,003386: 05,3450           04205                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
008279,003387:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
008280,003388:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
008281,003389: 
008282,003390: 
008283,003391: 
008284,003392: 05,3451           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
008285,003393: 05,3452           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
008286,003394: 05,3453           00174        TSTCON1            OCT      00174                                 #  CHAN 11 BITS 3-7
008287,003395:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
008288,003396:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
008289,003397: 05,3454           40777        TSTCON2            OCT      40777                                 #  DSPTAB+11D BITS 1-9
008290,003398:                                                                                                  #  AUTO, HOLD, FREE, NO ATT, SPARE,
008291,003399:                                                                                                  #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM.
008292,003400: 05,3455           00114        TSTCON3            OCT      00114                                 #  CHAN 11  BITS 3,4,7
008293,003401:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.

Page 209

008295,003403: 05,3456           00764        SHOLTS             OCT      764                                   #  5 SEC
008296,003404: 
008297,003405: 
008298,003406: 
008299,003407: 05,3457           34502        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
008300,003408: 05,3460           04131                           TC       NOVAC                                 
008301,003409: 05,3461     0662                                  EBANK=   DSPTAB                                
008302,003410: 05,3461           03464 12001                     2CADR    TSTLTS3                               
008303,003411: 
008304,003412: 05,3463           04321                           TC       TASKOVER                              
008305,003413: 
008306,003414: 
008307,003415: 
008308,003416: 05,3464           43455        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
008309,003417: 05,3465           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
008310,003418: 05,3466           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
008311,003419: 05,3467           47635                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
008312,003420: 05,3470           00006                           EXTEND                                         
008313,003421: 05,3471           03013                           WAND     CHAN13                                
008314,003422: 05,3472           37630                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
008315,003423: 05,3473           54675                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
008316,003424: 05,3474           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
008317,003425: 05,3475           04102                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
008318,003426: 05,3476           11273                           CADR     VBTERM                                #  IF APPROPRIATE).
008319,003427:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
008320,003428:                                                                                                  #  FOR TERMINATE CONDITION, AND GO TO
008321,003429:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.

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