Source Code

These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. Names of variables and program constants of the form "UNKnnnn" appear in areas not yet correlated with other pre-existing source code, and which are therefore unknown.

000635,000002:                                                                                                  ## Copyright:   Public domain.
000636,000003:                                                                                                  ## Filename:    LIST-PROCESSING_INTERPRETER.agc
000637,000004:                                                                                                  ## Purpose:     Part of the source code for AGC program Retread 50. 
000638,000005:                                                                                                  ## Assembler:   yaYUL
000639,000006:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
000640,000007:                                                                                                  ## Website:     www.ibiblio.org/apollo/Restoration.html
000641,000008:                                                                                                  ## Mod history: 2019-06-12 MAS  Recreated from Computer History Museum's
000642,000009:                                                                                                  ##                              physical core-rope modules.
000643,000010: 

Page 17

000645,000012:                                                                                                  #  SECTION 1  DISPATCHER
000646,000013: 
000647,000014:                                                                                                  #           ENTRY TO THE INTERPRETER. INTPRET SETS LOC TO THE FIRST  INSTRUCTION, BANKSET TO THE FBANK OF THE
000648,000015:                                                                                                  #  OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK. INTERPRETIVE PROGRAMS MAY BE IN
000649,000016:                                                                                                  #  VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
000650,000017:                                                                                                  #  (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA. THE INTERPRETER DOES NOT SWITCH SUPER-BANK,
000651,000018:                                                                                                  #  NOR DOES IT SWITCH EBANKS. MOST EBANK SWITCHING IS DONE BY THE EXECUTIVE PROGRAM.
000652,000019: 
000653,000020:    6000                                           SETLOC   6000                                  
000654,000021: 
000655,000022:    6000           00006        INTPRET            EXTEND                                         #  SET LOC TO THE WORD FOLLOWING THE TC.
000656,000023:    6001           22150                           QXCH     LOC                                   
000657,000024: 
000658,000025:    6002           30004                 +2        CA       FBANK                                 #  INTERPRETIVE BRANCHES FINISH HERE.
000659,000026:    6003           54151                           TS       BANKSET                               
000660,000027:    6004           77630                           MASK     BIT15                                 #  GET 15TH BIT FOR INDEXABLE ADDRESSES.
000661,000028:    6005           54101                           TS       INTBIT15                              
000662,000029:    6006           66425                           AD       LOW10                                 #  THIS VERSION IS USED IN PROCESSING
000663,000030:    6007           54100                           TS       INTB15+                               #  INDEXABLE FIXED-BANK ADDRESSES.
000664,000031: 
000665,000032:    6010           16023                           TCF      NEWOPS                                #  PICK UP OP CODE PAIR AND BEGIN.
000666,000033: 
000667,000034: 
000668,000035: 
000669,000036:    6011           22006        INTRSM             LXCH     BBANK                                 #  RESUME SUSPENDED INTERPRETIVE JOB
000670,000037:    6012           16017                           TCF      DANZIG     +3                         #  (ACTUALLY PART OF THE EXECUTIVE).
000671,000038: 

Page 18

000673,000040:                                                                                                  #           AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
000674,000041:    6013           54147        NEWMODE            TS       MODE                                  #  PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
000675,000042: 
000676,000043:    6014           30151        DANZIG             CA       BANKSET                               #  SET FBANK BEFORE TESTING NEWJOB SO THAT
000677,000044:    6015           54004                           TS       FBANK                                 #  BBANK MAY BE SAVED DIRECTLY BY CHANJOB.
000678,000045: 
000679,000046:    6016           10023                           CCS      EDOP                                  #  SEE IF AN ORDER CODE IS LEFT OVER FROM
000680,000047:    6017           16032                           TCF      OPJUMP                                #  THE LAST PAIR RETRIEVED. IF SO, EXECUTE.
000681,000048:                                                                                                  #  EDOP IS SET TO ZERO ON ITS RE-EDITING.
000682,000049: 
000683,000050:    6020           10067                           CCS      NEWJOB                                #  SEE IF A JOB OF HIGHER PRIORITY IS
000684,000051:    6021           14160                           TCF      CHANG2                                #  PRESENT, AND IF SO, CHANGE JOBS.
000685,000052: 
000686,000053:    6022           24150                           INCR     LOC                                   #  ADVANCE THE LOCATION COUNTER.
000687,000054:    6023           50150        NEWOPS             INDEX    LOC                                   #  ENTRY TO BEGIN BY PICKING OP CODE PAIR.
000688,000055:    6024           30000                           CA       0                                     #  MAY BE AN OPCODE PAIR OR A STORE CODE.
000689,000056:    6025           10000                           CCS      A                                     #  TEST SIGN AND GET DABS(A).
000690,000057:    6026           16341                           TCF      DOSTORE                               #  PROCESS STORE CODE.
000691,000058: 
000692,000059:    6027           00177        LOW7               OCT      177                                   
000693,000060: 
000694,000061:    6030           54023                           TS       EDOP                                  #  OP CODE PAIR. LEAVE THE OTHER IN EDOP
000695,000062:    6031           76027                           MASK     LOW7                                  #  WHERE  CCS EDOP  WILL HONOR IT NEXT.
000696,000063: 
000697,000064:    6032           54020        OPJUMP             TS       CYR                                   #  LOWWD ENTERS HERE IF A RIGHT-HAND OP
000698,000065:    6033           10020                           CCS      CYR                                   #  CODE IS TO BE PROCESSED. TEST PREFICES.
000699,000066:    6034           16167                           TCF      OPJUMP2                               #  TEST SECOND PREFIX BIT.
000700,000067: 
000701,000068:    6035           16730                           TCF      EXIT                                  #  +0 OP CODE IS EXIT.
000702,000069: 

Page 19

000704,000071:                                                                                                  #           PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
000705,000072: 
000706,000073:    6036           77646        ADDRESS            MASK     BIT1                                  #  SEE IF ADDRESS IS INDEXED. CYR CONTAINED
000707,000074:    6037           10000                           CCS      A                                     #  400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
000708,000075:    6040           16073                           TCF      INDEX                                 #  FORM INDEXED ADDRESS.
000709,000076: 
000710,000077:    6041           50150        DIRADRES           INDEX    LOC                                   #  LOOK AHEAD TO NEXT WORD TO SEE IF
000711,000078:    6042           40001        OCT40001           CS       1                                     #  ADDRESS IS GIVEN.
000712,000079:    6043           10000                           CCS      A                                     
000713,000080:    6044           16135                           TCF      PUSHUP                                #  IF NOT.
000714,000081: 
000715,000082:    6045           77773        NEG4               DEC      -4         B-14                       
000716,000083: 
000717,000084:    6046           24150                           INCR     LOC                                   #  IF SO, TO SHOW WE PICKED UP A WORD.
000718,000085:    6047           54102                           TS       ADDRWD                                
000719,000086: 

Page 20

000721,000088:                                                                                                  #           FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE. IN EACH CASE, THE
000722,000089:                                                                                                  #  REQUIRED 12 BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED BANK SWITCHING DONE (F ONLY). ADDRESSES LESS
000723,000090:                                                                                                  #  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.
000724,000091: 
000725,000092: 
000726,000093: 
000727,000094:    6050           66171                           AD       -ENDVAC                               #  SEE IF ADDRESS RELATIVE TO WORK AREA.
000728,000095:    6051           10000                           CCS      A                                     
000729,000096:    6052           66234                           AD       -ENDERAS                              #  IF NOT, SEE IF IN GENERAL ERASABLE.
000730,000097:    6053           16060                           TCF      IERASTST                              
000731,000098: 
000732,000099:    6054           30104        NETZERO            CA       FIXLOC                                #  IF SO, LEAVE THE MODIFIED ADDRESS IN
000733,000100:    6055           26102                           ADS      ADDRWD                                #  ADDRWD AND DISPATCH.
000734,000101:    6056           50020                 +2        INDEX    CYR                                   #  THIS INDEX MAKES THE NEXT INSTRUCTION
000735,000102:    6057           76234                           7        INDJUMP    -1                         #  TCF INDJUMP + OP, EDITING CYR.
000736,000103: 
000737,000104:    6060           00006        IERASTST           EXTEND                                         
000738,000105:    6061           66056                           BZMF     NETZERO    +2                         #  GENERAL ERASABLE - DISPATCH IMMEDIATELY.
000739,000106: 
000740,000107:    6062           60100        FIXEDADR           AD       INTB15+                               #  FIXED BANK ADDRESS. RESTORE AND ADD B15.
000741,000108:    6063           54004                 +1        TS       FBANK                                 #  SWITCH BANKS AND LEAVE SUB-ADDRESS IN
000742,000109:    6064           76425                           MASK     LOW10                                 #  ADDRWD FOR OPERAND RETRIEVAL.
000743,000110:    6065           67634                           AD       2K                                    
000744,000111:    6066           54102                           TS       ADDRWD                                
000745,000112:    6067           50020                           INDEX    CYR                                   
000746,000113:    6070           76234                           7        INDJUMP    -1                         
000747,000114: 

Page 21

000749,000116:                                                                                                  #           THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES. AN INTERPRETER INDEX REGISTER MAY
000750,000117:                                                                                                  #  CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
000751,000118:                                                                                                  #  BANK, OR ANY INTEGER IN THAT RANGE.
000752,000119: 
000753,000120:    6071           37661        DODLOAD*           CAF      DLOAD*                                #  STODL* COMES HERE TO PROCESS LOAD ADR.
000754,000121:    6072           54020                           TS       CYR                                   #  (STOVL* ENTERS HERE).
000755,000122: 
000756,000123:    6073           30104        INDEX              CA       FIXLOC                                #  SET UP INDEX LOCATION.
000757,000124:    6074           54114                           TS       INDEXLOC                              
000758,000125:    6075           24150                           INCR     LOC                                   #  (ADDRESS ALWAYS GIVEN).
000759,000126:    6076           50150                           INDEX    LOC                                   
000760,000127:    6077           40000                           CS       0                                     
000761,000128:    6100           10000                           CCS      A                                     #  INDEX 2 IF ADDRESS STORED COMPLEMENTED.
000762,000129:    6101           24114                           INCR     INDEXLOC                              
000763,000130:    6102           16103                           NOOP                                           
000764,000131: 
000765,000132:    6103           54102                           TS       ADDRWD                                #  14 BIT ADDRESS TO ADDRWD.
000766,000133:    6104           76232                           MASK     BANKMASK                              #  IF ADDRESS GREATER THAN 1K, ADD INTBIT15
000767,000134:    6105           00006                           EXTEND                                         
000768,000135:    6106           16111                           BZF      INDEX2                                
000769,000136:    6107           30101                           CA       INTBIT15                              
000770,000137:    6110           26102                           ADS      ADDRWD                                
000771,000138: 
000772,000139:    6111           50114        INDEX2             INDEX    INDEXLOC                              
000773,000140:    6112           40046                           CS       X1                                    
000774,000141:    6113           26102                           ADS      ADDRWD                                #  DO AUGMENT, IGNORING AND CORRECTING OVF.
000775,000142: 
000776,000143:    6114           76231                           MASK     HIGH9                                 #  SEE IF ADDRESS IS IN WORK AREA.
000777,000144:    6115           00006                           EXTEND                                         
000778,000145:    6116           16131                           BZF      INDWORK                               
000779,000146:    6117           76232                           MASK     BANKMASK                              #  SEE IF IN FIXED BANK.
000780,000147:    6120           00006                           EXTEND                                         
000781,000148:    6121           16133                           BZF      INDERASE                              
000782,000149: 
000783,000150:    6122           30102                           CA       ADDRWD                                #  IN FIXED - SWITCH BANKS AND CREATE
000784,000151:    6123           54004                           TS       FBANK                                 #  SUB-ADDRESS.
000785,000152:    6124           76425                           MASK     LOW10                                 
000786,000153:    6125           67634                           AD       2K                                    
000787,000154:    6126           54102                           TS       ADDRWD                                
000788,000155:    6127           50020                           INDEX    CYR                                   
000789,000156:    6130           36234                           3        INDJUMP    -1                         
000790,000157: 
000791,000158:    6131           30104        INDWORK            CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO WORK AREA.
000792,000159:    6132           26102                           ADS      ADDRWD                                
000793,000160: 
000794,000161:    6133           50020        INDERASE           INDEX    CYR                                   
000795,000162:    6134           36234                           3        INDJUMP    -1                         
000796,000163: 

Page 22

000798,000165:                                                                                                  #           PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
000799,000166:                                                                                                  #  LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
000800,000167:                                                                                                  #  IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
000801,000168:                                                                                                  #  BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
000802,000169: 
000803,000170:                                                                                                  #           1.  VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
000804,000171:                                                                                                  #  RESULT, VXSC WANTS A SCALAR.
000805,000172: 
000806,000173:                                                                                                  #           2.  THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION. THIS
000807,000174:                                                                                                  #  INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
000808,000175: 
000809,000176:                                                                                                  #           3.  SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
000810,000177:                                                                                                  #  THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
000811,000178: 
000812,000179:    6135           36227        PUSHUP             CAF      OCT23                                 #  IF THE LOW 5 BITS OF CYR ARE LESS THAN
000813,000180:    6136           70020                           MASK     CYR                                   #  20, THIS OP REQUIRES SPECIAL ATTENTION.
000814,000181:    6137           66142                           AD       -OCT10                                #  (NO -0).
000815,000182:    6140           10000                           CCS      A                                     
000816,000183:    6141           16153                           TCF      REGUP                                 #  FOR ALL CODES GREATER THAN OCT 7.
000817,000184: 
000818,000185:    6142           77767        -OCT10             OCT      -10                                   
000819,000186: 
000820,000187:    6143           66045                           AD       NEG4                                  #  WE NOW HAVE 7 - OP CODE(MOD4). SEE IF
000821,000188:    6144           10000                           CCS      A                                     #  THE OP CODE (MOD4) IS THREE (REVERSE).
000822,000189:    6145           50000                           INDEX    A                                     #  NO - THE MODE IS DEFINITE. PICK UP THE
000823,000190:    6146           46164                           CS       NO.WDS                                
000824,000191:    6147           16155                           TCF      REGUP      +2                         
000825,000192: 
000826,000193:    6150           50147                           INDEX    MODE                                  #  FOR VXSC AND V/SC WE WANT THE REQUIRED
000827,000194:    6151           46162                           CS       REVCNT                                #  PUSHLOC DECREMENT WITHOUT CHANGING THE
000828,000195:    6152           16155                           TCF      REGUP      +2                         #  MODE AT THIS TIME.
000829,000196: 
000830,000197:    6153           50147        REGUP              INDEX    MODE                                  #  MOST ALL OP CODES PUSHUP HERE.
000831,000198:    6154           46164                           CS       NO.WDS                                
000832,000199:    6155           26152                 +2        ADS      PUSHLOC                               
000833,000200:    6156           54102                           TS       ADDRWD                                
000834,000201:    6157           50020                           INDEX    CYR                                   
000835,000202:    6160           76234                           7        INDJUMP    -1                         #  (THE INDEX MAKES THIS A TCF.)
000836,000203: 
000837,000204:    6161           00002                           OCT      2                                     #  REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
000838,000205:    6162           00006        REVCNT             OCT      6                                     #  WORDS, SCALAR TAKES 6.
000839,000206:    6163           00006                           OCT      6                                     
000840,000207:    6164           00002        NO.WDS             OCT      2                                     #  CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
000841,000208:    6165           00003                           OCT      3                                     #  2 IN DP, AND 3 IN TP.
000842,000209:    6166           00006                           OCT      6                                     
000843,000210: 

Page 23

000845,000212:                                                                                                  #           TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
000846,000213: 
000847,000214:    6167           10020        OPJUMP2            CCS      CYR                                   #  TEST SECOND PREFIX BIT.
000848,000215:    6170           16217                           TCF      OPJUMP3                               #  TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
000849,000216: 
000850,000217:    6171           77722        -ENDVAC            DEC      -45        B-14                       
000851,000218: 
000852,000219:                                                                                                  #           THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
000853,000220:                                                                                                  #  IN THE RANGE 0 - 52, ERASABLE ADRES CONSTANTS FROM 100 - 1777, AND FCADRS ABOVE THAT. ALL 15 BITS ARE AVAILABLE
000854,000221:                                                                                                  #  IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
000855,000222: 
000856,000223:    6172           24150        15BITADR           INCR     LOC                                   #  (ENTRY HERE FROM STCALL).
000857,000224:    6173           50150                           INDEX    LOC                                   #  PICK UP ADDRESS WORD.
000858,000225:    6174           30000                           CA       0                                     
000859,000226:    6175           54103                           TS       POLISH                                #  THE ABSOLUTE ADDRESS WILL BE LEFT IN
000860,000227:    6176           54102                           TS       ADDRWD                                #  POLISH WITH AN ERASABLE SUBADDRESS IN
000861,000228:                                                                                                  #  ADDRWD.
000862,000229:    6177           76231                           MASK     HIGH9                                 #  SEE IF RELATIVE TO THE WORK AREA.
000863,000230:    6200           10000                           CCS      A                                     
000864,000231:    6201           16203                           TCF      +2                                    
000865,000232:    6202           16210                           TCF      RELWORK                               #  ONLY IF ZERO.
000866,000233: 
000867,000234:    6203           36230                           CAF      LOW7+2K                               #  THESE INSTRUCTIONS ARE IN BANK 1.
000868,000235:    6204           54004                           TS       FBANK                                 
000869,000236:    6205           70020                           MASK     CYR                                   
000870,000237:    6206           50000                           INDEX    A                                     
000871,000238:    6207           16275                           TCF      MISCJUMP                              
000872,000239: 
000873,000240:    6210           30104        RELWORK            CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO FIXLOC, LEAVING
000874,000241:    6211           26102                           ADS      ADDRWD                                #  POLISH ABSOLUTE IN CASE THIS WAS AN
000875,000242:    6212           36230                           CAF      LOW7+2K                               #  AXT, ETC.
000876,000243:    6213           54004                           TS       FBANK                                 
000877,000244:    6214           70020                           MASK     CYR                                   
000878,000245:    6215           50000                           INDEX    A                                     
000879,000246:    6216           16275                           TCF      MISCJUMP                              
000880,000247: 

Page 24

000882,000249:                                                                                                  #           COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
000883,000250: 
000884,000251:    6217           54004        OPJUMP3            TS       FBANK                                 #  CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
000885,000252:    6220           10020                           CCS      CYR                                   #  TEST THIRD PREFIX BIT.
000886,000253:    6221           50000                           INDEX    A                                     #  THE DECREMENTED UNARY CODE IS IN BITS
000887,000254:    6222           16315                           TCF      UNAJUMP                               #  1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
000888,000255: 
000889,000256:    6223           10147                           CCS      MODE                                  #  ITS A SHORT SHIFT CODE. SEE IF PRESENT
000890,000257:    6224           12000                           TCF      SHORTT                                #  SCALAR OR VECTOR.
000891,000258:    6225           12000                           TCF      SHORTT                                
000892,000259:    6226           12102                           TCF      SHORTV                                #  CALLS THE APPROPRIATE ROUTINE.
000893,000260: 
000894,000261: 
000895,000262: 
000896,000263:    6227           00023        OCT23              OCT      23                                    #  MASK USED BY PUSH-UP ROUTINE.
000897,000264:    6230           02177        LOW7+2K            OCT      2177                                  #  OP CODE MASK + BANK 1 FBANK SETTING.
000898,000265:    6231           77700        HIGH9              OCT      77700                                 
000899,000266:    6232           76000        BANKMASK           OCT      76000                                 #  FBANK MASK.
000900,000267:    6233     6232               FBANKMSK           EQUALS   BANKMASK                              
000901,000268:    6233           36000        B11T14             OCT      36000                                 #  USED IN PROCESSING STORE CODES.
000902,000269:    6234           76056        -ENDERAS           DEC      -977       B-14                       
000903,000270: 

Page 25

000905,000272:                                                                                                  #           THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
000906,000273: 
000907,000274:    6235           16510        INDJUMP            TCF      VLOAD                                 #  00 - LOAD MPAC WITH A VECTOR.
000908,000275:    6236           17047                           TCF      TAD                                   #  01 - TRIPLE PRECISION ADD TO MPAC.
000909,000276:    6237           17572                           TCF      SIGN                                  #  02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
000910,000277:    6240           17345                           TCF      VXSC                                  #  03 - VECTOR TIMES SCALAR.
000911,000278:    6241           16671                           TCF      CGOTO                                 #  04 - COMPUTED GO TO.
000912,000279:    6242           16473                           TCF      TLOAD                                 #  05 - LOAD MPAC WITH TRIPLE PRECISION.
000913,000280:    6243           16464                           TCF      DLOAD                                 #  06 - LOAD MPAC WITH A DP SCALAR.
000914,000281:    6244           17541                           TCF      V/SC                                  #  07 - VECTOR DIVIDED BY SCALAR.
000915,000282: 
000916,000283:    6245           16504                           TCF      SLOAD                                 #  10 - LOAD MPAC IN SINGLE PRECISION.
000917,000284:    6246           16623                           TCF      SSP                                   #  11 - SET SINGLE PRECISION INTO X.
000918,000285:    6247           16526                           TCF      PDDL                                  #  12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
000919,000286:    6250           17300                           TCF      MXV                                   #  13 - MATRIX POST-MULTIPLIED BY VECTOR.
000920,000287:    6251           16562                           TCF      PDVL                                  #  14 - PUSH DOWN AND VECTOR LOAD.
000921,000288:    6252           16631                           TCF      CCALL                                 #  15 - COMPUTED CALL.
000922,000289:    6253           17303                           TCF      VXM                                   #  16 - MATRIX PRE-MULTIPLIED BY VECTOR.
000923,000290:    6254           17533                           TCF      TSLC                                  #  17 - NORMALIZE MPAC (SCALAR ONLY).
000924,000291: 
000925,000292:    6255           17511                           TCF      DMPR                                  #  20 - DP MULTIPLY AND ROUND.
000926,000293:    6256           17514                           TCF      DDV                                   #  21 - DP DIVIDE BY.
000927,000294:    6257           17520                           TCF      BDDV                                  #  22 - DP DIVIDE INTO.
000928,000295:    6260           17536                           TCF      GSHIFT                                #  23 - GENERAL SHIFT INSTRUCTION.
000929,000296:    6261           16732                           TCF      VAD                                   #  24 - VECTOR ADD.
000930,000297:    6262           16760                           TCF      VSU                                   #  25 - VECTOR SUBTRACT.
000931,000298:    6263           17010                           TCF      BVSU                                  #  26 - VECTOR SUBTRACT FROM.
000932,000299:    6264           17275                           TCF      DOT                                   #  27 - VECTOR DOT PRODUCT.
000933,000300: 
000934,000301:    6265           17423                           TCF      VXV                                   #  30 - VECTOR CROSS PRODUCT.
000935,000302:    6266           17371                           TCF      VPROJ                                 #  31 - VECTOR PROJECTION.
000936,000303:    6267           16776                           TCF      DSU                                   #  32 - DP SUBTRACT.
000937,000304:    6270           17034                           TCF      BDSU                                  #  33 - DP SUBTRACT FROM.
000938,000305:    6271           16750                           TCF      DAD                                   #  34 - DP ADD.
000939,000306:    6272           16272                           TCF      +0                                    #  35 - AVAILABLE
000940,000307:    6273           17507                           TCF      DMP1                                  #  36 - DP MULTIPLY.
000941,000308:    6274           17530                           TCF      SETPD                                 #  37 - SET PUSH DOWN POINTER (DIRECT ONLY)
000942,000309: 
000943,000310:                                                                                                  #  CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
000944,000311: 

Page 26

000946,000313:                                                                                                  #           THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
000947,000314: 
000948,000315:    6275           12000        MISCJUMP           TCF      AXT                                   #  00 - ADDRESS TO INDEX TRUE.
000949,000316:    6276           12005                           TCF      AXC                                   #  01 - ADDRESS TO INDEX COMPLEMENTED.
000950,000317:    6277           12010                           TCF      LXA                                   #  02 - LOAD INDEX FROM ERASABLE.
000951,000318:    6300           12014                           TCF      LXC                                   #  03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
000952,000319:    6301           12020                           TCF      SXA                                   #  04 - STORE INDEX IN ERASABLE.
000953,000320:    6302           12024                           TCF      XCHX                                  #  05 - EXCHANGE INDEX WITH ERASABLE.
000954,000321:    6303           12040                           TCF      INCR                                  #  06 - INCREMENT INDEX REGISTER.
000955,000322:    6304           12047                           TCF      TIX                                   #  07 - TRANSFER ON INDEX.
000956,000323: 
000957,000324:    6305           12032                           TCF      XAD                                   #  10 - INDEX REGISTER ADD FROM ERASABLE.
000958,000325:    6306           12043                           TCF      XSU                                   #  11 - INDEX SUBTRACT FROM ERASABLE.
000959,000326:    6307           12107                           TCF      BZE/GOTO                              #  12 - BRANCH ZERO AND GOTO.
000960,000327:    6310           12114                           TCF      BPL/BMN                               #  13 - BRANCH PLUS AND BRANCH MINUS.
000961,000328:    6311           12127                           TCF      CALL/ITA                              #  14 - CALL AND STORE QPRET.
000962,000329:    6312           12067                           TCF      RTB/BHIZ                              #  15 - RETURN TO BASIC AND BRANCH HI ZERO.
000963,000330:    6313           12135                           TCF      SW/                                   #  16 - SWITCH INSTRUCTIONS AND AVAILABLE.
000964,000331:    6314           12077                           TCF      BOV(B)                                #  17 - BRANCH ON OVERFLOW TO BASIC OR INT.
000965,000332: 

Page 27

000967,000334:                                                                                                  #           THE FOLLOWING JUMP TABLE APPIES TO UNARY INSTRUCTIONS.
000968,000335: 
000969,000336:                                                                                                  #  00 - EXIT - DETECTED EARLIER.
000970,000337:    6315           13125        UNAJUMP            TCF      SQRT                                  #  01 - SQUARE ROOT.
000971,000338:    6316           13442                           TCF      SINE                                  #  02 - SIN.
000972,000339:    6317           13431                           TCF      COSINE                                #  03 - COS.
000973,000340:    6320           13522                           TCF      ARCSIN                                #  04 - ARC SIN.
000974,000341:    6321           13524                           TCF      ARCCOS                                #  05 - ARC COS.
000975,000342:    6322           13107                           TCF      DSQ                                   #  06 - DP SQUARE.
000976,000343:    6323           13111                           TCF      ROUND                                 #  07 - ROUND TO DP.
000977,000344: 
000978,000345:    6324           17605                           TCF      COMP                                  #  10 - COMPLEMENT VECTOR OR SCALAR.
000979,000346:    6325           13150                           TCF      VDEF                                  #  11 - VECTOR DEFINE.
000980,000347:    6326           12750                           TCF      UNIT                                  #  12 - UNIT VECTOR.
000981,000348:    6327           13114                           TCF      ABVALABS                              #  13 - LENGTH OF VECTOR OR MAG OF SCALAR.
000982,000349:    6330           13164                           TCF      VSQ                                   #  14 - SQUARE OF LENGTH OF VECTOR.
000983,000350:    6331           16334                           TCF      STADR                                 #  15 - PUSH UP ON STORE CODE.
000984,000351:    6332           13214                           TCF      RVQ                                   #  16 - RETURN VIA QPRET.
000985,000352:    6333           13167                           TCF      PUSH                                  #  17 - PUSH MPAC DOWN.
000986,000353: 

