Source Code

These source-code files were obtained by digitally photographing a Solarium 55 (Apollo 6) 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. 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.

Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions.

018051,000002:                                                                                                  ## Copyright:   Public domain.
018052,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
018053,000004:                                                                                                  ## Purpose:     Part of the source code for Solarium build 55. This
018054,000005:                                                                                                  ##              is for the Command Module's (CM) Apollo Guidance
018055,000006:                                                                                                  ##              Computer (AGC), for Apollo 6.
018056,000007:                                                                                                  ## Assembler:   yaYUL --block1
018057,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
018058,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
018059,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Solarium055/
018060,000011:                                                                                                  ## Mod history: 2009-09-23 JL   Created.
018061,000012:                                                                                                  ##              2016-08-19 RSB  Typos.
018062,000013:                                                                                                  ##              2016-08-20 RSB  More typos.
018063,000014:                                                                                                  ##              2016-12-28 RSB  Proofed comment text using octopus/ProoferComments,
018064,000015:                                                                                                  ##                              and fixed errors found.
018065,000016:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
018066,000017:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
018067,000018:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
018068,000019: 

Page 481

018070,000021: 
018071,000022:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
018072,000023: 
018073,000024: 
018074,000025: 
018075,000026:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
018076,000027: 
018077,000028:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
018078,000029:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
018079,000030:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
018080,000031: 
018081,000032:                                                                                                  #                        HENRY 6, ACT 2, SCENE 4
018082,000033: 
018083,000034: 
018084,000035:                                                                                                  #  SUMMARY OF ERASABLE ASSIGNMENTS FOR KEYBOARD AND DISPLAY PROGRAM 
018085,000036:                                                                                                  #  WHICH ARE ALL DEFINED ELSEWHERE.
018086,000037: 
018087,000038: 
018088,000039: 
018089,000040:                                                                                                  #                SETLOC  627
018090,000041: 
018091,000042:                                                                                                  #  BUFFER STORAGE AREAS FOR ROUTINES USING DISPLAY OR LOAD ROUTINES.
018092,000043:                                                                                                  #  DSPTEM1       ERASE   +2              BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
018093,000044:                                                                                                  #  DSPTEM2       ERASE   +2              BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
018094,000045: 
018095,000046:                                                                                                  #  ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
018096,000047: 
018097,000048: 
018098,000049: 
018099,000050:                                                                                                  #  ERASABLES RESERVED FOR EXECUTIVE ACTION
018100,000051: 
018101,000052:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
018102,000053:                                                                                                  #  DECBRNCH      ERASE                   +DEC, - DEC, OCT INDICATOR
018103,000054:                                                                                                  #  VERBREG       ERASE                   VERB CODE
018104,000055:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
018105,000056:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
018106,000057:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
018107,000058:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
018108,000059:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
018109,000060:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
018110,000061:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
018111,000062:                                                                                                  #  MODREG        ERASE                   MODE CODE
018112,000063:                                                                                                  #  DSPLOCK       =       STATE (BIT4)    KEYBOARD/SUBROUTINE CALL INTERLOCK
018113,000064:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
018114,000065:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
018115,000066:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
018116,000067:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
018117,000068:                                                                                                  #  NOUNADD       ERASE                   MACHINE ADDRESS FOR NOUN
018118,000069:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. ALSO ACTIVITY
018119,000070:                                                                                                  #  MONSAVE1      ERASE                   NOUNADD STORAGE FOR MONITOR WITH MATBS
018120,000071:                                                                                                  #  DSPTAB        ERASE   +13D            0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS

Page 482

018122,000073:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
018123,000074:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
018124,000075:                                                                                                  #  NVSBCADR      ERASE                   NVSUB STORAGE FOR CALLING CADR
018125,000076:                                                                                                  #  DSPLIST       ERASE   +2              WAITING LIST FOR DSP SYST INTERNAL USE
018126,000077:                                                                                                  #  END OF ERASABLES RESERVED FOR EXECUTIVE ACTION
018127,000078: 
018128,000079:                                                                                                  #  ERASABLES RESERVED FOR INTERRUPT ACTION
018129,000080: 
018130,000081:                                                                                                  #  IN0WORD       ERASE                   INPUT CODE STORAGE (KEYRUPT OR UPRUPT)
018131,000082:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
018132,000083: 
018133,000084: 
018134,000085: 
018135,000086:                                                                                                  #  TEMPORARY ERASABLES FOR EXECUTIVE ACTION
018136,000087: 
018137,000088:                                                                                                  #  DSEXIT        =       COMPON          RETURN FOR DSPIN
018138,000089:                                                                                                  #  EXITEM        =       COMPON          RETURN FOR SCALE FACTOR ROUTINE SELECT
018139,000090:                                                                                                  #  BLANKRET      =       COMPON          RETURN FOR 2BLANK
018140,000091: 
018141,000092:                                                                                                  #  WRDRET        =       TEM9            RETURN FOR 5BLANK
018142,000093:                                                                                                  #  WDRET         =       TEM9            RETURN FOR DSPWD
018143,000094:                                                                                                  #  DECRET        =       TEM9            RETURN FOR PUTCOM(DEC LOAD)
018144,000095:                                                                                                  #  21/22REG      =       TEM9            TEMP FOR CHARIN
018145,000096: 
018146,000097:                                                                                                  #  UPDATRET      =       ORDER           RETURN FOR UPDATNN, UPDATVB
018147,000098:                                                                                                  #  CHAR          =       ORDER           TEMP FOR CHARIN
018148,000099:                                                                                                  #  ERCNT         =       ORDER           COUNTER FOR ERROR LIGHT RESET
018149,000100:                                                                                                  #  DECOUNT       =       ORDER           COUNTER FOR SCALING AND DISPLAY (DEC)
018150,000101: 
018151,000102:                                                                                                  #  SGNON         =       TEM11           TEMP FOR +,- ON
018152,000103:                                                                                                  #  NOUNTEM       =       TEM11           COUNTER FOR MIXNOUN FETCH
018153,000104:                                                                                                  #  DISTEM        =       TEM11           COUNTER FOR OCTAL DISPLAY VERBS
018154,000105:                                                                                                  #  DECTEM        =       TEM11           COUNTER FOR FETCH (DEC DISPLAY VERBS)
018155,000106:                                                                                                  #  DECTEM1       =       TEM11           TEMP FOR NUM
018156,000107: 
018157,000108:                                                                                                  #  SGNOFF        =       DVSW            TEMP FOR +,- ON
018158,000109:                                                                                                  #  NVTEMP        =       DVSW            TEMP FOR NVSUB
018159,000110:                                                                                                  #  SFTEMP1       =       DVSW            STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
018160,000111:                                                                                                  #  DECTEM2       =       DVSW            TEMP FOR NUM
018161,000112: 
018162,000113:                                                                                                  #  CODE          =       BRANCHQ         FOR DSPIN
018163,000114:                                                                                                  #  SFTEMP2       =       BRANCHQ         STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
018164,000115: 
018165,000116:                                                                                                  #  ENTRET        =       MODE            EXIT FROM ENTER
018166,000117: 
018167,000118:                                                                                                  #  PROGREG       =       VBUF +2         FOR GO EXEC PROGRAM
018168,000119:                                                                                                  #  MIXTEMP       =       VBUF +2         FOR MIXNOUN DATA
018169,000120:                                                                                                  #  SIGNRET       =       VBUF +2         RETURN FOR +,- ON
018170,000121: 

Page 483

018172,000123: 
018173,000124:                                                                                                  #  ALSO PROGREG+1, PROGREG+2. MIXTEMP+1, MIXTEMP+2.
018174,000125: 
018175,000126:                                                                                                  #  WDCNT         =       VBUF +5         CHAR COUNTER FOR DSPWD
018176,000127:                                                                                                  #  INREL         =       VBUF +5         INPUT BUFFER SELECTOR ( X,Y,Z, REG )
018177,000128: 
018178,000129:                                                                                                  #  MIXBR         =       TEM10           INDICATOR FOR MIXED OR NORMAL NOUN
018179,000130:                                                                                                  #  DSPMMTEM      =       TEM10           DSPCOUNT SAVE FOR DSPMM
018180,000131: 
018181,000132:                                                                                                  #  MONTEM        =       NEWEQIND        TEMP RETURN FOR MONITOR
018182,000133:                                                                                                  #  DSREL         =       TEM2            REL ADDRESS FOR DSPIN (TEM2 USED BY DAD1)
018183,000134: 
018184,000135:                                                                                                  #  DSMAG         =       TEM4            MAGNITUDE STORE FOR DSPIN
018185,000136:                                                                                                  #  IDADDTEM      =       TEM4            MIXNOUN INDIRECT ADDRESS STORAGE
018186,000137: 
018187,000138:                                                                                                  #  COUNT         =       TEM5            FOR DSPIN  (TEM5 IS USED BY DAD)
018188,000139:                                                                                                  #  LSTPTR        =       ARETURN         LIST POINTER FOR GRABUSY
018189,000140:                                                                                                  #  RELRET        =       ARETURN         RETURN FOR RELDSP
018190,000141:                                                                                                  #  FREERET       =       ARETURN         RETURN FOR FREEDSP
018191,000142: 
018192,000143:                                                                                                  #  CADRTEM       =       ESCAPE          TEMP STORAGE FOR GRAB ROUTINES
018193,000144: 
018194,000145:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
018195,000146:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
018196,000147:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
018197,000148:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
018198,000149:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
018199,000150:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
018200,000151:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
018201,000152:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
018202,000153: 
018203,000154: 
018204,000155: 
018205,000156:                                                                                                  #  TEMPORARY ERASABLES FOR INTERRUPT ACTION
018206,000157: 
018207,000158:                                                                                                  #  KEYTEMP1      =       WTEXIT          TEMP FOR KEYRUPT, UPRUPT
018208,000159:                                                                                                  #  DSRUPTEM      =       WTEXIT          TEMP FOR DSPOUT
018209,000160:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
018210,000161: 

Page 484

018212,000163: 
018213,000164:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
018214,000165:                                                                                                  #  0             10000
018215,000166:                                                                                                  #  1             00001
018216,000167:                                                                                                  #  9             01001
018217,000168:                                                                                                  #  VERB          10001
018218,000169:                                                                                                  #  ERROR RES     10010
018219,000170:                                                                                                  #  KEY RLSE      11001
018220,000171:                                                                                                  #  +             11010
018221,000172:                                                                                                  #  -             11011
018222,000173:                                                                                                  #  ENTER         11100
018223,000174:                                                                                                  #  CLEAR         11110
018224,000175:                                                                                                  #  NOUN          11111
018225,000176: 
018226,000177: 
018227,000178: 
018228,000179:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
018229,000180:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
018230,000181:                                                                                                  #  ENERGIZED.
018231,000182:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
018232,000183:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
018233,000184:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
018234,000185: 
018235,000186:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
018236,000187:                                                                                                  #  MD1   MD2                             (MAJOR MODE)
018237,000188:                                                                                                  #  VD1   VD2 (VERB)      ND1     ND2     (NOUN)
018238,000189:                                                                                                  #  R1D1  R1D2    R1D3    R1D4    R1D5    (R1)
018239,000190:                                                                                                  #  R2D1  R2D2    R2D3    R2D4    R2D5    (R2)
018240,000191:                                                                                                  #  R3D1  R3D2    R3D3    R3D4    R3D5    (R3)
018241,000192: 
018242,000193:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
018243,000194:                                                                                                  #  MD1   25      R2D1    11              ALL ARE OCTAL
018244,000195:                                                                                                  #  MD2   24      R2D2    10
018245,000196:                                                                                                  #  VD1   23      R2D3    7
018246,000197:                                                                                                  #  VD2   22      R2D4    6
018247,000198:                                                                                                  #  ND1   21      R2D5    5
018248,000199:                                                                                                  #  ND2   20      R3D1    4
018249,000200:                                                                                                  #  R1D1  16      R3D2    3
018250,000201:                                                                                                  #  R1D2  15      R3D3    2
018251,000202:                                                                                                  #  R1D3  14      R3D4    1
018252,000203:                                                                                                  #  R1D4  13      R3D5    0
018253,000204:                                                                                                  #  R1D5  12
018254,000205: 
018255,000206: 
018256,000207: 
018257,000208:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
018258,000209: 
018259,000210:                                                                                                  #  DSPTAB        RELAYWD         BIT11           BITS 10-6       BITS 5-1
018260,000211:                                                                                                  #  RELADD
018261,000212:                                                                                                  #  10            1011                            MD1 (25)        MD2  (24)
018262,000213:                                                                                                  #  9             1010            FLASH           VD1 (23)        VD2  (22)

Page 485

018264,000215:                                                                                                  #  8             1001                            ND1 (21)        ND2  (20)
018265,000216:                                                                                                  #  7             1000            UPACT                           R1D1 (16)
018266,000217:                                                                                                  #  6             0111            +R1             R1D2 (15)       R1D3 (14)
018267,000218:                                                                                                  #  5             0110            -R1             R1D4 (13)       R1D5 (12)
018268,000219:                                                                                                  #  4             0101            +R2             R2D1 (11)       R2D2 (10)
018269,000220:                                                                                                  #  3             0100            -R2             R2D3 (7)        R2D4 (6)
018270,000221:                                                                                                  #  2             0011                            R2D5 (5)        R3D1 (4)
018271,000222:                                                                                                  #  1             0010            +R3             R3D2 (3)        R3D3 (2)
018272,000223:                                                                                                  #  0             0001            -R3             R3D4 (1)        R3D5 (0)
018273,000224:                                                                                                  #                0000        NO RELAYWORD
018274,000225: 
018275,000226: 
018276,000227: 
018277,000228:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
018278,000229:                                                                                                  #  BLANK         00000
018279,000230:                                                                                                  #  0             10101
018280,000231:                                                                                                  #  1             00011
018281,000232:                                                                                                  #  2             11001
018282,000233:                                                                                                  #  3             11011
018283,000234:                                                                                                  #  4             01111
018284,000235:                                                                                                  #  5             11110
018285,000236:                                                                                                  #  6             11100
018286,000237:                                                                                                  #  7             10011
018287,000238:                                                                                                  #  8             11101
018288,000239:                                                                                                  #  9             11111
018289,000240: 

Page 486

018291,000242: 
018292,000243: 06,6000                                           SETLOC   14000                                 
018293,000244: 
018294,000245: 06,6000           30001        FLASHON            XCH      Q                                     
018295,000246: 06,6001           50112                           TS       DSEXIT                                
018296,000247: 06,6002           07453                           TC       FLASHON1                              
018297,000248: 
018298,000249: 06,6003           30001        FLASHOFF           XCH      Q                                     
018299,000250: 06,6004           50112                           TS       DSEXIT                                
018300,000251: 06,6005           07462                           TC       FLASHOF1                              
018301,000252:                                                                                                  #  END OF STANDARD LEAD INS.
018302,000253: 
018303,000254: 
018304,000255: 
018305,000256: 06,6006           03265        CHARIN             TC       DSPLOCK1                              #  BLOCK DISPLAY SYST BUT SAVE OLD
018306,000257: 06,6007           74513                           MASK     BIT4                                  #  C(DSPLOCK) FOR ERROR LIGHT RESET.
018307,000258: 06,6010           50106                           TS       21/22REG                              
018308,000259: 06,6011           30115                           XCH      MPAC                                  
018309,000260: 06,6012           50063                           TS       CHAR                                  
018310,000261: 06,6013           20000                           INDEX    A                                     
018311,000262: 06,6014           06015                           TC       +1                                    #  INPUT CODE    FUNCTION
018312,000263: 06,6015           07440                           TC       CHARALRM                              #  0
018313,000264: 06,6016           06072                           TC       NUM                                   #  1
018314,000265: 06,6017           06072                           TC       NUM                                   #  2
018315,000266: 06,6020           06072                           TC       NUM                                   #  3
018316,000267: 06,6021           06072                           TC       NUM                                   #  4
018317,000268: 06,6022           06072                           TC       NUM                                   #  5
018318,000269: 06,6023           06072                           TC       NUM                                   #  6
018319,000270: 06,6024           06072                           TC       NUM                                   #  7
018320,000271: 06,6025           06063                           TC       89TEST                                #  10                8
018321,000272: 06,6026           06063                           TC       89TEST                                #  11                9
018322,000273: 06,6027           07440                           TC       CHARALRM                              #  12
018323,000274: 06,6030           07440                           TC       CHARALRM                              #  13
018324,000275: 06,6031           07440                           TC       CHARALRM                              #  14
018325,000276: 06,6032           07440                           TC       CHARALRM                              #  15
018326,000277: 06,6033           07440                           TC       CHARALRM                              #  16
018327,000278: 06,6034           07440                           TC       CHARALRM                              #  17
018328,000279: 06,6035           06070                           TC       NUM        -2                         #  20                0
018329,000280: 06,6036           06252                           TC       VERB                                  #  21                VERB
018330,000281: 06,6037           06402                           TC       ERROR                                 #  22                ERROR LIGHT RESET
018331,000282: 06,6040           06057                           TC       ABORTCAL                              #  23                ABORT
018332,000283: 06,6041           07440                           TC       CHARALRM                              #  24
018333,000284: 06,6042           07440                           TC       CHARALRM                              #  25
018334,000285: 06,6043           07440                           TC       CHARALRM                              #  26
018335,000286: 06,6044           07440                           TC       CHARALRM                              #  27
018336,000287: 06,6045           07440                           TC       CHARALRM                              #  30
018337,000288: 06,6046           07475                           TC       VBRELDSP                              #  31                KEY RELEASE
018338,000289: 06,6047           06316                           TC       POSGN                                 #  32                +
018339,000290: 06,6050           06302                           TC       NEGSGN                                #  33                -
018340,000291: 06,6051           06055                           TC       ENTERJMP                              #  34                ENTER
018341,000292: 06,6052           07440                           TC       CHARALRM                              #  35

Page 487

018343,000294: 06,6053           06501                           TC       CLEAR                                 #  36                CLEAR
018344,000295: 06,6054           06274                           TC       NOUN                                  #  37                NOUN
018345,000296: 
018346,000297: 
018347,000298: 
018348,000299: 06,6055           05720        ENTERJMP           TC       POSTJUMP                              
018349,000300: 06,6056           16007                           CADR     ENTER                                 
018350,000301: 
018351,000302: 06,6057           36062        ABORTCAL           CAF      OCT32                                 
018352,000303: 06,6060           05720                           TC       POSTJUMP                              #  FORCE DECODING OF VERB 72 AND DO RELDSP.
018353,000304: 06,6061           16136                           CADR     JAMEXTVB                              
018354,000305: 
018355,000306: 06,6062           00032        OCT32              OCT      32                                    
018356,000307: 
018357,000308: 
018358,000309: 
018359,000310: 06,6063           34473        89TEST             CAF      THREE                                 
018360,000311: 06,6064           70615                           MASK     DECBRNCH                              
018361,000312: 06,6065           10000                           CCS      A                                     
018362,000313: 06,6066           06072                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
018363,000314: 06,6067           07440                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
018364,000315: 
018365,000316: 
018366,000317: 
018367,000318:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
018368,000319:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
018369,000320:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
018370,000321:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
018371,000322:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
018372,000323:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
018373,000324: 
018374,000325: 06,6070           35501                           CAF      ZERO                                  
018375,000326: 06,6071           50063                           TS       CHAR                                  
018376,000327: 06,6072           10614        NUM                CCS      DSPCOUNT                              
018377,000328: 06,6073           06077                           TC       +4                                    #  +
018378,000329: 06,6074           06077                           TC       +3                                    #  +0
018379,000330: 06,6075           06076                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
018380,000331: 06,6076           02124                           TC       ENDOFJOB                              #  -0
018381,000332: 06,6077           06222                           TC       GETINREL                              
018382,000333: 06,6100           10633                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018383,000334: 06,6101           35501                           CAF      ZERO                                  
018384,000335: 06,6102           50633                           TS       CLPASS                                
018385,000336: 06,6103           06104                           TC       +1                                    
018386,000337: 06,6104           20063                           INDEX    CHAR                                  
018387,000338: 06,6105           32652                           CAF      RELTAB                                
018388,000339: 06,6106           73220                           MASK     LOW5                                  
018389,000340: 06,6107           50111                           TS       CODE                                  
018390,000341: 06,6110           30614                           XCH      DSPCOUNT                              
018391,000342: 06,6111           50104                           TS       COUNT                                 
018392,000343: 06,6112           50614                           TS       DSPCOUNT                              

Page 488

018394,000345: 06,6113           07341                           TC       DSPIN                                 
018395,000346: 06,6114           34473                           CAF      THREE                                 
018396,000347: 06,6115           70615                           MASK     DECBRNCH                              
018397,000348: 06,6116           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
018398,000349: 06,6117           06130                           TC       DECTOBIN                              #  +
018399,000350: 06,6120           20076                           INDEX    INREL                                 #  +0 OCTAL
018400,000351: 06,6121           30602                           XCH      VERBREG                               
018401,000352: 06,6122           50022                           TS       CYL                                   
018402,000353: 06,6123           40022                           CS       CYL                                   
018403,000354: 06,6124           40022                           CS       CYL                                   
018404,000355: 06,6125           30022                           XCH      CYL                                   
018405,000356: 06,6126           60063                           AD       CHAR                                  
018406,000357: 06,6127           06146                           TC       ENDNMTST                              
018407,000358: 06,6130           20076        DECTOBIN           INDEX    INREL                                 
018408,000359: 06,6131           30602                           XCH      VERBREG                               
018409,000360: 06,6132           50115                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
018410,000361: 06,6133           35501                           CAF      ZERO                                  
018411,000362: 06,6134           50116                           TS       MPAC       +1                         
018412,000363: 06,6135           33232                           CAF      TEN                                   #  10 X 2EXP-14
018413,000364: 06,6136           05416                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
018414,000365: 06,6137           30116                           XCH      MPAC       +1                         
018415,000366: 06,6140           60063                           AD       CHAR                                  
018416,000367: 06,6141           50116                           TS       MPAC       +1                         
018417,000368: 06,6142           06146                           TC       ENDNMTST                              #  NO OF
018418,000369: 06,6143           60115                           AD       MPAC                                  #  OF MUST BE 5TH CHAR
018419,000370: 06,6144           50115                           TS       MPAC                                  
018420,000371: 06,6145           06165                           TC       DECEND                                
018421,000372: 06,6146           20076        ENDNMTST           INDEX    INREL                                 
018422,000373: 06,6147           50602                           TS       VERBREG                               
018423,000374: 06,6150           40614                           CS       DSPCOUNT                              
018424,000375: 06,6151           20076                           INDEX    INREL                                 
018425,000376: 06,6152           66211                           AD       CRITCON                               
018426,000377: 06,6153           10000                           CCS      A                                     
018427,000378: 06,6154           07440                           TC       CHARALRM                              #  +      PATHOLOGICAL CASE
018428,000379: 06,6155           07440                           TC       CHARALRM                              #  +0    IMPOSSIBLE
018429,000380: 06,6156           06206                           TC       MORNUM                                #  -
018430,000381: 06,6157           34473        ENDNUM             CAF      THREE                                 
018431,000382: 06,6160           70615                           MASK     DECBRNCH                              
018432,000383: 06,6161           10000                           CCS      A                                     
018433,000384: 06,6162           06165                           TC       DECEND                                
018434,000385: 06,6163           40614        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
018435,000386: 06,6164           06207                           TC       MORNUM     +1                         #  NEGATIVELY
018436,000387: 06,6165           34473        DECEND             CAF      THREE                                 
018437,000388: 06,6166           70615                           MASK     DECBRNCH                              
018438,000389: 06,6167           20000                           INDEX    A                                     
018439,000390: 06,6170           06170                           TC       +0                                    
018440,000391: 06,6171           06175                           TC       +DECSGN                               #  + DEC
018441,000392: 06,6172           05157                           TC       DMP                                   #  - DEC
018442,000393: 06,6173           56217                           XCADR    NEGDECON                              
018443,000394: 06,6174           06177                           TC       ENDECOM                               #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY

Page 489

018445,000396: 06,6175           05157        +DECSGN            TC       DMP                                   #  2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
018446,000397: 06,6176           56215                           XCADR    DECON                                 #  IN MPAC, +1, +2.
018447,000398: 06,6177           30117        ENDECOM            XCH      MPAC       +2                         
018448,000399: 06,6200           20076                           INDEX    INREL                                 
018449,000400: 06,6201           50605                           TS       XREGLP     -2                         
018450,000401: 06,6202           30116                           XCH      MPAC       +1                         
018451,000402: 06,6203           20076                           INDEX    INREL                                 
018452,000403: 06,6204           50602                           TS       VERBREG                               
018453,000404: 06,6205           06163                           TC       ENDALL                                
018454,000405: 06,6206           10614        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
018455,000406: 06,6207           50614                           TS       DSPCOUNT                              
018456,000407: 06,6210           02124                           TC       ENDOFJOB                              
018457,000408: 
018458,000409: 06,6211           00022        CRITCON            OCT      22                                    #  (DEC 18)
018459,000410: 06,6212           00020                           OCT      20                                    #  (DEC 16)
018460,000411: 06,6213           00012                           OCT      12                                    #  (DEC 10)
018461,000412: 06,6214           00005                           OCT      5                                     
018462,000413: 06,6215           00000                           OCT      0                                     
018463,000414: 
018464,000415: 06,6216           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
018465,000416: 
018466,000417: 06,6220           72603        NEGDECON           OCT      72603                                 
018467,000418: 06,6221           64516                           OCT      64516                                 
018468,000419: 
018469,000420: 
018470,000421: 
018471,000422:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
018472,000423:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
018473,000424: 
018474,000425: 06,6222           20614        GETINREL           INDEX    DSPCOUNT                              
018475,000426: 06,6223           36226                           CAF      INRELTAB                              
018476,000427: 06,6224           50076                           TS       INREL                                 #  (A TEMP, REG)
018477,000428: 06,6225           00001                           TC       Q                                     
018478,000429: 
018479,000430: 06,6226           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
018480,000431: 06,6227           00004                           OCT      4                                     #  R3D4           =(1)
018481,000432: 06,6230           00004                           OCT      4                                     #  R3D3           =(2)
018482,000433: 06,6231           00004                           OCT      4                                     #  R3D2           =(3)
018483,000434: 06,6232           00004                           OCT      4                                     #  R3D1           =(4)
018484,000435: 06,6233           00003                           OCT      3                                     #  R2D5           =(5)
018485,000436: 06,6234           00003                           OCT      3                                     #  R2D4           =(6)
018486,000437: 06,6235           00003                           OCT      3                                     #  R2D3           =(7)
018487,000438: 06,6236           00003                           OCT      3                                     #  R2D2           =(8D)
018488,000439: 06,6237           00003                           OCT      3                                     #  R2D1           =(9D)
018489,000440: 06,6240           00002                           OCT      2                                     #  R1D5           =(10D)
018490,000441: 06,6241           00002                           OCT      2                                     #  R1D4           =(11D)
018491,000442: 06,6242           00002                           OCT      2                                     #  R1D3           =(12D)
018492,000443: 06,6243           00002                           OCT      2                                     #  R1D2           =(13D)
018493,000444: 06,6244           00002                           OCT      2                                     #  R1D1           =(14D)
018494,000445: 06,6245           03062                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D

