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