Page 28

000988,000355:                                                                                                  #  SECTION 2  LOAD AND STORE PACKAGE.
000989,000356: 
000990,000357:                                                                                                  #           A SET OF SIXTEEN STORE CODES ARE PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
000991,000358:                                                                                                  #  ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
000992,000359:                                                                                                  #  STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
000993,000360:                                                                                                  #  FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
000994,000361: 
000995,000362:                                                                                                  #           1. STORE               STORE MPAC. THE E ADDRESS MAY BE INDEXED.
000996,000363:                                                                                                  #           2. STODL               STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (EITHER MAY BE INDEXED).
000997,000364:                                                                                                  #           3. STOVL               STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
000998,000365:                                                                                                  #           4. STCALL              STORE AND DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE).
000999,000366: 
001000,000367:                                                                                                  #           STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
001001,000368: 
001002,000369: 
001003,000370: 
001004,000371:    6334           30151        STADR              CA       BANKSET                               #  THE STADR CODE (PUSHUP UP ON STORE
001005,000372:    6335           54004                           TS       FBANK                                 #  ADDRESS) ENTERS HERE.
001006,000373:    6336           24150                           INCR     LOC                                   
001007,000374:    6337           50150                           INDEX    LOC                                   #  THE STORE CODE WAS STORE COMPLEMENTED TO
001008,000375:    6340           40000                           CS       0                                     #  MAKE IT LOOK LIKE AN OPCODE PAIR.
001009,000376: 
001010,000377:    6341           54102        DOSTORE            TS       ADDRWD                                
001011,000378:    6342           76425                           MASK     LOW10                                 #  ENTRY FROM DISPATCHER. SAVE THE ERASABLE
001012,000379:    6343           56102                           XCH      ADDRWD                                #  ADDRESS AND JUMP ON THE STORE CODE NO.
001013,000380:    6344           76233                           MASK     B11T14                                
001014,000381:    6345           00006                           EXTEND                                         
001015,000382:    6346           77641                           MP       BIT6                                  #  EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
001016,000383:    6347           50000                           INDEX    A                                     
001017,000384:    6350           16351                           TCF      STORJUMP                              
001018,000385: 

Page 29

001020,000387:                                                                                                  #           STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
001021,000388:                                                                                                  #  A SUPPLIED OPERATION CODE.
001022,000389: 
001023,000390:    6351           06421        STORJUMP           TC       STORE                                 #  STORE.
001024,000391:    6352           16022                           TCF      NEWOPS     -1                         #  PICK UP NEW OP CODE(S).
001025,000392:    6353           06413                           TC       STORE,1                               
001026,000393:    6354           16022                           TCF      NEWOPS     -1                         
001027,000394:    6355           06416                           TC       STORE,2                               
001028,000395:    6356           16022                           TCF      NEWOPS     -1                         
001029,000396: 
001030,000397:    6357           06421                           TC       STORE                                 #  STODL.
001031,000398:    6360           16454                           TCF      DODLOAD                               
001032,000399:    6361           06413                           TC       STORE,1                               
001033,000400:    6362           16454                           TCF      DODLOAD                               
001034,000401:    6363           06416                           TC       STORE,2                               
001035,000402:    6364           16454                           TCF      DODLOAD                               
001036,000403: 
001037,000404:    6365           06421                           TC       STORE                                 #  STODL WITH INDEXED LOAD ADDRESS.
001038,000405:    6366           16071                           TCF      DODLOAD*                              
001039,000406:    6367           06413                           TC       STORE,1                               
001040,000407:    6370           16071                           TCF      DODLOAD*                              
001041,000408:    6371           06416                           TC       STORE,2                               
001042,000409:    6372           16071                           TCF      DODLOAD*                              
001043,000410: 
001044,000411:    6373           06421                           TC       STORE                                 #  STOVL.
001045,000412:    6374           16457                           TCF      DOVLOAD                               
001046,000413:    6375           06413                           TC       STORE,1                               
001047,000414:    6376           16457                           TCF      DOVLOAD                               
001048,000415:    6377           06416                           TC       STORE,2                               
001049,000416:    6400           16457                           TCF      DOVLOAD                               
001050,000417: 
001051,000418:    6401           06421                           TC       STORE                                 #  STOVL WITH INDEXED LOAD ADDRESS.
001052,000419:    6402           16462                           TCF      DOVLOAD*                              
001053,000420:    6403           06413                           TC       STORE,1                               
001054,000421:    6404           16462                           TCF      DOVLOAD*                              
001055,000422:    6405           06416                           TC       STORE,2                               
001056,000423:    6406           16462                           TCF      DOVLOAD*                              
001057,000424: 
001058,000425:    6407           06421                           TC       STORE                                 #  STOTC.
001059,000426:    6410           37657                           CAF      CALLCODE                              
001060,000427:    6411           54020                           TS       CYR                                   
001061,000428:    6412           16172                           TCF      15BITADR                              #  GET A 15 BIT ADDRESS.
001062,000429: 

Page 30

001064,000431:                                                                                                  #           STORE CODE ADDRESS PROCESSOR.
001065,000432: 
001066,000433:    6413           50104        STORE,1            INDEX    FIXLOC                                
001067,000434:    6414           40046                           CS       X1                                    
001068,000435:    6415           16420                           TCF      PRESTORE                              
001069,000436: 
001070,000437:    6416           50104        STORE,2            INDEX    FIXLOC                                
001071,000438:    6417           40047                           CS       X2                                    
001072,000439:    6420           26102        PRESTORE           ADS      ADDRWD                                #  RESULTANT ADDRESS IS IN ERASABLE.
001073,000440: 
001074,000441:    6421           30102        STORE              CA       ADDRWD                                #  SEE IF ADDRESS RELATIVE TO WORK AREA.
001075,000442:    6422           66171                           AD       -ENDVAC                               
001076,000443:    6423           10000                           CCS      A                                     
001077,000444:    6424           16430                           TCF      STARTSTO                              #  ADDRESS OK AS IS.
001078,000445: 
001079,000446:    6425           01777        LOW10              OCT      1777                                  
001080,000447: 
001081,000448:    6426           30104                           CA       FIXLOC                                #  GIVEN ADDRESS IS RELATIVE TO WORK AREA.
001082,000449:    6427           26102                           ADS      ADDRWD                                
001083,000450: 

Page 31

001085,000452:                                                                                                  #           STORING ROUTINES. STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
001086,000453: 
001087,000454:    6430           00006        STARTSTO           EXTEND                                         #  MPAC,+1 MUST BE STORED IN ANY EVENT.
001088,000455:    6431           30141                           DCA      MPAC                                  
001089,000456:    6432           50102                           INDEX    ADDRWD                                
001090,000457:    6433           52001                           DXCH     0                                     
001091,000458: 
001092,000459:    6434           10147                           CCS      MODE                                  
001093,000460:    6435           16450                           TCF      TSTORE                                
001094,000461:    6436           00002                           TC       Q                                     
001095,000462: 
001096,000463:    6437           00006        VSTORE             EXTEND                                         
001097,000464:    6440           30144                           DCA      MPAC       +3                         
001098,000465:    6441           50102                           INDEX    ADDRWD                                
001099,000466:    6442           52003                           DXCH     2                                     
001100,000467: 
001101,000468:    6443           00006                           EXTEND                                         
001102,000469:    6444           30146                           DCA      MPAC       +5                         
001103,000470:    6445           50102                           INDEX    ADDRWD                                
001104,000471:    6446           52005                           DXCH     4                                     
001105,000472:    6447           00002                           TC       Q                                     
001106,000473: 
001107,000474:    6450           30142        TSTORE             CA       MPAC       +2                         
001108,000475:    6451           50102                           INDEX    ADDRWD                                
001109,000476:    6452           54002                           TS       2                                     
001110,000477:    6453           00002                           TC       Q                                     
001111,000478: 

Page 32

001113,000480:                                                                                                  #           ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
001114,000481:                                                                                                  #  ITSELF.
001115,000482: 
001116,000483:    6454           37660        DODLOAD            CAF      DLOADCOD                              
001117,000484:    6455           54020                           TS       CYR                                   
001118,000485:    6456           16041                           TCF      DIRADRES                              #  GO GET A DIRECT ADDRESS.
001119,000486: 
001120,000487:    6457           37630        DOVLOAD            CAF      VLOADCOD                              
001121,000488:    6460           54020                           TS       CYR                                   
001122,000489:    6461           16041                           TCF      DIRADRES                              
001123,000490: 
001124,000491:    6462           36042        DOVLOAD*           CAF      VLOAD*                                
001125,000492:    6463           16072                           TCF      DODLOAD*   +1                         #  PROLOGUE TO INDEX ROUTINE.
001126,000493: 

Page 33

001128,000495:                                                                                                  #           THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
001129,000496: 
001130,000497:    6464           00006        DLOAD              EXTEND                                         
001131,000498:    6465           50102                           INDEX    ADDRWD                                
001132,000499:    6466           30001                           DCA      0                                     #  PICK UP DP ARGUMENT AND LEAVE IT IN
001133,000500:    6467           52141        SLOAD2             DXCH     MPAC                                  #  MPAC,+1, SETTING MPAC +2 TO ZERO. THE
001134,000501:    6470           37653                           CAF      ZERO                                  #  CONTENTS OF THE OTHER FOUR REGISTERS OF
001135,000502:    6471           54142                           TS       MPAC       +2                         #  MPAC ARE IRRELEVANT.
001136,000503:    6472           16013                           TCF      NEWMODE                               #  DECLARE DOUBLE PRECISION MODE.
001137,000504: 
001138,000505:    6473           50102        TLOAD              INDEX    ADDRWD                                
001139,000506:    6474           30002                           CA       2                                     #  LOAD A TRIPLE PRECISION ARGUMENT INTO
001140,000507:    6475           54142                           TS       MPAC       +2                         #  THE FIRST THREE MPAC REGISTERS, WITH THE
001141,000508:    6476           00006                           EXTEND                                         #  CONTENTS OF THE OTHER FOUR IRRELEVANT.
001142,000509:    6477           50102                           INDEX    ADDRWD                                
001143,000510:    6500           30001                           DCA      0                                     
001144,000511:    6501           52141                           DXCH     MPAC                                  
001145,000512:    6502           37646                           CAF      ONE                                   
001146,000513:    6503           16013                           TCF      NEWMODE                               #  DECLARE TRIPLE PRECISION MODE.
001147,000514: 
001148,000515:    6504           22007        SLOAD              ZL                                             #  LOAD A SINGLE PRECISION NUMBER INTO
001149,000516:    6505           50102                           INDEX    ADDRWD                                #  MPAC, SETTING MPAC+1,2 TO ZERO. THE
001150,000517:    6506           30000                           CA       0                                     #  CONTENTS OF THE REMAINING MPAC REGISTERS
001151,000518:    6507           16467                           TCF      SLOAD2                                #  ARE IRRELEVANT.
001152,000519: 
001153,000520:    6510           00006        VLOAD              EXTEND                                         #  LOAD A DOUBLE PRECISION VECTOR INTO
001154,000521:    6511           50102                           INDEX    ADDRWD                                #  MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
001155,000522:    6512           30001                           DCA      0                                     #  CONTENTS OF MPAC +2 ARE IRRELEVANT.
001156,000523:    6513           52141                           DXCH     MPAC                                  
001157,000524: 
001158,000525:    6514           00006        ENDVLOAD           EXTEND                                         #  PDVL COMES HERE TO FINISH UP FOR DP, TP.
001159,000526:    6515           50102                           INDEX    ADDRWD                                
001160,000527:    6516           30003                           DCA      2                                     
001161,000528:    6517           52144                           DXCH     MPAC       +3                         
001162,000529: 
001163,000530:    6520           00006                 +4        EXTEND                                         #  TPDVL FINISHES HERE.
001164,000531:    6521           50102                           INDEX    ADDRWD                                
001165,000532:    6522           30005                           DCA      4                                     
001166,000533:    6523           52146                           DXCH     MPAC       +5                         
001167,000534: 
001168,000535:    6524           47646                           CS       ONE                                   #  DECLARE VECTOR MODE.
001169,000536:    6525           16013                           TCF      NEWMODE                               
001170,000537: 

Page 34

001172,000539:                                                                                                  #           THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
001173,000540: 
001174,000541:                                                                                                  #           1.  PUSH               PUSHDOWN AND NO LOAD.
001175,000542:                                                                                                  #           2.  PDDL               PUSHDOWN AND DOUBLE PRECISION LOAD.
001176,000543:                                                                                                  #           3.  PDVL               PUSHDOWN AND VECTOR LOAD.
001177,000544: 
001178,000545:    6526           00006        PDDL               EXTEND                                         
001179,000546:    6527           50102                           INDEX    ADDRWD                                #  LOAD MPAC,+1, PUSHING THE FORMER
001180,000547:    6530           30001                           DCA      0                                     #  CONTENTS DOWN.
001181,000548:    6531           52141                           DXCH     MPAC                                  
001182,000549:    6532           50152                           INDEX    PUSHLOC                               
001183,000550:    6533           52001                           DXCH     0                                     
001184,000551: 
001185,000552:    6534           50147                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER APPRO-
001186,000553:    6535           36164                           CAF      NO.WDS                                #  PRIATELY.
001187,000554:    6536           26152                           ADS      PUSHLOC                               
001188,000555: 
001189,000556:    6537           10147                           CCS      MODE                                  
001190,000557:    6540           16555                           TCF      ENDTPUSH                              
001191,000558:    6541           16553                           TCF      ENDDPUSH                              
001192,000559: 
001193,000560:    6542           54147                           TS       MODE                                  #  NOW DP.
001194,000561:    6543           54142        ENDVPUSH           TS       MPAC       +2                         
001195,000562:    6544           52144                           DXCH     MPAC       +3                         #  PUSH DOWN THE REST OF THE VECTOR HERE.
001196,000563:    6545           50152                           INDEX    PUSHLOC                               
001197,000564:    6546           51775                           DXCH     0          -4                         
001198,000565: 
001199,000566:    6547           52146                           DXCH     MPAC       +5                         
001200,000567:    6550           50152                           INDEX    PUSHLOC                               
001201,000568:    6551           51777                           DXCH     0          -2                         
001202,000569: 
001203,000570:    6552           16014                           TCF      DANZIG                                
001204,000571: 
001205,000572:    6553           54142        ENDDPUSH           TS       MPAC       +2                         #  SET MPAC +2 TO ZERO AND EXIT ON DP.
001206,000573:    6554           16014                           TCF      DANZIG                                
001207,000574: 
001208,000575:    6555           54147        ENDTPUSH           TS       MODE                                  
001209,000576:    6556           56142                           XCH      MPAC       +2                         #  ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
001210,000577:    6557           50152                 +2        INDEX    PUSHLOC                               #  DOWN THE OLD CONTENTS
001211,000578:    6560           53777                           TS       0          -1                         
001212,000579:    6561           16014                           TCF      DANZIG                                
001213,000580: 

Page 35

001215,000582:                                                                                                  #           PDVL - PUSHDOWN AND VECTOR LOAD.
001216,000583: 
001217,000584:    6562           00006        PDVL               EXTEND                                         #  RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
001218,000585:    6563           50102                           INDEX    ADDRWD                                
001219,000586:    6564           30001                           DCA      0                                     
001220,000587:    6565           52141                           DXCH     MPAC                                  
001221,000588:    6566           50152                           INDEX    PUSHLOC                               
001222,000589:    6567           52001                           DXCH     0                                     
001223,000590: 
001224,000591:    6570           50147                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER.
001225,000592:    6571           36164                           CAF      NO.WDS                                
001226,000593:    6572           26152                           ADS      PUSHLOC                               
001227,000594: 
001228,000595:    6573           10147                           CCS      MODE                                  #  TEST PAST MODE.
001229,000596:    6574           16613                           TCF      TPDVL                                 
001230,000597:    6575           16514                           TCF      ENDVLOAD                              #  JUST LOAD LAST FOUR REGISTERS ON DP.
001231,000598: 
001232,000599:    6576           00006        VPDVL              EXTEND                                         #  PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
001233,000600:    6577           50102                           INDEX    ADDRWD                                
001234,000601:    6600           30003                           DCA      2                                     
001235,000602:    6601           52144                           DXCH     MPAC       +3                         
001236,000603:    6602           50152                           INDEX    PUSHLOC                               
001237,000604:    6603           51775                           DXCH     0          -4                         
001238,000605: 
001239,000606:    6604           00006                           EXTEND                                         
001240,000607:    6605           50102                           INDEX    ADDRWD                                
001241,000608:    6606           30005                           DCA      4                                     
001242,000609:    6607           52146                           DXCH     MPAC       +5                         
001243,000610:    6610           50152                           INDEX    PUSHLOC                               
001244,000611:    6611           51777                           DXCH     0          -2                         
001245,000612: 
001246,000613:    6612           16014                           TCF      DANZIG                                
001247,000614: 
001248,000615:    6613           00006        TPDVL              EXTEND                                         #  ON TP, WE MUST LOAD THE Y COMPONENT
001249,000616:    6614           50102                           INDEX    ADDRWD                                #  BEFORE STORING MPAC +2 INCASE THIS IS A
001250,000617:    6615           30003                           DCA      2                                     #  PUSHUP.
001251,000618:    6616           52144                           DXCH     MPAC       +3                         
001252,000619: 
001253,000620:    6617           30142                           CA       MPAC       +2                         
001254,000621:    6620           50152                           INDEX    PUSHLOC                               #  IN DP.
001255,000622:    6621           53777                           TS       0          -1                         
001256,000623:    6622           16520                           TCF      ENDVLOAD   +4                         
001257,000624: 
001258,000625:                                                                                                  #           SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
001259,000626: 
001260,000627:    6623           24150        SSP                INCR     LOC                                   #  PICK UP THE WORD FOLLOWING THE GIVEN
001261,000628:    6624           50150                           INDEX    LOC                                   #  ADDRESS AND STORE IT AT X.
001262,000629:    6625           30000                           CA       0                                     
001263,000630:    6626           50102        STORE1             INDEX    ADDRWD                                #  SOME INDEX AND MISCELLANEOUS OPS END
001264,000631:    6627           54000                           TS       0                                     #  HERE.
001265,000632: 

Page 36

001267,000634:    6630           16014                           TCF      DANZIG                                
001268,000635: 

Page 37

001270,000637:                                                                                                  #  SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
001271,000638: 
001272,000639:                                                                                                  #           THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
001273,000640: 
001274,000641:                                                                                                  #           1. GOTO                GO TO.
001275,000642:                                                                                                  #           2. CALL                CALL SUBROUTINE SETTING QPRET.
001276,000643:                                                                                                  #           3. CGOTO               COMPUTED GO TO.
001277,000644:                                                                                                  #           4. CCALL               COMPUTED CALL.
001278,000645:                                                                                                  #           7. BPL                 BRANCH IF MPAC POSITIVE OR ZERO.
001279,000646:                                                                                                  #           8. BZE                 BRANCH IF MPAC ZERO.
001280,000647:                                                                                                  #           9. BMN                 BRANCH IF MPAC NEGATIVE NON-ZERO.
001281,000648: 
001282,000649:    6631           24150        CCALL              INCR     LOC                                   #  MAINTAIN LOC FOR QPRET COMPUTATION.
001283,000650:    6632           50150                           INDEX    LOC                                   
001284,000651:    6633           30000                           CAF      0                                     #  GET BASE ADDRESS OF CADR LIST.
001285,000652:    6634           50102                           INDEX    ADDRWD                                
001286,000653:    6635           60000                           AD       0                                     #  ADD INCREMENT.
001287,000654:    6636           54004                           TS       FBANK                                 #  SELECT DESIRED CADR.
001288,000655:    6637           76425                           MASK     LOW10                                 
001289,000656:    6640           50000                           INDEX    A                                     
001290,000657:    6641           32000                           CAF      10000                                 
001291,000658:    6642           54103                 -1        TS       POLISH                                
001292,000659: 
001293,000660:    6643           46425        CALL               CS       LOW10                                 #  FOR ANY OF THE CALL OPTIONS, MAKE UP THE
001294,000661:    6644           60150                           AD       LOC                                   #  ADDRESS OF THE NEXT OP-CODE PAIR/STORE
001295,000662:    6645           60151                           AD       BANKSET                               #  CODE AND LEAVE IT IN QPRET. NOTE THAT
001296,000663:    6646           50104                           INDEX    FIXLOC                                #  LOW10 = 2000 - 1.
001297,000664:    6647           54052                           TS       QPRET                                 
001298,000665: 
001299,000666:    6650           30103        GOTO               CA       POLISH                                #  BASIC BRANCHING SEQUENCE.
001300,000667:    6651           54004                           TS       FBANK                                 
001301,000668:    6652           76425                           MASK     LOW10                                 #  MAKE UP 12 BIT SUB-ADDRESS AND FALL INTO
001302,000669:    6653           67634                           AD       2K                                    #  FALL INTO THE INTPRET ENTRY UNLESS THE
001303,000670:    6654           54150                           TS       LOC                                   #  GIVEN ADDRESS WAS IN ERASABLE, IN WHICH
001304,000671:    6655           10004                           CCS      FBANK                                 #  CASE IT IS USED AS THE ADDRESS OF THE
001305,000672:    6656           16002                           TCF      INTPRET    +2                         #  BRANCH ADDRESS.
001306,000673:    6657           16661                           TCF      +2                                    
001307,000674:    6660           16002                           TCF      INTPRET    +2                         
001308,000675: 

Page 38

001310,000677:    6661           40150                           CS       LOC                                   #  THE GIVEN ADDRESS IS IN ERASABLE - SEE
001311,000678:    6662           66707                           AD       EVAC+2K                               #  IF RELATIVE TO THE WORK AREA.
001312,000679:    6663           10000                           CCS      A                                     
001313,000680:    6664           30104                           CA       FIXLOC                                #  ADD FIXLOC IF SO.
001314,000681:    6665           26150                           ADS      LOC                                   
001315,000682: 
001316,000683:    6666           50150                           INDEX    LOC                                   
001317,000684:    6667           26000                           CA       0          -2000                      #  (ADDRESS HAD BEEN AUGMENTED BY 2000.)
001318,000685:    6670           16651                           TCF      GOTO       +1                         #  ALLOWS ARBITRARY INDIRECTNESS.
001319,000686: 
001320,000687:    6671           50150        CGOTO              INDEX    LOC                                   #  COMPUTED GO TO. PICK UP ADDRESS OF CADR
001321,000688:    6672           30001                           CA       1                                     #  LIST.
001322,000689:    6673           50102                           INDEX    ADDRWD                                #  ADD MODIFIER.
001323,000690:    6674           60000                           AD       0                                     
001324,000691:    6675           54004                           TS       FBANK                                 #  SELECT GOTO ADDRESS.
001325,000692:    6676           76425                           MASK     LOW10                                 
001326,000693:    6677           50000                           INDEX    A                                     
001327,000694:    6700           32000                           CA       10000                                 
001328,000695:    6701           16651                           TCF      GOTO       +1                         #  WITH ADDRESS IN A.
001329,000696: 
001330,000697:    6702           30151        SWBRANCH           CA       BANKSET                               #  SWITCH INSTRUCTIONS WHICH ELECT TO
001331,000698:    6703           54004                           TS       FBANK                                 #  BRANCH COME HERE TO DO SO.
001332,000699:    6704           50150                           INDEX    LOC                                   
001333,000700:    6705           30001                           CA       1                                     
001334,000701:    6706           16651                           TCF      GOTO       +1                         
001335,000702: 
001336,000703:    6707           02055        EVAC+2K            DEC      1069       B-14                       #  =1024+45
001337,000704: 

Page 39

001339,000706:                                                                                                  #           TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
001340,000707: 
001341,000708:                                                                                                  #           L+1  IF MPAC IS GREATER THAN ZERO.
001342,000709:                                                                                                  #           L+2  IF MPAC IS EQUAL TO +0 OR -0.
001343,000710:                                                                                                  #           L+3  IF MPAC IS LESS THAN ZERO.
001344,000711: 
001345,000712: 
001346,000713: 
001347,000714:    6710           10140        BRANCH             CCS      MPAC                                  
001348,000715:    6711           00002                           TC       Q                                     
001349,000716:    6712           16714                           TCF      +2                                    #  ON ZERO.
001350,000717:    6713           16726                           TCF      NEG                                   
001351,000718: 
001352,000719:    6714           10141                           CCS      MPAC       +1                         
001353,000720:    6715           00002                           TC       Q                                     
001354,000721:    6716           16720                           TCF      +2                                    
001355,000722:    6717           16726                           TCF      NEG                                   
001356,000723: 
001357,000724:    6720           10142                           CCS      MPAC       +2                         
001358,000725:    6721           00002                           TC       Q                                     
001359,000726:    6722           16724                           TCF      +2                                    
001360,000727:    6723           16726                           TCF      NEG                                   
001361,000728: 
001362,000729:    6724           50002                           INDEX    Q                                     #  IF ALL THREE REGISTERS WERE +-0.
001363,000730:    6725           00001                           TC       1                                     
001364,000731: 
001365,000732:    6726           50002        NEG                INDEX    Q                                     #  IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
001366,000733:    6727           00002                           TC       2                                     
001367,000734: 
001368,000735: 
001369,000736: 
001370,000737:    6730           50150        EXIT               INDEX    LOC                                   #  LEAVE INTERPRETIVE MODE.
001371,000738:    6731           10001                           TCF      1                                     
001372,000739: 

Page 40

