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.

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

Page 289

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

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

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

Page 290

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

Page 291

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

Page 292

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

Page 293

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

Page 294

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

Page 295

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

Page 296

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

Page 297

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

Page 298

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

Page 299

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

Page 300

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

Page 301

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

Page 302

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

Page 303

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

Page 304

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

Page 305

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

Page 306

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

Page 307

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

Page 308

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

Page 309

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

Page 310

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

Page 311

012203,001083:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
012204,001084:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
012205,001085: 
012206,001086: 

Page 312

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

Page 313

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

Page 314

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

Page 315

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

Page 316

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

Page 317

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

Page 318

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

Page 319

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

Page 320

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

Page 321

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

Page 322

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

Page 323

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

Page 324

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

Page 325

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

Page 326

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

Page 327

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

Page 328

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

Page 329

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

Page 330

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

Page 331

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

Page 332

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

Page 333

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

Page 334

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

Page 335

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

Page 336

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

Page 337

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

Page 338

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

Page 339

013515,002395: 04,3415           00122                           TC       ENTEXIT                               
013516,002396: 
013517,002397: 04,3416           00000        SWTAB              OCT      0                                     #  -R3
013518,002398: 04,3417           00001                           OCT      1                                     #  +R3
013519,002399: 04,3420           00003                           OCT      3                                     #  -R2
013520,002400: 04,3421           00004                           OCT      4                                     #  +R2
013521,002401: 

Page 340

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

Page 341

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

Page 342

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

Page 343

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

Page 344

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

Page 345

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

Page 346

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

Page 347

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

Page 348

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

Page 349

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

Page 350

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

Page 351

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

Page 352

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

Page 353

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

Page 354

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

Page 355

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

Page 356

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

Page 357

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

Page 358

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

Page 359

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

Page 360

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

Page 361

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

Page 362

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

Page 363

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

Page 364

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

Page 365

014714,003594: 05,3521           16001        13-11,1            OCT      16001                                 
014715,003595: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
014716,003596: 05,3523           55000        OCT55000           OCT      55000                                 
014717,003597: 05,3524                        ENDPINS2           EQUALS                                         

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