File: EDITO2.LS of Disk: Disks/Build-2007/Build-11-03-07
(Source file text)
/EDIT HANDLER PAL8-V10A 04-MAY-84 PAGE 1
/EDIT HANDLER
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION. DIGITAL EQUIPMENT CORPORATION 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 DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/
/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
/EDIT HANDLER PAL8-V10A 04-MAY-84 PAGE 1-1
6651 RSKF=6651 / EDIN like PTR
6652 RRRB=6652
6653 RSKE=6653
6654 RRFC=6654
6656 RFRB=6656
0000 *0
00000 7776 -2
00001 0504 DEVICE EDIT;DEVICE EDOU;1430;EDO&177;ZBLOCK 2
00002 1124
00003 0504
00004 1725
00005 1430
00006 0000
00007 0000
00011 0504 DEVICE EDIT;DEVICE EDIN;2440;EDI&177;ZBLOCK 2
00012 1124
00013 0504
00014 1116
00015 2440
00016 0114
00017 0000
0001 VERSION="A&77
0200 *200
00200 0001 EDO, VERSION
00201 7320 CLA CLL CML /SET LINK ON TO INDICATE PUNCH
00202 4233 JMS ESETUP /DO COMMON CRAP
00203 1713 EDOLP, TAD I EDOCA
00204 4303 JMS EDOPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1
00205 3314 DCA EDI
00206 2313 ISZ EDOCA
00207 1713 TAD I EDOCA
00210 4303 JMS EDOPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2
00211 7112 CLL RTR
00212 7012 RTR
00213 1314 TAD EDI
00214 7012 RTR
00215 7012 RTR /THIRD CHARACTER NOW IN AC
00216 4303 JMS EDOPCH
00217 2313 EDOEND, ISZ EDOCA
00220 0070 ED70, 70 /JUST IN CASE WERE PUNCHING PG 7600
/KEEP THIS LITERAL HERE
00221 6031 KSF
00222 5267 JMP EDOISZ /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C
00223 6034 EDOKRS, KRS
00224 0353 AND EDO177
00225 1377 TAD EDOM3
00226 7640 SZA CLA /IS THERE A ^C IN THE TTY BUFFER?
00227 5267 JMP EDOISZ /NO
00230 6203 EDOCIF, CDF CIF 0
/EDIT HANDLER PAL8-V10A 04-MAY-84 PAGE 1-2
00231 5632 JMP I .+1
00232 7600 7600
00233 0000 ESETUP, 0
00234 6214 RDF /GET FIELD OF CALLING PROGRAM
00235 1230 TAD EDOCIF
00236 3275 DCA EDOXIT /SET UP RETURN SEQUENCE
00237 1600 TAD I EDO
00240 0220 AND ED70
00241 1374 TAD PCDF
00242 3257 DCA EDOCDF
00243 7010 RAR /GET LINK(1=EDO,0=EDI)
00244 1600 TAD I EDO /GET FUNCTION WORD
00245 2200 ISZ EDO
00246 7510 SPA /CHECK CORRECT MODE
00247 5372 JMP EDOERR /SIGNAL "UNRECOVERABLE DEVICE ERROR"
00250 0347 AND ED7700
00251 7040 CMA /SET UP -(WORD COUNT)/2-1
00252 3376 DCA EDOWC
00253 1600 TAD I EDO /SET UP STARTING ADDRESS
00254 2200 ISZ EDO
00255 3313 DCA EDOCA
00256 1600 TAD I EDO
00257 0000 EDOCDF, 0 /SET DATA FIELD TO ACCESS BUFFER
0257 EDOEOF=EDOCDF
00260 7640 SZA CLA
00261 5223 JMP EDOKRS
00262 7630 SZL CLA
00263 5277 JMP EDOCLR
00264 4345 JMS EDIGCH /INITIALIZE THE EDI BUFFER CHAR
00265 6032 6032 /CLEAR AC AND KEYBOARD FLAG
00266 5223 JMP EDOKRS /CHECK FOR ^C
00267 2376 EDOISZ, ISZ EDOWC
00270 5633 JMP I ESETUP /LOOP FOR BUFFER SIZE (128 WORDS)
00271 1257 EDORTN, TAD EDOEOF
00272 7640 SZA CLA /DID WE RUN OUT OF TAPE?
00273 2200 ISZ EDO
00274 2200 ISZ EDO
00275 7402 EDOXIT, HLT /EXIT CDF GOES HERE
00276 5600 JMP I EDO
00277 6660 EDOCLR, PSXX /CLEAR LINE PRINTER OUTPUT
00300 6661 PSKF
00301 5300 JMP .-1
00302 5223 JMP EDOKRS
00303 0000 EDOPCH, 0
00304 7450 SNA
00305 5703 JMP I EDOPCH /IGNORE NULLS
00306 6666 PCLP /NOTICE THE GLORIOUS LACK OF OVERLAP
00307 6661 PSKF
00310 5307 JMP .-1
00311 0342 AND ED7400
00312 5703 JMP I EDOPCH
00313 0000 EDOCA, 0
/EDIT HANDLER PAL8-V10A 04-MAY-84 PAGE 1-3
00314 0001 EDI, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED!
00315 7300 CLA CLL
00316 1314 TAD EDI
00317 3200 DCA EDO
00320 4233 JMS ESETUP /SET UP ADDRESS, COUNT, FIELDS
00321 4345 EDILP, JMS EDIGCH /READ FIRST CHARACTER OF 3
00322 3713 DCA I EDOCA
00323 4345 JMS EDIGCH
00324 3303 DCA EDOPCH
00325 4345 JMS EDIGCH
00326 7006 RTL
00327 7006 RTL
00330 0342 AND ED7400
00331 1713 TAD I EDOCA
00332 3713 DCA I EDOCA /HIGH ORDER 4 BITS INTO WORD 1
00333 1314 TAD EDI /GET THE CHAR FROM THE EDI BUFFER
00334 7012 RTR
00335 7012 RTR
00336 7010 RAR /PUT THE LOW ORDER BITS INTO AC 0-3
00337 0342 AND ED7400
00340 1303 TAD EDOPCH
00341 2313 ISZ EDOCA
00342 7400 ED7400, 7400
00343 3713 DCA I EDOCA /LOW ORDER 4 BITS INTO WORD 2
00344 5217 JMP EDOEND
00345 0000 EDIGCH, 0
00346 1257 TAD EDOEOF
00347 7700 ED7700, SMA CLA /INITIALIZED WITH 62X1
00350 5360 JMP ED0BFR /MAKE SURE BUFFER IS ZEROED
00351 6654 RRFC
00352 0232 EDO232, 232 /FALL THROUGH CONSTANTS TO STALL FOR TIME
00353 0177 EDO177, 177
00354 6653 EDTIME, RSKE /END OF FILE?
00355 5362 JMP EDCHLP
00356 3257 DCA EDOEOF
00357 1352 TAD EDO232 /SEND ^Z TO BUFFER
00360 3314 ED0BFR, DCA EDI
00361 5367 JMP EDIXX /AND 0 GARBAGE CHARACTER
00362 1375 EDCHLP, TAD EDOTMP
00363 3314 DCA EDI
00364 6651 RSKF
00365 5354 JMP EDTIME /READER NOT READY - CHECK TIMING
00366 6652 RRRB /READER READY - READ CHAR
00367 3375 EDIXX, DCA EDOTMP /BUFFER READER BY ONE CHARACTER TO ELIMINATE
00370 1314 TAD EDI /GARBAGE CHARACTER AT END OF TAPE
00371 5745 JMP I EDIGCH /AND RETURN
00372 7330 EDOERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE
00373 5273 JMP EDOXIT-2
00374 6201 PCDF, CDF 0
00375 0000 EDOTMP, 0
00376 0000 EDOWC, 0
00377 7775 EDOM3, -3
$$$$$$$$
/EDIT HANDLER PAL8-V10A 04-MAY-84 PAGE 2
EDCHLP 0362
EDI 0314
EDIGCH 0345
EDILP 0321
EDIXX 0367
EDO 0200
EDOCA 0313
EDOCDF 0257
EDOCIF 0230
EDOCLR 0277
EDOEND 0217
EDOEOF 0257
EDOERR 0372
EDOISZ 0267
EDOKRS 0223
EDOLP 0203
EDOM3 0377
EDOPCH 0303
EDORTN 0271
EDOTMP 0375
EDOWC 0376
EDOXIT 0275
EDO177 0353
EDO232 0352
EDTIME 0354
ED0BFR 0360
ED70 0220
ED7400 0342
ED7700 0347
ESETUP 0233
PCDF 0374
PCIE 6667
PCLF 6662
PCLP 6666
PSIE 6665
PSKE 6663
PSKF 6661
PSTB 6664
PSXX 6660
RFRB 6656
RRFC 6654
RRRB 6652
RSKE 6653
RSKF 6651
VERSIO 0001
ERRORS DETECTED: 0
LINKS GENERATED: 0