Add README.md
[pdp8.git] / sw / os8 / v3d / sources / fortran / all / real.ra
CommitLineData
81e70d48
PH
1/
2/ R E A L
3/ - - - -
4/
5/ A I M A G
6/ - - - - -
7/
8/ C O N J G
9/ - - - - -
10/
11/ VERSION 5A 4-27-77 PT
12/
13/REAL,AIMAG - ENTER IN COMPLEX,EXIT IN REAL
14/CONJG - ENTER + EXIT IN COMPLEX
15/
16 SECT REAL
17 JA #REAL
18 DPCHK
19 TEXT +REAL +
20REALXR, SETX XRREAL
21 SETB BPREAL
22BPREAL, F 0.0
23XRREAL, F 0.0
24ARG, F 0.0
25 F 0.0
26 ORG 10*3+BPREAL
27 FNOP
28 JA REALXR
29 0
30REALRT, JA .
31 BASE 0
32#REAL, SETX XRREAL
33 LDX 0,2
34 LDX 1,0
35COMM, STARTD
36 FLDA 10*3
37 FSTA REALRT
38 FLDA 0
39 SETB BPREAL
40 BASE BPREAL
41 LDX 1,1
42 FSTA BPREAL
43 FLDA% BPREAL,1
44 FSTA BPREAL
45 STARTE
46 FLDA% BPREAL /GET ARG
47 FSTA ARG
48 JXN REAM,0
49 STARTF
50 FLDA ARG+3
51 FNEG
52 FSTA ARG+3
53 STARTE
54 FLDA ARG
55 FSTA #CAC
56 JA REALRT
57REAM, STARTF
58CON, FLDA ARG,2
59 JA REALRT
60 EXTERN #CAC
61/
62 ENTRY AIMAG
63AIMAG, SETX XRREAL
64 LDX 1,2
65 LDX 1,0
66 JA COMM
67/
68 ENTRY CONJG
69CONJG, SETX XRREAL
70 LDX 0,2
71 LDX 0,0
72 JA COMM
73\f