Source Code

These source-code files were obtained by digitally photographing a Solarium 55 program listing from the American Computer Museum in Bozeman, Montana. Photography was by Ron Burkey, with assistance from museum curator George Keremedjiev and Montana State University curator Kim Scott. The listing originally belonged to Eldon C. Hall, who donated it to the museum. Volunteers then manually typed in the source code or else modified similar pre-existing Colossus 249 (Apollo 9) source files to incorporate changes, although this transcription was principally done by Jim Lawton and corrected by Ron Burkey. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

        YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
	BY NASA 1021108-021                    DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.

017987,000002:                                                                                                  ## Copyright:   Public domain.
017988,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
017989,000004:                                                                                                  ## Purpose:     Part of the source code for Solarium build 55. This
017990,000005:                                                                                                  ##              is for the Command Module's (CM) Apollo Guidance
017991,000006:                                                                                                  ##              Computer (AGC), for Apollo 6.
017992,000007:                                                                                                  ## Assembler:   yaYUL --block1
017993,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
017994,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
017995,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Solarium055/
017996,000011:                                                                                                  ## Mod history: 2009-09-23 JL   Created.
017997,000012:                                                                                                  ##              2016-08-19 RSB  Typos.
017998,000013:                                                                                                  ##              2016-08-20 RSB  More typos.
017999,000014: 

Page 481

018001,000016: 
018002,000017:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
018003,000018: 
018004,000019: 
018005,000020: 
018006,000021:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
018007,000022: 
018008,000023:                                                                                                  #        ''IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
018009,000024:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
018010,000025:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.''
018011,000026: 
018012,000027:                                                                                                  #                        HENRY 6, ACT 2, SCENE 4
018013,000028: 
018014,000029: 
018015,000030:                                                                                                  #  SUMMARY OF ERASABLE ASSIGNMENTS FOR KEYBOARD AND DISPLAY PROGRAM 
018016,000031:                                                                                                  #  WHICH ARE ALL DEFINED ELSEWHERE.
018017,000032: 
018018,000033: 
018019,000034: 
018020,000035:                                                                                                  #                SETLOC  627
018021,000036: 
018022,000037:                                                                                                  #  BUFFER STORAGE AREAS FOR ROUTINES USING DISPLAY OR LOAD ROUTINES.
018023,000038:                                                                                                  #  DSPTEM1       ERASE   +2              # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
018024,000039:                                                                                                  #  DSPTEM2       ERASE   +2              # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
018025,000040: 
018026,000041:                                                                                                  #  ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
018027,000042: 
018028,000043: 
018029,000044: 
018030,000045:                                                                                                  #  ERASABLES RESERVED FOR EXECUTIVE ACTION
018031,000046: 
018032,000047:                                                                                                  #  DSPCOUNT      ERASE                   # DISPLAY POSITION INDICATOR
018033,000048:                                                                                                  #  DECBRNCH      ERASE                   # +DEC, - DEC, OCT INDICATOR
018034,000049:                                                                                                  #  VERBREG       ERASE                   # VERB CODE
018035,000050:                                                                                                  #  NOUNREG       ERASE                   # NOUN CODE
018036,000051:                                                                                                  #  XREG          ERASE                   # R1 INPUT BUFFER
018037,000052:                                                                                                  #  YREG          ERASE                   # R2 INPUT BUFFER
018038,000053:                                                                                                  #  ZREG          ERASE                   # R3 INPUT BUFFER
018039,000054:                                                                                                  #  XREGLP        ERASE                   # LO PART OF XREG (FOR DEC CONV ONLY)
018040,000055:                                                                                                  #  YREGLP        ERASE                   # LO PART OF YREG (FOR DEC CONV ONLY)
018041,000056:                                                                                                  #  ZREGLP        ERASE                   # LO PART OF ZREG (FOR DEC CONV ONLY)
018042,000057:                                                                                                  #  MODREG        ERASE                   # MODE CODE
018043,000058:                                                                                                  #  DSPLOCK       =       STATE (BIT4)    # KEYBOARD/SUBROUTINE CALL INTERLOCK
018044,000059:                                                                                                  #  REQRET        ERASE                   # RETURN REGISTER FOR LOAD
018045,000060:                                                                                                  #  LOADSTAT      ERASE                   # STATUS INDICATOR FOR LOADTST
018046,000061:                                                                                                  #  CLPASS        ERASE                   # PASS INDICATOR CLEAR
018047,000062:                                                                                                  #  NOUT          ERASE                   # ACTIVITY COUNTER FOR DSPTAB
018048,000063:                                                                                                  #  NOUNCADR      ERASE                   # MACHINE CADR FOR NOUN
018049,000064:                                                                                                  #  MONSAVE       ERASE                   # N/V CODE FOR MONITOR. ALSO ACTIVITY
018050,000065:                                                                                                  #  MONSAVE1      ERASE                   # NOUNADD STORAGE FOR MONITOR WITH MATBS
018051,000066:                                                                                                  #  DSPTAB        ERASE   +13D            # 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS

Page 482

018053,000068:                                                                                                  #  CADRSTOR      ERASE                   # ENDIDLE STORAGE
018054,000069:                                                                                                  #  GRABLOCK      ERASE                   # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
018055,000070:                                                                                                  #  NVSBCADR      ERASE                   # NVSUB STORAGE FOR CALLING CADR
018056,000071:                                                                                                  #  DSPLIST       ERASE   +2              # WAITING REG FOR DSP SYST INTERNAL USE
018057,000072:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION.
018058,000073: 
018059,000074:                                                                                                  #  ERASABLES RESERVED FOR INTERRUPT ACTION
018060,000075: 
018061,000076:                                                                                                  #  IN0WORD       ERASE                   # INPUT CODE STORAGE (KEYRUPT OR UPRUPT)
018062,000077:                                                                                                  #  DSPCNT        ERASE                   # COUNTER FOR DSPOUT
018063,000078: 
018064,000079: 
018065,000080: 
018066,000081:                                                                                                  #  TEMPORARY ERASABLES FOR EXECUTIVE ACTION
018067,000082: 
018068,000083:                                                                                                  #  DSEXIT        =       COMPON          # RETURN FOR DSPIN
018069,000084:                                                                                                  #  EXITEM        =       COMPON          # RETURN FOR SCALE FACTOR ROUTINE SELECT
018070,000085:                                                                                                  #  BLANKRET      =       COMPON          # RETURN FOR 2BLANK
018071,000086: 
018072,000087:                                                                                                  #  WRDRET        =       TEM9            # RETURN FOR 5BLANK
018073,000088:                                                                                                  #  WDRET         =       TEM9            # RETURN FOR DSPWD
018074,000089:                                                                                                  #  DECRET        =       TEM9            # RETURN FOR PUTCOM(DEC LOAD)
018075,000090:                                                                                                  #  21/22REG      =       TEM9            # TEMP FOR CHARIN
018076,000091: 
018077,000092:                                                                                                  #  UPDATRET      =       ORDER           # RETURN FOR UPDATNN, UPDATVB
018078,000093:                                                                                                  #  CHAR          =       ORDER           # TEMP FOR CHARIN
018079,000094:                                                                                                  #  ERCNT         =       ORDER           # COUNTER FOR ERROR LIGHT RESET
018080,000095:                                                                                                  #  DECOUNT       =       ORDER           # COUNTER FOR SCALING AND DISPLAY (DEC)
018081,000096: 
018082,000097:                                                                                                  #  SGNON         =       TEM11           # TEMP FOR +,- ON
018083,000098:                                                                                                  #  NOUNTEM       =       TEM11           # COUNTER FOR MIXNOUN FETCH
018084,000099:                                                                                                  #  DISTEM        =       TEM11           # COUNTER FOR OCTAL DISPLAY VERBS
018085,000100:                                                                                                  #  DECTEM        =       TEM11           # COUNTER FOR FETCH (DEC DISPLAY VERBS)
018086,000101:                                                                                                  #  DECTEM1       =       TEM11           # TEMP FOR NUM
018087,000102: 
018088,000103:                                                                                                  #  SGNOFF        =       DVSW            # TEMP FOR +,- ON
018089,000104:                                                                                                  #  NVTEMP        =       DVSW            # TEMP FOR NVSUB
018090,000105:                                                                                                  #  SFTEMP1       =       DVSW            # STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
018091,000106:                                                                                                  #  DECTEM2       =       DVSW            # TEMP FOR NUM
018092,000107: 
018093,000108:                                                                                                  #  CODE          =       BRANCHQ         # FOR DSPIN
018094,000109:                                                                                                  #  SFTEMP2       =       BRANCHQ         # STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
018095,000110: 
018096,000111:                                                                                                  #  ENTRET        =       MODE            # EXIT FROM ENTER
018097,000112: 
018098,000113:                                                                                                  #  PROGREG       =       VBUF +2         # FOR GO EXEC PROGRAM
018099,000114:                                                                                                  #  MIXTEMP       =       VBUF +2         # FOR MIXNOUN DATA
018100,000115:                                                                                                  #  SIGNRET       =       VBUF +2         # RETURN FOR +,- ON
018101,000116: 

Page 483

018103,000118: 
018104,000119:                                                                                                  #  ALSO PROGREG+1, PROGREG+2. MIXTEMP+1, MIXTEMP+2.
018105,000120: 
018106,000121:                                                                                                  #  WDCNT         =       VBUF +5         # CHAR COUNTER FOR DSPWD
018107,000122:                                                                                                  #  INREL         =       VBUF +5         # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
018108,000123: 
018109,000124:                                                                                                  #  MIXBR         =       TEM10           # INDICATOR FOR MIXED OR NORMAL NOUN
018110,000125:                                                                                                  #  DSPMMTEM      =       TEM10           # DSPCOUNT SAVE FOR DSPMM
018111,000126: 
018112,000127:                                                                                                  #  MONTEM        =       NEWEQIND        # TEMP RETURN FOR MONITOR
018113,000128:                                                                                                  #  DSREL         =       TEM2            # REL ADDRESS FOR DSPIN (TEM2 USED BY DAD1)
018114,000129: 
018115,000130:                                                                                                  #  DSMAG         =       TEM4            # MAGNITUDE STORE FOR DSPIN
018116,000131:                                                                                                  #  IDADDTEM      =       TEM4            # MIXNOUN INDIRECT ADDRESS STORAGE
018117,000132: 
018118,000133:                                                                                                  #  COUNT         =       TEM5            # FOR DSPIN  (TEM5 IS USED BY DAD)
018119,000134:                                                                                                  #  LSTPTR        =       ARETURN         # LIST POINTER FOR GRABUSY
018120,000135:                                                                                                  #  RELRET        =       ARETURN         # RETURN FOR RELDSP
018121,000136:                                                                                                  #  FREERET       =       ARETURN         # RETURN FOR FREEDSP
018122,000137: 
018123,000138:                                                                                                  #  CADRTEM       =       ESCAPE          # TEMP STORAGE FOR GRAB ROUTINES
018124,000139: 
018125,000140:                                                                                                  #  NNADTEM       ERASE                   # TEMP FOR NOUN ADDRESS TABLE ENTRY
018126,000141:                                                                                                  #  NNTYPTEM      ERASE                   # TEMP FOR NOUN TYPE TABLE ENTRY
018127,000142:                                                                                                  #  IDAD1TEM      ERASE                   # TEMP FOR INDIR ADDRES TABLE ENTRY(MIXNN)
018128,000143:                                                                                                  #                                        # MUST = IDAD2TEM-1, = IDAD3TEM-2.
018129,000144:                                                                                                  #  IDAD2TEM      ERASE                   # TEMP FOR INDIR ADDRES TABLE ENTRY(MIXNN)
018130,000145:                                                                                                  #                                        # MUST = IDAD1TEM+1, = IDAD3TEM-1.
018131,000146:                                                                                                  #  IDAD3TEM      ERASE                   # TEMP FOR INDIR ADDRES TABLE ENTRY(MIXNN)
018132,000147:                                                                                                  #                                        # MUST = IDAD1TEM+2, = IDAD2TEM+1.
018133,000148: 
018134,000149: 
018135,000150: 
018136,000151:                                                                                                  #  TEMPORARY ERASABLES FOR INTERRUPT ACTION
018137,000152: 
018138,000153:                                                                                                  #  KEYTEMP1      =       WTEXIT          # TEMP FOR KEYRUPT, UPRUPT
018139,000154:                                                                                                  #  DSRUPTEM      =       WTEXIT          # TEMP FOR DSPOUT
018140,000155:                                                                                                  #  KEYTEMP2      =       RUPTAGN         # TEMP FOR KEYRUPT, UPRUPT
018141,000156: 

Page 484

018143,000158: 
018144,000159:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
018145,000160:                                                                                                  #  0             10000
018146,000161:                                                                                                  #  1             00001
018147,000162:                                                                                                  #  9             01001
018148,000163:                                                                                                  #  VERB          10001
018149,000164:                                                                                                  #  ERROR RES     10010
018150,000165:                                                                                                  #  KEY RLSE      11001
018151,000166:                                                                                                  #  +             11010
018152,000167:                                                                                                  #  -             11011
018153,000168:                                                                                                  #  ENTER         11100
018154,000169:                                                                                                  #  CLEAR         11110
018155,000170:                                                                                                  #  NOUN          11111
018156,000171: 
018157,000172: 
018158,000173: 
018159,000174:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
018160,000175:                                                                                                  #  A'S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
018161,000176:                                                                                                  #  ENERGIZED.
018162,000177:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
018163,000178:                                                                                                  #  C'S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD.
018164,000179:                                                                                                  #  D'S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
018165,000180: 
018166,000181:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
018167,000182:                                                                                                  #  MD1   MD2                             (MAJOR MODE)
018168,000183:                                                                                                  #  VD1   VD2 (VERB)      ND1     ND2     (NOUN)
018169,000184:                                                                                                  #  R1D1  R1D2    R1D3    R1D4    R1D5    (R1)
018170,000185:                                                                                                  #  R2D1  R2D2    R2D3    R2D4    R2D5    (R2)
018171,000186:                                                                                                  #  R3D1  R3D2    R3D3    R3D4    R3D5    (R3)
018172,000187: 
018173,000188:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
018174,000189:                                                                                                  #  MD1   25      R2D1    11              ALL ARE OCTAL
018175,000190:                                                                                                  #  MD2   24      R2D2    10
018176,000191:                                                                                                  #  VD1   23      R2D3    7
018177,000192:                                                                                                  #  VD2   22      R2D4    6
018178,000193:                                                                                                  #  ND1   21      R2D5    5
018179,000194:                                                                                                  #  ND2   20      R3D1    4
018180,000195:                                                                                                  #  R1D1  16      R3D2    3
018181,000196:                                                                                                  #  R1D2  15      R3D3    2
018182,000197:                                                                                                  #  R1D3  14      R3D4    1
018183,000198:                                                                                                  #  R1D4  13      R3D5    0
018184,000199:                                                                                                  #  R1D5  12
018185,000200: 
018186,000201: 
018187,000202: 
018188,000203:                                                                                                  #  THERE IS AN 11-REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
018189,000204: 
018190,000205:                                                                                                  #  DSPTAB        RELAYWD         BIT11           BITS 10-6       BITS 5-1
018191,000206:                                                                                                  #  RELADD
018192,000207:                                                                                                  #  10            1011                            MD1 (25)        MD2  (24)
018193,000208:                                                                                                  #  9             1010            FLASH           VD1 (23)        VD2  (22)

Page 485

018195,000210:                                                                                                  #  8             1001                            ND1 (21)        ND2  (20)
018196,000211:                                                                                                  #  7             1000            UPACT                           R1D1 (16)
018197,000212:                                                                                                  #  6             0111            +R1             R1D2 (15)       R1D3 (14)
018198,000213:                                                                                                  #  5             0110            -R1             R1D4 (13)       R1D5 (12)
018199,000214:                                                                                                  #  4             0101            +R2             R2D1 (11)       R2D2 (10)
018200,000215:                                                                                                  #  3             0100            -R2             R2D3 (7)        R2D4 (6)
018201,000216:                                                                                                  #  2             0011                            R2D5 (5)        R3D1 (4)
018202,000217:                                                                                                  #  1             0010            +R3             R3D2 (3)        R3D3 (2)
018203,000218:                                                                                                  #  0             0001            -R3             R3D4 (1)        R3D5 (0)
018204,000219:                                                                                                  #                0000        NO RELAYWORD
018205,000220: 
018206,000221: 
018207,000222: 
018208,000223:                                                                                                  #  THE 5-BIT RELAY CODES ARE,
018209,000224:                                                                                                  #  BLANK         00000
018210,000225:                                                                                                  #  0             10101
018211,000226:                                                                                                  #  1             00011
018212,000227:                                                                                                  #  2             11001
018213,000228:                                                                                                  #  3             11011
018214,000229:                                                                                                  #  4             01111
018215,000230:                                                                                                  #  5             11110
018216,000231:                                                                                                  #  6             11100
018217,000232:                                                                                                  #  7             10011
018218,000233:                                                                                                  #  8             11101
018219,000234:                                                                                                  #  9             11111
018220,000235: 

Page 486

018222,000237: 
018223,000238: 06,6000                                           SETLOC   14000                                 
018224,000239: 
018225,000240: 06,6000           30001        FLASHON            XCH      Q                                     
018226,000241: 06,6001           50112                           TS       DSEXIT                                
018227,000242: 06,6002           07453                           TC       FLASHON1                              
018228,000243: 
018229,000244: 06,6003           30001        FLASHOFF           XCH      Q                                     
018230,000245: 06,6004           50112                           TS       DSEXIT                                
018231,000246: 06,6005           07462                           TC       FLASHOF1                              
018232,000247:                                                                                                  #  END OF STANDARD LEAD INS.
018233,000248: 
018234,000249: 
018235,000250: 
018236,000251: 06,6006           03265        CHARIN             TC       DSPLOCK1                              #  BLOCK DISPLAY SYST BUT SAVE OLD
018237,000252: 06,6007           74513                           MASK     BIT4                                  #  C(DSPLOCK) FOR ERROR LIGHT RESET.
018238,000253: 06,6010           50106                           TS       21/22REG                              
018239,000254: 06,6011           30115                           XCH      MPAC                                  
018240,000255: 06,6012           50063                           TS       CHAR                                  
018241,000256: 06,6013           20000                           INDEX    A                                     
018242,000257: 06,6014           06015                           TC       +1                                    #  INPUT CODE    FUNCTION
018243,000258: 06,6015           07440                           TC       CHARALRM                              #  0
018244,000259: 06,6016           06072                           TC       NUM                                   #  1
018245,000260: 06,6017           06072                           TC       NUM                                   #  2
018246,000261: 06,6020           06072                           TC       NUM                                   #  3
018247,000262: 06,6021           06072                           TC       NUM                                   #  4
018248,000263: 06,6022           06072                           TC       NUM                                   #  5
018249,000264: 06,6023           06072                           TC       NUM                                   #  6
018250,000265: 06,6024           06072                           TC       NUM                                   #  7
018251,000266: 06,6025           06063                           TC       89TEST                                #  10                8
018252,000267: 06,6026           06063                           TC       89TEST                                #  11                9
018253,000268: 06,6027           07440                           TC       CHARALRM                              #  12
018254,000269: 06,6030           07440                           TC       CHARALRM                              #  13
018255,000270: 06,6031           07440                           TC       CHARALRM                              #  14
018256,000271: 06,6032           07440                           TC       CHARALRM                              #  15
018257,000272: 06,6033           07440                           TC       CHARALRM                              #  16
018258,000273: 06,6034           07440                           TC       CHARALRM                              #  17
018259,000274: 06,6035           06070                           TC       NUM        -2                         #  20                0
018260,000275: 06,6036           06252                           TC       VERB                                  #  21                VERB
018261,000276: 06,6037           06402                           TC       ERROR                                 #  22                ERROR LIGHT RESET
018262,000277: 06,6040           06057                           TC       ABORTCAL                              #  23
018263,000278: 06,6041           07440                           TC       CHARALRM                              #  24
018264,000279: 06,6042           07440                           TC       CHARALRM                              #  25
018265,000280: 06,6043           07440                           TC       CHARALRM                              #  26
018266,000281: 06,6044           07440                           TC       CHARALRM                              #  27
018267,000282: 06,6045           07440                           TC       CHARALRM                              #  30
018268,000283: 06,6046           07475                           TC       VBRELDSP                              #  31                KEY RELEASE
018269,000284: 06,6047           06316                           TC       POSGN                                 #  32                +
018270,000285: 06,6050           06302                           TC       NEGSGN                                #  33                -
018271,000286: 06,6051           06055                           TC       ENTERJMP                              #  34                ENTER
018272,000287: 06,6052           07440                           TC       CHARALRM                              #  35

Page 487

018274,000289: 06,6053           06501                           TC       CLEAR                                 #  36                CLEAR
018275,000290: 06,6054           06274                           TC       NOUN                                  #  37                NOUN
018276,000291: 
018277,000292: 
018278,000293: 
018279,000294: 06,6055           05720        ENTERJMP           TC       POSTJUMP                              
018280,000295: 06,6056           16007                           CADR     ENTER                                 
018281,000296: 
018282,000297: 06,6057           36062        ABORTCAL           CAF      OCT32                                 
018283,000298: 06,6060           05720                           TC       POSTJUMP                              #  FORCE DECODING OF VERB 72 AND DO RELDSP.
018284,000299: 06,6061           16136                           CADR     JAMEXTVB                              
018285,000300: 
018286,000301: 06,6062           00032        OCT32              OCT      32                                    
018287,000302: 
018288,000303: 
018289,000304: 
018290,000305: 06,6063           34473        89TEST             CAF      THREE                                 
018291,000306: 06,6064           70615                           MASK     DECBRNCH                              
018292,000307: 06,6065           10000                           CCS      A                                     
018293,000308: 06,6066           06072                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
018294,000309: 06,6067           07440                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
018295,000310: 
018296,000311: 
018297,000312: 
018298,000313:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
018299,000314:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
018300,000315:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
018301,000316:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP.
018302,000317:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
018303,000318:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
018304,000319: 
018305,000320: 06,6070           35501                           CAF      ZERO                                  
018306,000321: 06,6071           50063                           TS       CHAR                                  
018307,000322: 06,6072           10614        NUM                CCS      DSPCOUNT                              
018308,000323: 06,6073           06077                           TC       +4                                    #  +
018309,000324: 06,6074           06077                           TC       +3                                    #  +0
018310,000325: 06,6075           06076                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
018311,000326: 06,6076           02124                           TC       ENDOFJOB                              #  -0
018312,000327: 06,6077           06222                           TC       GETINREL                              
018313,000328: 06,6100           10633                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018314,000329: 06,6101           35501                           CAF      ZERO                                  
018315,000330: 06,6102           50633                           TS       CLPASS                                
018316,000331: 06,6103           06104                           TC       +1                                    
018317,000332: 06,6104           20063                           INDEX    CHAR                                  
018318,000333: 06,6105           32652                           CAF      RELTAB                                
018319,000334: 06,6106           73220                           MASK     LOW5                                  
018320,000335: 06,6107           50111                           TS       CODE                                  
018321,000336: 06,6110           30614                           XCH      DSPCOUNT                              
018322,000337: 06,6111           50104                           TS       COUNT                                 
018323,000338: 06,6112           50614                           TS       DSPCOUNT                              

Page 488

018325,000340: 06,6113           07341                           TC       DSPIN                                 
018326,000341: 06,6114           34473                           CAF      THREE                                 
018327,000342: 06,6115           70615                           MASK     DECBRNCH                              
018328,000343: 06,6116           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
018329,000344: 06,6117           06130                           TC       DECTOBIN                              #  +
018330,000345: 06,6120           20076                           INDEX    INREL                                 #  +0 OCTAL
018331,000346: 06,6121           30602                           XCH      VERBREG                               
018332,000347: 06,6122           50022                           TS       CYL                                   
018333,000348: 06,6123           40022                           CS       CYL                                   
018334,000349: 06,6124           40022                           CS       CYL                                   
018335,000350: 06,6125           30022                           XCH      CYL                                   
018336,000351: 06,6126           60063                           AD       CHAR                                  
018337,000352: 06,6127           06146                           TC       ENDNMTST                              
018338,000353: 06,6130           20076        DECTOBIN           INDEX    INREL                                 
018339,000354: 06,6131           30602                           XCH      VERBREG                               
018340,000355: 06,6132           50115                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
018341,000356: 06,6133           35501                           CAF      ZERO                                  
018342,000357: 06,6134           50116                           TS       MPAC       +1                         
018343,000358: 06,6135           33232                           CAF      TEN                                   #  10 X 2EXP-14
018344,000359: 06,6136           05416                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
018345,000360: 06,6137           30116                           XCH      MPAC       +1                         
018346,000361: 06,6140           60063                           AD       CHAR                                  
018347,000362: 06,6141           50116                           TS       MPAC       +1                         
018348,000363: 06,6142           06146                           TC       ENDNMTST                              #  NO OF
018349,000364: 06,6143           60115                           AD       MPAC                                  #  OF MUST BE 5TH CHAR
018350,000365: 06,6144           50115                           TS       MPAC                                  
018351,000366: 06,6145           06165                           TC       DECEND                                
018352,000367: 06,6146           20076        ENDNMTST           INDEX    INREL                                 
018353,000368: 06,6147           50602                           TS       VERBREG                               
018354,000369: 06,6150           40614                           CS       DSPCOUNT                              
018355,000370: 06,6151           20076                           INDEX    INREL                                 
018356,000371: 06,6152           66211                           AD       CRITCON                               
018357,000372: 06,6153           10000                           CCS      A                                     
018358,000373: 06,6154           07440                           TC       CHARALRM                              #  +      PATHOLOGICAL CASE
018359,000374: 06,6155           07440                           TC       CHARALRM                              #  +0    IMPOSSIBLE
018360,000375: 06,6156           06206                           TC       MORNUM                                #  -
018361,000376: 06,6157           34473        ENDNUM             CAF      THREE                                 
018362,000377: 06,6160           70615                           MASK     DECBRNCH                              
018363,000378: 06,6161           10000                           CCS      A                                     
018364,000379: 06,6162           06165                           TC       DECEND                                
018365,000380: 06,6163           40614        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
018366,000381: 06,6164           06207                           TC       MORNUM     +1                         #  NEGATIVELY
018367,000382: 06,6165           34473        DECEND             CAF      THREE                                 
018368,000383: 06,6166           70615                           MASK     DECBRNCH                              
018369,000384: 06,6167           20000                           INDEX    A                                     
018370,000385: 06,6170           06170                           TC       +0                                    
018371,000386: 06,6171           06175                           TC       +DECSGN                               #  + DEC
018372,000387: 06,6172           05157                           TC       DMP                                   #  - DEC
018373,000388: 06,6173           56217                           XCADR    NEGDECON                              
018374,000389: 06,6174           06177                           TC       ENDECOM                               #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY

