X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Ffcomp.bi;fp=sw%2Ff4%2FFRTSRC%2Ffcomp.bi;h=6f0f1a5bc0d751c24dd266ad27a10737229a3336;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/fcomp.bi b/sw/f4/FRTSRC/fcomp.bi
new file mode 100644
index 0000000..6f0f1a5
--- /dev/null
+++ b/sw/f4/FRTSRC/fcomp.bi
@@ -0,0 +1,168 @@
+$JOB FORTRAN IV ASSEMBLY
+/
+.DATE
+/
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ PAL-8 ASSEMBLY
+/
+/ *******************************************************************
+/ *******************************************************************
+/
+/
+.PAL LIBRA
+.LOAD LIBRA
+.SAVE SYS LIBRA=0;200
+.DELETE LIBRA.BN
+/
+/ *******************************************************************
+/
+.PAL LOAD
+.LOAD LOAD
+.SAVE SYS LOAD=0;200
+.DELETE LOAD.BN
+/
+/ *******************************************************************
+/
+.PAL PASS2
+.LOAD PASS2
+.SAVE SYS PASS2
+.DELETE PASS2.BN
+/
+/ *******************************************************************
+/
+.PAL PASS2O<P2OCFG,PASS2
+.LOAD PASS2O
+.SAVE SYS PASS2=0,7605
+.DELETE PASS20.BN
+/
+/ *******************************************************************
+/
+.PAL PASS3
+.LOAD PASS3
+.SAVE SYS PASS3=0;400
+.DELETE PASS3.BN
+/
+/ *******************************************************************
+/
+.PAL F4
+.LOAD F4
+.SAVE SYS F4=0;12200
+.DELETE F4.BN
+/
+/ *******************************************************************
+/
+.R PAL8
+.PAL RALF/W
+.LOAD RALF
+.SAVE SYS RALF.SV=0;200
+.DELETE RALF.BN
+/
+/ *******************************************************************
+/
+.PAL FRTS<RTS,RTL
+.LOAD FRTS
+.SAVE SYS FRTS
+.DELETE FRTS.BN
+/
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ RALF LIBRARY ASSEMBLY
+/
+/ *******************************************************************
+/ *******************************************************************
+/
+/
+.COMPILE ABS.RA
+.COMPILE ACOS.RA
+.COMPILE ADC.RA
+.COMPILE ALOG10.RA
+.COMPILE ALOG.RA
+.COMPILE AMAX.RA
+.COMPILE AMIN.RA
+.COMPILE AMOD.RA
+.COMPILE ASIN.RA
+.COMPILE ATAN2.RA
+.COMPILE ATAN.RA
+.COMPILE CABS.RA
+.COMPILE CARITH.RA
+.COMPILE CEXP.RA
+.COMPILE CHARS.RA
+.COMPILE CHKEOF.RA
+.COMPILE CLK8A.RA
+.COMPILE CLOCK.RA
+.COMPILE CLOG.RA
+.COMPILE CMPLX.RA
+.COMPILE COSD.RA
+.COMPILE COSH.RA
+.COMPILE COS.RA
+.COMPILE CSIN.RA
+.COMPILE CSQRT.RA
+.COMPILE DABS.RA
+.COMPILE DATAN2.RA
+.COMPILE DATAN.RA
+.COMPILE DATE.RA
+.COMPILE DBLE.RA
+.COMPILE DCOS.RA
+.COMPILE DEXP3.RA
+.COMPILE DEXP.RA
+.COMPILE DIM.RA
+.COMPILE DLOG10.RA
+.COMPILE DLOG.RA
+.COMPILE DMAX1.RA
+.COMPILE DMIN1.RA
+.COMPILE DMOD.RA
+.COMPILE DSIGN.RA
+.COMPILE DSIN.RA
+.COMPILE DSQRT.RA
+.COMPILE EXP3.RA
+.COMPILE EXPCC.RA
+.COMPILE EXPCI.RA
+.COMPILE EXPDD.RA
+.COMPILE EXPDI.RA
+.COMPILE EXPDR.RA
+.COMPILE EXPIC.RA
+.COMPILE EXPID2.RA
+.COMPILE EXPID.RA
+.COMPILE EXPII.RA
+.COMPILE EXPIR.RA
+.COMPILE EXP.RA
+.COMPILE FLOAT.RA
+.COMPILE IDINT.RA
+.COMPILE IFIX.RA
+.COMPILE LTR.RA
+.COMPILE ONQIB.RA
+.COMPILE PAUSE.RA
+.COMPILE PLOT.RA
+.COMPILE REAL.RA
+.COMPILE REALTM.RA
+.COMPILE RFCV.RA
+.COMPILE RFDV.RA
+.COMPILE RSW.RA
+.COMPILE SIGN.RA
+.COMPILE SIND.RA
+.COMPILE SINH.RA
+.COMPILE SIN.RA
+.COMPILE SNGL.RA
+.COMPILE SQRT.RA
+.COMPILE TAND.RA
+.COMPILE TANH.RA
+.COMPILE TAN.RA
+.COMPILE XFIX.RA
+/
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ END OF JOB
+/
+/ *******************************************************************
+/ *******************************************************************
+$END