Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

011118,000002:                                                                                                  ## Copyright:    Public domain.
011119,000003:                                                                                                  ## Filename:     PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
011120,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
011121,000005:                                                                                                  ## Assembler:    yaYUL
011122,000006:                                                                                                  ## Contact:      Hartmuth Gutsche Burkey <info@sandroid.org>.
011123,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
011124,000008:                                                                                                  ## Pages:        289-355
011125,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
011126,000010:                                                                                                  ##               2016-10-19 HG   Transcribed
011127,000011:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
011128,000012:                                                                                                  ##                               and fixed the errors found.
011129,000013:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
011130,000014:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
011131,000015:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
011132,000016:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
011133,000017:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
011134,000018:                                                                                                  ##                              Luminary 99 vs Comanche 55.
011135,000019: 
011136,000020:                                                                                                  ## This source code has been transcribed or otherwise adapted from
011137,000021:                                                                                                  ## digitized images of a hardcopy from the private collection of
011138,000022:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
011139,000023: 
011140,000024:                                                                                                  ## Notations on the hardcopy document read, in part:
011141,000025: 
011142,000026:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
011143,000027:                                                                                                  ##       NOV 10, 1966
011144,000028: 
011145,000029:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
011146,000030:                                                                                                  ##       date of the program revision or the assembly.]
011147,000031: 
011148,000032:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
011149,000033:                                                                                                  ## reduction in image quality) are available online at
011150,000034:                                                                                                  ##       https://www.ibiblio.org/apollo.
011151,000035:                                                                                                  ## The original high-quality digital images are available at archive.org:
011152,000036:                                                                                                  ##       https://archive.org/details/aurora00dapg
011153,000037: 

Page 289

011155,000039:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
011156,000040: 
011157,000041: 
011158,000042: 
011159,000043:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
011160,000044: 
011161,000045:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
011162,000046:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
011163,000047:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
011164,000048: 
011165,000049:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4

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

011168,000052: 
011169,000053: 
011170,000054: 
011171,000055:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
011172,000056: 
011173,000057: 
011174,000058: 
011175,000059:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
011176,000060: 
011177,000061:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
011178,000062:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
011179,000063:                                                                                                  #  VERBREG       ERASE                   VERB CODE
011180,000064:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
011181,000065:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
011182,000066:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
011183,000067:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
011184,000068:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
011185,000069:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
011186,000070:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
011187,000071:                                                                                                  #  MODREG        ERASE                   MODE CODE
011188,000072:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
011189,000073:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
011190,000074:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
011191,000075:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
011192,000076:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
011193,000077:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
011194,000078:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
011195,000079:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
011196,000080:                                                                                                  #  DSPTAB        ERASE           +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
011197,000081:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
011198,000082:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
011199,000083:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
011200,000084:                                                                                                  #                                        MUST = NVBNKTEM-1
011201,000085:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
011202,000086:                                                                                                  #                                        MUST = NVQTEM+1
011203,000087:                                                                                                  #  DSPLIST       ERASE           +2      WAITING LIST FOR DSP SYST INTERNAL USE
011204,000088:                                                                                                  #  EXTVBACT      REASE                   EXTENDED VERB ACTIVITY INTERLOCK
011205,000089:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
011206,000090:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
011207,000091: 
011208,000092: 

Page 290

011210,000094:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
011211,000095: 
011212,000096: 
011213,000097: 
011214,000098:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
011215,000099: 
011216,000100:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
011217,000101:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
011218,000102:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
011219,000103: 
011220,000104:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
011221,000105:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
011222,000106:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
011223,000107:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
011224,000108: 
011225,000109:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
011226,000110:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
011227,000111:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
011228,000112:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
011229,000113: 
011230,000114:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
011231,000115:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
011232,000116:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
011233,000117:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
011234,000118: 
011235,000119:                                                                                                  #  SGNOFF   =       VBUF   +1      TEMP FOR +,- ON
011236,000120:                                                                                                  #  NVTEMP   =       VBUF   +1      TEMP FOR NVSUB
011237,000121:                                                                                                  #  SFTEMP1  =       VBUF   +1      STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
011238,000122: 
011239,000123:                                                                                                  #  CODE     =       VBUF   +2      FOR DSPIN
011240,000124:                                                                                                  #  SFTEMP2  =       VBUF   +2      STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
011241,000125: 
011242,000126:                                                                                                  #  MIXTEMP  =       VBUF   +3      FOR MIXNOUN DATA
011243,000127:                                                                                                  #  SIGNRET  =       VBUF   +3      RETURN FOR +,- ON
011244,000128: 
011245,000129:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
011246,000130: 
011247,000131:                                                                                                  #  ENTRET   =       DOTINC          EXIT FROM ENTER
011248,000132: 
011249,000133:                                                                                                  #  WDCNT    =       DOTRET          CHAR COUNTER FOR DSPWD
011250,000134:                                                                                                  #  INREL    =       DOTRET          INPUT BUFFER SELECTOR ( X, Y, Z, REG )
011251,000135: 
011252,000136:                                                                                                  #  DSPMMTEM =       MATINC          DSPCOUNT SAVE FOR DSPMM
011253,000137:                                                                                                  #  MIXBR    =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
011254,000138: 
011255,000139:                                                                                                  #  TEM1     ERASE                   EXEC TEMP
011256,000140:                                                                                                  #  DSREL    =       TEM1            REL ADDRESS FOR DSPIN
011257,000141: 
011258,000142:                                                                                                  #  TEM2     ERASE                   EXEC TEMP
011259,000143:                                                                                                  #  DSMAG    =       TEM2            MAGNITUDE STORE FOR DSPIN
011260,000144: 

Page 291

011262,000146:                                                                                                  #  IDADDTEM =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
011263,000147: 
011264,000148:                                                                                                  #  TEM3     ERASE                   EXEC TEMP
011265,000149:                                                                                                  #  COUNT    =       TEM3            FOR DSPIN
011266,000150: 
011267,000151:                                                                                                  #  TEM4     ERASE                   EXEC TEMP
011268,000152:                                                                                                  #  LSTPTR   =       TEM4            LIST POINTER FOR GRABUSY
011269,000153:                                                                                                  #  RELRET   =       TEM4            RETURN FOR RELDSP
011270,000154:                                                                                                  #  FREERET  =       TEM4            RETURN FOR FREEDSP
011271,000155: 
011272,000156:                                                                                                  #  TEM5     ERASE                   EXEC TEMP
011273,000157:                                                                                                  #  NOUNADD  =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
011274,000158: 
011275,000159:                                                                                                  #  NNADTEM  ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
011276,000160:                                                                                                  #  NNTYPTEM ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
011277,000161:                                                                                                  #  IDAD1TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
011278,000162:                                                                                                  #                                   MUST = IDAD2TEM-1, = IDAD3TEM-2.
011279,000163:                                                                                                  #  IDAD2TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
011280,000164:                                                                                                  #                                   MUST = IDAD1TEM+1, = IDAD3TEM-1.
011281,000165:                                                                                                  #  IDAD3TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
011282,000166:                                                                                                  #                                   MUST = IDAD1TEM+2,  = IDAD2TEM+1.
011283,000167:                                                                                                  #  RUTMXTEM ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
011284,000168:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
011285,000169: 
011286,000170: 
011287,000171: 
011288,000172:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
011289,000173: 
011290,000174:                                                                                                  #  DSPCNT   ERASE                   COUNTER FOR DSPOUT
011291,000175:                                                                                                  #  UPLOCK   ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
011292,000176:                                                                                                  #                                                                            RECEPTION OF A BAD MESSAGE IN UPLINK)
011293,000177:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
011294,000178: 
011295,000179: 
011296,000180: 
011297,000181:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
011298,000182: 
011299,000183:                                                                                                  #  KEYTEMP1 =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
011300,000184:                                                                                                  #  DSRUPTEM =       WAITEXIT        TEMP FOR DSPOUT
011301,000185:                                                                                                  #  KEYTEMP2 =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
011302,000186:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
011303,000187: 
011304,000188: 

Page 292

011306,000190:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
011307,000191:                                                                                                  #  0        10000
011308,000192:                                                                                                  #  1        00001
011309,000193:                                                                                                  #  9        01001
011310,000194:                                                                                                  #  VERB     10001
011311,000195:                                                                                                  #  ERROR RES10010
011312,000196:                                                                                                  #  KEY RLSE 11001
011313,000197:                                                                                                  #  +        11010
011314,000198:                                                                                                  #  -        11011
011315,000199:                                                                                                  #  ENTER    11100
011316,000200:                                                                                                  #  CLEAR    11110
011317,000201:                                                                                                  #  NOUN     11111
011318,000202: 
011319,000203: 
011320,000204: 
011321,000205:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
011322,000206:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
011323,000207:                                                                                                  #  ENERGIZED.
011324,000208:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
011325,000209:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
011326,000210:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
011327,000211: 
011328,000212:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
011329,000213:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
011330,000214:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
011331,000215:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
011332,000216:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
011333,000217:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
011334,000218: 
011335,000219:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
011336,000220:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
011337,000221:                                                                                                  #  MD2   24     R2D2  10
011338,000222:                                                                                                  #  VD1   23     R2D3   7
011339,000223:                                                                                                  #  VD2   22     R2D4   6
011340,000224:                                                                                                  #  ND1   21     R2D5   5
011341,000225:                                                                                                  #  ND2   20     R3D1   4
011342,000226:                                                                                                  #  R1D1  16     R3D2   3
011343,000227:                                                                                                  #  R1D2  15     R3D3   2
011344,000228:                                                                                                  #  R1D3  14     R3D4   1
011345,000229:                                                                                                  #  R1D4  13     R3D5   0
011346,000230:                                                                                                  #  R1D5  12
011347,000231: 
011348,000232: 
011349,000233: 
011350,000234:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
011351,000235: 
011352,000236:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
011353,000237:                                                                                                  #  RELADD
011354,000238:                                                                                                  #  10     1011                    MD1 (25)      MD2 (24)
011355,000239:                                                                                                  #  9      1010                    VD1 (23)      VD2 (22)
011356,000240: 

Page 293

011358,000242:                                                                                                  #  8      1001                    ND1 (21)      ND2 (20)
011359,000243:                                                                                                  #  7      1000                                  R1D1 (16)
011360,000244:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
011361,000245:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
011362,000246:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
011363,000247:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
011364,000248:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
011365,000249:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
011366,000250:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
011367,000251:                                                                                                  #         0000   NO RELAYWORD
011368,000252: 
011369,000253: 
011370,000254: 
011371,000255:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
011372,000256:                                                                                                  #  BLANK      00000
011373,000257:                                                                                                  #  0          10101
011374,000258:                                                                                                  #  1          00011
011375,000259:                                                                                                  #  2          11001
011376,000260:                                                                                                  #  3          11011
011377,000261:                                                                                                  #  4          01111
011378,000262:                                                                                                  #  5          11110
011379,000263:                                                                                                  #  6          11100
011380,000264:                                                                                                  #  7          10011
011381,000265:                                                                                                  #  8          11101
011382,000266:                                                                                                  #  9          11111
011383,000267: 
011384,000268: 

Page 294

011386,000270:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
011387,000271: 
011388,000272: 
011389,000273: 
011390,000274: 04,2000                                           SETLOC   20000                                 
011391,000275: 
011392,000276: 04,2000           03454        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
011393,000277: 04,2001           03476        NVSUBSYB           TC       NVSUBSY1                              
011394,000278: 
011395,000279: 04,2002           37657        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
011396,000280: 04,2003           56277                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
011397,000281: 04,2004           54101                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
011398,000282: 04,2005           56140                           XCH      MPAC                                  
011399,000283: 04,2006           54103                           TS       CHAR                                  
011400,000284: 04,2007           50000                           INDEX    A                                     
011401,000285: 04,2010           02011                           TC       +1                                    #  INPUT CODE     FUNCTION
011402,000286: 04,2011           03275                           TC       CHARALRM                              #  0
011403,000287: 04,2012           02062                           TC       NUM                                   #  1
011404,000288: 04,2013           02062                           TC       NUM                                   #  2
011405,000289: 04,2014           02062                           TC       NUM                                   #  3
011406,000290: 04,2015           02062                           TC       NUM                                   #  4
011407,000291: 04,2016           02062                           TC       NUM                                   #  5
011408,000292: 04,2017           02062                           TC       NUM                                   #  6
011409,000293: 04,2020           02062                           TC       NUM                                   #  7
011410,000294: 04,2021           02053                           TC       89TEST                                #  10                 8
011411,000295: 04,2022           02053                           TC       89TEST                                #  11                 9
011412,000296: 04,2023           03275                           TC       CHARALRM                              #  12
011413,000297: 04,2024           03275                           TC       CHARALRM                              #  13
011414,000298: 04,2025           03275                           TC       CHARALRM                              #  14
011415,000299: 04,2026           03275                           TC       CHARALRM                              #  15
011416,000300: 04,2027           03275                           TC       CHARALRM                              #  16
011417,000301: 04,2030           03275                           TC       CHARALRM                              #  17
011418,000302: 04,2031           02060                           TC       NUM        -2                         #  20                 0
011419,000303: 04,2032           02235                           TC       VERB                                  #  21                 VERB
011420,000304: 04,2033           02343                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
011421,000305: 04,2034           03275                           TC       CHARALRM                              #  23
011422,000306: 04,2035           03275                           TC       CHARALRM                              #  24
011423,000307: 04,2036           03275                           TC       CHARALRM                              #  25
011424,000308: 04,2037           03275                           TC       CHARALRM                              #  26
011425,000309: 04,2040           03275                           TC       CHARALRM                              #  27
011426,000310: 04,2041           03275                           TC       CHARALRM                              #  30
011427,000311: 04,2042           03320                           TC       VBRELDSP                              #  31                 KEY RELEASE
011428,000312: 04,2043           02267                           TC       POSGN                                 #  32                 +
011429,000313: 04,2044           02254                           TC       NEGSGN                                #  33                 -
011430,000314: 04,2045           02051                           TC       ENTERJMP                              #  34                 ENTER
011431,000315: 04,2046           03275                           TC       CHARALRM                              #  35
011432,000316: 04,2047           02431                           TC       CLEAR                                 #  36                 CLEAR
011433,000317: 04,2050           02250                           TC       NOUN                                  #  37                 NOUN
011434,000318: 

Page 295

011436,000320: 04,2051           04102        ENTERJMP           TC       POSTJUMP                              
011437,000321: 04,2052           12003                           CADR     ENTER                                 
011438,000322: 
011439,000323: 04,2053           36165        89TEST             CAF      THREE                                 
011440,000324: 04,2054           70265                           MASK     DECBRNCH                              
011441,000325: 04,2055           10000                           CCS      A                                     
011442,000326: 04,2056           02062                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
011443,000327: 04,2057           03275                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
011444,000328: 
011445,000329: 
011446,000330: 
011447,000331:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
011448,000332:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
011449,000333:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
011450,000334:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
011451,000335:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
011452,000336:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
011453,000337: 
011454,000338: 04,2060           37665                           CAF      ZERO                                  
011455,000339: 04,2061           54103                           TS       CHAR                                  
011456,000340: 04,2062           10264        NUM                CCS      DSPCOUNT                              
011457,000341: 04,2063           02067                           TC       +4                                    #  +
011458,000342: 04,2064           02067                           TC       +3                                    #  +0
011459,000343: 04,2065           02066                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
011460,000344: 04,2066           04440                           TC       ENDOFJOB                              #  -0
011461,000345: 04,2067           02205                           TC       GETINREL                              
011462,000346: 04,2070           10302                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
011463,000347: 04,2071           37665                           CAF      ZERO                                  
011464,000348: 04,2072           54302                           TS       CLPASS                                
011465,000349: 04,2073           02074                           TC       +1                                    
011466,000350: 04,2074           50103                           INDEX    CHAR                                  
011467,000351: 04,2075           34741                           CAF      RELTAB                                
011468,000352: 04,2076           75224                           MASK     LOW5                                  
011469,000353: 04,2077           54110                           TS       CODE                                  
011470,000354: 04,2100           30264                           CA       DSPCOUNT                              
011471,000355: 04,2101           54127                           TS       COUNT                                 
011472,000356: 04,2102           03201                           TC       DSPIN                                 
011473,000357: 04,2103           36165                           CAF      THREE                                 
011474,000358: 04,2104           70265                           MASK     DECBRNCH                              
011475,000359: 04,2105           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
011476,000360: 04,2106           02117                           TC       DECTOBIN                              #  +
011477,000361: 04,2107           50123                           INDEX    INREL                                 #  +0 OCTAL
011478,000362: 04,2110           56266                           XCH      VERBREG                               
011479,000363: 04,2111           54022                           TS       CYL                                   
011480,000364: 04,2112           40022                           CS       CYL                                   
011481,000365: 04,2113           40022                           CS       CYL                                   
011482,000366: 04,2114           56022                           XCH      CYL                                   
011483,000367: 04,2115           60103                           AD       CHAR                                  
011484,000368: 04,2116           02134                           TC       ENDNMTST                              
011485,000369: 04,2117           50123        DECTOBIN           INDEX    INREL                                 
011486,000370: 
011487,000371: 

Page 296

011489,000373: 04,2120           56266                           XCH      VERBREG                               
011490,000374: 04,2121           54140                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
011491,000375: 04,2122           37665                           CAF      ZERO                                  
011492,000376: 04,2123           54141                           TS       MPAC       +1                         
011493,000377: 04,2124           37661                           CAF      TEN                                   #  10 X 2EXP-14
011494,000378: 04,2125           07266                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
011495,000379: 04,2126           56141                           XCH      MPAC       +1                         
011496,000380: 04,2127           60103                           AD       CHAR                                  
011497,000381: 04,2130           54141                           TS       MPAC       +1                         
011498,000382: 04,2131           02134                           TC       ENDNMTST                              #  NO OF
011499,000383: 04,2132           26140                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
011500,000384: 04,2133           02152                           TC       DECEND                                
011501,000385: 04,2134           50123        ENDNMTST           INDEX    INREL                                 
011502,000386: 04,2135           54266                           TS       VERBREG                               
011503,000387: 04,2136           40264                           CS       DSPCOUNT                              
011504,000388: 04,2137           50123                           INDEX    INREL                                 
011505,000389: 04,2140           62176                           AD       CRITCON                               
011506,000390: 04,2141           00006                           EXTEND                                         
011507,000391: 04,2142           12144                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
011508,000392: 04,2143           02173                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
011509,000393: 04,2144           36165        ENDNUM             CAF      THREE                                 
011510,000394: 04,2145           70265                           MASK     DECBRNCH                              
011511,000395: 04,2146           10000                           CCS      A                                     
011512,000396: 04,2147           02152                           TC       DECEND                                
011513,000397: 04,2150           40264        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
011514,000398: 04,2151           02174                           TC       MORNUM     +1                         #  NEGATIVELY
011515,000399: 04,2152           07063        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
011516,000400: 04,2153           02203                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
011517,000401: 04,2154           36165                           CAF      THREE                                 #  IN MPAC, +1, +2.
011518,000402: 04,2155           70265                           MASK     DECBRNCH                              
011519,000403: 04,2156           50000                           INDEX    A                                     
011520,000404: 04,2157           02157                           TC       +0                                    
011521,000405: 04,2160           02164                           TC       +DECSGN                               
011522,000406: 04,2161           00006                           EXTEND                                         #  - CASE
011523,000407: 04,2162           40142                           DCS      MPAC       +1                         
011524,000408: 04,2163           52142                           DXCH     MPAC       +1                         
011525,000409: 04,2164           56142        +DECSGN            XCH      MPAC       +2                         
011526,000410: 04,2165           50123                           INDEX    INREL                                 
011527,000411: 04,2166           54271                           TS       XREGLP     -2                         
011528,000412: 04,2167           56141                           XCH      MPAC       +1                         
011529,000413: 04,2170           50123                           INDEX    INREL                                 
011530,000414: 04,2171           54266                           TS       VERBREG                               
011531,000415: 04,2172           02150                           TC       ENDALL                                
011532,000416: 04,2173           10264        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
011533,000417: 04,2174           54264                           TS       DSPCOUNT                              
011534,000418: 04,2175           04440                           TC       ENDOFJOB                              
011535,000419: 
011536,000420: 04,2176           00022        CRITCON            OCT      22                                    #  (DEC 18)
011537,000421: 04,2177           00020                           OCT      20                                    #  (DEC 16)
011538,000422: 04,2200           00012                           OCT      12                                    #  (DEC 10)
011539,000423: 

Page 297

011541,000425: 04,2201           00005                           OCT      5                                     
011542,000426: 04,2202           00000                           OCT      0                                     
011543,000427: 
011544,000428: 04,2203           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
011545,000429: 
011546,000430: 
011547,000431:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
011548,000432:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
011549,000433: 
011550,000434: 04,2205           50264        GETINREL           INDEX    DSPCOUNT                              
011551,000435: 04,2206           32211                           CAF      INRELTAB                              
011552,000436: 04,2207           54123                           TS       INREL                                 #  (A TEMP, REG)
011553,000437: 04,2210           00002                           TC       Q                                     
011554,000438: 
011555,000439: 04,2211           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
011556,000440: 04,2212           00004                           OCT      4                                     #  R3D4           =(1)
011557,000441: 04,2213           00004                           OCT      4                                     #  R3D3           =(2)
011558,000442: 04,2214           00004                           OCT      4                                     #  R3D2           =(3)
011559,000443: 04,2215           00004                           OCT      4                                     #  R3D1           =(4)
011560,000444: 04,2216           00003                           OCT      3                                     #  R2D5           =(5)
011561,000445: 04,2217           00003                           OCT      3                                     #  R2D4           =(6)
011562,000446: 04,2220           00003                           OCT      3                                     #  R2D3           =(7)
011563,000447: 04,2221           00003                           OCT      3                                     #  R2D2           =(8D)
011564,000448: 04,2222           00003                           OCT      3                                     #  R2D1           =(9D)
011565,000449: 04,2223           00002                           OCT      2                                     #  R1D5           =(10D)
011566,000450: 04,2224           00002                           OCT      2                                     #  R1D4           =(11D)
011567,000451: 04,2225           00002                           OCT      2                                     #  R1D3           =(12D)
011568,000452: 04,2226           00002                           OCT      2                                     #  R1D2           =(13D)
011569,000453: 04,2227           00002                           OCT      2                                     #  R1D1           =(14D)
011570,000454: 04,2230           05464                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
011571,000455: 04,2231           00001                           OCT      1                                     #  ND2            =(16D)
011572,000456: 04,2232           00001                           OCT      1                                     #  ND1            =(17D)
011573,000457: 04,2233           00000                           OCT      0                                     #  VD2            =(18D)
011574,000458: 04,2234           00000                           OCT      0                                     #  VD1            =(19D)
011575,000459: 
011576,000460: 04,2235           37665        VERB               CAF      ZERO                                  
011577,000461: 04,2236           54266                           TS       VERBREG                               
011578,000462: 04,2237           35237                           CAF      VD1                                   
011579,000463: 04,2240           54264        NVCOM              TS       DSPCOUNT                              
011580,000464: 04,2241           02541                           TC       2BLANK                                
011581,000465: 04,2242           37665                           CAF      ZERO                                  
011582,000466: 04,2243           54265                           TS       DECBRNCH                              
011583,000467: 04,2244           54300                           TS       REQRET                                #  SET FOR ENTPAS0
011584,000468: 04,2245           35150                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
011585,000469: 04,2246           54122                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
011586,000470:                                                                                                  #  TO TC ENDOFJOB
011587,000471: 04,2247           04440                           TC       ENDOFJOB                              
011588,000472: 

