.TITLE VTLON - Re-attach VTL interface .IDENT /V01.0/ .ENABLE LC .NLIST BEX ; ; The information herein is the property of Caterpillar Tractor Co. ; and/or its subsidiaries and is considered confidential. Without ; prior written permission, any disclosure, copying or transmittal ; to others is prohibited. ; ; ; Version 1.0 Rick Webster Aug 2, 1984 ; ;+ ; Function: ; This program will cause VTL (Virtual Terminal Logger) ; to cause VTL running from the same terminal that ; this program is running on, to re-attach if it is ; currently detached ( ^D entered to VTL) ; ; Operation: ; ; RUN $VTLON on same terminal that VTL is running on ; ; ; ; .mcall SDAT$,EXIT$S,DIR$,GLUN$S BUF: .BLKW 13. SEND: SDAT$ ,BUF VTL: .RAD50 /VTL/ .WORD 0 TT: .ASCII /T / .EVEN START: GLUN$S #5,#BUF ; Get LUN info on TI: BCS 10$ ; If error forget it BIC #177400,BUF+2 ; Clear upper byte of unit number MOV #"AT,BUF ; Put ATtach indicator in send buf MOV BUF+2,R1 ; Put unit number in R1 MOV #TT+1,R0 ; Put address for converted chars in R0 MOV #10010,R2 ; 2 byte field, octal, 0 suppress CALL $CBTA ; Convert unit number to ascii MOV #TT,R0 ; Set uo R0 for $CAT5 MOV #1,R1 ; Dots are OK CALL $CAT5 ; Convert ascii to Rad50 MOV R1,VTL+2 ; Put VTL task MOV VTL,SEND+S.DATN ; name (VTLTn) MOV VTL+2,SEND+S.DATN+2 ; into send data DPB DIR$ #SEND ; Send data to appropriate VTL 10$: EXIT$S .END START