Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 |