*DECK ASMABT
USETEXT CCTTEXT 
          PROC ASMABT (MESSAGE, LENGTH);
          BEGIN 
*CALL ASMCOMM 
          XREF  FUNC  DEC C(10);
          ITEM   MESSAGE C(80); 
          ITEM   LENGTH I;
          ARRAY  PRINTL[0:3]; 
              ITEM  PRLINE  C(0,0,10);
  
          XREF PROC CBLIST; 
          CBLIST (1, MESSAGE, LENGTH);
          PRLINE[0] = " LINE     "; 
          PRLINE[1] = DEC(LINE);
          PRLINE[2] = "NOTE      "; 
          PRLINE[3] = NOTE; 
          CBLIST(1,PRINTL,40);
          CCTABORT = TRUE;
          RETURN; 
          END 
          TERM
