Trailing-Edge
-
PDP-10 Archives
-
k20v7b
-
mfg/uetp-create.mic
There are no other files named uetp-create.mic in the archive.
!This mic file creates UETP directories on Specified structure
!
! Parameter:
! A = Structure = 'A
!
! Type ^P to continue
! Type ^A to abort
!
=^B
!
MOUNT STR 'A:
ENA
BUILD 'A:<UETP>
PASS PTEU
PE 10000
WO 10000
MAX 30
IPCF
ENQ
SUB 100
DIR 100
USER 100
BUILD 'A:<F-S>
PE 10000
WO 10000
MAX 30
IPCF
ENQ
WHEEL
SUB 100
DIR 100
USER 100
BUILD 'A:<UETP.RUN>
PE 5000
WO 5000
DIR 100
USER 100
PRE
BUILD 'A:<UETP.LIB>
DEF 777752
PRO 777740
PE 3777777
WO 37777777
DIR 100
USER 100
PRE
!COPY PS:'A:<UETP.'A>*.* 'A:<UETP.LIB>*.*
!CONN 'A:<UETP>
;Define subdirectories for each of the tests
Build 'A:<Uetp.Algol>
Perm 500
Working 500
Files-Only
Dir 100
User 100
Sub 100
Build 'A:<Uetp.Apl>
Perm 500
Working 500
Files-Only
Dir 100
User 100
Sub 100
Build 'A:<Uetp.Basic>
Perm 500
Working 500
Files-Only
Dir 100
User 100
Sub 100
Build 'A:<Uetp.Cblsrt>
Perm 500
Working 500
Files-Only
User 100
Dir 100
Sub 100
Build 'A:<Uetp.RMS>
Perm 1000
Working 1000
Files-Only
User 100
Dir 100
Sub 100
Build 'A:<Uetp.Cbl74>
Perm 500
Working 500
Files-Only
User 100
Dir 100
Sub 100
Build 'A:<Uetp.Dbms>
Perm 1300
Working 1300
Files-Only
User 100
Dir 100
Sub 100
Build 'A:<Uetp.Mta>
Perm 500
Working 500
Files-Only
User 100
Sub 100
Dir 100
Build 'A:<Uetp.Rancbl>
Perm 500
Working 500
Files-Only
User 100
Sub 100
Dir 100
Build 'A:<Uetp.Ranfor>
Perm 500
Working 500
Files-Only
User 100
Dir 100
Sub 100
Build 'A:<Uetp.Fortran>
Perm 500
Work 500
Files-Only
User 100
Dir 100
Sub 100
Build 'A:<Uetp.Sort>
Perm 500
Work 500
Files-Only
User 100
Dir 100
Sub 100
Bui 'A:<Uetp.Cobold>
Perm 1700
Work 1700
Files-Only
User 100
Dir 100
Sub 100
Bui 'A:<Uetp.Aplsf>
Perm 500
Work 500
Files-Only
User 100
Dir 100
Sub 100
!CONN 'A:<UETP.RUN>