Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Mike Higgins. A team of volunteers performed the transcription and proof-reading. Note that the scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's section on archive.org. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100
	JUL 9, 1965
Note that the date is the date of the printout, not the date of the program revision.

000668,000002:                                                                                                  ## Copyright:   Public domain.
000669,000003:                                                                                                  ## Filename:    LIST-PROCESSING_INTERPRETER.agc
000670,000004:                                                                                                  ## Purpose:     Part of the source code for Retread 44 (revision 0). It was
000671,000005:                                                                                                  ##              the very first program for the Block II AGC, created as an
000672,000006:                                                                                                  ##              extensive rewrite of the Block I program Sunrise.
000673,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
000674,000008:                                                                                                  ##              that the code format has been changed to conform to the
000675,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
000676,000010:                                                                                                  ##              original YUL assembler.
000677,000011:                                                                                                  ## Reference:   pp. 17-104
000678,000012:                                                                                                  ## Assembler:   yaYUL
000679,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
000680,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
000681,000015:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Aurora 12 version.
000682,000016:                                                                                                  ##              2016-12-17 MAS  Transcribed.
000683,000017:                                                                                                  ##              2016-12-18 MAS  Typos.
000684,000018:                                                                                                  ##              2016-12-27 RSB  Proofed comment text using octopus/ProoferComments,
000685,000019:                                                                                                  ##                              and fixed errors found.
000686,000020:                                                                                                  ##              2017-02-05 RSB  Back-ported comment corrections 
000687,000021:                                                                                                  ##                              identified while proofing Artemis 072.
000688,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
000689,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
000690,000024: 

Page 17

000692,000026:                                                                                                  #  SECTION 1  DISPATCHER
000693,000027: 
000694,000028:                                                                                                  #           ENTRY TO THE INTERPRETER. INTPRET SETS LOC TO THE FIRST  INSTRUCTION, BANKSET TO THE FBANK OF THE
000695,000029:                                                                                                  #  OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK. INTERPRETIVE PROGRAMS MAY BE IN
000696,000030:                                                                                                  #  VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
000697,000031:                                                                                                  #  (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA. THE INTERPRETER DOES NOT SWITCH SUPER-BANK,
000698,000032:                                                                                                  #  NOR DOES IT SWITCH EBANKS. MOST EBANK SWITCHING IS DONE BY THE EXECUTIVE PROGRAM.
000699,000033: 
000700,000034:    6000                                           SETLOC   6000                                  
000701,000035: 
000702,000036:    6000           00006        INTPRET            EXTEND                                         #  SET LOC TO THE WORD FOLLOWING THE TC.
000703,000037:    6001           22150                           QXCH     LOC                                   
000704,000038: 
000705,000039:    6002           30004                 +2        CA       FBANK                                 #  INTERPRETIVE BRANCHES FINISH HERE.
000706,000040:    6003           54151                           TS       BANKSET                               
000707,000041:    6004           77630                           MASK     BIT15                                 #  GET 15TH BIT FOR INDEXABLE ADDRESSES.
000708,000042:    6005           54101                           TS       INTBIT15                              
000709,000043:    6006           66425                           AD       LOW10                                 #  THIS VERSION IS USED IN PROCESSING
000710,000044:    6007           54100                           TS       INTB15+                               #  INDEXABLE FIXED-BANK ADDRESSES.
000711,000045: 
000712,000046:    6010           16023                           TCF      NEWOPS                                #  PICK UP OP CODE PAIR AND BEGIN.
000713,000047: 
000714,000048: 
000715,000049: 
000716,000050:    6011           22006        INTRSM             LXCH     BBANK                                 #  RESUME SUSPENDED INTERPRETIVE JOB
000717,000051:    6012           16017                           TCF      DANZIG     +3                         #  (ACTUALLY PART OF THE EXECUTIVE).
000718,000052: 

Page 18

000720,000054:                                                                                                  #           AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
000721,000055:    6013           54147        NEWMODE            TS       MODE                                  #  PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
000722,000056: 
000723,000057:    6014           30151        DANZIG             CA       BANKSET                               #  SET FBANK BEFORE TESTING NEWJOB SO THAT
000724,000058:    6015           54004                           TS       FBANK                                 #  BBANK MAY BE SAVED DIRECTLY BY CHANJOB.
000725,000059: 
000726,000060:    6016           10023                           CCS      EDOP                                  #  SEE IF AN ORDER CODE IS LEFT OVER FROM
000727,000061:    6017           16032                           TCF      OPJUMP                                #  THE LAST PAIR RETRIEVED. IF SO, EXECUTE.
000728,000062:                                                                                                  #  EDOP IS SET TO ZERO ON ITS RE-EDITING.
000729,000063: 
000730,000064:    6020           10067                           CCS      NEWJOB                                #  SEE IF A JOB OF HIGHER PRIORITY IS
000731,000065:    6021           14160                           TCF      CHANG2                                #  PRESENT, AND IF SO, CHANGE JOBS.
000732,000066: 
000733,000067:    6022           24150                           INCR     LOC                                   #  ADVANCE THE LOCATION COUNTER.
000734,000068:    6023           50150        NEWOPS             INDEX    LOC                                   #  ENTRY TO BEGIN BY PICKING OP CODE PAIR.
000735,000069:    6024           30000                           CA       0                                     #  MAY BE AN OPCODE PAIR OR A STORE CODE.
000736,000070:    6025           10000                           CCS      A                                     #  TEST SIGN AND GET DABS(A).
000737,000071:    6026           16341                           TCF      DOSTORE                               #  PROCESS STORE CODE.
000738,000072: 
000739,000073:    6027           00177        LOW7               OCT      177                                   
000740,000074: 
000741,000075:    6030           54023                           TS       EDOP                                  #  OP CODE PAIR. LEAVE THE OTHER IN EDOP
000742,000076:    6031           76027                           MASK     LOW7                                  #  WHERE  CCS EDOP  WILL HONOR IT NEXT.
000743,000077: 
000744,000078:    6032           54020        OPJUMP             TS       CYR                                   #  LOWWD ENTERS HERE IF A RIGHT-HAND OP
000745,000079:    6033           10020                           CCS      CYR                                   #  CODE IS TO BE PROCESSED. TEST PREFICES.
000746,000080:    6034           16167                           TCF      OPJUMP2                               #  TEST SECOND PREFIX BIT.
000747,000081: 
000748,000082:    6035           16730                           TCF      EXIT                                  #  +0 OP CODE IS EXIT.
000749,000083: 

Page 19

000751,000085:                                                                                                  #           PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
000752,000086: 
000753,000087:    6036           77646        ADDRESS            MASK     BIT1                                  #  SEE IF ADDRESS IS INDEXED. CYR CONTAINED
000754,000088:    6037           10000                           CCS      A                                     #  400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
000755,000089:    6040           16073                           TCF      INDEX                                 #  FORM INDEXED ADDRESS.
000756,000090: 
000757,000091:    6041           50150        DIRADRES           INDEX    LOC                                   #  LOOK AHEAD TO NEXT WORD TO SEE IF
000758,000092:    6042           40001        OCT40001           CS       1                                     #  ADDRESS IS GIVEN.
000759,000093:    6043           10000                           CCS      A                                     
000760,000094:    6044           16135                           TCF      PUSHUP                                #  IF NOT.
000761,000095: 
000762,000096:    6045           77773        NEG4               DEC      -4         B-14                       
000763,000097: 
000764,000098:    6046           24150                           INCR     LOC                                   #  IF SO, TO SHOW WE PICKED UP A WORD.
000765,000099:    6047           54102                           TS       ADDRWD                                
000766,000100: 

Page 20

000768,000102:                                                                                                  #           FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE. IN EACH CASE, THE
000769,000103:                                                                                                  #  REQUIRED 12 BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED BANK SWITCHING DONE (F ONLY). ADDRESSES LESS
000770,000104:                                                                                                  #  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.
000771,000105: 
000772,000106: 
000773,000107: 
000774,000108:    6050           66171                           AD       -ENDVAC                               #  SEE IF ADDRESS RELATIVE TO WORK AREA.
000775,000109:    6051           10000                           CCS      A                                     
000776,000110:    6052           66234                           AD       -ENDERAS                              #  IF NOT, SEE IF IN GENERAL ERASABLE.
000777,000111:    6053           16060                           TCF      IERASTST                              
000778,000112: 
000779,000113:    6054           30104        NETZERO            CA       FIXLOC                                #  IF SO, LEAVE THE MODIFIED ADDRESS IN
000780,000114:    6055           26102                           ADS      ADDRWD                                #  ADDRWD AND DISPATCH.
000781,000115:    6056           50020                 +2        INDEX    CYR                                   #  THIS INDEX MAKES THE NEXT INSTRUCTION
000782,000116:    6057           76234                           7        INDJUMP    -1                         #  TCF INDJUMP + OP, EDITING CYR.
000783,000117: 
000784,000118:    6060           00006        IERASTST           EXTEND                                         
000785,000119:    6061           66056                           BZMF     NETZERO    +2                         #  GENERAL ERASABLE - DISPATCH IMMEDIATELY.
000786,000120: 
000787,000121:    6062           60100        FIXEDADR           AD       INTB15+                               #  FIXED BANK ADDRESS. RESTORE AND ADD B15.
000788,000122:    6063           54004                 +1        TS       FBANK                                 #  SWITCH BANKS AND LEAVE SUB-ADDRESS IN
000789,000123:    6064           76425                           MASK     LOW10                                 #  ADDRWD FOR OPERAND RETRIEVAL.
000790,000124:    6065           67634                           AD       2K                                    
000791,000125:    6066           54102                           TS       ADDRWD                                
000792,000126:    6067           50020                           INDEX    CYR                                   
000793,000127:    6070           76234                           7        INDJUMP    -1                         
000794,000128: 

Page 21

000796,000130:                                                                                                  #           THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES. AN INTERPRETER INDEX REGISTER MAY
000797,000131:                                                                                                  #  CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
000798,000132:                                                                                                  #  BANK, OR ANY INTEGER IN THAT RANGE.
000799,000133: 
000800,000134:    6071           37661        DODLOAD*           CAF      DLOAD*                                #  STODL* COMES HERE TO PROCESS LOAD ADR.
000801,000135:    6072           54020                           TS       CYR                                   #  (STOVL* ENTERS HERE).
000802,000136: 
000803,000137:    6073           30104        INDEX              CA       FIXLOC                                #  SET UP INDEX LOCATION.
000804,000138:    6074           54114                           TS       INDEXLOC                              
000805,000139:    6075           24150                           INCR     LOC                                   #  (ADDRESS ALWAYS GIVEN).
000806,000140:    6076           50150                           INDEX    LOC                                   
000807,000141:    6077           40000                           CS       0                                     
000808,000142:    6100           10000                           CCS      A                                     #  INDEX 2 IF ADDRESS STORED COMPLEMENTED.
000809,000143:    6101           24114                           INCR     INDEXLOC                              
000810,000144:    6102           16103                           NOOP                                           
000811,000145: 
000812,000146:    6103           54102                           TS       ADDRWD                                #  14 BIT ADDRESS TO ADDRWD.
000813,000147:    6104           76232                           MASK     BANKMASK                              #  IF ADDRESS GREATER THAN 1K, ADD INTBIT15
000814,000148:    6105           00006                           EXTEND                                         
000815,000149:    6106           16111                           BZF      INDEX2                                
000816,000150:    6107           30101                           CA       INTBIT15                              
000817,000151:    6110           26102                           ADS      ADDRWD                                
000818,000152: 
000819,000153:    6111           50114        INDEX2             INDEX    INDEXLOC                              
000820,000154:    6112           40046                           CS       X1                                    
000821,000155:    6113           26102                           ADS      ADDRWD                                #  DO AUGMENT, IGNORING AND CORRECTING OVF.
000822,000156: 
000823,000157:    6114           76231                           MASK     HIGH9                                 #  SEE IF ADDRESS IS IN WORK AREA.
000824,000158:    6115           00006                           EXTEND                                         
000825,000159:    6116           16131                           BZF      INDWORK                               
000826,000160:    6117           76232                           MASK     BANKMASK                              #  SEE IF IN FIXED BANK.
000827,000161:    6120           00006                           EXTEND                                         
000828,000162:    6121           16133                           BZF      INDERASE                              
000829,000163: 
000830,000164:    6122           30102                           CA       ADDRWD                                #  IN FIXED - SWITCH BANKS AND CREATE
000831,000165:    6123           54004                           TS       FBANK                                 #  SUB-ADDRESS.
000832,000166:    6124           76425                           MASK     LOW10                                 
000833,000167:    6125           67634                           AD       2K                                    
000834,000168:    6126           54102                           TS       ADDRWD                                
000835,000169:    6127           50020                           INDEX    CYR                                   
000836,000170:    6130           36234                           3        INDJUMP    -1                         
000837,000171: 
000838,000172:    6131           30104        INDWORK            CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO WORK AREA.
000839,000173:    6132           26102                           ADS      ADDRWD                                
000840,000174: 
000841,000175:    6133           50020        INDERASE           INDEX    CYR                                   
000842,000176:    6134           36234                           3        INDJUMP    -1                         
000843,000177: 

Page 22

000845,000179:                                                                                                  #           PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
000846,000180:                                                                                                  #  LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
000847,000181:                                                                                                  #  IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
000848,000182:                                                                                                  #  BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
000849,000183: 
000850,000184:                                                                                                  #           1.  VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
000851,000185:                                                                                                  #  RESULT, VXSC WANTS A SCALAR.
000852,000186: 
000853,000187:                                                                                                  #           2.  THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION. THIS
000854,000188:                                                                                                  #  INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
000855,000189: 
000856,000190:                                                                                                  #           3.  SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
000857,000191:                                                                                                  #  THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
000858,000192: 
000859,000193:    6135           36227        PUSHUP             CAF      OCT23                                 #  IF THE LOW 5 BITS OF CYR ARE LESS THAN
000860,000194:    6136           70020                           MASK     CYR                                   #  20, THIS OP REQUIRES SPECIAL ATTENTION.
000861,000195:    6137           66142                           AD       -OCT10                                #  (NO -0).
000862,000196:    6140           10000                           CCS      A                                     
000863,000197:    6141           16153                           TCF      REGUP                                 #  FOR ALL CODES GREATER THAN OCT 7.
000864,000198: 
000865,000199:    6142           77767        -OCT10             OCT      -10                                   
000866,000200: 
000867,000201:    6143           66045                           AD       NEG4                                  #  WE NOW HAVE 7 - OP CODE(MOD4). SEE IF
000868,000202:    6144           10000                           CCS      A                                     #  THE OP CODE (MOD4) IS THREE (REVERSE).
000869,000203:    6145           50000                           INDEX    A                                     #  NO - THE MODE IS DEFINITE. PICK UP THE
000870,000204:    6146           46164                           CS       NO.WDS                                
000871,000205:    6147           16155                           TCF      REGUP      +2                         
000872,000206: 
000873,000207:    6150           50147                           INDEX    MODE                                  #  FOR VXSC AND V/SC WE WANT THE REQUIRED
000874,000208:    6151           46162                           CS       REVCNT                                #  PUSHLOC DECREMENT WITHOUT CHANGING THE
000875,000209:    6152           16155                           TCF      REGUP      +2                         #  MODE AT THIS TIME.
000876,000210: 
000877,000211:    6153           50147        REGUP              INDEX    MODE                                  #  MOST ALL OP CODES PUSHUP HERE.
000878,000212:    6154           46164                           CS       NO.WDS                                
000879,000213:    6155           26152                 +2        ADS      PUSHLOC                               
000880,000214:    6156           54102                           TS       ADDRWD                                
000881,000215:    6157           50020                           INDEX    CYR                                   
000882,000216:    6160           76234                           7        INDJUMP    -1                         #  (THE INDEX MAKES THIS A TCF.)
000883,000217: 
000884,000218:    6161           00002                           OCT      2                                     #  REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
000885,000219:    6162           00006        REVCNT             OCT      6                                     #  WORDS, SCALAR TAKES 6.
000886,000220:    6163           00006                           OCT      6                                     
000887,000221:    6164           00002        NO.WDS             OCT      2                                     #  CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
000888,000222:    6165           00003                           OCT      3                                     #  2 IN DP, AND 3 IN TP.
000889,000223:    6166           00006                           OCT      6                                     
000890,000224: 

Page 23

000892,000226:                                                                                                  #           TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
000893,000227: 
000894,000228:    6167           10020        OPJUMP2            CCS      CYR                                   #  TEST SECOND PREFIX BIT.
000895,000229:    6170           16217                           TCF      OPJUMP3                               #  TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
000896,000230: 
000897,000231:    6171           77722        -ENDVAC            DEC      -45        B-14                       
000898,000232: 
000899,000233:                                                                                                  #           THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
000900,000234:                                                                                                  #  IN THE RANGE 0 - 52, ERASABLE ADRES CONSTANTS FROM 100 - 1777, AND FCADRS ABOVE THAT. ALL 15 BITS ARE AVAILABLE
000901,000235:                                                                                                  #  IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
000902,000236: 
000903,000237:    6172           24150        15BITADR           INCR     LOC                                   #  (ENTRY HERE FROM STCALL).
000904,000238:    6173           50150                           INDEX    LOC                                   #  PICK UP ADDRESS WORD.
000905,000239:    6174           30000                           CA       0                                     
000906,000240:    6175           54103                           TS       POLISH                                #  THE ABSOLUTE ADDRESS WILL BE LEFT IN
000907,000241:    6176           54102                           TS       ADDRWD                                #  POLISH WITH AN ERASABLE SUBADDRESS IN
000908,000242:                                                                                                  #  ADDRWD.
000909,000243:    6177           76231                           MASK     HIGH9                                 #  SEE IF RELATIVE TO THE WORK AREA.
000910,000244:    6200           10000                           CCS      A                                     
000911,000245:    6201           16203                           TCF      +2                                    
000912,000246:    6202           16210                           TCF      RELWORK                               #  ONLY IF ZERO.
000913,000247: 
000914,000248:    6203           36230                           CAF      LOW7+2K                               #  THESE INSTRUCTIONS ARE IN BANK 1.
000915,000249:    6204           54004                           TS       FBANK                                 
000916,000250:    6205           70020                           MASK     CYR                                   
000917,000251:    6206           50000                           INDEX    A                                     
000918,000252:    6207           16275                           TCF      MISCJUMP                              
000919,000253: 
000920,000254:    6210           30104        RELWORK            CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO FIXLOC, LEAVING
000921,000255:    6211           26102                           ADS      ADDRWD                                #  POLISH ABSOLUTE IN CASE THIS WAS AN
000922,000256:    6212           36230                           CAF      LOW7+2K                               #  AXT, ETC.
000923,000257:    6213           54004                           TS       FBANK                                 
000924,000258:    6214           70020                           MASK     CYR                                   
000925,000259:    6215           50000                           INDEX    A                                     
000926,000260:    6216           16275                           TCF      MISCJUMP                              
000927,000261: 

Page 24

000929,000263:                                                                                                  #           COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
000930,000264: 
000931,000265:    6217           54004        OPJUMP3            TS       FBANK                                 #  CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
000932,000266:    6220           10020                           CCS      CYR                                   #  TEST THIRD PREFIX BIT.
000933,000267:    6221           50000                           INDEX    A                                     #  THE DECREMENTED UNARY CODE IS IN BITS
000934,000268:    6222           16315                           TCF      UNAJUMP                               #  1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
000935,000269: 
000936,000270:    6223           10147                           CCS      MODE                                  #  ITS A SHORT SHIFT CODE. SEE IF PRESENT
000937,000271:    6224           12000                           TCF      SHORTT                                #  SCALAR OR VECTOR.
000938,000272:    6225           12000                           TCF      SHORTT                                
000939,000273:    6226           12102                           TCF      SHORTV                                #  CALLS THE APPROPRIATE ROUTINE.
000940,000274: 
000941,000275: 
000942,000276: 
000943,000277:    6227           00023        OCT23              OCT      23                                    #  MASK USED BY PUSH-UP ROUTINE.
000944,000278:    6230           02177        LOW7+2K            OCT      2177                                  #  OP CODE MASK + BANK 1 FBANK SETTING.
000945,000279:    6231           77700        HIGH9              OCT      77700                                 
000946,000280:    6232           76000        BANKMASK           OCT      76000                                 #  FBANK MASK.
000947,000281:    6233     6232               FBANKMSK           EQUALS   BANKMASK                              
000948,000282:    6233           36000        B11T14             OCT      36000                                 #  USED IN PROCESSING STORE CODES.
000949,000283:    6234           76056        -ENDERAS           DEC      -977       B-14                       
000950,000284: 

Page 25

000952,000286:                                                                                                  #           THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
000953,000287: 
000954,000288:    6235           16510        INDJUMP            TCF      VLOAD                                 #  00 - LOAD MPAC WITH A VECTOR.
000955,000289:    6236           17047                           TCF      TAD                                   #  01 - TRIPLE PRECISION ADD TO MPAC.
000956,000290:    6237           17572                           TCF      SIGN                                  #  02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
000957,000291:    6240           17345                           TCF      VXSC                                  #  03 - VECTOR TIMES SCALAR.
000958,000292:    6241           16671                           TCF      CGOTO                                 #  04 - COMPUTED GO TO.
000959,000293:    6242           16473                           TCF      TLOAD                                 #  05 - LOAD MPAC WITH TRIPLE PRECISION.
000960,000294:    6243           16464                           TCF      DLOAD                                 #  06 - LOAD MPAC WITH A DP SCALAR.
000961,000295:    6244           17541                           TCF      V/SC                                  #  07 - VECTOR DIVIDED BY SCALAR.
000962,000296: 
000963,000297:    6245           16504                           TCF      SLOAD                                 #  10 - LOAD MPAC IN SINGLE PRECISION.
000964,000298:    6246           16623                           TCF      SSP                                   #  11 - SET SINGLE PRECISION INTO X.
000965,000299:    6247           16526                           TCF      PDDL                                  #  12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
000966,000300:    6250           17300                           TCF      MXV                                   #  13 - MATRIX POST-MULTIPLIED BY VECTOR.
000967,000301:    6251           16562                           TCF      PDVL                                  #  14 - PUSH DOWN AND VECTOR LOAD.
000968,000302:    6252           16631                           TCF      CCALL                                 #  15 - COMPUTED CALL.
000969,000303:    6253           17303                           TCF      VXM                                   #  16 - MATRIX PRE-MULTIPLIED BY VECTOR.
000970,000304:    6254           17533                           TCF      TSLC                                  #  17 - NORMALIZE MPAC (SCALAR ONLY).
000971,000305: 
000972,000306:    6255           17511                           TCF      DMPR                                  #  20 - DP MULTIPLY AND ROUND.
000973,000307:    6256           17514                           TCF      DDV                                   #  21 - DP DIVIDE BY.
000974,000308:    6257           17520                           TCF      BDDV                                  #  22 - DP DIVIDE INTO.
000975,000309:    6260           17536                           TCF      GSHIFT                                #  23 - GENERAL SHIFT INSTRUCTION.
000976,000310:    6261           16732                           TCF      VAD                                   #  24 - VECTOR ADD.
000977,000311:    6262           16760                           TCF      VSU                                   #  25 - VECTOR SUBTRACT.
000978,000312:    6263           17010                           TCF      BVSU                                  #  26 - VECTOR SUBTRACT FROM.
000979,000313:    6264           17275                           TCF      DOT                                   #  27 - VECTOR DOT PRODUCT.
000980,000314: 
000981,000315:    6265           17423                           TCF      VXV                                   #  30 - VECTOR CROSS PRODUCT.
000982,000316:    6266           17371                           TCF      VPROJ                                 #  31 - VECTOR PROJECTION.
000983,000317:    6267           16776                           TCF      DSU                                   #  32 - DP SUBTRACT.
000984,000318:    6270           17034                           TCF      BDSU                                  #  33 - DP SUBTRACT FROM.
000985,000319:    6271           16750                           TCF      DAD                                   #  34 - DP ADD.
000986,000320:    6272           16272                           TCF      +0                                    #  35 - AVAILABLE
000987,000321:    6273           17507                           TCF      DMP1                                  #  36 - DP MULTIPLY.
000988,000322:    6274           17530                           TCF      SETPD                                 #  37 - SET PUSH DOWN POINTER (DIRECT ONLY)
000989,000323: 
000990,000324:                                                                                                  #  CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
000991,000325: 

Page 26

000993,000327:                                                                                                  #           THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
000994,000328: 
000995,000329:    6275           12000        MISCJUMP           TCF      AXT                                   #  00 - ADDRESS TO INDEX TRUE.
000996,000330:    6276           12005                           TCF      AXC                                   #  01 - ADDRESS TO INDEX COMPLEMENTED.
000997,000331:    6277           12010                           TCF      LXA                                   #  02 - LOAD INDEX FROM ERASABLE.
000998,000332:    6300           12014                           TCF      LXC                                   #  03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
000999,000333:    6301           12020                           TCF      SXA                                   #  04 - STORE INDEX IN ERASABLE.
001000,000334:    6302           12024                           TCF      XCHX                                  #  05 - EXCHANGE INDEX WITH ERASABLE.
001001,000335:    6303           12040                           TCF      INCR                                  #  06 - INCREMENT INDEX REGISTER.
001002,000336:    6304           12047                           TCF      TIX                                   #  07 - TRANSFER ON INDEX.
001003,000337: 
001004,000338:    6305           12032                           TCF      XAD                                   #  10 - INDEX REGISTER ADD FROM ERASABLE.
001005,000339:    6306           12043                           TCF      XSU                                   #  11 - INDEX SUBTRACT FROM ERASABLE.
001006,000340:    6307           12107                           TCF      BZE/GOTO                              #  12 - BRANCH ZERO AND GOTO.
001007,000341:    6310           12114                           TCF      BPL/BMN                               #  13 - BRANCH PLUS AND BRANCH MINUS.
001008,000342:    6311           12127                           TCF      CALL/ITA                              #  14 - CALL AND STORE QPRET.
001009,000343:    6312           12067                           TCF      RTB/BHIZ                              #  15 - RETURN TO BASIC AND BRANCH HI ZERO.
001010,000344:    6313           12135                           TCF      SW/                                   #  16 - SWITCH INSTRUCTIONS AND AVAILABLE.
001011,000345:    6314           12077                           TCF      BOV(B)                                #  17 - BRANCH ON OVERFLOW TO BASIC OR INT.
001012,000346: 

Page 27

