File: EDITOR.LS of Disk: V50/Source/Source-Listing-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