[Simh] Help with loading vax82b zip file into simh/vms

Thu Apr 4 21:44:15 EDT 2019

On April 4, 2019 4:44:39 PM PDT, Larry Baker <baker at usgs.gov> wrote:
>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>
>> 
>> 
>> ------------------------------

App.v30 is a Fortran program that implements a app interpreter. The of command was done on my Linux box to minimize issues with me forgetting vms things.

-ron
-- 
Sent from my Android device with K-9 Mail. Please excuse my brevity.