Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;** TO MAKE MANTIS.DOC, MANTS5.HLP, MANOTS.SHR, MANLOW.REL, LOADER.SHR, COMPIL.SHR, F40.SHR, .MAPS, .CRFS
;
;** USE .SUBMIT MANTIS/RESTART:1/TIME:30:00
;
;** REQUIRED FILES:
;
;SYS:	FORLIB.REL
;	FORPRM.UNV
;	LINK SHRS
;
;DSK:	MANTS5.RNT	;FROM DTA
;	MANTS5.RNH	;FROM DTA
;	MANTS5.RND	;FROM DTA
;	MANTS.MAC	;FROM DTA	;VERSION 5 (FOROTS)
;	LOADER.MAC	;FROM DTA	;VERSION 57(151)-4
;	COMPIL.MAC	;FROM DTA	;VERSION 22B(240)-4
;	FX2.MAC		;FROM DTA	;VERSION 27C(360)-5
;	FX1.MAC
;	FX3.MAC
;	FX4.MAC
;	EXEC.MAC
;
;***********************************************************************
;
;	FEATURES OF VERSION 5 OF MANTIS FOR FOROTS
;
;	1) LOADER USED FOR NOW FOR F40 DEBUG ELSE LINK SELECTED BY COMPIL
;	2) .LOAD IN ORDER TO .SAVE BEFORE OTS CALL
;	3) *RETRY COMMAND NOT IMPLEMENTED
;	4) OUTPUT AND TYPE CMDS MAY BE ABBREVIATED TO *OU AND *TY
;	5) INTEGER ERRMX. ACCESSIBLE TO CONTROL REPORTING OF OTS ERRORS
;
;***********************************************************************

.R RUNOFF		;CREATE MANTIS.DOC
*MANTS5.RNT,MANTS5.RNH,MANTS5.RND
.COPY MANTIS.DOC=MANTS5.MEM,MANTS5.HLP,MANTS5.DOC
.DELETE MANTS5.MEM,MANTS5.DOC
;
.MAKE FT.MAC		;CREATE LOADER.SHR
*IMANTIS==1
EX
.LOAD/CREF/LOAD FT+LOADER
.VERSION
.SSAVE D:LOADER
.TECO			;CREATE COMPIL.SHR
*IDFORTRAN==0		;DEFAULT FORTRAN IS F40 AND DEFAULT LOADER IS LINK-10
EX
.LOAD/CREF FT+COMPIL
.VERSION
.SSAVE D:COMPIL
.TECO			;CREATE F40.SHR
*9KIREENTR==1
*FTMANTIS==1
EX
.LOAD/CREF FT+<FX4,EXEC,FX1+FX2+FX3>
.VERSION
.SSAVE D:F40
.TECO			;COMPILE MANTS.MAC TWICE
*9KIREENT==1
EX
.COMPILE/CREF FT+MANTS
.COMPILE MANLOW=MANTS
.R FUDGE2		;EXTRACT FOROTS.REL AND FORINI.REL FROM SYS:FORLIB.REL
*FOROTS.REL_SYS:FORLIB<FOROTS>/E
*FORINI.REL_SYS:FORLIB<FORINI>/E
.R LINK			;LINK MANOTS.SHR
*/MAP
*FOROTS,SYS:FORLIB/S
*MANTS,FORINI
*/E/GO
.VERSION
.SSAVE D:MANOTS
.DELETE FT.MAC,MANTS.REL,COMPIL.REL,LOADER.REL,FX?.REL,EXEC.REL,FOROTS.REL,FORINI.REL,*.TMP