[Simh] SIMH tape images to real tapes

Larry Baker baker at usgs.gov
Tue May 20 15:29:17 EDT 2014


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
baker at usgs.gov

On 17 May 2014, at 9:26 AM, <simh-request at trailing-edge.com> <simh-request at trailing-edge.com> 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



More information about the Simh mailing list