Page 489

018376,000391: 06,6175           05157        +DECSGN            TC       DMP                                   #  2EXP14/10EXP5, GIVES (SUM/10EXP5)X2EXP-14
018377,000392: 06,6176           56215                           XCADR    DECON                                 #  IN MPAC, +1, +2.
018378,000393: 06,6177           30117        ENDECOM            XCH      MPAC       +2                         
018379,000394: 06,6200           20076                           INDEX    INREL                                 
018380,000395: 06,6201           50605                           TS       XREGLP     -2                         
018381,000396: 06,6202           30116                           XCH      MPAC       +1                         
018382,000397: 06,6203           20076                           INDEX    INREL                                 
018383,000398: 06,6204           50602                           TS       VERBREG                               
018384,000399: 06,6205           06163                           TC       ENDALL                                
018385,000400: 06,6206           10614        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
018386,000401: 06,6207           50614                           TS       DSPCOUNT                              
018387,000402: 06,6210           02124                           TC       ENDOFJOB                              
018388,000403: 
018389,000404: 06,6211           00022        CRITCON            OCT      22                                    #  (DEC 18)
018390,000405: 06,6212           00020                           OCT      20                                    #  (DEC 16)
018391,000406: 06,6213           00012                           OCT      12                                    #  (DEC 10)
018392,000407: 06,6214           00005                           OCT      5                                     
018393,000408: 06,6215           00000                           OCT      0                                     
018394,000409: 
018395,000410: 06,6216           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
018396,000411: 
018397,000412: 06,6220           72603        NEGDECON           OCT      72603                                 
018398,000413: 06,6221           64516                           OCT      64516                                 
018399,000414: 
018400,000415: 
018401,000416: 
018402,000417:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
018403,000418:                                                                                                  #  PUTS IT INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
018404,000419: 
018405,000420: 06,6222           20614        GETINREL           INDEX    DSPCOUNT                              
018406,000421: 06,6223           36226                           CAF      INRELTAB                              
018407,000422: 06,6224           50076                           TS       INREL                                 #  (A TEMP, REG)
018408,000423: 06,6225           00001                           TC       Q                                     
018409,000424: 
018410,000425: 06,6226           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
018411,000426: 06,6227           00004                           OCT      4                                     #  R3D4           =(1)
018412,000427: 06,6230           00004                           OCT      4                                     #  R3D3           =(2)
018413,000428: 06,6231           00004                           OCT      4                                     #  R3D2           =(3)
018414,000429: 06,6232           00004                           OCT      4                                     #  R3D1           =(4)
018415,000430: 06,6233           00003                           OCT      3                                     #  R2D5           =(5)
018416,000431: 06,6234           00003                           OCT      3                                     #  R2D4           =(6)
018417,000432: 06,6235           00003                           OCT      3                                     #  R2D3           =(7)
018418,000433: 06,6236           00003                           OCT      3                                     #  R2D2           =(8D)
018419,000434: 06,6237           00003                           OCT      3                                     #  R2D1           =(9D)
018420,000435: 06,6240           00002                           OCT      2                                     #  R1D5           =(10D)
018421,000436: 06,6241           00002                           OCT      2                                     #  R1D4           =(11D)
018422,000437: 06,6242           00002                           OCT      2                                     #  R1D3           =(12D)
018423,000438: 06,6243           00002                           OCT      2                                     #  R1D2           =(13D)
018424,000439: 06,6244           00002                           OCT      2                                     #  R1D1           =(14D)
018425,000440: 06,6245           03062                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D

Page 490

018427,000442: 06,6246           00001                           OCT      1                                     #  ND2            =(16D)
018428,000443: 06,6247           00001                           OCT      1                                     #  ND1            =(17D)
018429,000444: 06,6250           00000                           OCT      0                                     #  VD2            =(18D)
018430,000445: 06,6251           00000                           OCT      0                                     #  VD1            =(19D)
018431,000446: 
018432,000447: 
018433,000448: 
018434,000449: 06,6252           35501        VERB               CAF      ZERO                                  
018435,000450: 06,6253           50602                           TS       VERBREG                               
018436,000451: 06,6254           50111                           TS       CODE                                  #  VERB CANT USE 2BLANK SINCE THAT TURNS
018437,000452: 06,6255           33227                           CAF      VD1                                   #  THE FLASH OFF
018438,000453: 06,6256           50614                           TS       DSPCOUNT                              
018439,000454: 06,6257           50104                           TS       COUNT                                 
018440,000455: 06,6260           07341                           TC       DSPIN                                 
018441,000456: 06,6261           36211                           CAF      VD2                                   
018442,000457: 06,6262           50104                           TS       COUNT                                 
018443,000458: 06,6263           35501                           CAF      ZERO                                  
018444,000459: 06,6264           50111                           TS       CODE                                  
018445,000460: 06,6265           07341                           TC       DSPIN                                 
018446,000461: 06,6266           35501        N/VCOM             CAF      ZERO                                  
018447,000462: 06,6267           50615                           TS       DECBRNCH                              
018448,000463: 06,6270           50613                           TS       REQRET                                #  SET FOR ENTPAS0
018449,000464: 06,6271           33147                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
018450,000465: 06,6272           50065                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
018451,000466:                                                                                                  #  TO TC ENDOFJOB
018452,000467: 06,6273           02124                           TC       ENDOFJOB                              
018453,000468: 06,6274           35501        NOUN               CAF      ZERO                                  
018454,000469: 06,6275           50603                           TS       NOUNREG                               
018455,000470: 06,6276           33230                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
018456,000471: 06,6277           50614                           TS       DSPCOUNT                              
018457,000472: 06,6300           06621                           TC       2BLANK                                
018458,000473: 06,6301           06266                           TC       N/VCOM                                
018459,000474: 
018460,000475: 
018461,000476: 
018462,000477: 06,6302  06,6211               VD2                =        CRITCON                               #  OCT 22
018463,000478: 
018464,000479: 
018465,000480: 
018466,000481: 06,6302           06357        NEGSGN             TC       SIGNTEST                              
018467,000482: 06,6303           06343                           TC       -ON                                   
018468,000483: 06,6304           35503                           CAF      TWO                                   
018469,000484: 06,6305           60615        BOTHSGN            AD       DECBRNCH                              #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
018470,000485: 06,6306           20076                           INDEX    INREL                                 #  BIT 5 FOR R1
018471,000486: 06,6307           64510                           AD       BIT7                                  #  BIT 4 FOR R2
018472,000487: 06,6310           50615                           TS       DECBRNCH                              #  BIT 3 FOR R3
018473,000488: 06,6311           10633        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018474,000489: 06,6312           35501                           CAF      ZERO                                  
018475,000490: 06,6313           50633                           TS       CLPASS                                
018476,000491: 06,6314           06315                           TC       +1                                    

Page 491

018478,000493: 06,6315           02124                           TC       ENDOFJOB                              
018479,000494: 
018480,000495: 06,6316           06357        POSGN              TC       SIGNTEST                              
018481,000496: 06,6317           06322                           TC       +ON                                   
018482,000497: 06,6320           34516                           CAF      ONE                                   
018483,000498: 06,6321           06305                           TC       BOTHSGN                               
018484,000499: 
018485,000500: 06,6322           30001        +ON                XCH      Q                                     
018486,000501: 06,6323           50073                           TS       SIGNRET                               
018487,000502: 06,6324           06222                           TC       GETINREL                              
018488,000503: 06,6325           20076                           INDEX    INREL                                 
018489,000504: 06,6326           36352                           CAF      SGNTAB     -2                         
018490,000505: 06,6327           50110                           TS       SGNOFF                                
018491,000506: 06,6330           64516                           AD       ONE                                   
018492,000507: 06,6331           50064                           TS       SGNON                                 
018493,000508: 06,6332           35501        SGNCOM             CAF      ZERO                                  
018494,000509: 06,6333           50111                           TS       CODE                                  
018495,000510: 06,6334           30110                           XCH      SGNOFF                                
018496,000511: 06,6335           07426                           TC       11DSPIN                               
018497,000512: 06,6336           34504                           CAF      BIT11                                 
018498,000513: 06,6337           50111                           TS       CODE                                  
018499,000514: 06,6340           30064                           XCH      SGNON                                 
018500,000515: 06,6341           07426                           TC       11DSPIN                               
018501,000516: 06,6342           00073                           TC       SIGNRET                               
018502,000517: 06,6343           30001        -ON                XCH      Q                                     
018503,000518: 06,6344           50073                           TS       SIGNRET                               
018504,000519: 06,6345           06222                           TC       GETINREL                              
018505,000520: 06,6346           20076                           INDEX    INREL                                 
018506,000521: 06,6347           36352                           CAF      SGNTAB     -2                         
018507,000522: 06,6350           50064                           TS       SGNON                                 
018508,000523: 06,6351           64516                           AD       ONE                                   
018509,000524: 06,6352           50110                           TS       SGNOFF                                
018510,000525: 06,6353           06332                           TC       SGNCOM                                
018511,000526: 
018512,000527: 06,6354           00005        SGNTAB             OCT      5                                     #  -R1
018513,000528: 06,6355           00003                           OCT      3                                     #  -R2
018514,000529: 06,6356           00000                           OCT      0                                     #  -R3
018515,000530: 
018516,000531: 
018517,000532: 
018518,000533: 06,6357           30001        SIGNTEST           XCH      Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
018519,000534: 06,6360           50073                           TS       SIGNRET                               #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
018520,000535: 06,6361           34473                           CAF      THREE                                 #  CONSECUTIVE +/- CHARACTERS.
018521,000536: 06,6362           70615                           MASK     DECBRNCH                              
018522,000537: 06,6363           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT = 0, SIGN
018523,000538: 06,6364           02124                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
018524,000539: 06,6365           43171                           CS       R1D1                                  
018525,000540: 06,6366           06374                           TC       SGNTST1                               
018526,000541: 06,6367           43172                           CS       R2D1                                  
018527,000542: 06,6370           06374                           TC       SGNTST1                               

Page 492

018529,000544: 06,6371           43173                           CS       R3D1                                  
018530,000545: 06,6372           06374                           TC       SGNTST1                               
018531,000546: 06,6373           02124                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
018532,000547: 06,6374           60614        SGNTST1            AD       DSPCOUNT                              
018533,000548: 06,6375           10000                           CCS      A                                     
018534,000549: 06,6376           00001                           TC       Q                                     
018535,000550: 06,6377           03062                           TC       CCSHOLE                               
018536,000551: 06,6400           00001                           TC       Q                                     
018537,000552: 06,6401           00073                           TC       SIGNRET                               #  SIGN LEGAL
018538,000553: 
018539,000554: 
018540,000555: 
018541,000556:                                                                                                  #  ERROR LIGHT RESET RESETS TMALM, DSPALARM (CHECK FAIL), PROGALM, UNBLOCKS
018542,000557:                                                                                                  #  ENDPULSES, RESETS ERRUPT TRAP. IT ALSO FORCES BIT 12 OF ALL DSPTAB
018543,000558:                                                                                                  #  ENTRIES TO ONE. RESETS UPACT LIGHT.
018544,000559: 
018545,000560: 06,6402           44513        ERROR              CS       BIT4                                  #  RESTORE ORIGINAL C(DSPLOCK) BIT4 OF
018546,000561: 06,6403           20017                           INHINT                                         #  STATE. THUS ERROR LIGHT RESET LEAVES
018547,000562: 06,6404           70645                           MASK     DSPLOCK                               #  DSPLOCK UNCHANGED.
018548,000563: 06,6405           60106                           AD       21/22REG                              
018549,000564: 06,6406           50645                           TS       DSPLOCK                               
018550,000565: 06,6407           44510                           CS       BIT7                                  #  RESET ERRUPT TRAP
018551,000566: 06,6410           70011                           MASK     OUT1                                  
018552,000567: 06,6411           64510                           AD       BIT7                                  
018553,000568: 06,6412           50011                           TS       OUT1                                  
018554,000569: 06,6413           46500                           CS       CFAILCON                              #  RESET THE C RELAYS FOR IMU FAIL, CDUFAIL
018555,000570: 06,6414           70723                           MASK     DSPTAB     +11D                       #  PIPA FAIL.
018556,000571: 06,6415           64500                           AD       BIT15                                 
018557,000572: 06,6416           50723                           TS       DSPTAB     +11D                       
018558,000573: 06,6417           46476                           CS       ERCON                                 
018559,000574: 06,6420           70011                           MASK     OUT1                                  
018560,000575: 06,6421           50011                           TS       OUT1                                  
018561,000576: 06,6422           33232        TSTAB              CAF      BINCON                                #  (DEC 10)
018562,000577: 06,6423           50063                           TS       ERCNT                                 #  ERCNT = COUNT
018563,000578: 06,6424           20017                           INHINT                                         
018564,000579: 06,6425           20063                           INDEX    ERCNT                                 
018565,000580: 06,6426           10710                           CCS      DSPTAB                                
018566,000581: 06,6427           64516                           AD       ONE                                   
018567,000582: 06,6430           06435                           TC       ERPLUS                                
018568,000583: 06,6431           64516                           AD       ONE                                   
018569,000584: 06,6432           40000        ERMINUS            CS       A                                     
018570,000585: 06,6433           76477                           MASK     NOTBIT12                              
018571,000586: 06,6434           06440                           TC       ERCOM                                 
018572,000587: 06,6435           40000        ERPLUS             CS       A                                     
018573,000588: 06,6436           76477                           MASK     NOTBIT12                              
018574,000589: 06,6437           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
018575,000590: 06,6440           20063        ERCOM              INDEX    ERCNT                                 #  ETC.
018576,000591: 06,6441           50710                           TS       DSPTAB                                
018577,000592: 06,6442           20016                           RELINT                                         
018578,000593: 06,6443           10063                           CCS      ERCNT                                 

Page 493

018580,000595: 06,6444           06423                           TC       TSTAB      +1                         
018581,000596: 06,6445           10727                           CCS      WASKSET                               
018582,000597: 06,6446           06455                           TC       ERROPT                                
018583,000598: 06,6447           06455                           TC       ERROPT                                
018584,000599: 06,6450           06455                           TC       ERROPT                                
018585,000600: 06,6451           30007                           XCH      IN3                                   
018586,000601: 06,6452           30007                           XCH      IN3                                   
018587,000602: 06,6453           74720                           MASK     LOW7                                  
018588,000603: 06,6454           50727                           TS       WASKSET                               
018589,000604: 
018590,000605: 06,6455           10730        ERROPT             CCS      WASOPSET                              
018591,000606: 06,6456           06465                           TC       ERROR1                                
018592,000607: 06,6457           06465                           TC       ERROR1                                
018593,000608: 06,6460           06465                           TC       ERROR1                                
018594,000609: 06,6461           30007                           XCH      IN3                                   
018595,000610: 06,6462           30007                           XCH      IN3                                   
018596,000611: 06,6463           76475                           MASK     OPTICSB                               
018597,000612: 06,6464           50730                           TS       WASOPSET                              
018598,000613: 
018599,000614: 06,6465           35501        ERROR1             CAF      ZERO                                  
018600,000615: 06,6466           51763                           TS       FAILREG                               
018601,000616: 06,6467           50726                           TS       OLDERR                                
018602,000617: 06,6470           51764                           TS       SFAIL                                 
018603,000618: 06,6471           50111                           TS       CODE                                  
018604,000619: 06,6472           35362                           CAF      SEVEN                                 
018605,000620: 06,6473           07426                           TC       11DSPIN                               #  TURN OFF UPACT LIGHT
018606,000621: 06,6474           02124                           TC       ENDOFJOB                              
018607,000622: 
018608,000623: 06,6475           35000        OPTICSB            OCT      35000                                 
018609,000624: 06,6476           01131        ERCON              OCT      01131                                 #  BITS 1, 4, 5, 7, 10.
018610,000625:                                                                                                  #  PROGALM, TMFAIL, CHECK FAIL, ERRUPT TRAP
018611,000626:                                                                                                  #  END PULSES.
018612,000627: 
018613,000628: 06,6477           73777        NOTBIT12           OCT      73777                                 
018614,000629: 06,6500           40340        CFAILCON           OCT      40340                                 
018615,000630: 
018616,000631: 
018617,000632: 
018618,000633:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
018619,000634:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
018620,000635:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION.
018621,000636: 
018622,000637:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
018623,000638:                                                                                                  #  APPROPRIATE TO BE CLEARED.
018624,000639: 
018625,000640:                                                                                                  #  CLPASS        +0  PASS0, CAN BE BACKED UP
018626,000641:                                                                                                  #                +NZ  HIPASS, CAN BE BACKED UP
018627,000642:                                                                                                  #                -NZ  PASS0, CANNOT BE BACKED UP
018628,000643: 
018629,000644: 06,6501           10614        CLEAR              CCS      DSPCOUNT                              

Page 494

018631,000646: 06,6502           64516                           AD       ONE                                   
018632,000647: 06,6503           06505                           TC       +2                                    
018633,000648: 06,6504           64516                           AD       ONE                                   
018634,000649: 06,6505           20000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY
018635,000650: 06,6506           36226                           CAF      INRELTAB                              #  FAIL LEGALTST.
018636,000651: 06,6507           50076                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
018637,000652: 06,6510           10633                           CCS      CLPASS                                
018638,000653: 06,6511           06516                           TC       CLPASHI                               #  +
018639,000654: 06,6512           06514                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
018640,000655: 06,6513           06514                           TC       +1                                    #  -
018641,000656: 06,6514           06545                           TC       LEGALTST                              
018642,000657: 06,6515           06535                           TC       CLEAR1                                
018643,000658: 06,6516           10076        CLPASHI            CCS      INREL                                 
018644,000659: 06,6517           50076                           TS       INREL                                 
018645,000660: 06,6520           06545                           TC       LEGALTST                              
018646,000661: 06,6521           30613                           XCH      REQRET                                
018647,000662: 06,6522           66617                           AD       DOUBLK     +2                         #  +3 TO - NUMBER. BACKS UP DATA REQUESTS
018648,000663: 06,6523           50613                           TS       REQRET                                
018649,000664: 06,6524           30076                           XCH      INREL                                 
018650,000665: 06,6525           50073                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
018651,000666: 06,6526           30602                           XCH      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
018652,000667: 06,6527           64335                           AD       NEG1                                  
018653,000668: 06,6530           50602                           TS       VERBREG                               
018654,000669: 06,6531           05654                           TC       BANKCALL                              
018655,000670: 06,6532           16346                           CADR     UPDATVB                               
018656,000671: 06,6533           30073                           XCH      MIXTEMP                               
018657,000672: 06,6534           50076                           TS       INREL                                 #  RESTORE INREL
018658,000673: 06,6535           06542        CLEAR1             TC       CLR5                                  
018659,000674: 06,6536           34516                           CAF      ONE                                   
018660,000675: 06,6537           60633                           AD       CLPASS                                #  ONLY IF CLPASS IS + OR +0,
018661,000676: 06,6540           50633                           TS       CLPASS                                #  SET FOR HIGHER PASS.
018662,000677: 06,6541           02124                           TC       ENDOFJOB                              
018663,000678: 06,6542           30001        CLR5               XCH      Q                                     
018664,000679: 06,6543           50106                           TS       WRDRET                                #  USED 5BLANK  BUT AVOIDS ITS TC GETINREL
018665,000680: 06,6544           06557                           TC       5BLANK     +3                         
018666,000681: 06,6545           45503        LEGALTST           CS       TWO                                   
018667,000682: 06,6546           60076                           AD       INREL                                 
018668,000683: 06,6547           10000                           CCS      A                                     
018669,000684: 06,6550           00001                           TC       Q                                     #  LEGAL  INREL G/ 2
018670,000685: 06,6551           03062                           TC       CCSHOLE                               
018671,000686: 06,6552           02124                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
018672,000687: 06,6553           00001                           TC       Q                                     #  LEGAL    INREL = 2
018673,000688: 
018674,000689: 
018675,000690: 
018676,000691:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
018677,000692:                                                                                                  #  YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
018678,000693:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
018679,000694: 
018680,000695: 06,6554           30001        5BLANK             XCH      Q                                     

Page 495

018682,000697: 06,6555           50106                           TS       WRDRET                                
018683,000698: 06,6556           06222                           TC       GETINREL                              
018684,000699: 06,6557           35501                           CAF      ZERO                                  
018685,000700: 06,6560           20076                           INDEX    INREL                                 
018686,000701: 06,6561           50602                           TS       VERBREG                               #  ZERO X, Y, Z, REG.
018687,000702: 06,6562           20076                           INDEX    INREL                                 
018688,000703: 06,6563           50605                           TS       XREGLP     -2                         
018689,000704: 06,6564           50111                           TS       CODE                                  
018690,000705: 06,6565           20076                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
018691,000706: 06,6566           44510                           CS       BIT7                                  #  PROTECT OTHERS
018692,000707: 06,6567           70615                           MASK     DECBRNCH                              
018693,000708: 06,6570           76620                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
018694,000709: 06,6571           50615                           TS       DECBRNCH                              
018695,000710: 06,6572           20076                           INDEX    INREL                                 
018696,000711: 06,6573           36610                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
018697,000712: 06,6574           50104                           TS       COUNT                                 
018698,000713: 06,6575           07341                           TC       DSPIN                                 
018699,000714: 06,6576           20076        5BLANK1            INDEX    INREL                                 
018700,000715: 06,6577           36613                           CAF      DOUBLK     -2                         
018701,000716: 06,6600           50614                           TS       DSPCOUNT                              
018702,000717: 06,6601           06621                           TC       2BLANK                                
018703,000718: 06,6602           45503                           CS       TWO                                   
018704,000719: 06,6603           60614                           AD       DSPCOUNT                              
018705,000720: 06,6604           50614                           TS       DSPCOUNT                              
018706,000721: 06,6605           06621                           TC       2BLANK                                
018707,000722: 06,6606           20076                           INDEX    INREL                                 
018708,000723: 06,6607           33167                           CAF      R1D1       -2                         
018709,000724: 06,6610           50614                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
018710,000725: 06,6611           00106                           TC       WRDRET                                #  OF REG. JUST BLANKED
018711,000726: 
018712,000727: 06,6612           00016        SINBLANK           OCT      16                                    #  DEC 14
018713,000728: 06,6613           00005                           OCT      5                                     
018714,000729: 06,6614           00004                           OCT      4                                     
018715,000730: 06,6615           00015        DOUBLK             OCT      15                                    #  DEC 13
018716,000731: 06,6616           00011                           OCT      11                                    #  DEC 9
018717,000732: 06,6617           00003                           OCT      3                                     
018718,000733: 
018719,000734: 06,6620           77774        BRNCHCON           OCT      77774                                 
018720,000735: 
018721,000736:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
018722,000737:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
018723,000738: 
018724,000739: 06,6621           30001        2BLANK             XCH      Q                                     
018725,000740: 06,6622           50112                           TS       BLANKRET                              
018726,000741: 06,6623           40614                           CS       DSPCOUNT                              
018727,000742: 06,6624           40000                           CS       A                                     
018728,000743: 06,6625           50021                           TS       SR                                    
018729,000744: 06,6626           46637                           CS       BLANKCON                              
018730,000745: 06,6627           20017                           INHINT                                         
018731,000746: 06,6630           20021                           INDEX    SR                                    

Page 496

018733,000748: 06,6631           30710                           XCH      DSPTAB                                
018734,000749: 06,6632           10000                           CCS      A                                     
018735,000750: 06,6633           06640                           TC       INCNOUT                               #  IF OLD CONTENTS +,+1 TO NOUT
018736,000751: 06,6634           03062                           TC       CCSHOLE                               
018737,000752: 06,6635           20016                           RELINT                                         #  IF -,NOUT OK
018738,000753: 06,6636           00112                           TC       BLANKRET                              
018739,000754: 06,6637           04000        BLANKCON           OCT      4000                                  
018740,000755: 
018741,000756: 06,6640           30707        INCNOUT            XCH      NOUT                                  
018742,000757: 06,6641           64516                           AD       ONE                                   
018743,000758: 06,6642           50707                           TS       NOUT                                  
018744,000759: 06,6643           20001                           INDEX    Q                                     
018745,000760: 06,6644           00001                           TC       1                                     #  RETURN TO 2+ L(CALLING TC)
018746,000761: 

Page 497

018748,000763: 
018749,000764:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
018750,000765:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
018751,000766:                                                                                                  #  PASSES.
018752,000767: 
018753,000768: 07,6000                                           SETLOC   16000                                 
018754,000769: 
018755,000770: 07,6000           07354        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS, DONT MOVE.
018756,000771: 07,6001           07434        GRABUSYB           TC       GRABUSY1                              
018757,000772: 07,6002           07456        NVSUBSYB           TC       NVSUBSY1                              
018758,000773: 07,6003           30001        DSPMM              XCH      Q                                     
018759,000774: 07,6004           50063                           TS       UPDATRET                              
018760,000775: 07,6005           07423                           TC       DSPMM1                                
018761,000776: 07,6006           06705        LOADLV1            TC       LOADLV                                
018762,000777:                                                                                                  #  END OF STANDARD LEAD INS.
018763,000778: 
018764,000779: 
018765,000780: 
018766,000781: 07,6007           35501        ENTER              CAF      ZERO                                  
018767,000782: 07,6010           50633                           TS       CLPASS                                
018768,000783: 07,6011           33147                           CAF      ENDINST                               
018769,000784: 07,6012           50065                           TS       ENTRET                                
018770,000785: 07,6013           10613                           CCS      REQRET                                
018771,000786: 07,6014           06035                           TC       ENTPAS0                               #  IF +, PASS 0
018772,000787: 07,6015           06035                           TC       ENTPAS0                               #  IF +, PASS 0
018773,000788: 07,6016           06017                           TC       +1                                    #  IF -, NOT PASS 0
018774,000789: 07,6017           34473                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN
018775,000790: 07,6020           70615                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
018776,000791: 07,6021           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
018777,000792: 07,6022           06024                           TC       +2                                    #  CHARACTERS AND CONTINUE.
018778,000793: 07,6023           06030                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
018779,000794: 07,6024           10614                           CCS      DSPCOUNT                              
018780,000795: 07,6025           06356                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018781,000796: 07,6026           06356                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018782,000797: 07,6027           06030                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
018783,000798: 07,6030           40613        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
018784,000799: 07,6031           50613                           TS       REQRET                                #  SET REQRET +.
018785,000800: 07,6032           05654                           TC       BANKCALL                              
018786,000801: 07,6033           14003                           CADR     FLASHOFF                              
018787,000802: 07,6034           00613                           TC       REQRET                                
018788,000803: 
018789,000804: 07,6035     0065               ENTEXIT            =        ENTRET                                
018790,000805: 
018791,000806: 07,6035           35501        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
018792,000807: 07,6036           50615                           TS       DECBRNCH                              
018793,000808: 07,6037           40602        TESTVB             CS       VERBREG                               #  IF VERB IS 32-77, SKIP NOUN TEST
018794,000809: 07,6040           66043                           AD       LOWVERB                               #  32-VB
018795,000810: 07,6041           10000                           CCS      A                                     
018796,000811: 07,6042           06046                           TC       TESTNN                                #  VERB L/ 32
018797,000812: 07,6043           00032        LOWVERB            OCT      32                                    #  LOWER VERB THAT AVOIDS NOUN TEST
018798,000813: 07,6044           06045                           TC       +1                                    #  VERB G/ 32