Page 298

011590,000474: 04,2250           37665        NOUN               CAF      ZERO                                  
011591,000475: 04,2251           54267                           TS       NOUNREG                               
011592,000476: 04,2252           35240                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
011593,000477: 04,2253           02240                           TC       NVCOM                                 
011594,000478: 
011595,000479: 
011596,000480: 
011597,000481: 04,2254           02326        NEGSGN             TC       SIGNTEST                              
011598,000482: 04,2255           02313                           TC       -ON                                   
011599,000483: 04,2256           37656                           CAF      TWO                                   
011600,000484: 04,2257           50123        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
011601,000485: 04,2260           67651                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
011602,000486: 04,2261           26265                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
011603,000487: 04,2262           10302        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
011604,000488: 04,2263           37665                           CAF      ZERO                                  
011605,000489: 04,2264           54302                           TS       CLPASS                                
011606,000490: 04,2265           02266                           TC       +1                                    
011607,000491: 04,2266           04440                           TC       ENDOFJOB                              
011608,000492: 
011609,000493: 04,2267           02326        POSGN              TC       SIGNTEST                              
011610,000494: 04,2270           02273                           TC       +ON                                   
011611,000495: 04,2271           37657                           CAF      ONE                                   
011612,000496: 04,2272           02257                           TC       BOTHSGN                               
011613,000497: 
011614,000498: 04,2273           22002        +ON                LXCH     Q                                     
011615,000499: 04,2274           02205                           TC       GETINREL                              
011616,000500: 04,2275           50123                           INDEX    INREL                                 
011617,000501: 04,2276           32321                           CAF      SGNTAB     -2                         
011618,000502: 04,2277           54107                           TS       SGNOFF                                
011619,000503: 04,2300           67657                           AD       ONE                                   
011620,000504: 04,2301           54106                           TS       SGNON                                 
011621,000505: 04,2302           37665        SGNCOM             CAF      ZERO                                  
011622,000506: 04,2303           54110                           TS       CODE                                  
011623,000507: 04,2304           56107                           XCH      SGNOFF                                
011624,000508: 04,2305           03263                           TC       11DSPIN                               
011625,000509: 04,2306           37645                           CAF      BIT11                                 
011626,000510: 04,2307           54110                           TS       CODE                                  
011627,000511: 04,2310           56106                           XCH      SGNON                                 
011628,000512: 04,2311           03263                           TC       11DSPIN                               
011629,000513: 04,2312           00001                           TC       L                                     
011630,000514: 04,2313           22002        -ON                LXCH     Q                                     
011631,000515: 04,2314           02205                           TC       GETINREL                              
011632,000516: 04,2315           50123                           INDEX    INREL                                 
011633,000517: 04,2316           32321                           CAF      SGNTAB     -2                         
011634,000518: 04,2317           54106                           TS       SGNON                                 
011635,000519: 04,2320           67657                           AD       ONE                                   
011636,000520: 04,2321           54107                           TS       SGNOFF                                
011637,000521: 04,2322           02302                           TC       SGNCOM                                
011638,000522: 
011639,000523: 04,2323           00005        SGNTAB             OCT      5                                     #  -R1
011640,000524: 

Page 299

011642,000526: 04,2324           00003                           OCT      3                                     #  -R2
011643,000527: 04,2325           00000                           OCT      0                                     #  -R3
011644,000528: 
011645,000529: 
011646,000530: 
011647,000531: 04,2326           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
011648,000532: 04,2327           45175                           CS       R1D1                                  #  R2D1, OR R3D1.
011649,000533: 04,2330           02336                           TC       SGNTST1                               
011650,000534: 04,2331           45176                           CS       R2D1                                  
011651,000535: 04,2332           02336                           TC       SGNTST1                               
011652,000536: 04,2333           45177                           CS       R3D1                                  
011653,000537: 04,2334           02336                           TC       SGNTST1                               
011654,000538: 04,2335           04440                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
011655,000539: 04,2336           60264        SGNTST1            AD       DSPCOUNT                              
011656,000540: 04,2337           00006                           EXTEND                                         
011657,000541: 04,2340           12342                           BZF      +2                                    #  MATCH FOUND
011658,000542: 04,2341           00002                           TC       Q                                     
011659,000543: 04,2342           00001                           TC       L                                     #  SIGN LEGAL
011660,000544: 
011661,000545: 
011662,000546: 
011663,000547:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
011664,000548:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
011665,000549:                                                                                                  #  PROG ALM, TRACKER FAIL.
011666,000550:                                                                                                  #  LEAVES GIMBAL LOCK ALONE.
011667,000551:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
011668,000552:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
011669,000553:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
011670,000554: 
011671,000555: 04,2343           56101        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
011672,000556: 04,2344           54277                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
011673,000557: 04,2345           00004                           INHINT                                         
011674,000558: 04,2346           37646                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
011675,000559: 04,2347           00006                           EXTEND                                         
011676,000560: 04,2350           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
011677,000561: 04,2351           37652                           CAF      BIT6                                  #  LEAVE GIMBAL LOCK LAMP INTACT,
011678,000562: 04,2352           70322                           MASK     DSPTAB     +11D                       #  TURNING OFF, AUTO, HOLD, FREE, NO ATT.,
011679,000563: 04,2353           67641                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
011680,000564: 04,2354           54322                           TS       DSPTAB     +11D                       
011681,000565: 04,2355           44515                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
011682,000566: 04,2356           70370                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
011683,000567: 04,2357           64515                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
011684,000568: 04,2360           54370                           TS       IMODES33                              
011685,000569: 04,2361           47646                           CS       BIT10                                 
011686,000570: 04,2362           70367                           MASK     IMODES30                              
011687,000571: 04,2363           67646                           AD       BIT10                                 
011688,000572: 04,2364           54367                           TS       IMODES30                              
011689,000573: 
011690,000574: 04,2365           42427                           CS       RFAILS                                
011691,000575: 04,2366           70413                           MASK     RADMODES                              
011692,000576: 
011693,000577: 

Page 300

011695,000579: 04,2367           67651                           AD       BIT7                                  
011696,000580: 04,2370           54413                           TS       RADMODES                              
011697,000581: 
011698,000582: 04,2371           47646                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
011699,000583: 04,2372           00006                           EXTEND                                         
011700,000584: 04,2373           03013                           WAND     CHAN13                                
011701,000585: 04,2374           42426                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
011702,000586: 04,2375           00006                           EXTEND                                         #  OPERATOR ERROR.
011703,000587: 04,2376           03011                           WAND     DSALMOUT                              
011704,000588: 04,2377           35242        TSTAB              CAF      BINCON                                #  (DEC 10)
011705,000589: 04,2400           54103                           TS       ERCNT                                 #  ERCNT = COUNT
011706,000590: 04,2401           00004                           INHINT                                         
011707,000591: 04,2402           50103                           INDEX    ERCNT                                 
011708,000592: 04,2403           10307                           CCS      DSPTAB                                
011709,000593: 04,2404           67657                           AD       ONE                                   
011710,000594: 04,2405           02412                           TC       ERPLUS                                
011711,000595: 04,2406           67657                           AD       ONE                                   
011712,000596: 04,2407           40000        ERMINUS            CS       A                                     
011713,000597: 04,2410           72430                           MASK     NOTBIT12                              
011714,000598: 04,2411           02415                           TC       ERCOM                                 
011715,000599: 04,2412           40000        ERPLUS             CS       A                                     
011716,000600: 04,2413           72430                           MASK     NOTBIT12                              
011717,000601: 04,2414           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
011718,000602: 04,2415           50103        ERCOM              INDEX    ERCNT                                 #  ETC.
011719,000603: 04,2416           54307                           TS       DSPTAB                                
011720,000604: 04,2417           00003                           RELINT                                         
011721,000605: 04,2420           10103                           CCS      ERCNT                                 
011722,000606: 04,2421           02400                           TC       TSTAB      +1                         
011723,000607: 04,2422           37665                           CAF      ZERO                                  
011724,000608: 04,2423           55363                           TS       FAILREG                               
011725,000609: 04,2424           55364                           TS       SFAIL                                 
011726,000610: 04,2425           04440                           TC       ENDOFJOB                              
011727,000611: 
011728,000612: 04,2426           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
011729,000613:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
011730,000614: 04,2427           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
011731,000615: 04,2430           73777        NOTBIT12           OCT      73777                                 
011732,000616: 
011733,000617: 
011734,000618: 
011735,000619:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
011736,000620:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
011737,000621:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
011738,000622: 
011739,000623:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
011740,000624:                                                                                                  #  APPROPRIATE TO BE CLEARED.
011741,000625: 
011742,000626:                                                                                                  #  CLPASS      +0 PASS0, CAN BE BACKED UP
011743,000627:                                                                                                  #              +NZ HIPASS, CAN BE BACKED UP
011744,000628:                                                                                                  #              -NZ PASS0, CANNOT BE BACKED UP
011745,000629: 
011746,000630: 

Page 301

011748,000632: 04,2431           10264        CLEAR              CCS      DSPCOUNT                              
011749,000633: 04,2432           67657                           AD       ONE                                   
011750,000634: 04,2433           02435                           TC       +2                                    
011751,000635: 04,2434           67657                           AD       ONE                                   
011752,000636: 04,2435           54264                           TS       DSPCOUNT                              #  MAG OF DSPCOUNT
011753,000637: 04,2436           02205                           TC       GETINREL                              #  MUST SET INREL, EVEN FOR HIPASS
011754,000638: 04,2437           10302                           CCS      CLPASS                                
011755,000639: 04,2440           02446                           TC       CLPASHI                               #  +
011756,000640: 04,2441           02443                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
011757,000641: 04,2442           02443                           TC       +1                                    #  -
011758,000642: 04,2443           30123                           CA       INREL                                 
011759,000643: 04,2444           02470                           TC       LEGALTST                              
011760,000644: 04,2445           02463                           TC       CLEAR1                                
011761,000645: 04,2446           10123        CLPASHI            CCS      INREL                                 
011762,000646: 04,2447           54123                           TS       INREL                                 
011763,000647: 04,2450           02470                           TC       LEGALTST                              
011764,000648: 04,2451           32537                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
011765,000649: 04,2452           26300                           ADS      REQRET                                
011766,000650: 04,2453           30123                           CA       INREL                                 
011767,000651: 04,2454           54111                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
011768,000652: 04,2455           00006                           EXTEND                                         
011769,000653: 04,2456           26266                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
011770,000654: 04,2457           04063                           TC       BANKCALL                              
011771,000655: 04,2460           12315                           CADR     UPDATVB                               
011772,000656: 04,2461           30111                           CA       MIXTEMP                               
011773,000657: 04,2462           54123                           TS       INREL                                 #  RESTORE INREL
011774,000658: 04,2463           02466        CLEAR1             TC       CLR5                                  
011775,000659: 04,2464           24302                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
011776,000660: 04,2465           04440                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
011777,000661: 04,2466           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
011778,000662: 04,2467           02500                           TC       5BLANK     +2                         
011779,000663: 04,2470           67670        LEGALTST           AD       NEG2                                  
011780,000664: 04,2471           10000                           CCS      A                                     
011781,000665: 04,2472           00002                           TC       Q                                     #  LEGAL         INREL G/ 2
011782,000666: 04,2473           05464                           TC       CCSHOLE                               
011783,000667: 04,2474           04440                           TC       ENDOFJOB                              #  ILLEGAL       INREL= 0,1
011784,000668: 04,2475           00002                           TC       Q                                     #  LEGAL        INREL = 2
011785,000669: 
011786,000670: 
011787,000671: 
011788,000672:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
011789,000673:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
011790,000674:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
011791,000675: 
011792,000676: 04,2476           22002        5BLANK             LXCH     Q                                     
011793,000677: 04,2477           02205                           TC       GETINREL                              
011794,000678: 04,2500           37665                           CAF      ZERO                                  
011795,000679: 04,2501           50123                           INDEX    INREL                                 
011796,000680: 04,2502           54266                           TS       VERBREG                               #  ZERO X, Y, Z REG.
011797,000681: 04,2503           50123                           INDEX    INREL                                 
011798,000682: 
011799,000683: 

Page 302

011801,000685: 04,2504           54271                           TS       XREGLP     -2                         
011802,000686: 04,2505           54110                           TS       CODE                                  
011803,000687: 04,2506           50123                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
011804,000688: 04,2507           47651                           CS       BIT7                                  #  PROTECT OTHERS
011805,000689: 04,2510           70265                           MASK     DECBRNCH                              
011806,000690: 04,2511           72540                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
011807,000691: 04,2512           54265                           TS       DECBRNCH                              
011808,000692: 04,2513           50123                           INDEX    INREL                                 
011809,000693: 04,2514           32530                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
011810,000694: 04,2515           54127                           TS       COUNT                                 
011811,000695: 04,2516           03201                           TC       DSPIN                                 
011812,000696: 04,2517           50123        5BLANK1            INDEX    INREL                                 
011813,000697: 04,2520           32533                           CAF      DOUBLK     -2                         
011814,000698: 04,2521           54264                           TS       DSPCOUNT                              
011815,000699: 04,2522           02541                           TC       2BLANK                                
011816,000700: 04,2523           47656                           CS       TWO                                   
011817,000701: 04,2524           26264                           ADS      DSPCOUNT                              
011818,000702: 04,2525           02541                           TC       2BLANK                                
011819,000703: 04,2526           50123                           INDEX    INREL                                 
011820,000704: 04,2527           35173                           CAF      R1D1       -2                         
011821,000705: 04,2530           54264                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
011822,000706: 04,2531           00001                           TC       L                                     #  OF REG. JUST BLANKED
011823,000707: 
011824,000708: 04,2532           00016        SINBLANK           OCT      16                                    #  DEC 14
011825,000709: 04,2533           00005                           OCT      5                                     
011826,000710: 04,2534           00004                           OCT      4                                     
011827,000711: 04,2535           00015        DOUBLK             OCT      15                                    #  DEC 13
011828,000712: 04,2536           00011                           OCT      11                                    #  DEC 9
011829,000713: 04,2537           00003                           OCT      3                                     
011830,000714: 
011831,000715: 04,2540           77774        BRNCHCON           OCT      77774                                 
011832,000716: 
011833,000717:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
011834,000718:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
011835,000719: 
011836,000720: 04,2541           30264        2BLANK             CA       DSPCOUNT                              
011837,000721: 04,2542           54021                           TS       SR                                    
011838,000722: 04,2543           42554                           CS       BLANKCON                              
011839,000723: 04,2544           00004                           INHINT                                         
011840,000724: 04,2545           50021                           INDEX    SR                                    
011841,000725: 04,2546           56307                           XCH      DSPTAB                                
011842,000726: 04,2547           00006                           EXTEND                                         
011843,000727: 04,2550           62552                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
011844,000728: 04,2551           24303                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
011845,000729: 04,2552           00003                           RELINT                                         #  IF -, NOUT OK
011846,000730: 04,2553           00002                           TC       Q                                     
011847,000731: 04,2554           04000        BLANKCON           OCT      4000                                  
011848,000732: 
011849,000733: 

Page 303

011851,000735:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
011852,000736:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
011853,000737:                                                                                                  #  PASSES.
011854,000738: 
011855,000739: 
011856,000740: 
011857,000741:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
011858,000742:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
011859,000743:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
011860,000744: 
011861,000745: 
011862,000746: 
011863,000747: 05,2000                                           SETLOC   22000                                 
011864,000748: 
011865,000749: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
011866,000750: 05,2001           13403        DSPMM              TCF      DSPMM1                                
011867,000751: 05,2002           02663        LOADLV1            TC       LOADLV                                
011868,000752:                                                                                                  #  END OF STANDARD LEAD INS.
011869,000753: 
011870,000754: 
011871,000755: 
011872,000756: 05,2003           37665        ENTER              CAF      ZERO                                  
011873,000757: 05,2004           54302                           TS       CLPASS                                
011874,000758: 05,2005           35150                           CAF      ENDINST                               
011875,000759: 05,2006           54122                           TS       ENTRET                                
011876,000760: 05,2007           10300                           CCS      REQRET                                
011877,000761: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
011878,000762: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
011879,000763: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
011880,000764: 05,2013           36165                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
011881,000765: 05,2014           70265                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
011882,000766: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
011883,000767: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
011884,000768: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
011885,000769: 05,2020           10264                           CCS      DSPCOUNT                              
011886,000770: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
011887,000771: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
011888,000772: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
011889,000773: 05,2024           40300        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
011890,000774: 05,2025           54300                           TS       REQRET                                #  SET REQRET +.
011891,000775: 05,2026           05300                           TC       FLASHOFF                              
011892,000776: 05,2027           00300                           TC       REQRET                                
011893,000777: 
011894,000778: 05,2030     0122               ENTEXIT            =        ENTRET                                
011895,000779: 
011896,000780: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
011897,000781: 
011898,000782: 05,2031           37665        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
011899,000783: 05,2032           54265                           TS       DECBRNCH                              
011900,000784: 05,2033           40266        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST
011901,000785: 
011902,000786: 

Page 304

011904,000788: 05,2034           62030                           AD       LOWVERB                               #  30-VB
011905,000789: 05,2035           00006                           EXTEND                                         
011906,000790: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/ E 30
011907,000791: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
011908,000792: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011909,000793: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
011910,000794: 05,2042           50124                           INDEX    MIXBR                                 
011911,000795: 05,2043           02043                           TC       +0                                    
011912,000796: 05,2044           02046                           TC       +2                                    #  NORMAL
011913,000797: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
011914,000798: 05,2046           10132                           CCS      NNADTEM                               #  NORMAL
011915,000799: 05,2047           02114                           TC       VERBFAN    -2                         #        NORMAL  IF +
011916,000800: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE     IF +0
011917,000801: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
011918,000802: 05,2052           24304                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
011919,000803: 05,2053           05167                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
011920,000804: 05,2054           02102                           TC       INTMCTBS   +2                         
011921,000805: 05,2055           37641        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
011922,000806: 05,2056           54302                           TS       CLPASS                                
011923,000807: 05,2057           45150                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
011924,000808: 05,2060           60122                           AD       ENTEXIT                               #              FROM EXTERNAL
011925,000809: 05,2061           00006                           EXTEND                                         
011926,000810: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
011927,000811: 05,2063           02100                           TC       INTMCTBS                              
011928,000812: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
011929,000813: 05,2065           10265                           CCS      DECBRNCH                              
011930,000814: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
011931,000815: 05,2067           56272                           XCH      ZREG                                  #  OCTAL USED    OK
011932,000816: 05,2070           05161                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
011933,000817: 05,2071           00006                           EXTEND                                         
011934,000818: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011935,000819: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
011936,000820: 05,2074           02116                           TC       VERBFAN                               
011937,000821: 
011938,000822: 05,2075     0264                                  EBANK=   DSPCOUNT                              
011939,000823: 05,2075           02000 34000  LODNNLOC           2CADR    LODNNTAB                              
011940,000824: 
011941,000825: 05,2077           77772        NEG5               OCT      77772                                 
011942,000826: 
011943,000827: 05,2100           30142        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
011944,000828: 05,2101           05161                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
011945,000829: 05,2102           47654                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
011946,000830: 05,2103           70266                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
011947,000831: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
011948,000832: 05,2105           00006                           EXTEND                                         
011949,000833: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
011950,000834: 05,2107           35177                           CAF      R3D1                                  #  VB NOT = 05 OR 15, DISPLAY CADR.
011951,000835: 05,2110           54264                           TS       DSPCOUNT                              
011952,000836: 05,2111           30304                           CA       NOUNCADR                              
011953,000837: 05,2112           03222                           TC       DSPOCTWD                              
011954,000838: 
011955,000839: 

Page 305

011957,000841: 05,2113           02116                           TC       VERBFAN                               
011958,000842: 
011959,000843: 05,2114           67657                           AD       ONE                                   
011960,000844: 05,2115           05161                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011961,000845: 05,2116           42131        VERBFAN            CS       LST2CON                               
011962,000846: 05,2117           60266                           AD       VERBREG                               #  VERB-LST2CON
011963,000847: 05,2120           10000                           CCS      A                                     
011964,000848: 05,2121           67657                           AD       ONE                                   #  VERB G/ LST2CON
011965,000849: 05,2122           02124                           TC       +2                                    
011966,000850: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
011967,000851: 05,2124           54140                           TS       MPAC                                  
011968,000852: 05,2125           05341                           TC       RELDSP                                #  RELEASE DISPLAY SYST
011969,000853: 05,2126           56140                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
011970,000854: 05,2127           62132                           AD       LST2CADR                              
011971,000855: 05,2130           04105                           TC       BANKJUMP                              
011972,000856: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
011973,000857: 05,2132           22000        LST2CADR           CADR     LST2FAN                               
011974,000858: 
011975,000859: 05,2133           50266        VBFANDIR           INDEX    VERBREG                               
011976,000860: 05,2134           32136                           CAF      VERBTAB                               
011977,000861: 05,2135           04105                           TC       BANKJUMP                              
011978,000862: 
011979,000863: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
011980,000864: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
011981,000865: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
011982,000866: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
011983,000867: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
011984,000868: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
011985,000869: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
011986,000870: 05,2145           10704                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
011987,000871: 05,2146           11277                           CADR     DSPALARM                              #  VB10 SPARE
011988,000872: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
011989,000873: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
011990,000874: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
011991,000875: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
011992,000876: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
011993,000877: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
011994,000878: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
011995,000879: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
011996,000880: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
011997,000881: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
011998,000882: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
011999,000883: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
012000,000884: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
012001,000885: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
012002,000886: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
012003,000887:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
012004,000888: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
012005,000889: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
012006,000890: 05,2170           11325                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2
012007,000891: 
012008,000892: 

Page 306

