;**************************************************************************
;* Although considerable effort has been expended to make this software   *
;* correct and reliable, no warranty is implied; the author disclaims any *
;* obligation or liability for damages, including but not limited to      *
;* special, indirect, or consequential damages arising out of or in       *
;* connection with the use or performance of this software.               *
;**************************************************************************

	.title	ALWSMB - Apple LaserWriter Symbiont Main Program
	.ident	/01.0/
;
;	This is the (very small) main program for the print symbiont.
;	It establishes the condition handler (no output to SYS$OUTPUT
;	or SYS$ERROR is permitted - it crashes the Queue Manager),
;	then calls the 'Main_Program'. The program exits using the
;	return value in register 0.
;
	.psect	$code	pic,shr,exe,rd,nowrt

	.entry	ALWSmb,^m<>

	CallS	#0, Dummy_Main		; Add one level of call frames
	BiSL2	#^X10000000, r0		; Suppress printing of message
	$exit_s	code=r0			; and exit

	.entry	Dummy_Main,^m<>
	
	MovAB	G^Lib$Sig_to_Ret, (fp)	; Establish condition handler
	CallS	#0, Main_Program	; Call main program
	ret				; return to caller

	.end	ALWSmb