001374,000741:                                                                                                  #  SECTION 3 - ADD/SUBTRACT PACKAGE.
001375,000742: 
001376,000743:                                                                                                  #           THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
001377,000744:                                                                                                  #  MPAC:
001378,000745: 
001379,000746:                                                                                                  #           1. DAD                 DOUBLE PRECISION ADD.
001380,000747:                                                                                                  #           2. DSU                 DOUBLE PRECISION SUBTRACT.
001381,000748:                                                                                                  #           3. BDSU                DOUBLE PRECISION SUBTRACT FROM.
001382,000749: 
001383,000750:                                                                                                  #           4. TAD                 TRIPLE PRECISION ADD.
001384,000751: 
001385,000752:                                                                                                  #           5. VAD                 VECTOR ADD.
001386,000753:                                                                                                  #           6. VSU                 VECTOR SUBTRACT.
001387,000754:                                                                                                  #           7. BVSU                VECTOR SUBTRACT FROM.
001388,000755: 
001389,000756:                                                                                                  #  THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
001390,000757: 
001391,000758: 
001392,000759: 
001393,000760:    6732           00006        VAD                EXTEND                                         
001394,000761:    6733           50102                           INDEX    ADDRWD                                
001395,000762:    6734           30003                           DCA      2                                     
001396,000763:    6735           20144                           DAS      MPAC       +3                         
001397,000764:    6736           00006                           EXTEND                                         #  CHECK OVERFLOW.
001398,000765:    6737           16741                           BZF      +2                                    
001399,000766:    6740           07006                           TC       OVERFLOW                              
001400,000767: 
001401,000768:    6741           00006                           EXTEND                                         
001402,000769:    6742           50102                           INDEX    ADDRWD                                
001403,000770:    6743           30005                           DCA      4                                     
001404,000771:    6744           20146                           DAS      MPAC       +5                         
001405,000772:    6745           00006                           EXTEND                                         
001406,000773:    6746           16750                           BZF      +2                                    
001407,000774:    6747           07006                           TC       OVERFLOW                              
001408,000775: 
001409,000776:    6750           00006        DAD                EXTEND                                         
001410,000777:    6751           50102                           INDEX    ADDRWD                                
001411,000778:    6752           30001                           DCA      0                                     
001412,000779:    6753           20141        ENDVXV             DAS      MPAC                                  #  VXV FINISHES HERE.
001413,000780:    6754           00006                           EXTEND                                         
001414,000781:    6755           16014                           BZF      DANZIG                                
001415,000782:    6756           07006                           TC       OVERFLOW                              
001416,000783:    6757           16014                           TCF      DANZIG                                
001417,000784: 

Page 41

001419,000786:    6760           00006        VSU                EXTEND                                         
001420,000787:    6761           50102                           INDEX    ADDRWD                                
001421,000788:    6762           40003                           DCS      2                                     
001422,000789:    6763           20144                           DAS      MPAC       +3                         
001423,000790:    6764           00006                           EXTEND                                         
001424,000791:    6765           16767                           BZF      +2                                    
001425,000792:    6766           07006                           TC       OVERFLOW                              
001426,000793: 
001427,000794:    6767           00006                           EXTEND                                         
001428,000795:    6770           50102                           INDEX    ADDRWD                                
001429,000796:    6771           40005                           DCS      4                                     
001430,000797:    6772           20146                           DAS      MPAC       +5                         
001431,000798:    6773           00006                           EXTEND                                         
001432,000799:    6774           16776                           BZF      +2                                    
001433,000800:    6775           07006                           TC       OVERFLOW                              
001434,000801: 
001435,000802:    6776           00006        DSU                EXTEND                                         
001436,000803:    6777           50102                           INDEX    ADDRWD                                
001437,000804:    7000           40001                           DCS      0                                     
001438,000805:    7001           20141                           DAS      MPAC                                  
001439,000806:    7002           00006                           EXTEND                                         
001440,000807:    7003           16014                           BZF      DANZIG                                
001441,000808:    7004           07006                           TC       OVERFLOW                              
001442,000809:    7005           16014                           TCF      DANZIG                                
001443,000810: 
001444,000811:    7006           37646        OVERFLOW           CAF      ONE                                   #  SUBROUTINE TO TURN OVFIND ON.
001445,000812:    7007           17130                           TCF      SETOVF2                               
001446,000813: 

Page 42

001448,000815:    7010           00006        BVSU               EXTEND                                         
001449,000816:    7011           50102                           INDEX    ADDRWD                                
001450,000817:    7012           30003                           DCA      2                                     
001451,000818:    7013           52144                           DXCH     MPAC       +3                         
001452,000819:    7014           00006                           EXTEND                                         
001453,000820:    7015           40001                           DCOM                                           
001454,000821:    7016           20144                           DAS      MPAC       +3                         
001455,000822:    7017           00006                           EXTEND                                         
001456,000823:    7020           17022                           BZF      +2                                    
001457,000824:    7021           07006                           TC       OVERFLOW                              
001458,000825: 
001459,000826:    7022           00006                           EXTEND                                         
001460,000827:    7023           50102                           INDEX    ADDRWD                                
001461,000828:    7024           30005                           DCA      4                                     
001462,000829:    7025           52146                           DXCH     MPAC       +5                         
001463,000830:    7026           00006                           EXTEND                                         
001464,000831:    7027           40001                           DCOM                                           
001465,000832:    7030           20146                           DAS      MPAC       +5                         
001466,000833:    7031           00006                           EXTEND                                         
001467,000834:    7032           17034                           BZF      +2                                    
001468,000835:    7033           07006                           TC       OVERFLOW                              
001469,000836: 
001470,000837:    7034           00006        BDSU               EXTEND                                         
001471,000838:    7035           50102                           INDEX    ADDRWD                                
001472,000839:    7036           30001                           DCA      0                                     
001473,000840:    7037           52141                           DXCH     MPAC                                  
001474,000841:    7040           00006                           EXTEND                                         
001475,000842:    7041           40001                           DCOM                                           
001476,000843:    7042           20141                           DAS      MPAC                                  
001477,000844:    7043           00006                           EXTEND                                         
001478,000845:    7044           16014                           BZF      DANZIG                                
001479,000846:    7045           07006                           TC       OVERFLOW                              
001480,000847:    7046           16014                           TCF      DANZIG                                
001481,000848: 

Page 43

001483,000850:                                                                                                  #           TRIPLE PRECISION ADD ROUTINE.
001484,000851: 
001485,000852:    7047           00006        TAD                EXTEND                                         
001486,000853:    7050           50102                           INDEX    ADDRWD                                
001487,000854:    7051           30002                           DCA      1                                     #  ADD MINOR PARTS FIRST.
001488,000855:    7052           20142                           DAS      MPAC       +1                         
001489,000856:    7053           50102                           INDEX    ADDRWD                                
001490,000857:    7054           60000                           AD       0                                     
001491,000858:    7055           60140                           AD       MPAC                                  
001492,000859:    7056           54140                           TS       MPAC                                  
001493,000860:    7057           16014                           TCF      DANZIG                                
001494,000861: 
001495,000862:    7060           54105        SETOVF             TS       OVFIND                                #  SET OVFIND IF SUCH OCCURS.
001496,000863:    7061           16014                           TCF      DANZIG                                
001497,000864: 

Page 44

001499,000866:                                                                                                  #  ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
001500,000867: 
001501,000868:                                                                                                  #           1.  DMPSUB     DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
001502,000869:                                                                                                  #                          IS IN ADDRWD AND LEAVE A TRIPLE PRECISION RESULT IN MPAC.
001503,000870:                                                                                                  #           2.  ROUNDSUB   ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
001504,000871:                                                                                                  #           3.  DOTSUB     TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
001505,000872:                                                                                                  #                          AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
001506,000873:                                                                                                  #           4.  POLY       USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
001507,000874:                                                                                                  #                          COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.)
001508,000875: 
001509,000876: 
001510,000877: 
001511,000878:    7062           50002        DMP                INDEX    Q                                     #  BASIC SUBROUTINE FOR USE BY PINBALL, ETC
001512,000879:    7063           30000                           CAF      0                                     #  ADRES OF ARGUMENT FOLLOWS  TC DMP  .
001513,000880:    7064           24002                           INCR     Q                                     
001514,000881:    7065           54102                 -1        TS       ADDRWD                                #  (PROLOGUE FOR SETTING ADDRWD.)
001515,000882: 
001516,000883:    7066           50102        DMPSUB             INDEX    ADDRWD                                #  GET MINOR PART OF OPERAND AT C(ADDRWD).
001517,000884:    7067           30001                           CA       1                                     
001518,000885:    7070           54142                           TS       MPAC       +2                         #  THIS WORKS FOR SQUARING MPAC AS WELL.
001519,000886:    7071           37653                           CAF      ZERO                                  #  SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
001520,000887:    7072           56141                           XCH      MPAC       +1                         #  THE PARTIAL PRODUCTS WITH DAS
001521,000888:    7073           54121                           TS       MPTEMP                                #  INSTRUCTIONS.
001522,000889:    7074           00006                           EXTEND                                         
001523,000890:    7075           70142                           MP       MPAC       +2                         #  MINOR OF MPAC X MINOR OF C(ADDRWD).
001524,000891: 
001525,000892:    7076           56142                           XCH      MPAC       +2                         #  DISCARD MINOR PART OF ABOVE RESULT AND
001526,000893:    7077           00006                           EXTEND                                         #  FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
001527,000894:    7100           70140                           MP       MPAC                                  
001528,000895:    7101           20142                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
001529,000896: 
001530,000897:    7102           50102                           INDEX    ADDRWD                                #  GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
001531,000898:    7103           30000                           CA       0                                     
001532,000899:    7104           56121                           XCH      MPTEMP                                #  SAVE AND BRING OUT MINOR OF MPAC.
001533,000900:    7105           00006                           EXTEND                                         
001534,000901:    7106           70121                           MP       MPTEMP                                #  MAJOR OF C(ADDRWD) X MINOR OF MPAC.
001535,000902:    7107           20142                           DAS      MPAC       +1                         #  ACCUMULATE, SETTING A TO NET OVERFLOW.
001536,000903: 
001537,000904:    7110           56140                           XCH      MPAC                                  #  SETTING MPAC TO 0 OR +-1.
001538,000905:    7111           00006                           EXTEND                                         
001539,000906:    7112           70121                           MP       MPTEMP                                #  MAJOR OF MPAC X MAJOR OF C(ADDRWD).
001540,000907:    7113           20141                           DAS      MPAC                                  #  GUARANTEED NO OVERFLOW.
001541,000908:    7114           00002                           TC       Q                                     #  49 MCT = .573 MS. INCLUDING RETURN.
001542,000909: 

Page 45

001544,000911:                                                                                                  #           ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
001545,000912: 
001546,000913:    7115           37653        ROUNDSUB           CAF      ZERO                                  #  SET MPAC +2 TO ZERO FOR SCALARS.
001547,000914: 
001548,000915:    7116           56142        VROUND             XCH      MPAC       +2                         #  BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
001549,000916:    7117           60000                           DOUBLE                                         
001550,000917:    7120           54001                           TS       L                                     
001551,000918:    7121           00002                           TC       Q                                     
001552,000919: 
001553,000920:    7122           60141                           AD       MPAC       +1                         #  ADD ROUNDING BIT IF MPAC +2 WAS GREATER
001554,000921:    7123           54141                           TS       MPAC       +1                         #  THAN .5 IN MAGNITUDE.
001555,000922:    7124           00002                           TC       Q                                     
001556,000923: 
001557,000924:    7125           60140                           AD       MPAC                                  #  PROPAGATE INTERFLOW.
001558,000925:    7126           54140                           TS       MPAC                                  
001559,000926:    7127           00002                           TC       Q                                     
001560,000927: 
001561,000928:    7130           54105        SETOVF2            TS       OVFIND                                #  (RARE).
001562,000929:    7131           00002                           TC       Q                                     
001563,000930: 

Page 46

001565,000932:                                                                                                  #           THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
001566,000933:                                                                                                  #  REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD. IN THIS CASE C(DOTINC) ARE SET TO 2. VXM, HOWEVER, SETS C(DOTINC) TO
001567,000934:                                                                                                  #  6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
001568,000935: 
001569,000936: 
001570,000937: 
001571,000938:    7132           37645        PREDOT             CAF      TWO                                   #  PROLOGUE TO SET DOTINC TO 2.
001572,000939:    7133           54122                           TS       DOTINC                                
001573,000940: 
001574,000941:    7134           00006        DOTSUB             EXTEND                                         
001575,000942:    7135           22123                           QXCH     DOTRET                                #  SAVE RETURN.
001576,000943:    7136           07066                           TC       DMPSUB                                #  DOT X COMPONENTS.
001577,000944:    7137           52144                           DXCH     MPAC       +3                         #  POSITION Y COMPONENT OF MPAC FOR
001578,000945:    7140           52141                           DXCH     MPAC                                  #  MULTIPLICATION WHILE SAVING RESULT IN
001579,000946:    7141           52115                           DXCH     BUF                                   #  THREE WORD BUFFER, BUF.
001580,000947:    7142           30142                           CA       MPAC       +2                         
001581,000948:    7143           54116                           TS       BUF        +2                         
001582,000949: 
001583,000950:    7144           30122                           CA       DOTINC                                #  ADVANCE ADDRWD TO Y COMPONENT OF
001584,000951:    7145           26102                           ADS      ADDRWD                                #  OTHER ARGUMENT.
001585,000952:    7146           07066                           TC       DMPSUB                                
001586,000953:    7147           52142                           DXCH     MPAC       +1                         #  ACCUMULATE PARTIAL PRODUCTS.
001587,000954:    7150           20116                           DAS      BUF        +1                         
001588,000955:    7151           60140                           AD       MPAC                                  
001589,000956:    7152           60114                           AD       BUF                                   
001590,000957:    7153           54114                           TS       BUF                                   
001591,000958:    7154           17156                           TCF      +2                                    
001592,000959:    7155           54105                           TS       OVFIND                                #  IF OVERFLOW OCCURS.
001593,000960: 
001594,000961:    7156           52146                           DXCH     MPAC       +5                         #  MULTIPLY Z COMPONENTS.
001595,000962:    7157           52141                           DXCH     MPAC                                  
001596,000963:    7160           30122                           CA       DOTINC                                
001597,000964:    7161           26102                           ADS      ADDRWD                                
001598,000965:    7162           07066                           TC       DMPSUB                                
001599,000966:    7163           52116        ENDDOT             DXCH     BUF        +1                         #  LEAVE FINAL ACCUMULATION IN MPAC.
001600,000967:    7164           20142                           DAS      MPAC       +1                         
001601,000968:    7165           60140                           AD       MPAC                                  
001602,000969:    7166           60114                           AD       BUF                                   
001603,000970:    7167           54140                           TS       MPAC                                  
001604,000971:    7170           00123                           TC       DOTRET                                
001605,000972: 
001606,000973:    7171           54105                           TS       OVFIND                                #  ON OVERFLOW HERE.
001607,000974:    7172           00123                           TC       DOTRET                                
001608,000975: 

Page 47

001610,000977:                                                                                                  #  DOUBLE PRECISION POLYNOMIAL EVALUATOR.
001611,000978: 
001612,000979:                                                                                                  #                                     N        N-1
001613,000980:                                                                                                  #           THIS ROUTINE EVALUATES A X  + A   X    + ... + A X + A LEAVING THE DP RESULT IN MPAC ON EXIT.
001614,000981:                                                                                                  #                                   N      N-1              1     0
001615,000982: 
001616,000983:                                                                                                  #  IT IS ASSUMED THAT X ARRIVES IN MPAC AND N AND THE COEFFICIENTS IN THE CALLING SEQUENCE AS FOLLOWS:
001617,000984: 
001618,000985:                                                                                                  #                                          L        TC     POLY
001619,000986:                                                                                                  #                                          L+1      DEC    N-1
001620,000987:                                                                                                  #                                          L+2      2DEC   A(0)
001621,000988:                                                                                                  #                                                   ...
001622,000989:                                                                                                  #                                          L+2N+2   2DEC   A(N)            RETURN IS TO L+2N+4.
001623,000990: 
001624,000991:    7173           37662        POLY               CAF      LVBUF                                 #  INCOMING X WILL BE STORED IN VBUF, SO
001625,000992:    7174           54102                           TS       ADDRWD                                #  SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
001626,000993: 
001627,000994:    7175           50002                           INDEX    Q                                     
001628,000995:    7176           30000                           CAF      0                                     
001629,000996:    7177           54124                           TS       POLYCNT                               #  N-1 TO COUNTER.
001630,000997:    7200           60000                           DOUBLE                                         
001631,000998:    7201           60002                           AD       Q                                     
001632,000999:    7202           54125                           TS       POLYRET                               #  SAVE L+2N-1 FOR RETURN
001633,001000:    7203           54103                           TS       POLISH                                #  AND FOR REFERENCING COEFFICIENTS.
001634,001001: 
001635,001002:    7204           00006                           EXTEND                                         
001636,001003:    7205           50000                           INDEX    A                                     #  LOAD A(N) INTO MPAC, SAVING MPAC IN
001637,001004:    7206           30004                           DCA      3                                     #  VBUF.
001638,001005:    7207           52141                           DXCH     MPAC                                  
001639,001006:    7210           52107                           DXCH     VBUF                                  
001640,001007:    7211           17215                           TCF      POLY2                                 #  NO ZERO-ORDER POLYNOMIALS ALLOWED.
001641,001008: 
001642,001009:    7212           54124        POLYLOOP           TS       POLYCNT                               #  SAVE DECREMENTED LOOP COUNTER.
001643,001010:    7213           47645                           CS       TWO                                   #  REGRESS COEFFICIENT POINTER.
001644,001011:    7214           26103                           ADS      POLISH                                
001645,001012: 
001646,001013:    7215           07066        POLY2              TC       DMPSUB                                #  MULTIPLY BY X.
001647,001014:    7216           00006                           EXTEND                                         
001648,001015:    7217           50103                           INDEX    POLISH                                #  ADD IN NEXT COEFFICIENT.
001649,001016:    7220           30002                           DCA      1                                     
001650,001017:    7221           20141                           DAS      MPAC                                  #  NO CHECK FOR OVERFLOW SINCE SIN, ETC.,
001651,001018:                                                                                                  #  SHOULD NOT OVERFLOW.
001652,001019:    7222           10124                           CCS      POLYCNT                               #  LOOP ON COUNTER.
001653,001020:    7223           17212                           TCF      POLYLOOP                              
001654,001021:    7224           50125                           INDEX    POLYRET                               #  DONE - RETURN TO CALLER AT L+2N+4.
001655,001022:    7225           00005        FIVE               TC       5                                     
001656,001023: 

Page 48

001658,001025:                                                                                                  #           MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
001659,001026: 
001660,001027:    7226           00006        TPAGREE            EXTEND                                         #  FORCE SIGN AGREEMENT AMONG THE TRIPLE-
001661,001028:    7227           22114                           QXCH     BUF                                   #  PRECISION CONTENTS OF MPAC, RETURNING
001662,001029:    7230           06710                           TC       BRANCH                                #  WITH THE SIGNUM OF THE INPUT IN A.
001663,001030:    7231           17235                           TCF      ARG+                                  
001664,001031:    7232           17255                           TCF      ARGZERO                               
001665,001032: 
001666,001033:    7233           47626                           CS       POSMAX                                #  IF NEGATIVE.
001667,001034:    7234           17236                           TCF      +2                                    
001668,001035: 
001669,001036:    7235           37626        ARG+               CAF      POSMAX                                
001670,001037:    7236           54115                 +2        TS       BUF        +1                         
001671,001038:    7237           00006                           EXTEND                                         
001672,001039:    7240           24000                           AUG      A                                     #  FORMS +-1.0.
001673,001040:    7241           60142                           AD       MPAC       +2                         
001674,001041:    7242           54142                           TS       MPAC       +2                         
001675,001042:    7243           37653                           CAF      ZERO                                  
001676,001043:    7244           60115                           AD       BUF        +1                         
001677,001044:    7245           60141                           AD       MPAC       +1                         
001678,001045:    7246           54141                           TS       MPAC       +1                         
001679,001046:    7247           37653                           CAF      ZERO                                  
001680,001047:    7250           60115                           AD       BUF        +1                         
001681,001048:    7251           60140                           AD       MPAC                                  
001682,001049:    7252           54140        ARGZERO2           TS       MPAC                                  #  ALWAYS SKIPPING UNLESS ARGZERO.
001683,001050:    7253           54141                           TS       MPAC       +1                         
001684,001051:    7254           00114                           TC       BUF                                   #  RETURN.
001685,001052: 
001686,001053:    7255           54142        ARGZERO            TS       MPAC       +2                         #  SET ALL THREE MPAC REGISTERS TO ZERO.
001687,001054:    7256           17252                           TCF      ARGZERO2                              
001688,001055: 
001689,001056:                                                                                                  #           SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
001690,001057: 
001691,001058:    7257           54121        SHORTMP            TS       MPTEMP                                
001692,001059:    7260           00006                           EXTEND                                         
001693,001060:    7261           70142                           MP       MPAC       +2                         
001694,001061:    7262           54142                           TS       MPAC       +2                         
001695,001062:    7263           37653                           CAF      ZERO                                  #  SO SUBSEQUENT DAS WILL WORK.
001696,001063:    7264           56141                           XCH      MPAC       +1                         
001697,001064:    7265           00006                           EXTEND                                         
001698,001065:    7266           70121                           MP       MPTEMP                                
001699,001066:    7267           20142                           DAS      MPAC       +1                         
001700,001067:    7270           56140                           XCH      MPAC                                  #  SETTING MPAC TO 0.
001701,001068:    7271           00006                           EXTEND                                         
001702,001069:    7272           70121                           MP       MPTEMP                                
001703,001070:    7273           20141                           DAS      MPAC                                  
001704,001071:    7274           00002                           TC       Q                                     
001705,001072: 

Page 49

001707,001074:                                                                                                  #  MISCELLANEOUS VECTOR OPERATIONS. INCLUDED HERE ARE THE FOLLOWING:
001708,001075: 
001709,001076:                                                                                                  #           1.  DOT                DP VECTOR DOT PRODUCT.
001710,001077:                                                                                                  #           2.  VXV                DP VECTOR CROSS PRODUCT.
001711,001078:                                                                                                  #           3.  VXSC               DP VECTOR TIMES SCALAR.
001712,001079:                                                                                                  #           4.  V/SC               DP VECTOR DIVIDED BY SCALAR.
001713,001080:                                                                                                  #           5.  VPROJ              DP VECTOR PROJECTION. ( (MPAC.X)MPAC ).
001714,001081:                                                                                                  #           6.  VXM                DP VECTOR POST-MULTIPLIED BY MATRIX.
001715,001082:                                                                                                  #           7.  MXV                DP VECTOR PRE-MULTIPLIED BY MATRIX.
001716,001083: 
001717,001084: 
001718,001085: 
001719,001086:    7275           07132        DOT                TC       PREDOT                                #  DO THE DOT PRODUCT AND EXIT, CHANGING
001720,001087:    7276           37653                           CAF      ZERO                                  #  THE MODE TO DP SCALAR.
001721,001088:    7277           16013                           TCF      NEWMODE                               
001722,001089: 
001723,001090: 
001724,001091: 
001725,001092:    7300           37645        MXV                CAF      TWO                                   #  SET UP MATINC AND DOTINC FOR ROW
001726,001093:    7301           54124                           TS       MATINC                                #  VECTORS.
001727,001094:    7302           17306                           TCF      VXM/MXV                               #  GO TO COMMON PORTION.
001728,001095: 
001729,001096:    7303           47650        VXM                CS       TEN                                   #  SET MATINC AND DOTINC TO REFER TO MATRIX
001730,001097:    7304           54124                           TS       MATINC                                #  AS THREE COLUMN VECTORS.
001731,001098:    7305           36162                           CAF      SIX                                   
001732,001099: 

Page 50

001734,001101:                                                                                                  #           COMMON PORTION OF MXV AND VXM.
001735,001102: 
001736,001103:    7306           54122        VXM/MXV            TS       DOTINC                                
001737,001104:    7307           07475                           TC       MPACVBUF                              #  SAVE VECTOR IN MPAC FOR FURTHER USE.
001738,001105: 
001739,001106:    7310           07134                           TC       DOTSUB                                #  GO DOT TO GET X COMPONENT OF ANSWER.
001740,001107:    7311           00006                           EXTEND                                         
001741,001108:    7312           30107                           DCA      VBUF                                  #  MOVE MPAC VECTOR BACK INTO MPAC, SAVING
001742,001109:    7313           52141                           DXCH     MPAC                                  #  NEW X COMPONENT IN BUF2.
001743,001110:    7314           52120                           DXCH     BUF2                                  
001744,001111:    7315           00006                           EXTEND                                         
001745,001112:    7316           30111                           DCA      VBUF       +2                         
001746,001113:    7317           52144                           DXCH     MPAC       +3                         
001747,001114:    7320           00006                           EXTEND                                         
001748,001115:    7321           30113                           DCA      VBUF       +4                         
001749,001116:    7322           52146                           DXCH     MPAC       +5                         
001750,001117:    7323           30124                           CA       MATINC                                #  INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
001751,001118:    7324           26102                           ADS      ADDRWD                                #  FORMS BASE ADDRESS OF NEXT COLUMN(ROW).
001752,001119: 
001753,001120:    7325           07134                           TC       DOTSUB                                
001754,001121:    7326           52107                           DXCH     VBUF                                  #  MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
001755,001122:    7327           52141                           DXCH     MPAC                                  #  COMPONENT OF ANSWER IN VBUF +2.
001756,001123:    7330           52111                           DXCH     VBUF       +2                         
001757,001124:    7331           52144                           DXCH     MPAC       +3                         
001758,001125:    7332           52113                           DXCH     VBUF       +4                         
001759,001126:    7333           52146                           DXCH     MPAC       +5                         
001760,001127:    7334           30124                           CA       MATINC                                #  FORM ADDRESS OF LAST COLUMN OR ROW.
001761,001128:    7335           26102                           ADS      ADDRWD                                
001762,001129: 
001763,001130:    7336           07134                           TC       DOTSUB                                
001764,001131:    7337           52120                           DXCH     BUF2                                  #  ANSWER NOW COMPLETE. PUT COMPONENTS INTO
001765,001132:    7340           52141                           DXCH     MPAC                                  #  PROPER MPAC REGISTERS.
001766,001133:    7341           52146                           DXCH     MPAC       +5                         
001767,001134:    7342           52111                           DXCH     VBUF       +2                         
001768,001135:    7343           52144                           DXCH     MPAC       +3                         
001769,001136:    7344           16014                           TCF      DANZIG                                #  EXIT.
001770,001137: 

Page 51

001772,001139:                                                                                                  #           VXSC - VECTOR TIMES SCALAR.
001773,001140: 
001774,001141:    7345           10147        VXSC               CCS      MODE                                  #  TEST PRESENT MODE.
001775,001142:    7346           17372                           TCF      DVXSC                                 #  SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
001776,001143:    7347           17372                           TCF      DVXSC                                 
001777,001144: 
001778,001145:    7350           07066        VVXSC              TC       DMPSUB                                #  COMPUTE X COMPONENT
001779,001146:    7351           07116                           TC       VROUND                                #  AND ROUND IT.
001780,001147:    7352           52144                           DXCH     MPAC       +3                         #  PUT Y COMPONENT INTO MPAC SAVING MPAC IN
001781,001148:    7353           52141                           DXCH     MPAC                                  #  MPAC +3.
001782,001149:    7354           52144                           DXCH     MPAC       +3                         
001783,001150: 
001784,001151:    7355           07066                           TC       DMPSUB                                #  DO SAME FOR Y AND Z COMPONENTS.
001785,001152:    7356           07116                           TC       VROUND                                
001786,001153:    7357           52146                           DXCH     MPAC       +5                         
001787,001154:    7360           52141                           DXCH     MPAC                                  
001788,001155:    7361           52146                           DXCH     MPAC       +5                         
001789,001156: 
001790,001157:    7362           07066                           TC       DMPSUB                                
001791,001158:    7363           07116                           TC       VROUND                                
001792,001159:    7364           52141        VROTATEX           DXCH     MPAC                                  #  EXIT USED TO RESTORE MPAC AFTER THIS
001793,001160:    7365           52146                           DXCH     MPAC       +5                         #  TYPE OF ROTATION. CALLED BY VECTOR SHIFT
001794,001161:    7366           52144                           DXCH     MPAC       +3                         #  RIGHT, V/SC, ETC.
001795,001162:    7367           52141                           DXCH     MPAC                                  
001796,001163:    7370           16014                           TCF      DANZIG                                
001797,001164: 