Page 490

018496,000447: 06,6246           00001                           OCT      1                                     #  ND2            =(16D)
018497,000448: 06,6247           00001                           OCT      1                                     #  ND1            =(17D)
018498,000449: 06,6250           00000                           OCT      0                                     #  VD2            =(18D)
018499,000450: 06,6251           00000                           OCT      0                                     #  VD1            =(19D)
018500,000451: 
018501,000452: 
018502,000453: 
018503,000454: 06,6252           35501        VERB               CAF      ZERO                                  
018504,000455: 06,6253           50602                           TS       VERBREG                               
018505,000456: 06,6254           50111                           TS       CODE                                  #  VERB CANT USE 2BLANK SINCE THAT TURNS
018506,000457: 06,6255           33227                           CAF      VD1                                   #  THE FLASH OFF
018507,000458: 06,6256           50614                           TS       DSPCOUNT                              
018508,000459: 06,6257           50104                           TS       COUNT                                 
018509,000460: 06,6260           07341                           TC       DSPIN                                 
018510,000461: 06,6261           36211                           CAF      VD2                                   
018511,000462: 06,6262           50104                           TS       COUNT                                 
018512,000463: 06,6263           35501                           CAF      ZERO                                  
018513,000464: 06,6264           50111                           TS       CODE                                  
018514,000465: 06,6265           07341                           TC       DSPIN                                 
018515,000466: 06,6266           35501        N/VCOM             CAF      ZERO                                  
018516,000467: 06,6267           50615                           TS       DECBRNCH                              
018517,000468: 06,6270           50613                           TS       REQRET                                #  SET FOR ENTPAS0
018518,000469: 06,6271           33147                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
018519,000470: 06,6272           50065                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
018520,000471:                                                                                                  #  TO TC ENDOFJOB
018521,000472: 06,6273           02124                           TC       ENDOFJOB                              
018522,000473: 06,6274           35501        NOUN               CAF      ZERO                                  
018523,000474: 06,6275           50603                           TS       NOUNREG                               
018524,000475: 06,6276           33230                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
018525,000476: 06,6277           50614                           TS       DSPCOUNT                              
018526,000477: 06,6300           06621                           TC       2BLANK                                
018527,000478: 06,6301           06266                           TC       N/VCOM                                
018528,000479: 
018529,000480: 
018530,000481: 
018531,000482: 06,6302  06,6211               VD2                =        CRITCON                               #  OCT 22
018532,000483: 
018533,000484: 
018534,000485: 
018535,000486: 06,6302           06357        NEGSGN             TC       SIGNTEST                              
018536,000487: 06,6303           06343                           TC       -ON                                   
018537,000488: 06,6304           35503                           CAF      TWO                                   
018538,000489: 06,6305           60615        BOTHSGN            AD       DECBRNCH                              #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
018539,000490: 06,6306           20076                           INDEX    INREL                                 #  BIT 5 FOR R1
018540,000491: 06,6307           64510                           AD       BIT7                                  #  BIT 4 FOR R2
018541,000492: 06,6310           50615                           TS       DECBRNCH                              #  BIT 3 FOR R3
018542,000493: 06,6311           10633        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018543,000494: 06,6312           35501                           CAF      ZERO                                  
018544,000495: 06,6313           50633                           TS       CLPASS                                
018545,000496: 06,6314           06315                           TC       +1                                    

Page 491

018547,000498: 06,6315           02124                           TC       ENDOFJOB                              
018548,000499: 
018549,000500: 06,6316           06357        POSGN              TC       SIGNTEST                              
018550,000501: 06,6317           06322                           TC       +ON                                   
018551,000502: 06,6320           34516                           CAF      ONE                                   
018552,000503: 06,6321           06305                           TC       BOTHSGN                               
018553,000504: 
018554,000505: 06,6322           30001        +ON                XCH      Q                                     
018555,000506: 06,6323           50073                           TS       SIGNRET                               
018556,000507: 06,6324           06222                           TC       GETINREL                              
018557,000508: 06,6325           20076                           INDEX    INREL                                 
018558,000509: 06,6326           36352                           CAF      SGNTAB     -2                         
018559,000510: 06,6327           50110                           TS       SGNOFF                                
018560,000511: 06,6330           64516                           AD       ONE                                   
018561,000512: 06,6331           50064                           TS       SGNON                                 
018562,000513: 06,6332           35501        SGNCOM             CAF      ZERO                                  
018563,000514: 06,6333           50111                           TS       CODE                                  
018564,000515: 06,6334           30110                           XCH      SGNOFF                                
018565,000516: 06,6335           07426                           TC       11DSPIN                               
018566,000517: 06,6336           34504                           CAF      BIT11                                 
018567,000518: 06,6337           50111                           TS       CODE                                  
018568,000519: 06,6340           30064                           XCH      SGNON                                 
018569,000520: 06,6341           07426                           TC       11DSPIN                               
018570,000521: 06,6342           00073                           TC       SIGNRET                               
018571,000522: 06,6343           30001        -ON                XCH      Q                                     
018572,000523: 06,6344           50073                           TS       SIGNRET                               
018573,000524: 06,6345           06222                           TC       GETINREL                              
018574,000525: 06,6346           20076                           INDEX    INREL                                 
018575,000526: 06,6347           36352                           CAF      SGNTAB     -2                         
018576,000527: 06,6350           50064                           TS       SGNON                                 
018577,000528: 06,6351           64516                           AD       ONE                                   
018578,000529: 06,6352           50110                           TS       SGNOFF                                
018579,000530: 06,6353           06332                           TC       SGNCOM                                
018580,000531: 
018581,000532: 06,6354           00005        SGNTAB             OCT      5                                     #  -R1
018582,000533: 06,6355           00003                           OCT      3                                     #  -R2
018583,000534: 06,6356           00000                           OCT      0                                     #  -R3
018584,000535: 
018585,000536: 
018586,000537: 
018587,000538: 06,6357           30001        SIGNTEST           XCH      Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
018588,000539: 06,6360           50073                           TS       SIGNRET                               #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
018589,000540: 06,6361           34473                           CAF      THREE                                 #  CONSECUTIVE +/- CHARACTERS
018590,000541: 06,6362           70615                           MASK     DECBRNCH                              
018591,000542: 06,6363           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT = 0, SIGN
018592,000543: 06,6364           02124                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
018593,000544: 06,6365           43171                           CS       R1D1                                  
018594,000545: 06,6366           06374                           TC       SGNTST1                               
018595,000546: 06,6367           43172                           CS       R2D1                                  
018596,000547: 06,6370           06374                           TC       SGNTST1                               

Page 492

018598,000549: 06,6371           43173                           CS       R3D1                                  
018599,000550: 06,6372           06374                           TC       SGNTST1                               
018600,000551: 06,6373           02124                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
018601,000552: 06,6374           60614        SGNTST1            AD       DSPCOUNT                              
018602,000553: 06,6375           10000                           CCS      A                                     
018603,000554: 06,6376           00001                           TC       Q                                     
018604,000555: 06,6377           03062                           TC       CCSHOLE                               
018605,000556: 06,6400           00001                           TC       Q                                     
018606,000557: 06,6401           00073                           TC       SIGNRET                               #  SIGN LEGAL
018607,000558: 
018608,000559: 
018609,000560: 
018610,000561:                                                                                                  #  ERROR LIGHT RESET RESETS TMALM, DSPALARM (CHECK FAIL), PROGALM, UNBLOCKS
018611,000562:                                                                                                  #  ENDPULSES, RESETS ERRUPT TRAP. IT ALSO FORCES BIT 12 OF ALL DSPTAB
018612,000563:                                                                                                  #  ENTRIES TO ONE. RESETS UPACT LIGHT.
018613,000564: 
018614,000565: 06,6402           44513        ERROR              CS       BIT4                                  #  RESTORE ORIGINAL C(DSPLOCK) BIT4 OF
018615,000566: 06,6403           20017                           INHINT                                         #  STATE. THUS ERROR LIGHT RESET LEAVES
018616,000567: 06,6404           70645                           MASK     DSPLOCK                               #  DSPLOCK UNCHANGED.
018617,000568: 06,6405           60106                           AD       21/22REG                              
018618,000569: 06,6406           50645                           TS       DSPLOCK                               
018619,000570: 06,6407           44510                           CS       BIT7                                  #  RESET ERRUPT TRAP
018620,000571: 06,6410           70011                           MASK     OUT1                                  
018621,000572: 06,6411           64510                           AD       BIT7                                  
018622,000573: 06,6412           50011                           TS       OUT1                                  
018623,000574: 06,6413           46500                           CS       CFAILCON                              #  RESET THE C RELAYS FOR IMU FAIL, CDUFAIL
018624,000575: 06,6414           70723                           MASK     DSPTAB     +11D                       #  PIPA FAIL.
018625,000576: 06,6415           64500                           AD       BIT15                                 
018626,000577: 06,6416           50723                           TS       DSPTAB     +11D                       
018627,000578: 06,6417           46476                           CS       ERCON                                 
018628,000579: 06,6420           70011                           MASK     OUT1                                  
018629,000580: 06,6421           50011                           TS       OUT1                                  
018630,000581: 06,6422           33232        TSTAB              CAF      BINCON                                #  (DEC 10)
018631,000582: 06,6423           50063                           TS       ERCNT                                 #  ERCNT = COUNT
018632,000583: 06,6424           20017                           INHINT                                         
018633,000584: 06,6425           20063                           INDEX    ERCNT                                 
018634,000585: 06,6426           10710                           CCS      DSPTAB                                
018635,000586: 06,6427           64516                           AD       ONE                                   
018636,000587: 06,6430           06435                           TC       ERPLUS                                
018637,000588: 06,6431           64516                           AD       ONE                                   
018638,000589: 06,6432           40000        ERMINUS            CS       A                                     
018639,000590: 06,6433           76477                           MASK     NOTBIT12                              
018640,000591: 06,6434           06440                           TC       ERCOM                                 
018641,000592: 06,6435           40000        ERPLUS             CS       A                                     
018642,000593: 06,6436           76477                           MASK     NOTBIT12                              
018643,000594: 06,6437           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
018644,000595: 06,6440           20063        ERCOM              INDEX    ERCNT                                 #  ETC.
018645,000596: 06,6441           50710                           TS       DSPTAB                                
018646,000597: 06,6442           20016                           RELINT                                         
018647,000598: 06,6443           10063                           CCS      ERCNT                                 

Page 493

018649,000600: 06,6444           06423                           TC       TSTAB      +1                         
018650,000601: 06,6445           10727                           CCS      WASKSET                               
018651,000602: 06,6446           06455                           TC       ERROPT                                
018652,000603: 06,6447           06455                           TC       ERROPT                                
018653,000604: 06,6450           06455                           TC       ERROPT                                
018654,000605: 06,6451           30007                           XCH      IN3                                   
018655,000606: 06,6452           30007                           XCH      IN3                                   
018656,000607: 06,6453           74720                           MASK     LOW7                                  
018657,000608: 06,6454           50727                           TS       WASKSET                               
018658,000609: 
018659,000610: 06,6455           10730        ERROPT             CCS      WASOPSET                              
018660,000611: 06,6456           06465                           TC       ERROR1                                
018661,000612: 06,6457           06465                           TC       ERROR1                                
018662,000613: 06,6460           06465                           TC       ERROR1                                
018663,000614: 06,6461           30007                           XCH      IN3                                   
018664,000615: 06,6462           30007                           XCH      IN3                                   
018665,000616: 06,6463           76475                           MASK     OPTICSB                               
018666,000617: 06,6464           50730                           TS       WASOPSET                              
018667,000618: 
018668,000619: 06,6465           35501        ERROR1             CAF      ZERO                                  
018669,000620: 06,6466           51763                           TS       FAILREG                               
018670,000621: 06,6467           50726                           TS       OLDERR                                
018671,000622: 06,6470           51764                           TS       SFAIL                                 
018672,000623: 06,6471           50111                           TS       CODE                                  
018673,000624: 06,6472           35362                           CAF      SEVEN                                 
018674,000625: 06,6473           07426                           TC       11DSPIN                               #  TURN OFF UPACT LIGHT
018675,000626: 06,6474           02124                           TC       ENDOFJOB                              
018676,000627: 
018677,000628: 06,6475           35000        OPTICSB            OCT      35000                                 
018678,000629: 06,6476           01131        ERCON              OCT      01131                                 #  BITS 1, 4, 5, 7, 10.
018679,000630:                                                                                                  #  PROGALM, TMFAIL, CHECK FAIL, ERRUPT TRAP
018680,000631:                                                                                                  #  END PULSES.
018681,000632: 
018682,000633: 06,6477           73777        NOTBIT12           OCT      73777                                 
018683,000634: 06,6500           40340        CFAILCON           OCT      40340                                 
018684,000635: 
018685,000636: 
018686,000637: 
018687,000638:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
018688,000639:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
018689,000640:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
018690,000641: 
018691,000642:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
018692,000643:                                                                                                  #  APPROPRIATE TO BE CLEARED.
018693,000644: 
018694,000645:                                                                                                  #  CLPASS        +0  PASS0, CAN BE BACKED UP
018695,000646:                                                                                                  #                +NZ  HIPASS, CAN BE BACKED UP
018696,000647:                                                                                                  #                -NZ  PASS0, CANNOT BE BACKED UP
018697,000648: 
018698,000649: 06,6501           10614        CLEAR              CCS      DSPCOUNT                              

Page 494

018700,000651: 06,6502           64516                           AD       ONE                                   
018701,000652: 06,6503           06505                           TC       +2                                    
018702,000653: 06,6504           64516                           AD       ONE                                   
018703,000654: 06,6505           20000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY
018704,000655: 06,6506           36226                           CAF      INRELTAB                              #  FAIL LEGALTST.
018705,000656: 06,6507           50076                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
018706,000657: 06,6510           10633                           CCS      CLPASS                                
018707,000658: 06,6511           06516                           TC       CLPASHI                               #  +
018708,000659: 06,6512           06514                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
018709,000660: 06,6513           06514                           TC       +1                                    #  -
018710,000661: 06,6514           06545                           TC       LEGALTST                              
018711,000662: 06,6515           06535                           TC       CLEAR1                                
018712,000663: 06,6516           10076        CLPASHI            CCS      INREL                                 
018713,000664: 06,6517           50076                           TS       INREL                                 
018714,000665: 06,6520           06545                           TC       LEGALTST                              
018715,000666: 06,6521           30613                           XCH      REQRET                                
018716,000667: 06,6522           66617                           AD       DOUBLK     +2                         #  +3 TO - NUMBER. BACKS UP DATA REQUESTS
018717,000668: 06,6523           50613                           TS       REQRET                                
018718,000669: 06,6524           30076                           XCH      INREL                                 
018719,000670: 06,6525           50073                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
018720,000671: 06,6526           30602                           XCH      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
018721,000672: 06,6527           64335                           AD       NEG1                                  
018722,000673: 06,6530           50602                           TS       VERBREG                               
018723,000674: 06,6531           05654                           TC       BANKCALL                              
018724,000675: 06,6532           16346                           CADR     UPDATVB                               
018725,000676: 06,6533           30073                           XCH      MIXTEMP                               
018726,000677: 06,6534           50076                           TS       INREL                                 #  RESTORE INREL
018727,000678: 06,6535           06542        CLEAR1             TC       CLR5                                  
018728,000679: 06,6536           34516                           CAF      ONE                                   
018729,000680: 06,6537           60633                           AD       CLPASS                                #  ONLY IF CLPASS IS + OR +0,
018730,000681: 06,6540           50633                           TS       CLPASS                                #  SET FOR HIGHER PASS.
018731,000682: 06,6541           02124                           TC       ENDOFJOB                              
018732,000683: 06,6542           30001        CLR5               XCH      Q                                     
018733,000684: 06,6543           50106                           TS       WRDRET                                #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
018734,000685: 06,6544           06557                           TC       5BLANK     +3                         
018735,000686: 06,6545           45503        LEGALTST           CS       TWO                                   
018736,000687: 06,6546           60076                           AD       INREL                                 
018737,000688: 06,6547           10000                           CCS      A                                     
018738,000689: 06,6550           00001                           TC       Q                                     #  LEGAL  INREL G/ 2
018739,000690: 06,6551           03062                           TC       CCSHOLE                               
018740,000691: 06,6552           02124                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
018741,000692: 06,6553           00001                           TC       Q                                     #  LEGAL    INREL = 2
018742,000693: 
018743,000694: 
018744,000695: 
018745,000696:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
018746,000697:                                                                                                  #  YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
018747,000698:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
018748,000699: 
018749,000700: 06,6554           30001        5BLANK             XCH      Q                                     

Page 495

018751,000702: 06,6555           50106                           TS       WRDRET                                
018752,000703: 06,6556           06222                           TC       GETINREL                              
018753,000704: 06,6557           35501                           CAF      ZERO                                  
018754,000705: 06,6560           20076                           INDEX    INREL                                 
018755,000706: 06,6561           50602                           TS       VERBREG                               #  ZERO X, Y, Z REG.
018756,000707: 06,6562           20076                           INDEX    INREL                                 
018757,000708: 06,6563           50605                           TS       XREGLP     -2                         
018758,000709: 06,6564           50111                           TS       CODE                                  
018759,000710: 06,6565           20076                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
018760,000711: 06,6566           44510                           CS       BIT7                                  #  PROTECT OTHERS
018761,000712: 06,6567           70615                           MASK     DECBRNCH                              
018762,000713: 06,6570           76620                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
018763,000714: 06,6571           50615                           TS       DECBRNCH                              
018764,000715: 06,6572           20076                           INDEX    INREL                                 
018765,000716: 06,6573           36610                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
018766,000717: 06,6574           50104                           TS       COUNT                                 
018767,000718: 06,6575           07341                           TC       DSPIN                                 
018768,000719: 06,6576           20076        5BLANK1            INDEX    INREL                                 
018769,000720: 06,6577           36613                           CAF      DOUBLK     -2                         
018770,000721: 06,6600           50614                           TS       DSPCOUNT                              
018771,000722: 06,6601           06621                           TC       2BLANK                                
018772,000723: 06,6602           45503                           CS       TWO                                   
018773,000724: 06,6603           60614                           AD       DSPCOUNT                              
018774,000725: 06,6604           50614                           TS       DSPCOUNT                              
018775,000726: 06,6605           06621                           TC       2BLANK                                
018776,000727: 06,6606           20076                           INDEX    INREL                                 
018777,000728: 06,6607           33167                           CAF      R1D1       -2                         
018778,000729: 06,6610           50614                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
018779,000730: 06,6611           00106                           TC       WRDRET                                #  OF REG. JUST BLANKED
018780,000731: 
018781,000732: 06,6612           00016        SINBLANK           OCT      16                                    #  DEC 14
018782,000733: 06,6613           00005                           OCT      5                                     
018783,000734: 06,6614           00004                           OCT      4                                     
018784,000735: 06,6615           00015        DOUBLK             OCT      15                                    #  DEC 13
018785,000736: 06,6616           00011                           OCT      11                                    #  DEC 9
018786,000737: 06,6617           00003                           OCT      3                                     
018787,000738: 
018788,000739: 06,6620           77774        BRNCHCON           OCT      77774                                 
018789,000740: 
018790,000741:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
018791,000742:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
018792,000743: 
018793,000744: 06,6621           30001        2BLANK             XCH      Q                                     
018794,000745: 06,6622           50112                           TS       BLANKRET                              
018795,000746: 06,6623           40614                           CS       DSPCOUNT                              
018796,000747: 06,6624           40000                           CS       A                                     
018797,000748: 06,6625           50021                           TS       SR                                    
018798,000749: 06,6626           46637                           CS       BLANKCON                              
018799,000750: 06,6627           20017                           INHINT                                         
018800,000751: 06,6630           20021                           INDEX    SR                                    

Page 496

018802,000753: 06,6631           30710                           XCH      DSPTAB                                
018803,000754: 06,6632           10000                           CCS      A                                     
018804,000755: 06,6633           06640                           TC       INCNOUT                               #  IF OLD CONTENTS +,+1 TO NOUT
018805,000756: 06,6634           03062                           TC       CCSHOLE                               
018806,000757: 06,6635           20016                           RELINT                                         #  IF -,NOUT OK
018807,000758: 06,6636           00112                           TC       BLANKRET                              
018808,000759: 06,6637           04000        BLANKCON           OCT      4000                                  
018809,000760: 
018810,000761: 06,6640           30707        INCNOUT            XCH      NOUT                                  
018811,000762: 06,6641           64516                           AD       ONE                                   
018812,000763: 06,6642           50707                           TS       NOUT                                  
018813,000764: 06,6643           20001                           INDEX    Q                                     
018814,000765: 06,6644           00001                           TC       1                                     #  RETURN TO 2+ L(CALLING TC)
018815,000766: 

Page 497

018817,000768: 
018818,000769:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
018819,000770:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
018820,000771:                                                                                                  #  PASSES.
018821,000772: 
018822,000773: 07,6000                                           SETLOC   16000                                 
018823,000774: 
018824,000775: 07,6000           07354        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS, DONT MOVE.
018825,000776: 07,6001           07434        GRABUSYB           TC       GRABUSY1                              
018826,000777: 07,6002           07456        NVSUBSYB           TC       NVSUBSY1                              
018827,000778: 07,6003           30001        DSPMM              XCH      Q                                     
018828,000779: 07,6004           50063                           TS       UPDATRET                              
018829,000780: 07,6005           07423                           TC       DSPMM1                                
018830,000781: 07,6006           06705        LOADLV1            TC       LOADLV                                
018831,000782:                                                                                                  #  END OF STANDARD LEAD INS.
018832,000783: 
018833,000784: 
018834,000785: 
018835,000786: 07,6007           35501        ENTER              CAF      ZERO                                  
018836,000787: 07,6010           50633                           TS       CLPASS                                
018837,000788: 07,6011           33147                           CAF      ENDINST                               
018838,000789: 07,6012           50065                           TS       ENTRET                                
018839,000790: 07,6013           10613                           CCS      REQRET                                
018840,000791: 07,6014           06035                           TC       ENTPAS0                               #  IF +, PASS 0
018841,000792: 07,6015           06035                           TC       ENTPAS0                               #  IF +, PASS 0
018842,000793: 07,6016           06017                           TC       +1                                    #  IF -, NOT PASS 0
018843,000794: 07,6017           34473                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN.
018844,000795: 07,6020           70615                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
018845,000796: 07,6021           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
018846,000797: 07,6022           06024                           TC       +2                                    #  CHARACTERS AND CONTINUE.
018847,000798: 07,6023           06030                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
018848,000799: 07,6024           10614                           CCS      DSPCOUNT                              
018849,000800: 07,6025           06356                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018850,000801: 07,6026           06356                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018851,000802: 07,6027           06030                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
018852,000803: 07,6030           40613        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
018853,000804: 07,6031           50613                           TS       REQRET                                #  SET REQRET +.
018854,000805: 07,6032           05654                           TC       BANKCALL                              
018855,000806: 07,6033           14003                           CADR     FLASHOFF                              
018856,000807: 07,6034           00613                           TC       REQRET                                
018857,000808: 
018858,000809: 07,6035     0065               ENTEXIT            =        ENTRET                                
018859,000810: 
018860,000811: 07,6035           35501        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
018861,000812: 07,6036           50615                           TS       DECBRNCH                              
018862,000813: 07,6037           40602        TESTVB             CS       VERBREG                               #  IF VERB IS 32-77, SKIP NOUN TEST
018863,000814: 07,6040           66043                           AD       LOWVERB                               #  32-VB
018864,000815: 07,6041           10000                           CCS      A                                     
018865,000816: 07,6042           06046                           TC       TESTNN                                #  VERB L/ 32
018866,000817: 07,6043           00032        LOWVERB            OCT      32                                    #  LOWER VERB THAT AVOIDS NOUN TEST
018867,000818: 07,6044           06045                           TC       +1                                    #  VERB G/ 32

Page 498

