Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

049216,000002:                                                                                                  ## Copyright:   Public domain.
049217,000003:                                                                                                  ## Filename:    INTERPRETER.agc
049218,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
049219,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
049220,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
049221,000007:                                                                                                  ## Assembler:   yaYUL
049222,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049223,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
049224,000010:                                                                                                  ## Pages:       1107-1199
049225,000011:                                                                                                  ## Mod history: 2009-05-08 RSB  Adapted from the Luminary131/ file of the
049226,000012:                                                                                                  ##                              same name, using Comanche055 page images. 
049227,000013:                                                                                                  ##              2009-05-20 RSB  Corrections:  P00D00 -> POODOO, fixed a 
049228,000014:                                                                                                  ##                              "Page N" reference.
049229,000015:                                                                                                  ##              2009-05-21 RSB  Corrected definition of 5B10, which overflowed
049230,000016:                                                                                                  ##                              integer arithmetic.
049231,000017:                                                                                                  ##              2010-08-28 JL   Fixed indentation.
049232,000018:                                                                                                  ##              2011-05-08 JL   Removed workarounds.
049233,000019:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
049234,000020:                                                                                                  ##                              and corrected the errors found.
049235,000021:                                                                                                  ##              2017-01-14 RSB  Fixed comment-text errors located whilst diff'ing
049236,000022:                                                                                                  ##                              against Colossus 249.
049237,000023:                                                                                                  ##              2017-02-05 RSB  Back-ported comment corrections 
049238,000024:                                                                                                  ##                              identified while proofing Artemis 072.
049239,000025:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
049240,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
049241,000027:                                                                                                  ##              2021-05-30 ABS  Modfied COUNT operands to match scans.
049242,000028: 
049243,000029:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
049244,000030:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
049245,000031:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
049246,000032:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
049247,000033:                                                                                                  ## consequent reduction in image quality as well) are available online at
049248,000034:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
049249,000035:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
049250,000036:                                                                                                  ## (much) higher-quality images which Paul actually created.
049251,000037:                                                                                                  ##
049252,000038:                                                                                                  ## Notations on the hardcopy document read, in part:
049253,000039:                                                                                                  ##
049254,000040:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
049255,000041:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
049256,000042:                                                                                                  ##
049257,000043:                                                                                                  ##      This AGC program shall also be referred to as
049258,000044:                                                                                                  ##                      Colossus 2A
049259,000045: 

Page 1107

049261,000047:                                                                                                  #  SECTION 1   DISPATCHER
049262,000048: 
049263,000049:                                                                                                  #  ENTRY TO THE INTERPRETER.  INTPRET SETS LOC TO THE FIRST INSTRUCTION, BANKSET TO THE BBANK OF THE
049264,000050:                                                                                                  #  OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK.  INTERPRETIVE PROGRAMS MAY BE IN
049265,000051:                                                                                                  #  VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
049266,000052:                                                                                                  #  (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA.  THE INTERPRETER DOES NOT SWITCH SUPERBANKS.
049267,000053:                                                                                                  #  E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
049268,000054: 
049269,000055:    6006                                           BLOCK    03                                    
049270,000056: 
049271,000057:    6006                                           COUNT    03/INTER                              
049272,000058:    6006           00003        INTPRET            RELINT                                         
049273,000059:    6007           00006                           EXTEND                                         #  SET LOC TO THE WORD FOLLOWING THE TC.
049274,000060:    6010           22164                           QXCH     LOC                                   
049275,000061:    6011           30006                 +2        CA       BBANK                                 #  INTERPRETIVE BRANCHES FINISH HERE.
049276,000062:    6012           54165                           TS       BANKSET                               
049277,000063:    6013           75001                           MASK     BIT15                                 #  GET 15TH BIT FOR INDEXABLE ADDRESSES.
049278,000064:    6014           54115                           TS       INTBIT15                              
049279,000065: 
049280,000066:    6015           54023                           TS       EDOP                                  #  MAKE SURE NO INSTRUCTIONS LEFT OVER
049281,000067: 
049282,000068:    6016           16037                           TCF      NEWOPS                                #  PICK UP OP CODE PAIR AND BEGIN.
049283,000069: 
049284,000070:    6017           22006        INTRSM             LXCH     BBANK                                 #  RESUME SUSPENDED INTERPRETIVE JOB
049285,000071:    6020           16011                           TCF      INTPRET    +3                         
049286,000072: 
049287,000073:                                                                                                  #  DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
049288,000074: 
049289,000075:    6021           00006        DLOAD              EXTEND                                         
049290,000076:    6022           50116                           INDEX    ADDRWD                                
049291,000077:    6023           30001                           DCA      0                                     #  LOAD DP C(C(ADDRWD)) INTO MPAC,MPAX +1
049292,000078:    6024           52155        SLOAD2             DXCH     MPAC                                  
049293,000079:    6025           35021                           CAF      ZERO                                  #  ZERO MPAC +2
049294,000080: 

Page 1108

049296,000082:                                                                                                  #  AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
049297,000083: 
049298,000084:    6026           54156                           TS       MPAC       +2                         #  AND DECLARE DP MODE
049299,000085: 
049300,000086:    6027           54163        NEWMODE            TS       MODE                                  #  PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
049301,000087: 
049302,000088:    6030           30165        DANZIG             CA       BANKSET                               #  SET BBANK BEFORE TESTING NEWJOB SO THAT
049303,000089:    6031           54006                           TS       BBANK                                 #  IT MAY BE SAVED DIRECTLY BY CHANJOB.
049304,000090: 
049305,000091:    6032           10023        NOIBNKSW           CCS      EDOP                                  #  SEE IF AN ORDER CODE IS LEFT OVER FROM
049306,000092:    6033           16046                           TCF      OPJUMP                                #  THE LAST PAIR RETRIEVED.  IF SO, EXECUTE.
049307,000093:                                                                                                  #  EDOP IS SET TO ZERO ON ITS RE-EDITING.
049308,000094: 
049309,000095:    6034           10067                           CCS      NEWJOB                                #  SEE IF A JOB OF HIGHER PRIORITY IS
049310,000096:    6035           15170                           TCF      CHANG2                                #  PRESENT, AND IF SO, CHANGE JOBS.
049311,000097: 
049312,000098:    6036           24164                           INCR     LOC                                   #  ADVANCE THE LOCATION COUNTER.
049313,000099: 
049314,000100:                                                                                                  #  ITRACE (1) REFERS TO "NEWOPS".
049315,000101:    6037           50164        NEWOPS             INDEX    LOC                                   #  ENTRY TO BEGIN BY PICKING OP CODE PAIR.
049316,000102:    6040           30000                           CA       0                                     #  MAY BE AN OPCODE PAIR OR A STORE CODE.
049317,000103:    6041           10000                           CCS      A                                     #  TEST SIGN AND GET DABS(A).
049318,000104:    6042           16331                           TCF      DOSTORE                               #  PROCESS STORE CODE.
049319,000105: 
049320,000106:    6043           00177        LOW7               OCT      177                                   
049321,000107: 
049322,000108:    6044           54023                           TS       EDOP                                  #  OP CODE PAIR.  LEAVE THE OTHER IN EDOP
049323,000109:    6045           76043                           MASK     LOW7                                  #  WHERE CCS EDOP WILL HONOR IT NEXT.
049324,000110: 
049325,000111:    6046           54020        OPJUMP             TS       CYR                                   #  LOWWD ENTERS HERE IF A RIGHT-HAND OP
049326,000112:    6047           10020                           CCS      CYR                                   #  CODE IS TO BE PROCESSED.  TEST PREFICES.
049327,000113:    6050           16216                           TCF      OPJUMP2                               #  TEST SECOND PREFIX BIT.
049328,000114: 
049329,000115:    6051           16712                           TCF      EXIT                                  #  +0 OP CODE IS EXIT.
049330,000116: 

Page 1109

049332,000118:                                                                                                  #  PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
049333,000119: 
049334,000120:    6052           75017        ADDRESS            MASK     BIT1                                  #  SEE IF ADDRESS IS INDEXED.  CYR CONTAINED
049335,000121:    6053           10000                           CCS      A                                     #  400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
049336,000122:    6054           16115                           TCF      INDEX                                 #  FORM INDEXED ADDRESS.
049337,000123: 
049338,000124:    6055           50164        DIRADRES           INDEX    LOC                                   #  LOOK AHEAD TO NEXT WORD TO SEE IF
049339,000125:    6056           40001        OCT40001           CS       1                                     #  ADDRESS IS GIVEN.
049340,000126:    6057           10000                           CCS      A                                     
049341,000127:    6060           16164                           TCF      PUSHUP                                #  IF NOT.
049342,000128: 
049343,000129:    6061           77773        NEG4               DEC      -4         B-14                       
049344,000130: 
049345,000131:    6062           24164                           INCR     LOC                                   #  IF SO, TO SHOW WE PICKED UP A WORD.
049346,000132:    6063           54116                           TS       ADDRWD                                
049347,000133: 

Page 1110

049349,000135:                                                                                                  #  FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE.   IN EACH CASE, THE
049350,000136:                                                                                                  #  REQUIRED 12-BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED E OR F BANK SWITCHING DONE.  ADDRESSES LESS
049351,000137:                                                                                                  #  THAN 45D ARE TAKEN TO BE RELATIVE TO THE WORK AREA.  THE OP CODE IS NOW IN BITS 1-5 OF CYR WITH BIT 14 = 1.
049352,000138: 
049353,000139:    6064           66220                           AD       -ENDVAC                               #  SEE IF ADDRESS RELATIVE TO WORK AREA.
049354,000140:    6065           10000                           CCS      A                                     
049355,000141:    6066           67712                           AD       -ENDERAS                              #  IF NOT, SEE IF IN GENERAL ERASABLE.
049356,000142:    6067           16074                           TCF      IERASTST                              
049357,000143: 
049358,000144:    6070           30120        NETZERO            CA       FIXLOC                                #  IF SO, LEAVE THE MODIFIED ADDRESS IN
049359,000145:    6071           26116                           ADS      ADDRWD                                #  ADDRWD AND DISPATCH.
049360,000146:    6072           50020        ITR15              INDEX    CYR                                   #  THIS INDEX MAKES THE NEXT INSTRUCTION
049361,000147:    6073           76242                           7        INDJUMP    -1                         #  TCF INDJUMP + OP, EDITING CYR.
049362,000148: 
049363,000149:    6074           00006        IERASTST           EXTEND                                         
049364,000150:    6075           66105                           BZMF     GEADDR                                #  GO PROCESS GENERAL-ERASABLE ADDRESS.
049365,000151: 
049366,000152:    6076           75054                           MASK     LOW10                                 #  FIXED BANK ADDRESS. RESTORE AND ADD B15.
049367,000153:    6077           65054                           AD       LOW10                                 #  SWITCH BANKS AND LEAVE SUBADDRESS IN
049368,000154:    6100           56116                           XCH      ADDRWD                                #  ADDRWD FOR OPERAND RETRIEVAL. (THIS
049369,000155:    6101           60115                           AD       INTBIT15                              #  METHOD PRECLUDES USE OF THE LAST
049370,000156:    6102           54004                           TS       FBANK                                 #  LOCATION IN EACH FBANK.)
049371,000157:    6103           50020        ITR12              INDEX    CYR                                   
049372,000158:    6104           76242                           7        INDJUMP    -1                         
049373,000159: 
049374,000160:    6105           74373        GEADDR             MASK     LOW8                                  
049375,000161:    6106           65051                           AD       OCT1400                               
049376,000162:    6107           56116                           XCH      ADDRWD                                
049377,000163:    6110           54003                           TS       EBANK                                 
049378,000164:    6111           50020        ITR10              INDEX    CYR                                   
049379,000165:    6112           76242                           7        INDJUMP    -1                         
049380,000166: 

Page 1111

049382,000168:                                                                                                  #  THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES.  AN INTERPRETER INDEX REGISTER MAY
049383,000169:                                                                                                  #  CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
049384,000170:                                                                                                  #  BANK, OR ANY INTEGER IN THAT RANGE.
049385,000171: 
049386,000172:    6113           37702        DODLOAD*           CAF      DLOAD*                                #  STODL* COMES HERE TO PROCESS LOAD ADR.
049387,000173:    6114           54020                           TS       CYR                                   #  (STOVL* ENTERS HERE).
049388,000174: 
049389,000175:    6115           30120        INDEX              CA       FIXLOC                                #  SET UP INDEX LOCATION.
049390,000176:    6116           54130                           TS       INDEXLOC                              
049391,000177:    6117           24164                           INCR     LOC                                   #  (ADDRESS ALWAYS GIVEN).
049392,000178:    6120           50164                           INDEX    LOC                                   
049393,000179:    6121           40000                           CS       0                                     
049394,000180:    6122           10000                           CCS      A                                     #  INDEX 2 IF ADDRESS STORED COMPLEMENTED.
049395,000181:    6123           24130                           INCR     INDEXLOC                              
049396,000182:    6124           16125                           NOOP                                           
049397,000183: 
049398,000184:    6125           54116                           TS       ADDRWD                                #  14 BIT ADDRESS TO ADDRWD.
049399,000185:    6126           77711                           MASK     HIGH4                                 #  IF ADDRESS GREATER THAN 2K, ADD INTBIT15
049400,000186:    6127           00006                           EXTEND                                         
049401,000187:    6130           16133                           BZF      INDEX2                                
049402,000188:    6131           30115                           CA       INTBIT15                              
049403,000189:    6132           26116                           ADS      ADDRWD                                
049404,000190: 
049405,000191:    6133           50130        INDEX2             INDEX    INDEXLOC                              
049406,000192:    6134           40046                           CS       X1                                    
049407,000193:    6135           26116                           ADS      ADDRWD                                #  DO AUGMENT, IGNORING AND CORRECTING OVF.
049408,000194: 
049409,000195:    6136           77713                           MASK     HIGH9                                 #  SEE IF ADDRESS IS IN WORK AREA.
049410,000196:    6137           00006                           EXTEND                                         
049411,000197:    6140           16153                           BZF      INDWORK                               
049412,000198:    6141           77711                           MASK     HIGH4                                 #  SEE IF IN FIXED BANK.
049413,000199:    6142           00006                           EXTEND                                         
049414,000200:    6143           16155                           BZF      INDERASE                              
049415,000201: 
049416,000202:    6144           30116                           CA       ADDRWD                                #  IN FIXED - SWITCH BANKS AND CREATE
049417,000203:    6145           54004                           TS       FBANK                                 #  SUB-ADDRESS.
049418,000204:    6146           75054                           MASK     LOW10                                 
049419,000205:    6147           65005                           AD       2K                                    
049420,000206:    6150           54116                           TS       ADDRWD                                
049421,000207:    6151           50020        ITR11              INDEX    CYR                                   
049422,000208:    6152           36242                           3        INDJUMP    -1                         
049423,000209: 
049424,000210:    6153           30120        INDWORK            CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO WORK AREA.
049425,000211:    6154           16161                           TCF      ITR13      -1                         
049426,000212: 
049427,000213:    6155           35051        INDERASE           CA       OCT1400                               
049428,000214:    6156           56116                           XCH      ADDRWD                                
049429,000215:    6157           54003                           TS       EBANK                                 
049430,000216:    6160           74373                           MASK     LOW8                                  
049431,000217:    6161           26116                 -1        ADS      ADDRWD                                

Page 1112

049433,000219:    6162           50020        ITR13              INDEX    CYR                                   
049434,000220:    6163           36242                           3        INDJUMP    -1                         
049435,000221: 

Page 1113

049437,000223:                                                                                                  #  PUSH-UP ROUTINES.  WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
049438,000224:                                                                                                  #  LIST.  IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
049439,000225:                                                                                                  #  IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.).  EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
049440,000226:                                                                                                  #  BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
049441,000227: 
049442,000228:                                                                                                  #        1.      VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
049443,000229:                                                                                                  #                RESULT, VXSC WANTS A SCALAR.
049444,000230: 
049445,000231:                                                                                                  #        2.      THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION.  THIS
049446,000232:                                                                                                  #                INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
049447,000233: 
049448,000234:                                                                                                  #        3.      SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
049449,000235:                                                                                                  #                THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
049450,000236: 
049451,000237:    6164           34374        PUSHUP             CAF      OCT23                                 #  IF THE LOW 5 BITS OF CYR ARE LESS THAN
049452,000238:    6165           70020                           MASK     CYR                                   #  20, THIS OP REQUIRES SPECIAL ATTENTION.
049453,000239:    6166           66171                           AD       -OCT10                                #  (NO -0).
049454,000240:    6167           10000                           CCS      A                                     
049455,000241:    6170           16202                           TCF      REGUP                                 #  FOR ALL CODES GREATER THAN OCT 7.
049456,000242: 
049457,000243:    6171           77767        -OCT10             OCT      -10                                   
049458,000244: 
049459,000245:    6172           66061                           AD       NEG4                                  #  WE NOW HAVE 7 - OP CODE (MOD4).  SEE IF
049460,000246:    6173           10000                           CCS      A                                     #  THE OP CODE (MOD4) IS THREE (REVERSE).
049461,000247:    6174           50000                           INDEX    A                                     #  NO - THE MODE IS DEFINITE.  PICK UP THE
049462,000248:    6175           46213                           CS       NO.WDS                                
049463,000249:    6176           16204                           TCF      REGUP      +2                         
049464,000250: 
049465,000251:    6177           50163                           INDEX    MODE                                  #  FOR VXSC AND V/SC WE WANT THE REQUIRED
049466,000252:    6200           46211                           CS       REVCNT                                #  PUSHLOC DECREMENT WITHOUT CHANGING THE
049467,000253:    6201           16204                           TCF      REGUP      +2                         #  MODE AT THIS TIME.
049468,000254: 
049469,000255:    6202           50163        REGUP              INDEX    MODE                                  #  MOST ALL OP CODES PUSHUP HERE.
049470,000256:    6203           46213                           CS       NO.WDS                                
049471,000257:    6204           26166                 +2        ADS      PUSHLOC                               
049472,000258:    6205           54116                           TS       ADDRWD                                
049473,000259:    6206           50020        ITR14              INDEX    CYR                                   
049474,000260:    6207           76242                           7        INDJUMP    -1                         #  (THE INDEX MAKES THIS A TCF.)
049475,000261: 
049476,000262:    6210           00002                           OCT      2                                     #  REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
049477,000263:    6211           00006        REVCNT             OCT      6                                     #  WORDS, SCALAR TAKES 6.
049478,000264:    6212           00006                           OCT      6                                     
049479,000265:    6213           00002        NO.WDS             OCT      2                                     #  CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
049480,000266:    6214           00003        OCTAL3             OCT      3                                     #  2 IN DP, AND 3 IN TP.
049481,000267:    6215           00006                           OCT      6                                     
049482,000268: 

Page 1114

049484,000270:                                                                                                  #  TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
049485,000271: 
049486,000272:    6216           10020        OPJUMP2            CCS      CYR                                   #  TEST SECOND PREFIX BIT.
049487,000273:    6217           16232                           TCF      OPJUMP3                               #  TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
049488,000274: 
049489,000275:    6220           77722        -ENDVAC            DEC      -45        B-14                       
049490,000276: 
049491,000277:                                                                                                  #  THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10.  THEY ARE BASICALLY WORK AREA ADDRESSES
049492,000278:                                                                                                  #  IN THE RANGE 0-52, ERASABLE ECADR CONSTANTS FROM 100-3777, AND FCADRS ABOVE THAT.  ALL 15 BITS ARE AVAILABLE
049493,000279:                                                                                                  #  IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
049494,000280: 
049495,000281:    6221           24164        15BITADR           INCR     LOC                                   #  (ENTRY HERE FROM STCALL).
049496,000282:    6222           50164                           INDEX    LOC                                   #  PICK UP ADDRESS WORD.
049497,000283:    6223           30000                           CA       0                                     
049498,000284:    6224           54117                           TS       POLISH                                #  WE MAY NEED A SUBADDRESS LATER.
049499,000285: 
049500,000286:    6225           35055                           CAF      LOW7+2K                               #  THESE INSTRUCTIONS ARE IN BANK 1.
049501,000287:    6226           54004                           TS       FBANK                                 
049502,000288:    6227           70020                           MASK     CYR                                   
049503,000289:    6230           50000        ITR7               INDEX    A                                     
049504,000290:    6231           16303                           TCF      MISCJUMP                              
049505,000291: 

Page 1115

049507,000293:                                                                                                  #  COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
049508,000294: 
049509,000295:    6232           54004        OPJUMP3            TS       FBANK                                 #  CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
049510,000296:                                                                                                  #           ITRACE (6) REFERS TO "OPJUMP3".
049511,000297:    6233           10020                           CCS      CYR                                   #  TEST THIRD PREFIX BIT.
049512,000298:    6234           50000                           INDEX    A                                     #  THE DECREMENTED UNARY CODE IS IN BITS
049513,000299:    6235           12000                           TCF      UNAJUMP                               #  1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
049514,000300: 
049515,000301:    6236           10163                           CCS      MODE                                  #  ITS A SHORT SHIFT CODE.  SEE IF PRESENT
049516,000302:    6237           12017                           TCF      SHORTT                                #  SCALAR OR VECTOR.
049517,000303:    6240           12017                           TCF      SHORTT                                
049518,000304:    6241           12121                           TCF      SHORTV                                #  CALLS THE APPROPRIATE ROUTINE.
049519,000305: 
049520,000306:    6242     4364               FBANKMSK           EQUALS   BANKMASK                              
049521,000307:    6242           00122        LVBUF              ADRES    VBUF                                  
049522,000308: 

Page 1116

049524,000310:                                                                                                  #  THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
049525,000311: 
049526,000312:    6243           16454        INDJUMP            TCF      VLOAD                                 #  00 - LOAD MPAC WITH A VECTOR.
049527,000313:    6244           17040                           TCF      TAD                                   #  01 - TRIPLE PRECISION ADD TO MPAC.
049528,000314:    6245           17624                           TCF      SIGN                                  #  02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
049529,000315:    6246           17350                           TCF      VXSC                                  #  03 - VECTOR TIMES SCALAR.
049530,000316:    6247           16652                           TCF      CGOTO                                 #  04 - COMPUTED GO TO.
049531,000317:    6250           16437                           TCF      TLOAD                                 #  05 - LOAD MPAC WITH TRIPLE PRECISION.
049532,000318:    6251           16021                           TCF      DLOAD                                 #  06 - LOAD MPAC WITH A DP SCALAR.
049533,000319:    6252           17573                           TCF      V/SC                                  #  07 - VECTOR DIVIDED BY SCALAR.
049534,000320: 
049535,000321:    6253           16450                           TCF      SLOAD                                 #  10 - LOAD MPAC IN SINGLE PRECISION.
049536,000322:    6254           16567                           TCF      SSP                                   #  11 - SET SINGLE PRECISION INTO X.
049537,000323:    6255           16472                           TCF      PDDL                                  #  12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
049538,000324:    6256           17303                           TCF      MXV                                   #  13 - MATRIX POST-MULTIPLIED BY VECTOR.
049539,000325:    6257           16526                           TCF      PDVL                                  #  14 - PUSH DOWN AND VECTORLOAD.
049540,000326:    6260           16575                           TCF      CCALL                                 #  15 - COMPUTED CALL.
049541,000327:    6261           17306                           TCF      VXM                                   #  16 - MATRIX PRE-MULTIPLIED BY VECTOR.
049542,000328:    6262           17565                           TCF      TSLC                                  #  17 - NORMALIZE MPAC (SCALAR ONLY).
049543,000329: 
049544,000330:    6263           17543                           TCF      DMPR                                  #  20 - DP MULTIPLY AND ROUND.
049545,000331:    6264           17546                           TCF      DDV                                   #  21 - DP DIVIDE BY.
049546,000332:    6265           17552                           TCF      BDDV                                  #  22 - DP DIVIDE INTO.
049547,000333:    6266           17570                           TCF      GSHIFT                                #  23 - GENERAL SHIFT INSTRUCTION.
049548,000334:    6267           16720                           TCF      VAD                                   #  24 - VECTOR ADD.
049549,000335:    6270           16716                           TCF      VSU                                   #  25 - VECTOR SUBTRACT.
049550,000336:    6271           17005                           TCF      BVSU                                  #  26 - VECTOR SUBTRACT FROM.
049551,000337:    6272           17300                           TCF      DOT                                   #  27 - VECTOR DOT PRODUCT.
049552,000338: 
049553,000339:    6273           17427                           TCF      VXV                                   #  30 - VECTOR CROSS PRODUCT.
049554,000340:    6274           17374                           TCF      VPROJ                                 #  31 - VECTOR PROJECTION.
049555,000341:    6275           16754                           TCF      DSU                                   #  32 - DP SUBTRACT.
049556,000342:    6276           17031                           TCF      BDSU                                  #  33 - DP SUBTRACT FROM.
049557,000343:    6277           16744                           TCF      DAD                                   #  34 - DP ADD.
049558,000344:    6300           16300                           TCF      +0                                    #  35 - AVAILABLE
049559,000345:    6301           17541                           TCF      DMP1                                  #  36 - DP MULTIPLY.
049560,000346:    6302           17562                           TCF      SETPD                                 #  37 - SET PUSH DOWN POINTER (DIRECT ONLY)
049561,000347: 
049562,000348:                                                                                                  #  CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
049563,000349: 

Page 1117

049565,000351:                                                                                                  #  THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
049566,000352: 
049567,000353:    6303           12371        MISCJUMP           TCF      AXT                                   #  00 - ADDRESS TO INDEX TRUE.
049568,000354:    6304           12376                           TCF      AXC                                   #  01 - ADDRESS TO INDEX COMPLEMENTED.
049569,000355:    6305           12401                           TCF      LXA                                   #  02 - LOAD INDEX FROM ERASABLE.
049570,000356:    6306           12405                           TCF      LXC                                   #  03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
049571,000357:    6307           12411                           TCF      SXA                                   #  04 - STORE INDEX IN ERASABLE.
049572,000358:    6310           12417                           TCF      XCHX                                  #  05 - EXCHANGE INDEX WITH ERASABLE.
049573,000359:    6311           12433                           TCF      INCR                                  #  06 - INCREMENT INDEX REGISTER.
049574,000360:    6312           12442                           TCF      TIX                                   #  07 - TRANSFER ON INDEX.
049575,000361: 
049576,000362:    6313           12425                           TCF      XAD                                   #  10 - INDEX REGISTER ADD FROM ERASABLE.
049577,000363:    6314           12436                           TCF      XSU                                   #  11 - INDEX SUBTRACT FROM ERASABLE.
049578,000364:    6315           12514                           TCF      BZE/GOTO                              #  12 - BRANCH ZERO AND GOTO.
049579,000365:    6316           12521                           TCF      BPL/BMN                               #  13 - BRANCH PLUS AND BRANCH MINUS.
049580,000366:    6317           12474                           TCF      RTB/BHIZ                              #  14 - RETURN TO BASIC AND BRANCH HI ZERO.
049581,000367:    6320           12534                           TCF      CALL/ITA                              #  15 - CALL AND STORE QPRET.
049582,000368:    6321           12543                           TCF      SW/                                   #  16 - SWITCH INSTRUCTIONS AND AVAILABLE.
049583,000369:    6322           12504                           TCF      BOV(B)                                #  17 - BRANCH ON OVERFLOW TO BASIC OR INT.
049584,000370: 

Page 1118

049586,000372:                                                                                                  #  THE FOLLOWING JUMP TABLE APPIES TO UNARY INSTRUCTIONS.
049587,000373:    6323                                           COUNT    00/INTER                              
049588,000374: 00,2000                                           BANK     0                                     #  00 - EXIT - DETECTED EARLIER.
049589,000375: 00,2000           13207        UNAJUMP            TCF      SQRT                                  #  01 - SQUARE ROOT.
049590,000376: 00,2001           13527                           TCF      SINE                                  #  02 - SIN.
049591,000377: 00,2002           13516                           TCF      COSINE                                #  03 - COS.
049592,000378: 00,2003           13607                           TCF      ARCSIN                                #  04 - ARC SIN.
049593,000379: 00,2004           13611                           TCF      ARCCOS                                #  05 - ARC COS.
049594,000380: 00,2005           13174                           TCF      DSQ                                   #  06 - DP SQUARE.
049595,000381: 00,2006           12116                           TCF      ROUND                                 #  07 - ROUND TO DP.
049596,000382: 
049597,000383: 00,2007           17637                           TCF      COMP                                  #  10 - COMPLEMENT VECTOR OR SCALAR.
049598,000384: 00,2010           13232                           TCF      VDEF                                  #  11 - VECTOR DEFINE.
049599,000385: 00,2011           13023                           TCF      UNIT                                  #  12 - UNIT VECTOR.
049600,000386: 00,2012           13176                           TCF      ABVALABS                              #  13 - LENGTH OF VECTOR OR MAG OF SCALAR.
049601,000387: 00,2013           13245                           TCF      VSQ                                   #  14 - SQUARE OF LENGTH OF VECTOR.
049602,000388: 00,2014           16323                           TCF      STADR                                 #  15 - PUSH UP ON STORE CODE.
049603,000389: 00,2015           13274                           TCF      RVQ                                   #  16 - RETURN VIA QPRET.
049604,000390: 00,2016           13247                           TCF      PUSH                                  #  17 - PUSH MPAC DOWN.
049605,000391: 

