1            /TWO'S COMPLEMENT SINGLE PRECISION MULTIPLY ROUTINE
   2            /RETURN HIGH ORDER PRODUCT IN AC, LOW IN MP1
   3            
   4 00000 0000 MULT,     0
   5 00001 7100           CLL
   6 00002 7510           SPA
   7 00003 7061           CMA CML IAC
   8 00004 3052           DCA MP1
   9 00005 3053           DCA MP5
  10 00006 1400           TAD I MULT
  11 00007 7450           SNA
  12 00010 5036           JMP MPSN+2
  13 00011 7510           SPA
  14 00012 7061           CMA CML IAC
  15 00013 3054           DCA MP2
  16 00014 1051           TAD THIR
  17 00015 3055           DCA MP3
  18 00016 1052 MP4,      TAD MP1
  19 00017 7010           RAR
  20 00020 3052           DCA MP1
  21 00021 1053           TAD MP5
  22 00022 7420           SNL
  23 00023 5026           JMP .+3
  24 00024 7100           CLL
  25 00025 1054           TAD MP2
  26 00026 7010           RAR
  27 00027 3053           DCA MP5
  28 00030 2055           ISZ MP3
  29 00031 5016           JMP MP4
  30 00032 1052           TAD MP1
  31 00033 7010           RAR
  32 00034 7430 MPSN,     SZL
  33 00035 5042           JMP COMP
  34 00036 3052           DCA MP1
  35 00037 1053           TAD MP5
  36 00040 2000 MPZ,      ISZ MULT
  37 00041 5400           JMP I MULT
  38 00042 7141 COMP,     CMA CLL IAC
  39 00043 3052           DCA MP1
  40 00044 1053           TAD MP5
  41 00045 7040           CMA
  42 00046 7430           SZL
  43 00047 7001           IAC
  44 00050 5040           JMP MPZ
  45 00051 7764 THIR,     7764
  46 00052 0000 MP1,      0
  47 00053 0000 MP5,      0
  48 00054 0000 MP2,      0
  49 00055 0000 MP3,      0
  50                      $