012010,000894: 05,2171           11310                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
012011,000895: 05,2172           11315                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
012012,000896: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
012013,000897: 05,2174           24000                           CADR     SLAP1                                 #  VB36 FRESH START
012014,000898: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
012015,000899: 
012016,000900: 
012017,000901: 
012018,000902:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
012019,000903: 
012020,000904: 
012021,000905: 

Page 307

012023,000907:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
012024,000908:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
012025,000909:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
012026,000910:                                                                                                  #   MIXTEMP.
012027,000911: 
012028,000912: 05,2176           10132        MIXNOUN            CCS      NNADTEM                               
012029,000913: 05,2177           02203                           TC       +4                                    #  + IN USE
012030,000914: 05,2200           02324                           TC       GODSPALM                              #  +0 NOT IN USE
012031,000915: 05,2201           02203                           TC       +2                                    #  - IN USE
012032,000916: 05,2202           02203                           TC       +1                                    #  -0 IN USE
012033,000917: 05,2203           46162                           CS       SIX                                   
012034,000918: 05,2204           60266                           AD       VERBREG                               
012035,000919: 05,2205           00006                           EXTEND                                         
012036,000920: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
012037,000921: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
012038,000922: 05,2210           37656                           CAF      TWO                                   
012039,000923: 05,2211           54103        MIXNN1             TS       DECOUNT                               
012040,000924: 05,2212           62235                           AD       MIXAD                                 
012041,000925: 05,2213           54131                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
012042,000926: 05,2214           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
012043,000927: 05,2215           30134                           CA       IDAD1TEM                              #  OF NOUN.
012044,000928: 05,2216           54106                           TS       NOUNTEM                               
012045,000929:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
012046,000930:                                                                                                  #    MINOR PART ONLY.
012047,000931: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
012048,000932: 05,2220           02236                           TC       DPTEST                                
012049,000933: 05,2221           02223                           TC       MIXNN2                                #  NO DP
012050,000934: 05,2222           24106                           INCR     NOUNTEM                               #  DP GET MINOR PART
012051,000935: 05,2223           30106        MIXNN2             CA       NOUNTEM                               
012052,000936: 05,2224           75234                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
012053,000937: 05,2225           05171                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
012054,000938: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
012055,000939: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
012056,000940: 05,2230           50131                           INDEX    NOUNADD                               
012057,000941: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
012058,000942: 05,2232           10103                           CCS      DECOUNT                               
012059,000943: 05,2233           02211                           TC       MIXNN1                                
012060,000944: 05,2234           02116                           TC       VERBFAN                               
012061,000945: 
012062,000946: 05,2235           00111        MIXAD              TC       MIXTEMP                               
012063,000947: 
012064,000948: 
012065,000949: 
012066,000950:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
012067,000951:                                                                                                  #           RETURNS TO L+1 IF NO DP.
012068,000952:                                                                                                  #           RETURNS TO L+2 IF DP.
012069,000953: 
012070,000954: 05,2236           50000        DPTEST             INDEX    A                                     
012071,000955: 05,2237           12240                           TCF      +1                                    
012072,000956: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY NO DP
012073,000957: 
012074,000958: 

Page 308

012076,000960: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
012077,000961: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
012078,000962: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
012079,000963: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
012080,000964: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
012081,000965: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
012082,000966: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
012083,000967: 05,2250           50002        DPTEST1            INDEX    Q                                     
012084,000968: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
012085,000969: 
012086,000970: 
012087,000971: 
012088,000972: 05,2252           35175        REQDATX            CAF      R1D1                                  
012089,000973: 05,2253           12257                           TCF      REQCOM                                
012090,000974: 05,2254           35176        REQDATY            CAF      R2D1                                  
012091,000975: 05,2255           12257                           TCF      REQCOM                                
012092,000976: 05,2256           35177        REQDATZ            CAF      R3D1                                  
012093,000977: 05,2257           54264        REQCOM             TS       DSPCOUNT                              
012094,000978: 05,2260           40002                           CS       Q                                     
012095,000979: 05,2261           54300                           TS       REQRET                                
012096,000980: 05,2262           04063                           TC       BANKCALL                              
012097,000981: 05,2263           10476                           CADR     5BLANK                                
012098,000982: 05,2264           05274                           TC       FLASHON                               
012099,000983: 05,2265           45150                           CS       ENDINST                               
012100,000984: 05,2266           60122                           AD       ENTEXIT                               
012101,000985: 05,2267           00006                           EXTEND                                         
012102,000986: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
012103,000987: 05,2271           47665                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
012104,000988: 05,2272           54323                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
012105,000989: 05,2273           00122        ENDRQDAT           TC       ENTEXIT                               
012106,000990: 
012107,000991:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
012108,000992:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
012109,000993: 
012110,000994: 
012111,000995: 05,2274           54267                           TS       NOUNREG                               
012112,000996: 05,2275           56002        UPDATNN            XCH      Q                                     
012113,000997: 05,2276           54103                           TS       UPDATRET                              
012114,000998: 05,2277           00006                           EXTEND                                         
012115,000999: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
012116,001000: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
012117,001001: 05,2302           10132                           CCS      NNADTEM                               
012118,001002: 05,2303           67657                           AD       ONE                                   #  NORMAL
012119,001003: 05,2304           12307                           TCF      PUTADD                                
012120,001004: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
012121,001005: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
012122,001006: 05,2307           05161        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
012123,001007: 05,2310           35240                           CAF      ND1                                   
012124,001008: 05,2311           54264                           TS       DSPCOUNT                              
012125,001009: 
012126,001010: 

Page 309

012128,001012: 05,2312           30267                           CA       NOUNREG                               
012129,001013: 05,2313           12322                           TCF      UPDAT1                                
012130,001014: 
012131,001015: 05,2314           54266                           TS       VERBREG                               
012132,001016: 05,2315           56002        UPDATVB            XCH      Q                                     
012133,001017: 05,2316           54103                           TS       UPDATRET                              
012134,001018: 05,2317           35237                           CAF      VD1                                   
012135,001019: 05,2320           54264                           TS       DSPCOUNT                              
012136,001020: 05,2321           30266                           CA       VERBREG                               
012137,001021: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
012138,001022: 05,2323           00103                           TC       UPDATRET                              
012139,001023: 
012140,001024: 
012141,001025: 
012142,001026: 05,2324           04102        GODSPALM           TC       POSTJUMP                              
012143,001027: 05,2325           11277                           CADR     DSPALARM                              
012144,001028: 
012145,001029: 

Page 310

012147,001031:                                                                                                  #           NOUN TABLES
012148,001032:                                                                                                  #  NOUN CODE L/55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
012149,001033:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR    FOR EACH NOUN.
012150,001034:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
012151,001035:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
012152,001036:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
012153,001037: 
012154,001038:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
012155,001039:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
012156,001040: 
012157,001041:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
012158,001042: 
012159,001043:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
012160,001044:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
012161,001045:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
012162,001046: 
012163,001047:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
012164,001048:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
012165,001049:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
012166,001050:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
012167,001051:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
012168,001052:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
012169,001053: 
012170,001054:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
012171,001055:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
012172,001056:                                                                                                  #  THE FIRST OF THESE ENTRIES.
012173,001057:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
012174,001058:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
012175,001059: 
012176,001060:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
012177,001061:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
012178,001062:                                                                                                  #        QQQQQRRRRRSSSSS
012179,001063:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
012180,001064:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
012181,001065:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
012182,001066:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
012183,001067:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
012184,001068: 
012185,001069:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
012186,001070:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
012187,001071:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
012188,001072:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
012189,001073:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
012190,001074: 
012191,001075: 
012192,001076: 
012193,001077:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
012194,001078:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
012195,001079: 
012196,001080: 

Page 311

012198,001082:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
012199,001083:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
012200,001084: 
012201,001085: 

Page 312

012203,001087:                                                                                                  #           DISPLAY VERBS
012204,001088: 05,2326           47656        DSPABC             CS       TWO                                   
012205,001089: 05,2327           02376                           TC       COMPTEST                              
012206,001090: 05,2330           50131                           INDEX    NOUNADD                               
012207,001091: 05,2331           40002                           CS       2                                     
012208,001092: 05,2332           56116                           XCH      BUF        +2                         
012209,001093: 05,2333           47657        DSPAB              CS       ONE                                   
012210,001094: 05,2334           02376                           TC       COMPTEST                              
012211,001095: 05,2335           50131                           INDEX    NOUNADD                               
012212,001096: 05,2336           40001                           CS       1                                     
012213,001097: 05,2337           56115                           XCH      BUF        +1                         
012214,001098: 05,2340           02420        DSPA               TC       TSTFORDP                              
012215,001099: 05,2341           50131                           INDEX    NOUNADD                               
012216,001100: 05,2342           40000                           CS       0                                     
012217,001101: 05,2343           56114        DSPCOM1            XCH      BUF                                   
012218,001102: 05,2344           02357                           TC       DSPCOM2                               
012219,001103: 05,2345           47657        DSPB               CS       ONE                                   
012220,001104: 05,2346           02376                           TC       COMPTEST                              
012221,001105: 05,2347           50131                           INDEX    NOUNADD                               
012222,001106: 05,2350           40001                           CS       1                                     
012223,001107: 05,2351           02343                           TC       DSPCOM1                               
012224,001108: 05,2352           47656        DSPC               CS       TWO                                   
012225,001109: 05,2353           02376                           TC       COMPTEST                              
012226,001110: 05,2354           50131                           INDEX    NOUNADD                               
012227,001111: 05,2355           40002                           CS       2                                     
012228,001112: 05,2356           02343                           TC       DSPCOM1                               
012229,001113: 05,2357           47656        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
012230,001114: 05,2360           60266                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
012231,001115: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
012232,001116: 05,2362           02365                           TC       DSPCOM3                               
012233,001117: 05,2363           00122                           TC       ENTEXIT                               
012234,001118: 05,2364           02365                           TC       +1                                    
012235,001119: 05,2365           54106        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
012236,001120: 05,2366           50000                           INDEX    A                                     
012237,001121: 05,2367           35175                           CAF      R1D1                                  
012238,001122: 05,2370           54264                           TS       DSPCOUNT                              
012239,001123: 05,2371           50106                           INDEX    DISTEM                                
012240,001124: 05,2372           40114                           CS       BUF                                   
012241,001125: 05,2373           03222                           TC       DSPOCTWD                              
012242,001126: 05,2374           56106                           XCH      DISTEM                                
012243,001127: 05,2375           02361                           TC       DSPCOM2    +2                         
012244,001128: 
012245,001129:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
012246,001130:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
012247,001131:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
012248,001132: 05,2376           54107        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
012249,001133: 05,2377           22002                           LXCH     Q                                     
012250,001134: 05,2400           47657        COMPTST1           CS       ONE                                   
012251,001135: 05,2401           60267                           AD       NOUNREG                               
012252,001136: 05,2402           00006                           EXTEND                                         
012253,001137: 
012254,001138: 

Page 313

012256,001140: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
012257,001141: 05,2404           50124                           INDEX    MIXBR                                 #  NOUN NOT = 01.
012258,001142: 05,2405           32442                           CAF      COMPICK    -1                         
012259,001143: 05,2406           50000                           INDEX    A                                     
012260,001144: 05,2407           30000                           CA       0                                     
012261,001145: 05,2410           75226                           MASK     HI5                                   
012262,001146: 05,2411           05207                           TC       LEFT5                                 #  NOUN COMP
012263,001147: 05,2412           60107                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
012264,001148: 05,2413           10000                           CCS      A                                     
012265,001149: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
012266,001150: 05,2415           05464                           TC       CCSHOLE                               
012267,001151: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
012268,001152: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
012269,001153: 
012270,001154: 
012271,001155: 
012272,001156: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
012273,001157: 05,2421           30132                           CA       NNADTEM                               
012274,001158: 05,2422           67657                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
012275,001159: 05,2423           00006                           EXTEND                                         
012276,001160: 05,2424           12436                           BZF      CHANDSP                               
012277,001161: 05,2425           50124                           INDEX    MIXBR                                 
012278,001162: 05,2426           02426                           TC       +0                                    
012279,001163: 05,2427           02431                           TC       +2                                    #  NORMAL
012280,001164: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
012281,001165: 05,2431           02713                           TC       SFRUTNOR                              
012282,001166: 05,2432           02236                           TC       DPTEST                                
012283,001167: 05,2433           00001                           TC       L                                     #  NO DP
012284,001168: 05,2434           24131                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
012285,001169: 05,2435           00001                           TC       L                                     
012286,001170: 
012287,001171: 
012288,001172: 
012289,001173: 05,2436           00006        CHANDSP            EXTEND                                         
012290,001174: 05,2437           50304                           INDEX    NOUNCADR                              
012291,001175: 05,2440           00000                           READ     0                                     
012292,001176: 05,2441           40000                           CS       A                                     
012293,001177: 05,2442           12343                           TCF      DSPCOM1                               
012294,001178: 
012295,001179: 
012296,001180: 
012297,001181: 05,2443           00133        COMPICK            ADRES    NNTYPTEM                              
012298,001182: 05,2444           00132                           ADRES    NNADTEM                               
012299,001183: 
012300,001184: 05,2445           50124        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
012301,001185: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
012302,001186: 05,2447           50000                           INDEX    A                                     
012303,001187: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
012304,001188: 05,2451           75226                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
012305,001189: 05,2452           05207                           TC       LEFT5                                 
012306,001190: 
012307,001191: 

Page 314

012309,001193: 05,2453           54103                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
012310,001194: 05,2454           54106        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
012311,001195: 05,2455           60131                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
012312,001196: 05,2456           50000                           INDEX    A                                     
012313,001197: 05,2457           40000                           CS       0                                     
012314,001198: 05,2460           50106                           INDEX    DECTEM                                
012315,001199: 05,2461           56270                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
012316,001200: 05,2462           10106                           CCS      DECTEM                                
012317,001201: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
012318,001202: 05,2464           37665        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
012319,001203: 05,2465           54141                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
012320,001204: 05,2466           54142                           TS       MPAC       +2                         
012321,001205: 05,2467           50103                           INDEX    DECOUNT                               
012322,001206: 05,2470           35175                           CAF      R1D1                                  
012323,001207: 05,2471           54264                           TS       DSPCOUNT                              
012324,001208: 05,2472           50103                           INDEX    DECOUNT                               
012325,001209: 05,2473           40270                           CS       XREG                                  
012326,001210: 05,2474           54140                           TS       MPAC                                  
012327,001211: 05,2475           02734                           TC       SFCONUM                               #  2X ( SF CON NUMB ) IN A
012328,001212: 05,2476           54107                           TS       SFTEMP1                               
012329,001213: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
012330,001214: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
012331,001215: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
012332,001216: 05,2502           50124                           INDEX    MIXBR                                 
012333,001217: 05,2503           02503                           TC       +0                                    
012334,001218: 05,2504           02507                           TC       DSPSFNOR                              
012335,001219: 05,2505           02721                           TC       SFRUTMIX                              
012336,001220: 05,2506           02522                           TC       DECDSP3                               
012337,001221: 
012338,001222: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
012339,001223: 05,2510           02522                           TC       DECDSP3                               
012340,001224: 
012341,001225: 05,2511     0264                                  EBANK=   DSPCOUNT                              
012342,001226: 05,2511           02037 34000  GTSFOUTL           2CADR    GTSFOUT                               
012343,001227: 
012344,001228: 05,2513           04063        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
012345,001229: 05,2514           11101                           CADR     DSPDECWD                              
012346,001230: 05,2515           10103                           CCS      DECOUNT                               
012347,001231: 05,2516           02520                           TC       +2                                    
012348,001232: 05,2517           00122                           TC       ENTEXIT                               
012349,001233: 05,2520           54103                           TS       DECOUNT                               
012350,001234: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
012351,001235: 
012352,001236: 05,2522           50000        DECDSP3            INDEX    A                                     
012353,001237: 05,2523           32525                           CAF      SFOUTABR                              
012354,001238: 05,2524           04105                           TC       BANKJUMP                              
012355,001239: 
012356,001240: 

Page 315

012358,001242: 05,2525           11277        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
012359,001243: 05,2526           12513                           CADR     DSPDCEND                              
012360,001244: 05,2527           10555                           CADR     DEGOUTSF                              
012361,001245: 05,2530           10642                           CADR     ARTOUTSF                              
012362,001246: 05,2531           10647                           CADR     DP1OUTSF                              
012363,001247: 05,2532           10654                           CADR     DP2OUTSF                              
012364,001248: 05,2533           10563                           CADR     OPDEGOUT                              
012365,001249: 05,2534           10656                           CADR     DP3OUTSF                              
012366,001250: 05,2535                        ENDRTOUT           EQUALS                                         
012367,001251: 
012368,001252: 
012369,001253: 
012370,001254:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
012371,001255:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
012372,001256: 
012373,001257: 
012374,001258: 
012375,001259: 04,2555                                           SETLOC   BLANKCON   +1                         
012376,001260: 
012377,001261:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
012378,001262:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
012379,001263: 
012380,001264: 04,2555           37665        DEGOUTSF           CAF      ZERO                                  
012381,001265: 04,2556           54142                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
012382,001266: 04,2557           02614                           TC       FIXRANGE                              
012383,001267: 04,2560           02562                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
012384,001268: 04,2561           02607                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
012385,001269: 04,2562           02625                           TC       DEGCOM                                
012386,001270: 
012387,001271:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
012388,001272: 
012389,001273: 04,2563           10140        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
012390,001274: 04,2564           56140                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
012391,001275: 04,2565           02570                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
012392,001276: 04,2566           02577                           TC       NEGOPT                                #  IF NEG NON ZERO
012393,001277: 04,2567           67667                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
012394,001278: 04,2570           62641                           AD       20BIAS                                
012395,001279: 04,2571           54140        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
012396,001280: 04,2572           02575                           TC       +3                                    #  NO OVFLOW
012397,001281: 04,2573           37641                           CAF      BIT15                                 #  IF OVFLOW
012398,001282: 04,2574           26140                           ADS      MPAC                                  
012399,001283: 04,2575           37656                           CAF      TWO                                   #  SET MULTIPLIER TO .45
012400,001284: 04,2576           02556                           TC       DEGOUTSF   +1                         
012401,001285: 
012402,001286: 04,2577           56140        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
012403,001287: 04,2600           62641                           AD       20BIAS                                
012404,001288: 04,2601           10000                           CCS      A                                     
012405,001289: 04,2602           02571                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
012406,001290: 04,2603           05464                           TC       CCSHOLE                               
012407,001291: 04,2604           67657                           AD       ONE                                   #  IF NEG RESTORE SUM
012408,001292: 
012409,001293: 

Page 316

012411,001295: 04,2605           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
012412,001296: 04,2606           02571                           TC       BIASCOM                               
012413,001297: 
012414,001298: 04,2607           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
012415,001299: 04,2610           50142                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
012416,001300: 04,2611           32636                           DCA      DEGTAB                                
012417,001301: 04,2612           52110                           DXCH     SFTEMP1                               
012418,001302: 04,2613           00002                           TC       Q                                     
012419,001303: 
012420,001304: 04,2614           10140        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
012421,001305: 04,2615           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
012422,001306: 04,2616           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
012423,001307: 04,2617           12620                           TCF      +1                                    
012424,001308: 04,2620           47641                           CS       BIT15                                 
012425,001309: 04,2621           70140                           MASK     MPAC                                  
012426,001310: 04,2622           54140                           TS       MPAC                                  
012427,001311: 04,2623           50002                           INDEX    Q                                     
012428,001312: 04,2624           00001                           TC       1                                     
012429,001313: 
012430,001314: 04,2625           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
012431,001315: 04,2626           50142                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
012432,001316: 04,2627           32636                           DCA      DEGTAB                                
012433,001317: 04,2630           52141                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
012434,001318: 04,2631           07266                           TC       SHORTMP                               
012435,001319: 04,2632           52110                           DXCH     SFTEMP1                               
012436,001320: 04,2633           20141                           DAS      MPAC                                  
012437,001321: 04,2634           02645                           TC       SCOUTEND                              
012438,001322: 
012439,001323: 04,2635           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
012440,001324: 04,2636           03656                           OCT      03656                                 #  LOW PART OF   .18
012441,001325: 04,2637           16314                           OCT      16314                                 #  HI PART OF    .45
012442,001326: 04,2640           31463                           OCT      31463                                 #  LO PART OF    .45
012443,001327: 
012444,001328: 04,2641           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
012445,001329: 
012446,001330: 04,2642           52110        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
012447,001331: 04,2643           52141                           DXCH     MPAC                                  
012448,001332: 04,2644           07266                           TC       SHORTMP                               
012449,001333: 04,2645           04102        SCOUTEND           TC       POSTJUMP                              
012450,001334: 04,2646           12513                           CADR     DSPDCEND                              
012451,001335: 
012452,001336: 04,2647           02661        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
012453,001337: 04,2650           56142                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
012454,001338: 04,2651           56141                           XCH      MPAC       +1                         #  BY B14.
012455,001339: 04,2652           54140                           TS       MPAC                                  
012456,001340: 04,2653           02645                           TC       SCOUTEND                              
012457,001341: 
012458,001342: 

Page 317

012460,001344: 04,2654           02661        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
012461,001345: 04,2655           02645                           TC       SCOUTEND                              
012462,001346: 
012463,001347: 
012464,001348: 
012465,001349: 04,2656           02661        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
012466,001350: 04,2657           03054                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
012467,001351: 04,2660           02645                           TC       SCOUTEND                              
012468,001352: 
012469,001353: 
012470,001354: 
012471,001355:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
012472,001356:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
012473,001357: 
012474,001358: 04,2661           56002        DPOUT              XCH      Q                                     
012475,001359: 04,2662           54105                           TS       OVFIND                                
012476,001360: 04,2663           50124                           INDEX    MIXBR                                 
012477,001361: 04,2664           02664                           TC       +0                                    
012478,001362: 04,2665           02702                           TC       DPOUTNOR                              
012479,001363: 04,2666           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
012480,001364: 04,2667           30134                           CA       IDAD1TEM                              #      OF NOUN.
012481,001365: 04,2670           75234                           MASK     LOW11                                 #  E SUBK
012482,001366: 04,2671           05171                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
012483,001367: 04,2672           00006        DPOUTCOM           EXTEND                                         
012484,001368: 04,2673           50000                           INDEX    A                                     #  MIXED         NORMAL
012485,001369: 04,2674           30001                           DCA      0                                     #  C(ESUBK)      C(E)
012486,001370: 04,2675           52141                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
012487,001371: 04,2676           07235                           TC       TPAGREE                               
012488,001372: 04,2677           07063                           TC       DMP                                   
012489,001373: 04,2700           00107                           ADRES    SFTEMP1                               
012490,001374: 04,2701           00105                           TC       OVFIND                                
012491,001375: 
012492,001376: 04,2702           30131        DPOUTNOR           CA       NOUNADD                               #  E
012493,001377: 04,2703           02672                           TC       DPOUTCOM                              
012494,001378: 
012495,001379: 
012496,001380: 
012497,001381:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
012498,001382:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
012499,001383:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
012500,001384:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
012501,001385:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
012502,001386:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
012503,001387: 
012504,001388: 
012505,001389: 
012506,001390: 04,2704           50124        DSPDPDEC           INDEX    MIXBR                                 
012507,001391: 04,2705           02705                           TC       +0                                    
012508,001392: 04,2706           02710                           TC       +2                                    #  NORMAL NOUN
012509,001393: 04,2707           03277                           TC       DSPALARM                              
012510,001394: 

