Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/paspty.dif
There is 1 other file named paspty.dif in the archive. Click here to see a list.
File 1)	<PASCAL>PASPTY.MAC.7,27-Oct-81 02:58:13
File 2)	<PASCAL>PASPTY.MAC.5,24-Feb-79 21:17:21

1)1	i==11
1)		reloc 400000
****
2)1		reloc 400000
**************
1)1	ptyopn(input,output,'',0,20B);
1)	write(output,chr(3));	{control C to give the greeting}
****
2)1	ptyopn(input,output,'',0,0);
2)	write(output,chr(3));	{control C to give the greeting}
**************
1)1	  put(ttyoutput);
1)	  until input^ = '@';
****
2)1	  put(ttyoutput)
2)	  until input^ = '@';
**************
1)1	;first make sure the file control blocks have been initialized
1)		move t,filtst(b)
1)		caie t,314157		;magic word will be there if it is legal
1)		pushj p,initb.##	;not - init it
1)		exch b,c
1)		move t,filtst(b)
1)		caie t,314157		;magic word will be there if it is legal
1)		pushj p,initb.##	;not - init it
1)		exch b,c
1)	;since we are going to copy the jfn from the input to the output, we had
****
2)1	;since we are going to copy the jfn from the input to the output, we had
**************
1)1		movei i,relf.##	;assume we are going to release the file
1)		camn a,t	;if they are the same
1)		movei i,clofil## ;just close it
1)		setz c,		;clofil needs this zero
1)		exch b,-4(p)	;get output file, save input
1)		pushj p,(i)	;close/release it
1)		exch b,-4(p)	;now back to input
****
2)1		movei c,relf.##	;assume we are going to release the file
2)		camn a,b	;if they are the same
2)		movei c,clofil## ;just close it
2)		exch b,-4(p)	;get output file, save input
2)		pushj p,(c)	;close/release it
2)		exch b,-4(p)	;now back to input
**************
1)1		movei i,relf.##	;assume we are going to release it
1)		cain e,0	;except that is null file name, only close it
1)		movei i,clofil##
1)		setz c,
1)		pushj p,(i)	;close/release it
1)	;now we have to copy the input jfn to the output.  The output has to be
****
2)1		movei c,relf.##	;assume we are going to release it
2)		cain e,0	;except that is null file name, only close it
2)		movei c,clofil##
2)		pushj p,(c)	;close/release it
File 1)	<PASCAL>PASPTY.MAC.7,27-Oct-81 02:58:13
File 2)	<PASCAL>PASPTY.MAC.5,24-Feb-79 21:17:21

2)	;now we have to copy the input jfn to the output.  The output has to be
**************
1)1		setz a,		;text file
1)		pushj p,rewrite## ;open output side
****
2)1		pushj p,rewrite## ;open output side
**************
1)1		setz d,		;but ignore these (using existing jfn from output)
1)		move t,filjfn(b) ;t _ new jfn
****
2)1		move t,filjfn(b) ;t _ new jfn
**************
1)1		setz a,		;text file
1)		pushj p,update## ;finally open input (update so it is read/write)
****
2)1		pushj p,update## ;finally open input (update so it is read/write)
**************
1)1	ptyget:	move t,filtst(b)
1)		caie t,314157		;magic word will be there if it is legal
1)		pushj p,initb.##	;not - init it
1)		move e,b		;save file in e
1)		pushj p,relf.##		;close any old file
****
2)1	ptyget:	move e,b		;save file in e
2)		pushj p,relf.##		;close any old file
**************