.ENABLE SUBSTITUTION
; LOADFX.CMD
; Load the FX: disk
; RSX11M+ VERSION, SET UP FOR SINGLE DIRECTORY FX:
.DISABLE SUBSTITUTION
ECH 15,12,'RECOMMEND THE FOLLOWING BE 4000 OR 10000'15,12
.ENABLE SUBSTITUTION
.ASKN PSZ PARTITION SIZE TO USE (OCTAL PAGES)
SET /TOP=GEN:-'PSZ'
.; ADJUST MSZ BELOW FOR YOUR MEMORY SIZE
.SETN MSZ 40000
.SETN MBS MSZ-PSZ
SET /PAR=FXDISK:'MBS':'PSZ':SYS
LOA FX:/HIGH/PAR=GEN
ALL FX:
MOU FX:/FOR
.IFINS ...BAD BAD FX:
.IFINS ...BAD .IF <EXSTAT> NE 1 .EXIT
ALL FX:
INI FX:FXDISK/INDX=BEG/LRU=1/WIN=1
.IF <EXSTAT> NE 1 .EXIT
DMO FX:/DEV
DEA FX:
SET /PUB=FX:
MOU FX:FXDISK
.IF <EXSTAT> NE 1 .EXIT