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