Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 3.1 SOURCE/D11/OH86.CPM

@@ -0,0 +1,41 @@
+!
+! 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
+