Page 498

018800,000815: 07,6045           06130                           TC       VERBFAN                               #  VERB=32
018801,000816: 07,6046           36107        TESTNN             CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018802,000817: 07,6047           05662                           TC       SWCALL                                #  ROUTINE.
018803,000818: 07,6050           20107                           INDEX    MIXBR                                 
018804,000819: 07,6051           06051                           TC       +0                                    
018805,000820: 07,6052           06054                           TC       +2                                    #  NORMAL
018806,000821: 07,6053           06210                           TC       MIXNOUN                               #  MIXED
018807,000822: 07,6054           10054                           CCS      NNADTEM                               #  NORMAL
018808,000823: 07,6055           06126                           TC       VERBFAN    -2                         #       NORMAL IF +
018809,000824: 07,6056           06356                           TC       GODSPALM                              #  NOT IN USE   IF +0
018810,000825: 07,6057           06067                           TC       REQADD                                #  SPECIFY MACHINE ADDRESS IF -
018811,000826: 07,6060           33173                           CAF      R3D1                                  #  AUGMENT MACHINE ADDRESS IF -0
018812,000827: 07,6061           50614                           TS       DSPCOUNT                              
018813,000828: 07,6062           30624                           XCH      NOUNADD                               
018814,000829: 07,6063           64516                           AD       ONE                                   
018815,000830: 07,6064           50624                           TS       NOUNADD                               
018816,000831: 07,6065           07225                           TC       DSPOCTWD                              
018817,000832: 07,6066           06130                           TC       VERBFAN                               
018818,000833: 07,6067           34500        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018819,000834: 07,6070           50633                           TS       CLPASS                                
018820,000835: 07,6071           43147                           CS       ENDINST                               
018821,000836: 07,6072           60065                           AD       ENTEXIT                               
018822,000837: 07,6073           10000                           CCS      A                                     #  TEST IF REACHED HERE FROM INTERNAL OR
018823,000838: 07,6074           06110                           TC       INTMATBS                              #                FROM EXTERNAL
018824,000839: 07,6075           03062                           TC       CCSHOLE                               
018825,000840: 07,6076           06110                           TC       INTMATBS                              
018826,000841: 07,6077           06304                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
018827,000842: 07,6100           10615                           CCS      DECBRNCH                              
018828,000843: 07,6101           06356                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MATBS
018829,000844: 07,6102           30606                           XCH      ZREG                                  #  OCTAL USED    OK
018830,000845: 07,6103           50624                           TS       NOUNADD                               
018831,000846: 07,6104           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018832,000847: 07,6105           05662                           TC       SWCALL                                #  ROUTINE.
018833,000848: 07,6106           06130                           TC       VERBFAN                               
018834,000849: 
018835,000850: 07,6107           13153        LODNNLOC           CADR     LODNNTAB                              
018836,000851: 
018837,000852: 07,6110           44513        INTMATBS           CS       BIT4                                  
018838,000853: 07,6111           70602                           MASK     VERBREG                               #  MAKES VB 15 LOOK LIKE VB 05.
018839,000854: 07,6112           66115                           AD       NEG5                                  
018840,000855: 07,6113           10000                           CCS      A                                     
018841,000856: 07,6114           06120                           TC       DSPADD                                #  VB NOT = 05 OR 15, DISPLAY ADDRESS.
018842,000857: 07,6115           77772        NEG5               OCT      77772                                 
018843,000858: 07,6116           06120                           TC       DSPADD                                #  VB NOT = 05 OR 15, DISPLAY ADDRESS.
018844,000859: 07,6117           06130                           TC       VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY ADDRESS.
018845,000860: 07,6120           33173        DSPADD             CAF      R3D1                                  
018846,000861: 07,6121           50614                           TS       DSPCOUNT                              
018847,000862: 07,6122           40624                           CS       NOUNADD                               
018848,000863: 07,6123           40000                           CS       A                                     
018849,000864: 07,6124           07225                           TC       DSPOCTWD                              

Page 499

018851,000866: 07,6125           06130                           TC       VERBFAN                               
018852,000867: 
018853,000868: 07,6126           64516                           AD       ONE                                   
018854,000869: 07,6127           50624                           TS       NOUNADD                               
018855,000870: 07,6130           46143        VERBFAN            CS       LST2CON                               
018856,000871: 07,6131           60602                           AD       VERBREG                               #  VERB-LST2CON
018857,000872: 07,6132           10000                           CCS      A                                     
018858,000873: 07,6133           64516                           AD       ONE                                   #  VERB G/ LST2CON
018859,000874: 07,6134           06136                           TC       +2                                    
018860,000875: 07,6135           06145                           TC       VBFANDIR                              #  VERB L/ LST2CON
018861,000876: 07,6136           50115        JAMEXTVB           TS       MPAC                                  #  SPECIAL ENTRY FOR FORCING EXTENDED VERB.
018862,000877: 07,6137           03323                           TC       RELDSP                                #  RELEASE DISPLAY SYST
018863,000878: 07,6140           30115                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
018864,000879: 07,6141           66144                           AD       LST2CADR                              
018865,000880: 07,6142           05723                           TC       BANKJUMP                              
018866,000881: 07,6143           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
018867,000882: 07,6144           12000        LST2CADR           CADR     LST2FAN                               #  THE LST2 FAN IS LOCATED IN BANK 05
018868,000883: 
018869,000884: 07,6145           20602        VBFANDIR           INDEX    VERBREG                               
018870,000885: 07,6146           36150                           CAF      VERBTAB                               
018871,000886: 07,6147           05723                           TC       BANKJUMP                              
018872,000887: 
018873,000888: 07,6150           16356        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
018874,000889: 07,6151           16372                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
018875,000890: 07,6152           16377                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
018876,000891: 07,6153           16404                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
018877,000892: 07,6154           16365                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
018878,000893: 07,6155           16360                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
018879,000894: 07,6156           16476                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
018880,000895: 07,6157           15030                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
018881,000896: 07,6160           17342                           CADR     VBRQWAIT                              #  VB10 REQUEST WAITLIST
018882,000897: 07,6161           17102                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
018883,000898: 07,6162           17102                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
018884,000899: 07,6163           17102                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
018885,000900: 07,6164           17102                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
018886,000901: 07,6165           17102                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
018887,000902: 07,6166           17102                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
018888,000903: 07,6167           17102                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
018889,000904: 07,6170           17321        REQEXLOC           CADR     VBRQEXEC                              #  VB20 REQUEST EXECUTIVE
018890,000905: 07,6171           16645                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
018891,000906: 07,6172           16655                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
018892,000907: 07,6173           16671                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
018893,000908: 07,6174           16620                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
018894,000909: 07,6175           16564                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
018895,000910: 07,6176           16356                           CADR     GODSPALM                              #  VB26 SPARE
018896,000911: 07,6177           16356                           CADR     GODSPALM                              #  VB27 SPARE
018897,000912: 07,6200           16356                           CADR     GODSPALM                              #  VB30 SPARE
018898,000913: 07,6201           17216                           CADR     DSPBANK                               #  VB31 BANK DISPLAY
018899,000914: 07,6202           15503                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2
018900,000915: 07,6203           15465                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA

Page 500

018902,000917: 07,6204           15472                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
018903,000918: 07,6205           15475                           CADR     VBRELDSP                              #  VB35 RELEASE DISPLAY SYST
018904,000919: 07,6206           10000                           CADR     SLAPB                                 #  VB36 FRESH START
018905,000920: 07,6207           17273                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
018906,000921: 
018907,000922: 
018908,000923: 
018909,000924:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN BANK 05.
018910,000925: 

Page 501

018912,000927: 
018913,000928:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
018914,000929:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
018915,000930:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
018916,000931:                                                                                                  #  MIXTEMP.
018917,000932: 
018918,000933: 07,6210           10054        MIXNOUN            CCS      NNADTEM                               
018919,000934: 07,6211           06215                           TC       +4                                    #  +  IN USE
018920,000935: 07,6212           06356                           TC       GODSPALM                              #  +0  NOT IN USE
018921,000936: 07,6213           06215                           TC       +2                                    #  -  IN USE
018922,000937: 07,6214           06215                           TC       +1                                    #  -0  IN USE
018923,000938: 07,6215           44475                           CS       SIX                                   
018924,000939: 07,6216           60602                           AD       VERBREG                               
018925,000940: 07,6217           10000                           CCS      A                                     #  AVOID MIXNOUN SWAP FOR OTHER THAN
018926,000941: 07,6220           06130                           TC       VERBFAN                               #        DISPLAY VERBS
018927,000942: 07,6221           03062                           TC       CCSHOLE                               
018928,000943: 07,6222           06223                           TC       +1                                    
018929,000944: 07,6223           35503                           CAF      TWO                                   
018930,000945: 07,6224           50064        MIXNN1             TS       NOUNTEM                               
018931,000946: 07,6225           66254                           AD       MIXAD                                 
018932,000947: 07,6226           50624                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
018933,000948: 07,6227           20064                           INDEX    NOUNTEM                               
018934,000949: 07,6230           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
018935,000950: 07,6231           40000                           CS       A                                     #  OF NOUN.
018936,000951: 07,6232           50063                           TS       DECOUNT                               
018937,000952:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
018938,000953:                                                                                                  #    MINOR PART ONLY.
018939,000954: 07,6233           72261                           MASK     HI5                                   
018940,000955: 07,6234           03203                           TC       LEFT5                                 #  SF ROUT NUMBER IN A
018941,000956: 07,6235           06255                           TC       DPTEST                                
018942,000957: 07,6236           06242                           TC       MIXNN2                                #  NO DP
018943,000958: 07,6237           34516                           CAF      ONE                                   #  DP  GET MINOR PART
018944,000959: 07,6240           60063                           AD       DECOUNT                               
018945,000960: 07,6241           50063                           TS       DECOUNT                               
018946,000961: 07,6242           30063        MIXNN2             XCH      DECOUNT                               
018947,000962: 07,6243           74606                           MASK     LOW10                                 #  ESUBK (NO DP)  OR  (ESUBK)+1    FOR DP
018948,000963: 07,6244           20000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP.
018949,000964: 07,6245           40000                           CS       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
018950,000965: 07,6246           40000                           CS       A                                     
018951,000966: 07,6247           20624                           INDEX    NOUNADD                               
018952,000967: 07,6250           30000                           XCH      0                                     #  STORE IN MIXTEM + K
018953,000968: 07,6251           10064                           CCS      NOUNTEM                               
018954,000969: 07,6252           06224                           TC       MIXNN1                                
018955,000970: 07,6253           06130                           TC       VERBFAN                               
018956,000971: 
018957,000972: 07,6254           00073        MIXAD              TC       MIXTEMP                               
018958,000973: 
018959,000974: 
018960,000975: 
018961,000976: 07,6255           50110        DPTEST             TS       SFTEMP1                               #  ENTER WITH SF ROUT NUMBER IN A.
018962,000977: 07,6256           30001                           XCH      Q                                     #  RETURNS TO L+1 IF NO DP

Page 502

018964,000979: 07,6257           30110                           XCH      SFTEMP1                               #  RETURNS TO L+2 IF DP
018965,000980: 07,6260           20000                           INDEX    A                                     
018966,000981: 07,6261           06262                           TC       +1                                    
018967,000982: 07,6262           00110                           TC       SFTEMP1                               #  OCTAL ONLY  NO DP
018968,000983: 07,6263           00110                           TC       SFTEMP1                               #  FRACT NO DP
018969,000984: 07,6264           00110                           TC       SFTEMP1                               #  DEG  NO DP
018970,000985: 07,6265           00110                           TC       SFTEMP1                               #  ARITH  NO DP
018971,000986: 07,6266           06272                           TC       DPTEST1                               #  DP1OUT
018972,000987: 07,6267           06272                           TC       DPTEST1                               #  DP2OUT
018973,000988: 07,6270           00110                           TC       SFTEMP1                               #  OPDEG  NO DP
018974,000989: 07,6271           06272                           TC       DPTEST1                               #  DP3OUT
018975,000990: 07,6272           20110        DPTEST1            INDEX    SFTEMP1                               
018976,000991: 07,6273           00001                           TC       1                                     #  RETURN TO L+2
018977,000992: 
018978,000993: 
018979,000994: 
018980,000995: 07,6274           40001        REQDATX            CS       Q                                     
018981,000996: 07,6275           50613                           TS       REQRET                                
018982,000997: 07,6276           33171                           CAF      R1D1                                  
018983,000998: 07,6277           06307                           TC       REQCOM                                
018984,000999: 07,6300           40001        REQDATY            CS       Q                                     
018985,001000: 07,6301           50613                           TS       REQRET                                
018986,001001: 07,6302           33172                           CAF      R2D1                                  
018987,001002: 07,6303           06307                           TC       REQCOM                                
018988,001003: 07,6304           40001        REQDATZ            CS       Q                                     
018989,001004: 07,6305           50613                           TS       REQRET                                
018990,001005: 07,6306           33173                           CAF      R3D1                                  
018991,001006: 07,6307           50614        REQCOM             TS       DSPCOUNT                              
018992,001007: 07,6310           05654                           TC       BANKCALL                              
018993,001008: 07,6311           14554                           CADR     5BLANK                                
018994,001009: 07,6312           05654                           TC       BANKCALL                              
018995,001010: 07,6313           14000                           CADR     FLASHON                               
018996,001011: 07,6314           43147                           CS       ENDINST                               
018997,001012: 07,6315           60065                           AD       ENTEXIT                               
018998,001013: 07,6316           10000                           CCS      A                                     
018999,001014: 07,6317           06323                           TC       +4                                    #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
019000,001015: 07,6320           03062                           TC       CCSHOLE                               
019001,001016: 07,6321           06323                           TC       +2                                    #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
019002,001017: 07,6322           00065                           TC       ENTEXIT                               #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
019003,001018: 07,6323           45501                           CS       ZERO                                  #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
019004,001019: 07,6324           50627                           TS       CADRSTOR                              
019005,001020: 07,6325           00065                           TC       ENTEXIT                               
019006,001021: 
019007,001022:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
019008,001023:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FRO DATAWAIT)
019009,001024: 
019010,001025: 
019011,001026: 
019012,001027: 07,6326           50603                           TS       NOUNREG                               
019013,001028: 07,6327           30001        UPDATNN            XCH      Q                                     

Page 503

019015,001030: 07,6330           50063                           TS       UPDATRET                              
019016,001031: 07,6331           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019017,001032: 07,6332           05662                           TC       SWCALL                                #  ROUTINE.
019018,001033: 07,6333           10054                           CCS      NNADTEM                               
019019,001034: 07,6334           64516                           AD       ONE                                   #  NORMAL
019020,001035: 07,6335           06340                           TC       PUTADD                                
019021,001036: 07,6336           06341                           TC       PUTADD     +1                         #  MATBS  DONT CHANGE NOUNADD
019022,001037: 07,6337           06341                           TC       PUTADD     +1                         #  MATBI  DONT CHANGE NOUNADD
019023,001038: 07,6340           50624        PUTADD             TS       NOUNADD                               
019024,001039: 07,6341           33230                           CAF      ND1                                   
019025,001040: 07,6342           50614                           TS       DSPCOUNT                              
019026,001041: 07,6343           40603                           CS       NOUNREG                               
019027,001042: 07,6344           06353                           TC       UPDAT1                                
019028,001043: 
019029,001044: 07,6345           50602                           TS       VERBREG                               
019030,001045: 07,6346           30001        UPDATVB            XCH      Q                                     
019031,001046: 07,6347           50063                           TS       UPDATRET                              
019032,001047: 07,6350           33227                           CAF      VD1                                   
019033,001048: 07,6351           50614                           TS       DSPCOUNT                              
019034,001049: 07,6352           40602                           CS       VERBREG                               
019035,001050: 07,6353           40000        UPDAT1             CS       A                                     
019036,001051: 07,6354           07261                           TC       DSP2BIT                               
019037,001052: 07,6355           00063                           TC       UPDATRET                              
019038,001053: 
019039,001054: 
019040,001055: 
019041,001056: 07,6356           05720        GODSPALM           TC       POSTJUMP                              
019042,001057: 07,6357           15442                           CADR     DSPALARM                              
019043,001058: 

Page 504

019045,001060: 
019046,001061:                                                                                                  #        NOUN TABLES
019047,001062:                                                                                                  #  NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
019048,001063:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE MACHINE ADDRESS FOR EACH NOUN.
019049,001064:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY IDICATES MACHINE ADDRESS TO BE
019050,001065:                                                                                                  #  SPECIFIED.      -0 INDICATES AUGMENT OF LAST MACHINE ADDRESS.
019051,001066: 
019052,001067:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
019053,001068:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
019054,001069: 
019055,001070:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
019056,001071: 
019057,001072:                                                                                                  #  FOR THE NORMAL CASE, M'S ARE THE COMPONENT CODE NUMBER.
019058,001073:                                                                                                  #                       N'S ARE THE SF ROUTINE CODE NUMBER.
019059,001074:                                                                                                  #                       P'S ARE THE SF CONSTANT CODE NUMBER.
019060,001075: 
019061,001076:                                                                                                  #  MIXED-CASE,M'S ARE THE SF CONSTANT3 CODE NUMBER       3 COMPONENT CASE
019062,001077:                                                                                                  #             N'S ARE THE SF CONSTANT2 CODE NUMBER
019063,001078:                                                                                                  #             P'S ARE THE SF CONSTANT1 CODE NUMBER
019064,001079:                                                                                                  #             N'S ARE THE SF CONSTANT2 CODE NUMBER       2 COMPONENT CASE
019065,001080:                                                                                                  #             P'S ARE THE SF CONSTANT1 CODE NUMBER
019066,001081:                                                                                                  #             P'S ARE THE SF CONSTANT1 CODE NUMBER        1 COMPONENT CASE
019067,001082: 
019068,001083:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
019069,001084:                                                                                                  #  ENTRY IS OF FORM RRRRREEEEEEEEEE. IDADDREL IS THE RELATIVE ADDRESS OF
019070,001085:                                                                                                  #  THE FIRST OF THESE ENTRIES.
019071,001086:                                                                                                  #  R'S ARE THE SF ROUTINE CODE NUMBERS FOR COMPONENT K
019072,001087:                                                                                                  #  E'S ARE THE MACHINE ADDRESS FOR COMPONENT K
019073,001088:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
019074,001089:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
019075,001090: 
019076,001091:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
019077,001092:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMONENTS IN NOUN.
019078,001093:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
019079,001094:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
019080,001095:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
019081,001096: 
019082,001097: 
019083,001098: 
019084,001099:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
019085,001100:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
019086,001101: 
019087,001102:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
019088,001103:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
019089,001104: 

Page 505

019091,001106: 
019092,001107:                                                                                                  #        DISPLAY VERBS
019093,001108: 07,6360           45503        DSPABC             CS       TWO                                   
019094,001109: 07,6361           06430                           TC       COMPTEST                              
019095,001110: 07,6362           20624                           INDEX    NOUNADD                               
019096,001111: 07,6363           40002                           CS       2                                     
019097,001112: 07,6364           30101                           XCH      BUF        +2                         
019098,001113: 07,6365           44516        DSPAB              CS       ONE                                   
019099,001114: 07,6366           06430                           TC       COMPTEST                              
019100,001115: 07,6367           20624                           INDEX    NOUNADD                               
019101,001116: 07,6370           40001                           CS       1                                     
019102,001117: 07,6371           30100                           XCH      BUF        +1                         
019103,001118: 07,6372           06457        DSPA               TC       TSTFORDP                              
019104,001119: 07,6373           20624                           INDEX    NOUNADD                               
019105,001120: 07,6374           40000                           CS       0                                     
019106,001121: 07,6375           30077        DSPCOM1            XCH      BUF                                   
019107,001122: 07,6376           06411                           TC       DSPCOM2                               
019108,001123: 07,6377           44516        DSPB               CS       ONE                                   
019109,001124: 07,6400           06430                           TC       COMPTEST                              
019110,001125: 07,6401           20624                           INDEX    NOUNADD                               
019111,001126: 07,6402           40001                           CS       1                                     
019112,001127: 07,6403           06375                           TC       DSPCOM1                               
019113,001128: 07,6404           45503        DSPC               CS       TWO                                   
019114,001129: 07,6405           06430                           TC       COMPTEST                              
019115,001130: 07,6406           20624                           INDEX    NOUNADD                               
019116,001131: 07,6407           40002                           CS       2                                     
019117,001132: 07,6410           06375                           TC       DSPCOM1                               
019118,001133: 07,6411           45503        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
019119,001134: 07,6412           60602                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
019120,001135: 07,6413           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
019121,001136: 07,6414           06417                           TC       DSPCOM3                               
019122,001137: 07,6415           00065                           TC       ENTEXIT                               
019123,001138: 07,6416           06417                           TC       +1                                    
019124,001139: 07,6417           50064        DSPCOM3            TS       DISTEM                                #  +0 +1 +2 INTO DISTEM
019125,001140: 07,6420           20000                           INDEX    A                                     
019126,001141: 07,6421           33171                           CAF      R1D1                                  
019127,001142: 07,6422           50614                           TS       DSPCOUNT                              
019128,001143: 07,6423           20064                           INDEX    DISTEM                                
019129,001144: 07,6424           40077                           CS       BUF                                   
019130,001145: 07,6425           07225                           TC       DSPOCTWD                              
019131,001146: 07,6426           30064                           XCH      DISTEM                                
019132,001147: 07,6427           06413                           TC       DSPCOM2    +2                         
019133,001148: 
019134,001149:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
019135,001150:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
019136,001151:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
019137,001152: 07,6430           50110        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
019138,001153: 07,6431           30001                           XCH      Q                                     
019139,001154: 07,6432           50111                           TS       SFTEMP2                               
019140,001155: 07,6433           44516        COMPTST1           CS       ONE                                   
019141,001156: 07,6434           60603                           AD       NOUNREG                               

Page 506

019143,001158: 07,6435           10000                           CCS      A                                     
019144,001159: 07,6436           06442                           TC       +4                                    #  NOUN NOT = 01
019145,001160: 07,6437           03062                           TC       CCSHOLE                               
019146,001161: 07,6440           06442                           TC       +2                                    #  NOUN NOT = 01
019147,001162: 07,6441           00111                           TC       SFTEMP2                               #  NOUN = 01. ANY COMP OK
019148,001163: 07,6442           20107                           INDEX    MIXBR                                 
019149,001164: 07,6443           36473                           CAF      COMPICK    -1                         
019150,001165: 07,6444           20000                           INDEX    A                                     
019151,001166: 07,6445           40000                           CS       0                                     #  MUST NOT DESTROY NNADTEM OR NNTYPTEM
019152,001167: 07,6446           40000                           CS       A                                     
019153,001168: 07,6447           72261                           MASK     HI5                                   
019154,001169: 07,6450           03203                           TC       LEFT5                                 #  NOUN COMP
019155,001170: 07,6451           60110                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
019156,001171: 07,6452           10000                           CCS      A                                     
019157,001172: 07,6453           00111                           TC       SFTEMP2                               #  NOUN COMP G/ VERB COMP
019158,001173: 07,6454           03062                           TC       CCSHOLE                               
019159,001174: 07,6455           06356                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
019160,001175: 07,6456           00111                           TC       SFTEMP2                               #  NOUN COMP = VERB COMP
019161,001176: 
019162,001177: 
019163,001178: 
019164,001179: 07,6457           30001        TSTFORDP           XCH      Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
019165,001180: 07,6460           50063                           TS       DECOUNT                               
019166,001181: 07,6461           20107                           INDEX    MIXBR                                 
019167,001182: 07,6462           06462                           TC       +0                                    
019168,001183: 07,6463           06465                           TC       +2                                    #  NORMAL
019169,001184: 07,6464           00063                           TC       DECOUNT                               #  MIXED CASE ALREADY HANDLED IN MIXNOUN
019170,001185: 07,6465           06740                           TC       SFRUTNOR                              
019171,001186: 07,6466           06255                           TC       DPTEST                                
019172,001187: 07,6467           00063                           TC       DECOUNT                               #  NO DP
019173,001188: 07,6470           30624                           XCH      NOUNADD                               #  DP
019174,001189: 07,6471           64516                           AD       ONE                                   
019175,001190: 07,6472           50624                           TS       NOUNADD                               #  E+1 INTO NOUNADD FOR MINOR PART.
019176,001191: 07,6473           00063                           TC       DECOUNT                               
019177,001192: 
019178,001193: 
019179,001194: 
019180,001195: 07,6474           00055        COMPICK            ADRES    NNTYPTEM                              
019181,001196: 07,6475           00054                           ADRES    NNADTEM                               
019182,001197: 
019183,001198: 07,6476           20107        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
019184,001199: 07,6477           36473                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
019185,001200: 07,6500           20000                           INDEX    A                                     
019186,001201: 07,6501           40000                           CS       0                                     #  MUST NOT DESTORY NNADTEM OR NNTYPTEM
019187,001202: 07,6502           40000                           CS       A                                     #  C(NNTYPTEM)           C(NNADTEM)
019188,001203: 07,6503           72261                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM) OF NNADTAB(MIX)
019189,001204: 07,6504           03203                           TC       LEFT5                                 
019190,001205: 07,6505           50063                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
019191,001206: 07,6506           50064        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
019192,001207: 07,6507           60624                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2

Page 507