001014,000348:                                                                                                  #           THE FOLLOWING JUMP TABLE APPIES TO UNARY INSTRUCTIONS.
001015,000349: 
001016,000350:                                                                                                  #  00 - EXIT - DETECTED EARLIER.
001017,000351:    6315           13125        UNAJUMP            TCF      SQRT                                  #  01 - SQUARE ROOT.
001018,000352:    6316           13442                           TCF      SINE                                  #  02 - SIN.
001019,000353:    6317           13431                           TCF      COSINE                                #  03 - COS.
001020,000354:    6320           13522                           TCF      ARCSIN                                #  04 - ARC SIN.
001021,000355:    6321           13524                           TCF      ARCCOS                                #  05 - ARC COS.
001022,000356:    6322           13107                           TCF      DSQ                                   #  06 - DP SQUARE.
001023,000357:    6323           13111                           TCF      ROUND                                 #  07 - ROUND TO DP.
001024,000358: 
001025,000359:    6324           17605                           TCF      COMP                                  #  10 - COMPLEMENT VECTOR OR SCALAR.
001026,000360:    6325           13150                           TCF      VDEF                                  #  11 - VECTOR DEFINE.
001027,000361:    6326           12750                           TCF      UNIT                                  #  12 - UNIT VECTOR.
001028,000362:    6327           13114                           TCF      ABVALABS                              #  13 - LENGTH OF VECTOR OR MAG OF SCALAR.
001029,000363:    6330           13164                           TCF      VSQ                                   #  14 - SQUARE OF LENGTH OF VECTOR.
001030,000364:    6331           16334                           TCF      STADR                                 #  15 - PUSH UP ON STORE CODE.
001031,000365:    6332           13214                           TCF      RVQ                                   #  16 - RETURN VIA QPRET.
001032,000366:    6333           13167                           TCF      PUSH                                  #  17 - PUSH MPAC DOWN.
001033,000367: 

Page 28

001035,000369:                                                                                                  #  SECTION 2  LOAD AND STORE PACKAGE.
001036,000370: 
001037,000371:                                                                                                  #           A SET OF SIXTEEN STORE CODES ARE PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
001038,000372:                                                                                                  #  ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
001039,000373:                                                                                                  #  STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
001040,000374:                                                                                                  #  FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
001041,000375: 
001042,000376:                                                                                                  #           1. STORE               STORE MPAC. THE E ADDRESS MAY BE INDEXED.
001043,000377:                                                                                                  #           2. STODL               STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (EITHER MAY BE INDEXED).
001044,000378:                                                                                                  #           3. STOVL               STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
001045,000379:                                                                                                  #           4. STCALL              STORE AND DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE).
001046,000380: 
001047,000381:                                                                                                  #           STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
001048,000382: 
001049,000383: 
001050,000384: 
001051,000385:    6334           30151        STADR              CA       BANKSET                               #  THE STADR CODE (PUSHUP UP ON STORE
001052,000386:    6335           54004                           TS       FBANK                                 #  ADDRESS) ENTERS HERE.
001053,000387:    6336           24150                           INCR     LOC                                   
001054,000388:    6337           50150                           INDEX    LOC                                   #  THE STORE CODE WAS STORE COMPLEMENTED TO
001055,000389:    6340           40000                           CS       0                                     #  MAKE IT LOOK LIKE AN OPCODE PAIR.
001056,000390: 
001057,000391:    6341           54102        DOSTORE            TS       ADDRWD                                
001058,000392:    6342           76425                           MASK     LOW10                                 #  ENTRY FROM DISPATCHER. SAVE THE ERASABLE
001059,000393:    6343           56102                           XCH      ADDRWD                                #  ADDRESS AND JUMP ON THE STORE CODE NO.
001060,000394:    6344           76233                           MASK     B11T14                                
001061,000395:    6345           00006                           EXTEND                                         
001062,000396:    6346           77641                           MP       BIT6                                  #  EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
001063,000397:    6347           50000                           INDEX    A                                     
001064,000398:    6350           16351                           TCF      STORJUMP                              
001065,000399: 

Page 29

001067,000401:                                                                                                  #           STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
001068,000402:                                                                                                  #  A SUPPLIED OPERATION CODE.
001069,000403: 
001070,000404:    6351           06421        STORJUMP           TC       STORE                                 #  STORE.
001071,000405:    6352           16022                           TCF      NEWOPS     -1                         #  PICK UP NEW OP CODE(S).
001072,000406:    6353           06413                           TC       STORE,1                               
001073,000407:    6354           16022                           TCF      NEWOPS     -1                         
001074,000408:    6355           06416                           TC       STORE,2                               
001075,000409:    6356           16022                           TCF      NEWOPS     -1                         
001076,000410: 
001077,000411:    6357           06421                           TC       STORE                                 #  STODL.
001078,000412:    6360           16454                           TCF      DODLOAD                               
001079,000413:    6361           06413                           TC       STORE,1                               
001080,000414:    6362           16454                           TCF      DODLOAD                               
001081,000415:    6363           06416                           TC       STORE,2                               
001082,000416:    6364           16454                           TCF      DODLOAD                               
001083,000417: 
001084,000418:    6365           06421                           TC       STORE                                 #  STODL WITH INDEXED LOAD ADDRESS.
001085,000419:    6366           16071                           TCF      DODLOAD*                              
001086,000420:    6367           06413                           TC       STORE,1                               
001087,000421:    6370           16071                           TCF      DODLOAD*                              
001088,000422:    6371           06416                           TC       STORE,2                               
001089,000423:    6372           16071                           TCF      DODLOAD*                              
001090,000424: 
001091,000425:    6373           06421                           TC       STORE                                 #  STOVL.
001092,000426:    6374           16457                           TCF      DOVLOAD                               
001093,000427:    6375           06413                           TC       STORE,1                               
001094,000428:    6376           16457                           TCF      DOVLOAD                               
001095,000429:    6377           06416                           TC       STORE,2                               
001096,000430:    6400           16457                           TCF      DOVLOAD                               
001097,000431: 
001098,000432:    6401           06421                           TC       STORE                                 #  STOVL WITH INDEXED LOAD ADDRESS.
001099,000433:    6402           16462                           TCF      DOVLOAD*                              
001100,000434:    6403           06413                           TC       STORE,1                               
001101,000435:    6404           16462                           TCF      DOVLOAD*                              
001102,000436:    6405           06416                           TC       STORE,2                               
001103,000437:    6406           16462                           TCF      DOVLOAD*                              
001104,000438: 
001105,000439:    6407           06421                           TC       STORE                                 #  STOTC.
001106,000440:    6410           37657                           CAF      CALLCODE                              
001107,000441:    6411           54020                           TS       CYR                                   
001108,000442:    6412           16172                           TCF      15BITADR                              #  GET A 15 BIT ADDRESS.
001109,000443: 

Page 30

001111,000445:                                                                                                  #           STORE CODE ADDRESS PROCESSOR.
001112,000446: 
001113,000447:    6413           50104        STORE,1            INDEX    FIXLOC                                
001114,000448:    6414           40046                           CS       X1                                    
001115,000449:    6415           16420                           TCF      PRESTORE                              
001116,000450: 
001117,000451:    6416           50104        STORE,2            INDEX    FIXLOC                                
001118,000452:    6417           40047                           CS       X2                                    
001119,000453:    6420           26102        PRESTORE           ADS      ADDRWD                                #  RESULTANT ADDRESS IS IN ERASABLE.
001120,000454: 
001121,000455:    6421           30102        STORE              CA       ADDRWD                                #  SEE IF ADDRESS RELATIVE TO WORK AREA.
001122,000456:    6422           66171                           AD       -ENDVAC                               
001123,000457:    6423           10000                           CCS      A                                     
001124,000458:    6424           16430                           TCF      STARTSTO                              #  ADDRESS OK AS IS.
001125,000459: 
001126,000460:    6425           01777        LOW10              OCT      1777                                  
001127,000461: 
001128,000462:    6426           30104                           CA       FIXLOC                                #  GIVEN ADDRESS IS RELATIVE TO WORK AREA.
001129,000463:    6427           26102                           ADS      ADDRWD                                
001130,000464: 

Page 31

001132,000466:                                                                                                  #           STORING ROUTINES. STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
001133,000467: 
001134,000468:    6430           00006        STARTSTO           EXTEND                                         #  MPAC,+1 MUST BE STORED IN ANY EVENT.
001135,000469:    6431           30141                           DCA      MPAC                                  
001136,000470:    6432           50102                           INDEX    ADDRWD                                
001137,000471:    6433           52001                           DXCH     0                                     
001138,000472: 
001139,000473:    6434           10147                           CCS      MODE                                  
001140,000474:    6435           16450                           TCF      TSTORE                                
001141,000475:    6436           00002                           TC       Q                                     
001142,000476: 
001143,000477:    6437           00006        VSTORE             EXTEND                                         
001144,000478:    6440           30144                           DCA      MPAC       +3                         
001145,000479:    6441           50102                           INDEX    ADDRWD                                
001146,000480:    6442           52003                           DXCH     2                                     
001147,000481: 
001148,000482:    6443           00006                           EXTEND                                         
001149,000483:    6444           30146                           DCA      MPAC       +5                         
001150,000484:    6445           50102                           INDEX    ADDRWD                                
001151,000485:    6446           52005                           DXCH     4                                     
001152,000486:    6447           00002                           TC       Q                                     
001153,000487: 
001154,000488:    6450           30142        TSTORE             CA       MPAC       +2                         
001155,000489:    6451           50102                           INDEX    ADDRWD                                
001156,000490:    6452           54002                           TS       2                                     
001157,000491:    6453           00002                           TC       Q                                     
001158,000492: 

Page 32

001160,000494:                                                                                                  #           ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
001161,000495:                                                                                                  #  ITSELF.
001162,000496: 
001163,000497:    6454           37660        DODLOAD            CAF      DLOADCOD                              
001164,000498:    6455           54020                           TS       CYR                                   
001165,000499:    6456           16041                           TCF      DIRADRES                              #  GO GET A DIRECT ADDRESS.
001166,000500: 
001167,000501:    6457           37630        DOVLOAD            CAF      VLOADCOD                              
001168,000502:    6460           54020                           TS       CYR                                   
001169,000503:    6461           16041                           TCF      DIRADRES                              
001170,000504: 
001171,000505:    6462           36042        DOVLOAD*           CAF      VLOAD*                                
001172,000506:    6463           16072                           TCF      DODLOAD*   +1                         #  PROLOGUE TO INDEX ROUTINE.
001173,000507: 

Page 33

001175,000509:                                                                                                  #           THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
001176,000510: 
001177,000511:    6464           00006        DLOAD              EXTEND                                         
001178,000512:    6465           50102                           INDEX    ADDRWD                                
001179,000513:    6466           30001                           DCA      0                                     #  PICK UP DP ARGUMENT AND LEAVE IT IN
001180,000514:    6467           52141        SLOAD2             DXCH     MPAC                                  #  MPAC,+1, SETTING MPAC +2 TO ZERO. THE
001181,000515:    6470           37653                           CAF      ZERO                                  #  CONTENTS OF THE OTHER FOUR REGISTERS OF
001182,000516:    6471           54142                           TS       MPAC       +2                         #  MPAC ARE IRRELEVANT.
001183,000517:    6472           16013                           TCF      NEWMODE                               #  DECLARE DOUBLE PRECISION MODE.
001184,000518: 
001185,000519:    6473           50102        TLOAD              INDEX    ADDRWD                                
001186,000520:    6474           30002                           CA       2                                     #  LOAD A TRIPLE PRECISION ARGUMENT INTO
001187,000521:    6475           54142                           TS       MPAC       +2                         #  THE FIRST THREE MPAC REGISTERS, WITH THE
001188,000522:    6476           00006                           EXTEND                                         #  CONTENTS OF THE OTHER FOUR IRRELEVANT.
001189,000523:    6477           50102                           INDEX    ADDRWD                                
001190,000524:    6500           30001                           DCA      0                                     
001191,000525:    6501           52141                           DXCH     MPAC                                  
001192,000526:    6502           37646                           CAF      ONE                                   
001193,000527:    6503           16013                           TCF      NEWMODE                               #  DECLARE TRIPLE PRECISION MODE.
001194,000528: 
001195,000529:    6504           22007        SLOAD              ZL                                             #  LOAD A SINGLE PRECISION NUMBER INTO
001196,000530:    6505           50102                           INDEX    ADDRWD                                #  MPAC, SETTING MPAC+1,2 TO ZERO. THE
001197,000531:    6506           30000                           CA       0                                     #  CONTENTS OF THE REMAINING MPAC REGISTERS
001198,000532:    6507           16467                           TCF      SLOAD2                                #  ARE IRRELEVANT.
001199,000533: 
001200,000534:    6510           00006        VLOAD              EXTEND                                         #  LOAD A DOUBLE PRECISION VECTOR INTO
001201,000535:    6511           50102                           INDEX    ADDRWD                                #  MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
001202,000536:    6512           30001                           DCA      0                                     #  CONTENTS OF MPAC +2 ARE IRRELEVANT.
001203,000537:    6513           52141                           DXCH     MPAC                                  
001204,000538: 
001205,000539:    6514           00006        ENDVLOAD           EXTEND                                         #  PDVL COMES HERE TO FINISH UP FOR DP, TP.
001206,000540:    6515           50102                           INDEX    ADDRWD                                
001207,000541:    6516           30003                           DCA      2                                     
001208,000542:    6517           52144                           DXCH     MPAC       +3                         
001209,000543: 
001210,000544:    6520           00006                 +4        EXTEND                                         #  TPDVL FINISHES HERE.
001211,000545:    6521           50102                           INDEX    ADDRWD                                
001212,000546:    6522           30005                           DCA      4                                     
001213,000547:    6523           52146                           DXCH     MPAC       +5                         
001214,000548: 
001215,000549:    6524           47646                           CS       ONE                                   #  DECLARE VECTOR MODE.
001216,000550:    6525           16013                           TCF      NEWMODE                               
001217,000551: 

Page 34 A red line is drawn in a semicircle around the left of the following comments.

001220,000554:                                                                                                  #           THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
001221,000555: 
001222,000556:                                                                                                  #           1.  PUSH               PUSHDOWN AND NO LOAD.
001223,000557:                                                                                                  #           2.  PDDL               PUSHDOWN AND DOUBLE PRECISION LOAD.
001224,000558:                                                                                                  #           3.  PDVL               PUSHDOWN AND VECTOR LOAD.
001225,000559: 
001226,000560:    6526           00006        PDDL               EXTEND                                         
001227,000561:    6527           50102                           INDEX    ADDRWD                                #  LOAD MPAC,+1, PUSHING THE FORMER
001228,000562:    6530           30001                           DCA      0                                     #  CONTENTS DOWN.
001229,000563:    6531           52141                           DXCH     MPAC                                  
001230,000564:    6532           50152                           INDEX    PUSHLOC                               
001231,000565:    6533           52001                           DXCH     0                                     
001232,000566: 
001233,000567:    6534           50147                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER APPRO-
001234,000568:    6535           36164                           CAF      NO.WDS                                #  PRIATELY.
001235,000569:    6536           26152                           ADS      PUSHLOC                               
001236,000570: 
001237,000571:    6537           10147                           CCS      MODE                                  
001238,000572:    6540           16555                           TCF      ENDTPUSH                              
001239,000573:    6541           16553                           TCF      ENDDPUSH                              
001240,000574: 
001241,000575:    6542           54147                           TS       MODE                                  #  NOW DP.
001242,000576:    6543           54142        ENDVPUSH           TS       MPAC       +2                         
001243,000577:    6544           52144                           DXCH     MPAC       +3                         #  PUSH DOWN THE REST OF THE VECTOR HERE.
001244,000578:    6545           50152                           INDEX    PUSHLOC                               
001245,000579:    6546           51775                           DXCH     0          -4                         
001246,000580: 
001247,000581:    6547           52146                           DXCH     MPAC       +5                         
001248,000582:    6550           50152                           INDEX    PUSHLOC                               
001249,000583:    6551           51777                           DXCH     0          -2                         
001250,000584: 
001251,000585:    6552           16014                           TCF      DANZIG                                
001252,000586: 
001253,000587:    6553           54142        ENDDPUSH           TS       MPAC       +2                         #  SET MPAC +2 TO ZERO AND EXIT ON DP.
001254,000588:    6554           16014                           TCF      DANZIG                                
001255,000589: 
001256,000590:    6555           54147        ENDTPUSH           TS       MODE                                  
001257,000591:    6556           56142                           XCH      MPAC       +2                         #  ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
001258,000592:    6557           50152                 +2        INDEX    PUSHLOC                               #  DOWN THE OLD CONTENTS
001259,000593:    6560           53777                           TS       0          -1                         
001260,000594:    6561           16014                           TCF      DANZIG                                
001261,000595: 

Page 35

001263,000597:                                                                                                  #           PDVL - PUSHDOWN AND VECTOR LOAD.
001264,000598: 
001265,000599:    6562           00006        PDVL               EXTEND                                         #  RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
001266,000600:    6563           50102                           INDEX    ADDRWD                                
001267,000601:    6564           30001                           DCA      0                                     
001268,000602:    6565           52141                           DXCH     MPAC                                  
001269,000603:    6566           50152                           INDEX    PUSHLOC                               
001270,000604:    6567           52001                           DXCH     0                                     
001271,000605: 
001272,000606:    6570           50147                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER.
001273,000607:    6571           36164                           CAF      NO.WDS                                
001274,000608:    6572           26152                           ADS      PUSHLOC                               
001275,000609: 
001276,000610:    6573           10147                           CCS      MODE                                  #  TEST PAST MODE.
001277,000611:    6574           16613                           TCF      TPDVL                                 
001278,000612:    6575           16514                           TCF      ENDVLOAD                              #  JUST LOAD LAST FOUR REGISTERS ON DP.
001279,000613: 
001280,000614:    6576           00006        VPDVL              EXTEND                                         #  PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
001281,000615:    6577           50102                           INDEX    ADDRWD                                
001282,000616:    6600           30003                           DCA      2                                     
001283,000617:    6601           52144                           DXCH     MPAC       +3                         
001284,000618:    6602           50152                           INDEX    PUSHLOC                               
001285,000619:    6603           51775                           DXCH     0          -4                         
001286,000620: 
001287,000621:    6604           00006                           EXTEND                                         
001288,000622:    6605           50102                           INDEX    ADDRWD                                
001289,000623:    6606           30005                           DCA      4                                     
001290,000624:    6607           52146                           DXCH     MPAC       +5                         
001291,000625:    6610           50152                           INDEX    PUSHLOC                               
001292,000626:    6611           51777                           DXCH     0          -2                         
001293,000627: 
001294,000628:    6612           16014                           TCF      DANZIG                                
001295,000629: 
001296,000630:    6613           00006        TPDVL              EXTEND                                         #  ON TP, WE MUST LOAD THE Y COMPONENT
001297,000631:    6614           50102                           INDEX    ADDRWD                                #  BEFORE STORING MPAC +2 INCASE THIS IS A
001298,000632:    6615           30003                           DCA      2                                     #  PUSHUP.
001299,000633:    6616           52144                           DXCH     MPAC       +3                         
001300,000634: 
001301,000635:    6617           30142                           CA       MPAC       +2                         
001302,000636:    6620           50152                           INDEX    PUSHLOC                               #  IN DP.
001303,000637:    6621           53777                           TS       0          -1                         
001304,000638:    6622           16520                           TCF      ENDVLOAD   +4                         
001305,000639: 
001306,000640:                                                                                                  #           SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
001307,000641: 
001308,000642:    6623           24150        SSP                INCR     LOC                                   #  PICK UP THE WORD FOLLOWING THE GIVEN
001309,000643:    6624           50150                           INDEX    LOC                                   #  ADDRESS AND STORE IT AT X.
001310,000644:    6625           30000                           CA       0                                     
001311,000645:    6626           50102        STORE1             INDEX    ADDRWD                                #  SOME INDEX AND MISCELLANEOUS OPS END
001312,000646:    6627           54000                           TS       0                                     #  HERE.
001313,000647: 

Page 36

001315,000649:    6630           16014                           TCF      DANZIG                                
001316,000650: 

Page 37

001318,000652:                                                                                                  #  SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
001319,000653: 
001320,000654:                                                                                                  #           THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
001321,000655: 
001322,000656:                                                                                                  #           1. GOTO                GO TO.
001323,000657:                                                                                                  #           2. CALL                CALL SUBROUTINE SETTING QPRET.
001324,000658:                                                                                                  #           3. CGOTO               COMPUTED GO TO.
001325,000659:                                                                                                  #           4. CCALL               COMPUTED CALL.
001326,000660:                                                                                                  #           7. BPL                 BRANCH IF MPAC POSITIVE OR ZERO.
001327,000661:                                                                                                  #           8. BZE                 BRANCH IF MPAC ZERO.
001328,000662:                                                                                                  #           9. BMN                 BRANCH IF MPAC NEGATIVE NON-ZERO.
001329,000663: 
001330,000664:    6631           24150        CCALL              INCR     LOC                                   #  MAINTAIN LOC FOR QPRET COMPUTATION.
001331,000665:    6632           50150                           INDEX    LOC                                   
001332,000666:    6633           30000                           CAF      0                                     #  GET BASE ADDRESS OF CADR LIST.
001333,000667:    6634           50102                           INDEX    ADDRWD                                
001334,000668:    6635           60000                           AD       0                                     #  ADD INCREMENT.
001335,000669:    6636           54004                           TS       FBANK                                 #  SELECT DESIRED CADR.
001336,000670:    6637           76425                           MASK     LOW10                                 
001337,000671:    6640           50000                           INDEX    A                                     
001338,000672:    6641           32000                           CAF      10000                                 
001339,000673:    6642           54103                 -1        TS       POLISH                                
001340,000674: 
001341,000675:    6643           46425        CALL               CS       LOW10                                 #  FOR ANY OF THE CALL OPTIONS, MAKE UP THE
001342,000676:    6644           60150                           AD       LOC                                   #  ADDRESS OF THE NEXT OP-CODE PAIR/STORE
001343,000677:    6645           60151                           AD       BANKSET                               #  CODE AND LEAVE IT IN QPRET. NOTE THAT
001344,000678:    6646           50104                           INDEX    FIXLOC                                #  LOW10 = 2000 - 1.
001345,000679:    6647           54052                           TS       QPRET                                 
001346,000680: 
001347,000681:    6650           30103        GOTO               CA       POLISH                                #  BASIC BRANCHING SEQUENCE.
001348,000682:    6651           54004                           TS       FBANK                                 
001349,000683:    6652           76425                           MASK     LOW10                                 #  MAKE UP 12 BIT SUB-ADDRESS AND FALL INTO
001350,000684:    6653           67634                           AD       2K                                    #  FALL INTO THE INTPRET ENTRY UNLESS THE
001351,000685:    6654           54150                           TS       LOC                                   #  GIVEN ADDRESS WAS IN ERASABLE, IN WHICH
001352,000686:    6655           10004                           CCS      FBANK                                 #  CASE IT IS USED AS THE ADDRESS OF THE
001353,000687:    6656           16002                           TCF      INTPRET    +2                         #  BRANCH ADDRESS.
001354,000688:    6657           16661                           TCF      +2                                    
001355,000689:    6660           16002                           TCF      INTPRET    +2                         
001356,000690: 

Page 38

001358,000692:    6661           40150                           CS       LOC                                   #  THE GIVEN ADDRESS IS IN ERASABLE - SEE
001359,000693:    6662           66707                           AD       EVAC+2K                               #  IF RELATIVE TO THE WORK AREA.
001360,000694:    6663           10000                           CCS      A                                     
001361,000695:    6664           30104                           CA       FIXLOC                                #  ADD FIXLOC IF SO.
001362,000696:    6665           26150                           ADS      LOC                                   
001363,000697: 
001364,000698:    6666           50150                           INDEX    LOC                                   
001365,000699:    6667           26000                           CA       0          -2000                      #  (ADDRESS HAD BEEN AUGMENTED BY 2000.)
001366,000700:    6670           16651                           TCF      GOTO       +1                         #  ALLOWS ARBITRARY INDIRECTNESS.
001367,000701: 
001368,000702:    6671           50150        CGOTO              INDEX    LOC                                   #  COMPUTED GO TO. PICK UP ADDRESS OF CADR
001369,000703:    6672           30001                           CA       1                                     #  LIST.
001370,000704:    6673           50102                           INDEX    ADDRWD                                #  ADD MODIFIER.
001371,000705:    6674           60000                           AD       0                                     
001372,000706:    6675           54004                           TS       FBANK                                 #  SELECT GOTO ADDRESS.
001373,000707:    6676           76425                           MASK     LOW10                                 
001374,000708:    6677           50000                           INDEX    A                                     
001375,000709:    6700           32000                           CA       10000                                 
001376,000710:    6701           16651                           TCF      GOTO       +1                         #  WITH ADDRESS IN A.
001377,000711: 
001378,000712:    6702           30151        SWBRANCH           CA       BANKSET                               #  SWITCH INSTRUCTIONS WHICH ELECT TO
001379,000713:    6703           54004                           TS       FBANK                                 #  BRANCH COME HERE TO DO SO.
001380,000714:    6704           50150                           INDEX    LOC                                   
001381,000715:    6705           30001                           CA       1                                     
001382,000716:    6706           16651                           TCF      GOTO       +1                         
001383,000717: 
001384,000718:    6707           02055        EVAC+2K            DEC      1069       B-14                       #  =1024+45
001385,000719: 

Page 39

001387,000721:                                                                                                  #           TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
001388,000722: 
001389,000723:                                                                                                  #           L+1  IF MPAC IS GREATER THAN ZERO.
001390,000724:                                                                                                  #           L+2  IF MPAC IS EQUAL TO +0 OR -0.
001391,000725:                                                                                                  #           L+3  IF MPAC IS LESS THAN ZERO.
001392,000726: 
001393,000727: 
001394,000728: 
001395,000729:    6710           10140        BRANCH             CCS      MPAC                                  
001396,000730:    6711           00002                           TC       Q                                     
001397,000731:    6712           16714                           TCF      +2                                    #  ON ZERO.
001398,000732:    6713           16726                           TCF      NEG                                   
001399,000733: 
001400,000734:    6714           10141                           CCS      MPAC       +1                         
001401,000735:    6715           00002                           TC       Q                                     
001402,000736:    6716           16720                           TCF      +2                                    
001403,000737:    6717           16726                           TCF      NEG                                   
001404,000738: 
001405,000739:    6720           10142                           CCS      MPAC       +2                         
001406,000740:    6721           00002                           TC       Q                                     
001407,000741:    6722           16724                           TCF      +2                                    
001408,000742:    6723           16726                           TCF      NEG                                   
001409,000743: 
001410,000744:    6724           50002                           INDEX    Q                                     #  IF ALL THREE REGISTERS WERE +-0.
001411,000745:    6725           00001                           TC       1                                     
001412,000746: 
001413,000747:    6726           50002        NEG                INDEX    Q                                     #  IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
001414,000748:    6727           00002                           TC       2                                     
001415,000749: 
001416,000750: 
001417,000751: 
001418,000752:    6730           50150        EXIT               INDEX    LOC                                   #  LEAVE INTERPRETIVE MODE.
001419,000753:    6731           10001                           TCF      1                                     
001420,000754: 

Page 40

