;++
; Copyright © 1993 - 1998  by Brian Schenkenberger and TMESIS.
; ALL RIGHTS RESERVED.
;                            Notice of Disclaimer
;                         -------------------------
; 
; This Software is provided "AS IS" and is supplied for informational purpose
; only.  No warranty is expressed or implied and no liability can be accepted
; for any direct, indirect or consequential damages or for any damage whatso-
; ever resulting in the loss of systems, data or profit from the use of this
; software or from any of the information contained herein.  The author makes
; no claims as to the suitablility or fitness of this Software or information
; contain herein for any particular purpose.  
;
;
;                              Software License
;                         -------------------------
; This Software is furnished under license.  The licensee may not distribute
; any copy of the Software without the prior written consent of the licensor.
; For FIELD TEST releases of this Software, the licensee may install and use
; this software on any machine (CPU) which is held property of the licensee.
; LICENSED USE of this software is provided *ONLY* for use AT YOUR OWN RISK.
;
;
;                            Title and Ownership
;                         -------------------------
; NO TITLE TO AND/OR OWNERSHIP OF THIS SOFTWARE IS HEREBY TRANSFERRED.  ANY
; MODIFICATION WITHOUT THE PRIOR WRITTEN CONSENT OF THE COPYRIGHT HOLDER IS
; PROHIBITED.  ANY USE, IN WHOLE OR PART, OF THIS SOFTWARE FOR A COMMERCIAL
; PRODUCT WITHOUT THE PRIOR WRITTEN CONSENT OF THE COPYRIGHT HOLDER IS ALSO
; PROHIBITED.  THE TECHNIQUES EMPLOYED IN THE SOFTWARE ARE THE INTELLECTUAL
; PROPERTY OF THE COPYRIGHT HOLDER.  THIS SOFTWARE CONTAINS "TRADE SECRETS"
; AND PROPRIETARY SOFTWARE TECHNIQUES.  REVERSE ENGINEERING OF THE SOFTWARE
; IS STRICTLY PROHIBITED.
;--
	.
	.
	.

	;++
	; enable blank parsing
	;--
	.ON_VAX	<.entry	parse_blanks,0>	; set parse blk opt. bit - parse blanks
	.ON_AXP	<.call_entry label=parse_blanks,home_args=true,max_args=2>
	.START_AP_JACKET
	.ON_AXP	<MOVL	4(AP),AP>
	bbss	#tpa$v_blanks,tpa$l_options(ap),1$
1$:	.END_AP_JACKET
	ret

	;++
	; disable blank parsing
	;--
	.ON_VAX	<.entry	parse_noblanks,0> ; clear parse blk opt. bit - ignore blanks
	.ON_AXP	<.call_entry label=parse_noblanks,home_args=true,max_args=2>
	.START_AP_JACKET
	.ON_AXP	<MOVL	4(AP),AP>
	bbcc	#tpa$v_blanks,tpa$l_options(ap),1$
1$:	.END_AP_JACKET
	ret

	.
	.
	.