Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

042710,000002:                                                                                                  ## Copyright:   Public domain.
042711,000003:                                                                                                  ## Filename:    INTERPRETER.agc
042712,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
042713,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
042714,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
042715,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
042716,000008:                                                                                                  ##              that the code format has been changed to conform to the
042717,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the 
042718,000010:                                                                                                  ##              original YUL assembler.
042719,000011:                                                                                                  ## Reference:   pp. 996-1088
042720,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
042721,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
042722,000014:                                                                                                  ## Mod history: 05/06/03 RSB.   Began transcribing.
042723,000015:                                                                                                  ##              11/24/03 RSB.   Made some obvious corrections to the comments.
042724,000016:                                                                                                  ##              05/14/05 RSB.   Corrected website reference above.
042725,000017:                                                                                                  ##              2010-10-25 JL   Indentation fixes.
042726,000018:                                                                                                  ##              2011-05-07 JL   Removed workarounds.
042727,000019:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
042728,000020:                                                                                                  ##                              original harcopy, as opposed to the PDF page
042729,000021:                                                                                                  ##                              numbers in 1701.pdf.
042730,000022:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment-text fixes made in Luminary 69.
042731,000023:                                                                                                  ##              2017-02-05 RSB  Back-ported comment corrections 
042732,000024:                                                                                                  ##                              identified while proofing Artemis 072.
042733,000025:                                                                                                  ##              2017-02-26 RSB  Proofed comment text using octopus/ProoferComments.
042734,000026:                                                                                                  ##              2017-03-01 RSB  Fixed lingering typos.
042735,000027:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
042736,000028:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
042737,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
042738,000030:                                                                                                  ##              2021-05-30 ABS  Added IRT0 location symbol to match scans.
042739,000031:                                                                                                  ##                              B5TOBB -> B5TOB8
042740,000032: 

Page 996

042742,000034:                                                                                                  #  SECTION 1  DISPATCHER
042743,000035: 
042744,000036:                                                                                                  #  ENTRY TO THE INTERPRETER.  INTPRET SETS LOC TO THE FIRST INSTRUCTION, BANKSET TO THE BBANK OF THE
042745,000037:                                                                                                  #  OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK.  INTERPRETIVE PROGRAMS MAY BE IN
042746,000038:                                                                                                  #  VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
042747,000039:                                                                                                  #  (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA.  THE INTERPRETER DOES NOT SWITCH SUPERBANKS.
042748,000040:                                                                                                  #  E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
042749,000041: 
042750,000042:    6042                                           BLOCK    03                                    
042751,000043: 
042752,000044:    6042                                           COUNT*   $$/INTER                              
042753,000045:    6042           00003        INTPRET            RELINT                                         
042754,000046:    6043           00006                           EXTEND                                         #  SET LOC TO THE WORD FOLLOWING THE TC.
042755,000047:    6044           22164                           QXCH     LOC                                   
042756,000048:    6045           30006                 +2        CA       BBANK                                 #  INTERPRETIVE BRANCHES FINISH HERE.
042757,000049:    6046           54165                           TS       BANKSET                               
042758,000050:    6047           74735                           MASK     BIT15                                 #  GET 15TH BIT FOR INDEXABLE ADDRESSES.
042759,000051:    6050           54115                           TS       INTBIT15                              
042760,000052: 
042761,000053:    6051           54023                           TS       EDOP                                  #  MAKE SURE NO INSTRUCTIONS LEFT OVER
042762,000054: 
042763,000055:    6052           16073                           TCF      NEWOPS                                #  PICK UP OP CODE PAIR AND BEGIN.
042764,000056: 
042765,000057:    6053           22006        INTRSM             LXCH     BBANK                                 #  RESUME SUSPENDED INTERPRETIVE JOB
042766,000058:    6054           16045                           TCF      INTPRET    +3                         
042767,000059: 
042768,000060:                                                                                                  #  DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
042769,000061: 
042770,000062:    6055           00006        DLOAD              EXTEND                                         
042771,000063:    6056           50116                           INDEX    ADDRWD                                
042772,000064:    6057           30001                           DCA      0                                     #  LOAD DP C(C(ADDRWD)) INTO MPAC,MPAX +1
042773,000065:    6060           52155        SLOAD2             DXCH     MPAC                                  
042774,000066:    6061           34755                           CAF      ZERO                                  #  ZERO MPAC +2
042775,000067: 

Page 997

042777,000069:                                                                                                  #  AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
042778,000070: 
042779,000071:    6062           54156                           TS       MPAC       +2                         #  AND DECLARE DP MODE
042780,000072: 
042781,000073:    6063           54163        NEWMODE            TS       MODE                                  #  PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
042782,000074: 
042783,000075:    6064           30165        DANZIG             CA       BANKSET                               #  SET BBANK BEFORE TESTING NEWJOB SO THAT
042784,000076:    6065           54006                           TS       BBANK                                 #  IT MAY BE SAVED DIRECTLY BY CHANJOB.
042785,000077: 
042786,000078:    6066           10023        NOIBNKSW           CCS      EDOP                                  #  SEE IF AN ORDER CODE IS LEFT OVER FROM
042787,000079:    6067           16102                           TCF      OPJUMP                                #  THE LAST PAIR RETRIEVED.  IF SO, EXECUTE.
042788,000080:                                                                                                  #  EDOP IS SET TO ZERO ON ITS RE-EDITING.
042789,000081: 
042790,000082:    6070           10067                           CCS      NEWJOB                                #  SEE IF A JOB OF HIGHER PRIORITY IS
042791,000083:    6071           15126                           TCF      CHANG2                                #  PRESENT, AND IF SO, CHANGE JOBS.
042792,000084: 
042793,000085:    6072           24164                           INCR     LOC                                   #  ADVANCE THE LOCATION COUNTER.
042794,000086: 
042795,000087:                                                                                                  #  ITRACE (1) REFERS TO "NEWOPS".
042796,000088:    6073           50164        NEWOPS             INDEX    LOC                                   #  ENTRY TO BEGIN BY PICKING OP CODE PAIR.
042797,000089:    6074           30000                           CA       0                                     #  MAY BE AN OPCODE PAIR OR A STORE CODE.
042798,000090:    6075           10000                           CCS      A                                     #  TEST SIGN AND GET DABS(A).
042799,000091:    6076           16365                           TCF      DOSTORE                               #  PROCESS STORE CODE.
042800,000092: 
042801,000093:    6077           00177        LOW7               OCT      177                                   
042802,000094: 
042803,000095:    6100           54023                           TS       EDOP                                  #  OP CODE PAIR.  LEAVE THE OTHER IN EDOP
042804,000096:    6101           76077                           MASK     LOW7                                  #  WHERE CCS EDOP WILL HONOR IT NEXT.
042805,000097: 
042806,000098:    6102           54020        OPJUMP             TS       CYR                                   #  LOWWD ENTERS HERE IF A RIGHT-HAND OP
042807,000099:    6103           10020                           CCS      CYR                                   #  CODE IS TO BE PROCESSED.  TEST PREFICES.
042808,000100:    6104           16252                           TCF      OPJUMP2                               #  TEST SECOND PREFIX BIT.
042809,000101: 
042810,000102:    6105           16746                           TCF      EXIT                                  #  +0 OP CODE IS EXIT.
042811,000103: 

Page 998

042813,000105:                                                                                                  #  PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
042814,000106: 
042815,000107:    6106           74753        ADDRESS            MASK     BIT1                                  #  SEE IF ADDRESS IS INDEXED.  CYR CONTAINED
042816,000108:    6107           10000                           CCS      A                                     #  400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
042817,000109:    6110           16151                           TCF      INDEX                                 #  FORM INDEXED ADDRESS.
042818,000110: 
042819,000111:    6111           50164        DIRADRES           INDEX    LOC                                   #  LOOK AHEAD TO NEXT WORD TO SEE IF
042820,000112:    6112           40001        OCT40001           CS       1                                     #  ADDRESS IS GIVEN.
042821,000113:    6113           10000                           CCS      A                                     
042822,000114:    6114           16220                           TCF      PUSHUP                                #  IF NOT.
042823,000115: 
042824,000116:    6115           77773        NEG4               DEC      -4         B-14                       
042825,000117: 
042826,000118:    6116           24164                           INCR     LOC                                   #  IF SO, TO SHOW WE PICKED UP A WORD.
042827,000119:    6117           54116                           TS       ADDRWD                                
042828,000120: 

Page 999

042830,000122:                                                                                                  #  FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE.   IN EACH CASE, THE
042831,000123:                                                                                                  #  REQUIRED 12-BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED E OR F BANK SWITCHING DONE.  ADDRESSES LESS
042832,000124:                                                                                                  #  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.
042833,000125: 
042834,000126:    6120           66254                           AD       -ENDVAC                               #  SEE IF ADDRESS RELATIVE TO WORK AREA.
042835,000127:    6121           10000                           CCS      A                                     
042836,000128:    6122           67746                           AD       -ENDERAS                              #  IF NOT, SEE IF IN GENERAL ERASABLE.
042837,000129:    6123           16130                           TCF      IERASTST                              
042838,000130: 
042839,000131:    6124           30120        NETZERO            CA       FIXLOC                                #  IF SO, LEAVE THE MODIFIED ADDRESS IN
042840,000132:    6125           26116                           ADS      ADDRWD                                #  ADDRWD AND DISPATCH.
042841,000133:    6126           50020        ITR15              INDEX    CYR                                   #  THIS INDEX MAKES THE NEXT INSTRUCTION
042842,000134:    6127           76276                           7        INDJUMP    -1                         #  TCF INDJUMP + OP, EDITING CYR.
042843,000135: 
042844,000136:    6130           00006        IERASTST           EXTEND                                         
042845,000137:    6131           66141                           BZMF     GEADDR                                #  GO PROCESS GENERAL-ERASABLE ADDRESS.
042846,000138: 
042847,000139:    6132           75012                           MASK     LOW10                                 #  FIXED BANK ADDRESS. RESTORE AND ADD B15.
042848,000140:    6133           65012                           AD       LOW10                                 #  SWITCH BANKS AND LEAVE SUBADDRESS IN
042849,000141:    6134           56116                           XCH      ADDRWD                                #  ADDRWD FOR OPERAND RETRIEVAL. (THIS
042850,000142:    6135           60115                           AD       INTBIT15                              #  METHOD PRECLUDES USE OF THE LAST
042851,000143:    6136           54004                           TS       FBANK                                 #  LOCATION IN EACH FBANK.)
042852,000144:    6137           50020        ITR12              INDEX    CYR                                   
042853,000145:    6140           76276                           7        INDJUMP    -1                         
042854,000146: 
042855,000147:    6141           74357        GEADDR             MASK     LOW8                                  
042856,000148:    6142           65007                           AD       OCT1400                               
042857,000149:    6143           56116                           XCH      ADDRWD                                
042858,000150:    6144           54003                           TS       EBANK                                 
042859,000151:    6145           50020        ITR10              INDEX    CYR                                   
042860,000152:    6146           76276                           7        INDJUMP    -1                         
042861,000153: 

Page 1000

042863,000155:                                                                                                  #  THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES.  AN INTERPRETER INDEX REGISTER MAY
042864,000156:                                                                                                  #  CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
042865,000157:                                                                                                  #  BANK, OR ANY INTEGER IN THAT RANGE.
042866,000158: 
042867,000159:    6147           37736        DODLOAD*           CAF      DLOAD*                                #  STODL* COMES HERE TO PROCESS LOAD ADR.
042868,000160:    6150           54020                           TS       CYR                                   #  (STOVL* ENTERS HERE).
042869,000161: 
042870,000162:    6151           30120        INDEX              CA       FIXLOC                                #  SET UP INDEX LOCATION.
042871,000163:    6152           54130                           TS       INDEXLOC                              
042872,000164:    6153           24164                           INCR     LOC                                   #  (ADDRESS ALWAYS GIVEN).
042873,000165:    6154           50164                           INDEX    LOC                                   
042874,000166:    6155           40000                           CS       0                                     
042875,000167:    6156           10000                           CCS      A                                     #  INDEX 2 IF ADDRESS STORED COMPLEMENTED.
042876,000168:    6157           24130                           INCR     INDEXLOC                              
042877,000169:    6160           16161                           NOOP                                           
042878,000170: 
042879,000171:    6161           54116                           TS       ADDRWD                                #  14 BIT ADDRESS TO ADDRWD.
042880,000172:    6162           77745                           MASK     HIGH4                                 #  IF ADDRESS GREATER THAN 2K, ADD INTBIT15
042881,000173:    6163           00006                           EXTEND                                         
042882,000174:    6164           16167                           BZF      INDEX2                                
042883,000175:    6165           30115                           CA       INTBIT15                              
042884,000176:    6166           26116                           ADS      ADDRWD                                
042885,000177: 
042886,000178:    6167           50130        INDEX2             INDEX    INDEXLOC                              
042887,000179:    6170           40046                           CS       X1                                    
042888,000180:    6171           26116                           ADS      ADDRWD                                #  DO AUGMENT, IGNORING AND CORRECTING OVF.
042889,000181: 
042890,000182:    6172           77747                           MASK     HIGH9                                 #  SEE IF ADDRESS IS IN WORK AREA.
042891,000183:    6173           00006                           EXTEND                                         
042892,000184:    6174           16207                           BZF      INDWORK                               
042893,000185:    6175           77745                           MASK     HIGH4                                 #  SEE IF IN FIXED BANK.
042894,000186:    6176           00006                           EXTEND                                         
042895,000187:    6177           16211                           BZF      INDERASE                              
042896,000188: 
042897,000189:    6200           30116                           CA       ADDRWD                                #  IN FIXED - SWITCH BANKS AND CREATE
042898,000190:    6201           54004                           TS       FBANK                                 #  SUB-ADDRESS.
042899,000191:    6202           75012                           MASK     LOW10                                 
042900,000192:    6203           64741                           AD       2K                                    
042901,000193:    6204           54116                           TS       ADDRWD                                
042902,000194:    6205           50020        ITR11              INDEX    CYR                                   
042903,000195:    6206           36276                           3        INDJUMP    -1                         
042904,000196: 
042905,000197:    6207           30120        INDWORK            CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO WORK AREA.
042906,000198:    6210           16215                           TCF      ITR13      -1                         
042907,000199: 
042908,000200:    6211           35007        INDERASE           CA       OCT1400                               
042909,000201:    6212           56116                           XCH      ADDRWD                                
042910,000202:    6213           54003                           TS       EBANK                                 
042911,000203:    6214           74357                           MASK     LOW8                                  
042912,000204:    6215           26116                 -1        ADS      ADDRWD                                

Page 1001

042914,000206:    6216           50020        ITR13              INDEX    CYR                                   
042915,000207:    6217           36276                           3        INDJUMP    -1                         
042916,000208: 

Page 1002

042918,000210:                                                                                                  #  PUSH-UP ROUTINES.  WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
042919,000211:                                                                                                  #  LIST.  IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
042920,000212:                                                                                                  #  IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.).  EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
042921,000213:                                                                                                  #  BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
042922,000214: 
042923,000215:                                                                                                  #        1.      VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
042924,000216:                                                                                                  #                RESULT, VXSC WANTS A SCALAR.
042925,000217: 
042926,000218:                                                                                                  #        2.      THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION.  THIS
042927,000219:                                                                                                  #                INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
042928,000220: 
042929,000221:                                                                                                  #        3.      SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
042930,000222:                                                                                                  #                THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
042931,000223: 
042932,000224:    6220           34360        PUSHUP             CAF      OCT23                                 #  IF THE LOW 5 BITS OF CYR ARE LESS THAN
042933,000225:    6221           70020                           MASK     CYR                                   #  20, THIS OP REQUIRES SPECIAL ATTENTION.
042934,000226:    6222           66225                           AD       -OCT10                                #  (NO -0).
042935,000227:    6223           10000                           CCS      A                                     
042936,000228:    6224           16236                           TCF      REGUP                                 #  FOR ALL CODES GREATER THAN OCT 7.
042937,000229: 
042938,000230:    6225           77767        -OCT10             OCT      -10                                   
042939,000231: 
042940,000232:    6226           66115                           AD       NEG4                                  #  WE NOW HAVE 7 - OP CODE (MOD4).  SEE IF
042941,000233:    6227           10000                           CCS      A                                     #  THE OP CODE (MOD4) IS THREE (REVERSE).
042942,000234:    6230           50000                           INDEX    A                                     #  NO - THE MODE IS DEFINITE.  PICK UP THE
042943,000235:    6231           46247                           CS       NO.WDS                                
042944,000236:    6232           16240                           TCF      REGUP      +2                         
042945,000237: 
042946,000238:    6233           50163                           INDEX    MODE                                  #  FOR VXSC AND V/SC WE WANT THE REQUIRED
042947,000239:    6234           46245                           CS       REVCNT                                #  PUSHLOC DECREMENT WITHOUT CHANGING THE
042948,000240:    6235           16240                           TCF      REGUP      +2                         #  MODE AT THIS TIME.
042949,000241: 
042950,000242:    6236           50163        REGUP              INDEX    MODE                                  #  MOST ALL OP CODES PUSHUP HERE.
042951,000243:    6237           46247                           CS       NO.WDS                                
042952,000244:    6240           26166                 +2        ADS      PUSHLOC                               
042953,000245:    6241           54116                           TS       ADDRWD                                
042954,000246:    6242           50020        ITR14              INDEX    CYR                                   
042955,000247:    6243           76276                           7        INDJUMP    -1                         #  (THE INDEX MAKES THIS A TCF.)
042956,000248: 
042957,000249:    6244           00002                           OCT      2                                     #  REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
042958,000250:    6245           00006        REVCNT             OCT      6                                     #  WORDS, SCALAR TAKES 6.
042959,000251:    6246           00006                           OCT      6                                     
042960,000252:    6247           00002        NO.WDS             OCT      2                                     #  CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
042961,000253:    6250           00003        OCTAL3             OCT      3                                     #  2 IN DP, AND 3 IN TP.
042962,000254:    6251           00006                           OCT      6                                     
042963,000255: 

Page 1003

042965,000257:                                                                                                  #  TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
042966,000258: 
042967,000259:    6252           10020        OPJUMP2            CCS      CYR                                   #  TEST SECOND PREFIX BIT.
042968,000260:    6253           16266                           TCF      OPJUMP3                               #  TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
042969,000261: 
042970,000262:    6254           77722        -ENDVAC            DEC      -45        B-14                       
042971,000263: 
042972,000264:                                                                                                  #  THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10.  THEY ARE BASICALLY WORK AREA ADDRESSES
042973,000265:                                                                                                  #  IN THE RANGE 0-52, ERASABLE ECADR CONSTANTS FROM 100-3777, AND FCADRS ABOVE THAT.  ALL 15 BITS ARE AVAILABLE
042974,000266:                                                                                                  #  IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
042975,000267: 
042976,000268:    6255           24164        15BITADR           INCR     LOC                                   #  (ENTRY HERE FROM STCALL).
042977,000269:    6256           50164                           INDEX    LOC                                   #  PICK UP ADDRESS WORD.
042978,000270:    6257           30000                           CA       0                                     
042979,000271:    6260           54117                           TS       POLISH                                #  WE MAY NEED A SUBADDRESS LATER.
042980,000272: 
042981,000273:    6261           35013                           CAF      LOW7+2K                               #  THESE INSTRUCTIONS ARE IN BANK 1.
042982,000274:    6262           54004                           TS       FBANK                                 
042983,000275:    6263           70020                           MASK     CYR                                   
042984,000276:    6264           50000        ITR7               INDEX    A                                     
042985,000277:    6265           16337                           TCF      MISCJUMP                              
042986,000278: 

Page 1004

042988,000280:                                                                                                  #  COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
042989,000281: 
042990,000282:    6266           54004        OPJUMP3            TS       FBANK                                 #  CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
042991,000283:                                                                                                  #          ITRACE (6) REFERS TO "OPJUMP3".
042992,000284:    6267           10020                           CCS      CYR                                   #  TEST THIRD PREFIX BIT.
042993,000285:    6270           50000                           INDEX    A                                     #  THE DECREMENTED UNARY CODE IS IN BITS
042994,000286:    6271           12000                           TCF      UNAJUMP                               #  1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
042995,000287: 
042996,000288:    6272           10163                           CCS      MODE                                  #  ITS A SHORT SHIFT CODE.  SEE IF PRESENT
042997,000289:    6273           12017                           TCF      SHORTT                                #  SCALAR OR VECTOR.
042998,000290:    6274           12017                           TCF      SHORTT                                
042999,000291:    6275           12121                           TCF      SHORTV                                #  CALLS THE APPROPRIATE ROUTINE.
043000,000292: 
043001,000293:    6276     4350               FBANKMSK           EQUALS   BANKMASK                              
043002,000294:    6276           00122        LVBUF              ADRES    VBUF                                  
043003,000295: 

Page 1005

043005,000297:                                                                                                  #  THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
043006,000298: 
043007,000299:    6277           16510        INDJUMP            TCF      VLOAD                                 #  00 - LOAD MPAC WITH A VECTOR.
043008,000300:    6300           17074                           TCF      TAD                                   #  01 - TRIPLE PRECISION ADD TO MPAC.
043009,000301:    6301           17660                           TCF      SIGN                                  #  02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
043010,000302:    6302           17404                           TCF      VXSC                                  #  03 - VECTOR TIMES SCALAR.
043011,000303:    6303           16706                           TCF      CGOTO                                 #  04 - COMPUTED GO TO.
043012,000304:    6304           16473                           TCF      TLOAD                                 #  05 - LOAD MPAC WITH TRIPLE PRECISION.
043013,000305:    6305           16055                           TCF      DLOAD                                 #  06 - LOAD MPAC WITH A DP SCALAR.
043014,000306:    6306           17627                           TCF      V/SC                                  #  07 - VECTOR DIVIDED BY SCALAR.
043015,000307: 
043016,000308:    6307           16504                           TCF      SLOAD                                 #  10 - LOAD MPACIN SINGLE PRECISION.
043017,000309:    6310           16623                           TCF      SSP                                   #  11 - SET SINGLE PRECISION INTO X.
043018,000310:    6311           16526                           TCF      PDDL                                  #  12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
043019,000311:    6312           17337                           TCF      MXV                                   #  13 - MATRIX POST-MULTIPLIED BY VECTOR.
043020,000312:    6313           16562                           TCF      PDVL                                  #  14 - PUSH DOWN AND VECTORLOAD.
043021,000313:    6314           16631                           TCF      CCALL                                 #  15 - COMPUTED CALL.
043022,000314:    6315           17342                           TCF      VXM                                   #  16 - MATRIX PRE-MULTIPLIED BY VECTOR.
043023,000315:    6316           17621                           TCF      TSLC                                  #  17 - NORMALIZE MPAC (SCALAR ONLY).
043024,000316: 
043025,000317:    6317           17577                           TCF      DMPR                                  #  20 - DP MULTIPLY AND ROUND.
043026,000318:    6320           17602                           TCF      DDV                                   #  21 - DP DIVIDE BY.
043027,000319:    6321           17606                           TCF      BDDV                                  #  22 - DP DIVIDE INTO.
043028,000320:    6322           17624                           TCF      GSHIFT                                #  23 - GENERAL SHIFT INSTRUCTION.
043029,000321:    6323           16754                           TCF      VAD                                   #  24 - VECTOR ADD.
043030,000322:    6324           16752                           TCF      VSU                                   #  25 - VECTOR SUBTRACT.
043031,000323:    6325           17041                           TCF      BVSU                                  #  26 - VECTOR SUBTRACT FROM.
043032,000324:    6326           17334                           TCF      DOT                                   #  27 - VECTOR DOT PRODUCT.
043033,000325: 
043034,000326:    6327           17463                           TCF      VXV                                   #  30 - VECTOR CROSS PRODUCT.
043035,000327:    6330           17430                           TCF      VPROJ                                 #  31 - VECTOR PROJECTION.
043036,000328:    6331           17010                           TCF      DSU                                   #  32 - DP SUBTRACT.
043037,000329:    6332           17065                           TCF      BDSU                                  #  33 - DP SUBTRACT FROM.
043038,000330:    6333           17000                           TCF      DAD                                   #  34 - DP ADD.
043039,000331:    6334           16334                           TCF      +0                                    #  35 - AVAILABLE
043040,000332:    6335           17575                           TCF      DMP1                                  #  36 - DP MULTIPLY.
043041,000333:    6336           17616                           TCF      SETPD                                 #  37 - SET PUSH DOWN POINTER (DIRECT ONLY)
043042,000334: 
043043,000335:                                                                                                  #  CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
043044,000336: 

Page 1006

043046,000338:                                                                                                  #  THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
043047,000339: 
043048,000340:    6337           12345        MISCJUMP           TCF      AXT                                   #  00 - ADDRESS TO INDEX TRUE.
043049,000341:    6340           12352                           TCF      AXC                                   #  01 - ADDRESS TO INDEX COMPLEMENTED.
043050,000342:    6341           12355                           TCF      LXA                                   #  02 - LOAD INDEX FROM ERASABLE.
043051,000343:    6342           12361                           TCF      LXC                                   #  03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
043052,000344:    6343           12365                           TCF      SXA                                   #  04 - STORE INDEX IN ERASABLE.
043053,000345:    6344           12373                           TCF      XCHX                                  #  05 - EXCHANGE INDEX WITH ERASABLE.
043054,000346:    6345           12407                           TCF      INCR                                  #  06 - INCREMENT INDEX REGISTER.
043055,000347:    6346           12416                           TCF      TIX                                   #  07 - TRANSFER ON INDEX.
043056,000348: 
043057,000349:    6347           12401                           TCF      XAD                                   #  10 - INDEX REGISTER ADD FROM ERASABLE.
043058,000350:    6350           12412                           TCF      XSU                                   #  11 - INDEX SUBTRACT FROM ERASABLE.
043059,000351:    6351           12470                           TCF      BZE/GOTO                              #  12 - BRANCH ZERO AND GOTO.
043060,000352:    6352           12475                           TCF      BPL/BMN                               #  13 - BRANCH PLUS AND BRANCH MINUS.
043061,000353:    6353           12450                           TCF      RTB/BHIZ                              #  14 - RETURN TO BASIC AND BRANCH HI ZERO.
043062,000354:    6354           12510                           TCF      CALL/ITA                              #  15 - CALL AND STORE QPRET.
043063,000355:    6355           12517                           TCF      SW/                                   #  16 - SWITCH INSTRUCTIONS AND AVAILABLE.
043064,000356:    6356           12460                           TCF      BOV(B)                                #  17 - BRANCH ON OVERFLOW TO BASIC OR INT.
043065,000357: 

Page 1007

043067,000359:                                                                                                  #  THE FOLLOWING JUMP TABLE APPIES TO UNARY INSTRUCTIONS.
043068,000360: 
043069,000361:    6357                                           COUNT*   $$/INTER                              
043070,000362: 00,2000                                           BANK     0                                     #  00 - EXIT - DETECTED EARLIER.
043071,000363: 00,2000           13207        UNAJUMP            TCF      SQRT                                  #  01 - SQUARE ROOT.
043072,000364: 00,2001           13530                           TCF      SINE                                  #  02 - SIN.
043073,000365: 00,2002           13517                           TCF      COSINE                                #  03 - COS.
043074,000366: 00,2003           13610                           TCF      ARCSIN                                #  04 - ARC SIN.
043075,000367: 00,2004           13612                           TCF      ARCCOS                                #  05 - ARC COS.
043076,000368: 00,2005           13174                           TCF      DSQ                                   #  06 - DP SQUARE.
043077,000369: 00,2006           12116                           TCF      ROUND                                 #  07 - ROUND TO DP.
043078,000370: 
043079,000371: 00,2007           17673                           TCF      COMP                                  #  10 - COMPLEMENT VECTOR OR SCALAR.
043080,000372: 00,2010           13232                           TCF      VDEF                                  #  11 - VECTOR DEFINE.
043081,000373: 00,2011           13023                           TCF      UNIT                                  #  12 - UNIT VECTOR.
043082,000374: 00,2012           13176                           TCF      ABVALABS                              #  13 - LENGTH OF VECTOR OR MAG OF SCALAR.
043083,000375: 00,2013           13245                           TCF      VSQ                                   #  14 - SQUARE OF LENGTH OF VECTOR.
043084,000376: 00,2014           16357                           TCF      STADR                                 #  15 - PUSH UP ON STORE CODE.
043085,000377: 00,2015           13274                           TCF      RVQ                                   #  16 - RETURN VIA QPRET.
043086,000378: 00,2016           13247                           TCF      PUSH                                  #  17 - PUSH MPAC DOWN.
043087,000379: 

