File: EDITOR.LS of Disk: Disks/Working/MyProgs-22-04-07
(Source file text)
/EDIT HANDLER PAL8-V10A 06-MAR-85 PAGE 1
1 /EDIT HANDLER
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /
10 /
11 /COPYRIGHT (C) 2013 W. VAN DER MARK (WVDMARK)
12 /
13 /
14 /
15 /
16 /
17 /
18 /
19 /
20 /
21 /
22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY WVDMARK. WVDMARK ASSUMES
24 /NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
25 /
26 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
27 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
28 /(WITH INCLUSION OF WVDMARK'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
29 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY WVDMARK.
30 /
31 /WVDMARK ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
32 /SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY WVDMARK.
33 /
34 /
35 /
36 /
37 /
38 /
39 /
40 /
41 /
42 /
EDITOR HANDLER VERSION A PAL8-V10A 06-MAR-85 PAGE 1-1
43 EJECT EDITOR HANDLER VERSION A
44
45 /EDIT HANDLER
46
47 6660 PSXX=6660 /EDOU LIKE PTP
48 6661 PSKF=6661
49 6662 PCLF=6662
50 6663 PSKE=6663
51 6664 PSTB=6664
52 6665 PSIE=6665
53 6666 PCLP=6666
54 6667 PCIE=6667
55
56 6570 DBST=6570 /LA180 LINEPRINTER, SKIP OUT AND CLEAR
57 6571 DBSK=6571 /SKIP IN READY
58 6572 DBRD=6572 /READ DATA IN
59 6573 DBCF=6573 /CLEAR IN READY AND READ
60 6574 DBTD=6574 /WRITE DATA OUT
61 6575 DBSE=6575 /INT ENA
62 6576 DBCE=6576 /INT DIS
63 6577 DBSS=6577 /STROBE OUT
64
65 0000 *0
66 00000 7776 -2
67 00001 0504 DEVICE EDIT;DEVICE EDOU;1430;EDO&177;ZBLOCK 2
68 00002 1124
69 00003 0504
70 00004 1725
71 00005 1430
72 00006 0000
73 00007 0000
74 00011 0504 DEVICE EDIT;DEVICE EDIN;2440;EDI&177;ZBLOCK 2
75 00012 1124
76 00013 0504
77 00014 1116
78 00015 2440
79 00016 0117
80 00017 0000
81
82
83 0001 VERSION="A&77
EDITOR HANDLER VERSION A PAL8-V10A 06-MAR-85 PAGE 2
84
85
86 0200 *200
87 00200 0001 EDO, VERSION
88 00201 7320 CLA CLL CML /SET LINK ON TO INDICATE PUNCH
89 00202 4233 JMS ESETUP /DO COMMON CRAP
90 00203 1777 EDOLP, TAD I EDOCA
91 00204 4277 JMS EDOPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1
92 00205 3317 DCA EDI
93 00206 2377 ISZ EDOCA
94 00207 1777 TAD I EDOCA
95 00210 4277 JMS EDOPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2
96 00211 7112 CLL RTR
97 00212 7012 RTR
98 00213 1317 TAD EDI
99 00214 7012 RTR
100 00215 7012 RTR /THIRD CHARACTER NOW IN AC
101 00216 4277 JMS EDOPCH
102 00217 2377 EDOEND, ISZ EDOCA
103 00220 0070 ED70, 70 /JUST IN CASE WERE PUNCHING PG 7600
104 /KEEP THIS LITERAL HERE
105 00221 6031 KSF
106 00222 5267 JMP EDOISZ /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C
107 00223 6034 EDOKRS, KRS
108 00224 0232 EDO232, AND EDO177
109 00225 1375 TAD EDOM3
110 00226 7640 SZA CLA /IS THERE A ^C IN THE TTY BUFFER?
111 00227 5267 JMP EDOISZ /NO
112 00230 6203 EDOCIF, CDF CIF 0
113 00231 5766 JMP I ED7600
114 00232 0177 EDO177, 177
EDITOR HANDLER VERSION A PAL8-V10A 06-MAR-85 PAGE 3
115
116
117 00233 0000 ESETUP, 0
118 00234 6214 RDF /GET FIELD OF CALLING PROGRAM
119 00235 1230 TAD EDOCIF
120 00236 3275 DCA EDOXIT /SET UP RETURN SEQUENCE
121 00237 1600 TAD I EDO
122 00240 0220 AND ED70
123 00241 1374 TAD EDPCDF
124 00242 3257 DCA EDOCDF
125 00243 7010 RAR /GET LINK(1=EDO,0=EDI)
126 00244 1600 TAD I EDO /GET FUNCTION WORD
127 00245 2200 ISZ EDO
128 00246 7510 SPA /CHECK CORRECT MODE
129 00247 5364 JMP EDOERR /SIGNAL "UNRECOVERABLE DEVICE ERROR"
130 00250 0351 AND ED7700
131 00251 7040 CMA /SET UP -(WORD COUNT)/2-1
132 00252 3376 DCA EDOWC
133 00253 1600 TAD I EDO /SET UP STARTING ADDRESS
134 00254 2200 ISZ EDO
135 00255 3377 DCA EDOCA
136 00256 1600 TAD I EDO
137 00257 0000 EDOCDF, 0 /SET DATA FIELD TO ACCESS BUFFER
138 0257 EDOEOF=EDOCDF
139 00260 7640 SZA CLA
140 00261 5223 JMP EDOKRS
141 00262 7620 SNL CLA
142 00263 5223 JMP EDOKRS
143 00264 6660 EDOCLR, PSXX /CLEAR LINE PRINTER OUTPUT
144 00265 6661 PSKF
145 00266 5265 JMP .-1
146 00267 2376 EDOISZ, ISZ EDOWC
147 00270 5633 JMP I ESETUP /LOOP FOR BUFFER SIZE (128 WORDS)
148 00271 1257 EDORTN, TAD EDOEOF
149 00272 7640 SZA CLA /DID WE RUN OUT OF TAPE?
150 00273 2200 ISZ EDO
151 00274 2200 ISZ EDO
152 00275 7402 EDOXIT, HLT /EXIT CDF GOES HERE
153 00276 5600 JMP I EDO
154
155 00277 0000 EDOPCH, 0
156 00300 3347 DCA EDIGCH
157 00301 1347 TAD EDIGCH
158 00302 7450 SNA
159 00303 5677 JMP I EDOPCH /IGNORE NULLS
160 00304 0232 AND EDO177
161 00305 1372 TAD EDM177 /TEST FOR RUBOUT
162 00306 7640 SZA CLA /IGNORE THEM ALSO
163 00307 1373 TAD EDO377
164 00310 1344 TAD ED7400
165 00311 0347 AND EDIGCH
166 00312 6666 PCLP /NOTICE THE GLORIOUS LACK OF OVERLAP
167 00313 6661 PSKF
168 00314 5313 JMP .-1
169 00315 0344 AND ED7400
EDITOR HANDLER VERSION A PAL8-V10A 06-MAR-85 PAGE 3-1
170 00316 5677 JMP I EDOPCH
EDITOR HANDLER VERSION A PAL8-V10A 06-MAR-85 PAGE 4
171
172
173 00317 0001 EDI, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED!
174 00320 7300 CLA CLL /CLEAR LINK FOR INPUT
175 00321 1317 TAD EDI
176 00322 3200 DCA EDO
177 00323 4233 JMS ESETUP /SET UP ADDRESS, COUNT, FIELDS
178 00324 4347 EDILP, JMS EDIGCH /READ FIRST CHARACTER OF 3
179 00325 3777 DCA I EDOCA
180 00326 4347 JMS EDIGCH
181 00327 3277 DCA EDOPCH
182 00330 4347 JMS EDIGCH
183 00331 7006 RTL
184 00332 7006 RTL
185 00333 0344 AND ED7400
186 00334 1777 TAD I EDOCA
187 00335 3777 DCA I EDOCA /HIGH ORDER 4 BITS INTO WORD 1
188 00336 1317 TAD EDI /GET THE CHAR FROM THE EDI BUFFER
189 00337 7002 BSW
190 00340 7006 RTL /PUT THE LOW ORDER BITS INTO AC 0-3
191 00341 0344 AND ED7400
192 00342 1277 TAD EDOPCH
193 00343 2377 ISZ EDOCA
194 00344 7400 ED7400, 7400
195 00345 3777 DCA I EDOCA /LOW ORDER 4 BITS INTO WORD 2
196 00346 5217 JMP EDOEND
197
198 00347 0000 EDIGCH, 0
199 00350 1257 TAD EDOEOF
200 00351 7700 ED7700, SMA CLA /INITIALIZED WITH 62X1
201 00352 5361 JMP EDIEXI /MAKE SURE BUFFER IS ZEROED
202 00353 6573 DBCF /WAS RRFC
203 00354 6571 DBSK /WAS RSKF
204 00355 5354 JMP .-1 /READER NOT READY - CHECK TIMING
205 00356 6572 DBRD /WAS RRRB - READER READY - READ CHAR
206 00357 7510 SPA
207 00360 5366 JMP ED7600 /END OF FILE
208 00361 3317 EDIEXI, DCA EDI
209 00362 1317 TAD EDI
210 00363 5747 JMP I EDIGCH /AND RETURN
211 00364 7330 EDOERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE
212 00365 5273 JMP EDOXIT-2
213
214 00366 7600 ED7600, 7600 /ALSO CLEARS AC
215 00367 3257 DCA EDOEOF
216 00370 1224 TAD EDO232 /SEND ^Z TO BUFFER
217 00371 5361 JMP EDIEXI
218
219 00372 7601 EDM177, -177
220 00373 0377 EDO377, 377
221 00374 6201 EDPCDF, CDF 0
222 00375 7775 EDOM3, -3
223 00376 0000 EDOWC, 0
224 00377 0000 EDOCA, 0
$ PAL8-V10A 06-MAR-85 PAGE 5
225 $
$ PAL8-V10A 06-MAR-85 PAGE 6
DBCE 6576
DBCF 6573
DBRD 6572
DBSE 6575
DBSK 6571
DBSS 6577
DBST 6570
DBTD 6574
EDI 0317
EDIEXI 0361
EDIGCH 0347
EDILP 0324
EDM177 0372
EDO 0200
EDOCA 0377
EDOCDF 0257
EDOCIF 0230
EDOCLR 0264
EDOEND 0217
EDOEOF 0257
EDOERR 0364
EDOISZ 0267
EDOKRS 0223
EDOLP 0203
EDOM3 0375
EDOPCH 0277
EDORTN 0271
EDOWC 0376
EDOXIT 0275
EDO177 0232
EDO232 0224
EDO377 0373
EDPCDF 0374
ED70 0220
ED7400 0344
ED7600 0366
ED7700 0351
ESETUP 0233
PCIE 6667
PCLF 6662
PCLP 6666
PSIE 6665
PSKE 6663
PSKF 6661
PSTB 6664
PSXX 6660
VERSIO 0001
ERRORS DETECTED: 0
LINKS GENERATED: 0
DBCE 62#
DBCF 59# 202
DBRD 58# 205
DBSE 61#
DBSK 57# 203
DBSS 63#
DBST 56#
DBTD 60#
EDI 77 92 98 173# 175 188 208 209
EDIEXI 201 208# 217
EDIGCH 156 157 165 178 180 182 198# 210
EDILP 178#
EDIN 75
EDIT 67 74
EDM177 161 219#
EDO 70 87# 121 126 127 133 134 136 150 151
153 176
EDOCA 90 93 94 102 135 179 186 187 193 195
224#
EDOCDF 124 137# 138
EDOCIF 112# 119
EDOCLR 143#
EDOEND 102# 196
EDOEOF 138# 148 199 215
EDOERR 129 211#
EDOISZ 106 111 146#
EDOKRS 107# 140 142
EDOLP 90#
EDOM3 109 222#
EDOPCH 91 95 101 155# 159 170 181 192
EDORTN 148#
EDOU 68
EDOWC 132 146 223#
EDOXIT 120 152# 212
EDO177 108 114# 160
EDO232 108# 216
EDO377 163 220#
EDPCDF 123 221#
ED70 103# 122
ED7400 164 169 185 191 194#
ED7600 113 207 214#
ED7700 130 200#
ESETUP 89 117# 147 177
PCIE 54#
PCLF 49#
PCLP 53# 166
PSIE 52#
PSKE 50#
PSKF 48# 144 167
PSTB 51#
PSXX 47# 143
VERSIO 83# 87 173
V5A