[Simh] HP2100 Fortran problem

[Saporito Fausto]

Hello, 

It's ok now using the fix written below. 

Thanks a lot, 
Fausto 

-----Original Message----- 
From: J. David Bryan [ mailto:jdbryan at acm.org <mailto:jdbryan at acm.org> ]

Sent: venerdì 1 giugno 2007 22.51 
To: SIMH List 
Cc: Saporito Fausto 
Subject: RE: [Simh] HP2100 Fortran problem 

On 1 Jun 2007 at 16:13, Saporito Fausto wrote: 

> The strange thing is after the first phase the compiler doesn't return

> to the emulator, but it seems to wait for something, and I have to 
> press CTRL-E to have the prompt and load the phase 2. 

OK, the problem is that the compiler is printing an error message: 

    FTN,B,L 
    C 
          WRITE(2,99) 
    C 
       99 FORMAT(4HCIAO) 
          STOP 
          END 
>>> E-0012: 0000 +0001 
    END$ 

It is not recognizing the "END$", so it thinks that there is more source

code to be compiled, so it is waiting for the paper tape reader.  That
is 
why you have to press CTRL+E to stop the compiler. 

The fix is to move END$ to column 7 in the source file: 

  FTN,B,L 
  C 
        WRITE(2,99) 
  C 
     99 FORMAT(4HCIAO) 
        STOP 
        END 
        END$ 

Now when you run pass 1 of the compiler, it does not print the error 
message, and it stops automatically with a HALT 102077.  Running pass 2 
produces a good relocatable tape (test2.rel).  Loading that tape into
BCS 
no longer gives the L08 error, and the program runs as expected. 

                                      -- Dave 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20070604/b1d1ad3d/attachment-0003.html>