Cory, If you are still in need of assistance, I have made some progress with my old VMS code.
I put on our public FTP site my TapeLook mag tape analyzer program, both for Alpha (OpenVMS 7.2-1) and VAX (OpenVMS 6.2). I modified it to understand the SIMH mag tape image format. If you care to try it out, you'll know whether my Mag Tape Duplicator (MTD) program might work for you as well. MTD copies tapes tape-to-tape, tape-to-disk (my own Fortran format), and disk-to-tape. I have to write a SIMH-to-MTD format converter first. In the mean time, you can experiment with TapeLook. For example, here's the first few lines of what it says about the RSX-11M-Plus V3.0 SRC tape image I downloaded from BitSavers (http://bitsavers.trailing-edge.com/): > USGS TapeLook Utility OpenVMS Version 2.3 > 20-MAY-2014 11:18:36.71 > > TapeLook command: TAPELOOK > [.SIMH_TAPE_IMAGES]RSX-11MPLUS_V30_SRC_1985.TAP > > TapeLook options: > tape_image_file=[.SIMH_TAPE_IMAGES]RSX-11MPLUS_V30_SRC_1985.TAP > /OUTPUT=SYS$OUTPUT:.; > /REWIND /LABELS /NOBRIEF /FILES=0 /BLOCKS=5 > /DUMP=32 > > > Tape is a SIMH tape image file. > > > Tape has ANSI standard labels: "VOL1BACKUP > D%B1111001001 1" > > ( 5:10) Volume Identifier: "BACKUP" > (80:80) Label Standard Version: "1" > (11:11) Volume Accessibility: " " > (38:51) Owner Identifier: > "D%B1111001001 " > > Label 1 [ 512]: A0000500C6150002 C011C06500010194 > 0303F7090600FB01 050000005F9076FF ...Æ...À.Àe.........û....._.v. > > > File 1: "HDR1ERRLOG...... 00010001000100 > 00000 00000 000000DECFILE11A " > > ( 5:21) File Identifier: "ERRLOG...... > " > (22:27) File Set Identifier: " " > (36:39) Generation Number: "0001" > (28:31) File Section Number: "0001" > (40:41) Generation Version No.: "00" > (32:35) File Sequence Number: "0001" > (42:47) Creation Date: " 00000" > (54:54) File Accessibility: " " > (48:53) Expiration Date: " 00000" > (61:73) System Code: "DECFILE11A > " > > "HDR2U0414404144 M > 00 " > > ( 6:10) Block Length: "04144" ( > 5: 5) Record Format: "U" > (11:15) Record Length: "04144" > (51:52) Offset Length: "00" > > Block 1 [ 80]: 4552524C4F470000 0000000001005342 > 494E543237415547 3835550009000600 ERRLOG........SBINT27AUG85U..... > Block 2 [ 512]: A0000500C6150002 C011C06500010194 > 0303F7090600FB01 050000005F9076FF ...Æ...À.Àe.........û....._.v. > Block 3 [ 512]: 0500030050D15046 0100000001015342 > 494E543237415547 3835000000000101 ....PÑPF......SBINT27AUG85...... > Block 4 [ 80]: 5546440055000100 00007DC076C00000 > 7A1A010001000000 0100080F00E00000 UFD.U.....}ÀvÀ..z............à.. > Block 5 [ 512]: 4313010000002222 292100006B510200 > 0E06020000002222 3A6400006B510200 C....."")!..kQ........"":d..kQ.. > > "EOF1ERRLOG...... 00010001000100 > 00000 00000 000055DECFILE11A " > > (55:60) Block Count: "000055" > > "EOF2U0414404144 M > 00 " > > File 1 statistics: 177632 bytes in 55 blocks (longest: > 4144 bytes; shortest: 80 bytes) And the last lines: > "EOF1CRP......... 00013941000100 > 00000 00000 000028DECFILE11A " > > (55:60) Block Count: "000028" > > "EOF2U0414404144 M > 00 " > > File 34 statistics: 82160 bytes in 28 blocks (longest: > 4144 bytes; shortest: 80 bytes) > > > Total of 34 files processed. You can download the executables and the DCL command definition files from ftpext.usgs.gov: > $ ftp ftpext.usgs.gov > Name (ftpext.usgs.gov:baker): anonymous > 230 Login successful. > ftp> pwd > Remote directory: /pub/wr/ca/menlo.park/baker > ftp> ls tapelook.* > 229 Entering Extended Passive Mode (|||29378|) > 150 Here comes the directory listing. > -r--r--r-- 1 14 50 1865 May 20 13:02 tapelook.cld > -r--r--r-- 1 14 50 34816 May 20 13:02 tapelook.exe > -r--r--r-- 1 14 50 65536 May 20 13:02 tapelook.exe_alpha You will need to edit the TAPELOOK.CLD file to specify the location of the executable. Then $ Set Command/Replace TapeLook To find out how to use TapeLook, type $ TapeLook /Help or read the TAPELOOK.CLD file. Larry Baker US Geological Survey 650-329-5608 [email protected] On 17 May 2014, at 9:26 AM, <[email protected]> <[email protected]> wrote: > Hello all, > > Googling around only seems to want to show me how to copy real tapes to > images. I need to copy a SIMH tape image to a real tape! > > I seem to recall SIMH including a utility for this...but I could be mistaken. > > I will need a utility that will run on VMS (VAX) as I need to use a TK50 to > make a TK50. (Unless someone wants to doante a TK70. ;) ) > > -- > Cory Smelosky > http://gewt.net Personal stuff > http://gimme-sympathy.org Projects _______________________________________________ Simh mailing list [email protected] http://mailman.trailing-edge.com/mailman/listinfo/simh