019194,001209: 07,6510           20000                           INDEX    A                                     
019195,001210: 07,6511           40000                           CS       0                                     
019196,001211: 07,6512           20064                           INDEX    DECTEM                                
019197,001212: 07,6513           30604                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
019198,001213: 07,6514           10064                           CCS      DECTEM                                
019199,001214: 07,6515           06506                           TC       DSPDCGET                              #  MORE TO GET
019200,001215: 07,6516           35501        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
019201,001216: 07,6517           50116                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
019202,001217: 07,6520           50117                           TS       MPAC       +2                         
019203,001218: 07,6521           20063                           INDEX    DECOUNT                               
019204,001219: 07,6522           33171                           CAF      R1D1                                  
019205,001220: 07,6523           50614                           TS       DSPCOUNT                              
019206,001221: 07,6524           20063                           INDEX    DECOUNT                               
019207,001222: 07,6525           40604                           CS       XREG                                  
019208,001223: 07,6526           50115                           TS       MPAC                                  
019209,001224: 07,6527           06756                           TC       SFCONUM                               #  SF CON NUMB IN A
019210,001225: 07,6530           50111                           TS       SFTEMP2                               
019211,001226: 07,6531           05654                           TC       BANKCALL                              #  SWITCH BANKS TO SF CONSTANT READING
019212,001227: 07,6532           13213                           CADR     GTSFOUT                               #  ROUTINE. LOADS SFTEMP1, SFTEMP2.
019213,001228: 07,6533           20107                           INDEX    MIXBR                                 
019214,001229: 07,6534           06534                           TC       +0                                    
019215,001230: 07,6535           06540                           TC       DSPSFNOR                              
019216,001231: 07,6536           06746                           TC       SFRUTMIX                              
019217,001232: 07,6537           06551                           TC       DECDSP3                               
019218,001233: 
019219,001234: 07,6540           06740        DSPSFNOR           TC       SFRUTNOR                              
019220,001235: 07,6541           06551                           TC       DECDSP3                               
019221,001236: 
019222,001237: 07,6542           05654        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
019223,001238: 07,6543           15241                           CADR     DSPDECWD                              
019224,001239: 07,6544           10063                           CCS      DECOUNT                               
019225,001240: 07,6545           06547                           TC       +2                                    
019226,001241: 07,6546           00065                           TC       ENTEXIT                               
019227,001242: 07,6547           50063                           TS       DECOUNT                               
019228,001243: 07,6550           06516                           TC       DSPDCPUT                              #  MORE TO DISPLAY
019229,001244: 
019230,001245: 
019231,001246: 
019232,001247: 07,6551           20000        DECDSP3            INDEX    A                                     
019233,001248: 07,6552           36554                           CAF      SFOUTABR                              
019234,001249: 07,6553           05723                           TC       BANKJUMP                              
019235,001250: 
019236,001251: 07,6554           15442        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
019237,001252: 07,6555           16542                           CADR     DSPDCEND                              
019238,001253: 07,6556           14645                           CADR     DEGOUTSF                              
019239,001254: 07,6557           14743                           CADR     ARTOUTSF                              
019240,001255: 
019241,001256: 07,6560           14752                           CADR     DP1OUTSF                              
019242,001257: 07,6561           14757                           CADR     DP2OUTSF                              
019243,001258: 07,6562           14653                           CADR     OPDEGOUT                              

Page 508

019245,001260: 07,6563           14761                           CADR     DP3OUTSF                              
019246,001261: 07,6564                        ENDRTOUT           EQUALS                                         
019247,001262: 
019248,001263: 
019249,001264: 
019250,001265:                                                                                                  #        THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
019251,001266:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
019252,001267: 
019253,001268: 
019254,001269: 
019255,001270: 06,6645                                           SETLOC   INCNOUT    +5                         
019256,001271: 
019257,001272:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
019258,001273:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
019259,001274: 
019260,001275: 06,6645           35501        DEGOUTSF           CAF      ZERO                                  
019261,001276: 06,6646           50117                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
019262,001277: 06,6647           06707                           TC       FIXRANGE                              
019263,001278: 06,6650           06652                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
019264,001279: 06,6651           06700                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
019265,001280: 06,6652           06722                           TC       DEGCOM                                
019266,001281: 
019267,001282:                                                                                                  #    OPDEGOUT SCALES BY .09 FOR ONE RANGE AND BY .45 FOR THE OTHER.
019268,001283:                                                                                                  #  FOR THE .45 RANGE A .2 BIAS IS ALSO ADDED.
019269,001284: 
019270,001285: 
019271,001286: 
019272,001287:                                                                                                  #  OPDEGOUT IS USED TO TEST BIT 13 OF WASOPSET (1 = 90 DEG RANGE, 0 = 180).
019273,001288:                                                                                                  #  SINCE THAT BIT IS ALWAYS 1 IN BLOCK 50 - 100, DON'T TEST IT NOW
019274,001289: 06,6653           10115        OPDEGOUT           CCS      MPAC                                  #  90 DEG RANGE ALWAYS
019275,001290: 06,6654           30115                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
019276,001291: 06,6655           06660                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
019277,001292: 06,6656           06670                           TC       NEGOPT                                #  IF NEG NON ZERO
019278,001293: 06,6657           64335                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
019279,001294: 06,6660           66742                           AD       20BIAS                                
019280,001295: 06,6661           50115        BIASCOM            TS       MPAC                                  #  TEST FOR OVEFLOW
019281,001296: 06,6662           06666                           TC       +4                                    #  NO OVFLOW
019282,001297: 06,6663           34500                           CAF      BIT15                                 #  IF OVFLOW
019283,001298: 06,6664           60115                           AD       MPAC                                  
019284,001299: 06,6665           50115                           TS       MPAC                                  
019285,001300: 06,6666           35503                           CAF      TWO                                   #  SET MULTIPLIER TO .45
019286,001301: 06,6667           06646                           TC       DEGOUTSF   +1                         
019287,001302: 
019288,001303: 06,6670           30115        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
019289,001304: 06,6671           66742                           AD       20BIAS                                
019290,001305: 06,6672           10000                           CCS      A                                     
019291,001306: 06,6673           06661                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECASUE OF 2SCOM
019292,001307: 06,6674           03062                           TC       CCSHOLE                               
019293,001308: 06,6675           64516                           AD       ONE                                   #  IF NEG RESTORE SUM
019294,001309: 06,6676           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0

Page 509

019296,001311: 06,6677           06661                           TC       BIASCOM                               
019297,001312: 
019298,001313: 06,6700           20117        SETAUG             INDEX    MPAC       +2                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
019299,001314: 06,6701           36737                           CAF      DEGTAB2                               #  DP AUGMENTER CONSTANT
019300,001315: 06,6702           50111                           TS       SFTEMP2                               
019301,001316: 06,6703           20117                           INDEX    MPAC       +2                         
019302,001317: 06,6704           36734                           CAF      DEGTAB1                               
019303,001318: 06,6705           50110                           TS       SFTEMP1                               
019304,001319: 06,6706           00001                           TC       Q                                     
019305,001320: 
019306,001321: 06,6707           30001        FIXRANGE           XCH      Q                                     #  IF MPAC IS + RETURN TO L+1
019307,001322: 06,6710           50106                           TS       WDRET                                 #  IF MPAC IS - RETURN TO L+2 AFTER
019308,001323: 06,6711           10115                           CCS      MPAC                                  #  MASKING OUT THE SIGN BIT
019309,001324: 06,6712           00106                           TC       WDRET                                 
019310,001325: 06,6713           00106                           TC       WDRET                                 
019311,001326: 06,6714           06715                           TC       +1                                    
019312,001327: 06,6715           44500                           CS       BIT15                                 
019313,001328: 06,6716           70115                           MASK     MPAC                                  
019314,001329: 06,6717           50115                           TS       MPAC                                  
019315,001330: 06,6720           20106                           INDEX    WDRET                                 
019316,001331: 06,6721           00001                           TC       1                                     
019317,001332: 
019318,001333: 06,6722           20117        DEGCOM             INDEX    MPAC       +2                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
019319,001334: 06,6723           36737                           CAF      DEGTAB2                               #  ADDS AUTMENTER.
019320,001335: 06,6724           50116                           TS       MPAC       +1                         
019321,001336: 06,6725           20117                           INDEX    MPAC       +2                         
019322,001337: 06,6726           36734                           CAF      DEGTAB1                               
019323,001338: 06,6727           30115                           XCH      MPAC                                  #  ADJUSTED ANGLE IN A
019324,001339: 06,6730           05416                           TC       SHORTMP                               
019325,001340: 06,6731           05171                           TC       DAD                                   
019326,001341: 06,6732           00110                           ADRES    SFTEMP1                               
019327,001342: 06,6733           06750                           TC       SCOUTEND                              
019328,001343: 
019329,001344: 
019330,001345: 
019331,001346: 06,6734           05605        DEGTAB1            OCT      05605                                 #  HI PART OF    .18
019332,001347: 06,6735           02702                           OCT      02702                                 #                .09
019333,001348: 06,6736           16314                           OCT      16314                                 #  .45
019334,001349: 
019335,001350: 06,6737           03656        DEGTAB2            OCT      03656                                 #  LOW PART OF   .18
019336,001351: 06,6740           21727                           OCT      21727                                 #                .09
019337,001352: 06,6741           31463                           OCT      31463                                 #  .45
019338,001353: 
019339,001354: 06,6742           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
019340,001355: 
019341,001356: 06,6743           30111        ARTOUTSF           XCH      SFTEMP2                               #  ASSUMES POINT AT LEFT OF DP SFCON.
019342,001357: 06,6744           50116                           TS       MPAC       +1                         
019343,001358: 06,6745           30110                           XCH      SFTEMP1                               #  HI PART OF SFCONSTANT
019344,001359: 06,6746           30115                           XCH      MPAC                                  
019345,001360: 06,6747           05416                           TC       SHORTMP                               

Page 510

019347,001362: 06,6750           05720        SCOUTEND           TC       POSTJUMP                              
019348,001363: 06,6751           16542                           CADR     DSPDCEND                              
019349,001364: 
019350,001365: 06,6752           06764        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019351,001366: 06,6753           30117                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
019352,001367: 06,6754           30116                           XCH      MPAC       +1                         #  BY B14.
019353,001368: 06,6755           50115                           TS       MPAC                                  
019354,001369: 06,6756           06750                           TC       SCOUTEND                              
019355,001370: 
019356,001371: 
019357,001372: 
019358,001373: 06,6757           06764        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019359,001374: 06,6760           06750                           TC       SCOUTEND                              
019360,001375: 
019361,001376: 
019362,001377: 
019363,001378: 06,6761           06764        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019364,001379: 06,6762           07213                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
019365,001380: 06,6763           06750                           TC       SCOUTEND                              
019366,001381: 
019367,001382: 
019368,001383: 
019369,001384:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
019370,001385:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
019371,001386: 
019372,001387: 06,6764           30001        DPOUT              XCH      Q                                     
019373,001388: 06,6765           50122                           TS       OVFIND                                
019374,001389: 06,6766           20107                           INDEX    MIXBR                                 
019375,001390: 06,6767           06767                           TC       +0                                    
019376,001391: 06,6770           07025                           TC       DPOUTNOR                              
019377,001392: 06,6771           20063                           INDEX    DECOUNT                               
019378,001393: 06,6772           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
019379,001394: 06,6773           40000                           CS       A                                     #  OF NOUN.
019380,001395: 06,6774           74606                           MASK     LOW10                                 #  E SUBK
019381,001396: 06,6775           50117        DPOUTCOM           TS       MPAC       +2                         
019382,001397: 06,6776           20017                           INHINT                                         
019383,001398: 06,6777           20117                           INDEX    MPAC       +2                         
019384,001399: 06,7000           40000                           CS       0                                     #  MIXED         NORMAL
019385,001400: 06,7001           40000                           COM                                            #  C(ESUBK)      C(E)
019386,001401: 06,7002           30115                           XCH      MPAC                                  
019387,001402: 06,7003           20117                           INDEX    MPAC       +2                         
019388,001403: 06,7004           40001                           CS       1                                     #  C((E SUBK)+1) C(E+1)
019389,001404: 06,7005           20016                           RELINT                                         
019390,001405: 06,7006           40000                           COM                                            
019391,001406: 06,7007           30116                           XCH      MPAC       +1                         
019392,001407: 06,7010           10116                           CCS      MPAC       +1                         #  TEST IF LOW PART +0 IN CASE PICKING UP
019393,001408: 06,7011           07014                           TC       +3                                    #  TIME, IF SO COULD HAVE OVFLOD, SO GET
019394,001409: 06,7012           07021                           TC       +0CASE                                #  UP TO DATE HIGH PART. IF NOT +0, NO
019395,001410: 06,7013           07014                           TC       +1                                    #  PROBLEM.
019396,001411: 06,7014           05157        +0RET              TC       DMP                                   

Page 511

019398,001413: 06,7015           50107                           XCADR    SFTEMP1                               
019399,001414: 06,7016           05654                           TC       BANKCALL                              
019400,001415: 06,7017           07154                           CADR     TPAGREE                               
019401,001416: 06,7020           00122                           TC       OVFIND                                
019402,001417: 
019403,001418: 06,7021           20117        +0CASE             INDEX    MPAC       +2                         
019404,001419: 06,7022           60000                           AD       0                                     
019405,001420: 06,7023           30115                           XCH      MPAC                                  
019406,001421: 06,7024           07014                           TC       +0RET                                 
019407,001422: 
019408,001423: 06,7025           40624        DPOUTNOR           CS       NOUNADD                               
019409,001424: 06,7026           40000                           CS       A                                     #  E
019410,001425: 06,7027           06775                           TC       DPOUTCOM                              
019411,001426: 
019412,001427:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
019413,001428:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
019414,001429:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
019415,001430:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
019416,001431:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
019417,001432:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
019418,001433: 
019419,001434: 
019420,001435: 
019421,001436: 06,7030           20107        DSPDPDEC           INDEX    MIXBR                                 
019422,001437: 06,7031           07031                           TC       +0                                    
019423,001438: 06,7032           07034                           TC       +2                                    #  NORMAL NOUN
019424,001439: 06,7033           07442                           TC       DSPALARM                              
019425,001440: 06,7034           20624                           INDEX    NOUNADD                               
019426,001441: 06,7035           40000                           CS       0                                     
019427,001442: 06,7036           40000                           COM                                            
019428,001443: 06,7037           30115                           XCH      MPAC                                  #  LOAD MPAC WITH HIGH ORDER PART
019429,001444: 06,7040           20624                           INDEX    NOUNADD                               
019430,001445: 06,7041           40001                           CS       1                                     
019431,001446: 06,7042           40000                           COM                                            
019432,001447: 06,7043           30116                           XCH      MPAC       +1                         #  LOAD MPAC+1 WITH LOW ORDER PART
019433,001448: 06,7044           33171                           CAF      R1D1                                  
019434,001449: 06,7045           50614                           TS       DSPCOUNT                              
019435,001450: 06,7046           35501                           CAF      ZERO                                  
019436,001451: 06,7047           50117                           TS       MPAC       +2                         
019437,001452: 06,7050           05654                           TC       BANKCALL                              
019438,001453: 06,7051           07154                           CADR     TPAGREE                               
019439,001454: 06,7052           07315                           TC       DSP2DEC                               
019440,001455: 06,7053           00065        ENDDPDEC           TC       ENTEXIT                               
019441,001456: 

Page 512

019443,001458: 
019444,001459:                                                                                                  #        LOAD VERBS
019445,001460: 
019446,001461: 
019447,001462: 
019448,001463: 07,6564                                           SETLOC   ENDRTOUT                              
019449,001464: 
019450,001465: 07,6564           45503        ABCLOAD            CS       TWO                                   
019451,001466: 07,6565           06430                           TC       COMPTEST                              
019452,001467: 07,6566           36715                           CAF      VBSP1LD                               
019453,001468: 07,6567           06345                           TC       UPDATVB    -1                         
019454,001469: 07,6570           06274                           TC       REQDATX                               
019455,001470: 07,6571           36716                           CAF      VBSP2LD                               
019456,001471: 07,6572           06345                           TC       UPDATVB    -1                         
019457,001472: 07,6573           06300                           TC       REQDATY                               
019458,001473: 07,6574           36717                           CAF      VBSP3LD                               
019459,001474: 07,6575           06345                           TC       UPDATVB    -1                         
019460,001475: 07,6576           06304                           TC       REQDATZ                               
019461,001476: 
019462,001477: 
019463,001478: 
019464,001479: 07,6577           44475        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
019465,001480: 07,6600           06720                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
019466,001481: 07,6601           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019467,001482: 07,6602           05662                           TC       SWCALL                                #  ROUTINE.
019468,001483: 07,6603           35501                           CAF      ZERO                                  #  X COMP
019469,001484: 07,6604           07000                           TC       PUTCOM                                
019470,001485: 07,6605           20624                           INDEX    NOUNADD                               
019471,001486: 07,6606           50000                           TS       0                                     
019472,001487: 07,6607           34516                           CAF      ONE                                   #  Y COMP
019473,001488: 07,6610           07000                           TC       PUTCOM                                
019474,001489: 07,6611           20624                           INDEX    NOUNADD                               
019475,001490: 07,6612           50001                           TS       1                                     
019476,001491: 07,6613           35503                           CAF      TWO                                   #  Z COMP
019477,001492: 07,6614           07000                           TC       PUTCOM                                
019478,001493: 07,6615           20624                           INDEX    NOUNADD                               
019479,001494: 07,6616           50002                           TS       2                                     
019480,001495: 07,6617           06705                           TC       LOADLV                                
019481,001496: 
019482,001497: 07,6620           44516        ABLOAD             CS       ONE                                   
019483,001498: 07,6621           06430                           TC       COMPTEST                              
019484,001499: 07,6622           36715                           CAF      VBSP1LD                               
019485,001500: 07,6623           06345                           TC       UPDATVB    -1                         
019486,001501: 07,6624           06274                           TC       REQDATX                               
019487,001502: 07,6625           36716                           CAF      VBSP2LD                               
019488,001503: 07,6626           06345                           TC       UPDATVB    -1                         
019489,001504: 07,6627           06300                           TC       REQDATY                               
019490,001505: 07,6630           44477        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
019491,001506: 07,6631           06720                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
019492,001507: 07,6632           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019493,001508: 07,6633           05662                           TC       SWCALL                                #  ROUTINE.

Page 513

019495,001510: 07,6634           35501                           CAF      ZERO                                  #  X COMP
019496,001511: 07,6635           07000                           TC       PUTCOM                                
019497,001512: 07,6636           20624                           INDEX    NOUNADD                               
019498,001513: 07,6637           50000                           TS       0                                     
019499,001514: 07,6640           34516                           CAF      ONE                                   #  Y COMP
019500,001515: 07,6641           07000                           TC       PUTCOM                                
019501,001516: 07,6642           20624                           INDEX    NOUNADD                               
019502,001517: 07,6643           50001                           TS       1                                     
019503,001518: 07,6644           06705                           TC       LOADLV                                
019504,001519: 
019505,001520: 07,6645           06274        ALOAD              TC       REQDATX                               
019506,001521: 07,6646           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019507,001522: 07,6647           05662                           TC       SWCALL                                #  ROUTINE.
019508,001523: 07,6650           35501                           CAF      ZERO                                  #  X COMP
019509,001524: 07,6651           07000                           TC       PUTCOM                                
019510,001525: 07,6652           20624                           INDEX    NOUNADD                               
019511,001526: 07,6653           50000                           TS       0                                     
019512,001527: 07,6654           06705                           TC       LOADLV                                
019513,001528: 
019514,001529: 07,6655           44516        BLOAD              CS       ONE                                   
019515,001530: 07,6656           06430                           TC       COMPTEST                              
019516,001531: 07,6657           34500                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
019517,001532: 07,6660           50633                           TS       CLPASS                                
019518,001533: 07,6661           06300                           TC       REQDATY                               
019519,001534: 07,6662           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019520,001535: 07,6663           05662                           TC       SWCALL                                #  ROUTINE.
019521,001536: 07,6664           34516                           CAF      ONE                                   
019522,001537: 07,6665           07000                           TC       PUTCOM                                
019523,001538: 07,6666           20624                           INDEX    NOUNADD                               
019524,001539: 07,6667           50001                           TS       1                                     
019525,001540: 07,6670           06705                           TC       LOADLV                                
019526,001541: 
019527,001542: 07,6671           45503        CLOAD              CS       TWO                                   
019528,001543: 07,6672           06430                           TC       COMPTEST                              
019529,001544: 07,6673           34500                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
019530,001545: 07,6674           50633                           TS       CLPASS                                
019531,001546: 07,6675           06304                           TC       REQDATZ                               
019532,001547: 07,6676           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019533,001548: 07,6677           05662                           TC       SWCALL                                #  ROUTINE.
019534,001549: 07,6700           35503                           CAF      TWO                                   
019535,001550: 07,6701           07000                           TC       PUTCOM                                
019536,001551: 07,6702           20624                           INDEX    NOUNADD                               
019537,001552: 07,6703           50002                           TS       2                                     
019538,001553: 07,6704           06705                           TC       LOADLV                                
019539,001554: 
019540,001555: 07,6705           35501        LOADLV             CAF      ZERO                                  
019541,001556: 07,6706           50615                           TS       DECBRNCH                              
019542,001557: 07,6707           45501                           CS       ZERO                                  
019543,001558: 07,6710           50632                           TS       LOADSTAT                              
019544,001559: 07,6711           43227                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND

Page 514

019546,001561: 07,6712           50614                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
019547,001562: 07,6713           05720                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
019548,001563: 07,6714           15600                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
019549,001564: 
019550,001565: 07,6715           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
019551,001566: 07,6716           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
019552,001567: 07,6717           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
019553,001568: 
019554,001569: 
019555,001570: 
019556,001571: 07,6720           50063        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
019557,001572: 07,6721           30001                           XCH      Q                                     #  ALL DEC OR ALL OCT. ALARMS IF NOT.
019558,001573: 07,6722           50106                           TS       DECRET                                
019559,001574: 07,6723           40615                           CS       DECBRNCH                              
019560,001575: 07,6724           50021                           TS       SR                                    
019561,001576: 07,6725           40021                           CS       SR                                    
019562,001577: 07,6726           40021                           CS       SR                                    #  SHIFTED RIGHT 2
019563,001578: 07,6727           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
019564,001579: 07,6730           06732                           TC       +2                                    #  SOME ONES IN LOW 3
019565,001580: 07,6731           00106                           TC       DECRET                                #  ALL ZEROS. ALL OCTAL.  OK
019566,001581: 07,6732           60063                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
019567,001582: 07,6733           10000                           CCS      A                                     #  (BUT IT HAS BEEN DECREMENTED BY CCS)
019568,001583: 07,6734           06356                           TC       GODSPALM                              #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
019569,001584: 07,6735           03062                           TC       CCSHOLE                               
019570,001585: 07,6736           06356                           TC       GODSPALM                              
019571,001586: 07,6737           00106                           TC       DECRET                                #  ALL REQUIRED ARE DEC. OK
019572,001587: 
019573,001588: 
019574,001589: 
019575,001590: 07,6740           30001        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
019576,001591: 07,6741           50112                           TS       EXITEM                                
019577,001592: 07,6742           33221                           CAF      MID5                                  
019578,001593: 07,6743           70055                           MASK     NNTYPTEM                              
019579,001594: 07,6744           03174                           TC       RIGHT5                                
019580,001595: 07,6745           00112                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019581,001596: 
019582,001597: 07,6746           30001        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
019583,001598: 07,6747           50112                           TS       EXITEM                                
019584,001599: 07,6750           20063                           INDEX    DECOUNT                               
019585,001600: 07,6751           40056                           CS       IDAD1TEM                              #  GET IDADDTEAB ENTRY FOR COMPONENT K
019586,001601: 07,6752           40000                           CS       A                                     #  OF NOUN.
019587,001602: 07,6753           72261                           MASK     HI5                                   
019588,001603: 07,6754           03203                           TC       LEFT5                                 
019589,001604: 07,6755           00112                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019590,001605: 
019591,001606: 07,6756           30001        SFCONUM            XCH      Q                                     #  GETS SF CONSTANT NUMBER
019592,001607: 07,6757           50112                           TS       EXITEM                                
019593,001608: 07,6760           20107                           INDEX    MIXBR                                 
019594,001609: 07,6761           06761                           TC       +0                                    
019595,001610: 07,6762           06775                           TC       CONUMNOR                              #  NORMAL NOUN

Page 515

019597,001612: 07,6763           20063                           INDEX    DECOUNT                               #  MIXED NOUN
019598,001613: 07,6764           33220                           CAF      LOW5                                  
019599,001614: 07,6765           70055                           MASK     NNTYPTEM                              
019600,001615: 07,6766           20063                           INDEX    DECOUNT                               
019601,001616: 07,6767           26772                           INDEX    DISPLACE                              
019602,001617: 07,6770           00000                           TC       0                                     
019603,001618:                                                                                                  #  DO TC SFRET (DECOUNT=0),DO TC RIGHT5(DECOUNT=1), DO TC LEFT5 (DECOUNT=2).
019604,001619: 07,6771           00112        SFRET              TC       EXITEM                                #  SF CON NUMBER IN A
019605,001620: 
019606,001621: 07,6772           06771        DISPLACE           TC       SFRET                                 
019607,001622: 07,6773           03174                           TC       RIGHT5                                
019608,001623: 07,6774           03203                           TC       LEFT5                                 
019609,001624: 
019610,001625: 07,6775           33220        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
019611,001626: 07,6776           70055                           MASK     NNTYPTEM                              
019612,001627: 07,6777           00112                           TC       EXITEM                                
019613,001628: 
019614,001629: 
019615,001630: 
019616,001631: 07,7000           50063        PUTCOM             TS       DECOUNT                               
019617,001632: 07,7001           30001                           XCH      Q                                     
019618,001633: 07,7002           50106                           TS       DECRET                                
019619,001634: 07,7003           35501                           CAF      ZERO                                  
019620,001635: 07,7004           50122                           TS       OVFIND                                
019621,001636: 07,7005           20063                           INDEX    DECOUNT                               
019622,001637: 07,7006           30607                           XCH      XREGLP                                
019623,001638: 07,7007           50116                           TS       MPAC       +1                         
019624,001639: 07,7010           20063                           INDEX    DECOUNT                               
019625,001640: 07,7011           30604                           XCH      XREG                                  
019626,001641: 07,7012           50115                           TS       MPAC                                  
019627,001642: 07,7013           20107                           INDEX    MIXBR                                 
019628,001643: 07,7014           07014                           TC       +0                                    
019629,001644: 07,7015           07043                           TC       PUTNORM                               #  NORMAL NOUN
019630,001645:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD
019631,001646: 07,7016           20063                           INDEX    DECOUNT                               
019632,001647: 07,7017           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
019633,001648: 07,7020           40000                           CS       A                                     #  OF NOUN.
019634,001649: 07,7021           74606                           MASK     LOW10                                 #  EK    FOR CURRENT NOUN
019635,001650: 07,7022           25777                           EXTEND                                         
019636,001651: 07,7023           60063                           SU       DECOUNT                               
019637,001652: 07,7024           50624                           TS       NOUNADD                               #  PLACE (E SUB K) - K INTO NOUNADD
019638,001653: 07,7025           10615                           CCS      DECBRNCH                              
019639,001654: 07,7026           07055                           TC       PUTDECSF                              #  +  DEC
019640,001655: 07,7027           06746                           TC       SFRUTMIX                              #  +0 OCTAL
019641,001656: 07,7030           06255                           TC       DPTEST                                
019642,001657: 07,7031           07053                           TC       PUTCOM2                               #  NO DP
019643,001658:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
019644,001659:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
019645,001660:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
019646,001661: 07,7032           34516        PUTDPCOM           CAF      ONE                                   #  DP