Page 318

012512,001396: 04,2710           00006                           EXTEND                                         
012513,001397: 04,2711           50131                           INDEX    NOUNADD                               
012514,001398: 04,2712           30001                           DCA      0                                     
012515,001399: 04,2713           52141                           DXCH     MPAC                                  
012516,001400: 04,2714           35175                           CAF      R1D1                                  
012517,001401: 04,2715           54264                           TS       DSPCOUNT                              
012518,001402: 04,2716           37665                           CAF      ZERO                                  
012519,001403: 04,2717           54142                           TS       MPAC       +2                         
012520,001404: 04,2720           07235                           TC       TPAGREE                               
012521,001405: 04,2721           03155                           TC       DSP2DEC                               
012522,001406: 04,2722           00122        ENDDPDEC           TC       ENTEXIT                               
012523,001407: 

Page 319

012525,001409:                                                                                                  #           LOAD VERBS
012526,001410: 
012527,001411: 
012528,001412: 
012529,001413: 05,2535                                           SETLOC   ENDRTOUT                              
012530,001414: 
012531,001415: 05,2535           47656        ABCLOAD            CS       TWO                                   
012532,001416: 05,2536           02376                           TC       COMPTEST                              
012533,001417: 05,2537           32673                           CAF      VBSP1LD                               
012534,001418: 05,2540           02314                           TC       UPDATVB    -1                         
012535,001419: 05,2541           02252                           TC       REQDATX                               
012536,001420: 05,2542           32674                           CAF      VBSP2LD                               
012537,001421: 05,2543           02314                           TC       UPDATVB    -1                         
012538,001422: 05,2544           02254                           TC       REQDATY                               
012539,001423: 05,2545           32675                           CAF      VBSP3LD                               
012540,001424: 05,2546           02314                           TC       UPDATVB    -1                         
012541,001425: 05,2547           02256                           TC       REQDATZ                               
012542,001426: 
012543,001427: 
012544,001428: 
012545,001429: 05,2550           46162        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
012546,001430: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
012547,001431: 05,2552           00006                           EXTEND                                         
012548,001432: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
012549,001433: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
012550,001434: 05,2555           37665                           CAF      ZERO                                  #  X COMP
012551,001435: 05,2556           02762                           TC       PUTCOM                                
012552,001436: 05,2557           50131                           INDEX    NOUNADD                               
012553,001437: 05,2560           54000                           TS       0                                     
012554,001438: 05,2561           37657                           CAF      ONE                                   #  Y COMP
012555,001439: 05,2562           02762                           TC       PUTCOM                                
012556,001440: 05,2563           50131                           INDEX    NOUNADD                               
012557,001441: 05,2564           54001                           TS       1                                     
012558,001442: 05,2565           37656                           CAF      TWO                                   #  Z COMP
012559,001443: 05,2566           02762                           TC       PUTCOM                                
012560,001444: 05,2567           50131                           INDEX    NOUNADD                               
012561,001445: 05,2570           54002                           TS       2                                     
012562,001446: 05,2571           02663                           TC       LOADLV                                
012563,001447: 
012564,001448: 05,2572           47657        ABLOAD             CS       ONE                                   
012565,001449: 05,2573           02376                           TC       COMPTEST                              
012566,001450: 05,2574           32673                           CAF      VBSP1LD                               
012567,001451: 05,2575           02314                           TC       UPDATVB    -1                         
012568,001452: 05,2576           02252                           TC       REQDATX                               
012569,001453: 05,2577           32674                           CAF      VBSP2LD                               
012570,001454: 05,2600           02314                           TC       UPDATVB    -1                         
012571,001455: 05,2601           02254                           TC       REQDATY                               
012572,001456: 05,2602           47664        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
012573,001457: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
012574,001458: 05,2604           00006                           EXTEND                                         
012575,001459: 

Page 320

012577,001461: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
012578,001462: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
012579,001463: 05,2607           37665                           CAF      ZERO                                  #  X COMP
012580,001464: 05,2610           02762                           TC       PUTCOM                                
012581,001465: 05,2611           50131                           INDEX    NOUNADD                               
012582,001466: 05,2612           54000                           TS       0                                     
012583,001467: 05,2613           37657                           CAF      ONE                                   #  Y COMP
012584,001468: 05,2614           02762                           TC       PUTCOM                                
012585,001469: 05,2615           50131                           INDEX    NOUNADD                               
012586,001470: 05,2616           54001                           TS       1                                     
012587,001471: 05,2617           02663                           TC       LOADLV                                
012588,001472: 
012589,001473: 05,2620           02252        ALOAD              TC       REQDATX                               
012590,001474: 05,2621           00006                           EXTEND                                         
012591,001475: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
012592,001476: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
012593,001477: 05,2624           37665                           CAF      ZERO                                  #  X COMP
012594,001478: 05,2625           02762                           TC       PUTCOM                                
012595,001479: 05,2626           50131                           INDEX    NOUNADD                               
012596,001480: 05,2627           54000                           TS       0                                     
012597,001481: 05,2630           02663                           TC       LOADLV                                
012598,001482: 
012599,001483: 05,2631           47657        BLOAD              CS       ONE                                   
012600,001484: 05,2632           02376                           TC       COMPTEST                              
012601,001485: 05,2633           37641                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
012602,001486: 05,2634           54302                           TS       CLPASS                                
012603,001487: 05,2635           02254                           TC       REQDATY                               
012604,001488: 05,2636           00006                           EXTEND                                         
012605,001489: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
012606,001490: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
012607,001491: 05,2641           37657                           CAF      ONE                                   
012608,001492: 05,2642           02762                           TC       PUTCOM                                
012609,001493: 05,2643           50131                           INDEX    NOUNADD                               
012610,001494: 05,2644           54001                           TS       1                                     
012611,001495: 05,2645           02663                           TC       LOADLV                                
012612,001496: 
012613,001497: 05,2646           47656        CLOAD              CS       TWO                                   
012614,001498: 05,2647           02376                           TC       COMPTEST                              
012615,001499: 05,2650           37641                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
012616,001500: 05,2651           54302                           TS       CLPASS                                
012617,001501: 05,2652           02256                           TC       REQDATZ                               
012618,001502: 05,2653           00006                           EXTEND                                         
012619,001503: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
012620,001504: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
012621,001505: 05,2656           37656                           CAF      TWO                                   
012622,001506: 05,2657           02762                           TC       PUTCOM                                
012623,001507: 05,2660           50131                           INDEX    NOUNADD                               
012624,001508: 05,2661           54002                           TS       2                                     
012625,001509: 05,2662           02663                           TC       LOADLV                                
012626,001510: 

Page 321

012628,001512: 05,2663           37665        LOADLV             CAF      ZERO                                  
012629,001513: 05,2664           54265                           TS       DECBRNCH                              
012630,001514: 05,2665           47665                           CS       ZERO                                  
012631,001515: 05,2666           54301                           TS       LOADSTAT                              
012632,001516: 05,2667           45237                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
012633,001517: 05,2670           54264                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
012634,001518: 05,2671           04102                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
012635,001519: 05,2672           11422                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
012636,001520: 
012637,001521: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
012638,001522: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
012639,001523: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
012640,001524: 
012641,001525: 
012642,001526: 
012643,001527: 05,2676           54103        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
012644,001528: 05,2677           40265                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
012645,001529: 05,2700           54021                           TS       SR                                    
012646,001530: 05,2701           40021                           CS       SR                                    
012647,001531: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
012648,001532: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
012649,001533: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
012650,001534: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
012651,001535: 05,2706           60103                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
012652,001536: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
012653,001537: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
012654,001538: 05,2711           02324                           TC       GODSPALM                              
012655,001539: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
012656,001540: 
012657,001541: 
012658,001542: 
012659,001543: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
012660,001544: 05,2714           54100                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
012661,001545: 05,2715           35225                           CAF      MID5                                  
012662,001546: 05,2716           70133                           MASK     NNTYPTEM                              
012663,001547: 05,2717           05200                           TC       RIGHT5                                
012664,001548: 05,2720           00100                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
012665,001549: 
012666,001550: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
012667,001551: 05,2722           54100                           TS       EXITEM                                
012668,001552: 05,2723           50103                           INDEX    DECOUNT                               
012669,001553: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
012670,001554: 05,2725           54001                           TS       L                                     
012671,001555: 05,2726           50103                           INDEX    DECOUNT                               
012672,001556: 05,2727           35224                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
012673,001557: 05,2730           70137                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
012674,001558: 05,2731           50001                           INDEX    L                                     
012675,001559: 05,2732           00000                           TC       0                                     
012676,001560:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
012677,001561: 05,2733           00100        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
012678,001562: 

Page 322

012680,001564: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
012681,001565: 05,2735           54100                           TS       EXITEM                                
012682,001566: 05,2736           50124                           INDEX    MIXBR                                 
012683,001567: 05,2737           02737                           TC       +0                                    
012684,001568: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
012685,001569: 05,2741           50103                           INDEX    DECOUNT                               #  MIXED NOUN
012686,001570: 05,2742           32753                           CAF      DISPLACE                              
012687,001571: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
012688,001572: 05,2744           50103                           INDEX    DECOUNT                               
012689,001573: 05,2745           35224                           CAF      LOW5                                  
012690,001574: 05,2746           70133                           MASK     NNTYPTEM                              
012691,001575: 05,2747           50001                           INDEX    L                                     
012692,001576: 05,2750           00000                           TC       0                                     
012693,001577:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
012694,001578: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
012695,001579: 05,2752           00100                           TC       EXITEM                                
012696,001580: 
012697,001581: 05,2753           02712        DISPLACE           TC       GOQ                                   
012698,001582: 05,2754           05200                           TC       RIGHT5                                
012699,001583: 05,2755           05207                           TC       LEFT5                                 
012700,001584: 
012701,001585: 05,2756           35224        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
012702,001586: 05,2757           70133                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
012703,001587: 05,2760           60000                           DOUBLE                                         
012704,001588: 05,2761           00100                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
012705,001589: 
012706,001590: 
012707,001591: 
012708,001592: 05,2762           54103        PUTCOM             TS       DECOUNT                               
012709,001593: 05,2763           56002                           XCH      Q                                     
012710,001594: 05,2764           54101                           TS       DECRET                                
012711,001595: 05,2765           37665                           CAF      ZERO                                  
012712,001596: 05,2766           54105                           TS       OVFIND                                
012713,001597: 05,2767           50103                           INDEX    DECOUNT                               
012714,001598: 05,2770           56273                           XCH      XREGLP                                
012715,001599: 05,2771           54141                           TS       MPAC       +1                         
012716,001600: 05,2772           50103                           INDEX    DECOUNT                               
012717,001601: 05,2773           56270                           XCH      XREG                                  
012718,001602: 05,2774           54140                           TS       MPAC                                  
012719,001603: 05,2775           50124                           INDEX    MIXBR                                 
012720,001604: 05,2776           02776                           TC       +0                                    
012721,001605: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
012722,001606:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
012723,001607: 05,3000           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
012724,001608: 05,3001           30134                           CA       IDAD1TEM                              #          OF NOUN.
012725,001609: 05,3002           75234                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
012726,001610: 05,3003           05161                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
012727,001611: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
012728,001612: 05,3005           60103                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
012729,001613: 05,3006           54131                           TS       NOUNADD                               
012730,001614: 

Page 323

012732,001616: 05,3007           10265                           CCS      DECBRNCH                              
012733,001617: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
012734,001618: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
012735,001619: 05,3012           02236                           TC       DPTEST                                
012736,001620: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
012737,001621:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
012738,001622:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
012739,001623:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
012740,001624: 05,3014           24131        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
012741,001625: 05,3015           30131                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
012742,001626: 05,3016           26103                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
012743,001627: 05,3017           37665                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
012744,001628: 05,3020           50103                           INDEX    DECOUNT                               
012745,001629: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
012746,001630: 05,3022           03040                           TC       PUTCOM2                               
012747,001631: 
012748,001632: 05,3023           05167        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
012749,001633: 05,3024           10265                           CCS      DECBRNCH                              
012750,001634: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
012751,001635: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
012752,001636: 05,3027           02236                           TC       DPTEST                                
012753,001637: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
012754,001638: 05,3031           37665                           CAF      ZERO                                  #  DP
012755,001639: 05,3032           54103                           TS       DECOUNT                               
012756,001640: 05,3033           03014                           TC       PUTDPCOM                              
012757,001641: 
012758,001642: 05,3034           30132                           CA       NNADTEM                               
012759,001643: 05,3035           67657                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
012760,001644: 05,3036           00006                           EXTEND                                         
012761,001645: 05,3037           13044                           BZF      CHANLOAD                              
012762,001646: 05,3040           56140        PUTCOM2            XCH      MPAC                                  
012763,001647: 05,3041           00101                           TC       DECRET                                
012764,001648: 
012765,001649: 05,3042     0264                                  EBANK=   DSPCOUNT                              
012766,001650: 05,3042           02045 34000  GTSFINLC           2CADR    GTSFIN                                
012767,001651: 
012768,001652: 05,3044           56140        CHANLOAD           XCH      MPAC                                  
012769,001653: 05,3045           00006                           EXTEND                                         
012770,001654: 05,3046           50304                           INDEX    NOUNCADR                              
012771,001655: 05,3047           01000                           WRITE    0                                     
012772,001656: 05,3050           02663                           TC       LOADLV                                
012773,001657: 
012774,001658: 
012775,001659: 
012776,001660:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
012777,001661: 
012778,001662: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
012779,001663: 05,3052           54107                           TS       SFTEMP1                               
012780,001664: 

Page 324

012782,001666: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
012783,001667: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
012784,001668: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
012785,001669: 05,3056           50124                           INDEX    MIXBR                                 
012786,001670: 05,3057           03057                           TC       +0                                    
012787,001671: 05,3060           03063                           TC       PUTSFNOR                              
012788,001672: 05,3061           02721                           TC       SFRUTMIX                              
012789,001673: 05,3062           03064                           TC       PUTDCSF2                              
012790,001674: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
012791,001675: 
012792,001676: 05,3064           50000        PUTDCSF2           INDEX    A                                     
012793,001677: 05,3065           33067                           CAF      SFINTABR                              
012794,001678: 05,3066           04105                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
012795,001679: 05,3067           11277        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
012796,001680: 
012797,001681: 05,3070           11003                           CADR     BINROUND                              
012798,001682: 05,3071           10723                           CADR     DEGINSF                               
012799,001683: 05,3072           10773                           CADR     ARTHINSF                              
012800,001684: 05,3073           11023                           CADR     DPINSF                                
012801,001685: 05,3074           11050                           CADR     DPINSF2                               
012802,001686: 05,3075           11006                           CADR     OPTDEGIN                              
012803,001687: 05,3076           11023                           CADR     DPINSF                                #  SAME AS ARITHDP1
012804,001688: 05,3077                        ENDRUTIN           EQUALS                                         
012805,001689: 
012806,001690: 
012807,001691: 
012808,001692:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
012809,001693:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
012810,001694: 
012811,001695: 
012812,001696: 
012813,001697: 04,2723                                           SETLOC   ENDDPDEC   +1                         
012814,001698: 
012815,001699:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
012816,001700: 
012817,001701: 04,2723           07063        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
012818,001702: 04,2724           02766                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
012819,001703: 04,2725           10141                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
012820,001704: 04,2726           37645                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
012821,001705: 04,2727           02731                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
012822,001706: 04,2730           47645                           CS       BIT11                                 
012823,001707: 04,2731           60141                           AD       MPAC       +1                         
012824,001708: 04,2732           03066                           TC       2ROUND     +2                         
012825,001709: 04,2733           05263                           TC       TPSL1                                 #  LEFT 1
012826,001710: 04,2734           05263        DEGINSF2           TC       TPSL1                                 #  LEFT 2
012827,001711: 04,2735           03075                           TC       TESTOFUF                              
012828,001712: 04,2736           05263                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
012829,001713: 04,2737           10140                           CCS      MPAC                                  
012830,001714: 04,2740           02744                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
012831,001715: 04,2741           02744                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
012832,001716: 04,2742           40000                           COM                                            #  IF -, USE -MAGNITUDE +1
012833,001717: 

Page 325

012835,001719: 04,2743           54140                           TS       MPAC                                  #  IF -0, USE +0
012836,001720: 04,2744           10105        SIGNFIX            CCS      OVFIND                                
012837,001721: 04,2745           02762                           TC       SGNTO1                                #  IF OVERFLOW
012838,001722: 04,2746           02756                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
012839,001723: 04,2747           10140                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
012840,001724: 04,2750           05464                           TC       CCSHOLE                               
012841,001725: 04,2751           02760                           TC       NEG180                                
012842,001726: 04,2752           02753                           TC       +1                                    
012843,001727: 04,2753           56140                           XCH      MPAC                                  
012844,001728: 04,2754           77637                           MASK     POSMAX                                
012845,001729: 04,2755           54140                           TS       MPAC                                  
012846,001730: 04,2756           04102        ENDSCALE           TC       POSTJUMP                              
012847,001731: 04,2757           13040                           CADR     PUTCOM2                               
012848,001732: 
012849,001733: 04,2760           47637        NEG180             CS       POSMAX                                
012850,001734: 04,2761           02755                           TC       ENDSCALE   -1                         
012851,001735: 
012852,001736: 04,2762           40140        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
012853,001737: 04,2763           77637                           MASK     POSMAX                                
012854,001738: 04,2764           40000                           CS       A                                     
012855,001739: 04,2765           02755                           TC       ENDSCALE   -1                         
012856,001740: 
012857,001741: 04,2766           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
012858,001742: 
012859,001743: 04,2770           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
012860,001744: 
012861,001745: 04,2772           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
012862,001746: 
012863,001747: 04,2773           07063        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
012864,001748: 04,2774           00107                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
012865,001749: 04,2775           56142                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
012866,001750: 04,2776           56141                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
012867,001751: 04,2777           56140                           XCH      MPAC                                  
012868,001752: 04,3000           00006                           EXTEND                                         
012869,001753: 04,3001           13003                           BZF      BINROUND                              
012870,001754: 04,3002           03277                           TC       DSPALARM                              #  TOO LARGE A LOAD
012871,001755: 04,3003           03064        BINROUND           TC       2ROUND                                
012872,001756: 04,3004           03075                           TC       TESTOFUF                              
012873,001757: 04,3005           02756                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
012874,001758: 
012875,001759: 
012876,001760: 
012877,001761: 04,3006           10140        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
012878,001762: 04,3007           03013                           TC       +4                                    
012879,001763: 04,3010           03013                           TC       +3                                    
012880,001764: 04,3011           03277                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
012881,001765: 04,3012           03277                           TC       DSPALARM                              #          DITTO
012882,001766: 04,3013           32772        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
012883,001767: 04,3014           26140                           ADS      MPAC                                  #  SUBTRACT BIAS
012884,001768: 04,3015           07063                           TC       DMP                                   #  MULT BY 100 / 45  B-2
012885,001769: 

Page 326

012887,001771: 04,3016           02770                           ADRES    DEGCON2                               
012888,001772: 04,3017           37644                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
012889,001773: 04,3020           60141                           AD       MPAC       +1                         
012890,001774: 04,3021           03066                           TC       2ROUND     +2                         
012891,001775: 04,3022           02734                           TC       DEGINSF2                              
012892,001776: 
012893,001777: 04,3023           07063        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
012894,001778: 04,3024           00107                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
012895,001779: 04,3025           56142                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
012896,001780: 04,3026           60000                           DOUBLE                                         
012897,001781: 04,3027           54142                           TS       MPAC       +2                         
012898,001782: 04,3030           37665                           CAF      ZERO                                  
012899,001783: 04,3031           60141                           AD       MPAC       +1                         
012900,001784: 04,3032           03066                           TC       2ROUND     +2                         
012901,001785: 04,3033           03075                           TC       TESTOFUF                              
012902,001786: 04,3034           50124                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
012903,001787: 04,3035           03035                           TC       +0                                    
012904,001788: 04,3036           03046                           TC       DPINORM                               
012905,001789: 04,3037           30103                           CA       DECOUNT                               #  MIXEDNOUN
012906,001790: 04,3040           60131        DPINCOM            AD       NOUNADD                               #      MIXED                NORMAL
012907,001791: 04,3041           54002                           TS       Q                                     #    E SUBK             E
012908,001792: 04,3042           56141                           XCH      MPAC       +1                         
012909,001793: 04,3043           50002                           INDEX    Q                                     
012910,001794: 04,3044           54001                           TS       1                                     #  PLACE LOW PART IN
012911,001795: 04,3045           02756                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
012912,001796: 04,3046           37665        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
012913,001797: 04,3047           03040                           TC       DPINCOM                               
012914,001798: 
012915,001799: 
012916,001800: 
012917,001801: 04,3050           07063        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
012918,001802: 04,3051           00107                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
012919,001803: 04,3052           03054                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
012920,001804: 04,3053           03025                           TC       DPINSF     +2                         
012921,001805: 
012922,001806: 
012923,001807: 
012924,001808: 04,3054           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
012925,001809: 04,3055           54110                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
012926,001810: 04,3056           36162                           CAF      SIX                                   #  LEFT BY 7
012927,001811: 04,3057           54107        LEFT7COM           TS       SFTEMP1                               
012928,001812: 04,3060           05263                           TC       TPSL1                                 
012929,001813: 04,3061           10107                           CCS      SFTEMP1                               
012930,001814: 04,3062           03057                           TC       LEFT7COM                              
012931,001815: 04,3063           00110                           TC       SFTEMP2                               
012932,001816: 
012933,001817: 04,3064           56141        2ROUND             XCH      MPAC       +1                         
012934,001818: 04,3065           60000                           DOUBLE                                         
012935,001819: 

Page 327

