HP OpenVMS Systems

ask the wizard
Content starts here

Print symbiont for terminal-attached printer?

» close window

The Question is:

 
How do I create a run/execute que that will do a passthru function for
printing.  I.E.  I want to print from an application that only supports
printing to a que, but I am dialed in with a VT terminal with a printer port
via a modem connection.
 


The Answer is :

 
  The OpenVMS Wizard is aware of freeware/shareware OpenVMS print symbionts
  available that can route printer output to a VT terminal with an attached
  printer.
 
  Effectively, this print symbiont allocates a connection to the target
  terminal device (typically using SHARE privilege), sends the terminal
  escape sequence to route output to the attached printer, sends the
  contents of the file to the terminal and thus through to the printer,
  then switches the output back to the terminal via an escape sequence.
 
  No, the OpenVMS Wizard does not have any immediate suggestions nor
  sources for this print symbiont.
 
  The attached symbiont was acquired from a posting on CompuServe many
  years ago, author unknown -- two versions are posted, the original
  OpenVMS VAX and an OpenVMS Alpha port.  (If you are or know of the
  author of this, please contact the OpenVMS Wizard.)  To build this
  symbiont, please follow the instructions in the OpenVMS manual set for
  the creation of customization of print symbionts, and the steps to
  configure the symbiont.
 
 
--------------------------------------------------------------------------------
	.TITLE SLAVE_SMB - An symbiont for terminal slave printers
 
;+
; This printer symbiont routes print jobs back to the user's terminal
; for printing on the terminal connected slave printer (if there is one
; and if the user is still logged on).  This enables slave printing to
; be seamlessly integrated into the VMS system as a queue.  If it is
; likely that more than one user will want to use this facility, then
; several such queues should be set up, all fed from the same generic
; queue.  The symbiont is multithreaded, supporting up to 16 streams.
 
; Note, however, that there is a complication in the case of clusters.
; The generic and multiple execution queues should (in the homogeneous
; case) be duplicated on each node with cluster unique names.  The slave
; queue complex should therefore be referenced through a cluster common
; logical pointing to a node's specific slave generic queue.
;-
 
;+
; Modification history
 
;  24-JAN-1990 : Created.
 
;  08-FEB-1990 : Single threaded version to named device.
 
;  09-FEB-1990 : Single threaded version to device named in /PARAMETER.
 
;  10-FEB-1990 : Legal device checking & terminal state control added.
 
;  18-FEB-1990 : Modified to delay (in EXEC mode) between keyboard lock
;                and terminal -> transparent print mode.
;		 Note _strange_ system bug fix.
 
;  02-JUN-1990 : LIB$WAIT replaced by $SETIMR & $WAITFR_S to avoid kludge.
 
;  21-NOV-1990 : Set term to VT200-8bit and reset to VT100 mode, to allow
;                for printing of graphics character set.
 
;-
 
	.LIBRARY	'SYS$LIBRARY:LIB'
 
;+
; System definitions
;-
	$PSMDEF					; PSM definitions
	$SMBDEF					; SMB definitions
	$DSCDEF					; DSC definitions
	$OPCDEF					; OPC definitions
	$PRVDEF					; PRV definitions
	$DVIDEF					; GETDVI item codes
	$IODEF					; I/O function codes
	$SSDEF					; Status codes
	$DCDEF					; Device class symbols
 
;+
; Define argument offsets for user supplied services called by symbiont
;-
 
	CONTEXT		= 04			; Symbiont context
	WORK_AREA	= 08			; User context
	FUNC		= 12			; Function code
	FUNC_DESC	= 16			; Function dependent descriptor
	FUNC_ARG	= 20			; Function dependent argument
 
;+
; D_DESC - Macro to create dynamic descriptors
;-
 
	.MACRO	D_DESC
		.WORD	0			; DSC$W_LENGTH  = 0
		.BYTE	DSC$K_DTYPE_T		; DSC$B_DTYPE   = STRING
		.BYTE	DSC$K_CLASS_D		; DSC$B_CLASS   = DYNAMIC
		.LONG	0			; DSC$A_POINTER = 0
	.ENDM
 
;+
; STR_DESC - Macro to create string descriptors
;-
 
	.MACRO	STR_DESC	TEXT,?STR
	.WORD	%LENGTH(TEXT)
	.BYTE	DSC$K_DTYPE_T
	.BYTE	DSC$K_CLASS_D
	.LONG	STR
STR:	.ASCII	/TEXT/
	.ENDM
 
;+
; Symbiont data
;-
 
TT_CHAN:	.BLKW	1			; Channel to user's TT
 
TT_NAME:	 D_DESC				; TT name from PARAMETER_1
 
