<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman",serif;
color:black;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Preformatted Char";
margin:0in;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";
color:black;}
tt
{mso-style-priority:99;
font-family:"Courier New";}
p.msonormal0, li.msonormal0, div.msonormal0
{mso-style-name:msonormal;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman",serif;
color:black;}
span.HTMLPreformattedChar
{mso-style-name:"HTML Preformatted Char";
mso-style-priority:99;
mso-style-link:"HTML Preformatted";
font-family:Consolas;
color:black;}
span.EmailStyle20
{mso-style-type:personal;
font-family:"Calibri",sans-serif;
color:#1F497D;}
span.EmailStyle22
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body bgcolor=white lang=EN-US link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'>Yeah. That is good ROM dump utility for other VAX systems when a copy of ROM images are not available for future emulators.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'>That’s why I can’t find firmwares for VAX 4000, VAX 6000, and VAX 8500-8800 that I googled for so far.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'>Thanks,<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'>Tim<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'><o:p> </o:p></span></p><div><div style='border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0in 0in 0in'><p class=MsoNormal><b><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'>From:</span></b><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:windowtext'> Simh [mailto:simh-bounces@trailing-edge.com] <b>On Behalf Of </b>Rick Murphy<br><b>Sent:</b> Saturday, March 18, 2017 11:48 AM<br><b>To:</b> simh@trailing-edge.com<br><b>Subject:</b> Re: [Simh] VAX 8200<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>On 3/16/2017 11:53 PM, Robert Armstrong wrote:<o:p></o:p></p></div><blockquote style='margin-top:5.0pt;margin-bottom:5.0pt'><p class=MsoNormal style='margin-bottom:12.0pt'><span style='color:#1F497D'>></span>Under VMS, PFN map a section to the EEPROM, copy it to normal memory & write it to disk.<o:p></o:p></p><p class=MsoNormal style='margin-bottom:12.0pt'><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D'> Um, fair enough. I don’t suppose someone has a program already written to do this? </span><o:p></o:p></p><p class=MsoNormal style='margin-bottom:12.0pt'><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D'> I could have easily done that about ten or fifteen years ago, and in theory I still can, but it’ll probably take an afternoon with the VMS manuals to remember how </span><span style='font-size:11.0pt;font-family:Wingdings;color:#1F497D'>J</span><o:p></o:p></p></blockquote><p class=MsoNormal>Here's an example, which I wrote for the MicroVAX. Took me a bit to find this.<br><br>The program creates a file called ROM.EXE and copies the boot ROM into that file.<br>Note the " vbn=#<^X20040000/512>" line - that says that the ROM is mapped into physical address 20040000 on that system. Likely different for others. Size of the ROM is calculated by the "page_count" variable.<br> -Rick<br><br><tt><span style='font-size:10.0pt'> .title copyrom - Copy the rom</span></tt><span style='font-size:10.0pt;font-family:"Courier New"'><br><tt> .psect data rd, wrt, nopic, noshr, noexe, long</tt><br><tt> .library /sys$Library:lib/</tt><br><tt> $iouv2def</tt><br><tt> $secdef</tt><br><tt> .psect data rd, wrt, nopic, noshr, noexe, long</tt><br><br><tt> page_count = ^X10000/^X200</tt><br><br><tt>file_fab: $FAB ALQ=page_count,-</tt><br><tt> FAC=<GET,PUT>,-</tt><br><tt> FNM=<ROM.EXE>,-</tt><br><tt> FOP=UFO</tt><br><br><tt>p1_space: .quad 0</tt><br><br><tt>copy_sec_base: .long 0</tt><br><tt> .long 0</tt><br><br><tt>rom_sec_base: .long 0</tt><br><tt> .long 0</tt><br><tt>buf_descr: .long 80</tt><br><tt> .address buffer</tt><br><tt>buffer: .blkb 80</tt><br><br><tt>format: .ascid /Checksum is !XW/</tt><br><br><tt> .psect code rd, nowrt, pic, noshr, exe, long</tt><br><br><tt> .entry go, ^m<></tt><br><br><tt> $create fab=file_fab</tt><br><tt> blbs r0, 10$</tt><br><tt> ret</tt><br><br><tt>10$: $crmpsc_s inadr=p1_space,-</tt><br><tt> retadr=copy_sec_base,-</tt><br><tt> flags=#<sec$m_expreg!sec$m_wrt>,-</tt><br><tt> chan=file_fab+fab$l_stv</tt><br><tt> blbs r0, 20$</tt><br><tt> ret</tt><br><br><tt>20$: $crmpsc_s inadr=p1_space,-</tt><br><tt> retadr=rom_sec_base,-</tt><br><tt> flags=#<sec$m_expreg!sec$m_pfnmap>,-</tt><br><tt> pagcnt=#page_count,-</tt><br><tt> vbn=#<^X20040000/512></tt><br><tt> blbs r0, 30$</tt><br><tt> ret</tt><br><tt>30$: movl rom_sec_base, r0</tt><br><tt> movl copy_sec_base, r1</tt><br><tt> movl #^x10000/2, r2</tt><br><tt>40$: movw (r0)+, (r1)+</tt><br><tt> sobgtr r2, 40$</tt><br><tt> movl #1,r0</tt><br><tt> ret</tt><br><tt> .end go</tt></span><o:p></o:p></p></div></body></html>