Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/seteof.mac
There are 7 other files named seteof.mac in the archive. Click here to see a list.
TITLE SETEOF
SUBTTL LARRY CAMPBELL


	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1978, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

	SEARCH MACSYM,MONSYM
	.REQUIRE SYS:MACREL
	.COPYRIGHT		;Put standard copyright statement in REL file
	SALL


;AC DEFINITIONS
T1=1
T2=2
T3=3
T4=4
P1=5
P2=6
P3=7
P4=10
P=17


;PARAMETERS
PDLLEN==50

;IMPURE STORAGE
PDL:	BLOCK PDLLEN


;START HERE

	$COPYRIGHT		;Put standard copyright statement in EXE file
SETEOF:	RESET
	MOVE P,[IOWD PDLLEN,PDL]
	TMSG <Size to set file(s) to: >
	MOVX T1,.PRIIN
	MOVEI T3,^D10
	NIN
	 ERMSG
	MOVEM T2,FILSIZ#
	TMSG <File(s) to set: >
	MOVX T1,GJ%OLD!GJ%FNS!GJ%SHT!GJ%CFM!GJ%IFG
	SETO T2,
	GTJFN
	 ERMSG
	MOVEM T1,JFN#

FILOOP:	HRLI T1,12
	SETO T2,
	MOVE T3,FILSIZ
	CHFDB
	 ERMSG
	MOVE T1,JFN
	GNJFN
	 JRST DONE
	JRST FILOOP

DONE:	TMSG <
All done!
>
	HALTF
	JRST SETEOF



	END SETEOF