projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
fortran
/
all
/
rfcv.ra
1
/
2
/ VERSION 5A 4/26/77 MH
3
/
4
SECT #RFCV /READ FORMATTED COMPLEX VARIABLE
5
ENTRY #WFCV
6
EXTERN #RFSV
7
EXTERN #WFSV
8
JA START
9
DPCHK
10
TEXT "#CIO "
11
RETN, FNOP
12
FNOP
13
SETB BP
14
JA .+3
15
BP, 0;0;0
16
CVAL, 0;0;0;0;0;0
17
ORG BP+30
18
0;JA RETN
19
0
20
GOBAK, JA .
21
START, BASE 0
22
STARTD
23
0210
24
FSTA GOBAK,0
25
STARTF
26
SETB BP
27
BASE BP
28
JSR #RFSV
29
FSTA CVAL
30
JSR #RFSV
31
FSTA CVAL+3
32
STARTE
33
FLDA CVAL
34
JA GOBAK
35
BASE 0
36
#WFCV, FSTA CVAL,0
37
STARTD
38
0210
39
FSTA GOBAK,0
40
SETB BP
41
BASE BP
42
STARTF
43
FLDA CVAL
44
JSR #WFSV
45
FLDA CVAL+3
46
JSR #WFSV
47
JA GOBAK
48
END
49
\f