projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
A large commit.
[pdp8.git]
/
sw
/
os8
/
v3d
/
sources
/
fortran
/
all
/
expdr.ra
1
/
2
/ VERSION 5A 4-26-77 MH
3
/
4
SECT #EXPDR
5
DPCHK
6
BASE 0
7
EXTERN DEXP3
8
JA .
9
FSTA EXPON,0 /EXPONENT
10
FCLA
11
FSTA EXPON+3 /MUST BE 6 WDS
12
STARTE
13
FLDA 0 /BASE
14
FSTA BASE,0
15
JSR DEXP3 /EXP3(BASE,EXPON)
16
JA .+6
17
JA BASE
18
JA EXPON
19
JA #EXPDR
20
BASE, F 0.0
21
F 0.0
22
EXPON, F 0.0
23
F 0.0
24
END
25
\f