018869,000820: 07,6045           06130                           TC       VERBFAN                               #  VERB=32
018870,000821: 07,6046           36107        TESTNN             CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018871,000822: 07,6047           05662                           TC       SWCALL                                #  ROUTINE.
018872,000823: 07,6050           20107                           INDEX    MIXBR                                 
018873,000824: 07,6051           06051                           TC       +0                                    
018874,000825: 07,6052           06054                           TC       +2                                    #  NORMAL
018875,000826: 07,6053           06210                           TC       MIXNOUN                               #  MIXED
018876,000827: 07,6054           10054                           CCS      NNADTEM                               #  NORMAL
018877,000828: 07,6055           06126                           TC       VERBFAN    -2                         #       NORMAL IF +
018878,000829: 07,6056           06356                           TC       GODSPALM                              #  NOT IN USE   IF +0
018879,000830: 07,6057           06067                           TC       REQADD                                #  SPECIFY MACHINE ADDRESS IF -
018880,000831: 07,6060           33173                           CAF      R3D1                                  #  AUGMENT MACHINE ADDRESS IF -0
018881,000832: 07,6061           50614                           TS       DSPCOUNT                              
018882,000833: 07,6062           30624                           XCH      NOUNADD                               
018883,000834: 07,6063           64516                           AD       ONE                                   
018884,000835: 07,6064           50624                           TS       NOUNADD                               
018885,000836: 07,6065           07225                           TC       DSPOCTWD                              
018886,000837: 07,6066           06130                           TC       VERBFAN                               
018887,000838: 07,6067           34500        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018888,000839: 07,6070           50633                           TS       CLPASS                                
018889,000840: 07,6071           43147                           CS       ENDINST                               
018890,000841: 07,6072           60065                           AD       ENTEXIT                               
018891,000842: 07,6073           10000                           CCS      A                                     #  TEST IF REACHED HERE FROM INTERNAL OR
018892,000843: 07,6074           06110                           TC       INTMATBS                              #                FROM EXTERNAL
018893,000844: 07,6075           03062                           TC       CCSHOLE                               
018894,000845: 07,6076           06110                           TC       INTMATBS                              
018895,000846: 07,6077           06304                           TC       REQDATZ                               #  EXTERNAL MACH ADDR TO BE SPECIFIED
018896,000847: 07,6100           10615                           CCS      DECBRNCH                              
018897,000848: 07,6101           06356                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MATBS
018898,000849: 07,6102           30606                           XCH      ZREG                                  #  OCTAL USED    OK
018899,000850: 07,6103           50624                           TS       NOUNADD                               
018900,000851: 07,6104           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018901,000852: 07,6105           05662                           TC       SWCALL                                #  ROUTINE.
018902,000853: 07,6106           06130                           TC       VERBFAN                               
018903,000854: 
018904,000855: 07,6107           13153        LODNNLOC           CADR     LODNNTAB                              
018905,000856: 
018906,000857: 07,6110           44513        INTMATBS           CS       BIT4                                  
018907,000858: 07,6111           70602                           MASK     VERBREG                               #  MAKES VB 15 LOOK LIKE VB 05.
018908,000859: 07,6112           66115                           AD       NEG5                                  
018909,000860: 07,6113           10000                           CCS      A                                     
018910,000861: 07,6114           06120                           TC       DSPADD                                #  VB NOT = 05 OR 15, DISPLAY ADDRESS.
018911,000862: 07,6115           77772        NEG5               OCT      77772                                 
018912,000863: 07,6116           06120                           TC       DSPADD                                #  VB NOT = 05 OR 15, DISPLAY ADDRESS.
018913,000864: 07,6117           06130                           TC       VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY ADDRESS.
018914,000865: 07,6120           33173        DSPADD             CAF      R3D1                                  
018915,000866: 07,6121           50614                           TS       DSPCOUNT                              
018916,000867: 07,6122           40624                           CS       NOUNADD                               
018917,000868: 07,6123           40000                           CS       A                                     
018918,000869: 07,6124           07225                           TC       DSPOCTWD                              

Page 499

018920,000871: 07,6125           06130                           TC       VERBFAN                               
018921,000872: 
018922,000873: 07,6126           64516                           AD       ONE                                   
018923,000874: 07,6127           50624                           TS       NOUNADD                               
018924,000875: 07,6130           46143        VERBFAN            CS       LST2CON                               
018925,000876: 07,6131           60602                           AD       VERBREG                               #  VERB-LST2CON
018926,000877: 07,6132           10000                           CCS      A                                     
018927,000878: 07,6133           64516                           AD       ONE                                   #  VERB G/ LST2CON
018928,000879: 07,6134           06136                           TC       +2                                    
018929,000880: 07,6135           06145                           TC       VBFANDIR                              #  VERB L/ LST2CON
018930,000881: 07,6136           50115        JAMEXTVB           TS       MPAC                                  #  SPECIAL ENTRY FOR FORCING EXTENDED VERB.
018931,000882: 07,6137           03323                           TC       RELDSP                                #  RELEASE DISPLAY SYST
018932,000883: 07,6140           30115                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
018933,000884: 07,6141           66144                           AD       LST2CADR                              
018934,000885: 07,6142           05723                           TC       BANKJUMP                              
018935,000886: 07,6143           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
018936,000887: 07,6144           12000        LST2CADR           CADR     LST2FAN                               #  THE LIST2 FAN IS LOCATED IN BANK 05
018937,000888: 
018938,000889: 07,6145           20602        VBFANDIR           INDEX    VERBREG                               
018939,000890: 07,6146           36150                           CAF      VERBTAB                               
018940,000891: 07,6147           05723                           TC       BANKJUMP                              
018941,000892: 
018942,000893: 07,6150           16356        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
018943,000894: 07,6151           16372                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
018944,000895: 07,6152           16377                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
018945,000896: 07,6153           16404                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
018946,000897: 07,6154           16365                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
018947,000898: 07,6155           16360                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
018948,000899: 07,6156           16476                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
018949,000900: 07,6157           15030                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
018950,000901: 07,6160           17342                           CADR     VBRQWAIT                              #  VB10 REQUEST WAITLIST
018951,000902: 07,6161           17102                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
018952,000903: 07,6162           17102                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
018953,000904: 07,6163           17102                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
018954,000905: 07,6164           17102                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
018955,000906: 07,6165           17102                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
018956,000907: 07,6166           17102                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
018957,000908: 07,6167           17102                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
018958,000909: 07,6170           17321        REQEXLOC           CADR     VBRQEXEC                              #  VB20 REQUEST EXECUTIVE
018959,000910: 07,6171           16645                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
018960,000911: 07,6172           16655                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
018961,000912: 07,6173           16671                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
018962,000913: 07,6174           16620                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
018963,000914: 07,6175           16564                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
018964,000915: 07,6176           16356                           CADR     GODSPALM                              #  VB26 SPARE
018965,000916: 07,6177           16356                           CADR     GODSPALM                              #  VB27 SPARE
018966,000917: 07,6200           16356                           CADR     GODSPALM                              #  VB30 SPARE
018967,000918: 07,6201           17216                           CADR     DSPBANK                               #  VB31 BANK DISPLAY
018968,000919: 07,6202           15503                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2
018969,000920: 07,6203           15465                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA

Page 500

018971,000922: 07,6204           15472                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
018972,000923: 07,6205           15475                           CADR     VBRELDSP                              #  VB35 RELEASE DISPLAY SYST
018973,000924: 07,6206           10000                           CADR     SLAPB                                 #  VB36 FRESH START
018974,000925: 07,6207           17273                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
018975,000926: 
018976,000927: 
018977,000928: 
018978,000929:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN BANK 05.
018979,000930: 

Page 501

018981,000932: 
018982,000933:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
018983,000934:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
018984,000935:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
018985,000936:                                                                                                  #  MIXTEMP.
018986,000937: 
018987,000938: 07,6210           10054        MIXNOUN            CCS      NNADTEM                               
018988,000939: 07,6211           06215                           TC       +4                                    #  +  IN USE
018989,000940: 07,6212           06356                           TC       GODSPALM                              #  +0  NOT IN USE
018990,000941: 07,6213           06215                           TC       +2                                    #  -  IN USE
018991,000942: 07,6214           06215                           TC       +1                                    #  -0  IN USE
018992,000943: 07,6215           44475                           CS       SIX                                   
018993,000944: 07,6216           60602                           AD       VERBREG                               
018994,000945: 07,6217           10000                           CCS      A                                     #  AVOID MIXNOUN SWAP FOR OTHER THAN
018995,000946: 07,6220           06130                           TC       VERBFAN                               #        DISPLAY VERBS
018996,000947: 07,6221           03062                           TC       CCSHOLE                               
018997,000948: 07,6222           06223                           TC       +1                                    
018998,000949: 07,6223           35503                           CAF      TWO                                   
018999,000950: 07,6224           50064        MIXNN1             TS       NOUNTEM                               
019000,000951: 07,6225           66254                           AD       MIXAD                                 
019001,000952: 07,6226           50624                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
019002,000953: 07,6227           20064                           INDEX    NOUNTEM                               
019003,000954: 07,6230           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
019004,000955: 07,6231           40000                           CS       A                                     #  OF NOUN.
019005,000956: 07,6232           50063                           TS       DECOUNT                               
019006,000957:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
019007,000958:                                                                                                  #    MINOR PART ONLY.
019008,000959: 07,6233           72261                           MASK     HI5                                   
019009,000960: 07,6234           03203                           TC       LEFT5                                 #  SF ROUT NUMBER IN A
019010,000961: 07,6235           06255                           TC       DPTEST                                
019011,000962: 07,6236           06242                           TC       MIXNN2                                #  NO DP
019012,000963: 07,6237           34516                           CAF      ONE                                   #  DP  GET MINOR PART
019013,000964: 07,6240           60063                           AD       DECOUNT                               
019014,000965: 07,6241           50063                           TS       DECOUNT                               
019015,000966: 07,6242           30063        MIXNN2             XCH      DECOUNT                               
019016,000967: 07,6243           74606                           MASK     LOW10                                 #  ESUBK (NO DP)  OR  (ESUBK)+1    FOR DP
019017,000968: 07,6244           20000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
019018,000969: 07,6245           40000                           CS       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
019019,000970: 07,6246           40000                           CS       A                                     
019020,000971: 07,6247           20624                           INDEX    NOUNADD                               
019021,000972: 07,6250           30000                           XCH      0                                     #  STORE IN MIXTEM + K
019022,000973: 07,6251           10064                           CCS      NOUNTEM                               
019023,000974: 07,6252           06224                           TC       MIXNN1                                
019024,000975: 07,6253           06130                           TC       VERBFAN                               
019025,000976: 
019026,000977: 07,6254           00073        MIXAD              TC       MIXTEMP                               
019027,000978: 
019028,000979: 
019029,000980: 
019030,000981: 07,6255           50110        DPTEST             TS       SFTEMP1                               #  ENTER WITH SF ROUT NUMBER IN A.
019031,000982: 07,6256           30001                           XCH      Q                                     #  RETURNS TO L+1 IF NO DP

Page 502

019033,000984: 07,6257           30110                           XCH      SFTEMP1                               #  RETURNS TO L+2 IF DP
019034,000985: 07,6260           20000                           INDEX    A                                     
019035,000986: 07,6261           06262                           TC       +1                                    
019036,000987: 07,6262           00110                           TC       SFTEMP1                               #  OCTAL ONLY  NO DP
019037,000988: 07,6263           00110                           TC       SFTEMP1                               #  FRACT NO DP
019038,000989: 07,6264           00110                           TC       SFTEMP1                               #  DEG  NO DP
019039,000990: 07,6265           00110                           TC       SFTEMP1                               #  ARITH  NO DP
019040,000991: 07,6266           06272                           TC       DPTEST1                               #  DP1OUT
019041,000992: 07,6267           06272                           TC       DPTEST1                               #  DP2OUT
019042,000993: 07,6270           00110                           TC       SFTEMP1                               #  OPDEG  NO DP
019043,000994: 07,6271           06272                           TC       DPTEST1                               #  DP3OUT
019044,000995: 07,6272           20110        DPTEST1            INDEX    SFTEMP1                               
019045,000996: 07,6273           00001                           TC       1                                     #  RETURN TO L+2
019046,000997: 
019047,000998: 
019048,000999: 
019049,001000: 07,6274           40001        REQDATX            CS       Q                                     
019050,001001: 07,6275           50613                           TS       REQRET                                
019051,001002: 07,6276           33171                           CAF      R1D1                                  
019052,001003: 07,6277           06307                           TC       REQCOM                                
019053,001004: 07,6300           40001        REQDATY            CS       Q                                     
019054,001005: 07,6301           50613                           TS       REQRET                                
019055,001006: 07,6302           33172                           CAF      R2D1                                  
019056,001007: 07,6303           06307                           TC       REQCOM                                
019057,001008: 07,6304           40001        REQDATZ            CS       Q                                     
019058,001009: 07,6305           50613                           TS       REQRET                                
019059,001010: 07,6306           33173                           CAF      R3D1                                  
019060,001011: 07,6307           50614        REQCOM             TS       DSPCOUNT                              
019061,001012: 07,6310           05654                           TC       BANKCALL                              
019062,001013: 07,6311           14554                           CADR     5BLANK                                
019063,001014: 07,6312           05654                           TC       BANKCALL                              
019064,001015: 07,6313           14000                           CADR     FLASHON                               
019065,001016: 07,6314           43147                           CS       ENDINST                               
019066,001017: 07,6315           60065                           AD       ENTEXIT                               
019067,001018: 07,6316           10000                           CCS      A                                     
019068,001019: 07,6317           06323                           TC       +4                                    #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
019069,001020: 07,6320           03062                           TC       CCSHOLE                               
019070,001021: 07,6321           06323                           TC       +2                                    #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
019071,001022: 07,6322           00065                           TC       ENTEXIT                               #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
019072,001023: 07,6323           45501                           CS       ZERO                                  #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
019073,001024: 07,6324           50627                           TS       CADRSTOR                              
019074,001025: 07,6325           00065                           TC       ENTEXIT                               
019075,001026: 
019076,001027:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
019077,001028:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
019078,001029: 
019079,001030: 
019080,001031: 
019081,001032: 07,6326           50603                           TS       NOUNREG                               
019082,001033: 07,6327           30001        UPDATNN            XCH      Q                                     

Page 503

019084,001035: 07,6330           50063                           TS       UPDATRET                              
019085,001036: 07,6331           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019086,001037: 07,6332           05662                           TC       SWCALL                                #  ROUTINE.
019087,001038: 07,6333           10054                           CCS      NNADTEM                               
019088,001039: 07,6334           64516                           AD       ONE                                   #  NORMAL
019089,001040: 07,6335           06340                           TC       PUTADD                                
019090,001041: 07,6336           06341                           TC       PUTADD     +1                         #  MATBS  DONT CHANGE NOUNADD
019091,001042: 07,6337           06341                           TC       PUTADD     +1                         #  MATBI  DONT CHANGE NOUNADD
019092,001043: 07,6340           50624        PUTADD             TS       NOUNADD                               
019093,001044: 07,6341           33230                           CAF      ND1                                   
019094,001045: 07,6342           50614                           TS       DSPCOUNT                              
019095,001046: 07,6343           40603                           CS       NOUNREG                               
019096,001047: 07,6344           06353                           TC       UPDAT1                                
019097,001048: 
019098,001049: 07,6345           50602                           TS       VERBREG                               
019099,001050: 07,6346           30001        UPDATVB            XCH      Q                                     
019100,001051: 07,6347           50063                           TS       UPDATRET                              
019101,001052: 07,6350           33227                           CAF      VD1                                   
019102,001053: 07,6351           50614                           TS       DSPCOUNT                              
019103,001054: 07,6352           40602                           CS       VERBREG                               
019104,001055: 07,6353           40000        UPDAT1             CS       A                                     
019105,001056: 07,6354           07261                           TC       DSP2BIT                               
019106,001057: 07,6355           00063                           TC       UPDATRET                              
019107,001058: 
019108,001059: 
019109,001060: 
019110,001061: 07,6356           05720        GODSPALM           TC       POSTJUMP                              
019111,001062: 07,6357           15442                           CADR     DSPALARM                              
019112,001063: 

Page 504

019114,001065: 
019115,001066:                                                                                                  #        NOUN TABLES
019116,001067:                                                                                                  #  NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
019117,001068:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE MACHINE ADDRESS FOR EACH NOUN.
019118,001069:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY IDICATES MACHINE ADDRESS TO BE
019119,001070:                                                                                                  #  SPECIFIED.      -0 ENTRY INDICATES AUGMENT OF LAST MACHINE ADDRESS.
019120,001071: 
019121,001072:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
019122,001073:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
019123,001074: 
019124,001075:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
019125,001076: 
019126,001077:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
019127,001078:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
019128,001079:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
019129,001080: 
019130,001081:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER       3 COMPONENT CASE
019131,001082:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
019132,001083:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
019133,001084:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER       2 COMPONENT CASE
019134,001085:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
019135,001086:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER        1 COMPONENT CASE
019136,001087: 
019137,001088:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
019138,001089:                                                                                                  #  ENTRY IS OF FORM RRRRREEEEEEEEEE. IDADDREL IS THE RELATIVE ADDRESS OF
019139,001090:                                                                                                  #  THE FIRST OF THESE ENTRIES.
019140,001091:                                                                                                  #  R-S ARE THE SF ROUTINE CODE NUMBERS FOR COMPONENT K
019141,001092:                                                                                                  #  E-S ARE THE MACHINE ADDRESS FOR COMPONENT K
019142,001093:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
019143,001094:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
019144,001095: 
019145,001096:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
019146,001097:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
019147,001098:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
019148,001099:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
019149,001100:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
019150,001101: 
019151,001102: 
019152,001103: 
019153,001104:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
019154,001105:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
019155,001106: 
019156,001107:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
019157,001108:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
019158,001109: 

Page 505

019160,001111: 
019161,001112:                                                                                                  #        DISPLAY VERBS
019162,001113: 07,6360           45503        DSPABC             CS       TWO                                   
019163,001114: 07,6361           06430                           TC       COMPTEST                              
019164,001115: 07,6362           20624                           INDEX    NOUNADD                               
019165,001116: 07,6363           40002                           CS       2                                     
019166,001117: 07,6364           30101                           XCH      BUF        +2                         
019167,001118: 07,6365           44516        DSPAB              CS       ONE                                   
019168,001119: 07,6366           06430                           TC       COMPTEST                              
019169,001120: 07,6367           20624                           INDEX    NOUNADD                               
019170,001121: 07,6370           40001                           CS       1                                     
019171,001122: 07,6371           30100                           XCH      BUF        +1                         
019172,001123: 07,6372           06457        DSPA               TC       TSTFORDP                              
019173,001124: 07,6373           20624                           INDEX    NOUNADD                               
019174,001125: 07,6374           40000                           CS       0                                     
019175,001126: 07,6375           30077        DSPCOM1            XCH      BUF                                   
019176,001127: 07,6376           06411                           TC       DSPCOM2                               
019177,001128: 07,6377           44516        DSPB               CS       ONE                                   
019178,001129: 07,6400           06430                           TC       COMPTEST                              
019179,001130: 07,6401           20624                           INDEX    NOUNADD                               
019180,001131: 07,6402           40001                           CS       1                                     
019181,001132: 07,6403           06375                           TC       DSPCOM1                               
019182,001133: 07,6404           45503        DSPC               CS       TWO                                   
019183,001134: 07,6405           06430                           TC       COMPTEST                              
019184,001135: 07,6406           20624                           INDEX    NOUNADD                               
019185,001136: 07,6407           40002                           CS       2                                     
019186,001137: 07,6410           06375                           TC       DSPCOM1                               
019187,001138: 07,6411           45503        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
019188,001139: 07,6412           60602                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
019189,001140: 07,6413           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
019190,001141: 07,6414           06417                           TC       DSPCOM3                               
019191,001142: 07,6415           00065                           TC       ENTEXIT                               
019192,001143: 07,6416           06417                           TC       +1                                    
019193,001144: 07,6417           50064        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
019194,001145: 07,6420           20000                           INDEX    A                                     
019195,001146: 07,6421           33171                           CAF      R1D1                                  
019196,001147: 07,6422           50614                           TS       DSPCOUNT                              
019197,001148: 07,6423           20064                           INDEX    DISTEM                                
019198,001149: 07,6424           40077                           CS       BUF                                   
019199,001150: 07,6425           07225                           TC       DSPOCTWD                              
019200,001151: 07,6426           30064                           XCH      DISTEM                                
019201,001152: 07,6427           06413                           TC       DSPCOM2    +2                         
019202,001153: 
019203,001154:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
019204,001155:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
019205,001156:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
019206,001157: 07,6430           50110        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
019207,001158: 07,6431           30001                           XCH      Q                                     
019208,001159: 07,6432           50111                           TS       SFTEMP2                               
019209,001160: 07,6433           44516        COMPTST1           CS       ONE                                   
019210,001161: 07,6434           60603                           AD       NOUNREG                               

Page 506

019212,001163: 07,6435           10000                           CCS      A                                     
019213,001164: 07,6436           06442                           TC       +4                                    #  NOUN NOT = 01
019214,001165: 07,6437           03062                           TC       CCSHOLE                               
019215,001166: 07,6440           06442                           TC       +2                                    #  NOUN NOT = 01
019216,001167: 07,6441           00111                           TC       SFTEMP2                               #  NOUN = 01. ANY COMP OK
019217,001168: 07,6442           20107                           INDEX    MIXBR                                 
019218,001169: 07,6443           36473                           CAF      COMPICK    -1                         
019219,001170: 07,6444           20000                           INDEX    A                                     
019220,001171: 07,6445           40000                           CS       0                                     #  MUST NOT DESTROY NNADTEM OR NNTYPTEM
019221,001172: 07,6446           40000                           CS       A                                     
019222,001173: 07,6447           72261                           MASK     HI5                                   
019223,001174: 07,6450           03203                           TC       LEFT5                                 #  NOUN COMP
019224,001175: 07,6451           60110                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
019225,001176: 07,6452           10000                           CCS      A                                     
019226,001177: 07,6453           00111                           TC       SFTEMP2                               #  NOUN COMP G/ VERB COMP
019227,001178: 07,6454           03062                           TC       CCSHOLE                               
019228,001179: 07,6455           06356                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
019229,001180: 07,6456           00111                           TC       SFTEMP2                               #  NOUN COMP = VERB COMP
019230,001181: 
019231,001182: 
019232,001183: 
019233,001184: 07,6457           30001        TSTFORDP           XCH      Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
019234,001185: 07,6460           50063                           TS       DECOUNT                               
019235,001186: 07,6461           20107                           INDEX    MIXBR                                 
019236,001187: 07,6462           06462                           TC       +0                                    
019237,001188: 07,6463           06465                           TC       +2                                    #  NORMAL
019238,001189: 07,6464           00063                           TC       DECOUNT                               #  MIXED CASE ALREADY HANDLED IN MIXNOUN
019239,001190: 07,6465           06740                           TC       SFRUTNOR                              
019240,001191: 07,6466           06255                           TC       DPTEST                                
019241,001192: 07,6467           00063                           TC       DECOUNT                               #  NO DP
019242,001193: 07,6470           30624                           XCH      NOUNADD                               #  DP
019243,001194: 07,6471           64516                           AD       ONE                                   
019244,001195: 07,6472           50624                           TS       NOUNADD                               #  E+1 INTO NOUNADD FOR MINOR PART.
019245,001196: 07,6473           00063                           TC       DECOUNT                               
019246,001197: 
019247,001198: 
019248,001199: 
019249,001200: 07,6474           00055        COMPICK            ADRES    NNTYPTEM                              
019250,001201: 07,6475           00054                           ADRES    NNADTEM                               
019251,001202: 
019252,001203: 07,6476           20107        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
019253,001204: 07,6477           36473                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
019254,001205: 07,6500           20000                           INDEX    A                                     
019255,001206: 07,6501           40000                           CS       0                                     #  MUST NOT DESTROY NNADTEM OR NNTYPTEM
019256,001207: 07,6502           40000                           CS       A                                     #  C(NNTYPTEM)           C(NNADTEM)
019257,001208: 07,6503           72261                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM) OF NNADTAB(MIX)
019258,001209: 07,6504           03203                           TC       LEFT5                                 
019259,001210: 07,6505           50063                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
019260,001211: 07,6506           50064        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
019261,001212: 07,6507           60624                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2

Page 507

019263,001214: 07,6510           20000                           INDEX    A                                     
019264,001215: 07,6511           40000                           CS       0                                     
019265,001216: 07,6512           20064                           INDEX    DECTEM                                
019266,001217: 07,6513           30604                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
019267,001218: 07,6514           10064                           CCS      DECTEM                                
019268,001219: 07,6515           06506                           TC       DSPDCGET                              #  MORE TO GET
019269,001220: 07,6516           35501        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
019270,001221: 07,6517           50116                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
019271,001222: 07,6520           50117                           TS       MPAC       +2                         
019272,001223: 07,6521           20063                           INDEX    DECOUNT                               
019273,001224: 07,6522           33171                           CAF      R1D1                                  
019274,001225: 07,6523           50614                           TS       DSPCOUNT                              
019275,001226: 07,6524           20063                           INDEX    DECOUNT                               
019276,001227: 07,6525           40604                           CS       XREG                                  
019277,001228: 07,6526           50115                           TS       MPAC                                  
019278,001229: 07,6527           06756                           TC       SFCONUM                               #  SF CON NUMB IN A
019279,001230: 07,6530           50111                           TS       SFTEMP2                               
019280,001231: 07,6531           05654                           TC       BANKCALL                              #  SWITCH BANKS TO SF CONSTANT READING
019281,001232: 07,6532           13213                           CADR     GTSFOUT                               #  ROUTINE. LOADS SFTEMP1, SFTEMP2.
019282,001233: 07,6533           20107                           INDEX    MIXBR                                 
019283,001234: 07,6534           06534                           TC       +0                                    
019284,001235: 07,6535           06540                           TC       DSPSFNOR                              
019285,001236: 07,6536           06746                           TC       SFRUTMIX                              
019286,001237: 07,6537           06551                           TC       DECDSP3                               
019287,001238: 
019288,001239: 07,6540           06740        DSPSFNOR           TC       SFRUTNOR                              
019289,001240: 07,6541           06551                           TC       DECDSP3                               
019290,001241: 
019291,001242: 07,6542           05654        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
019292,001243: 07,6543           15241                           CADR     DSPDECWD                              
019293,001244: 07,6544           10063                           CCS      DECOUNT                               
019294,001245: 07,6545           06547                           TC       +2                                    
019295,001246: 07,6546           00065                           TC       ENTEXIT                               
019296,001247: 07,6547           50063                           TS       DECOUNT                               
019297,001248: 07,6550           06516                           TC       DSPDCPUT                              #  MORE TO DISPLAY
019298,001249: 
019299,001250: 
019300,001251: 
019301,001252: 07,6551           20000        DECDSP3            INDEX    A                                     
019302,001253: 07,6552           36554                           CAF      SFOUTABR                              
019303,001254: 07,6553           05723                           TC       BANKJUMP                              
019304,001255: 
019305,001256: 07,6554           15442        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
019306,001257: 07,6555           16542                           CADR     DSPDCEND                              
019307,001258: 07,6556           14645                           CADR     DEGOUTSF                              
019308,001259: 07,6557           14743                           CADR     ARTOUTSF                              
019309,001260: 
019310,001261: 07,6560           14752                           CADR     DP1OUTSF                              
019311,001262: 07,6561           14757                           CADR     DP2OUTSF                              
019312,001263: 07,6562           14653                           CADR     OPDEGOUT                              