TT_TYPE:	.BLKL	1			; Device class from LIB$GETDVI
 
NL_NAME:	.ASCID	/NL:/			; Null device for junking
 
IO_STATUS:	.BLKQ	1			; I/O status block
 
;+
; Symbiont buffer pointers
;-
 
	B_ADDR:		.LONG	0
	B_SIZE:		.LONG	0
 
;+
; Create form feed string descriptor
;-
 
	FF = 12
 
	FORM_FEED:	.WORD	1
			.BYTE	DSC$K_DTYPE_T
			.BYTE	DSC$K_CLASS_D
			.LONG	FF_ADDR
	FF_ADDR:	.ASCII	<FF>
 
;+
; Terminal control sequences
;-
 
	ESC = 27
 
	LOCK_1:		.BYTE	ESC
			.ASCII	/[2h/		; lock keyboard
 
	LOCK_1_LEN	= < . - LOCK_1 >
 
	LOCK_0:		.BYTE	ESC
			.ASCII	/[2l/		; unlock keyboard
 
	LOCK_0_LEN	= < . - LOCK_0 >
 
	XPRINT_1:	.BYTE	ESC
			.ASCII	/[5i/		; transparent print on
 
	XPRINT_1_LEN	= < . - XPRINT_1 >
 
	XPRINT_0:	.BYTE	ESC
			.ASCII	/[4i/		; transparent print off
 
	XPRINT_0_LEN	= < . - XPRINT_0 >
 
	VT200_8BIT:	.BYTE	ESC
			.ASCII	/[62;2"p/	; VT200 8-bit Terminal mode on
			.BYTE	ESC
			.ASCII	/ G/		; 8-bit Trasmission mode on VT200
 
	VT200_8BIT_LEN	= < . - VT200_8BIT >
 
	VT100:		.BYTE	ESC
			.ASCII	/[61"p/		; VT100 Terminal mode on
 
	VT100_LEN	= < . - VT100 >
 
 
;+
; OPR_DESC - Macro to create operator message descriptors
;-
 
	.MACRO	OPR_DESC	TEXT,?OPR
	.WORD	%LENGTH(TEXT)+8
	.BYTE	DSC$K_DTYPE_T
	.BYTE	DSC$K_CLASS_D
	.LONG	OPR
OPR:	.BYTE	OPC$_RQ_RQST
	.BYTE	OPC$M_NM_CENTRL
	.WORD	0
	.LONG	0
	.ASCII	/TEXT/
	.ENDM
 
;+
; Create operator messages
;-
 
	BAD_TT:	OPR_DESC	<Slave Symbiont - Invalid TERM device>
 
;+
; Process name descriptor
;-
 
	PROC_NAME:	.ASCID	/Slave Symbiont/
 
;+
; Own storage for values passed by reference
;-
 
	CODE:		.LONG	0		; Service or item code
	STREAMS:	.LONG	1		; Number of simultaneous streams
	BUFSIZ:		.LONG	512		; Output buffer size
 
;+
; Own storage for symbiont status
;-
 
	COUNT:		.LONG	0		; # calls to COMPLETE
 
;+
; Privilege mask - NETMBX + BYPASS + LOG_IO + PHY_IO + CMEXEC
;-
 
	PRVMSK:		.LONG	PRV$M_NETMBX ! -
				PRV$M_BYPASS ! -
				PRV$M_LOG_IO ! -
				PRV$M_PHY_IO ! -
				PRV$M_CMEXEC
			.LONG	0
 
;+
; Main routine - Invoked at image startup
;-
 
	.ENTRY	SLAVE_SMB,^M<>			; Save nothing
 
;+
; Supply private output routine - PSM$K_OUTPUT
;-
 
	MOVZBL	#PSM$K_OUTPUT,CODE		; Set the service code
	PUSHAL	OUTPUT				; Address of modified routine
	PUSHAL	CODE				; Address of service code
	CALLS	#2,G^PSM$REPLACE		; Replace the routine
	BLBC	R0,10$				; Exit if any errors
 
;+
; Supply private input routine - PSM$K_JOB_COMPLETION
;-
 
	MOVZBL	#PSM$K_JOB_COMPLETION,CODE	; Set the service code
	PUSHAL	COMPLETE			; Address of modified routine
	PUSHAL	CODE				; Address of service code
	CALLS	#2,G^PSM$REPLACE		; Replace the routine
	BLBC	R0,10$				; Exit if any errors
 
;+
; Set privileges required for symbiont operation
;-
 
	$SETPRV_S -
		ENBFLG = #1, -
		PRVADR = PRVMSK
	BLBC	R0,10$
 
;+
; Set process name
;-
 
	$SETPRN_S -
		PRCNAM = PROC_NAME
	BLBC	R0,10$
 
;+
; Transfer control to the standard symbiont
;-
 
	PUSHAL	BUFSIZ				; Address of output buffer size
	PUSHAL	STREAMS				; Address of number of streams
	CALLS	#2,G^PSM$PRINT			; Invoke standard symbiont
	BLBC	R0,10$				; Exit if any errors
 
10$:	RET
 
;+
; Output routine - PSM$K_OUTPUT
;-
 
OUTPUT:		.WORD	0			; Save nothing
 
;+
; Check function code
;-
 
	CMPL	#PSM$K_START_TASK,@FUNC(AP)	; Start of task ?
	BNEQ	100$
	BRW	140$
100$:	CMPL	#PSM$K_CANCEL,@FUNC(AP)		; Cancel task ?
	BNEQ	110$
	BRW	150$
110$:	CMPL	#PSM$K_WRITE,@FUNC(AP)		; Write ?
	BNEQ	120$
	BRW	160$
120$:	CMPL	#PSM$K_WRITE_NOFORMAT,@FUNC(AP) ; Write unformatted ?
	BNEQ	130$
	BRW	170$
130$:	MOVL	#PSM$_FUNNOTSUP,R0		; Unsupported function
	RET					; Return to symbiont
 
;+
; PSM$K_START_TASK
;-
 
140$:	BSBW	OPEN_TERM			; Set up terminal chan, etc
	MOVL	#SS$_NORMAL,R0			; Errors handled in OPEN_TERM
	RET					; Return to symbiont
 
;+
; PSM$K_CANCEL
;-
 
150$:	BSBW	CLOSE_TERM			; Close down terminal chan, etc
	MOVL	#SS$_NORMAL,R0			; Errors handled in CLOSE_TERM
	RET					; Return to symbiont
 
;+
; PSM$K_WRITE
;-
 
160$:	PUSHAL	B_ADDR				; Address of symbiont buffer
	PUSHAL	B_SIZE				; Size of symbiont buffer
	PUSHL	FUNC_DESC(AP)			; Descriptor for string to send
	CALLS	#3,G^STR$ANALYZE_SDESC		; Get address & size of string
	MOVZWL	B_SIZE,R1			; Get size
	$QIOW_S -				; QIO to terminal
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK,-
		IOSB = IO_STATUS,-
		P1   = @B_ADDR,-
		P2   = R1,-
		P4   = #^X00000000		; No carriage control
	BSBW	IO_ERROR			; Check for IO errors
	CMPL	#0,COUNT			; Is this the last write
	BNEQ	161$				; No - branch round ...
	BSBW	CLOSE_TERM			; Close down terminal chan, etc
161$:	MOVL	#SS$_NORMAL,R0
	RET					; Return to symbiont
 
;+
; PSM$K_WRITE_NOFORMAT
;-
 
170$:	PUSHAL	B_ADDR				; See comments above ....
	PUSHAL	B_SIZE
	PUSHL	FUNC_DESC(AP)
	CALLS	#3,G^STR$ANALYZE_SDESC
	MOVZWL	B_SIZE,R1
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = @B_ADDR,-
		P2   = R1
	BSBW	IO_ERROR
	CMPL	#0,COUNT
	BNEQ	171$
	BSBW	CLOSE_TERM
171$:	MOVL	#SS$_NORMAL,R0
	RET					; Return to symbiont
 
;+
; Subroutine OPEN_TERM - Sets up terminal chan, etc.
;-
 
OPEN_TERM:
 
 
; Get PARAMETER_1 -> TT_NAME.
 
 
	MOVZBL	#SMBMSG$K_PARAMETER_1,CODE	; Set item code
	PUSHAL	TT_NAME				; Address of descriptor
	PUSHAL	CODE				; Address of item code
	PUSHAL	@CONTEXT(AP)			; Address of symbiont ctx value
	CALLS	#3,G^PSM$READ_ITEM_DX		; Read PARAMETER_1
	BSBW	ERROR				; Check system service
 
 
; If TT_NAME is a terminal, assign a channel to it.
; If it isn't, send an OPCOM message and open a channel to NL:
 
 
	MOVZBL	#DVI$_DEVCLASS,CODE		; Item code to get device type
	PUSHAL	TT_TYPE				; Receives device type
	PUSHAL	TT_NAME				; Device name from /PARAMETER
	PUSHL	#0				; Channel not available yet
	PUSHAL	CODE				; Item code
	CALLS	#4,G^LIB$GETDVI			; Get device information
	BLBC	R0,190$				; Any errors, open NL:
	CMPL	#DC$_TERM,TT_TYPE		; Is device a terminal
	BNEQ	190$				; If not, open NL:
	BRW	191$				; OK - go on to next bit ...
 
190$:	BRW	195$
 
 
; Assign channel to TT:
 
 
191$:	$ASSIGN_S	DEVNAM	= TT_NAME,-	; TT:
			CHAN	= TT_CHAN	; TT channel
	BSBW	ERROR				; Check system service
 
 
; Set terminal to VT200 8bit mode
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = VT200_8BIT,-
		P2   = #VT200_8BIT_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Lock keyboard.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = LOCK_1,-
		P2   = #LOCK_1_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Wait 3 seconds before setting up transparent printing.
 
 
	BSBW	DELAY_3
 
 
; Enter transparent print mode.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = XPRINT_1,-
		P2   = #XPRINT_1_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
	RSB
 
 
; Assign channel to NL: and send OPCOM message.
 
 
195$:	$ASSIGN_S	DEVNAM	= NL_NAME,-	; NL:
			CHAN	= TT_CHAN	; TT channel
 
	BSBW	ERROR				; Check system service
 
	$SNDOPR_S	MSGBUF	= BAD_TT,-	; Send OPCOM message
			CHAN	= #0
	BSBW	ERROR				; Check system service
 
	RSB
 
;+
; Subroutine CLOSE_TERM - Closes down terminal chan, etc.
;-
 
CLOSE_TERM:
 
; Exit transparent print mode.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = XPRINT_0,-
		P2   = #XPRINT_0_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Unlock keyboard.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = LOCK_0,-
		P2   = #LOCK_0_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Set term to VT100 mode
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = VT100,-
		P2   = #VT100_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Deassign channel to TT
 
 
	$DASSGN_S	CHAN = TT_CHAN		; Deassign TT channel
 
	BSBW	ERROR				; Check system service
 
	RSB
 
 
;+
; Subroutine DELAY_3 - Waits 3 seconds.
;-
 
DELAY_DELTA:	.ASCID	/0 00:00:03.00/		; 3 seconds delta
 
DELAY_TIME:	.BLKQ	1			; Binary rep. of above
 
DELAY_3:
 
 
; Convert ASCII representation into 64 bit binary
 
 
	$BINTIM_S -
		TIMBUF	= DELAY_DELTA, -
		TIMADR	= DELAY_TIME
	BSBW	ERROR				; Check system service
 
 
; Set time to wait
 
 
	$SETIMR_S -
		EFN	= #2, -
		DAYTIM	= DELAY_TIME
	BSBW	ERROR				; Check system service
 
 
; Do the actual wait
 
 
	$WAITFR_S -
		EFN	= #2
	BSBW	ERROR				; Check system service
 
	RSB
 
;+
; Subroutine IO_ERROR / ERROR - Checks for errors
;-
 
IO_ERROR:				; Check system service and I/O status
	BLBC	R0,ERR			; If low bit clear then error
	MOVZWL	IO_STATUS,R0		; Test I/O status
 
ERROR:					; Check system service status (R0)
	BLBC	R0,ERR			; If low bit clear then error
	RSB				; No errors so return
 
ERR:
	$EXIT_S	-			; Error occurred so exit
		CODE = R0		;  with status
 
 
;+
; Input routine - PSM$K_JOB_COMPLETION
;-
 
COMPLETE:	.WORD	0			; Save nothing
 
;+
; Check function code
;-
 
	CMPL	#PSM$K_START_TASK,@FUNC(AP)	; Start of task ?
	BNEQ	200$
	BRW	220$
200$:	CMPL	#PSM$K_READ,@FUNC(AP)		; Read ?
	BNEQ	210$
	BRW	230$
210$:	MOVL	#PSM$_FUNNOTSUP,R0		; Unsupported function
	RET					; Return to symbiont
 
;+
; PSM$K_START_TASK
;-
 
220$:	MOVZBL	#2,COUNT			; Reset READ call count
	MOVL    #SS$_NORMAL,R0			; Set success exit code
	RET					; Return to symbiont
 
;+
; PSM$K_READ
;-
 
230$:	DECL	COUNT				; Decrement READ call count
	BEQL	240$				; Branch if second
 
 
; Send a <FF> to flush output
 
 
	PUSHAB	FORM_FEED			; <FF> descriptor
	PUSHL	FUNC_DESC(AP)			; Symbiont descriptor
	CALLS	#2,G^STR$COPY_DX		; Copy to symbiont buffer
	RET					; Return to symbiont
 
 
; Done - return PSM$_EOF
 
 
240$:	MOVL	#PSM$_EOF,R0			; Set EOF exit code
	RET					; Return to symbiont
 
;+
; End of SLAVE_SMB
;-
 
	.END	SLAVE_SMB
 
--------------------------------------------------------------------------------
	.TITLE SLAVE_SMB - An symbiont for terminal slave printers
 
;+
; This printer symbiont routes print jobs back to the user's terminal
; for printing on the terminal connected slave printer (if there is one
; and if the user is still logged on).  This enables slave printing to
; be seamlessly integrated into the VMS system as a queue.  If it is
; likely that more than one user will want to use this facility, then
; several such queues should be set up, all fed from the same generic
; queue.  The symbiont is multithreaded, supporting up to 16 streams.
 
; Note, however, that there is a complication in the case of clusters.
; The generic and multiple execution queues should (in the homogeneous
; case) be duplicated on each node with cluster unique names.  The slave
; queue complex should therefore be referenced through a cluster common
; logical pointing to a node's specific slave generic queue.
;-
 
;+
; Modification history
 
;  24-JAN-1990 : Created.
 
;  08-FEB-1990 : Single threaded version to named device.
 
;  09-FEB-1990 : Single threaded version to device named in /PARAMETER.
 
;  10-FEB-1990 : Legal device checking & terminal state control added.
 
;  18-FEB-1990 : Modified to delay (in EXEC mode) between keyboard lock
;                and terminal -> transparent print mode.
;		 Note _strange_ system bug fix.
 
;  02-JUN-1990 : LIB$WAIT replaced by $SETIMR & $WAITFR_S to avoid kludge.
 
;  21-NOV-1990 : Set term to VT200-8bit and reset to VT100 mode, to allow
;                for printing of graphics character set.
 
;  1999-04-15	John Simmonds
;		Port to OpenVMS Alpha.
;-
 
	.LIBRARY	'SYS$LIBRARY:LIB'
 
;+
; System definitions
;-
	$PSMDEF					; PSM definitions
	$SMBDEF					; SMB definitions
	$DSCDEF					; DSC definitions
	$OPCDEF					; OPC definitions
	$PRVDEF					; PRV definitions
	$DVIDEF					; GETDVI item codes
	$IODEF					; I/O function codes
	$SSDEF					; Status codes
	$DCDEF					; Device class symbols
 
;+
; Define argument offsets for user supplied services called by symbiont
;-
 
	CONTEXT		= 04			; Symbiont context
	WORK_AREA	= 08			; User context
	FUNC		= 12			; Function code
	FUNC_DESC	= 16			; Function dependent descriptor
	FUNC_ARG	= 20			; Function dependent argument
 
;+
; D_DESC - Macro to create dynamic descriptors
;-
 
	.MACRO	D_DESC
		.WORD	0			; DSC$W_LENGTH  = 0
		.BYTE	DSC$K_DTYPE_T		; DSC$B_DTYPE   = STRING
		.BYTE	DSC$K_CLASS_D		; DSC$B_CLASS   = DYNAMIC
		.LONG	0			; DSC$A_POINTER = 0
	.ENDM
 
;+
; STR_DESC - Macro to create string descriptors
;-
 
	.MACRO	STR_DESC	TEXT,?STR
	.WORD	%LENGTH(TEXT)
	.BYTE	DSC$K_DTYPE_T
	.BYTE	DSC$K_CLASS_D
	.LONG	STR
STR:	.ASCII	/TEXT/
	.ENDM
 
;+
; Symbiont data
;-
.psect SMB_DATA NOEXE,RD,WRT,QUAD
 
TT_CHAN:	.BLKW	1			; Channel to user's TT
 
TT_NAME:	 D_DESC				; TT name from PARAMETER_1
 
TT_TYPE:	.BLKL	1			; Device class from LIB$GETDVI
 
NL_NAME:	.ASCID	/NL:/			; Null device for junking
 
IO_STATUS:	.BLKQ	1			; I/O status block
 
;+
; Symbiont buffer pointers
;-
 
	B_ADDR:		.LONG	0
	B_SIZE:		.LONG	0
 
;+
; Create form feed string descriptor
;-
 
	FF = 12
 
	FORM_FEED:	.WORD	1
			.BYTE	DSC$K_DTYPE_T
			.BYTE	DSC$K_CLASS_D
			.LONG	FF_ADDR
	FF_ADDR:	.ASCII	<FF>
 
;+
; Terminal control sequences
;-
 
	ESC = 27
 
	LOCK_1:		.BYTE	ESC
			.ASCII	/[2h/		; lock keyboard
 
	LOCK_1_LEN	= < . - LOCK_1 >
 
	LOCK_0:		.BYTE	ESC
			.ASCII	/[2l/		; unlock keyboard
 
	LOCK_0_LEN	= < . - LOCK_0 >
 
	XPRINT_1:	.BYTE	ESC
			.ASCII	/[5i/		; transparent print on
 
	XPRINT_1_LEN	= < . - XPRINT_1 >
 
	XPRINT_0:	.BYTE	ESC
			.ASCII	/[4i/		; transparent print off
 
	XPRINT_0_LEN	= < . - XPRINT_0 >
 
	VT200_8BIT:	.BYTE	ESC
			.ASCII	/[62;2"p/	; VT200 8-bit Terminal mode on
			.BYTE	ESC
			.ASCII	/ G/		; 8-bit Trasmission mode on VT200
 
	VT200_8BIT_LEN	= < . - VT200_8BIT >
 
	VT100:		.BYTE	ESC
			.ASCII	/[61"p/		; VT100 Terminal mode on
 
	VT100_LEN	= < . - VT100 >
 
 
;+
; OPR_DESC - Macro to create operator message descriptors
;-
 
	.MACRO	OPR_DESC	TEXT,?OPR
	.WORD	%LENGTH(TEXT)+8
	.BYTE	DSC$K_DTYPE_T
	.BYTE	DSC$K_CLASS_D
	.LONG	OPR
OPR:	.BYTE	OPC$_RQ_RQST
	.BYTE	OPC$M_NM_CENTRL
	.WORD	0
	.LONG	0
	.ASCII	/TEXT/
	.ENDM
 
;+
; Create operator messages
;-
 
	BAD_TT:	OPR_DESC	<Slave Symbiont - Invalid TERM device>
 
;+
; Process name descriptor
;-
 
	PROC_NAME:	.ASCID	/Slave Symbiont/
 
;+
; Own storage for values passed by reference
;-
 
	CODE:		.LONG	0		; Service or item code
	STREAMS:	.LONG	1		; Number of simultaneous streams
	BUFSIZ:		.LONG	512		; Output buffer size
 
;+
; Own storage for symbiont status
;-
 
	COUNT:		.LONG	0		; # calls to COMPLETE
 
;+
; Privilege mask - NETMBX + BYPASS + LOG_IO + PHY_IO + CMEXEC
;-
 
	PRVMSK:		.LONG	PRV$M_NETMBX ! -
				PRV$M_BYPASS ! -
				PRV$M_LOG_IO ! -
				PRV$M_PHY_IO ! -
				PRV$M_CMEXEC
			.LONG	0
 
;+
; Main routine - Invoked at image startup
;-
.psect SMB_CODE EXE,RD,NOWRT,QUAD
 
;	.ENTRY	SLAVE_SMB,^M<>			; Save nothing
SLAVE_SMB::
	.call_entry home_args=<TRUE>,max_args=<6>,preserve=<>
 
;+
; Supply private output routine - PSM$K_OUTPUT
;-
 
	MOVZBL	#PSM$K_OUTPUT,CODE		; Set the service code
	PUSHAL	OUTPUT				; Address of modified routine
	PUSHAL	CODE				; Address of service code
	CALLS	#2,G^PSM$REPLACE		; Replace the routine
	BLBC	R0,10$				; Exit if any errors
 
;+
; Supply private input routine - PSM$K_JOB_COMPLETION
;-
 
	MOVZBL	#PSM$K_JOB_COMPLETION,CODE	; Set the service code
	PUSHAL	COMPLETE			; Address of modified routine
	PUSHAL	CODE				; Address of service code
	CALLS	#2,G^PSM$REPLACE		; Replace the routine
	BLBC	R0,10$				; Exit if any errors
 
;+
; Set privileges required for symbiont operation
;-
 
	$SETPRV_S -
		ENBFLG = #1, -
		PRVADR = PRVMSK
	BLBC	R0,10$
 
;+
; Set process name
;-
 
	$SETPRN_S -
		PRCNAM = PROC_NAME
	BLBC	R0,10$
 
;+
; Transfer control to the standard symbiont
;-
 
	PUSHAL	BUFSIZ				; Address of output buffer size
	PUSHAL	STREAMS				; Address of number of streams
	CALLS	#2,G^PSM$PRINT			; Invoke standard symbiont
	BLBC	R0,10$				; Exit if any errors
 
10$:	RET
 
;+
; Output routine - PSM$K_OUTPUT
;-
 
OUTPUT:		;.WORD	0			; Save nothing
	.call_entry home_args=<TRUE>,max_args=<6>,preserve=<>
 
;+
; Check function code
;-
 
	CMPL	#PSM$K_START_TASK,@FUNC(AP)	; Start of task ?
	BNEQ	100$
	BRW	140$
100$:	CMPL	#PSM$K_CANCEL,@FUNC(AP)		; Cancel task ?
	BNEQ	110$
	BRW	150$
110$:	CMPL	#PSM$K_WRITE,@FUNC(AP)		; Write ?
	BNEQ	120$
	BRW	160$
120$:	CMPL	#PSM$K_WRITE_NOFORMAT,@FUNC(AP) ; Write unformatted ?
	BNEQ	130$
	BRW	170$
130$:	MOVL	#PSM$_FUNNOTSUP,R0		; Unsupported function
	RET					; Return to symbiont
 
;+
; PSM$K_START_TASK
;-
 
140$:	BSBW	OPEN_TERM			; Set up terminal chan, etc
	MOVL	#SS$_NORMAL,R0			; Errors handled in OPEN_TERM
	RET					; Return to symbiont
 
;+
; PSM$K_CANCEL
;-
 
150$:	BSBW	CLOSE_TERM			; Close down terminal chan, etc
	MOVL	#SS$_NORMAL,R0			; Errors handled in CLOSE_TERM
	RET					; Return to symbiont
 
;+
; PSM$K_WRITE
;-
 
160$:	PUSHAL	B_ADDR				; Address of symbiont buffer
	PUSHAL	B_SIZE				; Size of symbiont buffer
	PUSHL	FUNC_DESC(AP)			; Descriptor for string to send
	CALLS	#3,G^STR$ANALYZE_SDESC		; Get address & size of string
	MOVZWL	B_SIZE,R1			; Get size
	$QIOW_S -				; QIO to terminal
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK,-
		IOSB = IO_STATUS,-
		P1   = @B_ADDR,-
		P2   = R1,-
		P4   = #^X00000000		; No carriage control
	BSBW	IO_ERROR			; Check for IO errors
	CMPL	#0,COUNT			; Is this the last write
	BNEQ	161$				; No - branch round ...
	BSBW	CLOSE_TERM			; Close down terminal chan, etc
161$:	MOVL	#SS$_NORMAL,R0
	RET					; Return to symbiont
 
;+
; PSM$K_WRITE_NOFORMAT
;-
 
170$:	PUSHAL	B_ADDR				; See comments above ....
	PUSHAL	B_SIZE
	PUSHL	FUNC_DESC(AP)
	CALLS	#3,G^STR$ANALYZE_SDESC
	MOVZWL	B_SIZE,R1
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = @B_ADDR,-
		P2   = R1
	BSBW	IO_ERROR
	CMPL	#0,COUNT
	BNEQ	171$
	BSBW	CLOSE_TERM
171$:	MOVL	#SS$_NORMAL,R0
	RET					; Return to symbiont
 
;+
; Subroutine OPEN_TERM - Sets up terminal chan, etc.
;-
 
OPEN_TERM:
	.jsb_entry
 
; Get PARAMETER_1 -> TT_NAME.
 
 
	MOVZBL	#SMBMSG$K_PARAMETER_1,CODE	; Set item code
	PUSHAL	TT_NAME				; Address of descriptor
	PUSHAL	CODE				; Address of item code
	PUSHAL	@CONTEXT(AP)			; Address of symbiont ctx value
	CALLS	#3,G^PSM$READ_ITEM_DX		; Read PARAMETER_1
	BSBW	ERROR				; Check system service
 
 
; If TT_NAME is a terminal, assign a channel to it.
; If it isn't, send an OPCOM message and open a channel to NL:
 
 
	MOVZBL	#DVI$_DEVCLASS,CODE		; Item code to get device type
	PUSHAL	TT_TYPE				; Receives device type
	PUSHAL	TT_NAME				; Device name from /PARAMETER
	PUSHL	#0				; Channel not available yet
	PUSHAL	CODE				; Item code
	CALLS	#4,G^LIB$GETDVI			; Get device information
	BLBC	R0,190$				; Any errors, open NL:
	CMPL	#DC$_TERM,TT_TYPE		; Is device a terminal
	BNEQ	190$				; If not, open NL:
	BRW	191$				; OK - go on to next bit ...
 
190$:	BRW	195$
 
 
; Assign channel to TT:
 
 
191$:	$ASSIGN_S	DEVNAM	= TT_NAME,-	; TT:
			CHAN	= TT_CHAN	; TT channel
	BSBW	ERROR				; Check system service
 
 
; Set terminal to VT200 8bit mode
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = VT200_8BIT,-
		P2   = #VT200_8BIT_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Lock keyboard.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = LOCK_1,-
		P2   = #LOCK_1_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Wait 3 seconds before setting up transparent printing.
 
 
	BSBW	DELAY_3
 
 
; Enter transparent print mode.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = XPRINT_1,-
		P2   = #XPRINT_1_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
	RSB
 
 
; Assign channel to NL: and send OPCOM message.
 
 
195$:	$ASSIGN_S	DEVNAM	= NL_NAME,-	; NL:
			CHAN	= TT_CHAN	; TT channel
 
	BSBW	ERROR				; Check system service
 
	$SNDOPR_S	MSGBUF	= BAD_TT,-	; Send OPCOM message
			CHAN	= #0
	BSBW	ERROR				; Check system service
 
	RSB
 
;+
; Subroutine CLOSE_TERM - Closes down terminal chan, etc.
;-
 
CLOSE_TERM:
	.jsb_entry
 
; Exit transparent print mode.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = XPRINT_0,-
		P2   = #XPRINT_0_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Unlock keyboard.
 
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = LOCK_0,-
		P2   = #LOCK_0_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Set term to VT100 mode
 
	$QIOW_S -
		CHAN = TT_CHAN,-
		FUNC = #IO$_WRITEVBLK!IO$M_NOFORMAT,-
		IOSB = IO_STATUS,-
		P1   = VT100,-
		P2   = #VT100_LEN
	BSBW	IO_ERROR			; Check for IO errors
 
 
; Deassign channel to TT
 
 
	$DASSGN_S	CHAN = TT_CHAN		; Deassign TT channel
 
	BSBW	ERROR				; Check system service
 
	RSB
 
 
;+
; Subroutine DELAY_3 - Waits 3 seconds.
;-
.save_psect
.psect SMB_DATA NOEXE,RD,WRT,QUAD
DELAY_DELTA:	.ASCID	/0 00:00:03.00/		; 3 seconds delta
 
DELAY_TIME:	.BLKQ	1			; Binary rep. of above
.restore_psect
 
DELAY_3:
	.jsb_entry
 
; Convert ASCII representation into 64 bit binary
 
 
	$BINTIM_S -
		TIMBUF	= DELAY_DELTA, -
		TIMADR	= DELAY_TIME
	BSBW	ERROR				; Check system service
 
 
; Set time to wait
 
 
	$SETIMR_S -
		EFN	= #2, -
		DAYTIM	= DELAY_TIME
	BSBW	ERROR				; Check system service
 
 
; Do the actual wait
 
 
	$WAITFR_S -
		EFN	= #2
	BSBW	ERROR				; Check system service
 
	RSB
 
;+
; Subroutine IO_ERROR / ERROR - Checks for errors
;-
 
IO_ERROR:				; Check system service and I/O status
	.jsb_entry
	BLBC	R0,ERR			; If low bit clear then error
	MOVZWL	IO_STATUS,R0		; Test I/O status
 
ERROR:					; Check system service status (R0)
	.jsb_entry
	BLBC	R0,ERR			; If low bit clear then error
	RSB				; No errors so return
 
ERR:
	.jsb_entry input=<R0>
	$EXIT_S	-			; Error occurred so exit
		CODE = R0		;  with status
	rsb
 
 
;+
; Input routine - PSM$K_JOB_COMPLETION
;-
 
COMPLETE:	;.WORD	0			; Save nothing
	.call_entry preserve=<>
 
;+
; Check function code
;-
 
	CMPL	#PSM$K_START_TASK,@FUNC(AP)	; Start of task ?
	BNEQ	200$
	BRW	220$
200$:	CMPL	#PSM$K_READ,@FUNC(AP)		; Read ?
	BNEQ	210$
	BRW	230$
210$:	MOVL	#PSM$_FUNNOTSUP,R0		; Unsupported function
	RET					; Return to symbiont
 
;+
; PSM$K_START_TASK
;-
 
220$:	MOVZBL	#2,COUNT			; Reset READ call count
	MOVL    #SS$_NORMAL,R0			; Set success exit code
	RET					; Return to symbiont
 
;+
; PSM$K_READ
;-
 
230$:	DECL	COUNT				; Decrement READ call count
	BEQL	240$				; Branch if second
 
 
; Send a <FF> to flush output
 
 
	PUSHAB	FORM_FEED			; <FF> descriptor
	PUSHL	FUNC_DESC(AP)			; Symbiont descriptor
	CALLS	#2,G^STR$COPY_DX		; Copy to symbiont buffer
	RET					; Return to symbiont
 
 
; Done - return PSM$_EOF
 
 
240$:	MOVL	#PSM$_EOF,R0			; Set EOF exit code
	RET					; Return to symbiont
 
;+
; End of SLAVE_SMB
;-
 
	.END	SLAVE_SMB
 
 

answer written or last revised on ( 7-JUL-1999 )

» close window