!
! OH86.COM:  VAX/VMS DCL Command Procedure for running HH86.EXE
!	(HH86 converts a file from one of Intel's 8086 object module
!	 formats into a hex format for transmission over inadequate
!	 communications lines.)
! Usage:
!	@OH86 filename
!	where `filename' names a file output from Intel's LOCator (OLOC86).
!	OH86 appends "." to input filename (if it did not already have a
!	file extension) and sets up logical names
!
$ filename := 'p1'
$ if p2 .nes. "" then goto err
!
$ getname:
$ if filename .nes. "" then goto runit
$ inquire filename "File_"
$ if 'f$locate(" ",filename)' .ne. 'f$length(filename)' then goto err
$ if filename .nes. "" then goto getname
!
$ runit:
$ dot = 'f$locate(".",filename)'
$ len = 'f$length(filename)'
$ name := 'f$extract(0, dot ,filename)'
$ typelen = len - dot
$ typex := 'f$extract(dot, typelen, filename)
$ if typex .eqs. "" then typex := .
!
$ assign 'name''typex' h86    /user_mode
$ assign 'name'.h86    h86hex /user_mode
$ assign 'name'.sym    h86sym /user_mode
$ assign 'name'.lin    h86lin /user_mode
!
$ r hh86
$ exit
!
err:
$ write sys$output "Use One Parameter Only - The Object File Name"
$ write sys$output "Output Files Are .H86, .SYM and .LIN"
$ exit