Page 1119

049607,000393:                                                                                                  #  SECTION 2     LOAD AND STORE PACKAGE.
049608,000394: 
049609,000395:                                                                                                  #  A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
049610,000396:                                                                                                  #  ACCUMULATOR (MPAC).  IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A 
049611,000397:                                                                                                  #  STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS.  MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
049612,000398:                                                                                                  #  FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC.  FOUR OPTIONS ARE AVAILABLE:
049613,000399: 
049614,000400:                                                                                                  #        1. STORE        STORE MPAC.  THE E ADDRESS MAY BE INDEXED.
049615,000401:                                                                                                  #        2. STODL        STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (THE LOAD MAY BE INDEXED).
049616,000402:                                                                                                  #        3. STOVL        STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
049617,000403:                                                                                                  #        4. STCALL       STORE AND DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE).
049618,000404: 
049619,000405:                                                                                                  #  STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
049620,000406: 
049621,000407:    6323                                           BLOCK    3                                     
049622,000408: 
049623,000409:    6323                                           COUNT    03/INTER                              
049624,000410: 
049625,000411:    6323           30165        STADR              CA       BANKSET                               #  THE STADR CODE (PUSHUP UP ON STORE
049626,000412:    6324           54004                           TS       FBANK                                 #  ADDRESS) ENTERS HERE.
049627,000413:    6325           24164                           INCR     LOC                                   
049628,000414:    6326           50164        ITR1               INDEX    LOC                                   #  THE STORECODE WAS STORED COMPLEMENTED TO
049629,000415:    6327           40000                           CS       0                                     #  MAKE IT LOOK LIKE AN OPCODE PAIR.
049630,000416:    6330           67716                           AD       NEGONE                                #  (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
049631,000417: 
049632,000418:    6331           54116        DOSTORE            TS       ADDRWD                                
049633,000419:    6332           74372                           MASK     LOW11                                 #  ENTRY FROM DISPATCHER. SAVE THE ERASABLE
049634,000420:    6333           56116                           XCH      ADDRWD                                #  ADDRESS AND JUMP ON THE STORE CODE NO.
049635,000421:    6334           77671                           MASK     B12T14                                
049636,000422:    6335           00006                           EXTEND                                         
049637,000423:    6336           75013                           MP       BIT5                                  #  EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
049638,000424:    6337           50000        ITR0               INDEX    A                                     
049639,000425:    6340           16341                           TCF      STORJUMP                              
049640,000426: 

Page 1120

049642,000428:                                                                                                  #  STORE CODE JUMP TABLE.  CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
049643,000429:                                                                                                  #  A SUPPLIED OPERATION CODE.
049644,000430: 
049645,000431:                                                                                                  #  STORE STORE,1 AND STORE,2 RETURN TO DANZIG, THUS RESETTING THE EBANK TO ITS STATE AT INTPRET.
049646,000432: 
049647,000433:    6341           06371        STORJUMP           TC       STORE                                 #  STORE.
049648,000434:    6342           16030                           TCF      DANZIG                                #  PICK UP NEW OP CODE(S).
049649,000435:    6343           06363                           TC       STORE,1                               
049650,000436:    6344           16030                           TCF      DANZIG                                
049651,000437:    6345           06366                           TC       STORE,2                               
049652,000438:    6346           16030                           TCF      DANZIG                                
049653,000439: 
049654,000440:    6347           06371                           TC       STORE                                 #  STODL.
049655,000441:    6350           16427                           TCF      DODLOAD                               
049656,000442: 
049657,000443:    6351           06371                           TC       STORE                                 #  STODL WITH INDEXED LOAD ADDRESS.
049658,000444:    6352           16113                           TCF      DODLOAD*                              
049659,000445: 
049660,000446:    6353           06371                           TC       STORE                                 #  STOVL.
049661,000447:    6354           16432                           TCF      DOVLOAD                               
049662,000448: 
049663,000449:    6355           06371                           TC       STORE                                 #  STOVL WITH INDEXED LOAD ADDRESS.
049664,000450:    6356           16435                           TCF      DOVLOAD*                              
049665,000451:    6357           06371                           TC       STORE                                 #  STOTC.
049666,000452:    6360           35030                           CAF      CALLCODE                              
049667,000453:    6361           54020                           TS       CYR                                   
049668,000454:    6362           16221                           TCF      15BITADR                              #  GET A 15 BIT ADDRESS.
049669,000455: 

Page 1121

049671,000457:                                                                                                  #  STORE CODE ADDRESS PROCESSOR.
049672,000458: 
049673,000459:    6363           50120        STORE,1            INDEX    FIXLOC                                
049674,000460:    6364           40046                           CS       X1                                    
049675,000461:    6365           16370                           TCF      PRESTORE                              
049676,000462: 
049677,000463:    6366           50120        STORE,2            INDEX    FIXLOC                                
049678,000464:    6367           40047                           CS       X2                                    
049679,000465:    6370           26116        PRESTORE           ADS      ADDRWD                                #  RESULTANT ADDRESS IS IN ERASABLE.
049680,000466: 
049681,000467:    6371           40116        STORE              CS       ADDRWD                                
049682,000468:    6372           65034                           AD       DEC45                                 
049683,000469:    6373           10000                           CCS      A                                     #  DOES THE ADDRESS POINT TO THE WORK AREA?
049684,000470:    6374           30120                           CA       FIXLOC                                #  YES.
049685,000471:    6375           16402                           TCF      AHEAD5                                
049686,000472:    6376           35051                           CA       OCT1400                               #  NO.  SET EBANK & MAKE UP SUBADDRESS.
049687,000473:    6377           56116                           XCH      ADDRWD                                
049688,000474:    6400           54003                           TS       EBANK                                 
049689,000475:    6401           74373                           MASK     LOW8                                  
049690,000476:    6402           26116        AHEAD5             ADS      ADDRWD                                
049691,000477: 

Page 1122

049693,000479:                                                                                                  #  STORING ROUTINES.  STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
049694,000480: 
049695,000481:    6403           00006        STARTSTO           EXTEND                                         #  MPAC,+1 MUST BE STORED IN ANY EVENT.
049696,000482:                                                                                                  #  ITRACE (5) REFERS TO "STARTSTO".
049697,000483:    6404           30155                           DCA      MPAC                                  
049698,000484:    6405           50116                           INDEX    ADDRWD                                
049699,000485:    6406           52001                           DXCH     0                                     
049700,000486: 
049701,000487:    6407           10163                           CCS      MODE                                  
049702,000488:    6410           16423                           TCF      TSTORE                                
049703,000489:    6411           00002                           TC       Q                                     
049704,000490: 
049705,000491:    6412           00006        VSTORE             EXTEND                                         
049706,000492:    6413           30160                           DCA      MPAC       +3                         
049707,000493:    6414           50116                           INDEX    ADDRWD                                
049708,000494:    6415           52003                           DXCH     2                                     
049709,000495: 
049710,000496:    6416           00006                           EXTEND                                         
049711,000497:    6417           30162                           DCA      MPAC       +5                         
049712,000498:    6420           50116                           INDEX    ADDRWD                                
049713,000499:    6421           52005                           DXCH     4                                     
049714,000500:    6422           00002                           TC       Q                                     
049715,000501: 
049716,000502:    6423           30156        TSTORE             CA       MPAC       +2                         
049717,000503:    6424           50116                           INDEX    ADDRWD                                
049718,000504:    6425           54002                           TS       2                                     
049719,000505:    6426           00002                           TC       Q                                     
049720,000506: 

Page 1123

049722,000508:                                                                                                  #  ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
049723,000509:                                                                                                  #  ITSELF.
049724,000510: 
049725,000511:    6427           37701        DODLOAD            CAF      DLOADCOD                              
049726,000512:    6430           54020                           TS       CYR                                   
049727,000513:    6431           16055                           TCF      DIRADRES                              #  GO GET A DIRECT ADDRESS.
049728,000514: 
049729,000515:    6432           35001        DOVLOAD            CAF      VLOADCOD                              
049730,000516:    6433           54020                           TS       CYR                                   
049731,000517:    6434           16055                           TCF      DIRADRES                              
049732,000518: 
049733,000519:    6435           36056        DOVLOAD*           CAF      VLOAD*                                
049734,000520:    6436           16114                           TCF      DODLOAD*   +1                         #  PROLOGUE TO INDEX ROUTINE.
049735,000521: 

Page 1124

049737,000523:                                                                                                  #  THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
049738,000524: 
049739,000525:    6437           50116        TLOAD              INDEX    ADDRWD                                
049740,000526:    6440           30002                           CA       2                                     #  LOAD A TRIPLE PRECISION ARGUMENT INTO
049741,000527:    6441           54156                           TS       MPAC       +2                         #  THE FIRST THREE MPAC REGISTERS, WITH THE
049742,000528:    6442           00006                           EXTEND                                         #  CONTENTS OF THE OTHER FOUR IRRELEVANT.
049743,000529:    6443           50116                           INDEX    ADDRWD                                
049744,000530:    6444           30001                           DCA      0                                     
049745,000531:    6445           52155                           DXCH     MPAC                                  
049746,000532:    6446           35017        TMODE              CAF      ONE                                   
049747,000533:    6447           16027                           TCF      NEWMODE                               #  DECLARE TRIPLE PRECISION MODE.
049748,000534: 
049749,000535:    6450           22007        SLOAD              ZL                                             #  LOAD A SINGLE PRECISION NUMBER INTO
049750,000536:    6451           50116                           INDEX    ADDRWD                                #  MPAC, SETTING MPAC+1,2 TO ZERO.  THE
049751,000537:    6452           30000                           CA       0                                     #  CONTENTS OF THE REMAINING MPAC REGISTERS
049752,000538:    6453           16024                           TCF      SLOAD2                                #  ARE IRRELEVANT.
049753,000539: 
049754,000540:    6454           00006        VLOAD              EXTEND                                         #  LOAD A DOUBLE PRECISION VECTOR INTO
049755,000541:    6455           50116                           INDEX    ADDRWD                                #  MPAC,+1, MPAC+3,4, AND MPAC+5,6.  THE
049756,000542:    6456           30001                           DCA      0                                     #  CONTENTS OF MPAC +2 ARE IRRELEVANT.
049757,000543:    6457           52155                           DXCH     MPAC                                  
049758,000544: 
049759,000545:    6460           00006        ENDVLOAD           EXTEND                                         #  PDVL COMES HERE TO FINISH UP FOR DP, TP.
049760,000546:    6461           50116                           INDEX    ADDRWD                                
049761,000547:    6462           30003                           DCA      2                                     
049762,000548:    6463           52160                           DXCH     MPAC       +3                         
049763,000549: 
049764,000550:    6464           00006                 +4        EXTEND                                         #  TPDVL FINISHES HERE.
049765,000551:    6465           50116                           INDEX    ADDRWD                                
049766,000552:    6466           30005                           DCA      4                                     
049767,000553:    6467           52162                           DXCH     MPAC       +5                         
049768,000554: 
049769,000555:    6470           45017        VMODE              CS       ONE                                   #  DECLARE VECTOR MODE.
049770,000556:    6471           16027                           TCF      NEWMODE                               
049771,000557: 

Page 1125

049773,000559:                                                                                                  #  THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
049774,000560:                                                                                                  #        1.      PUSH            PUSHDOWN AND NO LOAD.
049775,000561:                                                                                                  #        2.      PDDL            PUSHDOWN AND DOUBLE PRECISION LOAD.
049776,000562:                                                                                                  #        3.      PDVL            PUSHDOWN AND VECTOR LOAD.
049777,000563: 
049778,000564:    6472           00006        PDDL               EXTEND                                         
049779,000565:    6473           50116                           INDEX    ADDRWD                                #  LOAD MPAC,+1, PUSHING THE FORMER
049780,000566:    6474           30001                           DCA      0                                     #  CONTENTS DOWN.
049781,000567:    6475           52155                           DXCH     MPAC                                  
049782,000568:    6476           50166                           INDEX    PUSHLOC                               
049783,000569:    6477           52001                           DXCH     0                                     
049784,000570: 
049785,000571:    6500           50163                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER APPRO-
049786,000572:    6501           36213                           CAF      NO.WDS                                #  PRIATELY.
049787,000573:    6502           26166                           ADS      PUSHLOC                               
049788,000574: 
049789,000575:    6503           10163                           CCS      MODE                                  
049790,000576:    6504           16521                           TCF      ENDTPUSH                              
049791,000577:    6505           16517                           TCF      ENDDPUSH                              
049792,000578: 
049793,000579:    6506           54163                           TS       MODE                                  #  NOW DP.
049794,000580:    6507           54156        ENDVPUSH           TS       MPAC       +2                         
049795,000581:    6510           52160                           DXCH     MPAC       +3                         #  PUSH DOWN THE REST OF THE VECTOR HERE.
049796,000582:    6511           50166                           INDEX    PUSHLOC                               
049797,000583:    6512           51775                           DXCH     0          -4                         
049798,000584: 
049799,000585:    6513           52162                           DXCH     MPAC       +5                         
049800,000586:    6514           50166                           INDEX    PUSHLOC                               
049801,000587:    6515           51777                           DXCH     0          -2                         
049802,000588: 
049803,000589:    6516           16030                           TCF      DANZIG                                
049804,000590: 
049805,000591:    6517           54156        ENDDPUSH           TS       MPAC       +2                         #  SET MPAC +2 TO ZERO AND EXIT ON DP.
049806,000592:    6520           16030                           TCF      DANZIG                                
049807,000593: 
049808,000594:    6521           54163        ENDTPUSH           TS       MODE                                  
049809,000595:    6522           56156                           XCH      MPAC       +2                         #  ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
049810,000596:    6523           50166                 +2        INDEX    PUSHLOC                               #  DOWN THE OLD CONTENTS
049811,000597:    6524           53777                           TS       0          -1                         
049812,000598:    6525           16030                           TCF      DANZIG                                
049813,000599: 

Page 1126

049815,000601:                                                                                                  #  PDVL - PUSHDOWN AND VECTOR LOAD.
049816,000602: 
049817,000603:    6526           00006        PDVL               EXTEND                                         #  RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
049818,000604:    6527           50116                           INDEX    ADDRWD                                
049819,000605:    6530           30001                           DCA      0                                     
049820,000606:    6531           52155                           DXCH     MPAC                                  
049821,000607:    6532           50166                           INDEX    PUSHLOC                               
049822,000608:    6533           52001                           DXCH     0                                     
049823,000609: 
049824,000610:    6534           50163                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER.
049825,000611:    6535           36213                           CAF      NO.WDS                                
049826,000612:    6536           26166                           ADS      PUSHLOC                               
049827,000613: 
049828,000614:    6537           10163                           CCS      MODE                                  #  TEST PAST MODE.
049829,000615:    6540           16557                           TCF      TPDVL                                 
049830,000616:    6541           16460                           TCF      ENDVLOAD                              #  JUST LOAD LAST FOUR REGISTERS ON DP.
049831,000617: 
049832,000618:    6542           00006        VPDVL              EXTEND                                         #  PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
049833,000619:    6543           50116                           INDEX    ADDRWD                                
049834,000620:    6544           30003                           DCA      2                                     
049835,000621:    6545           52160                           DXCH     MPAC       +3                         
049836,000622:    6546           50166                           INDEX    PUSHLOC                               
049837,000623:    6547           51775                           DXCH     0          -4                         
049838,000624: 
049839,000625:    6550           00006                           EXTEND                                         
049840,000626:    6551           50116                           INDEX    ADDRWD                                
049841,000627:    6552           30005                           DCA      4                                     
049842,000628:    6553           52162                           DXCH     MPAC       +5                         
049843,000629:    6554           50166                           INDEX    PUSHLOC                               
049844,000630:    6555           51777                           DXCH     0          -2                         
049845,000631: 
049846,000632:    6556           16030                           TCF      DANZIG                                
049847,000633: 
049848,000634:    6557           00006        TPDVL              EXTEND                                         #  ON TP, WE MUST LOAD THE Y COMPONENT
049849,000635:    6560           50116                           INDEX    ADDRWD                                #  BEFORE STORING MPAC +2 IN CASE THIS IS A
049850,000636:    6561           30003                           DCA      2                                     #  PUSHUP.
049851,000637:    6562           52160                           DXCH     MPAC       +3                         
049852,000638: 
049853,000639:    6563           30156                           CA       MPAC       +2                         
049854,000640:    6564           50166                           INDEX    PUSHLOC                               #  IN DP.
049855,000641:    6565           53777                           TS       0          -1                         
049856,000642:    6566           16464                           TCF      ENDVLOAD   +4                         
049857,000643: 
049858,000644:                                                                                                  #  SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
049859,000645: 
049860,000646:    6567           24164        SSP                INCR     LOC                                   #  PICK UP THE WORD FOLLOWING THE GIVEN
049861,000647:    6570           50164                           INDEX    LOC                                   #  ADDRESS AND STORE IT AT X.
049862,000648:    6571           30000                           CA       0                                     
049863,000649:    6572           50116        STORE1             INDEX    ADDRWD                                #  SOME INDEX AND MISCELLANEOUS OPS END
049864,000650:    6573           54000                           TS       0                                     #  HERE.

Page 1127

049866,000652:    6574           16030                           TCF      DANZIG                                
049867,000653: 

Page 1128

049869,000655:                                                                                                  #  SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
049870,000656: 
049871,000657:                                                                                                  #  THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
049872,000658:                                                                                                  #        1.      GOTO            GO TO.
049873,000659:                                                                                                  #        2.      CALL            CALL SUBROUTINE SETTING QPRET.
049874,000660:                                                                                                  #        3.      CGOTO           COMPUTED GO TO.
049875,000661:                                                                                                  #        4.      CCALL           COMPUTED CALL.
049876,000662:                                                                                                  #        7.      BPL             BRANCH IF MPAC POSITIVE OR ZERO.
049877,000663:                                                                                                  #        8.      BZE             BRANCH IF MPAC ZERO.
049878,000664:                                                                                                  #        9.      BMN             BRANCH IF MPAC NEGATIVE NON-ZERO.
049879,000665: 
049880,000666:    6575           24164        CCALL              INCR     LOC                                   #  MAINTAIN LOC FOR QPRET COMPUTATION.
049881,000667:    6576           50164                           INDEX    LOC                                   
049882,000668:    6577           30000                           CAF      0                                     #  GET BASE ADDRESS OF CADR LIST.
049883,000669:    6600           50116                           INDEX    ADDRWD                                
049884,000670:    6601           60000                           AD       0                                     #  ADD INCREMENT.
049885,000671:    6602           54004                           TS       FBANK                                 #  SELECT DESIRED CADR.
049886,000672:    6603           75054                           MASK     LOW10                                 
049887,000673:    6604           50000                           INDEX    A                                     
049888,000674:    6605           32000                           CAF      10000                                 
049889,000675:    6606           54117                           TS       POLISH                                
049890,000676: 
049891,000677:    6607           30165        CALL               CA       BANKSET                               #  FOR ANY OF THE CALL OPTIONS, MAKE UP THE
049892,000678:    6610           74364                           MASK     BANKMASK                              #  ADDRESS OF THE NEXT OP-CODE PAIR/STORE
049893,000679:    6611           64364                           AD       BANKMASK                              #  CODE AND LEAVE IT IN QPRET.  NOTE THAT
049894,000680:    6612           60164                           AD       LOC                                   #  BANKMASK = -(2000 - 1).
049895,000681:    6613           50120                           INDEX    FIXLOC                                
049896,000682:    6614           54052                           TS       QPRET                                 
049897,000683: 
049898,000684:    6615           30117        GOTO               CA       POLISH                                #  BASIC BRANCHING SEQUENCE.
049899,000685:    6616           77711                 +1        MASK     HIGH4                                 
049900,000686:    6617           00006                           EXTEND                                         
049901,000687:    6620           16631                           BZF      GOTOERS                               #  SEE IF ADDRESS POINTS TO FIXED OR ERAS.
049902,000688:    6621           30165                 +4        CA       BANKSET                               #  SET EBANK PART OF BBANK.  NEXT, SET UP
049903,000689:    6622           54006                           TS       BBANK                                 #  FBANK.  THE COMBINATION IS PICKED UP &
049904,000690:    6623           30117                           CA       POLISH                                #  PUT INTO BANKSET AT INTPRET +2.
049905,000691:    6624           54004                           TS       FBANK                                 
049906,000692:    6625           75054                           MASK     LOW10                                 
049907,000693:    6626           65005                           AD       2K                                    
049908,000694:    6627           54164                           TS       LOC                                   
049909,000695:    6630           16011                           TCF      INTPRET    +3                         
049910,000696: 
049911,000697:    6631  E3,1400                                  EBANK=   1400                                  #  SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
049912,000698: 
049913,000699:    6631           30117        GOTOERS            CA       POLISH                                #  THE GIVEN ADDRESS IS IN ERASABLE - SEE
049914,000700:    6632           66220                           AD       -ENDVAC                               #  IF RELATIVE TO THE WORK AREA.
049915,000701:    6633           10000                           CCS      A                                     
049916,000702:    6634           30117                           CA       POLISH                                #  GENERAL ERASABLE.
049917,000703:    6635           16644                           TCF      GOTOGE                                
049918,000704: 

Page 1129

049920,000706:    6636           30120                           CA       FIXLOC                                #  WORK AREA.
049921,000707:    6637           60117                           AD       POLISH                                
049922,000708:    6640           50000                           INDEX    A                                     #  USE THE GIVEN ADDRESS AS THE ADDRESS OF
049923,000709:    6641           30000                           CA       0                                     #  THE BRANCH ADDRESS.
049924,000710:    6642           54117                           TS       POLISH                                
049925,000711:    6643           16616                           TCF      GOTO       +1                         #  ALLOWS ARBITRARY INDIRECTNESS LEVELS.
049926,000712: 
049927,000713:    6644           54003        GOTOGE             TS       EBANK                                 
049928,000714:    6645           74373                           MASK     LOW8                                  
049929,000715:    6646           50000                           INDEX    A                                     #  USE THE GIVEN ADDRESS AS THE ADDRESS OF
049930,000716:    6647           31400                           CA       1400                                  #  THE BRANCH ADDRESS.
049931,000717:    6650           54117                           TS       POLISH                                
049932,000718:    6651           16616                           TCF      GOTO       +1                         
049933,000719: 
049934,000720:    6652           50164        CGOTO              INDEX    LOC                                   #  COMPUTED GO TO.  PICK UP ADDRESS OF CADR
049935,000721:    6653           30001                           CA       1                                     #  LIST.
049936,000722:    6654           50116                           INDEX    ADDRWD                                #  ADD MODIFIER.
049937,000723:    6655           60000                           AD       0                                     
049938,000724:    6656           54004                           TS       FBANK                                 #  SELECT GOTO ADDRESS.
049939,000725:    6657           75054                           MASK     LOW10                                 
049940,000726:    6660           50000                           INDEX    A                                     
049941,000727:    6661           32000                           CA       10000                                 
049942,000728:    6662           54117                           TS       POLISH                                
049943,000729:    6663           16616                           TCF      GOTO       +1                         #  WITH ADDRESS IN A.
049944,000730: 
049945,000731:    6664           30165        SWBRANCH           CA       BANKSET                               #  SWITCH INSTRUCTIONS WHICH ELECT TO
049946,000732:    6665           54004                           TS       FBANK                                 #  BRANCH COME HERE TO DO SO.
049947,000733:    6666           50164                           INDEX    LOC                                   
049948,000734:    6667           30001                           CA       1                                     
049949,000735:    6670           54117                           TS       POLISH                                
049950,000736:    6671           16616                           TCF      GOTO       +1                         
049951,000737: 

Page 1130

049953,000739:                                                                                                  #  TRIPLE PRECISION BRANCHING ROUTINE.  IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
049954,000740:                                                                                                  #        L+1     IF MPAC IS GREATER THAN ZERO.
049955,000741:                                                                                                  #        L+2     IF MPAC IS EQUAL TO +0 OR -0.
049956,000742:                                                                                                  #        L+3     IF MPAC IS LESS THAN ZERO.
049957,000743: 
049958,000744:    6672           10154        BRANCH             CCS      MPAC                                  
049959,000745:    6673           00002                           TC       Q                                     
049960,000746:    6674           16676                           TCF      +2                                    #  ON ZERO.
049961,000747:    6675           16710                           TCF      NEG                                   
049962,000748: 
049963,000749:    6676           10155                           CCS      MPAC       +1                         
049964,000750:    6677           00002                           TC       Q                                     
049965,000751:    6700           16702                           TCF      +2                                    
049966,000752:    6701           16710                           TCF      NEG                                   
049967,000753: 
049968,000754:    6702           10156                           CCS      MPAC       +2                         
049969,000755:    6703           00002                           TC       Q                                     
049970,000756:    6704           16706                           TCF      +2                                    
049971,000757:    6705           16710                           TCF      NEG                                   
049972,000758: 
049973,000759:    6706           50002        Q+1                INDEX    Q                                     
049974,000760:    6707           00001                           TC       1                                     
049975,000761: 
049976,000762:    6710           50002        NEG                INDEX    Q                                     #  IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
049977,000763:    6711           00002                           TC       2                                     
049978,000764: 
049979,000765:    6712     6710               Q+2                =        NEG                                   
049980,000766: 
049981,000767:                                                                                                  #  ITRACE (3) REFERS TO "EXIT".
049982,000768: 
049983,000769:    6712           30165        EXIT               CA       BANKSET                               #  RESTORE USER'S BANK SETTING, AND LEAVE
049984,000770:    6713           54006                           TS       BBANK                                 #  INTERPRETIVE MODE.
049985,000771:    6714           50164                           INDEX    LOC                                   
049986,000772:    6715           00001                           TC       1                                     
049987,000773: 

Page 1131

049989,000775:                                                                                                  #  SECTION 3 - ADD/SUBTRACT PACKAGE.
049990,000776: 
049991,000777:                                                                                                  #  THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
049992,000778:                                                                                                  #  MPAC:
049993,000779:                                                                                                  #        1.      DAD     DOUBLE PRECISION ADD.
049994,000780:                                                                                                  #        2.      DSU     DOUBLE PRECISION SUBTRACT.
049995,000781:                                                                                                  #        3.      BDSU    DOUBLE PRECISION SUBTRACT FROM.
049996,000782:                                                                                                  #        4.      TAD     TRIPLE PRECISION ADD.
049997,000783:                                                                                                  #        5.      VAD     VECTOR ADD.
049998,000784:                                                                                                  #        6.      VSU     VECTOR SUBTRACT.
049999,000785:                                                                                                  #        7.      BVSU    VECTOR SUBTRACT FROM.
050000,000786:                                                                                                  #  THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
050001,000787: 
050002,000788:    6716           35001        VSU                CAF      BIT15                                 #  CHANGES 0 TO DCS.
050003,000789:    6717           16721                           TCF      +2                                    
050004,000790: 
050005,000791:    6720           34371        VAD                CAF      PRIO30                                #  CHANGES 0 TO DCA.
050006,000792:    6721           26116                           ADS      ADDRWD                                
050007,000793:    6722           00006                           EXTEND                                         
050008,000794:    6723           50116                           INDEX    ADDRWD                                
050009,000795:    6724           00003                           READ     HISCALAR                              #  DCA 2 OR DCS 2
050010,000796:    6725           20160                           DAS      MPAC       +3                         
050011,000797:    6726           00006                           EXTEND                                         #  CHECK OVERFLOW.
050012,000798:    6727           16731                           BZF      +2                                    
050013,000799:    6730           06763                           TC       OVERFLWY                              
050014,000800: 
050015,000801:    6731           00006                           EXTEND                                         
050016,000802:    6732           50116                           INDEX    ADDRWD                                
050017,000803:    6733           00005                           READ     CHAN5                                 #  DCA 4 OR DCS 4
050018,000804:    6734           20162                           DAS      MPAC       +5                         
050019,000805:    6735           00006                           EXTEND                                         
050020,000806:    6736           16740                           BZF      +2                                    
050021,000807:    6737           06760                           TC       OVERFLWZ                              
050022,000808: 
050023,000809:    6740           00006                           EXTEND                                         
050024,000810:    6741           50116                           INDEX    ADDRWD                                
050025,000811:    6742           00001                           READ     LCHAN                                 #  DCA 0 OR DCS 0
050026,000812:    6743           16747                           TCF      ENDVXV                                
050027,000813: 
050028,000814:    6744           00006        DAD                EXTEND                                         
050029,000815:    6745           50116                           INDEX    ADDRWD                                
050030,000816:    6746           30001                           DCA      0                                     
050031,000817:    6747           20155        ENDVXV             DAS      MPAC                                  #  VXV FINISHES HERE.
050032,000818:    6750           00006                           EXTEND                                         
050033,000819:    6751           16030                           BZF      DANZIG                                
050034,000820: 

