<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2658.2">
<TITLE>RE: [Simh] HP2100 Fortran problem</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2>Hello,</FONT>
</P>
<P><FONT SIZE=2>It's ok now using the fix written below.</FONT>
</P>
<P><FONT SIZE=2>Thanks a lot,</FONT>
<BR><FONT SIZE=2>Fausto</FONT>
</P>
<P><FONT SIZE=2>-----Original Message-----</FONT>
<BR><FONT SIZE=2>From: J. David Bryan [<A HREF="mailto:jdbryan@acm.org">mailto:jdbryan@acm.org</A>] </FONT>
<BR><FONT SIZE=2>Sent: venerd́ 1 giugno 2007 22.51</FONT>
<BR><FONT SIZE=2>To: SIMH List</FONT>
<BR><FONT SIZE=2>Cc: Saporito Fausto</FONT>
<BR><FONT SIZE=2>Subject: RE: [Simh] HP2100 Fortran problem</FONT>
</P>
<P><FONT SIZE=2>On 1 Jun 2007 at 16:13, Saporito Fausto wrote:</FONT>
</P>
<P><FONT SIZE=2>> The strange thing is after the first phase the compiler doesn't return</FONT>
<BR><FONT SIZE=2>> to the emulator, but it seems to wait for something, and I have to</FONT>
<BR><FONT SIZE=2>> press CTRL-E to have the prompt and load the phase 2.</FONT>
</P>
<P><FONT SIZE=2>OK, the problem is that the compiler is printing an error message:</FONT>
</P>
<P><FONT SIZE=2> FTN,B,L</FONT>
<BR><FONT SIZE=2> C</FONT>
<BR><FONT SIZE=2> WRITE(2,99)</FONT>
<BR><FONT SIZE=2> C</FONT>
<BR><FONT SIZE=2> 99 FORMAT(4HCIAO)</FONT>
<BR><FONT SIZE=2> STOP</FONT>
<BR><FONT SIZE=2> END</FONT>
<BR><FONT SIZE=2>>>> E-0012: 0000 +0001</FONT>
<BR><FONT SIZE=2> END$</FONT>
</P>
<P><FONT SIZE=2>It is not recognizing the "END$", so it thinks that there is more source </FONT>
<BR><FONT SIZE=2>code to be compiled, so it is waiting for the paper tape reader. That is </FONT>
<BR><FONT SIZE=2>why you have to press CTRL+E to stop the compiler.</FONT>
</P>
<P><FONT SIZE=2>The fix is to move END$ to column 7 in the source file:</FONT>
</P>
<P><FONT SIZE=2> FTN,B,L </FONT>
<BR><FONT SIZE=2> C </FONT>
<BR><FONT SIZE=2> WRITE(2,99) </FONT>
<BR><FONT SIZE=2> C </FONT>
<BR><FONT SIZE=2> 99 FORMAT(4HCIAO)</FONT>
<BR><FONT SIZE=2> STOP</FONT>
<BR><FONT SIZE=2> END</FONT>
<BR><FONT SIZE=2> END$</FONT>
</P>
<P><FONT SIZE=2>Now when you run pass 1 of the compiler, it does not print the error </FONT>
<BR><FONT SIZE=2>message, and it stops automatically with a HALT 102077. Running pass 2 </FONT>
<BR><FONT SIZE=2>produces a good relocatable tape (test2.rel). Loading that tape into BCS </FONT>
<BR><FONT SIZE=2>no longer gives the L08 error, and the program runs as expected.</FONT>
</P>
<P><FONT SIZE=2> -- Dave</FONT>
</P>
</BODY>
</HTML>