Page 508

019314,001265: 07,6563           14761                           CADR     DP3OUTSF                              
019315,001266: 07,6564                        ENDRTOUT           EQUALS                                         
019316,001267: 
019317,001268: 
019318,001269: 
019319,001270:                                                                                                  #        THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
019320,001271:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
019321,001272: 
019322,001273: 
019323,001274: 
019324,001275: 06,6645                                           SETLOC   INCNOUT    +5                         
019325,001276: 
019326,001277:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
019327,001278:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
019328,001279: 
019329,001280: 06,6645           35501        DEGOUTSF           CAF      ZERO                                  
019330,001281: 06,6646           50117                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
019331,001282: 06,6647           06707                           TC       FIXRANGE                              
019332,001283: 06,6650           06652                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
019333,001284: 06,6651           06700                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
019334,001285: 06,6652           06722                           TC       DEGCOM                                
019335,001286: 
019336,001287:                                                                                                  #    OPDEGOUT SCALES BY .09 FOR ONE RANGE AND BY .45 FOR THE OTHER.
019337,001288:                                                                                                  #  FOR THE .45 RANGE A .2 BIAS IS ALSO ADDED.
019338,001289: 
019339,001290: 
019340,001291: 
019341,001292:                                                                                                  #  OPDEGOUT USED TO TEST BIT 13 OF WASOPSET (1 = 90 DEG RANGE, 0 = 180).
019342,001293:                                                                                                  #  SINCE THAT BIT IS ALWAYS 1 IN BLOCK 50 - 100, DON;T TEST IT NOW
019343,001294: 06,6653           10115        OPDEGOUT           CCS      MPAC                                  #  90 DEG RANGE ALWAYS
019344,001295: 06,6654           30115                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
019345,001296: 06,6655           06660                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
019346,001297: 06,6656           06670                           TC       NEGOPT                                #  IF NEG NON ZERO
019347,001298: 06,6657           64335                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
019348,001299: 06,6660           66742                           AD       20BIAS                                
019349,001300: 06,6661           50115        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
019350,001301: 06,6662           06666                           TC       +4                                    #  NO OVFLOW
019351,001302: 06,6663           34500                           CAF      BIT15                                 #  IF OVFLOW
019352,001303: 06,6664           60115                           AD       MPAC                                  
019353,001304: 06,6665           50115                           TS       MPAC                                  
019354,001305: 06,6666           35503                           CAF      TWO                                   #  SET MULTIPLIER TO .45
019355,001306: 06,6667           06646                           TC       DEGOUTSF   +1                         
019356,001307: 
019357,001308: 06,6670           30115        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
019358,001309: 06,6671           66742                           AD       20BIAS                                
019359,001310: 06,6672           10000                           CCS      A                                     
019360,001311: 06,6673           06661                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
019361,001312: 06,6674           03062                           TC       CCSHOLE                               
019362,001313: 06,6675           64516                           AD       ONE                                   #  IF NEG RESTORE SUM
019363,001314: 06,6676           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0

Page 509

019365,001316: 06,6677           06661                           TC       BIASCOM                               
019366,001317: 
019367,001318: 06,6700           20117        SETAUG             INDEX    MPAC       +2                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
019368,001319: 06,6701           36737                           CAF      DEGTAB2                               #  DP AUGMENTER CONSTANT
019369,001320: 06,6702           50111                           TS       SFTEMP2                               
019370,001321: 06,6703           20117                           INDEX    MPAC       +2                         
019371,001322: 06,6704           36734                           CAF      DEGTAB1                               
019372,001323: 06,6705           50110                           TS       SFTEMP1                               
019373,001324: 06,6706           00001                           TC       Q                                     
019374,001325: 
019375,001326: 06,6707           30001        FIXRANGE           XCH      Q                                     #  IF MPAC IS + RETURN TO L+1
019376,001327: 06,6710           50106                           TS       WDRET                                 #  IF MPAC IS - RETURN TO L+2 AFTER
019377,001328: 06,6711           10115                           CCS      MPAC                                  #  MASKING OUT THE SIGN BIT
019378,001329: 06,6712           00106                           TC       WDRET                                 
019379,001330: 06,6713           00106                           TC       WDRET                                 
019380,001331: 06,6714           06715                           TC       +1                                    
019381,001332: 06,6715           44500                           CS       BIT15                                 
019382,001333: 06,6716           70115                           MASK     MPAC                                  
019383,001334: 06,6717           50115                           TS       MPAC                                  
019384,001335: 06,6720           20106                           INDEX    WDRET                                 
019385,001336: 06,6721           00001                           TC       1                                     
019386,001337: 
019387,001338: 06,6722           20117        DEGCOM             INDEX    MPAC       +2                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
019388,001339: 06,6723           36737                           CAF      DEGTAB2                               #  ADDS AUGMENTER.
019389,001340: 06,6724           50116                           TS       MPAC       +1                         
019390,001341: 06,6725           20117                           INDEX    MPAC       +2                         
019391,001342: 06,6726           36734                           CAF      DEGTAB1                               
019392,001343: 06,6727           30115                           XCH      MPAC                                  #  ADJUSTED ANGLE IN A
019393,001344: 06,6730           05416                           TC       SHORTMP                               
019394,001345: 06,6731           05171                           TC       DAD                                   
019395,001346: 06,6732           00110                           ADRES    SFTEMP1                               
019396,001347: 06,6733           06750                           TC       SCOUTEND                              
019397,001348: 
019398,001349: 
019399,001350: 
019400,001351: 06,6734           05605        DEGTAB1            OCT      05605                                 #  HIGH PART OF  .18
019401,001352: 06,6735           02702                           OCT      02702                                 #                .09
019402,001353: 06,6736           16314                           OCT      16314                                 #  .45
019403,001354: 
019404,001355: 06,6737           03656        DEGTAB2            OCT      03656                                 #  LOW PART OF   .18
019405,001356: 06,6740           21727                           OCT      21727                                 #                .09
019406,001357: 06,6741           31463                           OCT      31463                                 #  .45
019407,001358: 
019408,001359: 06,6742           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
019409,001360: 
019410,001361: 06,6743           30111        ARTOUTSF           XCH      SFTEMP2                               #  ASSUMES POINT AT LEFT OF DP SFCON.
019411,001362: 06,6744           50116                           TS       MPAC       +1                         
019412,001363: 06,6745           30110                           XCH      SFTEMP1                               #  HI PART OF SFCONSTANT
019413,001364: 06,6746           30115                           XCH      MPAC                                  
019414,001365: 06,6747           05416                           TC       SHORTMP                               

Page 510

019416,001367: 06,6750           05720        SCOUTEND           TC       POSTJUMP                              
019417,001368: 06,6751           16542                           CADR     DSPDCEND                              
019418,001369: 
019419,001370: 06,6752           06764        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019420,001371: 06,6753           30117                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
019421,001372: 06,6754           30116                           XCH      MPAC       +1                         #  BY B14.
019422,001373: 06,6755           50115                           TS       MPAC                                  
019423,001374: 06,6756           06750                           TC       SCOUTEND                              
019424,001375: 
019425,001376: 
019426,001377: 
019427,001378: 06,6757           06764        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019428,001379: 06,6760           06750                           TC       SCOUTEND                              
019429,001380: 
019430,001381: 
019431,001382: 
019432,001383: 06,6761           06764        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019433,001384: 06,6762           07213                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
019434,001385: 06,6763           06750                           TC       SCOUTEND                              
019435,001386: 
019436,001387: 
019437,001388: 
019438,001389:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
019439,001390:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
019440,001391: 
019441,001392: 06,6764           30001        DPOUT              XCH      Q                                     
019442,001393: 06,6765           50122                           TS       OVFIND                                
019443,001394: 06,6766           20107                           INDEX    MIXBR                                 
019444,001395: 06,6767           06767                           TC       +0                                    
019445,001396: 06,6770           07025                           TC       DPOUTNOR                              
019446,001397: 06,6771           20063                           INDEX    DECOUNT                               
019447,001398: 06,6772           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
019448,001399: 06,6773           40000                           CS       A                                     #  OF NOUN.
019449,001400: 06,6774           74606                           MASK     LOW10                                 #  E SUBK
019450,001401: 06,6775           50117        DPOUTCOM           TS       MPAC       +2                         
019451,001402: 06,6776           20017                           INHINT                                         
019452,001403: 06,6777           20117                           INDEX    MPAC       +2                         
019453,001404: 06,7000           40000                           CS       0                                     #  MIXED         NORMAL
019454,001405: 06,7001           40000                           COM                                            #  C(ESUBK)      C(E)
019455,001406: 06,7002           30115                           XCH      MPAC                                  
019456,001407: 06,7003           20117                           INDEX    MPAC       +2                         
019457,001408: 06,7004           40001                           CS       1                                     #  C((E SUBK)+1) C(E+1)
019458,001409: 06,7005           20016                           RELINT                                         
019459,001410: 06,7006           40000                           COM                                            
019460,001411: 06,7007           30116                           XCH      MPAC       +1                         
019461,001412: 06,7010           10116                           CCS      MPAC       +1                         #  TEST IF LOW PART +0 IN CASE PICKING UP
019462,001413: 06,7011           07014                           TC       +3                                    #  TIME, IF SO COULD HAVE OVFLOD, SO GET
019463,001414: 06,7012           07021                           TC       +0CASE                                #  UP TO DATE HIGH PART. IF NOT +0, NO
019464,001415: 06,7013           07014                           TC       +1                                    #  PROBLEM.
019465,001416: 06,7014           05157        +0RET              TC       DMP                                   

Page 511

019467,001418: 06,7015           50107                           XCADR    SFTEMP1                               
019468,001419: 06,7016           05654                           TC       BANKCALL                              
019469,001420: 06,7017           07154                           CADR     TPAGREE                               
019470,001421: 06,7020           00122                           TC       OVFIND                                
019471,001422: 
019472,001423: 06,7021           20117        +0CASE             INDEX    MPAC       +2                         
019473,001424: 06,7022           60000                           AD       0                                     
019474,001425: 06,7023           30115                           XCH      MPAC                                  
019475,001426: 06,7024           07014                           TC       +0RET                                 
019476,001427: 
019477,001428: 06,7025           40624        DPOUTNOR           CS       NOUNADD                               
019478,001429: 06,7026           40000                           CS       A                                     #  E
019479,001430: 06,7027           06775                           TC       DPOUTCOM                              
019480,001431: 
019481,001432:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
019482,001433:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
019483,001434:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
019484,001435:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
019485,001436:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
019486,001437:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
019487,001438: 
019488,001439: 
019489,001440: 
019490,001441: 06,7030           20107        DSPDPDEC           INDEX    MIXBR                                 
019491,001442: 06,7031           07031                           TC       +0                                    
019492,001443: 06,7032           07034                           TC       +2                                    #  NORMAL NOUN
019493,001444: 06,7033           07442                           TC       DSPALARM                              
019494,001445: 06,7034           20624                           INDEX    NOUNADD                               
019495,001446: 06,7035           40000                           CS       0                                     
019496,001447: 06,7036           40000                           COM                                            
019497,001448: 06,7037           30115                           XCH      MPAC                                  #  LOAD MPAC WITH HIGH ORDER PART
019498,001449: 06,7040           20624                           INDEX    NOUNADD                               
019499,001450: 06,7041           40001                           CS       1                                     
019500,001451: 06,7042           40000                           COM                                            
019501,001452: 06,7043           30116                           XCH      MPAC       +1                         #  LOAD MPAC+1 WITH LOW ORDER PART
019502,001453: 06,7044           33171                           CAF      R1D1                                  
019503,001454: 06,7045           50614                           TS       DSPCOUNT                              
019504,001455: 06,7046           35501                           CAF      ZERO                                  
019505,001456: 06,7047           50117                           TS       MPAC       +2                         
019506,001457: 06,7050           05654                           TC       BANKCALL                              
019507,001458: 06,7051           07154                           CADR     TPAGREE                               
019508,001459: 06,7052           07315                           TC       DSP2DEC                               
019509,001460: 06,7053           00065        ENDDPDEC           TC       ENTEXIT                               
019510,001461: 

Page 512

019512,001463: 
019513,001464:                                                                                                  #        LOAD VERBS
019514,001465: 
019515,001466: 
019516,001467: 
019517,001468: 07,6564                                           SETLOC   ENDRTOUT                              
019518,001469: 
019519,001470: 07,6564           45503        ABCLOAD            CS       TWO                                   
019520,001471: 07,6565           06430                           TC       COMPTEST                              
019521,001472: 07,6566           36715                           CAF      VBSP1LD                               
019522,001473: 07,6567           06345                           TC       UPDATVB    -1                         
019523,001474: 07,6570           06274                           TC       REQDATX                               
019524,001475: 07,6571           36716                           CAF      VBSP2LD                               
019525,001476: 07,6572           06345                           TC       UPDATVB    -1                         
019526,001477: 07,6573           06300                           TC       REQDATY                               
019527,001478: 07,6574           36717                           CAF      VBSP3LD                               
019528,001479: 07,6575           06345                           TC       UPDATVB    -1                         
019529,001480: 07,6576           06304                           TC       REQDATZ                               
019530,001481: 
019531,001482: 
019532,001483: 
019533,001484: 07,6577           44475        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
019534,001485: 07,6600           06720                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
019535,001486: 07,6601           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019536,001487: 07,6602           05662                           TC       SWCALL                                #  ROUTINE.
019537,001488: 07,6603           35501                           CAF      ZERO                                  #  X COMP
019538,001489: 07,6604           07000                           TC       PUTCOM                                
019539,001490: 07,6605           20624                           INDEX    NOUNADD                               
019540,001491: 07,6606           50000                           TS       0                                     
019541,001492: 07,6607           34516                           CAF      ONE                                   #  Y COMP
019542,001493: 07,6610           07000                           TC       PUTCOM                                
019543,001494: 07,6611           20624                           INDEX    NOUNADD                               
019544,001495: 07,6612           50001                           TS       1                                     
019545,001496: 07,6613           35503                           CAF      TWO                                   #  Z COMP
019546,001497: 07,6614           07000                           TC       PUTCOM                                
019547,001498: 07,6615           20624                           INDEX    NOUNADD                               
019548,001499: 07,6616           50002                           TS       2                                     
019549,001500: 07,6617           06705                           TC       LOADLV                                
019550,001501: 
019551,001502: 07,6620           44516        ABLOAD             CS       ONE                                   
019552,001503: 07,6621           06430                           TC       COMPTEST                              
019553,001504: 07,6622           36715                           CAF      VBSP1LD                               
019554,001505: 07,6623           06345                           TC       UPDATVB    -1                         
019555,001506: 07,6624           06274                           TC       REQDATX                               
019556,001507: 07,6625           36716                           CAF      VBSP2LD                               
019557,001508: 07,6626           06345                           TC       UPDATVB    -1                         
019558,001509: 07,6627           06300                           TC       REQDATY                               
019559,001510: 07,6630           44477        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
019560,001511: 07,6631           06720                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
019561,001512: 07,6632           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019562,001513: 07,6633           05662                           TC       SWCALL                                #  ROUTINE.

Page 513

019564,001515: 07,6634           35501                           CAF      ZERO                                  #  X COMP
019565,001516: 07,6635           07000                           TC       PUTCOM                                
019566,001517: 07,6636           20624                           INDEX    NOUNADD                               
019567,001518: 07,6637           50000                           TS       0                                     
019568,001519: 07,6640           34516                           CAF      ONE                                   #  Y COMP
019569,001520: 07,6641           07000                           TC       PUTCOM                                
019570,001521: 07,6642           20624                           INDEX    NOUNADD                               
019571,001522: 07,6643           50001                           TS       1                                     
019572,001523: 07,6644           06705                           TC       LOADLV                                
019573,001524: 
019574,001525: 07,6645           06274        ALOAD              TC       REQDATX                               
019575,001526: 07,6646           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019576,001527: 07,6647           05662                           TC       SWCALL                                #  ROUTINE.
019577,001528: 07,6650           35501                           CAF      ZERO                                  #  X COMP
019578,001529: 07,6651           07000                           TC       PUTCOM                                
019579,001530: 07,6652           20624                           INDEX    NOUNADD                               
019580,001531: 07,6653           50000                           TS       0                                     
019581,001532: 07,6654           06705                           TC       LOADLV                                
019582,001533: 
019583,001534: 07,6655           44516        BLOAD              CS       ONE                                   
019584,001535: 07,6656           06430                           TC       COMPTEST                              
019585,001536: 07,6657           34500                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
019586,001537: 07,6660           50633                           TS       CLPASS                                
019587,001538: 07,6661           06300                           TC       REQDATY                               
019588,001539: 07,6662           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019589,001540: 07,6663           05662                           TC       SWCALL                                #  ROUTINE.
019590,001541: 07,6664           34516                           CAF      ONE                                   
019591,001542: 07,6665           07000                           TC       PUTCOM                                
019592,001543: 07,6666           20624                           INDEX    NOUNADD                               
019593,001544: 07,6667           50001                           TS       1                                     
019594,001545: 07,6670           06705                           TC       LOADLV                                
019595,001546: 
019596,001547: 07,6671           45503        CLOAD              CS       TWO                                   
019597,001548: 07,6672           06430                           TC       COMPTEST                              
019598,001549: 07,6673           34500                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
019599,001550: 07,6674           50633                           TS       CLPASS                                
019600,001551: 07,6675           06304                           TC       REQDATZ                               
019601,001552: 07,6676           36107                           CAF      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019602,001553: 07,6677           05662                           TC       SWCALL                                #  ROUTINE.
019603,001554: 07,6700           35503                           CAF      TWO                                   
019604,001555: 07,6701           07000                           TC       PUTCOM                                
019605,001556: 07,6702           20624                           INDEX    NOUNADD                               
019606,001557: 07,6703           50002                           TS       2                                     
019607,001558: 07,6704           06705                           TC       LOADLV                                
019608,001559: 
019609,001560: 07,6705           35501        LOADLV             CAF      ZERO                                  
019610,001561: 07,6706           50615                           TS       DECBRNCH                              
019611,001562: 07,6707           45501                           CS       ZERO                                  
019612,001563: 07,6710           50632                           TS       LOADSTAT                              
019613,001564: 07,6711           43227                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND

Page 514

019615,001566: 07,6712           50614                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
019616,001567: 07,6713           05720                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
019617,001568: 07,6714           15600                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
019618,001569: 
019619,001570: 07,6715           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
019620,001571: 07,6716           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
019621,001572: 07,6717           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
019622,001573: 
019623,001574: 
019624,001575: 
019625,001576: 07,6720           50063        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
019626,001577: 07,6721           30001                           XCH      Q                                     #  ALL DEC OR ALL OCT. ALARMS IF NOT.
019627,001578: 07,6722           50106                           TS       DECRET                                
019628,001579: 07,6723           40615                           CS       DECBRNCH                              
019629,001580: 07,6724           50021                           TS       SR                                    
019630,001581: 07,6725           40021                           CS       SR                                    
019631,001582: 07,6726           40021                           CS       SR                                    #  SHIFTED RIGHT 2
019632,001583: 07,6727           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
019633,001584: 07,6730           06732                           TC       +2                                    #  SOME ONES IN LOW 3
019634,001585: 07,6731           00106                           TC       DECRET                                #  ALL ZEROS. ALL OCTAL.  OK
019635,001586: 07,6732           60063                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
019636,001587: 07,6733           10000                           CCS      A                                     #  (BUT IT HAS BEEN DECREMENTED BY CCS)
019637,001588: 07,6734           06356                           TC       GODSPALM                              #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
019638,001589: 07,6735           03062                           TC       CCSHOLE                               
019639,001590: 07,6736           06356                           TC       GODSPALM                              
019640,001591: 07,6737           00106                           TC       DECRET                                #  ALL REQUIRED ARE DEC. OK
019641,001592: 
019642,001593: 
019643,001594: 
019644,001595: 07,6740           30001        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
019645,001596: 07,6741           50112                           TS       EXITEM                                
019646,001597: 07,6742           33221                           CAF      MID5                                  
019647,001598: 07,6743           70055                           MASK     NNTYPTEM                              
019648,001599: 07,6744           03174                           TC       RIGHT5                                
019649,001600: 07,6745           00112                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019650,001601: 
019651,001602: 07,6746           30001        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
019652,001603: 07,6747           50112                           TS       EXITEM                                
019653,001604: 07,6750           20063                           INDEX    DECOUNT                               
019654,001605: 07,6751           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
019655,001606: 07,6752           40000                           CS       A                                     #  OF NOUN.
019656,001607: 07,6753           72261                           MASK     HI5                                   
019657,001608: 07,6754           03203                           TC       LEFT5                                 
019658,001609: 07,6755           00112                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019659,001610: 
019660,001611: 07,6756           30001        SFCONUM            XCH      Q                                     #  GETS SF CONSTANT NUMBER
019661,001612: 07,6757           50112                           TS       EXITEM                                
019662,001613: 07,6760           20107                           INDEX    MIXBR                                 
019663,001614: 07,6761           06761                           TC       +0                                    
019664,001615: 07,6762           06775                           TC       CONUMNOR                              #  NORMAL NOUN

Page 515

019666,001617: 07,6763           20063                           INDEX    DECOUNT                               #  MIXED NOUN
019667,001618: 07,6764           33220                           CAF      LOW5                                  
019668,001619: 07,6765           70055                           MASK     NNTYPTEM                              
019669,001620: 07,6766           20063                           INDEX    DECOUNT                               
019670,001621: 07,6767           26772                           INDEX    DISPLACE                              
019671,001622: 07,6770           00000                           TC       0                                     
019672,001623:                                                                                                  #  DO TC SFRET (DECOUNT=0),DO TC RIGHT5(DECOUNT=1), DO TC LEFT5 (DECOUNT=2)
019673,001624: 07,6771           00112        SFRET              TC       EXITEM                                #  SF CON NUMBER IN A
019674,001625: 
019675,001626: 07,6772           06771        DISPLACE           TC       SFRET                                 
019676,001627: 07,6773           03174                           TC       RIGHT5                                
019677,001628: 07,6774           03203                           TC       LEFT5                                 
019678,001629: 
019679,001630: 07,6775           33220        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
019680,001631: 07,6776           70055                           MASK     NNTYPTEM                              
019681,001632: 07,6777           00112                           TC       EXITEM                                
019682,001633: 
019683,001634: 
019684,001635: 
019685,001636: 07,7000           50063        PUTCOM             TS       DECOUNT                               
019686,001637: 07,7001           30001                           XCH      Q                                     
019687,001638: 07,7002           50106                           TS       DECRET                                
019688,001639: 07,7003           35501                           CAF      ZERO                                  
019689,001640: 07,7004           50122                           TS       OVFIND                                
019690,001641: 07,7005           20063                           INDEX    DECOUNT                               
019691,001642: 07,7006           30607                           XCH      XREGLP                                
019692,001643: 07,7007           50116                           TS       MPAC       +1                         
019693,001644: 07,7010           20063                           INDEX    DECOUNT                               
019694,001645: 07,7011           30604                           XCH      XREG                                  
019695,001646: 07,7012           50115                           TS       MPAC                                  
019696,001647: 07,7013           20107                           INDEX    MIXBR                                 
019697,001648: 07,7014           07014                           TC       +0                                    
019698,001649: 07,7015           07043                           TC       PUTNORM                               #  NORMAL NOUN
019699,001650:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD
019700,001651: 07,7016           20063                           INDEX    DECOUNT                               
019701,001652: 07,7017           40056                           CS       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMPONENT K
019702,001653: 07,7020           40000                           CS       A                                     #  OF NOUN.
019703,001654: 07,7021           74606                           MASK     LOW10                                 #  EK    FOR CURRENT NOUN
019704,001655: 07,7022           25777                           EXTEND                                         
019705,001656: 07,7023           60063                           SU       DECOUNT                               
019706,001657: 07,7024           50624                           TS       NOUNADD                               #  PLACE (E SUB K) - K INTO NOUNADD
019707,001658: 07,7025           10615                           CCS      DECBRNCH                              
019708,001659: 07,7026           07055                           TC       PUTDECSF                              #  +  DEC
019709,001660: 07,7027           06746                           TC       SFRUTMIX                              #  +0 OCTAL
019710,001661: 07,7030           06255                           TC       DPTEST                                
019711,001662: 07,7031           07053                           TC       PUTCOM2                               #  NO DP
019712,001663:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
019713,001664:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
019714,001665:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
019715,001666: 07,7032           34516        PUTDPCOM           CAF      ONE                                   #  DP

Page 516

