008a15c0 |
1 | * (F$W4) REBUILD 2 |
c08e22bb |
2 | * |
3 | * |
008a15c0 |
4 | * DATE: 27.05.2005 |
c08e22bb |
5 | * |
6 | * PROGRAM TITLE: F$W4 |
7 | * OUTPUT BCD ON LINE PRINTER |
8 | * |
9 | * |
10 | * |
11 | * USE |
12 | * |
13 | * CALLING SEQUENCE |
14 | * |
15 | * CALL F$W4 |
16 | * DAC N WHERE N IS THE LOCATION OF THE FORMAT |
17 | * DESCRIPTOR LIST |
18 | * |
19 | SUBR F$W4,FW4 |
20 | * |
21 | * |
22 | * |
23 | REL |
24 | FW4 DAC ** |
25 | CALL F$IO |
26 | FW4A DAC ** |
27 | LDA* FW4A |
28 | STA FW4H |
29 | LDA* FW4H |
30 | * |
31 | LRL 8 |
32 | CAS ='261 |
33 | JMP FW4B |
34 | JMP FW4C |
35 | CAS *+1 |
36 | OCT 260 |
37 | JMP FW4D |
38 | CAS ='255 |
39 | JMP FW4B |
40 | JMP FW4F |
41 | CAS ='253 |
42 | JMP FW4B |
43 | JMP FW4F |
44 | FW4B JST FW4J |
45 | JMP FW4G |
46 | FW4C JST FW4J |
47 | CAS =-60 |
48 | JMP FW4C |
49 | JMP FW4F |
50 | JMP FW4C |
51 | FW4D JST FW4J |
52 | FW4E JST FW4J |
53 | FW4F LDA* FW4H |
54 | ANA ='377 |
55 | ERA ='120000 |
56 | STA* FW4H |
57 | FW4G CALL O$LC CARRIAGE RETURN ONLY |
58 | CALL O$LP OUTPUT ONE LINE OF INFORMATION |
59 | FW4H *** ** |
60 | IRS FW4A |
61 | JMP* FW4A |
62 | FW4J DAC ** |
008a15c0 |
63 | CALL O$LF LF ONLY |
c08e22bb |
64 | IRS CNTR |
65 | JMP* FW4J |
66 | LDA =-17 |
67 | STA CNTR |
68 | * |
008a15c0 |
69 | FW4K CALL O$LF LF ONLY |
c08e22bb |
70 | IRS CNTR |
71 | JMP FW4K |
72 | LDA =-60 |
73 | STA CNTR |
74 | JMP* FW4J |
75 | CNTR OCT -60 |
76 | FW4L LDA ='377 |
77 | LLL 8 |
78 | STA* FW4H |
79 | JMP FW4G+1 |
80 | END |