Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 |