Page 1132

050036,000822:    6752           06766        SETOVF             TC       OVERFLOW                              
050037,000823:    6753           16030                           TCF      DANZIG                                
050038,000824: 

Page 1133

050040,000826:    6754           00006        DSU                EXTEND                                         
050041,000827:    6755           50116                           INDEX    ADDRWD                                
050042,000828:    6756           40001                           DCS      0                                     
050043,000829:    6757           16747                           TCF      ENDVXV                                
050044,000830: 
050045,000831:    6760           54001        OVERFLWZ           TS       L                                     #  ENTRY FOR THIRD COMPONENT.
050046,000832:    6761           35022                           CAF      FIVE                                  
050047,000833:    6762           16765                           TCF      +3                                    
050048,000834: 
050049,000835:    6763           54001        OVERFLWY           TS       L                                     #  ENTRY FOR SECOND COMPONENT.
050050,000836:    6764           36214                           CAF      THREE                                 
050051,000837:    6765           56001                           XCH      L                                     
050052,000838: 
050053,000839:    6766           50000        OVERFLOW           INDEX    A                                     #  ENTRY FOR 1ST COMP OR DP (L=0).
050054,000840:    6767           45000                           CS       LIMITS                                #  PICK UP POSMAX OR NEGMAX.
050055,000841:    6770           54130                           TS       BUF                                   
050056,000842:    6771           00006                           EXTEND                                         
050057,000843:    6772           24000                           AUG      A                                     #  FORCE OVERFLOW.
050058,000844:    6773           50001                           INDEX    L                                     
050059,000845:    6774           26155                           ADS      MPAC       +1                         
050060,000846:    6775           54007                           TS       7                                     
050061,000847:    6776           35021                           CAF      ZERO                                  
050062,000848:    6777           60130                           AD       BUF                                   
050063,000849:    7000           50001                           INDEX    L                                     
050064,000850:    7001           26154                           ADS      MPAC                                  
050065,000851:    7002           54007                           TS       7                                     
050066,000852:    7003           00002                           TC       Q                                     #  NO OVERFLOW EXIT.
050067,000853:    7004           17121                           TCF      SETOVF2                               #  SET OVFIND AND EXIT.
050068,000854: 
050069,000855:    7005           00006        BVSU               EXTEND                                         
050070,000856:    7006           50116                           INDEX    ADDRWD                                
050071,000857:    7007           30003                           DCA      2                                     
050072,000858:    7010           52160                           DXCH     MPAC       +3                         
050073,000859:    7011           00006                           EXTEND                                         
050074,000860:    7012           40001                           DCOM                                           
050075,000861:    7013           20160                           DAS      MPAC       +3                         
050076,000862:    7014           00006                           EXTEND                                         
050077,000863:    7015           17017                           BZF      +2                                    
050078,000864:    7016           06763                           TC       OVERFLWY                              
050079,000865: 
050080,000866:    7017           00006                           EXTEND                                         
050081,000867:    7020           50116                           INDEX    ADDRWD                                
050082,000868:    7021           30005                           DCA      4                                     
050083,000869:    7022           52162                           DXCH     MPAC       +5                         
050084,000870:    7023           00006                           EXTEND                                         
050085,000871:    7024           40001                           DCOM                                           
050086,000872:    7025           20162                           DAS      MPAC       +5                         
050087,000873:    7026           00006                           EXTEND                                         
050088,000874:    7027           17031                           BZF      +2                                    
050089,000875:    7030           06760                           TC       OVERFLWZ                              
050090,000876: 

Page 1134

050092,000878:    7031           00006        BDSU               EXTEND                                         
050093,000879:    7032           50116                           INDEX    ADDRWD                                
050094,000880:    7033           30001                           DCA      0                                     
050095,000881:    7034           52155                           DXCH     MPAC                                  
050096,000882:    7035           00006                           EXTEND                                         
050097,000883:    7036           40001                           DCOM                                           
050098,000884:    7037           16747                           TCF      ENDVXV                                
050099,000885: 

Page 1135

050101,000887:                                                                                                  #  TRIPLE PRECISION ADD ROUTINE.
050102,000888: 
050103,000889:    7040           00006        TAD                EXTEND                                         
050104,000890:    7041           50116                           INDEX    ADDRWD                                
050105,000891:    7042           30002                           DCA      1                                     #  ADD MINOR PARTS FIRST.
050106,000892:    7043           20156                           DAS      MPAC       +1                         
050107,000893:    7044           50116                           INDEX    ADDRWD                                
050108,000894:    7045           60000                           AD       0                                     
050109,000895:    7046           60154                           AD       MPAC                                  
050110,000896:    7047           54154                           TS       MPAC                                  
050111,000897:    7050           16030                           TCF      DANZIG                                
050112,000898: 
050113,000899:    7051           16752                           TCF      SETOVF                                #  SET OVFIND IF SUCH OCCURS.
050114,000900: 

Page 1136

050116,000902:                                                                                                  #  ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
050117,000903:                                                                                                  #        1.  DMPSUB      DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
050118,000904:                                                                                                  #                        IS IN ADDRWD AND LEAVE A TRIPLE PRECISION RESULT IN MPAC.
050119,000905:                                                                                                  #        2.  ROUNDSUB    ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
050120,000906:                                                                                                  #        3.  DOTSUB      TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
050121,000907:                                                                                                  #                        AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
050122,000908:                                                                                                  #        4.  POLY        USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
050123,000909:                                                                                                  #                        COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.)
050124,000910: 
050125,000911:    7052           50002        DMP                INDEX    Q                                     #  BASIC SUBROUTINE FOR USE BY PINBALL, ETC
050126,000912:    7053           30000                           CAF      0                                     #  ADRES OF ARGUMENT FOLLOWS  TC DMP  .
050127,000913:    7054           24002                           INCR     Q                                     
050128,000914:    7055           54116                 -1        TS       ADDRWD                                #  (PROLOGUE FOR SETTING ADDRWD.)
050129,000915: 
050130,000916:    7056           50116        DMPSUB             INDEX    ADDRWD                                #  GET MINOR PART OF OPERAND AT C(ADDRWD).
050131,000917:    7057           30001                           CA       1                                     
050132,000918:    7060           54156                           TS       MPAC       +2                         #  THIS WORKS FOR SQUARING MPAC AS WELL.
050133,000919:    7061           35021                           CAF      ZERO                                  #  SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
050134,000920:    7062           56155                           XCH      MPAC       +1                         #  THE PARTIAL PRODUCTS WITH DAS
050135,000921:    7063           54135                           TS       MPTEMP                                #  INSTRUCTIONS.
050136,000922:    7064           00006                           EXTEND                                         
050137,000923:    7065           70156                           MP       MPAC       +2                         #  MINOR OF MPAC X MINOR OF C(ADDRWD).
050138,000924: 
050139,000925:    7066           56156                           XCH      MPAC       +2                         #  DISCARD MINOR PART OF ABOVE RESULT AND
050140,000926:    7067           00006                           EXTEND                                         #  FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
050141,000927:    7070           70154                           MP       MPAC                                  
050142,000928:    7071           20156                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
050143,000929: 
050144,000930:    7072           50116                           INDEX    ADDRWD                                #  GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
050145,000931:    7073           30000                           CA       0                                     
050146,000932:    7074           56135                           XCH      MPTEMP                                #  SAVE AND BRING OUT MINOR OF MPAC.
050147,000933:    7075           00006        DMPSUB2            EXTEND                                         
050148,000934:    7076           70135                           MP       MPTEMP                                #  MAJOR OF C(ADDRWD) X MINOR OF MPAC.
050149,000935:    7077           20156                           DAS      MPAC       +1                         #  ACCUMULATE, SETTING A TO NET OVERFLOW.
050150,000936: 
050151,000937:    7100           56154                           XCH      MPAC                                  #  SETTING MPAC TO 0 OR +-1.
050152,000938:    7101           00006                           EXTEND                                         
050153,000939:    7102           70135                           MP       MPTEMP                                #  MAJOR OF MPAC X MAJOR OF C(ADDRWD).
050154,000940:    7103           20155                           DAS      MPAC                                  #  GUARANTEED NO OVERFLOW.
050155,000941:    7104           00002                           TC       Q                                     #  49 MCT = .573 MS. INCLUDING RETURN.
050156,000942: 

Page 1137

050158,000944:                                                                                                  #  ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
050159,000945: 
050160,000946:    7105           35021        ROUNDSUB           CAF      ZERO                                  #  SET MPAC +2 = 0 FOR SCALARS AND CHANGE
050161,000947:    7106           54163                 +1        TS       MODE                                  #  MODE TO DP.
050162,000948: 
050163,000949:    7107           56156        VROUND             XCH      MPAC       +2                         #  BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
050164,000950:    7110           60000                           DOUBLE                                         
050165,000951:    7111           54001                           TS       L                                     
050166,000952:    7112           00002                           TC       Q                                     
050167,000953: 
050168,000954:    7113           60155                           AD       MPAC       +1                         #  ADD ROUNDING BIT IF MPAC +2 WAS GREATER
050169,000955:    7114           54155                           TS       MPAC       +1                         #  THAN .5 IN MAGNITUDE.
050170,000956:    7115           00002                           TC       Q                                     
050171,000957: 
050172,000958:    7116           60154                           AD       MPAC                                  #  PROPAGATE INTERFLOW.
050173,000959:    7117           54154                           TS       MPAC                                  
050174,000960:    7120           00002                           TC       Q                                     
050175,000961: 
050176,000962:    7121           54121        SETOVF2            TS       OVFIND                                #  (RARE).
050177,000963:    7122           00002                           TC       Q                                     
050178,000964: 

Page 1138

050180,000966:                                                                                                  #  THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
050181,000967:                                                                                                  #  REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD.  IN THIS CASE C(DOTINC) ARE SET TO 2. VXM, HOWEVER, SETS C(DOTINC) TO
050182,000968:                                                                                                  #  6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
050183,000969: 
050184,000970:    7123           35016        PREDOT             CAF      TWO                                   #  PROLOGUE TO SET DOTINC TO 2.
050185,000971:    7124           54136                           TS       DOTINC                                
050186,000972: 
050187,000973:    7125           00006        DOTSUB             EXTEND                                         
050188,000974:    7126           22137                           QXCH     DOTRET                                #  SAVE RETURN.
050189,000975:    7127           07056                           TC       DMPSUB                                #  DOT X COMPONENTS.
050190,000976:    7130           52160                           DXCH     MPAC       +3                         #  POSITION Y COMPONENT OF MPAC FOR
050191,000977:    7131           52155                           DXCH     MPAC                                  #  MULTIPLICATION WHILE SAVING RESULT IN
050192,000978:    7132           52131                           DXCH     BUF                                   #  THREE WORD BUFFER, BUF.
050193,000979:    7133           30156                           CA       MPAC       +2                         
050194,000980:    7134           54132                           TS       BUF        +2                         
050195,000981: 
050196,000982:    7135           30136                           CA       DOTINC                                #  ADVANCE ADDRWD TO Y COMPONENT OF
050197,000983:    7136           26116                           ADS      ADDRWD                                #  OTHER ARGUMENT.
050198,000984:    7137           07056                           TC       DMPSUB                                
050199,000985:    7140           52156                           DXCH     MPAC       +1                         #  ACCUMULATE PARTIAL PRODUCTS.
050200,000986:    7141           20132                           DAS      BUF        +1                         
050201,000987:    7142           60154                           AD       MPAC                                  
050202,000988:    7143           60130                           AD       BUF                                   
050203,000989:    7144           54130                           TS       BUF                                   
050204,000990:    7145           17147                           TCF      +2                                    
050205,000991:    7146           54121                           TS       OVFIND                                #  IF OVERFLOW OCCURS.
050206,000992: 
050207,000993:    7147           52162                           DXCH     MPAC       +5                         #  MULTIPLY Z COMPONENTS.
050208,000994:    7150           52155                           DXCH     MPAC                                  
050209,000995:    7151           30136                           CA       DOTINC                                
050210,000996:    7152           26116                           ADS      ADDRWD                                
050211,000997:    7153           07056                           TC       DMPSUB                                
050212,000998:    7154           52132        ENDDOT             DXCH     BUF        +1                         #  LEAVE FINAL ACCUMULATION IN MPAC.
050213,000999:    7155           20156                           DAS      MPAC       +1                         
050214,001000:    7156           60154                           AD       MPAC                                  
050215,001001:    7157           60130                           AD       BUF                                   
050216,001002:    7160           54154                           TS       MPAC                                  
050217,001003:    7161           00137                           TC       DOTRET                                
050218,001004: 
050219,001005:    7162           06766                           TC       OVERFLOW                              #  ON OVERFLOW HERE.
050220,001006:    7163           00137                           TC       DOTRET                                
050221,001007: 

Page 1139

050223,001009:                                                                                                  #  DOUBLE PRECISION POLYNOMIAL EVALUATOR
050224,001010:                                                                                                  #                                  N        N-1
050225,001011:                                                                                                  #        THIS ROUTINE EVALUATES A X  + A   X    + ... + A  X + A  LEAVING THE DP RESULT IN MPAC ON EXIT.
050226,001012:                                                                                                  #                                N      N-1              1      0
050227,001013: 
050228,001014:                                                                                                  #  THE ROUTINE HAS TWO ENTRIES
050229,001015: 
050230,001016:                                                                                                  #        1.      ENTRY THRU POWRSERS.  THE COEFFICIENTS MAY BE EITHER IN FIXED OR ERASABLE, THE CALL IS BY
050231,001017:                                                                                                  #                TC POWRSERS, AND THE RETURN IS TO LOC(TC POWRSERS)+1.  THE ENTERING DATA MUST BE AS FOLLOWS
050232,001018: 
050233,001019:                                                                                                  #                        A       SP      LOC-3           ADDRESS FOR REFERENCING COEF TABLE
050234,001020:                                                                                                  #                        L       SP      N-1             N IS THE DEGREE OF THE POWER SERIES
050235,001021:                                                                                                  #                        MPAC    DP      X               ARGUMENT
050236,001022:                                                                                                  #                        LOC-2N  DP      A(0)
050237,001023:                                                                                                  #                                ...
050238,001024:                                                                                                  #                        LOC     DP      A(N)
050239,001025: 
050240,001026:                                                                                                  #        2.      ENTRY THRU POLY.  THE CALL TO POLY AND THE ENTERING DATA MUST BE AS FOLLOWS
050241,001027: 
050242,001028:                                                                                                  #                        MPAC            DP              X               ARGUMENT
050243,001029:                                                                                                  #                        LOC             TC              POLY
050244,001030:                                                                                                  #                        LOC+1           SP              N-1
050245,001031:                                                                                                  #                        LOC+2           DP              A(0)
050246,001032:                                                                                                  #                                        ...
050247,001033:                                                                                                  #                        LOC+2N+2        DP              A(N)            RETURN IS TO LOC+2N+4
050248,001034: 
050249,001035:    7164           00006        POWRSERS           EXTEND                                         
050250,001036:    7165           22141                           QXCH     POLYRET                               #  RETURN ADDRESS
050251,001037:    7166           54117                           TS       POLISH                                #  POWER SERIES ADDRESS
050252,001038:    7167           22140                           LXCH     POLYCNT                               #  N-1 TO COUNTER
050253,001039:    7170           17201                           TCF      POLYCOM                               #  SKIP SET UP BY POLY
050254,001040: 
050255,001041:    7171           50002        POLY               INDEX    Q                                     
050256,001042:    7172           30000                           CAF      0                                     
050257,001043:    7173           54140                           TS       POLYCNT                               #  N-1 TO COUNTER
050258,001044:    7174           60000                           DOUBLE                                         
050259,001045:    7175           60002                           AD       Q                                     
050260,001046:    7176           54117                           TS       POLISH                                #  L(A(N))-3 TO POLISH
050261,001047:    7177           65022                           AD       FIVE                                  
050262,001048:    7200           54141                           TS       POLYRET                               #  STORE RETURN ADDRESS
050263,001049: 
050264,001050:    7201           36242        POLYCOM            CAF      LVBUF                                 #  INCOMING X WILL BE MOVED TO VBUF, SO
050265,001051:    7202           54116                           TS       ADDRWD                                #  SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
050266,001052: 
050267,001053:    7203           00006                           EXTEND                                         
050268,001054:    7204           50117                           INDEX    POLISH                                
050269,001055:    7205           30004                           DCA      3                                     
050270,001056: 

Page 1140

050272,001058:    7206           52155                           DXCH     MPAC                                  #  LOAD A(N) INTO MPAC,
050273,001059:    7207           52123                           DXCH     VBUF                                  #  SAVING X IN VBUF
050274,001060:    7210           17214                           TCF      POLY2                                 
050275,001061: 
050276,001062:    7211           54140        POLYLOOP           TS       POLYCNT                               #  SAVE DECREMENTED LOOP COUNTER
050277,001063:    7212           45016                           CS       TWO                                   
050278,001064:    7213           26117                           ADS      POLISH                                #  REGRESS COEFFICIENT POINTER
050279,001065: 
050280,001066:    7214           07056        POLY2              TC       DMPSUB                                #  MULTIPLY BY X
050281,001067:    7215           00006                           EXTEND                                         
050282,001068:    7216           50117                           INDEX    POLISH                                
050283,001069:    7217           30002                           DCA      1                                     #  ADD IN NEXT COEFFICIENT
050284,001070:    7220           20155                           DAS      MPAC                                  #  USERS RESPONSIBILITY TO ASSURE NO OVFLOW
050285,001071: 
050286,001072:    7221           10140                           CCS      POLYCNT                               
050287,001073:    7222           17211                           TCF      POLYLOOP                              
050288,001074:    7223           00141                           TC       POLYRET                               #  RETURN CALLER
050289,001075: 

Page 1141

050291,001077:                                                                                                  #  MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
050292,001078: 
050293,001079:    7224           35021        DPAGREE            CAF      ZERO                                  #  DOUBLE PRECISION ENTRY -
050294,001080:    7225           54156                           TS       MPAC       +2                         #  ZERO LOW-ORDER WORD
050295,001081: 
050296,001082:    7226           22002        TPAGREE            LXCH     Q                                     #  FORCE SIGN AGREEMENT AMONG THE TRIPLE
050297,001083:    7227           06672                           TC       BRANCH                                #  PRECISION CONTENTS OF MPAC.  RETURNING
050298,001084:    7230           17234                           TCF      ARG+                                  #  WITH SIGNUM OF THE INPUT IN A.
050299,001085:    7231           17254                           TCF      ARGZERO                               
050300,001086: 
050301,001087:    7232           44777                           CS       POSMAX                                #  IF NEGATIVE.
050302,001088:    7233           17235                           TCF      +2                                    
050303,001089: 
050304,001090:    7234           34777        ARG+               CAF      POSMAX                                
050305,001091:    7235           54002                           TS       Q                                     
050306,001092:    7236           00006                           EXTEND                                         
050307,001093:    7237           24000                           AUG      A                                     #  FORMS +-1.0.
050308,001094:    7240           60156                           AD       MPAC       +2                         
050309,001095:    7241           54156                           TS       MPAC       +2                         
050310,001096:    7242           35021                           CAF      ZERO                                  
050311,001097:    7243           60002                           AD       Q                                     
050312,001098:    7244           60155                           AD       MPAC       +1                         
050313,001099:    7245           54155                           TS       MPAC       +1                         
050314,001100:    7246           35021                           CAF      ZERO                                  
050315,001101:    7247           60002                           AD       Q                                     #  Q STILL HAS POSMAX OR NEGMAX IN IT.
050316,001102:    7250           60154                           AD       MPAC                                  
050317,001103:    7251           54154        ARGZERO2           TS       MPAC                                  #  ALWAYS SKIPPING UNLESS ARGZERO.
050318,001104:    7252           54155                           TS       MPAC       +1                         
050319,001105:    7253           00001                           TC       L                                     #  RETURN VIA L.
050320,001106: 
050321,001107:    7254           54156        ARGZERO            TS       MPAC       +2                         #  SET ALL THREE MPAC REGISTERS TO ZERO.
050322,001108:    7255           17251                           TCF      ARGZERO2                              
050323,001109: 
050324,001110:                                                                                                  #  SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
050325,001111: 
050326,001112:    7256           54135        SHORTMP            TS       MPTEMP                                
050327,001113:    7257           00006                           EXTEND                                         
050328,001114:    7260           70156                           MP       MPAC       +2                         
050329,001115:    7261           54156                           TS       MPAC       +2                         
050330,001116:    7262           35021        SHORTMP2           CAF      ZERO                                  #  SO SUBSEQUENT DAS WILL WORK.
050331,001117:    7263           56155                           XCH      MPAC       +1                         
050332,001118:    7264           17075                           TCF      DMPSUB2                               
050333,001119: 

Page 1142

050335,001121:                                                                                                  #  DMPNSUB MULTIPLIES THE DP FRACTION ARRIVING IN MPAC BY THE SP
050336,001122:                                                                                                  #  INTEGER ARRIVING IN A.  THE DP PRODUCT DEPARTS BOTH IN MPAC AND IN
050337,001123:                                                                                                  #  A AND L.  NOTE THAT DMPNSUB NORMALLY INCREASES THE MAGNITUDE OF THE
050338,001124:                                                                                                  #  CONTENTS OF MPAC.  THE CUSTOMER MUST INSURE THAT B(A) X B(MPAC,MPAC+1)
050339,001125:                                                                                                  #  AND B(A) X B(MPAC) ARE LESS THAN 1 IN MAGNITUDE, WHERE B, AS IS OBVIOUS,
050340,001126:                                                                                                  #  INDICATES THE ARRIVING CONTENTS.
050341,001127: 
050342,001128:    7265           54135        DMPNSUB            TS       DMPNTEMP                              
050343,001129:    7266           00006                           EXTEND                                         
050344,001130:    7267           70155                           MP       MPAC       +1                         
050345,001131:    7270           52155                           DXCH     MPAC                                  #  LOW PRODUCT TO MPAC, HIGH FACTOR TO A
050346,001132:    7271           00006                           EXTEND                                         
050347,001133:    7272           70135                           MP       DMPNTEMP                              
050348,001134:    7273           30001                           CA       L                                     
050349,001135:    7274           26154                           ADS      MPAC                                  #  COMPLETING THE PRODUCT IN MPAC
050350,001136:    7275           00006                           EXTEND                                         
050351,001137:    7276           30155                           DCA      MPAC                                  #  BRINGING THE PRODUCT INTO A AND L
050352,001138:    7277           00002                           TC       Q                                     
050353,001139: 

Page 1143

050355,001141:                                                                                                  #  MISCELLANEOUS VECTOR OPERATIONS.  INCLUDED HERE ARE THE FOLLOWING:
050356,001142:                                                                                                  #        1.      DOT     DP VECTOR DOT PRODUCT.
050357,001143:                                                                                                  #        2.      VXV     DP VECTOR CROSS PRODUCT.
050358,001144:                                                                                                  #        3.      VXSC    DP VECTOR TIMES SCALAR.
050359,001145:                                                                                                  #        4.      V/SC    DP VECTOR DIVIDED BY SCALAR.
050360,001146:                                                                                                  #        5.      VPROJ   DP VECTOR PROJECTION.  ( (MPAC.X)MPAC ).
050361,001147:                                                                                                  #        6.      VXM     DP VECTOR POST-MULTIPLIED BY MATRIX.
050362,001148:                                                                                                  #        7.      MXV     DP VECTOR PRE-MULTIPLIED BY MATRIX.
050363,001149: 
050364,001150:    7300           07123        DOT                TC       PREDOT                                #  DO THE DOT PRODUCT AND EXIT, CHANGING
050365,001151:    7301           35021        DMODE              CAF      ZERO                                  #  THE MODE TO DP SCALAR.
050366,001152:    7302           16027                           TCF      NEWMODE                               
050367,001153: 
050368,001154:    7303           35016        MXV                CAF      TWO                                   #  SET UP MATINC AND DOTINC FOR ROW
050369,001155:    7304           54140                           TS       MATINC                                #  VECTORS.
050370,001156:    7305           17311                           TCF      VXM/MXV                               #  GO TO COMMON PORTION.
050371,001157: 
050372,001158:    7306           44377        VXM                CS       TEN                                   #  SET MATINC AND DOTINC TO REFER TO MATRIX
050373,001159:    7307           54140                           TS       MATINC                                #  AS THREE COLUMN VECTORS.
050374,001160:    7310           36211                           CAF      SIX                                   
050375,001161: 

Page 1144

050377,001163:                                                                                                  #  COMMON PORTION OF MXV AND VXM.
050378,001164: 
050379,001165:    7311           54136        VXM/MXV            TS       DOTINC                                
050380,001166: 
050381,001167:                                                                                                  #  ITRACE (2) REFERS TO "VXM/MXV".
050382,001168: 
050383,001169:    7312           07501                           TC       MPACVBUF                              #  SAVE VECTOR IN MPAC FOR FURTHER USE.
050384,001170: 
050385,001171:    7313           07125                           TC       DOTSUB                                #  GO DOT TO GET X COMPONENT OF ANSWER.
050386,001172:    7314           00006                           EXTEND                                         
050387,001173:    7315           30123                           DCA      VBUF                                  #  MOVE MPAC VECTOR BACK INTO MPAC, SAVING
050388,001174:    7316           52155                           DXCH     MPAC                                  #  NEW X COMPONENT IN BUF2.
050389,001175:    7317           52134                           DXCH     BUF2                                  
050390,001176:    7320           00006                           EXTEND                                         
050391,001177:    7321           30125                           DCA      VBUF       +2                         
050392,001178:    7322           52160                           DXCH     MPAC       +3                         
050393,001179:    7323           00006                           EXTEND                                         
050394,001180:    7324           30127                           DCA      VBUF       +4                         
050395,001181:    7325           52162                           DXCH     MPAC       +5                         
050396,001182:    7326           30140                           CA       MATINC                                #  INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
050397,001183:    7327           26116                           ADS      ADDRWD                                #  FORMS BASE ADDRESS OF NEXT COLUMN(ROW).
050398,001184: 
050399,001185:    7330           07125                           TC       DOTSUB                                
050400,001186:    7331           52123                           DXCH     VBUF                                  #  MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
050401,001187:    7332           52155                           DXCH     MPAC                                  #  COMPONENT OF ANSWER IN VBUF +2.
050402,001188:    7333           52125                           DXCH     VBUF       +2                         
050403,001189:    7334           52160                           DXCH     MPAC       +3                         
050404,001190:    7335           52127                           DXCH     VBUF       +4                         
050405,001191:    7336           52162                           DXCH     MPAC       +5                         
050406,001192:    7337           30140                           CA       MATINC                                #  FORM ADDRESS OF LAST COLUMN OR ROW.
050407,001193:    7340           26116                           ADS      ADDRWD                                
050408,001194: 
050409,001195:    7341           07125                           TC       DOTSUB                                
050410,001196:    7342           52134                           DXCH     BUF2                                  #  ANSWER NOW COMPLETE. PUT COMPONENTS INTO
050411,001197:    7343           52155                           DXCH     MPAC                                  #  PROPER MPAC REGISTERS.
050412,001198:    7344           52162                           DXCH     MPAC       +5                         
050413,001199:    7345           52125                           DXCH     VBUF       +2                         
050414,001200:    7346           52160                           DXCH     MPAC       +3                         
050415,001201:    7347           16030                           TCF      DANZIG                                #  EXIT.
050416,001202: 