Page 52

001799,001166:                                                                                                  #           DP VECTOR PROJECTION ROUTINE.
001800,001167: 
001801,001168:    7371           07132        VPROJ              TC       PREDOT                                #  (MPAC.X)MPAC IS COMPUTED AND LEFT IN
001802,001169:                                                                                                  #  MPAC. DO DOT AND FALL INTO DVXSC.
001803,001170: 
001804,001171:                                                                                                  #           VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
001805,001172: 
001806,001173:    7372           00006        DVXSC              EXTEND                                         #  SAVE SCALAR IN MPAC +3 AND GET X
001807,001174:    7373           30141                           DCA      MPAC                                  #  COMPONENT OF ANSWER.
001808,001175:    7374           52144                           DXCH     MPAC       +3                         
001809,001176:    7375           07066                           TC       DMPSUB                                
001810,001177:    7376           07116                           TC       VROUND                                
001811,001178: 
001812,001179:    7377           37645                           CAF      TWO                                   #  ADVANCE ADDRWD TO Y COMPONENT OF X.
001813,001180:    7400           26102                           ADS      ADDRWD                                
001814,001181:    7401           00006                           EXTEND                                         
001815,001182:    7402           30144                           DCA      MPAC       +3                         #  PUT SCALAR BACK INTO MPAC AND SAVE
001816,001183:    7403           52141                           DXCH     MPAC                                  #  X RESULT IN MPAC +5.
001817,001184:    7404           52146                           DXCH     MPAC       +5                         
001818,001185:    7405           07066                           TC       DMPSUB                                
001819,001186:    7406           07116                           TC       VROUND                                
001820,001187: 
001821,001188:    7407           37645                           CAF      TWO                                   
001822,001189:    7410           26102                           ADS      ADDRWD                                #  TO Z COMPONENT.
001823,001190:    7411           52144                           DXCH     MPAC       +3                         #  BRING SCALAR BACK, PUTTING Y RESULT IN
001824,001191:    7412           52141                           DXCH     MPAC                                  #  THE PROPER PLACE.
001825,001192:    7413           52144                           DXCH     MPAC       +3                         
001826,001193:    7414           07066                           TC       DMPSUB                                
001827,001194:    7415           07116                           TC       VROUND                                
001828,001195: 
001829,001196:    7416           52141                           DXCH     MPAC                                  #  PUT Z COMPONENT IN PROPER PLACE, ALSO
001830,001197:    7417           52146                           DXCH     MPAC       +5                         #  POSITIONING X.
001831,001198:    7420           52141                           DXCH     MPAC                                  
001832,001199: 
001833,001200:    7421           47646                           CS       ONE                                   #  MODE HAS CHANGED TO VECTOR.
001834,001201:    7422           16013                           TCF      NEWMODE                               
001835,001202: 

Page 53

001837,001204:                                                                                                  #           THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
001838,001205:                                                                                                  #                                                         3 2  2 3  1 3  3 1  2 1  1 2
001839,001206:                                                                                                  #  MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
001840,001207: 
001841,001208: 
001842,001209: 
001843,001210:    7423           00006        VXV                EXTEND                                         
001844,001211:    7424           30146                           DCA      MPAC       +5                         #  FORM UP M3X1, LEAVING M1 IN VBUF.
001845,001212:    7425           52141                           DXCH     MPAC                                  
001846,001213:    7426           52107                           DXCH     VBUF                                  
001847,001214:    7427           07066                           TC       DMPSUB                                #  BY X1.
001848,001215: 
001849,001216:    7430           00006                           EXTEND                                         
001850,001217:    7431           40144                           DCS      MPAC       +3                         #  CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
001851,001218:    7432           52141                           DXCH     MPAC                                  
001852,001219:    7433           52111                           DXCH     VBUF       +2                         
001853,001220:    7434           07066                           TC       DMPSUB                                
001854,001221: 
001855,001222:    7435           37645                           CAF      TWO                                   #  ADVANCE ADDRWD TO X2.
001856,001223:    7436           26102                           ADS      ADDRWD                                
001857,001224:    7437           00006                           EXTEND                                         
001858,001225:    7440           40146                           DCS      MPAC       +5                         #  PREPARE TO GET -X2M3, SAVING -X1M2 IN
001859,001226:    7441           52141                           DXCH     MPAC                                  #  MPAC +5.
001860,001227:    7442           52146                           DXCH     MPAC       +5                         
001861,001228:    7443           07066                           TC       DMPSUB                                
001862,001229: 
001863,001230:    7444           00006                           EXTEND                                         
001864,001231:    7445           30107                           DCA      VBUF                                  #  GET X2M1, SAVING -X2M3 IN VBUF +4.
001865,001232:    7446           52141                           DXCH     MPAC                                  
001866,001233:    7447           52113                           DXCH     VBUF       +4                         
001867,001234:    7450           07066                           TC       DMPSUB                                
001868,001235: 
001869,001236:    7451           37645                           CAF      TWO                                   #  ADVANCE ADDRWD TO X3.
001870,001237:    7452           26102                           ADS      ADDRWD                                
001871,001238:    7453           00006                           EXTEND                                         
001872,001239:    7454           40107                           DCS      VBUF                                  #  GET -X3M1, ADDING X2M1 TO MPAC +5 TO
001873,001240:    7455           52141                           DXCH     MPAC                                  #  COMPLETE THE Z COMPONENT OF THE ANSWER.
001874,001241:    7456           20146                           DAS      MPAC       +5                         
001875,001242: 
001876,001243:    7457           00006                           EXTEND                                         
001877,001244:    7460           17462                           BZF      +2                                    
001878,001245:    7461           07006                           TC       OVERFLOW                              
001879,001246: 

Page 54

001881,001248:    7462           07066                           TC       DMPSUB                                
001882,001249:    7463           52111                           DXCH     VBUF       +2                         #  MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
001883,001250:    7464           52144                           DXCH     MPAC       +3                         #  AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
001884,001251:    7465           52141                           DXCH     MPAC                                  #  Y COMPONENT OF THE RESULT.
001885,001252:    7466           20144                           DAS      MPAC       +3                         
001886,001253: 
001887,001254:    7467           00006                           EXTEND                                         
001888,001255:    7470           17472                           BZF      +2                                    
001889,001256:    7471           07006                           TC       OVERFLOW                              
001890,001257: 
001891,001258:    7472           07066                           TC       DMPSUB                                
001892,001259:    7473           52113                           DXCH     VBUF       +4                         #  GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
001893,001260:    7474           16753                           TCF      ENDVXV                                #  COMPONENT (TAIL END OF DAD).
001894,001261: 
001895,001262:                                                                                                  #           THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
001896,001263: 
001897,001264:    7475           00006        MPACVBUF           EXTEND                                         #  CALLED BY MXV, VXM, AND UNIT.
001898,001265:    7476           30141                           DCA      MPAC                                  
001899,001266:    7477           52107                           DXCH     VBUF                                  
001900,001267:    7500           00006                           EXTEND                                         
001901,001268:    7501           30144                           DCA      MPAC       +3                         
001902,001269:    7502           52111                           DXCH     VBUF       +2                         
001903,001270:    7503           00006                           EXTEND                                         
001904,001271:    7504           30146                           DCA      MPAC       +5                         
001905,001272:    7505           52113                           DXCH     VBUF       +4                         
001906,001273:    7506           00002                           TC       Q                                     #  RETURN TO CALLER.
001907,001274: 

Page 55

001909,001276:                                                                                                  #           INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
001910,001277: 
001911,001278:    7507           07066        DMP1               TC       DMPSUB                                #  DMP INSTRUCTION.
001912,001279:    7510           16014                           TCF      DANZIG                                
001913,001280: 
001914,001281:    7511           07066        DMPR               TC       DMPSUB                                
001915,001282:    7512           07115                           TC       ROUNDSUB                              
001916,001283:    7513           16014                           TCF      DANZIG                                
001917,001284: 
001918,001285:    7514           00006        DDV                EXTEND                                         
001919,001286:    7515           50102                           INDEX    ADDRWD                                #  MOVE DIVIDEND INTO BUF.
001920,001287:    7516           30001                           DCA      0                                     
001921,001288:    7517           17524                           TCF      BDDV       +4                         
001922,001289: 
001923,001290:    7520           00006        BDDV               EXTEND                                         #  MOVE DIVISOR INTO MPAC SAVING MPAC, THE
001924,001291:    7521           50102                           INDEX    ADDRWD                                #  DIVIDEND, IN BUF.
001925,001292:    7522           30001                           DCA      0                                     
001926,001293:    7523           52141                           DXCH     MPAC                                  
001927,001294:    7524           52115                 +4        DXCH     BUF                                   
001928,001295:    7525           37653                           CAF      ZERO                                  #  DIVIDE ROUTINES IN BANK 0.
001929,001296:    7526           54004                           TS       FBANK                                 
001930,001297:    7527           12332                           TCF      DDV/BDDV                              
001931,001298: 
001932,001299:    7530           30102        SETPD              CA       ADDRWD                                #  ANYWHERE IN ERASABLE IN GENERAL, BUT
001933,001300:    7531           54152                           TS       PUSHLOC                               #  ALMOST ALWAYS IN THE WORK AREA.
001934,001301:    7532           16014                           TCF      DANZIG                                
001935,001302: 
001936,001303:    7533           37653        TSLC               CAF      ZERO                                  #  SHIFTING ROUTINES LOCATED IN BANK 00.
001937,001304:    7534           54004                           TS       FBANK                                 
001938,001305:    7535           12153                           TCF      TSLC2                                 
001939,001306: 
001940,001307:    7536           36027        GSHIFT             CAF      LOW7                                  #  USED AS MASK AT GENSHIFT. THIS PROCESSES
001941,001308:    7537           54004                           TS       FBANK                                 #  ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
001942,001309:    7540           12174                           TCF      GENSHIFT                              #  AN ADDRESS (ROUTINES IN BANK 0).
001943,001310: 

Page 56

001945,001312:                                                                                                  #           THE FOLLOWING IS THE PROLOGUE TO V/SC. IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
001946,001313:                                                                                                  #  AND CALLS THE V/SC ROUTINE IN BANK 0. IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
001947,001314:                                                                                                  #  THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
001948,001315: 
001949,001316: 
001950,001317: 
001951,001318:    7541           10147        V/SC               CCS      MODE                                  
001952,001319:    7542           17553                           TCF      DV/SC                                 #  MOVE VECTOR INTO MPAC.
001953,001320:    7543           17553                           TCF      DV/SC                                 
001954,001321: 
001955,001322:    7544           00006        VV/SC              EXTEND                                         
001956,001323:    7545           50102                           INDEX    ADDRWD                                
001957,001324:    7546           30001                           DCA      0                                     
001958,001325:    7547           52115        V/SC1              DXCH     BUF                                   #  IN BOTH CASES, VECTOR IS NOW IN MPAC AND
001959,001326:    7550           37653                           CAF      ZERO                                  #  SCALAR IN BUF.
001960,001327:    7551           54004                           TS       FBANK                                 
001961,001328:    7552           12576                           TCF      V/SC2                                 
001962,001329: 
001963,001330:    7553           00006        DV/SC              EXTEND                                         
001964,001331:    7554           50102                           INDEX    ADDRWD                                
001965,001332:    7555           30003                           DCA      2                                     
001966,001333:    7556           52144                           DXCH     MPAC       +3                         
001967,001334:    7557           00006                           EXTEND                                         
001968,001335:    7560           50102                           INDEX    ADDRWD                                
001969,001336:    7561           30005                           DCA      4                                     
001970,001337:    7562           52146                           DXCH     MPAC       +5                         
001971,001338: 
001972,001339:    7563           47646                           CS       ONE                                   #  CHANGE MODE TO VECTOR.
001973,001340:    7564           54147                           TS       MODE                                  
001974,001341: 
001975,001342:    7565           00006                           EXTEND                                         
001976,001343:    7566           50102                           INDEX    ADDRWD                                
001977,001344:    7567           30001                           DCA      0                                     
001978,001345:    7570           52141                           DXCH     MPAC                                  
001979,001346:    7571           17547                           TCF      V/SC1                                 #  FINISH PROLOGUE AT COMMON SECTION.
001980,001347: 

Page 57

001982,001349:                                                                                                  #           SIGN AND COMPLEMENT INSTRUCTIONS.
001983,001350: 
001984,001351:    7572           50102        SIGN               INDEX    ADDRWD                                #  CALL COMP INSTRUCTION IF WORD AT X IS
001985,001352:    7573           10000                           CCS      0                                     #  NEGATIVE NON-ZERO.
001986,001353:    7574           16014                           TCF      DANZIG                                
001987,001354:    7575           17577                           TCF      +2                                    
001988,001355:    7576           17605                           TCF      COMP                                  #  DO THE COMPLEMENT.
001989,001356: 
001990,001357:    7577           50102                           INDEX    ADDRWD                                
001991,001358:    7600           10001                           CCS      1                                     
001992,001359:    7601           16014                           TCF      DANZIG                                
001993,001360:    7602           16014                           TCF      DANZIG                                
001994,001361:    7603           17605                           TCF      COMP                                  
001995,001362:    7604           16014                           TCF      DANZIG                                
001996,001363: 
001997,001364: 
001998,001365: 
001999,001366:    7605           00006        COMP               EXTEND                                         #  COMPLEMENT DP MPAC IN EVERY CASE.
002000,001367:    7606           40141                           DCS      MPAC                                  
002001,001368:    7607           52141                           DXCH     MPAC                                  
002002,001369: 
002003,001370:    7610           10147                           CCS      MODE                                  #  EITHER COMPLEMENT MPAC +3 OR THE REST OF
002004,001371:    7611           17622                           TCF      DCOMP                                 #  THE VECTOR ACCUMULATOR.
002005,001372:    7612           17622                           TCF      DCOMP                                 
002006,001373: 
002007,001374:    7613           00006                           EXTEND                                         #  VECTOR COMPLEMENT.
002008,001375:    7614           40144                           DCS      MPAC       +3                         
002009,001376:    7615           52144                           DXCH     MPAC       +3                         
002010,001377:    7616           00006                           EXTEND                                         
002011,001378:    7617           40146                           DCS      MPAC       +5                         
002012,001379:    7620           52146                           DXCH     MPAC       +5                         
002013,001380:    7621           16014                           TCF      DANZIG                                
002014,001381: 
002015,001382:    7622           40142        DCOMP              CS       MPAC       +2                         
002016,001383:    7623           54142                           TS       MPAC       +2                         
002017,001384:    7624           16014                           TCF      DANZIG                                
002018,001385: 

Page 58

002020,001387:                                                                                                  #           CONSTANTS REQUIRED IN FIXED-FIXED.
002021,001388: 
002022,001389:    7625           37777        DPOSMAX            OCT      37777                                 
002023,001390:    7626           37777        POSMAX             OCT      37777                                 
002024,001391:    7627           57777        NEG1/2             OCT      -20000                                #  MUST BE TWO LOCATIONS AHEAD OF POS1/2.
002025,001392: 
002026,001393:    7630           40000        BIT15              OCT      40000                                 #  BIT TABLE FOLLOWS.
002027,001394:    7631           20000        BIT14              OCT      20000                                 
002028,001395:    7632           10000        BIT13              OCT      10000                                 
002029,001396:    7633           04000        BIT12              OCT      04000                                 
002030,001397:    7634           02000        BIT11              OCT      02000                                 
002031,001398:    7635           01000        BIT10              OCT      01000                                 
002032,001399:    7636           00400        BIT9               OCT      00400                                 
002033,001400:    7637           00200        BIT8               OCT      00200                                 
002034,001401:    7640           00100        BIT7               OCT      00100                                 
002035,001402:    7641           00040        BIT6               OCT      00040                                 
002036,001403:    7642           00020        BIT5               OCT      00020                                 
002037,001404:    7643           00010        BIT4               OCT      00010                                 
002038,001405:    7644           00004        BIT3               OCT      00004                                 
002039,001406:    7645           00002        BIT2               OCT      00002                                 
002040,001407:    7646           00001        BIT1               OCT      00001                                 
002041,001408: 
002042,001409:    7647     7630               NEGMAX             EQUALS   BIT15                                 
002043,001410:    7647     7631               HALF               EQUALS   BIT14                                 
002044,001411:    7647     7631               POS1/2             EQUALS   HALF                                  
002045,001412:    7647     7632               QUARTER            EQUALS   BIT13                                 
002046,001413:    7647     7634               2K                 EQUALS   BIT11                                 
002047,001414:    7647           00013        ELEVEN             DEC      11         B-14                       
002048,001415:    7650     7647               NOUTCON            =        ELEVEN                                
002049,001416:    7650           00012        TEN                DEC      10         B-14                       
002050,001417:    7651           00011        NINE               DEC      9          B-14                       
002051,001418:    7652     7643               EIGHT              EQUALS   BIT4                                  
002052,001419:    7652           00007        SEVEN              OCT      7                                     
002053,001420:    7653     6162               SIX                EQUALS   REVCNT                                
002054,001421:    7653     7644               FOUR               EQUALS   BIT3                                  
002055,001422:    7653     6165               THREE              EQUALS   NO.WDS     +1                         
002056,001423:    7653     7645               TWO                EQUALS   BIT2                                  
002057,001424:    7653     7646               ONE                EQUALS   BIT1                                  
002058,001425:    7653           00000        ZERO               OCT      0                                     
002059,001426:    7654           77777        NEG0               OCT      77777                                 
002060,001427:    7655           77776        NEGONE             DEC      -1         B-14                       
002061,001428: 
002062,001429:    7656     7655               NEG1               =        NEGONE                                
002063,001430:    7656           77775        NEG2               OCT      77775                                 
002064,001431:    7657     7652               LOW3               EQUALS   SEVEN                                 
002065,001432:    7657     6165               LOW2               EQUALS   THREE                                 
002066,001433: 
002067,001434:    7657           00031        CALLCODE           OCT      00031                                 
002068,001435:    7660           40014        DLOADCOD           OCT      40014                                 
002069,001436:    7661     7630               VLOADCOD           EQUALS   BIT15                                 

Page 59

002071,001438:    7661           40015        DLOAD*             OCT      40015                                 
002072,001439:    7662     6042               VLOAD*             EQUALS   OCT40001                              
002073,001440:    7662           00106        LVBUF              ADRES    VBUF                                  
002074,001441: 

Page 60

002076,001443:                                                                                                  #  SHIFTING AND ROUNDING PACKAGE.
002077,001444: 
002078,001445:                                                                                                  #           THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
002079,001446: 
002080,001447:                                                                                                  #           1.  SR1 TO SR4         SCALAR SHIFT RIGHT.
002081,001448:                                                                                                  #           2.  SR1R TO SR4R       SCALAR SHIFT RIGHT AND ROUND.
002082,001449:                                                                                                  #           3.  SL1 TO SL4         SCALAR SHIFT LEFT.
002083,001450:                                                                                                  #           4.  SL1R TO SL4R       SCALAR SHIFT LEFT AND ROUND.
002084,001451: 
002085,001452:                                                                                                  #           5.  VSR1 TO VSR8       VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
002086,001453:                                                                                                  #           6.  VSL1 TO VSL8       VECTOR SHIFT LEFT (NEVER ROUNDS).
002087,001454: 
002088,001455:                                                                                                  #           THE FOLLOWING CODES REQUIRE AN ADDRESS WHICH MAY BE INDEXED:*
002089,001456: 
002090,001457:                                                                                                  #           1.  SR                 SCALAR SHIFT RIGHT.
002091,001458:                                                                                                  #           2.  SRR                SCALAR SHIFT RIGHT AND ROUND.
002092,001459:                                                                                                  #           3.  SL                 SCALAR SHIFT LEFT.
002093,001460:                                                                                                  #           4.  SLR                SCALAR SHIFT LEFT AND ROUND.
002094,001461: 
002095,001462:                                                                                                  #           5.  VSR                VECTOR SHIFT RIGHT.
002096,001463:                                                                                                  #           6.  VSL                VECTOR SHIFT LEFT.
002097,001464: 
002098,001465:                                                                                                  #  *  IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
002099,001466:                                                                                                  #  ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
002100,001467: 
002101,001468: 
002102,001469: 
002103,001470: 00,2000                                           SETLOC   10000                                 #  BANK 0 PORTION FOLLOWS.
002104,001471: 
002105,001472: 00,2000           36162        SHORTT             CAF      SIX                                   #  SCALAR SHORT SHIFTS COME HERE. THE SHIFT
002106,001473: 00,2001           70020                           MASK     CYR                                   #  COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
002107,001474: 00,2002           54021                           TS       SR                                    #  ROUNDING BIT IS IN BIT1 AT THIS POINT.
002108,001475: 
002109,001476: 00,2003           10020                           CCS      CYR                                   #  SEE IF RIGHT OR LEFT SHIFT DESIRED.
002110,001477: 00,2004           12062                           TCF      TSSL                                  #  SHIFT LEFT.
002111,001478: 
002112,001479: 00,2005           00024        SRDDV              DEC      20         B-14                       #  MPTEMP SETTING FOR SR BEFORE DDV.
002113,001480: 
002114,001481: 00,2006           50021        TSSR               INDEX    SR                                    #  GET SHIFTING BIT.
002115,001482: 00,2007           37631                           CAF      BIT14                                 
002116,001483: 00,2010           54121                           TS       MPTEMP                                
002117,001484: 
002118,001485: 00,2011           10020                           CCS      CYR                                   #  SEE IF A ROUND IS DESIRED.
002119,001486: 00,2012           02031        RIGHTR             TC       MPACSRND                              #  YES - SHIFT RIGHT AND ROUND.
002120,001487: 00,2013           16014                           TCF      DANZIG                                
002121,001488: 

Page 61

002123,001490: 00,2014           30121        MPACSHR            CA       MPTEMP                                #  DO A TRIPLE PRECISION SHIFT RIGHT.
002124,001491: 00,2015           00006                           EXTEND                                         
002125,001492: 00,2016           70142                           MP       MPAC       +2                         
002126,001493: 00,2017           54142                 +3        TS       MPAC       +2                         #  (EXIT FROM SQRT AND ABVAL).
002127,001494: 00,2020           30121                           CA       MPTEMP                                
002128,001495: 00,2021           00006                           EXTEND                                         
002129,001496: 00,2022           70140                           MP       MPAC                                  #  SHIFT MAJOR PART INTO A,L AND PLACE IN
002130,001497: 00,2023           52141                           DXCH     MPAC                                  #  MPAC,+1.
002131,001498: 00,2024           30121                           CA       MPTEMP                                
002132,001499: 00,2025           00006                           EXTEND                                         
002133,001500: 00,2026           70001                           MP       L                                     #  ORIGINAL C(MPAC +1).
002134,001501: 00,2027           20142                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
002135,001502: 00,2030           16014                           TCF      DANZIG                                
002136,001503: 
002137,001504:                                                                                                  #           MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
002138,001505: 
002139,001506: 00,2031           30142        MPACSRND           CA       MPAC       +2                         #  WE HAVE TO DO ALL THREE MULTIPLIES SINCE
002140,001507: 00,2032           00006                           EXTEND                                         #  MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
002141,001508: 00,2033           70121                           MP       MPTEMP                                #  DISAGREEMENT WITH A SHIFT RIGHT OF 1.
002142,001509: 00,2034           56141                           XCH      MPAC       +1                         
002143,001510: 00,2035           00006                           EXTEND                                         
002144,001511: 00,2036           70121                           MP       MPTEMP                                
002145,001512: 00,2037           56141                           XCH      MPAC       +1                         #  TRIAL MINOR PART.
002146,001513: 00,2040           60001                           AD       L                                     
002147,001514: 
002148,001515: 00,2041           60000        VSHR2              DOUBLE                                         #  (FINISH VECTOR COMPONENT SHIFT RIGHT
002149,001516: 00,2042           54142                           TS       MPAC       +2                         #  AND ROUND.
002150,001517: 00,2043           12045                           TCF      +2                                    
002151,001518: 00,2044           26141                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
002152,001519: 
002153,001520: 00,2045           37653                           CAF      ZERO                                  
002154,001521: 00,2046           54142                           TS       MPAC       +2                         
002155,001522: 00,2047           56140                           XCH      MPAC                                  #  SETTING TO ZERO SO FOLLOWING DAS WORKS.
002156,001523: 00,2050           00006                           EXTEND                                         
002157,001524: 00,2051           70121                           MP       MPTEMP                                
002158,001525: 00,2052           20141                           DAS      MPAC                                  #  AGAIN NO OVERFLOW.
002159,001526: 00,2053           00002                           TC       Q                                     
002160,001527: 
002161,001528: 00,2054           30121        VSHRRND            CA       MPTEMP                                #  ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
002162,001529: 00,2055           00006                           EXTEND                                         #  MPAC CONTAINS A VECTOR COMPONENT.
002163,001530: 00,2056           70141                           MP       MPAC       +1                         
002164,001531: 00,2057           54141                           TS       MPAC       +1                         
002165,001532: 00,2060           56001                           XCH      L                                     
002166,001533: 00,2061           12041                           TCF      VSHR2                                 #  GO ADD ONE IF NECESSARY AND FINISH.
002167,001534: 

Page 62

002169,001536:                                                                                                  #           ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
002170,001537: 
002171,001538: 00,2062           30021        TSSL               CA       SR                                    #  GET SHIFT COUNT FOR SR.
002172,001539: 00,2063           54121                 +1        TS       MPTEMP                                
002173,001540: 
002174,001541: 00,2064           00006                 +2        EXTEND                                         #  ENTRY HERE FROM SL FOR SCALARS.
002175,001542: 00,2065           30142                           DCA      MPAC       +1                         #  SHIFTING LEFT ONE PLACE AT A TIME IS
002176,001543: 00,2066           20142                           DAS      MPAC       +1                         #  FASTER THAN DOING THE WHOLE SHIFT WITH
002177,001544: 00,2067           60140                           AD       MPAC                                  #  MULTIPLIES ASSUMING THAT FREQUENCY OF
002178,001545: 00,2070           60140                           AD       MPAC                                  #  SHIFT COUNTS GOES DOWN RAPIDLY AS A
002179,001546: 00,2071           54140                           TS       MPAC                                  #  FUNCTION OF THEIR MAGNITUDE.
002180,001547: 00,2072           12074                           TCF      +2                                    
002181,001548: 00,2073           54105                           TS       OVFIND                                #  OVERFLOW. (LEAVES OVERFLOW-CORRECTED
002182,001549:                                                                                                  #  RESULT ANYWAY).
002183,001550: 00,2074           10121                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNT.
002184,001551: 00,2075           12063                           TCF      TSSL       +1                         
002185,001552: 
002186,001553: 00,2076           10020                           CCS      CYR                                   #  SEE IF ROUND WANTED.
002187,001554: 00,2077           07115                           TC       ROUNDSUB                              #  YES - ROUND AND EXIT.
002188,001555: 00,2100           16014                           TCF      DANZIG                                #  SL LEAVES A ZERO IN CYR FOR NO ROUND.
002189,001556: 00,2101           16014                           TCF      DANZIG                                #  NO - EXIT IMMEDIATL
002190,001557: 

