File: XX of Disk: Disks/Build-2007/Build-11-03-07
(Source file text)
/EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 1
/EDIT HANDLER
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/WIM
/
/
/
/
/
/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 11-MAR-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 0113
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 1712 EDOLP, TAD I EDOCA
00204 4302 JMS EDOPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1
00205 3313 DCA EDI
00206 2312 ISZ EDOCA
00207 1712 TAD I EDOCA
00210 4302 JMS EDOPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2
00211 7112 CLL RTR
00212 7012 RTR
00213 1313 TAD EDI
00214 7012 RTR
00215 7012 RTR /THIRD CHARACTER NOW IN AC
00216 4302 JMS EDOPCH
00217 2312 EDOEND, ISZ EDOCA
00220 0070 ED70, 70 /JUST IN CASE WERE PUNCHING PG 7600
/KEEP THIS LITERAL HERE
00221 6031 KSF
00222 5272 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 5272 JMP EDOISZ /NO
00230 6203 EDOCIF, CDF CIF 0
/EDIT HANDLER PAL8-V10A 11-MAR-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 3300 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 0346 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 3312 DCA EDOCA
00256 1600 TAD I EDO
00257 0000 EDOCDF, 0 /SET DATA FIELD TO ACCESS BUFFER
0257 EDOEOF=EDOCDF
00260 7650 SNA CLA
00261 7630 SZL CLA
00262 5223 JMP EDOKRS
00263 1352 TAD EDO336 /INPUT INITIALIZATION - TYPE "^" AND WAIT
00264 6046 TLS
00265 6031 KSF
00266 5265 JMP .-1
00267 4344 JMS EDIGCH /INITIALIZE THE EDI BUFFER CHAR
00270 6032 6032 /CLEAR AC AND KEYBOARD FLAG
00271 5223 JMP EDOKRS /CHECK FOR ^C
00272 2376 EDOISZ, ISZ EDOWC
00273 5633 JMP I ESETUP /LOOP FOR BUFFER SIZE (128 WORDS)
00274 1257 EDORTN, TAD EDOEOF
00275 7640 SZA CLA /DID WE RUN OUT OF TAPE?
00276 2200 ISZ EDO
00277 2200 ISZ EDO
00300 7402 EDOXIT, HLT /EXIT CDF GOES HERE
00301 5600 JMP I EDO
00302 0000 EDOPCH, 0
00303 7450 SNA
00304 5702 JMP I EDOPCH /IGNORE NULLS
00305 6666 PCLP /NOTICE THE GLORIOUS LACK OF OVERLAP
00306 6661 PSKF
00307 5306 JMP .-1
00310 0341 AND ED7400
00311 5702 JMP I EDOPCH
00312 0000 EDOCA, 0
00313 0001 EDI, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED!
/EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 1-3
00314 7300 CLA CLL
00315 1313 TAD EDI
00316 3200 DCA EDO
00317 4233 JMS ESETUP /SET UP ADDRESS, COUNT, FIELDS
00320 4344 EDILP, JMS EDIGCH /READ FIRST CHARACTER OF 3
00321 3712 DCA I EDOCA
00322 4344 JMS EDIGCH
00323 3302 DCA EDOPCH
00324 4344 JMS EDIGCH
00325 7006 RTL
00326 7006 RTL
00327 0341 AND ED7400
00330 1712 TAD I EDOCA
00331 3712 DCA I EDOCA /HIGH ORDER 4 BITS INTO WORD 1
00332 1313 TAD EDI /GET THE CHAR FROM THE EDI BUFFER
00333 7012 RTR
00334 7012 RTR
00335 7010 RAR /PUT THE LOW ORDER BITS INTO AC 0-3
00336 0341 AND ED7400
00337 1302 TAD EDOPCH
00340 2312 ISZ EDOCA
00341 7400 ED7400, 7400
00342 3712 DCA I EDOCA /LOW ORDER 4 BITS INTO WORD 2
00343 5217 JMP EDOEND
00344 0000 EDIGCH, 0
00345 1257 TAD EDOEOF
00346 7700 ED7700, SMA CLA /INITIALIZED WITH 62X1
00347 5360 JMP ED0BFR /MAKE SURE BUFFER IS ZEROED
00350 6654 RRFC
00351 0232 EDO232, 232
00352 0336 EDO336, 336 /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 1351 TAD EDO232 /SEND ^Z TO BUFFER
00360 3313 ED0BFR, DCA EDI
00361 5367 JMP EDIXX /AND 0 GARBAGE CHARACTER
00362 1375 EDCHLP, TAD EDOTMP
00363 3313 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 1313 TAD EDI /GARBAGE CHARACTER AT END OF TAPE
00371 5744 JMP I EDIGCH /AND RETURN
00372 7330 EDOERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE
00373 5276 JMP EDOXIT-2
00374 6201 PCDF, CDF 0
00375 0000 EDOTMP, 0
00376 0000 EDOWC, 0
00377 7775 EDOM3, -3
$$$$$$$$
/EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 2
EDCHLP 0362
EDI 0313
EDIGCH 0344
EDILP 0320
EDIXX 0367
EDO 0200
EDOCA 0312
EDOCDF 0257
EDOCIF 0230
EDOEND 0217
EDOEOF 0257
EDOERR 0372
EDOISZ 0272
EDOKRS 0223
EDOLP 0203
EDOM3 0377
EDOPCH 0302
EDORTN 0274
EDOTMP 0375
EDOWC 0376
EDOXIT 0300
EDO177 0353
EDO232 0351
EDO336 0352
EDTIME 0354
ED0BFR 0360
ED70 0220
ED7400 0341
ED7700 0346
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