Page 1145

050418,001204:                                                                                                  #  VXSC - VECTOR TIMES SCALAR.
050419,001205: 
050420,001206:    7350           10163        VXSC               CCS      MODE                                  #  TEST PRESENT MODE.
050421,001207:    7351           17377                           TCF      DVXSC                                 #  SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
050422,001208:    7352           17377                           TCF      DVXSC                                 
050423,001209: 
050424,001210:    7353           07056        VVXSC              TC       DMPSUB                                #  COMPUTE X COMPONENT
050425,001211:    7354           07107                           TC       VROUND                                #  AND ROUND IT.
050426,001212:    7355           52160                           DXCH     MPAC       +3                         #  PUT Y COMPONENT INTO MPAC SAVING MPAC IN
050427,001213:    7356           52155                           DXCH     MPAC                                  #  MPAC +3.
050428,001214:    7357           52160                           DXCH     MPAC       +3                         
050429,001215: 
050430,001216:    7360           07056                           TC       DMPSUB                                #  DO SAME FOR Y AND Z COMPONENTS.
050431,001217:    7361           07107                           TC       VROUND                                
050432,001218:    7362           52162                           DXCH     MPAC       +5                         
050433,001219:    7363           52155                           DXCH     MPAC                                  
050434,001220:    7364           52162                           DXCH     MPAC       +5                         
050435,001221: 
050436,001222:    7365           07056                           TC       DMPSUB                                
050437,001223:    7366           07107                           TC       VROUND                                
050438,001224:    7367           52155        VROTATEX           DXCH     MPAC                                  #  EXIT USED TO RESTORE MPAC AFTER THIS
050439,001225:    7370           52162                           DXCH     MPAC       +5                         #  TYPE OF ROTATION.  CALLED BY VECTOR SHIFT
050440,001226:    7371           52160                           DXCH     MPAC       +3                         #  RIGHT, V/SC, ETC.
050441,001227:    7372           52155                           DXCH     MPAC                                  
050442,001228:    7373           16030                           TCF      DANZIG                                
050443,001229: 

Page 1146

050445,001231:                                                                                                  #  DP VECTOR PROJECTION ROUTINE.
050446,001232: 
050447,001233:    7374           07123        VPROJ              TC       PREDOT                                #  (MPAC.X)MPAC IS COMPUTED AND LEFT IN
050448,001234:    7375           45015                           CS       FOUR                                  #  MPAC.  DO DOT AND FALL INTO DVXSC.
050449,001235:    7376           26116                           ADS      ADDRWD                                
050450,001236: 
050451,001237:                                                                                                  #  VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
050452,001238: 
050453,001239:    7377           00006        DVXSC              EXTEND                                         #  SAVE SCALAR IN MPAC +3 AND GET X
050454,001240:    7400           30155                           DCA      MPAC                                  #  COMPONENT OF ANSWER.
050455,001241:    7401           52160                           DXCH     MPAC       +3                         
050456,001242:    7402           07056                           TC       DMPSUB                                
050457,001243:    7403           07107                           TC       VROUND                                
050458,001244: 
050459,001245:    7404           35016                           CAF      TWO                                   #  ADVANCE ADDRWD TO Y COMPONENT OF X.
050460,001246:    7405           26116                           ADS      ADDRWD                                
050461,001247:    7406           00006                           EXTEND                                         
050462,001248:    7407           30160                           DCA      MPAC       +3                         #  PUT SCALAR BACK INTO MPAC AND SAVE
050463,001249:    7410           52155                           DXCH     MPAC                                  #  X RESULT IN MPAC +5.
050464,001250:    7411           52162                           DXCH     MPAC       +5                         
050465,001251:    7412           07056                           TC       DMPSUB                                
050466,001252:    7413           07107                           TC       VROUND                                
050467,001253: 
050468,001254:    7414           35016                           CAF      TWO                                   
050469,001255:    7415           26116                           ADS      ADDRWD                                #  TO Z COMPONENT.
050470,001256:    7416           52160                           DXCH     MPAC       +3                         #  BRING SCALAR BACK, PUTTING Y RESULT IN
050471,001257:    7417           52155                           DXCH     MPAC                                  #  THE PROPER PLACE.
050472,001258:    7420           52160                           DXCH     MPAC       +3                         
050473,001259:    7421           07056                           TC       DMPSUB                                
050474,001260:    7422           07107                           TC       VROUND                                
050475,001261: 
050476,001262:    7423           52155                           DXCH     MPAC                                  #  PUT Z COMPONENT IN PROPER PLACE, ALSO
050477,001263:    7424           52162                           DXCH     MPAC       +5                         #  POSITIONING X.
050478,001264:    7425           52155                           DXCH     MPAC                                  
050479,001265: 
050480,001266:    7426           16470                           TCF      VMODE                                 #  MODE HAS CHANGED TO VECTOR.
050481,001267: 

Page 1147

050483,001269:                                                                                                  #  THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
050484,001270:                                                                                                  #                                                3 2  2 3  1 3  3 1  2 1  1 2
050485,001271:                                                                                                  #  MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
050486,001272: 
050487,001273:    7427           00006        VXV                EXTEND                                         
050488,001274:    7430           30162                           DCA      MPAC       +5                         #  FORM UP M3X1, LEAVING M1 IN VBUF.
050489,001275:    7431           52155                           DXCH     MPAC                                  
050490,001276:    7432           52123                           DXCH     VBUF                                  
050491,001277:    7433           07056                           TC       DMPSUB                                #  BY X1.
050492,001278: 
050493,001279:    7434           00006                           EXTEND                                         
050494,001280:    7435           40160                           DCS      MPAC       +3                         #  CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
050495,001281:    7436           52155                           DXCH     MPAC                                  
050496,001282:    7437           52125                           DXCH     VBUF       +2                         
050497,001283:    7440           07056                           TC       DMPSUB                                
050498,001284: 
050499,001285:    7441           35016                           CAF      TWO                                   #  ADVANCE ADDRWD TO X2.
050500,001286:    7442           26116                           ADS      ADDRWD                                
050501,001287:    7443           00006                           EXTEND                                         
050502,001288:    7444           40162                           DCS      MPAC       +5                         #  PREPARE TO GET -X2M3, SAVING -X1M2 IN
050503,001289:    7445           52155                           DXCH     MPAC                                  #  MPAC +5.
050504,001290:    7446           52162                           DXCH     MPAC       +5                         
050505,001291:    7447           07056                           TC       DMPSUB                                
050506,001292: 
050507,001293:    7450           00006                           EXTEND                                         
050508,001294:    7451           30123                           DCA      VBUF                                  #  GET X2M1, SAVING -X2M3 IN VBUF +4.
050509,001295:    7452           52155                           DXCH     MPAC                                  
050510,001296:    7453           52127                           DXCH     VBUF       +4                         
050511,001297:    7454           07056                           TC       DMPSUB                                
050512,001298: 
050513,001299:    7455           35016                           CAF      TWO                                   #  ADVANCE ADDRWD TO X3.
050514,001300:    7456           26116                           ADS      ADDRWD                                
050515,001301:    7457           00006                           EXTEND                                         
050516,001302:    7460           40123                           DCS      VBUF                                  #  GET -X3M1, ADDING X2M1 TO MPAC +5 TO
050517,001303:    7461           52155                           DXCH     MPAC                                  #  COMPLETE THE Z COMPONENT OF THE ANSWER.
050518,001304:    7462           20162                           DAS      MPAC       +5                         
050519,001305: 
050520,001306:    7463           00006                           EXTEND                                         
050521,001307:    7464           17466                           BZF      +2                                    
050522,001308:    7465           06760                           TC       OVERFLWZ                              
050523,001309: 
050524,001310:    7466           07056                           TC       DMPSUB                                
050525,001311:    7467           52125                           DXCH     VBUF       +2                         #  MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
050526,001312:    7470           52160                           DXCH     MPAC       +3                         #  AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
050527,001313:    7471           52155                           DXCH     MPAC                                  #  Y COMPONENT OF THE RESULT.
050528,001314:    7472           20160                           DAS      MPAC       +3                         
050529,001315: 
050530,001316:    7473           00006                           EXTEND                                         
050531,001317:    7474           17476                           BZF      +2                                    

Page 1148

050533,001319:    7475           06763                           TC       OVERFLWY                              
050534,001320: 
050535,001321:    7476           07056                           TC       DMPSUB                                
050536,001322:    7477           52127                           DXCH     VBUF       +4                         #  GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
050537,001323:    7500           16747                           TCF      ENDVXV                                #  COMPONENT (TAIL END OF DAD).
050538,001324: 
050539,001325:                                                                                                  #  THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
050540,001326: 
050541,001327:    7501           00006        MPACVBUF           EXTEND                                         #  CALLED BY MXV, VXM, AND UNIT.
050542,001328:    7502           30155                           DCA      MPAC                                  
050543,001329:    7503           52123                           DXCH     VBUF                                  
050544,001330:    7504           00006                           EXTEND                                         
050545,001331:    7505           30160                           DCA      MPAC       +3                         
050546,001332:    7506           52125                           DXCH     VBUF       +2                         
050547,001333:    7507           00006                           EXTEND                                         
050548,001334:    7510           30162                           DCA      MPAC       +5                         
050549,001335:    7511           52127                           DXCH     VBUF       +4                         
050550,001336:    7512           00002                           TC       Q                                     #  RETURN TO CALLER.
050551,001337: 
050552,001338:                                                                                                  #  DOUBLE PRECISION SIGN AGREE ROUTINE.  ARRIVE WITH INPUT IN A+L.  OUTPUT IS IN A + L.
050553,001339: 
050554,001340:    7513           10000        ALSIGNAG           CCS      A                                     #  TEST UPPER PART.
050555,001341:    7514           17520                           TCF      UPPOS                                 #  IT IS POSITIVE
050556,001342:    7515           00002                           TC       Q                                     #  ZERO
050557,001343:    7516           17530                           TCF      UPNEG                                 #  NEGATIVE
050558,001344:    7517           00002                           TC       Q                                     #  ZERO
050559,001345: 
050560,001346:    7520           56001        UPPOS              XCH      L                                     #  SAVE DECREMENTED UPPER PART.
050561,001347:    7521           65002                           AD       HALF                                  
050562,001348:    7522           65002                           AD       HALF                                  
050563,001349:    7523           54000                           TS       A                                     #  SKIPS ON OVERFLOW
050564,001350:    7524           17526                           TCF      +2                                    
050565,001351:    7525           24001                           INCR     L                                     #  RESTORE UPPER TO ROIGINAL VALUE
050566,001352:    7526           56001                           XCH      L                                     #  SWAP A + L BACK.
050567,001353:    7527           00002                           TC       Q                                     
050568,001354: 
050569,001355:    7530           56001        UPNEG              XCH      L                                     #  SAVE COMPLEMENTED + DECREMENTED UPPER PT
050570,001356:    7531           65001                           AD       NEGMAX                                
050571,001357:    7532           67716                           AD       NEGONE                                
050572,001358:    7533           54000                           TS       A                                     
050573,001359:    7534           17536                           TCF      +2                                    #  DONT INCREMENT IF NO OVERFLOW.
050574,001360:    7535           24001                           INCR     L                                     
050575,001361:    7536           56001                           XCH      L                                     
050576,001362:    7537           40000                           COM                                            #  MAKE NEGATIVE AGAIN.
050577,001363:    7540           00002                           TC       Q                                     
050578,001364: 

Page 1149

050580,001366:                                                                                                  #  INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
050581,001367: 
050582,001368:    7541           07056        DMP1               TC       DMPSUB                                #  DMP INSTRUCTION.
050583,001369:    7542           16030                           TCF      DANZIG                                
050584,001370: 
050585,001371:    7543           07056        DMPR               TC       DMPSUB                                
050586,001372:    7544           07106                           TC       ROUNDSUB   +1                         #  (C(A) = +0).
050587,001373:    7545           16030                           TCF      DANZIG                                
050588,001374: 
050589,001375:    7546           00006        DDV                EXTEND                                         
050590,001376:    7547           50116                           INDEX    ADDRWD                                #  MOVE DIVIDEND INTO BUF.
050591,001377:    7550           30001                           DCA      0                                     
050592,001378:    7551           17556                           TCF      BDDV       +4                         
050593,001379: 
050594,001380:    7552           00006        BDDV               EXTEND                                         #  MOVE DIVISOR INTO MPAC SAVING MPAC, THE
050595,001381:    7553           50116                           INDEX    ADDRWD                                #  DIVIDEND, IN BUF.
050596,001382:    7554           30001                           DCA      0                                     
050597,001383:    7555           52155                           DXCH     MPAC                                  
050598,001384:    7556           52131                 +4        DXCH     BUF                                   
050599,001385:    7557           35021                           CAF      ZERO                                  #  DIVIDE ROUTINES IN BANK 0.
050600,001386:    7560           54004                           TS       FBANK                                 
050601,001387:    7561           12353                           TCF      DDV/BDDV                              
050602,001388: 
050603,001389:    7562           30116        SETPD              CA       ADDRWD                                #  MUST SET TO WORK AREA, OR EBANK TROUBLE.
050604,001390:    7563           54166                           TS       PUSHLOC                               
050605,001391:    7564           16032                           TCF      NOIBNKSW                              #  NO FBANK SWITCH REQUIRED.
050606,001392: 
050607,001393:    7565           35021        TSLC               CAF      ZERO                                  #  SHIFTING ROUTINES LOCATED IN BANK 00.
050608,001394:    7566           54004                           TS       FBANK                                 
050609,001395:    7567           12172                           TCF      TSLC2                                 
050610,001396: 
050611,001397:    7570           36043        GSHIFT             CAF      LOW7                                  #  USED AS MASK AT GENSHIFT. THIS PROCESSES
050612,001398:    7571           54004                           TS       FBANK                                 #  ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
050613,001399:    7572           12214                           TCF      GENSHIFT                              #  AN ADDRESS (ROUTINES IN BANK 0).
050614,001400: 

Page 1150

050616,001402:                                                                                                  #  THE FOLLOWING IS THE PROLOGUE TO V/SC.  IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
050617,001403:                                                                                                  #  AND CALLS THE V/SC ROUTINE IN BANK 0.  IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
050618,001404:                                                                                                  #  THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
050619,001405: 
050620,001406:    7573           10163        V/SC               CCS      MODE                                  
050621,001407:    7574           17605                           TCF      DV/SC                                 #  MOVE VECTOR INTO MPAC.
050622,001408:    7575           17605                           TCF      DV/SC                                 
050623,001409: 
050624,001410:    7576           00006        VV/SC              EXTEND                                         
050625,001411:    7577           50116                           INDEX    ADDRWD                                
050626,001412:    7600           30001                           DCA      0                                     
050627,001413:    7601           52131        V/SC1              DXCH     BUF                                   #  IN BOTH CASES, VECTOR IS NOW IN MPAC AND
050628,001414:    7602           35021                           CAF      ZERO                                  #  SCALAR IN BUF.
050629,001415:    7603           54004                           TS       FBANK                                 
050630,001416:    7604           12654                           TCF      V/SC2                                 
050631,001417: 
050632,001418:    7605           00006        DV/SC              EXTEND                                         
050633,001419:    7606           50116                           INDEX    ADDRWD                                
050634,001420:    7607           30003                           DCA      2                                     
050635,001421:    7610           52160                           DXCH     MPAC       +3                         
050636,001422:    7611           00006                           EXTEND                                         
050637,001423:    7612           50116                           INDEX    ADDRWD                                
050638,001424:    7613           30005                           DCA      4                                     
050639,001425:    7614           52162                           DXCH     MPAC       +5                         
050640,001426: 
050641,001427:    7615           45017                           CS       ONE                                   #  CHANGE MODE TO VECTOR.
050642,001428:    7616           54163                           TS       MODE                                  
050643,001429: 
050644,001430:    7617           00006                           EXTEND                                         
050645,001431:    7620           50116                           INDEX    ADDRWD                                
050646,001432:    7621           30001                           DCA      0                                     
050647,001433:    7622           52155                           DXCH     MPAC                                  
050648,001434:    7623           17601                           TCF      V/SC1                                 #  FINISH PROLOGUE AT COMMON SECTION.
050649,001435: 

Page 1151

050651,001437:                                                                                                  #  SIGN AND COMPLEMENT INSTRUCTIONS.
050652,001438: 
050653,001439:    7624           50116        SIGN               INDEX    ADDRWD                                #  CALL COMP INSTRUCTION IF WORD AT X IS
050654,001440:    7625           10000                           CCS      0                                     #  NEGATIVE NON-ZERO.
050655,001441:    7626           16030                           TCF      DANZIG                                
050656,001442:    7627           17631                           TCF      +2                                    
050657,001443:    7630           17637                           TCF      COMP                                  #  DO THE COMPLEMENT.
050658,001444: 
050659,001445:    7631           50116                           INDEX    ADDRWD                                
050660,001446:    7632           10001        CCSL               CCS      1                                     
050661,001447:    7633           16030                           TCF      DANZIG                                
050662,001448:    7634           16030                           TCF      DANZIG                                
050663,001449:    7635           17637                           TCF      COMP                                  
050664,001450:    7636           16030                           TCF      DANZIG                                
050665,001451:    7637           00006        COMP               EXTEND                                         #  COMPLEMENT DP MPAC IN EVERY CASE.
050666,001452:    7640           40155                           DCS      MPAC                                  
050667,001453:    7641           52155                           DXCH     MPAC                                  
050668,001454: 
050669,001455:    7642           10163                           CCS      MODE                                  #  EITHER COMPLEMENT MPAC +3 OR THE REST OF
050670,001456:    7643           17654                           TCF      DCOMP                                 #  THE VECTOR ACCUMULATOR.
050671,001457:    7644           17654                           TCF      DCOMP                                 
050672,001458: 
050673,001459:    7645           00006                           EXTEND                                         #  VECTOR COMPLEMENT.
050674,001460:    7646           40160                           DCS      MPAC       +3                         
050675,001461:    7647           52160                           DXCH     MPAC       +3                         
050676,001462:    7650           00006                           EXTEND                                         
050677,001463:    7651           40162                           DCS      MPAC       +5                         
050678,001464:    7652           52162                           DXCH     MPAC       +5                         
050679,001465:    7653           16030                           TCF      DANZIG                                
050680,001466: 
050681,001467:    7654           40156        DCOMP              CS       MPAC       +2                         
050682,001468:    7655           54156                           TS       MPAC       +2                         
050683,001469:    7656           16030                           TCF      DANZIG                                
050684,001470: 

Page 1152

050686,001472:                                                                                                  #  THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
050687,001473:                                                                                                  #        1.      SR1 TO SR4      SCALAR SHIFT RIGHT.
050688,001474:                                                                                                  #        2.      SR1R TO SR4R    SCALAR SHIFT RIGHT AND ROUND.
050689,001475:                                                                                                  #        3.      SL1 TO SL4      SCALAR SHIFT LEFT.
050690,001476:                                                                                                  #        4.      SL1R TO SL4R    SCALAR SHIFT LEFT AND ROUND.
050691,001477:                                                                                                  #        5.      VSR1 TO VSR8    VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
050692,001478:                                                                                                  #        6.      VSL1 TO VSL8    VECTOR SHIFT LEFT (NEVER ROUNDS).
050693,001479:                                                                                                  #  THE FOLLOWING CODES REQUIRE AN ADDRESS WHICH MAY BE INDEXED:*
050694,001480:                                                                                                  #        1.      SR              SCALAR SHIFT RIGHT.
050695,001481:                                                                                                  #        2.      SRR             SCALAR SHIFT RIGHT AND ROUND.
050696,001482:                                                                                                  #        3.      SL              SCALAR SHIFT LEFT.
050697,001483:                                                                                                  #        4.      SLR             SCALAR SHIFT LEFT AND ROUND.
050698,001484:                                                                                                  #        5.      VSR             VECTOR SHIFT RIGHT.
050699,001485:                                                                                                  #        6.      VSL             VECTOR SHIFT LEFT.
050700,001486:                                                                                                  #  * IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
050701,001487:                                                                                                  #  ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
050702,001488: 
050703,001489: 00,2017                                           BANK     00                                    
050704,001490: 
050705,001491: 00,2017                                           COUNT    00/INTER                              
050706,001492: 
050707,001493: 00,2017           36211        SHORTT             CAF      SIX                                   #  SCALAR SHORT SHIFTS COME HERE.  THE SHIFT
050708,001494: 00,2020           70020                           MASK     CYR                                   #  COUNT-1 IS NOW IN BITS 2-3 OF CYR.  THE
050709,001495: 00,2021           54021                           TS       SR                                    #  ROUNDING BIT IS IN BIT1 AT THIS POINT.
050710,001496: 
050711,001497: 00,2022           10020                           CCS      CYR                                   #  SEE IF RIGHT OR LEFT SHIFT DESIRED.
050712,001498: 00,2023           12101                           TCF      TSSL                                  #  SHIFT LEFT.
050713,001499: 
050714,001500: 00,2024           00024        SRDDV              DEC      20         B-14                       #  MPTEMP SETTING FOR SR BEFORE DDV.
050715,001501: 
050716,001502: 00,2025           50021        TSSR               INDEX    SR                                    #  GET SHIFTING BIT.
050717,001503: 00,2026           35002                           CAF      BIT14                                 
050718,001504: 00,2027           54135                           TS       MPTEMP                                
050719,001505: 
050720,001506: 00,2030           10020                           CCS      CYR                                   #  SEE IF A ROUND IS DESIRED.
050721,001507: 00,2031           02050        RIGHTR             TC       MPACSRND                              #  YES - SHIFT RIGHT AND ROUND.
050722,001508: 00,2032           16027                           TCF      NEWMODE                               #  SET MODE TO DP (C(A) = 0).
050723,001509: 00,2033           30135        MPACSHR            CA       MPTEMP                                #  DO A TRIPLE PRECISION SHIFT RIGHT.
050724,001510: 00,2034           00006                           EXTEND                                         
050725,001511: 00,2035           70156                           MP       MPAC       +2                         
050726,001512: 00,2036           54156                 +3        TS       MPAC       +2                         #  (EXIT FROM SQRT AND ABVAL).
050727,001513: 00,2037           30135                           CA       MPTEMP                                
050728,001514: 00,2040           00006                           EXTEND                                         

Page 1153

050730,001516: 00,2041           70154                           MP       MPAC                                  #  SHIFT MAJOR PART INTO A,L AND PLACE IN
050731,001517: 00,2042           52155                           DXCH     MPAC                                  #  MPAC,+1.
050732,001518: 00,2043           30135                           CA       MPTEMP                                
050733,001519: 00,2044           00006                           EXTEND                                         
050734,001520: 00,2045           70001                           MP       L                                     #  ORIGINAL C(MPAC +1).
050735,001521: 00,2046           20156                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
050736,001522: 00,2047           16030                           TCF      DANZIG                                
050737,001523: 
050738,001524:                                                                                                  #  MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
050739,001525: 
050740,001526: 00,2050           30156        MPACSRND           CA       MPAC       +2                         #  WE HAVE TO DO ALL THREE MULTIPLIES SINCE
050741,001527: 00,2051           00006                           EXTEND                                         #  MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
050742,001528: 00,2052           70135                           MP       MPTEMP                                #  DISAGREEMENT WITH A SHIFT RIGHT OF 1.
050743,001529: 00,2053           56155                           XCH      MPAC       +1                         
050744,001530: 00,2054           00006                           EXTEND                                         
050745,001531: 00,2055           70135                           MP       MPTEMP                                
050746,001532: 00,2056           56155                           XCH      MPAC       +1                         #  TRIAL MINOR PART.
050747,001533: 00,2057           60001                           AD       L                                     
050748,001534: 
050749,001535: 00,2060           60000        VSHR2              DOUBLE                                         #  (FINISH VECTOR COMPONENT SHIFT RIGHT
050750,001536: 00,2061           54156                           TS       MPAC       +2                         #  AND ROUND.
050751,001537: 00,2062           12064                           TCF      +2                                    
050752,001538: 00,2063           26155                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
050753,001539: 
050754,001540: 00,2064           35021                           CAF      ZERO                                  
050755,001541: 00,2065           54156                           TS       MPAC       +2                         
050756,001542: 00,2066           56154                           XCH      MPAC                                  #  SETTING TO ZERO SO FOLLOWING DAS WORKS.
050757,001543: 00,2067           00006                           EXTEND                                         
050758,001544: 00,2070           70135                           MP       MPTEMP                                
050759,001545: 00,2071           20155                           DAS      MPAC                                  #  AGAIN NO OVERFLOW.
050760,001546: 00,2072           00002                           TC       Q                                     
050761,001547: 
050762,001548: 00,2073           30135        VSHRRND            CA       MPTEMP                                #  ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
050763,001549: 00,2074           00006                           EXTEND                                         #  MPAC CONTAINS A VECTOR COMPONENT.
050764,001550: 00,2075           70155                           MP       MPAC       +1                         
050765,001551: 00,2076           54155                           TS       MPAC       +1                         
050766,001552: 00,2077           56001                           XCH      L                                     
050767,001553: 00,2100           12060                           TCF      VSHR2                                 #  GO ADD ONE IF NECESSARY AND FINISH.
050768,001554: 

Page 1154

050770,001556:                                                                                                  #  ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
050771,001557: 
050772,001558: 00,2101           30021        TSSL               CA       SR                                    #  GET SHIFT COUNT FOR SR.
050773,001559: 00,2102           54135                 +1        TS       MPTEMP                                
050774,001560: 
050775,001561: 00,2103           00006                 +2        EXTEND                                         #  ENTRY HERE FROM SL FOR SCALARS.
050776,001562: 00,2104           30156                           DCA      MPAC       +1                         #  SHIFTING LEFT ONE PLACE AT A TIME IS
050777,001563: 00,2105           20156                           DAS      MPAC       +1                         #  FASTER THAN DOING THE WHOLE SHIFT WITH
050778,001564: 00,2106           60154                           AD       MPAC                                  #  MULTIPLIES ASSUMING THAT FREQUENCY OF
050779,001565: 00,2107           60154                           AD       MPAC                                  #  SHIFT COUNTS GOES DOWN RAPIDLY AS A
050780,001566: 00,2110           54154                           TS       MPAC                                  #  FUNCTION OF THEIR MAGNITUDE.
050781,001567: 00,2111           12113                           TCF      +2                                    
050782,001568: 00,2112           54121                           TS       OVFIND                                #  OVERFLOW.  (LEAVES OVERFLOW-CORRECTED
050783,001569:                                                                                                  #  RESULT ANYWAY).
050784,001570: 00,2113           10135                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNT.
050785,001571: 00,2114           12102                           TCF      TSSL       +1                         
050786,001572: 
050787,001573: 00,2115           10020                           CCS      CYR                                   #  SEE IF ROUND WANTED.
050788,001574: 00,2116           07105        ROUND              TC       ROUNDSUB                              #  YES - ROUND AND EXIT.
050789,001575: 00,2117           16030                           TCF      DANZIG                                #  SL LEAVES A ZERO IN CYR FOR NO ROUND.
050790,001576: 00,2120           16030                           TCF      DANZIG                                #  NO - EXIT IMMEDIATL
050791,001577: 

Page 1155

