Hi,

I have just put CDWRITE13_VMS up for anonymous FTP on 
v36.chemie.uni-konstanz.de in [.cdwrite].

CDWRITE13_VMS writes a files-11-structured container file onto a
recordable CD. I have thrown off the option to produce an audio CD.
The produced disk is mountable on every VMS-system without any
special drivers.

I've tested the program with OpenVMS/VAX 6.1/DEC C V5.3-006/
Vaxstation 3100 M38 and I'm pretty sure that this program will run
fine on any Alpha, too.

Writing a CD is a nontrivial task especially in a multiuser environment.
Just look into the FAQ for CD-writing. I recomment a standalone machine,
though I've developed and tested on a clustered VAXstation. Then dismount
the SCSI-disk on all machines but your cdwriter machine before burning.

Special thanks to Wolfgang J. Moeller, who helped me by looking into the
sources of OpenVMS and encouraged me to use a slow VAXstation 3100 for 
CD-writing.

You'll need the following hardware:

A 700-1000 MB SCSI disk, directly connected to the machine with a
SCSI-Bus.
A Phillips (CDD2000) or HP 4020i CD-Writer (The original linux program
supports more drives here and it is up to you to modify the 
source if you like! Please send me this version!).

You'll need the following software:
Install the DECUS-vddriver and generate on a container-file of a size smaller
than 650 MB (restriction: select a multiple of 100 Blocks, because this
is build in here). Initialize the SCSI disk with the switch /index=beginn
to get 650 MB contiguous space. 

Now install a virtual disk:

$ copy nl: disk:[dir]VDA1.DSK/ALLOCATE=XXXXX/CONTIGUOUS
$! i.e. I use 1327100 for xxxxx = 647,998 MB
$! The next command takes many seconds
$ set file/end_of_file/nomove/nobackup disk:[dir]VDA1.DSK
$!
$ SET FILE /ATT=(RFM:FIX,RAT:NONE,LRL:512,MRS:512) disk:[dir]VDA1.DSK
$ asnvd :== $dev:[dir]asnvdm6.exe
$ asnvd/assign vda1: disk:[dir]VDA1.DSK

Access the virtual disk

$ ini vda1: archiv
$ mount vda1: archiv
$! backup or copy all files you want to archiv
$! until there is no space left on your vd-drive
$ dismount vda1:

$! compile & link CDWRITE13_VMS.C

Now install the generic scsi driver for your cdwriter-drive (here ID #3):

$ mc sysgen connect gkb300:/noadapter/driver=gkdriver 
$! caution: (this OpenVMS/VAX specific)

Define two symbols:

$ cdwrite13_vms:==$disk:[dir]CDWRITE13_VMS.EXE
$ cdwrite:==@disk:[dir]CDWRITE.com

Now (here's an logged output):

$ cdwrite
Enter vd-container-filename: dkb0:[000000]vda2.dsk
Enter gk-device: gkb300:
Enter speed-parameter (1 or 2) [2]:
Enter test-Parameter (dummy or write):
Usage: cdwrite [-dummy/write] [-speed speed_factor (1/2)]

Parameters :
 dummy=0 write=1: 0
 speed:           2

SCSI inquiry data returned 36 bytes of data:
HP      C4324/C4325     1.27
Wait until drive becomes ready ...

Comments to the parameters:

I recomment to use double speed (parameter speed: 2).
"dummy" means, that the program runs in test mode.
"write" means, that you are trying to produce nice frisbees
if somethings went wrong.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY.

Please send comments to

Eberhard.Heuser-Hofmann@uni-Konstanz.de
or
vaxinf@chclu.chemie.uni-konstanz.de
========================================================================
                                                             09.Sep.1997
Here's an update info:

Because of the need of getting a running version for a Phillips CDD2600
I have modified the source of CDWRITE13_VMS. The program now produces a
fewer messages.

Now it runs fine on a DEC Alpha 3000-300L under OpenVMS/AXP 7.1.

CDR-Type              Firmware

Phillips CDD2000      1.26
Phillips CDD2600      1.07
HP 4020i              1.27
Yamaha CD100          1.08 (Many thanks to our Computer Center!)
(4 x Speed writing on a Alpha!)
(2 x Speed writing on a VAX!)


Compile+link on Alpha:

$ cc/prefix=all/define=(CDR-Type=1) cdwrite13_vms.c
(valid CDR-Types: CDD2000,HP4020,CDD2600,HP6020,CD100)
$ link cdwrite13_vms

The rest is mentioned in the readme.txt file.
anon-ftp to v36.chemie.uni-konstanz.de in [.cdwrite]

have fun
Eberhard
==================================================================