Page 516

019648,001663: 07,7033           60624                           AD       NOUNADD                               
019649,001664: 07,7034           50624                           TS       NOUNADD                               #  (ESUBK)+1  OR  E+1
019650,001665: 07,7035           60063                           AD       DECOUNT                               #  NOUNADD NOW SET FOR MINOR PART
019651,001666: 07,7036           50063                           TS       DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
019652,001667: 07,7037           35501                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
019653,001668: 07,7040           20063                           INDEX    DECOUNT                               
019654,001669: 07,7041           47777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
019655,001670: 07,7042           07053                           TC       PUTCOM2                               
019656,001671: 
019657,001672: 07,7043           10615        PUTNORM            CCS      DECBRNCH                              
019658,001673: 07,7044           07055                           TC       PUTDECSF                              #  +  DEC
019659,001674: 07,7045           06740                           TC       SFRUTNOR                              #  +0  OCTAL
019660,001675: 07,7046           06255                           TC       DPTEST                                
019661,001676: 07,7047           07053                           TC       PUTCOM2                               #  NO DP
019662,001677: 07,7050           35501                           CAF      ZERO                                  
019663,001678: 07,7051           50063                           TS       DECOUNT                               
019664,001679: 07,7052           07032                           TC       PUTDPCOM                              
019665,001680: 
019666,001681: 07,7053           30115        PUTCOM2            XCH      MPAC                                  
019667,001682: 07,7054           00106                           TC       DECRET                                
019668,001683: 
019669,001684:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019670,001685: 
019671,001686: 07,7055           06756        PUTDECSF           TC       SFCONUM                               #  SF CON NUMB IN A
019672,001687: 07,7056           50111                           TS       SFTEMP2                               
019673,001688: 07,7057           05654                           TC       BANKCALL                              #  SWITCH BANKS TO SF CONSTANT TABLE READING
019674,001689: 07,7060           13222                           CADR     GTSFIN                                #  ROUTINE. LOADS SFTEMP1, SFTEMP2.
019675,001690: 07,7061           20107                           INDEX    MIXBR                                 
019676,001691: 07,7062           07062                           TC       +0                                    
019677,001692: 07,7063           07066                           TC       PUTSFNOR                              
019678,001693: 07,7064           06746                           TC       SFRUTMIX                              
019679,001694: 07,7065           07067                           TC       PUTDCSF2                              
019680,001695: 07,7066           06740        PUTSFNOR           TC       SFRUTNOR                              
019681,001696: 
019682,001697: 07,7067           20000        PUTDCSF2           INDEX    A                                     
019683,001698: 07,7070           37072                           CAF      SFINTABR                              
019684,001699: 07,7071           05723                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSION ROOM
019685,001700: 07,7072           15442        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
019686,001701: 07,7073           15140                           CADR     BINROUND                              
019687,001702: 07,7074           15054                           CADR     DEGINSF                               
019688,001703: 07,7075           15127                           CADR     ARTHINSF                              
019689,001704: 07,7076           15161                           CADR     DPINSF                                
019690,001705: 07,7077           15207                           CADR     DPINSF2                               
019691,001706: 07,7100           15143                           CADR     OPTDEGIN                              
019692,001707: 07,7101           15161                           CADR     DPINSF                                #  SAME AS ARITHDP1
019693,001708: 07,7102                        ENDRUTIN           EQUALS                                         
019694,001709: 
019695,001710: 
019696,001711: 
019697,001712:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.

Page 517

019699,001714:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019700,001715: 
019701,001716: 
019702,001717: 
019703,001718: 06,7054                                           SETLOC   ENDDPDEC   +1                         
019704,001719: 
019705,001720:                                                                                                  #  DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
019706,001721: 
019707,001722: 06,7054           05157        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
019708,001723: 06,7055           57121                           XCADR    DEGCON1                               #  MULT BY 5.5  5(10)X2/-3
019709,001724: 06,7056           10116                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019710,001725: 06,7057           34504                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
019711,001726: 06,7060           07062                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
019712,001727: 06,7061           44504                           CS       BIT11                                 
019713,001728: 06,7062           60116                           AD       MPAC       +1                         
019714,001729: 06,7063           07226                           TC       2ROUND     +2                         
019715,001730: 06,7064           05654                           TC       BANKCALL                              #  LEFT 1
019716,001731: 06,7065           06367                           CADR     SL1        +3                         
019717,001732: 06,7066           05654        DEGINSF2           TC       BANKCALL                              #  LEFT 2
019718,001733: 06,7067           06367                           CADR     SL1        +3                         
019719,001734: 06,7070           07235                           TC       TESTOFUF                              
019720,001735: 06,7071           05654                           TC       BANKCALL                              #  RETURNS IF NO OF/UF
019721,001736: 06,7072           06367                           CADR     SL1        +3                         #  LEFT 3
019722,001737: 06,7073           10115                           CCS      MPAC                                  
019723,001738: 06,7074           07100                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
019724,001739: 06,7075           07100                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
019725,001740: 06,7076           40000                           COM                                            #  IF - , USE -MAGNITUDE +1
019726,001741: 06,7077           50115                           TS       MPAC                                  #  IF -0, USE +0
019727,001742: 06,7100           10122        SIGNFIX            CCS      OVFIND                                
019728,001743: 06,7101           07116                           TC       SGNTO1                                #  IF OVERFLOW
019729,001744: 06,7102           07112                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
019730,001745: 06,7103           10115                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
019731,001746: 06,7104           03062                           TC       CCSHOLE                               
019732,001747: 06,7105           07114                           TC       NEG180                                
019733,001748: 06,7106           07107                           TC       +1                                    
019734,001749: 06,7107           30115                           XCH      MPAC                                  
019735,001750: 06,7110           74476                           MASK     POSMAX                                
019736,001751: 06,7111           50115                           TS       MPAC                                  
019737,001752: 06,7112           05720        ENDSCALE           TC       POSTJUMP                              
019738,001753: 06,7113           17053                           CADR     PUTCOM2                               
019739,001754: 
019740,001755: 06,7114           44476        NEG180             CS       POSMAX                                
019741,001756: 06,7115           07111                           TC       ENDSCALE   -1                         
019742,001757: 
019743,001758: 06,7116           40115        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
019744,001759: 06,7117           74476                           MASK     POSMAX                                
019745,001760: 06,7120           40000                           CS       A                                     
019746,001761: 06,7121           07111                           TC       ENDSCALE   -1                         
019747,001762: 
019748,001763: 06,7122           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        

Page 518

019750,001765: 06,7124           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
019751,001766: 06,7126           71527        NEG.2              OCT      -06250                                #  .197753906  I.E. THE BIAS SCALED
019752,001767: 
019753,001768: 06,7127           05157        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019754,001769: 06,7130           50107                           XCADR    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
019755,001770: 06,7131           30117                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
019756,001771: 06,7132           30116                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019757,001772: 06,7133           30115                           XCH      MPAC                                  
019758,001773: 06,7134           10000                           CCS      A                                     
019759,001774: 06,7135           07442                           TC       DSPALARM                              #  TOO LARGE A LOAD
019760,001775: 06,7136           07140                           TC       BINROUND                              
019761,001776: 06,7137           07442                           TC       DSPALARM                              #  TOO LARGE A LOAD
019762,001777: 06,7140           07224        BINROUND           TC       2ROUND                                
019763,001778: 06,7141           07235                           TC       TESTOFUF                              
019764,001779: 06,7142           07112                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
019765,001780: 
019766,001781: 
019767,001782: 
019768,001783: 06,7143           10115        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
019769,001784: 06,7144           07150                           TC       OPDEGIN2                              #  LOW RANGE   0 TO 90 DEG ALWAYS
019770,001785: 06,7145           07150                           TC       OPDEGIN2                              
019771,001786: 06,7146           07442                           TC       DSPALARM                              #  REJECT - INPUT. ALARM
019772,001787: 06,7147           07442                           TC       DSPALARM                              #  DITTO
019773,001788: 
019774,001789: 
019775,001790: 
019776,001791:                                                                                                  #  NO LONGER DO WE TEST BIT 13 OF WASOPSET TO DETERMINE RANGE. RANGE NOW
019777,001792:                                                                                                  #  IS ALWAYS 90 DEG (BLOCK 50 - 100)
019778,001793: 
019779,001794: 
019780,001795: 
019781,001796: 06,7150           30115        OPDEGIN2           XCH      MPAC                                  #  RANGE IS 90 DEG
019782,001797: 06,7151           67126                           AD       NEG.2                                 #  SUBTRACT BIAS
019783,001798: 06,7152           50115                           TS       MPAC                                  
019784,001799: 06,7153           05157                           TC       DMP                                   #  MULT BY 100 / 45  B-2
019785,001800: 06,7154           57123                           XCADR    DEGCON2                               
019786,001801: 06,7155           34503                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
019787,001802: 06,7156           60116                           AD       MPAC       +1                         
019788,001803: 06,7157           07226                           TC       2ROUND     +2                         
019789,001804: 06,7160           07066                           TC       DEGINSF2                              
019790,001805: 
019791,001806: 06,7161           05157        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
019792,001807: 06,7162           50107                           XCADR    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
019793,001808: 06,7163           30117                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
019794,001809: 06,7164           60000                           DOUBLE                                         
019795,001810: 06,7165           50117                           TS       MPAC       +2                         
019796,001811: 06,7166           35501                           CAF      ZERO                                  
019797,001812: 06,7167           60116                           AD       MPAC       +1                         
019798,001813: 06,7170           07226                           TC       2ROUND     +2                         

Page 519

019800,001815: 06,7171           07235                           TC       TESTOFUF                              
019801,001816: 06,7172           20107                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
019802,001817: 06,7173           07173                           TC       +0                                    
019803,001818: 06,7174           07205                           TC       DPINORM                               
019804,001819: 06,7175           30063                           XCH      DECOUNT                               #  MIXEDNOUN
019805,001820: 06,7176           50063                           TS       DECOUNT                               
019806,001821: 06,7177           60624        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
019807,001822: 06,7200           50001                           TS       Q                                     #    E SUBK            E
019808,001823: 06,7201           30116                           XCH      MPAC       +1                         
019809,001824: 06,7202           20001                           INDEX    Q                                     
019810,001825: 06,7203           50001                           TS       1                                     #  PLACE LOW PART IN
019811,001826: 06,7204           07112                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
019812,001827: 06,7205           35501        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
019813,001828: 06,7206           07177                           TC       DPINCOM                               
019814,001829: 
019815,001830: 
019816,001831: 
019817,001832: 06,7207           05157        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019818,001833: 06,7210           50107                           XCADR    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019819,001834: 06,7211           07213                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
019820,001835: 06,7212           07163                           TC       DPINSF     +2                         
019821,001836: 
019822,001837: 06,7213           30001        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
019823,001838: 06,7214           50111                           TS       SFTEMP2                               
019824,001839: 06,7215           34475                           CAF      SIX                                   #  LEFT BY 7
019825,001840: 06,7216           50110        LEFT7COM           TS       SFTEMP1                               
019826,001841: 06,7217           05654                           TC       BANKCALL                              
019827,001842: 06,7220           06364                           CADR     SL1                                   
019828,001843: 06,7221           10110                           CCS      SFTEMP1                               
019829,001844: 06,7222           07216                           TC       LEFT7COM                              
019830,001845: 06,7223           00111                           TC       SFTEMP2                               
019831,001846: 
019832,001847: 
019833,001848: 
019834,001849: 06,7224           30116        2ROUND             XCH      MPAC       +1                         
019835,001850: 06,7225           60000                           DOUBLE                                         
019836,001851: 06,7226           50116                           TS       MPAC       +1                         
019837,001852: 06,7227           00001                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
019838,001853: 06,7230           60115                           AD       MPAC                                  
019839,001854: 06,7231           50115                           TS       MPAC                                  
019840,001855: 06,7232           00001                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
019841,001856: 06,7233           50122                           TS       OVFIND                                
019842,001857: 06,7234           00001        2RNDEND            TC       Q                                     
019843,001858: 
019844,001859: 
019845,001860: 
019846,001861: 06,7235           10122        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
019847,001862: 06,7236           07442                           TC       DSPALARM                              #  OF

Page 520

019849,001864: 06,7237           00001                           TC       Q                                     
019850,001865: 06,7240           07442                           TC       DSPALARM                              #  UF
019851,001866: 

Page 521

019853,001868: 
019854,001869:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019855,001870:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
019856,001871: 
019857,001872:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019858,001873:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019859,001874:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019860,001875:                                                                                                  #  NOUNADD IN MONSAVE1, IF NOUN = MACHINE ADDRESS TO BE SPECIFIED. BIT 15 OF
019861,001876:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). 
019862,001877: 
019863,001878:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
019864,001879:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019865,001880:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019866,001881: 
019867,001882:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019868,001883: 
019869,001884:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019870,001885:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
019871,001886: 
019872,001887: 
019873,001888: 
019874,001889:                                                                                                  #  MONITOR DOESNT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW.
019875,001890: 
019876,001891: 07,7102                                           SETLOC   ENDRUTIN                              
019877,001892: 
019878,001893: 07,7102           44500        MONITOR            CS       BIT15                                 
019879,001894: 07,7103           70624                           MASK     NOUNADD                               
019880,001895: 07,7104           50116        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
019881,001896: 07,7105           37421                           CAF      LOW6                                  
019882,001897: 07,7106           70602                           MASK     VERBREG                               
019883,001898: 07,7107           03203                           TC       LEFT5                                 
019884,001899: 07,7110           50022                           TS       CYL                                   
019885,001900: 07,7111           30022                           XCH      CYL                                   
019886,001901: 07,7112           60603                           AD       NOUNREG                               
019887,001902: 07,7113           50115                           TS       MPAC                                  #  TEMP STORAGE
019888,001903: 07,7114           40630                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
019889,001904: 07,7115           65503                           AD       TWO                                   
019890,001905: 07,7116           10000                           CCS      A                                     
019891,001906: 07,7117           03356                           TC       RELDSP1                               #  GRABLOCK=0,1. +0 INTO DSPLOCK AND
019892,001907: 07,7120           07123                           TC       +3                                    #  TURN OFF KEY RLSE LIGHT.
019893,001908: 07,7121           03062                           TC       CCSHOLE                               
019894,001909: 07,7122           03257                           TC       DSPLOCK0                              #  GRABLOCK=2. +0 INTO DSPLOCK AND
019895,001910:                                                                                                  #  TURN OFF KEY RLSE LIGHT.
019896,001911: 07,7123           20017                           INHINT                                         
019897,001912: 07,7124           10625                           CCS      MONSAVE                               
019898,001913: 07,7125           07131                           TC       +4                                    #  IF MONSAVE WAS +, NO REQUEST
019899,001914: 07,7126           34516                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
019900,001915: 07,7127           02173                           TC       WAITLIST                              
019901,001916: 07,7130           17137                           CADR     MONREQ                                
019902,001917: 07,7131           30115                           XCH      MPAC                                  
019903,001918: 07,7132           50625                           TS       MONSAVE                               #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
019904,001919: 07,7133           30116                           XCH      MPAC       +1                         

Page 522

019906,001921: 07,7134           50626                           TS       MONSAVE1                              #  ZERO THE KILL MONITOR BIT
019907,001922: 07,7135           20016                           RELINT                                         
019908,001923: 07,7136           00065                           TC       ENTRET                                
019909,001924: 
019910,001925: 
019911,001926: 
019912,001927: 07,7137           02677        MONREQ             TC       READTIME   +1                         #  CALLED BY WAITLIST
019913,001928: 07,7140           02736                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
019914,001929: 07,7141           10626                           CCS      MONSAVE1                              
019915,001930: 07,7142           07146                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019916,001931: 07,7143           07146                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019917,001932: 07,7144           07155                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019918,001933: 07,7145           07155                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019919,001934: 07,7146           37161                           CAF      MONDEL                                
019920,001935: 07,7147           02173                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
019921,001936: 07,7150           17137                           CADR     MONREQ                                
019922,001937: 07,7151           32164                           CAF      PRIO31                                
019923,001938: 07,7152           02052                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
019924,001939: 07,7153           17162                           CADR     MONDO                                 
019925,001940: 07,7154           02256                           TC       TASKOVER                              
019926,001941: 
019927,001942: 07,7155           35501        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
019928,001943: 07,7156           50625                           TS       MONSAVE                               
019929,001944: 07,7157           50626                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
019930,001945: 07,7160           02256                           TC       TASKOVER                              
019931,001946: 
019932,001947: 
019933,001948: 
019934,001949: 07,7161           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
019935,001950: 
019936,001951: 
019937,001952: 
019938,001953: 07,7162           10626        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
019939,001954: 07,7163           07167                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
019940,001955: 07,7164           07167                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
019941,001956: 07,7165           02124                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
019942,001957: 07,7166           02124                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
019943,001958: 07,7167           03274                           TC       TSTDSPLK                              #  PERFORMS CCS DSPLOCK
019944,001959: 07,7170           07214                           TC       MONBUSY                               #  NVSUB IS BUSY
019945,001960: 07,7171           37421                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
019946,001961: 07,7172           70625                           MASK     MONSAVE                               
019947,001962: 07,7173           50110                           TS       NVTEMP                                
019948,001963: 07,7174           03121                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
019949,001964: 07,7175           02124                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
019950,001965: 07,7176           37212                           CAF      MONMASK                               
019951,001966: 07,7177           70625                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
019952,001967: 07,7200           03174                           TC       RIGHT5                                
019953,001968: 07,7201           50020                           TS       CYR                                   
019954,001969: 07,7202           30020                           XCH      CYR                                   
019955,001970: 07,7203           50602                           TS       VERBREG                               

Page 523

019957,001972: 07,7204           37213                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
019958,001973: 07,7205           50065                           TS       ENTRET                                
019959,001974: 07,7206           44500                           CS       BIT15                                 
019960,001975: 07,7207           70626                           MASK     MONSAVE1                              
019961,001976: 07,7210           50624                           TS       NOUNADD                               
019962,001977: 07,7211           06046        ENDMONDO           TC       TESTNN                                
019963,001978: 
019964,001979:    3071                                           SETLOC   ENDFAILF                              
019965,001980:    3071           33077        PASTEVB            CAF      MIDSIX                                
019966,001981:    3072           70625                           MASK     MONSAVE                               
019967,001982:    3073           50110                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
019968,001983:    3074           03121                           TC       NVSUBMON                              #        DISPLAY IT.
019969,001984:    3075           03076                           TC       +1                                    
019970,001985:    3076           02124        ENDPASTE           TC       ENDOFJOB                              
019971,001986: 
019972,001987:    3077           07700        MIDSIX             OCT      07700                                 
019973,001988: 
019974,001989: 07,7212                                           SETLOC   ENDMONDO   +1                         
019975,001990: 07,7212           00700        MONMASK            OCT      700                                   
019976,001991: 07,7213           03071        MONBACK            ADRES    PASTEVB                               
019977,001992: 
019978,001993: 07,7214           03250        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
019979,001994: 07,7215           02124                           TC       ENDOFJOB                              
019980,001995: 
019981,001996:                                                                                                  #  DSPBANK IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER IN BANK.
019982,001997:                                                                                                  #  IT IS USED WITH NOUN = MACHINE ADDRESS TO BE SPECIFIED. THE CADR OF THE
019983,001998:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. 
019984,001999: 
019985,002000: 07,7216           33171        DSPBANK            CAF      R1D1                                  
019986,002001: 07,7217           50614                           TS       DSPCOUNT                              
019987,002002: 07,7220           40624                           CS       NOUNADD                               
019988,002003: 07,7221           40000                           CS       A                                     
019989,002004: 07,7222           05730                           TC       DATACALL                              
019990,002005: 07,7223           07225                           TC       DSPOCTWD                              
019991,002006: 07,7224           02124                           TC       ENDOFJOB                              
019992,002007: 
019993,002008: 
019994,002009: 
019995,002010: 06,7241                                           SETLOC   TESTOFUF   +4                         
019996,002011: 
019997,002012:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
019998,002013:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.
019999,002014: 
020000,002015: 06,7241           30001        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
020001,002016: 06,7242           50106                           TS       WDRET                                 
020002,002017: 06,7243           10115                           CCS      MPAC                                  

Page 524

020004,002019: 06,7244           07253                           TC       +7                                    
020005,002020: 06,7245           07253                           TC       +6                                    
020006,002021: 06,7246           64516                           AD       ONE                                   
020007,002022: 06,7247           50115                           TS       MPAC                                  
020008,002023: 06,7250           06343                           TC       -ON                                   
020009,002024: 06,7251           40116                           CS       MPAC       +1                         
020010,002025: 06,7252           07255                           TC       +3                                    
020011,002026: 06,7253           06322                           TC       +ON                                   
020012,002027: 06,7254           30116                           XCH      MPAC       +1                         
020013,002028: 06,7255           67314                           AD       DECROUND                              
020014,002029: 06,7256           50116                           TS       MPAC       +1                         
020015,002030: 06,7257           35501                           CAF      ZERO                                  
020016,002031: 06,7260           60115                           AD       MPAC                                  
020017,002032: 06,7261           50115                           TS       MPAC                                  
020018,002033: 06,7262           07266                           TC       +4                                    
020019,002034: 06,7263           34476                           CAF      POSMAX                                
020020,002035: 06,7264           50115                           TS       MPAC                                  
020021,002036: 06,7265           50116                           TS       MPAC       +1                         
020022,002037: 06,7266           35502                           CAF      FOUR                                  
020023,002038: 06,7267           50076        DSPDCWD1           TS       WDCNT                                 
020024,002039: 06,7270           33232                           CAF      BINCON                                
020025,002040: 06,7271           05416                           TC       SHORTMP                               
020026,002041: 06,7272           20115        TRACE1             INDEX    MPAC                                  
020027,002042: 06,7273           32652                           CAF      RELTAB                                
020028,002043: 06,7274           73220                           MASK     LOW5                                  
020029,002044: 06,7275           50111                           TS       CODE                                  
020030,002045: 06,7276           35501                           CAF      ZERO                                  
020031,002046: 06,7277           30117                           XCH      MPAC       +2                         
020032,002047: 06,7300           30116                           XCH      MPAC       +1                         
020033,002048: 06,7301           50115                           TS       MPAC                                  
020034,002049: 06,7302           30614                           XCH      DSPCOUNT                              
020035,002050: 06,7303           50104        TRACE1S            TS       COUNT                                 
020036,002051: 06,7304           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCETP AT +0
020037,002052: 06,7305           50614                           TS       DSPCOUNT                              
020038,002053: 06,7306           07341                           TC       DSPIN                                 
020039,002054: 06,7307           10076                           CCS      WDCNT                                 
020040,002055: 06,7310           07267                           TC       DSPDCWD1                              
020041,002056: 06,7311           43227                           CS       VD1                                   
020042,002057: 06,7312           50614                           TS       DSPCOUNT                              
020043,002058: 06,7313           00106                           TC       WDRET                                 
020044,002059: 
020045,002060: 06,7314           02476        DECROUND           OCT      02476                                 
020046,002061: 
020047,002062: 
020048,002063: 
020049,002064:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
020050,002065:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
020051,002066: 
020052,002067: 06,7315           30001        DSP2DEC            XCH      Q                                     
020053,002068: 06,7316           50106                           TS       WDRET                                 

Page 525

020055,002070: 06,7317           35501                           CAF      ZERO                                  
020056,002071: 06,7320           50111                           TS       CODE                                  
020057,002072: 06,7321           34473                           CAF      THREE                                 
020058,002073: 06,7322           07426                           TC       11DSPIN                               #  -R2 OFF
020059,002074: 06,7323           35502                           CAF      FOUR                                  
020060,002075: 06,7324           07426                           TC       11DSPIN                               #  +R2 OFF
020061,002076: 06,7325           10115                           CCS      MPAC                                  
020062,002077: 06,7326           07336                           TC       +8D                                   
020063,002078: 06,7327           07336                           TC       +7                                    
020064,002079: 06,7330           64516                           AD       ONE                                   
020065,002080: 06,7331           50115                           TS       MPAC                                  
020066,002081: 06,7332           06343                           TC       -ON                                   
020067,002082: 06,7333           40116                           CS       MPAC       +1                         
020068,002083: 06,7334           50116                           TS       MPAC       +1                         
020069,002084: 06,7335           07337                           TC       +2                                    
020070,002085: 06,7336           06322                           TC       +ON                                   
020071,002086: 06,7337           33172                           CAF      R2D1                                  
020072,002087: 06,7340           07267        END2DEC            TC       DSPDCWD1                              
020073,002088: 
020074,002089: 
020075,002090: 
020076,002091: 07,7225                                           SETLOC   DSPBANK    +7                         
020077,002092: 
020078,002093:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
020079,002094:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
020080,002095: 
020081,002096: 07,7225           50022        DSPOCTWD           TS       CYL                                   
020082,002097: 07,7226           30001                           XCH      Q                                     
020083,002098: 07,7227           50106                           TS       WDRET                                 
020084,002099: 07,7230           30614                           XCH      DSPCOUNT                              
020085,002100: 07,7231           64501                           AD       BIT14                                 #  TO BLANK SIGNS
020086,002101: 07,7232           50614                           TS       DSPCOUNT                              
020087,002102: 07,7233           35502                           CAF      FOUR                                  
020088,002103: 07,7234           50076        WDAGAIN            TS       WDCNT                                 
020089,002104: 07,7235           40022                           CS       CYL                                   
020090,002105: 07,7236           40022                           CS       CYL                                   
020091,002106: 07,7237           40022                           CS       CYL                                   
020092,002107: 07,7240           40000                           CS       A                                     
020093,002108: 07,7241           75362                           MASK     DSPMSK                                
020094,002109: 07,7242           20000                           INDEX    A                                     
020095,002110: 07,7243           32652                           CAF      RELTAB                                
020096,002111: 07,7244           73220                           MASK     LOW5                                  
020097,002112: 07,7245           50111                           TS       CODE                                  
020098,002113: 07,7246           30614                           XCH      DSPCOUNT                              
020099,002114: 07,7247           50104                           TS       COUNT                                 
020100,002115: 07,7250           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
020101,002116: 07,7251           50614                           TS       DSPCOUNT                              
020102,002117: 07,7252           05720                           TC       POSTJUMP                              
020103,002118: 07,7253           15434                           CADR     DSPOCTIN                              
020104,002119: 07,7254           10076        OCTBACK            CCS      WDCNT                                 
020105,002120: 07,7255           07234                           TC       WDAGAIN                               #  +