050793,001579:                                                                                                  #  VECTOR SHIFTING ROUTINES.
050794,001580: 
050795,001581: 00,2121           35023        SHORTV             CAF      LOW3                                  #  SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
050796,001582: 00,2122           70020                           MASK     CYR                                   #  EDITING CYR.
050797,001583: 00,2123           54135                           TS       MPTEMP                                
050798,001584: 00,2124           10020                           CCS      CYR                                   #  SEE IF LEFT OR RIGHT SHIFT.
050799,001585: 00,2125           12145                           TCF      VSSL                                  #  VECTOR SHIFT LEFT.
050800,001586: 00,2126           00176        OCT176             OCT      176                                   #  USED IN PROCESSED SHIFTS WITH - COUNT.
050801,001587: 
050802,001588: 00,2127           50135        VSSR               INDEX    MPTEMP                                #  (ENTRY FROM SR).  PICK UP SHIFTING BIT.
050803,001589: 00,2130           35002                           CAF      BIT14                                 #  MPTEMP CONTAINS THE SHIFT COUNT - 1.
050804,001590: 00,2131           54135                           TS       MPTEMP                                
050805,001591: 00,2132           02073                           TC       VSHRRND                               #  SHIFT X COMPONENT.
050806,001592: 
050807,001593: 00,2133           52155                           DXCH     MPAC                                  #  SWAP X AND Y COMPONENTS.
050808,001594: 00,2134           52160                           DXCH     MPAC       +3                         
050809,001595: 00,2135           52155                           DXCH     MPAC                                  
050810,001596: 00,2136           02073                           TC       VSHRRND                               #  SHIFT Y COMPONENT.
050811,001597: 
050812,001598: 00,2137           52155                           DXCH     MPAC                                  #  SWAP Y AND Z COMPONENTS.
050813,001599: 00,2140           52162                           DXCH     MPAC       +5                         
050814,001600: 00,2141           52155                           DXCH     MPAC                                  
050815,001601: 00,2142           02073                           TC       VSHRRND                               #  SHIFT Z COMPONENT.
050816,001602: 
050817,001603: 00,2143           17367                           TCF      VROTATEX                              #  RESTORE COMPONENTS TO PROPER PLACES.
050818,001604: 

Page 1156

050820,001606:                                                                                                  #  VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
050821,001607: 
050822,001608: 00,2144           54135                 -1        TS       MPTEMP                                #  SHIFTING LOOP.
050823,001609: 
050824,001610: 00,2145           00006        VSSL               EXTEND                                         
050825,001611: 00,2146           30155                           DCA      MPAC                                  
050826,001612: 00,2147           20155                           DAS      MPAC                                  
050827,001613: 00,2150           00006                           EXTEND                                         
050828,001614: 00,2151           12153                           BZF      +2                                    
050829,001615: 00,2152           06766                           TC       OVERFLOW                              
050830,001616: 
050831,001617: 00,2153           00006                           EXTEND                                         
050832,001618: 00,2154           30160                           DCA      MPAC       +3                         
050833,001619: 00,2155           20160                           DAS      MPAC       +3                         
050834,001620: 00,2156           00006                           EXTEND                                         
050835,001621: 00,2157           12161                           BZF      +2                                    
050836,001622: 00,2160           06763                           TC       OVERFLWY                              
050837,001623: 
050838,001624: 00,2161           00006                           EXTEND                                         
050839,001625: 00,2162           30162                           DCA      MPAC       +5                         
050840,001626: 00,2163           20162                           DAS      MPAC       +5                         
050841,001627: 00,2164           00006                           EXTEND                                         
050842,001628: 00,2165           12167                           BZF      +2                                    
050843,001629: 00,2166           06760                           TC       OVERFLWZ                              
050844,001630: 
050845,001631: 00,2167           10135                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNTER.
050846,001632: 00,2170           12144                           TCF      VSSL       -1                         
050847,001633: 00,2171           16030                           TCF      DANZIG                                #  EXIT.
050848,001634: 

Page 1157

050850,001636:                                                                                                  #  TSLC - TRIPLE SHIFT LEFT AND COUNT.  SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
050851,001637:                                                                                                  #  THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
050852,001638: 
050853,001639: 00,2172           54135        TSLC2              TS       MPTEMP                                #  START BY ZEROING SHIFT COUNT (IN A NOW).
050854,001640: 00,2173           06672                           TC       BRANCH                                #  EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
050855,001641: 00,2174           12176                           TCF      +2                                    
050856,001642: 00,2175           12212                           TCF      ENDTSLC                               #  STORES ZERO SHIFT COUNT IN THIS CASE.
050857,001643: 
050858,001644: 00,2176           07226                           TC       TPAGREE                               #  MAY CAUSE UPSHIFT OF ONE EXTRA PLACE.
050859,001645: 
050860,001646: 00,2177           30154                           CA       MPAC                                  #  BEGIN NORMALIZATION LOOP.
050861,001647: 00,2200           12207                           TCF      TSLCTEST                              
050862,001648: 
050863,001649: 00,2201           24135        TSLCLOOP           INCR     MPTEMP                                #  INCREMENT SHIFT COUNTER.
050864,001650: 00,2202           00006                           EXTEND                                         
050865,001651: 00,2203           30156                           DCA      MPAC       +1                         
050866,001652: 00,2204           20156                           DAS      MPAC       +1                         
050867,001653: 00,2205           60154                           AD       MPAC                                  
050868,001654: 00,2206           26154                           ADS      MPAC                                  
050869,001655: 00,2207           60000        TSLCTEST           DOUBLE                                         #  SEE IF (ANOTHER) SHIFT IS REQUIRED.
050870,001656: 00,2210           54000                           OVSK                                           
050871,001657: 00,2211           12201                           TCF      TSLCLOOP                              #  YES - INCREMENT COUNT AND SHIFT AGAIN.
050872,001658: 
050873,001659: 00,2212           40135        ENDTSLC            CS       MPTEMP                                
050874,001660: 00,2213           16572                           TCF      STORE1                                #  STORE SHIFT COUNT AND RETURN TO DANZIG.
050875,001661: 

Page 1158

050877,001663:                                                                                                  #  THE FOLLOWING ROUTINES PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
050878,001664:                                                                                                  #  THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
050879,001665:                                                                                                  #        BITS 1-7        SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
050880,001666:                                                                                                  #        BIT 8           PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
050881,001667:                                                                                                  #        BIT 9           0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
050882,001668:                                                                                                  #        BIT 10          1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
050883,001669:                                                                                                  #        BITS 11-13      0.
050884,001670:                                                                                                  #        BIT 14          1.
050885,001671:                                                                                                  #        BIT 15          0.
050886,001672:                                                                                                  #  THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
050887,001673: 
050888,001674: 00,2214           70116        GENSHIFT           MASK     ADDRWD                                #  GET SHIFT COUNT, TESTING FOR ZERO.
050889,001675: 00,2215           10000                           CCS      A                                     #  (ARRIVES WITH C(A) = LOW7).
050890,001676: 00,2216           12224                           TCF      GENSHFT2                              #  IF NON-ZERO, PROCEED WITH DECREMENTED CT
050891,001677: 
050892,001678: 00,2217           35006                           CAF      BIT10                                 #  ZERO SHIFT COUNT.  NO SHIFTS NEEDED BUT
050893,001679: 00,2220           70116                           MASK     ADDRWD                                #  WE MIGHT HAVE TO ROUND MPAC ON SLR AND
050894,001680: 00,2221           10000                           CCS      A                                     #  SRR (SCALAR ONLY).
050895,001681: 00,2222           07105                           TC       ROUNDSUB                              
050896,001682: 00,2223           16030                           TCF      DANZIG                                
050897,001683: 
050898,001684: 00,2224           54135        GENSHFT2           TS       MPTEMP                                #  DECREMENTED SHIFT COUNT TO MPTEMP.
050899,001685: 00,2225           35010                           CAF      BIT8                                  #  TEST MEANING OF LOW SEVEN BIT COUNT IN
050900,001686: 00,2226           00006                           EXTEND                                         #  MPTEMP NOW.
050901,001687: 00,2227           70116                           MP       ADDRWD                                
050902,001688: 00,2230           76214                           MASK     LOW2                                  #  JUMPS ON SHIFT DIRECTION (BIT8) AND
050903,001689: 00,2231           50000                           INDEX    A                                     
050904,001690: 00,2232           12233                           TCF      +1                                    #  ORIGINAL SHIFT DIRECTION (BIT 9).
050905,001691: 00,2233           12332                           TCF      RIGHT-                                #  NEGATIVE SHIFT COUNT FOR SL OR SLR.
050906,001692: 00,2234           12342                           TCF      LEFT                                  #  SL OR SLR.
050907,001693: 00,2235           12336                           TCF      LEFT-                                 #  NEGATIVE SHIFT COUNT WITH SR OR SRR.
050908,001694: 

Page 1159

050910,001696:                                                                                                  #  GENERAL SHIFT RIGHT.
050911,001697: 
050912,001698: 00,2236           10163        RIGHT              CCS      MODE                                  #  SEE IF VECTOR OR SCALAR.
050913,001699: 00,2237           12277                           TCF      GENSCR                                
050914,001700: 00,2240           12277                           TCF      GENSCR                                
050915,001701: 
050916,001702: 00,2241           30135                           CA       MPTEMP                                #  SEE IF SHIFT COUNT LESS THAN 14D.
050917,001703: 00,2242           63730        VRIGHT2            AD       NEG12                                 
050918,001704: 00,2243           00006                           EXTEND                                         
050919,001705: 00,2244           62127                           BZMF     VSSR                                  #  IF SO, BRANCH AND SHIFT IMMEDIATELY.
050920,001706: 
050921,001707: 00,2245           67716                           AD       NEGONE                                #  IF NOT, REDUCE MPTEMP BY A TOTAL OF 14,
050922,001708: 00,2246           54135                           TS       MPTEMP                                #  AND DO A SHIFT RIGHT AND ROUND BY 14.
050923,001709: 00,2247           35021                           CAF      ZERO                                  #  THE ROUND AT THIS STAGE MAY INTRODUCE A
050924,001710: 00,2250           54001                           TS       L                                     #  ONE BIT ERROR IN A SHIFT RIGHT 15D.
050925,001711: 00,2251           56154                           XCH      MPAC                                  
050926,001712: 00,2252           56155                           XCH      MPAC       +1                         
050927,001713: 00,2253           02272                           TC       SETROUND                              #  X COMPONENT NOW SHIFTED, SO MAKE UP THE
050928,001714: 00,2254           20155                           DAS      MPAC                                  #  ROUNDING QUANTITY (0 IN A AND 0 OR +-1
050929,001715:                                                                                                  #  IN L).
050930,001716: 00,2255           56157                           XCH      MPAC       +3                         #  REPEAT THE ABOVE PROCESS FOR Y AND Z.
050931,001717: 00,2256           56160                           XCH      MPAC       +4                         
050932,001718: 00,2257           02272                           TC       SETROUND                              
050933,001719: 00,2260           20160                           DAS      MPAC       +3                         #  NO OVERFLOW ON THESE ADDS.
050934,001720: 
050935,001721: 00,2261           56161                           XCH      MPAC       +5                         
050936,001722: 00,2262           56162                           XCH      MPAC       +6                         
050937,001723: 00,2263           02272                           TC       SETROUND                              
050938,001724: 00,2264           20162                           DAS      MPAC       +5                         
050939,001725: 
050940,001726: 00,2265           10135                           CCS      MPTEMP                                #  SEE IF DONE, DOING FINAL DECREMENT.
050941,001727: 00,2266           54135                           TS       MPTEMP                                
050942,001728: 00,2267           12242                           TCF      VRIGHT2                               
050943,001729: 00,2270           04604        BIASLO             DEC      .2974      B-1                        #  SQRT CONSTANT
050944,001730: 
050945,001731: 00,2271           16030                           TCF      DANZIG                                
050946,001732: 
050947,001733: 00,2272           60000        SETROUND           DOUBLE                                         #  MAKES UP ROUNDING QUANTITY FROM ARRIVING
050948,001734: 00,2273           54156                           TS       MPAC       +2                         #  C(A).  L IS ZERO INITIALLY.
050949,001735: 00,2274           35021                           CAF      ZERO                                  
050950,001736: 00,2275           56001                           XCH      L                                     
050951,001737: 00,2276           00002                           TC       Q                                     #  RETURN AND DO THE DAS, RESETTING L TO 0.
050952,001738: 

Page 1160

050954,001740:                                                                                                  #  PROCESS SR AND SRR FOR SCALARS.
050955,001741: 
050956,001742: 00,2277           30135        GENSCR             CA       MPTEMP                                #  SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
050957,001743: 00,2300           63730                 +1        AD       NEG12                                 #  THAN 14D.
050958,001744: 00,2301           00006                           EXTEND                                         
050959,001745: 00,2302           62322                           BZMF     DOSSHFT                               #  DO THE SHIFT IMMEDIATELY IF SO.
050960,001746: 
050961,001747: 00,2303           67716                 +4        AD       NEGONE                                #  IF NOT, DECREMENT SHIFT COUNT BY 14D AND
050962,001748: 00,2304           54135                           TS       MPTEMP                                #  SHIFT MPAC RIGHT 14 PLACES.
050963,001749: 00,2305           35021                           CAF      ZERO                                  
050964,001750: 00,2306           56154                           XCH      MPAC                                  
050965,001751: 00,2307           56155                           XCH      MPAC       +1                         
050966,001752: 00,2310           54156                           TS       MPAC       +2                         
050967,001753: 00,2311           10135                           CCS      MPTEMP                                #  SEE IF FINISHED, DO FINAL DECREMENT.
050968,001754: 00,2312           54135                           TS       MPTEMP                                
050969,001755: 00,2313           02300                           TC       GENSCR     +1                         
050970,001756: 00,2314           22650        SLOPEHI            DEC      .5884                                 #  SQRT CONSTANT.
050971,001757: 00,2315           35006                           CAF      BIT10                                 #  FINISHED WITH SHIFT.  SEE IF ROUND
050972,001758: 00,2316           70116                           MASK     ADDRWD                                #  WANTED.
050973,001759: 00,2317           10000                           CCS      A                                     
050974,001760: 00,2320           07105                           TC       ROUNDSUB                              
050975,001761: 00,2321           16030                           TCF      DANZIG                                #  DO SO AND/OR EXIT.
050976,001762: 
050977,001763: 00,2322           50135        DOSSHFT            INDEX    MPTEMP                                #  PICK UP SHIFTING BIT.
050978,001764: 00,2323           35002                           CAF      BIT14                                 
050979,001765: 00,2324           54135                           TS       MPTEMP                                
050980,001766: 00,2325           35006                           CAF      BIT10                                 #  SEE IF TERMINAL ROUND DESIRED.
050981,001767: 00,2326           70116                           MASK     ADDRWD                                
050982,001768: 00,2327           10000                           CCS      A                                     
050983,001769: 00,2330           12031                           TCF      RIGHTR                                #  YES.
050984,001770: 00,2331           12033                           TCF      MPACSHR                               #  JUST SHIFT RIGHT.
050985,001771: 

Page 1161

050987,001773:                                                                                                  #  PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
050988,001774: 
050989,001775: 00,2332           40135        RIGHT-             CS       MPTEMP                                #  GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
050990,001776: 00,2333           62126                           AD       OCT176                                #  UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
050991,001777: 00,2334           54135                           TS       MPTEMP                                #  WAS 1 INITIALLY.
050992,001778: 00,2335           12236                           TCF      RIGHT                                 #  DO NORMAL SHIFT RIGHT.
050993,001779: 
050994,001780: 00,2336           42126        LEFT-              CS       OCT176                                #  SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
050995,001781: 00,2337           60135                           AD       MPTEMP                                #  SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE
050996,001782: 00,2340           40000                           COM                                            
050997,001783: 00,2341           54135                           TS       MPTEMP                                
050998,001784: 
050999,001785: 00,2342           10163        LEFT               CCS      MODE                                  #  SINCE LEFT SHIFTING IS SONE ONE PLACE AT
051000,001786: 00,2343           12346                           TCF      GENSCL                                #  A TIME, NO COMPARISON WITH 14 NEED BE
051001,001787: 00,2344           12346                           TCF      GENSCL                                #  DONE.  FOR SCALARS, SEE IF TERMINAL ROUND
051002,001788: 00,2345           12145                           TCF      VSSL                                  #  DESIRED.  FOR VECTORS, SHIFT IMMEDIATELY.
051003,001789: 
051004,001790: 00,2346           40116        GENSCL             CS       ADDRWD                                #  PUT ROUNDING BIT (BIT 10 OF ADDRWD) INTO
051005,001791: 00,2347           00006                           EXTEND                                         #  BIT 15 OF CYR WHERE THE ROUNDING BIT OF
051006,001792: 00,2350           75012                           MP       BIT6                                  #  A SHORT SHIFT LEFT WOULD BE
051007,001793: 00,2351           54020                           TS       CYR                                   
051008,001794: 00,2352           12103                           TCF      TSSL       +2                         #  DO THE SHIFT.
051009,001795: 

Page 1162

051011,001797:                                                                                                  #  SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE.  AT THIS POINT, THE DIVIDEND IS IN MPAC
051012,001798:                                                                                                  #  AND THE DIVISOR IN BUF.
051013,001799: 
051014,001800: 00,2353           45017        DDV/BDDV           CS       ONE                                   #  INITIALIZATION.
051015,001801: 00,2354           54136                           TS       DVSIGN                                #  +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
051016,001802: 00,2355           54137                           TS       DVNORMCT                              #  DIVIDEND NORMALIZATION COUNT.
051017,001803: 00,2356           54140                           TS       MAXDVSW                               #  NEAR-ONE DIVIDE FLAG.
051018,001804: 
051019,001805: 00,2357           10130                           CCS      BUF                                   #  FORCE BUF POSITIVE WITH THE MAJOR PART
051020,001806: 00,2360           12516                           TCF      BUFPOS                                #  NON-ZERO.
051021,001807: 00,2361           12363                           TCF      +2                                    
051022,001808: 00,2362           12531                           TCF      BUFNEG                                
051023,001809: 
051024,001810: 00,2363           54156        BUFZERO            TS       MPAC       +2                         #  ZERO THIS.
051025,001811: 00,2364           07226                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT BEFORE OVERFLOW
051026,001812: 
051027,001813: 00,2365           10154                           CCS      MPAC                                  #  TEST TO SEE IF MPAC NON-ZERO.  (TOO BIG)
051028,001814: 00,2366           12414                           TCF      OVF+                                  #  MAJOR PART OF DIVIDEND IS POSITIVE NON-0
051029,001815: 00,2367           12371                           TCF      +2                                    
051030,001816: 00,2370           12413                           TCF      OVF+       -1                         #  MAJOR PART OF DIVIDEND IS NEG. NON-ZERO
051031,001817: 
051032,001818: 00,2371           56131                           XCH      BUF        +1                         #  SHIFT DIVIDEND AND DIVISOR LEFT 14.
051033,001819: 00,2372           56130                           XCH      BUF                                   
051034,001820: 00,2373           56155                           XCH      MPAC       +1                         
051035,001821: 00,2374           56154                           XCH      MPAC                                  
051036,001822: 00,2375           10130                           CCS      BUF                                   #  TRY AGAIN ON FORMER MINOR PART.
051037,001823: 00,2376           12422                           TCF      BUF+                                  
051038,001824: 00,2377           12401                           TCF      +2                                    #  OVERFLOW ON ZERO DIVISOR.
051039,001825: 00,2400           12416                           TCF      BUF-                                  
051040,001826: 
051041,001827: 00,2401           40154                           CS       MPAC                                  #  SIGN OF MPAC DETERMINES SIGN OF RESULT.
051042,001828: 00,2402           00006        SGNDVOVF           EXTEND                                         
051043,001829: 00,2403           62405                           BZMF     +2                                    
051044,001830: 00,2404           24136                           INCR     DVSIGN                                #  NEGMAX IN MPAC PERHAPS.
051045,001831: 00,2405           34777        DVOVF              CAF      POSMAX                                #  ON DIVISION OVERFLOW OF ANY SORT, SET
051046,001832: 00,2406           54154                           TS       MPAC                                  #  SET DP MPAC TO +-POSMAX.
051047,001833: 00,2407           02630                           TC       FINALDV    +3                         
051048,001834: 00,2410           35017                           CAF      ONE                                   #  SET OVERFLOW INDICATOR AND EXIT.
051049,001835: 00,2411           54121                           TS       OVFIND                                
051050,001836: 00,2412           06030                           TC       DANZIG                                
051051,001837: 
051052,001838: 00,2413           24136                 -1        INCR     DVSIGN                                
051053,001839: 00,2414           40131        OVF+               CS       BUF        +1                         #  LOAD LOWER ORDER PART OF DIVISOR.
051054,001840: 00,2415           12402                           TCF      SGNDVOVF                              #  GET SIGN OF RESULT.
051055,001841: 
051056,001842: 00,2416           00006        BUF-               EXTEND                                         #  IF BUF IS NEGATIVE, COMPLEMENT IT AND
051057,001843: 00,2417           40131                           DCS      BUF                                   #  MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
051058,001844: 00,2420           52131                           DXCH     BUF                                   
051059,001845: 00,2421           24136                           INCR     DVSIGN                                #  NOW -0.
051060,001846: 

Page 1163

051062,001848: 00,2422           10154        BUF+               CCS      MPAC                                  #  FORCE MPAC POSITIVE, CHECKING FOR ZERO
051063,001849: 00,2423           12437                           TCF      MPAC+                                 #  DIVIDEND IN THE PROCESS.
051064,001850: 00,2424           12426                           TCF      +2                                    
051065,001851: 00,2425           12433                           TCF      MPAC-                                 
051066,001852: 00,2426           10155                           CCS      MPAC       +1                         
051067,001853: 00,2427           12437                           TCF      MPAC+                                 
051068,001854: 00,2430           16030                           TCF      DANZIG                                #  EXIT IMMEDIATELY ON ZERO DIVIDEND.
051069,001855: 00,2431           12433                           TCF      MPAC-                                 
051070,001856: 00,2432           16030                           TCF      DANZIG                                
051071,001857: 
051072,001858: 00,2433           00006        MPAC-              EXTEND                                         #  FORCE MPAC POSITIVE AS BUF IN BUF-.
051073,001859: 00,2434           40155                           DCS      MPAC                                  
051074,001860: 00,2435           52155                           DXCH     MPAC                                  
051075,001861: 00,2436           24136                           INCR     DVSIGN                                #  NOW +1 OR -0.
051076,001862: 

Page 1164

051078,001864: 00,2437           40154        MPAC+              CS       MPAC                                  #  CHECK FOR DIVISION OVERFLOW.  IF THE
051079,001865: 00,2440           67716                           AD       NEGONE                                #  MAJOR PART OF THE DIVIDEND IS LESS THAN
051080,001866: 00,2441           60130                           AD       BUF                                   #  THE MAJOR PART OF THE DIVISOR BY AT
051081,001867: 00,2442           10000                           CCS      A                                     #  LEAST TWO, WE CAN PROCEED IMMEDIATELY
051082,001868: 00,2443           12505                           TCF      DVNORM                                #  WITHOUT NORMALIZATION PRODUCING A DVMAX.
051083,001869: 00,2444           60001        -1/2+2             OCT      60001                                 #  USED IN SQRTSUB.
051084,001870: 
051085,001871: 00,2445           12446                           TCF      +1                                    #  IF THE ABOVE DOES NOT HOLD, FORCE SIGN
051086,001872: 00,2446           35002                           CAF      HALF                                  #  AGREEMENT IN NUMERATOR AND DENOMINATOR
051087,001873: 00,2447           60000                           DOUBLE                                         #  TO FACILITATE OVERFLOW AND NEAR-ONE
051088,001874: 00,2450           60155                           AD       MPAC       +1                         #  CHECKING.
051089,001875: 00,2451           54155                           TS       MPAC       +1                         
051090,001876: 00,2452           35021                           CAF      ZERO                                  
051091,001877: 00,2453           64777                           AD       POSMAX                                
051092,001878: 00,2454           26154                           ADS      MPAC                                  
051093,001879: 
051094,001880: 00,2455           35002                           CAF      HALF                                  #  SAME FOR BUF.
051095,001881: 00,2456           60000                           DOUBLE                                         
051096,001882: 00,2457           60131                           AD       BUF        +1                         
051097,001883: 00,2460           54131                           TS       BUF        +1                         
051098,001884: 00,2461           35021                           CAF      ZERO                                  
051099,001885: 00,2462           64777                           AD       POSMAX                                
051100,001886: 00,2463           26130                           ADS      BUF                                   
051101,001887: 
051102,001888: 00,2464           40154                           CS       MPAC                                  #  CHECK MAGNITUDE OF SIGN-CORRECTED
051103,001889: 00,2465           60130                           AD       BUF                                   #  OPERANDS.
051104,001890: 00,2466           10000                           CCS      A                                     
051105,001891: 00,2467           12505                           TCF      DVNORM                                #  DIVIDE OK - WILL NOT BECOME MAXDV CASE.
051106,001892: 00,2470           00133        LBUF2              ADRES    BUF2                                  
051107,001893: 00,2471           12405                           TCF      DVOVF                                 #  DIVISOR NOT LESS THAN DIVIDEND - OVF.
051108,001894: 
051109,001895: 00,2472           54140                           TS       MAXDVSW                               #  IF THE MAJOR PARTS OF THE DIVIDEND AND
051110,001896: 00,2473           40155                           CS       MPAC       +1                         #  DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
051111,001897: 00,2474           60131                           AD       BUF        +1                         #  TION IS USED (PROVIDED THE DIVISION IS
051112,001898: 00,2475           00006                           EXTEND                                         #  POSSIBLE, OF COURSE).
051113,001899: 00,2476           62405                           BZMF     DVOVF                                 
051114,001900: 00,2477           12505                           TCF      DVNORM                                #  IF NO OVERFLOW.
051115,001901: 

Page 1165

051117,001903: 00,2500           00006        BUFNORM            EXTEND                                         #  ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
051118,001904: 00,2501           24137                           AUG      DVNORMCT                              #  LEFT ONE PLACE.
051119,001905: 00,2502           00006                           EXTEND                                         
051120,001906: 00,2503           30131                           DCA      BUF                                   
051121,001907: 00,2504           20131                           DAS      BUF                                   
051122,001908: 
051123,001909: 00,2505           30130        DVNORM             CA       BUF                                   #  SEE IF DIVISOR NORMALIZED YET.
051124,001910: 00,2506           60000                           DOUBLE                                         
051125,001911: 00,2507           54000                           OVSK                                           
051126,001912: 00,2510           12500                           TCF      BUFNORM                               #  NO - SHIFT LEFT ONE AND TRY AGAIN.
051127,001913: 
051128,001914: 00,2511           52155                           DXCH     MPAC                                  #  CALL DIVIDEND NORMALIZATION SEQUENCE
051129,001915: 00,2512           50137                           INDEX    DVNORMCT                              #  PRIOR TO DOING THE DIVIDE.
051130,001916: 00,2513           02565                           TC       MAXTEST                               
051131,001917: 
051132,001918: 00,2514           54156                           TS       MPAC       +2                         #  RETURNS WITH DIVISION DONE AND C(A) = 0.
051133,001919: 00,2515           16030                           TCF      DANZIG                                
051134,001920: 
051135,001921: 00,2516           10000        BUFPOS             CCS      A                                     
051136,001922: 00,2517           12422                           TCF      BUF+                                  #  TO BUF+ IF BUF IS GREATER THAN +1.
051137,001923: 
051138,001924: 00,2520           40131                           CS       BUF        +1                         #  IF BUF IS +1, FORCING SIGN AGREEMENT
051139,001925: 00,2521           00006                           EXTEND                                         #  MAY CAUSE BUF TO BECOME ZERO.
051140,001926: 00,2522           62422                           BZMF     BUF+                                  #  BRANCH IF SIGNS AGREE.
051141,001927: 
051142,001928: 00,2523           35002                           CA       HALF                                  #  SIGNS DISAGREE.  FORCE AGREEMENT.
051143,001929: 00,2524           60000                 +6        DOUBLE                                         
051144,001930: 00,2525           26131                           ADS      BUF        +1                         
051145,001931: 00,2526           35021                           CA       ZERO                                  
051146,001932: 00,2527           54130                           TS       BUF                                   
051147,001933: 00,2530           12363                           TCF      BUFZERO                               
051148,001934: 
051149,001935: 00,2531           10000        BUFNEG             CCS      A                                     
051150,001936: 00,2532           12416                           TCF      BUF-                                  #  TO BUF- IF BUF IS LESS THAN -1.
051151,001937: 
051152,001938: 00,2533           30131                           CA       BUF        +1                         #  IF BUF IS -1, FORCING SIGN AGREEMENT
051153,001939: 00,2534           00006                           EXTEND                                         #  MAY CAUSE BUF TO BECOME ZERO.
051154,001940: 00,2535           62416                           BZMF     BUF-                                  #  BRANCH IF SIGNS AGREE.
051155,001941: 
051156,001942: 00,2536           45002                           CS       HALF                                  #  SIGNS DISAGREE.  FORCE AGREEMENT.
051157,001943: 00,2537           12524                           TCF      BUFPOS     +6                         
051158,001944: 

Page 1166