001422,000756:                                                                                                  #  SECTION 3 - ADD/SUBTRACT PACKAGE.
001423,000757: 
001424,000758:                                                                                                  #           THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
001425,000759:                                                                                                  #  MPAC:
001426,000760: 
001427,000761:                                                                                                  #           1. DAD                 DOUBLE PRECISION ADD.
001428,000762:                                                                                                  #           2. DSU                 DOUBLE PRECISION SUBTRACT.
001429,000763:                                                                                                  #           3. BDSU                DOUBLE PRECISION SUBTRACT FROM.
001430,000764: 
001431,000765:                                                                                                  #           4. TAD                 TRIPLE PRECISION ADD.
001432,000766: 
001433,000767:                                                                                                  #           5. VAD                 VECTOR ADD.
001434,000768:                                                                                                  #           6. VSU                 VECTOR SUBTRACT.
001435,000769:                                                                                                  #           7. BVSU                VECTOR SUBTRACT FROM.
001436,000770: 
001437,000771:                                                                                                  #  THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
001438,000772: 
001439,000773: 
001440,000774: 
001441,000775:    6732           00006        VAD                EXTEND                                         
001442,000776:    6733           50102                           INDEX    ADDRWD                                
001443,000777:    6734           30003                           DCA      2                                     
001444,000778:    6735           20144                           DAS      MPAC       +3                         
001445,000779:    6736           00006                           EXTEND                                         #  CHECK OVERFLOW.
001446,000780:    6737           16741                           BZF      +2                                    
001447,000781:    6740           07006                           TC       OVERFLOW                              
001448,000782: 
001449,000783:    6741           00006                           EXTEND                                         
001450,000784:    6742           50102                           INDEX    ADDRWD                                
001451,000785:    6743           30005                           DCA      4                                     
001452,000786:    6744           20146                           DAS      MPAC       +5                         
001453,000787:    6745           00006                           EXTEND                                         
001454,000788:    6746           16750                           BZF      +2                                    
001455,000789:    6747           07006                           TC       OVERFLOW                              
001456,000790: 
001457,000791:    6750           00006        DAD                EXTEND                                         
001458,000792:    6751           50102                           INDEX    ADDRWD                                
001459,000793:    6752           30001                           DCA      0                                     
001460,000794:    6753           20141        ENDVXV             DAS      MPAC                                  #  VXV FINISHES HERE.
001461,000795:    6754           00006                           EXTEND                                         
001462,000796:    6755           16014                           BZF      DANZIG                                
001463,000797:    6756           07006                           TC       OVERFLOW                              
001464,000798:    6757           16014                           TCF      DANZIG                                
001465,000799: 

Page 41

001467,000801:    6760           00006        VSU                EXTEND                                         
001468,000802:    6761           50102                           INDEX    ADDRWD                                
001469,000803:    6762           40003                           DCS      2                                     
001470,000804:    6763           20144                           DAS      MPAC       +3                         
001471,000805:    6764           00006                           EXTEND                                         
001472,000806:    6765           16767                           BZF      +2                                    
001473,000807:    6766           07006                           TC       OVERFLOW                              
001474,000808: 
001475,000809:    6767           00006                           EXTEND                                         
001476,000810:    6770           50102                           INDEX    ADDRWD                                
001477,000811:    6771           40005                           DCS      4                                     
001478,000812:    6772           20146                           DAS      MPAC       +5                         
001479,000813:    6773           00006                           EXTEND                                         
001480,000814:    6774           16776                           BZF      +2                                    
001481,000815:    6775           07006                           TC       OVERFLOW                              
001482,000816: 
001483,000817:    6776           00006        DSU                EXTEND                                         
001484,000818:    6777           50102                           INDEX    ADDRWD                                
001485,000819:    7000           40001                           DCS      0                                     
001486,000820:    7001           20141                           DAS      MPAC                                  
001487,000821:    7002           00006                           EXTEND                                         
001488,000822:    7003           16014                           BZF      DANZIG                                
001489,000823:    7004           07006                           TC       OVERFLOW                              
001490,000824:    7005           16014                           TCF      DANZIG                                
001491,000825: 
001492,000826:    7006           37646        OVERFLOW           CAF      ONE                                   #  SUBROUTINE TO TURN OVFIND ON.
001493,000827:    7007           17130                           TCF      SETOVF2                               
001494,000828: 

Page 42

001496,000830:    7010           00006        BVSU               EXTEND                                         
001497,000831:    7011           50102                           INDEX    ADDRWD                                
001498,000832:    7012           30003                           DCA      2                                     
001499,000833:    7013           52144                           DXCH     MPAC       +3                         
001500,000834:    7014           00006                           EXTEND                                         
001501,000835:    7015           40001                           DCOM                                           
001502,000836:    7016           20144                           DAS      MPAC       +3                         
001503,000837:    7017           00006                           EXTEND                                         
001504,000838:    7020           17022                           BZF      +2                                    
001505,000839:    7021           07006                           TC       OVERFLOW                              
001506,000840: 
001507,000841:    7022           00006                           EXTEND                                         
001508,000842:    7023           50102                           INDEX    ADDRWD                                
001509,000843:    7024           30005                           DCA      4                                     
001510,000844:    7025           52146                           DXCH     MPAC       +5                         
001511,000845:    7026           00006                           EXTEND                                         
001512,000846:    7027           40001                           DCOM                                           
001513,000847:    7030           20146                           DAS      MPAC       +5                         
001514,000848:    7031           00006                           EXTEND                                         
001515,000849:    7032           17034                           BZF      +2                                    
001516,000850:    7033           07006                           TC       OVERFLOW                              
001517,000851: 
001518,000852:    7034           00006        BDSU               EXTEND                                         
001519,000853:    7035           50102                           INDEX    ADDRWD                                
001520,000854:    7036           30001                           DCA      0                                     
001521,000855:    7037           52141                           DXCH     MPAC                                  
001522,000856:    7040           00006                           EXTEND                                         
001523,000857:    7041           40001                           DCOM                                           
001524,000858:    7042           20141                           DAS      MPAC                                  
001525,000859:    7043           00006                           EXTEND                                         
001526,000860:    7044           16014                           BZF      DANZIG                                
001527,000861:    7045           07006                           TC       OVERFLOW                              
001528,000862:    7046           16014                           TCF      DANZIG                                
001529,000863: 

Page 43

001531,000865:                                                                                                  #           TRIPLE PRECISION ADD ROUTINE.
001532,000866: 
001533,000867:    7047           00006        TAD                EXTEND                                         
001534,000868:    7050           50102                           INDEX    ADDRWD                                
001535,000869:    7051           30002                           DCA      1                                     #  ADD MINOR PARTS FIRST.
001536,000870:    7052           20142                           DAS      MPAC       +1                         
001537,000871:    7053           50102                           INDEX    ADDRWD                                
001538,000872:    7054           60000                           AD       0                                     
001539,000873:    7055           60140                           AD       MPAC                                  
001540,000874:    7056           54140                           TS       MPAC                                  
001541,000875:    7057           16014                           TCF      DANZIG                                
001542,000876: 
001543,000877:    7060           54105        SETOVF             TS       OVFIND                                #  SET OVFIND IF SUCH OCCURS.
001544,000878:    7061           16014                           TCF      DANZIG                                
001545,000879: 

Page 44

001547,000881:                                                                                                  #  ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
001548,000882: 
001549,000883:                                                                                                  #           1.  DMPSUB     DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
001550,000884:                                                                                                  #                          IS IN ADDRWD AND LEAVE A TRIPLE PRECISION RESULT IN MPAC.
001551,000885:                                                                                                  #           2.  ROUNDSUB   ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
001552,000886:                                                                                                  #           3.  DOTSUB     TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
001553,000887:                                                                                                  #                          AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
001554,000888:                                                                                                  #           4.  POLY       USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
001555,000889:                                                                                                  #                          COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.)
001556,000890: 
001557,000891: 
001558,000892: 
001559,000893:    7062           50002        DMP                INDEX    Q                                     #  BASIC SUBROUTINE FOR USE BY PINBALL, ETC
001560,000894:    7063           30000                           CAF      0                                     #  ADRES OF ARGUMENT FOLLOWS  TC DMP  .
001561,000895:    7064           24002                           INCR     Q                                     
001562,000896:    7065           54102                 -1        TS       ADDRWD                                #  (PROLOGUE FOR SETTING ADDRWD.)
001563,000897: 
001564,000898:    7066           50102        DMPSUB             INDEX    ADDRWD                                #  GET MINOR PART OF OPERAND AT C(ADDRWD).
001565,000899:    7067           30001                           CA       1                                     
001566,000900:    7070           54142                           TS       MPAC       +2                         #  THIS WORKS FOR SQUARING MPAC AS WELL.
001567,000901:    7071           37653                           CAF      ZERO                                  #  SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
001568,000902:    7072           56141                           XCH      MPAC       +1                         #  THE PARTIAL PRODUCTS WITH DAS
001569,000903:    7073           54121                           TS       MPTEMP                                #  INSTRUCTIONS.
001570,000904:    7074           00006                           EXTEND                                         
001571,000905:    7075           70142                           MP       MPAC       +2                         #  MINOR OF MPAC X MINOR OF C(ADDRWD).
001572,000906: 
001573,000907:    7076           56142                           XCH      MPAC       +2                         #  DISCARD MINOR PART OF ABOVE RESULT AND
001574,000908:    7077           00006                           EXTEND                                         #  FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
001575,000909:    7100           70140                           MP       MPAC                                  
001576,000910:    7101           20142                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
001577,000911: 
001578,000912:    7102           50102                           INDEX    ADDRWD                                #  GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
001579,000913:    7103           30000                           CA       0                                     
001580,000914:    7104           56121                           XCH      MPTEMP                                #  SAVE AND BRING OUT MINOR OF MPAC.
001581,000915:    7105           00006                           EXTEND                                         
001582,000916:    7106           70121                           MP       MPTEMP                                #  MAJOR OF C(ADDRWD) X MINOR OF MPAC.
001583,000917:    7107           20142                           DAS      MPAC       +1                         #  ACCUMULATE, SETTING A TO NET OVERFLOW.
001584,000918: 
001585,000919:    7110           56140                           XCH      MPAC                                  #  SETTING MPAC TO 0 OR +-1.
001586,000920:    7111           00006                           EXTEND                                         
001587,000921:    7112           70121                           MP       MPTEMP                                #  MAJOR OF MPAC X MAJOR OF C(ADDRWD).
001588,000922:    7113           20141                           DAS      MPAC                                  #  GUARANTEED NO OVERFLOW.
001589,000923:    7114           00002                           TC       Q                                     #  49 MCT = .573 MS. INCLUDING RETURN.
001590,000924: 

Page 45

001592,000926:                                                                                                  #           ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
001593,000927: 
001594,000928:    7115           37653        ROUNDSUB           CAF      ZERO                                  #  SET MPAC +2 TO ZERO FOR SCALARS.
001595,000929: 
001596,000930:    7116           56142        VROUND             XCH      MPAC       +2                         #  BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
001597,000931:    7117           60000                           DOUBLE                                         
001598,000932:    7120           54001                           TS       L                                     
001599,000933:    7121           00002                           TC       Q                                     
001600,000934: 
001601,000935:    7122           60141                           AD       MPAC       +1                         #  ADD ROUNDING BIT IF MPAC +2 WAS GREATER
001602,000936:    7123           54141                           TS       MPAC       +1                         #  THAN .5 IN MAGNITUDE.
001603,000937:    7124           00002                           TC       Q                                     
001604,000938: 
001605,000939:    7125           60140                           AD       MPAC                                  #  PROPAGATE INTERFLOW.
001606,000940:    7126           54140                           TS       MPAC                                  
001607,000941:    7127           00002                           TC       Q                                     
001608,000942: 
001609,000943:    7130           54105        SETOVF2            TS       OVFIND                                #  (RARE).
001610,000944:    7131           00002                           TC       Q                                     
001611,000945: 

Page 46

001613,000947:                                                                                                  #           THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
001614,000948:                                                                                                  #  REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD. IN THIS CASE C(DOTINC) ARE SET TO 2. VXM, HOWEVER, SETS C(DOTINC) TO
001615,000949:                                                                                                  #  6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
001616,000950: 
001617,000951: 
001618,000952: 
001619,000953:    7132           37645        PREDOT             CAF      TWO                                   #  PROLOGUE TO SET DOTINC TO 2.
001620,000954:    7133           54122                           TS       DOTINC                                
001621,000955: 
001622,000956:    7134           00006        DOTSUB             EXTEND                                         
001623,000957:    7135           22123                           QXCH     DOTRET                                #  SAVE RETURN.
001624,000958:    7136           07066                           TC       DMPSUB                                #  DOT X COMPONENTS.
001625,000959:    7137           52144                           DXCH     MPAC       +3                         #  POSITION Y COMPONENT OF MPAC FOR
001626,000960:    7140           52141                           DXCH     MPAC                                  #  MULTIPLICATION WHILE SAVING RESULT IN
001627,000961:    7141           52115                           DXCH     BUF                                   #  THREE WORD BUFFER, BUF.
001628,000962:    7142           30142                           CA       MPAC       +2                         
001629,000963:    7143           54116                           TS       BUF        +2                         
001630,000964: 
001631,000965:    7144           30122                           CA       DOTINC                                #  ADVANCE ADDRWD TO Y COMPONENT OF
001632,000966:    7145           26102                           ADS      ADDRWD                                #  OTHER ARGUMENT.
001633,000967:    7146           07066                           TC       DMPSUB                                
001634,000968:    7147           52142                           DXCH     MPAC       +1                         #  ACCUMULATE PARTIAL PRODUCTS.
001635,000969:    7150           20116                           DAS      BUF        +1                         
001636,000970:    7151           60140                           AD       MPAC                                  
001637,000971:    7152           60114                           AD       BUF                                   
001638,000972:    7153           54114                           TS       BUF                                   
001639,000973:    7154           17156                           TCF      +2                                    
001640,000974:    7155           54105                           TS       OVFIND                                #  IF OVERFLOW OCCURS.
001641,000975: 
001642,000976:    7156           52146                           DXCH     MPAC       +5                         #  MULTIPLY Z COMPONENTS.
001643,000977:    7157           52141                           DXCH     MPAC                                  
001644,000978:    7160           30122                           CA       DOTINC                                
001645,000979:    7161           26102                           ADS      ADDRWD                                
001646,000980:    7162           07066                           TC       DMPSUB                                
001647,000981:    7163           52116        ENDDOT             DXCH     BUF        +1                         #  LEAVE FINAL ACCUMULATION IN MPAC.
001648,000982:    7164           20142                           DAS      MPAC       +1                         
001649,000983:    7165           60140                           AD       MPAC                                  
001650,000984:    7166           60114                           AD       BUF                                   
001651,000985:    7167           54140                           TS       MPAC                                  
001652,000986:    7170           00123                           TC       DOTRET                                
001653,000987: 
001654,000988:    7171           54105                           TS       OVFIND                                #  ON OVERFLOW HERE.
001655,000989:    7172           00123                           TC       DOTRET                                
001656,000990: 

Page 47

001658,000992:                                                                                                  #  DOUBLE PRECISION POLYNOMIAL EVALUATOR.
001659,000993: 
001660,000994:                                                                                                  #                                     N        N-1
001661,000995:                                                                                                  #           THIS ROUTINE EVALUATES A X  + A   X    + ... + A X + A LEAVING THE DP RESULT IN MPAC ON EXIT.
001662,000996:                                                                                                  #                                   N      N-1              1     0
001663,000997: 
001664,000998:                                                                                                  #  IT IS ASSUMED THAT X ARRIVES IN MPAC AND N AND THE COEFFICIENTS IN THE CALLING SEQUENCE AS FOLLOWS:
001665,000999: 
001666,001000:                                                                                                  #                                          L        TC     POLY
001667,001001:                                                                                                  #                                          L+1      DEC    N-1
001668,001002:                                                                                                  #                                          L+2      2DEC   A(0)
001669,001003:                                                                                                  #                                                   ...
001670,001004:                                                                                                  #                                          L+2N+2   2DEC   A(N)            RETURN IS TO L+2N+4.
001671,001005: 
001672,001006:    7173           37662        POLY               CAF      LVBUF                                 #  INCOMING X WILL BE STORED IN VBUF, SO
001673,001007:    7174           54102                           TS       ADDRWD                                #  SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
001674,001008: 
001675,001009:    7175           50002                           INDEX    Q                                     
001676,001010:    7176           30000                           CAF      0                                     
001677,001011:    7177           54124                           TS       POLYCNT                               #  N-1 TO COUNTER.
001678,001012:    7200           60000                           DOUBLE                                         
001679,001013:    7201           60002                           AD       Q                                     
001680,001014:    7202           54125                           TS       POLYRET                               #  SAVE L+2N-1 FOR RETURN
001681,001015:    7203           54103                           TS       POLISH                                #  AND FOR REFERENCING COEFFICIENTS.
001682,001016: 
001683,001017:    7204           00006                           EXTEND                                         
001684,001018:    7205           50000                           INDEX    A                                     #  LOAD A(N) INTO MPAC, SAVING MPAC IN
001685,001019:    7206           30004                           DCA      3                                     #  VBUF.
001686,001020:    7207           52141                           DXCH     MPAC                                  
001687,001021:    7210           52107                           DXCH     VBUF                                  
001688,001022:    7211           17215                           TCF      POLY2                                 #  NO ZERO-ORDER POLYNOMIALS ALLOWED.
001689,001023: 
001690,001024:    7212           54124        POLYLOOP           TS       POLYCNT                               #  SAVE DECREMENTED LOOP COUNTER.
001691,001025:    7213           47645                           CS       TWO                                   #  REGRESS COEFFICIENT POINTER.
001692,001026:    7214           26103                           ADS      POLISH                                
001693,001027: 
001694,001028:    7215           07066        POLY2              TC       DMPSUB                                #  MULTIPLY BY X.
001695,001029:    7216           00006                           EXTEND                                         
001696,001030:    7217           50103                           INDEX    POLISH                                #  ADD IN NEXT COEFFICIENT.
001697,001031:    7220           30002                           DCA      1                                     
001698,001032:    7221           20141                           DAS      MPAC                                  #  NO CHECK FOR OVERFLOW SINCE SIN, ETC.,
001699,001033:                                                                                                  #  SHOULD NOT OVERFLOW.
001700,001034:    7222           10124                           CCS      POLYCNT                               #  LOOP ON COUNTER.
001701,001035:    7223           17212                           TCF      POLYLOOP                              
001702,001036:    7224           50125                           INDEX    POLYRET                               #  DONE - RETURN TO CALLER AT L+2N+4.
001703,001037:    7225           00005        FIVE               TC       5                                     
001704,001038: 

Page 48

001706,001040:                                                                                                  #           MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
001707,001041: 
001708,001042:    7226           00006        TPAGREE            EXTEND                                         #  FORCE SIGN AGREEMENT AMONG THE TRIPLE-
001709,001043:    7227           22114                           QXCH     BUF                                   #  PRECISION CONTENTS OF MPAC, RETURNING
001710,001044:    7230           06710                           TC       BRANCH                                #  WITH THE SIGNUM OF THE INPUT IN A.
001711,001045:    7231           17235                           TCF      ARG+                                  
001712,001046:    7232           17255                           TCF      ARGZERO                               
001713,001047: 
001714,001048:    7233           47626                           CS       POSMAX                                #  IF NEGATIVE.
001715,001049:    7234           17236                           TCF      +2                                    
001716,001050: 
001717,001051:    7235           37626        ARG+               CAF      POSMAX                                
001718,001052:    7236           54115                 +2        TS       BUF        +1                         
001719,001053:    7237           00006                           EXTEND                                         
001720,001054:    7240           24000                           AUG      A                                     #  FORMS +-1.0.
001721,001055:    7241           60142                           AD       MPAC       +2                         
001722,001056:    7242           54142                           TS       MPAC       +2                         
001723,001057:    7243           37653                           CAF      ZERO                                  
001724,001058:    7244           60115                           AD       BUF        +1                         
001725,001059:    7245           60141                           AD       MPAC       +1                         
001726,001060:    7246           54141                           TS       MPAC       +1                         
001727,001061:    7247           37653                           CAF      ZERO                                  
001728,001062:    7250           60115                           AD       BUF        +1                         
001729,001063:    7251           60140                           AD       MPAC                                  
001730,001064:    7252           54140        ARGZERO2           TS       MPAC                                  #  ALWAYS SKIPPING UNLESS ARGZERO.
001731,001065:    7253           54141                           TS       MPAC       +1                         
001732,001066:    7254           00114                           TC       BUF                                   #  RETURN.
001733,001067: 
001734,001068:    7255           54142        ARGZERO            TS       MPAC       +2                         #  SET ALL THREE MPAC REGISTERS TO ZERO.
001735,001069:    7256           17252                           TCF      ARGZERO2                              
001736,001070: 
001737,001071:                                                                                                  #           SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
001738,001072: 
001739,001073:    7257           54121        SHORTMP            TS       MPTEMP                                
001740,001074:    7260           00006                           EXTEND                                         
001741,001075:    7261           70142                           MP       MPAC       +2                         
001742,001076:    7262           54142                           TS       MPAC       +2                         
001743,001077:    7263           37653                           CAF      ZERO                                  #  SO SUBSEQUENT DAS WILL WORK.
001744,001078:    7264           56141                           XCH      MPAC       +1                         
001745,001079:    7265           00006                           EXTEND                                         
001746,001080:    7266           70121                           MP       MPTEMP                                
001747,001081:    7267           20142                           DAS      MPAC       +1                         
001748,001082:    7270           56140                           XCH      MPAC                                  #  SETTING MPAC TO 0.
001749,001083:    7271           00006                           EXTEND                                         
001750,001084:    7272           70121                           MP       MPTEMP                                
001751,001085:    7273           20141                           DAS      MPAC                                  
001752,001086:    7274           00002                           TC       Q                                     
001753,001087: 

Page 49

001755,001089:                                                                                                  #  MISCELLANEOUS VECTOR OPERATIONS. INCLUDED HERE ARE THE FOLLOWING:
001756,001090: 
001757,001091:                                                                                                  #           1.  DOT                DP VECTOR DOT PRODUCT.
001758,001092:                                                                                                  #           2.  VXV                DP VECTOR CROSS PRODUCT.
001759,001093:                                                                                                  #           3.  VXSC               DP VECTOR TIMES SCALAR.
001760,001094:                                                                                                  #           4.  V/SC               DP VECTOR DIVIDED BY SCALAR.
001761,001095:                                                                                                  #           5.  VPROJ              DP VECTOR PROJECTION. ( (MPAC.X)MPAC ).
001762,001096:                                                                                                  #           6.  VXM                DP VECTOR POST-MULTIPLIED BY MATRIX.
001763,001097:                                                                                                  #           7.  MXV                DP VECTOR PRE-MULTIPLIED BY MATRIX.
001764,001098: 
001765,001099: 
001766,001100: 
001767,001101:    7275           07132        DOT                TC       PREDOT                                #  DO THE DOT PRODUCT AND EXIT, CHANGING
001768,001102:    7276           37653                           CAF      ZERO                                  #  THE MODE TO DP SCALAR.
001769,001103:    7277           16013                           TCF      NEWMODE                               
001770,001104: 
001771,001105: 
001772,001106: 
001773,001107:    7300           37645        MXV                CAF      TWO                                   #  SET UP MATINC AND DOTINC FOR ROW
001774,001108:    7301           54124                           TS       MATINC                                #  VECTORS.
001775,001109:    7302           17306                           TCF      VXM/MXV                               #  GO TO COMMON PORTION.
001776,001110: 
001777,001111:    7303           47650        VXM                CS       TEN                                   #  SET MATINC AND DOTINC TO REFER TO MATRIX
001778,001112:    7304           54124                           TS       MATINC                                #  AS THREE COLUMN VECTORS.
001779,001113:    7305           36162                           CAF      SIX                                   
001780,001114: 

Page 50

001782,001116:                                                                                                  #           COMMON PORTION OF MXV AND VXM.
001783,001117: 
001784,001118:    7306           54122        VXM/MXV            TS       DOTINC                                
001785,001119:    7307           07475                           TC       MPACVBUF                              #  SAVE VECTOR IN MPAC FOR FURTHER USE.
001786,001120: 
001787,001121:    7310           07134                           TC       DOTSUB                                #  GO DOT TO GET X COMPONENT OF ANSWER.
001788,001122:    7311           00006                           EXTEND                                         
001789,001123:    7312           30107                           DCA      VBUF                                  #  MOVE MPAC VECTOR BACK INTO MPAC, SAVING
001790,001124:    7313           52141                           DXCH     MPAC                                  #  NEW X COMPONENT IN BUF2.
001791,001125:    7314           52120                           DXCH     BUF2                                  
001792,001126:    7315           00006                           EXTEND                                         
001793,001127:    7316           30111                           DCA      VBUF       +2                         
001794,001128:    7317           52144                           DXCH     MPAC       +3                         
001795,001129:    7320           00006                           EXTEND                                         
001796,001130:    7321           30113                           DCA      VBUF       +4                         
001797,001131:    7322           52146                           DXCH     MPAC       +5                         
001798,001132:    7323           30124                           CA       MATINC                                #  INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
001799,001133:    7324           26102                           ADS      ADDRWD                                #  FORMS BASE ADDRESS OF NEXT COLUMN(ROW).
001800,001134: 
001801,001135:    7325           07134                           TC       DOTSUB                                
001802,001136:    7326           52107                           DXCH     VBUF                                  #  MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
001803,001137:    7327           52141                           DXCH     MPAC                                  #  COMPONENT OF ANSWER IN VBUF +2.
001804,001138:    7330           52111                           DXCH     VBUF       +2                         
001805,001139:    7331           52144                           DXCH     MPAC       +3                         
001806,001140:    7332           52113                           DXCH     VBUF       +4                         
001807,001141:    7333           52146                           DXCH     MPAC       +5                         
001808,001142:    7334           30124                           CA       MATINC                                #  FORM ADDRESS OF LAST COLUMN OR ROW.
001809,001143:    7335           26102                           ADS      ADDRWD                                
001810,001144: 
001811,001145:    7336           07134                           TC       DOTSUB                                
001812,001146:    7337           52120                           DXCH     BUF2                                  #  ANSWER NOW COMPLETE. PUT COMPONENTS INTO
001813,001147:    7340           52141                           DXCH     MPAC                                  #  PROPER MPAC REGISTERS.
001814,001148:    7341           52146                           DXCH     MPAC       +5                         
001815,001149:    7342           52111                           DXCH     VBUF       +2                         
001816,001150:    7343           52144                           DXCH     MPAC       +3                         
001817,001151:    7344           16014                           TCF      DANZIG                                #  EXIT.
001818,001152: 

Page 51