Page 1008

043089,000381:                                                                                                  #  SECTION 2     LOAD AND STORE PACKAGE.
043090,000382: 
043091,000383:                                                                                                  #  A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
043092,000384:                                                                                                  #  ACCUMULATOR (MPAC).  IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A 
043093,000385:                                                                                                  #  STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS.  MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
043094,000386:                                                                                                  #  FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC.  FOUR OPTIONS ARE AVAILABLE:
043095,000387: 
043096,000388:                                                                                                  #        1. STORE        STORE MPAC.  THE E ADDRESS MAY BE INDEXED.
043097,000389:                                                                                                  #        2. STODL        STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (THE LOAD MAY BE INDEXED).
043098,000390:                                                                                                  #        3. STOVL        STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
043099,000391:                                                                                                  #        4. STCALL       STORE AND DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE).
043100,000392: 
043101,000393:                                                                                                  #  STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
043102,000394: 
043103,000395:    6357                                           BLOCK    3                                     
043104,000396: 
043105,000397:    6357                                           COUNT*   $$/INTER                              
043106,000398:    6357           30165        STADR              CA       BANKSET                               #  THE STADR CODE (PUSHUP UP ON STORE
043107,000399:    6360           54004                           TS       FBANK                                 #  ADDRESS) ENTERS HERE.
043108,000400:    6361           24164                           INCR     LOC                                   
043109,000401:    6362           50164        ITR1               INDEX    LOC                                   #  THE STORECODE WAS STORED COMPLEMENTED TO
043110,000402:    6363           40000                           CS       0                                     #  MAKE IT LOOK LIKE AN OPCODE PAIR.
043111,000403:    6364           67752                           AD       NEGONE                                #  (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
043112,000404: 
043113,000405:    6365           54116        DOSTORE            TS       ADDRWD                                
043114,000406:    6366           74356                           MASK     LOW11                                 #  ENTRY FROM DISPATCHER.  SAVE THE ERASABLE
043115,000407:    6367           56116                           XCH      ADDRWD                                #  ADDRESS AND JUMP ON THE STORE CODE NO.
043116,000408:    6370           77725                           MASK     B12T14                                
043117,000409:    6371           00006                           EXTEND                                         
043118,000410:    6372           74747                           MP       BIT5                                  #  EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
043119,000411:    6373           50000        ITR0               INDEX    A                                     
043120,000412:    6374           16375                           TCF      STORJUMP                              
043121,000413: 

Page 1009

043123,000415:                                                                                                  #  STORE CODE JUMP TABLE.  CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
043124,000416:                                                                                                  #  A SUPPLIED OPERATION CODE.
043125,000417: 
043126,000418:                                                                                                  #  STORE STORE,1 AND STORE,2 RETURN TO DANZIG, THUS RESETTING THE EBANK TO ITS STATE AT INTPRET.
043127,000419: 
043128,000420:    6375           06425        STORJUMP           TC       STORE                                 #  STORE.
043129,000421:    6376           16064                           TCF      DANZIG                                #  PICK UP NEW OP CODE(S).
043130,000422:    6377           06417                           TC       STORE,1                               
043131,000423:    6400           16064                           TCF      DANZIG                                
043132,000424:    6401           06422                           TC       STORE,2                               
043133,000425:    6402           16064                           TCF      DANZIG                                
043134,000426: 
043135,000427:    6403           06425                           TC       STORE                                 #  STODL.
043136,000428:    6404           16463                           TCF      DODLOAD                               
043137,000429: 
043138,000430:    6405           06425                           TC       STORE                                 #  STODL WITH INDEXED LOAD ADDRESS.
043139,000431:    6406           16147                           TCF      DODLOAD*                              
043140,000432: 
043141,000433:    6407           06425                           TC       STORE                                 #  STOVL.
043142,000434:    6410           16466                           TCF      DOVLOAD                               
043143,000435: 
043144,000436:    6411           06425                           TC       STORE                                 #  STOVL WITH INDEXED LOAD ADDRESS.
043145,000437:    6412           16471                           TCF      DOVLOAD*                              
043146,000438:    6413           06425                           TC       STORE                                 #  STOTC.
043147,000439:    6414           34766                           CAF      CALLCODE                              
043148,000440:    6415           54020                           TS       CYR                                   
043149,000441:    6416           16255                           TCF      15BITADR                              #  GET A 15 BIT ADDRESS.
043150,000442: 

Page 1010

043152,000444:                                                                                                  #  STORE CODE ADDRESS PROCESSOR.
043153,000445: 
043154,000446:    6417           50120        STORE,1            INDEX    FIXLOC                                
043155,000447:    6420           40046                           CS       X1                                    
043156,000448:    6421           16424                           TCF      PRESTORE                              
043157,000449: 
043158,000450:    6422           50120        STORE,2            INDEX    FIXLOC                                
043159,000451:    6423           40047                           CS       X2                                    
043160,000452:    6424           26116        PRESTORE           ADS      ADDRWD                                #  RESULTANT ADDRESS IS IN ERASABLE.
043161,000453: 
043162,000454:    6425           40116        STORE              CS       ADDRWD                                
043163,000455:    6426           64772                           AD       DEC45                                 
043164,000456:    6427           10000                           CCS      A                                     #  DOES THE ADDRESS POINT TO THE WORK AREA?
043165,000457:    6430           30120                           CA       FIXLOC                                #  YES.
043166,000458:    6431           16436                           TCF      AHEAD5                                
043167,000459:    6432           35007                           CA       OCT1400                               #  NO.  SET EBANK & MAKE UP SUBADDRESS.
043168,000460:    6433           56116                           XCH      ADDRWD                                
043169,000461:    6434           54003                           TS       EBANK                                 
043170,000462:    6435           74357                           MASK     LOW8                                  
043171,000463:    6436           26116        AHEAD5             ADS      ADDRWD                                
043172,000464: 

Page 1011

043174,000466:                                                                                                  #  STORING ROUTINES.  STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
043175,000467: 
043176,000468:    6437           00006        STARTSTO           EXTEND                                         #  MPAC,+1 MUST BE STORED IN ANY EVENT.
043177,000469:                                                                                                  #  ITRACE (5) REFERS TO "STARTSTO".
043178,000470:    6440           30155                           DCA      MPAC                                  
043179,000471:    6441           50116                           INDEX    ADDRWD                                
043180,000472:    6442           52001                           DXCH     0                                     
043181,000473: 
043182,000474:    6443           10163                           CCS      MODE                                  
043183,000475:    6444           16457                           TCF      TSTORE                                
043184,000476:    6445           00002                           TC       Q                                     
043185,000477: 
043186,000478:    6446           00006        VSTORE             EXTEND                                         
043187,000479:    6447           30160                           DCA      MPAC       +3                         
043188,000480:    6450           50116                           INDEX    ADDRWD                                
043189,000481:    6451           52003                           DXCH     2                                     
043190,000482: 
043191,000483:    6452           00006                           EXTEND                                         
043192,000484:    6453           30162                           DCA      MPAC       +5                         
043193,000485:    6454           50116                           INDEX    ADDRWD                                
043194,000486:    6455           52005                           DXCH     4                                     
043195,000487:    6456           00002                           TC       Q                                     
043196,000488: 
043197,000489:    6457           30156        TSTORE             CA       MPAC       +2                         
043198,000490:    6460           50116                           INDEX    ADDRWD                                
043199,000491:    6461           54002                           TS       2                                     
043200,000492:    6462           00002                           TC       Q                                     
043201,000493: 

Page 1012

043203,000495:                                                                                                  #           ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
043204,000496:                                                                                                  #  ITSELF.
043205,000497: 
043206,000498:    6463           37735        DODLOAD            CAF      DLOADCOD                              
043207,000499:    6464           54020                           TS       CYR                                   
043208,000500:    6465           16111                           TCF      DIRADRES                              #  GO GET A DIRECT ADDRESS.
043209,000501: 
043210,000502:    6466           34735        DOVLOAD            CAF      VLOADCOD                              
043211,000503:    6467           54020                           TS       CYR                                   
043212,000504:    6470           16111                           TCF      DIRADRES                              
043213,000505: 
043214,000506:    6471           36112        DOVLOAD*           CAF      VLOAD*                                
043215,000507:    6472           16150                           TCF      DODLOAD*   +1                         #  PROLOGUE TO INDEX ROUTINE.
043216,000508: 

Page 1013

043218,000510:                                                                                                  #  THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
043219,000511: 
043220,000512:    6473           50116        TLOAD              INDEX    ADDRWD                                
043221,000513:    6474           30002                           CA       2                                     #  LOAD A TRIPLE PRECISION ARGUMENT INTO
043222,000514:    6475           54156                           TS       MPAC       +2                         #  THE FIRST THREE MPAC REGISTERS, WITH THE
043223,000515:    6476           00006                           EXTEND                                         #  CONTENTS OF THE OTHER FOUR IRRELEVANT.
043224,000516:    6477           50116                           INDEX    ADDRWD                                
043225,000517:    6500           30001                           DCA      0                                     
043226,000518:    6501           52155                           DXCH     MPAC                                  
043227,000519:    6502           34753        TMODE              CAF      ONE                                   
043228,000520:    6503           16063                           TCF      NEWMODE                               #  DECLARE TRIPLE PRECISION MODE.
043229,000521: 
043230,000522:    6504           22007        SLOAD              ZL                                             #  LOAD A SINGLE PRECISION NUMBER INTO
043231,000523:    6505           50116                           INDEX    ADDRWD                                #  MPAC, SETTING MPAC+1,2 TO ZERO.  THE
043232,000524:    6506           30000                           CA       0                                     #  CONTENTS OF THE REMAINING MPAC REGISTERS
043233,000525:    6507           16060                           TCF      SLOAD2                                #  ARE IRRELEVANT.
043234,000526: 
043235,000527:    6510           00006        VLOAD              EXTEND                                         #  LOAD A DOUBLE PRECISION VECTOR INTO
043236,000528:    6511           50116                           INDEX    ADDRWD                                #  MPAC,+1, MPAC+3,4, AND MPAC+5,6.  THE
043237,000529:    6512           30001                           DCA      0                                     #  CONTENTS OF MPAC +2 ARE IRRELEVANT.
043238,000530:    6513           52155                           DXCH     MPAC                                  
043239,000531: 
043240,000532:    6514           00006        ENDVLOAD           EXTEND                                         #  PDVL COMES HERE TO FINISH UP FOR DP, TP.
043241,000533:    6515           50116                           INDEX    ADDRWD                                
043242,000534:    6516           30003                           DCA      2                                     
043243,000535:    6517           52160                           DXCH     MPAC       +3                         
043244,000536: 
043245,000537:    6520           00006                 +4        EXTEND                                         #  TPDVL FINISHES HERE.
043246,000538:    6521           50116                           INDEX    ADDRWD                                
043247,000539:    6522           30005                           DCA      4                                     
043248,000540:    6523           52162                           DXCH     MPAC       +5                         
043249,000541: 
043250,000542:    6524           44753        VMODE              CS       ONE                                   #  DECLARE VECTOR MODE.
043251,000543:    6525           16063                           TCF      NEWMODE                               
043252,000544: 

Page 1014

043254,000546:                                                                                                  #  THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
043255,000547:                                                                                                  #        1.      PUSH            PUSHDOWN AND NO LOAD.
043256,000548:                                                                                                  #        2.      PDDL            PUSHDOWN AND DOUBLE PRECISION LOAD.
043257,000549:                                                                                                  #        3.      PDVL            PUSHDOWN AND VECTOR LOAD.
043258,000550: 
043259,000551:    6526           00006        PDDL               EXTEND                                         
043260,000552:    6527           50116                           INDEX    ADDRWD                                #  LOAD MPAC,+1, PUSHING THE FORMER
043261,000553:    6530           30001                           DCA      0                                     #  CONTENTS DOWN.
043262,000554:    6531           52155                           DXCH     MPAC                                  
043263,000555:    6532           50166                           INDEX    PUSHLOC                               
043264,000556:    6533           52001                           DXCH     0                                     
043265,000557: 
043266,000558:    6534           50163                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER APPRO-
043267,000559:    6535           36247                           CAF      NO.WDS                                #  PRIATELY.
043268,000560:    6536           26166                           ADS      PUSHLOC                               
043269,000561: 
043270,000562:    6537           10163                           CCS      MODE                                  
043271,000563:    6540           16555                           TCF      ENDTPUSH                              
043272,000564:    6541           16553                           TCF      ENDDPUSH                              
043273,000565: 
043274,000566:    6542           54163                           TS       MODE                                  #  NOW DP.
043275,000567:    6543           54156        ENDVPUSH           TS       MPAC       +2                         
043276,000568:    6544           52160                           DXCH     MPAC       +3                         #  PUSH DOWN THE REST OF THE VECTOR HERE.
043277,000569:    6545           50166                           INDEX    PUSHLOC                               
043278,000570:    6546           51775                           DXCH     0          -4                         
043279,000571: 
043280,000572:    6547           52162                           DXCH     MPAC       +5                         
043281,000573:    6550           50166                           INDEX    PUSHLOC                               
043282,000574:    6551           51777                           DXCH     0          -2                         
043283,000575: 
043284,000576:    6552           16064                           TCF      DANZIG                                
043285,000577: 
043286,000578:    6553           54156        ENDDPUSH           TS       MPAC       +2                         #  SET MPAC +2 TO ZERO AND EXIT ON DP.
043287,000579:    6554           16064                           TCF      DANZIG                                
043288,000580: 
043289,000581:    6555           54163        ENDTPUSH           TS       MODE                                  
043290,000582:    6556           56156                           XCH      MPAC       +2                         #  ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
043291,000583:    6557           50166                 +2        INDEX    PUSHLOC                               #  DOWN THE OLD CONTENTS
043292,000584:    6560           53777                           TS       0          -1                         
043293,000585:    6561           16064                           TCF      DANZIG                                
043294,000586: 

Page 1015

043296,000588:                                                                                                  #  PDVL - PUSHDOWN AND VECTOR LOAD.
043297,000589: 
043298,000590:    6562           00006        PDVL               EXTEND                                         #  RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
043299,000591:    6563           50116                           INDEX    ADDRWD                                
043300,000592:    6564           30001                           DCA      0                                     
043301,000593:    6565           52155                           DXCH     MPAC                                  
043302,000594:    6566           50166                           INDEX    PUSHLOC                               
043303,000595:    6567           52001                           DXCH     0                                     
043304,000596: 
043305,000597:    6570           50163                           INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER.
043306,000598:    6571           36247                           CAF      NO.WDS                                
043307,000599:    6572           26166                           ADS      PUSHLOC                               
043308,000600: 
043309,000601:    6573           10163                           CCS      MODE                                  #  TEST PAST MODE.
043310,000602:    6574           16613                           TCF      TPDVL                                 
043311,000603:    6575           16514                           TCF      ENDVLOAD                              #  JUST LOAD LAST FOUR REGISTERS ON DP.
043312,000604: 
043313,000605:    6576           00006        VPDVL              EXTEND                                         #  PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
043314,000606:    6577           50116                           INDEX    ADDRWD                                
043315,000607:    6600           30003                           DCA      2                                     
043316,000608:    6601           52160                           DXCH     MPAC       +3                         
043317,000609:    6602           50166                           INDEX    PUSHLOC                               
043318,000610:    6603           51775                           DXCH     0          -4                         
043319,000611: 
043320,000612:    6604           00006                           EXTEND                                         
043321,000613:    6605           50116                           INDEX    ADDRWD                                
043322,000614:    6606           30005                           DCA      4                                     
043323,000615:    6607           52162                           DXCH     MPAC       +5                         
043324,000616:    6610           50166                           INDEX    PUSHLOC                               
043325,000617:    6611           51777                           DXCH     0          -2                         
043326,000618: 
043327,000619:    6612           16064                           TCF      DANZIG                                
043328,000620: 
043329,000621:    6613           00006        TPDVL              EXTEND                                         #  ON TP, WE MUST LOAD THE Y COMPONENT
043330,000622:    6614           50116                           INDEX    ADDRWD                                #  BEFORE STORING MPAC +2 IN CASE THIS IS A
043331,000623:    6615           30003                           DCA      2                                     #  PUSHUP.
043332,000624:    6616           52160                           DXCH     MPAC       +3                         
043333,000625: 
043334,000626:    6617           30156                           CA       MPAC       +2                         
043335,000627:    6620           50166                           INDEX    PUSHLOC                               #  IN DP.
043336,000628:    6621           53777                           TS       0          -1                         
043337,000629:    6622           16520                           TCF      ENDVLOAD   +4                         
043338,000630: 
043339,000631:                                                                                                  #  SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
043340,000632: 
043341,000633:    6623           24164        SSP                INCR     LOC                                   #  PICK UP THE WORD FOLLOWING THE GIVEN
043342,000634:    6624           50164                           INDEX    LOC                                   #  ADDRESS AND STORE IT AT X.
043343,000635:    6625           30000                           CA       0                                     
043344,000636:    6626           50116        STORE1             INDEX    ADDRWD                                #  SOME INDEX AND MISCELLANEOUS OPS END
043345,000637:    6627           54000                           TS       0                                     #  HERE.

Page 1016

043347,000639:    6630           16064                           TCF      DANZIG                                
043348,000640: 

Page 1017

043350,000642:                                                                                                  #  SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
043351,000643: 
043352,000644:                                                                                                  #  THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
043353,000645:                                                                                                  #        1.      GOTO            GO TO.
043354,000646:                                                                                                  #        2.      CALL            CALL SUBROUTINE SETTING QPRET.
043355,000647:                                                                                                  #        3.      CGOTO           COMPUTED GO TO.
043356,000648:                                                                                                  #        4.      CCALL           COMPUTED CALL.
043357,000649:                                                                                                  #        7.      BPL             BRANCH IF MPAC POSITIVE OR ZERO.
043358,000650:                                                                                                  #        8.      BZE             BRANCH IF MPAC ZERO.
043359,000651:                                                                                                  #        9.      BMN             BRANCH IF MPAC NEGATIVE NON-ZERO.
043360,000652: 
043361,000653:    6631           24164        CCALL              INCR     LOC                                   #  MAINTAIN LOC FOR QPRET COMPUTATION.
043362,000654:    6632           50164                           INDEX    LOC                                   
043363,000655:    6633           30000                           CAF      0                                     #  GET BASE ADDRESS OF CADR LIST.
043364,000656:    6634           50116                           INDEX    ADDRWD                                
043365,000657:    6635           60000                           AD       0                                     #  ADD INCREMENT.
043366,000658:    6636           54004                           TS       FBANK                                 #  SELECT DESIRED CADR.
043367,000659:    6637           75012                           MASK     LOW10                                 
043368,000660:    6640           50000                           INDEX    A                                     
043369,000661:    6641           32000                           CAF      10000                                 
043370,000662:    6642           54117                           TS       POLISH                                
043371,000663: 
043372,000664:    6643           30165        CALL               CA       BANKSET                               #  FOR ANY OF THE CALL OPTIONS, MAKE UP THE
043373,000665:    6644           74350                           MASK     BANKMASK                              #  ADDRESS OF THE NEXT OP-CODE PAIR/STORE
043374,000666:    6645           64350                           AD       BANKMASK                              #  CODE AND LEAVE IT IN QPRET.  NOTE THAT
043375,000667:    6646           60164                           AD       LOC                                   #  BANKMASK = -(2000 - 1).
043376,000668:    6647           50120                           INDEX    FIXLOC                                
043377,000669:    6650           54052                           TS       QPRET                                 
043378,000670: 
043379,000671:    6651           30117        GOTO               CA       POLISH                                #  BASIC BRANCHING SEQUENCE.
043380,000672:    6652           77745                 +1        MASK     HIGH4                                 
043381,000673:    6653           00006                           EXTEND                                         
043382,000674:    6654           16665                           BZF      GOTOERS                               #  SEE IF ADDRESS POINTS TO FIXED OR ERAS.
043383,000675:    6655           30165                 +4        CA       BANKSET                               #  SET EBANK PART OF BBANK.  NEXT, SET UP
043384,000676:    6656           54006                           TS       BBANK                                 #  FBANK.  THE COMBINATION IS PICKED UP &
043385,000677:    6657           30117                           CA       POLISH                                #  PUT INTO BANKSET AT INTPRET +2.
043386,000678:    6660           54004                           TS       FBANK                                 
043387,000679:    6661           75012                           MASK     LOW10                                 
043388,000680:    6662           64741                           AD       2K                                    
043389,000681:    6663           54164                           TS       LOC                                   
043390,000682:    6664           16045                           TCF      INTPRET    +3                         
043391,000683: 
043392,000684:    6665  E3,1400                                  EBANK=   1400                                  #  SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
043393,000685: 
043394,000686:    6665           30117        GOTOERS            CA       POLISH                                #  THE GIVEN ADDRESS IS IN ERASABLE - SEE
043395,000687:    6666           66254                           AD       -ENDVAC                               #  IF RELATIVE TO THE WORK AREA.
043396,000688:    6667           10000                           CCS      A                                     
043397,000689:    6670           30117                           CA       POLISH                                #  GENERAL ERASABLE.
043398,000690:    6671           16700                           TCF      GOTOGE                                
043399,000691: 

Page 1018

043401,000693:    6672           30120                           CA       FIXLOC                                #  WORK AREA.
043402,000694:    6673           60117                           AD       POLISH                                
043403,000695:    6674           50000                           INDEX    A                                     #  USE THE GIVEN ADDRESS AS THE ADDRESS OF
043404,000696:    6675           30000                           CA       0                                     #  THE BRANCH ADDRESS.
043405,000697:    6676           54117                           TS       POLISH                                
043406,000698:    6677           16652                           TCF      GOTO       +1                         #  ALLOWS ARBITRARY INDIRECTNESS LEVELS.
043407,000699: 
043408,000700:    6700           54003        GOTOGE             TS       EBANK                                 
043409,000701:    6701           74357                           MASK     LOW8                                  
043410,000702:    6702           50000                           INDEX    A                                     #  USE THE GIVEN ADDRESS AS THE ADDRESS OF
043411,000703:    6703           31400                           CA       1400                                  #  THE BRANCH ADDRESS.
043412,000704:    6704           54117                           TS       POLISH                                
043413,000705:    6705           16652                           TCF      GOTO       +1                         
043414,000706: 
043415,000707:    6706           50164        CGOTO              INDEX    LOC                                   #  COMPUTED GO TO.  PICK UP ADDRESS OF CADR
043416,000708:    6707           30001                           CA       1                                     #  LIST.
043417,000709:    6710           50116                           INDEX    ADDRWD                                #  ADD MODIFIER.
043418,000710:    6711           60000                           AD       0                                     
043419,000711:    6712           54004                           TS       FBANK                                 #  SELECT GOTO ADDRESS.
043420,000712:    6713           75012                           MASK     LOW10                                 
043421,000713:    6714           50000                           INDEX    A                                     
043422,000714:    6715           32000                           CA       10000                                 
043423,000715:    6716           54117                           TS       POLISH                                
043424,000716:    6717           16652                           TCF      GOTO       +1                         #  WITH ADDRESS IN A.
043425,000717: 
043426,000718:    6720           30165        SWBRANCH           CA       BANKSET                               #  SWITCH INSTRUCTIONS WHICH ELECT TO
043427,000719:    6721           54004                           TS       FBANK                                 #  BRANCH COME HERE TO DO SO.
043428,000720:    6722           50164                           INDEX    LOC                                   
043429,000721:    6723           30001                           CA       1                                     
043430,000722:    6724           54117                           TS       POLISH                                
043431,000723:    6725           16652                           TCF      GOTO       +1                         
043432,000724: 

Page 1019

043434,000726:                                                                                                  #  TRIPLE PRECISION BRANCHING ROUTINE.  IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
043435,000727:                                                                                                  #        L+1     IF MPAC IS GREATER THAN ZERO.
043436,000728:                                                                                                  #        L+2     IF MPAC IS EQUAL TO +0 OR -0.
043437,000729:                                                                                                  #        L+3     IF MPAC IS LESS THAN ZERO.
043438,000730: 
043439,000731:    6726           10154        BRANCH             CCS      MPAC                                  
043440,000732:    6727           00002                           TC       Q                                     
043441,000733:    6730           16732                           TCF      +2                                    #  ON ZERO.
043442,000734:    6731           16744                           TCF      NEG                                   
043443,000735: 
043444,000736:    6732           10155                           CCS      MPAC       +1                         
043445,000737:    6733           00002                           TC       Q                                     
043446,000738:    6734           16736                           TCF      +2                                    
043447,000739:    6735           16744                           TCF      NEG                                   
043448,000740: 
043449,000741:    6736           10156                           CCS      MPAC       +2                         
043450,000742:    6737           00002                           TC       Q                                     
043451,000743:    6740           16742                           TCF      +2                                    
043452,000744:    6741           16744                           TCF      NEG                                   
043453,000745: 
043454,000746:    6742           50002        Q+1                INDEX    Q                                     
043455,000747:    6743           00001                           TC       1                                     
043456,000748: 
043457,000749:    6744           50002        NEG                INDEX    Q                                     #  IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
043458,000750:    6745           00002                           TC       2                                     
043459,000751: 
043460,000752:    6746     6744               Q+2                =        NEG                                   
043461,000753: 
043462,000754:                                                                                                  #  ITRACE (3) REFERS TO "EXIT".
043463,000755: 
043464,000756:    6746           30165        EXIT               CA       BANKSET                               #  RESTORE USER'S BANK SETTING, AND LEAVE
043465,000757:    6747           54006                           TS       BBANK                                 #  INTERPRETIVE MODE.
043466,000758:    6750           50164                           INDEX    LOC                                   
043467,000759:    6751           00001                           TC       1                                     
043468,000760: 

Page 1020

043470,000762:                                                                                                  #  SECTION 3 - ADD/SUBTRACT PACKAGE.
043471,000763: 
043472,000764:                                                                                                  #  THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
043473,000765:                                                                                                  #  MPAC:
043474,000766:                                                                                                  #        1.      DAD     DOUBLE PRECISION ADD.
043475,000767:                                                                                                  #        2.      DSU     DOUBLE PRECISION SUBTRACT.
043476,000768:                                                                                                  #        3.      BDSU    DOUBLE PRECISION SUBTRACT FROM.
043477,000769:                                                                                                  #        4.      TAD     TRIPLE PRECISION ADD.
043478,000770:                                                                                                  #        5.      VAD     VECTOR ADD.
043479,000771:                                                                                                  #        6.      VSU     VECTOR SUBTRACT.
043480,000772:                                                                                                  #        7.      BVSU    VECTOR SUBTRACT FROM.
043481,000773:                                                                                                  #  THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
043482,000774: 
043483,000775:    6752           34735        VSU                CAF      BIT15                                 #  CHANGES 0 TO DCS.
043484,000776:    6753           16755                           TCF      +2                                    
043485,000777: 
043486,000778:    6754           34355        VAD                CAF      PRIO30                                #  CHANGES 0 TO DCA.
043487,000779:    6755           26116                           ADS      ADDRWD                                
043488,000780:    6756           00006                           EXTEND                                         
043489,000781:    6757           50116                           INDEX    ADDRWD                                
043490,000782:    6760           00003                           READ     HISCALAR                              #  DCA 2 OR DCS 2
043491,000783:    6761           20160                           DAS      MPAC       +3                         
043492,000784:    6762           00006                           EXTEND                                         #  CHECK OVERFLOW.
043493,000785:    6763           16765                           BZF      +2                                    
043494,000786:    6764           07017                           TC       OVERFLWY                              
043495,000787: 
043496,000788:    6765           00006                           EXTEND                                         
043497,000789:    6766           50116                           INDEX    ADDRWD                                
043498,000790:    6767           00005                           READ     CHAN5                                 #  DCA 4 OR DCS 4
043499,000791:    6770           20162                           DAS      MPAC       +5                         
043500,000792:    6771           00006                           EXTEND                                         
043501,000793:    6772           16774                           BZF      +2                                    
043502,000794:    6773           07014                           TC       OVERFLWZ                              
043503,000795: 
043504,000796:    6774           00006                           EXTEND                                         
043505,000797:    6775           50116                           INDEX    ADDRWD                                
043506,000798:    6776           00001                           READ     LCHAN                                 #  DCA 0 OR DCS 0
043507,000799:    6777           17003                           TCF      ENDVXV                                
043508,000800: 
043509,000801:    7000           00006        DAD                EXTEND                                         
043510,000802:    7001           50116                           INDEX    ADDRWD                                
043511,000803:    7002           30001                           DCA      0                                     
043512,000804:    7003           20155        ENDVXV             DAS      MPAC                                  #  VXV FINISHES HERE.
043513,000805:    7004           00006                           EXTEND                                         
043514,000806:    7005           16064                           BZF      DANZIG                                
043515,000807: 