051160,001946:                                                                                                  #  THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
051161,001947: 
051162,001948: 00,2540           22021                 -21D      LXCH     SR                                    #  SPECIAL PROLOGUE FOR UNIT WHEN THE
051163,001949: 00,2541           00006                           EXTEND                                         #  LENGTH OF THE ARGUMENT WAS NOT LESS THAN
051164,001950: 00,2542           75002                           MP       HALF                                  #  .5.  IN THIS CASE, EACH COMPONENT MUST BE
051165,001951: 00,2543           56001                           XCH      L                                     #  SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
051166,001952: 00,2544           60021                           AD       SR                                    #  VECTOR.
051167,001953: 00,2545           56001                           XCH      L                                     
051168,001954: 00,2546           12571                           TCF      GENDDV     +1                         #  WITH DP DIVIDEND IN A,L.
051169,001955: 
051170,001956: 00,2547           20001                           DDOUBL                                         #  PROLOGUE WHICH NORMALIZES THE DIVIDEND
051171,001957: 00,2550           20001                           DDOUBL                                         #  WHEN IT IS KNOWN THAT NO DIVISION
051172,001958: 00,2551           20001                           DDOUBL                                         #  OVERFLOW WILL OCCUR.
051173,001959: 00,2552           20001                           DDOUBL                                         
051174,001960: 00,2553           20001                           DDOUBL                                         
051175,001961: 00,2554           20001                           DDOUBL                                         
051176,001962: 00,2555           20001                           DDOUBL                                         
051177,001963: 00,2556           20001                           DDOUBL                                         
051178,001964: 00,2557           20001                           DDOUBL                                         
051179,001965: 00,2560           20001                           DDOUBL                                         
051180,001966: 00,2561           20001                           DDOUBL                                         
051181,001967: 00,2562           20001                           DDOUBL                                         
051182,001968: 00,2563           20001                           DDOUBL                                         
051183,001969: 00,2564           52155                           DXCH     MPAC                                  
051184,001970: 
051185,001971: 00,2565           10140        MAXTEST            CCS      MAXDVSW                               #  0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
051186,001972: 00,2566           06552        BIASHI             DEC      .4192      B-1                        #  SQRT CONSTANTS
051187,001973: 
051188,001974: 00,2567           12642                           TCF      MAXDV                                 #  CHECK TO SEE IF THEY ARE NOW EQUAL.
051189,001975: 

Page 1167

051191,001977:                                                                                                  #  THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE.  IT DIVIDES MPAC BY BUF AND LEAVES
051192,001978:                                                                                                  #  THE RESULT IN MPAC.  THE FOLLOWING CONDITIONS MUST BE SATISFIED:
051193,001979: 
051194,001980:                                                                                                  #        1.      THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
051195,001981: 
051196,001982:                                                                                                  #        2.      THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
051197,001983:                                                                                                  #                (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
051198,001984: 
051199,001985:                                                                                                  #  UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
051200,001986:                                                                                                  #  TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
051201,001987:                                                                                                  #  ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT).  SIGN AGREEMENT IS UNNECESSARY.
051202,001988: 
051203,001989:                                                                                                  #        A + SB .      (R - QD)                                             A + SB
051204,001990:                                                                                                  #        ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
051205,001991:                                                                                                  #        C + SD        (  C   )                                                C
051206,001992: 
051207,001993: 00,2570           52155        GENDDV             DXCH     MPAC                                  #  WE NEED A AND B ONLY FOR FIRST DV.
051208,001994: 00,2571           00006                 +1        EXTEND                                         #  (SPECIAL UNIT PROLOGUE ENTERS HERE).
051209,001995: 00,2572           10130                           DV       BUF                                   #  A NOW CONTAINS Q AND L, R.
051210,001996: 00,2573           52155                           DXCH     MPAC                                  
051211,001997: 
051212,001998: 00,2574           40154                           CS       MPAC                                  #  FORM DIVIDEND FOR MINOR PART OF RESULT.
051213,001999: 00,2575           00006                           EXTEND                                         
051214,002000: 00,2576           70131                           MP       BUF        +1                         
051215,002001: 00,2577           60155                           AD       MPAC       +1                         #  OVERFLOW AT THIS POINT IS POSITIVE SINCE
051216,002002: 00,2600           54000                           OVSK                                           #  R IS POSITIVE IN EVERY CASE.
051217,002003: 00,2601           12606                           TCF      +5                                    
051218,002004: 
051219,002005: 00,2602           00006                           EXTEND                                         #  OVERFLOW CAN BE REMOVED BY SUBTRACTING C
051220,002006: 00,2603           60130                           SU       BUF                                   #  (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
051221,002007: 00,2604           24154                           INCR     MPAC                                  #  IN THIS CASE.  INCR COMPENSATES SUBTRACT.
051222,002008: 00,2605           12610                           TCF      +DOWN                                 #  (SINCE C(A) IS STILL POSITIVE).
051223,002009: 
051224,002010: 00,2606           00006                 +5        EXTEND                                         #  C(A) CAN BE MADE LESS THAN C IN MAGNI-
051225,002011: 00,2607           62620                           BZMF     -UP                                   #  TUDE BY DIMINISHING IT BY C (SINCE C IS
051226,002012:                                                                                                  #  NOT LESS THAN .5) UNLESS C(A) = 0.
051227,002013: 

Page 1168

051229,002015: 00,2610           00006        +DOWN              EXTEND                                         
051230,002016: 00,2611           60130                           SU       BUF                                   #  IF POSITIVE, REDUCE ONLY IF NECESSARY
051231,002017: 00,2612           00006                           EXTEND                                         #  SINCE THE COMPENSATING INCR MIGHT CAUSE
051232,002018: 00,2613           12616                           BZF      +3                                    #  OVERFLOW.
051233,002019: 00,2614           00006                           EXTEND                                         #  DONT SUBTRACT UNLESS RESULT IS POSITIVE
051234,002020: 00,2615           62624                           BZMF     ENDMAXDV                              #  OR ZERO.
051235,002021: 
051236,002022: 00,2616           24154                 +3        INCR     MPAC                                  #  KEEP SUBTRACT HERE AND COMPENSATE.
051237,002023: 00,2617           12625                           TCF      FINALDV                               
051238,002024: 
051239,002025: 00,2620           00006        -UP                EXTEND                                         #  IF ZERO, SET MINOR PART OF RESULT TO
051240,002026: 00,2621           12630                           BZF      FINALDV    +3                         #  ZERO.
051241,002027: 
051242,002028: 00,2622           00006                           EXTEND                                         #  IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
051243,002029: 00,2623           26154                           DIM      MPAC                                  #  TO COMPENSATE.  DIM IS OK HERE SINCE THE
051244,002030: 00,2624           60130        ENDMAXDV           AD       BUF                                   #  MAJOR PART NEVER GOES NEGATIVE.
051245,002031: 

Page 1169

051247,002033: 00,2625           22007        FINALDV            ZL                                             #  DO DV TO OBTAIN MINOR PART OF RESULT.
051248,002034: 00,2626           00006                           EXTEND                                         
051249,002035: 00,2627           10130                           DV       BUF                                   
051250,002036: 00,2630           54155                 +3        TS       MPAC       +1                         
051251,002037: 
051252,002038: 00,2631           10136                           CCS      DVSIGN                                #  LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
051253,002039: 00,2632           00002                           TC       Q                                     #  -0.
051254,002040: 00,2633           00002                           TC       Q                                     
051255,002041: 00,2634           00002                           TC       Q                                     
051256,002042: 
051257,002043: 00,2635           00006                           EXTEND                                         
051258,002044: 00,2636           40155                           DCS      MPAC                                  
051259,002045: 00,2637           52155                           DXCH     MPAC                                  
051260,002046: 00,2640           35021                           CAF      ZERO                                  #  SO WE ALWAYS RETURN WITH C(A) = 0.
051261,002047: 00,2641           00002                           TC       Q                                     
051262,002048: 

Page 1170

051264,002050:                                                                                                  #  IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
051265,002051:                                                                                                  #  DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED.  THE ASSUMPTIONS
051266,002052:                                                                                                  #  ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
051267,002053: 
051268,002054:                                                                                                  #        C + SB .          (C + B - D)
051269,002055:                                                                                                  #        ------ = 37777 + S(---------)
051270,002056:                                                                                                  #        C + SD            (    C    )
051271,002057: 
051272,002058:                                                                                                  #  THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
051273,002059: 
051274,002060: 00,2642           40154        MAXDV              CS       MPAC                                  #  SEE IF MAXDV CASE STILL HOLDS AFTER
051275,002061: 00,2643           60130                           AD       BUF                                   #  NORMALIZATION.
051276,002062: 00,2644           00006                           EXTEND                                         
051277,002063: 00,2645           12647                           BZF      +2                                    
051278,002064: 00,2646           12570                           TCF      GENDDV                                #  MPAC NOW LESS THAN BUF - DIVIDE AS USUAL
051279,002065: 
051280,002066: 00,2647           34777                 +2        CAF      POSMAX                                #  SET MAJOR PART OF RESULT.
051281,002067: 00,2650           54154                           TS       MPAC                                  
051282,002068: 
051283,002069: 00,2651           40131                           CS       BUF        +1                         #  FORM DIVIDEND OF MINOR PART OF RESULT.
051284,002070: 00,2652           60155                           AD       MPAC       +1                         
051285,002071: 00,2653           12624                           TCF      ENDMAXDV                              #  GO ADD C AND DO DIVIDE, ATTACHING SIGN
051286,002072:                                                                                                  #  BEFORE EXITING.
051287,002073: 

Page 1171

051289,002075:                                                                                                  #  VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE.  THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
051290,002076: 
051291,002077: 00,2654           45017        V/SC2              CS       ONE                                   #  INITIALIZE DIVIDEND NORMALIZATION COUNT
051292,002078: 00,2655           54137                           TS       DVNORMCT                              #  AND DIVISION SIGN REGISTER.
051293,002079: 00,2656           54127                           TS       VBUF       +5                         
051294,002080: 
051295,002081: 00,2657           03010                           TC       VECAGREE                              #  FORCE SIGN AGREEMENT IN VECTOR
051296,002082: 
051297,002083: 00,2660           52131                           DXCH     BUF                                   
051298,002084: 00,2661           07513                           TC       ALSIGNAG                              #  SIGN AGREE BUF
051299,002085: 00,2662           52131                           DXCH     BUF                                   
051300,002086: 00,2663           10130                           CCS      BUF                                   #  FORCE DIVISOR POSITIVE WITH MAJOR PART
051301,002087: 00,2664           12721                           TCF      /BUF+                                 #  NON-ZERO (IF POSSIBLE).
051302,002088: 00,2665           12667                           TCF      +2                                    
051303,002089: 00,2666           12715                           TCF      /BUF-                                 
051304,002090: 
051305,002091: 00,2667           56131                           XCH      BUF        +1                         #  SHIFT VECTOR AND SCALAR LEFT 14.
051306,002092: 00,2670           56130                           XCH      BUF                                   
051307,002093: 00,2671           56155                           XCH      MPAC       +1                         
051308,002094: 00,2672           56154                           XCH      MPAC                                  
051309,002095: 00,2673           00006                           EXTEND                                         #  CHECK FOR OVERFLOW IN EACH CASE.
051310,002096: 00,2674           12676                           BZF      +2                                    
051311,002097: 00,2675           12405                           TCF      DVOVF                                 
051312,002098: 
051313,002099: 00,2676           56160                           XCH      MPAC       +4                         
051314,002100: 00,2677           56157                           XCH      MPAC       +3                         
051315,002101: 00,2700           00006                           EXTEND                                         
051316,002102: 00,2701           12703                           BZF      +2                                    
051317,002103: 00,2702           12405                           TCF      DVOVF                                 
051318,002104: 
051319,002105: 00,2703           56162                           XCH      MPAC       +6                         
051320,002106: 00,2704           56161                           XCH      MPAC       +5                         
051321,002107: 00,2705           00006                           EXTEND                                         
051322,002108: 00,2706           12710                           BZF      +2                                    
051323,002109: 00,2707           12405                           TCF      DVOVF                                 
051324,002110: 
051325,002111: 00,2710           10130                           CCS      BUF                                   
051326,002112: 00,2711           12721                           TCF      /BUF+                                 
051327,002113: 00,2712           12405                           TCF      DVOVF                                 #  ZERO DIVISOR - OVERFLOW.
051328,002114: 00,2713           12715                           TCF      /BUF-                                 
051329,002115: 00,2714           12405                           TCF      DVOVF                                 
051330,002116: 
051331,002117: 00,2715           00006        /BUF-              EXTEND                                         #  ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
051332,002118: 00,2716           40131                           DCS      BUF                                   #  DVSIGN IN VBUF +5.
051333,002119: 00,2717           52131                           DXCH     BUF                                   
051334,002120: 00,2720           24127                           INCR     VBUF       +5                         
051335,002121: 

Page 1172

051337,002123: 00,2721           00006        /BUF+              EXTEND                                         
051338,002124: 00,2722           30131                           DCA      BUF                                   #  LEAVE ABS(ORIG DIVISOR) IN BUF2
051339,002125: 00,2723           52134                           DXCH     BUF2                                  #  FOR OVERFLOW TESTING
051340,002126: 00,2724           12732                           TCF      /NORM                                 #  NORMALIZE DIVISOR IN BUF.
051341,002127: 
051342,002128: 00,2725           00006        /NORM2             EXTEND                                         #  IF LESS THAN .5, AUGMENT DVNORMCT AND
051343,002129: 00,2726           24137                           AUG      DVNORMCT                              #  DOUBLE DIVISOR.
051344,002130: 00,2727           00006                           EXTEND                                         
051345,002131: 00,2730           30131                           DCA      BUF                                   
051346,002132: 00,2731           20131                           DAS      BUF                                   
051347,002133: 
051348,002134: 00,2732           30130        /NORM              CA       BUF                                   #  SEE IF DIVISOR NORMALIZED.
051349,002135: 00,2733           60000                           DOUBLE                                         
051350,002136: 00,2734           54000                           OVSK                                           
051351,002137: 00,2735           12725                           TCF      /NORM2                                #  DOUBLE AND TRY AGAIN IF NOT.
051352,002138: 
051353,002139: 00,2736           02750                           TC       V/SCDV                                #  DO X COMPONENT DIVIDE.
051354,002140: 00,2737           52160                           DXCH     MPAC       +3                         #  SUPPLY ARGUMENTS IN USUAL SEQUENCE.
051355,002141: 00,2740           52155                           DXCH     MPAC                                  
051356,002142: 00,2741           52160                           DXCH     MPAC       +3                         
051357,002143: 
051358,002144: 00,2742           02750                           TC       V/SCDV                                #  Y COMPONENT.
051359,002145: 00,2743           52162                           DXCH     MPAC       +5                         
051360,002146: 00,2744           52155                           DXCH     MPAC                                  
051361,002147: 00,2745           52162                           DXCH     MPAC       +5                         
051362,002148: 
051363,002149: 00,2746           02750                           TC       V/SCDV                                #  Z COMPONENT.
051364,002150: 00,2747           17367                           TCF      VROTATEX                              #  GO RE-ARRANGE COMPONENTS BEFORE EXIT.
051365,002151: 

Page 1173

051367,002153:                                                                                                  #  SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
051368,002154: 
051369,002155: 00,2750           30127        V/SCDV             CA       VBUF       +5                         #  REFLECTS SIGN OF SCALAR.
051370,002156: 00,2751           54136                           TS       DVSIGN                                
051371,002157: 
051372,002158: 00,2752           10154                           CCS      MPAC                                  #  FORCE MPAC POSITIVE, EXITING ON ZERO.
051373,002159: 00,2753           12767                           TCF      /MPAC+                                
051374,002160: 00,2754           12756                           TCF      +2                                    
051375,002161: 00,2755           12763                           TCF      /MPAC-                                
051376,002162: 
051377,002163: 00,2756           10155                           CCS      MPAC       +1                         
051378,002164: 00,2757           12767                           TCF      /MPAC+                                
051379,002165: 00,2760           00002                           TC       Q                                     
051380,002166: 00,2761           12763                           TCF      /MPAC-                                
051381,002167: 00,2762           00002                           TC       Q                                     
051382,002168: 
051383,002169: 00,2763           00006        /MPAC-             EXTEND                                         #  USUAL COMPLEMENTING AND SETTING OF SIGN.
051384,002170: 00,2764           40155                           DCS      MPAC                                  
051385,002171: 00,2765           52155                           DXCH     MPAC                                  
051386,002172: 00,2766           24136                           INCR     DVSIGN                                
051387,002173: 
051388,002174: 00,2767           45017        /MPAC+             CS       ONE                                   #  INITIALIZE NEAR-ONE SWITCH.
051389,002175: 00,2770           54140                           TS       MAXDVSW                               
051390,002176: 
051391,002177: 00,2771           40154                           CS       MPAC                                  #  CHECK POSSIBLE OVERFLOW.
051392,002178: 00,2772           60133                           AD       BUF2                                  #  UNNORMALIZED INPUT DIVISOR.
051393,002179: 00,2773           10000                           CCS      A                                     
051394,002180: 00,2774           13004                           TCF      DDVCALL                               #  NOT NEAR-ONE
051395,002181: 00,2775           12777                           TCF      +2                                    #  +0 IS JUST POSSIBLE
051396,002182: 00,2776           12405                           TCF      DVOVF                                 #  NO HOPE
051397,002183: 00,2777           54140                           TS       MAXDVSW                               #  SIGNAL POSSIBLE NEAR-ONE CASE
051398,002184: 00,3000           40155                           CS       MPAC       +1                         #  SEE IF DIVISION CAN BE DONE
051399,002185: 00,3001           60134                           AD       BUF2       +1                         
051400,002186: 00,3002           00006                           EXTEND                                         
051401,002187: 00,3003           62405                           BZMF     DVOVF                                 
051402,002188: 
051403,002189: 00,3004           52155        DDVCALL            DXCH     MPAC                                  #  CALL PRE-DIVIDE NORMALIZATION.
051404,002190: 00,3005           50137                           INDEX    DVNORMCT                              
051405,002191: 00,3006           12565                           TCF      MAXTEST                               
051406,002192: 

Page 1174

051408,002194: 00,3007           32506        SLOPELO            DEC      .8324                                 
051409,002195: 
051410,002196: 00,3010           56002        VECAGREE           XCH      Q                                     #  SAVE Q IN A
051411,002197: 00,3011           52155                           DXCH     MPAC                                  
051412,002198: 00,3012           07513                           TC       ALSIGNAG                              #  SIGNAGREE MPAC
051413,002199: 00,3013           52155                           DXCH     MPAC                                  
051414,002200: 00,3014           52160                           DXCH     MPAC       +3                         
051415,002201: 00,3015           07513                           TC       ALSIGNAG                              #  SIGN AGREE MPAC +3
051416,002202: 00,3016           52160                           DXCH     MPAC       +3                         
051417,002203: 00,3017           52162                           DXCH     MPAC       +5                         
051418,002204: 00,3020           07513                           TC       ALSIGNAG                              #  SIGNAGREE MPAC +5
051419,002205: 00,3021           52162                           DXCH     MPAC       +5                         
051420,002206: 00,3022           00000                           TC       A                                     
051421,002207: 

Page 1175

051423,002209:                                                                                                  #  THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
051424,002210: 
051425,002211: 00,3023           03010        UNIT               TC       VECAGREE                              #  FORCE SIGN AGREEMENT IN VECTOR
051426,002212: 00,3024           07501                           TC       MPACVBUF                              #  SAVE ARGUMENT IN VBUF
051427,002213: 00,3025           35021                           CAF      ZERO                                  #  MUST SENSE OVERFLOW IN FOLLOWING DOT.
051428,002214: 00,3026           56121                           XCH      OVFIND                                
051429,002215: 00,3027           54141                           TS       TEM1                                  
051430,002216: 00,3030           03317                           TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
051431,002217: 00,3031           30141                           CA       TEM1                                  
051432,002218: 00,3032           56121                           XCH      OVFIND                                
051433,002219: 00,3033           00006                           EXTEND                                         
051434,002220: 00,3034           13036                           BZF      +2                                    
051435,002221: 00,3035           12405                           TCF      DVOVF                                 
051436,002222: 00,3036           00006                           EXTEND                                         
051437,002223: 00,3037           30155                           DCA      MPAC                                  #  LEAVE THE SQUARE OF THE LENGTH OF THE
051438,002224: 00,3040           50120                           INDEX    FIXLOC                                #  ARGUMENT IN LVSQUARE.
051439,002225: 00,3041           52043                           DXCH     LVSQUARE                              
051440,002226: 
051441,002227: 00,3042           03343                           TC       SQRTSUB                               #  GO TAKE THE NORMALIZED SQUARE ROOT.
051442,002228: 
051443,002229: 00,3043           10154                           CCS      MPAC                                  #  CHECK FOR UNIT OVERFLOW.
051444,002230: 00,3044           13051                           TCF      +5                                    #  MPAC IS NOT LESS THAN .5 UNLESS
051445,002231: 00,3045           54001                           TS       L                                     
051446,002232: 00,3046           50120                           INDEX    FIXLOC                                
051447,002233: 00,3047           52045                           DXCH     LV                                    
051448,002234: 00,3050           12405                           TCF      DVOVF                                 #  INPUT TO SQRTSUB WAS 0.
051449,002235: 
051450,002236: 00,3051           44333                           CS       FOURTEEN                              #  SEE IF THE INPUT WAS SO SMALL THE THE
051451,002237: 00,3052           60135                           AD       MPTEMP                                #  FIRST TWO REGISTERS OF THE SQUARE WERE 0
051452,002238: 00,3053           10000                           CCS      A                                     
051453,002239: 00,3054           40000                           COM                                            #  IF SO, SAVE THE NEGATIVE OF THE SHIFT
051454,002240: 00,3055           13133                           TCF      SMALL                                 #  COUNT -15D.
051455,002241: 
051456,002242: 00,3056           13065                           TCF      LARGE                                 #  (THIS IS USUALLY THE CASE.)
051457,002243: 
051458,002244: 00,3057           45025                           CS       THIRTEEN                              #  IF THE SHIFT COUNT WAS EXACTLY 14, SET
051459,002245: 00,3060           54135                           TS       MPTEMP                                #  THE PRE-DIVIDE NORM COUNT TO -13D.
051460,002246: 
051461,002247: 00,3061           30154                           CA       MPAC                                  #  SHIFT THE LENGTH RIGHT 14 BEFORE STORING
051462,002248: 00,3062           54001        SMALL2             TS       L                                     #  (SMALL EXITS TO THIS POINT).
051463,002249: 00,3063           35021                           CAF      ZERO                                  
051464,002250: 00,3064           13112                           TCF      LARGE2                                #  GO TO STORE LENGTH AND PROCEED.
051465,002251: 
051466,002252: 00,3065           10135        LARGE              CCS      MPTEMP                                #  MOST ALL CASES COME HERE.
051467,002253: 00,3066           13074                           TCF      LARGE3                                #  SEE IF NO NORMALIZATION WAS REQUIRED BY
051468,002254: 00,3067           42024                           CS       SRDDV                                 #  SQRT, AND IF SO, SET UP FOR A SHIFT
051469,002255: 00,3070           54135                           TS       MPTEMP                                #  RIGHT 1 BEFORE DIVIDING TO PRODUCE
051470,002256: 00,3071           00006                           EXTEND                                         #  THE DESIRED HALF UNIT VECTOR.
051471,002257: 00,3072           30155                           DCA      MPAC                                  

Page 1176

051473,002259: 00,3073           13112                           TCF      LARGE2                                
051474,002260: 

Page 1177

051476,002262: 00,3074           40000        LARGE3             COM                                            #  LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
051477,002263: 00,3075           54135                           TS       MPTEMP                                #  PREDIVIDE LEFT SHIFT.
051478,002264: 
051479,002265: 00,3076           40000                           COM                                            #  PICK UP REQUIRED SHIFTING BIT TO UNNORM-
051480,002266: 00,3077           50000                           INDEX    A                                     #  ALIZE THE SQRT RESULT.
051481,002267: 00,3100           35002                           CAF      BIT14                                 
051482,002268: 00,3101           54130                           TS       BUF                                   
051483,002269: 00,3102           00006                           EXTEND                                         
051484,002270: 00,3103           70155                           MP       MPAC       +1                         
051485,002271: 00,3104           56130                           XCH      BUF                                   
051486,002272: 00,3105           00006                           EXTEND                                         #  (UNNORMALIZE THE SQRT FOR LV).
051487,002273: 00,3106           70154                           MP       MPAC                                  
051488,002274: 00,3107           56001                           XCH      L                                     
051489,002275: 00,3110           60130                           AD       BUF                                   
051490,002276: 00,3111           56001                           XCH      L                                     
051491,002277: 
051492,002278: 00,3112           50120        LARGE2             INDEX    FIXLOC                                
051493,002279: 00,3113           52045                           DXCH     LV                                    #  LENGTH NOW STORED IN WORK AREA.
051494,002280: 
051495,002281: 00,3114           45017                           CS       ONE                                   
051496,002282: 00,3115           54140                           TS       MAXDVSW                               #  NO MAXDV CASES IN UNIT.
051497,002283: 
051498,002284: 00,3116           52123                           DXCH     VBUF                                  #  PREPARE X COMPONENT FOR DIVIDE, SETTING
051499,002285: 00,3117           52155                           DXCH     MPAC                                  #  LENGTH OF VECTOR AS DIVISOR IN BUF.
051500,002286: 00,3120           52131                           DXCH     BUF                                   
051501,002287: 00,3121           03151                           TC       UNITDV                                
051502,002288: 
051503,002289: 00,3122           52125                           DXCH     VBUF       +2                         #  DO Y AND Z IN USUAL FASHION SO WE CAN
051504,002290: 00,3123           52155                           DXCH     MPAC                                  #  EXIT THROUGH VROTATEX.
051505,002291: 00,3124           52160                           DXCH     MPAC       +3                         
051506,002292: 00,3125           03151                           TC       UNITDV                                
051507,002293: 
051508,002294: 00,3126           52127                           DXCH     VBUF       +4                         
051509,002295: 00,3127           52155                           DXCH     MPAC                                  
051510,002296: 00,3130           52162                           DXCH     MPAC       +5                         
051511,002297: 00,3131           03151                           TC       UNITDV                                
051512,002298: 00,3132           17367                           TCF      VROTATEX                              #  AND EXIT.
051513,002299: 

Page 1178

051515,002301:                                                                                                  #  IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
051516,002302:                                                                                                  #  14 PLACES BEFORE THE DIVIDE. NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
051517,002303: 
051518,002304: 00,3133           54135        SMALL              TS       MPTEMP                                #  NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
051519,002305: 
051520,002306: 00,3134           35021                           CAF      ZERO                                  #  SHIFT EACH COMPONENT LEFT 14.
051521,002307: 00,3135           56123                           XCH      VBUF       +1                         
051522,002308: 00,3136           56122                           XCH      VBUF                                  
051523,002309: 00,3137           56125                           XCH      VBUF       +3                         
051524,002310: 00,3140           56124                           XCH      VBUF       +2                         
051525,002311: 00,3141           56127                           XCH      VBUF       +5                         
051526,002312: 00,3142           56126                           XCH      VBUF       +4                         
051527,002313: 
051528,002314: 00,3143           40135                           CS       MPTEMP                                
051529,002315: 00,3144           50000                           INDEX    A                                     
051530,002316: 00,3145           35002                           CAF      BIT14                                 
051531,002317: 00,3146           00006                           EXTEND                                         
051532,002318: 00,3147           70154                           MP       MPAC                                  
051533,002319: 00,3150           13062                           TCF      SMALL2                                
051534,002320: 
051535,002321: 00,3151     5025               THIRTEEN           =        OCT15                                 
051536,002322: 00,3151     4333               FOURTEEN           =        OCT16                                 
051537,002323: 00,3151     4333               OCT16              =        R1D1                                  
051538,002324: 

Page 1179