001820,001154:                                                                                                  #           VXSC - VECTOR TIMES SCALAR.
001821,001155: 
001822,001156:    7345           10147        VXSC               CCS      MODE                                  #  TEST PRESENT MODE.
001823,001157:    7346           17372                           TCF      DVXSC                                 #  SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
001824,001158:    7347           17372                           TCF      DVXSC                                 
001825,001159: 
001826,001160:    7350           07066        VVXSC              TC       DMPSUB                                #  COMPUTE X COMPONENT
001827,001161:    7351           07116                           TC       VROUND                                #  AND ROUND IT.
001828,001162:    7352           52144                           DXCH     MPAC       +3                         #  PUT Y COMPONENT INTO MPAC SAVING MPAC IN
001829,001163:    7353           52141                           DXCH     MPAC                                  #  MPAC +3.
001830,001164:    7354           52144                           DXCH     MPAC       +3                         
001831,001165: 
001832,001166:    7355           07066                           TC       DMPSUB                                #  DO SAME FOR Y AND Z COMPONENTS.
001833,001167:    7356           07116                           TC       VROUND                                
001834,001168:    7357           52146                           DXCH     MPAC       +5                         
001835,001169:    7360           52141                           DXCH     MPAC                                  
001836,001170:    7361           52146                           DXCH     MPAC       +5                         
001837,001171: 
001838,001172:    7362           07066                           TC       DMPSUB                                
001839,001173:    7363           07116                           TC       VROUND                                
001840,001174:    7364           52141        VROTATEX           DXCH     MPAC                                  #  EXIT USED TO RESTORE MPAC AFTER THIS
001841,001175:    7365           52146                           DXCH     MPAC       +5                         #  TYPE OF ROTATION. CALLED BY VECTOR SHIFT
001842,001176:    7366           52144                           DXCH     MPAC       +3                         #  RIGHT, V/SC, ETC.
001843,001177:    7367           52141                           DXCH     MPAC                                  
001844,001178:    7370           16014                           TCF      DANZIG                                
001845,001179: 

Page 52

001847,001181:                                                                                                  #           DP VECTOR PROJECTION ROUTINE.
001848,001182: 
001849,001183:    7371           07132        VPROJ              TC       PREDOT                                #  (MPAC.X)MPAC IS COMPUTED AND LEFT IN
001850,001184:                                                                                                  #  MPAC. DO DOT AND FALL INTO DVXSC.
001851,001185: 
001852,001186:                                                                                                  #           VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
001853,001187: 
001854,001188:    7372           00006        DVXSC              EXTEND                                         #  SAVE SCALAR IN MPAC +3 AND GET X
001855,001189:    7373           30141                           DCA      MPAC                                  #  COMPONENT OF ANSWER.
001856,001190:    7374           52144                           DXCH     MPAC       +3                         
001857,001191:    7375           07066                           TC       DMPSUB                                
001858,001192:    7376           07116                           TC       VROUND                                
001859,001193: 
001860,001194:    7377           37645                           CAF      TWO                                   #  ADVANCE ADDRWD TO Y COMPONENT OF X.
001861,001195:    7400           26102                           ADS      ADDRWD                                
001862,001196:    7401           00006                           EXTEND                                         
001863,001197:    7402           30144                           DCA      MPAC       +3                         #  PUT SCALAR BACK INTO MPAC AND SAVE
001864,001198:    7403           52141                           DXCH     MPAC                                  #  X RESULT IN MPAC +5.
001865,001199:    7404           52146                           DXCH     MPAC       +5                         
001866,001200:    7405           07066                           TC       DMPSUB                                
001867,001201:    7406           07116                           TC       VROUND                                
001868,001202: 
001869,001203:    7407           37645                           CAF      TWO                                   
001870,001204:    7410           26102                           ADS      ADDRWD                                #  TO Z COMPONENT.
001871,001205:    7411           52144                           DXCH     MPAC       +3                         #  BRING SCALAR BACK, PUTTING Y RESULT IN
001872,001206:    7412           52141                           DXCH     MPAC                                  #  THE PROPER PLACE.
001873,001207:    7413           52144                           DXCH     MPAC       +3                         
001874,001208:    7414           07066                           TC       DMPSUB                                
001875,001209:    7415           07116                           TC       VROUND                                
001876,001210: 
001877,001211:    7416           52141                           DXCH     MPAC                                  #  PUT Z COMPONENT IN PROPER PLACE, ALSO
001878,001212:    7417           52146                           DXCH     MPAC       +5                         #  POSITIONING X.
001879,001213:    7420           52141                           DXCH     MPAC                                  
001880,001214: 
001881,001215:    7421           47646                           CS       ONE                                   #  MODE HAS CHANGED TO VECTOR.
001882,001216:    7422           16013                           TCF      NEWMODE                               
001883,001217: 

Page 53

001885,001219:                                                                                                  #           THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
001886,001220:                                                                                                  #                                                         3 2  2 3  1 3  3 1  2 1  1 2
001887,001221:                                                                                                  #  MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
001888,001222: 
001889,001223: 
001890,001224: 
001891,001225:    7423           00006        VXV                EXTEND                                         
001892,001226:    7424           30146                           DCA      MPAC       +5                         #  FORM UP M3X1, LEAVING M1 IN VBUF.
001893,001227:    7425           52141                           DXCH     MPAC                                  
001894,001228:    7426           52107                           DXCH     VBUF                                  
001895,001229:    7427           07066                           TC       DMPSUB                                #  BY X1.
001896,001230: 
001897,001231:    7430           00006                           EXTEND                                         
001898,001232:    7431           40144                           DCS      MPAC       +3                         #  CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
001899,001233:    7432           52141                           DXCH     MPAC                                  
001900,001234:    7433           52111                           DXCH     VBUF       +2                         
001901,001235:    7434           07066                           TC       DMPSUB                                
001902,001236: 
001903,001237:    7435           37645                           CAF      TWO                                   #  ADVANCE ADDRWD TO X2.
001904,001238:    7436           26102                           ADS      ADDRWD                                
001905,001239:    7437           00006                           EXTEND                                         
001906,001240:    7440           40146                           DCS      MPAC       +5                         #  PREPARE TO GET -X2M3, SAVING -X1M2 IN
001907,001241:    7441           52141                           DXCH     MPAC                                  #  MPAC +5.
001908,001242:    7442           52146                           DXCH     MPAC       +5                         
001909,001243:    7443           07066                           TC       DMPSUB                                
001910,001244: 
001911,001245:    7444           00006                           EXTEND                                         
001912,001246:    7445           30107                           DCA      VBUF                                  #  GET X2M1, SAVING -X2M3 IN VBUF +4.
001913,001247:    7446           52141                           DXCH     MPAC                                  
001914,001248:    7447           52113                           DXCH     VBUF       +4                         
001915,001249:    7450           07066                           TC       DMPSUB                                
001916,001250: 
001917,001251:    7451           37645                           CAF      TWO                                   #  ADVANCE ADDRWD TO X3.
001918,001252:    7452           26102                           ADS      ADDRWD                                
001919,001253:    7453           00006                           EXTEND                                         
001920,001254:    7454           40107                           DCS      VBUF                                  #  GET -X3M1, ADDING X2M1 TO MPAC +5 TO
001921,001255:    7455           52141                           DXCH     MPAC                                  #  COMPLETE THE Z COMPONENT OF THE ANSWER.
001922,001256:    7456           20146                           DAS      MPAC       +5                         
001923,001257: 
001924,001258:    7457           00006                           EXTEND                                         
001925,001259:    7460           17462                           BZF      +2                                    
001926,001260:    7461           07006                           TC       OVERFLOW                              
001927,001261: 

Page 54

001929,001263:    7462           07066                           TC       DMPSUB                                
001930,001264:    7463           52111                           DXCH     VBUF       +2                         #  MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
001931,001265:    7464           52144                           DXCH     MPAC       +3                         #  AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
001932,001266:    7465           52141                           DXCH     MPAC                                  #  Y COMPONENT OF THE RESULT.
001933,001267:    7466           20144                           DAS      MPAC       +3                         
001934,001268: 
001935,001269:    7467           00006                           EXTEND                                         
001936,001270:    7470           17472                           BZF      +2                                    
001937,001271:    7471           07006                           TC       OVERFLOW                              
001938,001272: 
001939,001273:    7472           07066                           TC       DMPSUB                                
001940,001274:    7473           52113                           DXCH     VBUF       +4                         #  GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
001941,001275:    7474           16753                           TCF      ENDVXV                                #  COMPONENT (TAIL END OF DAD).
001942,001276: 
001943,001277:                                                                                                  #           THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
001944,001278: 
001945,001279:    7475           00006        MPACVBUF           EXTEND                                         #  CALLED BY MXV, VXM, AND UNIT.
001946,001280:    7476           30141                           DCA      MPAC                                  
001947,001281:    7477           52107                           DXCH     VBUF                                  
001948,001282:    7500           00006                           EXTEND                                         
001949,001283:    7501           30144                           DCA      MPAC       +3                         
001950,001284:    7502           52111                           DXCH     VBUF       +2                         
001951,001285:    7503           00006                           EXTEND                                         
001952,001286:    7504           30146                           DCA      MPAC       +5                         
001953,001287:    7505           52113                           DXCH     VBUF       +4                         
001954,001288:    7506           00002                           TC       Q                                     #  RETURN TO CALLER.
001955,001289: 

Page 55

001957,001291:                                                                                                  #           INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
001958,001292: 
001959,001293:    7507           07066        DMP1               TC       DMPSUB                                #  DMP INSTRUCTION.
001960,001294:    7510           16014                           TCF      DANZIG                                
001961,001295: 
001962,001296:    7511           07066        DMPR               TC       DMPSUB                                
001963,001297:    7512           07115                           TC       ROUNDSUB                              
001964,001298:    7513           16014                           TCF      DANZIG                                
001965,001299: 
001966,001300:    7514           00006        DDV                EXTEND                                         
001967,001301:    7515           50102                           INDEX    ADDRWD                                #  MOVE DIVIDEND INTO BUF.
001968,001302:    7516           30001                           DCA      0                                     
001969,001303:    7517           17524                           TCF      BDDV       +4                         
001970,001304: 
001971,001305:    7520           00006        BDDV               EXTEND                                         #  MOVE DIVISOR INTO MPAC SAVING MPAC, THE
001972,001306:    7521           50102                           INDEX    ADDRWD                                #  DIVIDEND, IN BUF.
001973,001307:    7522           30001                           DCA      0                                     
001974,001308:    7523           52141                           DXCH     MPAC                                  
001975,001309:    7524           52115                 +4        DXCH     BUF                                   
001976,001310:    7525           37653                           CAF      ZERO                                  #  DIVIDE ROUTINES IN BANK 0.
001977,001311:    7526           54004                           TS       FBANK                                 
001978,001312:    7527           12332                           TCF      DDV/BDDV                              
001979,001313: 
001980,001314:    7530           30102        SETPD              CA       ADDRWD                                #  ANYWHERE IN ERASABLE IN GENERAL, BUT
001981,001315:    7531           54152                           TS       PUSHLOC                               #  ALMOST ALWAYS IN THE WORK AREA.
001982,001316:    7532           16014                           TCF      DANZIG                                
001983,001317: 
001984,001318:    7533           37653        TSLC               CAF      ZERO                                  #  SHIFTING ROUTINES LOCATED IN BANK 00.
001985,001319:    7534           54004                           TS       FBANK                                 
001986,001320:    7535           12153                           TCF      TSLC2                                 
001987,001321: 
001988,001322:    7536           36027        GSHIFT             CAF      LOW7                                  #  USED AS MASK AT GENSHIFT. THIS PROCESSES
001989,001323:    7537           54004                           TS       FBANK                                 #  ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
001990,001324:    7540           12174                           TCF      GENSHIFT                              #  AN ADDRESS (ROUTINES IN BANK 0).
001991,001325: 

Page 56

001993,001327:                                                                                                  #           THE FOLLOWING IS THE PROLOGUE TO V/SC. IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
001994,001328:                                                                                                  #  AND CALLS THE V/SC ROUTINE IN BANK 0. IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
001995,001329:                                                                                                  #  THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
001996,001330: 
001997,001331: 
001998,001332: 
001999,001333:    7541           10147        V/SC               CCS      MODE                                  
002000,001334:    7542           17553                           TCF      DV/SC                                 #  MOVE VECTOR INTO MPAC.
002001,001335:    7543           17553                           TCF      DV/SC                                 
002002,001336: 
002003,001337:    7544           00006        VV/SC              EXTEND                                         
002004,001338:    7545           50102                           INDEX    ADDRWD                                
002005,001339:    7546           30001                           DCA      0                                     
002006,001340:    7547           52115        V/SC1              DXCH     BUF                                   #  IN BOTH CASES, VECTOR IS NOW IN MPAC AND
002007,001341:    7550           37653                           CAF      ZERO                                  #  SCALAR IN BUF.
002008,001342:    7551           54004                           TS       FBANK                                 
002009,001343:    7552           12576                           TCF      V/SC2                                 
002010,001344: 
002011,001345:    7553           00006        DV/SC              EXTEND                                         
002012,001346:    7554           50102                           INDEX    ADDRWD                                
002013,001347:    7555           30003                           DCA      2                                     
002014,001348:    7556           52144                           DXCH     MPAC       +3                         
002015,001349:    7557           00006                           EXTEND                                         
002016,001350:    7560           50102                           INDEX    ADDRWD                                
002017,001351:    7561           30005                           DCA      4                                     
002018,001352:    7562           52146                           DXCH     MPAC       +5                         
002019,001353: 
002020,001354:    7563           47646                           CS       ONE                                   #  CHANGE MODE TO VECTOR.
002021,001355:    7564           54147                           TS       MODE                                  
002022,001356: 
002023,001357:    7565           00006                           EXTEND                                         
002024,001358:    7566           50102                           INDEX    ADDRWD                                
002025,001359:    7567           30001                           DCA      0                                     
002026,001360:    7570           52141                           DXCH     MPAC                                  
002027,001361:    7571           17547                           TCF      V/SC1                                 #  FINISH PROLOGUE AT COMMON SECTION.
002028,001362: 

Page 57

002030,001364:                                                                                                  #           SIGN AND COMPLEMENT INSTRUCTIONS.
002031,001365: 
002032,001366:    7572           50102        SIGN               INDEX    ADDRWD                                #  CALL COMP INSTRUCTION IF WORD AT X IS
002033,001367:    7573           10000                           CCS      0                                     #  NEGATIVE NON-ZERO.
002034,001368:    7574           16014                           TCF      DANZIG                                
002035,001369:    7575           17577                           TCF      +2                                    
002036,001370:    7576           17605                           TCF      COMP                                  #  DO THE COMPLEMENT.
002037,001371: 
002038,001372:    7577           50102                           INDEX    ADDRWD                                
002039,001373:    7600           10001                           CCS      1                                     
002040,001374:    7601           16014                           TCF      DANZIG                                
002041,001375:    7602           16014                           TCF      DANZIG                                
002042,001376:    7603           17605                           TCF      COMP                                  
002043,001377:    7604           16014                           TCF      DANZIG                                
002044,001378: 
002045,001379: 
002046,001380: 
002047,001381:    7605           00006        COMP               EXTEND                                         #  COMPLEMENT DP MPAC IN EVERY CASE.
002048,001382:    7606           40141                           DCS      MPAC                                  
002049,001383:    7607           52141                           DXCH     MPAC                                  
002050,001384: 
002051,001385:    7610           10147                           CCS      MODE                                  #  EITHER COMPLEMENT MPAC +3 OR THE REST OF
002052,001386:    7611           17622                           TCF      DCOMP                                 #  THE VECTOR ACCUMULATOR.
002053,001387:    7612           17622                           TCF      DCOMP                                 
002054,001388: 
002055,001389:    7613           00006                           EXTEND                                         #  VECTOR COMPLEMENT.
002056,001390:    7614           40144                           DCS      MPAC       +3                         
002057,001391:    7615           52144                           DXCH     MPAC       +3                         
002058,001392:    7616           00006                           EXTEND                                         
002059,001393:    7617           40146                           DCS      MPAC       +5                         
002060,001394:    7620           52146                           DXCH     MPAC       +5                         
002061,001395:    7621           16014                           TCF      DANZIG                                
002062,001396: 
002063,001397:    7622           40142        DCOMP              CS       MPAC       +2                         
002064,001398:    7623           54142                           TS       MPAC       +2                         
002065,001399:    7624           16014                           TCF      DANZIG                                
002066,001400: 

Page 58

002068,001402:                                                                                                  #           CONSTANTS REQUIRED IN FIXED-FIXED.
002069,001403: 
002070,001404:    7625           37777        DPOSMAX            OCT      37777                                 
002071,001405:    7626           37777        POSMAX             OCT      37777                                 
002072,001406:    7627           57777        NEG1/2             OCT      -20000                                #  MUST BE TWO LOCATIONS AHEAD OF POS1/2.
002073,001407: 
002074,001408:    7630           40000        BIT15              OCT      40000                                 #  BIT TABLE FOLLOWS.
002075,001409:    7631           20000        BIT14              OCT      20000                                 
002076,001410:    7632           10000        BIT13              OCT      10000                                 
002077,001411:    7633           04000        BIT12              OCT      04000                                 
002078,001412:    7634           02000        BIT11              OCT      02000                                 
002079,001413:    7635           01000        BIT10              OCT      01000                                 
002080,001414:    7636           00400        BIT9               OCT      00400                                 
002081,001415:    7637           00200        BIT8               OCT      00200                                 
002082,001416:    7640           00100        BIT7               OCT      00100                                 
002083,001417:    7641           00040        BIT6               OCT      00040                                 
002084,001418:    7642           00020        BIT5               OCT      00020                                 
002085,001419:    7643           00010        BIT4               OCT      00010                                 
002086,001420:    7644           00004        BIT3               OCT      00004                                 
002087,001421:    7645           00002        BIT2               OCT      00002                                 
002088,001422:    7646           00001        BIT1               OCT      00001                                 
002089,001423: 
002090,001424:    7647     7630               NEGMAX             EQUALS   BIT15                                 
002091,001425:    7647     7631               HALF               EQUALS   BIT14                                 
002092,001426:    7647     7631               POS1/2             EQUALS   HALF                                  
002093,001427:    7647     7632               QUARTER            EQUALS   BIT13                                 
002094,001428:    7647     7634               2K                 EQUALS   BIT11                                 
002095,001429:    7647           00013        ELEVEN             DEC      11         B-14                       
002096,001430:    7650     7647               NOUTCON            =        ELEVEN                                
002097,001431:    7650           00012        TEN                DEC      10         B-14                       
002098,001432:    7651           00011        NINE               DEC      9          B-14                       
002099,001433:    7652     7643               EIGHT              EQUALS   BIT4                                  
002100,001434:    7652           00007        SEVEN              OCT      7                                     
002101,001435:    7653     6162               SIX                EQUALS   REVCNT                                
002102,001436:    7653     7644               FOUR               EQUALS   BIT3                                  
002103,001437:    7653     6165               THREE              EQUALS   NO.WDS     +1                         
002104,001438:    7653     7645               TWO                EQUALS   BIT2                                  
002105,001439:    7653     7646               ONE                EQUALS   BIT1                                  
002106,001440:    7653           00000        ZERO               OCT      0                                     
002107,001441:    7654           77777        NEG0               OCT      77777                                 
002108,001442:    7655           77776        NEGONE             DEC      -1         B-14                       
002109,001443: 
002110,001444:    7656     7655               NEG1               =        NEGONE                                
002111,001445:    7656           77775        NEG2               OCT      77775                                 
002112,001446:    7657     7652               LOW3               EQUALS   SEVEN                                 
002113,001447:    7657     6165               LOW2               EQUALS   THREE                                 
002114,001448: 
002115,001449:    7657           00031        CALLCODE           OCT      00031                                 
002116,001450:    7660           40014        DLOADCOD           OCT      40014                                 
002117,001451:    7661     7630               VLOADCOD           EQUALS   BIT15                                 

Page 59

002119,001453:    7661           40015        DLOAD*             OCT      40015                                 
002120,001454:    7662     6042               VLOAD*             EQUALS   OCT40001                              
002121,001455:    7662           00106        LVBUF              ADRES    VBUF                                  
002122,001456: 

Page 60

002124,001458:                                                                                                  #  SHIFTING AND ROUNDING PACKAGE.
002125,001459: 
002126,001460:                                                                                                  #           THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
002127,001461: 
002128,001462:                                                                                                  #           1.  SR1 TO SR4         SCALAR SHIFT RIGHT.
002129,001463:                                                                                                  #           2.  SR1R TO SR4R       SCALAR SHIFT RIGHT AND ROUND.
002130,001464:                                                                                                  #           3.  SL1 TO SL4         SCALAR SHIFT LEFT.
002131,001465:                                                                                                  #           4.  SL1R TO SL4R       SCALAR SHIFT LEFT AND ROUND.
002132,001466: 
002133,001467:                                                                                                  #           5.  VSR1 TO VSR8       VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
002134,001468:                                                                                                  #           6.  VSL1 TO VSL8       VECTOR SHIFT LEFT (NEVER ROUNDS).
002135,001469: 
002136,001470:                                                                                                  #           THE FOLLOWING CODES REQUIRE AN ADDRESS WHICH MAY BE INDEXED:*
002137,001471: 
002138,001472:                                                                                                  #           1.  SR                 SCALAR SHIFT RIGHT.
002139,001473:                                                                                                  #           2.  SRR                SCALAR SHIFT RIGHT AND ROUND.
002140,001474:                                                                                                  #           3.  SL                 SCALAR SHIFT LEFT.
002141,001475:                                                                                                  #           4.  SLR                SCALAR SHIFT LEFT AND ROUND.
002142,001476: 
002143,001477:                                                                                                  #           5.  VSR                VECTOR SHIFT RIGHT.
002144,001478:                                                                                                  #           6.  VSL                VECTOR SHIFT LEFT.
002145,001479: 
002146,001480:                                                                                                  #  *  IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
002147,001481:                                                                                                  #  ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
002148,001482: 
002149,001483: 
002150,001484: 
002151,001485: 00,2000                                           SETLOC   10000                                 #  BANK 0 PORTION FOLLOWS.
002152,001486: 
002153,001487: 00,2000           36162        SHORTT             CAF      SIX                                   #  SCALAR SHORT SHIFTS COME HERE. THE SHIFT
002154,001488: 00,2001           70020                           MASK     CYR                                   #  COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
002155,001489: 00,2002           54021                           TS       SR                                    #  ROUNDING BIT IS IN BIT1 AT THIS POINT.
002156,001490: 
002157,001491: 00,2003           10020                           CCS      CYR                                   #  SEE IF RIGHT OR LEFT SHIFT DESIRED.
002158,001492: 00,2004           12062                           TCF      TSSL                                  #  SHIFT LEFT.
002159,001493: 
002160,001494: 00,2005           00024        SRDDV              DEC      20         B-14                       #  MPTEMP SETTING FOR SR BEFORE DDV.
002161,001495: 
002162,001496: 00,2006           50021        TSSR               INDEX    SR                                    #  GET SHIFTING BIT.
002163,001497: 00,2007           37631                           CAF      BIT14                                 
002164,001498: 00,2010           54121                           TS       MPTEMP                                
002165,001499: 
002166,001500: 00,2011           10020                           CCS      CYR                                   #  SEE IF A ROUND IS DESIRED.
002167,001501: 00,2012           02031        RIGHTR             TC       MPACSRND                              #  YES - SHIFT RIGHT AND ROUND.
002168,001502: 00,2013           16014                           TCF      DANZIG                                
002169,001503: 

Page 61

002171,001505: 00,2014           30121        MPACSHR            CA       MPTEMP                                #  DO A TRIPLE PRECISION SHIFT RIGHT.
002172,001506: 00,2015           00006                           EXTEND                                         
002173,001507: 00,2016           70142                           MP       MPAC       +2                         
002174,001508: 00,2017           54142                 +3        TS       MPAC       +2                         #  (EXIT FROM SQRT AND ABVAL).
002175,001509: 00,2020           30121                           CA       MPTEMP                                
002176,001510: 00,2021           00006                           EXTEND                                         
002177,001511: 00,2022           70140                           MP       MPAC                                  #  SHIFT MAJOR PART INTO A,L AND PLACE IN
002178,001512: 00,2023           52141                           DXCH     MPAC                                  #  MPAC,+1.
002179,001513: 00,2024           30121                           CA       MPTEMP                                
002180,001514: 00,2025           00006                           EXTEND                                         
002181,001515: 00,2026           70001                           MP       L                                     #  ORIGINAL C(MPAC +1).
002182,001516: 00,2027           20142                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
002183,001517: 00,2030           16014                           TCF      DANZIG                                
002184,001518: 
002185,001519:                                                                                                  #           MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
002186,001520: 
002187,001521: 00,2031           30142        MPACSRND           CA       MPAC       +2                         #  WE HAVE TO DO ALL THREE MULTIPLIES SINCE
002188,001522: 00,2032           00006                           EXTEND                                         #  MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
002189,001523: 00,2033           70121                           MP       MPTEMP                                #  DISAGREEMENT WITH A SHIFT RIGHT OF 1.
002190,001524: 00,2034           56141                           XCH      MPAC       +1                         
002191,001525: 00,2035           00006                           EXTEND                                         
002192,001526: 00,2036           70121                           MP       MPTEMP                                
002193,001527: 00,2037           56141                           XCH      MPAC       +1                         #  TRIAL MINOR PART.
002194,001528: 00,2040           60001                           AD       L                                     
002195,001529: 
002196,001530: 00,2041           60000        VSHR2              DOUBLE                                         #  (FINISH VECTOR COMPONENT SHIFT RIGHT
002197,001531: 00,2042           54142                           TS       MPAC       +2                         #  AND ROUND.
002198,001532: 00,2043           12045                           TCF      +2                                    
002199,001533: 00,2044           26141                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
002200,001534: 
002201,001535: 00,2045           37653                           CAF      ZERO                                  
002202,001536: 00,2046           54142                           TS       MPAC       +2                         
002203,001537: 00,2047           56140                           XCH      MPAC                                  #  SETTING TO ZERO SO FOLLOWING DAS WORKS.
002204,001538: 00,2050           00006                           EXTEND                                         
002205,001539: 00,2051           70121                           MP       MPTEMP                                
002206,001540: 00,2052           20141                           DAS      MPAC                                  #  AGAIN NO OVERFLOW.
002207,001541: 00,2053           00002                           TC       Q                                     
002208,001542: 
002209,001543: 00,2054           30121        VSHRRND            CA       MPTEMP                                #  ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
002210,001544: 00,2055           00006                           EXTEND                                         #  MPAC CONTAINS A VECTOR COMPONENT.
002211,001545: 00,2056           70141                           MP       MPAC       +1                         
002212,001546: 00,2057           54141                           TS       MPAC       +1                         
002213,001547: 00,2060           56001                           XCH      L                                     
002214,001548: 00,2061           12041                           TCF      VSHR2                                 #  GO ADD ONE IF NECESSARY AND FINISH.
002215,001549: 

Page 62