Page 526

020107,002122: 07,7256           43227        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
020108,002123: 07,7257           50614                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
020109,002124: 07,7260           00106                           TC       WDRET                                 
020110,002125: 
020111,002126: 07,7261     5362               DSPMSK             =        SEVEN                                 
020112,002127: 
020113,002128: 
020114,002129: 
020115,002130:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
020116,002131:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
020117,002132:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
020118,002133: 
020119,002134: 07,7261           50020        DSP2BIT            TS       CYR                                   
020120,002135: 07,7262           30001                           XCH      Q                                     
020121,002136: 07,7263           50106                           TS       WDRET                                 
020122,002137: 07,7264           34516                           CAF      ONE                                   
020123,002138: 07,7265           50076                           TS       WDCNT                                 
020124,002139: 07,7266           40020                           CS       CYR                                   
020125,002140: 07,7267           40020                           CS       CYR                                   
020126,002141: 07,7270           30020                           XCH      CYR                                   
020127,002142: 07,7271           50022                           TS       CYL                                   
020128,002143: 07,7272           07241                           TC       WDAGAIN    +5                         
020129,002144: 
020130,002145: 
020131,002146: 
020132,002147:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
020133,002148:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
020134,002149:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
020135,002150:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
020136,002151: 
020137,002152: 06,7341                                           SETLOC   END2DEC    +1                         
020138,002153: 
020139,002154: 06,7341           30001        DSPIN              XCH      Q                                     
020140,002155: 06,7342           50112                           TS       DSEXIT                                
020141,002156: 06,7343           33220                           CAF      LOW5                                  
020142,002157: 06,7344           70104                           MASK     COUNT                                 
020143,002158: 06,7345           50021                           TS       SR                                    
020144,002159: 06,7346           30021                           XCH      SR                                    
020145,002160: 06,7347           50102                           TS       DSREL                                 
020146,002161: 06,7350           34516                           CAF      BIT1                                  
020147,002162: 06,7351           70104                           MASK     COUNT                                 
020148,002163: 06,7352           10000                           CCS      A                                     
020149,002164: 06,7353           07355                           TC       +2                                    #  LEFT IF COUNT IS ODD
020150,002165: 06,7354           07365                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
020151,002166: 06,7355           30111                           XCH      CODE                                  
020152,002167: 06,7356           03212                           TC       SLEFT5                                
020153,002168: 06,7357           50111                           TS       CODE                                  
020154,002169: 06,7360           34501                           CAF      BIT14                                 
020155,002170: 06,7361           70104                           MASK     COUNT                                 
020156,002171: 06,7362           10000                           CCS      A                                     

Page 527

020158,002173: 06,7363           35503                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
020159,002174: 06,7364           64516                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
020160,002175: 06,7365           50104                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
020161,002176:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
020162,002177:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
020163,002178: 06,7366           20017        DSPIN1             INHINT                                         
020164,002179: 06,7367           20102                           INDEX    DSREL                                 
020165,002180: 06,7370           10710                           CCS      DSPTAB                                
020166,002181: 06,7371           07373                           TC       +2                                    #  IF +
020167,002182: 06,7372           03062                           TC       CCSHOLE                               
020168,002183: 06,7373           64516                           AD       ONE                                   #  IF-
020169,002184: 06,7374           50103                           TS       DSMAG                                 
020170,002185: 06,7375           20104                           INDEX    COUNT                                 
020171,002186: 06,7376           77422                           MASK     DSMSK                                 
020172,002187: 06,7377           25777                           EXTEND                                         
020173,002188: 06,7400           60111                           SU       CODE                                  
020174,002189: 06,7401           10000                           CCS      A                                     
020175,002190: 06,7402           07406                           TC       DFRNT                                 #  IF+
020176,002191: 06,7403           03062                           TC       CCSHOLE                               
020177,002192: 06,7404           07406                           TC       DFRNT                                 #  IF-
020178,002193: 06,7405           07420                           TC       DSLV                                  #  IF -0
020179,002194: 06,7406           20104        DFRNT              INDEX    COUNT                                 
020180,002195: 06,7407           47422                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
020181,002196: 06,7410           70103                           MASK     DSMAG                                 
020182,002197: 06,7411           60111                           AD       CODE                                  
020183,002198: 06,7412           40000                           CS       A                                     
020184,002199: 06,7413           20102                           INDEX    DSREL                                 
020185,002200: 06,7414           30710                           XCH      DSPTAB                                
020186,002201: 06,7415           10000                           CCS      A                                     
020187,002202: 06,7416           06640                           TC       INCNOUT                               
020188,002203: 06,7417           03062                           TC       CCSHOLE                               
020189,002204: 06,7420           20016        DSLV               RELINT                                         
020190,002205: 06,7421           00112                           TC       DSEXIT                                
020191,002206: 
020192,002207: 06,7422           00037        DSMSK              OCT      37                                    
020193,002208: 06,7423           01740                           OCT      1740                                  
020194,002209: 06,7424           02000                           OCT      2000                                  
020195,002210: 06,7425           03740                           OCT      3740                                  
020196,002211: 
020197,002212: 
020198,002213: 
020199,002214:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
020200,002215:                                                                                                  #  BIT11 OF CODE.
020201,002216: 
020202,002217: 06,7426           50102        11DSPIN            TS       DSREL                                 
020203,002218: 06,7427           35503                           CAF      TWO                                   
020204,002219: 06,7430           50104                           TS       COUNT                                 
020205,002220: 06,7431           30001                           XCH      Q                                     
020206,002221: 06,7432           50112                           TS       DSEXIT                                
020207,002222: 06,7433           07366                           TC       DSPIN1                                

Page 528

020209,002224: 
020210,002225: 06,7434           07341        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
020211,002226: 06,7435           37437                           CAF      +2                                    
020212,002227: 06,7436           05723                           TC       BANKJUMP                              
020213,002228: 06,7437           17254        ENDSPOCT           CADR     OCTBACK                               
020214,002229: 
020215,002230: 
020216,002231: 
020217,002232:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
020218,002233:                                                                                                  #  ABORT WITH OCT 01501.
020219,002234:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
020220,002235:                                                                                                  #  DO TC ENTRET.
020221,002236: 
020222,002237: 06,7440           33147        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
020223,002238: 06,7441           50065                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
020224,002239: 
020225,002240: 06,7442           03233        DSPALARM           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
020226,002241: 06,7443           47447                           CS       NVSBENDL                              
020227,002242: 06,7444           60065                           AD       ENTEXIT                               
020228,002243: 06,7445           10000                           CCS      A                                     
020229,002244: 06,7446           00065                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
020230,002245: 06,7447           03125        NVSBENDL           TC       NVSUBEND                              
020231,002246: 06,7450           00065                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
020232,002247: 06,7451           03044                           TC       ABORT                                 #  NVSUB INITIATED.
020233,002248: 06,7452           01501                           OCT      01501                                 
020234,002249: 
020235,002250: 
020236,002251: 
020237,002252: 06,7453           34504        FLASHON1           CAF      BIT11                                 #  GETS HERE THRU FLASHON(STANDARD LEAD IN)
020238,002253: 06,7454           50111                           TS       CODE                                  
020239,002254: 06,7455           37464                           CAF      FLASHLOC                              
020240,002255: 06,7456           50102                           TS       DSREL                                 
020241,002256: 06,7457           35503                           CAF      TWO                                   
020242,002257: 06,7460           50104                           TS       COUNT                                 
020243,002258: 06,7461           07366                           TC       DSPIN1                                
020244,002259: 06,7462           35501        FLASHOF1           CAF      ZERO                                  #  GETS HERE THRU FLASHOFF(STANDARD LEAD IN
020245,002260: 06,7463           07454                           TC       FLASHON1   +1                         
020246,002261: 06,7464           00011        FLASHLOC           OCT      11                                    
020247,002262: 
020248,002263: 
020249,002264: 
020250,002265:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
020251,002266:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
020252,002267:                                                                                                  #  MM LIGHTS.
020253,002268: 
020254,002269: 07,7273                                           SETLOC   DSP2BIT    +10D                       
020255,002270: 
020256,002271: 07,7273           07306        MMCHANG            TC       REQMM                                 
020257,002272: 07,7274           35501                           CAF      ZERO                                  
020258,002273: 07,7275           30603                           XCH      NOUNREG                               
020259,002274: 07,7276           50115                           TS       MPAC                                  

Page 529

020261,002276: 07,7277           33230                           CAF      ND1                                   
020262,002277: 07,7300           50614                           TS       DSPCOUNT                              
020263,002278: 07,7301           05654                           TC       BANKCALL                              
020264,002279: 07,7302           14621                           CADR     2BLANK                                
020265,002280: 07,7303           30115                           XCH      MPAC                                  
020266,002281: 07,7304           05720                           TC       POSTJUMP                              
020267,002282: 07,7305           10002                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
020268,002283: 
020269,002284: 
020270,002285: 
020271,002286: 07,7306           40001        REQMM              CS       Q                                     
020272,002287: 07,7307           50613                           TS       REQRET                                
020273,002288: 07,7310           33230                           CAF      ND1                                   
020274,002289: 07,7311           50614                           TS       DSPCOUNT                              
020275,002290: 07,7312           35501                           CAF      ZERO                                  
020276,002291: 07,7313           50603                           TS       NOUNREG                               
020277,002292: 07,7314           05654                           TC       BANKCALL                              
020278,002293: 07,7315           14621                           CADR     2BLANK                                
020279,002294: 07,7316           05654                           TC       BANKCALL                              
020280,002295: 07,7317           14000                           CADR     FLASHON                               
020281,002296: 07,7320           00065                           TC       ENTEXIT                               
020282,002297: 
020283,002298: 
020284,002299: 
020285,002300:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
020286,002301:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES PRIO  PRELOADED INTO 
020287,002302:                                                                                                  #  BITS 10-14 OF FIRST REGISTER OF TEMP AREA, WITH BIT1=0 FOR NOVAC, BIT1
020288,002303:                                                                                                  #  =1 FOR FINDVAC). THE VERB IS USED WITH NOUN=MACHINE ADDRESS TO BE
020289,002304:                                                                                                  #  SPECIFIED. CADR JOBADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
020290,002305: 
020291,002306: 07,7321           33147        VBRQEXEC           CAF      ENDINST                               
020292,002307: 07,7322           50075                           TS       PROGREG    +2                         
020293,002308: 07,7323           03323                           TC       RELDSP                                
020294,002309: 07,7324           34516                           CAF      BIT1                                  
020295,002310: 07,7325           70616                           MASK     DSPTEM1                               #  ********
020296,002311: 07,7326           10000                           CCS      A                                     
020297,002312: 07,7327           07340                           TC       SETVAC                                #  IF BIT1 =1, FINDVAC
020298,002313: 07,7330           33223                           CAF      TCNOVAC                               #  IF BIT1 =0, NOVAC
020299,002314: 07,7331           50073        REQEX1             TS       PROGREG                               #  TC NOVAC OR TC FINDVAC INTO PROGREG
020300,002315: 07,7332           30624                           XCH      NOUNADD                               
020301,002316: 07,7333           50074                           TS       PROGREG    +1                         #  CADR JOBADDR INTO PROGREG +1
020302,002317: 07,7334           44516                           CS       BIT1                                  
020303,002318: 07,7335           70616                           MASK     DSPTEM1                               #  *******
020304,002319: 07,7336           20017                           INHINT                                         
020305,002320: 07,7337           00073                           TC       PROGREG                               
020306,002321: 
020307,002322: 07,7340           33226        SETVAC             CAF      TCFINDVC                              
020308,002323: 07,7341           07331                           TC       REQEX1                                
020309,002324: 
020310,002325:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.

Page 530

020312,002327:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES DELAY PRELOADED IN FIRST
020313,002328:                                                                                                  #  REGISTER OF TEMP AREA. THE VERB IS USED WITH NOUN= MACHINE ADDRESS TO
020314,002329:                                                                                                  #  BE SPECIFIED. CADR TASKADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
020315,002330: 
020316,002331: 07,7342           33147        VBRQWAIT           CAF      ENDINST                               
020317,002332: 07,7343           50075                           TS       PROGREG    +2                         #  TC ENDOFJOB INTO PROGREG+2
020318,002333: 07,7344           03323                           TC       RELDSP                                
020319,002334: 07,7345           33224                           CAF      TCWAIT                                
020320,002335: 07,7346           50073                           TS       PROGREG                               #  TC WAITLIST INTO PROGREG
020321,002336: 07,7347           30624                           XCH      NOUNADD                               
020322,002337: 07,7350           50074                           TS       PROGREG    +1                         #  CADR TASKADDR INTO PROGREG+1
020323,002338: 07,7351           20017                           INHINT                                         
020324,002339: 07,7352           30616                           XCH      DSPTEM1                               #  DELTA T IN A
020325,002340: 07,7353           00073        ENDRQWT            TC       PROGREG                               
020326,002341: 
020327,002342: 
020328,002343: 
020329,002344: 06,7465                                           SETLOC   FLASHLOC   +1                         
020330,002345: 06,7465           34516        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
020331,002346: 06,7466           50632                           TS       LOADSTAT                              
020332,002347: 06,7467           03323                           TC       RELDSP                                
020333,002348: 06,7470           06003                           TC       FLASHOFF                              
020334,002349: 06,7471           07600                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
020335,002350: 
020336,002351: 
020337,002352: 
020338,002353: 06,7472           03127        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020339,002354: 06,7473           44516                           CS       ONE                                   
020340,002355: 06,7474           07466                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
020341,002356: 
020342,002357: 
020343,002358: 
020344,002359:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM(AND SEARCHES LIST ONLY
020345,002360:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
020346,002361: 
020347,002362: 06,7475           35501        VBRELDSP           CAF      ZERO                                  #  RELEASE DISPLAY SYST
020348,002363: 06,7476           50111                           TS       CODE                                  #  TURN OFF UPACT LIGHT
020349,002364: 06,7477           35362                           CAF      SEVEN                                 
020350,002365: 06,7500           07426                           TC       11DSPIN                               
020351,002366: 06,7501           03323                           TC       RELDSP                                #  SEARCHES LIST
020352,002367: 06,7502           02124                           TC       ENDOFJOB                              
020353,002368: 
020354,002369: 
020355,002370: 
020356,002371:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.

Page 531

020358,002373: 
020359,002374: 06,7503           34477        BUMP               CAF      FIVE                                  #  R2D5
020360,002375: 06,7504           50614                           TS       DSPCOUNT                              
020361,002376: 06,7505           50104                           TS       COUNT                                 
020362,002377: 06,7506           34516                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
020363,002378: 06,7507           70104                           MASK     COUNT                                 
020364,002379: 06,7510           30104                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
020365,002380: 06,7511           50021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)
020366,002381: 06,7512           30021                           XCH      SR                                    #  DSREL IN A
020367,002382: 06,7513           20000                           INDEX    A                                     
020368,002383: 06,7514           10710                           CCS      DSPTAB                                
020369,002384: 06,7515           07517                           TC       +2                                    
020370,002385: 06,7516           03062                           TC       CCSHOLE                               
020371,002386: 06,7517           64516                           AD       ONE                                   #  DSMAG IN A
020372,002387: 06,7520           20104                           INDEX    COUNT                                 
020373,002388: 06,7521           77422                           MASK     DSMSK                                 
020374,002389: 06,7522           20104                           INDEX    COUNT                                 
020375,002390: 06,7523           07524                           TC       +1                                    
020376,002391: 06,7524           07526                           TC       +2                                    #  EVEN(RIGHT)  OK
020377,002392: 06,7525           03174                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
020378,002393: 06,7526           50111                           TS       CODE                                  
020379,002394: 06,7527           44477                           CS       FIVE                                  
020380,002395: 06,7530           60614                           AD       DSPCOUNT                              #  DSPCOUNT-5
020381,002396: 06,7531           10000                           CCS      A                                     #  TO PREVENT -0
020382,002397: 06,7532           64516                           AD       ONE                                   
020383,002398: 06,7533           07535                           TC       +2                                    
020384,002399: 06,7534           03062                           TC       CCSHOLE                               
020385,002400: 06,7535           50104                           TS       COUNT                                 
020386,002401: 06,7536           07341                           TC       DSPIN                                 #  CODE ALREADY IN CODE
020387,002402: 06,7537           40614                           CS       DSPCOUNT                              
020388,002403: 06,7540           63171                           AD       R1D1                                  #  OCT 16
020389,002404: 06,7541           10000                           CCS      A                                     
020390,002405: 06,7542           30614                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
020391,002406: 06,7543           64516                           AD       ONE                                   #  INCREMENT DSPCOUNT
020392,002407: 06,7544           07504                           TC       BUMP       +1                         
020393,002408: 
020394,002409: 06,7545           35501        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
020395,002410: 06,7546           50614                           TS       DSPCOUNT                              
020396,002411: 06,7547           67576                           AD       SWTAB      +2                         #  OCT 3
020397,002412: 06,7550           20000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
020398,002413: 06,7551           10710                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
020399,002414: 06,7552           07554                           TC       +2                                    
020400,002415: 06,7553           03062                           TC       CCSHOLE                               
020401,002416: 06,7554           64516                           AD       ONE                                   
020402,002417: 06,7555           74504                           MASK     BIT11                                 
020403,002418: 06,7556           50111                           TS       CODE                                  
020404,002419: 06,7557           20614                           INDEX    DSPCOUNT                              
020405,002420: 06,7560           37574                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
020406,002421: 06,7561           07426                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
020407,002422: 06,7562           40614                           CS       DSPCOUNT                              
020408,002423: 06,7563           67576                           AD       SWTAB      +2                         #  OCT 3

Page 532

020410,002425: 06,7564           10000                           CCS      A                                     
020411,002426: 06,7565           30614                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
020412,002427: 06,7566           64516                           AD       ONE                                   #  INCREMENT DSPCOUNT
020413,002428: 06,7567           07546                           TC       SWSGN      +1                         
020414,002429: 06,7570           33171                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
020415,002430: 06,7571           50614                           TS       DSPCOUNT                              
020416,002431: 06,7572           06554                           TC       5BLANK                                #  BLANKS R1
020417,002432: 06,7573           00065                           TC       ENTEXIT                               
020418,002433: 
020419,002434: 06,7574           00000        SWTAB              OCT      0                                     #  -R3
020420,002435: 06,7575           00001                           OCT      1                                     #  +R3
020421,002436: 06,7576           00003                           OCT      3                                     #  -R2
020422,002437: 06,7577           00004                           OCT      4                                     #  +R2
020423,002438: 
020424,002439: 
020425,002440: 
020426,002441:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
020427,002442:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN 
020428,002443:                                                                                                  #  INTO A.      V'S ARE 6 BIT VERB CODE. N'S , 6-BIT NOUN CODE.
020429,002444: 
020430,002445:                                                                                                  #  NVSUB CAN BE USED WTIH MACH ADDR TO BE SPEC BY PLACING THE ADDRESS INTO
020431,002446:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
020432,002447: 
020433,002448:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
020434,002449:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
020435,002450:                                                                                                  #  IF V'S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
020436,002451:                                                                                                  #  ACTION). IF N'S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
020437,002452:                                                                                                  #  FURTHER ACTION).
020438,002453: 
020439,002454:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
020440,002455:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
020441,002456:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
020442,002457:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
020443,002458: 
020444,002459:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
020445,002460:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
020446,002461:                                                                                                  #        IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
020447,002462:                                                                                                  #  PROCEED WITOHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
020448,002463:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
020449,002464:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
020450,002465:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
020451,002466:                                                                                                  #  MONITOR SET UP.
020452,002467: 
020453,002468:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
020454,002469: 
020455,002470:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
020456,002471:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
020457,002472: 
020458,002473:                                                                                                  #  NVSUB IN F/F PLACES 2 + CALLING CADR INTO NVSBCADR, TC NVSUBEND INTO
020459,002474:                                                                                                  #  ENTRET. IT WILL HANDLE A CALL FROM F/F OK, BUT WILL NOT RESTORE BANKREG

Page 533

020461,002476:                                                                                                  #  TO ITS ORIGINAL CONTENTS.
020462,002477: 
020463,002478:    3100                                           SETLOC   MIDSIX     +1                         
020464,002479:    3100           50110        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
020465,002480:    3101           34513                           CAF      BIT4                                  
020466,002481:    3102           70645                           MASK     DSPLOCK                               
020467,002482:    3103           10000                           CCS      A                                     
020468,002483:    3104           00001                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020469,002484:    3105           30001                           XCH      Q                                     #  DSP SYST AVAILABLE
020470,002485:    3106           64516                           AD       ONE                                   
020471,002486:    3107           50071                           TS       TEMQS                                 #  2+ CALLING CADR INTO TEMQS
020472,002487:    3110           03127                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020473,002488:    3111           33120        NVSUBCOM           CAF      NVSUBANK                              
020474,002489:    3112           30015                           XCH      BANKREG                               
020475,002490:    3113           50072                           TS       BANKTEM                               
020476,002491:    3114           05706                           TC       MAKECADR                              
020477,002492:    3115           30062                           XCH      ADDRWD                                
020478,002493:    3116           50631                           TS       NVSBCADR                              
020479,002494:    3117           06000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
020480,002495:    3120           17354        NVSUBANK           CADR     NVSUB1                                #  BANK NUMBER OF NVSUB1
020481,002496: 
020482,002497:    3121           30001        NVSUBMON           XCH      Q                                     #  MONDO COMES HERE
020483,002498:    3122           64516                           AD       ONE                                   
020484,002499:    3123           50071                           TS       TEMQS                                 
020485,002500:    3124           03111                           TC       NVSUBCOM                              
020486,002501: 
020487,002502: 
020488,002503: 
020489,002504:    3125           30631        NVSUBEND           XCH      NVSBCADR                              
020490,002505:    3126           05662                           TC       SWCALL                                
020491,002506: 
020492,002507: 
020493,002508: 
020494,002509: 07,7354                                           SETLOC   ENDRQWT    +1                         
020495,002510: 07,7354           37373        NVSUB1             CAF      ENTSET                                #  IN BANK
020496,002511: 07,7355           50065                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
020497,002512: 07,7356           37421                           CAF      LOW6                                  
020498,002513: 07,7357           70110                           MASK     NVTEMP                                
020499,002514: 07,7360           50115                           TS       MPAC                                  #  TEMP STORAGE
020500,002515: 07,7361           37422                           CAF      MID6                                  
020501,002516: 07,7362           70110                           MASK     NVTEMP                                
020502,002517: 07,7363           03174                           TC       RIGHT5                                
020503,002518: 07,7364           50020                           TS       CYR                                   
020504,002519: 07,7365           30020                           XCH      CYR                                   
020505,002520: 07,7366           50116                           TS       MPAC       +1                         #  TEMP STORAGE
020506,002521: 07,7367           10115                           CCS      MPAC                                  #  TEST NOUN
020507,002522: 07,7370           07374                           TC       +4                                    #  IF NOUN NOT +0, GO ON
020508,002523: 07,7371           30116                           XCH      MPAC       +1                         
020509,002524: 07,7372           06345                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN

Page 534

020511,002526: 07,7373           03125        ENTSET             TC       NVSUBEND                              
020512,002527: 07,7374           10116                           CCS      MPAC       +1                         #  TEST VERB
020513,002528: 07,7375           07401                           TC       +4                                    #  IF VERB NOT +0, GO ON
020514,002529: 07,7376           30115                           XCH      MPAC                                  
020515,002530: 07,7377           06326                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN . THEN RETURN
020516,002531: 07,7400           03125                           TC       NVSUBEND                              
020517,002532: 07,7401           30116                           XCH      MPAC       +1                         
020518,002533: 07,7402           06345                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
020519,002534: 07,7403           30115                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
020520,002535: 07,7404           06326                           TC       UPDATNN    -1                         
020521,002536: 07,7405           10054                           CCS      NNADTEM                               #  NOUN TABLES WERE READ IN UPDATNN.
020522,002537: 07,7406           07411                           TC       +3                                    #  NORMAL
020523,002538: 07,7407           06356                           TC       GODSPALM                              #  NOUN NOT IN USE
020524,002539: 07,7410           07416                           TC       MATBSUB                               
020525,002540: 07,7411           35501        NVSUB2             CAF      ZERO                                  
020526,002541: 07,7412           50632                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
020527,002542: 07,7413           50633                           TS       CLPASS                                
020528,002543: 07,7414           50613                           TS       REQRET                                #  SET REQRET FOR PASS 0.
020529,002544: 07,7415           06035                           TC       ENTPAS0                               
020530,002545: 
020531,002546: 07,7416           30117        MATBSUB            XCH      MPAC       +2                         #  NVSUB CALL LEFT ADDRES FOR MATBS IN
020532,002547: 07,7417           50624                           TS       NOUNADD                               #  MPAC+2.
020533,002548: 07,7420           07411                           TC       NVSUB2                                
020534,002549: 
020535,002550: 
020536,002551: 
020537,002552: 07,7421           00077        LOW6               OCT      77                                    
020538,002553: 07,7422           07700        MID6               OCT      7700                                  
020539,002554: 
020540,002555:    3127                                           SETLOC   NVSUBEND   +2                         
020541,002556:    3127           44500        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
020542,002557:    3130           20017                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
020543,002558:    3131           70626                           MASK     MONSAVE1                              
020544,002559:    3132           64500                           AD       BIT15                                 
020545,002560:    3133           50626                           TS       MONSAVE1                              
020546,002561:    3134           20016                           RELINT                                         
020547,002562:    3135           00001                           TC       Q                                     
020548,002563: 
020549,002564: 
020550,002565: 
020551,002566:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020552,002567:                                                                                                  #            +1  PROCEED NO DATA. SET BY V33 OR PROCEED
020553,002568:                                                                                                  #           -1 TERMINATE   SET BY V34
020554,002569:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
020555,002570: 
020556,002571:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
020557,002572:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020558,002573:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.

Page 535

