[Simh] running IBM 1401 fortran

[Saporito Fausto]

Hello all, 

I'm trying to compile this fortran program: 

PARAMI9Z0520 
C     APPENDIX E 
C     EXERCISE LIBRARY FUNCTIONS 
      PRINT 8 
8     FORMAT(48H1A=2I(SQRT(1-COS(X)**2)COS(X)SIN(X)/ABS(SIN(X)))) 
      PRINT 1 
1     FORMAT(97H0 I  DEGREES            A         EXPONENTIAL(A)=B 
     1LOGARITHM(B)=C       I SIN(2X)=D     C-D//) 
      FI=1.0 
      DEGREE=7.5 
      DELTA=1.57079632679489661923/12.0 
      ARG=DELTA 
3     A=(FI+FI)*SQRTF(1.0-COSF(ARG)**2)*COSF(ARG) 
      IF(FI-24.)7,7,6 
6     A=-A 
7     B=EXPF(A) 
      C=LOGF(B) 
      D=FI*SINF(ARG+ARG) 
      DIFF=C-D 
      PRINT 2,FI,DEGREE,A,B,C,D,DIFF 
2     FORMAT(1X,F3.0,F9.1,F19.10,E19.10,2F19.10,E12.1) 
      FI=FI+1.0 
      DEGREE=DEGREE+7.5 
      ARG=ARG+DELTA 
      IF(FI-49.0)3,4,5 
4     PRINT 9 
9     FORMAT(1H1) 
      STOP 111 
5     STOP 777 
      END 

Using both tapes included in the distribution package. 
The session is: 

Sim> at mt1 Fortran_v3m0.tap 
Sim> at lpt listing.txt 
Sim> at cdr test1.for 
Sim> set lpt fortran 
Sim> set lpt 64 
Sim> b mt1 

HALT instruction, IS: 280 (H 280) 
Sim> g 

Address register wrap, IS: 5897 (MUL 279,3 251,3) 

The program doesn't work. I attached the printer output. 

What do you think? I used and example program from the IBM manual. 

Thanks, 
fausto 

  

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20070906/71a552f2/attachment-0003.html>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: listing.txt
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20070906/71a552f2/attachment-0003.txt>