home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG083.ARK
/
XMATS.SRT
< prev
next >
Wrap
Text File
|
1984-04-29
|
2KB
|
52 lines
108.100 REM ***********XMATS***********
TEMP.REAL=A.REAL : TEMP.IMAG=A.IMAG
TEMP1.REAL=D.REAL : TEMP1.IMAG=D.IMAG
GOSUB 103.100
Q1R=TEMP.REAL : Q1I=TEMP.IMAG
TEMP.REAL=B.REAL : TEMP.IMAG=B.IMAG
TEMP1.REAL=C.REAL : TEMP1.IMAG=C.IMAG
GOSUB 103.100
Q2R=TEMP.REAL : Q2I=TEMP.IMAG
T1R=Q1R-Q2R : T1I=Q1I-Q2I
T2R=A.REAL+50*C.REAL : T2I=A.IMAG+50*C.IMAG
T3R=A.REAL-50*C.REAL : T3I=A.IMAG-50*C.IMAG
T4R=D.REAL+50*C.REAL : T4I=D.IMAG+50*C.IMAG
T5R=D.REAL-50*C.REAL : T5I=D.IMAG-50*C.IMAG
TEMP.REAL=T2R : TEMP.IMAG=T2I
TEMP1.REAL=T4R : TEMP1.IMAG=T4I
GOSUB 103.100
Q3R=TEMP.REAL : Q3I=TEMP.IMAG
T6R=Q3R-T1R : T6I=Q3I-T1I
TEMP.REAL=T3R : TEMP.IMAG=T3I
TEMP1.REAL=T4R : TEMP1.IMAG=T4I
GOSUB 103.100
Q4R=TEMP.REAL : Q4I=TEMP.IMAG
T7R=Q4R-T1R : T7I=Q4I-T1I
TEMP.REAL=T2R : TEMP.IMAG=T2I
TEMP1.REAL=T5R : TEMP1.IMAG=T5I
GOSUB 103.100
Q5R=TEMP.REAL : Q5I=TEMP.IMAG
T8R=Q5R-T1R : T8I=Q5I-T1I
TEMP.REAL=T7R : TEMP.IMAG=T7I
TEMP1.REAL=T6R : TEMP1.IMAG=T6I
GOSUB 104.100
S11.REAL=TEMP.REAL : S11.IMAG=TEMP.IMAG
Q6R=100*C.REAL : Q6I=100*C.IMAG
TEMP.REAL=T1R : TEMP.IMAG=T1I
TEMP1.REAL=T6R : TEMP1.IMAG=T6I
GOSUB 104.100
Q7R=TEMP.REAL : Q7I=TEMP.IMAG
TEMP.REAL=Q6R : TEMP.IMAG=Q6I
TEMP1.REAL=Q7R : TEMP1.IMAG=Q7I
GOSUB 103.100
S12.REAL=TEMP.REAL : S12.IMAG=TEMP.IMAG
TEMP.REAL=Q6R : TEMP.IMAG=Q6I
TEMP1.REAL=T6R : TEMP1.IMAG=T6I
GOSUB 104.100
S21.REAL=TEMP.REAL : S21.IMAG=TEMP.IMAG
TEMP.REAL=T8R : TEMP.IMAG=T8I
TEMP1.REAL=T6R : TEMP1.IMAG=T6I
GOSUB 104.100
S22.REAL=TEMP.REAL : S22.IMAG=TEMP.IMAG
RETURN