019717,001668: 07,7033           60624                           AD       NOUNADD                               
019718,001669: 07,7034           50624                           TS       NOUNADD                               #  (ESUBK)-K+1  OR  E+1
019719,001670: 07,7035           60063                           AD       DECOUNT                               #  NOUNADD NOW SET FOR MINOR PART
019720,001671: 07,7036           50063                           TS       DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
019721,001672: 07,7037           35501                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
019722,001673: 07,7040           20063                           INDEX    DECOUNT                               
019723,001674: 07,7041           47777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
019724,001675: 07,7042           07053                           TC       PUTCOM2                               
019725,001676: 
019726,001677: 07,7043           10615        PUTNORM            CCS      DECBRNCH                              
019727,001678: 07,7044           07055                           TC       PUTDECSF                              #  +  DEC
019728,001679: 07,7045           06740                           TC       SFRUTNOR                              #  +0  OCTAL
019729,001680: 07,7046           06255                           TC       DPTEST                                
019730,001681: 07,7047           07053                           TC       PUTCOM2                               #  NO DP
019731,001682: 07,7050           35501                           CAF      ZERO                                  
019732,001683: 07,7051           50063                           TS       DECOUNT                               
019733,001684: 07,7052           07032                           TC       PUTDPCOM                              
019734,001685: 
019735,001686: 07,7053           30115        PUTCOM2            XCH      MPAC                                  
019736,001687: 07,7054           00106                           TC       DECRET                                
019737,001688: 
019738,001689:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019739,001690: 
019740,001691: 07,7055           06756        PUTDECSF           TC       SFCONUM                               #  SF CON NUMB IN A
019741,001692: 07,7056           50111                           TS       SFTEMP2                               
019742,001693: 07,7057           05654                           TC       BANKCALL                              #  SWITCH BANKS TO SF CONSTANT READING
019743,001694: 07,7060           13222                           CADR     GTSFIN                                #  ROUTINE. LOADS SFTEMP1, SFTEMP2.
019744,001695: 07,7061           20107                           INDEX    MIXBR                                 
019745,001696: 07,7062           07062                           TC       +0                                    
019746,001697: 07,7063           07066                           TC       PUTSFNOR                              
019747,001698: 07,7064           06746                           TC       SFRUTMIX                              
019748,001699: 07,7065           07067                           TC       PUTDCSF2                              
019749,001700: 07,7066           06740        PUTSFNOR           TC       SFRUTNOR                              
019750,001701: 
019751,001702: 07,7067           20000        PUTDCSF2           INDEX    A                                     
019752,001703: 07,7070           37072                           CAF      SFINTABR                              
019753,001704: 07,7071           05723                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
019754,001705: 07,7072           15442        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
019755,001706: 07,7073           15140                           CADR     BINROUND                              
019756,001707: 07,7074           15054                           CADR     DEGINSF                               
019757,001708: 07,7075           15127                           CADR     ARTHINSF                              
019758,001709: 07,7076           15161                           CADR     DPINSF                                
019759,001710: 07,7077           15207                           CADR     DPINSF2                               
019760,001711: 07,7100           15143                           CADR     OPTDEGIN                              
019761,001712: 07,7101           15161                           CADR     DPINSF                                #  SAME AS ARITHDP1
019762,001713: 07,7102                        ENDRUTIN           EQUALS                                         
019763,001714: 
019764,001715: 
019765,001716: 
019766,001717:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.

Page 517

019768,001719:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019769,001720: 
019770,001721: 
019771,001722: 
019772,001723: 06,7054                                           SETLOC   ENDDPDEC   +1                         
019773,001724: 
019774,001725:                                                                                                  #  DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
019775,001726: 
019776,001727: 06,7054           05157        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
019777,001728: 06,7055           57121                           XCADR    DEGCON1                               #  MULT BY 5.5  5(10)X2/-3
019778,001729: 06,7056           10116                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019779,001730: 06,7057           34504                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
019780,001731: 06,7060           07062                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
019781,001732: 06,7061           44504                           CS       BIT11                                 
019782,001733: 06,7062           60116                           AD       MPAC       +1                         
019783,001734: 06,7063           07226                           TC       2ROUND     +2                         
019784,001735: 06,7064           05654                           TC       BANKCALL                              #  LEFT 1
019785,001736: 06,7065           06367                           CADR     SL1        +3                         
019786,001737: 06,7066           05654        DEGINSF2           TC       BANKCALL                              #  LEFT 2
019787,001738: 06,7067           06367                           CADR     SL1        +3                         
019788,001739: 06,7070           07235                           TC       TESTOFUF                              
019789,001740: 06,7071           05654                           TC       BANKCALL                              #  RETURNS IF NO OF/UF
019790,001741: 06,7072           06367                           CADR     SL1        +3                         #  LEFT 3
019791,001742: 06,7073           10115                           CCS      MPAC                                  
019792,001743: 06,7074           07100                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
019793,001744: 06,7075           07100                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
019794,001745: 06,7076           40000                           COM                                            #  IF - , USE -MAGNITUDE +1
019795,001746: 06,7077           50115                           TS       MPAC                                  #  IF -0, USE +0
019796,001747: 06,7100           10122        SIGNFIX            CCS      OVFIND                                
019797,001748: 06,7101           07116                           TC       SGNTO1                                #  IF OVERFLOW
019798,001749: 06,7102           07112                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
019799,001750: 06,7103           10115                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
019800,001751: 06,7104           03062                           TC       CCSHOLE                               
019801,001752: 06,7105           07114                           TC       NEG180                                
019802,001753: 06,7106           07107                           TC       +1                                    
019803,001754: 06,7107           30115                           XCH      MPAC                                  
019804,001755: 06,7110           74476                           MASK     POSMAX                                
019805,001756: 06,7111           50115                           TS       MPAC                                  
019806,001757: 06,7112           05720        ENDSCALE           TC       POSTJUMP                              
019807,001758: 06,7113           17053                           CADR     PUTCOM2                               
019808,001759: 
019809,001760: 06,7114           44476        NEG180             CS       POSMAX                                
019810,001761: 06,7115           07111                           TC       ENDSCALE   -1                         
019811,001762: 
019812,001763: 06,7116           40115        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
019813,001764: 06,7117           74476                           MASK     POSMAX                                
019814,001765: 06,7120           40000                           CS       A                                     
019815,001766: 06,7121           07111                           TC       ENDSCALE   -1                         
019816,001767: 
019817,001768: 06,7122           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        

Page 518

019819,001770: 06,7124           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
019820,001771: 06,7126           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
019821,001772: 
019822,001773: 06,7127           05157        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019823,001774: 06,7130           50107                           XCADR    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
019824,001775: 06,7131           30117                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
019825,001776: 06,7132           30116                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019826,001777: 06,7133           30115                           XCH      MPAC                                  
019827,001778: 06,7134           10000                           CCS      A                                     
019828,001779: 06,7135           07442                           TC       DSPALARM                              #  TOO LARGE A LOAD
019829,001780: 06,7136           07140                           TC       BINROUND                              
019830,001781: 06,7137           07442                           TC       DSPALARM                              #  TOO LARGE A LOAD
019831,001782: 06,7140           07224        BINROUND           TC       2ROUND                                
019832,001783: 06,7141           07235                           TC       TESTOFUF                              
019833,001784: 06,7142           07112                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
019834,001785: 
019835,001786: 
019836,001787: 
019837,001788: 06,7143           10115        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
019838,001789: 06,7144           07150                           TC       OPDEGIN2                              #  LOW RANGE   0 TO 90 DEG ALWAYS
019839,001790: 06,7145           07150                           TC       OPDEGIN2                              
019840,001791: 06,7146           07442                           TC       DSPALARM                              #  REJECT - INPUT. ALARM
019841,001792: 06,7147           07442                           TC       DSPALARM                              #  DITTO
019842,001793: 
019843,001794: 
019844,001795: 
019845,001796:                                                                                                  #  NO LONGER DO WE TEST BIT 13 OF WASOPSET TO DETERMINE RANGE. RANGE NOW
019846,001797:                                                                                                  #  IS ALWAYS 90 DEG (BLOCK 50 - 100)
019847,001798: 
019848,001799: 
019849,001800: 
019850,001801: 06,7150           30115        OPDEGIN2           XCH      MPAC                                  #  RANGE IS 90 DEG
019851,001802: 06,7151           67126                           AD       NEG.2                                 #  SUBTRACT BIAS
019852,001803: 06,7152           50115                           TS       MPAC                                  
019853,001804: 06,7153           05157                           TC       DMP                                   #  MULT BY 100 / 45  B-2
019854,001805: 06,7154           57123                           XCADR    DEGCON2                               
019855,001806: 06,7155           34503                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
019856,001807: 06,7156           60116                           AD       MPAC       +1                         
019857,001808: 06,7157           07226                           TC       2ROUND     +2                         
019858,001809: 06,7160           07066                           TC       DEGINSF2                              
019859,001810: 
019860,001811: 06,7161           05157        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
019861,001812: 06,7162           50107                           XCADR    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
019862,001813: 06,7163           30117                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
019863,001814: 06,7164           60000                           DOUBLE                                         
019864,001815: 06,7165           50117                           TS       MPAC       +2                         
019865,001816: 06,7166           35501                           CAF      ZERO                                  
019866,001817: 06,7167           60116                           AD       MPAC       +1                         
019867,001818: 06,7170           07226                           TC       2ROUND     +2                         

Page 519

019869,001820: 06,7171           07235                           TC       TESTOFUF                              
019870,001821: 06,7172           20107                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
019871,001822: 06,7173           07173                           TC       +0                                    
019872,001823: 06,7174           07205                           TC       DPINORM                               
019873,001824: 06,7175           30063                           XCH      DECOUNT                               #  MIXEDNOUN
019874,001825: 06,7176           50063                           TS       DECOUNT                               
019875,001826: 06,7177           60624        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
019876,001827: 06,7200           50001                           TS       Q                                     #    E SUBK            E
019877,001828: 06,7201           30116                           XCH      MPAC       +1                         
019878,001829: 06,7202           20001                           INDEX    Q                                     
019879,001830: 06,7203           50001                           TS       1                                     #  PLACE LOW PART IN
019880,001831: 06,7204           07112                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
019881,001832: 06,7205           35501        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
019882,001833: 06,7206           07177                           TC       DPINCOM                               
019883,001834: 
019884,001835: 
019885,001836: 
019886,001837: 06,7207           05157        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019887,001838: 06,7210           50107                           XCADR    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019888,001839: 06,7211           07213                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
019889,001840: 06,7212           07163                           TC       DPINSF     +2                         
019890,001841: 
019891,001842: 06,7213           30001        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
019892,001843: 06,7214           50111                           TS       SFTEMP2                               
019893,001844: 06,7215           34475                           CAF      SIX                                   #  LEFT BY 7
019894,001845: 06,7216           50110        LEFT7COM           TS       SFTEMP1                               
019895,001846: 06,7217           05654                           TC       BANKCALL                              
019896,001847: 06,7220           06364                           CADR     SL1                                   
019897,001848: 06,7221           10110                           CCS      SFTEMP1                               
019898,001849: 06,7222           07216                           TC       LEFT7COM                              
019899,001850: 06,7223           00111                           TC       SFTEMP2                               
019900,001851: 
019901,001852: 
019902,001853: 
019903,001854: 06,7224           30116        2ROUND             XCH      MPAC       +1                         
019904,001855: 06,7225           60000                           DOUBLE                                         
019905,001856: 06,7226           50116                           TS       MPAC       +1                         
019906,001857: 06,7227           00001                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
019907,001858: 06,7230           60115                           AD       MPAC                                  
019908,001859: 06,7231           50115                           TS       MPAC                                  
019909,001860: 06,7232           00001                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
019910,001861: 06,7233           50122                           TS       OVFIND                                
019911,001862: 06,7234           00001        2RNDEND            TC       Q                                     
019912,001863: 
019913,001864: 
019914,001865: 
019915,001866: 06,7235           10122        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
019916,001867: 06,7236           07442                           TC       DSPALARM                              #  OF

Page 520

019918,001869: 06,7237           00001                           TC       Q                                     
019919,001870: 06,7240           07442                           TC       DSPALARM                              #  UF
019920,001871: 

Page 521

019922,001873: 
019923,001874:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019924,001875:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
019925,001876: 
019926,001877:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019927,001878:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019928,001879:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019929,001880:                                                                                                  #  NOUNADD IN MONSAVE1, IF NOUN = MACHINE ADDRESS TO BE SPECIFIED. BIT 15 OF
019930,001881:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). 
019931,001882: 
019932,001883:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
019933,001884:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019934,001885:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019935,001886: 
019936,001887:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019937,001888: 
019938,001889:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019939,001890:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
019940,001891: 
019941,001892: 
019942,001893: 
019943,001894:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
019944,001895: 
019945,001896: 07,7102                                           SETLOC   ENDRUTIN                              
019946,001897: 
019947,001898: 07,7102           44500        MONITOR            CS       BIT15                                 
019948,001899: 07,7103           70624                           MASK     NOUNADD                               
019949,001900: 07,7104           50116        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
019950,001901: 07,7105           37421                           CAF      LOW6                                  
019951,001902: 07,7106           70602                           MASK     VERBREG                               
019952,001903: 07,7107           03203                           TC       LEFT5                                 
019953,001904: 07,7110           50022                           TS       CYL                                   
019954,001905: 07,7111           30022                           XCH      CYL                                   
019955,001906: 07,7112           60603                           AD       NOUNREG                               
019956,001907: 07,7113           50115                           TS       MPAC                                  #  TEMP STORAGE
019957,001908: 07,7114           40630                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
019958,001909: 07,7115           65503                           AD       TWO                                   
019959,001910: 07,7116           10000                           CCS      A                                     
019960,001911: 07,7117           03356                           TC       RELDSP1                               #  GRABLOCK=0,1. +0 INTO DSPLOCK AND
019961,001912: 07,7120           07123                           TC       +3                                    #  TURN OFF KEY RLSE LIGHT.
019962,001913: 07,7121           03062                           TC       CCSHOLE                               
019963,001914: 07,7122           03257                           TC       DSPLOCK0                              #  GRABLOCK=2. +0 INTO DSPLOCK (BIT4 OF
019964,001915:                                                                                                  #  STATE) AND LEAVE KEY RELEASE LIGHT ALONE
019965,001916: 07,7123           20017                           INHINT                                         
019966,001917: 07,7124           10625                           CCS      MONSAVE                               
019967,001918: 07,7125           07131                           TC       +4                                    #  IF MONSAVE WAS +, NO REQUEST
019968,001919: 07,7126           34516                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
019969,001920: 07,7127           02173                           TC       WAITLIST                              
019970,001921: 07,7130           17137                           CADR     MONREQ                                
019971,001922: 07,7131           30115                           XCH      MPAC                                  
019972,001923: 07,7132           50625                           TS       MONSAVE                               #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
019973,001924: 07,7133           30116                           XCH      MPAC       +1                         

Page 522

019975,001926: 07,7134           50626                           TS       MONSAVE1                              #  ZERO THE KILL MONITOR BIT
019976,001927: 07,7135           20016                           RELINT                                         
019977,001928: 07,7136           00065                           TC       ENTRET                                
019978,001929: 
019979,001930: 
019980,001931: 
019981,001932: 07,7137           02677        MONREQ             TC       READTIME   +1                         #  CALLED BY WAITLIST
019982,001933: 07,7140           02736                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
019983,001934: 07,7141           10626                           CCS      MONSAVE1                              
019984,001935: 07,7142           07146                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019985,001936: 07,7143           07146                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019986,001937: 07,7144           07155                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019987,001938: 07,7145           07155                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019988,001939: 07,7146           37161                           CAF      MONDEL                                
019989,001940: 07,7147           02173                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
019990,001941: 07,7150           17137                           CADR     MONREQ                                
019991,001942: 07,7151           32164                           CAF      PRIO31                                
019992,001943: 07,7152           02052                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
019993,001944: 07,7153           17162                           CADR     MONDO                                 
019994,001945: 07,7154           02256                           TC       TASKOVER                              
019995,001946: 
019996,001947: 07,7155           35501        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
019997,001948: 07,7156           50625                           TS       MONSAVE                               
019998,001949: 07,7157           50626                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
019999,001950: 07,7160           02256                           TC       TASKOVER                              
020000,001951: 
020001,001952: 
020002,001953: 
020003,001954: 07,7161           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
020004,001955: 
020005,001956: 
020006,001957: 
020007,001958: 07,7162           10626        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
020008,001959: 07,7163           07167                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
020009,001960: 07,7164           07167                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
020010,001961: 07,7165           02124                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
020011,001962: 07,7166           02124                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
020012,001963: 07,7167           03274                           TC       TSTDSPLK                              #  PERFORMS CCS DSPLOCK
020013,001964: 07,7170           07214                           TC       MONBUSY                               #  NVSUB IS BUSY
020014,001965: 07,7171           37421                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
020015,001966: 07,7172           70625                           MASK     MONSAVE                               
020016,001967: 07,7173           50110                           TS       NVTEMP                                
020017,001968: 07,7174           03121                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
020018,001969: 07,7175           02124                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
020019,001970: 07,7176           37212                           CAF      MONMASK                               
020020,001971: 07,7177           70625                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
020021,001972: 07,7200           03174                           TC       RIGHT5                                
020022,001973: 07,7201           50020                           TS       CYR                                   
020023,001974: 07,7202           30020                           XCH      CYR                                   
020024,001975: 07,7203           50602                           TS       VERBREG                               

Page 523

020026,001977: 07,7204           37213                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
020027,001978: 07,7205           50065                           TS       ENTRET                                
020028,001979: 07,7206           44500                           CS       BIT15                                 
020029,001980: 07,7207           70626                           MASK     MONSAVE1                              
020030,001981: 07,7210           50624                           TS       NOUNADD                               
020031,001982: 07,7211           06046        ENDMONDO           TC       TESTNN                                
020032,001983: 
020033,001984:    3071                                           SETLOC   ENDFAILF                              
020034,001985:    3071           33077        PASTEVB            CAF      MIDSIX                                
020035,001986:    3072           70625                           MASK     MONSAVE                               
020036,001987:    3073           50110                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
020037,001988:    3074           03121                           TC       NVSUBMON                              #        DISPLAY IT.
020038,001989:    3075           03076                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
020039,001990:    3076           02124        ENDPASTE           TC       ENDOFJOB                              
020040,001991: 
020041,001992:    3077           07700        MIDSIX             OCT      07700                                 
020042,001993: 
020043,001994: 07,7212                                           SETLOC   ENDMONDO   +1                         
020044,001995: 07,7212           00700        MONMASK            OCT      700                                   
020045,001996: 07,7213           03071        MONBACK            ADRES    PASTEVB                               
020046,001997: 
020047,001998: 07,7214           03250        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
020048,001999: 07,7215           02124                           TC       ENDOFJOB                              
020049,002000: 
020050,002001:                                                                                                  #  DSPBANK IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER IN BANK.
020051,002002:                                                                                                  #  IT IS USED WITH NOUN = MACHINE ADDRESS TO BE SPECIFIED. THE CADR OF THE
020052,002003:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. 
020053,002004: 
020054,002005: 07,7216           33171        DSPBANK            CAF      R1D1                                  
020055,002006: 07,7217           50614                           TS       DSPCOUNT                              
020056,002007: 07,7220           40624                           CS       NOUNADD                               
020057,002008: 07,7221           40000                           CS       A                                     
020058,002009: 07,7222           05730                           TC       DATACALL                              
020059,002010: 07,7223           07225                           TC       DSPOCTWD                              
020060,002011: 07,7224           02124                           TC       ENDOFJOB                              
020061,002012: 
020062,002013: 
020063,002014: 
020064,002015: 06,7241                                           SETLOC   TESTOFUF   +4                         
020065,002016: 
020066,002017:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
020067,002018:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
020068,002019: 
020069,002020: 06,7241           30001        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
020070,002021: 06,7242           50106                           TS       WDRET                                 
020071,002022: 06,7243           10115                           CCS      MPAC                                  

Page 524

020073,002024: 06,7244           07253                           TC       +7                                    
020074,002025: 06,7245           07253                           TC       +6                                    
020075,002026: 06,7246           64516                           AD       ONE                                   
020076,002027: 06,7247           50115                           TS       MPAC                                  
020077,002028: 06,7250           06343                           TC       -ON                                   
020078,002029: 06,7251           40116                           CS       MPAC       +1                         
020079,002030: 06,7252           07255                           TC       +3                                    
020080,002031: 06,7253           06322                           TC       +ON                                   
020081,002032: 06,7254           30116                           XCH      MPAC       +1                         
020082,002033: 06,7255           67314                           AD       DECROUND                              
020083,002034: 06,7256           50116                           TS       MPAC       +1                         
020084,002035: 06,7257           35501                           CAF      ZERO                                  
020085,002036: 06,7260           60115                           AD       MPAC                                  
020086,002037: 06,7261           50115                           TS       MPAC                                  
020087,002038: 06,7262           07266                           TC       +4                                    
020088,002039: 06,7263           34476                           CAF      POSMAX                                
020089,002040: 06,7264           50115                           TS       MPAC                                  
020090,002041: 06,7265           50116                           TS       MPAC       +1                         
020091,002042: 06,7266           35502                           CAF      FOUR                                  
020092,002043: 06,7267           50076        DSPDCWD1           TS       WDCNT                                 
020093,002044: 06,7270           33232                           CAF      BINCON                                
020094,002045: 06,7271           05416                           TC       SHORTMP                               
020095,002046: 06,7272           20115        TRACE1             INDEX    MPAC                                  
020096,002047: 06,7273           32652                           CAF      RELTAB                                
020097,002048: 06,7274           73220                           MASK     LOW5                                  
020098,002049: 06,7275           50111                           TS       CODE                                  
020099,002050: 06,7276           35501                           CAF      ZERO                                  
020100,002051: 06,7277           30117                           XCH      MPAC       +2                         
020101,002052: 06,7300           30116                           XCH      MPAC       +1                         
020102,002053: 06,7301           50115                           TS       MPAC                                  
020103,002054: 06,7302           30614                           XCH      DSPCOUNT                              
020104,002055: 06,7303           50104        TRACE1S            TS       COUNT                                 
020105,002056: 06,7304           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
020106,002057: 06,7305           50614                           TS       DSPCOUNT                              
020107,002058: 06,7306           07341                           TC       DSPIN                                 
020108,002059: 06,7307           10076                           CCS      WDCNT                                 
020109,002060: 06,7310           07267                           TC       DSPDCWD1                              
020110,002061: 06,7311           43227                           CS       VD1                                   
020111,002062: 06,7312           50614                           TS       DSPCOUNT                              
020112,002063: 06,7313           00106                           TC       WDRET                                 
020113,002064: 
020114,002065: 06,7314           02476        DECROUND           OCT      02476                                 
020115,002066: 
020116,002067: 
020117,002068: 
020118,002069:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
020119,002070:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
020120,002071: 
020121,002072: 06,7315           30001        DSP2DEC            XCH      Q                                     
020122,002073: 06,7316           50106                           TS       WDRET                                 

Page 525

020124,002075: 06,7317           35501                           CAF      ZERO                                  
020125,002076: 06,7320           50111                           TS       CODE                                  
020126,002077: 06,7321           34473                           CAF      THREE                                 
020127,002078: 06,7322           07426                           TC       11DSPIN                               #  -R2 OFF
020128,002079: 06,7323           35502                           CAF      FOUR                                  
020129,002080: 06,7324           07426                           TC       11DSPIN                               #  +R2 OFF
020130,002081: 06,7325           10115                           CCS      MPAC                                  
020131,002082: 06,7326           07336                           TC       +8D                                   
020132,002083: 06,7327           07336                           TC       +7                                    
020133,002084: 06,7330           64516                           AD       ONE                                   
020134,002085: 06,7331           50115                           TS       MPAC                                  
020135,002086: 06,7332           06343                           TC       -ON                                   
020136,002087: 06,7333           40116                           CS       MPAC       +1                         
020137,002088: 06,7334           50116                           TS       MPAC       +1                         
020138,002089: 06,7335           07337                           TC       +2                                    
020139,002090: 06,7336           06322                           TC       +ON                                   
020140,002091: 06,7337           33172                           CAF      R2D1                                  
020141,002092: 06,7340           07267        END2DEC            TC       DSPDCWD1                              
020142,002093: 
020143,002094: 
020144,002095: 
020145,002096: 07,7225                                           SETLOC   DSPBANK    +7                         
020146,002097: 
020147,002098:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
020148,002099:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
020149,002100: 
020150,002101: 07,7225           50022        DSPOCTWD           TS       CYL                                   
020151,002102: 07,7226           30001                           XCH      Q                                     
020152,002103: 07,7227           50106                           TS       WDRET                                 
020153,002104: 07,7230           30614                           XCH      DSPCOUNT                              
020154,002105: 07,7231           64501                           AD       BIT14                                 #  TO BLANK SIGNS
020155,002106: 07,7232           50614                           TS       DSPCOUNT                              
020156,002107: 07,7233           35502                           CAF      FOUR                                  
020157,002108: 07,7234           50076        WDAGAIN            TS       WDCNT                                 
020158,002109: 07,7235           40022                           CS       CYL                                   
020159,002110: 07,7236           40022                           CS       CYL                                   
020160,002111: 07,7237           40022                           CS       CYL                                   
020161,002112: 07,7240           40000                           CS       A                                     
020162,002113: 07,7241           75362                           MASK     DSPMSK                                
020163,002114: 07,7242           20000                           INDEX    A                                     
020164,002115: 07,7243           32652                           CAF      RELTAB                                
020165,002116: 07,7244           73220                           MASK     LOW5                                  
020166,002117: 07,7245           50111                           TS       CODE                                  
020167,002118: 07,7246           30614                           XCH      DSPCOUNT                              
020168,002119: 07,7247           50104                           TS       COUNT                                 
020169,002120: 07,7250           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
020170,002121: 07,7251           50614                           TS       DSPCOUNT                              
020171,002122: 07,7252           05720                           TC       POSTJUMP                              
020172,002123: 07,7253           15434                           CADR     DSPOCTIN                              
020173,002124: 07,7254           10076        OCTBACK            CCS      WDCNT                                 
020174,002125: 07,7255           07234                           TC       WDAGAIN                               #  +

Page 526

