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
/
dim.ra
1
/
2
/ VERSION 5A 4-27-77 PT
3
/
4
SECT DIM
5
ENTRY IDIM
6
JA #ST
7
#XR, ORG .+10
8
#BASE, ORG .+3
9
A, ORG .+3
10
B, ORG .+3
11
BASE #BASE
12
IDIM,
13
#ST, STARTD
14
0210
15
FSTA #RTN,0
16
0200
17
SETX #XR
18
SETB #BASE
19
LDX 0,1
20
FSTA #BASE
21
FLDA% #BASE,1+
22
FSTA A
23
FLDA% #BASE,1+
24
FSTA B
25
STARTF
26
FLDA% A
27
FSUB% B
28
JGE #RTN
29
FCLA
30
#RTN, JA .
31
END
32
\f