002217,001551:                                                                                                  #           ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
002218,001552: 
002219,001553: 00,2062           30021        TSSL               CA       SR                                    #  GET SHIFT COUNT FOR SR.
002220,001554: 00,2063           54121                 +1        TS       MPTEMP                                
002221,001555: 
002222,001556: 00,2064           00006                 +2        EXTEND                                         #  ENTRY HERE FROM SL FOR SCALARS.
002223,001557: 00,2065           30142                           DCA      MPAC       +1                         #  SHIFTING LEFT ONE PLACE AT A TIME IS
002224,001558: 00,2066           20142                           DAS      MPAC       +1                         #  FASTER THAN DOING THE WHOLE SHIFT WITH
002225,001559: 00,2067           60140                           AD       MPAC                                  #  MULTIPLIES ASSUMING THAT FREQUENCY OF
002226,001560: 00,2070           60140                           AD       MPAC                                  #  SHIFT COUNTS GOES DOWN RAPIDLY AS A
002227,001561: 00,2071           54140                           TS       MPAC                                  #  FUNCTION OF THEIR MAGNITUDE.
002228,001562: 00,2072           12074                           TCF      +2                                    
002229,001563: 00,2073           54105                           TS       OVFIND                                #  OVERFLOW. (LEAVES OVERFLOW-CORRECTED
002230,001564:                                                                                                  #  RESULT ANYWAY).
002231,001565: 00,2074           10121                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNT.
002232,001566: 00,2075           12063                           TCF      TSSL       +1                         
002233,001567: 
002234,001568: 00,2076           10020                           CCS      CYR                                   #  SEE IF ROUND WANTED.
002235,001569: 00,2077           07115                           TC       ROUNDSUB                              #  YES - ROUND AND EXIT.
002236,001570: 00,2100           16014                           TCF      DANZIG                                #  SL LEAVES A ZERO IN CYR FOR NO ROUND.
002237,001571: 00,2101           16014                           TCF      DANZIG                                #  NO - EXIT IMMEDIATL
002238,001572: 

Page 63

002240,001574:                                                                                                  #  VECTOR SHIFTING ROUTINES.
002241,001575: 
002242,001576: 00,2102           37652        SHORTV             CAF      LOW3                                  #  SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
002243,001577: 00,2103           70020                           MASK     CYR                                   #  EDITING CYR.
002244,001578: 00,2104           54121                           TS       MPTEMP                                
002245,001579: 00,2105           10020                           CCS      CYR                                   #  SEE IF LEFT OR RIGHT SHIFT.
002246,001580: 00,2106           12126                           TCF      VSSL                                  #  VECTOR SHIFT LEFT.
002247,001581: 00,2107           00176        OCT176             OCT      176                                   #  USED IN PROCESSED SHIFTS WITH - COUNT.
002248,001582: 
002249,001583: 00,2110           50121        VSSR               INDEX    MPTEMP                                #  (ENTRY FROM SR). PICK UP SHIFTING BIT.
002250,001584: 00,2111           37631                           CAF      BIT14                                 #  MPTEMP CONTAINS THE SHIFT COUNT - 1.
002251,001585: 00,2112           54121                           TS       MPTEMP                                
002252,001586: 00,2113           02054                           TC       VSHRRND                               #  SHIFT X COMPONENT.
002253,001587: 
002254,001588: 00,2114           52141                           DXCH     MPAC                                  #  SWAP X AND Y COMPONENTS.
002255,001589: 00,2115           52144                           DXCH     MPAC       +3                         
002256,001590: 00,2116           52141                           DXCH     MPAC                                  
002257,001591: 00,2117           02054                           TC       VSHRRND                               #  SHIFT Y COMPONENT.
002258,001592: 
002259,001593: 00,2120           52141                           DXCH     MPAC                                  #  SWAP Y AND Z COMPONENTS.
002260,001594: 00,2121           52146                           DXCH     MPAC       +5                         
002261,001595: 00,2122           52141                           DXCH     MPAC                                  
002262,001596: 00,2123           02054                           TC       VSHRRND                               #  SHIFT Z COMPONENT.
002263,001597: 
002264,001598: 00,2124           17364                           TCF      VROTATEX                              #  RESTORE COMPONENTS TO PROPER PLACES.
002265,001599: 

Page 64

002267,001601:                                                                                                  #  VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
002268,001602: 
002269,001603: 00,2125           54121                 -1        TS       MPTEMP                                #  SHIFTING LOOP.
002270,001604: 
002271,001605: 00,2126           00006        VSSL               EXTEND                                         
002272,001606: 00,2127           30141                           DCA      MPAC                                  
002273,001607: 00,2130           20141                           DAS      MPAC                                  
002274,001608: 00,2131           00006                           EXTEND                                         
002275,001609: 00,2132           12134                           BZF      +2                                    
002276,001610: 00,2133           07006                           TC       OVERFLOW                              
002277,001611: 
002278,001612: 00,2134           00006                           EXTEND                                         
002279,001613: 00,2135           30144                           DCA      MPAC       +3                         
002280,001614: 00,2136           20144                           DAS      MPAC       +3                         
002281,001615: 00,2137           00006                           EXTEND                                         
002282,001616: 00,2140           12142                           BZF      +2                                    
002283,001617: 00,2141           07006                           TC       OVERFLOW                              
002284,001618: 
002285,001619: 00,2142           00006                           EXTEND                                         
002286,001620: 00,2143           30146                           DCA      MPAC       +5                         
002287,001621: 00,2144           20146                           DAS      MPAC       +5                         
002288,001622: 00,2145           00006                           EXTEND                                         
002289,001623: 00,2146           12150                           BZF      +2                                    
002290,001624: 00,2147           07006                           TC       OVERFLOW                              
002291,001625: 
002292,001626: 00,2150           10121                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNTER.
002293,001627: 00,2151           12125                           TCF      VSSL       -1                         
002294,001628: 00,2152           16014                           TCF      DANZIG                                #  EXIT.
002295,001629: 

Page 65

002297,001631:                                                                                                  #           TSLC - TRIPLE SHIFT LEFT AND COUNT. SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
002298,001632:                                                                                                  #  THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
002299,001633: 
002300,001634: 00,2153           54121        TSLC2              TS       MPTEMP                                #  START BY ZEROING SHIFT COUNT (IN A NOW).
002301,001635: 00,2154           06710                           TC       BRANCH                                #  EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
002302,001636: 00,2155           12157                           TCF      +2                                    
002303,001637: 00,2156           12172                           TCF      ENDTSLC                               #  STORES ZERO SHIFT COUNT IN THIS CASE.
002304,001638: 
002305,001639: 00,2157           30140                           CA       MPAC                                  #  BEGIN NORMALIZATION LOOP.
002306,001640: 00,2160           12167                           TCF      TSLCTEST                              
002307,001641: 
002308,001642: 00,2161           24121        TSLCLOOP           INCR     MPTEMP                                #  INCREMENT SHIFT COUNTER.
002309,001643: 00,2162           00006                           EXTEND                                         
002310,001644: 00,2163           30142                           DCA      MPAC       +1                         
002311,001645: 00,2164           20142                           DAS      MPAC       +1                         
002312,001646: 00,2165           60140                           AD       MPAC                                  
002313,001647: 00,2166           26140                           ADS      MPAC                                  
002314,001648: 00,2167           60000        TSLCTEST           DOUBLE                                         #  SEE IF (ANOTHER) SHIFT IS REQUIRED.
002315,001649: 00,2170           54000                           OVSK                                           
002316,001650: 00,2171           12161                           TCF      TSLCLOOP                              #  YES - INCREMENT COUNT AND SHIFT AGAIN.
002317,001651: 
002318,001652: 00,2172           40121        ENDTSLC            CS       MPTEMP                                
002319,001653: 00,2173           16626                           TCF      STORE1                                #  STORE SHIFT COUNT AND RETURN TO DANZIG.
002320,001654: 

Page 66

002322,001656:                                                                                                  #           THE FOLLOWING ROUTINES PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
002323,001657:                                                                                                  #  THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
002324,001658: 
002325,001659:                                                                                                  #           BITS 1-7    SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
002326,001660:                                                                                                  #           BIT 8       PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
002327,001661:                                                                                                  #           BIT 9       0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
002328,001662:                                                                                                  #           BIT 10      1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
002329,001663:                                                                                                  #           BITS 11-15  0.
002330,001664: 
002331,001665:                                                                                                  #  THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
002332,001666: 
002333,001667: 
002334,001668: 
002335,001669: 00,2174           70102        GENSHIFT           MASK     ADDRWD                                #  GET SHIFT COUNT, TESTING FOR ZERO.
002336,001670: 00,2175           10000                           CCS      A                                     #  (ARRIVES WITH C(A) = LOW7).
002337,001671: 00,2176           12204                           TCF      GENSHFT2                              #  IF NON-ZERO, PROCEED WITH DECREMENTED CT
002338,001672: 
002339,001673: 00,2177           37635                           CAF      BIT10                                 #  ZERO SHIFT COUNT. NO SHIFTS NEEDED BUT
002340,001674: 00,2200           70102                           MASK     ADDRWD                                #  WE MIGHT HAVE TO ROUND MPAC ON SLR AND
002341,001675: 00,2201           10000                           CCS      A                                     #  SRR (SCALAR ONLY).
002342,001676: 00,2202           07115                           TC       ROUNDSUB                              
002343,001677: 00,2203           16014                           TCF      DANZIG                                
002344,001678: 
002345,001679: 00,2204           54121        GENSHFT2           TS       MPTEMP                                #  DECREMENTED SHIFT COUNT TO MPTEMP.
002346,001680: 00,2205           37637                           CAF      BIT8                                  #  TEST MEANING OF LOW SEVEN BIT COUNT IN
002347,001681: 00,2206           00006                           EXTEND                                         #  MPTEMP NOW.
002348,001682: 00,2207           70102                           MP       ADDRWD                                
002349,001683: 00,2210           76165                           MASK     LOW2                                  #  JUMPS ON SHIFT DIRECTION (BIT8) AND
002350,001684: 00,2211           50000                           INDEX    A                                     
002351,001685: 00,2212           12213                           TCF      +1                                    #  ORIGINAL SHIFT DIRECTION (BIT 9).
002352,001686: 00,2213           12312                           TCF      RIGHT-                                #  NEGATIVE SHIFT COUNT FOR SL OR SLR.
002353,001687: 00,2214           12321                           TCF      LEFT                                  #  SL OR SLR.
002354,001688: 00,2215           12316                           TCF      LEFT-                                 #  NEGATIVE SHIFT COUNT WITH SR OR SRR.
002355,001689: 

Page 67

002357,001691:                                                                                                  #           GENERAL SHIFT RIGHT.
002358,001692: 
002359,001693: 00,2216           10147        RIGHT              CCS      MODE                                  #  SEE IF VECTOR OR SCALAR.
002360,001694: 00,2217           12257                           TCF      GENSCR                                
002361,001695: 00,2220           12257                           TCF      GENSCR                                
002362,001696: 
002363,001697: 00,2221           30121                           CA       MPTEMP                                #  SEE IF SHIFT COUNT GREATER THAN 13D.
002364,001698: 00,2222           62273        VRIGHT2            AD       NEG12                                 
002365,001699: 00,2223           00006                           EXTEND                                         
002366,001700: 00,2224           62110                           BZMF     VSSR                                  #  IF SO, BRANCH AND SHIFT IMMEDIATELY.
002367,001701: 
002368,001702: 00,2225           67655                           AD       NEGONE                                #  IF NOT, REDUCE MPTEMP BY A TOTAL OF 14,
002369,001703: 00,2226           54121                           TS       MPTEMP                                #  AND DO A SHIFT RIGHT AND ROUND BY 14.
002370,001704: 00,2227           37653                           CAF      ZERO                                  #  THE ROUND AT THIS STAGE MAY INTRODUCE A
002371,001705: 00,2230           54001                           TS       L                                     #  ONE BIT ERROR IN A SHIFT RIGHT 15D.
002372,001706: 00,2231           56140                           XCH      MPAC                                  
002373,001707: 00,2232           56141                           XCH      MPAC       +1                         
002374,001708: 00,2233           02252                           TC       SETROUND                              #  X COMPONENT NOW SHIFTED, SO MAKE UP THE
002375,001709: 00,2234           20141                           DAS      MPAC                                  #  ROUNDING QUANTITY (0 IN A AND 0 OR +-1
002376,001710:                                                                                                  #  IN L).
002377,001711: 00,2235           56143                           XCH      MPAC       +3                         #  REPEAT THE ABOVE PROCESS FOR Y AND Z.
002378,001712: 00,2236           56144                           XCH      MPAC       +4                         
002379,001713: 00,2237           02252                           TC       SETROUND                              
002380,001714: 00,2240           20144                           DAS      MPAC       +3                         #  NO OVERFLOW ON THESE ADDS.
002381,001715: 
002382,001716: 00,2241           56145                           XCH      MPAC       +5                         
002383,001717: 00,2242           56146                           XCH      MPAC       +6                         
002384,001718: 00,2243           02252                           TC       SETROUND                              
002385,001719: 00,2244           20146                           DAS      MPAC       +5                         
002386,001720: 
002387,001721: 00,2245           10121                           CCS      MPTEMP                                #  SEE IF DONE, DOING FINAL DECREMENT.
002388,001722: 00,2246           12222                           TCF      VRIGHT2                               
002389,001723: 00,2247           13614        TCSUBTR            TCF      SUBTR                                 
002390,001724: 00,2250           04604        BIASLO             DEC      .2974      B-1                        #  SQRT CONSTANT
002391,001725: 
002392,001726: 00,2251           16014                           TCF      DANZIG                                
002393,001727: 
002394,001728: 
002395,001729: 
002396,001730: 00,2252           60000        SETROUND           DOUBLE                                         #  MAKES UP ROUNDING QUANTITY FROM ARRIVING
002397,001731: 00,2253           54142                           TS       MPAC       +2                         #  C(A). L IS ZERO INITIALLY.
002398,001732: 00,2254           37653                           CAF      ZERO                                  
002399,001733: 00,2255           56001                           XCH      L                                     
002400,001734: 00,2256           00002                           TC       Q                                     #  RETURN AND DO THE DAS, RESETTING L TO 0.
002401,001735: 

Page 68

002403,001737:                                                                                                  #           PROCESS SR AND SRR FOR SCALARS.
002404,001738: 
002405,001739: 00,2257           30121        GENSCR             CA       MPTEMP                                #  SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
002406,001740: 00,2260           62273                 +1        AD       NEG12                                 #  THAN 14D.
002407,001741: 00,2261           00006                           EXTEND                                         
002408,001742: 00,2262           62302                           BZMF     DOSSHFT                               #  DO THE SHIFT IMMEDIATELY IF SO.
002409,001743: 
002410,001744: 00,2263           67655                 +4        AD       NEGONE                                #  IF NOT, DECREMENT SHIFT COUNT BY 14D AND
002411,001745: 00,2264           54121                           TS       MPTEMP                                #  SHIFT MPAC RIGHT 14 PLACES.
002412,001746: 00,2265           37653                           CAF      ZERO                                  
002413,001747: 00,2266           56140                           XCH      MPAC                                  
002414,001748: 00,2267           56141                           XCH      MPAC       +1                         
002415,001749: 00,2270           54142                           TS       MPAC       +2                         
002416,001750: 00,2271           10121                           CCS      MPTEMP                                #  SEE IF FINISHED, DO FINAL DECREMENT.
002417,001751: 00,2272           02260                           TC       GENSCR     +1                         
002418,001752: 00,2273           77763        NEG12              DEC      -12        B-14                       
002419,001753: 00,2274           22650        SLOPEHI            DEC      .5884                                 #  SQRT CONSTANT.
002420,001754: 00,2275           37635                           CAF      BIT10                                 #  FINISHED WITH SHIFT. SEE IF ROUND
002421,001755: 00,2276           70102                           MASK     ADDRWD                                #  WANTED.
002422,001756: 00,2277           10000                           CCS      A                                     
002423,001757: 00,2300           07115                           TC       ROUNDSUB                              
002424,001758: 00,2301           16014                           TCF      DANZIG                                #  DO SO AND/OR EXIT.
002425,001759: 
002426,001760: 00,2302           50121        DOSSHFT            INDEX    MPTEMP                                #  PICK UP SHIFTING BIT.
002427,001761: 00,2303           37631                           CAF      BIT14                                 
002428,001762: 00,2304           54121                           TS       MPTEMP                                
002429,001763: 00,2305           37635                           CAF      BIT10                                 #  SEE IF TERMINAL ROUND DESIRED.
002430,001764: 00,2306           70102                           MASK     ADDRWD                                
002431,001765: 00,2307           10000                           CCS      A                                     
002432,001766: 00,2310           12012                           TCF      RIGHTR                                #  YES.
002433,001767: 00,2311           12014                           TCF      MPACSHR                               #  JUST SHIFT RIGHT.
002434,001768: 

Page 69

002436,001770:                                                                                                  #           PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
002437,001771: 
002438,001772: 00,2312           40121        RIGHT-             CS       MPTEMP                                #  GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
002439,001773: 00,2313           62107                           AD       OCT176                                #  UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
002440,001774: 00,2314           54121                           TS       MPTEMP                                #  WAS 1 INITIALLY.
002441,001775: 00,2315           12216                           TCF      RIGHT                                 #  DO NORMAL SHIFT RIGHT.
002442,001776: 
002443,001777: 00,2316           40121        LEFT-              CS       MPTEMP                                #  SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
002444,001778: 00,2317           62107                           AD       OCT176                                #  SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE
002445,001779: 00,2320           54121                           TS       MPTEMP                                
002446,001780: 
002447,001781: 00,2321           10147        LEFT               CCS      MODE                                  #  SINCE LEFT SHIFTING IS SONE ONE PLACE AT
002448,001782: 00,2322           12325                           TCF      GENSCL                                #  A TIME, NO COMPARISON WITH 14 NEED BE
002449,001783: 00,2323           12325                           TCF      GENSCL                                #  DONE. FOR SCALARS, SEE IF TERMINAL ROUND
002450,001784: 00,2324           12126                           TCF      VSSL                                  #  DESIRED. FOR VECTORS, SHIFT IMMEDIATELY.
002451,001785: 
002452,001786: 00,2325           37641        GENSCL             CAF      BIT6                                  #  PUT ROUNDING BIT (BIT10 OF ADDRWD) INTO
002453,001787: 00,2326           00006                           EXTEND                                         #  BIT 15 OF CYR WHERE THE ROUNDING BIT OF
002454,001788: 00,2327           70102                           MP       ADDRWD                                #  A SHORT SHIFT LEFT WOULD BE.
002455,001789: 00,2330           54020                           TS       CYR                                   
002456,001790: 00,2331           12064                           TCF      TSSL       +2                         #  DO THE SHIFT.
002457,001791: 

Page 70

002459,001793:                                                                                                  #           SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE. AT THIS POINT, THE DIVIDEND IS IN MPAC
002460,001794:                                                                                                  #  AND THE DIVISOR IN BUF.
002461,001795: 
002462,001796: 00,2332           47646        DDV/BDDV           CS       ONE                                   #  INITIALIZATION.
002463,001797: 00,2333           54122                           TS       DVSIGN                                #  +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
002464,001798: 00,2334           54123                           TS       DVNORMCT                              #  DIVIDEND NORMALIZATION COUNT.
002465,001799: 00,2335           54124                           TS       MAXDVSW                               #  NEAR-ONE DIVIDE FLAG.
002466,001800: 
002467,001801: 00,2336           10114                           CCS      BUF                                   #  FORCE BUF POSITIVE WITH THE MAJOR PART
002468,001802: 00,2337           12366                           TCF      BUF+                                  #  NON-ZERO.
002469,001803: 00,2340           12342                           TCF      +2                                    
002470,001804: 00,2341           12362                           TCF      BUF-                                  
002471,001805: 
002472,001806: 00,2342           56115                           XCH      BUF        +1                         #  SHIFT DIVIDEND AND DIVISOR LEFT 14.
002473,001807: 00,2343           56114                           XCH      BUF                                   
002474,001808: 00,2344           56141                           XCH      MPAC       +1                         
002475,001809: 00,2345           56140                           XCH      MPAC                                  
002476,001810: 00,2346           00006                           EXTEND                                         #  CHECK FOR OVERFLOW.
002477,001811: 00,2347           12351                           BZF      +2                                    
002478,001812: 00,2350           12355                           TCF      DVOVF                                 
002479,001813: 
002480,001814: 00,2351           10114                           CCS      BUF                                   #  TRY AGAIN ON FORMER MINOR PART.
002481,001815: 00,2352           12366                           TCF      BUF+                                  
002482,001816: 00,2353           12355                           TCF      DVOVF                                 #  OVERFLOW ON ZERO DIVISOR.
002483,001817: 00,2354           12362                           TCF      BUF-                                  
002484,001818: 
002485,001819: 00,2355           37626        DVOVF              CAF      POSMAX                                #  ON DIVISION OVERFLOW OF ANY SORT, SET
002486,001820: 00,2356           54140                           TS       MPAC                                  #  SET DP MPAC TO +-POSMAX.
002487,001821: 00,2357           02552                           TC       FINALDV    +3                         
002488,001822: 00,2360           37646                           CAF      ONE                                   #  SET OVERFLOW INDICATOR AND EXIT.
002489,001823: 00,2361           17060                           TCF      SETOVF                                
002490,001824: 
002491,001825: 00,2362           00006        BUF-               EXTEND                                         #  IF BUF IS NEGATIVE, COMPLEMENT IT AND
002492,001826: 00,2363           40115                           DCS      BUF                                   #  MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
002493,001827: 00,2364           52115                           DXCH     BUF                                   
002494,001828: 00,2365           24122                           INCR     DVSIGN                                #  NOW -0.
002495,001829: 
002496,001830: 00,2366           10140        BUF+               CCS      MPAC                                  #  FORCE MPAC POSITIVE, CHECKING FOR ZERO
002497,001831: 00,2367           12403                           TCF      MPAC+                                 #  DIVIDEND IN THE PROCESS.
002498,001832: 00,2370           12372                           TCF      +2                                    
002499,001833: 00,2371           12377                           TCF      MPAC-                                 
002500,001834: 00,2372           10141                           CCS      MPAC       +1                         
002501,001835: 00,2373           12403                           TCF      MPAC+                                 
002502,001836: 00,2374           16014                           TCF      DANZIG                                #  EXIT IMMEDIATELY ON ZERO DIVIDEND.
002503,001837: 00,2375           12377                           TCF      MPAC-                                 
002504,001838: 00,2376           16014                           TCF      DANZIG                                
002505,001839: 
002506,001840: 00,2377           00006        MPAC-              EXTEND                                         #  FORCE MPAC POSITIVE AS BUF IN BUF-.
002507,001841: 00,2400           40141                           DCS      MPAC                                  
002508,001842: 00,2401           52141                           DXCH     MPAC                                  
002509,001843: 

Page 71

002511,001845: 00,2402           24122                           INCR     DVSIGN                                #  NOW +1 OR -0.
002512,001846: 

Page 72

002514,001848: 00,2403           40140        MPAC+              CS       MPAC                                  #  CHECK FOR DIVISION OVERFLOW. IF THE
002515,001849: 00,2404           67655                           AD       NEGONE                                #  MAJOR PART OF THE DIVIDEND IS LESS THAN
002516,001850: 00,2405           60114                           AD       BUF                                   #  THE MAJOR PART OF THE DIVISOR BY AT
002517,001851: 00,2406           10000                           CCS      A                                     #  LEAST TWO, WE CAN PROCEED IMMEDIATELY
002518,001852: 00,2407           12451                           TCF      DVNORM                                #  WITHOUT NORMALIZATION PRODUCING A DVMAX.
002519,001853: 00,2410           60001        -1/2+2             OCT      60001                                 #  USED IN SQRTSUB.
002520,001854: 
002521,001855: 00,2411           12412                           TCF      +1                                    #  IF THE ABOVE DOES NOT HOLD, FORCE SIGN
002522,001856: 00,2412           37631                           CAF      HALF                                  #  AGREEMENT IN NUMERATOR AND DENOMINATOR
002523,001857: 00,2413           60000                           DOUBLE                                         #  TO FACILITATE OVERFLOW AND NEAR-ONE
002524,001858: 00,2414           60141                           AD       MPAC       +1                         #  CHECKING.
002525,001859: 00,2415           54141                           TS       MPAC       +1                         
002526,001860: 00,2416           37653                           CAF      ZERO                                  
002527,001861: 00,2417           67626                           AD       POSMAX                                
002528,001862: 00,2420           26140                           ADS      MPAC                                  
002529,001863: 
002530,001864: 00,2421           37631                           CAF      HALF                                  #  SAME FOR BUF.
002531,001865: 00,2422           60000                           DOUBLE                                         
002532,001866: 00,2423           60115                           AD       BUF        +1                         
002533,001867: 00,2424           54115                           TS       BUF        +1                         
002534,001868: 00,2425           37653                           CAF      ZERO                                  
002535,001869: 00,2426           67626                           AD       POSMAX                                
002536,001870: 00,2427           26114                           ADS      BUF                                   
002537,001871: 
002538,001872: 00,2430           40140                           CS       MPAC                                  #  CHECK MAGNITUDE OF SIGN-CORRECTED
002539,001873: 00,2431           60114                           AD       BUF                                   #  OPERANDS.
002540,001874: 00,2432           10000                           CCS      A                                     
002541,001875: 00,2433           12451                           TCF      DVNORM                                #  DIVIDE OK - WILL NOT BECOME MAXDV CASE.
002542,001876: 00,2434           00117        LBUF2              ADRES    BUF2                                  
002543,001877: 00,2435           12355                           TCF      DVOVF                                 #  DIVISOR NOT LESS THAN DIVIDEND - OVF.
002544,001878: 
002545,001879: 00,2436           54124                           TS       MAXDVSW                               #  IF THE MAJOR PARTS OF THE DIVIDEND AND
002546,001880: 00,2437           40141                           CS       MPAC       +1                         #  DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
002547,001881: 00,2440           60115                           AD       BUF        +1                         #  TION IS USED (PROVIDED THE DIVISION IS
002548,001882: 00,2441           00006                           EXTEND                                         #  POSSIBLE, OF COURSE).
002549,001883: 00,2442           62355                           BZMF     DVOVF                                 
002550,001884: 00,2443           12451                           TCF      DVNORM                                #  IF NO OVERFLOW.
002551,001885: 

Page 73

002553,001887: 00,2444           00006        BUFNORM            EXTEND                                         #  ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
002554,001888: 00,2445           24123                           AUG      DVNORMCT                              #  LEFT ONE PLACE.
002555,001889: 00,2446           00006                           EXTEND                                         
002556,001890: 00,2447           30115                           DCA      BUF                                   
002557,001891: 00,2450           20115                           DAS      BUF                                   
002558,001892: 
002559,001893: 00,2451           30114        DVNORM             CA       BUF                                   #  SEE IF DIVISOR NORMALIZED YET.
002560,001894: 00,2452           60000                           DOUBLE                                         
002561,001895: 00,2453           54000                           OVSK                                           
002562,001896: 00,2454           12444                           TCF      BUFNORM                               #  NO - SHIFT LEFT ONE AND TRY AGAIN.
002563,001897: 
002564,001898: 00,2455           52141                           DXCH     MPAC                                  #  CALL DIVIDEND NORMALIZATION SEQUENCE
002565,001899: 00,2456           50123                           INDEX    DVNORMCT                              #  PRIOR TO DOING THE DIVIDE.
002566,001900: 00,2457           02507                           TC       MAXTEST                               
002567,001901: 
002568,001902: 00,2460           54142                           TS       MPAC       +2                         #  RETURNS WITH DIVISION DONE AND C(A) = 0.
002569,001903: 00,2461           16014                           TCF      DANZIG                                
002570,001904: 

Page 74