Page 1021

043517,000809:    7006           07022        SETOVF             TC       OVERFLOW                              
043518,000810:    7007           16064                           TCF      DANZIG                                
043519,000811: 

Page 1022

043521,000813:    7010           00006        DSU                EXTEND                                         
043522,000814:    7011           50116                           INDEX    ADDRWD                                
043523,000815:    7012           40001                           DCS      0                                     
043524,000816:    7013           17003                           TCF      ENDVXV                                
043525,000817: 
043526,000818:    7014           54001        OVERFLWZ           TS       L                                     #  ENTRY FOR THIRD COMPONENT.
043527,000819:    7015           34756                           CAF      FIVE                                  
043528,000820:    7016           17021                           TCF      +3                                    
043529,000821: 
043530,000822:    7017           54001        OVERFLWY           TS       L                                     #  ENTRY FOR SECOND COMPONENT.
043531,000823:    7020           36250                           CAF      THREE                                 
043532,000824:    7021           56001                           XCH      L                                     
043533,000825: 
043534,000826:    7022           50000        OVERFLOW           INDEX    A                                     #  ENTRY FOR 1ST COMP OR DP (L=0).
043535,000827:    7023           44734                           CS       LIMITS                                #  PICK UP POSMAX OR NEGMAX.
043536,000828:    7024           54130                           TS       BUF                                   
043537,000829:    7025           00006                           EXTEND                                         
043538,000830:    7026           24000                           AUG      A                                     #  FORCE OVERFLOW.
043539,000831:    7027           50001                           INDEX    L                                     
043540,000832:    7030           26155                           ADS      MPAC       +1                         
043541,000833:    7031           54007                           TS       7                                     
043542,000834:    7032           34755                           CAF      ZERO                                  
043543,000835:    7033           60130                           AD       BUF                                   
043544,000836:    7034           50001                           INDEX    L                                     
043545,000837:    7035           26154                           ADS      MPAC                                  
043546,000838:    7036           54007                           TS       7                                     
043547,000839:    7037           00002                           TC       Q                                     #  NO OVERFLOW EXIT.
043548,000840:    7040           17155                           TCF      SETOVF2                               #  SET OVFIND AND EXIT.
043549,000841: 
043550,000842:    7041           00006        BVSU               EXTEND                                         
043551,000843:    7042           50116                           INDEX    ADDRWD                                
043552,000844:    7043           30003                           DCA      2                                     
043553,000845:    7044           52160                           DXCH     MPAC       +3                         
043554,000846:    7045           00006                           EXTEND                                         
043555,000847:    7046           40001                           DCOM                                           
043556,000848:    7047           20160                           DAS      MPAC       +3                         
043557,000849:    7050           00006                           EXTEND                                         
043558,000850:    7051           17053                           BZF      +2                                    
043559,000851:    7052           07017                           TC       OVERFLWY                              
043560,000852: 
043561,000853:    7053           00006                           EXTEND                                         
043562,000854:    7054           50116                           INDEX    ADDRWD                                
043563,000855:    7055           30005                           DCA      4                                     
043564,000856:    7056           52162                           DXCH     MPAC       +5                         
043565,000857:    7057           00006                           EXTEND                                         
043566,000858:    7060           40001                           DCOM                                           
043567,000859:    7061           20162                           DAS      MPAC       +5                         
043568,000860:    7062           00006                           EXTEND                                         
043569,000861:    7063           17065                           BZF      +2                                    
043570,000862:    7064           07014                           TC       OVERFLWZ                              
043571,000863: 

Page 1023

043573,000865:    7065           00006        BDSU               EXTEND                                         
043574,000866:    7066           50116                           INDEX    ADDRWD                                
043575,000867:    7067           30001                           DCA      0                                     
043576,000868:    7070           52155                           DXCH     MPAC                                  
043577,000869:    7071           00006                           EXTEND                                         
043578,000870:    7072           40001                           DCOM                                           
043579,000871:    7073           17003                           TCF      ENDVXV                                
043580,000872: 

Page 1024

043582,000874:                                                                                                  #  TRIPLE PRECISION ADD ROUTINE.
043583,000875: 
043584,000876:    7074           00006        TAD                EXTEND                                         
043585,000877:    7075           50116                           INDEX    ADDRWD                                
043586,000878:    7076           30002                           DCA      1                                     #  ADD MINOR PARTS FIRST.
043587,000879:    7077           20156                           DAS      MPAC       +1                         
043588,000880:    7100           50116                           INDEX    ADDRWD                                
043589,000881:    7101           60000                           AD       0                                     
043590,000882:    7102           60154                           AD       MPAC                                  
043591,000883:    7103           54154                           TS       MPAC                                  
043592,000884:    7104           16064                           TCF      DANZIG                                
043593,000885: 
043594,000886:    7105           17006                           TCF      SETOVF                                #  SET OVFIND IF SUCH OCCURS.
043595,000887: 

Page 1025

043597,000889:                                                                                                  #  ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
043598,000890:                                                                                                  #        1.  DMPSUB      DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
043599,000891:                                                                                                  #                        IS IN ADDRWD AND LEAVE A TRIPLE PRECISION RESULT IN MPAC.
043600,000892:                                                                                                  #        2.  ROUNDSUB    ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
043601,000893:                                                                                                  #        3.  DOTSUB      TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
043602,000894:                                                                                                  #                        AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
043603,000895:                                                                                                  #        4.  POLY        USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
043604,000896:                                                                                                  #                        COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.)
043605,000897: 
043606,000898:    7106           50002        DMP                INDEX    Q                                     #  BASIC SUBROUTINE FOR USE BY PINBALL, ETC
043607,000899:    7107           30000                           CAF      0                                     #  ADRES OF ARGUMENT FOLLOWS  TC DMP  .
043608,000900:    7110           24002                           INCR     Q                                     
043609,000901:    7111           54116                 -1        TS       ADDRWD                                #  (PROLOGUE FOR SETTING ADDRWD.)
043610,000902: 
043611,000903:    7112           50116        DMPSUB             INDEX    ADDRWD                                #  GET MINOR PART OF OPERAND AT C(ADDRWD).
043612,000904:    7113           30001                           CA       1                                     
043613,000905:    7114           54156                           TS       MPAC       +2                         #  THIS WORKS FOR SQUARING MPAC AS WELL.
043614,000906:    7115           34755                           CAF      ZERO                                  #  SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
043615,000907:    7116           56155                           XCH      MPAC       +1                         #  THE PARTIAL PRODUCTS WITH DAS
043616,000908:    7117           54135                           TS       MPTEMP                                #  INSTRUCTIONS.
043617,000909:    7120           00006                           EXTEND                                         
043618,000910:    7121           70156                           MP       MPAC       +2                         #  MINOR OF MPAC X MINOR OF C(ADDRWD).
043619,000911: 
043620,000912:    7122           56156                           XCH      MPAC       +2                         #  DISCARD MINOR PART OF ABOVE RESULT AND
043621,000913:    7123           00006                           EXTEND                                         #  FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
043622,000914:    7124           70154                           MP       MPAC                                  
043623,000915:    7125           20156                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
043624,000916: 
043625,000917:    7126           50116                           INDEX    ADDRWD                                #  GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
043626,000918:    7127           30000                           CA       0                                     
043627,000919:    7130           56135                           XCH      MPTEMP                                #  SAVE AND BRING OUT MINOR OF MPAC.
043628,000920:    7131           00006        DMPSUB2            EXTEND                                         
043629,000921:    7132           70135                           MP       MPTEMP                                #  MAJOR OF C(ADDRWD) X MINOR OF MPAC.
043630,000922:    7133           20156                           DAS      MPAC       +1                         #  ACCUMULATE, SETTING A TO NET OVERFLOW.
043631,000923: 
043632,000924:    7134           56154                           XCH      MPAC                                  #  SETTING MPAC TO 0 OR +-1.
043633,000925:    7135           00006                           EXTEND                                         
043634,000926:    7136           70135                           MP       MPTEMP                                #  MAJOR OF MPAC X MAJOR OF C(ADDRWD).
043635,000927:    7137           20155                           DAS      MPAC                                  #  GUARANTEED NO OVERFLOW.
043636,000928:    7140           00002                           TC       Q                                     #  49 MCT = .573 MS. INCLUDING RETURN.
043637,000929: 

Page 1026

043639,000931:                                                                                                  #  ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
043640,000932: 
043641,000933:    7141           34755        ROUNDSUB           CAF      ZERO                                  #  SET MPAC +2 = 0 FOR SCALARS AND CHANGE
043642,000934:    7142           54163                 +1        TS       MODE                                  #  MODE TO DP.
043643,000935: 
043644,000936:    7143           56156        VROUND             XCH      MPAC       +2                         #  BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
043645,000937:    7144           60000                           DOUBLE                                         
043646,000938:    7145           54001                           TS       L                                     
043647,000939:    7146           00002                           TC       Q                                     
043648,000940: 
043649,000941:    7147           60155                           AD       MPAC       +1                         #  ADD ROUNDING BIT IF MPAC +2 WAS GREATER
043650,000942:    7150           54155                           TS       MPAC       +1                         #  THAN .5 IN MAGNITUDE.
043651,000943:    7151           00002                           TC       Q                                     
043652,000944: 
043653,000945:    7152           60154                           AD       MPAC                                  #  PROPAGATE INTERFLOW.
043654,000946:    7153           54154                           TS       MPAC                                  
043655,000947:    7154           00002                           TC       Q                                     
043656,000948: 
043657,000949:    7155           54121        SETOVF2            TS       OVFIND                                #  (RARE).
043658,000950:    7156           00002                           TC       Q                                     
043659,000951: 

Page 1027

043661,000953:                                                                                                  #  THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
043662,000954:                                                                                                  #  REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD.  IN THIS CASE C(DOTINC) ARE SET TO 2.   VXM, HOWEVER, SETS C(DOTINC) TO
043663,000955:                                                                                                  #  6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
043664,000956: 
043665,000957:    7157           34752        PREDOT             CAF      TWO                                   #  PROLOGUE TO SET DOTINC TO 2.
043666,000958:    7160           54136                           TS       DOTINC                                
043667,000959: 
043668,000960:    7161           00006        DOTSUB             EXTEND                                         
043669,000961:    7162           22137                           QXCH     DOTRET                                #  SAVE RETURN.
043670,000962:    7163           07112                           TC       DMPSUB                                #  DOT X COMPONENTS.
043671,000963:    7164           52160                           DXCH     MPAC       +3                         #  POSITION Y COMPONENT OF MPAC FOR
043672,000964:    7165           52155                           DXCH     MPAC                                  #  MULTIPLICATION WHILE SAVING RESULT IN
043673,000965:    7166           52131                           DXCH     BUF                                   #  THREE WORD BUFFER, BUF.
043674,000966:    7167           30156                           CA       MPAC       +2                         
043675,000967:    7170           54132                           TS       BUF        +2                         
043676,000968: 
043677,000969:    7171           30136                           CA       DOTINC                                #  ADVANCE ADDRWD TO Y COMPONENT OF
043678,000970:    7172           26116                           ADS      ADDRWD                                #  OTHER ARGUMENT.
043679,000971:    7173           07112                           TC       DMPSUB                                
043680,000972:    7174           52156                           DXCH     MPAC       +1                         #  ACCUMULATE PARTIAL PRODUCTS.
043681,000973:    7175           20132                           DAS      BUF        +1                         
043682,000974:    7176           60154                           AD       MPAC                                  
043683,000975:    7177           60130                           AD       BUF                                   
043684,000976:    7200           54130                           TS       BUF                                   
043685,000977:    7201           17203                           TCF      +2                                    
043686,000978:    7202           54121                           TS       OVFIND                                #  IF OVERFLOW OCCURS.
043687,000979: 
043688,000980:    7203           52162                           DXCH     MPAC       +5                         #  MULTIPLY Z COMPONENTS.
043689,000981:    7204           52155                           DXCH     MPAC                                  
043690,000982:    7205           30136                           CA       DOTINC                                
043691,000983:    7206           26116                           ADS      ADDRWD                                
043692,000984:    7207           07112                           TC       DMPSUB                                
043693,000985:    7210           52132        ENDDOT             DXCH     BUF        +1                         #  LEAVE FINAL ACCUMULATION IN MPAC.
043694,000986:    7211           20156                           DAS      MPAC       +1                         
043695,000987:    7212           60154                           AD       MPAC                                  
043696,000988:    7213           60130                           AD       BUF                                   
043697,000989:    7214           54154                           TS       MPAC                                  
043698,000990:    7215           00137                           TC       DOTRET                                
043699,000991: 
043700,000992:    7216           07022                           TC       OVERFLOW                              #  ON OVERFLOW HERE.
043701,000993:    7217           00137                           TC       DOTRET                                
043702,000994: 

Page 1028

043704,000996:                                                                                                  #  DOUBLE PRECISION POLYNOMIAL EVALUATOR
043705,000997:                                                                                                  #                                  N        N-1
043706,000998:                                                                                                  #        THIS ROUTINE EVALUATES A X  + A   X    + ... + A  X + A  LEAVING THE DP RESULT IN MPAC ON EXIT.
043707,000999:                                                                                                  #                                N      N-1              1      0
043708,001000: 
043709,001001:                                                                                                  #  THE ROUTINE HAS TWO ENTRIES
043710,001002: 
043711,001003:                                                                                                  #        1.      ENTRY THRU POWRSERS.  THE COEFFICIENTS MAY BE EITHER IN FIXED OR ERASABLE, THE CALL IS BY
043712,001004:                                                                                                  #                TC POWRSERS, AND THE RETURN IS TO LOC(TC POWRSERS)+1.  THE ENTERING DATA MUST BE AS FOLLOWS
043713,001005:                                                                                                  #                        A       SP      LOC-3           ADDRESS FOR REFERENCING COEF TABLE
043714,001006:                                                                                                  #                        L       SP      N-1             N IS THE DEGREE OF THE POWER SERIES
043715,001007:                                                                                                  #                        MPAC    DP      X               ARGUMENT
043716,001008:                                                                                                  #                        LOC-2N  DP      A(0)
043717,001009:                                                                                                  #                                ...
043718,001010:                                                                                                  #                        LOC     DP      A(N)
043719,001011: 
043720,001012:                                                                                                  #        2.      ENTRY THRU POLY.  THE CALL TO POLY AND THE ENTERING DATA MUST BE AS FOLLOWS
043721,001013:                                                                                                  #                        MPAC            DP              X               ARGUMENT
043722,001014: 
043723,001015:                                                                                                  #                        LOC             TC              POLY
043724,001016:                                                                                                  #                        LOC+1           SP              N-1
043725,001017:                                                                                                  #                        LOC+2           DP              A(0)
043726,001018:                                                                                                  #                                        ...
043727,001019:                                                                                                  #                        LOC+2N+2        DP              A(N)            RETURN IS TO LOC+2N+4
043728,001020: 
043729,001021:    7220           00006        POWRSERS           EXTEND                                         
043730,001022:    7221           22141                           QXCH     POLYRET                               #  RETURN ADDRESS
043731,001023:    7222           54117                           TS       POLISH                                #  POWER SERIES ADDRESS
043732,001024:    7223           22140                           LXCH     POLYCNT                               #  N-1 TO COUNTER
043733,001025:    7224           17235                           TCF      POLYCOM                               #  SKIP SET UP BY POLY
043734,001026: 
043735,001027:    7225           50002        POLY               INDEX    Q                                     
043736,001028:    7226           30000                           CAF      0                                     
043737,001029:    7227           54140                           TS       POLYCNT                               #  N-1 TO COUNTER
043738,001030:    7230           60000                           DOUBLE                                         
043739,001031:    7231           60002                           AD       Q                                     
043740,001032:    7232           54117                           TS       POLISH                                #  L(A(N))-3 TO POLISH
043741,001033:    7233           64756                           AD       FIVE                                  
043742,001034:    7234           54141                           TS       POLYRET                               #  STORE RETURN ADDRESS
043743,001035: 
043744,001036:    7235           36276        POLYCOM            CAF      LVBUF                                 #  INCOMING X WILL BE MOVED TO VBUF, SO
043745,001037:    7236           54116                           TS       ADDRWD                                #  SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
043746,001038: 
043747,001039:    7237           00006                           EXTEND                                         
043748,001040:    7240           50117                           INDEX    POLISH                                
043749,001041:    7241           30004                           DCA      3                                     
043750,001042: 

Page 1029

043752,001044:    7242           52155                           DXCH     MPAC                                  #  LOAD A(N) INTO MPAC,
043753,001045:    7243           52123                           DXCH     VBUF                                  #  SAVING X IN VBUF
043754,001046:    7244           17250                           TCF      POLY2                                 
043755,001047: 
043756,001048:    7245           54140        POLYLOOP           TS       POLYCNT                               #  SAVE DECREMENTED LOOP COUNTER
043757,001049:    7246           44752                           CS       TWO                                   
043758,001050:    7247           26117                           ADS      POLISH                                #  REGRESS COEFFICIENT POINTER
043759,001051: 
043760,001052:    7250           07112        POLY2              TC       DMPSUB                                #  MULTIPLY BY X
043761,001053:    7251           00006                           EXTEND                                         
043762,001054:    7252           50117                           INDEX    POLISH                                
043763,001055:    7253           30002                           DCA      1                                     #  ADD IN NEXT COEFFICIENT
043764,001056:    7254           20155                           DAS      MPAC                                  #  USERS RESPONSIBILITY TO ASSURE NO OVFLOW
043765,001057: 
043766,001058:    7255           10140                           CCS      POLYCNT                               
043767,001059:    7256           17245                           TCF      POLYLOOP                              
043768,001060:    7257           00141                           TC       POLYRET                               #  RETURN CALLER
043769,001061: 

Page 1030

043771,001063:                                                                                                  #  MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
043772,001064: 
043773,001065:    7260           34755        DPAGREE            CAF      ZERO                                  #  DOUBLE PRECISION ENTRY -
043774,001066:    7261           54156                           TS       MPAC       +2                         #  ZERO LOW-ORDER WORD
043775,001067: 
043776,001068:    7262           22002        TPAGREE            LXCH     Q                                     #  FORCE SIGN AGREEMENT AMONG THE TRIPLE
043777,001069:    7263           06726                           TC       BRANCH                                #  PRECISION CONTENTS OF MPAC.  RETURNING
043778,001070:    7264           17270                           TCF      ARG+                                  #  WITH SIGNUM OF THE INPUT IN A.
043779,001071:    7265           17310                           TCF      ARGZERO                               
043780,001072: 
043781,001073:    7266           44733                           CS       POSMAX                                #  IF NEGATIVE.
043782,001074:    7267           17271                           TCF      +2                                    
043783,001075: 
043784,001076:    7270           34733        ARG+               CAF      POSMAX                                
043785,001077:    7271           54002                           TS       Q                                     
043786,001078:    7272           00006                           EXTEND                                         
043787,001079:    7273           24000                           AUG      A                                     #  FORMS +-1.0.
043788,001080:    7274           60156                           AD       MPAC       +2                         
043789,001081:    7275           54156                           TS       MPAC       +2                         
043790,001082:    7276           34755                           CAF      ZERO                                  
043791,001083:    7277           60002                           AD       Q                                     
043792,001084:    7300           60155                           AD       MPAC       +1                         
043793,001085:    7301           54155                           TS       MPAC       +1                         
043794,001086:    7302           34755                           CAF      ZERO                                  
043795,001087:    7303           60002                           AD       Q                                     #  Q STILL HAS POSMAX OR NEGMAX IN IT.
043796,001088:    7304           60154                           AD       MPAC                                  
043797,001089:    7305           54154        ARGZERO2           TS       MPAC                                  #  ALWAYS SKIPPING UNLESS ARGZERO.
043798,001090:    7306           54155                           TS       MPAC       +1                         
043799,001091:    7307           00001                           TC       L                                     #  RETURN VIA L.
043800,001092: 
043801,001093:    7310           54156        ARGZERO            TS       MPAC       +2                         #  SET ALL THREE MPAC REGISTERS TO ZERO.
043802,001094:    7311           17305                           TCF      ARGZERO2                              
043803,001095: 
043804,001096:                                                                                                  #  SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
043805,001097: 
043806,001098:    7312           54135        SHORTMP            TS       MPTEMP                                
043807,001099:    7313           00006                           EXTEND                                         
043808,001100:    7314           70156                           MP       MPAC       +2                         
043809,001101:    7315           54156                           TS       MPAC       +2                         
043810,001102:    7316           34755        SHORTMP2           CAF      ZERO                                  #  SO SUBSEQUENT DAS WILL WORK.
043811,001103:    7317           56155                           XCH      MPAC       +1                         
043812,001104:    7320           17131                           TCF      DMPSUB2                               
043813,001105: 

Page 1031

043815,001107:                                                                                                  #  DMPNSUB MULTIPLIES THE DP FRACTION ARRIVING IN MPAC BY THE SP
043816,001108:                                                                                                  #  INTEGER ARRIVING IN A.  THE DP PRODUCT DEPARTS BOTH IN MPAC AND IN
043817,001109:                                                                                                  #  A AND L.  NOTE THAT DMPNSUB NORMALLY INCREASES THE MAGNITUDE OF THE
043818,001110:                                                                                                  #  CONTENTS OF MPAC.  THE CUSTOMER MUST INSURE THAT B(A) X B(MPAC,MPAC+1)
043819,001111:                                                                                                  #  AND B(A) X B(MPAC) ARE LESS THAN 1 IN MAGNITUDE, WHERE B, AS IS OBVIOUS,
043820,001112:                                                                                                  #  INDICATES THE ARRIVING CONTENTS.
043821,001113: 
043822,001114:    7321           54135        DMPNSUB            TS       DMPNTEMP                              
043823,001115:    7322           00006                           EXTEND                                         
043824,001116:    7323           70155                           MP       MPAC       +1                         
043825,001117:    7324           52155                           DXCH     MPAC                                  #  LOW PRODUCT TO MPAC, HIGH FACTOR TO A
043826,001118:    7325           00006                           EXTEND                                         
043827,001119:    7326           70135                           MP       DMPNTEMP                              
043828,001120:    7327           30001                           CA       L                                     
043829,001121:    7330           26154                           ADS      MPAC                                  #  COMPLETING THE PRODUCT IN MPAC
043830,001122:    7331           00006                           EXTEND                                         
043831,001123:    7332           30155                           DCA      MPAC                                  #  BRINGING THE PRODUCT INTO A AND L
043832,001124:    7333           00002                           TC       Q                                     
043833,001125: 

Page 1032

043835,001127:                                                                                                  #  MISCELLANEOUS VECTOR OPERATIONS.  INCLUDED HERE ARE THE FOLLOWING:
043836,001128:                                                                                                  #        1.      DOT     DP VECTOR DOT PRODUCT.
043837,001129:                                                                                                  #        2.      VXV     DP VECTOR CROSS PRODUCT.
043838,001130:                                                                                                  #        3.      VXSC    DP VECTOR TIMES SCALAR.
043839,001131:                                                                                                  #        4.      V/SC    DP VECTOR DIVIDED BY SCALAR.
043840,001132:                                                                                                  #        5.      VPROJ   DP VECTOR PROJECTION.  ( (MPAC.X)MPAC ).
043841,001133:                                                                                                  #        6.      VXM     DP VECTOR POST-MULTIPLIED BY MATRIX.
043842,001134:                                                                                                  #        7.      MXV     DP VECTOR PRE-MULTIPLIED BY MATRIX.
043843,001135: 
043844,001136:    7334           07157        DOT                TC       PREDOT                                #  DO THE DOT PRODUCT AND EXIT, CHANGING
043845,001137:    7335           34755        DMODE              CAF      ZERO                                  #  THE MODE TO DP SCALAR.
043846,001138:    7336           16063                           TCF      NEWMODE                               
043847,001139: 
043848,001140:    7337           34752        MXV                CAF      TWO                                   #  SET UP MATINC AND DOTINC FOR ROW
043849,001141:    7340           54140                           TS       MATINC                                #  VECTORS.
043850,001142:    7341           17345                           TCF      VXM/MXV                               #  GO TO COMMON PORTION.
043851,001143: 
043852,001144:    7342           44363        VXM                CS       TEN                                   #  SET MATINC AND DOTINC TO REFER TO MATRIX
043853,001145:    7343           54140                           TS       MATINC                                #  AS THREE COLUMN VECTORS.
043854,001146:    7344           36245                           CAF      SIX                                   
043855,001147: 

Page 1033

043857,001149:                                                                                                  #  COMMON PORTION OF MXV AND VXM.
043858,001150: 
043859,001151:    7345           54136        VXM/MXV            TS       DOTINC                                
043860,001152: 
043861,001153:                                                                                                  #  ITRACE (2) REFERS TO "VXM/MXV".
043862,001154: 
043863,001155:    7346           07535                           TC       MPACVBUF                              #  SAVE VECTOR IN MPAC FOR FURTHER USE.
043864,001156: 
043865,001157:    7347           07161                           TC       DOTSUB                                #  GO DOT TO GET X COMPONENT OF ANSWER.
043866,001158:    7350           00006                           EXTEND                                         
043867,001159:    7351           30123                           DCA      VBUF                                  #  MOVE MPAC VECTOR BACK INTO MPAC, SAVING
043868,001160:    7352           52155                           DXCH     MPAC                                  #  NEW X COMPONENT IN BUF2.
043869,001161:    7353           52134                           DXCH     BUF2                                  
043870,001162:    7354           00006                           EXTEND                                         
043871,001163:    7355           30125                           DCA      VBUF       +2                         
043872,001164:    7356           52160                           DXCH     MPAC       +3                         
043873,001165:    7357           00006                           EXTEND                                         
043874,001166:    7360           30127                           DCA      VBUF       +4                         
043875,001167:    7361           52162                           DXCH     MPAC       +5                         
043876,001168:    7362           30140                           CA       MATINC                                #  INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
043877,001169:    7363           26116                           ADS      ADDRWD                                #  FORMS BASE ADDRESS OF NEXT COLUMN(ROW).
043878,001170: 
043879,001171:    7364           07161                           TC       DOTSUB                                
043880,001172:    7365           52123                           DXCH     VBUF                                  #  MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
043881,001173:    7366           52155                           DXCH     MPAC                                  #  COMPONENT OF ANSWER IN VBUF +2.
043882,001174:    7367           52125                           DXCH     VBUF       +2                         
043883,001175:    7370           52160                           DXCH     MPAC       +3                         
043884,001176:    7371           52127                           DXCH     VBUF       +4                         
043885,001177:    7372           52162                           DXCH     MPAC       +5                         
043886,001178:    7373           30140                           CA       MATINC                                #  FORM ADDRESS OF LAST COLUMN OR ROW.
043887,001179:    7374           26116                           ADS      ADDRWD                                
043888,001180: 
043889,001181:    7375           07161                           TC       DOTSUB                                
043890,001182:    7376           52134                           DXCH     BUF2                                  #  ANSWER NOW COMPLETE. PUT COMPONENTS INTO
043891,001183:    7377           52155                           DXCH     MPAC                                  #  PROPER MPAC REGISTERS.
043892,001184:    7400           52162                           DXCH     MPAC       +5                         
043893,001185:    7401           52125                           DXCH     VBUF       +2                         
043894,001186:    7402           52160                           DXCH     MPAC       +3                         
043895,001187:    7403           16064                           TCF      DANZIG                                #  EXIT.
043896,001188: 

Page 1034