012937,001821: 04,3066           54141                           TS       MPAC       +1                         
012938,001822: 04,3067           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
012939,001823: 04,3070           60140                           AD       MPAC                                  
012940,001824: 04,3071           54140                           TS       MPAC                                  
012941,001825: 04,3072           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
012942,001826: 04,3073           54105                           TS       OVFIND                                
012943,001827: 04,3074           00002        2RNDEND            TC       Q                                     
012944,001828: 
012945,001829: 
012946,001830: 
012947,001831: 04,3075           10105        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
012948,001832: 04,3076           03277                           TC       DSPALARM                              #  OF
012949,001833: 04,3077           00002                           TC       Q                                     
012950,001834: 04,3100           03277                           TC       DSPALARM                              #  UF
012951,001835: 

Page 328

012953,001837:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
012954,001838:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
012955,001839: 
012956,001840:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
012957,001841:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
012958,001842:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
012959,001843:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
012960,001844:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
012961,001845: 
012962,001846:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
012963,001847:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
012964,001848:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
012965,001849: 
012966,001850:                                                                                                  #  NVSUB  AND VB=TERMINATE TURN KILL MONITOR BIT ON.
012967,001851: 
012968,001852:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
012969,001853:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
012970,001854: 
012971,001855:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
012972,001856: 05,3077                                           SETLOC   ENDRUTIN                              
012973,001857: 
012974,001858: 05,3077           47641        MONITOR            CS       BIT15                                 
012975,001859: 05,3100           70304                           MASK     NOUNCADR                              
012976,001860: 05,3101           54141        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
012977,001861: 05,3102           33401                           CAF      LOW6                                  
012978,001862: 05,3103           70266                           MASK     VERBREG                               
012979,001863: 05,3104           05207                           TC       LEFT5                                 
012980,001864: 05,3105           54022                           TS       CYL                                   
012981,001865: 05,3106           56022                           XCH      CYL                                   
012982,001866: 05,3107           60267                           AD       NOUNREG                               
012983,001867: 05,3110           54140                           TS       MPAC                                  #  TEMP STORAGE
012984,001868: 05,3111           40324                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
012985,001869: 05,3112           67656                           AD       TWO                                   
012986,001870: 05,3113           10000                           CCS      A                                     
012987,001871: 05,3114           05364                           TC       RELDSP1                               #  GRABLOCK=0,1, +0 INTO DSPLOCK AND
012988,001872: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
012989,001873: 05,3116           05464                           TC       CCSHOLE                               
012990,001874: 05,3117           37665                           CAF      ZERO                                  #  GRABLOCK=2, +0 INTO DSPLOCK AND
012991,001875: 05,3120           54277                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
012992,001876: 05,3121           00004                           INHINT                                         
012993,001877: 05,3122           10305                           CCS      MONSAVE                               
012994,001878: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
012995,001879: 05,3124           37657                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
012996,001880: 05,3125           04536                           TC       WAITLIST                              
012997,001881: 05,3126     0264                                  EBANK=   DSPCOUNT                              
012998,001882: 05,3126           03134 12000                     2CADR    MONREQ                                
012999,001883: 
013000,001884: 05,3130           52141                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
013001,001885: 

Page 329

013003,001887: 05,3131           52306                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
013004,001888: 05,3132           00003                           RELINT                                         
013005,001889: 05,3133           00122                           TC       ENTRET                                
013006,001890: 
013007,001891: 
013008,001892: 
013009,001893: 05,3134           05257        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
013010,001894: 05,3135           10306                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
013011,001895: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
013012,001896: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
013013,001897: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
013014,001898: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
013015,001899: 05,3142           33157                           CAF      MONDEL                                
013016,001900: 05,3143           04536                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
013017,001901: 05,3144     0264                                  EBANK=   DSPCOUNT                              
013018,001902: 05,3144           03134 12000                     2CADR    MONREQ                                
013019,001903: 05,3146           35233                           CAF      CHRPRIO                               
013020,001904: 05,3147           04363                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
013021,001905: 05,3150     0264                                  EBANK=   DSPCOUNT                              
013022,001906: 05,3150           03160 12000                     2CADR    MONDO                                 
013023,001907: 
013024,001908: 05,3152           04602                           TC       TASKOVER                              
013025,001909: 
013026,001910: 05,3153           37665        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
013027,001911: 05,3154           54305                           TS       MONSAVE                               
013028,001912: 05,3155           54306                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
013029,001913: 05,3156           04602                           TC       TASKOVER                              
013030,001914: 
013031,001915: 
013032,001916: 
013033,001917: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
013034,001918: 
013035,001919: 
013036,001920: 
013037,001921: 05,3160           10306        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
013038,001922: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
013039,001923: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
013040,001924: 05,3163           04440                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
013041,001925: 05,3164           04440                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
013042,001926: 05,3165           10277                           CCS      DSPLOCK                               
013043,001927: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
013044,001928: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
013045,001929: 05,3170           70305                           MASK     MONSAVE                               
013046,001930: 05,3171           54107                           TS       NVTEMP                                
013047,001931: 05,3172           05123                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
013048,001932: 05,3173           04440                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
013049,001933: 05,3174           33210                           CAF      MONMASK                               
013050,001934: 05,3175           70305                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
013051,001935: 05,3176           05200                           TC       RIGHT5                                
013052,001936: 

Page 330

013054,001938: 05,3177           54020                           TS       CYR                                   
013055,001939: 05,3200           56020                           XCH      CYR                                   
013056,001940: 05,3201           54266                           TS       VERBREG                               
013057,001941: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
013058,001942: 05,3203           54122                           TS       ENTRET                                
013059,001943: 05,3204           47641                           CS       BIT15                                 
013060,001944: 05,3205           70306                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
013061,001945: 05,3206           54142                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
013062,001946: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
013063,001947: 
013064,001948:    5100                                           SETLOC   ENDRMODF                              
013065,001949: 
013066,001950:    5100           35106        PASTEVB            CAF      MIDSIX                                
013067,001951:    5101           70305                           MASK     MONSAVE                               
013068,001952:    5102           54107                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
013069,001953:    5103           05123                           TC       NVSUBMON                              #       DISPLAY IT.
013070,001954:    5104           05105                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
013071,001955:    5105           04440        ENDPASTE           TC       ENDOFJOB                              
013072,001956: 
013073,001957:    5106           07700        MIDSIX             OCT      07700                                 
013074,001958: 
013075,001959: 
013076,001960: 
013077,001961: 05,3210                                           SETLOC   ENDMONDO   +1                         
013078,001962: 05,3210           00700        MONMASK            OCT      700                                   
013079,001963: 05,3211           05100        MONBACK            ADRES    PASTEVB                               
013080,001964: 
013081,001965: 05,3212           05253        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
013082,001966: 05,3213           04440                           TC       ENDOFJOB                              
013083,001967: 
013084,001968: 
013085,001969: 
013086,001970:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
013087,001971:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
013088,001972:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
013089,001973: 
013090,001974: 05,3214           35175        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
013091,001975: 05,3215           54264                           TS       DSPCOUNT                              
013092,001976: 05,3216           30304                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
013093,001977: 05,3217           04116                           TC       DATACALL                              
013094,001978: 05,3220           03222                           TC       DSPOCTWD                              
013095,001979: 05,3221           04440        ENDSPF             TC       ENDOFJOB                              
013096,001980: 

Page 331

013098,001982:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1) TO A SIGN AND 5 CHAR DECIMAL
013099,001983:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
013100,001984: 
013101,001985: 04,3101                                           SETLOC   TESTOFUF   +4                         
013102,001986: 04,3101           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
013103,001987: 04,3102           54101                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
013104,001988: 04,3103           10140                           CCS      MPAC                                  
013105,001989: 04,3104           03113                           TC       +7                                    
013106,001990: 04,3105           03113                           TC       +6                                    
013107,001991: 04,3106           67657                           AD       ONE                                   
013108,001992: 04,3107           54140                           TS       MPAC                                  
013109,001993: 04,3110           02313                           TC       -ON                                   
013110,001994: 04,3111           40141                           CS       MPAC       +1                         
013111,001995: 04,3112           03115                           TC       +3                                    
013112,001996: 04,3113           02273                           TC       +ON                                   
013113,001997: 04,3114           56141                           XCH      MPAC       +1                         
013114,001998: 04,3115           63154                           AD       DECROUND                              
013115,001999: 04,3116           54141                           TS       MPAC       +1                         
013116,002000: 04,3117           37665                           CAF      ZERO                                  
013117,002001: 04,3120           60140                           AD       MPAC                                  
013118,002002: 04,3121           54140                           TS       MPAC                                  
013119,002003: 04,3122           03126                           TC       +4                                    
013120,002004: 04,3123           37637                           CAF      POSMAX                                
013121,002005: 04,3124           54140                           TS       MPAC                                  
013122,002006: 04,3125           54141                           TS       MPAC       +1                         
013123,002007: 04,3126           37655                           CAF      FOUR                                  
013124,002008: 04,3127           54123        DSPDCWD1           TS       WDCNT                                 
013125,002009: 04,3130           35242                           CAF      BINCON                                
013126,002010: 04,3131           07266                           TC       SHORTMP                               
013127,002011: 04,3132           50140        TRACE1             INDEX    MPAC                                  
013128,002012: 04,3133           34741                           CAF      RELTAB                                
013129,002013: 04,3134           75224                           MASK     LOW5                                  
013130,002014: 04,3135           54110                           TS       CODE                                  
013131,002015: 04,3136           37665                           CAF      ZERO                                  
013132,002016: 04,3137           56142                           XCH      MPAC       +2                         
013133,002017: 04,3140           56141                           XCH      MPAC       +1                         
013134,002018: 04,3141           54140                           TS       MPAC                                  
013135,002019: 04,3142           56264                           XCH      DSPCOUNT                              
013136,002020: 04,3143           54127        TRACE1S            TS       COUNT                                 
013137,002021: 04,3144           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
013138,002022: 04,3145           54264                           TS       DSPCOUNT                              
013139,002023: 04,3146           03201                           TC       DSPIN                                 
013140,002024: 04,3147           10123                           CCS      WDCNT                                 
013141,002025: 04,3150           03127                           TC       DSPDCWD1                              
013142,002026: 04,3151           45237                           CS       VD1                                   
013143,002027: 04,3152           54264                           TS       DSPCOUNT                              
013144,002028: 04,3153           00101                           TC       WDRET                                 
013145,002029: 
013146,002030: 04,3154           02476        DECROUND           OCT      02476                                 
013147,002031: 

Page 332

013149,002033:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
013150,002034:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
013151,002035: 
013152,002036: 04,3155           56002        DSP2DEC            XCH      Q                                     #  MUST USE SAME RETURN AS DSPDECWD
013153,002037: 04,3156           54101                           TS       WDRET                                 
013154,002038: 04,3157           37665                           CAF      ZERO                                  
013155,002039: 04,3160           54110                           TS       CODE                                  
013156,002040: 04,3161           36165                           CAF      THREE                                 
013157,002041: 04,3162           03263                           TC       11DSPIN                               #  -R2 OFF
013158,002042: 04,3163           37655                           CAF      FOUR                                  
013159,002043: 04,3164           03263                           TC       11DSPIN                               #  +R2 OFF
013160,002044: 04,3165           10140                           CCS      MPAC                                  
013161,002045: 04,3166           03176                           TC       +8D                                   
013162,002046: 04,3167           03176                           TC       +7                                    
013163,002047: 04,3170           67657                           AD       ONE                                   
013164,002048: 04,3171           54140                           TS       MPAC                                  
013165,002049: 04,3172           02313                           TC       -ON                                   
013166,002050: 04,3173           40141                           CS       MPAC       +1                         
013167,002051: 04,3174           54141                           TS       MPAC       +1                         
013168,002052: 04,3175           03177                           TC       +2                                    
013169,002053: 04,3176           02273                           TC       +ON                                   
013170,002054: 04,3177           35176                           CAF      R2D1                                  
013171,002055: 04,3200           03127        END2DEC            TC       DSPDCWD1                              
013172,002056: 
013173,002057: 
013174,002058: 
013175,002059: 05,3222                                           SETLOC   DSPFMEM    +6                         
013176,002060:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
013177,002061:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
013178,002062: 
013179,002063: 05,3222           54022        DSPOCTWD           TS       CYL                                   
013180,002064: 05,3223           56002                           XCH      Q                                     
013181,002065: 05,3224           54101                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
013182,002066: 05,3225           37642                           CAF      BIT14                                 #  TO BLANK SIGNS
013183,002067: 05,3226           26264                           ADS      DSPCOUNT                              
013184,002068: 05,3227           37655                           CAF      FOUR                                  
013185,002069: 05,3230           54123        WDAGAIN            TS       WDCNT                                 
013186,002070: 05,3231           40022                           CS       CYL                                   
013187,002071: 05,3232           40022                           CS       CYL                                   
013188,002072: 05,3233           40022                           CS       CYL                                   
013189,002073: 05,3234           40000                           CS       A                                     
013190,002074: 05,3235           77663                           MASK     DSPMSK                                
013191,002075: 05,3236           50000                           INDEX    A                                     
013192,002076: 05,3237           34741                           CAF      RELTAB                                
013193,002077: 05,3240           75224                           MASK     LOW5                                  
013194,002078: 05,3241           54110                           TS       CODE                                  
013195,002079: 05,3242           56264                           XCH      DSPCOUNT                              
013196,002080: 05,3243           54127                           TS       COUNT                                 
013197,002081: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
013198,002082: 05,3245           54264                           TS       DSPCOUNT                              
013199,002083: 

Page 333

013201,002085: 05,3246           04102                           TC       POSTJUMP                              
013202,002086: 05,3247           11271                           CADR     DSPOCTIN                              
013203,002087: 05,3250           10123        OCTBACK            CCS      WDCNT                                 
013204,002088: 05,3251           03230                           TC       WDAGAIN                               #  +
013205,002089: 05,3252           45237        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
013206,002090: 05,3253           54264                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
013207,002091: 05,3254           00101                           TC       WDRET                                 
013208,002092: 
013209,002093: 05,3255     7663               DSPMSK             =        SEVEN                                 
013210,002094: 
013211,002095: 
013212,002096: 
013213,002097:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
013214,002098:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
013215,002099:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
013216,002100: 
013217,002101: 05,3255           54020        DSP2BIT            TS       CYR                                   
013218,002102: 05,3256           56002                           XCH      Q                                     
013219,002103: 05,3257           54101                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
013220,002104: 05,3260           37657                           CAF      ONE                                   
013221,002105: 05,3261           54123                           TS       WDCNT                                 
013222,002106: 05,3262           40020                           CS       CYR                                   
013223,002107: 05,3263           40020                           CS       CYR                                   
013224,002108: 05,3264           56020                           XCH      CYR                                   
013225,002109: 05,3265           54022                           TS       CYL                                   
013226,002110: 05,3266           03235                           TC       WDAGAIN    +5                         
013227,002111: 
013228,002112: 
013229,002113: 
013230,002114:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
013231,002115:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
013232,002116:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
013233,002117:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
013234,002118: 
013235,002119: 04,3201                                           SETLOC   END2DEC    +1                         
013236,002120: 
013237,002121: 04,3201           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE
013238,002122: 04,3202           54100                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
013239,002123: 04,3203           35224                           CAF      LOW5                                  
013240,002124: 04,3204           70127                           MASK     COUNT                                 
013241,002125: 04,3205           54021                           TS       SR                                    
013242,002126: 04,3206           56021                           XCH      SR                                    
013243,002127: 04,3207           54125                           TS       DSREL                                 
013244,002128: 04,3210           37657                           CAF      BIT1                                  
013245,002129: 04,3211           70127                           MASK     COUNT                                 
013246,002130: 04,3212           10000                           CCS      A                                     
013247,002131: 04,3213           03215                           TC       +2                                    #  LEFT IF COUNT IS ODD
013248,002132: 04,3214           03225                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
013249,002133: 04,3215           56110                           XCH      CODE                                  
013250,002134: 04,3216           05216                           TC       SLEFT5                                #  DOES NOT USE CYL
013251,002135: 

Page 334

013253,002137: 04,3217           54110                           TS       CODE                                  
013254,002138: 04,3220           37642                           CAF      BIT14                                 
013255,002139: 04,3221           70127                           MASK     COUNT                                 
013256,002140: 04,3222           10000                           CCS      A                                     
013257,002141: 04,3223           37656                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
013258,002142: 04,3224           67657                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
013259,002143: 04,3225           54127                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
013260,002144:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
013261,002145:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
013262,002146: 04,3226           00004        DSPIN1             INHINT                                         
013263,002147: 04,3227           50125                           INDEX    DSREL                                 
013264,002148: 04,3230           10307                           CCS      DSPTAB                                
013265,002149: 04,3231           03233                           TC       +2                                    #  IF +
013266,002150: 04,3232           05464                           TC       CCSHOLE                               
013267,002151: 04,3233           67657                           AD       ONE                                   #  IF -
013268,002152: 04,3234           54126                           TS       DSMAG                                 
013269,002153: 04,3235           50127                           INDEX    COUNT                                 
013270,002154: 04,3236           73257                           MASK     DSMSK                                 
013271,002155: 04,3237           00006                           EXTEND                                         
013272,002156: 04,3240           60110                           SU       CODE                                  
013273,002157: 04,3241           00006                           EXTEND                                         
013274,002158: 04,3242           13255                           BZF      DSLV                                  #  SAME
013275,002159: 04,3243           50127        DFRNT              INDEX    COUNT                                 
013276,002160: 04,3244           43257                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
013277,002161: 04,3245           70126                           MASK     DSMAG                                 
013278,002162: 04,3246           60110                           AD       CODE                                  
013279,002163: 04,3247           40000                           CS       A                                     
013280,002164: 04,3250           50125                           INDEX    DSREL                                 
013281,002165: 04,3251           56307                           XCH      DSPTAB                                
013282,002166: 04,3252           00006                           EXTEND                                         
013283,002167: 04,3253           63255                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
013284,002168: 04,3254           24303                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
013285,002169: 04,3255           00003        DSLV               RELINT                                         
013286,002170: 04,3256           00100                           TC       DSEXIT                                
013287,002171: 
013288,002172: 04,3257           00037        DSMSK              OCT      37                                    
013289,002173: 04,3260           01740                           OCT      1740                                  
013290,002174: 04,3261           02000                           OCT      2000                                  
013291,002175: 04,3262           03740                           OCT      3740                                  
013292,002176: 
013293,002177: 
013294,002178: 
013295,002179:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
013296,002180:                                                                                                  #  BIT11 OF CODE.
013297,002181: 
013298,002182: 04,3263           54125        11DSPIN            TS       DSREL                                 
013299,002183: 04,3264           37656                           CAF      TWO                                   
013300,002184: 04,3265           54127                           TS       COUNT                                 
013301,002185: 04,3266           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
013302,002186: 04,3267           54100                           TS       DSEXIT                                
013303,002187: 

Page 335

013305,002189: 04,3270           03226                           TC       DSPIN1                                
013306,002190: 
013307,002191: 
013308,002192: 
013309,002193: 04,3271           03201        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
013310,002194: 04,3272           33274                           CAF      +2                                    
013311,002195: 04,3273           04105                           TC       BANKJUMP                              
013312,002196: 04,3274           13250        ENDSPOCT           CADR     OCTBACK                               
013313,002197: 
013314,002198: 
013315,002199: 
013316,002200:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
013317,002201:                                                                                                  #  ABORT WITH 01501.
013318,002202:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
013319,002203:                                                                                                  #  DO TC ENTRET.
013320,002204: 
013321,002205: 04,3275           35150        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
013322,002206: 04,3276           54122                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
013323,002207: 
013324,002208: 04,3277           05243        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
013325,002209: 04,3300           43307                           CS       NVSBENDL                              
013326,002210: 04,3301           60122                           AD       ENTEXIT                               
013327,002211: 04,3302           00006                           EXTEND                                         
013328,002212: 04,3303           13305                           BZF      +2                                    #  NVSUB INITIATED. ABORT
013329,002213: 04,3304           00122                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
013330,002214: 04,3305           05446                           TC       ABORT                                 
013331,002215: 04,3306           01501                           OCT      01501                                 
013332,002216: 04,3307           05127        NVSBENDL           TC       NVSUBEND                              
013333,002217: 
013334,002218: 
013335,002219: 
013336,002220:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
013337,002221:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
013338,002222:                                                                                                  #  M M LIGHTS.
013339,002223: 
013340,002224: 05,3267                                           SETLOC   DSP2BIT    +10D                       
013341,002225: 
013342,002226: 05,3267           03302        MMCHANG            TC       REQMM                                 
013343,002227: 05,3270           37665                           CAF      ZERO                                  
013344,002228: 05,3271           56267                           XCH      NOUNREG                               
013345,002229: 05,3272           54140                           TS       MPAC                                  
013346,002230: 05,3273           35240                           CAF      ND1                                   
013347,002231: 05,3274           54264                           TS       DSPCOUNT                              
013348,002232: 05,3275           04063                           TC       BANKCALL                              
013349,002233: 05,3276           10541                           CADR     2BLANK                                
013350,002234: 05,3277           30140                           CA       MPAC                                  
013351,002235: 05,3300           04102                           TC       POSTJUMP                              
013352,002236: 05,3301           11277                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
013353,002237: 

Page 336

013355,002239: 05,3302  04,3277               MODROUTB           =        DSPALARM                              #  **FIX LATER**
013356,002240: 05,3302           40002        REQMM              CS       Q                                     
013357,002241: 05,3303           54300                           TS       REQRET                                
013358,002242: 05,3304           35240                           CAF      ND1                                   
013359,002243: 05,3305           54264                           TS       DSPCOUNT                              
013360,002244: 05,3306           37665                           CAF      ZERO                                  
013361,002245: 05,3307           54267                           TS       NOUNREG                               
013362,002246: 05,3310           04063                           TC       BANKCALL                              
013363,002247: 05,3311           10541                           CADR     2BLANK                                
013364,002248: 05,3312           05274                           TC       FLASHON                               
013365,002249: 05,3313           00122                           TC       ENTEXIT                               
013366,002250: 
013367,002251: 
013368,002252: 
013369,002253:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
013370,002254:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
013371,002255:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
013372,002256:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
013373,002257:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
013374,002258:                                                                                                  #  COMPONENT 3  BBCON
013375,002259: 
013376,002260: 05,3314           37657        VBRQEXEC           CAF      BIT1                                  
013377,002261: 05,3315           70333                           MASK     DSPTEM1                               
013378,002262: 05,3316           10000                           CCS      A                                     
013379,002263: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
013380,002264: 05,3320           35227                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
013381,002265: 05,3321           54140        REQEX1             TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
013382,002266: 05,3322           47657                           CS       BIT1                                  
013383,002267: 05,3323           70333                           MASK     DSPTEM1                               
013384,002268: 05,3324           54144                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
013385,002269: 05,3325           05341        REQUESTC           TC       RELDSP                                
013386,002270: 05,3326           35150                           CA       ENDINST                               
013387,002271: 05,3327           54143                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
013388,002272: 05,3330           00006                           EXTEND                                         
013389,002273: 05,3331           30335                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
013390,002274: 05,3332           52142                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
013391,002275: 05,3333           30144                           CA       MPAC       +4                         #  PRIO IN A
013392,002276: 05,3334           00004                           INHINT                                         
013393,002277: 05,3335           00140                           TC       MPAC                                  
013394,002278: 
013395,002279: 05,3336           35232        SETVAC             CAF      TCFINDVC                              
013396,002280: 05,3337           03321                           TC       REQEX1                                
013397,002281: 
013398,002282:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
013399,002283:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
013400,002284:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
013401,002285:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
013402,002286:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
013403,002287:                                                                                                  #  COMPONENT 3  BBCON
013404,002288: 

