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