a94def7b32b94aa12ac9fa2587834cc1e7cadeb2
[h316.git] / f$w1.asm
1 * (F$W1) HACHTI-NACHBAU REV.A
2 *
3 *
4 *
5 *
6 * PROGRAM TITLE: F$W1
7 * OUTPUT BCD ON ASR
8 *
9 *
10 *
11 * USE
12 *
13 * CALLING SEQUENCE
14 *
15 * CALL F$W1
16 * DAC N WHERE N IS THE LOCATION OF THE FORMAT
17 * DESCRIPTOR LIST
18 *
19 SUBR F$W1,FW1
20 REL
21 FW1 DAC **
22 CALL F$IO
23 FW1A DAC **
24 LDA* FW1A
25 STA FW1H
26 LDA* FW1H
27 *
28 LRL 8
29 CAS ='261
30 JMP FW1B
31 JMP FW1C
32 CAS *+1
33 OCT 260
34 JMP FW1D
35 CAS ='255
36 JMP FW1B
37 JMP FW1F
38 CAS ='253
39 JMP FW1B
40 JMP FW1F
41 FW1B JST FW1J
42 JMP FW1G
43 FW1C JST FW1J
44 CAS =-60
45 JMP FW1C
46 JMP FW1F
47 JMP FW1C
48 FW1D JST FW1J
49 FW1E JST FW1J
50 FW1F LDA* FW1H
51 ANA ='377
52 ERA ='120000
53 STA* FW1H
54 FW1G CALL O$AC
55 CALL O$AP
56 FW1H *** **
57 IRS FW1A
58 JMP* FW1A
59 FW1J DAC **
60 CALL O$AF
61 IRS CNTR
62 JMP* FW1J
63 LDA =-17
64 STA CNTR
65 *
66 FW1K CALL O$AF
67 IRS CNTR
68 JMP FW1K
69 LDA =-60
70 STA CNTR
71 JMP* FW1J
72 CNTR OCT -60
73 FW1L LDA ='377
74 LLL 8
75 STA* FW1H
76 JMP FW1G+1
77 END
78
79
80