Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0170/macro2.mac
There is 1 other file named macro2.mac in the archive. Click here to see a list.
title MACRO2
;FORTRAN CALLABLE ROUTINES NEEDED BY FROFF ON THE DECSYSTEM20
;These make the use of FROFF easier, but are not necessary.
;
search monsym,macsym
;
;------------------------------------------------------------------
;
;CALL EXPUNG(NO ARGUMENTS)
;
;Expunges deleted files from a directory on the DECsystem-20.
;This is called by FROFF after each temporary scratch file is
;closed and deleted.
;
;kim peck 1/79
;
expung::
seto 1, ;set up info to get current dir num
move 2,[-1,,dirnum#] ;ask for 1 word of info
movei 3,.jidno ;offset for dir number in gettab
getji ;get actual info
jump ;noop
move 2,dirnum ;load directory number
hrlzi 1,(dd%dtf+dd%dnf) ;flag options for deldf
deldf ;do expunge of temp and deleted files
popj 17, ;return
;------------------------------------------------------------------
;
;CALL LEAVE(NO ARGUMENTS)
;
;Exits without the time statistics produced by FORTRAN STOP statement
;
LEAVE::
HALTF ;stop this fork
jrst 0,leave ;repeat if user continues program
;
;FOLLOWING IS THE DECSYSTEM10 CODE TO DO SAME
;
; EXIT 0,
; EXIT 0,
; EXIT 0,
;
;------------------------------------------------------------------
;
;CALL TTYSET(NO ARGUMENTS)
;
;Judy Martel Nov 81
;
;Sets terminal characteristics of controlling terminal to following:
;
;Refuse Links
;Refuse Advice
;Refuse System-Messages
;Pause Command
;No Pause End-Of-Page
;Length 0
;Width 0
;Lowercase
;No Raise
;No Flag
;No Indicate
;Formfeed
;No Tabs
;No Immediate.
;
ttyset::
; Do mode word
movx 1,.priou ;TT%PGM == enables pause command
movx 2,TT%PGM+TT%MFF+TT%LCA ;TT%MFF == formfeed
stpar ;TT%LCA == lowercase
; Do "system messages" bit.
movx 1,.priou
movx 2,.mosnt ;Refuse system messages
movx 3,.mosmn
mtopr
; Do CCOC words.
movx 1,.priou
rfcoc ;Get current CCOC words
movx 1,2 ;"send actual code"
dpb 1,[point 2,2,25] ;For ^L
; Do links/advice
movx 1,.cttrm ;refuse links and advice
txo 1,tl%sab!tl%sta ;don't ask!
tlink
jump ;failure return
ret ;normal return
end