[Simh] Help with loading vax82b zip file into simh/vms
Larry Baker
baker at usgs.gov
Thu Apr 4 19:44:39 EDT 2019
Ron,
I don't know what you tried, but from my OpenVMS Alpha V7.2-1 system, I was able to FTP apl.v30 and read it just fine. Yes, it has VFC record format. I don't know why. Maybe that is an APL thing. But, I can EDIT/EDT/READ the file just fine.
You did not fully explain what you tried. I see an od command. That leads me to believe you did not do the FTP from an OpenVMS system. Non-OpenVMS systems will have trouble with RMS VFC format files.
We use MultiNet. I see that EISNET.DECUS.ORG <http://eisnet.decus.org/> does as well. The MultiNet FTP client handles RMS file attributes for transfers to/from a MultiNet FTP server. I do not know if the DEC FTP client has similar features. You did not say which FTP client you used. If you are using an FTP client that does not handle RMS file attributes, you should transfer all files in BINARY or IMAGE mode, then use the DCL SET FILE /ATTRIBUTES command to change each file's attributes to what it was supposed to have on OpenVMS. That will be a chore.
Below is a transcript of the commands I used on my OpenVMS system to fetch apl.v30 with FTP.
Larry Baker
US Geological Survey
650-329-5608
baker at usgs.gov
BAKER SAMOA> ftp eisner.decus.org
samoa.wr.usgs.gov MultiNet FTP user process V4.4(119)
Connection opened (Assuming 8-bit connections)
<Eisner.Encompasserve.org MultiNet FTP Server Process V5.5(17) at Thu 4-Apr-2019 7:23PM-EDT
Username: anonymous
<anonymous user ok. Send real ident as password.
Password:
<
< File Transfer Protocol guest users may examine and copy only files
< in the area /anon/public. Report problems to FTP at Encompasserve.org.
<
<
< This repository is under construction.
< Send questions to FTP at Encompasserve.org.
<
<Guest User BAKER at USGS.GOV logged into /anon/public at Thu 4-Apr-2019 7:23PM-EDT, job 9225.
<Directory and access restrictions apply
EISNER.DECUS.ORG>ls
EISNER.DECUS.ORG>cd decus
EISNER.DECUS.ORG>cd vms
EISNER.DECUS.ORG>ls
EISNER.DECUS.ORG>cd library
EISNER.DECUS.ORG>ls
EISNER.DECUS.ORG>cd v00031
EISNER.DECUS.ORG>ls
EISNER.DECUS.ORG>get apl.v30
To local file:
<VMS retrieve of /anon/public/decus/vms/library/v00031/apl.v30 (254688 bytes) started.
<Transfer completed. 254288 (8) bytes transferred.
EISNER.DECUS.ORG>quit
<QUIT command received. Goodbye.
BAKER SAMOA> dir /fu apl.v30
Directory PUB:[BAKER.DECUS.V00031]
APL.V30;1 File ID: (21669,14,0)
Size: 497/552 Owner: [BAKER]
Created: 4-APR-2019 15:13:22.44
Revised: 4-APR-2019 15:13:23.01 (1)
Expires: <None specified>
Backup: <No backup recorded>
Effective: <None specified>
Recording: <None specified>
File organization: Sequential
Shelved state: Online
Caching attribute: Writethrough
File attributes: Allocation: 552, Extend: 0, Global buffer count: 0, No version limit
Record format: VFC, 2 byte header, maximum 0 bytes, longest 72 bytes
Record attributes: Carriage return carriage control
RMS attributes: None
Journaling enabled: None
File protection: System:RWED, Owner:RWED, Group:RWED, World:RE
Access Cntrl List: None
Client attributes: None
Total of 2 files, 994/1104 blocks.
BAKER SAMOA> type/page apl.v30
PROGRAM apl !!Ver 3.0, Fall 1982 DECUS
c+ Main APL driver program
c;
c; Initalize via ZAPL, APLZER, and LINMNE.
c;
c; 200 Request the input line via APLNXT
c; IF( special line type ) THEN Process
c; ... Control_C, Control_Z, Null, System_command, Clear_stack
c; ... G...function_edit, help
c; ELSE
c; Clear stack, or note that it is not clear as needed
c; Initalize tokens via TOKPUT, PUSHST, and LINCON
c; 500 Process input line via APLCON
c; ENDIF
c; LOOP, goto 200
c------
c!v1.1! process input command line
c!v1.1! if( flg_deg(32) ) accept ), " or A as system command
c!v0.8! on a ctrl z, )save aplf.vx, and then exit
c!v0.5! " input in ascii mode diagnostic
c.
c.See ZAPL for the update history and general APL programmer
c. documentation
c.
include 'sci_apl:aplall.i/nolist'
include 'sci_apl:aplnam.i/nolist' !v0.1! include name common
include 'sci_apl:aplstk.i/nolist'
include 'sci_apl:apltok.i/nolist'
character*255 chcmd
c.
c-- initalize
<snip>
> On 4 Apr 2019, at 3:57:52 PM, simh-request at trailing-edge.com wrote:
>
> ------------------------------
>
> Message: 2
> Date: Tue, 26 Mar 2019 14:54:50 -0700
> From: Ron Young <rly1 at embarqmail.com <mailto:rly1 at embarqmail.com>>
> To: "simh at trailing-edge.com <mailto:simh at trailing-edge.com>" <simh at trailing-edge.com <mailto:simh at trailing-edge.com>>
> Subject: [Simh] Help with loading vax82b zip file into simh/vms
> Message-ID: <9B.49.11891.BAF9A9C5 at smtp03.onyx.dfw.sync.lan <mailto:9B.49.11891.BAF9A9C5 at smtp03.onyx.dfw.sync.lan>>
> Content-Type: text/plain; charset="us-ascii"
>
> Hi All:
>
> I want to load some programs from the vax82b decus "tape" into my
> simh/vax/vms 7.3 system. VMS is installed and running.
>
> I normally would download the tape image and mount it in simh/vms and
> copy/restore. Unfortunately, I can't find any tape images for vax82b.
> There are zip files located on
> https://eisner.decus.org/repository/master/vms/library/ <https://eisner.decus.org/repository/master/vms/library/>.
>
> However when I ftp the files over to vms, the record type is messed up
> (displays 2 bytes of "garbage" and doesn't see the end of line). Looking
> at a linux dump of the first couple of lines (shown below).
>
> Any ideas on how I can fix this, or where tapes images are located?
>
> thanks
> -ron
>
>
> $ od -ao --endian=little apl.v30 | more
> 0000000 , nul soh nul ht P R O G R A M sp sp sp sp
> 000054 000001 050011 047522 051107 046501 020040 020040
> 0000020 a p l sp ! ! V e r sp 3 . 0 , sp F
> 070141 020154 020441 062526 020162 027063 026060 043040
> 0000040 a l l sp 1 9 8 2 sp D E C U S gs nul
> 066141 020154 034461 031070 042040 041505 051525 000035
> 0000060 stx nul c + ht ht M a i n sp A P L sp d
> 000002 025543 004411 060515 067151 040440 046120 062040
> 0000100 r i v e r sp p r o g r a m nul eot nul
> 064562 062566 020162 071160 063557 060562 000155 000004
> 0000120 etx nul c ; , nul eot nul c ; ht I n i t a
> 000003 035543 000054 000004 035543 044411 064556 060564
>
> ===============================================================================
> Ron Young rly1 at embarqmail.com <mailto:rly1 at embarqmail.com>
>
>
> ------------------------------
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20190404/2b4910b0/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/pkcs7-signature
Size: 1455 bytes
Desc: not available
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20190404/2b4910b0/attachment-0001.bin>
More information about the Simh
mailing list