projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Einige OCPs dazu gemacht.
[h316.git]
/
lib
/
fortran
/
src
/
f$w4.asm
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