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 |
1f281d48 |
57 | FW4G CALL O$LP OUTPUT ONE LINE OF INFORMATION |
c08e22bb |
58 | FW4H *** ** |
1f281d48 |
59 | CALL O$LC CARRIAGE RETURN ONLY |
60 | CALL O$LF |
c08e22bb |
61 | IRS FW4A |
62 | JMP* FW4A |
63 | FW4J DAC ** |
1f281d48 |
64 | * CALL O$LF LF ONLY |
c08e22bb |
65 | IRS CNTR |
66 | JMP* FW4J |
67 | LDA =-17 |
68 | STA CNTR |
69 | * |
008a15c0 |
70 | FW4K CALL O$LF LF ONLY |
c08e22bb |
71 | IRS CNTR |
72 | JMP FW4K |
73 | LDA =-60 |
74 | STA CNTR |
75 | JMP* FW4J |
76 | CNTR OCT -60 |
77 | FW4L LDA ='377 |
78 | LLL 8 |
79 | STA* FW4H |
80 | JMP FW4G+1 |
81 | END |