Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | / |
2 | / VERSION 5A 4-27-77 PT | |
3 | / | |
4 | SECT SIGN | |
5 | ENTRY ISIGN | |
6 | JA #ST | |
7 | #XR, ORG .+10 | |
8 | TEXT 'SIGN ' | |
9 | #BASE, ORG .+3 | |
10 | A, ORG .+3 | |
11 | B, ORG .+3 | |
12 | ORG #BASE+31 | |
13 | JA #BASE | |
14 | GOBACK, 0;0;0 | |
15 | BASE #BASE | |
16 | ISIGN, | |
17 | #ST, STARTD | |
18 | 0210 | |
19 | FSTA GOBACK+1,0 | |
20 | 0200 | |
21 | SETX #XR | |
22 | SETB #BASE | |
23 | LDX 0,1 | |
24 | FSTA #BASE | |
25 | FLDA% #BASE,1+ | |
26 | FSTA A | |
27 | FLDA% #BASE,1+ | |
28 | FSTA B | |
29 | STARTF | |
30 | FLDA% B | |
31 | JLT #50 | |
32 | FLDA% A | |
33 | JLT #100 | |
34 | JA GOBACK+1 | |
35 | #50, FLDA% A | |
36 | JLT GOBACK+1 | |
37 | #100, FNEG | |
38 | JA GOBACK+1 | |
39 | END | |
40 | \f |