Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0169/macd20.mac
There are 5 other files named macd20.mac in the archive. Click here to see a list.
title MACRO2
;FORTRAN CALLABLE ROUTINES FOR ADDRESS SYSTEM ON THE DECSYSTEM20
;These make the use easier, but are not necessary.
;
search monsym,macsym
;
;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
;
;------------------------------------------------------------------
;
;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