Программирование на УКНЦ как?

[Patron]

CONST R=200B; 
VAR A ORIGIN 177564B:INTEGER;
WHILE (A AND R)=0 DO;

Эквивалентно:

1$:	BIT	#200, @#177564
	BEQ	1$

Но проще так:

1$:	TSTB	@#177564
	BPL	1$