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

diff --git a/sw/f4/FRTSRC/FMAIN.OL b/sw/f4/FRTSRC/FMAIN.OL
new file mode 100644
index 0000000..8a590f4
--- /dev/null
+++ b/sw/f4/FRTSRC/FMAIN.OL
@@ -0,0 +1,326 @@
+$JOB FORTRAN IV BUILD - MAIN PART
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ PAL-8 ASSEMBLY
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/
+/ *******************************************************************
+/ FORTRAN IV COMPILER, PASS 1
+/ *******************************************************************
+/
+.PAL F4
+.LOAD F4
+.SAVE SYS F4=0;12200
+.DELETE F4.BN
+/
+/ *******************************************************************
+/ FORTRAN IV COMPILER, PASS 2
+/ *******************************************************************
+/
+.PAL PASS2
+.LOAD PASS2
+.SAVE SYS PASS2=0;5000
+.DELETE PASS2.BN
+/
+/ *******************************************************************
+/ FORTRAN IV COMPILER, PASS 2 OVERLAY
+/ *******************************************************************
+/
+.PAL PASS2O<P2OCFG,PASS2
+.LOAD PASS2O
+.SAVE SYS PASS2O=0;7605
+.DELETE PASS2O.BN
+/
+/ *******************************************************************
+/ FORTRAN IV COMPILER, PASS 3
+/ *******************************************************************
+/
+.PAL PASS3
+.LOAD PASS3
+.SAVE SYS PASS3=0;400
+.DELETE PASS3.BN
+/
+/ *******************************************************************
+/ RALF ASSEMBLER
+/ *******************************************************************
+/
+.R PAL8
+.PAL RALF/W
+.LOAD RALF
+.SAVE SYS RALF.SV=0;200
+.DELETE RALF.BN
+/
+/ *******************************************************************
+/ FORTRAN IV LIBRARIAN
+/ *******************************************************************
+/
+.PAL LIBRA
+.LOAD LIBRA
+.SAVE SYS LIBRA=0;200
+.DELETE LIBRA.BN
+/
+/ *******************************************************************
+/ LINKING LOADER
+/ *******************************************************************
+/
+.PAL LOAD
+.LOAD LOAD
+.SAVE SYS LOAD=0;200
+.DELETE LOAD.BN
+/
+/ *******************************************************************
+/ FORTRAN IV RUNTIME SYSTEM
+/ *******************************************************************
+/
+.PAL FRTS<RTS,RTL
+.LOAD FRTS
+.SAVE SYS FRTS=0;200
+.DELETE FRTS.BN
+/
+/ SQUISHING.
+.SQUISH DSK:/O
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ STUPID ASSEMBLER PROCEDURES
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/ THE RALF ASSEMBLER REFUSES TO ACCEPPT THE .RA FILES AS THEY
+/ COME FROM KERMIT. I CANNOT INVESTIGATE WHICH PARITY IS GENERATED
+/ BY KERMIT-12. BUT I KNOW THAT PIP MAKES EVERYTHING RIGHT AGAIN.
+/ SO ALL .RA FILES ARE MOVED TROUGH PIP ONCE.
+/
+.R PIP
+*ABS.RA<ABS.RA/A
+*ACOS.RA<ACOS.RA/A
+*ADC.RA<ADC.RA/A
+*ALOG10.RA<ALOG10.RA/A
+*ALOG.RA<ALOG.RA/A
+*AMAX.RA<AMAX.RA/A
+*AMIN.RA<AMIN.RA/A
+*AMOD.RA<AMOD.RA/A
+*ASIN.RA<ASIN.RA/A
+*ATAN2.RA<ATAN2.RA/A
+*ATAN.RA<ATAN.RA/A
+*CABS.RA<CABS.RA/A
+*CARITH.RA<CARITH.RA/A
+*CEXP.RA<CEXP.RA/A
+*CHARS.RA<CHARS.RA/A
+*CHKEOF.RA<CHKEOF.RA/A
+*CLK8A.RA<CLK8A.RA/A
+*CLOCK.RA<CLOCK.RA/A
+*CLOG.RA<CLOG.RA/A
+*CMPLX.RA<CMPLX.RA/A
+*COSD.RA<COSD.RA/A
+*COSH.RA<COSH.RA/A
+*COS.RA<COS.RA/A
+*CSIN.RA<CSIN.RA/A
+*CSQRT.RA<CSQRT.RA/A
+*DABS.RA<DABS.RA/A
+*DATAN2.RA<DATAN2.RA/A
+*DATAN.RA<DATAN.RA/A
+*DATE.RA<DATE.RA/A
+*DBLE.RA<DBLE.RA/A
+*DCOS.RA<DCOS.RA/A
+*DEXP3.RA<DEXP3.RA/A
+*DEXP.RA<DEXP.RA/A
+*DIM.RA<DIM.RA/A
+*DLOG10.RA<DLOG10.RA/A
+*DLOG.RA<DLOG.RA/A
+*DMAX1.RA<DMAX1.RA/A
+*DMIN1.RA<DMIN1.RA/A
+*DMOD.RA<DMOD.RA/A
+*DSIGN.RA<DSIGN.RA/A
+*DSIN.RA<DSIN.RA/A
+*DSQRT.RA<DSQRT.RA/A
+*EXP3.RA<EXP3.RA/A
+*EXPCC.RA<EXPCC.RA/A
+*EXPCI.RA<EXPCI.RA/A
+*EXPDD.RA<EXPDD.RA/A
+*EXPDI.RA<EXPDI.RA/A
+*EXPDR.RA<EXPDR.RA/A
+*EXPIC.RA<EXPIC.RA/A
+*EXPID2.RA<EXPID2.RA/A
+*EXPID.RA<EXPID.RA/A
+*EXPII.RA<EXPII.RA/A
+*EXPIR.RA<EXPIR.RA/A
+*EXP.RA<EXP.RA/A
+*FLOAT.RA<FLOAT.RA/A
+*IDINT.RA<IDINT.RA/A
+*IFIX.RA<IFIX.RA/A
+*LTR.RA<LTR.RA/A
+*ONQIB.RA<ONQIB.RA/A
+*PAUSE.RA<PAUSE.RA/A
+*PLOT.RA<PLOT.RA/A
+*REAL.RA<REAL.RA/A
+*REALTM.RA<REALTM.RA/A
+*RFCV.RA<RFCV.RA/A
+*RFDV.RA<RFDV.RA/A
+*RSW.RA<RSW.RA/A
+*SIGN.RA<SIGN.RA/A
+*SIND.RA<SIND.RA/A
+*SINH.RA<SINH.RA/A
+*SNGL.RA<SNGL.RA/A
+*SQRT.RA<SQRT.RA/A
+*TAND.RA<TAND.RA/A
+*TANH.RA<TANH.RA/A
+*TAN.RA<TAN.RA/A
+*XFIX.RA<XFIX.RA/A$
+/
+/ SQUISHING.
+.SQUISH DSK:/O
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ 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
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ LIBRARY BUILD
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/
+/
+.R LIBRA
+*SYS:FORLIB.RL[20]/Z<ABS,ACOS,ADC,ALOG10/C
+*<ALOG,AMAX,AMIN,AMOD/C
+*<ASIN,ATAN2,ATAN,CABS/C
+*<CARITH,CEXP,CHARS,CHKEOF/C
+*<CLOCK,CLOG,CMPLX/C
+*<COSD,COSH,COS,CSIN,CSQRT/C
+*<DABS,DATAN2,DATAN,DATE/C
+*<DBLE,DCOS,DEXP3,DEXP/C
+*<DIM,DLOG10,DLOG,DMAX1/C
+*<DMIN1,DMOD,DSIGN,DSIN/C
+*<DSQRT,EXP3,EXPCC,EXPCI/C
+*<EXPDD,EXPDI,EXPDR,EXPIC,EXPID2/C
+*<EXPID,EXPII,EXPIR,EXP/C
+*<FLOAT,IDINT,IFIX,LTR,ONQIB/C
+*<PAUSE,PLOT,REAL,REALTM/C
+*<RFCV,RFDV,RSW,SIGN/C
+*<SIND,SINH,SNGL,SQRT/C
+*<TAND,TANH,TAN,XFIX=200$
+/
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/ 
+/ END OF JOB!
+/
+/ *******************************************************************
+/ *******************************************************************
+/ *******************************************************************
+/
+/ CHAIN BACK TO DSK:
+.SUBMIT DSK:EXIT.BI
+
+
+
+
+
+
+
+
+
+