Commit | Line | Data |
---|---|---|
1 | / | |
2 | / C M P L X | |
3 | / - - - - - | |
4 | / | |
5 | / VERSION 5A 4-27-77 PT | |
6 | / | |
7 | /ENTER IN REAL,EXIT IN COMPLEX | |
8 | /CMPLX(X,Y) | |
9 | /Z=X+IY | |
10 | / | |
11 | SECT CMPLX | |
12 | JA #CMPLX | |
13 | DPCHK | |
14 | TEXT +CMPLX + | |
15 | CMPXR, SETX XR | |
16 | SETB BP | |
17 | BP, F 0.0 | |
18 | XR, F 0.0 | |
19 | PTR1, F 0.0 | |
20 | ARG, F 0.0 | |
21 | F 0.0 | |
22 | ORG 10*3+BP | |
23 | FNOP | |
24 | JA CMPXR | |
25 | 0 | |
26 | RT, JA . | |
27 | BASE 0 | |
28 | #CMPLX, STARTD | |
29 | FLDA 10*3 | |
30 | FSTA RT | |
31 | FLDA 0 | |
32 | SETB BP | |
33 | SETX XR | |
34 | BASE BP | |
35 | LDX 1,1 | |
36 | FSTA BP | |
37 | FLDA% BP,1 | |
38 | FSTA PTR1 /ADDR OF X | |
39 | FLDA% BP,1+ | |
40 | FSTA BP /ADDR OF Y | |
41 | STARTF | |
42 | FLDA% PTR1 | |
43 | FSTA ARG /X | |
44 | FLDA% BP | |
45 | FSTA ARG+3 /Y | |
46 | STARTE | |
47 | FLDA ARG /X+IY | |
48 | FSTA #CAC /SAVE IN CMPLX AC | |
49 | JA RT | |
50 | EXTERN #CAC | |
51 | \f |