.TITLE $USRSB .ENABL LC .MCALL SDAT$,RQST$,GLUN$,DIR$,WTSE$S ; ; ; Written by Rick Webster ; MSDGO, Process Control Applications ; 23-MAR-82 ; Caterpillar Tractor Co. ; ; ; VERSION 01 ; Edit number = 0001 ; File = USRSB.MAC ; Edited by: Rick Webster 23-MAR-82 11:56:45 ; ; ;****************************************************************************** ; ; This software is provided on an "as is" basis only. Caterpillar Tractor Co., ; disclaims all warranties on the program, including without limitation, all ; implied warranties of merchantablity and fitness. ; ; Full permission and consent is hereby given to DECUS and to the DECUS ; special interest groups to reproduce, distribute, and publish and permit ; others to reproduce in whole or in part, in any form and without restriction ; this program and any information relating thereto ; ;****************************************************************************** ; ; ; Modifications: ; ; ; ;+ ; **-$USRSB-User subroutine for ...BYE for WHO support-** ; ; This is a user subroutine to be called by the ...BYE program. ; It is used with the TERCOM and WHO package submitted on the ; 1979 New Orleans spring DECUS submission by J. Neeland of ; Hughes Research Labs. Most of the following code was included ; in a SLP patch to ...BYE at that time. This got to be cumbersome ; for newer versions of ...BYE so the user subroutine approach is ; now used. The main function of this subroutine is to pass log out ; information to the task TLOGGR ; ; ; Inputs: ; ; ; Outputs: ; ; Log out info is sent to task TLOGGR ;- ; ; Routines called ; ; ; Equated symbols ; ; ; Local macros ; ; ; Local data ; MSGBUF: .WORD 2 ;beginning of msg buffer for send to .BLKW 6 ; tloggr task. opcode=2 for logout. LUNBUF: .BLKW 6 ;use msg buffer for lun info too GLUN: GLUN$ 1,LUNBUF ;get info about terminal SND: SDAT$ TLOGGR,MSGBUF,1 ;send to tloggr task, wait for efn #1 RQST: RQST$ TLOGGR ;activate tloggr task if not running ; $USRSB:: MOV #MSGBUF+1,R0 ;set pointer to begin of msg area DIR$ #GLUN ;get the needed info re the terminal MOVB LUNBUF+G.LUNU,(R0)+ ;copy out the terminal number MOVB LUNBUF+G.LUNA,(R0)+ ; followed by the name MOVB LUNBUF+G.LUNA+1,(R0)+ DIR$ #SND,RET ;send unless error WTSE$S #1 ;wait until send is complete DIR$ #RQST ;request activation of tloggr RET: RETURN .END