projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
sw
/
os8
/
v3d
/
sources
/
fortran
/
all
/
chars.ra
1
/
2
/ VERSION 5A 4-27-77 PT
3
/
4
SECT CHARS
5
ENTRY CGET
6
ENTRY CPUT
7
TEXT +CHARS+
8
CHARXR, SETX XRCHAR
9
SETB BPCHAR
10
BPCHAR, F 0.
11
XRCHAR, F 0.
12
FROM, F 0.
13
NCHAR, F 0.
14
ORG 10*3+BPCHAR
15
FNOP
16
JA CHARXR
17
0
18
CHARTN, JA .
19
BASE 0
20
START, JA .
21
STARTD
22
FLDA 10*3
23
FSTA CHARTN
24
FLDA 0
25
SETX XRCHAR
26
SETB BPCHAR
27
BASE BPCHAR
28
LDX 1,1
29
FSTA BPCHAR /STR SAVED IN BPCHAR
30
FLDA% BPCHAR,1
31
FSTA STR
32
FLDA% BPCHAR,1+
33
FSTA NCHAR
34
FLDA% BPCHAR,1+
35
FSTA FROM /ADDR OF F
36
STARTF
37
FLDA% NCHAR
38
ATX 0
39
JA START
40
/
41
CGET, JSA START
42
TRAP4 CGETIT
43
XTA 0
44
FSTA% FROM /TO 3 WORDS
45
JA CHARTN
46
/
47
CPUT, JSA START
48
FLDA% FROM
49
ATX 1
50
FCLA
51
TRAP4 CPUTIT
52
JA CHARTN
53
/
54
SECT8 CHAR /ALL IN 1 PAGE
55
CGETIT, 0
56
JMS FLDRTN
57
TAD O2FLD
58
DCA ORGFLD
59
TAD XFLD
60
DCA XR2FLD
61
TAD PFLD
62
DCA GFLD
63
GFLD, 0 /STR FIELD
64
TAD% STR-1
65
ORGFLD, 0 /THIS ROUTINE
66
DCA LOC
67
TAD XR /N
68
RAR
69
SNL CLA
70
JMP RIGHT
71
CLL
72
TAD LOC
73
RTR
74
RTR
75
RTR
76
BOTH, AND P77
77
XR2FLD, 0
78
DCA% QXR+1 /PASS TO FPP
79
CDF CIF 0
80
JMP% CGETIT
81
RIGHT, TAD LOC
82
JMP BOTH
83
CADD, ADDR CGETIT
84
0
85
STR, 0
86
0
87
/
88
CPUTIT, 0
89
JMS FLDRTN
90
TAD QXR1
91
AND P7
92
RTL
93
RAL
94
TAD CDFINS
95
DCA XR1FLD
96
TAD O2FLD
97
DCA O1FLD
98
TAD O2FLD
99
DCA O3FLD
100
TAD PFLD
101
DCA P1FLD
102
XR1FLD, 0
103
TAD% QXR1+1 /F VALUE
104
O1FLD, 0
105
AND P77
106
DCA LOC
107
P1FLD, 0
108
TAD% STR-1
109
O3FLD, 0
110
DCA XR1FLD /USE AS A TMP
111
TAD XR
112
RAR
113
SNL CLA
114
JMP PRIGHT
115
CLL
116
TAD XR1FLD
117
AND P77 /SAVE RIGHT HALF
118
DCA XR1FLD
119
TAD LOC
120
RTL
121
RTL
122
RTL
123
TAD XR1FLD
124
PFLD, 0
125
DCA% STR-1
126
CIF CDF 0
127
JMP% CPUTIT
128
PRIGHT, TAD XR1FLD
129
AND P7700
130
TAD LOC
131
JMP PFLD
132
/
133
FLDRTN, 0
134
TAD CADD
135
AND P7
136
RTL
137
RAL
138
TAD CDFINS
139
DCA O2FLD
140
TAD QXR
141
AND P7
142
RAL
143
RTL
144
TAD CDFINS
145
DCA XFLD
146
XFLD, 0
147
TAD% QXR+1
148
O2FLD, 0
149
DCA XR
150
TAD XR
151
RAR
152
SNL
153
TAD M1
154
CLL
155
TAD STR+1
156
DCA STR-1
157
SZL CLA
158
IAC
159
CLL
160
TAD STR
161
AND P7
162
RAL
163
RTL
164
TAD CDFINS
165
DCA PFLD /STR FLD
166
JMP% FLDRTN
167
P77, 77
168
CDFINS, 6203
169
P7, 7
170
QXR, ADDR XRCHAR
171
LOC, 0
172
XR, 0
173
M1, -1
174
QXR1, ADDR XRCHAR+1
175
P7700, 7700
176
\f