002572,001906:                                                                                                  #           THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
002573,001907: 
002574,001908: 00,2462           22021                 -21D      LXCH     SR                                    #  SPECIAL PROLOGUE FOR UNIT WHEN THE
002575,001909: 00,2463           00006                           EXTEND                                         #  LENGTH OF THE ARGUMENT WAS NOT LESS THAN
002576,001910: 00,2464           77631                           MP       HALF                                  #  .5. IN THIS CASE, EACH COMPONENT MUST BE
002577,001911: 00,2465           56001                           XCH      L                                     #  SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
002578,001912: 00,2466           60021                           AD       SR                                    #  VECTOR.
002579,001913: 00,2467           56001                           XCH      L                                     
002580,001914: 00,2470           12513                           TCF      GENDDV     +1                         #  WITH DP DIVIDEND IN A,L.
002581,001915: 
002582,001916: 00,2471           20001                           DDOUBL                                         #  PROLOGUE WHICH NORMALIZES THE DIVIDEND
002583,001917: 00,2472           20001                           DDOUBL                                         #  WHEN IT IS KNOWN THAT NO DIVISION
002584,001918: 00,2473           20001                           DDOUBL                                         #  OVERFLOW WILL OCCUR.
002585,001919: 00,2474           20001                           DDOUBL                                         
002586,001920: 00,2475           20001                           DDOUBL                                         
002587,001921: 00,2476           20001                           DDOUBL                                         
002588,001922: 00,2477           20001                           DDOUBL                                         
002589,001923: 00,2500           20001                           DDOUBL                                         
002590,001924: 00,2501           20001                           DDOUBL                                         
002591,001925: 00,2502           20001                           DDOUBL                                         
002592,001926: 00,2503           20001                           DDOUBL                                         
002593,001927: 00,2504           20001                           DDOUBL                                         
002594,001928: 00,2505           20001                           DDOUBL                                         
002595,001929: 00,2506           52141                           DXCH     MPAC                                  
002596,001930: 
002597,001931: 00,2507           10124        MAXTEST            CCS      MAXDVSW                               #  0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
002598,001932: 00,2510           06552        BIASHI             DEC      .4192      B-1                        #  SQRT CONSTANTS
002599,001933: 
002600,001934: 00,2511           12564                           TCF      MAXDV                                 #  CHECK TO SEE IF THEY ARE NOW EQUAL.
002601,001935: 

Page 75

002603,001937:                                                                                                  #           THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES
002604,001938:                                                                                                  #  THE RESULT IN MPAC. THE FOLLOWING CONDITIONS MUST BE SATISFIED:
002605,001939: 
002606,001940:                                                                                                  #           1.  THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
002607,001941: 
002608,001942:                                                                                                  #           2.  THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
002609,001943:                                                                                                  #  (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
002610,001944: 
002611,001945:                                                                                                  #           UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
002612,001946:                                                                                                  #  TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
002613,001947:                                                                                                  #  ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT). SIGN AGREEMENT IS UNNECESSARY.
002614,001948: 
002615,001949:                                                                                                  #           A + SB .      (R - QD)                                             A + SB
002616,001950:                                                                                                  #           ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
002617,001951:                                                                                                  #           C + SD        (  C   )                                               C
002618,001952: 
002619,001953: 
002620,001954: 
002621,001955: 00,2512           52141        GENDDV             DXCH     MPAC                                  #  WE NEED A AND B ONLY FOR FIRST DV.
002622,001956: 00,2513           00006                 +1        EXTEND                                         #  (SPECIAL UNIT PROLOGUE ENTERS HERE).
002623,001957: 00,2514           10114                           DV       BUF                                   #  A NOW CONTAINS Q AND L, R.
002624,001958: 00,2515           52141                           DXCH     MPAC                                  
002625,001959: 
002626,001960: 00,2516           40140                           CS       MPAC                                  #  FORM DIVIDEND FOR MINOR PART OF RESULT.
002627,001961: 00,2517           00006                           EXTEND                                         
002628,001962: 00,2520           70115                           MP       BUF        +1                         
002629,001963: 00,2521           60141                           AD       MPAC       +1                         #  OVERFLOW AT THIS POINT IS POSITIVE SINCE
002630,001964: 00,2522           54000                           OVSK                                           #  R IS POSITIVE IN EVERY CASE.
002631,001965: 00,2523           12530                           TCF      +5                                    
002632,001966: 
002633,001967: 00,2524           00006                           EXTEND                                         #  OVERFLOW CAN BE REMOVED BY SUBTRACTING C
002634,001968: 00,2525           60114                           SU       BUF                                   #  (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
002635,001969: 00,2526           24140                           INCR     MPAC                                  #  IN THIS CASE. INCR COMPENSATES SUBTRACT.
002636,001970: 00,2527           12532                           TCF      +DOWN                                 #  (SINCE C(A) IS STILL POSITIVE).
002637,001971: 
002638,001972: 00,2530           00006                 +5        EXTEND                                         #  C(A) CAN BE MADE LESS THAN C IN MAGNI-
002639,001973: 00,2531           62542                           BZMF     -UP                                   #  TUDE BY DIMINISHING IT BY C (SINCE C IS
002640,001974:                                                                                                  #  NOT LESS THAN .5) UNLESS C(A) = 0.
002641,001975: 

Page 76

002643,001977: 00,2532           00006        +DOWN              EXTEND                                         
002644,001978: 00,2533           60114                           SU       BUF                                   #  IF POSITIVE, REDUCE ONLY IF NECESSARY
002645,001979: 00,2534           00006                           EXTEND                                         #  SINCE THE COMPENSATING INCR MIGHT CAUSE
002646,001980: 00,2535           12540                           BZF      +3                                    #  OVERFLOW.
002647,001981: 00,2536           00006                           EXTEND                                         #  DONT SUBTRACT UNLESS RESULT IS POSITIVE
002648,001982: 00,2537           62546                           BZMF     ENDMAXDV                              #  OR ZERO.
002649,001983: 
002650,001984: 00,2540           24140                 +3        INCR     MPAC                                  #  KEEP SUBTRACT HERE AND COMPENSATE.
002651,001985: 00,2541           12547                           TCF      FINALDV                               
002652,001986: 
002653,001987: 00,2542           00006        -UP                EXTEND                                         #  IF ZERO, SET MINOR PART OF RESULT TO
002654,001988: 00,2543           12552                           BZF      FINALDV    +3                         #  ZERO.
002655,001989: 
002656,001990: 00,2544           00006                           EXTEND                                         #  IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
002657,001991: 00,2545           26140                           DIM      MPAC                                  #  TO COMPENSATE. DIM IS OK HERE SINCE THE
002658,001992: 00,2546           60114        ENDMAXDV           AD       BUF                                   #  MAJOR PART NEVER GOES NEGATIVE.
002659,001993: 

Page 77

002661,001995: 00,2547           22007        FINALDV            ZL                                             #  DO DV TO OBTAIN MINOR PART OF RESULT.
002662,001996: 00,2550           00006                           EXTEND                                         
002663,001997: 00,2551           10114                           DV       BUF                                   
002664,001998: 00,2552           54141                 +3        TS       MPAC       +1                         
002665,001999: 
002666,002000: 00,2553           10122                           CCS      DVSIGN                                #  LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
002667,002001: 00,2554           00002                           TC       Q                                     #  -0.
002668,002002: 00,2555           00002                           TC       Q                                     
002669,002003: 00,2556           00002                           TC       Q                                     
002670,002004: 
002671,002005: 00,2557           00006                           EXTEND                                         
002672,002006: 00,2560           40141                           DCS      MPAC                                  
002673,002007: 00,2561           52141                           DXCH     MPAC                                  
002674,002008: 00,2562           37653                           CAF      ZERO                                  #  SO WE ALWAYS RETURN WITH C(A) = 0.
002675,002009: 00,2563           00002                           TC       Q                                     
002676,002010: 

Page 78

002678,002012:                                                                                                  #           IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
002679,002013:                                                                                                  #  DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED. THE ASSUMPTIONS
002680,002014:                                                                                                  #  ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
002681,002015: 
002682,002016:                                                                                                  #                  C + SB .          (C + B - D)
002683,002017:                                                                                                  #                  ------ = 37777 + S(---------)
002684,002018:                                                                                                  #                  C + SD            (    C    )
002685,002019: 
002686,002020:                                                                                                  #           THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
002687,002021: 
002688,002022: 
002689,002023: 
002690,002024: 00,2564           40140        MAXDV              CS       MPAC                                  #  SEE IF MAXDV CASE STILL HOLDS AFTER
002691,002025: 00,2565           60114                           AD       BUF                                   #  NORMALIZATION.
002692,002026: 00,2566           00006                           EXTEND                                         
002693,002027: 00,2567           12571                           BZF      +2                                    
002694,002028: 00,2570           12512                           TCF      GENDDV                                #  MPAC NOW LESS THAN BUF - DIVIDE AS USUAL
002695,002029: 
002696,002030: 00,2571           37626                 +2        CAF      POSMAX                                #  SET MAJOR PART OF RESULT.
002697,002031: 00,2572           54140                           TS       MPAC                                  
002698,002032: 
002699,002033: 00,2573           40115                           CS       BUF        +1                         #  FORM DIVIDEND OF MINOR PART OF RESULT.
002700,002034: 00,2574           60141                           AD       MPAC       +1                         
002701,002035: 00,2575           12546                           TCF      ENDMAXDV                              #  GO ADD C AND DO DIVIDE, ATTACHING SIGN
002702,002036:                                                                                                  #  BEFORE EXITING.
002703,002037: 

Page 79

002705,002039:                                                                                                  #           VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE. THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
002706,002040: 
002707,002041: 00,2576           47646        V/SC2              CS       ONE                                   #  INITIALIZE DIVIDEND NORMALIZATION COUNT
002708,002042: 00,2577           54123                           TS       DVNORMCT                              #  AND DIVISION SIGN REGISTER.
002709,002043: 00,2600           54113                           TS       VBUF       +5                         
002710,002044: 
002711,002045: 00,2601           10114                           CCS      BUF                                   #  FORCE DIVISOR POSITIVE WITH MAJOR PART
002712,002046: 00,2602           12637                           TCF      /BUF+                                 #  NON-ZERO (IF POSSIBLE).
002713,002047: 00,2603           12605                           TCF      +2                                    
002714,002048: 00,2604           12633                           TCF      /BUF-                                 
002715,002049: 
002716,002050: 00,2605           56115                           XCH      BUF        +1                         #  SHIFT VECTOR AND SCALAR LEFT 14.
002717,002051: 00,2606           56114                           XCH      BUF                                   
002718,002052: 00,2607           56141                           XCH      MPAC       +1                         
002719,002053: 00,2610           56140                           XCH      MPAC                                  
002720,002054: 00,2611           00006                           EXTEND                                         #  CHECK FOR OVERFLOW IN EACH CASE.
002721,002055: 00,2612           12614                           BZF      +2                                    
002722,002056: 00,2613           12355                           TCF      DVOVF                                 
002723,002057: 
002724,002058: 00,2614           56144                           XCH      MPAC       +4                         
002725,002059: 00,2615           56143                           XCH      MPAC       +3                         
002726,002060: 00,2616           00006                           EXTEND                                         
002727,002061: 00,2617           12621                           BZF      +2                                    
002728,002062: 00,2620           12355                           TCF      DVOVF                                 
002729,002063: 
002730,002064: 00,2621           56146                           XCH      MPAC       +6                         
002731,002065: 00,2622           56145                           XCH      MPAC       +5                         
002732,002066: 00,2623           00006                           EXTEND                                         
002733,002067: 00,2624           12626                           BZF      +2                                    
002734,002068: 00,2625           12355                           TCF      DVOVF                                 
002735,002069: 
002736,002070: 00,2626           10114                           CCS      BUF                                   
002737,002071: 00,2627           12637                           TCF      /BUF+                                 
002738,002072: 00,2630           12355                           TCF      DVOVF                                 #  ZERO DIVISOR - OVERFLOW.
002739,002073: 00,2631           12633                           TCF      /BUF-                                 
002740,002074: 00,2632           12355                           TCF      DVOVF                                 
002741,002075: 
002742,002076: 00,2633           00006        /BUF-              EXTEND                                         #  ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
002743,002077: 00,2634           40115                           DCS      BUF                                   #  DVSIGN IN VBUF +5.
002744,002078: 00,2635           52115                           DXCH     BUF                                   
002745,002079: 00,2636           24113                           INCR     VBUF       +5                         
002746,002080: 

Page 80

002748,002082: 00,2637           37631        /BUF+              CAF      HALF                                  #  FORCE SIGN AGREEMENT IN DIVISOR.
002749,002083: 00,2640           60000                           DOUBLE                                         
002750,002084: 00,2641           60115                           AD       BUF        +1                         
002751,002085: 00,2642           54115                           TS       BUF        +1                         
002752,002086: 00,2643           37653                           CAF      ZERO                                  
002753,002087: 00,2644           67626                           AD       POSMAX                                
002754,002088: 00,2645           26114                           ADS      BUF                                   
002755,002089: 
002756,002090: 00,2646           56117                           XCH      BUF2                                  #  LEAVE ABS(ORIGINAL DIVISOR) IN BUF2 FOR
002757,002091: 00,2647           30115                           CA       BUF        +1                         #  OVERFLOW TESTING.
002758,002092: 00,2650           54120                           TS       BUF2       +1                         
002759,002093: 00,2651           12657                           TCF      /NORM                                 #  NORMALIZE DIVISOR IN BUF.
002760,002094: 
002761,002095: 00,2652           00006        /NORM2             EXTEND                                         #  IF LESS THAN .5, AUGMENT DVNORMCT AND
002762,002096: 00,2653           24123                           AUG      DVNORMCT                              #  DOUBLE DIVISOR.
002763,002097: 00,2654           00006                           EXTEND                                         
002764,002098: 00,2655           30115                           DCA      BUF                                   
002765,002099: 00,2656           20115                           DAS      BUF                                   
002766,002100: 
002767,002101: 00,2657           30114        /NORM              CA       BUF                                   #  SEE IF DIVISOR NORMALIZED.
002768,002102: 00,2660           60000                           DOUBLE                                         
002769,002103: 00,2661           54000                           OVSK                                           
002770,002104: 00,2662           12652                           TCF      /NORM2                                #  DOUBLE AND TRY AGAIN IF NOT.
002771,002105: 
002772,002106: 00,2663           02675                           TC       V/SCDV                                #  DO X COMPONENT DIVIDE.
002773,002107: 00,2664           52144                           DXCH     MPAC       +3                         #  SUPPLY ARGUMENTS IN USUAL SEQUENCE.
002774,002108: 00,2665           52141                           DXCH     MPAC                                  
002775,002109: 00,2666           52144                           DXCH     MPAC       +3                         
002776,002110: 
002777,002111: 00,2667           02675                           TC       V/SCDV                                #  Y COMPONENT.
002778,002112: 00,2670           52146                           DXCH     MPAC       +5                         
002779,002113: 00,2671           52141                           DXCH     MPAC                                  
002780,002114: 00,2672           52146                           DXCH     MPAC       +5                         
002781,002115: 
002782,002116: 00,2673           02675                           TC       V/SCDV                                #  Z COMPONENT.
002783,002117: 00,2674           17364                           TCF      VROTATEX                              #  GO RE-ARRANGE COMPONENTS BEFORE EXIT.
002784,002118: 

Page 81

002786,002120:                                                                                                  #           SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
002787,002121: 
002788,002122: 00,2675           30113        V/SCDV             CA       VBUF       +5                         #  REFLECTS SIGN OF SCALAR.
002789,002123: 00,2676           54122                           TS       DVSIGN                                
002790,002124: 
002791,002125: 00,2677           10140                           CCS      MPAC                                  #  FORCE MPAC POSITIVE, EXITING ON ZERO.
002792,002126: 00,2700           12714                           TCF      /MPAC+                                
002793,002127: 00,2701           12703                           TCF      +2                                    
002794,002128: 00,2702           12710                           TCF      /MPAC-                                
002795,002129: 
002796,002130: 00,2703           10141                           CCS      MPAC       +1                         
002797,002131: 00,2704           12714                           TCF      /MPAC+                                
002798,002132: 00,2705           00002                           TC       Q                                     
002799,002133: 00,2706           12710                           TCF      /MPAC-                                
002800,002134: 00,2707           00002                           TC       Q                                     
002801,002135: 
002802,002136: 00,2710           00006        /MPAC-             EXTEND                                         #  USUAL COMPLEMENTING AND SETTING OF SIGN.
002803,002137: 00,2711           40141                           DCS      MPAC                                  
002804,002138: 00,2712           52141                           DXCH     MPAC                                  
002805,002139: 00,2713           24122                           INCR     DVSIGN                                
002806,002140: 
002807,002141: 00,2714           47646        /MPAC+             CS       ONE                                   #  INITIALIZE NEAR-ONE SWITCH.
002808,002142: 00,2715           54124                           TS       MAXDVSW                               
002809,002143: 
002810,002144: 00,2716           40140                           CS       MPAC                                  #  CHECK POSSIBLE OVERFLOW.
002811,002145: 00,2717           60117                           AD       BUF2                                  #  UNNORMALIZED INPUT DIVISOR.
002812,002146: 00,2720           00006                           EXTEND                                         
002813,002147: 00,2721           62725                           BZMF     /AGREE                                #  CHECK FOR NEAR-ONE OR OVERFLOW.
002814,002148: 
002815,002149: 00,2722           52141        DDVCALL            DXCH     MPAC                                  #  CALL PRE-DIVIDE NORMALIZATION.
002816,002150: 00,2723           50123                           INDEX    DVNORMCT                              
002817,002151: 00,2724           12507                           TCF      MAXTEST                               
002818,002152: 

Page 82

002820,002154: 00,2725           37631        /AGREE             CAF      HALF                                  #  FORCE SIGN AGREEMENT IN DIVIDEND
002821,002155: 00,2726           60000                           DOUBLE                                         #  (ALREADY DONE FOR DIVISOR).
002822,002156: 00,2727           60141                           AD       MPAC       +1                         
002823,002157: 00,2730           54141                           TS       MPAC       +1                         
002824,002158: 00,2731           37653                           CAF      ZERO                                  
002825,002159: 00,2732           67626                           AD       POSMAX                                
002826,002160: 00,2733           26140                           ADS      MPAC                                  
002827,002161: 
002828,002162: 00,2734           40140                           CS       MPAC                                  #  CHECK TO SEE IF OVERFLOW GONE OR IF
002829,002163: 00,2735           60117                           AD       BUF2                                  #  NEAR-ONE CASE IS PRESENT.
002830,002164: 00,2736           10000                           CCS      A                                     
002831,002165: 00,2737           12722                           TCF      DDVCALL                               #  NOT NEAR-ONE.
002832,002166: 00,2740           32506        SLOPELO            DEC      .8324                                 
002833,002167: 00,2741           12355                           TCF      DVOVF                                 #  NO HOPE.
002834,002168: 
002835,002169: 00,2742           54124                           TS       MAXDVSW                               #  SIGNAL POSSIBLE NEAR-ONE CASE.
002836,002170: 00,2743           40141                           CS       MPAC       +1                         #  SEE IF DIVISION CAN BE DONE.
002837,002171: 00,2744           60120                           AD       BUF2       +1                         
002838,002172: 00,2745           00006                           EXTEND                                         
002839,002173: 00,2746           62355                           BZMF     DVOVF                                 
002840,002174: 00,2747           12722                           TCF      DDVCALL                               #  GOING TO MAXDV.
002841,002175: 

Page 83

002843,002177:                                                                                                  #           THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
002844,002178: 
002845,002179: 00,2750           07475        UNIT               TC       MPACVBUF                              #  SAVE THE ARGUMENT IN VBUF.
002846,002180: 00,2751           03236                           TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
002847,002181: 00,2752           00006                           EXTEND                                         
002848,002182: 00,2753           30141                           DCA      MPAC                                  #  LEAVE THE SQUARE OF THE LENGTH OF THE
002849,002183: 00,2754           50104                           INDEX    FIXLOC                                #  ARGUMENT IN LVSQUARE.
002850,002184: 00,2755           52043                           DXCH     LVSQUARE                              
002851,002185: 
002852,002186: 00,2756           03262                           TC       SQRTSUB                               #  GO TAKE THE NORMALIZED SQUARE ROOT.
002853,002187: 
002854,002188: 00,2757           10140                           CCS      MPAC                                  #  CHECK FOR UNIT OVERFLOW.
002855,002189: 00,2760           12762                           TCF      +2                                    #  MPAC IS NOT LESS THAN .5 UNLESS THE
002856,002190: 00,2761           12355                           TCF      DVOVF                                 #  INPUT TO SQRTSUB WAS 0.
002857,002191: 
002858,002192: 00,2762           43063                           CS       FOURTEEN                              #  SEE IF THE INPUT WAS SO SMALL THE THE
002859,002193: 00,2763           60121                           AD       MPTEMP                                #  FIRST TWO REGISTERS OF THE SQUARE WERE 0
002860,002194: 00,2764           10000                           CCS      A                                     
002861,002195: 00,2765           40000                           COM                                            #  IF SO, SAVE THE NEGATIVE OF THE SHIFT
002862,002196: 00,2766           13044                           TCF      SMALL                                 #  COUNT -15D.
002863,002197: 
002864,002198: 00,2767           12776                           TCF      LARGE                                 #  (THIS IS USUALLY THE CASE.)
002865,002199: 
002866,002200: 00,2770           43062                           CS       THIRTEEN                              #  IF THE SHIFT COUNT WAS EXACTLY 14, SET
002867,002201: 00,2771           54121                           TS       MPTEMP                                #  THE PRE-DIVIDE NORM COUNT TO -13D.
002868,002202: 
002869,002203: 00,2772           30140                           CA       MPAC                                  #  SHIFT THE LENGTH RIGHT 14 BEFORE STORING
002870,002204: 00,2773           54001        SMALL2             TS       L                                     #  (SMALL EXITS TO THIS POINT).
002871,002205: 00,2774           37653                           CAF      ZERO                                  
002872,002206: 00,2775           13023                           TCF      LARGE2                                #  GO TO STORE LENGTH AND PROCEED.
002873,002207: 
002874,002208: 00,2776           10121        LARGE              CCS      MPTEMP                                #  MOST ALL CASES COME HERE.
002875,002209: 00,2777           13005                           TCF      LARGE3                                #  SEE IF NO NORMALIZATION WAS REQUIRED BY
002876,002210: 
002877,002211: 00,3000           42005                           CS       SRDDV                                 #  SQRT, AND IF SO, SET UP FOR A SHIFT
002878,002212: 00,3001           54121                           TS       MPTEMP                                #  RIGHT 1 BEFORE DIVIDING TO PRODUCE
002879,002213: 00,3002           00006                           EXTEND                                         #  THE DESIRED HALF UNIT VECTOR.
002880,002214: 00,3003           30141                           DCA      MPAC                                  
002881,002215: 00,3004           13023                           TCF      LARGE2                                
002882,002216: 

Page 84

002884,002218: 00,3005           40000        LARGE3             COM                                            #  LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
002885,002219: 00,3006           54121                           TS       MPTEMP                                #  PREDIVIDE LEFT SHIFT.
002886,002220: 
002887,002221: 00,3007           40000                           COM                                            #  PICK UP REQUIRED SHIFTING BIT TO UNNORM-
002888,002222: 00,3010           50000                           INDEX    A                                     #  ALIZE THE SQRT RESULT.
002889,002223: 00,3011           37631                           CAF      BIT14                                 
002890,002224: 00,3012           54114                           TS       BUF                                   
002891,002225: 00,3013           00006                           EXTEND                                         
002892,002226: 00,3014           70141                           MP       MPAC       +1                         
002893,002227: 00,3015           56114                           XCH      BUF                                   
002894,002228: 00,3016           00006                           EXTEND                                         #  (UNNORMALIZE THE SQRT FOR LV).
002895,002229: 00,3017           70140                           MP       MPAC                                  
002896,002230: 00,3020           56001                           XCH      L                                     
002897,002231: 00,3021           60114                           AD       BUF                                   
002898,002232: 00,3022           56001                           XCH      L                                     
002899,002233: 
002900,002234: 00,3023           50104        LARGE2             INDEX    FIXLOC                                
002901,002235: 00,3024           52045                           DXCH     LV                                    #  LENGTH NOW STORED IN WORK AREA.
002902,002236: 
002903,002237: 00,3025           47646                           CS       ONE                                   
002904,002238: 00,3026           54124                           TS       MAXDVSW                               #  NO MAXDV CASES IN UNIT.
002905,002239: 
002906,002240: 00,3027           52107                           DXCH     VBUF                                  #  PREPARE X COMPONENT FOR DIVIDE, SETTING
002907,002241: 00,3030           52141                           DXCH     MPAC                                  #  LENGTH OF VECTOR AS DIVISOR IN BUF.
002908,002242: 00,3031           52115                           DXCH     BUF                                   
002909,002243: 00,3032           03064                           TC       UNITDV                                
002910,002244: 
002911,002245: 00,3033           52111                           DXCH     VBUF       +2                         #  DO Y AND Z IN USUAL FASHION SO WE CAN
002912,002246: 00,3034           52141                           DXCH     MPAC                                  #  EXIT THROUGH VROTATEX.
002913,002247: 00,3035           52144                           DXCH     MPAC       +3                         
002914,002248: 00,3036           03064                           TC       UNITDV                                
002915,002249: 
002916,002250: 00,3037           52113                           DXCH     VBUF       +4                         
002917,002251: 00,3040           52141                           DXCH     MPAC                                  
002918,002252: 00,3041           52146                           DXCH     MPAC       +5                         
002919,002253: 00,3042           03064                           TC       UNITDV                                
002920,002254: 00,3043           17364                           TCF      VROTATEX                              #  AND EXIT.
002921,002255: 

Page 85

002923,002257:                                                                                                  #           IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
002924,002258:                                                                                                  #  14 PLACES BEFORE THE DIVIDE. NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
002925,002259: 
002926,002260: 00,3044           54121        SMALL              TS       MPTEMP                                #  NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
002927,002261: 
002928,002262: 00,3045           37653                           CAF      ZERO                                  #  SHIFT EACH COMPONENT LEFT 14.
002929,002263: 00,3046           56107                           XCH      VBUF       +1                         
002930,002264: 00,3047           56106                           XCH      VBUF                                  
002931,002265: 00,3050           56111                           XCH      VBUF       +3                         
002932,002266: 00,3051           56110                           XCH      VBUF       +2                         
002933,002267: 00,3052           56113                           XCH      VBUF       +5                         
002934,002268: 00,3053           56112                           XCH      VBUF       +4                         
002935,002269: 
002936,002270: 00,3054           40121                           CS       MPTEMP                                
002937,002271: 00,3055           50000                           INDEX    A                                     
002938,002272: 00,3056           37631                           CAF      BIT14                                 
002939,002273: 00,3057           00006                           EXTEND                                         
002940,002274: 00,3060           70140                           MP       MPAC                                  
002941,002275: 00,3061           12773                           TCF      SMALL2                                
002942,002276: 
002943,002277: 00,3062           00015        THIRTEEN           DEC      13         B-14                       
002944,002278: 00,3063           00016        FOURTEEN           DEC      14         B-14                       
002945,002279: 