020176,002127: 07,7256           43227        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
020177,002128: 07,7257           50614                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
020178,002129: 07,7260           00106                           TC       WDRET                                 
020179,002130: 
020180,002131: 07,7261     5362               DSPMSK             =        SEVEN                                 
020181,002132: 
020182,002133: 
020183,002134: 
020184,002135:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
020185,002136:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
020186,002137:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
020187,002138: 
020188,002139: 07,7261           50020        DSP2BIT            TS       CYR                                   
020189,002140: 07,7262           30001                           XCH      Q                                     
020190,002141: 07,7263           50106                           TS       WDRET                                 
020191,002142: 07,7264           34516                           CAF      ONE                                   
020192,002143: 07,7265           50076                           TS       WDCNT                                 
020193,002144: 07,7266           40020                           CS       CYR                                   
020194,002145: 07,7267           40020                           CS       CYR                                   
020195,002146: 07,7270           30020                           XCH      CYR                                   
020196,002147: 07,7271           50022                           TS       CYL                                   
020197,002148: 07,7272           07241                           TC       WDAGAIN    +5                         
020198,002149: 
020199,002150: 
020200,002151: 
020201,002152:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
020202,002153:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
020203,002154:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
020204,002155:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
020205,002156: 
020206,002157: 06,7341                                           SETLOC   END2DEC    +1                         
020207,002158: 
020208,002159: 06,7341           30001        DSPIN              XCH      Q                                     
020209,002160: 06,7342           50112                           TS       DSEXIT                                
020210,002161: 06,7343           33220                           CAF      LOW5                                  
020211,002162: 06,7344           70104                           MASK     COUNT                                 
020212,002163: 06,7345           50021                           TS       SR                                    
020213,002164: 06,7346           30021                           XCH      SR                                    
020214,002165: 06,7347           50102                           TS       DSREL                                 
020215,002166: 06,7350           34516                           CAF      BIT1                                  
020216,002167: 06,7351           70104                           MASK     COUNT                                 
020217,002168: 06,7352           10000                           CCS      A                                     
020218,002169: 06,7353           07355                           TC       +2                                    #  LEFT IF COUNT IS ODD
020219,002170: 06,7354           07365                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
020220,002171: 06,7355           30111                           XCH      CODE                                  
020221,002172: 06,7356           03212                           TC       SLEFT5                                #  DOES NOT USE CYL
020222,002173: 06,7357           50111                           TS       CODE                                  
020223,002174: 06,7360           34501                           CAF      BIT14                                 
020224,002175: 06,7361           70104                           MASK     COUNT                                 
020225,002176: 06,7362           10000                           CCS      A                                     

Page 527

020227,002178: 06,7363           35503                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
020228,002179: 06,7364           64516                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
020229,002180: 06,7365           50104                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
020230,002181:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
020231,002182:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
020232,002183: 06,7366           20017        DSPIN1             INHINT                                         
020233,002184: 06,7367           20102                           INDEX    DSREL                                 
020234,002185: 06,7370           10710                           CCS      DSPTAB                                
020235,002186: 06,7371           07373                           TC       +2                                    #  IF +
020236,002187: 06,7372           03062                           TC       CCSHOLE                               
020237,002188: 06,7373           64516                           AD       ONE                                   #  IF-
020238,002189: 06,7374           50103                           TS       DSMAG                                 
020239,002190: 06,7375           20104                           INDEX    COUNT                                 
020240,002191: 06,7376           77422                           MASK     DSMSK                                 
020241,002192: 06,7377           25777                           EXTEND                                         
020242,002193: 06,7400           60111                           SU       CODE                                  
020243,002194: 06,7401           10000                           CCS      A                                     
020244,002195: 06,7402           07406                           TC       DFRNT                                 #  IF+
020245,002196: 06,7403           03062                           TC       CCSHOLE                               
020246,002197: 06,7404           07406                           TC       DFRNT                                 #  IF-
020247,002198: 06,7405           07420                           TC       DSLV                                  #  IF -0
020248,002199: 06,7406           20104        DFRNT              INDEX    COUNT                                 
020249,002200: 06,7407           47422                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
020250,002201: 06,7410           70103                           MASK     DSMAG                                 
020251,002202: 06,7411           60111                           AD       CODE                                  
020252,002203: 06,7412           40000                           CS       A                                     
020253,002204: 06,7413           20102                           INDEX    DSREL                                 
020254,002205: 06,7414           30710                           XCH      DSPTAB                                
020255,002206: 06,7415           10000                           CCS      A                                     
020256,002207: 06,7416           06640                           TC       INCNOUT                               
020257,002208: 06,7417           03062                           TC       CCSHOLE                               
020258,002209: 06,7420           20016        DSLV               RELINT                                         
020259,002210: 06,7421           00112                           TC       DSEXIT                                
020260,002211: 
020261,002212: 06,7422           00037        DSMSK              OCT      37                                    
020262,002213: 06,7423           01740                           OCT      1740                                  
020263,002214: 06,7424           02000                           OCT      2000                                  
020264,002215: 06,7425           03740                           OCT      3740                                  
020265,002216: 
020266,002217: 
020267,002218: 
020268,002219:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
020269,002220:                                                                                                  #  BIT11 OF CODE.
020270,002221: 
020271,002222: 06,7426           50102        11DSPIN            TS       DSREL                                 
020272,002223: 06,7427           35503                           CAF      TWO                                   
020273,002224: 06,7430           50104                           TS       COUNT                                 
020274,002225: 06,7431           30001                           XCH      Q                                     
020275,002226: 06,7432           50112                           TS       DSEXIT                                
020276,002227: 06,7433           07366                           TC       DSPIN1                                

Page 528

020278,002229: 
020279,002230: 06,7434           07341        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
020280,002231: 06,7435           37437                           CAF      +2                                    
020281,002232: 06,7436           05723                           TC       BANKJUMP                              
020282,002233: 06,7437           17254        ENDSPOCT           CADR     OCTBACK                               
020283,002234: 
020284,002235: 
020285,002236: 
020286,002237:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
020287,002238:                                                                                                  #  ABORT WITH OCT 01501.
020288,002239:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
020289,002240:                                                                                                  #  DO TC ENTRET.
020290,002241: 
020291,002242: 06,7440           33147        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
020292,002243: 06,7441           50065                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
020293,002244: 
020294,002245: 06,7442           03233        DSPALARM           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
020295,002246: 06,7443           47447                           CS       NVSBENDL                              
020296,002247: 06,7444           60065                           AD       ENTEXIT                               
020297,002248: 06,7445           10000                           CCS      A                                     
020298,002249: 06,7446           00065                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
020299,002250: 06,7447           03125        NVSBENDL           TC       NVSUBEND                              
020300,002251: 06,7450           00065                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
020301,002252: 06,7451           03044                           TC       ABORT                                 #  NVSUB INITIATED.
020302,002253: 06,7452           01501                           OCT      01501                                 
020303,002254: 
020304,002255: 
020305,002256: 
020306,002257: 06,7453           34504        FLASHON1           CAF      BIT11                                 #  GETS HERE THRU FLASHON(STANDARD LEAD IN)
020307,002258: 06,7454           50111                           TS       CODE                                  
020308,002259: 06,7455           37464                           CAF      FLASHLOC                              
020309,002260: 06,7456           50102                           TS       DSREL                                 
020310,002261: 06,7457           35503                           CAF      TWO                                   
020311,002262: 06,7460           50104                           TS       COUNT                                 
020312,002263: 06,7461           07366                           TC       DSPIN1                                
020313,002264: 06,7462           35501        FLASHOF1           CAF      ZERO                                  #  GETS HERE THRU FLASHOFF(STANDARD LEAD IN
020314,002265: 06,7463           07454                           TC       FLASHON1   +1                         
020315,002266: 06,7464           00011        FLASHLOC           OCT      11                                    
020316,002267: 
020317,002268: 
020318,002269: 
020319,002270:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
020320,002271:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
020321,002272:                                                                                                  #  MM LIGHTS.
020322,002273: 
020323,002274: 07,7273                                           SETLOC   DSP2BIT    +10D                       
020324,002275: 
020325,002276: 07,7273           07306        MMCHANG            TC       REQMM                                 
020326,002277: 07,7274           35501                           CAF      ZERO                                  
020327,002278: 07,7275           30603                           XCH      NOUNREG                               
020328,002279: 07,7276           50115                           TS       MPAC                                  

Page 529

020330,002281: 07,7277           33230                           CAF      ND1                                   
020331,002282: 07,7300           50614                           TS       DSPCOUNT                              
020332,002283: 07,7301           05654                           TC       BANKCALL                              
020333,002284: 07,7302           14621                           CADR     2BLANK                                
020334,002285: 07,7303           30115                           XCH      MPAC                                  
020335,002286: 07,7304           05720                           TC       POSTJUMP                              
020336,002287: 07,7305           10002                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
020337,002288: 
020338,002289: 
020339,002290: 
020340,002291: 07,7306           40001        REQMM              CS       Q                                     
020341,002292: 07,7307           50613                           TS       REQRET                                
020342,002293: 07,7310           33230                           CAF      ND1                                   
020343,002294: 07,7311           50614                           TS       DSPCOUNT                              
020344,002295: 07,7312           35501                           CAF      ZERO                                  
020345,002296: 07,7313           50603                           TS       NOUNREG                               
020346,002297: 07,7314           05654                           TC       BANKCALL                              
020347,002298: 07,7315           14621                           CADR     2BLANK                                
020348,002299: 07,7316           05654                           TC       BANKCALL                              
020349,002300: 07,7317           14000                           CADR     FLASHON                               
020350,002301: 07,7320           00065                           TC       ENTEXIT                               
020351,002302: 
020352,002303: 
020353,002304: 
020354,002305:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
020355,002306:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES PRIO  PRELOADED INTO 
020356,002307:                                                                                                  #  BITS 10-14 OF FIRST REGISTER OF TEMP AREA, WITH BIT1=0 FOR NOVAC, BIT1
020357,002308:                                                                                                  #  =1 FOR FINDVAC). THE VERB IS USED WITH NOUN=MACHINE ADDRESS TO BE
020358,002309:                                                                                                  #  SPECIFIED. CADR JOBADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
020359,002310: 
020360,002311: 07,7321           33147        VBRQEXEC           CAF      ENDINST                               
020361,002312: 07,7322           50075                           TS       PROGREG    +2                         
020362,002313: 07,7323           03323                           TC       RELDSP                                
020363,002314: 07,7324           34516                           CAF      BIT1                                  
020364,002315: 07,7325           70616                           MASK     DSPTEM1                               #  ********
020365,002316: 07,7326           10000                           CCS      A                                     
020366,002317: 07,7327           07340                           TC       SETVAC                                #  IF BIT1 =1, FINDVAC
020367,002318: 07,7330           33223                           CAF      TCNOVAC                               #  IF BIT1 =0, NOVAC
020368,002319: 07,7331           50073        REQEX1             TS       PROGREG                               #  TC NOVAC OR TC FINDVAC INTO PROGREG
020369,002320: 07,7332           30624                           XCH      NOUNADD                               
020370,002321: 07,7333           50074                           TS       PROGREG    +1                         #  CADR JOBADDR INTO PROGREG +1
020371,002322: 07,7334           44516                           CS       BIT1                                  
020372,002323: 07,7335           70616                           MASK     DSPTEM1                               #  *******
020373,002324: 07,7336           20017                           INHINT                                         
020374,002325: 07,7337           00073                           TC       PROGREG                               
020375,002326: 
020376,002327: 07,7340           33226        SETVAC             CAF      TCFINDVC                              
020377,002328: 07,7341           07331                           TC       REQEX1                                
020378,002329: 
020379,002330:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.

Page 530

020381,002332:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES DELAY PRELOADED IN FIRST
020382,002333:                                                                                                  #  REGISTER OF TEMP AREA. THE VERB IS USED WITH NOUN= MACHINE ADDRESS TO
020383,002334:                                                                                                  #  BE SPECIFIED. CADR TASKADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
020384,002335: 
020385,002336: 07,7342           33147        VBRQWAIT           CAF      ENDINST                               
020386,002337: 07,7343           50075                           TS       PROGREG    +2                         #  TC ENDOFJOB INTO PROGREG+2
020387,002338: 07,7344           03323                           TC       RELDSP                                
020388,002339: 07,7345           33224                           CAF      TCWAIT                                
020389,002340: 07,7346           50073                           TS       PROGREG                               #  TC WAITLIST INTO PROGREG
020390,002341: 07,7347           30624                           XCH      NOUNADD                               
020391,002342: 07,7350           50074                           TS       PROGREG    +1                         #  CADR TASKADDR INTO PROGREG+1
020392,002343: 07,7351           20017                           INHINT                                         
020393,002344: 07,7352           30616                           XCH      DSPTEM1                               #  DELTA T IN A
020394,002345: 07,7353           00073        ENDRQWT            TC       PROGREG                               
020395,002346: 
020396,002347: 
020397,002348: 
020398,002349: 06,7465                                           SETLOC   FLASHLOC   +1                         
020399,002350: 06,7465           34516        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
020400,002351: 06,7466           50632                           TS       LOADSTAT                              
020401,002352: 06,7467           03323                           TC       RELDSP                                
020402,002353: 06,7470           06003                           TC       FLASHOFF                              
020403,002354: 06,7471           07600                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
020404,002355: 
020405,002356: 
020406,002357: 
020407,002358: 06,7472           03127        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020408,002359: 06,7473           44516                           CS       ONE                                   
020409,002360: 06,7474           07466                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
020410,002361: 
020411,002362: 
020412,002363:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
020413,002364: 
020414,002365: 
020415,002366:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
020416,002367:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
020417,002368: 
020418,002369: 06,7475           35501        VBRELDSP           CAF      ZERO                                  #  RELEASE DISPLAY SYST
020419,002370: 06,7476           50111                           TS       CODE                                  #  TURN OFF UPACT LIGHT
020420,002371: 06,7477           35362                           CAF      SEVEN                                 
020421,002372: 06,7500           07426                           TC       11DSPIN                               
020422,002373: 06,7501           03323                           TC       RELDSP                                #  SEARCHES LIST
020423,002374: 06,7502           02124                           TC       ENDOFJOB                              
020424,002375: 
020425,002376: 
020426,002377: 
020427,002378:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.

Page 531

020429,002380: 
020430,002381: 06,7503           34477        BUMP               CAF      FIVE                                  #  R2D5
020431,002382: 06,7504           50614                           TS       DSPCOUNT                              
020432,002383: 06,7505           50104                           TS       COUNT                                 
020433,002384: 06,7506           34516                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
020434,002385: 06,7507           70104                           MASK     COUNT                                 
020435,002386: 06,7510           30104                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
020436,002387: 06,7511           50021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)
020437,002388: 06,7512           30021                           XCH      SR                                    #  DSREL IN A
020438,002389: 06,7513           20000                           INDEX    A                                     
020439,002390: 06,7514           10710                           CCS      DSPTAB                                
020440,002391: 06,7515           07517                           TC       +2                                    
020441,002392: 06,7516           03062                           TC       CCSHOLE                               
020442,002393: 06,7517           64516                           AD       ONE                                   #  DSMAG IN A
020443,002394: 06,7520           20104                           INDEX    COUNT                                 
020444,002395: 06,7521           77422                           MASK     DSMSK                                 
020445,002396: 06,7522           20104                           INDEX    COUNT                                 
020446,002397: 06,7523           07524                           TC       +1                                    
020447,002398: 06,7524           07526                           TC       +2                                    #  EVEN(RIGHT)  OK
020448,002399: 06,7525           03174                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
020449,002400: 06,7526           50111                           TS       CODE                                  
020450,002401: 06,7527           44477                           CS       FIVE                                  
020451,002402: 06,7530           60614                           AD       DSPCOUNT                              #  DSPCOUNT-5
020452,002403: 06,7531           10000                           CCS      A                                     #  TO PREVENT -0
020453,002404: 06,7532           64516                           AD       ONE                                   
020454,002405: 06,7533           07535                           TC       +2                                    
020455,002406: 06,7534           03062                           TC       CCSHOLE                               
020456,002407: 06,7535           50104                           TS       COUNT                                 
020457,002408: 06,7536           07341                           TC       DSPIN                                 #  CODE ALREADY IN CODE
020458,002409: 06,7537           40614                           CS       DSPCOUNT                              
020459,002410: 06,7540           63171                           AD       R1D1                                  #  OCT 16
020460,002411: 06,7541           10000                           CCS      A                                     
020461,002412: 06,7542           30614                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
020462,002413: 06,7543           64516                           AD       ONE                                   #  INCREMENT DSPCOUNT
020463,002414: 06,7544           07504                           TC       BUMP       +1                         
020464,002415: 
020465,002416: 06,7545           35501        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
020466,002417: 06,7546           50614                           TS       DSPCOUNT                              
020467,002418: 06,7547           67576                           AD       SWTAB      +2                         #  OCT 3
020468,002419: 06,7550           20000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
020469,002420: 06,7551           10710                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
020470,002421: 06,7552           07554                           TC       +2                                    
020471,002422: 06,7553           03062                           TC       CCSHOLE                               
020472,002423: 06,7554           64516                           AD       ONE                                   
020473,002424: 06,7555           74504                           MASK     BIT11                                 
020474,002425: 06,7556           50111                           TS       CODE                                  
020475,002426: 06,7557           20614                           INDEX    DSPCOUNT                              
020476,002427: 06,7560           37574                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
020477,002428: 06,7561           07426                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
020478,002429: 06,7562           40614                           CS       DSPCOUNT                              
020479,002430: 06,7563           67576                           AD       SWTAB      +2                         #  OCT 3

Page 532

020481,002432: 06,7564           10000                           CCS      A                                     
020482,002433: 06,7565           30614                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
020483,002434: 06,7566           64516                           AD       ONE                                   #  INCREMENT DSPCOUNT
020484,002435: 06,7567           07546                           TC       SWSGN      +1                         
020485,002436: 06,7570           33171                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
020486,002437: 06,7571           50614                           TS       DSPCOUNT                              
020487,002438: 06,7572           06554                           TC       5BLANK                                #  BLANKS R1
020488,002439: 06,7573           00065                           TC       ENTEXIT                               
020489,002440: 
020490,002441: 06,7574           00000        SWTAB              OCT      0                                     #  -R3
020491,002442: 06,7575           00001                           OCT      1                                     #  +R3
020492,002443: 06,7576           00003                           OCT      3                                     #  -R2
020493,002444: 06,7577           00004                           OCT      4                                     #  +R2
020494,002445: 
020495,002446: 
020496,002447: 
020497,002448:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
020498,002449:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN 
020499,002450:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
020500,002451: 
020501,002452:                                                                                                  #  NVSUB CAN BE USED WITH MACH ADDR TO BE SPEC BY PLACING THE ADDRESS IN
020502,002453:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
020503,002454: 
020504,002455:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
020505,002456:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
020506,002457:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
020507,002458:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
020508,002459:                                                                                                  #  FURTHER ACTION).
020509,002460: 
020510,002461:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
020511,002462:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
020512,002463:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
020513,002464:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
020514,002465: 
020515,002466:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
020516,002467:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
020517,002468:                                                                                                  #        IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
020518,002469:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
020519,002470:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
020520,002471:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
020521,002472:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
020522,002473:                                                                                                  #  MONITOR SET UP.
020523,002474: 
020524,002475:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
020525,002476: 
020526,002477:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
020527,002478:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
020528,002479: 
020529,002480:                                                                                                  #  NVSUB IN F/F PLACES 2 + CALLING CADR INTO NVSBCADR, TC NVSUBEND INTO
020530,002481:                                                                                                  #  ENTRET. IT WILL HANDLE A CALL FROM F/F OK, BUT WILL NOT RESTORE BANKREG

Page 533

020532,002483:                                                                                                  #  TO ITS ORIGINAL CONTENTS.
020533,002484: 
020534,002485:    3100                                           SETLOC   MIDSIX     +1                         
020535,002486:    3100           50110        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
020536,002487:    3101           34513                           CAF      BIT4                                  
020537,002488:    3102           70645                           MASK     DSPLOCK                               #  BIT4 OF STATE
020538,002489:    3103           10000                           CCS      A                                     
020539,002490:    3104           00001                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020540,002491:    3105           30001                           XCH      Q                                     #  DSP SYST AVAILABLE
020541,002492:    3106           64516                           AD       ONE                                   
020542,002493:    3107           50071                           TS       TEMQS                                 #  2+ CALLING CADR INTO TEMQS
020543,002494:    3110           03127                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020544,002495:    3111           33120        NVSUBCOM           CAF      NVSUBANK                              
020545,002496:    3112           30015                           XCH      BANKREG                               
020546,002497:    3113           50072                           TS       BANKTEM                               
020547,002498:    3114           05706                           TC       MAKECADR                              
020548,002499:    3115           30062                           XCH      ADDRWD                                
020549,002500:    3116           50631                           TS       NVSBCADR                              
020550,002501:    3117           06000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
020551,002502:    3120           17354        NVSUBANK           CADR     NVSUB1                                #  BANK NUMB OF NVSUB1
020552,002503: 
020553,002504:    3121           30001        NVSUBMON           XCH      Q                                     #  MONDO COMES HERE
020554,002505:    3122           64516                           AD       ONE                                   
020555,002506:    3123           50071                           TS       TEMQS                                 
020556,002507:    3124           03111                           TC       NVSUBCOM                              
020557,002508: 
020558,002509: 
020559,002510: 
020560,002511:    3125           30631        NVSUBEND           XCH      NVSBCADR                              
020561,002512:    3126           05662                           TC       SWCALL                                
020562,002513: 
020563,002514: 
020564,002515: 
020565,002516: 07,7354                                           SETLOC   ENDRQWT    +1                         
020566,002517: 07,7354           37373        NVSUB1             CAF      ENTSET                                #  IN BANK
020567,002518: 07,7355           50065                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
020568,002519: 07,7356           37421                           CAF      LOW6                                  
020569,002520: 07,7357           70110                           MASK     NVTEMP                                
020570,002521: 07,7360           50115                           TS       MPAC                                  #  TEMP STORAGE
020571,002522: 07,7361           37422                           CAF      MID6                                  
020572,002523: 07,7362           70110                           MASK     NVTEMP                                
020573,002524: 07,7363           03174                           TC       RIGHT5                                
020574,002525: 07,7364           50020                           TS       CYR                                   
020575,002526: 07,7365           30020                           XCH      CYR                                   
020576,002527: 07,7366           50116                           TS       MPAC       +1                         #  TEMP STORAGE
020577,002528: 07,7367           10115                           CCS      MPAC                                  #  TEST NOUN
020578,002529: 07,7370           07374                           TC       +4                                    #  IF NOUN NOT +0, GO ON
020579,002530: 07,7371           30116                           XCH      MPAC       +1                         
020580,002531: 07,7372           06345                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN

Page 534

020582,002533: 07,7373           03125        ENTSET             TC       NVSUBEND                              
020583,002534: 07,7374           10116                           CCS      MPAC       +1                         #  TEST VERB
020584,002535: 07,7375           07401                           TC       +4                                    #  IF VERB NOT +0, GO ON
020585,002536: 07,7376           30115                           XCH      MPAC                                  
020586,002537: 07,7377           06326                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN . THEN RETURN
020587,002538: 07,7400           03125                           TC       NVSUBEND                              
020588,002539: 07,7401           30116                           XCH      MPAC       +1                         
020589,002540: 07,7402           06345                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
020590,002541: 07,7403           30115                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
020591,002542: 07,7404           06326                           TC       UPDATNN    -1                         
020592,002543: 07,7405           10054                           CCS      NNADTEM                               #  NOUN TABLES WERE READ IN UPDATNN.
020593,002544: 07,7406           07411                           TC       +3                                    #  NORMAL
020594,002545: 07,7407           06356                           TC       GODSPALM                              #  NOUN NOT IN USE
020595,002546: 07,7410           07416                           TC       MATBSUB                               
020596,002547: 07,7411           35501        NVSUB2             CAF      ZERO                                  
020597,002548: 07,7412           50632                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
020598,002549: 07,7413           50633                           TS       CLPASS                                
020599,002550: 07,7414           50613                           TS       REQRET                                #  SET REQRET FOR PASS 0.
020600,002551: 07,7415           06035                           TC       ENTPAS0                               
020601,002552: 
020602,002553: 07,7416           30117        MATBSUB            XCH      MPAC       +2                         #  NVSUB CALL LEFT ADDRES FOR MATBS IN
020603,002554: 07,7417           50624                           TS       NOUNADD                               #  MPAC+2.
020604,002555: 07,7420           07411                           TC       NVSUB2                                
020605,002556: 
020606,002557: 
020607,002558: 
020608,002559: 07,7421           00077        LOW6               OCT      77                                    
020609,002560: 07,7422           07700        MID6               OCT      7700                                  
020610,002561: 
020611,002562:    3127                                           SETLOC   NVSUBEND   +2                         
020612,002563:    3127           44500        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
020613,002564:    3130           20017                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
020614,002565:    3131           70626                           MASK     MONSAVE1                              
020615,002566:    3132           64500                           AD       BIT15                                 
020616,002567:    3133           50626                           TS       MONSAVE1                              
020617,002568:    3134           20016                           RELINT                                         
020618,002569:    3135           00001                           TC       Q                                     
020619,002570: 
020620,002571: 
020621,002572: 
020622,002573:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020623,002574:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
020624,002575:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
020625,002576:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
020626,002577: 
020627,002578:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
020628,002579:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020629,002580:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.

Page 535

