home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / XMATS.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.5 KB  |  52 lines
  1. 108.100 REM ***********XMATS***********
  2.     TEMP.REAL=A.REAL : TEMP.IMAG=A.IMAG
  3.     TEMP1.REAL=D.REAL : TEMP1.IMAG=D.IMAG
  4.     GOSUB 103.100
  5.     Q1R=TEMP.REAL : Q1I=TEMP.IMAG
  6.     TEMP.REAL=B.REAL : TEMP.IMAG=B.IMAG
  7.     TEMP1.REAL=C.REAL : TEMP1.IMAG=C.IMAG
  8.     GOSUB 103.100
  9.     Q2R=TEMP.REAL : Q2I=TEMP.IMAG
  10.     T1R=Q1R-Q2R : T1I=Q1I-Q2I
  11.     T2R=A.REAL+50*C.REAL : T2I=A.IMAG+50*C.IMAG
  12.     T3R=A.REAL-50*C.REAL : T3I=A.IMAG-50*C.IMAG
  13.     T4R=D.REAL+50*C.REAL : T4I=D.IMAG+50*C.IMAG
  14.     T5R=D.REAL-50*C.REAL : T5I=D.IMAG-50*C.IMAG
  15.     TEMP.REAL=T2R : TEMP.IMAG=T2I
  16.     TEMP1.REAL=T4R : TEMP1.IMAG=T4I
  17.     GOSUB 103.100
  18.     Q3R=TEMP.REAL : Q3I=TEMP.IMAG
  19.     T6R=Q3R-T1R : T6I=Q3I-T1I
  20.     TEMP.REAL=T3R : TEMP.IMAG=T3I
  21.     TEMP1.REAL=T4R : TEMP1.IMAG=T4I
  22.     GOSUB 103.100
  23.     Q4R=TEMP.REAL : Q4I=TEMP.IMAG
  24.     T7R=Q4R-T1R : T7I=Q4I-T1I
  25.     TEMP.REAL=T2R : TEMP.IMAG=T2I
  26.     TEMP1.REAL=T5R : TEMP1.IMAG=T5I
  27.     GOSUB 103.100
  28.     Q5R=TEMP.REAL : Q5I=TEMP.IMAG
  29.     T8R=Q5R-T1R : T8I=Q5I-T1I
  30.     TEMP.REAL=T7R : TEMP.IMAG=T7I
  31.     TEMP1.REAL=T6R : TEMP1.IMAG=T6I
  32.     GOSUB 104.100
  33.     S11.REAL=TEMP.REAL : S11.IMAG=TEMP.IMAG
  34.     Q6R=100*C.REAL : Q6I=100*C.IMAG
  35.     TEMP.REAL=T1R : TEMP.IMAG=T1I
  36.     TEMP1.REAL=T6R : TEMP1.IMAG=T6I
  37.     GOSUB 104.100
  38.     Q7R=TEMP.REAL : Q7I=TEMP.IMAG
  39.     TEMP.REAL=Q6R : TEMP.IMAG=Q6I
  40.     TEMP1.REAL=Q7R : TEMP1.IMAG=Q7I
  41.     GOSUB 103.100
  42.     S12.REAL=TEMP.REAL : S12.IMAG=TEMP.IMAG
  43.     TEMP.REAL=Q6R : TEMP.IMAG=Q6I
  44.     TEMP1.REAL=T6R : TEMP1.IMAG=T6I
  45.     GOSUB 104.100
  46.     S21.REAL=TEMP.REAL : S21.IMAG=TEMP.IMAG
  47.     TEMP.REAL=T8R : TEMP.IMAG=T8I
  48.     TEMP1.REAL=T6R : TEMP1.IMAG=T6I
  49.     GOSUB 104.100
  50.     S22.REAL=TEMP.REAL : S22.IMAG=TEMP.IMAG
  51.     RETURN
  52.