//MPrinS.bcpl	Subroutines used by prettyprint routines
//	Last editted: 11 June 1979

external [
// MASM
	@WssCSS; PutsCSS; WssCS1; PutsCS1

// MCMD
	WnsCSS; WnsCS1; WnsCS1D

// MPATTERN
	@PATTERN

// Defined here
	PrinV0; PrinV1; NWss; NWss1
]

static [ NextPattern ]

let PrinV0(Str,Val) be
[	WssCSS(Str); PutsCSS($=); WnsCSS(Val)
]


and PrinV1(Str,Val) be
[	WssCS1(Str); PutsCS1($=); WnsCS1(Val)
]


and NWss(Str,Val; numargs NA) be
[	if NA < 2 then Val = NextPattern
	if (PATTERN & Val) ne 0 then WssCSS(Str)
	NextPattern = Val rshift 1
]


and NWss1(Str,Val; numargs NA) be
[	if NA < 2 then Val = NextPattern
	if (PATTERN & Val) ne 0 then WssCS1(Str)
	NextPattern = Val rshift 1
]