Page 337

013406,002290: 05,3340           35230        VBRQWAIT           CAF      TCWAIT                                
013407,002291: 05,3341           54140                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
013408,002292: 05,3342           30333                           CA       DSPTEM1                               #  TIME DELAY
013409,002293: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
013410,002294: 
013411,002295:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
013412,002296:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
013413,002297:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
013414,002298: 
013415,002299: 
013416,002300: 
013417,002301: 04,3310                                           SETLOC   NVSBENDL   +1                         
013418,002302: 04,3310           37657        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
013419,002303: 04,3311           54301                           TS       LOADSTAT                              
013420,002304: 04,3312           05341                           TC       RELDSP                                
013421,002305: 04,3313           05300                           TC       FLASHOFF                              
013422,002306: 04,3314           03422                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
013423,002307: 
013424,002308: 
013425,002309: 
013426,002310: 04,3315           05131        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
013427,002311: 04,3316           47657                           CS       ONE                                   
013428,002312: 04,3317           03311                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
013429,002313: 
013430,002314: 
013431,002315: 
013432,002316:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
013433,002317: 
013434,002318: 
013435,002319: 
013436,002320:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
013437,002321:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
013438,002322: 
013439,002323: 04,3320           47655        VBRELDSP           CS       BIT3                                  
013440,002324: 04,3321           00006                           EXTEND                                         
013441,002325: 04,3322           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
013442,002326: 04,3323           05341                           TC       RELDSP                                #  SEARCHES LIST
013443,002327: 04,3324           04440                           TC       ENDOFJOB                              
013444,002328: 
013445,002329: 
013446,002330: 
013447,002331:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
013448,002332: 
013449,002333: 04,3325           37664        BUMP               CAF      FIVE                                  #  R2D5
013450,002334: 04,3326           54264                           TS       DSPCOUNT                              
013451,002335: 04,3327           54127                           TS       COUNT                                 
013452,002336: 04,3330           37657                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
013453,002337: 04,3331           70127                           MASK     COUNT                                 
013454,002338: 04,3332           56127                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
013455,002339: 04,3333           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)
013456,002340: 

Page 338

013458,002342: 04,3334           56021                           XCH      SR                                    #  DSREL IN A
013459,002343: 04,3335           50000                           INDEX    A                                     
013460,002344: 04,3336           10307                           CCS      DSPTAB                                
013461,002345: 04,3337           03341                           TC       +2                                    
013462,002346: 04,3340           05464                           TC       CCSHOLE                               
013463,002347: 04,3341           67657                           AD       ONE                                   #  DSMAG IN A
013464,002348: 04,3342           50127                           INDEX    COUNT                                 
013465,002349: 04,3343           73257                           MASK     DSMSK                                 
013466,002350: 04,3344           50127                           INDEX    COUNT                                 
013467,002351: 04,3345           03346                           TC       +1                                    
013468,002352: 04,3346           03350                           TC       +2                                    #  EVEN(RIGHT)  OK
013469,002353: 04,3347           05200                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
013470,002354: 04,3350           54110                           TS       CODE                                  
013471,002355: 04,3351           47664                           CS       FIVE                                  
013472,002356: 04,3352           60264                           AD       DSPCOUNT                              #  DSPCOUNT-5
013473,002357: 04,3353           10000                           CCS      A                                     #  TO PREVENT -0
013474,002358: 04,3354           67657                           AD       ONE                                   
013475,002359: 04,3355           03357                           TC       +2                                    
013476,002360: 04,3356           05464                           TC       CCSHOLE                               
013477,002361: 04,3357           54127                           TS       COUNT                                 
013478,002362: 04,3360           03201                           TC       DSPIN                                 #  CODE ALREADY IN CODE
013479,002363: 04,3361           40264                           CS       DSPCOUNT                              
013480,002364: 04,3362           65175                           AD       R1D1                                  #  OCT 16
013481,002365: 04,3363           10000                           CCS      A                                     
013482,002366: 04,3364           56264                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
013483,002367: 04,3365           67657                           AD       ONE                                   #  INCREMENT DSPCOUNT
013484,002368: 04,3366           03326                           TC       BUMP       +1                         
013485,002369: 
013486,002370: 04,3367           37665        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
013487,002371: 04,3370           54264                           TS       DSPCOUNT                              
013488,002372: 04,3371           63420                           AD       SWTAB      +2                         #  OCT 3
013489,002373: 04,3372           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
013490,002374: 04,3373           10307                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
013491,002375: 04,3374           03376                           TC       +2                                    
013492,002376: 04,3375           05464                           TC       CCSHOLE                               
013493,002377: 04,3376           67657                           AD       ONE                                   
013494,002378: 04,3377           77645                           MASK     BIT11                                 
013495,002379: 04,3400           54110                           TS       CODE                                  
013496,002380: 04,3401           50264                           INDEX    DSPCOUNT                              
013497,002381: 04,3402           33416                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
013498,002382: 04,3403           03263                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
013499,002383: 04,3404           40264                           CS       DSPCOUNT                              
013500,002384: 04,3405           63420                           AD       SWTAB      +2                         #  OCT 3
013501,002385: 04,3406           10000                           CCS      A                                     
013502,002386: 04,3407           56264                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
013503,002387: 04,3410           67657                           AD       ONE                                   #  INCREMENT DSPCOUNT
013504,002388: 04,3411           03370                           TC       SWSGN      +1                         
013505,002389: 04,3412           35175                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
013506,002390: 04,3413           54264                           TS       DSPCOUNT                              
013507,002391: 04,3414           02476                           TC       5BLANK                                #  BLANKS R1
013508,002392: 

Page 339

013510,002394: 04,3415           00122                           TC       ENTEXIT                               
013511,002395: 
013512,002396: 04,3416           00000        SWTAB              OCT      0                                     #  -R3
013513,002397: 04,3417           00001                           OCT      1                                     #  +R3
013514,002398: 04,3420           00003                           OCT      3                                     #  -R2
013515,002399: 04,3421           00004                           OCT      4                                     #  +R2
013516,002400: 

Page 340

013518,002402:                                                                                                  #  NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
013519,002403:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
013520,002404:                                                                                                  #  INTO A.      V-S ARE 6BIT VERB CODE. N-S , 6 BIT NOUN CODE.
013521,002405: 
013522,002406:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
013523,002407:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
013524,002408: 
013525,002409:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
013526,002410:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
013527,002411:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
013528,002412:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
013529,002413:                                                                                                  #  FURTHER ACTION).
013530,002414: 
013531,002415:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
013532,002416:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
013533,002417:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
013534,002418:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
013535,002419: 
013536,002420:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
013537,002421:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
013538,002422:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
013539,002423:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
013540,002424:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
013541,002425:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
013542,002426:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
013543,002427:                                                                                                  #  MONITOR SET UP.
013544,002428: 
013545,002429:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
013546,002430: 
013547,002431:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
013548,002432:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
013549,002433: 
013550,002434:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
013551,002435:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
013552,002436: 
013553,002437:    5107                                           SETLOC   MIDSIX     +1                         
013554,002438:    5107           54107        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
013555,002439:    5110           10277                           CCS      DSPLOCK                               
013556,002440:    5111           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
013557,002441:    5112           30002                           CA       Q                                     #  DSP SYST AVAILABLE
013558,002442:    5113           67657                           AD       ONE                                   
013559,002443:    5114           54325                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
013560,002444:    5115           05131                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
013561,002445:    5116           35122        NVSUBCOM           CAF      NVSBBBNK                              
013562,002446: 
013563,002447:    5117           56006                           XCH      BBANK                                 
013564,002448:    5120           54326                           TS       NVBNKTEM                              
013565,002449:    5121           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
013566,002450:    5122     0264                                  EBANK=   DSPCOUNT                              
013567,002451:    5122           12000        NVSBBBNK           BBCON    NVSUB1                                
013568,002452: 

Page 341

013570,002454:    5123           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
013571,002455:    5124           67657                           AD       ONE                                   
013572,002456:    5125           54325                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
013573,002457:    5126           05116                           TC       NVSUBCOM                              
013574,002458: 
013575,002459:    5127           52326        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
013576,002460:    5130           52006                           DXCH     Z                                     #  DTCB
013577,002461: 
013578,002462: 05,3344                                           SETLOC   ENDRQWT    +1                         
013579,002463: 
013580,002464: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
013581,002465: 05,3345           54122                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
013582,002466: 05,3346           33401                           CAF      LOW6                                  
013583,002467: 05,3347           70107                           MASK     NVTEMP                                
013584,002468: 05,3350           54140                           TS       MPAC                                  #  TEMP STORAGE
013585,002469: 05,3351           33402                           CAF      MID6                                  
013586,002470: 05,3352           70107                           MASK     NVTEMP                                
013587,002471: 05,3353           05200                           TC       RIGHT5                                
013588,002472: 05,3354           54020                           TS       CYR                                   
013589,002473: 05,3355           56020                           XCH      CYR                                   
013590,002474: 05,3356           54141                           TS       MPAC       +1                         #  TEMP STORAGE
013591,002475: 05,3357           10140                           CCS      MPAC                                  #  TEST NOUN
013592,002476: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
013593,002477: 05,3361           56141                           XCH      MPAC       +1                         
013594,002478: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB, THEN RETURN
013595,002479: 05,3363           05127        ENTSET             TC       NVSUBEND                              
013596,002480: 05,3364           10141                           CCS      MPAC       +1                         #  TEST VERB
013597,002481: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
013598,002482: 05,3366           56140                           XCH      MPAC                                  
013599,002483: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
013600,002484: 05,3370           05127                           TC       NVSUBEND                              
013601,002485: 05,3371           56141                           XCH      MPAC       +1                         
013602,002486: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
013603,002487: 05,3373           56140                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
013604,002488: 05,3374           02274                           TC       UPDATNN    -1                         
013605,002489: 05,3375           37665                           CAF      ZERO                                  
013606,002490: 05,3376           54301                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
013607,002491: 05,3377           54302                           TS       CLPASS                                
013608,002492: 05,3400           02031                           TC       ENTPAS0                               
013609,002493: 
013610,002494:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
013611,002495:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
013612,002496: 
013613,002497: 
013614,002498: 
013615,002499: 05,3401           00077        LOW6               OCT      77                                    
013616,002500: 05,3402           07700        MID6               OCT      7700                                  
013617,002501: 

Page 342

013619,002503:    5131                                           SETLOC   NVSUBEND   +2                         
013620,002504:    5131           47641        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
013621,002505:    5132           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
013622,002506:    5133           70306                           MASK     MONSAVE1                              
013623,002507:    5134           67641                           AD       BIT15                                 
013624,002508:    5135           54306                           TS       MONSAVE1                              
013625,002509:    5136           00003                           RELINT                                         
013626,002510:    5137           00002                           TC       Q                                     
013627,002511: 
013628,002512: 
013629,002513: 
013630,002514:                                                                                                  #  LOADSTAT  +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
013631,002515:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
013632,002516:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
013633,002517:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
013634,002518: 
013635,002519: 
013636,002520: 
013637,002521:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
013638,002522:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
013639,002523:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
013640,002524:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
013641,002525:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
013642,002526:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
013643,002527:                                                                                                  #  L+1      FOR TERMINATE
013644,002528:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
013645,002529:                                                                                                  #  L+3      FOR DATA IN
013646,002530:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
013647,002531: 
013648,002532:    5140           37657        ENDIDLE            CAF      ONE                                   
013649,002533:    5141           54277                           TS       DSPLOCK                               
013650,002534:    5142           22004                           LXCH     FBANK                                 
013651,002535:    5143           56002                           XCH      Q                                     
013652,002536:    5144           52120                           DXCH     BUF2                                  
013653,002537:    5145           04112                           TC       MAKECADR                              
013654,002538:    5146           54323                           TS       CADRSTOR                              
013655,002539:    5147           04416                           TC       JOBSLEEP                              
013656,002540: 
013657,002541: 
013658,002542: 
013659,002543:    5150           04440        ENDINST            TC       ENDOFJOB                              
013660,002544: 
013661,002545:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
013662,002546:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
013663,002547:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
013664,002548:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
013665,002549:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
013666,002550:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
013667,002551: 
013668,002552:    5151           10301        DATAWAIT           CCS      LOADSTAT                              
013669,002553: 

Page 343

013671,002555:    5152           15157                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
013672,002556:    5153           15140                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
013673,002557:    5154           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
013674,002558:    5155           50002                           INDEX    Q                                     #  DATA IN. RETURN TO L+3.
013675,002559:    5156           00002                           TC       2                                     
013676,002560:    5157           50002        DATWAIT1           INDEX    Q                                     #  RETURN TO L+2.
013677,002561:    5160           00001                           TC       1                                     
013678,002562: 
013679,002563:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
013680,002564:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
013681,002565: 
013682,002566: 
013683,002567: 
013684,002568: 05,3403                                           SETLOC   MID6       +1                         
013685,002569:                                                                                                  #  DSPMM PLACE MAJOR MODE CODE INTO MODREG
013686,002570: 
013687,002571: 05,3403           35241        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
013688,002572: 05,3404           56264                           XCH      DSPCOUNT                              
013689,002573: 05,3405           54124                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
013690,002574: 05,3406           30276                           CA       MODREG                                
013691,002575: 05,3407           22002                           LXCH     Q                                     
013692,002576: 05,3410           03255                           TC       DSP2BIT                               
013693,002577: 05,3411           56124                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
013694,002578: 05,3412           54264                           TS       DSPCOUNT                              
013695,002579: 05,3413           00001        DSPMMEND           TC       L                                     
013696,002580: 
013697,002581: 
013698,002582: 
013699,002583:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
013700,002584:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
013701,002585:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
013702,002586: 
013703,002587:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
013704,002588:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
013705,002589: 
013706,002590: 04,3422                                           SETLOC   SWTAB      +4                         
013707,002591: 
013708,002592: 04,3422           10323        RECALTST           CCS      CADRSTOR                              
013709,002593: 04,3423           03430                           TC       RECAL1                                
013710,002594: 04,3424           04440                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
013711,002595: 04,3425           03430                           TC       RECAL1                                
013712,002596: 04,3426           54323                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
013713,002597: 04,3427           03446                           TC       RECAL3                                #  +0 INTO CADRSTOR. RELEASE DISPLAY,
013714,002598:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT.
013715,002599: 04,3430           37665        RECAL1             CAF      ZERO                                  
013716,002600: 04,3431           56323                           XCH      CADRSTOR                              
013717,002601: 04,3432           00004                           INHINT                                         
013718,002602: 04,3433           04422                           TC       JOBWAKE                               
013719,002603: 04,3434           10301                           CCS      LOADSTAT                              
013720,002604: 04,3435           03452                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
013721,002605: 

Page 344

013723,002607: 04,3436           04440                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
013724,002608: 04,3437           03450                           TC       DOTERM                                #  -   TERMINATE
013725,002609: 04,3440           37656                           CAF      TWO                                   
013726,002610: 04,3441           50071        RECAL2             INDEX    LOCCTR                                
013727,002611: 04,3442           60150                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
013728,002612: 04,3443           50071                           INDEX    LOCCTR                                
013729,002613: 04,3444           54150                           TS       LOC                                   
013730,002614: 04,3445           00003                           RELINT                                         
013731,002615: 04,3446           05364        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
013732,002616: 04,3447           04440                           TC       ENDOFJOB                              
013733,002617: 
013734,002618: 04,3450           37665        DOTERM             CAF      ZERO                                  
013735,002619: 04,3451           03441                           TC       RECAL2                                
013736,002620: 
013737,002621: 04,3452           37657        DOPROC             CAF      ONE                                   
013738,002622: 04,3453           03441                           TC       RECAL2                                
013739,002623: 

Page 345

013741,002625:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
013742,002626: 
013743,002627: 
013744,002628: 
013745,002629:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
013746,002630: 
013747,002631:                                                                                                  #  00000                           1 COMPONENT
013748,002632:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
013749,002633:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
013750,002634: 
013751,002635: 
013752,002636: 
013753,002637:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
013754,002638: 
013755,002639:                                                                                                  #  00000    OCTAL ONLY
013756,002640:                                                                                                  #  00001    STRAIGHT FRACTIONAL
013757,002641:                                                                                                  #  00010    DEGREES (XXX.XX)
013758,002642:                                                                                                  #  00011    ARITHMETIC SF
013759,002643:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)     IN (STRAIGHT)
013760,002644:                                                                                                  #  00101    ARITH DP2   OUT (STRAIGHT)               IN (SL 7 AT END)
013761,002645:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
013762,002646:                                                                                                  #  00111    ARITH DP3   OUT (SL 7 AT END)        IN ( STRAIGHT)
013763,002647:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
013764,002648: 
013765,002649:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
013766,002650: 
013767,002651:                                                                                                  #  00000                           WHOLE
013768,002652:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
013769,002653:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
013770,002654:                                                                                                  #  00010                           DEGREES
013771,002655:                                                                                                  #  00010                           OPTICS DEGREES
013772,002656:                                                                                                  #  00011                           GYRO DEGREES (XX.XXX)  USE ARITHDP3
013773,002657:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
013774,002658:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
013775,002659:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
013776,002660:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
013777,002661:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
013778,002662:                                                                                                  #                                      XXXXX. PARTS/MILLION
013779,002663:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
013780,002664:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
013781,002665:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
013782,002666:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
013783,002667:                                                                                                  #  01100                           RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
013784,002668:                                                                                                  #                                                              USE ARITHDP1
013785,002669:                                                                                                  # 01101                            RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
013786,002670:                                                                                                  #                                                              USE ARITHDP1
013787,002671:                                                                                                  # 01110                            LANDING RADAR ALTITUDE(XXXXX.FEET)
013788,002672:                                                                                                  #                                                               USE ARITHDP1
013789,002673: 

Page 346

013791,002675:                                                                                                  #  01111                           INITIAL/FINAL ALTITUDE(XXXXX.FEET)
013792,002676:                                                                                                  #                                                              USE ARITHDP1
013793,002677:                                                                                                  #  10000                           ALTITUDE RATE(XXXXX.FEET)      USE ARITH
013794,002678:                                                                                                  #  10001                           FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
013795,002679:                                                                                                  #                                                                 USE ARITH
013796,002680:                                                                                                  #  10010                           ROTATIONAL HAND CONTROLLER ANGLE RATES
013797,002681:                                                                                                  #                                        XXXXX.DEG/SEC            USE ARITH
013798,002682:                                                                                                  #  10011                           LANDING RADAR VELX(XXXXX.FEET/SEC)
013799,002683:                                                                                                  #                                                              USE ARITHDP1
013800,002684:                                                                                                  #  10100                           LANDING RADAR VELY(XXXXX.FEET/SEC)
013801,002685:                                                                                                  #                                                              USE ARITHDP1
013802,002686:                                                                                                  #  10101                           LANDING RADAR VELZ(XXXXX.FEET/SEC)
013803,002687:                                                                                                  #                                                              USE ARITHDP1
013804,002688:                                                                                                  #  10110                           OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
013805,002689:                                                                                                  #                                                              USE ARITHDP1
013806,002690:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
013807,002691: 
013808,002692: 
013809,002693: 
013810,002694:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
013811,002695:                                                                                                  #  NOUN TABLES.
013812,002696:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
013813,002697:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
013814,002698:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
013815,002699: 

Page 347

013817,002701:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
013818,002702:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
013819,002703:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
013820,002704: 
013821,002705: 
013822,002706: 
013823,002707:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
013824,002708:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
013825,002709:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
013826,002710:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
013827,002711:                                                                                                  #  MIXED OR NORMAL NOUN.
013828,002712: 
013829,002713: 16,2000                                           BANK     16                                    
013830,002714: 
013831,002715: 16,2000           52136        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
013832,002716: 16,2001           50267                           INDEX    NOUNREG                               
013833,002717: 16,2002           32052                           CAF      NNADTAB                               
013834,002718: 16,2003           54132                           TS       NNADTEM                               
013835,002719: 16,2004           50267                           INDEX    NOUNREG                               
013836,002720: 16,2005           32152                           CAF      NNTYPTAB                              
013837,002721: 16,2006           54133                           TS       NNTYPTEM                              
013838,002722: 16,2007           40267                           CS       NOUNREG                               
013839,002723: 16,2010           62036                           AD       MIXCON                                
013840,002724: 16,2011           00006                           EXTEND                                         
013841,002725: 16,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
013842,002726: 16,2013           37657                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
013843,002727: 16,2014           54124                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
013844,002728: 16,2015           02034                           TC       LODNLV                                
013845,002729: 16,2016           37656        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
013846,002730: 16,2017           54124                           TS       MIXBR                                 
013847,002731: 16,2020           50267                           INDEX    NOUNREG                               
013848,002732: 16,2021           32420                           CAF      RUTMXTAB   -55                        
013849,002733: 16,2022           54137                           TS       RUTMXTEM                              
013850,002734: 16,2023           36426                           CAF      LOW10                                 
013851,002735: 16,2024           70132                           MASK     NNADTEM                               
013852,002736: 16,2025           54002                           TS       Q                                     #  TEMP
013853,002737: 16,2026           50000                           INDEX    A                                     
013854,002738: 16,2027           32406                           CAF      IDADDTAB                              
013855,002739: 16,2030           54134                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
013856,002740: 16,2031           00006                           EXTEND                                         
013857,002741: 16,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
013858,002742: 16,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
013859,002743: 16,2034           52136        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
013860,002744: 16,2035           52006                           DXCH     Z                                     
013861,002745: 
013862,002746: 16,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
013863,002747: 
013864,002748: 
013865,002749: 
013866,002750:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
013867,002751: 

Page 348

