Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0170/macro3.for
There is 1 other file named macro3.for in the archive. Click here to see a list.
SUBROUTINE TTYSET
C
C TTYSET = (CALLED IN MAIN PROGRAM IF OUTPUT IS TO BE
C TO TERMINAL) TTYSET CHANGES THE TERMINAL
C CHARACTERISTICS TO ALLOW THE TERMINAL TO ACT
C AS AN OUTPUT TYPEWRITER. THE FOLLOWING
C TERMINAL CHARACTERISTICS ARE SET.
C NO CHECKING OF LINE WIDTH
C NO CHECKING OF PAGE LENGTH
C NO PAUSING AT TOP OF PAGE
C LOWER CASE LETTERS
C HARDWARE FORM FEEDS
C NO HARDWARE TABS
C REFUSING OF ALL SYSTEM MESSAGES
C
C *****************************************************
C * *
C * THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL *
C * *
C *****************************************************
C
RETURN
END
SUBROUTINE TTYSIM
C
C TTYSIM = (CALLED IN MAIN PROGRAM IF OUTPUT IS TO BE
C TO DISK) TTYSIM SPECIFIES THAT CHARACTER IN
C COLUMN 1 IS TO BE CONVERTED DIRECTLY TO THE
C APPROPRIATE CONTROL CHARACTER. IF TTYSIM IS
C CONVERTED TO A DUMMY ROUTINE, THEN THE FIRST
C CHARACTER ON THE FIRST LINE OF THE FIRST
C PAGE WILL BE A PLUS SIGN AND THE FIRST
C CHARACTER ON THE FIRST LINE OF ALL FOLLOWING
C PAGES WILL BE THE DIGIT ONE. ALL OTHER
C LINES WILL BEGIN WITH SPACES. THESE
C CHARACTERS SHOULD GIVE THE FOLLOWING
C CARRIAGE MOTIONS.
C PLUS GIVES NO CARRIAGE MOTION
C SPACE GIVES SINGLE LINE ADVANCE
C ONE GIVES FORM FEED
C
C *****************************************************
C * *
C * THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL *
C * *
C *****************************************************
C
RETURN
END
SUBROUTINE EXPUNG
C
C EXPUNG = (CALLED BY RNOFIL ROUTINE AFTER EACH SCRATCH
C FILE IS DELETED) FROFF DELETES SCRATCH FILES
C AFTER THESE ARE NO LONGER NECESSARY. ON
C SOME SYSTEMS, THOUGH, SUCH FILES ARE STILL
C RETAINED ALTHOUGH THESE NO LONGER ARE LISTED
C IN THE USER DIRECTORY. MANY OF THESE NO
C LONGER NEEDED FILES CAN ACCUMULATE SINCE
C FROFF MAKES HEAVY USE OF SCRATCH FILES IN
C CONSTRUCTING FOOTNOTES AND INDEXES. EXPUNG
C IS CALLED TO FREE UP THIS DISK SPACE AFTER
C EACH SCRATCH FILE IS DELETED.
C
C *****************************************************
C * *
C * THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL *
C * *
C *****************************************************
C
RETURN
END
SUBROUTINE LEAVE
C
C LEAVE = (CALLED IN MAIN PROGRAM AFTER ALL PROCESSING
C HAS BEEN COMPLETED). THE LEAVE ROUTINE HALTS
C EXECUTION WITHOUT TYPING THE JOB STATISTICS
C WHICH ARE OFTEN GENERATED BY A FORTRAN STOP
C STATEMENT.
C
C *****************************************************
C * *
C * THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL *
C * *
C *****************************************************
C
STOP
END