Add README.md
[pdp8.git] / sw / f4 / FRTSRC / real.ra
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 +
20 REALXR, SETX XRREAL
21 SETB BPREAL
22 BPREAL, F 0.0
23 XRREAL, F 0.0
24 ARG, F 0.0
25 F 0.0
26 ORG 10*3+BPREAL
27 FNOP
28 JA REALXR
29 0
30 REALRT, JA .
31 BASE 0
32 #REAL, SETX XRREAL
33 LDX 0,2
34 LDX 1,0
35 COMM, 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
57 REAM, STARTF
58 CON, FLDA ARG,2
59 JA REALRT
60 EXTERN #CAC
61 /
62 ENTRY AIMAG
63 AIMAG, SETX XRREAL
64 LDX 1,2
65 LDX 1,0
66 JA COMM
67 /
68 ENTRY CONJG
69 CONJG, SETX XRREAL
70 LDX 0,2
71 LDX 0,0
72 JA COMM
73 \f