*** empty log message ***
[h316.git] / lib / fortran / src / f$w1.asm
CommitLineData
c08e22bb 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
21FW1 DAC **
22 CALL F$IO
23FW1A 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
41FW1B JST FW1J
42 JMP FW1G
43FW1C JST FW1J
44 CAS =-60
45 JMP FW1C
46 JMP FW1F
47 JMP FW1C
48FW1D JST FW1J
49FW1E JST FW1J
50FW1F LDA* FW1H
51 ANA ='377
52 ERA ='120000
53 STA* FW1H
54FW1G CALL O$AC
55 CALL O$AP
56FW1H *** **
57 IRS FW1A
58 JMP* FW1A
59FW1J DAC **
60 CALL O$AF
61 IRS CNTR
62 JMP* FW1J
63 LDA =-17
64 STA CNTR
65*
66FW1K CALL O$AF
67 IRS CNTR
68 JMP FW1K
69 LDA =-60
70 STA CNTR
71 JMP* FW1J
72CNTR OCT -60
73FW1L LDA ='377
74 LLL 8
75 STA* FW1H
76 JMP FW1G+1
77 END
78
79
80