043898,001190:                                                                                                  #  VXSC - VECTOR TIMES SCALAR.
043899,001191: 
043900,001192:    7404           10163        VXSC               CCS      MODE                                  #  TEST PRESENT MODE.
043901,001193:    7405           17433                           TCF      DVXSC                                 #  SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
043902,001194:    7406           17433                           TCF      DVXSC                                 
043903,001195: 
043904,001196:    7407           07112        VVXSC              TC       DMPSUB                                #  COMPUTE X COMPONENT
043905,001197:    7410           07143                           TC       VROUND                                #  AND ROUND IT.
043906,001198:    7411           52160                           DXCH     MPAC       +3                         #  PUT Y COMPONENT INTO MPAC SAVING MPAC IN
043907,001199:    7412           52155                           DXCH     MPAC                                  #  MPAC +3.
043908,001200:    7413           52160                           DXCH     MPAC       +3                         
043909,001201: 
043910,001202:    7414           07112                           TC       DMPSUB                                #  DO SAME FOR Y AND Z COMPONENTS.
043911,001203:    7415           07143                           TC       VROUND                                
043912,001204:    7416           52162                           DXCH     MPAC       +5                         
043913,001205:    7417           52155                           DXCH     MPAC                                  
043914,001206:    7420           52162                           DXCH     MPAC       +5                         
043915,001207: 
043916,001208:    7421           07112                           TC       DMPSUB                                
043917,001209:    7422           07143                           TC       VROUND                                
043918,001210:    7423           52155        VROTATEX           DXCH     MPAC                                  #  EXIT USED TO RESTORE MPAC AFTER THIS
043919,001211:    7424           52162                           DXCH     MPAC       +5                         #  TYPE OF ROTATION.  CALLED BY VECTOR SHIFT
043920,001212:    7425           52160                           DXCH     MPAC       +3                         #  RIGHT, V/SC, ETC.
043921,001213:    7426           52155                           DXCH     MPAC                                  
043922,001214:    7427           16064                           TCF      DANZIG                                
043923,001215: 

Page 1035

043925,001217:                                                                                                  #  DP VECTOR PROJECTION ROUTINE.
043926,001218: 
043927,001219:    7430           07157        VPROJ              TC       PREDOT                                #  (MPAC.X)MPAC IS COMPUTED AND LEFT IN
043928,001220:    7431           44751                           CS       FOUR                                  #  MPAC.  DO DOT AND FALL INTO DVXSC.
043929,001221:    7432           26116                           ADS      ADDRWD                                
043930,001222: 
043931,001223:                                                                                                  #  VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
043932,001224: 
043933,001225:    7433           00006        DVXSC              EXTEND                                         #  SAVE SCALAR IN MPAC +3 AND GET X
043934,001226:    7434           30155                           DCA      MPAC                                  #  COMPONENT OF ANSWER.
043935,001227:    7435           52160                           DXCH     MPAC       +3                         
043936,001228:    7436           07112                           TC       DMPSUB                                
043937,001229:    7437           07143                           TC       VROUND                                
043938,001230: 
043939,001231:    7440           34752                           CAF      TWO                                   #  ADVANCE ADDRWD TO Y COMPONENT OF X.
043940,001232:    7441           26116                           ADS      ADDRWD                                
043941,001233:    7442           00006                           EXTEND                                         
043942,001234:    7443           30160                           DCA      MPAC       +3                         #  PUT SCALAR BACK INTO MPAC AND SAVE
043943,001235:    7444           52155                           DXCH     MPAC                                  #  X RESULT IN MPAC +5.
043944,001236:    7445           52162                           DXCH     MPAC       +5                         
043945,001237:    7446           07112                           TC       DMPSUB                                
043946,001238:    7447           07143                           TC       VROUND                                
043947,001239: 
043948,001240:    7450           34752                           CAF      TWO                                   
043949,001241:    7451           26116                           ADS      ADDRWD                                #  TO Z COMPONENT.
043950,001242:    7452           52160                           DXCH     MPAC       +3                         #  BRING SCALAR BACK, PUTTING Y RESULT IN
043951,001243:    7453           52155                           DXCH     MPAC                                  #  THE PROPER PLACE.
043952,001244:    7454           52160                           DXCH     MPAC       +3                         
043953,001245:    7455           07112                           TC       DMPSUB                                
043954,001246:    7456           07143                           TC       VROUND                                
043955,001247: 
043956,001248:    7457           52155                           DXCH     MPAC                                  #  PUT Z COMPONENT IN PROPER PLACE, ALSO
043957,001249:    7460           52162                           DXCH     MPAC       +5                         #  POSITIONING X.
043958,001250:    7461           52155                           DXCH     MPAC                                  
043959,001251: 
043960,001252:    7462           16524                           TCF      VMODE                                 #  MODE HAS CHANGED TO VECTOR.
043961,001253: 

Page 1036

043963,001255:                                                                                                  #           THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
043964,001256:                                                                                                  #                                                         3 2  2 3  1 3  3 1  2 1  1 2
043965,001257:                                                                                                  #  MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
043966,001258: 
043967,001259:    7463           00006        VXV                EXTEND                                         
043968,001260:    7464           30162                           DCA      MPAC       +5                         #  FORM UP M3X1, LEAVING M1 IN VBUF.
043969,001261:    7465           52155                           DXCH     MPAC                                  
043970,001262:    7466           52123                           DXCH     VBUF                                  
043971,001263:    7467           07112                           TC       DMPSUB                                #  BY X1.
043972,001264: 
043973,001265:    7470           00006                           EXTEND                                         
043974,001266:    7471           40160                           DCS      MPAC       +3                         #  CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
043975,001267:    7472           52155                           DXCH     MPAC                                  
043976,001268:    7473           52125                           DXCH     VBUF       +2                         
043977,001269:    7474           07112                           TC       DMPSUB                                
043978,001270: 
043979,001271:    7475           34752                           CAF      TWO                                   #  ADVANCE ADDRWD TO X2.
043980,001272:    7476           26116                           ADS      ADDRWD                                
043981,001273:    7477           00006                           EXTEND                                         
043982,001274:    7500           40162                           DCS      MPAC       +5                         #  PREPARE TO GET -X2M3, SAVING -X1M2 IN
043983,001275:    7501           52155                           DXCH     MPAC                                  #  MPAC +5.
043984,001276:    7502           52162                           DXCH     MPAC       +5                         
043985,001277:    7503           07112                           TC       DMPSUB                                
043986,001278: 
043987,001279:    7504           00006                           EXTEND                                         
043988,001280:    7505           30123                           DCA      VBUF                                  #  GET X2M1, SAVING -X2M3 IN VBUF +4.
043989,001281:    7506           52155                           DXCH     MPAC                                  
043990,001282:    7507           52127                           DXCH     VBUF       +4                         
043991,001283:    7510           07112                           TC       DMPSUB                                
043992,001284: 
043993,001285:    7511           34752                           CAF      TWO                                   #  ADVANCE ADDRWD TO X3.
043994,001286:    7512           26116                           ADS      ADDRWD                                
043995,001287:    7513           00006                           EXTEND                                         
043996,001288:    7514           40123                           DCS      VBUF                                  #  GET -X3M1, ADDING X2M1 TO MPAC +5 TO
043997,001289:    7515           52155                           DXCH     MPAC                                  #  COMPLETE THE Z COMPONENT OF THE ANSWER.
043998,001290:    7516           20162                           DAS      MPAC       +5                         
043999,001291: 
044000,001292:    7517           00006                           EXTEND                                         
044001,001293:    7520           17522                           BZF      +2                                    
044002,001294:    7521           07014                           TC       OVERFLWZ                              
044003,001295: 
044004,001296:    7522           07112                           TC       DMPSUB                                
044005,001297:    7523           52125                           DXCH     VBUF       +2                         #  MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
044006,001298:    7524           52160                           DXCH     MPAC       +3                         #  AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
044007,001299:    7525           52155                           DXCH     MPAC                                  #  Y COMPONENT OF THE RESULT.
044008,001300:    7526           20160                           DAS      MPAC       +3                         
044009,001301: 
044010,001302:    7527           00006                           EXTEND                                         
044011,001303:    7530           17532                           BZF      +2                                    

Page 1037

044013,001305:    7531           07017                           TC       OVERFLWY                              
044014,001306: 
044015,001307:    7532           07112                           TC       DMPSUB                                
044016,001308:    7533           52127                           DXCH     VBUF       +4                         #  GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
044017,001309:    7534           17003                           TCF      ENDVXV                                #  COMPONENT (TAIL END OF DAD).
044018,001310: 
044019,001311:                                                                                                  #  THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
044020,001312: 
044021,001313:    7535           00006        MPACVBUF           EXTEND                                         #  CALLED BY MXV, VXM, AND UNIT.
044022,001314:    7536           30155                           DCA      MPAC                                  
044023,001315:    7537           52123                           DXCH     VBUF                                  
044024,001316:    7540           00006                           EXTEND                                         
044025,001317:    7541           30160                           DCA      MPAC       +3                         
044026,001318:    7542           52125                           DXCH     VBUF       +2                         
044027,001319:    7543           00006                           EXTEND                                         
044028,001320:    7544           30162                           DCA      MPAC       +5                         
044029,001321:    7545           52127                           DXCH     VBUF       +4                         
044030,001322:    7546           00002                           TC       Q                                     #  RETURN TO CALLER.
044031,001323: 
044032,001324:                                                                                                  #  DOUBLE PRECISION SIGN AGREE ROUTINE.  ARRIVE WITH INPUT IN A+L.  OUTPUT IS IN A + L.
044033,001325: 
044034,001326:    7547           10000        ALSIGNAG           CCS      A                                     #  TEST UPPER PART.
044035,001327:    7550           17554                           TCF      UPPOS                                 #  IT IS POSITIVE
044036,001328:    7551           00002                           TC       Q                                     #  ZERO
044037,001329:    7552           17564                           TCF      UPNEG                                 #  NEGATIVE
044038,001330:    7553           00002                           TC       Q                                     #  ZERO
044039,001331: 
044040,001332:    7554           56001        UPPOS              XCH      L                                     #  SAVE DECREMENTED UPPER PART.
044041,001333:    7555           64736                           AD       HALF                                  
044042,001334:    7556           64736                           AD       HALF                                  
044043,001335:    7557           54000                           TS       A                                     #  SKIPS ON OVERFLOW
044044,001336:    7560           17562                           TCF      +2                                    
044045,001337:    7561           24001                           INCR     L                                     #  RESTORE UPPER TO ROIGINAL VALUE
044046,001338:    7562           56001                           XCH      L                                     #  SWAP A + L BACK.
044047,001339:    7563           00002                           TC       Q                                     
044048,001340: 
044049,001341:    7564           56001        UPNEG              XCH      L                                     #  SAVE COMPLEMENTED + DECREMENTED UPPER PT
044050,001342:    7565           64735                           AD       NEGMAX                                
044051,001343:    7566           67752                           AD       NEGONE                                
044052,001344:    7567           54000                           TS       A                                     
044053,001345:    7570           17572                           TCF      +2                                    #  DONT INCREMENT IF NO OVERFLOW.
044054,001346:    7571           24001                           INCR     L                                     
044055,001347:    7572           56001                           XCH      L                                     
044056,001348:    7573           40000                           COM                                            #  MAKE NEGATIVE AGAIN.
044057,001349:    7574           00002                           TC       Q                                     
044058,001350: 

Page 1038

044060,001352:                                                                                                  #  INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
044061,001353: 
044062,001354:    7575           07112        DMP1               TC       DMPSUB                                #  DMP INSTRUCTION.
044063,001355:    7576           16064                           TCF      DANZIG                                
044064,001356: 
044065,001357:    7577           07112        DMPR               TC       DMPSUB                                
044066,001358:    7600           07142                           TC       ROUNDSUB   +1                         #  (C(A) = +0).
044067,001359:    7601           16064                           TCF      DANZIG                                
044068,001360: 
044069,001361:    7602           00006        DDV                EXTEND                                         
044070,001362:    7603           50116                           INDEX    ADDRWD                                #  MOVE DIVIDEND INTO BUF.
044071,001363:    7604           30001                           DCA      0                                     
044072,001364:    7605           17612                           TCF      BDDV       +4                         
044073,001365: 
044074,001366:    7606           00006        BDDV               EXTEND                                         #  MOVE DIVISOR INTO MPAC SAVING MPAC, THE
044075,001367:    7607           50116                           INDEX    ADDRWD                                #  DIVIDEND, IN BUF.
044076,001368:    7610           30001                           DCA      0                                     
044077,001369:    7611           52155                           DXCH     MPAC                                  
044078,001370:    7612           52131                 +4        DXCH     BUF                                   
044079,001371:    7613           34755                           CAF      ZERO                                  #  DIVIDE ROUTINES IN BANK 0.
044080,001372:    7614           54004                           TS       FBANK                                 
044081,001373:    7615           12353                           TCF      DDV/BDDV                              
044082,001374: 
044083,001375:    7616           30116        SETPD              CA       ADDRWD                                #  MUST SET TO WORK AREA, OR EBANK TROUBLE.
044084,001376:    7617           54166                           TS       PUSHLOC                               
044085,001377:    7620           16066                           TCF      NOIBNKSW                              #  NO FBANK SWITCH REQUIRED.
044086,001378: 
044087,001379:    7621           34755        TSLC               CAF      ZERO                                  #  SHIFTING ROUTINES LOCATED IN BANK 00.
044088,001380:    7622           54004                           TS       FBANK                                 
044089,001381:    7623           12172                           TCF      TSLC2                                 
044090,001382: 
044091,001383:    7624           36077        GSHIFT             CAF      LOW7                                  #  USED AS MASK AT GENSHIFT. THIS PROCESSES
044092,001384:    7625           54004                           TS       FBANK                                 #  ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
044093,001385:    7626           12214                           TCF      GENSHIFT                              #  AN ADDRESS (ROUTINES IN BANK 0).
044094,001386: 

Page 1039

044096,001388:                                                                                                  #  THE FOLLOWING IS THE PROLOGUE TO V/SC.  IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
044097,001389:                                                                                                  #  AND CALLS THE V/SC ROUTINE IN BANK 0.  IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
044098,001390:                                                                                                  #  THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
044099,001391: 
044100,001392:    7627           10163        V/SC               CCS      MODE                                  
044101,001393:    7630           17641                           TCF      DV/SC                                 #  MOVE VECTOR INTO MPAC.
044102,001394:    7631           17641                           TCF      DV/SC                                 
044103,001395: 
044104,001396:    7632           00006        VV/SC              EXTEND                                         
044105,001397:    7633           50116                           INDEX    ADDRWD                                
044106,001398:    7634           30001                           DCA      0                                     
044107,001399:    7635           52131        V/SC1              DXCH     BUF                                   #  IN BOTH CASES, VECTOR IS NOW IN MPAC AND
044108,001400:    7636           34755                           CAF      ZERO                                  #  SCALAR IN BUF.
044109,001401:    7637           54004                           TS       FBANK                                 
044110,001402:    7640           12654                           TCF      V/SC2                                 
044111,001403: 
044112,001404:    7641           00006        DV/SC              EXTEND                                         
044113,001405:    7642           50116                           INDEX    ADDRWD                                
044114,001406:    7643           30003                           DCA      2                                     
044115,001407:    7644           52160                           DXCH     MPAC       +3                         
044116,001408:    7645           00006                           EXTEND                                         
044117,001409:    7646           50116                           INDEX    ADDRWD                                
044118,001410:    7647           30005                           DCA      4                                     
044119,001411:    7650           52162                           DXCH     MPAC       +5                         
044120,001412: 
044121,001413:    7651           44753                           CS       ONE                                   #  CHANGE MODE TO VECTOR.
044122,001414:    7652           54163                           TS       MODE                                  
044123,001415: 
044124,001416:    7653           00006                           EXTEND                                         
044125,001417:    7654           50116                           INDEX    ADDRWD                                
044126,001418:    7655           30001                           DCA      0                                     
044127,001419:    7656           52155                           DXCH     MPAC                                  
044128,001420:    7657           17635                           TCF      V/SC1                                 #  FINISH PROLOGUE AT COMMON SECTION.
044129,001421: 

Page 1040

044131,001423:                                                                                                  #  SIGN AND COMPLEMENT INSTRUCTIONS.
044132,001424: 
044133,001425:    7660           50116        SIGN               INDEX    ADDRWD                                #  CALL COMP INSTRUCTION IF WORD AT X IS
044134,001426:    7661           10000                           CCS      0                                     #  NEGATIVE NON-ZERO.
044135,001427:    7662           16064                           TCF      DANZIG                                
044136,001428:    7663           17665                           TCF      +2                                    
044137,001429:    7664           17673                           TCF      COMP                                  #  DO THE COMPLEMENT.
044138,001430: 
044139,001431:    7665           50116                           INDEX    ADDRWD                                
044140,001432:    7666           10001        CCSL               CCS      1                                     
044141,001433:    7667           16064                           TCF      DANZIG                                
044142,001434:    7670           16064                           TCF      DANZIG                                
044143,001435:    7671           17673                           TCF      COMP                                  
044144,001436:    7672           16064                           TCF      DANZIG                                
044145,001437:    7673           00006        COMP               EXTEND                                         #  COMPLEMENT DP MPAC IN EVERY CASE.
044146,001438:    7674           40155                           DCS      MPAC                                  
044147,001439:    7675           52155                           DXCH     MPAC                                  
044148,001440: 
044149,001441:    7676           10163                           CCS      MODE                                  #  EITHER COMPLEMENT MPAC +3 OR THE REST OF
044150,001442:    7677           17710                           TCF      DCOMP                                 #  THE VECTOR ACCUMULATOR.
044151,001443:    7700           17710                           TCF      DCOMP                                 
044152,001444: 
044153,001445:    7701           00006                           EXTEND                                         #  VECTOR COMPLEMENT.
044154,001446:    7702           40160                           DCS      MPAC       +3                         
044155,001447:    7703           52160                           DXCH     MPAC       +3                         
044156,001448:    7704           00006                           EXTEND                                         
044157,001449:    7705           40162                           DCS      MPAC       +5                         
044158,001450:    7706           52162                           DXCH     MPAC       +5                         
044159,001451:    7707           16064                           TCF      DANZIG                                
044160,001452: 
044161,001453:    7710           40156        DCOMP              CS       MPAC       +2                         
044162,001454:    7711           54156                           TS       MPAC       +2                         
044163,001455:    7712           16064                           TCF      DANZIG                                
044164,001456: 

Page 1041

044166,001458:                                                                                                  #  THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
044167,001459:                                                                                                  #        1.      SR1 TO SR4      SCALAR SHIFT RIGHT.
044168,001460:                                                                                                  #        2.      SR1R TO SR4R    SCALAR SHIFT RIGHT AND ROUND.
044169,001461:                                                                                                  #        3.      SL1 TO SL4      SCALAR SHIFT LEFT.
044170,001462:                                                                                                  #        4.      SL1R TO SL4R    SCALAR SHIFT LEFT AND ROUND.
044171,001463:                                                                                                  #        5.      VSR1 TO VSR8    VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
044172,001464:                                                                                                  #        6.      VSL1 TO VSL8    VECTOR SHIFT LEFT (NEVER ROUNDS).
044173,001465:                                                                                                  #  THE FOLLOWING CODES REQUIRE AN ADDRESS WHICH MAY BE INDEXED:*
044174,001466:                                                                                                  #        1.      SR              SCALAR SHIFT RIGHT.
044175,001467:                                                                                                  #        2.      SRR             SCALAR SHIFT RIGHT AND ROUND.
044176,001468:                                                                                                  #        3.      SL              SCALAR SHIFT LEFT.
044177,001469:                                                                                                  #        4.      SLR             SCALAR SHIFT LEFT AND ROUND.
044178,001470:                                                                                                  #        5.      VSR             VECTOR SHIFT RIGHT.
044179,001471:                                                                                                  #        6.      VSL             VECTOR SHIFT LEFT.
044180,001472:                                                                                                  #  * IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
044181,001473:                                                                                                  #  ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
044182,001474: 
044183,001475: 00,2017                                           BANK     00                                    
044184,001476: 
044185,001477: 00,2017                                           COUNT*   $$/INTER                              
044186,001478: 00,2017           36245        SHORTT             CAF      SIX                                   #  SCALAR SHORT SHIFTS COME HERE.  THE SHIFT
044187,001479: 00,2020           70020                           MASK     CYR                                   #  COUNT-1 IS NOW IN BITS 2-3 OF CYR.  THE
044188,001480: 00,2021           54021                           TS       SR                                    #  ROUNDING BIT IS IN BIT1 AT THIS POINT.
044189,001481: 
044190,001482: 00,2022           10020                           CCS      CYR                                   #  SEE IF RIGHT OR LEFT SHIFT DESIRED.
044191,001483: 00,2023           12101                           TCF      TSSL                                  #  SHIFT LEFT.
044192,001484: 
044193,001485: 00,2024           00024        SRDDV              DEC      20         B-14                       #  MPTEMP SETTING FOR SR BEFORE DDV.
044194,001486: 
044195,001487: 00,2025           50021        TSSR               INDEX    SR                                    #  GET SHIFTING BIT.
044196,001488: 00,2026           34736                           CAF      BIT14                                 
044197,001489: 00,2027           54135                           TS       MPTEMP                                
044198,001490: 
044199,001491: 00,2030           10020                           CCS      CYR                                   #  SEE IF A ROUND IS DESIRED.
044200,001492: 00,2031           02050        RIGHTR             TC       MPACSRND                              #  YES - SHIFT RIGHT AND ROUND.
044201,001493: 00,2032           16063                           TCF      NEWMODE                               #  SET MODE TO DP (C(A) = 0).
044202,001494: 00,2033           30135        MPACSHR            CA       MPTEMP                                #  DO A TRIPLE PRECISION SHIFT RIGHT.
044203,001495: 00,2034           00006                           EXTEND                                         
044204,001496: 00,2035           70156                           MP       MPAC       +2                         
044205,001497: 00,2036           54156                 +3        TS       MPAC       +2                         #  (EXIT FROM SQRT AND ABVAL).
044206,001498: 00,2037           30135                           CA       MPTEMP                                
044207,001499: 00,2040           00006                           EXTEND                                         
044208,001500: 00,2041           70154                           MP       MPAC                                  #  SHIFT MAJOR PART INTO A,L AND PLACE IN

Page 1042

044210,001502: 00,2042           52155                           DXCH     MPAC                                  #  MPAC,+1.
044211,001503: 00,2043           30135                           CA       MPTEMP                                
044212,001504: 00,2044           00006                           EXTEND                                         
044213,001505: 00,2045           70001                           MP       L                                     #  ORIGINAL C(MPAC +1).
044214,001506: 00,2046           20156                           DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
044215,001507: 00,2047           16064                           TCF      DANZIG                                
044216,001508: 
044217,001509:                                                                                                  #  MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
044218,001510: 
044219,001511: 00,2050           30156        MPACSRND           CA       MPAC       +2                         #  WE HAVE TO DO ALL THREE MULTIPLIES SINCE
044220,001512: 00,2051           00006                           EXTEND                                         #  MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
044221,001513: 00,2052           70135                           MP       MPTEMP                                #  DISAGREEMENT WITH A SHIFT RIGHT OF 1.
044222,001514: 00,2053           56155                           XCH      MPAC       +1                         
044223,001515: 00,2054           00006                           EXTEND                                         
044224,001516: 00,2055           70135                           MP       MPTEMP                                
044225,001517: 00,2056           56155                           XCH      MPAC       +1                         #  TRIAL MINOR PART.
044226,001518: 00,2057           60001                           AD       L                                     
044227,001519: 
044228,001520: 00,2060           60000        VSHR2              DOUBLE                                         #  (FINISH VECTOR COMPONENT SHIFT RIGHT
044229,001521: 00,2061           54156                           TS       MPAC       +2                         #  AND ROUND.
044230,001522: 00,2062           12064                           TCF      +2                                    
044231,001523: 00,2063           26155                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
044232,001524: 
044233,001525: 00,2064           34755                           CAF      ZERO                                  
044234,001526: 00,2065           54156                           TS       MPAC       +2                         
044235,001527: 00,2066           56154                           XCH      MPAC                                  #  SETTING TO ZERO SO FOLLOWING DAS WORKS.
044236,001528: 00,2067           00006                           EXTEND                                         
044237,001529: 00,2070           70135                           MP       MPTEMP                                
044238,001530: 00,2071           20155                           DAS      MPAC                                  #  AGAIN NO OVERFLOW.
044239,001531: 00,2072           00002                           TC       Q                                     
044240,001532: 
044241,001533: 00,2073           30135        VSHRRND            CA       MPTEMP                                #  ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
044242,001534: 00,2074           00006                           EXTEND                                         #  MPAC CONTAINS A VECTOR COMPONENT.
044243,001535: 00,2075           70155                           MP       MPAC       +1                         
044244,001536: 00,2076           54155                           TS       MPAC       +1                         
044245,001537: 00,2077           56001                           XCH      L                                     
044246,001538: 00,2100           12060                           TCF      VSHR2                                 #  GO ADD ONE IF NECESSARY AND FINISH.
044247,001539: 

Page 1043

044249,001541:                                                                                                  #  ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
044250,001542: 
044251,001543: 00,2101           30021        TSSL               CA       SR                                    #  GET SHIFT COUNT FOR SR.
044252,001544: 00,2102           54135                 +1        TS       MPTEMP                                
044253,001545: 
044254,001546: 00,2103           00006                 +2        EXTEND                                         #  ENTRY HERE FROM SL FOR SCALARS.
044255,001547: 00,2104           30156                           DCA      MPAC       +1                         #  SHIFTING LEFT ONE PLACE AT A TIME IS
044256,001548: 00,2105           20156                           DAS      MPAC       +1                         #  FASTER THAN DOING THE WHOLE SHIFT WITH
044257,001549: 00,2106           60154                           AD       MPAC                                  #  MULTIPLIES ASSUMING THAT FREQUENCY OF
044258,001550: 00,2107           60154                           AD       MPAC                                  #  SHIFT COUNTS GOES DOWN RAPIDLY AS A
044259,001551: 00,2110           54154                           TS       MPAC                                  #  FUNCTION OF THEIR MAGNITUDE.
044260,001552: 00,2111           12113                           TCF      +2                                    
044261,001553: 00,2112           54121                           TS       OVFIND                                #  OVERFLOW.  (LEAVES OVERFLOW-CORRECTED
044262,001554:                                                                                                  #  RESULT ANYWAY).
044263,001555: 00,2113           10135                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNT.
044264,001556: 00,2114           12102                           TCF      TSSL       +1                         
044265,001557: 
044266,001558: 00,2115           10020                           CCS      CYR                                   #  SEE IF ROUND WANTED.
044267,001559: 00,2116           07141        ROUND              TC       ROUNDSUB                              #  YES - ROUND AND EXIT.
044268,001560: 00,2117           16064                           TCF      DANZIG                                #  SL LEAVES A ZERO IN CYR FOR NO ROUND.
044269,001561: 00,2120           16064                           TCF      DANZIG                                #  NO - EXIT IMMEDIATL
044270,001562: 

Page 1044

044272,001564:                                                                                                  #  VECTOR SHIFTING ROUTINES.
044273,001565: 
044274,001566: 00,2121           34757        SHORTV             CAF      LOW3                                  #  SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
044275,001567: 00,2122           70020                           MASK     CYR                                   #  EDITING CYR.
044276,001568: 00,2123           54135                           TS       MPTEMP                                
044277,001569: 00,2124           10020                           CCS      CYR                                   #  SEE IF LEFT OR RIGHT SHIFT.
044278,001570: 00,2125           12145                           TCF      VSSL                                  #  VECTOR SHIFT LEFT.
044279,001571: 00,2126           00176        OCT176             OCT      176                                   #  USED IN PROCESSED SHIFTS WITH - COUNT.
044280,001572: 
044281,001573: 00,2127           50135        VSSR               INDEX    MPTEMP                                #  (ENTRY FROM SR).  PICK UP SHIFTING BIT.
044282,001574: 00,2130           34736                           CAF      BIT14                                 #  MPTEMP CONTAINS THE SHIFT COUNT - 1.
044283,001575: 00,2131           54135                           TS       MPTEMP                                
044284,001576: 00,2132           02073                           TC       VSHRRND                               #  SHIFT X COMPONENT.
044285,001577: 
044286,001578: 00,2133           52155                           DXCH     MPAC                                  #  SWAP X AND Y COMPONENTS.
044287,001579: 00,2134           52160                           DXCH     MPAC       +3                         
044288,001580: 00,2135           52155                           DXCH     MPAC                                  
044289,001581: 00,2136           02073                           TC       VSHRRND                               #  SHIFT Y COMPONENT.
044290,001582: 
044291,001583: 00,2137           52155                           DXCH     MPAC                                  #  SWAP Y AND Z COMPONENTS.
044292,001584: 00,2140           52162                           DXCH     MPAC       +5                         
044293,001585: 00,2141           52155                           DXCH     MPAC                                  
044294,001586: 00,2142           02073                           TC       VSHRRND                               #  SHIFT Z COMPONENT.
044295,001587: 
044296,001588: 00,2143           17423                           TCF      VROTATEX                              #  RESTORE COMPONENTS TO PROPER PLACES.
044297,001589: 