020560,002575:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020561,002576:                                                                                                  #  L+1 FOR TERMINATE
020562,002577:                                                                                                  #  L+2 FOR PROCEED WITHOUT DATA
020563,002578:                                                                                                  #  L+3 FOR DATA IN
020564,002579:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
020565,002580: 
020566,002581:    3136           30001        ENDIDLE            XCH      Q                                     #  NOVAC ROUTINES ENTER HERE
020567,002582:    3137           50071                           TS       TEMQS                                 
020568,002583:    3140           30015                           XCH      BANKREG                               
020569,002584:    3141           50072                           TS       BANKTEM                               
020570,002585:    3142           05706                           TC       MAKECADR                              
020571,002586:    3143           03265                           TC       DSPLOCK1                              #  MAKE DSPLOCK BUSY (BIT 4 OF STATE)
020572,002587:    3144           30062                           XCH      ADDRWD                                
020573,002588:    3145           50627                           TS       CADRSTOR                              
020574,002589:    3146           02127                           TC       JOBSLEEP                              
020575,002590: 
020576,002591: 
020577,002592: 
020578,002593:    3147           02124        ENDINST            TC       ENDOFJOB                              
020579,002594: 
020580,002595:    3150           05777        BNKCON             OCT      5777                                  
020581,002596: 
020582,002597: 
020583,002598: 
020584,002599:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020585,002600:                                                                                                  #  IT DOES ENDOFJOB.
020586,002601: 
020587,002602:    3151           33554        JAMTERM            CAF      TWENTY8                               
020588,002603:    3152           50613                           TS       REQRET                                #  LEAVE ENTER AT PASS 0
020589,002604:    3153           05654                           TC       BANKCALL                              
020590,002605:    3154           16345                           CADR     UPDATVB    -1                         #  DISPLAY VB 34
020591,002606:    3155           05720                           TC       POSTJUMP                              
020592,002607:    3156           15472                           CADR     VBTERM                                
020593,002608: 
020594,002609: 
020595,002610: 
020596,002611:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
020597,002612:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
020598,002613:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
020599,002614:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
020600,002615: 
020601,002616:    3157           30001        DATAWAIT           XCH      Q                                     
020602,002617:    3160           50071                           TS       TEMQS                                 
020603,002618:    3161           10632                           CCS      LOADSTAT                              
020604,002619:    3162           03167                           TC       DATWAIT1                              #  PROCEED,RETURN TO L+2.
020605,002620:    3163           03140                           TC       ENDIDLE    +2                         #  STILL WAITING. GO TO SLEEP.
020606,002621:    3164           00071                           TC       TEMQS                                 #  TERMINATE. RETURN TO L+1.
020607,002622:    3165           20071                           INDEX    TEMQS                                 #  DATA IN. RETURN TO L+3.
020608,002623:    3166           00002                           TC       2                                     
020609,002624:    3167           20071        DATWAIT1           INDEX    TEMQS                                 #  RETURN TO L+2

Page 536

020611,002626:    3170           00001                           TC       1                                     
020612,002627: 
020613,002628:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
020614,002629:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
020615,002630: 
020616,002631: 
020617,002632: 
020618,002633: 07,7423                                           SETLOC   MID6       +1                         
020619,002634:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
020620,002635: 
020621,002636: 07,7423           33231        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
020622,002637: 07,7424           30614                           XCH      DSPCOUNT                              #  SAVE DSPCOUNT 
020623,002638: 07,7425           50107                           TS       DSPMMTEM                              
020624,002639: 07,7426           40612                           CS       MODREG                                
020625,002640: 07,7427           40000                           CS       A                                     
020626,002641: 07,7430           07261                           TC       DSP2BIT                               
020627,002642: 07,7431           30107                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
020628,002643: 07,7432           50614                           TS       DSPCOUNT                              
020629,002644: 07,7433           00063        ENDSPMM1           TC       UPDATRET                              
020630,002645: 
020631,002646: 
020632,002647: 
020633,002648:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS 
020634,002649:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
020635,002650:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020636,002651: 
020637,002652:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
020638,002653:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
020639,002654: 
020640,002655: 06,7600                                           SETLOC   SWTAB      +4                         
020641,002656: 
020642,002657: 06,7600           10627        RECALTST           CCS      CADRSTOR                              
020643,002658: 06,7601           07606                           TC       RECAL1                                
020644,002659: 06,7602           02124                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
020645,002660: 06,7603           07606                           TC       RECAL1                                
020646,002661: 06,7604           50627                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
020647,002662: 06,7605           07624                           TC       RECAL3                                #  +0 INTO CADRSTOR, RELEASE DISPLAY, 
020648,002663:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT.
020649,002664: 06,7606           35501        RECAL1             CAF      ZERO                                  
020650,002665: 06,7607           30627                           XCH      CADRSTOR                              
020651,002666: 06,7610           20017                           INHINT                                         
020652,002667: 06,7611           02060                           TC       JOBWAKE                               
020653,002668: 06,7612           10632                           CCS      LOADSTAT                              
020654,002669: 06,7613           07630                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
020655,002670: 06,7614           02124                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
020656,002671: 06,7615           07626                           TC       DOTERM                                #  -   TERMINATE
020657,002672: 06,7616           45503                           CS       TWO                                   
020658,002673: 06,7617           20601        RECAL2             INDEX    LOCCTR                                
020659,002674: 06,7620           60120                           AD       LOC                                   #  LOC IS - FOR BASIC JOBS
020660,002675: 06,7621           20601                           INDEX    LOCCTR                                

Page 537

020662,002677: 06,7622           50120                           TS       LOC                                   
020663,002678: 06,7623           20016                           RELINT                                         
020664,002679: 06,7624           03356        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
020665,002680: 06,7625           02124                           TC       ENDOFJOB                              
020666,002681: 
020667,002682: 06,7626           35501        DOTERM             CAF      ZERO                                  
020668,002683: 06,7627           07617                           TC       RECAL2                                
020669,002684: 
020670,002685: 06,7630           44516        DOPROC             CS       ONE                                   
020671,002686: 06,7631           07617                           TC       RECAL2                                
020672,002687: 

Page 538

020674,002689: 
020675,002690:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
020676,002691: 
020677,002692: 
020678,002693: 
020679,002694: 07,7431                                           SETLOC   DSPMM1     +6                         
020680,002695: 
020681,002696:                                                                                                  #  COMPONENT CODE NUMBER         INTERPRETATION
020682,002697: 
020683,002698:                                                                                                  #  00000                         1 COMPONENT
020684,002699:                                                                                                  #  00001                         2 COMPONENT (EACH S P)
020685,002700:                                                                                                  #  00010                         3 COMPONENT (EACH SP)
020686,002701: 
020687,002702: 
020688,002703: 
020689,002704:                                                                                                  #  SF ROUTINE CODE NUMBER        INTERPRETATION
020690,002705: 
020691,002706:                                                                                                  #  00000         OCTAL ONLY
020692,002707:                                                                                                  #  00001         STRAIGHT FRACTIONAL
020693,002708:                                                                                                  #  00010         DEGREES (XXX.XX)
020694,002709:                                                                                                  #  00011         ARITHMETIC SF
020695,002710:                                                                                                  #  00100         ARITH DP1       OUT(MULT BY 2/14 AT END)        IN(STRAIGHT)
020696,002711:                                                                                                  #  00101         ARITH DP2       OUT(STRAIGHT)                   IN(SL 7 AT END)
020697,002712:                                                                                                  #  00110         OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
020698,002713:                                                                                                  #  00111         ARITH DP3       OUT ( SL 7 AT END)              IN ( STRAIGHT)
020699,002714:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
020700,002715: 
020701,002716: 
020702,002717: 
020703,002718:                                                                                                  #  SF CONSTANT CODE NUMBER       INTERPRETATION
020704,002719: 
020705,002720:                                                                                                  #  00000                         WHOLE
020706,002721:                                                                                                  #  00000                         TIME SEC(XXX.XX SEC)SAME AS WHOLE (ARITHDP1)
020707,002722:                                                                                                  #  00001                         TIME HOURS(XXX.XX) USE ARITH DP2
020708,002723:                                                                                                  #  00010                         DEGREES
020709,002724:                                                                                                  #  00010                         OPTICS DEGREES
020710,002725:                                                                                                  #  00011                         GYRO DEGREES(XX.XXX) USE ARITH DP1
020711,002726:                                                                                                  #  00100                         GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
020712,002727:                                                                                                  #  00101                         GYRO AXIS ACCEL. DRIFT
020713,002728:                                                                                                  #                                .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
020714,002729:                                                                                                  #  00110                         PIPA BIAS X.XXXX CM/SEC SEC
020715,002730:                                                                                                  #  00111                         PIPA SCALE FACTOR ERROR
020716,002731:                                                                                                  #                                        XXXXX. PARTS/MILLION
020717,002732:                                                                                                  #  01000                         POSITION(XXXX.X KILOMETERS) USE ARITHDP3
020718,002733:                                                                                                  #  01001                         VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
020719,002734:                                                                                                  #  01010                         TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
020720,002735:                                                                                                  #  01011                         ELEVATION DEGREES(89.999MAX) USE ARITH
020721,002736:                                                                                                  #  01100                         VG FOR 501 (XXXX.X MET/SEC)  USE ARITH
020722,002737:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
020723,002738: 

Page 539

020725,002740:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
020726,002741:                                                                                                  #  NOUN TABLES.
020727,002742:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
020728,002743:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
020729,002744:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
020730,002745: 

Page 540

020732,002747: 
020733,002748:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
020734,002749:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
020735,002750:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY SWCALL.
020736,002751: 
020737,002752: 
020738,002753: 
020739,002754:                                                                                                  #  LODNNTAB LOADS NNADTEM WTIH THE NNADTAB ENTRY, NNTYPTEM WITH THE
020740,002755:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
020741,002756:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
020742,002757:                                                                                                  #  IDADDTAB ENTRY. MIXBR IS SET FOR MIXED OR NORMAL NOUN.
020743,002758: 
020744,002759: 05,7153                                           SETLOC   ENDEXTVS                              
020745,002760: 05,7153           30001        LODNNTAB           XCH      Q                                     
020746,002761: 05,7154           50060                           TS       IDAD3TEM                              #  SAVE RETURN ADDRESS IN IDAD3TEM
020747,002762: 05,7155           20603                           INDEX    NOUNREG                               
020748,002763: 05,7156           37231                           CAF      NNADTAB                               
020749,002764: 05,7157           50054                           TS       NNADTEM                               
020750,002765: 05,7160           20603                           INDEX    NOUNREG                               
020751,002766: 05,7161           37331                           CAF      NNTYPTAB                              
020752,002767: 05,7162           50055                           TS       NNTYPTEM                              
020753,002768: 05,7163           40603                           CS       NOUNREG                               
020754,002769: 05,7164           67167                           AD       MIXCON                                
020755,002770: 05,7165           10000                           CCS      A                                     
020756,002771: 05,7166           07210                           TC       LODNORM                               #  NOUN L/ FIRST MIXED NOUN
020757,002772: 05,7167           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
020758,002773: 05,7170           07171                           TC       +1                                    
020759,002774: 05,7171           35503        LODMIXNN           CAF      TWO                                   #  NOUN G/E FIRST MIXED NOUN
020760,002775: 05,7172           50107                           TS       MIXBR                                 
020761,002776: 05,7173           34606                           CAF      LOW10                                 
020762,002777: 05,7174           70054                           MASK     NNADTEM                               
020763,002778: 05,7175           50001                           TS       Q                                     #  IDADDREL INTO Q
020764,002779: 05,7176           20000                           INDEX    A                                     
020765,002780: 05,7177           37515                           CAF      IDADDTAB                              
020766,002781: 05,7200           50056                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY.
020767,002782: 05,7201           20001                           INDEX    Q                                     
020768,002783: 05,7202           37516                           CAF      IDADDTAB   +1                         
020769,002784: 05,7203           50057                           TS       IDAD2TEM                              #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY.
020770,002785: 05,7204           20001                           INDEX    Q                                     
020771,002786: 05,7205           37517                           CAF      IDADDTAB   +2                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
020772,002787: 05,7206           30060        LODNLV             XCH      IDAD3TEM                              #  PUT RETURN ADDESS INTO A.
020773,002788: 05,7207           00000                           TC       A                                     
020774,002789: 
020775,002790: 05,7210           34516        LODNORM            CAF      ONE                                   
020776,002791: 05,7211           50107                           TS       MIXBR                                 
020777,002792: 05,7212           07206                           TC       LODNLV                                
020778,002793: 
020779,002794: 
020780,002795: 
020781,002796:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WTIH THE DP SFOUTAB ENTRIES.

Page 541

020783,002798: 
020784,002799: 05,7213           20111        GTSFOUT            INDEX    SFTEMP2                               #  SF CONUM ARRIVES IN SFTEMP2.
020785,002800: 05,7214           37463                           CAF      SFOUTAB1                              
020786,002801: 05,7215           50110                           TS       SFTEMP1                               
020787,002802: 05,7216           20111                           INDEX    SFTEMP2                               
020788,002803: 05,7217           37500                           CAF      SFOUTAB2                              
020789,002804: 05,7220           50111                           TS       SFTEMP2                               
020790,002805: 05,7221           00001                           TC       Q                                     
020791,002806: 
020792,002807: 
020793,002808: 
020794,002809:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
020795,002810: 
020796,002811: 05,7222           20111        GTSFIN             INDEX    SFTEMP2                               #  SF CONUM ARIVES IN SFTEMP2.
020797,002812: 05,7223           37431                           CAF      SFINTAB1                              
020798,002813: 05,7224           50110                           TS       SFTEMP1                               
020799,002814: 05,7225           20111                           INDEX    SFTEMP2                               
020800,002815: 05,7226           37446                           CAF      SFINTAB2                              
020801,002816: 05,7227           50111                           TS       SFTEMP2                               
020802,002817: 05,7230           00001                           TC       Q                                     
020803,002818: 
020804,002819: 
020805,002820: 
020806,002821:                                                                                                  #  NN   NORMAL NOUNS
020807,002822: 05,7231           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
020808,002823: 05,7232           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
020809,002824: 05,7233           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
020810,002825: 05,7234           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
020811,002826: 05,7235           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
020812,002827: 05,7236           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
020813,002828: 05,7237           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
020814,002829: 05,7240           40000                           OCT      40000                                 #  07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
020815,002830: 05,7241           00000                           OCT      00000                                 #  10 SPARE
020816,002831: 05,7242           00000                           OCT      00000                                 #  11 SPARE
020817,002832: 05,7243           00000                           OCT      00000                                 #  12 SPARE
020818,002833: 05,7244           00000                           OCT      00000                                 #  13 SPARE
020819,002834: 05,7245           00000                           OCT      00000                                 #  14 SPARE
020820,002835: 05,7246           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
020821,002836: 05,7247           00035                           OCT      00035                                 #  16 TIME SECONDS
020822,002837: 05,7250           00035                           OCT      00035                                 #  17 TIME HOURS
020823,002838: 05,7251           00047                           ADRES    CDUX                                  #  20 ICDU
020824,002839: 05,7252           00044                           ADRES    PIPAX                                 #  21 PIPAS
020825,002840: 05,7253           00700                           ADRES    THETAD                                #  22 NEW ANGLES I
020826,002841: 05,7254           00621                           ADRES    DSPTEM2                               #  23 DELTA ANGLES I
020827,002842: 05,7255           00616                           ADRES    DSPTEM1                               #  24 DELTA TIME (SEC)
020828,002843: 05,7256           00616                           ADRES    DSPTEM1                               #  25 CHECKLIST
020829,002844: 05,7257           00616                           ADRES    DSPTEM1                               #  26 PRIO/DELAY
020830,002845: 05,7260           01762                           ADRES    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
020831,002846: 05,7261           00616                           ADRES    DSPTEM1                               #  30 STAR NUMBERS
020832,002847: 05,7262           01763                           ADRES    FAILREG                               #  31 FAILREG, SFAIL, ERCOUNT
020833,002848: 05,7263           01266                           ADRES    TDEC                                  #  32 DECISION TIME (MIDCOURSE)

Page 542

020835,002850: 05,7264           01146                           ADRES    TET                                   #  33 EPHEMERIS TIME(MIDCOURSE)
020836,002851: 05,7265           01276                           ADRES    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
020837,002852: 05,7266           01314                           ADRES    ROLL                                  #  35 ROLL, PITCH, YAW
020838,002853: 05,7267           00616                           ADRES    LANDMARK                              #  36 LANDMARK DATA 1
020839,002854: 05,7270           00621                           ADRES    LANDMARK   +3                         #  37 LANDMARK DATA 2
020840,002855: 05,7271           00616                           ADRES    DSPTEM1                               #  40 VG FOR 501
020841,002856: 05,7272           00000                           OCT      00000                                 #  41 SPARE
020842,002857: 05,7273           00000                           OCT      00000                                 #  42 SPARE
020843,002858: 05,7274           00000                           OCT      00000                                 #  43 SPARE
020844,002859: 05,7275           00000                           OCT      00000                                 #  44 SPARE
020845,002860: 05,7276           00000                           OCT      00000                                 #  45 SPARE
020846,002861: 05,7277           00000                           OCT      00000                                 #  46 SPARE
020847,002862: 05,7300           00000                           OCT      00000                                 #  47 SPARE
020848,002863: 05,7301           00000                           OCT      00000                                 #  50 SPARE
020849,002864: 05,7302           00000                           OCT      00000                                 #  51 SPARE
020850,002865: 05,7303           00744                           ADRES    GBIASX                                #  52 GYRO BIAS DRIFT
020851,002866: 05,7304           00747                           ADRES    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
020852,002867: 05,7305           00752                           ADRES    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
020853,002868: 
020854,002869:                                                                                                  #  NN  MIXED NOUNS
020855,002870: 05,7306           02000                           OCT      02000                                 #  55 OCDU
020856,002871: 05,7307           04002                           OCT      04002                                 #  56 UNCALLED MARK DATA (OCDU & TIME(SEC))
020857,002872: 05,7310           02005                           OCT      02005                                 #  57 NEW ANGLES OCDU
020858,002873: 05,7311           04007                           OCT      04007                                 #  60 IMU MODE STATUS
020859,002874: 05,7312           02012                           OCT      02012                                 #  61 TARGET AZIMUTH AND ELEVATION
020860,002875: 05,7313           04062                           OCT      04062                                 #  62 RE-RENTRY VARIABLES
020861,002876: 05,7314           02016                           OCT      02016                                 #  63 OCDUX AND TIME(SEC)
020862,002877: 05,7315           02020                           OCT      02020                                 #  64 OCDUY AND TIME(SEC)
020863,002878: 05,7316           02022                           OCT      02022                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
020864,002879:                                                                                                  #        (FETCHED IN INTERRUPT)
020865,002880: 05,7317           04024                           OCT      04024                                 #  66 SYSTEM TEST RESULTS
020866,002881: 05,7320           04027                           OCT      04027                                 #  67 DELTA GYRO ANGLES
020867,002882: 05,7321           04032                           OCT      04032                                 #  70 PIPA BIAS
020868,002883: 05,7322           04035                           OCT      04035                                 #  71 PIPA SCALE FACTOR ERROR
020869,002884: 05,7323           04040                           OCT      04040                                 #  72 DELTA POSITION
020870,002885: 05,7324           04043                           OCT      04043                                 #  73 DELTA VELOCITY
020871,002886: 05,7325           04046                           OCT      04046                                 #  74 MEASUREMENT DATA (MIDCOURSE)
020872,002887: 05,7326           04051                           OCT      04051                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
020873,002888: 05,7327           04054                           OCT      04054                                 #  76 POSITION VECTOR
020874,002889: 05,7330           04057                           OCT      04057                                 #  77 VELOCITY VECTOR
020875,002890: 
020876,002891: 
020877,002892: 
020878,002893:                                                                                                  #  NN        NORMAL NOUNS
020879,002894: 05,7331           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
020880,002895: 05,7332           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
020881,002896: 05,7333           00140                           OCT      00140                                 #  02 1COMP  WHOLE
020882,002897: 05,7334           00102                           OCT      00102                                 #  03 1COMP  DEGREES
020883,002898: 05,7335           00241                           OCT      00241                                 #  04 1COMP  HOURS
020884,002899: 05,7336           00200                           OCT      00200                                 #  05 1COMP  SECONDS

Page 543

020886,002901: 05,7337           00203                           OCT      00203                                 #  06 1COMP  OCTAL ONLY
020887,002902: 05,7340           00302                           OCT      00302                                 #  07 1COMP  OCTAL ONLY
020888,002903: 05,7341           00000                           OCT      00000                                 #  10        SPARE
020889,002904: 05,7342           00000                           OCT      00000                                 #  11        SPARE
020890,002905: 05,7343           00000                           OCT      00000                                 #  12        SPARE
020891,002906: 05,7344           00000                           OCT      00000                                 #  13        SPARE
020892,002907: 05,7345           00000                           OCT      00000                                 #  14        SPARE
020893,002908: 05,7346           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
020894,002909: 05,7347           00200                           OCT      00200                                 #  16 1COMP  SECONDS
020895,002910: 05,7350           00241                           OCT      00241                                 #  17 3COMP  HOURS
020896,002911: 05,7351           04102                           OCT      04102                                 #  20 3COMP  DEGREES
020897,002912: 05,7352           04140                           OCT      04140                                 #  21 3COMP  WHOLE
020898,002913: 05,7353           04102                           OCT      04102                                 #  22 3COMP  DEGREES
020899,002914: 05,7354           04102                           OCT      04102                                 #  23 3COMP  DEGREES
020900,002915: 05,7355           00200                           OCT      00200                                 #  24 1COMP  SECONDS
020901,002916: 05,7356           00140                           OCT      00140                                 #  25 1COMP  WHOLE
020902,002917: 05,7357           00140                           OCT      00140                                 #  26 1COMP  WHOLE
020903,002918: 05,7360           00140                           OCT      00140                                 #  27 1COMP  WHOLE
020904,002919: 05,7361           04140                           OCT      04140                                 #  30 3COMP  WHOLE
020905,002920: 05,7362           04000                           OCT      04000                                 #  31 3COMP  HMS (DEC ONLY)
020906,002921: 05,7363           00252                           OCT      00252                                 #  32 3COMP  HMS (DEC ONLY)
020907,002922: 05,7364           00252                           OCT      00252                                 #  33 3COMP  HMS (DEC ONLY)
020908,002923: 05,7365           00350                           OCT      00350                                 #  34 3COMP  HMS (DEC ONLY)
020909,002924: 05,7366           04102                           OCT      04102                                 #  35 3COMP  HMS (DEC ONLY)
020910,002925: 05,7367           04000                           OCT      04000                                 #  36 3COMP  HMS (DEC ONLY)
020911,002926: 05,7370           04000                           OCT      04000                                 #  37 3COMP  HMS (DEC ONLY)
020912,002927: 05,7371           04154                           OCT      04154                                 #  40 3COMP  VG FOR 501
020913,002928: 05,7372           00000                           OCT      00000                                 #  41        SPARE
020914,002929: 05,7373           00000                           OCT      00000                                 #  42        SPARE
020915,002930: 05,7374           00000                           OCT      00000                                 #  43        SPARE
020916,002931: 05,7375           00000                           OCT      00000                                 #  44        SPARE
020917,002932: 05,7376           00000                           OCT      00000                                 #  45        SPARE
020918,002933: 05,7377           00000                           OCT      00000                                 #  46        SPARE
020919,002934: 05,7400           00000                           OCT      00000                                 #  47        SPARE
020920,002935: 05,7401           00000                           OCT      00000                                 #  50        SPARE
020921,002936: 05,7402           00000                           OCT      00000                                 #  51        SPARE
020922,002937: 05,7403           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
020923,002938: 05,7404           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
020924,002939: 05,7405           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
020925,002940: 
020926,002941:                                                                                                  #  NN        MIXED NOUNS
020927,002942: 05,7406           00102                           OCT      00102                                 #  55 2COMP  DEGREES, Y OPT DEGREES
020928,002943: 05,7407           00102                           OCT      00102                                 #  56 3COMP  DEGREES, Y OPT DEGREES, SECS
020929,002944: 05,7410           00102                           OCT      00102                                 #  57 2COMP  DEGREES, Y OPT DEGREES
020930,002945: 05,7411           00000                           OCT      00000                                 #  60 3COMP  OCTAL ONLY
020931,002946: 05,7412           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
020932,002947: 05,7413           00000                           OCT      00000                                 #  62 3COMP  SECS, WHOLE, WHOLE
020933,002948: 05,7414           00002                           OCT      00002                                 #  63 2COMP  DEGREES, SECS
020934,002949: 05,7415           00002                           OCT      00002                                 #  64 2COMP  Y OPT DEGREES, SECS
020935,002950: 05,7416           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS

Page 544

020937,002952: 05,7417           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
020938,002953: 05,7420           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
020939,002954: 05,7421           14306                           OCT      14306                                 #  70 3COMP  PIPA BIAS FOR EACH
020940,002955: 05,7422           16347                           OCT      16347                                 #  71 3COMP  PIPA SCALE FACTOR ERR.FOR EACH
020941,002956: 05,7423           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
020942,002957: 05,7424           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
020943,002958: 05,7425           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, POSITION
020944,002959: 05,7426           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
020945,002960: 05,7427           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
020946,002961: 05,7430           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
020947,002962: 
020948,002963: 
020949,002964: 
020950,002965: 05,7431           00006        SFINTAB1           OCT      00006                                 #  WHOLE,TIME(SEC)               HIGH PART
020951,002966: 05,7432           00253                           OCT      00253                                 #  TIME HOURS(=1.3-, PT. BETWEEN BITS 7-8)
020952,002967: 05,7433           00000                           OCT      0                                     #  DEGREES
020953,002968: 05,7434           00021                           OCT      00021                                 #  GYRO DEGREES
020954,002969: 05,7435           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
020955,002970: 05,7436           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
020956,002971: 05,7437           00004                           OCT      00004                                 #  PIPA BIAS
020957,002972: 05,7440           00314                           OCT      00314                                 #  PIPA SCALE ERROR
020958,002973: 05,7441           23420                           OCT      23420                                 #  POSITION
020959,002974: 05,7442           00201                           OCT      00201                                 #  VELOCITY (POINT BETWEEN BITS 7-8)
020960,002975: 05,7443           01371                           OCT      01371                                 #  TIME WEEKS (POINT BETWEEN BITS 7-8)
020961,002976: 05,7444           00001                           OCT      00001                                 #  ELEVATION DEGREES
020962,002977: 05,7445           00003                           OCT      00003                                 #  VG FOR 501
020963,002978:                                                                                                  #  END OF SFINTAB1
020964,002979: 
020965,002980: 
020966,002981: 
020967,002982: 05,7446           03240        SFINTAB2           OCT      03240                                 #  WHOLE, TIME(SEC)              LO PART
020968,002983: 05,7447           25124                           OCT      25124                                 #  TIME HOURS
020969,002984: 05,7450           00000                           OCT      0                                     #  DEGREES ( SFCON IN DEGINSF)
020970,002985: 05,7451           30707                           OCT      30707                                 #  GYRO DEGREES
020971,002986: 05,7452           02133                           OCT      02133                                 #  GYRO BIAS DRIFT
020972,002987: 05,7453           30322                           OCT      30322                                 #  GYRO AXIS ACCEL. DRIFT
020973,002988: 05,7454           14021                           OCT      14021                                 #  PIPA BIAS
020974,002989: 05,7455           31463                           OCT      31463                                 #  PIPA SCALE ERROR
020975,002990: 05,7456           00000                           OCT      00000                                 #  POSITION
020976,002991: 05,7457           30327                           OCT      30327                                 #  VELOCITY
020977,002992: 05,7460           34750                           OCT      34750                                 #  TIME WEEKS
020978,002993: 05,7461           03434                           OCT      03434                                 #  ELEVATION DEGREES
020979,002994: 05,7462           04000                           OCT      04000                                 #  VG FOR 501
020980,002995:                                                                                                  #  END OF SFINTAB2
020981,002996: 
020982,002997: 
020983,002998: 
020984,002999: 05,7463           05174        SFOUTAB1           OCT      05174                                 #  WHOLE, TIME(SEC)              HIGH PART
020985,003000: 05,7464           27670                           OCT      27670                                 #  TIME HOURS
020986,003001: 05,7465           00000                           OCT      0                                     #  DEGREES

