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
/
dsign.ra
1
/
2
/ VERSION 5A 4-27-77 PT
3
/
4
SECT DSIGN
5
JA #ST
6
#XR, ORG .+10
7
TEXT 'DSIGN '
8
#BASE, ORG .+6
9
A, ORG .+6
10
B, ORG .+6
11
ORG #BASE+31
12
JA #BASE
13
GOBACK, 0;0;0
14
BASE #BASE
15
DPCHK
16
#ST, STARTD
17
0210 /FLDA 10
18
FSTA GOBACK+1,0
19
0200
20
SETX #XR
21
SETB #BASE
22
LDX 0,1
23
FSTA #BASE
24
FLDA% #BASE,1+
25
FSTA A
26
FLDA% #BASE,1+
27
FSTA B
28
STARTE
29
FLDA% B /NEG?
30
JLT #50 /B POS
31
FLDA% A
32
JLT #100
33
JA GOBACK+1 /A+,B+
34
#50, FLDA% A
35
JLT GOBACK+1 /A-,B-
36
#100, FNEG /OPP. SIGNS
37
JA GOBACK+1
38
END
39
\f