TEST001	 UCSECT	,
	 MNOTE	4,'GENERATE ASM ERROR TO SORT LISTING TO TOP'
*----------------------------------------------------------------------
ABC	 IM#BR	BNO,EXIT
ABCD	 IM#BR	BM,(R2)
ABCDE	 IM#BR	15,EXIT
ABCDEF	 IM#BR	15,(R2)
XYZ	 IM#BR	B'1001',EXIT
XYZA	 IM#BR	B'1001',(R2)
*----------------------------------------------------------------------
DEF	 IM#BAL	R3,EXIT
DEFG	 IM#BAL	R3,(R2)
DEFGH	 IM#BAL	(R3),EXIT
DEFGHI	 IM#BAL	(R3),(R2)
*----------------------------------------------------------------------
GEF	 IM#BAL	R3,EXIT,SKIP=BNO
GEFG	 IM#BAL	R3,(R2),SKIP=B'1100'
GEFGH	 IM#BAL	(R3),EXIT,SKIP=BNO
GEFGHI	 IM#BAL	(R3),(R2),SKIP=15
*----------------------------------------------------------------------
EXIT	 URETURN ,
         LTORG	,
	 PRINT	NOGEN
	 SOK#EQU ,
         PRINT	NOGEN
         END	,
