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]
/
FRTSRC
/
expdd.ra
1
/
2
/ VERSION 5A 4-25-77 MH
3
/
4
SECT #EXPDD
5
DPCHK
6
BASE 0
7
EXTERN DEXP3
8
JA .
9
FSTA EXPON,0 /EXPONENT
10
FLDA 0 /BASE
11
FSTA BASE,0
12
JSR DEXP3 /EXP3(BASE,EXPON)
13
JA .+6
14
JA BASE
15
JA EXPON
16
JA #EXPDD
17
BASE, F 0.0
18
F 0.0
19
EXPON, F 0.0
20
F 0.0
21
END
22
\f