-5160,5160
 .IF EQ CYR$CH
	BIC	#<PTYMSK>,R4	;Clear parity
 .IFF ;EQ CYR$CH
	BIC	#^C377,R4	;Isolate unused bits
 .ENDC ;EQ CYR$CH
-5707,5707
 .IF EQ CYR$CH
	BICB	#<PTYMSK>,R4	;Remove parity bit
 .ENDC ;EQ CYR$CH
-5822,5822
  .IF EQ CYR$CH
	BICB	#<PTYMSK>,R4	;Remove parity bit
  .ENDC ;EQ CYR$CH
-5991,5991
 .IF EQ CYR$CH
	BICB	#<FIXCHR>,@R4	;Make it 7 bit ASCII (mask off parity bit)
 .ENDC ;EQ CYR$CH
/