Trailing-Edge
-
PDP-10 Archives
-
BB-H506D-SM_1983
-
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
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1978, 1981 BY DIGITAL EQUIPMENT CORPORATION
SEARCH MACSYM,MONSYM
.REQUIRE SYS:MACREL
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
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