;+ ;;********************************************************************** ;; RTTON Subroutine to put RT-11 into the correct terminal I/O mode ;; for use as an Alvin pseudo device handler. ;- RTTON:: BIS #TTNOWAIT!TTSPECIAL!TTUPLOW,@#RTJSW ;FORCE RT TT SPECIAL RTTIFP: .RCTRLO ;Force RT to acknowledge the JSW change. RTS PC ;AND RETURN ;+ ;;*********************************************************************** ;; RTTOFF Subroutine to return RT-11 to standard terminal I/O mode. ;- RTTOFF:: Bic #TTNOWAIT!TTSPECIAL!TTUPLOW,@#RTJSW ;clear what RTTON did. .RCTRLO ;Force RT to acknowledge the JSW change. Rts PC ;Return ;;************************************************************************ .End