<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2658.2">
<TITLE>HP2100 Fortran problem</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2>Hello all,</FONT>
</P>
<P><FONT SIZE=2>i'm trying to use the FORTRAN compiler with the latest version of hp2100 emulator.</FONT>
<BR><FONT SIZE=2>I'm able to compile a sample test program (I used 6 and 2 as output device), generating the abs file.</FONT>
</P>
<P><FONT SIZE=2>FTN, B, L</FONT>
<BR><FONT SIZE=2>C</FONT>
<BR><FONT SIZE=2> WRITE(6,99)</FONT>
<BR><FONT SIZE=2>C</FONT>
<BR><FONT SIZE=2> 99 FORMAT(4RCIAO)</FONT>
<BR><FONT SIZE=2> STOP</FONT>
<BR><FONT SIZE=2> END</FONT>
<BR><FONT SIZE=2>END$</FONT>
</P>
<P><FONT SIZE=2>After the run of new generated ABS file, the simulator stops and print a FORTRAN error: *FMT. Inspecting the A register, the value is 000003 and, according to the manual, it means: </FONT></P>
<P><FONT SIZE=2>A) Illegal character in FORMAT statement</FONT>
<BR><FONT SIZE=2>B) Format repetition factor of zero</FONT>
<BR><FONT SIZE=2>C) FORMAT statement defines more character positions than possible for device.</FONT>
</P>
<P><FONT SIZE=2>Any suggestion?</FONT>
</P>
<P><FONT SIZE=2>Thanks,</FONT>
<BR><FONT SIZE=2>Fausto</FONT>
</P>
<P><FONT SIZE=2>============================================================================</FONT>
</P>
<P><FONT SIZE=2>The procedure I used is the following:</FONT>
</P>
<P><FONT SIZE=2>set clk dev=12</FONT>
<BR><FONT SIZE=2>set ptr dev=13</FONT>
<BR><FONT SIZE=2>set ptp dev=20</FONT>
<BR><FONT SIZE=2>load sio16k11.abs</FONT>
<BR><FONT SIZE=2>load fortran1.abs</FONT>
<BR><FONT SIZE=2>att ptp test1.rel</FONT>
<BR><FONT SIZE=2>att ptr test.for</FONT>
<BR><FONT SIZE=2>run 100</FONT>
<BR><FONT SIZE=2>(the simulator stop and I have to press ^E to return to the console)</FONT>
<BR><FONT SIZE=2>load fortran2.abs</FONT>
<BR><FONT SIZE=2>att ptr test1.rel</FONT>
<BR><FONT SIZE=2>att ptp test2.rel</FONT>
<BR><FONT SIZE=2>run 100</FONT>
<BR><FONT SIZE=2>(the simulator exit with T-reg 102077)</FONT>
<BR><FONT SIZE=2>set clk dev=13</FONT>
<BR><FONT SIZE=2>set ptr dev=10</FONT>
<BR><FONT SIZE=2>set ptp dev=12</FONT>
<BR><FONT SIZE=2>load bcs16k.abs</FONT>
<BR><FONT SIZE=2>de s 140000</FONT>
<BR><FONT SIZE=2>att ptp test.abs</FONT>
<BR><FONT SIZE=2>att ptr test2.rel</FONT>
<BR><FONT SIZE=2>run 2</FONT>
<BR><FONT SIZE=2>(the simulator stops and print *LOAD)</FONT>
<BR><FONT SIZE=2>de s 140004</FONT>
<BR><FONT SIZE=2>att ptr bcslib.rel</FONT>
<BR><FONT SIZE=2>run</FONT>
<BR><FONT SIZE=2>(the simulator stops and print *L08 - i.e. No transfer address, according to the manual I have to set the absolute address in the switch register and press LOAD ADDRESS. I found this can be simulated depositing in the A register an octal value)</FONT></P>
<P><FONT SIZE=2>de a 000002</FONT>
<BR><FONT SIZE=2>run</FONT>
<BR><FONT SIZE=2>(the simulator stops and print *LST)</FONT>
<BR><FONT SIZE=2>run</FONT>
<BR><FONT SIZE=2>(the simulator stops and print *END and the abs file is generated on the ptp device)</FONT>
<BR><FONT SIZE=2>load test.abs</FONT>
<BR><FONT SIZE=2>de s 000000</FONT>
<BR><FONT SIZE=2>run 2000</FONT>
</P>
</BODY>
</HTML>