Page 1045

044299,001591:                                                                                                  #  VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
044300,001592: 
044301,001593: 00,2144           54135                 -1        TS       MPTEMP                                #  SHIFTING LOOP.
044302,001594: 
044303,001595: 00,2145           00006        VSSL               EXTEND                                         
044304,001596: 00,2146           30155                           DCA      MPAC                                  
044305,001597: 00,2147           20155                           DAS      MPAC                                  
044306,001598: 00,2150           00006                           EXTEND                                         
044307,001599: 00,2151           12153                           BZF      +2                                    
044308,001600: 00,2152           07022                           TC       OVERFLOW                              
044309,001601: 
044310,001602: 00,2153           00006                           EXTEND                                         
044311,001603: 00,2154           30160                           DCA      MPAC       +3                         
044312,001604: 00,2155           20160                           DAS      MPAC       +3                         
044313,001605: 00,2156           00006                           EXTEND                                         
044314,001606: 00,2157           12161                           BZF      +2                                    
044315,001607: 00,2160           07017                           TC       OVERFLWY                              
044316,001608: 
044317,001609: 00,2161           00006                           EXTEND                                         
044318,001610: 00,2162           30162                           DCA      MPAC       +5                         
044319,001611: 00,2163           20162                           DAS      MPAC       +5                         
044320,001612: 00,2164           00006                           EXTEND                                         
044321,001613: 00,2165           12167                           BZF      +2                                    
044322,001614: 00,2166           07014                           TC       OVERFLWZ                              
044323,001615: 
044324,001616: 00,2167           10135                           CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNTER.
044325,001617: 00,2170           12144                           TCF      VSSL       -1                         
044326,001618: 00,2171           16064                           TCF      DANZIG                                #  EXIT.
044327,001619: 

Page 1046

044329,001621:                                                                                                  #  TSLC - TRIPLE SHIFT LEFT AND COUNT.  SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
044330,001622:                                                                                                  #  THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
044331,001623: 
044332,001624: 00,2172           54135        TSLC2              TS       MPTEMP                                #  START BY ZEROING SHIFT COUNT (IN A NOW).
044333,001625: 00,2173           06726                           TC       BRANCH                                #  EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
044334,001626: 00,2174           12176                           TCF      +2                                    
044335,001627: 00,2175           12212                           TCF      ENDTSLC                               #  STORES ZERO SHIFT COUNT IN THIS CASE.
044336,001628: 
044337,001629: 00,2176           07262                           TC       TPAGREE                               #  MAY CAUSE UPSHIFT OF ONE EXTRA PLACE.
044338,001630: 
044339,001631: 00,2177           30154                           CA       MPAC                                  #  BEGIN NORMALIZATION LOOP.
044340,001632: 00,2200           12207                           TCF      TSLCTEST                              
044341,001633: 
044342,001634: 00,2201           24135        TSLCLOOP           INCR     MPTEMP                                #  INCREMENT SHIFT COUNTER.
044343,001635: 00,2202           00006                           EXTEND                                         
044344,001636: 00,2203           30156                           DCA      MPAC       +1                         
044345,001637: 00,2204           20156                           DAS      MPAC       +1                         
044346,001638: 00,2205           60154                           AD       MPAC                                  
044347,001639: 00,2206           26154                           ADS      MPAC                                  
044348,001640: 00,2207           60000        TSLCTEST           DOUBLE                                         #  SEE IF (ANOTHER) SHIFT IS REQUIRED.
044349,001641: 00,2210           54000                           OVSK                                           
044350,001642: 00,2211           12201                           TCF      TSLCLOOP                              #  YES - INCREMENT COUNT AND SHIFT AGAIN.
044351,001643: 
044352,001644: 00,2212           40135        ENDTSLC            CS       MPTEMP                                
044353,001645: 00,2213           16626                           TCF      STORE1                                #  STORE SHIFT COUNT AND RETURN TO DANZIG.
044354,001646: 

Page 1047

044356,001648:                                                                                                  #  THE FOLLOWING ROUTINES PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
044357,001649:                                                                                                  #  THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
044358,001650:                                                                                                  #        BITS 1-7        SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
044359,001651:                                                                                                  #        BIT 8           PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
044360,001652:                                                                                                  #        BIT 9           0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
044361,001653:                                                                                                  #        BIT 10          1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
044362,001654:                                                                                                  #        BITS 11-13      0.
044363,001655:                                                                                                  #        BIT 14          1.
044364,001656:                                                                                                  #        BIT 15          0.
044365,001657:                                                                                                  #  THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
044366,001658: 
044367,001659: 00,2214           70116        GENSHIFT           MASK     ADDRWD                                #  GET SHIFT COUNT, TESTING FOR ZERO.
044368,001660: 00,2215           10000                           CCS      A                                     #  (ARRIVES WITH C(A) = LOW7).
044369,001661: 00,2216           12224                           TCF      GENSHFT2                              #  IF NON-ZERO, PROCEED WITH DECREMENTED CT
044370,001662: 
044371,001663: 00,2217           34742                           CAF      BIT10                                 #  ZERO SHIFT COUNT.  NO SHIFTS NEEDED BUT
044372,001664: 00,2220           70116                           MASK     ADDRWD                                #  WE MIGHT HAVE TO ROUND MPAC ON SLR AND
044373,001665: 00,2221           10000                           CCS      A                                     #  SRR (SCALAR ONLY).
044374,001666: 00,2222           07141                           TC       ROUNDSUB                              
044375,001667: 00,2223           16064                           TCF      DANZIG                                
044376,001668: 
044377,001669: 00,2224           54135        GENSHFT2           TS       MPTEMP                                #  DECREMENTED SHIFT COUNT TO MPTEMP.
044378,001670: 00,2225           34744                           CAF      BIT8                                  #  TEST MEANING OF LOW SEVEN BIT COUNT IN
044379,001671: 00,2226           00006                           EXTEND                                         #  MPTEMP NOW.
044380,001672: 00,2227           70116                           MP       ADDRWD                                
044381,001673: 00,2230           76250                           MASK     LOW2                                  #  JUMPS ON SHIFT DIRECTION (BIT8) AND
044382,001674: 00,2231           50000                           INDEX    A                                     
044383,001675: 00,2232           12233                           TCF      +1                                    #  ORIGINAL SHIFT DIRECTION (BIT 9).
044384,001676: 00,2233           12332                           TCF      RIGHT-                                #  NEGATIVE SHIFT COUNT FOR SL OR SLR.
044385,001677: 00,2234           12342                           TCF      LEFT                                  #  SL OR SLR.
044386,001678: 00,2235           12336                           TCF      LEFT-                                 #  NEGATIVE SHIFT COUNT WITH SR OR SRR.
044387,001679: 

Page 1048

044389,001681:                                                                                                  #  GENERAL SHIFT RIGHT.
044390,001682: 
044391,001683: 00,2236           10163        RIGHT              CCS      MODE                                  #  SEE IF VECTOR OR SCALAR.
044392,001684: 00,2237           12277                           TCF      GENSCR                                
044393,001685: 00,2240           12277                           TCF      GENSCR                                
044394,001686: 
044395,001687: 00,2241           30135                           CA       MPTEMP                                #  SEE IF SHIFT COUNT LESS THAN 14D.
044396,001688: 00,2242           63733        VRIGHT2            AD       NEG12                                 
044397,001689: 00,2243           00006                           EXTEND                                         
044398,001690: 00,2244           62127                           BZMF     VSSR                                  #  IF SO, BRANCH AND SHIFT IMMEDIATELY.
044399,001691: 
044400,001692: 00,2245           67752                           AD       NEGONE                                #  IF NOT, REDUCE MPTEMP BY A TOTAL OF 14,
044401,001693: 00,2246           54135                           TS       MPTEMP                                #  AND DO A SHIFT RIGHT AND ROUND BY 14.
044402,001694: 00,2247           34755                           CAF      ZERO                                  #  THE ROUND AT THIS STAGE MAY INTRODUCE A
044403,001695: 00,2250           54001                           TS       L                                     #  ONE BIT ERROR IN A SHIFT RIGHT 15D.
044404,001696: 00,2251           56154                           XCH      MPAC                                  
044405,001697: 00,2252           56155                           XCH      MPAC       +1                         
044406,001698: 00,2253           02272                           TC       SETROUND                              #  X COMPONENT NOW SHIFTED, SO MAKE UP THE
044407,001699: 00,2254           20155                           DAS      MPAC                                  #  ROUNDING QUANTITY (0 IN A AND 0 OR +-1
044408,001700:                                                                                                  #  IN L).
044409,001701: 00,2255           56157                           XCH      MPAC       +3                         #  REPEAT THE ABOVE PROCESS FOR Y AND Z.
044410,001702: 00,2256           56160                           XCH      MPAC       +4                         
044411,001703: 00,2257           02272                           TC       SETROUND                              
044412,001704: 00,2260           20160                           DAS      MPAC       +3                         #  NO OVERFLOW ON THESE ADDS.
044413,001705: 
044414,001706: 00,2261           56161                           XCH      MPAC       +5                         
044415,001707: 00,2262           56162                           XCH      MPAC       +6                         
044416,001708: 00,2263           02272                           TC       SETROUND                              
044417,001709: 00,2264           20162                           DAS      MPAC       +5                         
044418,001710: 
044419,001711: 00,2265           10135                           CCS      MPTEMP                                #  SEE IF DONE, DOING FINAL DECREMENT.
044420,001712: 00,2266           54135                           TS       MPTEMP                                
044421,001713: 00,2267           12242                           TCF      VRIGHT2                               
044422,001714: 00,2270           04604        BIASLO             DEC      .2974      B-1                        #  SQRT CONSTANT
044423,001715: 
044424,001716: 00,2271           16064                           TCF      DANZIG                                
044425,001717: 
044426,001718: 00,2272           60000        SETROUND           DOUBLE                                         #  MAKES UP ROUNDING QUANTITY FROM ARRIVING
044427,001719: 00,2273           54156                           TS       MPAC       +2                         #  C(A).  L IS ZERO INITIALLY.
044428,001720: 00,2274           34755                           CAF      ZERO                                  
044429,001721: 00,2275           56001                           XCH      L                                     
044430,001722: 00,2276           00002                           TC       Q                                     #  RETURN AND DO THE DAS, RESETTING L TO 0.
044431,001723: 

Page 1049

044433,001725:                                                                                                  #  PROCESS SR AND SRR FOR SCALARS.
044434,001726: 
044435,001727: 00,2277           30135        GENSCR             CA       MPTEMP                                #  SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
044436,001728: 00,2300           63733                 +1        AD       NEG12                                 #  THAN 14D.
044437,001729: 00,2301           00006                           EXTEND                                         
044438,001730: 00,2302           62322                           BZMF     DOSSHFT                               #  DO THE SHIFT IMMEDIATELY IF SO.
044439,001731: 
044440,001732: 00,2303           67752                 +4        AD       NEGONE                                #  IF NOT, DECREMENT SHIFT COUNT BY 14D AND
044441,001733: 00,2304           54135                           TS       MPTEMP                                #  SHIFT MPAC RIGHT 14 PLACES.
044442,001734: 00,2305           34755                           CAF      ZERO                                  
044443,001735: 00,2306           56154                           XCH      MPAC                                  
044444,001736: 00,2307           56155                           XCH      MPAC       +1                         
044445,001737: 00,2310           54156                           TS       MPAC       +2                         
044446,001738: 00,2311           10135                           CCS      MPTEMP                                #  SEE IF FINISHED, DO FINAL DECREMENT.
044447,001739: 00,2312           54135                           TS       MPTEMP                                
044448,001740: 00,2313           02300                           TC       GENSCR     +1                         
044449,001741: 00,2314           22650        SLOPEHI            DEC      .5884                                 #  SQRT CONSTANT.
044450,001742: 00,2315           34742                           CAF      BIT10                                 #  FINISHED WITH SHIFT.  SEE IF ROUND
044451,001743: 00,2316           70116                           MASK     ADDRWD                                #  WANTED.
044452,001744: 00,2317           10000                           CCS      A                                     
044453,001745: 00,2320           07141                           TC       ROUNDSUB                              
044454,001746: 00,2321           16064                           TCF      DANZIG                                #  DO SO AND/OR EXIT.
044455,001747: 
044456,001748: 00,2322           50135        DOSSHFT            INDEX    MPTEMP                                #  PICK UP SHIFTING BIT.
044457,001749: 00,2323           34736                           CAF      BIT14                                 
044458,001750: 00,2324           54135                           TS       MPTEMP                                
044459,001751: 00,2325           34742                           CAF      BIT10                                 #  SEE IF TERMINAL ROUND DESIRED.
044460,001752: 00,2326           70116                           MASK     ADDRWD                                
044461,001753: 00,2327           10000                           CCS      A                                     
044462,001754: 00,2330           12031                           TCF      RIGHTR                                #  YES.
044463,001755: 00,2331           12033                           TCF      MPACSHR                               #  JUST SHIFT RIGHT.
044464,001756: 

Page 1050

044466,001758:                                                                                                  #  PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
044467,001759: 
044468,001760: 00,2332           40135        RIGHT-             CS       MPTEMP                                #  GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
044469,001761: 00,2333           62126                           AD       OCT176                                #  UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
044470,001762: 00,2334           54135                           TS       MPTEMP                                #  WAS 1 INITIALLY.
044471,001763: 00,2335           12236                           TCF      RIGHT                                 #  DO NORMAL SHIFT RIGHT.
044472,001764: 
044473,001765: 00,2336           42126        LEFT-              CS       OCT176                                #  SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
044474,001766: 00,2337           60135                           AD       MPTEMP                                #  SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE
044475,001767: 00,2340           40000                           COM                                            
044476,001768: 00,2341           54135                           TS       MPTEMP                                
044477,001769: 
044478,001770: 00,2342           10163        LEFT               CCS      MODE                                  #  SINCE LEFT SHIFTING IS SONE ONE PLACE AT
044479,001771: 00,2343           12346                           TCF      GENSCL                                #  A TIME, NO COMPARISON WITH 14 NEED BE
044480,001772: 00,2344           12346                           TCF      GENSCL                                #  DONE.  FOR SCALARS, SEE IF TERMINAL ROUND
044481,001773: 00,2345           12145                           TCF      VSSL                                  #  DESIRED.  FOR VECTORS, SHIFT IMMEDIATELY.
044482,001774: 
044483,001775: 00,2346           40116        GENSCL             CS       ADDRWD                                #  PUT ROUNDING BIT (BIT 10 OF ADDRWD) INTO
044484,001776: 00,2347           00006                           EXTEND                                         #  BIT 15 OF CYR WHERE THE ROUNDING BIT OF
044485,001777: 00,2350           74746                           MP       BIT6                                  #  A SHORT SHIFT LEFT WOULD BE
044486,001778: 00,2351           54020                           TS       CYR                                   
044487,001779: 00,2352           12103                           TCF      TSSL       +2                         #  DO THE SHIFT.
044488,001780: 

Page 1051

044490,001782:                                                                                                  #           SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE.  AT THIS POINT, THE DIVIDEND IS IN MPAC
044491,001783:                                                                                                  #  AND THE DIVISOR IN BUF.
044492,001784: 
044493,001785: 00,2353           44753        DDV/BDDV           CS       ONE                                   #  INITIALIZATION.
044494,001786: 00,2354           54136                           TS       DVSIGN                                #  +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
044495,001787: 00,2355           54137                           TS       DVNORMCT                              #  DIVIDEND NORMALIZATION COUNT.
044496,001788: 00,2356           54140                           TS       MAXDVSW                               #  NEAR-ONE DIVIDE FLAG.
044497,001789: 
044498,001790: 00,2357           10130                           CCS      BUF                                   #  FORCE BUF POSITIVE WITH THE MAJOR PART
044499,001791: 00,2360           12516                           TCF      BUFPOS                                #  NON-ZERO.
044500,001792: 00,2361           12363                           TCF      +2                                    
044501,001793: 00,2362           12531                           TCF      BUFNEG                                
044502,001794: 
044503,001795: 00,2363           54156        BUFZERO            TS       MPAC       +2                         #  ZERO THIS.
044504,001796: 00,2364           07262                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT BEFORE OVERFLOW
044505,001797: 
044506,001798: 00,2365           10154                           CCS      MPAC                                  #  TEST TO SEE IF MPAC NON-ZERO.  (TOO BIG)
044507,001799: 00,2366           12414                           TCF      OVF+                                  #  MAJOR PART OF DIVIDEND IS POSITIVE NON-0
044508,001800: 00,2367           12371                           TCF      +2                                    
044509,001801: 00,2370           12413                           TCF      OVF+       -1                         #  MAJOR PART OF DIVIDEND IS NEG. NON-ZERO
044510,001802: 
044511,001803: 00,2371           56131                           XCH      BUF        +1                         #  SHIFT DIVIDEND AND DIVISOR LEFT 14.
044512,001804: 00,2372           56130                           XCH      BUF                                   
044513,001805: 00,2373           56155                           XCH      MPAC       +1                         
044514,001806: 00,2374           56154                           XCH      MPAC                                  
044515,001807: 00,2375           10130                           CCS      BUF                                   #  TRY AGAIN ON FORMER MINOR PART.
044516,001808: 00,2376           12422                           TCF      BUF+                                  
044517,001809: 00,2377           12401                           TCF      +2                                    #  OVERFLOW ON ZERO DIVISOR.
044518,001810: 00,2400           12416                           TCF      BUF-                                  
044519,001811: 
044520,001812: 00,2401           40154                           CS       MPAC                                  #  SIGN OF MPAC DETERMINES SIGN OF RESULT.
044521,001813: 00,2402           00006        SGNDVOVF           EXTEND                                         
044522,001814: 00,2403           62405                           BZMF     +2                                    
044523,001815: 00,2404           24136                           INCR     DVSIGN                                #  NEGMAX IN MPAC PERHAPS.
044524,001816: 00,2405           34733        DVOVF              CAF      POSMAX                                #  ON DIVISION OVERFLOW OF ANY SORT, SET
044525,001817: 00,2406           54154                           TS       MPAC                                  #  SET DP MPAC TO +-POSMAX.
044526,001818: 00,2407           02630                           TC       FINALDV    +3                         
044527,001819: 00,2410           34753                           CAF      ONE                                   #  SET OVERFLOW INDICATOR AND EXIT.
044528,001820: 00,2411           54121                           TS       OVFIND                                
044529,001821: 00,2412           06064                           TC       DANZIG                                
044530,001822: 
044531,001823: 00,2413           24136                 -1        INCR     DVSIGN                                
044532,001824: 00,2414           40131        OVF+               CS       BUF        +1                         #  LOAD LOWER ORDER PART OF DIVISOR.
044533,001825: 00,2415           12402                           TCF      SGNDVOVF                              #  GET SIGN OF RESULT.
044534,001826: 
044535,001827: 00,2416           00006        BUF-               EXTEND                                         #  IF BUF IS NEGATIVE, COMPLEMENT IT AND
044536,001828: 00,2417           40131                           DCS      BUF                                   #  MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
044537,001829: 00,2420           52131                           DXCH     BUF                                   
044538,001830: 00,2421           24136                           INCR     DVSIGN                                #  NOW -0.
044539,001831: 

Page 1052

044541,001833: 00,2422           10154        BUF+               CCS      MPAC                                  #  FORCE MPAC POSITIVE, CHECKING FOR ZERO
044542,001834: 00,2423           12437                           TCF      MPAC+                                 #  DIVIDEND IN THE PROCESS.
044543,001835: 00,2424           12426                           TCF      +2                                    
044544,001836: 00,2425           12433                           TCF      MPAC-                                 
044545,001837: 00,2426           10155                           CCS      MPAC       +1                         
044546,001838: 00,2427           12437                           TCF      MPAC+                                 
044547,001839: 00,2430           16064                           TCF      DANZIG                                #  EXIT IMMEDIATELY ON ZERO DIVIDEND.
044548,001840: 00,2431           12433                           TCF      MPAC-                                 
044549,001841: 00,2432           16064                           TCF      DANZIG                                
044550,001842: 
044551,001843: 00,2433           00006        MPAC-              EXTEND                                         #  FORCE MPAC POSITIVE AS BUF IN BUF-.
044552,001844: 00,2434           40155                           DCS      MPAC                                  
044553,001845: 00,2435           52155                           DXCH     MPAC                                  
044554,001846: 00,2436           24136                           INCR     DVSIGN                                #  NOW +1 OR -0.
044555,001847: 

Page 1053

044557,001849: 00,2437           40154        MPAC+              CS       MPAC                                  #  CHECK FOR DIVISION OVERFLOW.  IF THE
044558,001850: 00,2440           67752                           AD       NEGONE                                #  MAJOR PART OF THE DIVIDEND IS LESS THAN
044559,001851: 00,2441           60130                           AD       BUF                                   #  THE MAJOR PART OF THE DIVISOR BY AT
044560,001852: 00,2442           10000                           CCS      A                                     #  LEAST TWO, WE CAN PROCEED IMMEDIATELY
044561,001853: 00,2443           12505                           TCF      DVNORM                                #  WITHOUT NORMALIZATION PRODUCING A DVMAX.
044562,001854: 00,2444           60001        -1/2+2             OCT      60001                                 #  USED IN SQRTSUB.
044563,001855: 
044564,001856: 00,2445           12446                           TCF      +1                                    #  IF THE ABOVE DOES NOT HOLD, FORCE SIGN
044565,001857: 00,2446           34736                           CAF      HALF                                  #  AGREEMENT IN NUMERATOR AND DENOMINATOR
044566,001858: 00,2447           60000                           DOUBLE                                         #  TO FACILITATE OVERFLOW AND NEAR-ONE
044567,001859: 00,2450           60155                           AD       MPAC       +1                         #  CHECKING.
044568,001860: 00,2451           54155                           TS       MPAC       +1                         
044569,001861: 00,2452           34755                           CAF      ZERO                                  
044570,001862: 00,2453           64733                           AD       POSMAX                                
044571,001863: 00,2454           26154                           ADS      MPAC                                  
044572,001864: 
044573,001865: 00,2455           34736                           CAF      HALF                                  #  SAME FOR BUF.
044574,001866: 00,2456           60000                           DOUBLE                                         
044575,001867: 00,2457           60131                           AD       BUF        +1                         
044576,001868: 00,2460           54131                           TS       BUF        +1                         
044577,001869: 00,2461           34755                           CAF      ZERO                                  
044578,001870: 00,2462           64733                           AD       POSMAX                                
044579,001871: 00,2463           26130                           ADS      BUF                                   
044580,001872: 
044581,001873: 00,2464           40154                           CS       MPAC                                  #  CHECK MAGNITUDE OF SIGN-CORRECTED
044582,001874: 00,2465           60130                           AD       BUF                                   #  OPERANDS.
044583,001875: 00,2466           10000                           CCS      A                                     
044584,001876: 00,2467           12505                           TCF      DVNORM                                #  DIVIDE OK - WILL NOT BECOME MAXDV CASE.
044585,001877: 00,2470           00133        LBUF2              ADRES    BUF2                                  
044586,001878: 00,2471           12405                           TCF      DVOVF                                 #  DIVISOR NOT LESS THAN DIVIDEND - OVF.
044587,001879: 
044588,001880: 00,2472           54140                           TS       MAXDVSW                               #  IF THE MAJOR PARTS OF THE DIVIDEND AND
044589,001881: 00,2473           40155                           CS       MPAC       +1                         #  DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
044590,001882: 00,2474           60131                           AD       BUF        +1                         #  TION IS USED (PROVIDED THE DIVISION IS
044591,001883: 00,2475           00006                           EXTEND                                         #  POSSIBLE, OF COURSE).
044592,001884: 00,2476           62405                           BZMF     DVOVF                                 
044593,001885: 00,2477           12505                           TCF      DVNORM                                #  IF NO OVERFLOW.
044594,001886: 

Page 1054

044596,001888: 00,2500           00006        BUFNORM            EXTEND                                         #  ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
044597,001889: 00,2501           24137                           AUG      DVNORMCT                              #  LEFT ONE PLACE.
044598,001890: 00,2502           00006                           EXTEND                                         
044599,001891: 00,2503           30131                           DCA      BUF                                   
044600,001892: 00,2504           20131                           DAS      BUF                                   
044601,001893: 
044602,001894: 00,2505           30130        DVNORM             CA       BUF                                   #  SEE IF DIVISOR NORMALIZED YET.
044603,001895: 00,2506           60000                           DOUBLE                                         
044604,001896: 00,2507           54000                           OVSK                                           
044605,001897: 00,2510           12500                           TCF      BUFNORM                               #  NO - SHIFT LEFT ONE AND TRY AGAIN.
044606,001898: 
044607,001899: 00,2511           52155                           DXCH     MPAC                                  #  CALL DIVIDEND NORMALIZATION SEQUENCE
044608,001900: 00,2512           50137                           INDEX    DVNORMCT                              #  PRIOR TO DOING THE DIVIDE.
044609,001901: 00,2513           02565                           TC       MAXTEST                               
044610,001902: 
044611,001903: 00,2514           54156                           TS       MPAC       +2                         #  RETURNS WITH DIVISION DONE AND C(A) = 0.
044612,001904: 00,2515           16064                           TCF      DANZIG                                
044613,001905: 
044614,001906: 00,2516           10000        BUFPOS             CCS      A                                     
044615,001907: 00,2517           12422                           TCF      BUF+                                  #  TO BUF+ IF BUF IS GREATER THAN +1.
044616,001908: 
044617,001909: 00,2520           40131                           CS       BUF        +1                         #  IF BUF IS +1, FORCING SIGN AGREEMENT
044618,001910: 00,2521           00006                           EXTEND                                         #  MAY CAUSE BUF TO BECOME ZERO.
044619,001911: 00,2522           62422                           BZMF     BUF+                                  #  BRANCH IF SIGNS AGREE.
044620,001912: 
044621,001913: 00,2523           34736                           CA       HALF                                  #  SIGNS DISAGREE.  FORCE AGREEMENT.
044622,001914: 00,2524           60000                 +6        DOUBLE                                         
044623,001915: 00,2525           26131                           ADS      BUF        +1                         
044624,001916: 00,2526           34755                           CA       ZERO                                  
044625,001917: 00,2527           54130                           TS       BUF                                   
044626,001918: 00,2530           12363                           TCF      BUFZERO                               
044627,001919: 
044628,001920: 00,2531           10000        BUFNEG             CCS      A                                     
044629,001921: 00,2532           12416                           TCF      BUF-                                  #  TO BUF- IF BUF IS LESS THAN -1.
044630,001922: 
044631,001923: 00,2533           30131                           CA       BUF        +1                         #  IF BUF IS -1, FORCING SIGN AGREEMENT
044632,001924: 00,2534           00006                           EXTEND                                         #  MAY CAUSE BUF TO BECOME ZERO.
044633,001925: 00,2535           62416                           BZMF     BUF-                                  #  BRANCH IF SIGNS AGREE.
044634,001926: 
044635,001927: 00,2536           44736                           CS       HALF                                  #  SIGNS DISAGREE.  FORCE AGREEMENT.
044636,001928: 00,2537           12524                           TCF      BUFPOS     +6                         
044637,001929: 

Page 1055