013869,002753: 16,2037           52110        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
013870,002754: 16,2040           00006                           EXTEND                                         
013871,002755: 16,2041           50000                           INDEX    A                                     
013872,002756: 16,2042           32331                           DCA      SFOUTAB                               
013873,002757: 16,2043           52110        SFCOM              DXCH     SFTEMP1                               
013874,002758: 16,2044           52006                           DXCH     Z                                     
013875,002759: 
013876,002760: 
013877,002761: 
013878,002762:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
013879,002763: 
013880,002764: 16,2045           52110        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
013881,002765: 16,2046           00006                           EXTEND                                         
013882,002766: 16,2047           50000                           INDEX    A                                     
013883,002767: 16,2050           32253                           DCA      SFINTAB                               
013884,002768: 16,2051           12043                           TCF      SFCOM                                 
013885,002769: 
013886,002770: 
013887,002771: 
013888,002772:                                                                                                  #  NN  NORMAL NOUNS
013889,002773: 16,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
013890,002774: 16,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
013891,002775: 16,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
013892,002776: 16,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
013893,002777: 16,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
013894,002778: 16,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
013895,002779: 16,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
013896,002780: 16,2061           00000                           OCT      00000                                 #  07 SPARE
013897,002781: 16,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
013898,002782: 16,2063           00000                           OCT      00000                                 #  11 SPARE
013899,002783: 16,2064           00000                           OCT      00000                                 #  12 SPARE
013900,002784: 16,2065           00000                           OCT      00000                                 #  13 SPARE
013901,002785: 16,2066           00000                           OCT      00000                                 #  14 SPARE
013902,002786: 16,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
013903,002787: 16,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
013904,002788: 16,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
013905,002789: 16,2072           00032                           ECADR    CDUX                                  #  20 ICDU
013906,002790: 16,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
013907,002791: 16,2074           00400                           ECADR    THETAD                                #  22 NEW ANGLES I
013908,002792: 16,2075           00336                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
013909,002793: 16,2076           00333                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
013910,002794: 16,2077           00333                           ECADR    DSPTEM1                               #  25 CHECKLIST
013911,002795: 16,2100           00333                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
013912,002796: 16,2101           01361                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
013913,002797: 16,2102           00333                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
013914,002798: 16,2103           01363                           ECADR    FAILREG                               #  31 FAILREG
013915,002799: 16,2104           02166                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
013916,002800: 16,2105           02046                           ECADR    TET                                   #  33 EPHEMERIS TIME (MIDCOURSE)
013917,002801: 16,2106           02174                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
013918,002802: 16,2107           00333                           ECADR    DSPTEM1                               #  35 INBIT MESSAGE
013919,002803: 

Page 349

013921,002805: 16,2110           01474                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
013922,002806: 16,2111           01477                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
013923,002807: 16,2112           00035                           ECADR    OPTY                                  #  40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
013924,002808: 16,2113           00423                           ECADR    TANG                                  #  41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
013925,002809: 16,2114           00336                           ECADR    DSPTEM2                               #  42 AOT ROTATION ANGLES
013926,002810: 16,2115           00375                           ECADR    XYMARK                                #  43 AOT DETENT CODE
013927,002811: 16,2116           00360                           ECADR    FORVEL                                #  44 FORWARD VELOCITY, LATERAL VELOCITY
013928,002812: 16,2117           03035                           ECADR    PCOM                                  #  45 ROTATIONAL HAND CONTROLLER ANGLE RATE
013929,002813: 16,2120           00000                           OCT      00000                                 #  46 SPARE
013930,002814: 16,2121           00000                           OCT      00000                                 #  47 SPARE
013931,002815: 16,2122           00000                           OCT      00000                                 #  50 SPARE
013932,002816: 16,2123           00000                           OCT      00000                                 #  51 SPARE
013933,002817: 16,2124           01440                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
013934,002818: 16,2125           01443                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
013935,002819: 16,2126           01446                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
013936,002820: 
013937,002821:                                                                                                  #  NN  MIXED NOUNS
013938,002822: 16,2127           02000                           OCT      02000                                 #  55 LANDING RADAR ALTITUDE, TIME(SEC)
013939,002823: 16,2130           02002                           OCT      02002                                 #  56 LANDING RADAR VELX, TIME(SEC)
013940,002824: 16,2131           02004                           OCT      02004                                 #  57 LANDING RADAR VELY, TIME(SEC)
013941,002825: 16,2132           02006                           OCT      02006                                 #  60 LANDING RADAR VELZ, TIME(SEC)
013942,002826: 16,2133           02010                           OCT      02010                                 #  61 TARGET AZIMUTH AND ELEVATION
013943,002827: 16,2134           04012                           OCT      04012                                 #  62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
013944,002828: 16,2135           04015                           OCT      04015                                 #  63 REND. RADAR RANGE RATE, TRUN, SHAFT
013945,002829: 16,2136           04020                           OCT      04020                                 #  64 INITIAL ALT, FINAL ALT, ALT RATE
013946,002830: 16,2137           02023                           OCT      02023                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
013947,002831:                                                                                                  #       (FETCHED IN INTERRUPT)
013948,002832: 16,2140           04025                           OCT      04025                                 #  66 SYSTEM TEST RESULTS
013949,002833: 16,2141           04030                           OCT      04030                                 #  67 DELTA GYRO ANGLES
013950,002834: 16,2142           02033                           OCT      02033                                 #  70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
013951,002835: 16,2143           02035                           OCT      02035                                 #  71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
013952,002836: 16,2144           04037                           OCT      04037                                 #  72 DELTA POSITION
013953,002837: 16,2145           04042                           OCT      04042                                 #  73 DELTA VELOCITY
013954,002838: 16,2146           04045                           OCT      04045                                 #  74 MEASUREMENT DATA (MIDCOURSE)
013955,002839: 16,2147           04050                           OCT      04050                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
013956,002840: 16,2150           04053                           OCT      04053                                 #  76 POSITION VECTOR
013957,002841: 16,2151           04056                           OCT      04056                                 #  77 VELOCITY VECTOR
013958,002842: 
013959,002843: 
013960,002844: 
013961,002845:                                                                                                  #  NN        NORMAL NOUNS
013962,002846: 16,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
013963,002847: 16,2153           00040                           OCT      00040                                 #  01 1COMP FRACTIONAL
013964,002848: 16,2154           00140                           OCT      00140                                 #  02 1COMP WHOLE
013965,002849: 16,2155           00102                           OCT      00102                                 #  03 1COMP DEGREES
013966,002850: 16,2156           00241                           OCT      00241                                 #  04 1COMP HOURS
013967,002851: 16,2157           00200                           OCT      00200                                 #  05 1COMP SECONDS
013968,002852: 16,2160           00343                           OCT      00343                                 #  06 1COMP GYRO DEGREES
013969,002853: 16,2161           00000                           OCT      00000                                 #  07       SPARE
013970,002854: 16,2162           00000                           OCT      00000                                 #  10 1COMP OCTAL ONLY
013971,002855: 

Page 350

013973,002857: 16,2163           00000                           OCT      00000                                 #  11        SPARE
013974,002858: 16,2164           00000                           OCT      00000                                 #  12        SPARE
013975,002859: 16,2165           00000                           OCT      00000                                 #  13        SPARE
013976,002860: 16,2166           00000                           OCT      00000                                 #  14        SPARE
013977,002861: 16,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
013978,002862: 16,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
013979,002863: 16,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
013980,002864: 16,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
013981,002865: 16,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
013982,002866: 16,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
013983,002867: 16,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
013984,002868: 16,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
013985,002869: 16,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
013986,002870: 16,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
013987,002871: 16,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
013988,002872: 16,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
013989,002873: 16,2203           04000                           OCT      04000                                 #  31 3COMP  OCTAL ONLY
013990,002874: 16,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
013991,002875: 16,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
013992,002876: 16,2206           00350                           OCT      00350                                 #  34 1COMP  POISTION
013993,002877: 16,2207           04000                           OCT      04000                                 #  35 3COMP  OCTAL ONLY
013994,002878: 16,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
013995,002879: 16,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
013996,002880: 16,2212           02102                           OCT      02102                                 #  40 2COMP  DEGREES
013997,002881: 16,2213           02102                           OCT      02102                                 #  41 2COMP  DEGREES
013998,002882: 16,2214           02102                           OCT      02102                                 #  42 2COMP  DEGREES
013999,002883: 16,2215           00140                           OCT      00140                                 #  43 1COMP  WHOLE
014000,002884: 16,2216           02161                           OCT      02161                                 #  44 2COMP  FORWARD/LATERAL VELOCITY
014001,002885: 16,2217           04162                           OCT      04162                                 #  45 3COMP  ROT HAND CONT ANGLE RATE
014002,002886: 16,2220           00000                           OCT      00000                                 #  46        SPARE
014003,002887: 16,2221           00000                           OCT      00000                                 #  47        SPARE
014004,002888: 16,2222           00000                           OCT      00000                                 #  50        SPARE
014005,002889: 16,2223           00000                           OCT      00000                                 #  51        SPARE
014006,002890: 16,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
014007,002891: 16,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
014008,002892: 16,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
014009,002893: 
014010,002894:                                                                                                  #  NN        MIXED NOUNS
014011,002895: 16,2227           00016                           OCT      00016                                 #  55 2COMP  LANDING RADAR ALT, SECONDS
014012,002896: 16,2230           00023                           OCT      00023                                 #  56 2COMP  LANDING RADAR VELX, SECONDS
014013,002897: 16,2231           00024                           OCT      00024                                 #  57 2COMP  LANDING RADAR VELY, SECONDS
014014,002898: 16,2232           00025                           OCT      00025                                 #  60 2COMP  LANDING RADAR VELZ, SECONDS
014015,002899: 16,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
014016,002900: 16,2234           04114                           OCT      04114                                 #  62 3COMP  REND. RADAR RANGE, DEG, DEG
014017,002901: 16,2235           04115                           OCT      04115                                 #  63 3COMP  REND. RAD. RANGE RATE, DEG,DEG
014018,002902: 16,2236           40757                           OCT      40757                                 #  64 3COMP  IN/FN ALT, IN/FN ALT, ALT RATE
014019,002903: 16,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
014020,002904: 16,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
014021,002905: 16,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
014022,002906: 16,2242           00126                           OCT      00126                                 #  70 2COMP  OPT TRACK AZIMUTH, DEGREES
014023,002907: 

Page 351

014025,002909: 16,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
014026,002910: 16,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
014027,002911: 16,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
014028,002912: 16,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
014029,002913: 16,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
014030,002914: 16,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
014031,002915: 16,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
014032,002916: 
014033,002917: 
014034,002918: 
014035,002919: 16,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
014036,002920: 16,2253           03240                           OCT      03240                                 
014037,002921: 16,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
014038,002922: 16,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
014039,002923: 16,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF)
014040,002924: 16,2257           00000                           OCT      0                                     
014041,002925: 16,2260           10707                           OCT      10707                                 #  GYRO DEGREES
014042,002926: 16,2261           03435                           OCT      03435                                 #              UPPED BY 1
014043,002927: 16,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
014044,002928: 16,2263           02133                           OCT      02133                                 
014045,002929: 16,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
014046,002930: 16,2265           30322                           OCT      30322                                 
014047,002931: 16,2266           00004                           OCT      00004                                 #  PIPA BIAS
014048,002932: 16,2267           14021                           OCT      14021                                 
014049,002933: 16,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
014050,002934: 16,2271           31463                           OCT      31463                                 
014051,002935: 16,2272           23420                           OCT      23420                                 #  POSITION
014052,002936: 16,2273           00000                           OCT      00000                                 
014053,002937: 16,2274           00201                           OCT      00201                                 #  VELOCITY
014054,002938: 16,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
014055,002939: 16,2276           01371                           OCT      01371                                 #  TIME WEEKS
014056,002940: 16,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
014057,002941: 16,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
014058,002942: 16,2301           03434                           OCT      03434                                 
014059,002943: 16,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
014060,002944: 16,2303           20162                           OCT      20162                                 
014061,002945: 16,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
014062,002946: 16,2305           27066                           OCT      27066                                 
014063,002947: 16,2306           00016                           OCT      00016                                 #  LANDING RADAR ALTITUDE
014064,002948: 16,2307           04245                           OCT      04245                                 
014065,002949: 16,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
014066,002950: 16,2311           23224                           OCT      23224                                 
014067,002951: 16,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
014068,002952: 16,2313           06500                           OCT      06500                                 
014069,002953: 16,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
014070,002954: 16,2315           36455                           OCT      36455                                 
014071,002955: 16,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
014072,002956: 16,2317           07071                           OCT      07071                                 
014073,002957: 16,2320           77766                           OCT      77766                                 #  LANDING RADAR VELX (NEG TO SWITCH SIGNS)
014074,002958: 16,2321           60044                           OCT      60044                                 
014075,002959: 

Page 352

014077,002961: 16,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
014078,002962: 16,2323           34055                           OCT      34055                                 
014079,002963: 16,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
014080,002964: 16,2325           04147                           OCT      04147                                 
014081,002965: 16,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
014082,002966: 16,2327           21616                           OCT      21616                                 
014083,002967:                                                                                                  #  END OF SFINTAB
014084,002968: 
014085,002969: 
014086,002970: 
014087,002971: 16,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
014088,002972: 16,2331           13261                           OCT      13261                                 
014089,002973: 16,2332           27670                           OCT      27670                                 #  TIME HOURS
014090,002974: 16,2333           31357                           OCT      31357                                 
014091,002975: 16,2334           00000                           OCT      0                                     #  DEGREES
014092,002976: 16,2335           00000                           OCT      0                                     
014093,002977: 16,2336           00714                           OCT      00714                                 #  GYRO DEGREES
014094,002978: 16,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
014095,002979: 16,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
014096,002980: 16,2341           32323                           OCT      32323                                 
014097,002981: 16,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
014098,002982: 16,2343           06400                           OCT      06400                                 
014099,002983: 16,2344           07237                           OCT      07237                                 #  PIPA BIAS
014100,002984: 16,2345           37776                           OCT      37776                                 
014101,002985: 16,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
014102,002986: 16,2347           00000                           OCT      00000                                 
014103,002987: 16,2350           00321                           OCT      00321                                 #  POSITION
014104,002988: 16,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
014105,002989: 16,2352           37441                           OCT      37441                                 #  VELOCITY
014106,002990: 16,2353           14247                           OCT      14247                                 
014107,002991: 16,2354           05300                           OCT      05300                                 #  TIME WEEKS
014108,002992: 16,2355           20305                           OCT      20305                                 
014109,002993: 16,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
014110,002994: 16,2357           23146                           OCT      23146                                 
014111,002995: 16,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
014112,002996: 16,2361           35454                           OCT      35454                                 
014113,002997: 16,2362           03225                           OCT      03225                                 #  RENDEZVOUS RADAR RANGE RATE
014114,002998: 16,2363           07470                           OCT      07470                                 
014115,002999: 16,2364           02207                           OCT      02207                                 #  LANDING RADAR ALTITUDE
014116,003000: 16,2365           03255                           OCT      03255                                 
014117,003001: 16,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
014118,003002: 16,2367           31757                           OCT      31757                                 
014119,003003: 16,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
014120,003004: 16,2371           05531                           OCT      05531                                 
014121,003005: 16,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
014122,003006: 16,2373           16415                           OCT      16415                                 
014123,003007: 16,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
014124,003008: 16,2375           13734                           OCT      13734                                 
014125,003009: 16,2376           74502                           OCT      74502                                 #  LANDING RADAR VELX (NEG TO SWITCH SIGNS)
014126,003010: 16,2377           76401                           OCT      76401                                 
014127,003011: 

Page 353

014129,003013: 16,2400           06436                           OCT      06436                                 #  LANDING RADAR VELY
014130,003014: 16,2401           35664                           OCT      35664                                 
014131,003015: 16,2402           04371                           OCT      04371                                 #  LANDING RADAR VELZ
014132,003016: 16,2403           17420                           OCT      17420                                 
014133,003017: 16,2404           05605                           OCT      05605                                 #  OPTICAL TRACKER AZIMUTH ANGLE
014134,003018: 16,2405           03656                           OCT      03656                                 
014135,003019:                                                                                                  #  END OF SFOUTAB
014136,003020: 
014137,003021: 
014138,003022:                                                                                                  #  MIXNOUN   SF ROUT
014139,003023: 16,2406           03461        IDADDTAB           ECADR    RSTACK     +18D                       #  01        LANDING RADAR ALTITUDE
014140,003024: 16,2407           03465                           ECADR    RSTACK     +22D                       #  01        SECONDS
014141,003025: 16,2410           03437                           ECADR    RSTACK                                #  02        LANDING RADAR VELX
014142,003026: 16,2411           03443                           ECADR    RSTACK     +4                         #  02        SECONDS
014143,003027: 16,2412           03445                           ECADR    RSTACK     +6                         #  03        LANDING RADAR VELY
014144,003028: 16,2413           03451                           ECADR    RSTACK     +10D                       #  03        SECONDS
014145,003029: 16,2414           03453                           ECADR    RSTACK     +12D                       #  04        LANDING RADAR VELY
014146,003030: 16,2415           03457                           ECADR    RSTACK     +16D                       #  04        SECONDS
014147,003031: 16,2416           00333                           ECADR    DSPTEM1                               #  05        DEGREES
014148,003032: 16,2417           00334                           ECADR    DSPTEM1    +1                         #  05        ELEVATION DEGREES
014149,003033: 16,2420           03437                           ECADR    RSTACK                                #  06        RENDEZVOUS RADAR RANGE
014150,003034: 16,2421           03441                           ECADR    RSTACK     +2                         #  06        DEGREES
014151,003035: 16,2422           03442                           ECADR    RSTACK     +3                         #  06        DEGREES
014152,003036: 16,2423           03445                           ECADR    RSTACK     +6                         #  07        RENDEZVOUS RADAR RANGE RATE
014153,003037: 16,2424           03447                           ECADR    RSTACK     +8D                        #  07        DEGREES
014154,003038: 16,2425           03450                           ECADR    RSTACK     +9D                        #  07        DEGREES
014155,003039: 16,2426           00352                           ECADR    ALT                                   #  10        INITIAL/FINAL ALTITUDE
014156,003040: 16,2427           00355                           ECADR    FINALT                                #  10        INITIAL/FINAL ALTITUDE
014157,003041: 16,2430           00354                           ECADR    ALTRATE                               #  10        ALTITUDE RATE
014158,003042: 16,2431           00013                           ECADR    SAMPTIME                              #  11        HOURS
014159,003043: 16,2432           00013                           ECADR    SAMPTIME                              #  11        SECONDS
014160,003044: 16,2433           00336                           ECADR    DSPTEM2                               #  11        WHOLE
014161,003045: 16,2434           00337                           ECADR    DSPTEM2    +1                         #  12        FRACTIONAL
014162,003046: 16,2435           00340                           ECADR    DSPTEM2    +2                         #  12        WHOLE
014163,003047: 16,2436           00403                           ECADR    DELVX                                 #  13        GYRO DEGREES
014164,003048: 16,2437           00405                           ECADR    DELVX      +2                         #  13        GYRO DEGREES
014165,003049: 16,2440           00407                           ECADR    DELVX      +4                         #  13        GYRO DEGREES
014166,003050: 16,2441           01471                           ECADR    AZANG                                 #  14        OPT TRACK AZIMUTH ANGLE
014167,003051: 16,2442           01471                           ECADR    ELANG                                 #  14        DEGREES
014168,003052: 16,2443           01471                           ECADR    DESLOTSY                              #  15        OPT TRACK AZIMUTH ANGLE
014169,003053: 16,2444           01471                           ECADR    DESLOTSX                              #  15        DEGREES
014170,003054: 16,2445           02052                           ECADR    DELR                                  #  16        POSITION
014171,003055: 16,2446           02054                           ECADR    DELR       +2                         #  16        POSITION
014172,003056: 16,2447           02056                           ECADR    DELR       +4                         #  16        POSITION
014173,003057: 16,2450           02060                           ECADR    DELVEL                                #  17        VELOCITY
014174,003058: 16,2451           02062                           ECADR    DELVEL     +2                         #  17        VELOCITY
014175,003059: 16,2452           02064                           ECADR    DELVEL     +4                         #  17        VELOCITY
014176,003060: 16,2453           02166                           ECADR    TDEC                                  #  20        TIME WEEKS
014177,003061: 16,2454           02174                           ECADR    MEASQ                                 #  20        POSITION
014178,003062: 

Page 354

014180,003064: 16,2455           02200                           ECADR    MEASMODE                              #  20        WHOLE
014181,003065: 16,2456           00333                           ECADR    DSPTEM1                               #  21        POSITION
014182,003066: 16,2457           00335                           ECADR    DSPTEM1    +2                         #  21        VELOCITY
014183,003067: 16,2460           02176                           ECADR    DELTAQ                                #  21        POSITION
014184,003068: 16,2461           00333                           ECADR    DSPTEM1                               #  22        POSITION
014185,003069: 16,2462           00335                           ECADR    DSPTEM1    +2                         #  22        POSITION
014186,003070: 16,2463           00337                           ECADR    DSPTEM1    +4                         #  22        POSITION
014187,003071: 16,2464           00333                           ECADR    DSPTEM1                               #  23        VELOCITY
014188,003072: 16,2465           00335                           ECADR    DSPTEM1    +2                         #  23        VELOCITY
014189,003073: 16,2466           00337                           ECADR    DSPTEM1    +4                         #  23        VELOCITY
014190,003074: 16,2467           00000                           OCT      00000                                 #            SPARE
014191,003075: 16,2470           00000                           OCT      00000                                 #            SPARE
014192,003076: 16,2471           00000                           OCT      00000                                 #            SPARE
014193,003077: 16,2472           00000                           OCT      00000                                 #            SPARE
014194,003078: 16,2473           00000                           OCT      00000                                 #            SPARE
014195,003079: 16,2474           00000                           OCT      00000                                 #            SPARE
014196,003080:                                                                                                  #  END OF IDADDTAB
014197,003081: 
014198,003082: 
014199,003083: 
014200,003084:                                                                                                  #  MIXNOUN  SF ROUT
014201,003085: 16,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
014202,003086: 16,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
014203,003087: 16,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
014204,003088: 16,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
014205,003089: 16,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
014206,003090: 16,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
014207,003091: 16,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
014208,003092: 16,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
014209,003093: 16,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
014210,003094: 16,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
014211,003095: 16,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
014212,003096: 16,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
014213,003097: 16,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
014214,003098: 16,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
014215,003099: 16,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
014216,003100: 16,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
014217,003101: 16,2515           16247                           OCT      16247                                 #  21  POSITION , VELOCITY, POSITION
014218,003102: 16,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
014219,003103: 16,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
014220,003104:                                                                                                  #  END OF RUTMXTAB
014221,003105: 
014222,003106: 
014223,003107: 
014224,003108: 16,2520                        ENDPINS3           EQUALS                                         
014225,003109: 