Page 63

002192,001559:                                                                                                  #  VECTOR SHIFTING ROUTINES.
002193,001560: 
002194,001561: 00,2102           37652        SHORTV             CAF      LOW3                                  #  SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
002195,001562: 00,2103           70020                           MASK     CYR                                   #  EDITING CYR.
002196,001563: 00,2104           54121                           TS       MPTEMP                                
002197,001564: 00,2105           10020                           CCS      CYR                                   #  SEE IF LEFT OR RIGHT SHIFT.
002198,001565: 00,2106           12126                           TCF      VSSL                                  #  VECTOR SHIFT LEFT.
002199,001566: 00,2107           00176        OCT176             OCT      176                                   #  USED IN PROCESSED SHIFTS WITH - COUNT.
002200,001567: 
002201,001568: 00,2110           50121        VSSR               INDEX    MPTEMP                                #  (ENTRY FROM SR). PICK UP SHIFTING BIT.
002202,001569: 00,2111           37631                           CAF      BIT14                                 #  MPTEMP CONTAINS THE SHIFT COUNT - 1.
002203,001570: 00,2112           54121                           TS       MPTEMP                                
002204,001571: 00,2113           02054                           TC       VSHRRND                               #  SHIFT X COMPONENT.
002205,001572: 
002206,001573: 00,2114           52141                           DXCH     MPAC                                  #  SWAP X AND Y COMPONENTS.
002207,001574: 00,2115           52144                           DXCH     MPAC       +3                         
002208,001575: 00,2116           52141                           DXCH     MPAC                                  
002209,001576: 00,2117           02054                           TC       VSHRRND                               #  SHIFT Y COMPONENT.
002210,001577: 
002211,001578: 00,2120           52141                           DXCH     MPAC                                  #  SWAP Y AND Z COMPONENTS.
002212,001579: 00,2121           52146                           DXCH     MPAC       +5                         
002213,001580: 00,2122           52141                           DXCH     MPAC                                  
002214,001581: 00,2123           02054                           TC       VSHRRND                               #  SHIFT Z COMPONENT.
002215,001582: 
002216,001583: 00,2124           17364                           TCF      VROTATEX                              #  RESTORE COMPONENTS TO PROPER PLACES.
002217,001584: 

Page 64

002219,001586:                                                                                                  #  VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
002220,001587: 
002221,001588: 00,2125           54121                 -1        TS       MPTEMP                                #  SHIFTING LOOP.
002222,001589: 
002223,001590: 00,2126           00006        VSSL               EXTEND                                         
002224,001591: 00,2127           30141                           DCA      MPAC                                  
002225,001592: 00,2130           20141                           DAS      MPAC                                  
002226,001593: 00,2131           00006                           EXTEND                                         
002227,001594: 00,2132           12134                           BZF      +2                                    
002228,001595: 00,2133           07006                           TC       OVERFLOW                              
002229,001596: 
002230,001597: 00,2134           00006                           EXTEND                                         
002231,001598: 00,2135           30144                           DCA      MPAC       +3                         
002232,001599: 00,2136           20144                           DAS      MPAC       +3                         
002233,001600: 00,2137           00006                           EXTEND                                         
002234,001601: 00,2140           12142                           BZF      +2                                    
002235,001602: 00,2141           07006                           TC       OVERFLOW                              
002236,001603: 
002237,001604: 00,2142           00006                           EXTEND                                         
002238,001605: 00,2143           30146                           DCA      MPAC       +5                         
002239,001606: 00,2144           20146                           DAS      MPAC       +5                         
002240,001607: 00,2145           00006                           EXTEND                                         
002241,001608: 00,2146           12150                           BZF      +2                                    
002242,001609: 00,2147           07006                           TC       OVERFLOW                              
002243,001610: 
002244,001611: 00,2150           10121                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNTER.
002245,001612: 00,2151           12125                           TCF      VSSL       -1                         
002246,001613: 00,2152           16014                           TCF      DANZIG                                #  EXIT.
002247,001614: 

Page 65

002249,001616:                                                                                                  #           TSLC - TRIPLE SHIFT LEFT AND COUNT. SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
002250,001617:                                                                                                  #  THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
002251,001618: 
002252,001619: 00,2153           54121        TSLC2              TS       MPTEMP                                #  START BY ZEROING SHIFT COUNT (IN A NOW).
002253,001620: 00,2154           06710                           TC       BRANCH                                #  EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
002254,001621: 00,2155           12157                           TCF      +2                                    
002255,001622: 00,2156           12172                           TCF      ENDTSLC                               #  STORES ZERO SHIFT COUNT IN THIS CASE.
002256,001623: 
002257,001624: 00,2157           30140                           CA       MPAC                                  #  BEGIN NORMALIZATION LOOP.
002258,001625: 00,2160           12167                           TCF      TSLCTEST                              
002259,001626: 
002260,001627: 00,2161           24121        TSLCLOOP           INCR     MPTEMP                                #  INCREMENT SHIFT COUNTER.
002261,001628: 00,2162           00006                           EXTEND                                         
002262,001629: 00,2163           30142                           DCA      MPAC       +1                         
002263,001630: 00,2164           20142                           DAS      MPAC       +1                         
002264,001631: 00,2165           60140                           AD       MPAC                                  
002265,001632: 00,2166           26140                           ADS      MPAC                                  
002266,001633: 00,2167           60000        TSLCTEST           DOUBLE                                         #  SEE IF (ANOTHER) SHIFT IS REQUIRED.
002267,001634: 00,2170           54000                           OVSK                                           
002268,001635: 00,2171           12161                           TCF      TSLCLOOP                              #  YES - INCREMENT COUNT AND SHIFT AGAIN.
002269,001636: 
002270,001637: 00,2172           40121        ENDTSLC            CS       MPTEMP                                
002271,001638: 00,2173           16626                           TCF      STORE1                                #  STORE SHIFT COUNT AND RETURN TO DANZIG.
002272,001639: 

Page 66

002274,001641:                                                                                                  #           THE FOLLOWING ROUTINES PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
002275,001642:                                                                                                  #  THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
002276,001643: 
002277,001644:                                                                                                  #           BITS 1-7    SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
002278,001645:                                                                                                  #           BIT 8       PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
002279,001646:                                                                                                  #           BIT 9       0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
002280,001647:                                                                                                  #           BIT 10      1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
002281,001648:                                                                                                  #           BITS 11-15  0.
002282,001649: 
002283,001650:                                                                                                  #  THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
002284,001651: 
002285,001652: 
002286,001653: 
002287,001654: 00,2174           70102        GENSHIFT           MASK     ADDRWD                                #  GET SHIFT COUNT, TESTING FOR ZERO.
002288,001655: 00,2175           10000                           CCS      A                                     #  (ARRIVES WITH C(A) = LOW7).
002289,001656: 00,2176           12204                           TCF      GENSHFT2                              #  IF NON-ZERO, PROCEED WITH DECREMENTED CT
002290,001657: 
002291,001658: 00,2177           37635                           CAF      BIT10                                 #  ZERO SHIFT COUNT. NO SHIFTS NEEDED BUT
002292,001659: 00,2200           70102                           MASK     ADDRWD                                #  WE MIGHT HAVE TO ROUND MPAC ON SLR AND
002293,001660: 00,2201           10000                           CCS      A                                     #  SRR (SCALAR ONLY).
002294,001661: 00,2202           07115                           TC       ROUNDSUB                              
002295,001662: 00,2203           16014                           TCF      DANZIG                                
002296,001663: 
002297,001664: 00,2204           54121        GENSHFT2           TS       MPTEMP                                #  DECREMENTED SHIFT COUNT TO MPTEMP.
002298,001665: 00,2205           37637                           CAF      BIT8                                  #  TEST MEANING OF LOW SEVEN BIT COUNT IN
002299,001666: 00,2206           00006                           EXTEND                                         #  MPTEMP NOW.
002300,001667: 00,2207           70102                           MP       ADDRWD                                
002301,001668: 00,2210           76165                           MASK     LOW2                                  #  JUMPS ON SHIFT DIRECTION (BIT8) AND
002302,001669: 00,2211           50000                           INDEX    A                                     
002303,001670: 00,2212           12213                           TCF      +1                                    #  ORIGINAL SHIFT DIRECTION (BIT 9).
002304,001671: 00,2213           12312                           TCF      RIGHT-                                #  NEGATIVE SHIFT COUNT FOR SL OR SLR.
002305,001672: 00,2214           12321                           TCF      LEFT                                  #  SL OR SLR.
002306,001673: 00,2215           12316                           TCF      LEFT-                                 #  NEGATIVE SHIFT COUNT WITH SR OR SRR.
002307,001674: 

Page 67

002309,001676:                                                                                                  #           GENERAL SHIFT RIGHT.
002310,001677: 
002311,001678: 00,2216           10147        RIGHT              CCS      MODE                                  #  SEE IF VECTOR OR SCALAR.
002312,001679: 00,2217           12257                           TCF      GENSCR                                
002313,001680: 00,2220           12257                           TCF      GENSCR                                
002314,001681: 
002315,001682: 00,2221           30121                           CA       MPTEMP                                #  SEE IF SHIFT COUNT GREATER THAN 13D.
002316,001683: 00,2222           62273        VRIGHT2            AD       NEG12                                 
002317,001684: 00,2223           00006                           EXTEND                                         
002318,001685: 00,2224           62110                           BZMF     VSSR                                  #  IF SO, BRANCH AND SHIFT IMMEDIATELY.
002319,001686: 
002320,001687: 00,2225           67655                           AD       NEGONE                                #  IF NOT, REDUCE MPTEMP BY A TOTAL OF 14,
002321,001688: 00,2226           54121                           TS       MPTEMP                                #  AND DO A SHIFT RIGHT AND ROUND BY 14.
002322,001689: 00,2227           37653                           CAF      ZERO                                  #  THE ROUND AT THIS STAGE MAY INTRODUCE A
002323,001690: 00,2230           54001                           TS       L                                     #  ONE BIT ERROR IN A SHIFT RIGHT 15D.
002324,001691: 00,2231           56140                           XCH      MPAC                                  
002325,001692: 00,2232           56141                           XCH      MPAC       +1                         
002326,001693: 00,2233           02252                           TC       SETROUND                              #  X COMPONENT NOW SHIFTED, SO MAKE UP THE
002327,001694: 00,2234           20141                           DAS      MPAC                                  #  ROUNDING QUANTITY (0 IN A AND 0 OR +-1
002328,001695:                                                                                                  #  IN L).
002329,001696: 00,2235           56143                           XCH      MPAC       +3                         #  REPEAT THE ABOVE PROCESS FOR Y AND Z.
002330,001697: 00,2236           56144                           XCH      MPAC       +4                         
002331,001698: 00,2237           02252                           TC       SETROUND                              
002332,001699: 00,2240           20144                           DAS      MPAC       +3                         #  NO OVERFLOW ON THESE ADDS.
002333,001700: 
002334,001701: 00,2241           56145                           XCH      MPAC       +5                         
002335,001702: 00,2242           56146                           XCH      MPAC       +6                         
002336,001703: 00,2243           02252                           TC       SETROUND                              
002337,001704: 00,2244           20146                           DAS      MPAC       +5                         
002338,001705: 
002339,001706: 00,2245           10121                           CCS      MPTEMP                                #  SEE IF DONE, DOING FINAL DECREMENT.
002340,001707: 00,2246           12222                           TCF      VRIGHT2                               
002341,001708: 00,2247           13614        TCSUBTR            TCF      SUBTR                                 
002342,001709: 00,2250           04604        BIASLO             DEC      .2974      B-1                        #  SQRT CONSTANT
002343,001710: 
002344,001711: 00,2251           16014                           TCF      DANZIG                                
002345,001712: 
002346,001713: 
002347,001714: 
002348,001715: 00,2252           60000        SETROUND           DOUBLE                                         #  MAKES UP ROUNDING QUANTITY FROM ARRIVING
002349,001716: 00,2253           54142                           TS       MPAC       +2                         #  C(A). L IS ZERO INITIALLY.
002350,001717: 00,2254           37653                           CAF      ZERO                                  
002351,001718: 00,2255           56001                           XCH      L                                     
002352,001719: 00,2256           00002                           TC       Q                                     #  RETURN AND DO THE DAS, RESETTING L TO 0.
002353,001720: 

Page 68

002355,001722:                                                                                                  #           PROCESS SR AND SRR FOR SCALARS.
002356,001723: 
002357,001724: 00,2257           30121        GENSCR             CA       MPTEMP                                #  SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
002358,001725: 00,2260           62273                 +1        AD       NEG12                                 #  THAN 14D.
002359,001726: 00,2261           00006                           EXTEND                                         
002360,001727: 00,2262           62302                           BZMF     DOSSHFT                               #  DO THE SHIFT IMMEDIATELY IF SO.
002361,001728: 
002362,001729: 00,2263           67655                 +4        AD       NEGONE                                #  IF NOT, DECREMENT SHIFT COUNT BY 14D AND
002363,001730: 00,2264           54121                           TS       MPTEMP                                #  SHIFT MPAC RIGHT 14 PLACES.
002364,001731: 00,2265           37653                           CAF      ZERO                                  
002365,001732: 00,2266           56140                           XCH      MPAC                                  
002366,001733: 00,2267           56141                           XCH      MPAC       +1                         
002367,001734: 00,2270           54142                           TS       MPAC       +2                         
002368,001735: 00,2271           10121                           CCS      MPTEMP                                #  SEE IF FINISHED, DO FINAL DECREMENT.
002369,001736: 00,2272           02260                           TC       GENSCR     +1                         
002370,001737: 00,2273           77763        NEG12              DEC      -12        B-14                       
002371,001738: 00,2274           22650        SLOPEHI            DEC      .5884                                 #  SQRT CONSTANT.
002372,001739: 00,2275           37635                           CAF      BIT10                                 #  FINISHED WITH SHIFT. SEE IF ROUND
002373,001740: 00,2276           70102                           MASK     ADDRWD                                #  WANTED.
002374,001741: 00,2277           10000                           CCS      A                                     
002375,001742: 00,2300           07115                           TC       ROUNDSUB                              
002376,001743: 00,2301           16014                           TCF      DANZIG                                #  DO SO AND/OR EXIT.
002377,001744: 
002378,001745: 00,2302           50121        DOSSHFT            INDEX    MPTEMP                                #  PICK UP SHIFTING BIT.
002379,001746: 00,2303           37631                           CAF      BIT14                                 
002380,001747: 00,2304           54121                           TS       MPTEMP                                
002381,001748: 00,2305           37635                           CAF      BIT10                                 #  SEE IF TERMINAL ROUND DESIRED.
002382,001749: 00,2306           70102                           MASK     ADDRWD                                
002383,001750: 00,2307           10000                           CCS      A                                     
002384,001751: 00,2310           12012                           TCF      RIGHTR                                #  YES.
002385,001752: 00,2311           12014                           TCF      MPACSHR                               #  JUST SHIFT RIGHT.
002386,001753: 

Page 69

002388,001755:                                                                                                  #           PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
002389,001756: 
002390,001757: 00,2312           40121        RIGHT-             CS       MPTEMP                                #  GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
002391,001758: 00,2313           62107                           AD       OCT176                                #  UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
002392,001759: 00,2314           54121                           TS       MPTEMP                                #  WAS 1 INITIALLY.
002393,001760: 00,2315           12216                           TCF      RIGHT                                 #  DO NORMAL SHIFT RIGHT.
002394,001761: 
002395,001762: 00,2316           40121        LEFT-              CS       MPTEMP                                #  SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
002396,001763: 00,2317           62107                           AD       OCT176                                #  SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE
002397,001764: 00,2320           54121                           TS       MPTEMP                                
002398,001765: 
002399,001766: 00,2321           10147        LEFT               CCS      MODE                                  #  SINCE LEFT SHIFTING IS SONE ONE PLACE AT
002400,001767: 00,2322           12325                           TCF      GENSCL                                #  A TIME, NO COMPARISON WITH 14 NEED BE
002401,001768: 00,2323           12325                           TCF      GENSCL                                #  DONE. FOR SCALARS, SEE IF TERMINAL ROUND
002402,001769: 00,2324           12126                           TCF      VSSL                                  #  DESIRED. FOR VECTORS, SHIFT IMMEDIATELY.
002403,001770: 
002404,001771: 00,2325           37641        GENSCL             CAF      BIT6                                  #  PUT ROUNDING BIT (BIT10 OF ADDRWD) INTO
002405,001772: 00,2326           00006                           EXTEND                                         #  BIT 15 OF CYR WHERE THE ROUNDING BIT OF
002406,001773: 00,2327           70102                           MP       ADDRWD                                #  A SHORT SHIFT LEFT WOULD BE.
002407,001774: 00,2330           54020                           TS       CYR                                   
002408,001775: 00,2331           12064                           TCF      TSSL       +2                         #  DO THE SHIFT.
002409,001776: 

Page 70

002411,001778:                                                                                                  #           SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE. AT THIS POINT, THE DIVIDEND IS IN MPAC
002412,001779:                                                                                                  #  AND THE DIVISOR IN BUF.
002413,001780: 
002414,001781: 00,2332           47646        DDV/BDDV           CS       ONE                                   #  INITIALIZATION.
002415,001782: 00,2333           54122                           TS       DVSIGN                                #  +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
002416,001783: 00,2334           54123                           TS       DVNORMCT                              #  DIVIDEND NORMALIZATION COUNT.
002417,001784: 00,2335           54124                           TS       MAXDVSW                               #  NEAR-ONE DIVIDE FLAG.
002418,001785: 
002419,001786: 00,2336           10114                           CCS      BUF                                   #  FORCE BUF POSITIVE WITH THE MAJOR PART
002420,001787: 00,2337           12366                           TCF      BUF+                                  #  NON-ZERO.
002421,001788: 00,2340           12342                           TCF      +2                                    
002422,001789: 00,2341           12362                           TCF      BUF-                                  
002423,001790: 
002424,001791: 00,2342           56115                           XCH      BUF        +1                         #  SHIFT DIVIDEND AND DIVISOR LEFT 14.
002425,001792: 00,2343           56114                           XCH      BUF                                   
002426,001793: 00,2344           56141                           XCH      MPAC       +1                         
002427,001794: 00,2345           56140                           XCH      MPAC                                  
002428,001795: 00,2346           00006                           EXTEND                                         #  CHECK FOR OVERFLOW.
002429,001796: 00,2347           12351                           BZF      +2                                    
002430,001797: 00,2350           12355                           TCF      DVOVF                                 
002431,001798: 
002432,001799: 00,2351           10114                           CCS      BUF                                   #  TRY AGAIN ON FORMER MINOR PART.
002433,001800: 00,2352           12366                           TCF      BUF+                                  
002434,001801: 00,2353           12355                           TCF      DVOVF                                 #  OVERFLOW ON ZERO DIVISOR.
002435,001802: 00,2354           12362                           TCF      BUF-                                  
002436,001803: 
002437,001804: 00,2355           37626        DVOVF              CAF      POSMAX                                #  ON DIVISION OVERFLOW OF ANY SORT, SET
002438,001805: 00,2356           54140                           TS       MPAC                                  #  SET DP MPAC TO +-POSMAX.
002439,001806: 00,2357           02552                           TC       FINALDV    +3                         
002440,001807: 00,2360           37646                           CAF      ONE                                   #  SET OVERFLOW INDICATOR AND EXIT.
002441,001808: 00,2361           17060                           TCF      SETOVF                                
002442,001809: 
002443,001810: 00,2362           00006        BUF-               EXTEND                                         #  IF BUF IS NEGATIVE, COMPLEMENT IT AND
002444,001811: 00,2363           40115                           DCS      BUF                                   #  MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
002445,001812: 00,2364           52115                           DXCH     BUF                                   
002446,001813: 00,2365           24122                           INCR     DVSIGN                                #  NOW -0.
002447,001814: 
002448,001815: 00,2366           10140        BUF+               CCS      MPAC                                  #  FORCE MPAC POSITIVE, CHECKING FOR ZERO
002449,001816: 00,2367           12403                           TCF      MPAC+                                 #  DIVIDEND IN THE PROCESS.
002450,001817: 00,2370           12372                           TCF      +2                                    
002451,001818: 00,2371           12377                           TCF      MPAC-                                 
002452,001819: 00,2372           10141                           CCS      MPAC       +1                         
002453,001820: 00,2373           12403                           TCF      MPAC+                                 
002454,001821: 00,2374           16014                           TCF      DANZIG                                #  EXIT IMMEDIATELY ON ZERO DIVIDEND.
002455,001822: 00,2375           12377                           TCF      MPAC-                                 
002456,001823: 00,2376           16014                           TCF      DANZIG                                
002457,001824: 
002458,001825: 00,2377           00006        MPAC-              EXTEND                                         #  FORCE MPAC POSITIVE AS BUF IN BUF-.
002459,001826: 00,2400           40141                           DCS      MPAC                                  
002460,001827: 00,2401           52141                           DXCH     MPAC                                  
002461,001828: 

Page 71

002463,001830: 00,2402           24122                           INCR     DVSIGN                                #  NOW +1 OR -0.
002464,001831: 

Page 72

002466,001833: 00,2403           40140        MPAC+              CS       MPAC                                  #  CHECK FOR DIVISION OVERFLOW. IF THE
002467,001834: 00,2404           67655                           AD       NEGONE                                #  MAJOR PART OF THE DIVIDEND IS LESS THAN
002468,001835: 00,2405           60114                           AD       BUF                                   #  THE MAJOR PART OF THE DIVISOR BY AT
002469,001836: 00,2406           10000                           CCS      A                                     #  LEAST TWO, WE CAN PROCEED IMMEDIATELY
002470,001837: 00,2407           12451                           TCF      DVNORM                                #  WITHOUT NORMALIZATION PRODUCING A DVMAX.
002471,001838: 00,2410           60001        -1/2+2             OCT      60001                                 #  USED IN SQRTSUB.
002472,001839: 
002473,001840: 00,2411           12412                           TCF      +1                                    #  IF THE ABOVE DOES NOT HOLD, FORCE SIGN
002474,001841: 00,2412           37631                           CAF      HALF                                  #  AGREEMENT IN NUMERATOR AND DENOMINATOR
002475,001842: 00,2413           60000                           DOUBLE                                         #  TO FACILITATE OVERFLOW AND NEAR-ONE
002476,001843: 00,2414           60141                           AD       MPAC       +1                         #  CHECKING.
002477,001844: 00,2415           54141                           TS       MPAC       +1                         
002478,001845: 00,2416           37653                           CAF      ZERO                                  
002479,001846: 00,2417           67626                           AD       POSMAX                                
002480,001847: 00,2420           26140                           ADS      MPAC                                  
002481,001848: 
002482,001849: 00,2421           37631                           CAF      HALF                                  #  SAME FOR BUF.
002483,001850: 00,2422           60000                           DOUBLE                                         
002484,001851: 00,2423           60115                           AD       BUF        +1                         
002485,001852: 00,2424           54115                           TS       BUF        +1                         
002486,001853: 00,2425           37653                           CAF      ZERO                                  
002487,001854: 00,2426           67626                           AD       POSMAX                                
002488,001855: 00,2427           26114                           ADS      BUF                                   
002489,001856: 
002490,001857: 00,2430           40140                           CS       MPAC                                  #  CHECK MAGNITUDE OF SIGN-CORRECTED
002491,001858: 00,2431           60114                           AD       BUF                                   #  OPERANDS.
002492,001859: 00,2432           10000                           CCS      A                                     
002493,001860: 00,2433           12451                           TCF      DVNORM                                #  DIVIDE OK - WILL NOT BECOME MAXDV CASE.
002494,001861: 00,2434           00117        LBUF2              ADRES    BUF2                                  
002495,001862: 00,2435           12355                           TCF      DVOVF                                 #  DIVISOR NOT LESS THAN DIVIDEND - OVF.
002496,001863: 
002497,001864: 00,2436           54124                           TS       MAXDVSW                               #  IF THE MAJOR PARTS OF THE DIVIDEND AND
002498,001865: 00,2437           40141                           CS       MPAC       +1                         #  DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
002499,001866: 00,2440           60115                           AD       BUF        +1                         #  TION IS USED (PROVIDED THE DIVISION IS
002500,001867: 00,2441           00006                           EXTEND                                         #  POSSIBLE, OF COURSE).
002501,001868: 00,2442           62355                           BZMF     DVOVF                                 
002502,001869: 00,2443           12451                           TCF      DVNORM                                #  IF NO OVERFLOW.
002503,001870: 

Page 73

002505,001872: 00,2444           00006        BUFNORM            EXTEND                                         #  ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
002506,001873: 00,2445           24123                           AUG      DVNORMCT                              #  LEFT ONE PLACE.
002507,001874: 00,2446           00006                           EXTEND                                         
002508,001875: 00,2447           30115                           DCA      BUF                                   
002509,001876: 00,2450           20115                           DAS      BUF                                   
002510,001877: 
002511,001878: 00,2451           30114        DVNORM             CA       BUF                                   #  SEE IF DIVISOR NORMALIZED YET.
002512,001879: 00,2452           60000                           DOUBLE                                         
002513,001880: 00,2453           54000                           OVSK                                           
002514,001881: 00,2454           12444                           TCF      BUFNORM                               #  NO - SHIFT LEFT ONE AND TRY AGAIN.
002515,001882: 
002516,001883: 00,2455           52141                           DXCH     MPAC                                  #  CALL DIVIDEND NORMALIZATION SEQUENCE
002517,001884: 00,2456           50123                           INDEX    DVNORMCT                              #  PRIOR TO DOING THE DIVIDE.
002518,001885: 00,2457           02507                           TC       MAXTEST                               
002519,001886: 
002520,001887: 00,2460           54142                           TS       MPAC       +2                         #  RETURNS WITH DIVISION DONE AND C(A) = 0.
002521,001888: 00,2461           16014                           TCF      DANZIG                                
002522,001889: 

Page 74

