File: EDITOR.LS of Disk: V50/Source/Source-Listing-PAL-1
(Source file text)
/EDIT HANDLER PAL8-V50A 30-MAI-87 PAGE 1 /EDIT HANDLER / / / / / / / / / /COPYRIGHT (C) 2013 W. VAN DER MARK (WVDMARK) / / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY WVDMARK. WVDMARK ASSUMES /NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF WVDMARK'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY WVDMARK. / /WVDMARK ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS /SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY WVDMARK. / / / / / / / / / / EDITOR HANDLER VERSION A PAL8-V50A 30-MAI-87 PAGE 1-1 EJECT EDITOR HANDLER VERSION A /EDIT HANDLER 6660 PSXX=6660 /EDOU LIKE PTP 6661 PSKF=6661 6662 PCLF=6662 6663 PSKE=6663 6664 PSTB=6664 6665 PSIE=6665 6666 PCLP=6666 6667 PCIE=6667 6570 DBST=6570 /LA180 LINEPRINTER, SKIP OUT AND CLEAR 6571 DBSK=6571 /SKIP IN READY 6572 DBRD=6572 /READ DATA IN 6573 DBCF=6573 /CLEAR IN READY AND READ 6574 DBTD=6574 /WRITE DATA OUT 6575 DBSE=6575 /INT ENA 6576 DBCE=6576 /INT DIS 6577 DBSS=6577 /STROBE OUT 0000 *0 000000 7776 -2 000001 0504 DEVICE EDIT;DEVICE EDOU;1430;EDO&177;ZBLOCK 2 000002 1124 000003 0504 000004 1725 000005 1430 000006 0000 000007 0000 000011 0504 DEVICE EDIT;DEVICE EDIN;2440;EDI&177;ZBLOCK 2 000012 1124 000013 0504 000014 1116 000015 2440 000016 0117 000017 0000 0030 VERSION="X&77 EDITOR HANDLER VERSION A PAL8-V50A 30-MAI-87 PAGE 2 0200 *200 000200 0030 EDO, VERSION 000201 7320 CLA CLL CML /SET LINK ON TO INDICATE PUNCH 000202 4233 JMS ESETUP /DO COMMON CRAP 000203 1777 EDOLP, TAD I EDOCA 000204 4277 JMS EDOPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1 000205 3317 DCA EDI 000206 2377 ISZ EDOCA 000207 1777 TAD I EDOCA 000210 4277 JMS EDOPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2 000211 7112 CLL RTR 000212 7012 RTR 000213 1317 TAD EDI 000214 7012 RTR 000215 7012 RTR /THIRD CHARACTER NOW IN AC 000216 4277 JMS EDOPCH 000217 2377 EDOEND, ISZ EDOCA 000220 0070 ED70, 70 /JUST IN CASE WERE PUNCHING PG 7600 /KEEP THIS LITERAL HERE 000221 6031 KSF 000222 5267 JMP EDOISZ /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C 000223 6034 EDOKRS, KRS 000224 0232 EDO232, AND EDO177 000225 1375 TAD EDOM3 000226 7640 SZA CLA /IS THERE A ^C IN THE TTY BUFFER? 000227 5267 JMP EDOISZ /NO 000230 6203 EDOCIF, CDF CIF 0 000231 5766 JMP I ED7600 000232 0177 EDO177, 177 EDITOR HANDLER VERSION A PAL8-V50A 30-MAI-87 PAGE 3 000233 0000 ESETUP, 0 000234 6214 RDF /GET FIELD OF CALLING PROGRAM 000235 1230 TAD EDOCIF 000236 3275 DCA EDOXIT /SET UP RETURN SEQUENCE 000237 1600 TAD I EDO 000240 0220 AND ED70 000241 1374 TAD EDPCDF 000242 3257 DCA EDOCDF 000243 7010 RAR /GET LINK(1=EDO,0=EDI) 000244 1600 TAD I EDO /GET FUNCTION WORD 000245 2200 ISZ EDO 000246 7510 SPA /CHECK CORRECT MODE 000247 5364 JMP EDOERR /SIGNAL "UNRECOVERABLE DEVICE ERROR" 000250 0351 AND ED7700 000251 7040 CMA /SET UP -(WORD COUNT)/2-1 000252 3376 DCA EDOWC 000253 1600 TAD I EDO /SET UP STARTING ADDRESS 000254 2200 ISZ EDO 000255 3377 DCA EDOCA 000256 1600 TAD I EDO 000257 0000 EDOCDF, 0 /SET DATA FIELD TO ACCESS BUFFER 0257 EDOEOF=EDOCDF 000260 7640 SZA CLA 000261 5223 JMP EDOKRS 000262 7620 SNL CLA 000263 5223 JMP EDOKRS 000264 6660 EDOCLR, PSXX /CLEAR LINE PRINTER OUTPUT 000265 6661 PSKF 000266 5265 JMP .-1 000267 2376 EDOISZ, ISZ EDOWC 000270 5633 JMP I ESETUP /LOOP FOR BUFFER SIZE (128 WORDS) 000271 1257 EDORTN, TAD EDOEOF 000272 7640 SZA CLA /DID WE RUN OUT OF TAPE? 000273 2200 ISZ EDO 000274 2200 ISZ EDO 000275 7402 EDOXIT, HLT /EXIT CDF GOES HERE 000276 5600 JMP I EDO 000277 0000 EDOPCH, 0 000300 3347 DCA EDIGCH 000301 1347 TAD EDIGCH 000302 7450 SNA 000303 5677 JMP I EDOPCH /IGNORE NULLS 000304 0232 AND EDO177 000305 1372 TAD EDM177 /TEST FOR RUBOUT 000306 7640 SZA CLA /IGNORE THEM ALSO 000307 1373 TAD EDO377 000310 1344 TAD ED7400 000311 0347 AND EDIGCH 000312 6666 PCLP /NOTICE THE GLORIOUS LACK OF OVERLAP 000313 6661 PSKF 000314 5313 JMP .-1 EDITOR HANDLER VERSION A PAL8-V50A 30-MAI-87 PAGE 3-1 000315 0344 AND ED7400 000316 5677 JMP I EDOPCH EDITOR HANDLER VERSION A PAL8-V50A 30-MAI-87 PAGE 4 000317 0030 EDI, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED! 000320 7300 CLA CLL /CLEAR LINK FOR INPUT 000321 1317 TAD EDI 000322 3200 DCA EDO 000323 4233 JMS ESETUP /SET UP ADDRESS, COUNT, FIELDS 000324 4347 EDILP, JMS EDIGCH /READ FIRST CHARACTER OF 3 000325 3777 DCA I EDOCA 000326 4347 JMS EDIGCH 000327 3277 DCA EDOPCH 000330 4347 JMS EDIGCH 000331 7006 RTL 000332 7006 RTL 000333 0344 AND ED7400 000334 1777 TAD I EDOCA 000335 3777 DCA I EDOCA /HIGH ORDER 4 BITS INTO WORD 1 000336 1317 TAD EDI /GET THE CHAR FROM THE EDI BUFFER 000337 7002 BSW 000340 7006 RTL /PUT THE LOW ORDER BITS INTO AC 0-3 000341 0344 AND ED7400 000342 1277 TAD EDOPCH 000343 2377 ISZ EDOCA 000344 7400 ED7400, 7400 000345 3777 DCA I EDOCA /LOW ORDER 4 BITS INTO WORD 2 000346 5217 JMP EDOEND 000347 0000 EDIGCH, 0 000350 1257 TAD EDOEOF 000351 7700 ED7700, SMA CLA /INITIALIZED WITH 62X1 000352 5361 JMP EDIEXI /MAKE SURE BUFFER IS ZEROED 000353 6573 DBCF /WAS RRFC 000354 6571 DBSK /WAS RSKF 000355 5354 JMP .-1 /READER NOT READY - CHECK TIMING 000356 6572 DBRD /WAS RRRB - READER READY - READ CHAR 000357 7510 SPA 000360 5366 JMP ED7600 /END OF FILE 000361 3317 EDIEXI, DCA EDI 000362 1317 TAD EDI 000363 5747 JMP I EDIGCH /AND RETURN 000364 7330 EDOERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE 000365 5273 JMP EDOXIT-2 000366 7600 ED7600, 7600 /ALSO CLEARS AC 000367 3257 DCA EDOEOF 000370 1224 TAD EDO232 /SEND ^Z TO BUFFER 000371 5361 JMP EDIEXI 000372 7601 EDM177, -177 000373 0377 EDO377, 377 000374 6201 EDPCDF, CDF 0 000375 7775 EDOM3, -3 000376 0000 EDOWC, 0 000377 0000 EDOCA, 0 $ PAL8-V50A 30-MAI-87 PAGE 5 $ $ PAL8-V50A 30-MAI-87 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 0030 ERRORS DETECTED: 0 LINKS GENERATED: 0