020631,002582:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020632,002583:                                                                                                  #  L+1 FOR TERMINATE
020633,002584:                                                                                                  #  L+2 FOR PROCEED WITHOUT DATA
020634,002585:                                                                                                  #  L+3 FOR DATA IN
020635,002586:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
020636,002587: 
020637,002588:    3136           30001        ENDIDLE            XCH      Q                                     #  NOVAC ROUTINES ENTER HERE
020638,002589:    3137           50071                           TS       TEMQS                                 
020639,002590:    3140           30015                           XCH      BANKREG                               
020640,002591:    3141           50072                           TS       BANKTEM                               
020641,002592:    3142           05706                           TC       MAKECADR                              
020642,002593:    3143           03265                           TC       DSPLOCK1                              #  MAKE DSPLOCK BUSY (BIT 4 OF STATE)
020643,002594:    3144           30062                           XCH      ADDRWD                                
020644,002595:    3145           50627                           TS       CADRSTOR                              
020645,002596:    3146           02127                           TC       JOBSLEEP                              
020646,002597: 
020647,002598: 
020648,002599: 
020649,002600:    3147           02124        ENDINST            TC       ENDOFJOB                              
020650,002601: 
020651,002602:    3150           05777        BNKCON             OCT      5777                                  
020652,002603: 
020653,002604: 
020654,002605: 
020655,002606:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020656,002607:                                                                                                  #  IT DOES ENDOFJOB.
020657,002608: 
020658,002609:    3151           33554        JAMTERM            CAF      TWENTY8                               
020659,002610:    3152           50613                           TS       REQRET                                #  LEAVE ENTER AT PASS 0
020660,002611:    3153           05654                           TC       BANKCALL                              
020661,002612:    3154           16345                           CADR     UPDATVB    -1                         #  DISPLAY VB 34
020662,002613:    3155           05720                           TC       POSTJUMP                              
020663,002614:    3156           15472                           CADR     VBTERM                                
020664,002615: 
020665,002616: 
020666,002617: 
020667,002618:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
020668,002619:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
020669,002620:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
020670,002621:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
020671,002622: 
020672,002623:    3157           30001        DATAWAIT           XCH      Q                                     
020673,002624:    3160           50071                           TS       TEMQS                                 
020674,002625:    3161           10632                           CCS      LOADSTAT                              
020675,002626:    3162           03167                           TC       DATWAIT1                              #  PROCEED,RETURN TO L+2.
020676,002627:    3163           03140                           TC       ENDIDLE    +2                         #  STILL WAITING. GO TO SLEEP.
020677,002628:    3164           00071                           TC       TEMQS                                 #  TERMINATE. RETURN TO L+1.
020678,002629:    3165           20071                           INDEX    TEMQS                                 #  DATA IN. RETURN TO L+3.
020679,002630:    3166           00002                           TC       2                                     
020680,002631:    3167           20071        DATWAIT1           INDEX    TEMQS                                 #  RETURN TO L+2

Page 536

020682,002633:    3170           00001                           TC       1                                     
020683,002634: 
020684,002635:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
020685,002636:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
020686,002637: 
020687,002638: 
020688,002639: 
020689,002640: 07,7423                                           SETLOC   MID6       +1                         
020690,002641:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
020691,002642: 
020692,002643: 07,7423           33231        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
020693,002644: 07,7424           30614                           XCH      DSPCOUNT                              #  SAVE DSPCOUNT 
020694,002645: 07,7425           50107                           TS       DSPMMTEM                              
020695,002646: 07,7426           40612                           CS       MODREG                                
020696,002647: 07,7427           40000                           CS       A                                     
020697,002648: 07,7430           07261                           TC       DSP2BIT                               
020698,002649: 07,7431           30107                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
020699,002650: 07,7432           50614                           TS       DSPCOUNT                              
020700,002651: 07,7433           00063        ENDSPMM1           TC       UPDATRET                              
020701,002652: 
020702,002653: 
020703,002654: 
020704,002655:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS 
020705,002656:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
020706,002657:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020707,002658: 
020708,002659:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
020709,002660:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
020710,002661: 
020711,002662: 06,7600                                           SETLOC   SWTAB      +4                         
020712,002663: 
020713,002664: 06,7600           10627        RECALTST           CCS      CADRSTOR                              
020714,002665: 06,7601           07606                           TC       RECAL1                                
020715,002666: 06,7602           02124                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
020716,002667: 06,7603           07606                           TC       RECAL1                                
020717,002668: 06,7604           50627                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
020718,002669: 06,7605           07624                           TC       RECAL3                                #  +0 INTO CADRSTOR, RELEASE DISPLAY, 
020719,002670:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT.
020720,002671: 06,7606           35501        RECAL1             CAF      ZERO                                  
020721,002672: 06,7607           30627                           XCH      CADRSTOR                              
020722,002673: 06,7610           20017                           INHINT                                         
020723,002674: 06,7611           02060                           TC       JOBWAKE                               
020724,002675: 06,7612           10632                           CCS      LOADSTAT                              
020725,002676: 06,7613           07630                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
020726,002677: 06,7614           02124                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
020727,002678: 06,7615           07626                           TC       DOTERM                                #  -   TERMINATE
020728,002679: 06,7616           45503                           CS       TWO                                   
020729,002680: 06,7617           20601        RECAL2             INDEX    LOCCTR                                
020730,002681: 06,7620           60120                           AD       LOC                                   #  LOC IS - FOR BASIC JOBS
020731,002682: 06,7621           20601                           INDEX    LOCCTR                                

Page 537

020733,002684: 06,7622           50120                           TS       LOC                                   
020734,002685: 06,7623           20016                           RELINT                                         
020735,002686: 06,7624           03356        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
020736,002687: 06,7625           02124                           TC       ENDOFJOB                              
020737,002688: 
020738,002689: 06,7626           35501        DOTERM             CAF      ZERO                                  
020739,002690: 06,7627           07617                           TC       RECAL2                                
020740,002691: 
020741,002692: 06,7630           44516        DOPROC             CS       ONE                                   
020742,002693: 06,7631           07617                           TC       RECAL2                                
020743,002694: 

Page 538

020745,002696: 
020746,002697:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
020747,002698: 
020748,002699: 
020749,002700: 
020750,002701: 07,7431                                           SETLOC   DSPMM1     +6                         
020751,002702: 
020752,002703:                                                                                                  #  COMPONENT CODE NUMBER         INTERPRETATION
020753,002704: 
020754,002705:                                                                                                  #  00000                         1 COMPONENT
020755,002706:                                                                                                  #  00001                         2 COMPONENT (EACH S P)
020756,002707:                                                                                                  #  00010                         3 COMPONENT (EACH SP)
020757,002708: 
020758,002709: 
020759,002710: 
020760,002711:                                                                                                  #  SF ROUTINE CODE NUMBER        INTERPRETATION
020761,002712: 
020762,002713:                                                                                                  #  00000         OCTAL ONLY
020763,002714:                                                                                                  #  00001         STRAIGHT FRACTIONAL
020764,002715:                                                                                                  #  00010         DEGREES (XXX.XX)
020765,002716:                                                                                                  #  00011         ARITHMETIC SF
020766,002717:                                                                                                  #  00100         ARITH DP1       OUT(MULT BY 2/14 AT END)        IN(STRAIGHT)
020767,002718:                                                                                                  #  00101         ARITH DP2       OUT(STRAIGHT)                   IN(SL 7 AT END)
020768,002719:                                                                                                  #  00110         OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
020769,002720:                                                                                                  #  00111         ARITH DP3       OUT ( SL 7 AT END)              IN ( STRAIGHT)
020770,002721:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
020771,002722: 
020772,002723: 
020773,002724: 
020774,002725:                                                                                                  #  SF CONSTANT CODE NUMBER       INTERPRETATION
020775,002726: 
020776,002727:                                                                                                  #  00000                         WHOLE
020777,002728:                                                                                                  #  00000                         TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
020778,002729:                                                                                                  #  00001                         TIME HOURS(XXX.XX) USE ARITH DP2
020779,002730:                                                                                                  #  00010                         DEGREES
020780,002731:                                                                                                  #  00010                         OPTICS DEGREES
020781,002732:                                                                                                  #  00011                         GYRO DEGREES(XX.XXX) USE ARITH DP1
020782,002733:                                                                                                  #  00100                         GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
020783,002734:                                                                                                  #  00101                         GYRO AXIS ACCEL. DRIFT
020784,002735:                                                                                                  #                                .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
020785,002736:                                                                                                  #  00110                         PIPA BIAS X.XXXX CM/SEC SEC
020786,002737:                                                                                                  #  00111                         PIPA SCALE FACTOR ERROR
020787,002738:                                                                                                  #                                        XXXXX. PARTS/MILLION
020788,002739:                                                                                                  #  01000                         POSITION(XXXX.X KILOMETERS) USE ARITHDP3
020789,002740:                                                                                                  #  01001                         VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
020790,002741:                                                                                                  #  01010                         TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
020791,002742:                                                                                                  #  01011                         ELEVATION DEGREES(89.999MAX) USE ARITH
020792,002743:                                                                                                  #  01100                         VG FOR 501 (XXXX.X MET/SEC)  USE ARITH
020793,002744:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
020794,002745: 

Page 539

020796,002747:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
020797,002748:                                                                                                  #  NOUN TABLES.
020798,002749:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
020799,002750:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
020800,002751:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
020801,002752: 

Page 540

020803,002754: 
020804,002755:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
020805,002756:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
020806,002757:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY SWCALL.
020807,002758: 
020808,002759: 
020809,002760: 
020810,002761:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
020811,002762:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
020812,002763:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
020813,002764:                                                                                                  #  IDADDTAB ENTRY. MIXBR IS SET FOR MIXED OR NORMAL NOUN.
020814,002765: 
020815,002766: 05,7153                                           SETLOC   ENDEXTVS                              
020816,002767: 05,7153           30001        LODNNTAB           XCH      Q                                     
020817,002768: 05,7154           50060                           TS       IDAD3TEM                              #  SAVE RETURN ADDRESS IN IDAD3TEM
020818,002769: 05,7155           20603                           INDEX    NOUNREG                               
020819,002770: 05,7156           37231                           CAF      NNADTAB                               
020820,002771: 05,7157           50054                           TS       NNADTEM                               
020821,002772: 05,7160           20603                           INDEX    NOUNREG                               
020822,002773: 05,7161           37331                           CAF      NNTYPTAB                              
020823,002774: 05,7162           50055                           TS       NNTYPTEM                              
020824,002775: 05,7163           40603                           CS       NOUNREG                               
020825,002776: 05,7164           67167                           AD       MIXCON                                
020826,002777: 05,7165           10000                           CCS      A                                     
020827,002778: 05,7166           07210                           TC       LODNORM                               #  NOUN L/ FIRST MIXED NOUN
020828,002779: 05,7167           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
020829,002780: 05,7170           07171                           TC       +1                                    
020830,002781: 05,7171           35503        LODMIXNN           CAF      TWO                                   #  NOUN G/E FIRST MIXED NOUN
020831,002782: 05,7172           50107                           TS       MIXBR                                 
020832,002783: 05,7173           34606                           CAF      LOW10                                 
020833,002784: 05,7174           70054                           MASK     NNADTEM                               
020834,002785: 05,7175           50001                           TS       Q                                     #  IDADDREL INTO Q
020835,002786: 05,7176           20000                           INDEX    A                                     
020836,002787: 05,7177           37515                           CAF      IDADDTAB                              
020837,002788: 05,7200           50056                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY.
020838,002789: 05,7201           20001                           INDEX    Q                                     
020839,002790: 05,7202           37516                           CAF      IDADDTAB   +1                         
020840,002791: 05,7203           50057                           TS       IDAD2TEM                              #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY.
020841,002792: 05,7204           20001                           INDEX    Q                                     
020842,002793: 05,7205           37517                           CAF      IDADDTAB   +2                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
020843,002794: 05,7206           30060        LODNLV             XCH      IDAD3TEM                              #  PUT RETURN ADDESS INTO A.
020844,002795: 05,7207           00000                           TC       A                                     
020845,002796: 
020846,002797: 05,7210           34516        LODNORM            CAF      ONE                                   
020847,002798: 05,7211           50107                           TS       MIXBR                                 
020848,002799: 05,7212           07206                           TC       LODNLV                                
020849,002800: 
020850,002801: 
020851,002802: 
020852,002803:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.

Page 541

020854,002805: 
020855,002806: 05,7213           20111        GTSFOUT            INDEX    SFTEMP2                               #  SF CONUM ARRIVES IN SFTEMP2.
020856,002807: 05,7214           37463                           CAF      SFOUTAB1                              
020857,002808: 05,7215           50110                           TS       SFTEMP1                               
020858,002809: 05,7216           20111                           INDEX    SFTEMP2                               
020859,002810: 05,7217           37500                           CAF      SFOUTAB2                              
020860,002811: 05,7220           50111                           TS       SFTEMP2                               
020861,002812: 05,7221           00001                           TC       Q                                     
020862,002813: 
020863,002814: 
020864,002815: 
020865,002816:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
020866,002817: 
020867,002818: 05,7222           20111        GTSFIN             INDEX    SFTEMP2                               #  SF CONUM ARRIVES IN SFTEMP2.
020868,002819: 05,7223           37431                           CAF      SFINTAB1                              
020869,002820: 05,7224           50110                           TS       SFTEMP1                               
020870,002821: 05,7225           20111                           INDEX    SFTEMP2                               
020871,002822: 05,7226           37446                           CAF      SFINTAB2                              
020872,002823: 05,7227           50111                           TS       SFTEMP2                               
020873,002824: 05,7230           00001                           TC       Q                                     
020874,002825: 
020875,002826: 
020876,002827: 
020877,002828:                                                                                                  #  NN   NORMAL NOUNS
020878,002829: 05,7231           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
020879,002830: 05,7232           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
020880,002831: 05,7233           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
020881,002832: 05,7234           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
020882,002833: 05,7235           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
020883,002834: 05,7236           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
020884,002835: 05,7237           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
020885,002836: 05,7240           40000                           OCT      40000                                 #  07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
020886,002837: 05,7241           00000                           OCT      00000                                 #  10 SPARE
020887,002838: 05,7242           00000                           OCT      00000                                 #  11 SPARE
020888,002839: 05,7243           00000                           OCT      00000                                 #  12 SPARE
020889,002840: 05,7244           00000                           OCT      00000                                 #  13 SPARE
020890,002841: 05,7245           00000                           OCT      00000                                 #  14 SPARE
020891,002842: 05,7246           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
020892,002843: 05,7247           00035                           OCT      00035                                 #  16 TIME SECONDS
020893,002844: 05,7250           00035                           OCT      00035                                 #  17 TIME HOURS
020894,002845: 05,7251           00047                           ADRES    CDUX                                  #  20 ICDU
020895,002846: 05,7252           00044                           ADRES    PIPAX                                 #  21 PIPAS
020896,002847: 05,7253           00700                           ADRES    THETAD                                #  22 NEW ANGLES I
020897,002848: 05,7254           00621                           ADRES    DSPTEM2                               #  23 DELTA ANGLES I
020898,002849: 05,7255           00616                           ADRES    DSPTEM1                               #  24 DELTA TIME (SEC)
020899,002850: 05,7256           00616                           ADRES    DSPTEM1                               #  25 CHECKLIST
020900,002851: 05,7257           00616                           ADRES    DSPTEM1                               #  26 PRIO/DELAY
020901,002852: 05,7260           01762                           ADRES    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
020902,002853: 05,7261           00616                           ADRES    DSPTEM1                               #  30 STAR NUMBERS
020903,002854: 05,7262           01763                           ADRES    FAILREG                               #  31 FAILREG, SFAIL, ERCOUNT
020904,002855: 05,7263           01266                           ADRES    TDEC                                  #  32 DECISION TIME (MIDCOURSE)

Page 542

020906,002857: 05,7264           01146                           ADRES    TET                                   #  33 EPHEMERIS TIME(MIDCOURSE)
020907,002858: 05,7265           01276                           ADRES    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
020908,002859: 05,7266           01314                           ADRES    ROLL                                  #  35 ROLL, PITCH, YAW
020909,002860: 05,7267           00616                           ADRES    LANDMARK                              #  36 LANDMARK DATA 1
020910,002861: 05,7270           00621                           ADRES    LANDMARK   +3                         #  37 LANDMARK DATA 2
020911,002862: 05,7271           00616                           ADRES    DSPTEM1                               #  40 VG FOR 501
020912,002863: 05,7272           00000                           OCT      00000                                 #  41 SPARE
020913,002864: 05,7273           00000                           OCT      00000                                 #  42 SPARE
020914,002865: 05,7274           00000                           OCT      00000                                 #  43 SPARE
020915,002866: 05,7275           00000                           OCT      00000                                 #  44 SPARE
020916,002867: 05,7276           00000                           OCT      00000                                 #  45 SPARE
020917,002868: 05,7277           00000                           OCT      00000                                 #  46 SPARE
020918,002869: 05,7300           00000                           OCT      00000                                 #  47 SPARE
020919,002870: 05,7301           00000                           OCT      00000                                 #  50 SPARE
020920,002871: 05,7302           00000                           OCT      00000                                 #  51 SPARE
020921,002872: 05,7303           00744                           ADRES    GBIASX                                #  52 GYRO BIAS DRIFT
020922,002873: 05,7304           00747                           ADRES    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
020923,002874: 05,7305           00752                           ADRES    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
020924,002875: 
020925,002876:                                                                                                  #  NN  MIXED NOUNS
020926,002877: 05,7306           02000                           OCT      02000                                 #  55 OCDU
020927,002878: 05,7307           04002                           OCT      04002                                 #  56 UNCALLED MARK DATA (OCDU & TIME(SEC))
020928,002879: 05,7310           02005                           OCT      02005                                 #  57 NEW ANGLES OCDU
020929,002880: 05,7311           04007                           OCT      04007                                 #  60 IMU MODE STATUS
020930,002881: 05,7312           02012                           OCT      02012                                 #  61 TARGET AZIMUTH AND ELEVATION
020931,002882: 05,7313           04062                           OCT      04062                                 #  62 RE-ENTRY VARIABLES
020932,002883: 05,7314           02016                           OCT      02016                                 #  63 OCDUX AND TIME(SEC)
020933,002884: 05,7315           02020                           OCT      02020                                 #  64 OCDUY AND TIME(SEC)
020934,002885: 05,7316           02022                           OCT      02022                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
020935,002886:                                                                                                  #        (FETCHED IN INTERRUPT)
020936,002887: 05,7317           04024                           OCT      04024                                 #  66 SYSTEM TEST RESULTS
020937,002888: 05,7320           04027                           OCT      04027                                 #  67 DELTA GYRO ANGLES
020938,002889: 05,7321           04032                           OCT      04032                                 #  70 PIPA BIAS
020939,002890: 05,7322           04035                           OCT      04035                                 #  71 PIPA SCALE FACTOR ERROR
020940,002891: 05,7323           04040                           OCT      04040                                 #  72 DELTA POSITION
020941,002892: 05,7324           04043                           OCT      04043                                 #  73 DELTA VELOCITY
020942,002893: 05,7325           04046                           OCT      04046                                 #  74 MEASUREMENT DATA (MIDCOURSE)
020943,002894: 05,7326           04051                           OCT      04051                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
020944,002895: 05,7327           04054                           OCT      04054                                 #  76 POSITION VECTOR
020945,002896: 05,7330           04057                           OCT      04057                                 #  77 VELOCITY VECTOR
020946,002897: 
020947,002898: 
020948,002899: 
020949,002900:                                                                                                  #  NN        NORMAL NOUNS
020950,002901: 05,7331           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
020951,002902: 05,7332           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
020952,002903: 05,7333           00140                           OCT      00140                                 #  02 1COMP  WHOLE
020953,002904: 05,7334           00102                           OCT      00102                                 #  03 1COMP  DEGREES
020954,002905: 05,7335           00241                           OCT      00241                                 #  04 1COMP  HOURS
020955,002906: 05,7336           00200                           OCT      00200                                 #  05 1COMP  SECONDS

Page 543

020957,002908: 05,7337           00203                           OCT      00203                                 #  06 1COMP  GYRO DEGREES
020958,002909: 05,7340           00302                           OCT      00302                                 #  07 1COMP  Y OPT DEGREES
020959,002910: 05,7341           00000                           OCT      00000                                 #  10        SPARE
020960,002911: 05,7342           00000                           OCT      00000                                 #  11        SPARE
020961,002912: 05,7343           00000                           OCT      00000                                 #  12        SPARE
020962,002913: 05,7344           00000                           OCT      00000                                 #  13        SPARE
020963,002914: 05,7345           00000                           OCT      00000                                 #  14        SPARE
020964,002915: 05,7346           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
020965,002916: 05,7347           00200                           OCT      00200                                 #  16 1COMP  SECONDS
020966,002917: 05,7350           00241                           OCT      00241                                 #  17 3COMP  HOURS
020967,002918: 05,7351           04102                           OCT      04102                                 #  20 3COMP  DEGREES
020968,002919: 05,7352           04140                           OCT      04140                                 #  21 3COMP  WHOLE
020969,002920: 05,7353           04102                           OCT      04102                                 #  22 3COMP  DEGREES
020970,002921: 05,7354           04102                           OCT      04102                                 #  23 3COMP  DEGREES
020971,002922: 05,7355           00200                           OCT      00200                                 #  24 1COMP  SECONDS
020972,002923: 05,7356           00140                           OCT      00140                                 #  25 1COMP  WHOLE
020973,002924: 05,7357           00140                           OCT      00140                                 #  26 1COMP  WHOLE
020974,002925: 05,7360           00140                           OCT      00140                                 #  27 1COMP  WHOLE
020975,002926: 05,7361           04140                           OCT      04140                                 #  30 3COMP  WHOLE
020976,002927: 05,7362           04000                           OCT      04000                                 #  31 3COMP  OCTAL ONLY
020977,002928: 05,7363           00252                           OCT      00252                                 #  32 3COMP  TIME WEEKS
020978,002929: 05,7364           00252                           OCT      00252                                 #  33 3COMP  TIME WEEKS
020979,002930: 05,7365           00350                           OCT      00350                                 #  34 3COMP  POSITION
020980,002931: 05,7366           04102                           OCT      04102                                 #  35 3COMP  DEGREES
020981,002932: 05,7367           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
020982,002933: 05,7370           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
020983,002934: 05,7371           04154                           OCT      04154                                 #  40 3COMP  VG FOR 501
020984,002935: 05,7372           00000                           OCT      00000                                 #  41        SPARE
020985,002936: 05,7373           00000                           OCT      00000                                 #  42        SPARE
020986,002937: 05,7374           00000                           OCT      00000                                 #  43        SPARE
020987,002938: 05,7375           00000                           OCT      00000                                 #  44        SPARE
020988,002939: 05,7376           00000                           OCT      00000                                 #  45        SPARE
020989,002940: 05,7377           00000                           OCT      00000                                 #  46        SPARE
020990,002941: 05,7400           00000                           OCT      00000                                 #  47        SPARE
020991,002942: 05,7401           00000                           OCT      00000                                 #  50        SPARE
020992,002943: 05,7402           00000                           OCT      00000                                 #  51        SPARE
020993,002944: 05,7403           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
020994,002945: 05,7404           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
020995,002946: 05,7405           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
020996,002947: 
020997,002948:                                                                                                  #  NN        MIXED NOUNS
020998,002949: 05,7406           00102                           OCT      00102                                 #  55 2COMP  DEGREES, Y OPT DEGREES
020999,002950: 05,7407           00102                           OCT      00102                                 #  56 3COMP  DEGREES, Y OPT DEGREES, SECS
021000,002951: 05,7410           00102                           OCT      00102                                 #  57 2COMP  DEGREES, Y OPT DEGREES
021001,002952: 05,7411           00000                           OCT      00000                                 #  60 3COMP  OCTAL ONLY
021002,002953: 05,7412           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
021003,002954: 05,7413           00000                           OCT      00000                                 #  62 3COMP  SECS, WHOLE, WHOLE
021004,002955: 05,7414           00002                           OCT      00002                                 #  63 2COMP  DEGREES, SECS
021005,002956: 05,7415           00002                           OCT      00002                                 #  64 2COMP  Y OPT DEGREES, SECS
021006,002957: 05,7416           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS

Page 544

021008,002959: 05,7417           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
021009,002960: 05,7420           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
021010,002961: 05,7421           14306                           OCT      14306                                 #  70 3COMP  PIPA BIAS FOR EACH
021011,002962: 05,7422           16347                           OCT      16347                                 #  71 3COMP  PIPA SCALE FACTOR ERR.FOR EACH
021012,002963: 05,7423           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
021013,002964: 05,7424           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
021014,002965: 05,7425           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
021015,002966: 05,7426           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
021016,002967: 05,7427           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
021017,002968: 05,7430           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
021018,002969: 
021019,002970: 
021020,002971: 
021021,002972: 05,7431           00006        SFINTAB1           OCT      00006                                 #  WHOLE,TIME(SEC)               HIGH PART
021022,002973: 05,7432           00253                           OCT      00253                                 #  TIME HOURS(=1.3-, PT. BETWEEN BITS 7-8)
021023,002974: 05,7433           00000                           OCT      0                                     #  DEGREES
021024,002975: 05,7434           00021                           OCT      00021                                 #  GYRO DEGREES
021025,002976: 05,7435           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
021026,002977: 05,7436           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
021027,002978: 05,7437           00004                           OCT      00004                                 #  PIPA BIAS
021028,002979: 05,7440           00314                           OCT      00314                                 #  PIPA SCALE ERROR
021029,002980: 05,7441           23420                           OCT      23420                                 #  POSITION
021030,002981: 05,7442           00201                           OCT      00201                                 #  VELOCITY (POINT BETWEEN BITS 7-8)
021031,002982: 05,7443           01371                           OCT      01371                                 #  TIME WEEKS (POINT BETWEEN BITS 7-8)
021032,002983: 05,7444           00001                           OCT      00001                                 #  ELEVATION DEGREES
021033,002984: 05,7445           00003                           OCT      00003                                 #  VG FOR 501
021034,002985:                                                                                                  #  END OF SFINTAB1
021035,002986: 
021036,002987: 
021037,002988: 
021038,002989: 05,7446           03240        SFINTAB2           OCT      03240                                 #  WHOLE, TIME(SEC)              LO PART
021039,002990: 05,7447           25124                           OCT      25124                                 #  TIME HOURS
021040,002991: 05,7450           00000                           OCT      0                                     #  DEGREES ( SFCON IN DEGINSF)
021041,002992: 05,7451           30707                           OCT      30707                                 #  GYRO DEGREES
021042,002993: 05,7452           02133                           OCT      02133                                 #  GYRO BIAS DRIFT
021043,002994: 05,7453           30322                           OCT      30322                                 #  GYRO AXIS ACCEL. DRIFT
021044,002995: 05,7454           14021                           OCT      14021                                 #  PIPA BIAS
021045,002996: 05,7455           31463                           OCT      31463                                 #  PIPA SCALE ERROR
021046,002997: 05,7456           00000                           OCT      00000                                 #  POSITION
021047,002998: 05,7457           30327                           OCT      30327                                 #  VELOCITY
021048,002999: 05,7460           34750                           OCT      34750                                 #  TIME WEEKS
021049,003000: 05,7461           03434                           OCT      03434                                 #  ELEVATION DEGREES
021050,003001: 05,7462           04000                           OCT      04000                                 #  VG FOR 501
021051,003002:                                                                                                  #  END OF SFINTAB2
021052,003003: 
021053,003004: 
021054,003005: 
021055,003006: 05,7463           05174        SFOUTAB1           OCT      05174                                 #  WHOLE, TIME(SEC)              HIGH PART
021056,003007: 05,7464           27670                           OCT      27670                                 #  TIME HOURS
021057,003008: 05,7465           00000                           OCT      0                                     #  DEGREES