002524,001891:                                                                                                  #           THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
002525,001892: 
002526,001893: 00,2462           22021                 -21D      LXCH     SR                                    #  SPECIAL PROLOGUE FOR UNIT WHEN THE
002527,001894: 00,2463           00006                           EXTEND                                         #  LENGTH OF THE ARGUMENT WAS NOT LESS THAN
002528,001895: 00,2464           77631                           MP       HALF                                  #  .5. IN THIS CASE, EACH COMPONENT MUST BE
002529,001896: 00,2465           56001                           XCH      L                                     #  SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
002530,001897: 00,2466           60021                           AD       SR                                    #  VECTOR.
002531,001898: 00,2467           56001                           XCH      L                                     
002532,001899: 00,2470           12513                           TCF      GENDDV     +1                         #  WITH DP DIVIDEND IN A,L.
002533,001900: 
002534,001901: 00,2471           20001                           DDOUBL                                         #  PROLOGUE WHICH NORMALIZES THE DIVIDEND
002535,001902: 00,2472           20001                           DDOUBL                                         #  WHEN IT IS KNOWN THAT NO DIVISION
002536,001903: 00,2473           20001                           DDOUBL                                         #  OVERFLOW WILL OCCUR.
002537,001904: 00,2474           20001                           DDOUBL                                         
002538,001905: 00,2475           20001                           DDOUBL                                         
002539,001906: 00,2476           20001                           DDOUBL                                         
002540,001907: 00,2477           20001                           DDOUBL                                         
002541,001908: 00,2500           20001                           DDOUBL                                         
002542,001909: 00,2501           20001                           DDOUBL                                         
002543,001910: 00,2502           20001                           DDOUBL                                         
002544,001911: 00,2503           20001                           DDOUBL                                         
002545,001912: 00,2504           20001                           DDOUBL                                         
002546,001913: 00,2505           20001                           DDOUBL                                         
002547,001914: 00,2506           52141                           DXCH     MPAC                                  
002548,001915: 
002549,001916: 00,2507           10124        MAXTEST            CCS      MAXDVSW                               #  0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
002550,001917: 00,2510           06552        BIASHI             DEC      .4192      B-1                        #  SQRT CONSTANTS
002551,001918: 
002552,001919: 00,2511           12564                           TCF      MAXDV                                 #  CHECK TO SEE IF THEY ARE NOW EQUAL.
002553,001920: 

Page 75

002555,001922:                                                                                                  #           THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES
002556,001923:                                                                                                  #  THE RESULT IN MPAC. THE FOLLOWING CONDITIONS MUST BE SATISFIED:
002557,001924: 
002558,001925:                                                                                                  #           1.  THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
002559,001926: 
002560,001927:                                                                                                  #           2.  THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
002561,001928:                                                                                                  #  (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
002562,001929: 
002563,001930:                                                                                                  #           UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
002564,001931:                                                                                                  #  TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
002565,001932:                                                                                                  #  ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT). SIGN AGREEMENT IS UNNECESSARY.
002566,001933: 
002567,001934:                                                                                                  #           A + SB .      (R - QD)                                             A + SB
002568,001935:                                                                                                  #           ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
002569,001936:                                                                                                  #           C + SD        (  C   )                                               C
002570,001937: 
002571,001938: 
002572,001939: 
002573,001940: 00,2512           52141        GENDDV             DXCH     MPAC                                  #  WE NEED A AND B ONLY FOR FIRST DV.
002574,001941: 00,2513           00006                 +1        EXTEND                                         #  (SPECIAL UNIT PROLOGUE ENTERS HERE).
002575,001942: 00,2514           10114                           DV       BUF                                   #  A NOW CONTAINS Q AND L, R.
002576,001943: 00,2515           52141                           DXCH     MPAC                                  
002577,001944: 
002578,001945: 00,2516           40140                           CS       MPAC                                  #  FORM DIVIDEND FOR MINOR PART OF RESULT.
002579,001946: 00,2517           00006                           EXTEND                                         
002580,001947: 00,2520           70115                           MP       BUF        +1                         
002581,001948: 00,2521           60141                           AD       MPAC       +1                         #  OVERFLOW AT THIS POINT IS POSITIVE SINCE
002582,001949: 00,2522           54000                           OVSK                                           #  R IS POSITIVE IN EVERY CASE.
002583,001950: 00,2523           12530                           TCF      +5                                    
002584,001951: 
002585,001952: 00,2524           00006                           EXTEND                                         #  OVERFLOW CAN BE REMOVED BY SUBTRACTING C
002586,001953: 00,2525           60114                           SU       BUF                                   #  (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
002587,001954: 00,2526           24140                           INCR     MPAC                                  #  IN THIS CASE. INCR COMPENSATES SUBTRACT.
002588,001955: 00,2527           12532                           TCF      +DOWN                                 #  (SINCE C(A) IS STILL POSITIVE).
002589,001956: 
002590,001957: 00,2530           00006                 +5        EXTEND                                         #  C(A) CAN BE MADE LESS THAN C IN MAGNI-
002591,001958: 00,2531           62542                           BZMF     -UP                                   #  TUDE BY DIMINISHING IT BY C (SINCE C IS
002592,001959:                                                                                                  #  NOT LESS THAN .5) UNLESS C(A) = 0.
002593,001960: 

Page 76

002595,001962: 00,2532           00006        +DOWN              EXTEND                                         
002596,001963: 00,2533           60114                           SU       BUF                                   #  IF POSITIVE, REDUCE ONLY IF NECESSARY
002597,001964: 00,2534           00006                           EXTEND                                         #  SINCE THE COMPENSATING INCR MIGHT CAUSE
002598,001965: 00,2535           12540                           BZF      +3                                    #  OVERFLOW.
002599,001966: 00,2536           00006                           EXTEND                                         #  DONT SUBTRACT UNLESS RESULT IS POSITIVE
002600,001967: 00,2537           62546                           BZMF     ENDMAXDV                              #  OR ZERO.
002601,001968: 
002602,001969: 00,2540           24140                 +3        INCR     MPAC                                  #  KEEP SUBTRACT HERE AND COMPENSATE.
002603,001970: 00,2541           12547                           TCF      FINALDV                               
002604,001971: 
002605,001972: 00,2542           00006        -UP                EXTEND                                         #  IF ZERO, SET MINOR PART OF RESULT TO
002606,001973: 00,2543           12552                           BZF      FINALDV    +3                         #  ZERO.
002607,001974: 
002608,001975: 00,2544           00006                           EXTEND                                         #  IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
002609,001976: 00,2545           26140                           DIM      MPAC                                  #  TO COMPENSATE. DIM IS OK HERE SINCE THE
002610,001977: 00,2546           60114        ENDMAXDV           AD       BUF                                   #  MAJOR PART NEVER GOES NEGATIVE.
002611,001978: 

Page 77

002613,001980: 00,2547           22007        FINALDV            ZL                                             #  DO DV TO OBTAIN MINOR PART OF RESULT.
002614,001981: 00,2550           00006                           EXTEND                                         
002615,001982: 00,2551           10114                           DV       BUF                                   
002616,001983: 00,2552           54141                 +3        TS       MPAC       +1                         
002617,001984: 
002618,001985: 00,2553           10122                           CCS      DVSIGN                                #  LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
002619,001986: 00,2554           00002                           TC       Q                                     #  -0.
002620,001987: 00,2555           00002                           TC       Q                                     
002621,001988: 00,2556           00002                           TC       Q                                     
002622,001989: 
002623,001990: 00,2557           00006                           EXTEND                                         
002624,001991: 00,2560           40141                           DCS      MPAC                                  
002625,001992: 00,2561           52141                           DXCH     MPAC                                  
002626,001993: 00,2562           37653                           CAF      ZERO                                  #  SO WE ALWAYS RETURN WITH C(A) = 0.
002627,001994: 00,2563           00002                           TC       Q                                     
002628,001995: 

Page 78

002630,001997:                                                                                                  #           IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
002631,001998:                                                                                                  #  DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED. THE ASSUMPTIONS
002632,001999:                                                                                                  #  ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
002633,002000: 
002634,002001:                                                                                                  #                  C + SB .          (C + B - D)
002635,002002:                                                                                                  #                  ------ = 37777 + S(---------)
002636,002003:                                                                                                  #                  C + SD            (    C    )
002637,002004: 
002638,002005:                                                                                                  #           THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
002639,002006: 
002640,002007: 
002641,002008: 
002642,002009: 00,2564           40140        MAXDV              CS       MPAC                                  #  SEE IF MAXDV CASE STILL HOLDS AFTER
002643,002010: 00,2565           60114                           AD       BUF                                   #  NORMALIZATION.
002644,002011: 00,2566           00006                           EXTEND                                         
002645,002012: 00,2567           12571                           BZF      +2                                    
002646,002013: 00,2570           12512                           TCF      GENDDV                                #  MPAC NOW LESS THAN BUF - DIVIDE AS USUAL
002647,002014: 
002648,002015: 00,2571           37626                 +2        CAF      POSMAX                                #  SET MAJOR PART OF RESULT.
002649,002016: 00,2572           54140                           TS       MPAC                                  
002650,002017: 
002651,002018: 00,2573           40115                           CS       BUF        +1                         #  FORM DIVIDEND OF MINOR PART OF RESULT.
002652,002019: 00,2574           60141                           AD       MPAC       +1                         
002653,002020: 00,2575           12546                           TCF      ENDMAXDV                              #  GO ADD C AND DO DIVIDE, ATTACHING SIGN
002654,002021:                                                                                                  #  BEFORE EXITING.
002655,002022: 

Page 79

002657,002024:                                                                                                  #           VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE. THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
002658,002025: 
002659,002026: 00,2576           47646        V/SC2              CS       ONE                                   #  INITIALIZE DIVIDEND NORMALIZATION COUNT
002660,002027: 00,2577           54123                           TS       DVNORMCT                              #  AND DIVISION SIGN REGISTER.
002661,002028: 00,2600           54113                           TS       VBUF       +5                         
002662,002029: 
002663,002030: 00,2601           10114                           CCS      BUF                                   #  FORCE DIVISOR POSITIVE WITH MAJOR PART
002664,002031: 00,2602           12637                           TCF      /BUF+                                 #  NON-ZERO (IF POSSIBLE).
002665,002032: 00,2603           12605                           TCF      +2                                    
002666,002033: 00,2604           12633                           TCF      /BUF-                                 
002667,002034: 
002668,002035: 00,2605           56115                           XCH      BUF        +1                         #  SHIFT VECTOR AND SCALAR LEFT 14.
002669,002036: 00,2606           56114                           XCH      BUF                                   
002670,002037: 00,2607           56141                           XCH      MPAC       +1                         
002671,002038: 00,2610           56140                           XCH      MPAC                                  
002672,002039: 00,2611           00006                           EXTEND                                         #  CHECK FOR OVERFLOW IN EACH CASE.
002673,002040: 00,2612           12614                           BZF      +2                                    
002674,002041: 00,2613           12355                           TCF      DVOVF                                 
002675,002042: 
002676,002043: 00,2614           56144                           XCH      MPAC       +4                         
002677,002044: 00,2615           56143                           XCH      MPAC       +3                         
002678,002045: 00,2616           00006                           EXTEND                                         
002679,002046: 00,2617           12621                           BZF      +2                                    
002680,002047: 00,2620           12355                           TCF      DVOVF                                 
002681,002048: 
002682,002049: 00,2621           56146                           XCH      MPAC       +6                         
002683,002050: 00,2622           56145                           XCH      MPAC       +5                         
002684,002051: 00,2623           00006                           EXTEND                                         
002685,002052: 00,2624           12626                           BZF      +2                                    
002686,002053: 00,2625           12355                           TCF      DVOVF                                 
002687,002054: 
002688,002055: 00,2626           10114                           CCS      BUF                                   
002689,002056: 00,2627           12637                           TCF      /BUF+                                 
002690,002057: 00,2630           12355                           TCF      DVOVF                                 #  ZERO DIVISOR - OVERFLOW.
002691,002058: 00,2631           12633                           TCF      /BUF-                                 
002692,002059: 00,2632           12355                           TCF      DVOVF                                 
002693,002060: 
002694,002061: 00,2633           00006        /BUF-              EXTEND                                         #  ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
002695,002062: 00,2634           40115                           DCS      BUF                                   #  DVSIGN IN VBUF +5.
002696,002063: 00,2635           52115                           DXCH     BUF                                   
002697,002064: 00,2636           24113                           INCR     VBUF       +5                         
002698,002065: 

Page 80

002700,002067: 00,2637           37631        /BUF+              CAF      HALF                                  #  FORCE SIGN AGREEMENT IN DIVISOR.
002701,002068: 00,2640           60000                           DOUBLE                                         
002702,002069: 00,2641           60115                           AD       BUF        +1                         
002703,002070: 00,2642           54115                           TS       BUF        +1                         
002704,002071: 00,2643           37653                           CAF      ZERO                                  
002705,002072: 00,2644           67626                           AD       POSMAX                                
002706,002073: 00,2645           26114                           ADS      BUF                                   
002707,002074: 
002708,002075: 00,2646           56117                           XCH      BUF2                                  #  LEAVE ABS(ORIGINAL DIVISOR) IN BUF2 FOR
002709,002076: 00,2647           30115                           CA       BUF        +1                         #  OVERFLOW TESTING.
002710,002077: 00,2650           54120                           TS       BUF2       +1                         
002711,002078: 00,2651           12657                           TCF      /NORM                                 #  NORMALIZE DIVISOR IN BUF.
002712,002079: 
002713,002080: 00,2652           00006        /NORM2             EXTEND                                         #  IF LESS THAN .5, AUGMENT DVNORMCT AND
002714,002081: 00,2653           24123                           AUG      DVNORMCT                              #  DOUBLE DIVISOR.
002715,002082: 00,2654           00006                           EXTEND                                         
002716,002083: 00,2655           30115                           DCA      BUF                                   
002717,002084: 00,2656           20115                           DAS      BUF                                   
002718,002085: 
002719,002086: 00,2657           30114        /NORM              CA       BUF                                   #  SEE IF DIVISOR NORMALIZED.
002720,002087: 00,2660           60000                           DOUBLE                                         
002721,002088: 00,2661           54000                           OVSK                                           
002722,002089: 00,2662           12652                           TCF      /NORM2                                #  DOUBLE AND TRY AGAIN IF NOT.
002723,002090: 
002724,002091: 00,2663           02675                           TC       V/SCDV                                #  DO X COMPONENT DIVIDE.
002725,002092: 00,2664           52144                           DXCH     MPAC       +3                         #  SUPPLY ARGUMENTS IN USUAL SEQUENCE.
002726,002093: 00,2665           52141                           DXCH     MPAC                                  
002727,002094: 00,2666           52144                           DXCH     MPAC       +3                         
002728,002095: 
002729,002096: 00,2667           02675                           TC       V/SCDV                                #  Y COMPONENT.
002730,002097: 00,2670           52146                           DXCH     MPAC       +5                         
002731,002098: 00,2671           52141                           DXCH     MPAC                                  
002732,002099: 00,2672           52146                           DXCH     MPAC       +5                         
002733,002100: 
002734,002101: 00,2673           02675                           TC       V/SCDV                                #  Z COMPONENT.
002735,002102: 00,2674           17364                           TCF      VROTATEX                              #  GO RE-ARRANGE COMPONENTS BEFORE EXIT.
002736,002103: 

Page 81

002738,002105:                                                                                                  #           SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
002739,002106: 
002740,002107: 00,2675           30113        V/SCDV             CA       VBUF       +5                         #  REFLECTS SIGN OF SCALAR.
002741,002108: 00,2676           54122                           TS       DVSIGN                                
002742,002109: 
002743,002110: 00,2677           10140                           CCS      MPAC                                  #  FORCE MPAC POSITIVE, EXITING ON ZERO.
002744,002111: 00,2700           12714                           TCF      /MPAC+                                
002745,002112: 00,2701           12703                           TCF      +2                                    
002746,002113: 00,2702           12710                           TCF      /MPAC-                                
002747,002114: 
002748,002115: 00,2703           10141                           CCS      MPAC       +1                         
002749,002116: 00,2704           12714                           TCF      /MPAC+                                
002750,002117: 00,2705           00002                           TC       Q                                     
002751,002118: 00,2706           12710                           TCF      /MPAC-                                
002752,002119: 00,2707           00002                           TC       Q                                     
002753,002120: 
002754,002121: 00,2710           00006        /MPAC-             EXTEND                                         #  USUAL COMPLEMENTING AND SETTING OF SIGN.
002755,002122: 00,2711           40141                           DCS      MPAC                                  
002756,002123: 00,2712           52141                           DXCH     MPAC                                  
002757,002124: 00,2713           24122                           INCR     DVSIGN                                
002758,002125: 
002759,002126: 00,2714           47646        /MPAC+             CS       ONE                                   #  INITIALIZE NEAR-ONE SWITCH.
002760,002127: 00,2715           54124                           TS       MAXDVSW                               
002761,002128: 
002762,002129: 00,2716           40140                           CS       MPAC                                  #  CHECK POSSIBLE OVERFLOW.
002763,002130: 00,2717           60117                           AD       BUF2                                  #  UNNORMALIZED INPUT DIVISOR.
002764,002131: 00,2720           00006                           EXTEND                                         
002765,002132: 00,2721           62725                           BZMF     /AGREE                                #  CHECK FOR NEAR-ONE OR OVERFLOW.
002766,002133: 
002767,002134: 00,2722           52141        DDVCALL            DXCH     MPAC                                  #  CALL PRE-DIVIDE NORMALIZATION.
002768,002135: 00,2723           50123                           INDEX    DVNORMCT                              
002769,002136: 00,2724           12507                           TCF      MAXTEST                               
002770,002137: 

Page 82

002772,002139: 00,2725           37631        /AGREE             CAF      HALF                                  #  FORCE SIGN AGREEMENT IN DIVIDEND
002773,002140: 00,2726           60000                           DOUBLE                                         #  (ALREADY DONE FOR DIVISOR).
002774,002141: 00,2727           60141                           AD       MPAC       +1                         
002775,002142: 00,2730           54141                           TS       MPAC       +1                         
002776,002143: 00,2731           37653                           CAF      ZERO                                  
002777,002144: 00,2732           67626                           AD       POSMAX                                
002778,002145: 00,2733           26140                           ADS      MPAC                                  
002779,002146: 
002780,002147: 00,2734           40140                           CS       MPAC                                  #  CHECK TO SEE IF OVERFLOW GONE OR IF
002781,002148: 00,2735           60117                           AD       BUF2                                  #  NEAR-ONE CASE IS PRESENT.
002782,002149: 00,2736           10000                           CCS      A                                     
002783,002150: 00,2737           12722                           TCF      DDVCALL                               #  NOT NEAR-ONE.
002784,002151: 00,2740           32506        SLOPELO            DEC      .8324                                 
002785,002152: 00,2741           12355                           TCF      DVOVF                                 #  NO HOPE.
002786,002153: 
002787,002154: 00,2742           54124                           TS       MAXDVSW                               #  SIGNAL POSSIBLE NEAR-ONE CASE.
002788,002155: 00,2743           40141                           CS       MPAC       +1                         #  SEE IF DIVISION CAN BE DONE.
002789,002156: 00,2744           60120                           AD       BUF2       +1                         
002790,002157: 00,2745           00006                           EXTEND                                         
002791,002158: 00,2746           62355                           BZMF     DVOVF                                 
002792,002159: 00,2747           12722                           TCF      DDVCALL                               #  GOING TO MAXDV.
002793,002160: 

Page 83

002795,002162:                                                                                                  #           THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
002796,002163: 
002797,002164: 00,2750           07475        UNIT               TC       MPACVBUF                              #  SAVE THE ARGUMENT IN VBUF.
002798,002165: 00,2751           03236                           TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
002799,002166: 00,2752           00006                           EXTEND                                         
002800,002167: 00,2753           30141                           DCA      MPAC                                  #  LEAVE THE SQUARE OF THE LENGTH OF THE
002801,002168: 00,2754           50104                           INDEX    FIXLOC                                #  ARGUMENT IN LVSQUARE.
002802,002169: 00,2755           52043                           DXCH     LVSQUARE                              
002803,002170: 
002804,002171: 00,2756           03262                           TC       SQRTSUB                               #  GO TAKE THE NORMALIZED SQUARE ROOT.
002805,002172: 
002806,002173: 00,2757           10140                           CCS      MPAC                                  #  CHECK FOR UNIT OVERFLOW.
002807,002174: 00,2760           12762                           TCF      +2                                    #  MPAC IS NOT LESS THAN .5 UNLESS THE
002808,002175: 00,2761           12355                           TCF      DVOVF                                 #  INPUT TO SQRTSUB WAS 0.
002809,002176: 
002810,002177: 00,2762           43063                           CS       FOURTEEN                              #  SEE IF THE INPUT WAS SO SMALL THE THE
002811,002178: 00,2763           60121                           AD       MPTEMP                                #  FIRST TWO REGISTERS OF THE SQUARE WERE 0
002812,002179: 00,2764           10000                           CCS      A                                     
002813,002180: 00,2765           40000                           COM                                            #  IF SO, SAVE THE NEGATIVE OF THE SHIFT
002814,002181: 00,2766           13044                           TCF      SMALL                                 #  COUNT -15D.
002815,002182: 
002816,002183: 00,2767           12776                           TCF      LARGE                                 #  (THIS IS USUALLY THE CASE.)
002817,002184: 
002818,002185: 00,2770           43062                           CS       THIRTEEN                              #  IF THE SHIFT COUNT WAS EXACTLY 14, SET
002819,002186: 00,2771           54121                           TS       MPTEMP                                #  THE PRE-DIVIDE NORM COUNT TO -13D.
002820,002187: 
002821,002188: 00,2772           30140                           CA       MPAC                                  #  SHIFT THE LENGTH RIGHT 14 BEFORE STORING
002822,002189: 00,2773           54001        SMALL2             TS       L                                     #  (SMALL EXITS TO THIS POINT).
002823,002190: 00,2774           37653                           CAF      ZERO                                  
002824,002191: 00,2775           13023                           TCF      LARGE2                                #  GO TO STORE LENGTH AND PROCEED.
002825,002192: 
002826,002193: 00,2776           10121        LARGE              CCS      MPTEMP                                #  MOST ALL CASES COME HERE.
002827,002194: 00,2777           13005                           TCF      LARGE3                                #  SEE IF NO NORMALIZATION WAS REQUIRED BY
002828,002195: 
002829,002196: 00,3000           42005                           CS       SRDDV                                 #  SQRT, AND IF SO, SET UP FOR A SHIFT
002830,002197: 00,3001           54121                           TS       MPTEMP                                #  RIGHT 1 BEFORE DIVIDING TO PRODUCE
002831,002198: 00,3002           00006                           EXTEND                                         #  THE DESIRED HALF UNIT VECTOR.
002832,002199: 00,3003           30141                           DCA      MPAC                                  
002833,002200: 00,3004           13023                           TCF      LARGE2                                
002834,002201: 

Page 84

002836,002203: 00,3005           40000        LARGE3             COM                                            #  LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
002837,002204: 00,3006           54121                           TS       MPTEMP                                #  PREDIVIDE LEFT SHIFT.
002838,002205: 
002839,002206: 00,3007           40000                           COM                                            #  PICK UP REQUIRED SHIFTING BIT TO UNNORM-
002840,002207: 00,3010           50000                           INDEX    A                                     #  ALIZE THE SQRT RESULT.
002841,002208: 00,3011           37631                           CAF      BIT14                                 
002842,002209: 00,3012           54114                           TS       BUF                                   
002843,002210: 00,3013           00006                           EXTEND                                         
002844,002211: 00,3014           70141                           MP       MPAC       +1                         
002845,002212: 00,3015           56114                           XCH      BUF                                   
002846,002213: 00,3016           00006                           EXTEND                                         #  (UNNORMALIZE THE SQRT FOR LV).
002847,002214: 00,3017           70140                           MP       MPAC                                  
002848,002215: 00,3020           56001                           XCH      L                                     
002849,002216: 00,3021           60114                           AD       BUF                                   
002850,002217: 00,3022           56001                           XCH      L                                     
002851,002218: 
002852,002219: 00,3023           50104        LARGE2             INDEX    FIXLOC                                
002853,002220: 00,3024           52045                           DXCH     LV                                    #  LENGTH NOW STORED IN WORK AREA.
002854,002221: 
002855,002222: 00,3025           47646                           CS       ONE                                   
002856,002223: 00,3026           54124                           TS       MAXDVSW                               #  NO MAXDV CASES IN UNIT.
002857,002224: 
002858,002225: 00,3027           52107                           DXCH     VBUF                                  #  PREPARE X COMPONENT FOR DIVIDE, SETTING
002859,002226: 00,3030           52141                           DXCH     MPAC                                  #  LENGTH OF VECTOR AS DIVISOR IN BUF.
002860,002227: 00,3031           52115                           DXCH     BUF                                   
002861,002228: 00,3032           03064                           TC       UNITDV                                
002862,002229: 
002863,002230: 00,3033           52111                           DXCH     VBUF       +2                         #  DO Y AND Z IN USUAL FASHION SO WE CAN
002864,002231: 00,3034           52141                           DXCH     MPAC                                  #  EXIT THROUGH VROTATEX.
002865,002232: 00,3035           52144                           DXCH     MPAC       +3                         
002866,002233: 00,3036           03064                           TC       UNITDV                                
002867,002234: 
002868,002235: 00,3037           52113                           DXCH     VBUF       +4                         
002869,002236: 00,3040           52141                           DXCH     MPAC                                  
002870,002237: 00,3041           52146                           DXCH     MPAC       +5                         
002871,002238: 00,3042           03064                           TC       UNITDV                                
002872,002239: 00,3043           17364                           TCF      VROTATEX                              #  AND EXIT.
002873,002240: 

Page 85

002875,002242:                                                                                                  #           IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
002876,002243:                                                                                                  #  14 PLACES BEFORE THE DIVIDE. NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
002877,002244: 
002878,002245: 00,3044           54121        SMALL              TS       MPTEMP                                #  NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
002879,002246: 
002880,002247: 00,3045           37653                           CAF      ZERO                                  #  SHIFT EACH COMPONENT LEFT 14.
002881,002248: 00,3046           56107                           XCH      VBUF       +1                         
002882,002249: 00,3047           56106                           XCH      VBUF                                  
002883,002250: 00,3050           56111                           XCH      VBUF       +3                         
002884,002251: 00,3051           56110                           XCH      VBUF       +2                         
002885,002252: 00,3052           56113                           XCH      VBUF       +5                         
002886,002253: 00,3053           56112                           XCH      VBUF       +4                         
002887,002254: 
002888,002255: 00,3054           40121                           CS       MPTEMP                                
002889,002256: 00,3055           50000                           INDEX    A                                     
002890,002257: 00,3056           37631                           CAF      BIT14                                 
002891,002258: 00,3057           00006                           EXTEND                                         
002892,002259: 00,3060           70140                           MP       MPAC                                  
002893,002260: 00,3061           12773                           TCF      SMALL2                                
002894,002261: 
002895,002262: 00,3062           00015        THIRTEEN           DEC      13         B-14                       
002896,002263: 00,3063           00016        FOURTEEN           DEC      14         B-14                       
002897,002264: 

Page 86