Page 86

002947,002281:                                                                                                  #           THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
002948,002282: 
002949,002283: 00,3064           10140        UNITDV             CCS      MPAC                                  #  FORCE MPAC POSITIVE IF POSSIBLE, SETTING
002950,002284: 00,3065           13103                           TCF      UMPAC+                                #  DVSIGN ACCORDING TO THE SIGN OF MPAC
002951,002285: 00,3066           13070                           TCF      +2                                    #  SINCE THE DIVISOR IS ALWAYS POSITIVE
002952,002286: 00,3067           13075                           TCF      UMPAC-                                #  HERE.
002953,002287: 
002954,002288: 00,3070           10141                           CCS      MPAC       +1                         
002955,002289: 00,3071           13103                           TCF      UMPAC+                                
002956,002290: 00,3072           00002                           TC       Q                                     #  EXIT IMMEDIATELY ON ZERO.
002957,002291: 00,3073           13075                           TCF      UMPAC-                                
002958,002292: 00,3074           00002                           TC       Q                                     
002959,002293: 
002960,002294: 00,3075           47653        UMPAC-             CS       ZERO                                  #  IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
002961,002295: 00,3076           54122                           TS       DVSIGN                                #  COMPLEMENT.
002962,002296: 00,3077           00006                           EXTEND                                         
002963,002297: 00,3100           40141                           DCS      MPAC                                  #  PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
002964,002298: 00,3101           50121                           INDEX    MPTEMP                                
002965,002299: 00,3102           12507                           TCF      MAXTEST                               
002966,002300: 
002967,002301: 00,3103           54122        UMPAC+             TS       DVSIGN                                #  SET DVSIGN FOR POSITIVE QUOTIENT.
002968,002302: 00,3104           52141                           DXCH     MPAC                                  
002969,002303: 00,3105           50121                           INDEX    MPTEMP                                
002970,002304: 00,3106           12507                           TCF      MAXTEST                               
002971,002305: 

Page 87

002973,002307:                                                                                                  #           MISCELLANEOUS UNARY OPERATIONS.
002974,002308: 
002975,002309: 00,3107           03217        DSQ                TC       DSQSUB                                #  SQUARE THE DP CONTENTS OF MPAC.
002976,002310: 00,3110           16014                           TCF      DANZIG                                
002977,002311: 
002978,002312: 00,3111           07115        ROUND              TC       ROUNDSUB                              #  ROUNDS MPAC TO DOUBLE PRECISION.
002979,002313: 00,3112           37653                           CAF      ZERO                                  #  FORCE DP MODE.
002980,002314: 00,3113           16013                           TCF      NEWMODE                               
002981,002315: 
002982,002316: 00,3114           10147        ABVALABS           CCS      MODE                                  #  ABVAL OR ABS INSTRUCTION.
002983,002317: 00,3115           13144                           TCF      ABS                                   #  DO ABS ON SCALAR.
002984,002318: 00,3116           13144                           TCF      ABS                                   
002985,002319: 
002986,002320: 00,3117           03236        ABVAL              TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
002987,002321: 00,3120           22147                           LXCH     MODE                                  #  MODE IS NOW DP (L ZERO AFTER DAS).
002988,002322: 
002989,002323: 00,3121           00006                           EXTEND                                         #  STORE SQUARE OF LENGTH IN WORK AREA.
002990,002324: 00,3122           30141                           DCA      MPAC                                  
002991,002325: 00,3123           50104                           INDEX    FIXLOC                                
002992,002326: 00,3124           52043                           DXCH     LVSQUARE                              
002993,002327: 
002994,002328: 00,3125           03262        SQRT               TC       SQRTSUB                               #  TAKE THE SQUARE ROOT OF MPAC.
002995,002329: 00,3126           10121                           CCS      MPTEMP                                #  RETURNED NORMALIZED SQUARE ROOT. SEE IF
002996,002330: 00,3127           13131                           TCF      +2                                    #  ANY UN-NORMALIZATION REQUIRED AND EXIT
002997,002331: 00,3130           16014                           TCF      DANZIG                                #  IF NOT.
002998,002332: 
002999,002333: 00,3131           62273                           AD       NEG12                                 #  A RIGHT SHIFT OF MORE THAN 13 COULD BE
003000,002334: 00,3132           00006                           EXTEND                                         #  REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
003001,002335: 00,3133           63137                           BZMF     SQRTSHFT                              #  GOES HERE IN MOST CASES.
003002,002336: 00,3134           22007                           ZL                                             #  IF A LONG SHIFT IS REQUIRED, GO TO
003003,002337: 00,3135           22102                           LXCH     ADDRWD                                #  GENERAL RIGHT SHIFT ROUTINES.
003004,002338: 00,3136           12263                           TCF      GENSCR     +4                         #  ADDRWD WAS ZERO TO PREVENT ROUND.
003005,002339: 
003006,002340: 00,3137           50121        SQRTSHFT           INDEX    MPTEMP                                #  SELECT SHIFTING BIT AND EXIT THROUGH
003007,002341: 00,3140           37630                           CAF      BIT15                                 #  SHIFT ROUTINES.
003008,002342: 00,3141           54121                           TS       MPTEMP                                
003009,002343: 00,3142           37653                           CAF      ZERO                                  #  TO ZERO MPAC +2 IN THE PROCESS.
003010,002344: 00,3143           12017                           TCF      MPACSHR    +3                         
003011,002345: 
003012,002346: 00,3144           06710        ABS                TC       BRANCH                                #  TEST SIGN OF MPAC AND COMPLEMENT IF
003013,002347: 00,3145           16014                           TCF      DANZIG                                
003014,002348: 00,3146           16014                           TCF      DANZIG                                
003015,002349: 00,3147           17605                           TCF      COMP                                  
003016,002350: 

Page 88

003018,002352: 00,3150           47644        VDEF               CS       FOUR                                  #  VECTOR DEFINE - ESSENTIALLY TREATS
003019,002353: 00,3151           26152                           ADS      PUSHLOC                               #  SCALAR IN MPAC AS X COMPONENT, PUSHES UP
003020,002354: 00,3152           00006                           EXTEND                                         #  FOR Y AND THEN AGAIN FOR Z.
003021,002355: 00,3153           50000                           INDEX    A                                     
003022,002356: 00,3154           30003                           DCA      2                                     
003023,002357: 00,3155           52144                           DXCH     MPAC       +3                         
003024,002358: 00,3156           00006                           EXTEND                                         
003025,002359: 00,3157           50152                           INDEX    PUSHLOC                               
003026,002360: 00,3160           30001                           DCA      0                                     
003027,002361: 00,3161           52146                           DXCH     MPAC       +5                         
003028,002362: 00,3162           47646                           CS       ONE                                   #  MODE IS NOW VECTOR.
003029,002363: 00,3163           16013                           TCF      NEWMODE                               
003030,002364: 
003031,002365: 00,3164           03236        VSQ                TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
003032,002366: 00,3165           37653                           CAF      ZERO                                  
003033,002367: 00,3166           16013                           TCF      NEWMODE                               #  MODE IS NOW DP.
003034,002368: 
003035,002369: 00,3167           00006        PUSH               EXTEND                                         #  PUSH DOWN MPAC LEAVING IT LOADED.
003036,002370: 00,3170           30141                           DCA      MPAC                                  
003037,002371: 00,3171           50152                           INDEX    PUSHLOC                               #  PUSH DOWN FIRST TWO REGISTERS IN EACH
003038,002372: 00,3172           52001                           DXCH     0                                     
003039,002373: 
003040,002374: 00,3173           50147                           INDEX    MODE                                  #  INCREMENT PUSHDOWN POINTER.
003041,002375: 00,3174           36164                           CAF      NO.WDS                                
003042,002376: 00,3175           26152                           ADS      PUSHLOC                               
003043,002377: 
003044,002378: 00,3176           10147                           CCS      MODE                                  
003045,002379: 00,3177           13212                           TCF      TPUSH                                 #  PUSH DOWN MPAC +2.
003046,002380: 00,3200           16014                           TCF      DANZIG                                #  DONE FOR DP.
003047,002381: 
003048,002382: 00,3201           00006                           EXTEND                                         #  ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
003049,002383: 00,3202           30144                           DCA      MPAC       +3                         
003050,002384: 00,3203           50152                           INDEX    PUSHLOC                               
003051,002385: 00,3204           51775                           DXCH     0          -4                         
003052,002386: 00,3205           00006                           EXTEND                                         
003053,002387: 00,3206           30146                           DCA      MPAC       +5                         
003054,002388: 00,3207           50152                           INDEX    PUSHLOC                               
003055,002389: 00,3210           51777                           DXCH     0          -2                         
003056,002390: 00,3211           16014                           TCF      DANZIG                                
003057,002391: 
003058,002392: 00,3212           30142        TPUSH              CA       MPAC       +2                         
003059,002393: 00,3213           16557                           TCF      ENDTPUSH   +2                         
003060,002394: 
003061,002395: 00,3214           50104        RVQ                INDEX    FIXLOC                                #  RVQ - RETURN IVA QPRET.
003062,002396: 00,3215           30052                           CA       QPRET                                 
003063,002397: 00,3216           16651                           TCF      GOTO       +1                         
003064,002398: 

Page 89

003066,002400:                                                                                                  #           THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE. THEY ARE
003067,002401:                                                                                                  #  SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
003068,002402: 
003069,002403: 00,3217           30141        DSQSUB             CA       MPAC       +1                         #  SQUARES THE SCALAR CONTENTS OF MPAC.
003070,002404: 00,3220           00006                           EXTEND                                         
003071,002405: 00,3221           70000                           SQUARE                                         
003072,002406: 00,3222           54142                           TS       MPAC       +2                         
003073,002407: 00,3223           37653                           CAF      ZERO                                  #  FORM 2(CROSS TERM).
003074,002408: 00,3224           56141                           XCH      MPAC       +1                         
003075,002409: 00,3225           00006                           EXTEND                                         
003076,002410: 00,3226           70140                           MP       MPAC                                  
003077,002411: 00,3227           20001                           DDOUBL                                         #  AND MAYBE OVERFLOW.
003078,002412: 00,3230           20142                           DAS      MPAC       +1                         #  AND SET A TO NET OVERFLOW.
003079,002413: 00,3231           56140                           XCH      MPAC                                  
003080,002414: 00,3232           00006                           EXTEND                                         
003081,002415: 00,3233           70000                           SQUARE                                         
003082,002416: 00,3234           20141                           DAS      MPAC                                  
003083,002417: 00,3235           00002                           TC       Q                                     
003084,002418: 
003085,002419: 00,3236           00006        VSQSUB             EXTEND                                         #  DOTS THE VECTOR IN MPAC WITH ITSELF.
003086,002420: 00,3237           22123                           QXCH     DOTRET                                
003087,002421: 00,3240           03217                           TC       DSQSUB                                #  SQUARE THE X COMPONENT.
003088,002422: 00,3241           52144                           DXCH     MPAC       +3                         
003089,002423: 00,3242           52141                           DXCH     MPAC                                  
003090,002424: 00,3243           52115                           DXCH     BUF                                   #  SO WE CAN END IN DOTSUB.
003091,002425: 00,3244           30142                           CA       MPAC       +2                         
003092,002426: 00,3245           54116                           TS       BUF        +2                         
003093,002427: 
003094,002428: 00,3246           03217                           TC       DSQSUB                                #  SQUARE Y COMPONENT.
003095,002429: 00,3247           52142                           DXCH     MPAC       +1                         
003096,002430: 00,3250           20116                           DAS      BUF        +1                         
003097,002431: 00,3251           60140                           AD       MPAC                                  
003098,002432: 00,3252           60114                           AD       BUF                                   
003099,002433: 00,3253           54114                           TS       BUF                                   
003100,002434: 00,3254           13256                           TCF      +2                                    
003101,002435: 00,3255           54105                           TS       OVFIND                                #  IF OVERFLOW.
003102,002436: 
003103,002437: 00,3256           52146                           DXCH     MPAC       +5                         
003104,002438: 00,3257           52141                           DXCH     MPAC                                  
003105,002439: 00,3260           03217                           TC       DSQSUB                                #  SQUARE Z COMPONENT.
003106,002440: 00,3261           17163                           TCF      ENDDOT                                #  END AS IN DOTSUB.
003107,002441: 

Page 90

003109,002443:                                                                                                  #           DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
003110,002444:                                                                                                  #  IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
003111,002445:                                                                                                  #  .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
003112,002446: 
003113,002447: 
003114,002448: 
003115,002449: 00,3262           37653        SQRTSUB            CAF      ZERO                                  #  START BY ZEROING RIGHT SHIFT COUNT.
003116,002450: 00,3263           54121                           TS       MPTEMP                                
003117,002451: 
003118,002452: 00,3264           10140                           CCS      MPAC                                  #  CHECK FOR POSITIVE ARGUMENT, SHIFTING
003119,002453: 00,3265           13322                           TCF      SMPAC+                                #  FIRST SIGNIFICANT MPAC REGISTER INTO
003120,002454: 00,3266           13270                           TCF      +2                                    #  MPAC ITSELF.
003121,002455: 00,3267           13312                           TCF      SQRTNEG                               #  SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
003122,002456: 
003123,002457: 00,3270           56142                           XCH      MPAC       +2                         #  MPAC IS ZERO - SHIFT LEFT 14.
003124,002458: 00,3271           56141                           XCH      MPAC       +1                         
003125,002459: 00,3272           54140                           TS       MPAC                                  
003126,002460: 00,3273           37652                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
003127,002461: 00,3274           54121                           TS       MPTEMP                                
003128,002462: 
003129,002463: 00,3275           10140                           CCS      MPAC                                  #  SEE IF MPAC NOW PNZ.
003130,002464: 00,3276           13322                           TCF      SMPAC+                                
003131,002465: 00,3277           13301                           TCF      +2                                    
003132,002466: 00,3300           13315                           TCF      ZEROANS                               #  NEGATIVE BUT LESS THAN 10(-4) IN MAG.
003133,002467: 
003134,002468: 00,3301           56141                           XCH      MPAC       +1                         #  ZERO - SHIFT LEFT 14 AGAIN.
003135,002469: 00,3302           54140                           TS       MPAC                                  
003136,002470: 00,3303           37652                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
003137,002471: 00,3304           26121                           ADS      MPTEMP                                
003138,002472: 
003139,002473: 00,3305           10140                           CCS      MPAC                                  
003140,002474: 00,3306           13322                           TCF      SMPAC+                                
003141,002475: 00,3307           00002                           TC       Q                                     #  SQRT(0) = 0.
003142,002476: 00,3310           13315                           TCF      ZEROANS                               
003143,002477: 00,3311           00002                           TC       Q                                     
003144,002478: 
003145,002479: 
003146,002480: 
003147,002481: 00,3312           10000        SQRTNEG            CCS      A                                     #  ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
003148,002482: 00,3313           13321                           TCF      SQRTABRT                              #  CORRECTED ARGUMENT IS LESS THAN 10(-4)
003149,002483: 
003150,002484: 00,3314           10141                           CCS      MPAC       +1                         #  IN MAGNITUDE. IF SO, CALL ANSWER ZERO.
003151,002485: 00,3315           37653        ZEROANS            CAF      ZERO                                  #  FORCE ANSWER TO ZERO HERE.
003152,002486: 00,3316           13365                           TCF      FIXROOT                               
003153,002487: 00,3317           13321                           TCF      SQRTABRT                              
003154,002488: 00,3320           13365                           TCF      FIXROOT                               
003155,002489: 
003156,002490: 00,3321           03321        SQRTABRT           TC       -0                                    
003157,002491: 

Page 91

003159,002493: 00,3322           62410        SMPAC+             AD       -1/2+2                                #  SEE IF ARGUMENT GREATER THAN OR EQUAL TO
003160,002494: 00,3323           00006                           EXTEND                                         #  .5.
003161,002495: 00,3324           63370                           BZMF     SRTEST                                #  IF SO, SEE IF LESS THAN .25.
003162,002496: 
003163,002497: 00,3325           52141                           DXCH     MPAC                                  #  WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
003164,002498: 00,3326           22021                           LXCH     SR                                    #  SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
003165,002499: 00,3327           00006                           EXTEND                                         
003166,002500: 00,3330           77631                           MP       HALF                                  
003167,002501: 00,3331           52141                           DXCH     MPAC                                  
003168,002502: 00,3332           56021                           XCH      SR                                    
003169,002503: 00,3333           26141                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
003170,002504: 
003171,002505: 00,3334           32274        ARGHI              CAF      SLOPEHI                               #  ARGUMENT BETWEEN .25 AND .5. GET A
003172,002506: 00,3335           00006                           EXTEND                                         #  LINEAR APPROXIMATION FOR THIS RANGE.
003173,002507: 00,3336           70140                           MP       MPAC                                  
003174,002508: 00,3337           62510                           AD       BIASHI                                #  X0/2 = (MPAC/2)(SLOPEHI) + BIASHI/2.
003175,002509: 
003176,002510: 00,3340           54114                 +4        TS       BUF                                   #  X0/2 (ARGLO ENTERS HERE).
003177,002511: 00,3341           00006                           EXTEND                                         
003178,002512: 00,3342           10114                           DV       BUF                                   #  (MPAC/2)/(X0/2)
003179,002513: 00,3343           00006                           EXTEND                                         
003180,002514: 00,3344           77631                           MP       HALF                                  
003181,002515: 00,3345           26114                           ADS      BUF                                   #  X1 = X0/2 + .5(MPAC/2)/(X0/2).
003182,002516: 
003183,002517: 00,3346           00006                           EXTEND                                         
003184,002518: 00,3347           77631                           MP       HALF                                  #  FORM UP X1/2.
003185,002519: 00,3350           52141                           DXCH     MPAC                                  #  SAVE AND BRING OUT ARGUMENT.
003186,002520: 00,3351           00006                           EXTEND                                         #  TAKE DP QUOTIENT WITH X1.
003187,002521: 00,3352           10114                           DV       BUF                                   
003188,002522: 00,3353           54115                           TS       BUF        +1                         #  SAVE MAJOR PART OF QUOTIENT.
003189,002523: 00,3354           37653                           CAF      ZERO                                  #  FORM MINOR PART OF QUOTIENT USING
003190,002524: 00,3355           56001                           XCH      L                                     #  (REMAINDER,0).
003191,002525: 00,3356           00006                           EXTEND                                         
003192,002526: 00,3357           10114                           DV       BUF                                   
003193,002527: 00,3360           54001                           TS       L                                     #  IN PREPARATION FOR DAS.
003194,002528: 00,3361           30115                           CA       BUF        +1                         
003195,002529: 00,3362           20141                           DAS      MPAC                                  #  X2 = X1/2 + (MPAC/2)X1
003196,002530: 
003197,002531: 00,3363           10000                           CCS      A                                     #  OVERFLOWS IF ARGUMENT WAS NEAR POSMAX.
003198,002532: 00,3364           37626                           CAF      POSMAX                                
003199,002533: 00,3365           54140        FIXROOT            TS       MPAC                                  
003200,002534: 00,3366           54141                           TS       MPAC       +1                         
003201,002535: 00,3367           00002                           TC       Q                                     #  RETURN TO CALLER TO UNNORMALIZE, ETC.
003202,002536: 

Page 92

003204,002538: 00,3370           67632        SRTEST             AD       QUARTER                               #  ARGUMENT WAS LESS THAN .5, SEE IF LESS
003205,002539: 00,3371           00006                           EXTEND                                         #  THAN .25.
003206,002540: 00,3372           63414                           BZMF     SQRTNORM                              #  IF SO, BEGIN NORMALIZATION.
003207,002541: 
003208,002542: 00,3373           52141                           DXCH     MPAC                                  #  IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
003209,002543: 00,3374           22021                           LXCH     SR                                    #  START AT ARGLO.
003210,002544: 00,3375           00006                           EXTEND                                         
003211,002545: 00,3376           77631                           MP       HALF                                  
003212,002546: 00,3377           52141                           DXCH     MPAC                                  
003213,002547: 00,3400           56021                           XCH      SR                                    
003214,002548: 00,3401           26141                           ADS      MPAC       +1                         #  NO OVERFLOW.
003215,002549: 
003216,002550: 00,3402           32740        ARGLO              CAF      SLOPELO                               #  (NORMALIZED) ARGUMENT BETWEEN .125 AND
003217,002551: 00,3403           00006                           EXTEND                                         #  .25
003218,002552: 00,3404           70140                           MP       MPAC                                  
003219,002553: 00,3405           62250                           AD       BIASLO                                
003220,002554: 00,3406           13340                           TCF      ARGHI      +4                         #  BEGIN SQUARE ROOT.
003221,002555: 
003222,002556: 00,3407           00006        SQRTNM2            EXTEND                                         #  SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
003223,002557: 00,3410           30142                           DCA      MPAC       +1                         #  COUNT (FOR TERMINAL UNNORMALIZATION).
003224,002558: 00,3411           20142                           DAS      MPAC       +1                         
003225,002559: 00,3412           60140                           AD       MPAC                                  
003226,002560: 00,3413           26140                           ADS      MPAC                                  #  (NO OVERFLOW).
003227,002561: 
003228,002562: 00,3414           24121        SQRTNORM           INCR     MPTEMP                                #  FIRST TIME THROUGH, JUST SHIFT LEFT 1
003229,002563: 00,3415           00006                           EXTEND                                         #  (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
003230,002564: 00,3416           30142                           DCA      MPAC       +1                         #  WE WANT MPAC/2).
003231,002565: 00,3417           20142                           DAS      MPAC       +1                         
003232,002566: 00,3420           60140                           AD       MPAC                                  
003233,002567: 00,3421           26140                           ADS      MPAC                                  #  (AGAIN NO OVERFLOW).
003234,002568: 00,3422           60000                           DOUBLE                                         
003235,002569: 00,3423           54022                           TS       CYL                                   
003236,002570: 
003237,002571: 00,3424           10022        NORMTEST           CCS      CYL                                   #  SEE IF ARGUMENT NOW NORMALIZED AT
003238,002572: 00,3425           10022                           CCS      CYL                                   #  GREATER THAN .125.
003239,002573: 00,3426           13407                           TCF      SQRTNM2                               #  NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
003240,002574: 00,3427           13334                           TCF      ARGHI                                 #  YES - NOW BETWEEN .5 AND .25.
003241,002575: 00,3430           13402                           TCF      ARGLO                                 #  ARGUMENT NOW BETWEEN .25 AND .125.
003242,002576: 

Page 93

003244,002578:                                                                                                  #  TRIGONOMETRIC FUNCTION PACKAGE.
003245,002579: 
003246,002580:                                                                                                  #           THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
003247,002581: 
003248,002582:                                                                                                  #           1.  SIN                COMPUTES (1/2)SINE(2 PI MPAC).
003249,002583:                                                                                                  #           2.  COS                COMPUTES (1/2)COSINE(2 PI MPAC).
003250,002584: 
003251,002585:                                                                                                  #           3.  ASIN               COMPUTES (1/2PI)ARCSINE(2 MPAC).
003252,002586:                                                                                                  #           4.  ACOS               COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
003253,002587: 
003254,002588:                                                                                                  #  SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X)) = X.
003255,002589: 
003256,002590: 
003257,002591: 
003258,002592: 00,3431           06710        COSINE             TC       BRANCH                                #  FINDS COSINE USING THE IDENTITY
003259,002593: 00,3432           13435                           TCF      +3                                    #  COS(X) = SIN(PI/2 - ABS(X)).
003260,002594: 00,3433           13440                           TCF      PRESINE                               
003261,002595: 00,3434           13440                           TCF      PRESINE                               
003262,002596: 
003263,002597: 00,3435           00006                 +3        EXTEND                                         
003264,002598: 00,3436           40141                           DCS      MPAC                                  
003265,002599: 00,3437           52141                           DXCH     MPAC                                  
003266,002600: 
003267,002601: 00,3440           37632        PRESINE            CAF      QUARTER                               #  PI/2 SCALED.
003268,002602: 00,3441           26140                           ADS      MPAC                                  
003269,002603: 
003270,002604: 
003271,002605: 
003272,002606: 00,3442           52141        SINE               DXCH     MPAC                                  #  DOUBLE ARGUMENT.
003273,002607: 00,3443           20001                           DDOUBL                                         
003274,002608: 00,3444           54000                           OVSK                                           #  SEE IF OVERFLOW PRESENT.
003275,002609: 00,3445           13450                           TCF      +3                                    #  IF NOT, ARGUMENT OK AS IS.
003276,002610: 
003277,002611: 00,3446           00006                           EXTEND                                         #  IF SO, WE LOST (OR GAINED) PI, SO
003278,002612: 00,3447           40001                           DCOM                                           #  COMPLEMENT MPAC USING THE IDENTITY
003279,002613:                                                                                                  #  SIN(X-(+)PI) = SIN(-X).
003280,002614: 00,3450           52141                 +3        DXCH     MPAC                                  
003281,002615: 00,3451           30140                           CA       MPAC                                  #  SEE IF ARGUMENT GREATER THAN .5 IN
003282,002616: 00,3452           60000                           DOUBLE                                         #  MAGNITUDE. IF SO, REDUCE IT TO LESS THAN
003283,002617: 00,3453           54001                           TS       L                                     #  .5 (+-PI/2 SCALED) AS FOLLOWS:
003284,002618: 00,3454           13465                           TCF      SN1                                   
003285,002619: 
003286,002620: 00,3455           50000                           INDEX    A                                     #  IF POSITIVE, FORM PI - X, IF NEGATIVE
003287,002621: 00,3456           37630                           CAF      NEG1/2     +1                         #  USE -PI - X.
003288,002622: 00,3457           60000                           DOUBLE                                         
003289,002623: 00,3460           00006                           EXTEND                                         
003290,002624: 00,3461           60140                           SU       MPAC                                  #  GUARANTEED NO OVERFLOW.
003291,002625: 00,3462           54140                           TS       MPAC                                  
003292,002626: 00,3463           40141                           CS       MPAC       +1                         
003293,002627: 00,3464           54141                           TS       MPAC       +1                         
003294,002628: 

Page 94