Page 355

014227,003111: 
014228,003112:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
014229,003113: 
014230,003114: 
014231,003115: 
014232,003116:    5161                                           SETLOC   DATWAIT1   +2                         
014233,003117: 
014234,003118:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
014235,003119:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
014236,003120: 
014237,003121:    5161           54304        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
014238,003122:    5162           54003                           TS       EBANK                                 #  SET EBANK BITS
014239,003123:    5163           75235                           MASK     LOW8                                  
014240,003124:    5164           65236                           AD       OCT1400                               
014241,003125:    5165           54131                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
014242,003126:    5166           00002                           TC       Q                                     
014243,003127: 
014244,003128: 
014245,003129: 
014246,003130:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
014247,003131:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
014248,003132: 
014249,003133:    5167           30304        SETNADD            CA       NOUNCADR                              
014250,003134:    5170           15162                           TCF      SETNCADR   +1                         
014251,003135: 
014252,003136: 
014253,003137: 
014254,003138:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
014255,003139:                                                                                                  #                DERIVED AND LEFT IN A.
014256,003140: 
014257,003141:    5171           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
014258,003142:    5172           75235                           MASK     LOW8                                  
014259,003143:    5173           65236                           AD       OCT1400                               #  E ADRES LEFT IN A
014260,003144:    5174           00002                           TC       Q                                     
014261,003145: 
014262,003146: 
014263,003147: 
014264,003148:    5175           00016        R1D1               OCT      16                                    
014265,003149:    5176           00011        R2D1               OCT      11                                    
014266,003150:    5177           00004        R3D1               OCT      4                                     
014267,003151: 
014268,003152:    5200           54020        RIGHT5             TS       CYR                                   
014269,003153:    5201           40020                           CS       CYR                                   
014270,003154:    5202           40020                           CS       CYR                                   
014271,003155:    5203           40020                           CS       CYR                                   
014272,003156:    5204           40020                           CS       CYR                                   
014273,003157:    5205           56020                           XCH      CYR                                   
014274,003158:    5206           00002                           TC       Q                                     
014275,003159: 
014276,003160:    5207           54022        LEFT5              TS       CYL                                   
014277,003161:    5210           40022                           CS       CYL                                   
014278,003162: 

Page 356

014280,003164:    5211           40022                           CS       CYL                                   
014281,003165:    5212           40022                           CS       CYL                                   
014282,003166:    5213           40022                           CS       CYL                                   
014283,003167:    5214           56022                           XCH      CYL                                   
014284,003168:    5215           00002                           TC       Q                                     
014285,003169: 
014286,003170:    5216           60000        SLEFT5             DOUBLE                                         
014287,003171:    5217           60000                           DOUBLE                                         
014288,003172:    5220           60000                           DOUBLE                                         
014289,003173:    5221           60000                           DOUBLE                                         
014290,003174:    5222           60000                           DOUBLE                                         
014291,003175:    5223           00002                           TC       Q                                     
014292,003176: 
014293,003177: 
014294,003178: 
014295,003179:    5224           00037        LOW5               OCT      37                                    
014296,003180:    5225           01740        MID5               OCT      1740                                  
014297,003181:    5226           76000        HI5                OCT      76000                                 #  MUST STAY HERE
014298,003182: 
014299,003183:    5227           04363        TCNOVAC            TC       NOVAC                                 
014300,003184:    5230           04536        TCWAIT             TC       WAITLIST                              
014301,003185:    5231           04602        TCTSKOVR           TC       TASKOVER                              
014302,003186:    5232           04374        TCFINDVC           TC       FINDVAC                               
014303,003187: 
014304,003188: 
014305,003189: 
014306,003190:    5233           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
014307,003191: 
014308,003192: 
014309,003193: 
014310,003194:    5234           03777        LOW11              OCT      3777                                  
014311,003195:    5235     5234               B12-1              EQUALS   LOW11                                 
014312,003196:    5235           00377        LOW8               OCT      377                                   
014313,003197:    5236           01400        OCT1400            OCT      1400                                  
014314,003198: 
014315,003199: 
014316,003200: 
014317,003201:    5237           00023        VD1                OCT      23                                    
014318,003202:    5240           00021        ND1                OCT      21                                    
014319,003203:    5241           00025        MD1                OCT      25                                    
014320,003204: 
014321,003205:    5242           00012        BINCON             DEC      10         B-14                       
014322,003206: 
014323,003207:    5243           37651        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
014324,003208:    5244           00006                           EXTEND                                         
014325,003209:    5245           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
014326,003210:    5246           00002                           TC       Q                                     
014327,003211: 
014328,003212:    5247           47651        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
014329,003213:    5250           00006                           EXTEND                                         
014330,003214: 

Page 357

014332,003216:    5251           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
014333,003217:    5252           00002                           TC       Q                                     
014334,003218: 
014335,003219:    5253           37653        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
014336,003220:    5254           00006                           EXTEND                                         
014337,003221:    5255           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
014338,003222:    5256           00002                           TC       Q                                     
014339,003223: 
014340,003224:    5257           00006        LODSAMPT           EXTEND                                         
014341,003225:    5260           30025                           DCA      TIME2                                 
014342,003226:    5261           52014                           DXCH     SAMPTIME                              
014343,003227:    5262           00002                           TC       Q                                     
014344,003228: 
014345,003229: 
014346,003230: 
014347,003231:    5263           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
014348,003232:    5264           30142                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
014349,003233:    5265           20142                           DAS      MPAC       +1                         
014350,003234:    5266           60140                           AD       MPAC                                  
014351,003235:    5267           26140                           ADS      MPAC                                  
014352,003236:    5270           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
014353,003237:    5271           00002                           TC       Q                                     #  NO NET OF/UF
014354,003238:    5272           54105                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
014355,003239:    5273           00002                           TC       Q                                     
014356,003240: 
014357,003241: 
014358,003242: 
014359,003243:    5274           37652        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
014360,003244:    5275           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
014361,003245:    5276           05011                           WOR      DSALMOUT                              
014362,003246:    5277           00002                           TC       Q                                     
014363,003247: 
014364,003248: 
014365,003249: 
014366,003250:    5300           47652        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
014367,003251:    5301           00006                           EXTEND                                         
014368,003252:    5302           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
014369,003253:    5303           00002                           TC       Q                                     
014370,003254: 

Page 358

014372,003256:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
014373,003257:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
014374,003258:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
014375,003259: 
014376,003260:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
014377,003261:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
014378,003262: 
014379,003263:                                                                                                  #        THE CALLING SEQUENCES ARE
014380,003264:                                                                                                  #  L        TC     GRABDSP
014381,003265:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
014382,003266:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
014383,003267: 
014384,003268:                                                                                                  #  L        TC     NVSUB
014385,003269:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
014386,003270:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
014387,003271: 
014388,003272: 
014389,003273: 
014390,003274:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
014391,003275:                                                                                                  #  JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
014392,003276:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
014393,003277:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
014394,003278:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
014395,003279: 
014396,003280:                                                                                                  #        THE CALLING SEQUENCE IS
014397,003281:                                                                                                  #           CAF    WAKEFCADR
014398,003282:                                                                                                  #           TC     GRABUSY
014399,003283: 
014400,003284:                                                                                                  #        A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
014401,003285:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
014402,003286:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
014403,003287:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
014404,003288:                                                                                                  #                                              YOUR CADR IS PUT
014405,003289:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
014406,003290: 
014407,003291:                                                                                                  #         THE CALLING SEQUENCE IS
014408,003292:                                                                                                  #           CAF    WAKEFCADR
014409,003293:                                                                                                  #           TC     NVSUBUSY
014410,003294: 
014411,003295: 
014412,003296:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
014413,003297:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
014414,003298:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
014415,003299: 
014416,003300: 
014417,003301: 
014418,003302:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
014419,003303:                                                                                                  #  AND DISPLAY SYSTEM.
014420,003304:                                                                                                  #  +0  FREE
014421,003305: 

Page 359

014423,003307:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
014424,003308:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
014425,003309: 
014426,003310: 
014427,003311: 
014428,003312:    5304           10324        GRABDSP            CCS      GRABLOCK                              
014429,003313:    5305           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
014430,003314:    5306           37657                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
014431,003315:    5307           54324                           TS       GRABLOCK                              #  AND RETURN TO L+2
014432,003316:    5310           50002                           INDEX    Q                                     
014433,003317:    5311           00001                           TC       1                                     
014434,003318: 
014435,003319: 
014436,003320: 
014437,003321:    5312           36426        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
014438,003322:    5313           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
014439,003323:    5314           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
014440,003324:    5315           04102        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
014441,003325:    5316           10000                           CADR     GRABUSYB                              
014442,003326: 04,3454                                           SETLOC   DOPROC     +2                         
014443,003327: 04,3454           54001        GRABUSY1           TS       L                                     
014444,003328: 04,3455           10324                           CCS      GRABLOCK                              
014445,003329: 04,3456           03461                           TC       +3                                    #  STILL GRABBED
014446,003330: 04,3457           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
014447,003331: 04,3460           04105                           TC       BANKJUMP                              
014448,003332: 04,3461           37656                           CAF      TWO                                   
014449,003333: 04,3462           54130                           TS       LSTPTR                                
014450,003334: 04,3463           50130                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
014451,003335: 04,3464           10327                           CCS      DSPLIST                               #  FROM BOTTOM.
014452,003336: 04,3465           03467                           TC       +2                                    
014453,003337: 04,3466           03472                           TC       PUTINLST                              #  SPACE FOUND
014454,003338: 04,3467           10130                           CCS      LSTPTR                                #  DECREMENT POINTER
014455,003339: 04,3470           03462                           TC       -6                                    
014456,003340: 04,3471           03536                           TC       LSTFULL                               
014457,003341: 04,3472           30001        PUTINLST           CA       L                                     
014458,003342: 04,3473           50130                           INDEX    LSTPTR                                
014459,003343: 04,3474           54327                           TS       DSPLIST                               
014460,003344: 04,3475           04416                           TC       JOBSLEEP                              
014461,003345: 
014462,003346: 
014463,003347:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
014464,003348:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
014465,003349:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
014466,003350:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
014467,003351:                                                                                                  #  SYSTEM IS FREED.
014468,003352: 
014469,003353:    5317                                           SETLOC   GRABUSY    +2                         
014470,003354:    5317           10324        GRABWAIT           CCS      GRABLOCK                              
014471,003355:    5320           15312                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
014472,003356: 

Page 360

014474,003358:    5321           37657                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.
014475,003359:    5322           54324                           TS       GRABLOCK                              
014476,003360:    5323           00002                           TC       Q                                     
014477,003361: 
014478,003362: 
014479,003363: 
014480,003364:    5324           45331        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
014481,003365:    5325           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
014482,003366:    5326           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
014483,003367:    5327           04102        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
014484,003368:    5330           10001                           CADR     NVSUBSYB                              
014485,003369:    5331           02003        2K+3               OCT      2003                                  
014486,003370: 
014487,003371: 04,3476                                           SETLOC   PUTINLST   +4                         
014488,003372: 04,3476           54001        NVSUBSY1           TS       L                                     
014489,003373: 04,3477           10277                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
014490,003374: 04,3500           03503                           TC       +3                                    #  STILL BUSY
014491,003375: 04,3501           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
014492,003376: 04,3502           04105                           TC       BANKJUMP                              
014493,003377: 04,3503           37656                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
014494,003378: 04,3504           54324                           TS       GRABLOCK                              
014495,003379: 04,3505           30001                           CA       L                                     
014496,003380: 04,3506           56331                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
014497,003381: 04,3507           56330                           XCH      DSPLIST    +1                         #          (BOTTOM)
014498,003382: 04,3510           56327                           XCH      DSPLIST                               
014499,003383: 04,3511           10000                           CCS      A                                     
014500,003384: 04,3512           03536                           TC       LSTFULL                               
014501,003385: 04,3513           03515                           TC       +2                                    
014502,003386: 04,3514           03536                           TC       LSTFULL                               
014503,003387: 04,3515           05253                           TC       RELDSPON                              
014504,003388: 04,3516           30001                           CA       L                                     
014505,003389: 04,3517           04416        ENDNVBSY           TC       JOBSLEEP                              
014506,003390: 
014507,003391: 
014508,003392: 
014509,003393:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
014510,003394:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
014511,003395:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
014512,003396:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
014513,003397:                                                                                                  #  IS NOT BUSY.
014514,003398: 
014515,003399:    5332                                           SETLOC   NVSUBUSY   +3                         
014516,003400:    5332           54107        NVSBWAIT           TS       NVTEMP                                
014517,003401:    5333           10277                           CCS      DSPLOCK                               
014518,003402:    5334           15337                           TCF      NVSBWT1                               #  BUSY
014519,003403:    5335           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
014520,003404:    5336           15114                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
014521,003405:    5337           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
014522,003406:    5340           15324                           TCF      PRENVBSY                              #  GO TO SLEEP.
014523,003407: 

Page 361

014525,003409:    5341           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
014526,003410:    5342           54130                           TS       RELRET                                #  OFF, SEARCH DSPLIST
014527,003411:    5343           37667                           CAF      NEG1                                  
014528,003412:    5344           60324                           AD       GRABLOCK                              
014529,003413:    5345           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
014530,003414:    5346           65354                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
014531,003415:    5347           05367                           TC       WKSEARCH                              
014532,003416:    5350           05354                           TC       RELDSP2                               #  LIST EMPTY
014533,003417:    5351           04422                           TC       JOBWAKE                               #  LIST NOT EMPTY
014534,003418:    5352           37657                           CAF      ONE                                   
014535,003419:    5353           54324                           TS       GRABLOCK                              
014536,003420:    5354           00004        RELDSP2            INHINT                                         
014537,003421:    5355           47653                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
014538,003422:    5356           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
014539,003423:    5357           03011                           WAND     DSALMOUT                              
014540,003424:    5360           37665                           CAF      ZERO                                  
014541,003425:    5361           54277                           TS       DSPLOCK                               
014542,003426:    5362           00003                           RELINT                                         
014543,003427:    5363           00130                           TC       RELRET                                
014544,003428:    5364           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. RELDSP LIGHT OFF.
014545,003429:    5365           54130                           TS       RELRET                                #  NO LIST SEARCH
014546,003430:    5366           05354                           TC       RELDSP2                               
014547,003431: 
014548,003432: 
014549,003433: 
014550,003434:    5367           37665        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
014551,003435:    5370           56327                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
014552,003436:    5371           56330                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
014553,003437:    5372           56331                           XCH      DSPLIST    +2                         
014554,003438:    5373           00006                           EXTEND                                         
014555,003439:    5374           15400                           BZF      +4                                    #  EMPTY
014556,003440:    5375           00004                           INHINT                                         #  NOT EMPTY
014557,003441:    5376           50002                           INDEX    Q                                     #  RETURN TO L+2
014558,003442:    5377           00001                           TC       1                                     
014559,003443:    5400           00002                           TC       Q                                     #  RETURN TO L+1
014560,003444: 
014561,003445: 
014562,003446: 
014563,003447:    5401           56002        FREEDSP            XCH      Q                                     
014564,003448:    5402           54130                           TS       FREERET                               
014565,003449:    5403           00004                           INHINT                                         
014566,003450:    5404           35412                           CAF      SHOTIME                               
014567,003451:    5405           04536                           TC       WAITLIST                              
014568,003452:    5406     0264                                  EBANK=   DSPCOUNT                              
014569,003453:    5406           03520 10000                     2CADR    FREEWAIT                              
014570,003454:    5410           00003                           RELINT                                         
014571,003455:    5411           00130                           TC       FREERET                               
014572,003456: 
014573,003457:    5412           01130        SHOTIME            DEC      600        B-14                       #  6 SECOND WAITING PERIOD.
014574,003458: 

Page 362

014576,003460:    5413                        ENDPINBF           EQUALS                                         
014577,003461: 
014578,003462: 04,3520                                           SETLOC   ENDNVBSY   +1                         
014579,003463: 
014580,003464: 04,3520           35233        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
014581,003465: 04,3521           04363                           TC       NOVAC                                 
014582,003466: 04,3522     0264                                  EBANK=   DSPCOUNT                              
014583,003467: 04,3522           03525 10000                     2CADR    FREDSPD0                              
014584,003468: 04,3524           04602                           TC       TASKOVER                              
014585,003469: 
014586,003470: 
014587,003471: 
014588,003472: 04,3525           05367        FREDSPD0           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
014589,003473: 04,3526           03534                           TC       LSTEMPTY                              #  LIST EMPTY
014590,003474: 04,3527           04422                           TC       JOBWAKE                               #  LIST NOT EMPTY
014591,003475: 04,3530           00003                           RELINT                                         
014592,003476: 04,3531           37657                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
014593,003477: 04,3532           54324                           TS       GRABLOCK                              
014594,003478: 04,3533           04440                           TC       ENDOFJOB                              
014595,003479: 04,3534           37665        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
014596,003480: 04,3535           03532                           TC       -3                                    
014597,003481: 
014598,003482: 
014599,003483: 
014600,003484: 04,3536           05446        LSTFULL            TC       ABORT                                 
014601,003485: 04,3537           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
014602,003486: 
014603,003487: 04,3540                        ENDPINS1           EQUALS                                         
014604,003488: 

Page 363

014606,003490:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
014607,003491:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
014608,003492: 
014609,003493: 05,3414                                           SETLOC   DSPMMEND   +1                         
014610,003494: 
014611,003495: 05,3414           00004        VBTSTLTS           INHINT                                         
014612,003496: 05,3415           47657                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
014613,003497: 05,3416           70370                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
014614,003498: 05,3417           67657                           AD       BIT1                                  
014615,003499: 05,3420           54370                           TS       IMODES33                              
014616,003500: 
014617,003501: 05,3421           33457                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
014618,003502: 05,3422           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
014619,003503: 05,3423           05011                           WOR      DSALMOUT                              
014620,003504: 05,3424           33460                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
014621,003505: 05,3425           54322                           TS       DSPTAB     +11D                       #  PROG ALM.
014622,003506: 05,3426           37646                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
014623,003507: 05,3427           00006                           EXTEND                                         
014624,003508: 05,3430           05013                           WOR      CHAN13                                
014625,003509: 05,3431           37661                           CAF      TEN                                   
014626,003510: 05,3432           54103        TSTLTS1            TS       ERCNT                                 
014627,003511: 05,3433           43455                           CS       FULLDSP                               
014628,003512: 05,3434           50103                           INDEX    ERCNT                                 
014629,003513: 05,3435           54307                           TS       DSPTAB                                
014630,003514: 05,3436           10103                           CCS      ERCNT                                 
014631,003515: 05,3437           03432                           TC       TSTLTS1                               
014632,003516: 05,3440           43456                           CS       FULLDSP1                              
014633,003517: 05,3441           54310                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
014634,003518: 05,3442           54313                           TS       DSPTAB     +4                         
014635,003519: 05,3443           54315                           TS       DSPTAB     +6                         
014636,003520: 05,3444           37660                           CAF      ELEVEN                                
014637,003521: 05,3445           54303                           TS       NOUT                                  
014638,003522: 05,3446           00003                           RELINT                                         
014639,003523: 05,3447           33462                           CAF      SHOLTS                                
014640,003524: 05,3450           00004                           INHINT                                         
014641,003525: 05,3451           04536                           TC       WAITLIST                              
014642,003526: 05,3452     0307                                  EBANK=   DSPTAB                                
014643,003527: 05,3452           03463 12000                     2CADR    TSTLTS2                               
014644,003528: 
014645,003529: 05,3454           04440                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
014646,003530:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
014647,003531:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
014648,003532: 
014649,003533: 
014650,003534: 
014651,003535: 05,3455           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
014652,003536: 05,3456           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
014653,003537: 05,3457           00175        TSTCON1            OCT      00175                                 
014654,003538:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
014655,003539:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
014656,003540: 

Page 364

014658,003542: 05,3460           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D BITS 4,6,8,9.
014659,003543:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
014660,003544: 05,3461           00115        TSTCON3            OCT      00115                                 #  CHAN 11 BITS 1, 3, 4, 7.
014661,003545:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
014662,003546: 05,3462           00764        SHOLTS             OCT      764                                   #  5 SEC
014663,003547: 
014664,003548: 
014665,003549: 
014666,003550: 05,3463           35233        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
014667,003551: 05,3464           04363                           TC       NOVAC                                 
014668,003552: 05,3465     0307                                  EBANK=   DSPTAB                                
014669,003553: 05,3465           03470 12000                     2CADR    TSTLTS3                               
014670,003554: 
014671,003555: 05,3467           04602                           TC       TASKOVER                              
014672,003556: 
014673,003557: 
014674,003558: 
014675,003559: 05,3470           43461        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
014676,003560: 05,3471           00004                           INHINT                                         
014677,003561: 05,3472           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
014678,003562: 05,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
014679,003563: 05,3474           47646                           CS       BIT10                                 #  TURN OFF  TEST ALARM OUTBIT
014680,003564: 05,3475           00006                           EXTEND                                         
014681,003565: 05,3476           03013                           WAND     CHAN13                                
014682,003566: 05,3477           37641                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
014683,003567: 05,3500           54322                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
014684,003568: 05,3501           43521                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
014685,003569: 05,3502           70370                           MASK     IMODES33                              #  LIGHTS COMPLETE.
014686,003570: 05,3503           64515                           AD       PRIO16                                
014687,003571: 05,3504           54370                           TS       IMODES33                              
014688,003572: 
014689,003573: 05,3505           43523                           CS       OCT55000                              
014690,003574: 05,3506           70367                           MASK     IMODES30                              
014691,003575: 05,3507           64514                           AD       PRIO15                                #  15000.
014692,003576: 05,3510           54367                           TS       IMODES30                              
014693,003577: 
014694,003578: 05,3511           43522                           CS       RFAILS2                               
014695,003579: 05,3512           70413                           MASK     RADMODES                              
014696,003580: 05,3513           67651                           AD       BIT7                                  
014697,003581: 05,3514           54413                           TS       RADMODES                              
014698,003582: 
014699,003583: 05,3515           00003                           RELINT                                         
014700,003584: 
014701,003585: 05,3516           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
014702,003586: 05,3517           04102                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
014703,003587: 05,3520           11315                           CADR     VBTERM                                #  IF APPROPRIATE).
014704,003588:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
014705,003589:                                                                                                  #  FOR TERMINATE CONDITION, AND GO TO
014706,003590:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.
014707,003591: 

Page 365

014709,003593: 05,3521           16001        13-11,1            OCT      16001                                 
014710,003594: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
014711,003595: 05,3523           55000        OCT55000           OCT      55000                                 
014712,003596: 05,3524                        ENDPINS2           EQUALS                                         

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