002899,002266:                                                                                                  #           THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
002900,002267: 
002901,002268: 00,3064           10140        UNITDV             CCS      MPAC                                  #  FORCE MPAC POSITIVE IF POSSIBLE, SETTING
002902,002269: 00,3065           13103                           TCF      UMPAC+                                #  DVSIGN ACCORDING TO THE SIGN OF MPAC
002903,002270: 00,3066           13070                           TCF      +2                                    #  SINCE THE DIVISOR IS ALWAYS POSITIVE
002904,002271: 00,3067           13075                           TCF      UMPAC-                                #  HERE.
002905,002272: 
002906,002273: 00,3070           10141                           CCS      MPAC       +1                         
002907,002274: 00,3071           13103                           TCF      UMPAC+                                
002908,002275: 00,3072           00002                           TC       Q                                     #  EXIT IMMEDIATELY ON ZERO.
002909,002276: 00,3073           13075                           TCF      UMPAC-                                
002910,002277: 00,3074           00002                           TC       Q                                     
002911,002278: 
002912,002279: 00,3075           47653        UMPAC-             CS       ZERO                                  #  IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
002913,002280: 00,3076           54122                           TS       DVSIGN                                #  COMPLEMENT.
002914,002281: 00,3077           00006                           EXTEND                                         
002915,002282: 00,3100           40141                           DCS      MPAC                                  #  PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
002916,002283: 00,3101           50121                           INDEX    MPTEMP                                
002917,002284: 00,3102           12507                           TCF      MAXTEST                               
002918,002285: 
002919,002286: 00,3103           54122        UMPAC+             TS       DVSIGN                                #  SET DVSIGN FOR POSITIVE QUOTIENT.
002920,002287: 00,3104           52141                           DXCH     MPAC                                  
002921,002288: 00,3105           50121                           INDEX    MPTEMP                                
002922,002289: 00,3106           12507                           TCF      MAXTEST                               
002923,002290: 

Page 87

002925,002292:                                                                                                  #           MISCELLANEOUS UNARY OPERATIONS.
002926,002293: 
002927,002294: 00,3107           03217        DSQ                TC       DSQSUB                                #  SQUARE THE DP CONTENTS OF MPAC.
002928,002295: 00,3110           16014                           TCF      DANZIG                                
002929,002296: 
002930,002297: 00,3111           07115        ROUND              TC       ROUNDSUB                              #  ROUNDS MPAC TO DOUBLE PRECISION.
002931,002298: 00,3112           37653                           CAF      ZERO                                  #  FORCE DP MODE.
002932,002299: 00,3113           16013                           TCF      NEWMODE                               
002933,002300: 
002934,002301: 00,3114           10147        ABVALABS           CCS      MODE                                  #  ABVAL OR ABS INSTRUCTION.
002935,002302: 00,3115           13144                           TCF      ABS                                   #  DO ABS ON SCALAR.
002936,002303: 00,3116           13144                           TCF      ABS                                   
002937,002304: 
002938,002305: 00,3117           03236        ABVAL              TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
002939,002306: 00,3120           22147                           LXCH     MODE                                  #  MODE IS NOW DP (L ZERO AFTER DAS).
002940,002307: 
002941,002308: 00,3121           00006                           EXTEND                                         #  STORE SQUARE OF LENGTH IN WORK AREA.
002942,002309: 00,3122           30141                           DCA      MPAC                                  
002943,002310: 00,3123           50104                           INDEX    FIXLOC                                
002944,002311: 00,3124           52043                           DXCH     LVSQUARE                              
002945,002312: 
002946,002313: 00,3125           03262        SQRT               TC       SQRTSUB                               #  TAKE THE SQUARE ROOT OF MPAC.
002947,002314: 00,3126           10121                           CCS      MPTEMP                                #  RETURNED NORMALIZED SQUARE ROOT. SEE IF
002948,002315: 00,3127           13131                           TCF      +2                                    #  ANY UN-NORMALIZATION REQUIRED AND EXIT
002949,002316: 00,3130           16014                           TCF      DANZIG                                #  IF NOT.
002950,002317: 
002951,002318: 00,3131           62273                           AD       NEG12                                 #  A RIGHT SHIFT OF MORE THAN 13 COULD BE
002952,002319: 00,3132           00006                           EXTEND                                         #  REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
002953,002320: 00,3133           63137                           BZMF     SQRTSHFT                              #  GOES HERE IN MOST CASES.
002954,002321: 00,3134           22007                           ZL                                             #  IF A LONG SHIFT IS REQUIRED, GO TO
002955,002322: 00,3135           22102                           LXCH     ADDRWD                                #  GENERAL RIGHT SHIFT ROUTINES.
002956,002323: 00,3136           12263                           TCF      GENSCR     +4                         #  ADDRWD WAS ZERO TO PREVENT ROUND.
002957,002324: 
002958,002325: 00,3137           50121        SQRTSHFT           INDEX    MPTEMP                                #  SELECT SHIFTING BIT AND EXIT THROUGH
002959,002326: 00,3140           37630                           CAF      BIT15                                 #  SHIFT ROUTINES.
002960,002327: 00,3141           54121                           TS       MPTEMP                                
002961,002328: 00,3142           37653                           CAF      ZERO                                  #  TO ZERO MPAC +2 IN THE PROCESS.
002962,002329: 00,3143           12017                           TCF      MPACSHR    +3                         
002963,002330: 
002964,002331: 00,3144           06710        ABS                TC       BRANCH                                #  TEST SIGN OF MPAC AND COMPLEMENT IF
002965,002332: 00,3145           16014                           TCF      DANZIG                                
002966,002333: 00,3146           16014                           TCF      DANZIG                                
002967,002334: 00,3147           17605                           TCF      COMP                                  
002968,002335: 

Page 88

002970,002337: 00,3150           47644        VDEF               CS       FOUR                                  #  VECTOR DEFINE - ESSENTIALLY TREATS
002971,002338: 00,3151           26152                           ADS      PUSHLOC                               #  SCALAR IN MPAC AS X COMPONENT, PUSHES UP
002972,002339: 00,3152           00006                           EXTEND                                         #  FOR Y AND THEN AGAIN FOR Z.
002973,002340: 00,3153           50000                           INDEX    A                                     
002974,002341: 00,3154           30003                           DCA      2                                     
002975,002342: 00,3155           52144                           DXCH     MPAC       +3                         
002976,002343: 00,3156           00006                           EXTEND                                         
002977,002344: 00,3157           50152                           INDEX    PUSHLOC                               
002978,002345: 00,3160           30001                           DCA      0                                     
002979,002346: 00,3161           52146                           DXCH     MPAC       +5                         
002980,002347: 00,3162           47646                           CS       ONE                                   #  MODE IS NOW VECTOR.
002981,002348: 00,3163           16013                           TCF      NEWMODE                               
002982,002349: 
002983,002350: 00,3164           03236        VSQ                TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
002984,002351: 00,3165           37653                           CAF      ZERO                                  
002985,002352: 00,3166           16013                           TCF      NEWMODE                               #  MODE IS NOW DP.
002986,002353: 
002987,002354: 00,3167           00006        PUSH               EXTEND                                         #  PUSH DOWN MPAC LEAVING IT LOADED.
002988,002355: 00,3170           30141                           DCA      MPAC                                  
002989,002356: 00,3171           50152                           INDEX    PUSHLOC                               #  PUSH DOWN FIRST TWO REGISTERS IN EACH
002990,002357: 00,3172           52001                           DXCH     0                                     
002991,002358: 
002992,002359: 00,3173           50147                           INDEX    MODE                                  #  INCREMENT PUSHDOWN POINTER.
002993,002360: 00,3174           36164                           CAF      NO.WDS                                
002994,002361: 00,3175           26152                           ADS      PUSHLOC                               
002995,002362: 
002996,002363: 00,3176           10147                           CCS      MODE                                  
002997,002364: 00,3177           13212                           TCF      TPUSH                                 #  PUSH DOWN MPAC +2.
002998,002365: 00,3200           16014                           TCF      DANZIG                                #  DONE FOR DP.
002999,002366: 
003000,002367: 00,3201           00006                           EXTEND                                         #  ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
003001,002368: 00,3202           30144                           DCA      MPAC       +3                         
003002,002369: 00,3203           50152                           INDEX    PUSHLOC                               
003003,002370: 00,3204           51775                           DXCH     0          -4                         
003004,002371: 00,3205           00006                           EXTEND                                         
003005,002372: 00,3206           30146                           DCA      MPAC       +5                         
003006,002373: 00,3207           50152                           INDEX    PUSHLOC                               
003007,002374: 00,3210           51777                           DXCH     0          -2                         
003008,002375: 00,3211           16014                           TCF      DANZIG                                
003009,002376: 
003010,002377: 00,3212           30142        TPUSH              CA       MPAC       +2                         
003011,002378: 00,3213           16557                           TCF      ENDTPUSH   +2                         
003012,002379: 
003013,002380: 00,3214           50104        RVQ                INDEX    FIXLOC                                #  RVQ - RETURN IVA QPRET.
003014,002381: 00,3215           30052                           CA       QPRET                                 
003015,002382: 00,3216           16651                           TCF      GOTO       +1                         
003016,002383: 

Page 89

003018,002385:                                                                                                  #           THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE. THEY ARE
003019,002386:                                                                                                  #  SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
003020,002387: 
003021,002388: 00,3217           30141        DSQSUB             CA       MPAC       +1                         #  SQUARES THE SCALAR CONTENTS OF MPAC.
003022,002389: 00,3220           00006                           EXTEND                                         
003023,002390: 00,3221           70000                           SQUARE                                         
003024,002391: 00,3222           54142                           TS       MPAC       +2                         
003025,002392: 00,3223           37653                           CAF      ZERO                                  #  FORM 2(CROSS TERM).
003026,002393: 00,3224           56141                           XCH      MPAC       +1                         
003027,002394: 00,3225           00006                           EXTEND                                         
003028,002395: 00,3226           70140                           MP       MPAC                                  
003029,002396: 00,3227           20001                           DDOUBL                                         #  AND MAYBE OVERFLOW.
003030,002397: 00,3230           20142                           DAS      MPAC       +1                         #  AND SET A TO NET OVERFLOW.
003031,002398: 00,3231           56140                           XCH      MPAC                                  
003032,002399: 00,3232           00006                           EXTEND                                         
003033,002400: 00,3233           70000                           SQUARE                                         
003034,002401: 00,3234           20141                           DAS      MPAC                                  
003035,002402: 00,3235           00002                           TC       Q                                     
003036,002403: 
003037,002404: 00,3236           00006        VSQSUB             EXTEND                                         #  DOTS THE VECTOR IN MPAC WITH ITSELF.
003038,002405: 00,3237           22123                           QXCH     DOTRET                                
003039,002406: 00,3240           03217                           TC       DSQSUB                                #  SQUARE THE X COMPONENT.
003040,002407: 00,3241           52144                           DXCH     MPAC       +3                         
003041,002408: 00,3242           52141                           DXCH     MPAC                                  
003042,002409: 00,3243           52115                           DXCH     BUF                                   #  SO WE CAN END IN DOTSUB.
003043,002410: 00,3244           30142                           CA       MPAC       +2                         
003044,002411: 00,3245           54116                           TS       BUF        +2                         
003045,002412: 
003046,002413: 00,3246           03217                           TC       DSQSUB                                #  SQUARE Y COMPONENT.
003047,002414: 00,3247           52142                           DXCH     MPAC       +1                         
003048,002415: 00,3250           20116                           DAS      BUF        +1                         
003049,002416: 00,3251           60140                           AD       MPAC                                  
003050,002417: 00,3252           60114                           AD       BUF                                   
003051,002418: 00,3253           54114                           TS       BUF                                   
003052,002419: 00,3254           13256                           TCF      +2                                    
003053,002420: 00,3255           54105                           TS       OVFIND                                #  IF OVERFLOW.
003054,002421: 
003055,002422: 00,3256           52146                           DXCH     MPAC       +5                         
003056,002423: 00,3257           52141                           DXCH     MPAC                                  
003057,002424: 00,3260           03217                           TC       DSQSUB                                #  SQUARE Z COMPONENT.
003058,002425: 00,3261           17163                           TCF      ENDDOT                                #  END AS IN DOTSUB.
003059,002426: 

Page 90

003061,002428:                                                                                                  #           DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
003062,002429:                                                                                                  #  IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
003063,002430:                                                                                                  #  .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
003064,002431: 
003065,002432: 
003066,002433: 
003067,002434: 00,3262           37653        SQRTSUB            CAF      ZERO                                  #  START BY ZEROING RIGHT SHIFT COUNT.
003068,002435: 00,3263           54121                           TS       MPTEMP                                
003069,002436: 
003070,002437: 00,3264           10140                           CCS      MPAC                                  #  CHECK FOR POSITIVE ARGUMENT, SHIFTING
003071,002438: 00,3265           13322                           TCF      SMPAC+                                #  FIRST SIGNIFICANT MPAC REGISTER INTO
003072,002439: 00,3266           13270                           TCF      +2                                    #  MPAC ITSELF.
003073,002440: 00,3267           13312                           TCF      SQRTNEG                               #  SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
003074,002441: 
003075,002442: 00,3270           56142                           XCH      MPAC       +2                         #  MPAC IS ZERO - SHIFT LEFT 14.
003076,002443: 00,3271           56141                           XCH      MPAC       +1                         
003077,002444: 00,3272           54140                           TS       MPAC                                  
003078,002445: 00,3273           37652                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
003079,002446: 00,3274           54121                           TS       MPTEMP                                
003080,002447: 
003081,002448: 00,3275           10140                           CCS      MPAC                                  #  SEE IF MPAC NOW PNZ.
003082,002449: 00,3276           13322                           TCF      SMPAC+                                
003083,002450: 00,3277           13301                           TCF      +2                                    
003084,002451: 00,3300           13315                           TCF      ZEROANS                               #  NEGATIVE BUT LESS THAN 10(-4) IN MAG.
003085,002452: 
003086,002453: 00,3301           56141                           XCH      MPAC       +1                         #  ZERO - SHIFT LEFT 14 AGAIN.
003087,002454: 00,3302           54140                           TS       MPAC                                  
003088,002455: 00,3303           37652                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
003089,002456: 00,3304           26121                           ADS      MPTEMP                                
003090,002457: 
003091,002458: 00,3305           10140                           CCS      MPAC                                  
003092,002459: 00,3306           13322                           TCF      SMPAC+                                
003093,002460: 00,3307           00002                           TC       Q                                     #  SQRT(0) = 0.
003094,002461: 00,3310           13315                           TCF      ZEROANS                               
003095,002462: 00,3311           00002                           TC       Q                                     
003096,002463: 
003097,002464: 
003098,002465: 
003099,002466: 00,3312           10000        SQRTNEG            CCS      A                                     #  ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
003100,002467: 00,3313           13321                           TCF      SQRTABRT                              #  CORRECTED ARGUMENT IS LESS THAN 10(-4)
003101,002468: 
003102,002469: 00,3314           10141                           CCS      MPAC       +1                         #  IN MAGNITUDE. IF SO, CALL ANSWER ZERO.
003103,002470: 00,3315           37653        ZEROANS            CAF      ZERO                                  #  FORCE ANSWER TO ZERO HERE.
003104,002471: 00,3316           13365                           TCF      FIXROOT                               
003105,002472: 00,3317           13321                           TCF      SQRTABRT                              
003106,002473: 00,3320           13365                           TCF      FIXROOT                               
003107,002474: 
003108,002475: 00,3321           03321        SQRTABRT           TC       -0                                    
003109,002476: 

Page 91

003111,002478: 00,3322           62410        SMPAC+             AD       -1/2+2                                #  SEE IF ARGUMENT GREATER THAN OR EQUAL TO
003112,002479: 00,3323           00006                           EXTEND                                         #  .5.
003113,002480: 00,3324           63370                           BZMF     SRTEST                                #  IF SO, SEE IF LESS THAN .25.
003114,002481: 
003115,002482: 00,3325           52141                           DXCH     MPAC                                  #  WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
003116,002483: 00,3326           22021                           LXCH     SR                                    #  SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
003117,002484: 00,3327           00006                           EXTEND                                         
003118,002485: 00,3330           77631                           MP       HALF                                  
003119,002486: 00,3331           52141                           DXCH     MPAC                                  
003120,002487: 00,3332           56021                           XCH      SR                                    
003121,002488: 00,3333           26141                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
003122,002489: 
003123,002490: 00,3334           32274        ARGHI              CAF      SLOPEHI                               #  ARGUMENT BETWEEN .25 AND .5. GET A
003124,002491: 00,3335           00006                           EXTEND                                         #  LINEAR APPROXIMATION FOR THIS RANGE.
003125,002492: 00,3336           70140                           MP       MPAC                                  
003126,002493: 00,3337           62510                           AD       BIASHI                                #  X0/2 = (MPAC/2)(SLOPEHI) + BIASHI/2.
003127,002494: 
003128,002495: 00,3340           54114                 +4        TS       BUF                                   #  X0/2 (ARGLO ENTERS HERE).
003129,002496: 00,3341           00006                           EXTEND                                         
003130,002497: 00,3342           10114                           DV       BUF                                   #  (MPAC/2)/(X0/2)
003131,002498: 00,3343           00006                           EXTEND                                         
003132,002499: 00,3344           77631                           MP       HALF                                  
003133,002500: 00,3345           26114                           ADS      BUF                                   #  X1 = X0/2 + .5(MPAC/2)/(X0/2).
003134,002501: 
003135,002502: 00,3346           00006                           EXTEND                                         
003136,002503: 00,3347           77631                           MP       HALF                                  #  FORM UP X1/2.
003137,002504: 00,3350           52141                           DXCH     MPAC                                  #  SAVE AND BRING OUT ARGUMENT.
003138,002505: 00,3351           00006                           EXTEND                                         #  TAKE DP QUOTIENT WITH X1.
003139,002506: 00,3352           10114                           DV       BUF                                   
003140,002507: 00,3353           54115                           TS       BUF        +1                         #  SAVE MAJOR PART OF QUOTIENT.
003141,002508: 00,3354           37653                           CAF      ZERO                                  #  FORM MINOR PART OF QUOTIENT USING
003142,002509: 00,3355           56001                           XCH      L                                     #  (REMAINDER,0).
003143,002510: 00,3356           00006                           EXTEND                                         
003144,002511: 00,3357           10114                           DV       BUF                                   
003145,002512: 00,3360           54001                           TS       L                                     #  IN PREPARATION FOR DAS.
003146,002513: 00,3361           30115                           CA       BUF        +1                         
003147,002514: 00,3362           20141                           DAS      MPAC                                  #  X2 = X1/2 + (MPAC/2)X1
003148,002515: 
003149,002516: 00,3363           10000                           CCS      A                                     #  OVERFLOWS IF ARGUMENT WAS NEAR POSMAX.
003150,002517: 00,3364           37626                           CAF      POSMAX                                
003151,002518: 00,3365           54140        FIXROOT            TS       MPAC                                  
003152,002519: 00,3366           54141                           TS       MPAC       +1                         
003153,002520: 00,3367           00002                           TC       Q                                     #  RETURN TO CALLER TO UNNORMALIZE, ETC.
003154,002521: 

Page 92

003156,002523: 00,3370           67632        SRTEST             AD       QUARTER                               #  ARGUMENT WAS LESS THAN .5, SEE IF LESS
003157,002524: 00,3371           00006                           EXTEND                                         #  THAN .25.
003158,002525: 00,3372           63414                           BZMF     SQRTNORM                              #  IF SO, BEGIN NORMALIZATION.
003159,002526: 
003160,002527: 00,3373           52141                           DXCH     MPAC                                  #  IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
003161,002528: 00,3374           22021                           LXCH     SR                                    #  START AT ARGLO.
003162,002529: 00,3375           00006                           EXTEND                                         
003163,002530: 00,3376           77631                           MP       HALF                                  
003164,002531: 00,3377           52141                           DXCH     MPAC                                  
003165,002532: 00,3400           56021                           XCH      SR                                    
003166,002533: 00,3401           26141                           ADS      MPAC       +1                         #  NO OVERFLOW.
003167,002534: 
003168,002535: 00,3402           32740        ARGLO              CAF      SLOPELO                               #  (NORMALIZED) ARGUMENT BETWEEN .125 AND
003169,002536: 00,3403           00006                           EXTEND                                         #  .25
003170,002537: 00,3404           70140                           MP       MPAC                                  
003171,002538: 00,3405           62250                           AD       BIASLO                                
003172,002539: 00,3406           13340                           TCF      ARGHI      +4                         #  BEGIN SQUARE ROOT.
003173,002540: 
003174,002541: 00,3407           00006        SQRTNM2            EXTEND                                         #  SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
003175,002542: 00,3410           30142                           DCA      MPAC       +1                         #  COUNT (FOR TERMINAL UNNORMALIZATION).
003176,002543: 00,3411           20142                           DAS      MPAC       +1                         
003177,002544: 00,3412           60140                           AD       MPAC                                  
003178,002545: 00,3413           26140                           ADS      MPAC                                  #  (NO OVERFLOW).
003179,002546: 
003180,002547: 00,3414           24121        SQRTNORM           INCR     MPTEMP                                #  FIRST TIME THROUGH, JUST SHIFT LEFT 1
003181,002548: 00,3415           00006                           EXTEND                                         #  (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
003182,002549: 00,3416           30142                           DCA      MPAC       +1                         #  WE WANT MPAC/2).
003183,002550: 00,3417           20142                           DAS      MPAC       +1                         
003184,002551: 00,3420           60140                           AD       MPAC                                  
003185,002552: 00,3421           26140                           ADS      MPAC                                  #  (AGAIN NO OVERFLOW).
003186,002553: 00,3422           60000                           DOUBLE                                         
003187,002554: 00,3423           54022                           TS       CYL                                   
003188,002555: 
003189,002556: 00,3424           10022        NORMTEST           CCS      CYL                                   #  SEE IF ARGUMENT NOW NORMALIZED AT
003190,002557: 00,3425           10022                           CCS      CYL                                   #  GREATER THAN .125.
003191,002558: 00,3426           13407                           TCF      SQRTNM2                               #  NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
003192,002559: 00,3427           13334                           TCF      ARGHI                                 #  YES - NOW BETWEEN .5 AND .25.
003193,002560: 00,3430           13402                           TCF      ARGLO                                 #  ARGUMENT NOW BETWEEN .25 AND .125.
003194,002561: 

Page 93

003196,002563:                                                                                                  #  TRIGONOMETRIC FUNCTION PACKAGE.
003197,002564: 
003198,002565:                                                                                                  #           THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
003199,002566: 
003200,002567:                                                                                                  #           1.  SIN                COMPUTES (1/2)SINE(2 PI MPAC).
003201,002568:                                                                                                  #           2.  COS                COMPUTES (1/2)COSINE(2 PI MPAC).
003202,002569: 
003203,002570:                                                                                                  #           3.  ASIN               COMPUTES (1/2PI)ARCSINE(2 MPAC).
003204,002571:                                                                                                  #           4.  ACOS               COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
003205,002572: 
003206,002573:                                                                                                  #  SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X)) = X.
003207,002574: 
003208,002575: 
003209,002576: 
003210,002577: 00,3431           06710        COSINE             TC       BRANCH                                #  FINDS COSINE USING THE IDENTITY
003211,002578: 00,3432           13435                           TCF      +3                                    #  COS(X) = SIN(PI/2 - ABS(X)).
003212,002579: 00,3433           13440                           TCF      PRESINE                               
003213,002580: 00,3434           13440                           TCF      PRESINE                               
003214,002581: 
003215,002582: 00,3435           00006                 +3        EXTEND                                         
003216,002583: 00,3436           40141                           DCS      MPAC                                  
003217,002584: 00,3437           52141                           DXCH     MPAC                                  
003218,002585: 
003219,002586: 00,3440           37632        PRESINE            CAF      QUARTER                               #  PI/2 SCALED.
003220,002587: 00,3441           26140                           ADS      MPAC                                  
003221,002588: 
003222,002589: 
003223,002590: 
003224,002591: 00,3442           52141        SINE               DXCH     MPAC                                  #  DOUBLE ARGUMENT.
003225,002592: 00,3443           20001                           DDOUBL                                         
003226,002593: 00,3444           54000                           OVSK                                           #  SEE IF OVERFLOW PRESENT.
003227,002594: 00,3445           13450                           TCF      +3                                    #  IF NOT, ARGUMENT OK AS IS.
003228,002595: 
003229,002596: 00,3446           00006                           EXTEND                                         #  IF SO, WE LOST (OR GAINED) PI, SO
003230,002597: 00,3447           40001                           DCOM                                           #  COMPLEMENT MPAC USING THE IDENTITY
003231,002598:                                                                                                  #  SIN(X-(+)PI) = SIN(-X).
003232,002599: 00,3450           52141                 +3        DXCH     MPAC                                  
003233,002600: 00,3451           30140                           CA       MPAC                                  #  SEE IF ARGUMENT GREATER THAN .5 IN
003234,002601: 00,3452           60000                           DOUBLE                                         #  MAGNITUDE. IF SO, REDUCE IT TO LESS THAN
003235,002602: 00,3453           54001                           TS       L                                     #  .5 (+-PI/2 SCALED) AS FOLLOWS:
003236,002603: 00,3454           13465                           TCF      SN1                                   
003237,002604: 
003238,002605: 00,3455           50000                           INDEX    A                                     #  IF POSITIVE, FORM PI - X, IF NEGATIVE
003239,002606: 00,3456           37630                           CAF      NEG1/2     +1                         #  USE -PI - X.
003240,002607: 00,3457           60000                           DOUBLE                                         
003241,002608: 00,3460           00006                           EXTEND                                         
003242,002609: 00,3461           60140                           SU       MPAC                                  #  GUARANTEED NO OVERFLOW.
003243,002610: 00,3462           54140                           TS       MPAC                                  
003244,002611: 00,3463           40141                           CS       MPAC       +1                         
003245,002612: 00,3464           54141                           TS       MPAC       +1                         
003246,002613: 

Page 94

003248,002615: 00,3465           00006        SN1                EXTEND                                         #  SET UP TO EVALUATE HASTINGS POLYNOMIAL
003249,002616: 00,3466           30141                           DCA      MPAC                                  
003250,002617: 00,3467           52120                           DXCH     BUF2                                  
003251,002618: 00,3470           03217                           TC       DSQSUB                                #  SQUARE MPAC.
003252,002619: 
003253,002620: 00,3471           07173                           TC       POLY                                  #  EVALUATE FOURTH ORDER POLYNOMIAL.
003254,002621: 00,3472           00003                           DEC      3          B-14                       
003255,002622: 00,3473           14441 37325                     2DEC     +.3926990796                            
003256,002623: 
003257,002624: 00,3475           53250 60764                     2DEC     -.6459637111                            
003258,002625: 
003259,002626: 00,3477           12146 21276                     2DEC     +.318758717                            
003260,002627: 
003261,002628: 00,3501           75466 71471                     2DEC     -.074780249                            
003262,002629: 
003263,002630: 00,3503           00236 32757                     2DEC     +.009694988                            
003264,002631: 
003265,002632: 00,3505           32434                           CAF      LBUF2                                 #  MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
003266,002633: 00,3506           07065                           TC       DMPSUB     -1                         
003267,002634: 
003268,002635: 00,3507           00006                           EXTEND                                         
003269,002636: 00,3510           30142                           DCA      MPAC       +1                         
003270,002637: 00,3511           20142                           DAS      MPAC       +1                         
003271,002638: 00,3512           60140                           AD       MPAC                                  
003272,002639: 00,3513           26140                           ADS      MPAC                                  #  NEITHER SHIFT OVERFLOWS.
003273,002640: 00,3514           00006                           EXTEND                                         
003274,002641: 00,3515           30142                           DCA      MPAC       +1                         
003275,002642: 00,3516           20142                           DAS      MPAC       +1                         
003276,002643: 00,3517           60140                           AD       MPAC                                  
003277,002644: 00,3520           26140                           ADS      MPAC                                  
003278,002645: 00,3521           16014                           TCF      DANZIG                                
003279,002646: 