Page 545

021059,003010: 05,7466           01631                           OCT      01631                                 #  GYRO DEGREES
021060,003011: 05,7467           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
021061,003012: 05,7470           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
021062,003013: 05,7471           07237                           OCT      07237                                 #  PIPA BIAS
021063,003014: 05,7472           00120                           OCT      00120                                 #  PIPA SCALE ERROR
021064,003015: 05,7473           00321                           OCT      00321                                 #  POSITION (POINT BETWEEN BITS 7-8)
021065,003016: 05,7474           37441                           OCT      37441                                 #  VELOCITY
021066,003017: 05,7475           05300                           OCT      05300                                 #  TIME WEEKS
021067,003018: 05,7476           34631                           OCT      34631                                 #  ELEVATION DEGREES
021068,003019: 05,7477           12172                           OCT      12172                                 #  VG FOR 501
021069,003020:                                                                                                  #  END OF SFOUTAB1
021070,003021: 
021071,003022: 
021072,003023: 
021073,003024: 05,7500           13261        SFOUTAB2           OCT      13261                                 #  WHOLE, TIME(SEC)              LO PART
021074,003025: 05,7501           31357                           OCT      31357                                 #  TIME HOURS
021075,003026: 05,7502           00000                           OCT      0                                     #  DEGREES
021076,003027: 05,7503           23146                           OCT      23146                                 #  GYRO DEGREES
021077,003028: 05,7504           32323                           OCT      32323                                 #  GYRO BIAS DRIFT
021078,003029: 05,7505           06400                           OCT      06400                                 #  GYRO AXIS ACCEL. DRIFT
021079,003030: 05,7506           37776                           OCT      37776                                 #  PIPA BIAS
021080,003031: 05,7507           00000                           OCT      00000                                 #  PIPA SCALE ERROR
021081,003032: 05,7510           26706                           OCT      26706                                 #  POSITION
021082,003033: 05,7511           14247                           OCT      14247                                 #  VELOCITY
021083,003034: 05,7512           20305                           OCT      20305                                 #  TIME WEEKS
021084,003035: 05,7513           23146                           OCT      23146                                 #  ELEVATION DEGREES
021085,003036: 05,7514           34121                           OCT      34121                                 #  VG FOR 501
021086,003037:                                                                                                  #  END OF SFOUTAB2
021087,003038: 
021088,003039: 
021089,003040: 
021090,003041:                                                                                                  #  MIXNOUN  SF ROUT              REG
021091,003042: 05,7515           04052        IDADDTAB           CADR     OPTX       +04000                     #  01       DEGREES              52
021092,003043: 05,7516           14053                           CADR     OPTY       +14000                     #  01       Y OPT DEGREES        53
021093,003044: 05,7517           04616                           CADR     DSPTEM1    +04000                     #  02       DEGREES              627
021094,003045: 05,7520           14617                           CADR     DSPTEM1    +14001                     #  02       Y OPT DEGREES        630
021095,003046: 05,7521           10620                           CADR     DSPTEM1    +10002                     #  02       SEC                  631
021096,003047: 05,7522           04704                           CADR     DESOPTX    +04000                     #  03       DEGREES              724
021097,003048: 05,7523           14705                           CADR     DESOPTX    +14001                     #  03       Y OPT DEGREES        725
021098,003049: 05,7524           00007                           CADR     IN3                                   #  04       OCTAL ONLY
021099,003050: 05,7525           00727                           CADR     WASKSET                               #  04       OCTAL ONLY
021100,003051: 05,7526           00726                           CADR     OLDERR                                #  04       OCTAL ONLY
021101,003052: 05,7527           04616                           CADR     DSPTEM1    +04000                     #  05       DEGREES
021102,003053: 05,7530           06617                           CADR     DSPTEM1    +06001                     #  05       ELEVATION DEGREES
021103,003054: 05,7531           00000                           OCT      00000                                 #  N 62 WAS 2COMP. CHANGED TO 3COMP. MOVED
021104,003055: 05,7532           00000                           OCT      00000                                 #  TO END OF IDADDTAB TO PRESERVE TABLE.
021105,003056: 05,7533           04052                           CADR     OPTX       +04000                     #  07       DEGREES              52
021106,003057: 05,7534           10035                           CADR     TIME2      +10000                     #  07       SEC                  35
021107,003058: 05,7535           14053                           CADR     OPTY       +14000                     #  10       Y OPT DEGREES        53
021108,003059: 05,7536           10035                           CADR     TIME2      +10000                     #  10       SEC                  35

Page 546

021110,003061: 05,7537           12643                           CADR     SAMPTIME   +12000                     #  11       HOURS                655
021111,003062: 05,7540           10643                           CADR     SAMPTIME   +10000                     #  11       SECONDS              655
021112,003063: 05,7541           06621                           CADR     DSPTEM2    +06000                     #  12       WHOLE                632
021113,003064: 05,7542           02622                           CADR     DSPTEM2    +02001                     #  12       FRACTIONAL           633
021114,003065: 05,7543           06623                           CADR     DSPTEM2    +06002                     #  12       WHOLE                634
021115,003066: 05,7544           11520                           CADR     OGC        +10000                     #  13       GYRO DEGREES
021116,003067: 05,7545           11522                           CADR     OGC        +10002                     #  13       GYRO DEGREES
021117,003068: 05,7546           11524                           CADR     OGC        +10004                     #  13       GYRO DEGREES
021118,003069: 05,7547           06736                           CADR     PBIASX     +06000                     #  14       PIPA BIAS
021119,003070: 05,7550           06740                           CADR     PBIASY     +06000                     #  14       PIPA BIAS
021120,003071: 05,7551           06742                           CADR     PBIASZ     +06000                     #  14       PIPA BIAS
021121,003072: 05,7552           06737                           CADR     PIPASCFX   +06000                     #  15       PIPA SCALE FACTOR ERROR
021122,003073: 05,7553           06741                           CADR     PIPASCFY   +06000                     #  15       PIPA SCALE FACTOR ERROR
021123,003074: 05,7554           06743                           CADR     PIPASCFZ   +06000                     #  15       PIPA SCALE FACTOR ERROR
021124,003075: 05,7555           17152                           CADR     DELR       +16000                     #  16       POSITION
021125,003076: 05,7556           17154                           CADR     DELR       +16002                     #  16       POSITION
021126,003077: 05,7557           17156                           CADR     DELR       +16004                     #  16       POSITION
021127,003078: 05,7560           13160                           CADR     DELVEL     +12000                     #  17       VELOCITY
021128,003079: 05,7561           13162                           CADR     DELVEL     +12002                     #  17       VELOCITY
021129,003080: 05,7562           13164                           CADR     DELVEL     +12004                     #  17       VELOCITY
021130,003081: 05,7563           13266                           CADR     TDEC       +12000                     #  20       TIME WEEKS
021131,003082: 05,7564           17276                           CADR     MEASQ      +16000                     #  20       POSITION
021132,003083: 05,7565           07300                           CADR     MEASMODE   +06000                     #  20       WHOLE
021133,003084: 05,7566           16616                           CADR     DSPTEM1    +16000                     #  21       POSITION
021134,003085: 05,7567           12620                           CADR     DSPTEM1    +12002                     #  21       VELOCITY
021135,003086: 05,7570           17276                           CADR     DELTAQ     +16000                     #  21       POSITION
021136,003087: 05,7571           16616                           CADR     DSPTEM1    +16000                     #  22       POSITION
021137,003088: 05,7572           16620                           CADR     DSPTEM1    +16002                     #  22       POSITION
021138,003089: 05,7573           16622                           CADR     DSPTEM1    +16004                     #  22       POSITION
021139,003090: 05,7574           12616                           CADR     DSPTEM1    +12000                     #  23       VELOCITY
021140,003091: 05,7575           12620                           CADR     DSPTEM1    +12002                     #  23       VELOCITY
021141,003092: 05,7576           12622                           CADR     DSPTEM1    +12004                     #  23       VELOCITY
021142,003093: 05,7577           10035                           CADR     TIME2      +10000                     #  06       SEC
021143,003094: 05,7600           07617                           CADR     V          +06000                     #  06       WHOLE
021144,003095: 05,7601           07110                           CADR     THETAH     +06000                     #  06       WHOLE
021145,003096: 05,7602           00000                           OCT      00000                                 #           SPARE
021146,003097: 05,7603           00000                           OCT      00000                                 #           SPARE
021147,003098: 05,7604           00000                           OCT      00000                                 #           SPARE
021148,003099: 

Page 547

021150,003101: 
021151,003102:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES
021152,003103: 
021153,003104: 
021154,003105: 
021155,003106:    3171                                           SETLOC   DATWAIT1   +2                         
021156,003107: 
021157,003108:    3171           00016        R1D1               OCT      16                                    
021158,003109:    3172           00011        R2D1               OCT      11                                    
021159,003110:    3173           00004        R3D1               OCT      4                                     
021160,003111: 
021161,003112:    3174           50020        RIGHT5             TS       CYR                                   
021162,003113:    3175           40020                           CS       CYR                                   
021163,003114:    3176           40020                           CS       CYR                                   
021164,003115:    3177           40020                           CS       CYR                                   
021165,003116:    3200           40020                           CS       CYR                                   
021166,003117:    3201           30020                           XCH      CYR                                   
021167,003118:    3202           00001                           TC       Q                                     
021168,003119: 
021169,003120:    3203           50022        LEFT5              TS       CYL                                   
021170,003121:    3204           40022                           CS       CYL                                   
021171,003122:    3205           40022                           CS       CYL                                   
021172,003123:    3206           40022                           CS       CYL                                   
021173,003124:    3207           40022                           CS       CYL                                   
021174,003125:    3210           30022                           XCH      CYL                                   
021175,003126:    3211           00001                           TC       Q                                     
021176,003127: 
021177,003128:    3212           60000        SLEFT5             DOUBLE                                         
021178,003129:    3213           60000                           DOUBLE                                         
021179,003130:    3214           60000                           DOUBLE                                         
021180,003131:    3215           60000                           DOUBLE                                         
021181,003132:    3216           60000                           DOUBLE                                         
021182,003133:    3217           00001                           TC       Q                                     
021183,003134: 
021184,003135: 
021185,003136: 
021186,003137:    3220           00037        LOW5               OCT      37                                    
021187,003138:    3221           01740        MID5               OCT      1740                                  
021188,003139:    3222           76000                           OCT      76000                                 #  MUST STAY HERE.
021189,003140: 
021190,003141:    3223           02052        TCNOVAC            TC       NOVAC                                 
021191,003142:    3224           02173        TCWAIT             TC       WAITLIST                              
021192,003143:    3225           02256        TCTSKOVR           TC       TASKOVER                              
021193,003144:    3226           02046        TCFINDVC           TC       FINDVAC                               
021194,003145: 
021195,003146: 
021196,003147: 
021197,003148:    3227           00023        VD1                OCT      23                                    
021198,003149:    3230           00021        ND1                OCT      21                                    
021199,003150:    3231           00025        MD1                OCT      25                                    
021200,003151: 

Page 548

021202,003153: 
021203,003154:    3232           00012        BINCON             DEC      10         B-14                       
021204,003155: 
021205,003156:    3233     3232               TEN                EQUALS   BINCON                                
021206,003157: 
021207,003158:    3233           20017        FALTON             INHINT                                         #  TURN PROGRAM CHECK LIGHT ON
021208,003159:    3234           44512                           CS       BIT5                                  #  OUT1,BIT5(ALSO KNOWN AS ILLEGAL ORDER)
021209,003160:    3235           70011                           MASK     OUT1                                  
021210,003161:    3236           64512                           AD       BIT5                                  
021211,003162:    3237           50011                           TS       OUT1                                  
021212,003163:    3240           20016                           RELINT                                         
021213,003164:    3241           00001                           TC       Q                                     
021214,003165: 
021215,003166:    3242           20017        FALTOF             INHINT                                         #  TURN PROGRAM CHECK LIGHT OFF
021216,003167:    3243           44512                           CS       BIT5                                  
021217,003168:    3244           70011                           MASK     OUT1                                  
021218,003169:    3245           50011                           TS       OUT1                                  
021219,003170:    3246           20016                           RELINT                                         
021220,003171:    3247           00001                           TC       Q                                     
021221,003172: 
021222,003173:    3250           20017        RELDSPON           INHINT                                         #  TURN ON RELEASE DISPLAY SYST LIGHT
021223,003174:    3251           44514                           CS       BIT3                                  
021224,003175:    3252           70011                           MASK     OUT1                                  
021225,003176:    3253           64514                           AD       BIT3                                  
021226,003177:    3254           50011                           TS       OUT1                                  
021227,003178:    3255           20016                           RELINT                                         
021228,003179:    3256           00001                           TC       Q                                     
021229,003180: 
021230,003181:    3257           44513        DSPLOCK0           CS       BIT4                                  
021231,003182:    3260           20017                           INHINT                                         #  DSPLOCK = BIT4 OF STATE
021232,003183:    3261           70645                           MASK     DSPLOCK                               
021233,003184:    3262           50645                           TS       DSPLOCK                               
021234,003185:    3263           20016                           RELINT                                         
021235,003186:    3264           00001                           TC       Q                                     
021236,003187: 
021237,003188:    3265           44513        DSPLOCK1           CS       BIT4                                  
021238,003189:    3266           20017                           INHINT                                         #  DSPLOCK = BIT4 OF STATE
021239,003190:    3267           70645                           MASK     DSPLOCK                               
021240,003191:    3270           64513                           AD       BIT4                                  
021241,003192:    3271           30645                           XCH      DSPLOCK                               #  LEAVES OLD C(DSPLOCK) IN A.
021242,003193:    3272           20016                           RELINT                                         
021243,003194:    3273           00001                           TC       Q                                     
021244,003195: 
021245,003196:    3274           34513        TSTDSPLK           CAF      BIT4                                  #  SIMULATES CCS DSPLOCK
021246,003197:    3275           70645                           MASK     DSPLOCK                               
021247,003198:    3276           10000                           CCS      A                                     
021248,003199:    3277           00001                           TC       Q                                     #  DSPLOCK = 1, RETURN TO L+1
021249,003200:    3300           20001                           INDEX    Q                                     
021250,003201:    3301           00001                           TC       1                                     #  DSPLOCK = 0, RETURN TO L+1
021251,003202: 

Page 549

021253,003204: 
021254,003205:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
021255,003206:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
021256,003207:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
021257,003208: 
021258,003209:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
021259,003210:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
021260,003211: 
021261,003212:                                                                                                  #        THE CALLING SEQUENCES ARE
021262,003213:                                                                                                  #  L     TC      GRABDSP
021263,003214:                                                                                                  #  L+1   RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
021264,003215:                                                                                                  #  L+2   RETURN HERE MEANS YOU HAVE IT
021265,003216: 
021266,003217:                                                                                                  #  L     TC      NVSUB
021267,003218:                                                                                                  #  L+1   RETURN HERE IF OPERATOR HAS INTERVENED
021268,003219:                                                                                                  #  L+2   RETURN HERE AFTER EXECUTION
021269,003220: 
021270,003221: 
021271,003222: 
021272,003223:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
021273,003224:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT. 
021274,003225:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
021275,003226: 
021276,003227:                                                                                                  #        THE CALLING SEQUENCE IS
021277,003228:                                                                                                  #                CAF     WAKECADR
021278,003229:                                                                                                  #                TC      GRABUSY
021279,003230: 
021280,003231:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
021281,003232:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT. YOUR CADR IS PUT
021282,003233:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
021283,003234: 
021284,003235:                                                                                                  #  THE CALLING SEQUENCE IS
021285,003236:                                                                                                  #  CAF WAKECADR
021286,003237:                                                                                                  #  TC NVSUBUSY
021287,003238: 
021288,003239: 
021289,003240: 
021290,003241:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS, 
021291,003242:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
021292,003243:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
021293,003244: 
021294,003245: 
021295,003246: 
021296,003247:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
021297,003248:                                                                                                  #  AND DISPLAY SYSTEM.
021298,003249:                                                                                                  #  +0  FREE
021299,003250:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
021300,003251:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
021301,003252: 

Page 550

021303,003254: 
021304,003255:    3302           10630        GRABDSP            CCS      GRABLOCK                              
021305,003256:    3303           00001                           TC       Q                                     #  GRABBED. RETURN TO L+1
021306,003257:    3304           34516                           CAF      ONE                                   #  NOT GRABBED. SET TO +1
021307,003258:    3305           50630                           TS       GRABLOCK                              #  AND RETURN TO L+2
021308,003259:    3306           20001                           INDEX    Q                                     
021309,003260:    3307           00001                           TC       1                                     
021310,003261: 
021311,003262: 
021312,003263: 
021313,003264:    3310           34606        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN BANKS
021314,003265:    3311           70001                           MASK     Q                                     #  DESIRING THE CADR OF 1 + (LOC FROM WHICH
021315,003266:    3312           60015                           AD       BANKREG                               #  TC PREGBSY WAS DONE) TO BE ENTERED.
021316,003267:    3313           05720        GRABUSY            TC       POSTJUMP                              
021317,003268:    3314           16001                           CADR     GRABUSYB                              
021318,003269: 07,7434                                           SETLOC   ENDSPMM1   +1                         
021319,003270: 
021320,003271: 07,7434           50114        GRABUSY1           TS       CADRTEM                               
021321,003272: 07,7435           10630                           CCS      GRABLOCK                              
021322,003273: 07,7436           07441                           TC       +3                                    #  STILL GRABBED
021323,003274: 07,7437           30114                           XCH      CADRTEM                               #  NOT GRABBED SO DO DIRECT CALL
021324,003275: 07,7440           05723                           TC       BANKJUMP                              
021325,003276: 07,7441           35503                           CAF      TWO                                   
021326,003277: 07,7442           50113                           TS       LSTPTR                                
021327,003278: 07,7443           20113                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
021328,003279: 07,7444           10634                           CCS      DSPLIST                               #  FROM BOTTOM.
021329,003280: 07,7445           07447                           TC       +2                                    
021330,003281: 07,7446           07452                           TC       PUTINLST                              #  SPACE FOUND
021331,003282: 07,7447           10113                           CCS      LSTPTR                                #  DECREMENT POINTER
021332,003283: 07,7450           07442                           TC       -6                                    
021333,003284: 07,7451           07526                           TC       LSTFULL                               
021334,003285: 07,7452           30114        PUTINLST           XCH      CADRTEM                               
021335,003286: 07,7453           20113                           INDEX    LSTPTR                                
021336,003287: 07,7454           50634                           TS       DSPLIST                               
021337,003288: 07,7455           02127                           TC       JOBSLEEP                              
021338,003289: 
021339,003290: 
021340,003291: 
021341,003292:    3315                                           SETLOC   GRABUSY    +2                         
021342,003293:    3315           43322        PRENVBSY           CS       6K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN BANKS
021343,003294:    3316           60001                           AD       Q                                     #  DESIRING THE CADR OF (LOC FROM WHICH THE
021344,003295:    3317           60015                           AD       BANKREG                               #  TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
021345,003296:    3320           05720        NVSUBUSY           TC       POSTJUMP                              
021346,003297:    3321           16002                           CADR     NVSUBSYB                              
021347,003298:    3322           06003        6K+3               OCT      6003                                  #  TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
021348,003299: 
021349,003300: 07,7456                                           SETLOC   PUTINLST   +4                         
021350,003301: 07,7456           50114        NVSUBSY1           TS       CADRTEM                               
021351,003302: 07,7457           03274                           TC       TSTDSPLK                              #  TEST IF REALLY LOCKED OUT
021352,003303: 07,7460           07463                           TC       +3                                    #  STILL BUSY
021353,003304: 07,7461           30114                           XCH      CADRTEM                               #  DSPLOCK = +0 SO RETURN DIRECTLY

Page 551

021355,003306: 07,7462           05723                           TC       BANKJUMP                              
021356,003307: 07,7463           35503                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
021357,003308: 07,7464           50630                           TS       GRABLOCK                              
021358,003309: 07,7465           30114                           XCH      CADRTEM                               
021359,003310: 07,7466           30636                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
021360,003311: 07,7467           30635                           XCH      DSPLIST    +1                         #        (BOTTOM)
021361,003312: 07,7470           30634                           XCH      DSPLIST                               
021362,003313: 07,7471           10000                           CCS      A                                     
021363,003314: 07,7472           07526                           TC       LSTFULL                               
021364,003315: 07,7473           07475                           TC       +2                                    
021365,003316: 07,7474           07526                           TC       LSTFULL                               
021366,003317: 07,7475           03250                           TC       RELDSPON                              
021367,003318: 07,7476           40636                           CS       DSPLIST    +2                         
021368,003319: 07,7477           40000                           COM                                            
021369,003320: 07,7500           02127        ENDNVBSY           TC       JOBSLEEP                              
021370,003321: 
021371,003322:    3323                                           SETLOC   NVSUBUSY   +3                         
021372,003323: 
021373,003324:    3323           30001        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
021374,003325:    3324           50113                           TS       RELRET                                #  OFF,  SEARCH DSPLIST
021375,003326:    3325           34335                           CAF      NEG1                                  
021376,003327:    3326           60630                           AD       GRABLOCK                              
021377,003328:    3327           10000                           CCS      A                                     #  SEARCH LIST ONLY IF GRABLOCK = +2
021378,003329:    3330           03334                           TC       +4                                    #        (SOMEONE USED NVSUBUSY)
021379,003330:    3331           03062                           TC       CCSHOLE                               
021380,003331:    3332           03351                           TC       RELDSP2                               
021381,003332:    3333           03351                           TC       RELDSP2                               
021382,003333:    3334           35501                           CAF      ZERO                                  
021383,003334:    3335           30634                           XCH      DSPLIST                               
021384,003335:    3336           30635                           XCH      DSPLIST    +1                         
021385,003336:    3337           30636                           XCH      DSPLIST    +2                         
021386,003337:    3340           50114                           TS       CADRTEM                               
021387,003338:    3341           10000                           CCS      A                                     
021388,003339:    3342           03344                           TC       +2                                    
021389,003340:    3343           03351                           TC       RELDSP2                               #  LIST EMPTY
021390,003341:    3344           30114                           XCH      CADRTEM                               
021391,003342:    3345           20017                           INHINT                                         
021392,003343:    3346           02060                           TC       JOBWAKE                               
021393,003344:    3347           34516                           CAF      ONE                                   
021394,003345:    3350           50630                           TS       GRABLOCK                              
021395,003346:    3351           44514        RELDSP2            CS       BIT3                                  
021396,003347:    3352           70011                           MASK     OUT1                                  
021397,003348:    3353           50011                           TS       OUT1                                  
021398,003349:    3354           03257                           TC       DSPLOCK0                              #  0 INTO DSPLOCK (BIT4 OF STATE)
021399,003350:                                                                                                  #  RELINT IS DONE IN DSPLOCK0.
021400,003351:    3355           00113                           TC       RELRET                                
021401,003352:    3356           30001        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0, RELDSP LIGHT OFF, 
021402,003353:    3357           50113                           TS       RELRET                                #  NO LIST SEARCH
021403,003354:    3360           20017                           INHINT                                         
021404,003355:    3361           03351                           TC       RELDSP2                               
021405,003356: 

Page 552

021407,003358: 
021408,003359:    3362           30001        FREEDSP            XCH      Q                                     
021409,003360:    3363           50113                           TS       FREERET                               
021410,003361:    3364           20017                           INHINT                                         
021411,003362:    3365           33372                           CAF      SHOTIME                               
021412,003363:    3366           02173                           TC       WAITLIST                              
021413,003364:    3367           17501                           CADR     FREEWAIT                              
021414,003365:    3370           20016                           RELINT                                         
021415,003366:    3371           00113                           TC       FREERET                               
021416,003367: 
021417,003368:    3372           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SECS FOR 501
021418,003369: 07,7501                                           SETLOC   ENDNVBSY   +1                         
021419,003370: 
021420,003371: 07,7501           32164        FREEWAIT           CAF      PRIO31                                #  CALLED BY T3RUPT
021421,003372: 07,7502           02052                           TC       NOVAC                                 
021422,003373: 07,7503           17505                           CADR     FREDSPDO                              
021423,003374: 07,7504           02256                           TC       TASKOVER                              
021424,003375: 
021425,003376: 
021426,003377: 
021427,003378: 07,7505           35501        FREDSPDO           CAF      ZERO                                  #  CALLED BY EXECUTIVE
021428,003379: 07,7506           30634                           XCH      DSPLIST                               
021429,003380: 07,7507           30635                           XCH      DSPLIST    +1                         
021430,003381: 07,7510           30636                           XCH      DSPLIST    +2                         
021431,003382: 07,7511           50114                           TS       CADRTEM                               
021432,003383: 07,7512           10000                           CCS      A                                     
021433,003384: 07,7513           07515                           TC       +2                                    
021434,003385: 07,7514           07524                           TC       LSTEMPTY                              
021435,003386: 07,7515           30114                           XCH      CADRTEM                               
021436,003387: 07,7516           20017                           INHINT                                         
021437,003388: 07,7517           02060                           TC       JOBWAKE                               
021438,003389: 07,7520           20016                           RELINT                                         
021439,003390: 07,7521           34516                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
021440,003391: 07,7522           50630                           TS       GRABLOCK                              
021441,003392: 07,7523           02124                           TC       ENDOFJOB                              
021442,003393: 07,7524           35501        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
021443,003394: 07,7525           07522                           TC       -3                                    
021444,003395: 
021445,003396: 
021446,003397: 
021447,003398: 07,7526           03044        LSTFULL            TC       ABORT                                 
021448,003399: 07,7527           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.

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