003296,002630: 00,3465           00006        SN1                EXTEND                                         #  SET UP TO EVALUATE HASTINGS POLYNOMIAL
003297,002631: 00,3466           30141                           DCA      MPAC                                  
003298,002632: 00,3467           52120                           DXCH     BUF2                                  
003299,002633: 00,3470           03217                           TC       DSQSUB                                #  SQUARE MPAC.
003300,002634: 
003301,002635: 00,3471           07173                           TC       POLY                                  #  EVALUATE FOURTH ORDER POLYNOMIAL.
003302,002636: 00,3472           00003                           DEC      3          B-14                       
003303,002637: 00,3473           14441 37325                     2DEC     +.3926990796                            
003304,002638: 
003305,002639: 00,3475           53250 60764                     2DEC     -.6459637111                            
003306,002640: 
003307,002641: 00,3477           12146 21276                     2DEC     +.318758717                            
003308,002642: 
003309,002643: 00,3501           75466 71471                     2DEC     -.074780249                            
003310,002644: 
003311,002645: 00,3503           00236 32757                     2DEC     +.009694988                            
003312,002646: 
003313,002647: 00,3505           32434                           CAF      LBUF2                                 #  MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
003314,002648: 00,3506           07065                           TC       DMPSUB     -1                         
003315,002649: 
003316,002650: 00,3507           00006                           EXTEND                                         
003317,002651: 00,3510           30142                           DCA      MPAC       +1                         
003318,002652: 00,3511           20142                           DAS      MPAC       +1                         
003319,002653: 00,3512           60140                           AD       MPAC                                  
003320,002654: 00,3513           26140                           ADS      MPAC                                  #  NEITHER SHIFT OVERFLOWS.
003321,002655: 00,3514           00006                           EXTEND                                         
003322,002656: 00,3515           30142                           DCA      MPAC       +1                         
003323,002657: 00,3516           20142                           DAS      MPAC       +1                         
003324,002658: 00,3517           60140                           AD       MPAC                                  
003325,002659: 00,3520           26140                           ADS      MPAC                                  
003326,002660: 00,3521           16014                           TCF      DANZIG                                
003327,002661: 

Page 95

003329,002663:                                                                                                  #           ARCSIN/ARCCOS ROUTINE.
003330,002664: 
003331,002665: 00,3522           33543        ARCSIN             CAF      LASINEX                               #  COMPUTE ARCSIN BY USING THE IDENTITY
003332,002666: 00,3523           13525                           TCF      +2                                    #  ARCSIN(X) = PI/2 - ARCCOS(X).
003333,002667: 
003334,002668: 00,3524           33625        ARCCOS             CAF      LDANZIG                               #  (EXITS IMMEDIATELY).
003335,002669: 00,3525           54122                           TS       ESCAPE                                
003336,002670: 00,3526           06710                           TC       BRANCH                                #  TEST SIGN OF INPUT.
003337,002671: 00,3527           13537                           TCF      ACOSST                                #  START IMMEDIATELY IF POSITIVE.
003338,002672: 00,3530           13640                           TCF      ACOSZERO                              #  ARCCOS(0) = PI/2 = .25.
003339,002673: 00,3531           00006                           EXTEND                                         #  IF NEGATIVE, USE THE IDENTITY
003340,002674: 00,3532           40141                           DCS      MPAC                                  #  ARCCOS(X) = PI - ARCCOS(-X), FORCING
003341,002675: 00,3533           52141                           DXCH     MPAC                                  #  ARGUMENT POSITIVE.
003342,002676: 00,3534           32247                           CAF      TCSUBTR                               #  SET EXIT  TO DO ABOVE BEFORE
003343,002677: 00,3535           56122                           XCH      ESCAPE                                #  ARCSIN/ARCCOS CONSIDERATIONS.
003344,002678: 00,3536           54123                           TS       ESCAPE2                               
003345,002679: 
003346,002680: 00,3537           47631        ACOSST             CS       HALF                                  #  TEST MAGNITUDE OF INPUT.
003347,002681: 00,3540           60140                           AD       MPAC                                  
003348,002682: 00,3541           10000                           CCS      A                                     
003349,002683: 00,3542           13633                           TCF      ACOSOVF                               #  THIS IS PROBABLY AN OVERFLOW CASE.
003350,002684: 
003351,002685: 00,3543           13621        LASINEX            TCF      ASINEX                                
003352,002686: 
003353,002687: 00,3544           13554                           TCF      ACOSST2                               #  NO OVERFLOW - PROCEED.
003354,002688: 
003355,002689: 00,3545           10141                           CCS      MPAC       +1                         #  IF MAJOR PART IS .5, CALL ANSWER 0
003356,002690: 00,3546           37653                           CAF      ZERO                                  #  UNLESS MINOR PART NEGATIVE.
003357,002691: 00,3547           13551                           TCF      ACOS=0                                
003358,002692: 
003359,002693: 00,3550           13554                           TCF      ACOSST2                               
003360,002694: 
003361,002695: 00,3551           54141        ACOS=0             TS       MPAC       +1                         
003362,002696: 00,3552           54140                           TS       MPAC                                  
003363,002697: 00,3553           00122                           TC       ESCAPE                                
003364,002698: 
003365,002699: 00,3554           00006        ACOSST2            EXTEND                                         #  NOW THAT ARGUMENT IS IN PROPER RANGE,
003366,002700: 00,3555           40141                           DCS      MPAC                                  #  BEGIN COMPUTATION. USE HASTINGS
003367,002701: 00,3556           67631                           AD       HALF                                  #  APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
003368,002702: 00,3557           52141                           DXCH     MPAC                                  #  IN A SCALED VERSION WHERE P(X) IS A
003369,002703: 00,3560           52120                           DXCH     BUF2                                  #  SEVENTH ORDER POLYNOMIAL.
003370,002704: 
003371,002705: 00,3561           03262                           TC       SQRTSUB                               #  RETURNS WITH NORMALIZED SQUARE ROOT.
003372,002706: 
003373,002707: 00,3562           10121                           CCS      MPTEMP                                #  SEE IF UN-NORMALIZATION REQUIRED.
003374,002708: 00,3563           13626                           TCF      ACOSSHR                               #  IF SO.
003375,002709: 

Page 96

003377,002711: 00,3564           52141        ACOS3              DXCH     MPAC                                  #  SET UP FOR POLYNOMIAL EVALUATION.
003378,002712: 00,3565           52120                           DXCH     BUF2                                  
003379,002713: 00,3566           52141                           DXCH     MPAC                                  
003380,002714: 
003381,002715: 00,3567           07173                           TC       POLY                                  
003382,002716: 00,3570           00006                           DEC      6          B-14                       
003383,002717: 00,3571           13240 23630                     2DEC     +.353553385                            #  COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
003384,002718: 
003385,002719: 00,3573           74721 47775                     2DEC*    -.0483017006 B+1*                       #                    I
003386,002720: 
003387,002721: 00,3575           02440 20237                     2DEC*    +.0200273085 B+2*                       #       WHERE C STANDS FOR ORIGINAL COEFFS.
003388,002722: 
003389,002723: 00,3577           75067 70742                     2DEC*    -.0112931863 B+3*                       
003390,002724: 
003391,002725: 00,3601           03436 26756                     2DEC*    +.00695311612 B+4*                       
003392,002726: 
003393,002727: 00,3603           74037 57640                     2DEC*    -.00384617957 B+5*                       
003394,002728: 
003395,002729: 00,3605           03046 07143                     2DEC*    +.001501297736 B+6*                       
003396,002730: 
003397,002731: 00,3607           76654 42244                     2DEC*    -.000284160334 B+7*                       
003398,002732: 
003399,002733: 00,3611           32434                           CAF      LBUF2                                 #  DO FINAL MULTIPLY AND GO TO ANY
003400,002734: 00,3612           07065                           TC       DMPSUB     -1                         #  EPILOGUE SEQUENCES.
003401,002735: 00,3613           00122                           TC       ESCAPE                                
003402,002736: 
003403,002737: 00,3614           00006        SUBTR              EXTEND                                         #  EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
003404,002738: 00,3615           40141                           DCS      MPAC                                  
003405,002739: 00,3616           67631                           AD       HALF                                  #  FORMS PI - ARCCOS(-X) = ARCCOS(X).
003406,002740: 00,3617           52141                           DXCH     MPAC                                  
003407,002741: 00,3620           00123                           TC       ESCAPE2                               #  GO TO POSSIBLE ARCSIN EPILOGUE.
003408,002742: 
003409,002743: 00,3621           00006        ASINEX             EXTEND                                         
003410,002744: 00,3622           40141                           DCS      MPAC                                  #  ARCSIN EPILOGUE - GET ARCSIN(X)
003411,002745: 00,3623           67632                           AD       QUARTER                               #  = PI/2 - ARCCOS(X).
003412,002746: 00,3624           52141                           DXCH     MPAC                                  
003413,002747: 00,3625           16014        LDANZIG            TCF      DANZIG                                
003414,002748: 

Page 97

003416,002750: 00,3626           50000        ACOSSHR            INDEX    A                                     #  THE SHIFT RIGHT IS LESS THAN 14 SINCE
003417,002751: 00,3627           37631                           CAF      BIT14                                 #  THE INPUT WAS NON-ZERO DP.
003418,002752: 00,3630           54121                           TS       MPTEMP                                
003419,002753: 00,3631           02054                           TC       VSHRRND                               #  DP SHIFT RIGHT AND ROUND.
003420,002754: 00,3632           13564                           TCF      ACOS3                                 #  PROCEED.
003421,002755: 
003422,002756: 00,3633           10000        ACOSOVF            CCS      A                                     #  IF MAJOR PART WAS ONLY 1 MORE THAN .5,
003423,002757: 00,3634           13636                           TCF      +2                                    #  CALL ANSWER 0.
003424,002758: 00,3635           13551                           TCF      ACOS=0                                
003425,002759: 00,3636           13551                           TCF      ACOS=0                                
003426,002760: 
003427,002761: 00,3637           03637        ACOSABRT           TC       -0                                    
003428,002762: 
003429,002763: 00,3640           37632        ACOSZERO           CAF      QUARTER                               #  ACOS(0) = PI/2.
003430,002764: 00,3641           13552                           TCF      ACOS=0     +1                         #  SET MPAC AND EXIT VIA ESCAPE.
003431,002765: 

Page 98

003433,002767:                                                                                                  #           THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
003434,002768: 
003435,002769:                                                                                                  #           1.  AXT                ADDRESS TO INDEX TRUE.
003436,002770:                                                                                                  #           1.  AXC                ADDRESS TO INDEX COMPLEMENTED.
003437,002771:                                                                                                  #           3.  LXA                LOAD INDEX FROM ERASABLE.
003438,002772:                                                                                                  #           4.  LXC                LOAD INDEX COMPLEMENTED FROM ERASABLE.
003439,002773:                                                                                                  #           5.  SXA                STORE INDEX IN ERASABLE.
003440,002774:                                                                                                  #           6.  XCHX               EXCHANGE INDEX REIGSTER WITH ERASABLE.
003441,002775: 
003442,002776:                                                                                                  #           7.  INCR               INCREMENT INDEX REGISTER.
003443,002777:                                                                                                  #           8.  XAD                ERASABLE ADD TO INDEX REGISTER.
003444,002778:                                                                                                  #           9.  XSU                ERASABLE SUBTRACT FROM INDEX REGISTER.
003445,002779: 
003446,002780:                                                                                                  #          10.  TIX                BRANCH ON INDEX REGISTER AND DECREMENT.
003447,002781: 
003448,002782: 
003449,002783: 
003450,002784: 01,2000                                           SETLOC   12000                                 #  SUFFIX CLASS 01 IS IN BANK 1.
003451,002785: 
003452,002786: 01,2000           02061        AXT                TC       TAGSUB                                #  SELECT APPROPRIATE INDEX REGISTER.
003453,002787: 01,2001           30103                           CA       POLISH                                
003454,002788: 01,2002           50114        XSTORE             INDEX    INDEXLOC                              #  CONTAINS C(FIXLOC) OR C(FIXLOC)+1.
003455,002789: 01,2003           54046                           TS       X1                                    
003456,002790: 01,2004           16014                           TCF      DANZIG                                
003457,002791: 
003458,002792: 01,2005           02061        AXC                TC       TAGSUB                                
003459,002793: 01,2006           40103                           CS       POLISH                                
003460,002794: 01,2007           02002                           TC       XSTORE                                
003461,002795: 
003462,002796: 01,2010           02061        LXA                TC       TAGSUB                                #  LOAD INDEX FROM ERASABLE.
003463,002797: 01,2011           50102                           INDEX    ADDRWD                                
003464,002798: 01,2012           30000                           CA       0                                     
003465,002799: 01,2013           12002                           TCF      XSTORE                                
003466,002800: 
003467,002801: 01,2014           02061        LXC                TC       TAGSUB                                #  LOAD INDEX FROM ERASABLE COMPLEMENTED.
003468,002802: 01,2015           50102                           INDEX    ADDRWD                                
003469,002803: 01,2016           40000                           CS       0                                     
003470,002804: 01,2017           12002                           TCF      XSTORE                                
003471,002805: 
003472,002806: 01,2020           02061        SXA                TC       TAGSUB                                #  STORE INDEX IN ERASABLE.
003473,002807: 01,2021           50114                           INDEX    INDEXLOC                              
003474,002808: 01,2022           30046                           CA       X1                                    
003475,002809: 01,2023           16626                           TCF      STORE1                                #  (STORE SINGLE PRECISION BEFORE EXIT).
003476,002810: 
003477,002811: 01,2024           02061        XCHX               TC       TAGSUB                                #  EXCHANGE INDEX REGISTER WITH ERASABLE.
003478,002812: 01,2025           50102                           INDEX    ADDRWD                                
003479,002813: 01,2026           30000                           CA       0                                     
003480,002814: 01,2027           50114                           INDEX    INDEXLOC                              
003481,002815: 01,2030           56046                           XCH      X1                                    
003482,002816: 01,2031           16626                           TCF      STORE1                                
003483,002817: 

Page 99

003485,002819: 01,2032           02061        XAD                TC       TAGSUB                                #  ERASABLE ADD TO INDEX.
003486,002820: 01,2033           50102                           INDEX    ADDRWD                                
003487,002821: 01,2034           30000                           CA       0                                     
003488,002822: 01,2035           50114        XAD2               INDEX    INDEXLOC                              
003489,002823: 01,2036           26046                           ADS      X1                                    #  IGNORING OVERFLOWS.
003490,002824: 01,2037           16014                           TCF      DANZIG                                
003491,002825: 
003492,002826: 01,2040           02061        INCR               TC       TAGSUB                                #  INCREMENT INDEX REGISTER.
003493,002827: 01,2041           30103                           CA       POLISH                                
003494,002828: 01,2042           12035                           TCF      XAD2                                  
003495,002829: 
003496,002830: 01,2043           02061        XSU                TC       TAGSUB                                #  ERASABLE SUBTRACT FROM INDEX.
003497,002831: 01,2044           50102                           INDEX    ADDRWD                                
003498,002832: 01,2045           40000                           CS       0                                     
003499,002833: 01,2046           12035                           TCF      XAD2                                  
003500,002834: 
003501,002835: 
003502,002836: 
003503,002837: 01,2047           02061        TIX                TC       TAGSUB                                #  BRANCH AND DECREMENT ON INDEX.
003504,002838: 01,2050           50114                           INDEX    INDEXLOC                              
003505,002839: 01,2051           40046                           CS       X1                                    
003506,002840: 01,2052           50114                           INDEX    INDEXLOC                              
003507,002841: 01,2053           60046                           AD       X1                                    
003508,002842: 01,2054           00006                           EXTEND                                         #  NO OPERATION IF DECREMENTED INDEX IS
003509,002843: 01,2055           66014                           BZMF     DANZIG                                #  NEGATIVE OR ZERO.
003510,002844: 
003511,002845: 01,2056           50114        DOTIXBR            INDEX    INDEXLOC                              
003512,002846: 01,2057           56046                           XCH      X1                                    #  IGNORING OVERFLOWS.
003513,002847: 
003514,002848: 01,2060           16650                           TCF      GOTO                                  #  DO THE BRANCH USING THE CADR IN POLISH.
003515,002849: 
003516,002850: 
003517,002851: 
003518,002852:                                                                                                  #           SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC. (ACTUALLY, THE ADDRESS -38D.)
003519,002853: 
003520,002854: 01,2061           30104        TAGSUB             CA       FIXLOC                                
003521,002855: 01,2062           54114                           TS       INDEXLOC                              
003522,002856: 
003523,002857: 01,2063           10020                           CCS      CYR                                   #  BIT 15 SPECIFIES INDEX.
003524,002858: 01,2064           24114                           INCR     INDEXLOC                              #  0 MEANS USE X2.
003525,002859: 01,2065           00002                           TC       Q                                     
003526,002860: 01,2066           00002                           TC       Q                                     #  1 FOR X1.
003527,002861: 

Page 100

003529,002863:                                                                                                  #           MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES. INCLUDED HERE ARE:
003530,002864: 
003531,002865:                                                                                                  #           1.  ITA                STORE QPRET (RETURN ADDRESS) IN ERASABLE.
003532,002866:                                                                                                  #           2.  CALL               CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
003533,002867:                                                                                                  #           3.  RTB                RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
003534,002868:                                                                                                  #           4.  BHIZ               BRANCH IF THE HIGH ORDER OF MPAC IS ZERO (SINGLE PRECISION).
003535,002869:                                                                                                  #           5.  BOV                BRANCH ON OVERFLOW.
003536,002870:                                                                                                  #           6.  GOTO               SIMPLE SEQUENCE CHANGE.
003537,002871: 
003538,002872: 01,2067           10020        RTB/BHIZ           CCS      CYR                                   
003539,002873: 01,2070           30103        RTB                CA       POLISH                                
003540,002874: 01,2071           14105                           TCF      BANKJUMP                              #  CALL BASIC ROUTINE.
003541,002875: 
003542,002876: 01,2072           10140        BHIZ               CCS      MPAC                                  
003543,002877: 01,2073           16014                           TCF      DANZIG                                
003544,002878: 01,2074           16650                           TCF      GOTO                                  
003545,002879: 01,2075           16014                           TCF      DANZIG                                
003546,002880: 01,2076           16650                           TCF      GOTO                                  
003547,002881: 
003548,002882: 01,2077           10105        BOV(B)             CCS      OVFIND                                #  BRANCH ON OVERFLOW TO BASIC OR INTERP.
003549,002883: 01,2100           12102                           TCF      +2                                    
003550,002884: 01,2101           16014                           TCF      DANZIG                                
003551,002885: 01,2102           54105                           TS       OVFIND                                
003552,002886: 01,2103           10020                           CCS      CYR                                   
003553,002887: 01,2104           12070                           TCF      RTB                                   #  IF BASIC.
003554,002888: 01,2105           00360        B5TOBB             OCT      360                                   
003555,002889: 01,2106           16650                           TCF      GOTO                                  
003556,002890: 

Page 101

003558,002892: 01,2107           10020        BZE/GOTO           CCS      CYR                                   #  SEE WHICH OP-CODE IS DESIRED.
003559,002893: 01,2110           06710                           TC       BRANCH                                #  DO BZE.
003560,002894: 01,2111           16014                           TCF      DANZIG                                
003561,002895: 01,2112           16650                           TCF      GOTO                                  #  DO GOTO.
003562,002896: 01,2113           16014                           TCF      DANZIG                                
003563,002897: 
003564,002898: 01,2114           10020        BPL/BMN            CCS      CYR                                   
003565,002899: 01,2115           12123                           TCF      BPL                                   
003566,002900: 01,2116           12000        5B10               DEC      5          B+10                       #  SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
003567,002901: 
003568,002902: 01,2117           06710                           TC       BRANCH                                #  DO BMN.
003569,002903: 01,2120           16014                           TCF      DANZIG                                
003570,002904: 01,2121           16014                           TCF      DANZIG                                
003571,002905: 01,2122           16650                           TCF      GOTO                                  #  ONLY IF NNZ.
003572,002906: 
003573,002907: 01,2123           06710        BPL                TC       BRANCH                                
003574,002908: 01,2124           16650                           TCF      GOTO                                  #  IF POSITIVE OR ZERO.
003575,002909: 01,2125           16650                           TCF      GOTO                                  
003576,002910: 01,2126           16014                           TCF      DANZIG                                
003577,002911: 
003578,002912: 01,2127           10020        CALL/ITA           CCS      CYR                                   
003579,002913: 01,2130           16643                           TCF      CALL                                  
003580,002914: 
003581,002915: 01,2131           00017        LOW4               OCT      17                                    #  MASK USED BY SWITCH INSTRUCTIONS.
003582,002916: 
003583,002917: 01,2132           50104                           INDEX    FIXLOC                                #  STORE QPRET.
003584,002918: 01,2133           30052                           CA       QPRET                                 
003585,002919: 01,2134           16626                           TCF      STORE1                                
003586,002920: 

Page 102

003588,002922:                                                                                                  #           THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
003589,002923: 
003590,002924:                                                                                                  #  00       BONSET                 SET A SWITCH AND DO A GOTO IF IT WAS ON.
003591,002925:                                                                                                  #  01       SETGO                  SET A SWITCH AND DO A GOTO.
003592,002926:                                                                                                  #  02       BOFSET                 SET A SWITCH AND DO A GOTO IF IT WAS OFF
003593,002927:                                                                                                  #  03       SET                    SET A SWITCH.
003594,002928: 
003595,002929:                                                                                                  #  04       BONINV                 INVERT A SWITCH AND BRANCH IF IT WAS ON.
003596,002930:                                                                                                  #  05       INVGO                  INVERT A SWITCH AND DO A GOTO.
003597,002931:                                                                                                  #  06       BOFINV                 INVERT A SWITCH AND BRANCH IF IT WAS OFF
003598,002932:                                                                                                  #  07       INVERT                 INVERT A SWITCH.
003599,002933: 
003600,002934:                                                                                                  #  10       BONCLR                 CLEAR A SWITCH AND BRANCH IF IT WAS ON.
003601,002935:                                                                                                  #  11       CLRGO                  CLEAR A SWITCH AND DO A GOTO.
003602,002936:                                                                                                  #  12       BOFCLR                 CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
003603,002937:                                                                                                  #  13       CLEAR                  CLEAR A SWITCH.
003604,002938: 
003605,002939:                                                                                                  #  14       BON                    BRANCH IF A SWITCH WAS ON.
003606,002940:                                                                                                  #  16       BOFF                   BRANCH IF A SWITCH WAS OFF.
003607,002941: 
003608,002942: 
003609,002943: 
003610,002944:                                                                                                  #           THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
003611,002945: 
003612,002946:                                                                                                  #           BITS 1-4    SWITCH BIT NUMBER (1-15).
003613,002947:                                                                                                  #           BITS 5-8    SWITCH OPERATION NUMBER.
003614,002948:                                                                                                  #           BITS 9-     SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
003615,002949: 
003616,002950:                                                                                                  #           THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER. THE BRANCH INSTRUCTIONS REQUIRE TWO
003617,002951:                                                                                                  #  ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
003618,002952: 
003619,002953: 
003620,002954: 
003621,002955: 01,2135           32131        SWITCHES           CAF      LOW4                                  #  LEAVE THE SWITCH BIT IN SWBIT  .
003622,002956: 01,2136           70103                           MASK     POLISH                                
003623,002957: 01,2137           50000                           INDEX    A                                     
003624,002958: 01,2140           37630                           CAF      BIT15                                 #  (NUMBER FROM LEFT TO RIGHT.)
003625,002959: 01,2141           54115                           TS       SWBIT                                 
003626,002960: 
003627,002961: 01,2142           37637                           CAF      BIT8                                  #  LEAVE THE SWITCH WORD NUMBER IN  SWWORD
003628,002962: 01,2143           00006                           EXTEND                                         
003629,002963: 01,2144           70103                           MP       POLISH                                
003630,002964: 01,2145           54114                           TS       SWWORD                                
003631,002965: 
003632,002966: 01,2146           00004                           INHINT                                         #  DURING SWITCH CHANGE SO RUPT CAN USE TOO
003633,002967: 01,2147           50000                           INDEX    A                                     #  LEAVE THE SWITCH WORD ITSELF IN L.
003634,002968: 01,2150           30620                           CA       STATE                                 
003635,002969: 01,2151           54002                           TS       Q                                     #  Q WILL BE USED AS A CHANNEL.
003636,002970: 

Page 103

003638,002972: 01,2152           37634                           CAF      BIT11                                 
003639,002973: 01,2153           00006                           EXTEND                                         #  DISPATCH SWITCH BIT OPERATION AS IN BITS
003640,002974: 01,2154           70103                           MP       POLISH                                #  7-8 OF POLISH.
003641,002975: 01,2155           72215                           MASK     B3TOB4                                #  GETS 4X2-BIT CODE.
003642,002976: 01,2156           50000                           INDEX    A                                     
003643,002977: 01,2157           12160                           TCF      +1                                    
003644,002978: 
003645,002979: 01,2160           30115                 +1        CA       SWBIT                                 #  00 - SET SWITCH IN QUESTION.
003646,002980: 01,2161           00006                           EXTEND                                         
003647,002981: 01,2162           04002                           ROR      Q                                     
003648,002982: 01,2163           12172                           TCF      SWSTORE                               
003649,002983: 
003650,002984: 01,2164           30115                 +5        CA       SWBIT                                 #  01 - INVERT SWITCH.
003651,002985: 01,2165           00006                           EXTEND                                         
003652,002986: 01,2166           06002                           RXOR     Q                                     
003653,002987: 01,2167           12172                           TCF      SWSTORE                               
003654,002988: 
003655,002989: 01,2170           40115                 +9D       CS       SWBIT                                 #  10 - CLEAR.
003656,002990: 01,2171           70002                           MASK     Q                                     
003657,002991: 01,2172           50114        SWSTORE            INDEX    SWWORD                                
003658,002992: 01,2173           54620                           TS       STATE                                 #  NEW SWITCH WORD.
003659,002993: 

Page 104

003661,002995: 01,2174           00003                 +13D      RELINT                                         #  11 - NOOP.
003662,002996: 01,2175           37632                           CAF      BIT13                                 
003663,002997: 01,2176           00006                           EXTEND                                         #  DISPATCH SEQUCE CHANGING OR BRANCHING
003664,002998: 01,2177           70103                           MP       POLISH                                #  CODE.
003665,002999: 01,2200           72215                           MASK     B3TOB4                                
003666,003000: 01,2201           50000                           INDEX    A                                     
003667,003001: 01,2202           12203                           TCF      +1                                    #  ORIGINALLY STORED IN BITS 5-6.
003668,003002: 
003669,003003: 01,2203           40002                 +1        CS       Q                                     #  00 - BRANCH IF ON.
003670,003004: 01,2204           70115        TEST               MASK     SWBIT                                 
003671,003005: 01,2205           10000                           CCS      A                                     
003672,003006: 01,2206           12216                           TCF      SWSKIP                                
003673,003007: 
003674,003008: 01,2207           16702                 +5        TCF      SWBRANCH                              #  01 - GO TO.
003675,003009: 
003676,003010: 01,2210           12216                           TCF      SWSKIP                                #  HERE ONLY ON BIT 15.
003677,003011: 
003678,003012: 01,2213                                           SETLOC   +2                                    
003679,003013: 
003680,003014: 01,2213           30002                 +9D       CA       Q                                     #  10 - BRANCH IF OFF.
003681,003015: 01,2214           12204                           TCF      TEST                                  
003682,003016: 
003683,003017: 01,2215           00014        B3TOB4             OCT      14                                    
003684,003018: 
003685,003019: 01,2216           24150        SWSKIP             INCR     LOC                                   
003686,003020: 
003687,003021: 01,2217  01,2135               SW/                EQUALS   SWITCHES                              
003688,003022: 
003689,003023: 01,2217           16014                 +13D      TCF      DANZIG                                #  11 - NOOP.
003690,003024: 
003691,003025: 01,2220                        ENDINTS1           EQUALS                                         

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