Page 95

003281,002648:                                                                                                  #           ARCSIN/ARCCOS ROUTINE.
003282,002649: 
003283,002650: 00,3522           33543        ARCSIN             CAF      LASINEX                               #  COMPUTE ARCSIN BY USING THE IDENTITY
003284,002651: 00,3523           13525                           TCF      +2                                    #  ARCSIN(X) = PI/2 - ARCCOS(X).
003285,002652: 
003286,002653: 00,3524           33625        ARCCOS             CAF      LDANZIG                               #  (EXITS IMMEDIATELY).
003287,002654: 00,3525           54122                           TS       ESCAPE                                
003288,002655: 00,3526           06710                           TC       BRANCH                                #  TEST SIGN OF INPUT.
003289,002656: 00,3527           13537                           TCF      ACOSST                                #  START IMMEDIATELY IF POSITIVE.
003290,002657: 00,3530           13640                           TCF      ACOSZERO                              #  ARCCOS(0) = PI/2 = .25.
003291,002658: 00,3531           00006                           EXTEND                                         #  IF NEGATIVE, USE THE IDENTITY
003292,002659: 00,3532           40141                           DCS      MPAC                                  #  ARCCOS(X) = PI - ARCCOS(-X), FORCING
003293,002660: 00,3533           52141                           DXCH     MPAC                                  #  ARGUMENT POSITIVE.
003294,002661: 00,3534           32247                           CAF      TCSUBTR                               #  SET EXIT  TO DO ABOVE BEFORE
003295,002662: 00,3535           56122                           XCH      ESCAPE                                #  ARCSIN/ARCCOS CONSIDERATIONS.
003296,002663: 00,3536           54123                           TS       ESCAPE2                               
003297,002664: 
003298,002665: 00,3537           47631        ACOSST             CS       HALF                                  #  TEST MAGNITUDE OF INPUT.
003299,002666: 00,3540           60140                           AD       MPAC                                  
003300,002667: 00,3541           10000                           CCS      A                                     
003301,002668: 00,3542           13633                           TCF      ACOSOVF                               #  THIS IS PROBABLY AN OVERFLOW CASE.
003302,002669: 
003303,002670: 00,3543           13621        LASINEX            TCF      ASINEX                                
003304,002671: 
003305,002672: 00,3544           13554                           TCF      ACOSST2                               #  NO OVERFLOW - PROCEED.
003306,002673: 
003307,002674: 00,3545           10141                           CCS      MPAC       +1                         #  IF MAJOR PART IS .5, CALL ANSWER 0
003308,002675: 00,3546           37653                           CAF      ZERO                                  #  UNLESS MINOR PART NEGATIVE.
003309,002676: 00,3547           13551                           TCF      ACOS=0                                
003310,002677: 
003311,002678: 00,3550           13554                           TCF      ACOSST2                               
003312,002679: 
003313,002680: 00,3551           54141        ACOS=0             TS       MPAC       +1                         
003314,002681: 00,3552           54140                           TS       MPAC                                  
003315,002682: 00,3553           00122                           TC       ESCAPE                                
003316,002683: 
003317,002684: 00,3554           00006        ACOSST2            EXTEND                                         #  NOW THAT ARGUMENT IS IN PROPER RANGE,
003318,002685: 00,3555           40141                           DCS      MPAC                                  #  BEGIN COMPUTATION. USE HASTINGS
003319,002686: 00,3556           67631                           AD       HALF                                  #  APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
003320,002687: 00,3557           52141                           DXCH     MPAC                                  #  IN A SCALED VERSION WHERE P(X) IS A
003321,002688: 00,3560           52120                           DXCH     BUF2                                  #  SEVENTH ORDER POLYNOMIAL.
003322,002689: 
003323,002690: 00,3561           03262                           TC       SQRTSUB                               #  RETURNS WITH NORMALIZED SQUARE ROOT.
003324,002691: 
003325,002692: 00,3562           10121                           CCS      MPTEMP                                #  SEE IF UN-NORMALIZATION REQUIRED.
003326,002693: 00,3563           13626                           TCF      ACOSSHR                               #  IF SO.
003327,002694: 

Page 96

003329,002696: 00,3564           52141        ACOS3              DXCH     MPAC                                  #  SET UP FOR POLYNOMIAL EVALUATION.
003330,002697: 00,3565           52120                           DXCH     BUF2                                  
003331,002698: 00,3566           52141                           DXCH     MPAC                                  
003332,002699: 
003333,002700: 00,3567           07173                           TC       POLY                                  
003334,002701: 00,3570           00006                           DEC      6          B-14                       
003335,002702: 00,3571           13240 23630                     2DEC     +.353553385                            #  COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
003336,002703: 
003337,002704: 00,3573           74721 47775                     2DEC*    -.0483017006 B+1*                       #                    I
003338,002705: 
003339,002706: 00,3575           02440 20237                     2DEC*    +.0200273085 B+2*                       #       WHERE C STANDS FOR ORIGINAL COEFFS.
003340,002707: 
003341,002708: 00,3577           75067 70742                     2DEC*    -.0112931863 B+3*                       
003342,002709: 
003343,002710: 00,3601           03436 26756                     2DEC*    +.00695311612 B+4*                       
003344,002711: 
003345,002712: 00,3603           74037 57640                     2DEC*    -.00384617957 B+5*                       
003346,002713: 
003347,002714: 00,3605           03046 07143                     2DEC*    +.001501297736 B+6*                       
003348,002715: 
003349,002716: 00,3607           76654 42244                     2DEC*    -.000284160334 B+7*                       
003350,002717: 
003351,002718: 00,3611           32434                           CAF      LBUF2                                 #  DO FINAL MULTIPLY AND GO TO ANY
003352,002719: 00,3612           07065                           TC       DMPSUB     -1                         #  EPILOGUE SEQUENCES.
003353,002720: 00,3613           00122                           TC       ESCAPE                                
003354,002721: 
003355,002722: 00,3614           00006        SUBTR              EXTEND                                         #  EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
003356,002723: 00,3615           40141                           DCS      MPAC                                  
003357,002724: 00,3616           67631                           AD       HALF                                  #  FORMS PI - ARCCOS(-X) = ARCCOS(X).
003358,002725: 00,3617           52141                           DXCH     MPAC                                  
003359,002726: 00,3620           00123                           TC       ESCAPE2                               #  GO TO POSSIBLE ARCSIN EPILOGUE.
003360,002727: 
003361,002728: 00,3621           00006        ASINEX             EXTEND                                         
003362,002729: 00,3622           40141                           DCS      MPAC                                  #  ARCSIN EPILOGUE - GET ARCSIN(X)
003363,002730: 00,3623           67632                           AD       QUARTER                               #  = PI/2 - ARCCOS(X).
003364,002731: 00,3624           52141                           DXCH     MPAC                                  
003365,002732: 00,3625           16014        LDANZIG            TCF      DANZIG                                
003366,002733: 

Page 97

003368,002735: 00,3626           50000        ACOSSHR            INDEX    A                                     #  THE SHIFT RIGHT IS LESS THAN 14 SINCE
003369,002736: 00,3627           37631                           CAF      BIT14                                 #  THE INPUT WAS NON-ZERO DP.
003370,002737: 00,3630           54121                           TS       MPTEMP                                
003371,002738: 00,3631           02054                           TC       VSHRRND                               #  DP SHIFT RIGHT AND ROUND.
003372,002739: 00,3632           13564                           TCF      ACOS3                                 #  PROCEED.
003373,002740: 
003374,002741: 00,3633           10000        ACOSOVF            CCS      A                                     #  IF MAJOR PART WAS ONLY 1 MORE THAN .5,
003375,002742: 00,3634           13636                           TCF      +2                                    #  CALL ANSWER 0.
003376,002743: 00,3635           13551                           TCF      ACOS=0                                
003377,002744: 00,3636           13551                           TCF      ACOS=0                                
003378,002745: 
003379,002746: 00,3637           03637        ACOSABRT           TC       -0                                    
003380,002747: 
003381,002748: 00,3640           37632        ACOSZERO           CAF      QUARTER                               #  ACOS(0) = PI/2.
003382,002749: 00,3641           13552                           TCF      ACOS=0     +1                         #  SET MPAC AND EXIT VIA ESCAPE.
003383,002750: 

Page 98

003385,002752:                                                                                                  #           THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
003386,002753: 
003387,002754:                                                                                                  #           1.  AXT                ADDRESS TO INDEX TRUE.
003388,002755:                                                                                                  #           1.  AXC                ADDRESS TO INDEX COMPLEMENTED.
003389,002756:                                                                                                  #           3.  LXA                LOAD INDEX FROM ERASABLE.
003390,002757:                                                                                                  #           4.  LXC                LOAD INDEX COMPLEMENTED FROM ERASABLE.
003391,002758:                                                                                                  #           5.  SXA                STORE INDEX IN ERASABLE.
003392,002759:                                                                                                  #           6.  XCHX               EXCHANGE INDEX REIGSTER WITH ERASABLE.
003393,002760: 
003394,002761:                                                                                                  #           7.  INCR               INCREMENT INDEX REGISTER.
003395,002762:                                                                                                  #           8.  XAD                ERASABLE ADD TO INDEX REGISTER.
003396,002763:                                                                                                  #           9.  XSU                ERASABLE SUBTRACT FROM INDEX REGISTER.
003397,002764: 
003398,002765:                                                                                                  #          10.  TIX                BRANCH ON INDEX REGISTER AND DECREMENT.
003399,002766: 
003400,002767: 
003401,002768: 
003402,002769: 01,2000                                           SETLOC   12000                                 #  SUFFIX CLASS 01 IS IN BANK 1.
003403,002770: 
003404,002771: 01,2000           02061        AXT                TC       TAGSUB                                #  SELECT APPROPRIATE INDEX REGISTER.
003405,002772: 01,2001           30103                           CA       POLISH                                
003406,002773: 01,2002           50114        XSTORE             INDEX    INDEXLOC                              #  CONTAINS C(FIXLOC) OR C(FIXLOC)+1.
003407,002774: 01,2003           54046                           TS       X1                                    
003408,002775: 01,2004           16014                           TCF      DANZIG                                
003409,002776: 
003410,002777: 01,2005           02061        AXC                TC       TAGSUB                                
003411,002778: 01,2006           40103                           CS       POLISH                                
003412,002779: 01,2007           02002                           TC       XSTORE                                
003413,002780: 
003414,002781: 01,2010           02061        LXA                TC       TAGSUB                                #  LOAD INDEX FROM ERASABLE.
003415,002782: 01,2011           50102                           INDEX    ADDRWD                                
003416,002783: 01,2012           30000                           CA       0                                     
003417,002784: 01,2013           12002                           TCF      XSTORE                                
003418,002785: 
003419,002786: 01,2014           02061        LXC                TC       TAGSUB                                #  LOAD INDEX FROM ERASABLE COMPLEMENTED.
003420,002787: 01,2015           50102                           INDEX    ADDRWD                                
003421,002788: 01,2016           40000                           CS       0                                     
003422,002789: 01,2017           12002                           TCF      XSTORE                                
003423,002790: 
003424,002791: 01,2020           02061        SXA                TC       TAGSUB                                #  STORE INDEX IN ERASABLE.
003425,002792: 01,2021           50114                           INDEX    INDEXLOC                              
003426,002793: 01,2022           30046                           CA       X1                                    
003427,002794: 01,2023           16626                           TCF      STORE1                                #  (STORE SINGLE PRECISION BEFORE EXIT).
003428,002795: 
003429,002796: 01,2024           02061        XCHX               TC       TAGSUB                                #  EXCHANGE INDEX REGISTER WITH ERASABLE.
003430,002797: 01,2025           50102                           INDEX    ADDRWD                                
003431,002798: 01,2026           30000                           CA       0                                     
003432,002799: 01,2027           50114                           INDEX    INDEXLOC                              
003433,002800: 01,2030           56046                           XCH      X1                                    
003434,002801: 01,2031           16626                           TCF      STORE1                                
003435,002802: 

Page 99

003437,002804: 01,2032           02061        XAD                TC       TAGSUB                                #  ERASABLE ADD TO INDEX.
003438,002805: 01,2033           50102                           INDEX    ADDRWD                                
003439,002806: 01,2034           30000                           CA       0                                     
003440,002807: 01,2035           50114        XAD2               INDEX    INDEXLOC                              
003441,002808: 01,2036           26046                           ADS      X1                                    #  IGNORING OVERFLOWS.
003442,002809: 01,2037           16014                           TCF      DANZIG                                
003443,002810: 
003444,002811: 01,2040           02061        INCR               TC       TAGSUB                                #  INCREMENT INDEX REGISTER.
003445,002812: 01,2041           30103                           CA       POLISH                                
003446,002813: 01,2042           12035                           TCF      XAD2                                  
003447,002814: 
003448,002815: 01,2043           02061        XSU                TC       TAGSUB                                #  ERASABLE SUBTRACT FROM INDEX.
003449,002816: 01,2044           50102                           INDEX    ADDRWD                                
003450,002817: 01,2045           40000                           CS       0                                     
003451,002818: 01,2046           12035                           TCF      XAD2                                  
003452,002819: 
003453,002820: 
003454,002821: 
003455,002822: 01,2047           02061        TIX                TC       TAGSUB                                #  BRANCH AND DECREMENT ON INDEX.
003456,002823: 01,2050           50114                           INDEX    INDEXLOC                              
003457,002824: 01,2051           40046                           CS       X1                                    
003458,002825: 01,2052           50114                           INDEX    INDEXLOC                              
003459,002826: 01,2053           60046                           AD       X1                                    
003460,002827: 01,2054           00006                           EXTEND                                         #  NO OPERATION IF DECREMENTED INDEX IS
003461,002828: 01,2055           66014                           BZMF     DANZIG                                #  NEGATIVE OR ZERO.
003462,002829: 
003463,002830: 01,2056           50114        DOTIXBR            INDEX    INDEXLOC                              
003464,002831: 01,2057           56046                           XCH      X1                                    #  IGNORING OVERFLOWS.
003465,002832: 
003466,002833: 01,2060           16650                           TCF      GOTO                                  #  DO THE BRANCH USING THE CADR IN POLISH.
003467,002834: 
003468,002835: 
003469,002836: 
003470,002837:                                                                                                  #           SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC. (ACTUALLY, THE ADDRESS -38D.)
003471,002838: 
003472,002839: 01,2061           30104        TAGSUB             CA       FIXLOC                                
003473,002840: 01,2062           54114                           TS       INDEXLOC                              
003474,002841: 
003475,002842: 01,2063           10020                           CCS      CYR                                   #  BIT 15 SPECIFIES INDEX.
003476,002843: 01,2064           24114                           INCR     INDEXLOC                              #  0 MEANS USE X2.
003477,002844: 01,2065           00002                           TC       Q                                     
003478,002845: 01,2066           00002                           TC       Q                                     #  1 FOR X1.
003479,002846: 

Page 100

003481,002848:                                                                                                  #           MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES. INCLUDED HERE ARE:
003482,002849: 
003483,002850:                                                                                                  #           1.  ITA                STORE QPRET (RETURN ADDRESS) IN ERASABLE.
003484,002851:                                                                                                  #           2.  CALL               CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
003485,002852:                                                                                                  #           3.  RTB                RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
003486,002853:                                                                                                  #           4.  BHIZ               BRANCH IF THE HIGH ORDER OF MPAC IS ZERO (SINGLE PRECISION).
003487,002854:                                                                                                  #           5.  BOV                BRANCH ON OVERFLOW.
003488,002855:                                                                                                  #           6.  GOTO               SIMPLE SEQUENCE CHANGE.
003489,002856: 
003490,002857: 01,2067           10020        RTB/BHIZ           CCS      CYR                                   
003491,002858: 01,2070           30103        RTB                CA       POLISH                                
003492,002859: 01,2071           14105                           TCF      BANKJUMP                              #  CALL BASIC ROUTINE.
003493,002860: 
003494,002861: 01,2072           10140        BHIZ               CCS      MPAC                                  
003495,002862: 01,2073           16014                           TCF      DANZIG                                
003496,002863: 01,2074           16650                           TCF      GOTO                                  
003497,002864: 01,2075           16014                           TCF      DANZIG                                
003498,002865: 01,2076           16650                           TCF      GOTO                                  
003499,002866: 
003500,002867: 01,2077           10105        BOV(B)             CCS      OVFIND                                #  BRANCH ON OVERFLOW TO BASIC OR INTERP.
003501,002868: 01,2100           12102                           TCF      +2                                    
003502,002869: 01,2101           16014                           TCF      DANZIG                                
003503,002870: 01,2102           54105                           TS       OVFIND                                
003504,002871: 01,2103           10020                           CCS      CYR                                   
003505,002872: 01,2104           12070                           TCF      RTB                                   #  IF BASIC.
003506,002873: 01,2105           00360        B5TOBB             OCT      360                                   
003507,002874: 01,2106           16650                           TCF      GOTO                                  
003508,002875: 

Page 101

003510,002877: 01,2107           10020        BZE/GOTO           CCS      CYR                                   #  SEE WHICH OP-CODE IS DESIRED.
003511,002878: 01,2110           06710                           TC       BRANCH                                #  DO BZE.
003512,002879: 01,2111           16014                           TCF      DANZIG                                
003513,002880: 01,2112           16650                           TCF      GOTO                                  #  DO GOTO.
003514,002881: 01,2113           16014                           TCF      DANZIG                                
003515,002882: 
003516,002883: 01,2114           10020        BPL/BMN            CCS      CYR                                   
003517,002884: 01,2115           12123                           TCF      BPL                                   
003518,002885: 01,2116           12000        5B10               DEC      5          B+10                       #  SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
003519,002886: 
003520,002887: 01,2117           06710                           TC       BRANCH                                #  DO BMN.
003521,002888: 01,2120           16014                           TCF      DANZIG                                
003522,002889: 01,2121           16014                           TCF      DANZIG                                
003523,002890: 01,2122           16650                           TCF      GOTO                                  #  ONLY IF NNZ.
003524,002891: 
003525,002892: 01,2123           06710        BPL                TC       BRANCH                                
003526,002893: 01,2124           16650                           TCF      GOTO                                  #  IF POSITIVE OR ZERO.
003527,002894: 01,2125           16650                           TCF      GOTO                                  
003528,002895: 01,2126           16014                           TCF      DANZIG                                
003529,002896: 
003530,002897: 01,2127           10020        CALL/ITA           CCS      CYR                                   
003531,002898: 01,2130           16643                           TCF      CALL                                  
003532,002899: 
003533,002900: 01,2131           00017        LOW4               OCT      17                                    #  MASK USED BY SWITCH INSTRUCTIONS.
003534,002901: 
003535,002902: 01,2132           50104                           INDEX    FIXLOC                                #  STORE QPRET.
003536,002903: 01,2133           30052                           CA       QPRET                                 
003537,002904: 01,2134           16626                           TCF      STORE1                                
003538,002905: 

Page 102

003540,002907:                                                                                                  #           THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
003541,002908: 
003542,002909:                                                                                                  #  00       BONSET                 SET A SWITCH AND DO A GOTO IF IT WAS ON.
003543,002910:                                                                                                  #  01       SETGO                  SET A SWITCH AND DO A GOTO.
003544,002911:                                                                                                  #  02       BOFSET                 SET A SWITCH AND DO A GOTO IF IT WAS OFF
003545,002912:                                                                                                  #  03       SET                    SET A SWITCH.
003546,002913: 
003547,002914:                                                                                                  #  04       BONINV                 INVERT A SWITCH AND BRANCH IF IT WAS ON.
003548,002915:                                                                                                  #  05       INVGO                  INVERT A SWITCH AND DO A GOTO.
003549,002916:                                                                                                  #  06       BOFINV                 INVERT A SWITCH AND BRANCH IF IT WAS OFF
003550,002917:                                                                                                  #  07       INVERT                 INVERT A SWITCH.
003551,002918: 
003552,002919:                                                                                                  #  10       BONCLR                 CLEAR A SWITCH AND BRANCH IF IT WAS ON.
003553,002920:                                                                                                  #  11       CLRGO                  CLEAR A SWITCH AND DO A GOTO.
003554,002921:                                                                                                  #  12       BOFCLR                 CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
003555,002922:                                                                                                  #  13       CLEAR                  CLEAR A SWITCH.
003556,002923: 
003557,002924:                                                                                                  #  14       BON                    BRANCH IF A SWITCH WAS ON.
003558,002925:                                                                                                  #  16       BOFF                   BRANCH IF A SWITCH WAS OFF.
003559,002926: 
003560,002927: 
003561,002928: 
003562,002929:                                                                                                  #           THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
003563,002930: 
003564,002931:                                                                                                  #           BITS 1-4    SWITCH BIT NUMBER (1-15).
003565,002932:                                                                                                  #           BITS 5-8    SWITCH OPERATION NUMBER.
003566,002933:                                                                                                  #           BITS 9-     SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
003567,002934: 
003568,002935:                                                                                                  #           THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER. THE BRANCH INSTRUCTIONS REQUIRE TWO
003569,002936:                                                                                                  #  ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
003570,002937: 
003571,002938: 
003572,002939: 
003573,002940: 01,2135           32131        SWITCHES           CAF      LOW4                                  #  LEAVE THE SWITCH BIT IN SWBIT  .
003574,002941: 01,2136           70103                           MASK     POLISH                                
003575,002942: 01,2137           50000                           INDEX    A                                     
003576,002943: 01,2140           37630                           CAF      BIT15                                 #  (NUMBER FROM LEFT TO RIGHT.)
003577,002944: 01,2141           54115                           TS       SWBIT                                 
003578,002945: 
003579,002946: 01,2142           37637                           CAF      BIT8                                  #  LEAVE THE SWITCH WORD NUMBER IN  SWWORD
003580,002947: 01,2143           00006                           EXTEND                                         
003581,002948: 01,2144           70103                           MP       POLISH                                
003582,002949: 01,2145           54114                           TS       SWWORD                                
003583,002950: 
003584,002951: 01,2146           00004                           INHINT                                         #  DURING SWITCH CHANGE SO RUPT CAN USE TOO
003585,002952: 01,2147           50000                           INDEX    A                                     #  LEAVE THE SWITCH WORD ITSELF IN L.
003586,002953: 01,2150           30620                           CA       STATE                                 
003587,002954: 01,2151           54002                           TS       Q                                     #  Q WILL BE USED AS A CHANNEL.
003588,002955: 

Page 103

003590,002957: 01,2152           37634                           CAF      BIT11                                 
003591,002958: 01,2153           00006                           EXTEND                                         #  DISPATCH SWITCH BIT OPERATION AS IN BITS
003592,002959: 01,2154           70103                           MP       POLISH                                #  7-8 OF POLISH.
003593,002960: 01,2155           72215                           MASK     B3TOB4                                #  GETS 4X2-BIT CODE.
003594,002961: 01,2156           50000                           INDEX    A                                     
003595,002962: 01,2157           12160                           TCF      +1                                    
003596,002963: 
003597,002964: 01,2160           30115                 +1        CA       SWBIT                                 #  00 - SET SWITCH IN QUESTION.
003598,002965: 01,2161           00006                           EXTEND                                         
003599,002966: 01,2162           04002                           ROR      Q                                     
003600,002967: 01,2163           12172                           TCF      SWSTORE                               
003601,002968: 
003602,002969: 01,2164           30115                 +5        CA       SWBIT                                 #  01 - INVERT SWITCH.
003603,002970: 01,2165           00006                           EXTEND                                         
003604,002971: 01,2166           06002                           RXOR     Q                                     
003605,002972: 01,2167           12172                           TCF      SWSTORE                               
003606,002973: 
003607,002974: 01,2170           40115                 +9D       CS       SWBIT                                 #  10 - CLEAR.
003608,002975: 01,2171           70002                           MASK     Q                                     
003609,002976: 01,2172           50114        SWSTORE            INDEX    SWWORD                                
003610,002977: 01,2173           54620                           TS       STATE                                 #  NEW SWITCH WORD.
003611,002978: 

Page 104

003613,002980: 01,2174           00003                 +13D      RELINT                                         #  11 - NOOP.
003614,002981: 01,2175           37632                           CAF      BIT13                                 
003615,002982: 01,2176           00006                           EXTEND                                         #  DISPATCH SEQUCE CHANGING OR BRANCHING
003616,002983: 01,2177           70103                           MP       POLISH                                #  CODE.
003617,002984: 01,2200           72215                           MASK     B3TOB4                                
003618,002985: 01,2201           50000                           INDEX    A                                     
003619,002986: 01,2202           12203                           TCF      +1                                    #  ORIGINALLY STORED IN BITS 5-6.
003620,002987: 
003621,002988: 01,2203           40002                 +1        CS       Q                                     #  00 - BRANCH IF ON.
003622,002989: 01,2204           70115        TEST               MASK     SWBIT                                 
003623,002990: 01,2205           10000                           CCS      A                                     
003624,002991: 01,2206           12216                           TCF      SWSKIP                                
003625,002992: 
003626,002993: 01,2207           16702                 +5        TCF      SWBRANCH                              #  01 - GO TO.
003627,002994: 
003628,002995: 01,2210           12216                           TCF      SWSKIP                                #  HERE ONLY ON BIT 15.
003629,002996: 
003630,002997: 01,2213                                           SETLOC   +2                                    
003631,002998: 
003632,002999: 01,2213           30002                 +9D       CA       Q                                     #  10 - BRANCH IF OFF.
003633,003000: 01,2214           12204                           TCF      TEST                                  
003634,003001: 
003635,003002: 01,2215           00014        B3TOB4             OCT      14                                    
003636,003003: 
003637,003004: 01,2216           24150        SWSKIP             INCR     LOC                                   
003638,003005: 
003639,003006: 01,2217  01,2135               SW/                EQUALS   SWITCHES                              
003640,003007: 
003641,003008: 01,2217           16014                 +13D      TCF      DANZIG                                #  11 - NOOP.
003642,003009: 
003643,003010: 01,2220                        ENDINTS1           EQUALS                                         

End of include-file LIST-PROCESSING_INTERPRETER.agc.  Parent file is MAIN.agc