;
;   *-*-*   FORM_DISK.CSD   *-*-*
;
;   This Submit file formats an iRMX hard disk and then installs the
;   iRMX III.1.3 Operating System files on it from diskette.
;
;   Invocation:
;      submit :diskette:form_disk(device_name, interleave, files)
;
;   Where:  device_name is the physical device name of the device on which
;               you will be installing iRMX III.
;           interleave is the interleave factor that best suits the
;               device which you are formatting.
;           files is the number of files you will need to be able
;               to create on the device which you are formatting.
;
attachdevice %0 as :w: delay
;
format :w:rmxIII s120boot interleave=%1 files=%2
;
;   iRMX III hard disk has been formatted.
;
;   Create the standard iRMX III.1.3 directory structure.  Any directories
;   which already exist will cause an error message to be printed and
;   the directory will be left unchanged.  Ignore these error messages.
;
createdir :w:boot32, &
          :w:bsl, &
          :w:inc, &
          :w:helps, &
          :w:helps/utils, &
          :w:helps/system, &
          :w:helps/uprocs, &
          :w:lang286, &
          :w:lib, &
          :w:lib/font279, &
          :w:lib/fort86, &
          :w:lib/ftn286, &
          :w:lib/ftn386, &
          :w:lib/ic86, &
          :w:lib/ic286, &
          :w:lib/ic386, &
          :w:lib/ndp87, &
          :w:lib/ndp287, &
          :w:lib/ndp387, &
          :w:lib/pasc86, &
          :w:lib/pas286, &
          :w:lib/plm86, &
          :w:lib/plm286, &
          :w:lib/plm386, &
          :w:lib/rmx86, &
          :w:lib/rmx286, &
          :w:lib/rmx386, &
          :w:msa, &
          :w:msa/boot, &
          :w:msa/config, &
          :w:msa32, &
          :w:msa32/386258, &
          :w:msa32/486133, &
          :w:msa32/boot, &
          :w:net, &
          :w:rboot32, &
          :w:rmx286, &
          :w:rmx286/inc, &
          :w:rmx286/lib, &
          :w:rmx386, &
          :w:rmx386/config, &
          :w:rmx386/config/cmd, &
          :w:rmx386/config/cmd/diskette, &
          :w:rmx386/config/cmd/tape, &
          :w:rmx386/config/default, &
          :w:rmx386/config/user, &
          :w:rmx386/demo, &
          :w:rmx386/demo/asm, &
          :w:rmx386/demo/asm/intro, &
          :w:rmx386/demo/c, &
          :w:rmx386/demo/c/intro, &
          :w:rmx386/demo/drivers, &
          :w:rmx386/demo/drivers/at, &
          :w:rmx386/demo/drivers/at/console, &
          :w:rmx386/demo/drivers/at/st506, &
          :w:rmx386/demo/drivers/component, &
          :w:rmx386/demo/drivers/mb1, &
          :w:rmx386/demo/drivers/mb2, &
          :w:rmx386/demo/ftn, &
          :w:rmx386/demo/ftn/intro, &
          :w:rmx386/demo/ftn/misc, &
          :w:rmx386/demo/plm, &
          :w:rmx386/demo/plm/general, &
          :w:rmx386/demo/plm/intro, &
          :w:rmx386/demo/plm/mb2, &
          :w:rmx386/demo/plm/mb2/general, &
          :w:rmx386/demo/plm/mb2/intro, &
          :w:rmx386/demo/plm/mb2/nservr, &
          :w:rmx386/demo/plm/sdb, &
          :w:rmx386/demo/rgi,       &
          :w:rmx386/demo/rgi/utils, &
          :w:rmx386/demo/rom, &
          :w:rmx386/eios, &
          :w:rmx386/hi, &
          :w:rmx386/icu, &
          :w:rmx386/inc, &
          :w:rmx386/ios, &
          :w:rmx386/jobs, &
          :w:rmx386/lib, &
          :w:rmx386/loader, &
          :w:rmx386/nucleus, &
          :w:rmx386/rgi, &
          :w:rmx386/rmxnet, &
          :w:rmx386/rmxnet/config, &
          :w:rmx386/rmxnet/csd, &
          :w:rmx386/rmxnet/inc, &
          :w:rmx386/rmxnet/lib, &
          :w:rmx386/rmxnet/lnk, &
          :w:rmx386/sdb, &
          :w:rmx386/sdm, &
          :w:rmx386/udi, &
          :w:rmx386/update, &
          :w:rmx386/vt, &
          :w:sys386, &
          :w:system, &
          :w:user, &
          :w:user/super, &
          :w:user/super/prog, &
          :w:user/world, &
          :w:user/world/prog, &
          :w:util286, &
          :w:util386, &
          :w:work
