7c7d6701590e1d30bff36acaa49236c1c82e7cd5
[h316.git] / f$w4.asm
1 * (F$W4) REBUILD 2
2 *
3 *
4 * DATE: 27.05.2005
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 **
63 CALL O$LF LF ONLY
64 IRS CNTR
65 JMP* FW4J
66 LDA =-17
67 STA CNTR
68 *
69 FW4K CALL O$LF LF ONLY
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