Page 545

020988,003003: 05,7466           01631                           OCT      01631                                 #  GYRO DEGREES
020989,003004: 05,7467           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
020990,003005: 05,7470           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
020991,003006: 05,7471           07237                           OCT      07237                                 #  PIPA BIAS
020992,003007: 05,7472           00120                           OCT      00120                                 #  PIPA SCALE ERROR
020993,003008: 05,7473           00321                           OCT      00321                                 #  POSITION (POINT BETWEEN BITS 7-8)
020994,003009: 05,7474           37441                           OCT      37441                                 #  VELOCITY
020995,003010: 05,7475           05300                           OCT      05300                                 #  TIME WEEKS
020996,003011: 05,7476           34631                           OCT      34631                                 #  ELEVATION DEGREES
020997,003012: 05,7477           12172                           OCT      12172                                 #  VG FOR 501
020998,003013:                                                                                                  #  END OF SFOUTAB1
020999,003014: 
021000,003015: 
021001,003016: 
021002,003017: 05,7500           13261        SFOUTAB2           OCT      13261                                 #  WHOLE, TIME(SEC)              LO PART
021003,003018: 05,7501           31357                           OCT      31357                                 #  TIME HOURS
021004,003019: 05,7502           00000                           OCT      0                                     #  DEGREES
021005,003020: 05,7503           23146                           OCT      23146                                 #  GYRO DEGREES
021006,003021: 05,7504           32323                           OCT      32323                                 #  GYRO BIAS DRIFT
021007,003022: 05,7505           06400                           OCT      06400                                 #  GYRO AXIS ACCEL. DRIFT
021008,003023: 05,7506           37776                           OCT      37776                                 #  PIPA BIAS
021009,003024: 05,7507           00000                           OCT      00000                                 #  PIPA SCALE ERROR
021010,003025: 05,7510           26706                           OCT      26706                                 #  POSITION
021011,003026: 05,7511           14247                           OCT      14247                                 #  VELOCITY
021012,003027: 05,7512           20305                           OCT      20305                                 #  TIME WEEKS
021013,003028: 05,7513           23146                           OCT      23146                                 #  ELEVATION DEGREES
021014,003029: 05,7514           34121                           OCT      34121                                 #  VG FOR 501
021015,003030:                                                                                                  #  END OF SFOUTAB2
021016,003031: 
021017,003032: 
021018,003033: 
021019,003034:                                                                                                  #  MIXNOUN  SF ROUT              REG
021020,003035: 05,7515           04052        IDADDTAB           CADR     OPTX       +04000                     #  01       DEGREES              52
021021,003036: 05,7516           14053                           CADR     OPTY       +14000                     #  01       Y OPT DEGREES        53
021022,003037: 05,7517           04616                           CADR     DSPTEM1    +04000                     #  02       DEGREES              627
021023,003038: 05,7520           14617                           CADR     DSPTEM1    +14001                     #  02       Y OPT DEGREES        630
021024,003039: 05,7521           10620                           CADR     DSPTEM1    +10002                     #  02       SEC                  631
021025,003040: 05,7522           04704                           CADR     DESOPTX    +04000                     #  03       DEGREES              724
021026,003041: 05,7523           14705                           CADR     DESOPTX    +14001                     #  03       Y OPT DEGREES        725
021027,003042: 05,7524           00007                           CADR     IN3                                   #  04       OCTAL ONLY
021028,003043: 05,7525           00727                           CADR     WASKSET                               #  04       OCTAL ONLY
021029,003044: 05,7526           00726                           CADR     OLDERR                                #  04       OCTAL ONLY
021030,003045: 05,7527           04616                           CADR     DSPTEM1    +04000                     #  05       DEGREES
021031,003046: 05,7530           06617                           CADR     DSPTEM1    +06001                     #  05       ELEVATION DEGREES
021032,003047: 05,7531           00000                           OCT      00000                                 #  N 62 WAS 2COMP. CHANGED TO 3COMP. MOVED
021033,003048: 05,7532           00000                           OCT      00000                                 #  TO END OF IDADDTAB TO PRESERVE TABLE.
021034,003049: 05,7533           04052                           CADR     OPTX       +04000                     #  07       DEGREES              52
021035,003050: 05,7534           10035                           CADR     TIME2      +10000                     #  07       SEC                  35
021036,003051: 05,7535           14053                           CADR     OPTY       +14000                     #  10       Y OPT DEGREES        53
021037,003052: 05,7536           10035                           CADR     TIME2      +10000                     #  10       SEC                  35

Page 546

021039,003054: 05,7537           12643                           CADR     SAMPTIME   +12000                     #  11       HOURS                655
021040,003055: 05,7540           10643                           CADR     SAMPTIME   +10000                     #  11       SECONDS              655
021041,003056: 05,7541           06621                           CADR     DSPTEM2    +06000                     #  12       WHOLE                632
021042,003057: 05,7542           02622                           CADR     DSPTEM2    +02001                     #  12       FRACTIONAL           633
021043,003058: 05,7543           06623                           CADR     DSPTEM2    +06002                     #  12       WHOLE                634
021044,003059: 05,7544           11520                           CADR     OGC        +10000                     #  13       GYRO DEGREES
021045,003060: 05,7545           11522                           CADR     OGC        +10002                     #  13       GYRO DEGREES
021046,003061: 05,7546           11524                           CADR     OGC        +10004                     #  13       GYRO DEGREES
021047,003062: 05,7547           06736                           CADR     PBIASX     +06000                     #  14       PIPA BIAS
021048,003063: 05,7550           06740                           CADR     PBIASY     +06000                     #  14       PIPA BIAS
021049,003064: 05,7551           06742                           CADR     PBIASZ     +06000                     #  14       PIPA BIAS
021050,003065: 05,7552           06737                           CADR     PIPASCFX   +06000                     #  15       PIPA SCALE FACTOR ERROR
021051,003066: 05,7553           06741                           CADR     PIPASCFY   +06000                     #  15       PIPA SCALE FACTOR ERROR
021052,003067: 05,7554           06743                           CADR     PIPASCFZ   +06000                     #  15       PIPA SCALE FACTOR ERROR
021053,003068: 05,7555           17152                           CADR     DELR       +16000                     #  16       POSITION
021054,003069: 05,7556           17154                           CADR     DELR       +16002                     #  16       POSITION
021055,003070: 05,7557           17156                           CADR     DELR       +16004                     #  16       POSITION
021056,003071: 05,7560           13160                           CADR     DELVEL     +12000                     #  17       VELOCITY
021057,003072: 05,7561           13162                           CADR     DELVEL     +12002                     #  17       VELOCITY
021058,003073: 05,7562           13164                           CADR     DELVEL     +12004                     #  17       VELOCITY
021059,003074: 05,7563           13266                           CADR     TDEC       +12000                     #  20       TIME WEEKS
021060,003075: 05,7564           17276                           CADR     MEASQ      +16000                     #  20       POSITION
021061,003076: 05,7565           07300                           CADR     MEASMODE   +06000                     #  20       WHOLE
021062,003077: 05,7566           16616                           CADR     DSPTEM1    +16000                     #  21       POSITION
021063,003078: 05,7567           12620                           CADR     DSPTEM1    +12002                     #  21       VELOCITY
021064,003079: 05,7570           17276                           CADR     DELTAQ     +16000                     #  21       POSITION
021065,003080: 05,7571           16616                           CADR     DSPTEM1    +16000                     #  22       POSITION
021066,003081: 05,7572           16620                           CADR     DSPTEM1    +16002                     #  22       POSITION
021067,003082: 05,7573           16622                           CADR     DSPTEM1    +16004                     #  22       POSITION
021068,003083: 05,7574           12616                           CADR     DSPTEM1    +12000                     #  23       VELOCITY
021069,003084: 05,7575           12620                           CADR     DSPTEM1    +12002                     #  23       VELOCITY
021070,003085: 05,7576           12622                           CADR     DSPTEM1    +12004                     #  23       VELOCITY
021071,003086: 05,7577           10035                           CADR     TIME2      +10000                     #  06       SEC
021072,003087: 05,7600           07617                           CADR     V          +06000                     #  06       WHOLE
021073,003088: 05,7601           07110                           CADR     THETAH     +06000                     #  06       WHOLE
021074,003089: 05,7602           00000                           OCT      00000                                 #           SPARE
021075,003090: 05,7603           00000                           OCT      00000                                 #           SPARE
021076,003091: 05,7604           00000                           OCT      00000                                 #           SPARE
021077,003092: 

Page 547

021079,003094: 
021080,003095:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES
021081,003096: 
021082,003097: 
021083,003098: 
021084,003099:    3171                                           SETLOC   DATWAIT1   +2                         
021085,003100: 
021086,003101:    3171           00016        R1D1               OCT      16                                    
021087,003102:    3172           00011        R2D1               OCT      11                                    
021088,003103:    3173           00004        R3D1               OCT      4                                     
021089,003104: 
021090,003105:    3174           50020        RIGHT5             TS       CYR                                   
021091,003106:    3175           40020                           CS       CYR                                   
021092,003107:    3176           40020                           CS       CYR                                   
021093,003108:    3177           40020                           CS       CYR                                   
021094,003109:    3200           40020                           CS       CYR                                   
021095,003110:    3201           30020                           XCH      CYR                                   
021096,003111:    3202           00001                           TC       Q                                     
021097,003112: 
021098,003113:    3203           50022        LEFT5              TS       CYL                                   
021099,003114:    3204           40022                           CS       CYL                                   
021100,003115:    3205           40022                           CS       CYL                                   
021101,003116:    3206           40022                           CS       CYL                                   
021102,003117:    3207           40022                           CS       CYL                                   
021103,003118:    3210           30022                           XCH      CYL                                   
021104,003119:    3211           00001                           TC       Q                                     
021105,003120: 
021106,003121:    3212           60000        SLEFT5             DOUBLE                                         
021107,003122:    3213           60000                           DOUBLE                                         
021108,003123:    3214           60000                           DOUBLE                                         
021109,003124:    3215           60000                           DOUBLE                                         
021110,003125:    3216           60000                           DOUBLE                                         
021111,003126:    3217           00001                           TC       Q                                     
021112,003127: 
021113,003128: 
021114,003129: 
021115,003130:    3220           00037        LOW5               OCT      37                                    
021116,003131:    3221           01740        MID5               OCT      1740                                  
021117,003132:    3222           76000                           OCT      76000                                 #  MUST STAY HERE.
021118,003133: 
021119,003134:    3223           02052        TCNOVAC            TC       NOVAC                                 
021120,003135:    3224           02173        TCWAIT             TC       WAITLIST                              
021121,003136:    3225           02256        TCTSKOVR           TC       TASKOVER                              
021122,003137:    3226           02046        TCFINDVC           TC       FINDVAC                               
021123,003138: 
021124,003139: 
021125,003140: 
021126,003141:    3227           00023        VD1                OCT      23                                    
021127,003142:    3230           00021        ND1                OCT      21                                    
021128,003143:    3231           00025        MD1                OCT      25                                    
021129,003144: 

Page 548

021131,003146: 
021132,003147:    3232           00012        BINCON             DEC      10         B-14                       
021133,003148: 
021134,003149:    3233     3232               TEN                EQUALS   BINCON                                
021135,003150: 
021136,003151:    3233           20017        FALTON             INHINT                                         #  TURN PROGRAM CHECK LIGHT ON
021137,003152:    3234           44512                           CS       BIT5                                  #  OUT1,BIT5(ALSO KNOWN AS ILLEGAL ORDER)
021138,003153:    3235           70011                           MASK     OUT1                                  
021139,003154:    3236           64512                           AD       BIT5                                  
021140,003155:    3237           50011                           TS       OUT1                                  
021141,003156:    3240           20016                           RELINT                                         
021142,003157:    3241           00001                           TC       Q                                     
021143,003158: 
021144,003159:    3242           20017        FALTOF             INHINT                                         
021145,003160:    3243           44512                           CS       BIT5                                  
021146,003161:    3244           70011                           MASK     OUT1                                  
021147,003162:    3245           50011                           TS       OUT1                                  
021148,003163:    3246           20016                           RELINT                                         
021149,003164:    3247           00001                           TC       Q                                     
021150,003165: 
021151,003166:    3250           20017        RELDSPON           INHINT                                         #  TURN ON RELEASE DISPLAY SYST LIGHT
021152,003167:    3251           44514                           CS       BIT3                                  
021153,003168:    3252           70011                           MASK     OUT1                                  
021154,003169:    3253           64514                           AD       BIT3                                  
021155,003170:    3254           50011                           TS       OUT1                                  
021156,003171:    3255           20016                           RELINT                                         
021157,003172:    3256           00001                           TC       Q                                     
021158,003173: 
021159,003174:    3257           44513        DSPLOCK0           CS       BIT4                                  
021160,003175:    3260           20017                           INHINT                                         #  DSPLOCK = BIT4 OF STATE
021161,003176:    3261           70645                           MASK     DSPLOCK                               
021162,003177:    3262           50645                           TS       DSPLOCK                               
021163,003178:    3263           20016                           RELINT                                         
021164,003179:    3264           00001                           TC       Q                                     
021165,003180: 
021166,003181:    3265           44513        DSPLOCK1           CS       BIT4                                  
021167,003182:    3266           20017                           INHINT                                         #  DSPLOCK = BIT4 OF STATE
021168,003183:    3267           70645                           MASK     DSPLOCK                               
021169,003184:    3270           64513                           AD       BIT4                                  
021170,003185:    3271           30645                           XCH      DSPLOCK                               #  LEAVES OLD C(DSPLOCK) IN A.
021171,003186:    3272           20016                           RELINT                                         
021172,003187:    3273           00001                           TC       Q                                     
021173,003188: 
021174,003189:    3274           34513        TSTDSPLK           CAF      BIT4                                  #  SIMULATES CCS DSPLOCK
021175,003190:    3275           70645                           MASK     DSPLOCK                               
021176,003191:    3276           10000                           CCS      A                                     
021177,003192:    3277           00001                           TC       Q                                     #  DSPLOCK = 1, RETURN TO L+1
021178,003193:    3300           20001                           INDEX    Q                                     
021179,003194:    3301           00001                           TC       1                                     #  DSPLOCK = 0, RETURN TO L+1
021180,003195: 

Page 549

021182,003197: 
021183,003198:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
021184,003199:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
021185,003200:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
021186,003201: 
021187,003202:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
021188,003203:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
021189,003204: 
021190,003205:                                                                                                  #        THE CALLING SEQUENCES ARE
021191,003206:                                                                                                  #  L     TC      GRABDSP
021192,003207:                                                                                                  #  L+1   RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
021193,003208:                                                                                                  #  L+2   RETURN HERE MEANS YOU HAVE IT
021194,003209: 
021195,003210:                                                                                                  #  L     TC      NVSUB
021196,003211:                                                                                                  #  L+1   RETURN HERE IF OPERATOR HAS INTERVENED
021197,003212:                                                                                                  #  L+2   RETURN HERE AFTER EXECUTION
021198,003213: 
021199,003214: 
021200,003215: 
021201,003216:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
021202,003217:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT. 
021203,003218:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
021204,003219: 
021205,003220:                                                                                                  #        THE CALLING SEQUENCE IS
021206,003221:                                                                                                  #                CAF     WAKECADR
021207,003222:                                                                                                  #                TC      GRABUSY
021208,003223: 
021209,003224:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
021210,003225:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT. YOUR CADR IS PUT
021211,003226:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
021212,003227: 
021213,003228:                                                                                                  #  THE CALLING SEQUENCE IS
021214,003229:                                                                                                  #  CAF WAKECADR
021215,003230:                                                                                                  #  TC NVSUBUSY
021216,003231: 
021217,003232: 
021218,003233: 
021219,003234:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS, 
021220,003235:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
021221,003236:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
021222,003237: 
021223,003238: 
021224,003239: 
021225,003240:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
021226,003241:                                                                                                  #  AND DISPLAY SYSTEM.
021227,003242:                                                                                                  #  +0  FREE
021228,003243:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
021229,003244:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
021230,003245: 

Page 550

021232,003247: 
021233,003248:    3302           10630        GRABDSP            CCS      GRABLOCK                              
021234,003249:    3303           00001                           TC       Q                                     #  GRABBED. RETURN TO L+1
021235,003250:    3304           34516                           CAF      ONE                                   #  NOT GRABBED. SET TO +1
021236,003251:    3305           50630                           TS       GRABLOCK                              #  AND RETURN TO L+2
021237,003252:    3306           20001                           INDEX    Q                                     
021238,003253:    3307           00001                           TC       1                                     
021239,003254: 
021240,003255: 
021241,003256: 
021242,003257:    3310           34606        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN BANKS
021243,003258:    3311           70001                           MASK     Q                                     #  DESIRING THE CADR OF 1 + (LOC FROM WHICH
021244,003259:    3312           60015                           AD       BANKREG                               #  TC PREGBSY WAS DONE) TO BE ENTERED.
021245,003260:    3313           05720        GRABUSY            TC       POSTJUMP                              
021246,003261:    3314           16001                           CADR     GRABUSYB                              
021247,003262: 07,7434                                           SETLOC   ENDSPMM1   +1                         
021248,003263: 
021249,003264: 07,7434           50114        GRABUSY1           TS       CADRTEM                               
021250,003265: 07,7435           10630                           CCS      GRABLOCK                              
021251,003266: 07,7436           07441                           TC       +3                                    #  STILL GRABBED
021252,003267: 07,7437           30114                           XCH      CADRTEM                               #  NOT GRABBED SO DO DIRECT CALL
021253,003268: 07,7440           05723                           TC       BANKJUMP                              
021254,003269: 07,7441           35503                           CAF      TWO                                   
021255,003270: 07,7442           50113                           TS       LSTPTR                                
021256,003271: 07,7443           20113                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
021257,003272: 07,7444           10634                           CCS      DSPLIST                               #  FROM BOTTOM.
021258,003273: 07,7445           07447                           TC       +2                                    
021259,003274: 07,7446           07452                           TC       PUTINLST                              #  SPACE FOUND
021260,003275: 07,7447           10113                           CCS      LSTPTR                                #  DECREMENT POINTER
021261,003276: 07,7450           07442                           TC       -6                                    
021262,003277: 07,7451           07526                           TC       LSTFULL                               
021263,003278: 07,7452           30114        PUTINLST           XCH      CADRTEM                               
021264,003279: 07,7453           20113                           INDEX    LSTPTR                                
021265,003280: 07,7454           50634                           TS       DSPLIST                               
021266,003281: 07,7455           02127                           TC       JOBSLEEP                              
021267,003282: 
021268,003283: 
021269,003284: 
021270,003285:    3315                                           SETLOC   GRABUSY    +2                         
021271,003286:    3315           43322        PRENVBSY           CS       6K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN BANKS
021272,003287:    3316           60001                           AD       Q                                     #  DESIRING THE CADR OF (LOC FROM WHICH THE
021273,003288:    3317           60015                           AD       BANKREG                               #  TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
021274,003289:    3320           05720        NVSUBUSY           TC       POSTJUMP                              
021275,003290:    3321           16002                           CADR     NVSUBSYB                              
021276,003291:    3322           06003        6K+3               OCT      6003                                  #  TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
021277,003292: 
021278,003293: 07,7456                                           SETLOC   PUTINLST   +4                         
021279,003294: 07,7456           50114        NVSUBSY1           TS       CADRTEM                               
021280,003295: 07,7457           03274                           TC       TSTDSPLK                              #  TEST IF REALLY LOCKED OUT
021281,003296: 07,7460           07463                           TC       +3                                    #  STILL BUSY
021282,003297: 07,7461           30114                           XCH      CADRTEM                               #  DSPLOCK = +0 SO RETURN DIRECTLY

Page 551

021284,003299: 07,7462           05723                           TC       BANKJUMP                              
021285,003300: 07,7463           35503                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
021286,003301: 07,7464           50630                           TS       GRABLOCK                              
021287,003302: 07,7465           30114                           XCH      CADRTEM                               
021288,003303: 07,7466           30636                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
021289,003304: 07,7467           30635                           XCH      DSPLIST    +1                         #        (BOTTOM)
021290,003305: 07,7470           30634                           XCH      DSPLIST                               
021291,003306: 07,7471           10000                           CCS      A                                     
021292,003307: 07,7472           07526                           TC       LSTFULL                               
021293,003308: 07,7473           07475                           TC       +2                                    
021294,003309: 07,7474           07526                           TC       LSTFULL                               
021295,003310: 07,7475           03250                           TC       RELDSPON                              
021296,003311: 07,7476           40636                           CS       DSPLIST    +2                         
021297,003312: 07,7477           40000                           COM                                            
021298,003313: 07,7500           02127        ENDNVBSY           TC       JOBSLEEP                              
021299,003314: 
021300,003315:    3323                                           SETLOC   NVSUBUSY   +3                         
021301,003316: 
021302,003317:    3323           30001        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
021303,003318:    3324           50113                           TS       RELRET                                #  OFF,  SEARCH DSPLIST
021304,003319:    3325           34335                           CAF      NEG1                                  
021305,003320:    3326           60630                           AD       GRABLOCK                              
021306,003321:    3327           10000                           CCS      A                                     #  SEARCH LIST ONLY IF GRABLOCK = +2
021307,003322:    3330           03334                           TC       +4                                    #        (SOMEONE USED NVSUBUSY)
021308,003323:    3331           03062                           TC       CCSHOLE                               
021309,003324:    3332           03351                           TC       RELDSP2                               
021310,003325:    3333           03351                           TC       RELDSP2                               
021311,003326:    3334           35501                           CAF      ZERO                                  
021312,003327:    3335           30634                           XCH      DSPLIST                               
021313,003328:    3336           30635                           XCH      DSPLIST    +1                         
021314,003329:    3337           30636                           XCH      DSPLIST    +2                         
021315,003330:    3340           50114                           TS       CADRTEM                               
021316,003331:    3341           10000                           CCS      A                                     
021317,003332:    3342           03344                           TC       +2                                    
021318,003333:    3343           03351                           TC       RELDSP2                               #  LIST EMPTY
021319,003334:    3344           30114                           XCH      CADRTEM                               
021320,003335:    3345           20017                           INHINT                                         
021321,003336:    3346           02060                           TC       JOBWAKE                               
021322,003337:    3347           34516                           CAF      ONE                                   
021323,003338:    3350           50630                           TS       GRABLOCK                              
021324,003339:    3351           44514        RELDSP2            CS       BIT3                                  
021325,003340:    3352           70011                           MASK     OUT1                                  
021326,003341:    3353           50011                           TS       OUT1                                  
021327,003342:    3354           03257                           TC       DSPLOCK0                              #  0 INTO DSPLOCK (BIT4 OF STATE)
021328,003343:                                                                                                  #  RELINT IS DONE IN DSPLOCK0.
021329,003344:    3355           00113                           TC       RELRET                                
021330,003345:    3356           30001        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0, RELDSP LIGHT OFF, 
021331,003346:    3357           50113                           TS       RELRET                                #  NO LIST SEARCH
021332,003347:    3360           20017                           INHINT                                         
021333,003348:    3361           03351                           TC       RELDSP2                               
021334,003349: 

Page 552

021336,003351: 
021337,003352:    3362           30001        FREEDSP            XCH      Q                                     
021338,003353:    3363           50113                           TS       FREERET                               
021339,003354:    3364           20017                           INHINT                                         
021340,003355:    3365           33372                           CAF      SHOTIME                               
021341,003356:    3366           02173                           TC       WAITLIST                              
021342,003357:    3367           17501                           CADR     FREEWAIT                              
021343,003358:    3370           20016                           RELINT                                         
021344,003359:    3371           00113                           TC       FREERET                               
021345,003360: 
021346,003361:    3372           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SECS FOR 501
021347,003362: 07,7501                                           SETLOC   ENDNVBSY   +1                         
021348,003363: 
021349,003364: 07,7501           32164        FREEWAIT           CAF      PRIO31                                #  CALLED BY T3RUPT
021350,003365: 07,7502           02052                           TC       NOVAC                                 
021351,003366: 07,7503           17505                           CADR     FREDSPDO                              
021352,003367: 07,7504           02256                           TC       TASKOVER                              
021353,003368: 
021354,003369: 
021355,003370: 
021356,003371: 07,7505           35501        FREDSPDO           CAF      ZERO                                  #  CALLED BY EXECUTIVE
021357,003372: 07,7506           30634                           XCH      DSPLIST                               
021358,003373: 07,7507           30635                           XCH      DSPLIST    +1                         
021359,003374: 07,7510           30636                           XCH      DSPLIST    +2                         
021360,003375: 07,7511           50114                           TS       CADRTEM                               
021361,003376: 07,7512           10000                           CCS      A                                     
021362,003377: 07,7513           07515                           TC       +2                                    
021363,003378: 07,7514           07524                           TC       LSTEMPTY                              
021364,003379: 07,7515           30114                           XCH      CADRTEM                               
021365,003380: 07,7516           20017                           INHINT                                         
021366,003381: 07,7517           02060                           TC       JOBWAKE                               
021367,003382: 07,7520           20016                           RELINT                                         
021368,003383: 07,7521           34516                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
021369,003384: 07,7522           50630                           TS       GRABLOCK                              
021370,003385: 07,7523           02124                           TC       ENDOFJOB                              
021371,003386: 07,7524           35501        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
021372,003387: 07,7525           07522                           TC       -3                                    
021373,003388: 
021374,003389: 
021375,003390: 
021376,003391: 07,7526           03044        LSTFULL            TC       ABORT                                 
021377,003392: 07,7527           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.

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