home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / MPYCOM.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  149 b   |  7 lines
  1. 103.100    REM ***********MPYCOM***********
  2.     A=TEMP.REAL : B=TEMP.IMAG
  3.     C=TEMP1.REAL : D=TEMP1.IMAG
  4.     TEMP.REAL=A*C-B*D
  5.     TEMP.IMAG=A*D+B*C
  6.     RETURN
  7.