044639,001931:                                                                                                  #  THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
044640,001932: 
044641,001933: 00,2540           22021                 -21D      LXCH     SR                                    #  SPECIAL PROLOGUE FOR UNIT WHEN THE
044642,001934: 00,2541           00006                           EXTEND                                         #  LENGTH OF THE ARGUMENT WAS NOT LESS THAN
044643,001935: 00,2542           74736                           MP       HALF                                  #  .5.  IN THIS CASE, EACH COMPONENT MUST BE
044644,001936: 00,2543           56001                           XCH      L                                     #  SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
044645,001937: 00,2544           60021                           AD       SR                                    #  VECTOR.
044646,001938: 00,2545           56001                           XCH      L                                     
044647,001939: 00,2546           12571                           TCF      GENDDV     +1                         #  WITH DP DIVIDEND IN A,L.
044648,001940: 
044649,001941: 00,2547           20001                           DDOUBL                                         #  PROLOGUE WHICH NORMALIZES THE DIVIDEND
044650,001942: 00,2550           20001                           DDOUBL                                         #  WHEN IT IS KNOWN THAT NO DIVISION
044651,001943: 00,2551           20001                           DDOUBL                                         #  OVERFLOW WILL OCCUR.
044652,001944: 00,2552           20001                           DDOUBL                                         
044653,001945: 00,2553           20001                           DDOUBL                                         
044654,001946: 00,2554           20001                           DDOUBL                                         
044655,001947: 00,2555           20001                           DDOUBL                                         
044656,001948: 00,2556           20001                           DDOUBL                                         
044657,001949: 00,2557           20001                           DDOUBL                                         
044658,001950: 00,2560           20001                           DDOUBL                                         
044659,001951: 00,2561           20001                           DDOUBL                                         
044660,001952: 00,2562           20001                           DDOUBL                                         
044661,001953: 00,2563           20001                           DDOUBL                                         
044662,001954: 00,2564           52155                           DXCH     MPAC                                  
044663,001955: 
044664,001956: 00,2565           10140        MAXTEST            CCS      MAXDVSW                               #  0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
044665,001957: 00,2566           06552        BIASHI             DEC      .4192      B-1                        #  SQRT CONSTANTS
044666,001958: 
044667,001959: 00,2567           12642                           TCF      MAXDV                                 #  CHECK TO SEE IF THEY ARE NOW EQUAL.
044668,001960: 

Page 1056

044670,001962:                                                                                                  #  THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE.  IT DIVIDES MPAC BY BUF AND LEAVES
044671,001963:                                                                                                  #  THE RESULT IN MPAC.  THE FOLLOWING CONDITIONS MUST BE SATISFIED:
044672,001964: 
044673,001965:                                                                                                  #        1.      THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
044674,001966: 
044675,001967:                                                                                                  #        2.      THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
044676,001968:                                                                                                  #                (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
044677,001969: 
044678,001970:                                                                                                  #  UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
044679,001971:                                                                                                  #  TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
044680,001972:                                                                                                  #  ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT).  SIGN AGREEMENT IS UNNECESSARY.
044681,001973: 
044682,001974:                                                                                                  #        A + SB .      (R - QD)                                             A + SB
044683,001975:                                                                                                  #        ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
044684,001976:                                                                                                  #        C + SD        (  C   )                                                C
044685,001977: 
044686,001978: 00,2570           52155        GENDDV             DXCH     MPAC                                  #  WE NEED A AND B ONLY FOR FIRST DV.
044687,001979: 00,2571           00006                 +1        EXTEND                                         #  (SPECIAL UNIT PROLOGUE ENTERS HERE).
044688,001980: 00,2572           10130                           DV       BUF                                   #  A NOW CONTAINS Q AND L, R.
044689,001981: 00,2573           52155                           DXCH     MPAC                                  
044690,001982: 
044691,001983: 00,2574           40154                           CS       MPAC                                  #  FORM DIVIDEND FOR MINOR PART OF RESULT.
044692,001984: 00,2575           00006                           EXTEND                                         
044693,001985: 00,2576           70131                           MP       BUF        +1                         
044694,001986: 00,2577           60155                           AD       MPAC       +1                         #  OVERFLOW AT THIS POINT IS POSITIVE SINCE
044695,001987: 00,2600           54000                           OVSK                                           #  R IS POSITIVE IN EVERY CASE.
044696,001988: 00,2601           12606                           TCF      +5                                    
044697,001989: 
044698,001990: 00,2602           00006                           EXTEND                                         #  OVERFLOW CAN BE REMOVED BY SUBTRACTING C
044699,001991: 00,2603           60130                           SU       BUF                                   #  (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
044700,001992: 00,2604           24154                           INCR     MPAC                                  #  IN THIS CASE.  INCR COMPENSATES SUBTRACT.
044701,001993: 00,2605           12610                           TCF      +DOWN                                 #  (SINCE C(A) IS STILL POSITIVE).
044702,001994: 
044703,001995: 00,2606           00006                 +5        EXTEND                                         #  C(A) CAN BE MADE LESS THAN C IN MAGNI-
044704,001996: 00,2607           62620                           BZMF     -UP                                   #  TUDE BY DIMINISHING IT BY C (SINCE C IS
044705,001997:                                                                                                  #  NOT LESS THAN .5) UNLESS C(A) = 0.
044706,001998: 

Page 1057

044708,002000: 00,2610           00006        +DOWN              EXTEND                                         
044709,002001: 00,2611           60130                           SU       BUF                                   #  IF POSITIVE, REDUCE ONLY IF NECESSARY
044710,002002: 00,2612           00006                           EXTEND                                         #  SINCE THE COMPENSATING INCR MIGHT CAUSE
044711,002003: 00,2613           12616                           BZF      +3                                    #  OVERFLOW.
044712,002004: 00,2614           00006                           EXTEND                                         #  DONT SUBTRACT UNLESS RESULT IS POSITIVE
044713,002005: 00,2615           62624                           BZMF     ENDMAXDV                              #  OR ZERO.
044714,002006: 
044715,002007: 00,2616           24154                 +3        INCR     MPAC                                  #  KEEP SUBTRACT HERE AND COMPENSATE.
044716,002008: 00,2617           12625                           TCF      FINALDV                               
044717,002009: 
044718,002010: 00,2620           00006        -UP                EXTEND                                         #  IF ZERO, SET MINOR PART OF RESULT TO
044719,002011: 00,2621           12630                           BZF      FINALDV    +3                         #  ZERO.
044720,002012: 
044721,002013: 00,2622           00006                           EXTEND                                         #  IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
044722,002014: 00,2623           26154                           DIM      MPAC                                  #  TO COMPENSATE.  DIM IS OK HERE SINCE THE
044723,002015: 00,2624           60130        ENDMAXDV           AD       BUF                                   #  MAJOR PART NEVER GOES NEGATIVE.
044724,002016: 

Page 1058

044726,002018: 00,2625           22007        FINALDV            ZL                                             #  DO DV TO OBTAIN MINOR PART OF RESULT.
044727,002019: 00,2626           00006                           EXTEND                                         
044728,002020: 00,2627           10130                           DV       BUF                                   
044729,002021: 00,2630           54155                 +3        TS       MPAC       +1                         
044730,002022: 
044731,002023: 00,2631           10136                           CCS      DVSIGN                                #  LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
044732,002024: 00,2632           00002                           TC       Q                                     #  -0.
044733,002025: 00,2633           00002                           TC       Q                                     
044734,002026: 00,2634           00002                           TC       Q                                     
044735,002027: 
044736,002028: 00,2635           00006                           EXTEND                                         
044737,002029: 00,2636           40155                           DCS      MPAC                                  
044738,002030: 00,2637           52155                           DXCH     MPAC                                  
044739,002031: 00,2640           34755                           CAF      ZERO                                  #  SO WE ALWAYS RETURN WITH C(A) = 0.
044740,002032: 00,2641           00002                           TC       Q                                     
044741,002033: 

Page 1059

044743,002035:                                                                                                  #  IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
044744,002036:                                                                                                  #  DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED.  THE ASSUMPTIONS
044745,002037:                                                                                                  #  ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
044746,002038: 
044747,002039:                                                                                                  #        C + SB .          (C + B - D)
044748,002040:                                                                                                  #        ------ = 37777 + S(---------)
044749,002041:                                                                                                  #        C + SD            (    C    )
044750,002042: 
044751,002043:                                                                                                  #  THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
044752,002044: 
044753,002045: 00,2642           40154        MAXDV              CS       MPAC                                  #  SEE IF MAXDV CASE STILL HOLDS AFTER
044754,002046: 00,2643           60130                           AD       BUF                                   #  NORMALIZATION.
044755,002047: 00,2644           00006                           EXTEND                                         
044756,002048: 00,2645           12647                           BZF      +2                                    
044757,002049: 00,2646           12570                           TCF      GENDDV                                #  MPAC NOW LESS THAN BUF - DIVIDE AS USUAL
044758,002050: 
044759,002051: 00,2647           34733                 +2        CAF      POSMAX                                #  SET MAJOR PART OF RESULT.
044760,002052: 00,2650           54154                           TS       MPAC                                  
044761,002053: 
044762,002054: 00,2651           40131                           CS       BUF        +1                         #  FORM DIVIDEND OF MINOR PART OF RESULT.
044763,002055: 00,2652           60155                           AD       MPAC       +1                         
044764,002056: 00,2653           12624                           TCF      ENDMAXDV                              #  GO ADD C AND DO DIVIDE, ATTACHING SIGN
044765,002057:                                                                                                  #  BEFORE EXITING.
044766,002058: 

Page 1060

044768,002060:                                                                                                  #  VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE.  THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
044769,002061: 
044770,002062: 00,2654           44753        V/SC2              CS       ONE                                   #  INITIALIZE DIVIDEND NORMALIZATION COUNT
044771,002063: 00,2655           54137                           TS       DVNORMCT                              #  AND DIVISION SIGN REGISTER.
044772,002064: 00,2656           54127                           TS       VBUF       +5                         
044773,002065: 
044774,002066: 00,2657           03010                           TC       VECAGREE                              #  FORCE SIGN AGREEMENT IN VECTOR
044775,002067: 
044776,002068: 00,2660           52131                           DXCH     BUF                                   
044777,002069: 00,2661           07547                           TC       ALSIGNAG                              #  SIGN AGREE BUF
044778,002070: 00,2662           52131                           DXCH     BUF                                   
044779,002071: 00,2663           10130                           CCS      BUF                                   #  FORCE DIVISOR POSITIVE WITH MAJOR PART
044780,002072: 00,2664           12721                           TCF      /BUF+                                 #  NON-ZERO (IF POSSIBLE).
044781,002073: 00,2665           12667                           TCF      +2                                    
044782,002074: 00,2666           12715                           TCF      /BUF-                                 
044783,002075: 
044784,002076: 00,2667           56131                           XCH      BUF        +1                         #  SHIFT VECTOR AND SCALAR LEFT 14.
044785,002077: 00,2670           56130                           XCH      BUF                                   
044786,002078: 00,2671           56155                           XCH      MPAC       +1                         
044787,002079: 00,2672           56154                           XCH      MPAC                                  
044788,002080: 00,2673           00006                           EXTEND                                         #  CHECK FOR OVERFLOW IN EACH CASE.
044789,002081: 00,2674           12676                           BZF      +2                                    
044790,002082: 00,2675           12405                           TCF      DVOVF                                 
044791,002083: 
044792,002084: 00,2676           56160                           XCH      MPAC       +4                         
044793,002085: 00,2677           56157                           XCH      MPAC       +3                         
044794,002086: 00,2700           00006                           EXTEND                                         
044795,002087: 00,2701           12703                           BZF      +2                                    
044796,002088: 00,2702           12405                           TCF      DVOVF                                 
044797,002089: 
044798,002090: 00,2703           56162                           XCH      MPAC       +6                         
044799,002091: 00,2704           56161                           XCH      MPAC       +5                         
044800,002092: 00,2705           00006                           EXTEND                                         
044801,002093: 00,2706           12710                           BZF      +2                                    
044802,002094: 00,2707           12405                           TCF      DVOVF                                 
044803,002095: 
044804,002096: 00,2710           10130                           CCS      BUF                                   
044805,002097: 00,2711           12721                           TCF      /BUF+                                 
044806,002098: 00,2712           12405                           TCF      DVOVF                                 #  ZERO DIVISOR - OVERFLOW.
044807,002099: 00,2713           12715                           TCF      /BUF-                                 
044808,002100: 00,2714           12405                           TCF      DVOVF                                 
044809,002101: 
044810,002102: 00,2715           00006        /BUF-              EXTEND                                         #  ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
044811,002103: 00,2716           40131                           DCS      BUF                                   #  DVSIGN IN VBUF +5.
044812,002104: 00,2717           52131                           DXCH     BUF                                   
044813,002105: 00,2720           24127                           INCR     VBUF       +5                         
044814,002106: 

Page 1061

044816,002108: 00,2721           00006        /BUF+              EXTEND                                         
044817,002109: 00,2722           30131                           DCA      BUF                                   #  LEAVE ABS(ORIG DIVISOR) IN BUF2
044818,002110: 00,2723           52134                           DXCH     BUF2                                  #  FOR OVERFLOW TESTING
044819,002111: 00,2724           12732                           TCF      /NORM                                 #  NORMALIZE DIVISOR IN BUF.
044820,002112: 
044821,002113: 00,2725           00006        /NORM2             EXTEND                                         #  IF LESS THAN .5, AUGMENT DVNORMCT AND
044822,002114: 00,2726           24137                           AUG      DVNORMCT                              #  DOUBLE DIVISOR.
044823,002115: 00,2727           00006                           EXTEND                                         
044824,002116: 00,2730           30131                           DCA      BUF                                   
044825,002117: 00,2731           20131                           DAS      BUF                                   
044826,002118: 
044827,002119: 00,2732           30130        /NORM              CA       BUF                                   #  SEE IF DIVISOR NORMALIZED.
044828,002120: 00,2733           60000                           DOUBLE                                         
044829,002121: 00,2734           54000                           OVSK                                           
044830,002122: 00,2735           12725                           TCF      /NORM2                                #  DOUBLE AND TRY AGAIN IF NOT.
044831,002123: 
044832,002124: 00,2736           02750                           TC       V/SCDV                                #  DO X COMPONENT DIVIDE.
044833,002125: 00,2737           52160                           DXCH     MPAC       +3                         #  SUPPLY ARGUMENTS IN USUAL SEQUENCE.
044834,002126: 00,2740           52155                           DXCH     MPAC                                  
044835,002127: 00,2741           52160                           DXCH     MPAC       +3                         
044836,002128: 
044837,002129: 00,2742           02750                           TC       V/SCDV                                #  Y COMPONENT.
044838,002130: 00,2743           52162                           DXCH     MPAC       +5                         
044839,002131: 00,2744           52155                           DXCH     MPAC                                  
044840,002132: 00,2745           52162                           DXCH     MPAC       +5                         
044841,002133: 
044842,002134: 00,2746           02750                           TC       V/SCDV                                #  Z COMPONENT.
044843,002135: 00,2747           17423                           TCF      VROTATEX                              #  GO RE-ARRANGE COMPONENTS BEFORE EXIT.
044844,002136: 

Page 1062

044846,002138:                                                                                                  #  SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
044847,002139: 
044848,002140: 00,2750           30127        V/SCDV             CA       VBUF       +5                         #  REFLECTS SIGN OF SCALAR.
044849,002141: 00,2751           54136                           TS       DVSIGN                                
044850,002142: 
044851,002143: 00,2752           10154                           CCS      MPAC                                  #  FORCE MPAC POSITIVE, EXITING ON ZERO.
044852,002144: 00,2753           12767                           TCF      /MPAC+                                
044853,002145: 00,2754           12756                           TCF      +2                                    
044854,002146: 00,2755           12763                           TCF      /MPAC-                                
044855,002147: 
044856,002148: 00,2756           10155                           CCS      MPAC       +1                         
044857,002149: 00,2757           12767                           TCF      /MPAC+                                
044858,002150: 00,2760           00002                           TC       Q                                     
044859,002151: 00,2761           12763                           TCF      /MPAC-                                
044860,002152: 00,2762           00002                           TC       Q                                     
044861,002153: 
044862,002154: 00,2763           00006        /MPAC-             EXTEND                                         #  USUAL COMPLEMENTING AND SETTING OF SIGN.
044863,002155: 00,2764           40155                           DCS      MPAC                                  
044864,002156: 00,2765           52155                           DXCH     MPAC                                  
044865,002157: 00,2766           24136                           INCR     DVSIGN                                
044866,002158: 
044867,002159: 00,2767           44753        /MPAC+             CS       ONE                                   #  INITIALIZE NEAR-ONE SWITCH.
044868,002160: 00,2770           54140                           TS       MAXDVSW                               
044869,002161: 
044870,002162: 00,2771           40154                           CS       MPAC                                  #  CHECK POSSIBLE OVERFLOW.
044871,002163: 00,2772           60133                           AD       BUF2                                  #  UNNORMALIZED INPUT DIVISOR.
044872,002164: 00,2773           10000                           CCS      A                                     
044873,002165: 00,2774           13004                           TCF      DDVCALL                               #  NOT NEAR-ONE
044874,002166: 00,2775           12777                           TCF      +2                                    #  +0 IS JUST POSSIBLE
044875,002167: 00,2776           12405                           TCF      DVOVF                                 #  NO HOPE
044876,002168: 00,2777           54140                           TS       MAXDVSW                               #  SIGNAL POSSIBLE NEAR-ONE CASE
044877,002169: 00,3000           40155                           CS       MPAC       +1                         #  SEE IF DIVISION CAN BE DONE
044878,002170: 00,3001           60134                           AD       BUF2       +1                         
044879,002171: 00,3002           00006                           EXTEND                                         
044880,002172: 00,3003           62405                           BZMF     DVOVF                                 
044881,002173: 
044882,002174: 00,3004           52155        DDVCALL            DXCH     MPAC                                  #  CALL PRE-DIVIDE NORMALIZATION.
044883,002175: 00,3005           50137                           INDEX    DVNORMCT                              
044884,002176: 00,3006           12565                           TCF      MAXTEST                               
044885,002177: 

Page 1063

044887,002179: 00,3007           32506        SLOPELO            DEC      .8324                                 
044888,002180: 
044889,002181: 00,3010           56002        VECAGREE           XCH      Q                                     #  SAVE Q IN A
044890,002182: 00,3011           52155                           DXCH     MPAC                                  
044891,002183: 00,3012           07547                           TC       ALSIGNAG                              #  SIGNAGREE MPAC
044892,002184: 00,3013           52155                           DXCH     MPAC                                  
044893,002185: 00,3014           52160                           DXCH     MPAC       +3                         
044894,002186: 00,3015           07547                           TC       ALSIGNAG                              #  SIGN AGREE MPAC +3
044895,002187: 00,3016           52160                           DXCH     MPAC       +3                         
044896,002188: 00,3017           52162                           DXCH     MPAC       +5                         
044897,002189: 00,3020           07547                           TC       ALSIGNAG                              #  SIGNAGREE MPAC +5
044898,002190: 00,3021           52162                           DXCH     MPAC       +5                         
044899,002191: 00,3022           00000                           TC       A                                     
044900,002192: 

Page 1064

044902,002194:                                                                                                  #  THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
044903,002195: 
044904,002196: 00,3023           03010        UNIT               TC       VECAGREE                              #  FORCE SIGN AGREEMENT IN VECTOR
044905,002197: 00,3024           07535                           TC       MPACVBUF                              #  SAVE ARGUMENT IN VBUF
044906,002198: 00,3025           34755                           CAF      ZERO                                  #  MUST SENSE OVERFLOW IN FOLLOWING DOT.
044907,002199: 00,3026           56121                           XCH      OVFIND                                
044908,002200: 00,3027           54141                           TS       TEM1                                  
044909,002201: 00,3030           03317                           TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
044910,002202: 00,3031           30141                           CA       TEM1                                  
044911,002203: 00,3032           56121                           XCH      OVFIND                                
044912,002204: 00,3033           00006                           EXTEND                                         
044913,002205: 00,3034           13036                           BZF      +2                                    
044914,002206: 00,3035           12405                           TCF      DVOVF                                 
044915,002207: 00,3036           00006                           EXTEND                                         
044916,002208: 00,3037           30155                           DCA      MPAC                                  #  LEAVE THE SQUARE OF THE LENGTH OF THE
044917,002209: 00,3040           50120                           INDEX    FIXLOC                                #  ARGUMENT IN LVSQUARE.
044918,002210: 00,3041           52043                           DXCH     LVSQUARE                              
044919,002211: 
044920,002212: 00,3042           03343                           TC       SQRTSUB                               #  GO TAKE THE NORMALIZED SQUARE ROOT.
044921,002213: 
044922,002214: 00,3043           10154                           CCS      MPAC                                  #  CHECK FOR UNIT OVERFLOW.
044923,002215: 00,3044           13051                           TCF      +5                                    #  MPAC IS NOT LESS THAN .5 UNLESS
044924,002216: 00,3045           54001                           TS       L                                     
044925,002217: 00,3046           50120                           INDEX    FIXLOC                                
044926,002218: 00,3047           52045                           DXCH     LV                                    
044927,002219: 00,3050           12405                           TCF      DVOVF                                 #  INPUT TO SQRTSUB WAS 0.
044928,002220: 
044929,002221: 00,3051           44317                           CS       FOURTEEN                              #  SEE IF THE INPUT WAS SO SMALL THE THE
044930,002222: 00,3052           60135                           AD       MPTEMP                                #  FIRST TWO REGISTERS OF THE SQUARE WERE 0
044931,002223: 00,3053           10000                           CCS      A                                     
044932,002224: 00,3054           40000                           COM                                            #  IF SO, SAVE THE NEGATIVE OF THE SHIFT
044933,002225: 00,3055           13133                           TCF      SMALL                                 #  COUNT -15D.
044934,002226: 
044935,002227: 00,3056           13065                           TCF      LARGE                                 #  (THIS IS USUALLY THE CASE.)
044936,002228: 
044937,002229: 00,3057           44761                           CS       THIRTEEN                              #  IF THE SHIFT COUNT WAS EXACTLY 14, SET
044938,002230: 00,3060           54135                           TS       MPTEMP                                #  THE PRE-DIVIDE NORM COUNT TO -13D.
044939,002231: 
044940,002232: 00,3061           30154                           CA       MPAC                                  #  SHIFT THE LENGTH RIGHT 14 BEFORE STORING
044941,002233: 00,3062           54001        SMALL2             TS       L                                     #  (SMALL EXITS TO THIS POINT).
044942,002234: 00,3063           34755                           CAF      ZERO                                  
044943,002235: 00,3064           13112                           TCF      LARGE2                                #  GO TO STORE LENGTH AND PROCEED.
044944,002236: 
044945,002237: 00,3065           10135        LARGE              CCS      MPTEMP                                #  MOST ALL CASES COME HERE.
044946,002238: 00,3066           13074                           TCF      LARGE3                                #  SEE IF NO NORMALIZATION WAS REQUIRED BY
044947,002239: 00,3067           42024                           CS       SRDDV                                 #  SQRT, AND IF SO, SET UP FOR A SHIFT
044948,002240: 00,3070           54135                           TS       MPTEMP                                #  RIGHT 1 BEFORE DIVIDING TO PRODUCE
044949,002241: 00,3071           00006                           EXTEND                                         #  THE DESIRED HALF UNIT VECTOR.
044950,002242: 00,3072           30155                           DCA      MPAC                                  

Page 1065

044952,002244: 00,3073           13112                           TCF      LARGE2                                
044953,002245: 

Page 1066

044955,002247: 00,3074           40000        LARGE3             COM                                            #  LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
044956,002248: 00,3075           54135                           TS       MPTEMP                                #  PREDIVIDE LEFT SHIFT.
044957,002249: 
044958,002250: 00,3076           40000                           COM                                            #  PICK UP REQUIRED SHIFTING BIT TO UNNORM-
044959,002251: 00,3077           50000                           INDEX    A                                     #  ALIZE THE SQRT RESULT.
044960,002252: 00,3100           34736                           CAF      BIT14                                 
044961,002253: 00,3101           54130                           TS       BUF                                   
044962,002254: 00,3102           00006                           EXTEND                                         
044963,002255: 00,3103           70155                           MP       MPAC       +1                         
044964,002256: 00,3104           56130                           XCH      BUF                                   
044965,002257: 00,3105           00006                           EXTEND                                         #  (UNNORMALIZE THE SQRT FOR LV).
044966,002258: 00,3106           70154                           MP       MPAC                                  
044967,002259: 00,3107           56001                           XCH      L                                     
044968,002260: 00,3110           60130                           AD       BUF                                   
044969,002261: 00,3111           56001                           XCH      L                                     
044970,002262: 
044971,002263: 00,3112           50120        LARGE2             INDEX    FIXLOC                                
044972,002264: 00,3113           52045                           DXCH     LV                                    #  LENGTH NOW STORED IN WORK AREA.
044973,002265: 
044974,002266: 00,3114           44753                           CS       ONE                                   
044975,002267: 00,3115           54140                           TS       MAXDVSW                               #  NO MAXDV CASES IN UNIT.
044976,002268: 
044977,002269: 00,3116           52123                           DXCH     VBUF                                  #  PREPARE X COMPONENT FOR DIVIDE, SETTING
044978,002270: 00,3117           52155                           DXCH     MPAC                                  #  LENGTH OF VECTOR AS DIVISOR IN BUF.
044979,002271: 00,3120           52131                           DXCH     BUF                                   
044980,002272: 00,3121           03151                           TC       UNITDV                                
044981,002273: 
044982,002274: 00,3122           52125                           DXCH     VBUF       +2                         #  DO Y AND Z IN USUAL FASHION SO WE CAN
044983,002275: 00,3123           52155                           DXCH     MPAC                                  #  EXIT THROUGH VROTATEX.
044984,002276: 00,3124           52160                           DXCH     MPAC       +3                         
044985,002277: 00,3125           03151                           TC       UNITDV                                
044986,002278: 
044987,002279: 00,3126           52127                           DXCH     VBUF       +4                         
044988,002280: 00,3127           52155                           DXCH     MPAC                                  
044989,002281: 00,3130           52162                           DXCH     MPAC       +5                         
044990,002282: 00,3131           03151                           TC       UNITDV                                
044991,002283: 00,3132           17423                           TCF      VROTATEX                              #  AND EXIT.
044992,002284: 

Page 1067

044994,002286:                                                                                                  #  IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
044995,002287:                                                                                                  #  14 PLACES BEFORE THE DIVIDE. NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
044996,002288: 
044997,002289: 00,3133           54135        SMALL              TS       MPTEMP                                #  NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
044998,002290: 
044999,002291: 00,3134           34755                           CAF      ZERO                                  #  SHIFT EACH COMPONENT LEFT 14.
045000,002292: 00,3135           56123                           XCH      VBUF       +1                         
045001,002293: 00,3136           56122                           XCH      VBUF                                  
045002,002294: 00,3137           56125                           XCH      VBUF       +3                         
045003,002295: 00,3140           56124                           XCH      VBUF       +2                         
045004,002296: 00,3141           56127                           XCH      VBUF       +5                         
045005,002297: 00,3142           56126                           XCH      VBUF       +4                         
045006,002298: 
045007,002299: 00,3143           40135                           CS       MPTEMP                                
045008,002300: 00,3144           50000                           INDEX    A                                     
045009,002301: 00,3145           34736                           CAF      BIT14                                 
045010,002302: 00,3146           00006                           EXTEND                                         
045011,002303: 00,3147           70154                           MP       MPAC                                  
045012,002304: 00,3150           13062                           TCF      SMALL2                                
045013,002305: 
045014,002306: 00,3151     4761               THIRTEEN           =        OCT15                                 
045015,002307: 00,3151     4317               FOURTEEN           =        OCT16                                 
045016,002308: 00,3151     4317               OCT16              =        R1D1                                  
045017,002309: 

Page 1068

045019,002311:                                                                                                  #  THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
045020,002312: 
045021,002313: 00,3151           10154        UNITDV             CCS      MPAC                                  #  FORCE MPAC POSITIVE IF POSSIBLE, SETTING
045022,002314: 00,3152           13170                           TCF      UMPAC+                                #  DVSIGN ACCORDING TO THE SIGN OF MPAC
045023,002315: 00,3153           13155                           TCF      +2                                    #  SINCE THE DIVISOR IS ALWAYS POSITIVE
045024,002316: 00,3154           13162                           TCF      UMPAC-                                #  HERE.
045025,002317: 
045026,002318: 00,3155           10155                           CCS      MPAC       +1                         
045027,002319: 00,3156           13170                           TCF      UMPAC+                                
045028,002320: 00,3157           00002                           TC       Q                                     #  EXIT IMMEDIATELY ON ZERO.
045029,002321: 00,3160           13162                           TCF      UMPAC-                                
045030,002322: 00,3161           00002                           TC       Q                                     
045031,002323: 
045032,002324: 00,3162           44755        UMPAC-             CS       ZERO                                  #  IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
045033,002325: 00,3163           54136                           TS       DVSIGN                                #  COMPLEMENT.
045034,002326: 00,3164           00006                           EXTEND                                         
045035,002327: 00,3165           40155                           DCS      MPAC                                  #  PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
045036,002328: 00,3166           50135                           INDEX    MPTEMP                                
045037,002329: 00,3167           12564                           TCF      MAXTEST    -1                         
045038,002330: 
045039,002331: 00,3170           54136        UMPAC+             TS       DVSIGN                                #  SET DVSIGN FOR POSITIVE QUOTIENT.
045040,002332: 00,3171           52155                           DXCH     MPAC                                  
045041,002333: 00,3172           50135                           INDEX    MPTEMP                                
045042,002334: 00,3173           12564                           TCF      MAXTEST    -1                         
045043,002335: 

