          EJECT
*         CTEXT CTP$DFT_LOG_ERROR_NON_990
*
*         THIS DECK CONTAINS STUBS FOR ROUTINES WHICH EXIST ONLY
*         ON 990 MODELS
 ABL      SPACE  4,10
**        ABL - ADJUST BUFFER LENGTH.
*
*         EXIT   (A) = BUFFER LENGTH.
*
*         NOTE   ON MACHINES OTHER THAN THETA THE VALUE RETURNED
*                IS LBUF.

 ABL      SUBR               ENTRY/EXIT
          LDML   LBUF
          UJN    ABLX        RETURN
 URC      SPACE  4,10
**        URC - UPDATE RETRY COUNTERS.
*
*         NOTE   ON MACHINES OTHER THAN THETA THIS IS A NO OP.

 URC      SUBR               ENTRY/EXIT
          UJN    URCX

*         END CTP$DFT_LOG_ERROR_NON_990
