$ save_verify = 'f$verify()'
$ set noverify
$ set noon
$ goto skip_header
$!
$!	File:	a.com
$!	Date:	15-Jun-1983
$!	Author:	Robin Miller
$!
$!	Procedure to: Assemble modules for VTL.
$!
$!	Modifications:
$!
$!	Calling sequence: @a module_name
$!
$ skip_header:
$ no_such_file = %X18292
$!
$! Check for the macro file specified.
$!
$ testfile 'p1.mac
$ if file_code .ne. no_such_file then goto check_lbr
$ write sys$output "File ''p1.MAC does not exist ... exiting ..."
$ goto exit_asm
$!
$! Check for the VTL object module library.
$!
$check_lbr:
$ testfile vtl.olb
$ if file_code .ne. no_such_file then goto do_asm
$ write sys$output "Library file VTL.OLB does not exist ... exiting ..."
$ goto exit_asm
$!
$! Finally, do the macro assembly.
$!
$do_asm:
$ testfile 'p1.obj
$ if file_code .ne. no_such_file then delete 'p1.obj;*
$ testfile 'p1.lst
$ if file_code .ne. no_such_file then delete 'p1.lst;*
$ mac 'p1,'p1/-sp/nl:cnd=vtlpre/pa:1,'p1
$ lbr vtl/rp='p1
$ testfile 'p1.obj
$ if file_code .ne. no_such_file then delete 'p1.obj;*
$!
$! all done:
$!
$ exit_asm: if save_verify then set verify
$ exit