Page 1069

045045,002337:                                                                                                  #  MISCELLANEOUS UNARY OPERATIONS.
045046,002338: 
045047,002339: 00,3174           03300        DSQ                TC       DSQSUB                                #  SQUARE THE DP CONTENTS OF MPAC.
045048,002340: 00,3175           16064                           TCF      DANZIG                                
045049,002341: 
045050,002342: 00,3176           10163        ABVALABS           CCS      MODE                                  #  ABVAL OR ABS INSTRUCTION.
045051,002343: 00,3177           13226                           TCF      ABS                                   #  DO ABS ON SCALAR.
045052,002344: 00,3200           13226                           TCF      ABS                                   
045053,002345: 
045054,002346: 00,3201           03317        ABVAL              TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
045055,002347: 00,3202           22163                           LXCH     MODE                                  #  MODE IS NOW DP (L ZERO AFTER DAS).
045056,002348: 
045057,002349: 00,3203           00006                           EXTEND                                         #  STORE SQUARE OF LENGTH IN WORK AREA.
045058,002350: 00,3204           30155                           DCA      MPAC                                  
045059,002351: 00,3205           50120                           INDEX    FIXLOC                                
045060,002352: 00,3206           52043                           DXCH     LVSQUARE                              
045061,002353: 

Page 1070

045063,002355:                                                                                                  #  PROGRAM DESCRIPTION - SUBROUTINE SQRT
045064,002356: 
045065,002357:                                                                                                  #  FUNCTIONAL DESCRIPTION - DOUBLE PRECISION SQUARE ROOT ROUTINE
045066,002358:                                                                                                  #        THIS PROGRAM TAKES THE SQUARE ROOT OF THE 27 OR 28 MOST SIGNIFICANT BITS IN THE TRIPLE PRECISION SET OF
045067,002359:                                                                                                  #        NUMBERS - MPAC, MPAC+1, AND MPAC+2.  THE ROOT IS RETURNED DOUBLE PRECISION IN MPAC AND MPAC+1.
045068,002360: 
045069,002361:                                                                                                  #  WARNING - THIS SUBROUTINE USES A TRIPLE PRECISION INPUT.  THE PROGRAMMER MUST ASSURE THE CONTENTS OF MPAC+2
045070,002362:                                                                                                  #        ESPECIALLY IF THE CONTENTS OF MPAC IS SMALL OR ZERO.  FOR DETAILS SEE STG MEMO NO.949.
045071,002363: 
045072,002364:                                                                                                  #  CALLING SEQUENCE - IN INTERPRETIVE MODE I.E., FOLLOWING  TC INTPRET,SQRT  NO ADDRESS IS ALLOWED
045073,002365:                                                                                                  #        INPUT SCALING   THE BINARY POINT IS ASSUMED TO THE RIGHT OF BIT 15.  THE ANSWER IS RETURNED WITH THE SAME SCALING
045074,002366: 
045075,002367:                                                                                                  #  SUBROUTINES - GENSCR, MPACSHR, SQRTSUB, ABORT
045076,002368: 
045077,002369:                                                                                                  #  ABORT EXIT MODE - ABORTS ON NEGATIVE INPUT -1.2X10E-4 (77775 OCTAL) OR LESS.
045078,002370:                                                                                                  #        DISPLAYS ERROR CODE 1302
045079,002371:                                                                                                  #                TC      ABORT
045080,002372:                                                                                                  #                OCT     1302
045081,002373: 
045082,002374:                                                                                                  #  DEBRIS - LOCATIONS BUF, MPTEMP, ADDRWD ARE USED
045083,002375: 
045084,002376: 00,3207           03343        SQRT               TC       SQRTSUB                               #  TAKE THE SQUARE ROOT OF MPAC.
045085,002377: 00,3210           10135                           CCS      MPTEMP                                #  RETURNED NORMALIZED SQUARE ROOT.  SEE IF
045086,002378: 00,3211           13213                           TCF      +2                                    #  ANY UN-NORMALIZATION REQUIRED AND EXIT
045087,002379: 00,3212           16064                           TCF      DANZIG                                #  IF NOT.
045088,002380: 
045089,002381: 00,3213           63733                           AD       NEG12                                 #  A RIGHT SHIFT OF MORE THAN 13 COULD BE
045090,002382: 00,3214           00006                           EXTEND                                         #  REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
045091,002383: 00,3215           63221                           BZMF     SQRTSHFT                              #  GOES HERE IN MOST CASES.
045092,002384: 00,3216           22007                           ZL                                             #  IF A LONG SHIFT IS REQUIRED, GO TO
045093,002385: 00,3217           22116                           LXCH     ADDRWD                                #  GENERAL RIGHT SHIFT ROUTINES.
045094,002386: 00,3220           12303                           TCF      GENSCR     +4                         #  ADDRWD WAS ZERO TO PREVENT ROUND.
045095,002387: 
045096,002388: 00,3221           50135        SQRTSHFT           INDEX    MPTEMP                                #  SELECT SHIFTING BIT AND EXIT THROUGH
045097,002389: 00,3222           34735                           CAF      BIT15                                 #  SHIFT ROUTINES.
045098,002390: 00,3223           54135                           TS       MPTEMP                                
045099,002391: 00,3224           34755                           CAF      ZERO                                  #  TO ZERO MPAC +2 IN THE PROCESS.
045100,002392: 00,3225           12036                           TCF      MPACSHR    +3                         
045101,002393: 
045102,002394: 00,3226           06726        ABS                TC       BRANCH                                #  TEST SIGN OF MPAC AND COMPLEMENT IF
045103,002395: 00,3227           16064                           TCF      DANZIG                                
045104,002396: 00,3230           16064                           TCF      DANZIG                                
045105,002397: 00,3231           17673                           TCF      COMP                                  
045106,002398: 

Page 1071

045108,002400: 00,3232           44751        VDEF               CS       FOUR                                  #  VECTOR DEFINE - ESSENTIALLY TREATS
045109,002401: 00,3233           26166                           ADS      PUSHLOC                               #  SCALAR IN MPAC AS X COMPONENT, PUSHES UP
045110,002402: 00,3234           00006                           EXTEND                                         #  FOR Y AND THEN AGAIN FOR Z.
045111,002403: 00,3235           50000                           INDEX    A                                     
045112,002404: 00,3236           30003                           DCA      2                                     
045113,002405: 00,3237           52160                           DXCH     MPAC       +3                         
045114,002406: 00,3240           00006                           EXTEND                                         
045115,002407: 00,3241           50166                           INDEX    PUSHLOC                               
045116,002408: 00,3242           30001                           DCA      0                                     
045117,002409: 00,3243           52162                           DXCH     MPAC       +5                         
045118,002410: 00,3244           16524                           TCF      VMODE                                 #  MODE IS NON VECTOR.
045119,002411: 
045120,002412: 00,3245           03317        VSQ                TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
045121,002413: 00,3246           17335                           TCF      DMODE                                 #  MODE IS NOW DP.
045122,002414: 
045123,002415: 00,3247           00006        PUSH               EXTEND                                         #  PUSH DOWN MPAC LEAVING IT LOADED.
045124,002416: 00,3250           30155                           DCA      MPAC                                  
045125,002417: 00,3251           50166                           INDEX    PUSHLOC                               #  PUSH DOWN FIRST TWO REGISTERS IN EACH
045126,002418: 00,3252           52001                           DXCH     0                                     
045127,002419: 
045128,002420: 00,3253           50163                           INDEX    MODE                                  #  INCREMENT PUSHDOWN POINTER.
045129,002421: 00,3254           36247                           CAF      NO.WDS                                
045130,002422: 00,3255           26166                           ADS      PUSHLOC                               
045131,002423: 
045132,002424: 00,3256           10163                           CCS      MODE                                  
045133,002425: 00,3257           13272                           TCF      TPUSH                                 #  PUSH DOWN MPAC +2.
045134,002426: 00,3260           16064                           TCF      DANZIG                                #  DONE FOR DP.
045135,002427: 
045136,002428: 00,3261           00006                           EXTEND                                         #  ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
045137,002429: 00,3262           30160                           DCA      MPAC       +3                         
045138,002430: 00,3263           50166                           INDEX    PUSHLOC                               
045139,002431: 00,3264           51775                           DXCH     0          -4                         
045140,002432: 00,3265           00006                           EXTEND                                         
045141,002433: 00,3266           30162                           DCA      MPAC       +5                         
045142,002434: 00,3267           50166                           INDEX    PUSHLOC                               
045143,002435: 00,3270           51777                           DXCH     0          -2                         
045144,002436: 00,3271           16064                           TCF      DANZIG                                
045145,002437: 
045146,002438: 00,3272           30156        TPUSH              CA       MPAC       +2                         
045147,002439: 00,3273           16557                           TCF      ENDTPUSH   +2                         
045148,002440: 
045149,002441: 00,3274           50120        RVQ                INDEX    FIXLOC                                #  RVQ - RETURN IVA QPRET.
045150,002442: 00,3275           30052                           CA       QPRET                                 
045151,002443: 00,3276           54117                           TS       POLISH                                
045152,002444: 00,3277           16655                           TCF      GOTO       +4                         #  (ASSUME QPRET POINTS TO FIXED ONLY.)
045153,002445: 

Page 1072

045155,002447:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE.  THEY ARE
045156,002448:                                                                                                  #  SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
045157,002449: 
045158,002450: 00,3300           30155        DSQSUB             CA       MPAC       +1                         #  SQUARES THE SCALAR CONTENTS OF MPAC.
045159,002451: 00,3301           00006                           EXTEND                                         
045160,002452: 00,3302           70000                           SQUARE                                         
045161,002453: 00,3303           54156                           TS       MPAC       +2                         
045162,002454: 00,3304           34755                           CAF      ZERO                                  #  FORM 2(CROSS TERM).
045163,002455: 00,3305           56155                           XCH      MPAC       +1                         
045164,002456: 00,3306           00006                           EXTEND                                         
045165,002457: 00,3307           70154                           MP       MPAC                                  
045166,002458: 00,3310           20001                           DDOUBL                                         #  AND MAYBE OVERFLOW.
045167,002459: 00,3311           20156                           DAS      MPAC       +1                         #  AND SET A TO NET OVERFLOW.
045168,002460: 00,3312           56154                           XCH      MPAC                                  
045169,002461: 00,3313           00006                           EXTEND                                         
045170,002462: 00,3314           70000                           SQUARE                                         
045171,002463: 00,3315           20155                           DAS      MPAC                                  
045172,002464: 00,3316           00002                           TC       Q                                     
045173,002465: 
045174,002466: 00,3317           00006        VSQSUB             EXTEND                                         #  DOTS THE VECTOR IN MPAC WITH ITSELF.
045175,002467: 00,3320           22137                           QXCH     DOTRET                                
045176,002468: 00,3321           03300                           TC       DSQSUB                                #  SQUARE THE X COMPONENT.
045177,002469: 00,3322           52160                           DXCH     MPAC       +3                         
045178,002470: 00,3323           52155                           DXCH     MPAC                                  
045179,002471: 00,3324           52131                           DXCH     BUF                                   #  SO WE CAN END IN DOTSUB.
045180,002472: 00,3325           30156                           CA       MPAC       +2                         
045181,002473: 00,3326           54132                           TS       BUF        +2                         
045182,002474: 
045183,002475: 00,3327           03300                           TC       DSQSUB                                #  SQUARE Y COMPONENT.
045184,002476: 00,3330           52156                           DXCH     MPAC       +1                         
045185,002477: 00,3331           20132                           DAS      BUF        +1                         
045186,002478: 00,3332           60154                           AD       MPAC                                  
045187,002479: 00,3333           60130                           AD       BUF                                   
045188,002480: 00,3334           54130                           TS       BUF                                   
045189,002481: 00,3335           13337                           TCF      +2                                    
045190,002482: 00,3336           54121                           TS       OVFIND                                #  IF OVERFLOW.
045191,002483: 
045192,002484: 00,3337           52162                           DXCH     MPAC       +5                         
045193,002485: 00,3340           52155                           DXCH     MPAC                                  
045194,002486: 00,3341           03300                           TC       DSQSUB                                #  SQUARE Z COMPONENT.
045195,002487: 00,3342           17210                           TCF      ENDDOT                                #  END AS IN DOTSUB.
045196,002488: 

Page 1073

045198,002490:                                                                                                  #  DOUBLE PRECISION SQUARE ROOT ROUTINE.  TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
045199,002491:                                                                                                  #  IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
045200,002492:                                                                                                  #  .5).  THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
045201,002493: 
045202,002494: 00,3343           34755        SQRTSUB            CAF      ZERO                                  #  START BY ZEROING RIGHT SHIFT COUNT.
045203,002495: 00,3344           54135                           TS       MPTEMP                                
045204,002496: 
045205,002497: 00,3345           10154                           CCS      MPAC                                  #  CHECK FOR POSITIVE ARGUMENT, SHIFTING
045206,002498: 00,3346           13405                           TCF      SMPAC+                                #  FIRST SIGNIFICANT MPAC REGISTER INTO
045207,002499: 00,3347           13351                           TCF      +2                                    #  MPAC ITSELF.
045208,002500: 00,3350           13373                           TCF      SQRTNEG                               #  SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
045209,002501: 
045210,002502: 00,3351           56156                           XCH      MPAC       +2                         #  MPAC IS ZERO - SHIFT LEFT 14.
045211,002503: 00,3352           56155                           XCH      MPAC       +1                         
045212,002504: 00,3353           54154                           TS       MPAC                                  
045213,002505: 00,3354           34757                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
045214,002506: 00,3355           54135                           TS       MPTEMP                                
045215,002507: 
045216,002508: 00,3356           10154                           CCS      MPAC                                  #  SEE IF MPAC NOW PNZ.
045217,002509: 00,3357           13405                           TCF      SMPAC+                                
045218,002510: 00,3360           13362                           TCF      +2                                    
045219,002511: 00,3361           13376                           TCF      ZEROANS                               #  NEGATIVE BUT LESS THAN 10(-4) IN MAG.
045220,002512: 
045221,002513: 00,3362           56155                           XCH      MPAC       +1                         #  ZERO - SHIFT LEFT 14 AGAIN.
045222,002514: 00,3363           54154                           TS       MPAC                                  
045223,002515: 00,3364           34757                           CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
045224,002516: 00,3365           26135                           ADS      MPTEMP                                
045225,002517: 
045226,002518: 00,3366           10154                           CCS      MPAC                                  
045227,002519: 00,3367           13405                           TCF      SMPAC+                                
045228,002520: 00,3370           00002                           TC       Q                                     #  SQRT(0) = 0.
045229,002521: 00,3371           13376                           TCF      ZEROANS                               
045230,002522: 00,3372           13453                           TCF      FIXROOT                               #  DO NOT LEAVE SQRTSUB WITH -0 IN MPAC.
045231,002523: 
045232,002524: 00,3373           10000        SQRTNEG            CCS      A                                     #  ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
045233,002525: 00,3374           13402                           TCF      SQRTABRT                              #  CORRECTED ARGUMENT IS LESS THAN 10(-4)
045234,002526: 
045235,002527: 00,3375           10155                           CCS      MPAC       +1                         #  IN MAGNITUDE.  IF SO, CALL ANSWER ZERO.
045236,002528: 00,3376           34755        ZEROANS            CAF      ZERO                                  #  FORCE ANSWER TO ZERO HERE.
045237,002529: 00,3377           13453                           TCF      FIXROOT                               
045238,002530: 00,3400           13402                           TCF      SQRTABRT                              
045239,002531: 00,3401           13453                           TCF      FIXROOT                               
045240,002532: 
045241,002533: 00,3402           52165        SQRTABRT           DXCH     LOC                                   
045242,002534: 00,3403           05716                           TC       POODOO1                               
045243,002535: 00,3404           21302                           OCT      21302                                 
045244,002536: 
045245,002537: 00,3405           62444        SMPAC+             AD       -1/2+2                                #  SEE IF ARGUMENT GREATER THAN OR EQUAL TO

Page 1074

045247,002539: 00,3406           00006                           EXTEND                                         #  .5.
045248,002540: 00,3407           63456                           BZMF     SRTEST                                #  IF SO, SEE IF LESS THAN .25.
045249,002541: 
045250,002542: 00,3410           52155                           DXCH     MPAC                                  #  WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
045251,002543: 00,3411           22021                           LXCH     SR                                    #  SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
045252,002544: 00,3412           00006                           EXTEND                                         
045253,002545: 00,3413           74736                           MP       HALF                                  
045254,002546: 00,3414           52155                           DXCH     MPAC                                  
045255,002547: 00,3415           56021                           XCH      SR                                    
045256,002548: 00,3416           26155                           ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
045257,002549: 
045258,002550: 00,3417           32314        ARGHI              CAF      SLOPEHI                               #  ARGUMENT BETWEEN .25 AND .5. GET A
045259,002551: 00,3420           00006                           EXTEND                                         #  LINEAR APPROXIMATION FOR THIS RANGE.
045260,002552: 00,3421           70154                           MP       MPAC                                  
045261,002553: 00,3422           62566                           AD       BIASHI                                #  X0/2 = (MPAC/2)(SLOPEHI) + BIASHI/2.
045262,002554: 
045263,002555: 00,3423           54130                 +4        TS       BUF                                   #  X0/2 (ARGLO ENTERS HERE).
045264,002556: 00,3424           30154                           CA       MPAC                                  #  SINGLE-PRECISION THROUGHOUT.
045265,002557: 00,3425           22007                           ZL                                             
045266,002558: 00,3426           00006                           EXTEND                                         
045267,002559: 00,3427           10130                           DV       BUF                                   #  (MPAC/2)/(X0/2)
045268,002560: 00,3430           00006                           EXTEND                                         
045269,002561: 00,3431           74736                           MP       HALF                                  
045270,002562: 00,3432           26130                           ADS      BUF                                   #  X1 = X0/2 + .5(MPAC/2)/(X0/2).
045271,002563: 
045272,002564: 00,3433           00006                           EXTEND                                         
045273,002565: 00,3434           74736                           MP       HALF                                  #  FORM UP X1/2.
045274,002566: 00,3435           52155                           DXCH     MPAC                                  #  SAVE AND BRING OUT ARGUMENT.
045275,002567: 00,3436           00006                           EXTEND                                         #  TAKE DP QUOTIENT WITH X1.
045276,002568: 00,3437           10130                           DV       BUF                                   
045277,002569: 00,3440           54131                           TS       BUF        +1                         #  SAVE MAJOR PART OF QUOTIENT.
045278,002570: 00,3441           34755                           CAF      ZERO                                  #  FORM MINOR PART OF QUOTIENT USING
045279,002571: 00,3442           56001                           XCH      L                                     #  (REMAINDER,0).
045280,002572: 00,3443           00006                           EXTEND                                         
045281,002573: 00,3444           10130                           DV       BUF                                   
045282,002574: 00,3445           54001                           TS       L                                     #  IN PREPARATION FOR DAS.
045283,002575: 00,3446           30131                           CA       BUF        +1                         
045284,002576: 00,3447           20155                           DAS      MPAC                                  #  X2 = X1/2 + (MPAC/2)X1
045285,002577: 
045286,002578: 00,3450           00006                           EXTEND                                         #  OVERFLOWS IF ARG. NEAR POSMAX.
045287,002579: 00,3451           13455                           BZF      TCQBNK00                              
045288,002580: 00,3452           34733                           CAF      POSMAX                                
045289,002581: 00,3453           54154        FIXROOT            TS       MPAC                                  
045290,002582: 00,3454           54155                           TS       MPAC       +1                         
045291,002583: 00,3455           00002        TCQBNK00           TC       Q                                     #  RETURN TO CALLER TO UNNORMALIZE, ETC.
045292,002584: 

Page 1075

045294,002586: 00,3456           64737        SRTEST             AD       QUARTER                               #  ARGUMENT WAS LESS THAN .5, SEE IF LESS
045295,002587: 00,3457           00006                           EXTEND                                         #  THAN .25.
045296,002588: 00,3460           63502                           BZMF     SQRTNORM                              #  IF SO, BEGIN NORMALIZATION.
045297,002589: 
045298,002590: 00,3461           52155                           DXCH     MPAC                                  #  IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
045299,002591: 00,3462           22021                           LXCH     SR                                    #  START AT ARGLO.
045300,002592: 00,3463           00006                           EXTEND                                         
045301,002593: 00,3464           74736                           MP       HALF                                  
045302,002594: 00,3465           52155                           DXCH     MPAC                                  
045303,002595: 00,3466           56021                           XCH      SR                                    
045304,002596: 00,3467           26155                           ADS      MPAC       +1                         #  NO OVERFLOW.
045305,002597: 
045306,002598: 00,3470           33007        ARGLO              CAF      SLOPELO                               #  (NORMALIZED) ARGUMENT BETWEEN .125 AND
045307,002599: 00,3471           00006                           EXTEND                                         #  .25
045308,002600: 00,3472           70154                           MP       MPAC                                  
045309,002601: 00,3473           62270                           AD       BIASLO                                
045310,002602: 00,3474           13423                           TCF      ARGHI      +4                         #  BEGIN SQUARE ROOT.
045311,002603: 
045312,002604: 00,3475           00006        SQRTNM2            EXTEND                                         #  SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
045313,002605: 00,3476           30156                           DCA      MPAC       +1                         #  COUNT (FOR TERMINAL UNNORMALIZATION).
045314,002606: 00,3477           20156                           DAS      MPAC       +1                         
045315,002607: 00,3500           60154                           AD       MPAC                                  
045316,002608: 00,3501           26154                           ADS      MPAC                                  #  (NO OVERFLOW).
045317,002609: 
045318,002610: 00,3502           24135        SQRTNORM           INCR     MPTEMP                                #  FIRST TIME THROUGH, JUST SHIFT LEFT 1
045319,002611: 00,3503           00006                           EXTEND                                         #  (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
045320,002612: 00,3504           30156                           DCA      MPAC       +1                         #  WE WANT MPAC/2).
045321,002613: 00,3505           20156                           DAS      MPAC       +1                         
045322,002614: 00,3506           60154                           AD       MPAC                                  
045323,002615: 00,3507           26154                           ADS      MPAC                                  #  (AGAIN NO OVERFLOW).
045324,002616: 00,3510           60000                           DOUBLE                                         
045325,002617: 00,3511           54022                           TS       CYL                                   
045326,002618: 
045327,002619: 00,3512           10022        NORMTEST           CCS      CYL                                   #  SEE IF ARGUMENT NOW NORMALIZED AT
045328,002620: 00,3513           10022                           CCS      CYL                                   #  GREATER THAN .125.
045329,002621: 00,3514           13475                           TCF      SQRTNM2                               #  NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
045330,002622: 00,3515           13417                           TCF      ARGHI                                 #  YES - NOW BETWEEN .5 AND .25.
045331,002623: 00,3516           13470                           TCF      ARGLO                                 #  ARGUMENT NOW BETWEEN .25 AND .125.
045332,002624: 

Page 1076

045334,002626:                                                                                                  #  TRIGONOMETRIC FUNCTION PACKAGE.
045335,002627:                                                                                                  #        THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
045336,002628:                                                                                                  #        1.      SIN             COMPUTES (1/2)SINE(2 PI MPAC).
045337,002629:                                                                                                  #        2.      COS             COMPUTES (1/2)COSINE(2 PI MPAC).
045338,002630:                                                                                                  #        3.      ASIN            COMPUTES (1/2PI)ARCSINE(2 MPAC).
045339,002631:                                                                                                  #        4.      ACOS            COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
045340,002632: 
045341,002633:                                                                                                  #  SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X)) = X.
045342,002634: 
045343,002635: 00,3517           06726        COSINE             TC       BRANCH                                #  FINDS COSINE USING THE IDENTITY
045344,002636: 00,3520           13523                           TCF      +3                                    #  COS(X) = SIN(PI/2 - ABS(X)).
045345,002637: 00,3521           13526                           TCF      PRESINE                               
045346,002638: 00,3522           13526                           TCF      PRESINE                               
045347,002639: 
045348,002640: 00,3523           00006                 +3        EXTEND                                         
045349,002641: 00,3524           40155                           DCS      MPAC                                  
045350,002642: 00,3525           52155                           DXCH     MPAC                                  
045351,002643: 
045352,002644: 00,3526           34737        PRESINE            CAF      QUARTER                               #  PI/2 SCALED.
045353,002645: 00,3527           26154                           ADS      MPAC                                  
045354,002646: 
045355,002647: 00,3530           52155        SINE               DXCH     MPAC                                  #  DOUBLE ARGUMENT.
045356,002648: 00,3531           20001                           DDOUBL                                         
045357,002649: 00,3532           54000                           OVSK                                           #  SEE IF OVERFLOW PRESENT.
045358,002650: 00,3533           13536                           TCF      +3                                    #  IF NOT, ARGUMENT OK AS IS.
045359,002651: 
045360,002652: 00,3534           00006                           EXTEND                                         #  IF SO, WE LOST (OR GAINED) PI, SO
045361,002653: 00,3535           40001                           DCOM                                           #  COMPLEMENT MPAC USING THE IDENTITY
045362,002654:                                                                                                  #  SIN(X-(+)PI) = SIN(-X).
045363,002655: 00,3536           52155                 +3        DXCH     MPAC                                  
045364,002656: 00,3537           30154                           CA       MPAC                                  #  SEE IF ARGUMENT GREATER THAN .5 IN
045365,002657: 00,3540           60000                           DOUBLE                                         #  MAGNITUDE.  IF SO, REDUCE IT TO LESS THAN
045366,002658: 00,3541           54001                           TS       L                                     #  .5 (+-PI/2 SCALED) AS FOLLOWS:
045367,002659: 00,3542           13553                           TCF      SN1                                   
045368,002660: 
045369,002661: 00,3543           50000                           INDEX    A                                     #  IF POSITIVE, FORM PI - X, IF NEGATIVE
045370,002662: 00,3544           34735                           CAF      NEG1/2     +1                         #  USE -PI -X.
045371,002663: 00,3545           60000                           DOUBLE                                         
045372,002664: 00,3546           00006                           EXTEND                                         
045373,002665: 00,3547           60154                           SU       MPAC                                  #  GUARANTEED NO OVERFLOW.
045374,002666: 00,3550           54154                           TS       MPAC                                  
045375,002667: 00,3551           40155                           CS       MPAC       +1                         
045376,002668: 00,3552           54155                           TS       MPAC       +1                         
045377,002669: 

Page 1077

045379,002671: 00,3553           00006        SN1                EXTEND                                         #  SET UP TO EVALUATE HASTINGS POLYNOMIAL
045380,002672: 00,3554           30155                           DCA      MPAC                                  
045381,002673: 00,3555           52134                           DXCH     BUF2                                  
045382,002674: 00,3556           03300                           TC       DSQSUB                                #  SQUARE MPAC.
045383,002675: 
045384,002676: 00,3557           07225                           TC       POLY                                  #  EVALUATE FOURTH ORDER POLYNOMIAL.
045385,002677: 00,3560           00003                           DEC      3          B-14                       
045386,002678: 00,3561           14441 37325                     2DEC     +.3926990796                            
045387,002679: 00,3563           53250 60764                     2DEC     -.6459637111                            
045388,002680: 00,3565           12146 21276                     2DEC     +.318758717                            
045389,002681: 00,3567           75466 71471                     2DEC     -.074780249                            
045390,002682: 00,3571           00236 32757                     2DEC     +.009694988                            
045391,002683: 
045392,002684: 00,3573           32470                           CAF      LBUF2                                 #  MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
045393,002685: 00,3574           07111                           TC       DMPSUB     -1                         
045394,002686: 
045395,002687: 00,3575           00006                           EXTEND                                         
045396,002688: 00,3576           30156                           DCA      MPAC       +1                         
045397,002689: 00,3577           20156                           DAS      MPAC       +1                         
045398,002690: 00,3600           60154                           AD       MPAC                                  
045399,002691: 00,3601           26154                           ADS      MPAC                                  #  NEITHER SHIFT OVERFLOWS.
045400,002692: 00,3602           00006                           EXTEND                                         
045401,002693: 00,3603           30156                           DCA      MPAC       +1                         
045402,002694: 00,3604           20156                           DAS      MPAC       +1                         
045403,002695: 00,3605           60154                           AD       MPAC                                  
045404,002696: 00,3606           26154                           ADS      MPAC                                  
045405,002697: 00,3607           16064                           TCF      DANZIG                                
045406,002698: 