051540,002326:                                                                                                  #  THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
051541,002327: 
051542,002328: 00,3151           10154        UNITDV             CCS      MPAC                                  #  FORCE MPAC POSITIVE IF POSSIBLE, SETTING
051543,002329: 00,3152           13170                           TCF      UMPAC+                                #  DVSIGN ACCORDING TO THE SIGN OF MPAC
051544,002330: 00,3153           13155                           TCF      +2                                    #  SINCE THE DIVISOR IS ALWAYS POSITIVE
051545,002331: 00,3154           13162                           TCF      UMPAC-                                #  HERE.
051546,002332: 
051547,002333: 00,3155           10155                           CCS      MPAC       +1                         
051548,002334: 00,3156           13170                           TCF      UMPAC+                                
051549,002335: 00,3157           00002                           TC       Q                                     #  EXIT IMMEDIATELY ON ZERO.
051550,002336: 00,3160           13162                           TCF      UMPAC-                                
051551,002337: 00,3161           00002                           TC       Q                                     
051552,002338: 
051553,002339: 00,3162           45021        UMPAC-             CS       ZERO                                  #  IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
051554,002340: 00,3163           54136                           TS       DVSIGN                                #  COMPLEMENT.
051555,002341: 00,3164           00006                           EXTEND                                         
051556,002342: 00,3165           40155                           DCS      MPAC                                  #  PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
051557,002343: 00,3166           50135                           INDEX    MPTEMP                                
051558,002344: 00,3167           12564                           TCF      MAXTEST    -1                         
051559,002345: 
051560,002346: 00,3170           54136        UMPAC+             TS       DVSIGN                                #  SET DVSIGN FOR POSITIVE QUOTIENT.
051561,002347: 00,3171           52155                           DXCH     MPAC                                  
051562,002348: 00,3172           50135                           INDEX    MPTEMP                                
051563,002349: 00,3173           12564                           TCF      MAXTEST    -1                         
051564,002350: 

Page 1180

051566,002352:                                                                                                  #  MISCELLANEOUS UNARY OPERATIONS.
051567,002353: 
051568,002354: 00,3174           03300        DSQ                TC       DSQSUB                                #  SQUARE THE DP CONTENTS OF MPAC.
051569,002355: 00,3175           16030                           TCF      DANZIG                                
051570,002356: 
051571,002357: 00,3176           10163        ABVALABS           CCS      MODE                                  #  ABVAL OR ABS INSTRUCTION.
051572,002358: 00,3177           13226                           TCF      ABS                                   #  DO ABS ON SCALAR.
051573,002359: 00,3200           13226                           TCF      ABS                                   
051574,002360: 
051575,002361: 00,3201           03317        ABVAL              TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
051576,002362: 00,3202           22163                           LXCH     MODE                                  #  MODE IS NOW DP (L ZERO AFTER DAS).
051577,002363: 
051578,002364: 00,3203           00006                           EXTEND                                         #  STORE SQUARE OF LENGTH IN WORK AREA.
051579,002365: 00,3204           30155                           DCA      MPAC                                  
051580,002366: 00,3205           50120                           INDEX    FIXLOC                                
051581,002367: 00,3206           52043                           DXCH     LVSQUARE                              
051582,002368: 

Page 1181

051584,002370:                                                                                                  #  PROGRAM DESCRIPTION - SUBROUTINE SQRT
051585,002371: 
051586,002372:                                                                                                  #  FUNCTIONAL DESCRIPTION - DOUBLE PRECISION SQUARE ROOT ROUTINE
051587,002373:                                                                                                  #        THIS PROGRAM TAKES THE SQUARE ROOT OF THE 27 OR 28 MOST SIGNIFICANT BITS IN THE TRIPLE PRECISION SET OF
051588,002374:                                                                                                  #        NUMBERS - MPAC, MPAC+1, AND MPAC+2.  THE ROOT IS RETURNED DOUBLE PRECISION IN MPAC AND MPAC+1.
051589,002375: 
051590,002376:                                                                                                  #  WARNING - THIS SUBROUTINE USES A TRIPLE PRECISION INPUT.  THE PROGRAMMER MUST ASSURE THE CONTENTS OF MPAC+2
051591,002377:                                                                                                  #        ESPECIALLY IF THE CONTENTS OF MPAC IS SMALL OR ZERO.  FOR DETAILS SEE STG MEMO NO.949.
051592,002378: 
051593,002379:                                                                                                  #  CALLING SEQUENCE - IN INTERPRETIVE MODE I.E., FOLLOWING TC INTPRET,SQRT   NO ADDRESS IS ALLOWED
051594,002380:                                                                                                  #        INPUT SCALING  THE BINARY POINT IS ASSUMED TO THE RIGHT OF BIT 15.  THE ANSWER IS RETURNED WITH THE SAME SCALING
051595,002381: 
051596,002382:                                                                                                  #  SUBROUTINES - GENSCR, MPACSHR, SQRTSUB, ABORT
051597,002383: 
051598,002384:                                                                                                  #  ABORT EXIT MODE - ABORTS ON NEGATIVE INPUT -1.2X10E-4 (77775 OCTAL) OR LESS.
051599,002385:                                                                                                  #        DISPLAYS ERROR CODE 1302
051600,002386:                                                                                                  #                TC      ABORT
051601,002387:                                                                                                  #                OCT     1302
051602,002388: 
051603,002389:                                                                                                  #  DEBRIS - LOCATIONS BUF, MPTEMP, ADDRWD ARE USED
051604,002390: 
051605,002391: 00,3207           03343        SQRT               TC       SQRTSUB                               #  TAKE THE SQUARE ROOT OF MPAC.
051606,002392: 00,3210           10135                           CCS      MPTEMP                                #  RETURNED NORMALIZED SQUARE ROOT.  SEE IF
051607,002393: 00,3211           13213                           TCF      +2                                    #  ANY UN-NORMALIZATION REQUIRED AND EXIT
051608,002394: 00,3212           16030                           TCF      DANZIG                                #  IF NOT.
051609,002395: 
051610,002396: 00,3213           63730                           AD       NEG12                                 #  A RIGHT SHIFT OF MORE THAN 13 COULD BE
051611,002397: 00,3214           00006                           EXTEND                                         #  REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
051612,002398: 00,3215           63221                           BZMF     SQRTSHFT                              #  GOES HERE IN MOST CASES.
051613,002399: 00,3216           22007                           ZL                                             #  IF A LONG SHIFT IS REQUIRED, GO TO
051614,002400: 00,3217           22116                           LXCH     ADDRWD                                #  GENERAL RIGHT SHIFT ROUTINES.
051615,002401: 00,3220           12303                           TCF      GENSCR     +4                         #  ADDRWD WAS ZERO TO PREVENT ROUND.
051616,002402: 
051617,002403: 00,3221           50135        SQRTSHFT           INDEX    MPTEMP                                #  SELECT SHIFTING BIT AND EXIT THROUGH
051618,002404: 00,3222           35001                           CAF      BIT15                                 #  SHIFT ROUTINES.
051619,002405: 00,3223           54135                           TS       MPTEMP                                
051620,002406: 00,3224           35021                           CAF      ZERO                                  #  TO ZERO MPAC +2 IN THE PROCESS.
051621,002407: 00,3225           12036                           TCF      MPACSHR    +3                         
051622,002408: 
051623,002409: 00,3226           06672        ABS                TC       BRANCH                                #  TEST SIGN OF MPAC AND COMPLEMENT IF
051624,002410: 00,3227           16030                           TCF      DANZIG                                
051625,002411: 00,3230           16030                           TCF      DANZIG                                
051626,002412: 00,3231           17637                           TCF      COMP                                  
051627,002413: 

Page 1182

051629,002415: 00,3232           45015        VDEF               CS       FOUR                                  #  VECTOR DEFINE - ESSENTIALLY TREATS
051630,002416: 00,3233           26166                           ADS      PUSHLOC                               #  SCALAR IN MPAC AS X COMPONENT, PUSHES UP
051631,002417: 00,3234           00006                           EXTEND                                         #  FOR Y AND THEN AGAIN FOR Z.
051632,002418: 00,3235           50000                           INDEX    A                                     
051633,002419: 00,3236           30003                           DCA      2                                     
051634,002420: 00,3237           52160                           DXCH     MPAC       +3                         
051635,002421: 00,3240           00006                           EXTEND                                         
051636,002422: 00,3241           50166                           INDEX    PUSHLOC                               
051637,002423: 00,3242           30001                           DCA      0                                     
051638,002424: 00,3243           52162                           DXCH     MPAC       +5                         
051639,002425: 00,3244           16470                           TCF      VMODE                                 #  MODE IS NON VECTOR.
051640,002426: 
051641,002427: 00,3245           03317        VSQ                TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
051642,002428: 00,3246           17301                           TCF      DMODE                                 #  MODE IS NOW DP.
051643,002429: 
051644,002430: 00,3247           00006        PUSH               EXTEND                                         #  PUSH DOWN MPAC LEAVING IT LOADED.
051645,002431: 00,3250           30155                           DCA      MPAC                                  
051646,002432: 00,3251           50166                           INDEX    PUSHLOC                               #  PUSH DOWN FIRST TWO REGISTERS IN EACH
051647,002433: 00,3252           52001                           DXCH     0                                     
051648,002434: 
051649,002435: 00,3253           50163                           INDEX    MODE                                  #  INCREMENT PUSHDOWN POINTER.
051650,002436: 00,3254           36213                           CAF      NO.WDS                                
051651,002437: 00,3255           26166                           ADS      PUSHLOC                               
051652,002438: 
051653,002439: 00,3256           10163                           CCS      MODE                                  
051654,002440: 00,3257           13272                           TCF      TPUSH                                 #  PUSH DOWN MPAC +2.
051655,002441: 00,3260           16030                           TCF      DANZIG                                #  DONE FOR DP.
051656,002442: 
051657,002443: 00,3261           00006                           EXTEND                                         #  ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
051658,002444: 00,3262           30160                           DCA      MPAC       +3                         
051659,002445: 00,3263           50166                           INDEX    PUSHLOC                               
051660,002446: 00,3264           51775                           DXCH     0          -4                         
051661,002447: 00,3265           00006                           EXTEND                                         
051662,002448: 00,3266           30162                           DCA      MPAC       +5                         
051663,002449: 00,3267           50166                           INDEX    PUSHLOC                               
051664,002450: 00,3270           51777                           DXCH     0          -2                         
051665,002451: 00,3271           16030                           TCF      DANZIG                                
051666,002452: 
051667,002453: 00,3272           30156        TPUSH              CA       MPAC       +2                         
051668,002454: 00,3273           16523                           TCF      ENDTPUSH   +2                         
051669,002455: 
051670,002456: 00,3274           50120        RVQ                INDEX    FIXLOC                                #  RVQ - RETURN IVA QPRET.
051671,002457: 00,3275           30052                           CA       QPRET                                 
051672,002458: 00,3276           54117                           TS       POLISH                                
051673,002459: 00,3277           16621                           TCF      GOTO       +4                         #  (ASSUME QPRET POINTS TO FIXED ONLY.)
051674,002460: 

Page 1183

051676,002462:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE.  THEY ARE
051677,002463:                                                                                                  #  SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
051678,002464: 
051679,002465: 00,3300           30155        DSQSUB             CA       MPAC       +1                         #  SQUARES THE SCALAR CONTENTS OF MPAC.
051680,002466: 00,3301           00006                           EXTEND                                         
051681,002467: 00,3302           70000                           SQUARE                                         
051682,002468: 00,3303           54156                           TS       MPAC       +2                         
051683,002469: 00,3304           35021                           CAF      ZERO                                  #  FORM 2(CROSS TERM).
051684,002470: 00,3305           56155                           XCH      MPAC       +1                         
051685,002471: 00,3306           00006                           EXTEND                                         
051686,002472: 00,3307           70154                           MP       MPAC                                  
051687,002473: 00,3310           20001                           DDOUBL                                         #  AND MAYBE OVERFLOW.
051688,002474: 00,3311           20156                           DAS      MPAC       +1                         #  AND SET A TO NET OVERFLOW.
051689,002475: 00,3312           56154                           XCH      MPAC                                  
051690,002476: 00,3313           00006                           EXTEND                                         
051691,002477: 00,3314           70000                           SQUARE                                         
051692,002478: 00,3315           20155                           DAS      MPAC                                  
051693,002479: 00,3316           00002                           TC       Q                                     
051694,002480: 
051695,002481: 00,3317           00006        VSQSUB             EXTEND                                         #  DOTS THE VECTOR IN MPAC WITH ITSELF.
051696,002482: 00,3320           22137                           QXCH     DOTRET                                
051697,002483: 00,3321           03300                           TC       DSQSUB                                #  SQUARE THE X COMPONENT.
051698,002484: 00,3322           52160                           DXCH     MPAC       +3                         
051699,002485: 00,3323           52155                           DXCH     MPAC                                  
051700,002486: 00,3324           52131                           DXCH     BUF                                   #  SO WE CAN END IN DOTSUB.
051701,002487: 00,3325           30156                           CA       MPAC       +2                         
051702,002488: 00,3326           54132                           TS       BUF        +2                         
051703,002489: 
051704,002490: 00,3327           03300                           TC       DSQSUB                                #  SQUARE Y COMPONENT.
051705,002491: 00,3330           52156                           DXCH     MPAC       +1                         
051706,002492: 00,3331           20132                           DAS      BUF        +1                         
051707,002493: 00,3332           60154                           AD       MPAC                                  
051708,002494: 00,3333           60130                           AD       BUF                                   
051709,002495: 00,3334           54130                           TS       BUF                                   
051710,002496: 00,3335           13337                           TCF      +2                                    
051711,002497: 00,3336           54121                           TS       OVFIND                                #  IF OVERFLOW.
051712,002498: 
051713,002499: 00,3337           52162                           DXCH     MPAC       +5                         
051714,002500: 00,3340           52155                           DXCH     MPAC                                  
051715,002501: 00,3341           03300                           TC       DSQSUB                                #  SQUARE Z COMPONENT.
051716,002502: 00,3342           17154                           TCF      ENDDOT                                #  END AS IN DOTSUB.
051717,002503: 

Page 1184

051719,002505:                                                                                                  #  DOUBLE PRECISION SQUARE ROOT ROUTINE.  TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
051720,002506:                                                                                                  #  IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
051721,002507:                                                                                                  #  .5).  THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
051722,002508: 
051723,002509: 00,3343           35021        SQRTSUB            CAF      ZERO                                  #  START BY ZEROING RIGHT SHIFT COUNT.
051724,002510: 00,3344           54135                           TS       MPTEMP                                
051725,002511: 
051726,002512: 00,3345           10154                           CCS      MPAC                                  #  CHECK FOR POSITIVE ARGUMENT, SHIFTING
051727,002513: 00,3346           13404                           TCF      SMPAC+                                #  FIRST SIGNIFICANT MPAC REGISTER INTO
051728,002514: 00,3347           13351                           TCF      +2                                    #  MPAC ITSELF.
051729,002515: 00,3350           13373                           TCF      SQRTNEG                               #  SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
051730,002516: 
051731,002517: 00,3351           56156                           XCH      MPAC       +2                         #  MPAC IS ZERO - SHIFT LEFT 14.
051732,002518: 00,3352           56155                           XCH      MPAC       +1                         
051733,002519: 00,3353           54154                           TS       MPAC                                  
051734,002520: 00,3354           35023                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
051735,002521: 00,3355           54135                           TS       MPTEMP                                
051736,002522: 
051737,002523: 00,3356           10154                           CCS      MPAC                                  #  SEE IF MPAC NOW PNZ.
051738,002524: 00,3357           13404                           TCF      SMPAC+                                
051739,002525: 00,3360           13362                           TCF      +2                                    
051740,002526: 00,3361           13376                           TCF      ZEROANS                               #  NEGATIVE BUT LESS THAN 10(-4) IN MAG.
051741,002527: 
051742,002528: 00,3362           56155                           XCH      MPAC       +1                         #  ZERO - SHIFT LEFT 14 AGAIN.
051743,002529: 00,3363           54154                           TS       MPAC                                  
051744,002530: 00,3364           35023                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
051745,002531: 00,3365           26135                           ADS      MPTEMP                                
051746,002532: 
051747,002533: 00,3366           10154                           CCS      MPAC                                  
051748,002534: 00,3367           13404                           TCF      SMPAC+                                
051749,002535: 00,3370           00002                           TC       Q                                     #  SQRT(0) = 0.
051750,002536: 00,3371           13376                           TCF      ZEROANS                               
051751,002537: 00,3372           13452                           TCF      FIXROOT                               #  DO NOT LEAVE SQRTSUB WITH -0 IN MPAC.
051752,002538: 
051753,002539: 00,3373           10000        SQRTNEG            CCS      A                                     #  ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
051754,002540: 00,3374           13402                           TCF      SQRTABRT                              #  CORRECTED ARGUMENT IS LESS THAN 10(-4)
051755,002541: 
051756,002542: 00,3375           10155                           CCS      MPAC       +1                         #  IN MAGNITUDE.  IF SO, CALL ANSWER ZERO.
051757,002543: 00,3376           35021        ZEROANS            CAF      ZERO                                  #  FORCE ANSWER TO ZERO HERE.
051758,002544: 00,3377           13452                           TCF      FIXROOT                               
051759,002545: 00,3400           13402                           TCF      SQRTABRT                              
051760,002546: 00,3401           13452                           TCF      FIXROOT                               
051761,002547: 
051762,002548: 00,3402           05721        SQRTABRT           TC       POODOO                                
051763,002549: 00,3403           01302                           OCT      1302                                  
051764,002550: 

Page 1185

051766,002552: 00,3404           62444        SMPAC+             AD       -1/2+2                                #  SEE IF ARGUMENT GREATER THAN OR EQUAL TO
051767,002553: 00,3405           00006                           EXTEND                                         #  .5.
051768,002554: 00,3406           63455                           BZMF     SRTEST                                #  IF SO, SEE IF LESS THAN .25.
051769,002555: 
051770,002556: 00,3407           52155                           DXCH     MPAC                                  #  WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
051771,002557: 00,3410           22021                           LXCH     SR                                    #  SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
051772,002558: 00,3411           00006                           EXTEND                                         
051773,002559: 00,3412           75002                           MP       HALF                                  
051774,002560: 00,3413           52155                           DXCH     MPAC                                  
051775,002561: 00,3414           56021                           XCH      SR                                    
051776,002562: 00,3415           26155                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
051777,002563: 
051778,002564: 00,3416           32314        ARGHI              CAF      SLOPEHI                               #  ARGUMENT BETWEEN .25 AND .5. GET A
051779,002565: 00,3417           00006                           EXTEND                                         #  LINEAR APPROXIMATION FOR THIS RANGE.
051780,002566: 00,3420           70154                           MP       MPAC                                  
051781,002567: 00,3421           62566                           AD       BIASHI                                #  X0/2 = (MPAC/2)(SLOPEHI) + BIASHI/2.
051782,002568: 
051783,002569: 00,3422           54130                 +4        TS       BUF                                   #  X0/2 (ARGLO ENTERS HERE).
051784,002570: 00,3423           30154                           CA       MPAC                                  #  SINGLE-PRECISION THROUGHOUT.
051785,002571: 00,3424           22007                           ZL                                             
051786,002572: 00,3425           00006                           EXTEND                                         
051787,002573: 00,3426           10130                           DV       BUF                                   #  (MPAC/2)/(X0/2)
051788,002574: 00,3427           00006                           EXTEND                                         
051789,002575: 00,3430           75002                           MP       HALF                                  
051790,002576: 00,3431           26130                           ADS      BUF                                   #  X1 = X0/2 + .5(MPAC/2)/(X0/2).
051791,002577: 
051792,002578: 00,3432           00006                           EXTEND                                         
051793,002579: 00,3433           75002                           MP       HALF                                  #  FORM UP X1/2.
051794,002580: 00,3434           52155                           DXCH     MPAC                                  #  SAVE AND BRING OUT ARGUMENT.
051795,002581: 00,3435           00006                           EXTEND                                         #  TAKE DP QUOTIENT WITH X1.
051796,002582: 00,3436           10130                           DV       BUF                                   
051797,002583: 00,3437           54131                           TS       BUF        +1                         #  SAVE MAJOR PART OF QUOTIENT.
051798,002584: 00,3440           35021                           CAF      ZERO                                  #  FORM MINOR PART OF QUOTIENT USING
051799,002585: 00,3441           56001                           XCH      L                                     #  (REMAINDER,0).
051800,002586: 00,3442           00006                           EXTEND                                         
051801,002587: 00,3443           10130                           DV       BUF                                   
051802,002588: 00,3444           54001                           TS       L                                     #  IN PREPARATION FOR DAS.
051803,002589: 00,3445           30131                           CA       BUF        +1                         
051804,002590: 00,3446           20155                           DAS      MPAC                                  #  X2 = X1/2 + (MPAC/2)X1
051805,002591: 
051806,002592: 00,3447           00006                           EXTEND                                         #  OVERFLOWS IF ARG. NEAR POSMAX.
051807,002593: 00,3450           13454                           BZF      TCQBNK00                              
051808,002594: 00,3451           34777                           CAF      POSMAX                                
051809,002595: 00,3452           54154        FIXROOT            TS       MPAC                                  
051810,002596: 00,3453           54155                           TS       MPAC       +1                         
051811,002597: 00,3454           00002        TCQBNK00           TC       Q                                     #  RETURN TO CALLER TO UNNORMALIZE, ETC.
051812,002598: 

Page 1186

051814,002600: 00,3455           65003        SRTEST             AD       QUARTER                               #  ARGUMENT WAS LESS THAN .5, SEE IF LESS
051815,002601: 00,3456           00006                           EXTEND                                         #  THAN .25.
051816,002602: 00,3457           63501                           BZMF     SQRTNORM                              #  IF SO, BEGIN NORMALIZATION.
051817,002603: 
051818,002604: 00,3460           52155                           DXCH     MPAC                                  #  IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
051819,002605: 00,3461           22021                           LXCH     SR                                    #  START AT ARGLO.
051820,002606: 00,3462           00006                           EXTEND                                         
051821,002607: 00,3463           75002                           MP       HALF                                  
051822,002608: 00,3464           52155                           DXCH     MPAC                                  
051823,002609: 00,3465           56021                           XCH      SR                                    
051824,002610: 00,3466           26155                           ADS      MPAC       +1                         #  NO OVERFLOW.
051825,002611: 
051826,002612: 00,3467           33007        ARGLO              CAF      SLOPELO                               #  (NORMALIZED) ARGUMENT BETWEEN .125 AND
051827,002613: 00,3470           00006                           EXTEND                                         #  .25
051828,002614: 00,3471           70154                           MP       MPAC                                  
051829,002615: 00,3472           62270                           AD       BIASLO                                
051830,002616: 00,3473           13422                           TCF      ARGHI      +4                         #  BEGIN SQUARE ROOT.
051831,002617: 
051832,002618: 00,3474           00006        SQRTNM2            EXTEND                                         #  SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
051833,002619: 00,3475           30156                           DCA      MPAC       +1                         #  COUNT (FOR TERMINAL UNNORMALIZATION).
051834,002620: 00,3476           20156                           DAS      MPAC       +1                         
051835,002621: 00,3477           60154                           AD       MPAC                                  
051836,002622: 00,3500           26154                           ADS      MPAC                                  #  (NO OVERFLOW).
051837,002623: 
051838,002624: 00,3501           24135        SQRTNORM           INCR     MPTEMP                                #  FIRST TIME THROUGH, JUST SHIFT LEFT 1
051839,002625: 00,3502           00006                           EXTEND                                         #  (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
051840,002626: 00,3503           30156                           DCA      MPAC       +1                         #  WE WANT MPAC/2).
051841,002627: 00,3504           20156                           DAS      MPAC       +1                         
051842,002628: 00,3505           60154                           AD       MPAC                                  
051843,002629: 00,3506           26154                           ADS      MPAC                                  #  (AGAIN NO OVERFLOW).
051844,002630: 00,3507           60000                           DOUBLE                                         
051845,002631: 00,3510           54022                           TS       CYL                                   
051846,002632: 
051847,002633: 00,3511           10022        NORMTEST           CCS      CYL                                   #  SEE IF ARGUMENT NOW NORMALIZED AT
051848,002634: 00,3512           10022                           CCS      CYL                                   #  GREATER THAN .125.
051849,002635: 00,3513           13474                           TCF      SQRTNM2                               #  NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
051850,002636: 00,3514           13416                           TCF      ARGHI                                 #  YES - NOW BETWEEN .5 AND .25.
051851,002637: 00,3515           13467                           TCF      ARGLO                                 #  ARGUMENT NOW BETWEEN .25 AND .125.
051852,002638: 

Page 1187

051854,002640:                                                                                                  #  TRIGONOMETRIC FUNCTION PACKAGE.
051855,002641:                                                                                                  #        THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
051856,002642:                                                                                                  #        1.      SIN             COMPUTES (1/2)SINE(2 PI MPAC).
051857,002643:                                                                                                  #        2.      COS             COMPUTES (1/2)COSINE(2 PI MPAC).
051858,002644:                                                                                                  #        3.      ASIN            COMPUTES (1/2PI)ARCSINE(2 MPAC).
051859,002645:                                                                                                  #        4.      ACOS            COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
051860,002646: 
051861,002647:                                                                                                  #  SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X)) = X.
051862,002648: 
051863,002649: 00,3516           06672        COSINE             TC       BRANCH                                #  FINDS COSINE USING THE IDENTITY
051864,002650: 00,3517           13522                           TCF      +3                                    #  COS(X) = SIN(PI/2 - ABS(X)).
051865,002651: 00,3520           13525                           TCF      PRESINE                               
051866,002652: 00,3521           13525                           TCF      PRESINE                               
051867,002653: 
051868,002654: 00,3522           00006                 +3        EXTEND                                         
051869,002655: 00,3523           40155                           DCS      MPAC                                  
051870,002656: 00,3524           52155                           DXCH     MPAC                                  
051871,002657: 
051872,002658: 00,3525           35003        PRESINE            CAF      QUARTER                               #  PI/2 SCALED.
051873,002659: 00,3526           26154                           ADS      MPAC                                  
051874,002660: 
051875,002661: 00,3527           52155        SINE               DXCH     MPAC                                  #  DOUBLE ARGUMENT.
051876,002662: 00,3530           20001                           DDOUBL                                         
051877,002663: 00,3531           54000                           OVSK                                           #  SEE IF OVERFLOW PRESENT.
051878,002664: 00,3532           13535                           TCF      +3                                    #  IF NOT, ARGUMENT OK AS IS.
051879,002665: 
051880,002666: 00,3533           00006                           EXTEND                                         #  IF SO, WE LOST (OR GAINED) PI, SO
051881,002667: 00,3534           40001                           DCOM                                           #  COMPLEMENT MPAC USING THE IDENTITY
051882,002668:                                                                                                  #  SIN(X-(+)PI) = SIN(-X).
051883,002669: 00,3535           52155                 +3        DXCH     MPAC                                  
051884,002670: 00,3536           30154                           CA       MPAC                                  #  SEE IF ARGUMENT GREATER THAN .5 IN
051885,002671: 00,3537           60000                           DOUBLE                                         #  MAGNITUDE.  IF SO, REDUCE IT TO LESS THAN
051886,002672: 00,3540           54001                           TS       L                                     #  .5 (+-PI/2 SCALED) AS FOLLOWS:
051887,002673: 00,3541           13552                           TCF      SN1                                   
051888,002674: 
051889,002675: 00,3542           50000                           INDEX    A                                     #  IF POSITIVE, FORM PI - X, IF NEGATIVE
051890,002676: 00,3543           35001                           CAF      NEG1/2     +1                         #  USE -PI -X.
051891,002677: 00,3544           60000                           DOUBLE                                         
051892,002678: 00,3545           00006                           EXTEND                                         
051893,002679: 00,3546           60154                           SU       MPAC                                  #  GUARANTEED NO OVERFLOW.
051894,002680: 00,3547           54154                           TS       MPAC                                  
051895,002681: 00,3550           40155                           CS       MPAC       +1                         
051896,002682: 00,3551           54155                           TS       MPAC       +1                         
051897,002683: 

Page 1188

