Source Code

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