mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 17:34:06 +00:00
41 lines
1.3 KiB
Plaintext
41 lines
1.3 KiB
Plaintext
!
|
||
! 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
|
||
|