051899,002685: 00,3552           00006        SN1                EXTEND                                         #  SET UP TO EVALUATE HASTINGS POLYNOMIAL
051900,002686: 00,3553           30155                           DCA      MPAC                                  
051901,002687: 00,3554           52134                           DXCH     BUF2                                  
051902,002688: 00,3555           03300                           TC       DSQSUB                                #  SQUARE MPAC.
051903,002689: 
051904,002690: 00,3556           07171                           TC       POLY                                  #  EVALUATE FOURTH ORDER POLYNOMIAL.
051905,002691: 00,3557           00003                           DEC      3          B-14                       
051906,002692: 00,3560           14441 37325                     2DEC     +.3926990796                            
051907,002693: 00,3562           53250 60764                     2DEC     -.6459637111                            
051908,002694: 00,3564           12146 21276                     2DEC     +.318758717                            
051909,002695: 00,3566           75466 71471                     2DEC     -.074780249                            
051910,002696: 00,3570           00236 32757                     2DEC     +.009694988                            
051911,002697: 
051912,002698: 00,3572           32470                           CAF      LBUF2                                 #  MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
051913,002699: 00,3573           07055                           TC       DMPSUB     -1                         
051914,002700: 
051915,002701: 00,3574           00006                           EXTEND                                         
051916,002702: 00,3575           30156                           DCA      MPAC       +1                         
051917,002703: 00,3576           20156                           DAS      MPAC       +1                         
051918,002704: 00,3577           60154                           AD       MPAC                                  
051919,002705: 00,3600           26154                           ADS      MPAC                                  #  NEITHER SHIFT OVERFLOWS.
051920,002706: 00,3601           00006                           EXTEND                                         
051921,002707: 00,3602           30156                           DCA      MPAC       +1                         
051922,002708: 00,3603           20156                           DAS      MPAC       +1                         
051923,002709: 00,3604           60154                           AD       MPAC                                  
051924,002710: 00,3605           26154                           ADS      MPAC                                  
051925,002711: 00,3606           16030                           TCF      DANZIG                                
051926,002712: 

Page 1189

051928,002714:                                                                                                  #  ARCSIN/ARCCOS ROUTINE.
051929,002715: 
051930,002716: 00,3607           33630        ARCSIN             CAF      LASINEX                               #  COMPUTE ARCSIN BY USING THE IDENTITY
051931,002717: 00,3610           13612                           TCF      +2                                    #  ARCSIN(X) = PI/2 - ARCCOS(X).
051932,002718: 
051933,002719: 00,3611           33712        ARCCOS             CAF      LDANZIG                               #  (EXITS IMMEDIATELY).
051934,002720: 00,3612           54136                           TS       ESCAPE                                
051935,002721: 00,3613           06672                           TC       BRANCH                                #  TEST SIGN OF INPUT.
051936,002722: 00,3614           13624                           TCF      ACOSST                                #  START IMMEDIATELY IF POSITIVE.
051937,002723: 00,3615           13726                           TCF      ACOSZERO                              #  ARCCOS(0) = PI/2 = .25.
051938,002724: 00,3616           00006                           EXTEND                                         #  IF NEGATIVE, USE THE IDENTITY
051939,002725: 00,3617           40155                           DCS      MPAC                                  #  ARCCOS(X) = PI - ARCCOS(-X), FORCING
051940,002726: 00,3620           52155                           DXCH     MPAC                                  #  ARGUMENT POSITIVE.
051941,002727: 00,3621           33731                           CAF      TCSUBTR                               #  SET EXIT TO DO ABOVE BEFORE
051942,002728: 00,3622           56136                           XCH      ESCAPE                                #  ARCSIN/ARCCOS CONSIDERATIONS.
051943,002729: 00,3623           54137                           TS       ESCAPE2                               
051944,002730: 
051945,002731: 00,3624           45002        ACOSST             CS       HALF                                  #  TEST MAGNITUDE OF INPUT.
051946,002732: 00,3625           60154                           AD       MPAC                                  
051947,002733: 00,3626           10000                           CCS      A                                     
051948,002734: 00,3627           13720                           TCF      ACOSOVF                               #  THIS IS PROBABLY AN OVERFLOW CASE.
051949,002735: 
051950,002736: 00,3630           13706        LASINEX            TCF      ASINEX                                
051951,002737: 
051952,002738: 00,3631           13641                           TCF      ACOSST2                               #  NO OVERFLOW - PROCEED.
051953,002739: 
051954,002740: 00,3632           10155                           CCS      MPAC       +1                         #  IF MAJOR PART IS .5, CALL ANSWER 0
051955,002741: 00,3633           35021                           CAF      ZERO                                  #  UNLESS MINOR PART NEGATIVE.
051956,002742: 00,3634           13636                           TCF      ACOS=0                                
051957,002743: 
051958,002744: 00,3635           13641                           TCF      ACOSST2                               
051959,002745: 
051960,002746: 00,3636           54155        ACOS=0             TS       MPAC       +1                         
051961,002747: 00,3637           54154                           TS       MPAC                                  
051962,002748: 00,3640           00136                           TC       ESCAPE                                
051963,002749: 
051964,002750: 00,3641           00006        ACOSST2            EXTEND                                         #  NOW THAT ARGUMENT IS IN PROPER RANGE,
051965,002751: 00,3642           40155                           DCS      MPAC                                  #  BEGIN COMPUTATION.  USE HASTINGS
051966,002752: 00,3643           65002                           AD       HALF                                  #  APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
051967,002753: 00,3644           52155                           DXCH     MPAC                                  #  IN A SCALED VERSION WHERE P(X) IS A
051968,002754: 00,3645           52134                           DXCH     BUF2                                  #  SEVENTH ORDER POLYNOMIAL.
051969,002755: 
051970,002756: 00,3646           03343                           TC       SQRTSUB                               #  RETURNS WITH NORMALIZED SQUARE ROOT.
051971,002757: 
051972,002758: 00,3647           10135                           CCS      MPTEMP                                #  SEE IF UN-NORMALIZATION REQUIRED.
051973,002759: 00,3650           13713                           TCF      ACOSSHR                               #  IF SO.
051974,002760: 

Page 1190

051976,002762: 00,3651           52155        ACOS3              DXCH     MPAC                                  #  SET UP FOR POLYNOMIAL EVALUATION.
051977,002763: 00,3652           52134                           DXCH     BUF2                                  
051978,002764: 00,3653           52155                           DXCH     MPAC                                  
051979,002765: 
051980,002766: 00,3654           07171                           TC       POLY                                  
051981,002767: 00,3655           00006                           DEC      6          B-14                       
051982,002768: 00,3656           13240 23630                     2DEC     +.353553385                            #  COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
051983,002769: 00,3660           74721 47775                     2DEC*    -.0483017006 B+1*                       #  I
051984,002770: 00,3662           02440 20237                     2DEC*    +.0200273085 B+2*                       #  WHERE C STANDS FOR ORIGINAL COEFFS.
051985,002771: 00,3664           75067 70742                     2DEC*    -.0112931863 B+3*                       
051986,002772: 00,3666           03436 26756                     2DEC*    +.00695311612 B+4*                       
051987,002773: 00,3670           74037 57640                     2DEC*    -.00384617957 B+5*                       
051988,002774: 00,3672           03046 07143                     2DEC*    +.001501297736 B+6*                       
051989,002775: 00,3674           76654 42244                     2DEC*    -.000284160334 B+7*                       
051990,002776: 
051991,002777: 00,3676           32470                           CAF      LBUF2                                 #  DO FINAL MULTIPLY AND GO TO ANY
051992,002778: 00,3677           07055                           TC       DMPSUB     -1                         #  EPILOGUE SEQUENCES.
051993,002779: 00,3700           00136                           TC       ESCAPE                                
051994,002780: 
051995,002781: 00,3701           00006        SUBTR              EXTEND                                         #  EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
051996,002782: 00,3702           40155                           DCS      MPAC                                  
051997,002783: 00,3703           65002                           AD       HALF                                  #  FORMS PI - ARCCOS(-X) = ARCCOS(X).
051998,002784: 00,3704           52155                           DXCH     MPAC                                  
051999,002785: 00,3705           00137                           TC       ESCAPE2                               #  GO TO POSSIBLE ARCSIN EPILOGUE.
052000,002786: 
052001,002787: 00,3706           00006        ASINEX             EXTEND                                         
052002,002788: 00,3707           40155                           DCS      MPAC                                  #  ARCSIN EPILOGUE - GET ARCSIN(X)
052003,002789: 00,3710           65003                           AD       QUARTER                               #  = PI/2 - ARCCOS(X).
052004,002790: 00,3711           52155                           DXCH     MPAC                                  
052005,002791: 00,3712           16030        LDANZIG            TCF      DANZIG                                
052006,002792: 

Page 1191

052008,002794: 00,3713           50000        ACOSSHR            INDEX    A                                     #  THE SHIFT RIGHT IS LESS THAN 14 SINCE
052009,002795: 00,3714           35002                           CAF      BIT14                                 #  THE INPUT WAS NON-ZERO DP.
052010,002796: 00,3715           54135                           TS       MPTEMP                                
052011,002797: 00,3716           02073                           TC       VSHRRND                               #  DP SHIFT RIGHT AND ROUND.
052012,002798: 00,3717           13651                           TCF      ACOS3                                 #  PROCEED.
052013,002799: 
052014,002800: 00,3720           00006        ACOSOVF            EXTEND                                         #  IF MAJOR PART WAS ONLY 1 MORE THAN .5,
052015,002801: 00,3721           13636                           BZF      ACOS=0                                #  CALL ANSWER ZERO.
052016,002802: 
052017,002803: 00,3722           05650        ACOSABRT           TC       ALARM                                 #  IF OVERFLOW, CALL ANSWER ZERO BUT
052018,002804: 00,3723           01301                           OCT      1301                                  #  SOUND AN ALARM.
052019,002805: 
052020,002806: 00,3724           35021                           CAF      ZERO                                  
052021,002807: 00,3725           13636                           TCF      ACOS=0                                
052022,002808: 
052023,002809: 00,3726           35003        ACOSZERO           CAF      QUARTER                               #  ACOS(0) = PI/2.
052024,002810: 00,3727           13637                           TCF      ACOS=0     +1                         #  SET MPAC AND EXIT VIA ESCAPE.
052025,002811: 
052026,002812: 00,3730           77763        NEG12              DEC      -12        B-14                       
052027,002813: 00,3731           13701        TCSUBTR            TCF      SUBTR                                 
052028,002814: 

Page 1192

052030,002816:                                                                                                  #  THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
052031,002817: 
052032,002818:                                                                                                  #        1.      AXT     ADDRESS TO INDEX TRUE.
052033,002819:                                                                                                  #        1.      AXC     ADDRESS TO INDEX COMPLEMENTED.
052034,002820:                                                                                                  #        3.      LXA     LOAD INDEX FROM ERASABLE.
052035,002821:                                                                                                  #        4.      LXC     LOAD INDEX COMPLEMENTED FROM ERASABLE.
052036,002822:                                                                                                  #        5.      SXA     STORE INDEX IN ERASABLE.
052037,002823:                                                                                                  #        6.      XCHX    EXCHANGE INDEX REIGSTER WITH ERASABLE.
052038,002824: 
052039,002825:                                                                                                  #        7.      INCR    INCREMENT INDEX REGISTER.
052040,002826:                                                                                                  #        8.      XAD     ERASABLE ADD TO INDEX REGISTER.
052041,002827:                                                                                                  #        9.      XSU     ERASABLE SUBTRACT FROM INDEX REGISTER.
052042,002828:                                                                                                  #        10.     TIX     BRANCH ON INDEX REGISTER AND DECREMENT.
052043,002829: 
052044,002830: 01,2371                                           BANK     01                                    
052045,002831: 
052046,002832: 01,2371                                           COUNT    01/INTER                              
052047,002833: 
052048,002834: 01,2371           02466        AXT                TC       TAGSUB                                #  SELECT APPROPRIATE INDEX REGISTER.
052049,002835: 01,2372           30117                           CA       POLISH                                
052050,002836: 01,2373           50130        XSTORE             INDEX    INDEXLOC                              #  CONTAINS C(FIXLOC) OR C(FIXLOC)+1.
052051,002837: 01,2374           54046                           TS       X1                                    
052052,002838: 01,2375           16030                           TCF      DANZIG                                
052053,002839: 
052054,002840: 01,2376           02466        AXC                TC       TAGSUB                                
052055,002841: 01,2377           40117                           CS       POLISH                                
052056,002842: 01,2400           02373                           TC       XSTORE                                
052057,002843: 
052058,002844: 01,2401           02454        LXA                TC       15ADRERS                              #  LOAD INDEX REGISTER FROM ERASABLE.
052059,002845: 01,2402           50117                           INDEX    POLISH                                
052060,002846: 01,2403           30000                           CA       0                                     
052061,002847: 01,2404           12373                           TCF      XSTORE                                
052062,002848: 
052063,002849: 01,2405           02454        LXC                TC       15ADRERS                              #  LOAD NDX REG FROM ERASABLE COMPLEMENTED.
052064,002850: 01,2406           50117                           INDEX    POLISH                                
052065,002851: 01,2407           40000                           CS       0                                     
052066,002852: 01,2410           12373                           TCF      XSTORE                                
052067,002853: 
052068,002854: 01,2411           02454        SXA                TC       15ADRERS                              #  STORE INDEX REGISTER IN ERASABLE.
052069,002855: 01,2412           50130                           INDEX    INDEXLOC                              
052070,002856: 01,2413           30046                           CA       X1                                    
052071,002857: 01,2414           50117        MSTORE1            INDEX    POLISH                                
052072,002858: 01,2415           54000                           TS       0                                     
052073,002859: 01,2416           16030                           TCF      DANZIG                                
052074,002860: 

Page 1193

052076,002862: 01,2417           02454        XCHX               TC       15ADRERS                              #  EXCHANGE INDEX REGISTER WITH ERASABLE.
052077,002863: 01,2420           50117                           INDEX    POLISH                                
052078,002864: 01,2421           30000                           CA       0                                     
052079,002865: 01,2422           50130                           INDEX    INDEXLOC                              
052080,002866: 01,2423           56046                           XCH      X1                                    
052081,002867: 01,2424           12414                           TCF      MSTORE1                               
052082,002868: 
052083,002869: 01,2425           02454        XAD                TC       15ADRERS                              #  ADD ERASABLE TO INDEX REGISTER.
052084,002870: 01,2426           50117                           INDEX    POLISH                                
052085,002871: 01,2427           30000                           CA       0                                     
052086,002872: 01,2430           50130        XAD2               INDEX    INDEXLOC                              
052087,002873: 01,2431           26046                           ADS      X1                                    #  IGNORING OVERFLOWS.
052088,002874: 01,2432           16030                           TCF      DANZIG                                
052089,002875: 
052090,002876: 01,2433           02466        INCR               TC       TAGSUB                                #  INCREMENT INDEX REGISTER.
052091,002877: 01,2434           30117                           CA       POLISH                                
052092,002878: 01,2435           12430                           TCF      XAD2                                  
052093,002879: 
052094,002880: 01,2436           02454        XSU                TC       15ADRERS                              #  SUBTRACT ERASABLE FROM INDEX REGISTER.
052095,002881: 01,2437           50117                           INDEX    POLISH                                
052096,002882: 01,2440           40000                           CS       0                                     
052097,002883: 01,2441           12430                           TCF      XAD2                                  
052098,002884: 
052099,002885: 01,2442           02466        TIX                TC       TAGSUB                                #  BRANCH AND DECREMENT ON INDEX.
052100,002886: 01,2443           50130                           INDEX    INDEXLOC                              
052101,002887: 01,2444           40050                           CS       S1                                    
052102,002888: 01,2445           50130                           INDEX    INDEXLOC                              
052103,002889: 01,2446           60046                           AD       X1                                    
052104,002890: 01,2447           00006                           EXTEND                                         #  NO OPERATION IF DECREMENTED INDEX IS
052105,002891: 01,2450           66030                           BZMF     DANZIG                                #  NEGATIVE OR ZERO.
052106,002892: 
052107,002893: 01,2451           50130        DOTIXBR            INDEX    INDEXLOC                              
052108,002894: 01,2452           56046                           XCH      X1                                    #  IGNORING OVERFLOWS.
052109,002895: 
052110,002896: 01,2453           16615                           TCF      GOTO                                  #  DO THE BRANCH USING THE CADR IN POLISH.
052111,002897: 

Page 1194

052113,002899:                                                                                                  #  SUBROUTINE TO CONVERT AN ERASABLE ADDRESS (11 BITS) TO AN EBANK SETTING AND SUBADDRESS.
052114,002900: 
052115,002901: 01,2454           40117        15ADRERS           CS       POLISH                                
052116,002902: 01,2455           65034                           AD       DEC45                                 
052117,002903: 01,2456           10000                           CCS      A                                     #  DOES THE ADDRESS POINT TO THE WORK AREA?
052118,002904: 01,2457           30120                           CA       FIXLOC                                #  YES.  ADD FIXLOC.  EBANK OK AS IS.
052119,002905: 01,2460           12465                           TCF      +5                                    
052120,002906: 
052121,002907: 01,2461           35051                           CA       OCT1400                               #  NO. SET EBANK & MAKE UP SUBADDRESS.
052122,002908: 01,2462           56117                           XCH      POLISH                                
052123,002909: 01,2463           54003                           TS       EBANK                                 
052124,002910: 01,2464           74373                           MASK     LOW8                                  
052125,002911: 01,2465           26117                 +5        ADS      POLISH                                #  FALL INTO TAGSUB, AND RETURN VIA Q.
052126,002912: 
052127,002913:                                                                                                  #  SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC.  (ACTUALLY, THE ADDRESS -38D.)
052128,002914: 
052129,002915: 01,2466           30120        TAGSUB             CA       FIXLOC                                
052130,002916: 01,2467           54130                           TS       INDEXLOC                              
052131,002917: 
052132,002918: 01,2470           10020                           CCS      CYR                                   #  BIT 15 SPECIFIES INDEX.
052133,002919: 01,2471           24130                           INCR     INDEXLOC                              #  0 MEANS USE X2.
052134,002920: 01,2472           00002                           TC       Q                                     
052135,002921: 01,2473           00002                           TC       Q                                     #  1 FOR X1.
052136,002922: 

Page 1195

052138,002924:                                                                                                  #  MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES.  INCLUDED HERE ARE:
052139,002925:                                                                                                  #        1.      ITA     STORE QPRET (RETURN ADDRESS) IN ERASABLE.
052140,002926:                                                                                                  #        2.      CALL    CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
052141,002927:                                                                                                  #        3.      RTB     RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
052142,002928:                                                                                                  #        4.      BHIZ    BRANCH IF THE HIGHORDER OF MPAC IS ZERO (SINGLE PRECISION).
052143,002929:                                                                                                  #        5.      BOV     BRANCH ON OVERFLOW.
052144,002930:                                                                                                  #        6.      GOTO    SIMPLE SEQUENCE CHANGE.
052145,002931: 
052146,002932: 01,2474           10020        RTB/BHIZ           CCS      CYR                                   
052147,002933: 01,2475           30117        RTB                CA       POLISH                                
052148,002934: 01,2476           04665                           TC       SWCALL     -1                         #  SO A "TC Q" FROM ROUTINE LEADS TO DANZIG
052149,002935: 
052150,002936: 01,2477           10154        BHIZ               CCS      MPAC                                  
052151,002937: 01,2500           16030                           TCF      DANZIG                                
052152,002938: 01,2501           16615                           TCF      GOTO                                  
052153,002939: 01,2502           16030                           TCF      DANZIG                                
052154,002940: 01,2503           16615                           TCF      GOTO                                  
052155,002941: 
052156,002942: 01,2504           10121        BOV(B)             CCS      OVFIND                                #  BRANCH ON OVERFLOW TO BASIC OR INTERP.
052157,002943: 01,2505           12507                           TCF      +2                                    
052158,002944: 01,2506           16030                           TCF      DANZIG                                
052159,002945: 01,2507           54121                           TS       OVFIND                                
052160,002946: 01,2510           10020                           CCS      CYR                                   
052161,002947: 01,2511           12475                           TCF      RTB                                   #  IF BASIC.
052162,002948: 01,2512           00360        B5TOBB             OCT      360                                   
052163,002949: 01,2513           16615                           TCF      GOTO                                  
052164,002950: 

Page 1196

052166,002952: 01,2514           10020        BZE/GOTO           CCS      CYR                                   #  SEE WHICH OP-CODE IS DESIRED.
052167,002953: 01,2515           06672                           TC       BRANCH                                #  DO BZE.
052168,002954: 01,2516           16030                           TCF      DANZIG                                
052169,002955: 01,2517           16615                           TCF      GOTO                                  #  DO GOTO.
052170,002956: 01,2520           16030                           TCF      DANZIG                                
052171,002957: 
052172,002958: 01,2521           10020        BPL/BMN            CCS      CYR                                   
052173,002959: 01,2522           12530                           TCF      BPL                                   
052174,002960: 01,2523           12000        5B10               DEC      5          B+10                       #  SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
052175,002961: 
052176,002962: 01,2524           06672                           TC       BRANCH                                #  DO BMN.
052177,002963: 01,2525           16030                           TCF      DANZIG                                
052178,002964: 01,2526           16030                           TCF      DANZIG                                
052179,002965: 01,2527           16615                           TCF      GOTO                                  #  ONLY IF NNZ.
052180,002966: 
052181,002967: 01,2530           06672        BPL                TC       BRANCH                                
052182,002968: 01,2531           16615                           TCF      GOTO                                  #  IF POSITIVE OR ZERO.
052183,002969: 01,2532           16615                           TCF      GOTO                                  
052184,002970: 01,2533           16030                           TCF      DANZIG                                
052185,002971: 
052186,002972: 01,2534           10020        CALL/ITA           CCS      CYR                                   
052187,002973: 01,2535           16607                           TCF      CALL                                  
052188,002974: 
052189,002975: 01,2536           05747                           TC       CCSHOLE                               
052190,002976: 01,2537           02454                           TC       15ADRERS                              #  STORE QPRET.  (TAGSUB AFTER 15ADRERS IS
052191,002977: 01,2540           50120                           INDEX    FIXLOC                                #  SLOW IN THIS CASE, BUT SAVES STORAGE.)
052192,002978: 01,2541           30052                           CA       QPRET                                 
052193,002979: 01,2542           12414                           TCF      MSTORE1                               
052194,002980: 

Page 1197

052196,002982:                                                                                                  #  THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
052197,002983:                                                                                                  #        00      BONSET          SET A SWITCH AND DO A GOTO IF IT WAS ON.
052198,002984:                                                                                                  #        01      SETGO           SET A SWITCH AND DO A GOTO.
052199,002985:                                                                                                  #        02      BOFSET          SET A SWITCH AND DOA GOTO IF IT WAS OFF
052200,002986:                                                                                                  #        03      SET             SET A SWITCH.
052201,002987:                                                                                                  #        04      BONINV          INVERT A SWITCH AND BRANCH IF IT WAS ON.
052202,002988:                                                                                                  #        05      INVGO           INVERT A SWITCH AND DO A GOTO.
052203,002989:                                                                                                  #        06      BOFINV          INVERT A SWITCH AND BRANCH IF IT WAS OFF
052204,002990:                                                                                                  #        07      INVERT          INVERT A SWITCH.
052205,002991:                                                                                                  #        10      BONCLR          CLEAR A SWITCH AND BRANCH IF IT WAS ON.
052206,002992:                                                                                                  #        11      CLRGO           CLEAR A SWITCH AND DO A GOTO.
052207,002993:                                                                                                  #        12      BOFCLR          CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
052208,002994:                                                                                                  #        13      CLEAR           CLEAR A SWITCH.
052209,002995:                                                                                                  #        14      BON             BRANCH IF A SWITCH WAS ON.
052210,002996:                                                                                                  #        16      BOFF            BRANCH IF A SWITCH WAS OFF.
052211,002997:                                                                                                  #  THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
052212,002998:                                                                                                  #        BITS 1-4        SWITCH BIT NUMBER (1-15).
052213,002999:                                                                                                  #        BITS 5-8        SWITCH OPERATION NUMBER.
052214,003000:                                                                                                  #        BITS 9-         SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
052215,003001:                                                                                                  #  THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER.  THE BRANCH INSTRUCTIONS REQUIRE TWO
052216,003002:                                                                                                  #  ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
052217,003003: 
052218,003004: 01,2543           35026        SWITCHES           CAF      LOW4                                  #  LEAVE THE SWITCH BIT IN SWBIT.
052219,003005: 01,2544           70117                           MASK     POLISH                                
052220,003006: 01,2545           50000                           INDEX    A                                     
052221,003007: 01,2546           35001                           CAF      BIT15                                 #  (NUMBER FROM LEFT TO RIGHT.)
052222,003008: 01,2547           54131                           TS       SWBIT                                 
052223,003009: 
052224,003010: 01,2550           35011                           CAF      BIT7                                  #  LEAVE THE SWITCH NUMBER IN SWWORD.
052225,003011: 01,2551           00006                           EXTEND                                         
052226,003012: 01,2552           70117                           MP       POLISH                                
052227,003013: 01,2553           54130                           TS       SWWORD                                
052228,003014: 
052229,003015: 01,2554           00004                           INHINT                                         #  DURING SWITCH CHANGE SO RUPT CAN USE TOO
052230,003016: 01,2555           50000                           INDEX    A                                     #  LEAVE THE SWITCH WORD ITSELF IN L.
052231,003017: 01,2556           30074                           CA       STATE                                 
052232,003018: 01,2557           54002                           TS       Q                                     #  Q WILL BE USED AS A CHANNEL.

Page 1198

052234,003020: 01,2560           35005                           CAF      BIT11                                 
052235,003021: 01,2561           00006                           EXTEND                                         #  DISPATCH SWITCH BIT OPERATION AS IN BITS
052236,003022: 01,2562           70117                           MP       POLISH                                #  7-8 OF POLISH.
052237,003023: 01,2563           72623                           MASK     B3TOB4                                #  GETS 4X2-BIT CODE.
052238,003024: 01,2564           50000                           INDEX    A                                     
052239,003025: 01,2565           12566                           TCF      +1                                    
052240,003026: 
052241,003027: 01,2566           30131                 +1        CA       SWBIT                                 #  00 - SET SWITCH IN QUESTION.
052242,003028: 01,2567           00006                           EXTEND                                         
052243,003029: 01,2570           04002                           ROR      QCHAN                                 
052244,003030: 01,2571           12600                           TCF      SWSTORE                               
052245,003031: 
052246,003032: 01,2572           30131                 +5        CA       SWBIT                                 #  01 - INVERT SWITCH.
052247,003033: 01,2573           00006                           EXTEND                                         
052248,003034: 01,2574           06002                           RXOR     QCHAN                                 
052249,003035: 01,2575           12600                           TCF      SWSTORE                               
052250,003036: 
052251,003037: 01,2576           40131                 +9D       CS       SWBIT                                 #  10 - CLEAR.
052252,003038: 01,2577           70002                           MASK     Q                                     
052253,003039: 01,2600           50130        SWSTORE            INDEX    SWWORD                                
052254,003040: 01,2601           54074                           TS       STATE                                 #  NEW SWITCH WORD.
052255,003041: 

Page 1199

052257,003043: 01,2602           00003                 +13D      RELINT                                         #  11 - NOOP.
052258,003044: 01,2603           35003                           CAF      BIT13                                 
052259,003045: 01,2604           00006                           EXTEND                                         #  DISPATCH SEQUCE CHANGING OR BRANCHING
052260,003046: 01,2605           70117                           MP       POLISH                                #  CODE.
052261,003047: 01,2606           72623                           MASK     B3TOB4                                
052262,003048: 01,2607           50000                           INDEX    A                                     
052263,003049: 01,2610           12611                           TCF      +1                                    #  ORIGINALLY STORED IN BITS 5-6.
052264,003050: 
052265,003051: 01,2611           40002                 +1        CS       Q                                     #  00 - BRANCH IF ON.
052266,003052: 01,2612           70131        TEST               MASK     SWBIT                                 
052267,003053: 01,2613           10000                           CCS      A                                     
052268,003054: 01,2614           12624                           TCF      SWSKIP                                
052269,003055: 
052270,003056: 01,2615           16664                 +5        TCF      SWBRANCH                              #  01 - GO TO.
052271,003057: 
052272,003058: 01,2616           12624                           TCF      SWSKIP                                #  HERE ONLY ON BIT 15.
052273,003059: 
052274,003060: 01,2617           05747                           TC       CCSHOLE                               
052275,003061: 01,2620           05747                           TC       CCSHOLE                               
052276,003062: 
052277,003063: 01,2621           30002                 +9D       CA       Q                                     #  10 - BRANCH IF OFF.
052278,003064: 01,2622           12612                           TCF      TEST                                  
052279,003065: 
052280,003066: 01,2623           00014        B3TOB4             OCT      0014                                  
052281,003067: 01,2624           24164        SWSKIP             INCR     LOC                                   
052282,003068: 
052283,003069: 01,2625  01,2543               SW/                EQUALS   SWITCHES                              
052284,003070: 
052285,003071: 01,2625           16030                 +13D      TCF      DANZIG                                #  11 - NOOP.

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