Page 1078

045408,002700:                                                                                                  #  ARCSIN/ARCCOS ROUTINE.
045409,002701: 
045410,002702: 00,3610           33631        ARCSIN             CAF      LASINEX                               #  COMPUTE ARCSIN BY USING THE IDENTITY
045411,002703: 00,3611           13613                           TCF      +2                                    #  ARCSIN(X) = PI/2 - ARCCOS(X).
045412,002704: 
045413,002705: 00,3612           33713        ARCCOS             CAF      LDANZIG                               #  (EXITS IMMEDIATELY).
045414,002706: 00,3613           54136                           TS       ESCAPE                                
045415,002707: 00,3614           06726                           TC       BRANCH                                #  TEST SIGN OF INPUT.
045416,002708: 00,3615           13625                           TCF      ACOSST                                #  START IMMEDIATELY IF POSITIVE.
045417,002709: 00,3616           13731                           TCF      ACOSZERO                              #  ARCCOS(0) = PI/2 = .25.
045418,002710: 00,3617           00006                           EXTEND                                         #  IF NEGATIVE, USE THE IDENTITY
045419,002711: 00,3620           40155                           DCS      MPAC                                  #  ARCCOS(X) = PI - ARCCOS(-X), FORCING
045420,002712: 00,3621           52155                           DXCH     MPAC                                  #  ARGUMENT POSITIVE.
045421,002713: 00,3622           33734                           CAF      TCSUBTR                               #  SET EXIT TO DO ABOVE BEFORE
045422,002714: 00,3623           56136                           XCH      ESCAPE                                #  ARCSIN/ARCCOS CONSIDERATIONS.
045423,002715: 00,3624           54137                           TS       ESCAPE2                               
045424,002716: 
045425,002717: 00,3625           44736        ACOSST             CS       HALF                                  #  TEST MAGNITUDE OF INPUT.
045426,002718: 00,3626           60154                           AD       MPAC                                  
045427,002719: 00,3627           10000                           CCS      A                                     
045428,002720: 00,3630           13721                           TCF      ACOSOVF                               #  THIS IS PROBABLY AN OVERFLOW CASE.
045429,002721: 
045430,002722: 00,3631           13707        LASINEX            TCF      ASINEX                                
045431,002723: 
045432,002724: 00,3632           13642                           TCF      ACOSST2                               #  NO OVERFLOW - PROCEED.
045433,002725: 
045434,002726: 00,3633           10155                           CCS      MPAC       +1                         #  IF MAJOR PART IS .5, CALL ANSWER 0
045435,002727: 00,3634           34755                           CAF      ZERO                                  #  UNLESS MINOR PART NEGATIVE.
045436,002728: 00,3635           13637                           TCF      ACOS=0                                
045437,002729: 
045438,002730: 00,3636           13642                           TCF      ACOSST2                               
045439,002731: 
045440,002732: 00,3637           54155        ACOS=0             TS       MPAC       +1                         
045441,002733: 00,3640           54154                           TS       MPAC                                  
045442,002734: 00,3641           00136                           TC       ESCAPE                                
045443,002735: 
045444,002736: 00,3642           00006        ACOSST2            EXTEND                                         #  NOW THAT ARGUMENT IS IN PROPER RANGE,
045445,002737: 00,3643           40155                           DCS      MPAC                                  #  BEGIN COMPUTATION.  USE HASTINGS
045446,002738: 00,3644           64736                           AD       HALF                                  #  APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
045447,002739: 00,3645           52155                           DXCH     MPAC                                  #  IN A SCALED VERSION WHERE P(X) IS A
045448,002740: 00,3646           52134                           DXCH     BUF2                                  #  SEVENTH ORDER POLYNOMIAL.
045449,002741: 
045450,002742: 00,3647           03343                           TC       SQRTSUB                               #  RETURNS WITH NORMALIZED SQUARE ROOT.
045451,002743: 
045452,002744: 00,3650           10135                           CCS      MPTEMP                                #  SEE IF UN-NORMALIZATION REQUIRED.
045453,002745: 00,3651           13714                           TCF      ACOSSHR                               #  IF SO.
045454,002746: 

Page 1079

045456,002748: 00,3652           52155        ACOS3              DXCH     MPAC                                  #  SET UP FOR POLYNOMIAL EVALUATION.
045457,002749: 00,3653           52134                           DXCH     BUF2                                  
045458,002750: 00,3654           52155                           DXCH     MPAC                                  
045459,002751: 
045460,002752: 00,3655           07225                           TC       POLY                                  
045461,002753: 00,3656           00006                           DEC      6          B-14                       
045462,002754: 00,3657           13240 23630                     2DEC     +.353553385                            #  COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
045463,002755: 00,3661           74721 47775                     2DEC*    -.0483017006 B+1*                       #  I
045464,002756: 00,3663           02440 20237                     2DEC*    +.0200273085 B+2*                       #  WHERE C STANDS FOR ORIGINAL COEFFS.
045465,002757: 00,3665           75067 70742                     2DEC*    -.0112931863 B+3*                       
045466,002758: 00,3667           03436 26756                     2DEC*    +.00695311612 B+4*                       
045467,002759: 00,3671           74037 57640                     2DEC*    -.00384617957 B+5*                       
045468,002760: 00,3673           03046 07143                     2DEC*    +.001501297736 B+6*                       
045469,002761: 00,3675           76654 42244                     2DEC*    -.000284160334 B+7*                       
045470,002762: 
045471,002763: 00,3677           32470                           CAF      LBUF2                                 #  DO FINAL MULTIPLY AND GO TO ANY
045472,002764: 00,3700           07111                           TC       DMPSUB     -1                         #  EPILOGUE SEQUENCES.
045473,002765: 00,3701           00136                           TC       ESCAPE                                
045474,002766: 
045475,002767: 00,3702           00006        SUBTR              EXTEND                                         #  EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
045476,002768: 00,3703           40155                           DCS      MPAC                                  
045477,002769: 00,3704           64736                           AD       HALF                                  #  FORMS PI - ARCCOS(-X) = ARCCOS(X).
045478,002770: 00,3705           52155                           DXCH     MPAC                                  
045479,002771: 00,3706           00137                           TC       ESCAPE2                               #  GO TO POSSIBLE ARCSIN EPILOGUE.
045480,002772: 
045481,002773: 00,3707           00006        ASINEX             EXTEND                                         
045482,002774: 00,3710           40155                           DCS      MPAC                                  #  ARCSIN EPILOGUE - GET ARCSIN(X)
045483,002775: 00,3711           64737                           AD       QUARTER                               #  = PI/2 - ARCCOS(X).
045484,002776: 00,3712           52155                           DXCH     MPAC                                  
045485,002777: 00,3713           16064        LDANZIG            TCF      DANZIG                                
045486,002778: 

Page 1080

045488,002780: 00,3714           50000        ACOSSHR            INDEX    A                                     #  THE SHIFT RIGHT IS LESS THAN 14 SINCE
045489,002781: 00,3715           34736                           CAF      BIT14                                 #  THE INPUT WAS NON-ZERO DP.
045490,002782: 00,3716           54135                           TS       MPTEMP                                
045491,002783: 00,3717           02073                           TC       VSHRRND                               #  DP SHIFT RIGHT AND ROUND.
045492,002784: 00,3720           13652                           TCF      ACOS3                                 #  PROCEED.
045493,002785: 
045494,002786: 00,3721           00006        ACOSOVF            EXTEND                                         #  IF MAJOR PART WAS ONLY 1 MORE THAN .5,
045495,002787: 00,3722           13637                           BZF      ACOS=0                                #  CALL ANSWER ZERO.
045496,002788: 
045497,002789: 00,3723           00006        ACOSABRT           EXTEND                                         #  IF OVERFLOW, CALL ANSWER ZERO BUT
045498,002790: 00,3724           30165                           DCA      LOC                                   #  SOUND AN ALARM.
045499,002791: 00,3725           05722                           TC       ALARM1                                
045500,002792: 00,3726           01301                           OCT      1301                                  
045501,002793: 
045502,002794: 00,3727           34755                           CAF      ZERO                                  
045503,002795: 00,3730           13637                           TCF      ACOS=0                                
045504,002796: 
045505,002797: 00,3731           34737        ACOSZERO           CAF      QUARTER                               #  ACOS(0) = PI/2.
045506,002798: 00,3732           13640                           TCF      ACOS=0     +1                         #  SET MPAC AND EXIT VIA ESCAPE.
045507,002799: 
045508,002800: 00,3733           77763        NEG12              DEC      -12        B-14                       
045509,002801: 00,3734           13702        TCSUBTR            TCF      SUBTR                                 
045510,002802: 

Page 1081

045512,002804:                                                                                                  #  THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
045513,002805:                                                                                                  #        1.      AXT     ADDRESS TO INDEX TRUE.
045514,002806:                                                                                                  #        1.      AXC     ADDRESS TO INDEX COMPLEMENTED.
045515,002807:                                                                                                  #        3.      LXA     LOAD INDEX FROM ERASABLE.
045516,002808:                                                                                                  #        4.      LXC     LOAD INDEX COMPLEMENTED FROM ERASABLE.
045517,002809:                                                                                                  #        5.      SXA     STORE INDEX IN ERASABLE.
045518,002810:                                                                                                  #        6.      XCHX    EXCHANGE INDEX REIGSTER WITH ERASABLE.
045519,002811: 
045520,002812:                                                                                                  #        7.      INCR    INCREMENT INDEX REGISTER.
045521,002813:                                                                                                  #        8.      XAD     ERASABLE ADD TO INDEX REGISTER.
045522,002814:                                                                                                  #        9.      XSU     ERASABLE SUBTRACT FROM INDEX REGISTER.
045523,002815:                                                                                                  #        10.     TIX     BRANCH ON INDEX REGISTER AND DECREMENT.
045524,002816: 
045525,002817: 01,2345                                           BANK     01                                    
045526,002818: 
045527,002819: 01,2345                                           COUNT*   $$/INTER                              
045528,002820: 01,2345           02442        AXT                TC       TAGSUB                                #  SELECT APPROPRIATE INDEX REGISTER.
045529,002821: 01,2346           30117                           CA       POLISH                                
045530,002822: 01,2347           50130        XSTORE             INDEX    INDEXLOC                              #  CONTAINS C(FIXLOC) OR C(FIXLOC)+1.
045531,002823: 01,2350           54046                           TS       X1                                    
045532,002824: 01,2351           16064                           TCF      DANZIG                                
045533,002825: 
045534,002826: 01,2352           02442        AXC                TC       TAGSUB                                
045535,002827: 01,2353           40117                           CS       POLISH                                
045536,002828: 01,2354           02347                           TC       XSTORE                                
045537,002829: 
045538,002830: 01,2355           02430        LXA                TC       15ADRERS                              #  LOAD INDEX REGISTER FROM ERASABLE.
045539,002831: 01,2356           50117                           INDEX    POLISH                                
045540,002832: 01,2357           30000                           CA       0                                     
045541,002833: 01,2360           12347                           TCF      XSTORE                                
045542,002834: 
045543,002835: 01,2361           02430        LXC                TC       15ADRERS                              #  LOAD NDX REG FROM ERASABLE COMPLEMENTED.
045544,002836: 01,2362           50117                           INDEX    POLISH                                
045545,002837: 01,2363           40000                           CS       0                                     
045546,002838: 01,2364           12347                           TCF      XSTORE                                
045547,002839: 
045548,002840: 01,2365           02430        SXA                TC       15ADRERS                              #  STORE INDEX REGISTER IN ERASABLE.
045549,002841: 01,2366           50130                           INDEX    INDEXLOC                              
045550,002842: 01,2367           30046                           CA       X1                                    
045551,002843: 01,2370           50117        MSTORE1            INDEX    POLISH                                
045552,002844: 01,2371           54000                           TS       0                                     
045553,002845: 01,2372           16064                           TCF      DANZIG                                
045554,002846: 

Page 1082

045556,002848: 01,2373           02430        XCHX               TC       15ADRERS                              #  EXCHANGE INDEX REGISTER WITH ERASABLE.
045557,002849: 01,2374           50117                           INDEX    POLISH                                
045558,002850: 01,2375           30000                           CA       0                                     
045559,002851: 01,2376           50130                           INDEX    INDEXLOC                              
045560,002852: 01,2377           56046                           XCH      X1                                    
045561,002853: 01,2400           12370                           TCF      MSTORE1                               
045562,002854: 
045563,002855: 01,2401           02430        XAD                TC       15ADRERS                              #  ADD ERASABLE TO INDEX REGISTER.
045564,002856: 01,2402           50117                           INDEX    POLISH                                
045565,002857: 01,2403           30000                           CA       0                                     
045566,002858: 01,2404           50130        XAD2               INDEX    INDEXLOC                              
045567,002859: 01,2405           26046                           ADS      X1                                    #  IGNORING OVERFLOWS.
045568,002860: 01,2406           16064                           TCF      DANZIG                                
045569,002861: 
045570,002862: 01,2407           02442        INCR               TC       TAGSUB                                #  INCREMENT INDEX REGISTER.
045571,002863: 01,2410           30117                           CA       POLISH                                
045572,002864: 01,2411           12404                           TCF      XAD2                                  
045573,002865: 
045574,002866: 01,2412           02430        XSU                TC       15ADRERS                              #  SUBTRACT ERASABLE FROM INDEX REGISTER.
045575,002867: 01,2413           50117                           INDEX    POLISH                                
045576,002868: 01,2414           40000                           CS       0                                     
045577,002869: 01,2415           12404                           TCF      XAD2                                  
045578,002870: 
045579,002871: 01,2416           02442        TIX                TC       TAGSUB                                #  BRANCH AND DECREMENT ON INDEX.
045580,002872: 01,2417           50130                           INDEX    INDEXLOC                              
045581,002873: 01,2420           40050                           CS       S1                                    
045582,002874: 01,2421           50130                           INDEX    INDEXLOC                              
045583,002875: 01,2422           60046                           AD       X1                                    
045584,002876: 01,2423           00006                           EXTEND                                         #  NO OPERATION IF DECREMENTED INDEX IS
045585,002877: 01,2424           66064                           BZMF     DANZIG                                #  NEGATIVE OR ZERO.
045586,002878: 
045587,002879: 01,2425           50130        DOTIXBR            INDEX    INDEXLOC                              
045588,002880: 01,2426           56046                           XCH      X1                                    #  IGNORING OVERFLOWS.
045589,002881: 
045590,002882: 01,2427           16651                           TCF      GOTO                                  #  DO THE BRANCH USING THE CADR IN POLISH.
045591,002883: 

Page 1083

045593,002885:                                                                                                  #  SUBROUTINE TO CONVERT AN ERASABLE ADDRESS (11 BITS) TO AN EBANK SETTING AND SUBADDRESS.
045594,002886: 
045595,002887: 01,2430           40117        15ADRERS           CS       POLISH                                
045596,002888: 01,2431           64772                           AD       DEC45                                 
045597,002889: 01,2432           10000                           CCS      A                                     #  DOES THE ADDRESS POINT TO THE WORK AREA?
045598,002890: 01,2433           30120                           CA       FIXLOC                                #  YES.  ADD FIXLOC.  EBANK OK AS IS.
045599,002891: 01,2434           12441                           TCF      +5                                    
045600,002892: 
045601,002893: 01,2435           35007                           CA       OCT1400                               #  NO. SET EBANK & MAKE UP SUBADDRESS.
045602,002894: 01,2436           56117                           XCH      POLISH                                
045603,002895: 01,2437           54003                           TS       EBANK                                 
045604,002896: 01,2440           74357                           MASK     LOW8                                  
045605,002897: 01,2441           26117                 +5        ADS      POLISH                                #  FALL INTO TAGSUB, AND RETURN VIA Q.
045606,002898: 
045607,002899:                                                                                                  #  SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC.  (ACTUALLY, THE ADDRESS -38D.)
045608,002900: 
045609,002901: 01,2442           30120        TAGSUB             CA       FIXLOC                                
045610,002902: 01,2443           54130                           TS       INDEXLOC                              
045611,002903: 
045612,002904: 01,2444           10020                           CCS      CYR                                   #  BIT 15 SPECIFIES INDEX.
045613,002905: 01,2445           24130                           INCR     INDEXLOC                              #  0 MEANS USE X2.
045614,002906: 01,2446           00002                           TC       Q                                     
045615,002907: 01,2447           00002                           TC       Q                                     #  1 FOR X1.
045616,002908: 

Page 1084

045618,002910:                                                                                                  #  MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES.  INCLUDED HERE ARE:
045619,002911:                                                                                                  #        1.      ITA     STORE QPRET (RETURN ADDRESS) IN ERASABLE.
045620,002912:                                                                                                  #        2.      CALL    CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
045621,002913:                                                                                                  #        3.      RTB     RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
045622,002914:                                                                                                  #        4.      BHIZ    BRANCH IF THE HIGHORDER OF MPAC IS ZERO (SINGLE PRECISION).
045623,002915:                                                                                                  #        5.      BOV     BRANCH ON OVERFLOW.
045624,002916:                                                                                                  #        6.      GOTO    SIMPLE SEQUENCE CHANGE.
045625,002917: 
045626,002918: 01,2450           10020        RTB/BHIZ           CCS      CYR                                   
045627,002919: 01,2451           30117        RTB                CA       POLISH                                
045628,002920: 01,2452           04621                           TC       SWCALL     -1                         #  SO A "TC Q" FROM ROUTINE LEADS TO DANZIG
045629,002921: 
045630,002922: 01,2453           10154        BHIZ               CCS      MPAC                                  
045631,002923: 01,2454           16064                           TCF      DANZIG                                
045632,002924: 01,2455           16651                           TCF      GOTO                                  
045633,002925: 01,2456           16064                           TCF      DANZIG                                
045634,002926: 01,2457           16651                           TCF      GOTO                                  
045635,002927: 
045636,002928: 01,2460           10121        BOV(B)             CCS      OVFIND                                #  BRANCH ON OVERFLOW TO BASIC OR INTERP.
045637,002929: 01,2461           12463                           TCF      +2                                    
045638,002930: 01,2462           16064                           TCF      DANZIG                                
045639,002931: 01,2463           54121                           TS       OVFIND                                
045640,002932: 01,2464           10020                           CCS      CYR                                   
045641,002933: 01,2465           12451                           TCF      RTB                                   #  IF BASIC.
045642,002934: 01,2466           00360        B5TOB8             OCT      360                                   
045643,002935: 01,2467           16651                           TCF      GOTO                                  
045644,002936: 

Page 1085

045646,002938: 01,2470           10020        BZE/GOTO           CCS      CYR                                   #  SEE WHICH OP-CODE IS DESIRED.
045647,002939: 01,2471           06726                           TC       BRANCH                                #  DO BZE.
045648,002940: 01,2472           16064                           TCF      DANZIG                                
045649,002941: 01,2473           16651                           TCF      GOTO                                  #  DO GOTO.
045650,002942: 01,2474           16064                           TCF      DANZIG                                
045651,002943: 
045652,002944: 01,2475           10020        BPL/BMN            CCS      CYR                                   
045653,002945: 01,2476           12504                           TCF      BPL                                   
045654,002946: 01,2477           12000        5B10               DEC      5          B+10                       #  SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
045655,002947: 
045656,002948: 01,2500           06726                           TC       BRANCH                                #  DO BMN.
045657,002949: 01,2501           16064                           TCF      DANZIG                                
045658,002950: 01,2502           16064                           TCF      DANZIG                                
045659,002951: 01,2503           16651                           TCF      GOTO                                  #  ONLY IF NNZ.
045660,002952: 
045661,002953: 01,2504           06726        BPL                TC       BRANCH                                
045662,002954: 01,2505           16651                           TCF      GOTO                                  #  IF POSITIVE OR ZERO.
045663,002955: 01,2506           16651                           TCF      GOTO                                  
045664,002956: 01,2507           16064                           TCF      DANZIG                                
045665,002957: 
045666,002958: 01,2510           10020        CALL/ITA           CCS      CYR                                   
045667,002959: 01,2511           16643                           TCF      CALL                                  
045668,002960: 
045669,002961: 01,2512           05675                           TC       CCSHOLE                               
045670,002962: 01,2513           02430                           TC       15ADRERS                              #  STORE QPRET.  (TAGSUB AFTER 15ADRERS IS
045671,002963: 01,2514           50120                           INDEX    FIXLOC                                #  SLOW IN THIS CASE, BUT SAVES STORAGE.)
045672,002964: 01,2515           30052                           CA       QPRET                                 
045673,002965: 01,2516           12370                           TCF      MSTORE1                               
045674,002966: 

Page 1086

045676,002968:                                                                                                  #  THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
045677,002969:                                                                                                  #        00      BONSET          SET A SWITCH AND DO A GOTO IF IT WAS ON.
045678,002970:                                                                                                  #        01      SETGO           SET A SWITCH AND DO A GOTO.
045679,002971:                                                                                                  #        02      BOFSET          SET A SWITCH AND DOA GOTO IF IT WAS OFF
045680,002972:                                                                                                  #        03      SET             SET A SWITCH.
045681,002973:                                                                                                  #        04      BONINV          INVERT A SWITCH AND BRANCH IF IT WAS ON.
045682,002974:                                                                                                  #        05      INVGO           INVERT A SWITCH AND DO A GOTO.
045683,002975:                                                                                                  #        06      BOFINV          INVERT A SWITCH AND BRANCH IF IT WAS OFF
045684,002976:                                                                                                  #        07      INVERT          INVERT A SWITCH.
045685,002977:                                                                                                  #        10      BONCLR          CLEAR A SWITCH AND BRANCH IF IT WAS ON.
045686,002978:                                                                                                  #        11      CLRGO           CLEAR A SWITCH AND DO A GOTO.
045687,002979:                                                                                                  #        12      BOFCLR          CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
045688,002980:                                                                                                  #        13      CLEAR           CLEAR A SWITCH.
045689,002981:                                                                                                  #        14      BON             BRANCH IF A SWITCH WAS ON.
045690,002982:                                                                                                  #        16      BOFF            BRANCH IF A SWITCH WAS OFF.
045691,002983:                                                                                                  #  THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
045692,002984:                                                                                                  #        BITS 1-4        SWITCH BIT NUMBER (1-15).
045693,002985:                                                                                                  #        BITS 5-8        SWITCH OPERATION NUMBER.
045694,002986:                                                                                                  #        BITS 9-         SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
045695,002987:                                                                                                  #  THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER.  THE BRANCH INSTRUCTIONS REQUIRE TWO
045696,002988:                                                                                                  #  ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
045697,002989: 
045698,002990: 01,2517           34762        SWITCHES           CAF      LOW4                                  #  LEAVE THE SWITCH BIT IN SWBIT.
045699,002991: 01,2520           70117                           MASK     POLISH                                
045700,002992: 01,2521           50000                           INDEX    A                                     
045701,002993: 01,2522           34735                           CAF      BIT15                                 #  (NUMBER FROM LEFT TO RIGHT.)
045702,002994: 01,2523           54131                           TS       SWBIT                                 
045703,002995: 
045704,002996: 01,2524           34745                           CAF      BIT7                                  #  LEAVE THE SWITCH NUMBER IN SWWORD.
045705,002997: 01,2525           00006                           EXTEND                                         
045706,002998: 01,2526           70117                           MP       POLISH                                
045707,002999: 01,2527           54130                           TS       SWWORD                                
045708,003000: 
045709,003001: 01,2530           00004                           INHINT                                         #  DURING SWITCH CHANGE SO RUPT CAN USE TOO
045710,003002: 01,2531           50000                           INDEX    A                                     #  LEAVE THE SWITCH WORD ITSELF IN L.
045711,003003: 01,2532           30074                           CA       STATE                                 
045712,003004: 01,2533           54002                           TS       Q                                     #  Q WILL BE USED AS A CHANNEL.

Page 1087

045714,003006: 01,2534           34741                           CAF      BIT11                                 
045715,003007: 01,2535           00006                           EXTEND                                         #  DISPATCH SWITCH BIT OPERATION AS IN BITS
045716,003008: 01,2536           70117                           MP       POLISH                                #  7-8 OF POLISH.
045717,003009: 01,2537           72577                           MASK     B3TOB4                                #  GETS 4X2-BIT CODE.
045718,003010: 01,2540           50000                           INDEX    A                                     
045719,003011: 01,2541           12542                           TCF      +1                                    
045720,003012: 
045721,003013: 01,2542           30131                 +1        CA       SWBIT                                 #  00 - SET SWITCH IN QUESTION.
045722,003014: 01,2543           00006                           EXTEND                                         
045723,003015: 01,2544           04002                           ROR      QCHAN                                 
045724,003016: 01,2545           12554                           TCF      SWSTORE                               
045725,003017: 
045726,003018: 01,2546           30131                 +5        CA       SWBIT                                 #  01 - INVERT SWITCH.
045727,003019: 01,2547           00006                           EXTEND                                         
045728,003020: 01,2550           06002                           RXOR     QCHAN                                 
045729,003021: 01,2551           12554                           TCF      SWSTORE                               
045730,003022: 
045731,003023: 01,2552           40131                 +9D       CS       SWBIT                                 #  10 - CLEAR.
045732,003024: 01,2553           70002                           MASK     Q                                     
045733,003025: 01,2554           50130        SWSTORE            INDEX    SWWORD                                
045734,003026: 01,2555           54074                           TS       STATE                                 #  NEW SWITCH WORD.
045735,003027: 

Page 1088

045737,003029: 01,2556           00003                 +13D      RELINT                                         #  11 - NOOP.
045738,003030: 01,2557           34737                           CAF      BIT13                                 
045739,003031: 01,2560           00006                           EXTEND                                         #  DISPATCH SEQUCE CHANGING OR BRANCHING
045740,003032: 01,2561           70117                           MP       POLISH                                #  CODE.
045741,003033: 01,2562           72577                           MASK     B3TOB4                                
045742,003034: 01,2563           50000                           INDEX    A                                     
045743,003035: 01,2564           12565                           TCF      +1                                    #  ORIGINALLY STORED IN BITS 5-6.
045744,003036: 
045745,003037: 01,2565           40002                 +1        CS       Q                                     #  00 - BRANCH IF ON.
045746,003038: 01,2566           70131        TEST               MASK     SWBIT                                 
045747,003039: 01,2567           10000                           CCS      A                                     
045748,003040: 01,2570           12600                           TCF      SWSKIP                                
045749,003041: 
045750,003042: 01,2571           16720                 +5        TCF      SWBRANCH                              #  01 - GO TO.
045751,003043: 
045752,003044: 01,2572           12600                           TCF      SWSKIP                                #  HERE ONLY ON BIT 15.
045753,003045: 
045754,003046: 01,2573           05675                           TC       CCSHOLE                               
045755,003047: 01,2574           05675                           TC       CCSHOLE                               
045756,003048: 
045757,003049: 01,2575           30002                 +9D       CA       Q                                     #  10 - BRANCH IF OFF.
045758,003050: 01,2576           12566                           TCF      TEST                                  
045759,003051: 
045760,003052: 01,2577           00014        B3TOB4             OCT      0014                                  
045761,003053: 01,2600           24164        SWSKIP             INCR     LOC                                   
045762,003054: 
045763,003055: 01,2601  01,2517               SW/                EQUALS   SWITCHES                              
045764,003056: 
045765,003057: 01,2601           16064                 +13D      TCF      DANZIG                                #  11 - NOOP.
045766,003058: 

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