software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / dsign.ra
... / ...
CommitLineData
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
9A, ORG .+6
10B, ORG .+6
11 ORG #BASE+31
12 JA #BASE
13GOBACK, 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