MODE_ONE	Equ	0
MODE_ALL	Equ	1
MODE_TWO	Equ	2

ProcessFlags:	Clr.L	_Mode		;clear all flag settings

	Move.L	_Flags(PC),A0		;were any flags specified
	Cmp.L	#0,A0
	Beq.S	.ProcessDone

.ProcessLoop	Move.B	(A0)+,D0		;get a flag
	Beq.S	.ProcessDone
	Bsr.S	ChangeCase

	Cmp.B	#'A',D0		;is it ALL
	Bne.S	.notAll	
	Move.B	#MODE_ALL,_Mode		;set the approprate bit
.notAll
	Cmp.B	#'T',D0		;is it TWO
	Bne.S	.notTwo	
	Move.B	#MODE_TWO,_Mode		;set the approprate bit
.notTwo
	Cmp.B	#'I',D0		;is it INSENSITIVE
	Seq	_Insensitive		;set the approprate bit

	Cmp.B	#'Q',D0		;is it QUOTE
	Seq	_Quote		;set the approprate bit

	Bra.S	.ProcessLoop
.ProcessDone	Rts