;
;   Copy the third stage and the boot file from the boot diskette
;   to the hard disk.
;
copy :sd:r'?'s120thirdstg over :w:r'?'s120thirdstg
copy :sd:boot32/rmx over :w:boot32/rmx
copy :system:* over :w:sys386

copy :sd:rmx386/config/rlogon       over :w:user/world/prog/r'?'logon
copy :sd:user/super/prog/r'?'logoff over :w:user/world/prog/r'?'logoff
copy :sd:user/super/prog/alias.csd  over :w:user/world/prog

copy :sd:rmx386/config/rlogon       over :w:user/super/prog/r'?'logon
copy :sd:user/super/prog/r'?'logoff over :w:user/super/prog/r'?'logoff
copy :sd:user/super/prog/alias.csd  over :w:user/super/prog
;
;   Copy the default configuration files.
;
copy :sd:rmx386/config/udf,       &
     :sd:rmx386/config/cdf, &
     :sd:rmx386/config/terminals, &
     :sd:rmx386/config/logon.msg, &
     :sd:rmx386/config/alias.csd, &
     :sd:rmx386/config/termcap over :w:rmx386/config

copy :sd:rmx386/config/user/super, &
     :sd:rmx386/config/user/world over :w:rmx386/config/user
;
;   Duplicate the default configuration files.
;
copy :sd:rmx386/config/udf, &
     :sd:rmx386/config/cdf, &
     :sd:rmx386/config/user/super, &
     :sd:rmx386/config/user/world, &
     :sd:rmx386/config/logon.msg, &
     :sd:rmx386/config/rlogon, &
     :sd:rmx386/config/rinit, &
     :sd:rmx386/config/termcap, &
     :sd:user/super/prog/alias.csd over :w:rmx386/config/default

copy :sd:rmx386/config/terminals over :w:rmx386/config/default/terminals.pc
;
;   Duplicate the third stage
;
copy :sd:r'?'s120thirdstg over :w:rmx386/config/default/rs120thirdstg

copy :sd:rmx386/config/cmd/tape/* over :w:rmx386/config/cmd/tape
copy :sd:rmx386/config/cmd/diskette/* over :w:rmx386/config/cmd/diskette

copy :sd:rmx386/config/cmd/tinstall.csd, &
     :sd:rmx386/config/cmd/instal.csd, &
     :sd:rmx386/config/cmd/stuffy, &
     :sd:rmx386/config/cmd/mkstdir.csd, &
     :sd:rmx386/config/cmd/mksys.csd over :w:rmx386/config/cmd

copy :util286:changesd over :w:rmx386/config/cmd

permit :w:,          &
       :w:*,         &
       :w:lib/*,     &
       :w:boot32/*,  &
       :w:sys386/*,  &
       :w:util286/*, &
       :w:util386/*, &
       :w:rmx386/*,  &
       :w:rmx386/config/*,          &
       :w:rmx386/config/default/*,  &
       :w:rmx386/config/user/*,     &
       :w:rmx386/config/cmd/*,      &
       :w:rmx386/config/cmd/tape/*, &
       :w:rmx386/config/cmd/diskette/* nr u=world

permit :w:work,         &
       :w:user,         &
       :w:boot32,       &
       :w:rboot32,      &
       :w:msa,          &
       :w:msa/*,        &
       :w:msa32,        &
       :w:msa32/*,      &
       :w:user/world,   &
       :w:user/world/*, &
       :w:user/world/prog/r'?'logon,  &
       :w:user/world/prog/r'?'logoff, &
       :w:user/world/prog/* drau user=world

traverse :w:rmx386/demo permit $ Nr user=world

detachdevice :w:
;
;   The standard iRMX III.1.3 directory structure has been built.
;
;   Next the system device will be changed from the diskette to
;   the hard disk.
;
changesd %0