*DECK NP$BKSP
IDENT NP$BKSP
ENTRY NP$BKSP
COMMENT BACKSPACE FILE ONE LOGICAL RECORD
*CALL NP$CRT
*IF,DEF,IMS
*#
*1DC NP$BKSP
*
* 1. SUBROUTINE AUTHOR DATE
* NP$BKSP E. GEE 86/02/11
*
* 2. FUNCTIONAL DESCRIPTION.
* BACKSPACE JOB RECORD FILE ONE LOGICAL RECORD.
*
* SYMPL CALL: NP$BKSP(FILE);
*
* WHERE FILE = FIRST WORD ADDRESS OF THE FET
*
* 3. METHOD USED.
* EXECUTE BKSP NOS MACRO WITH RECALL.
*
* 4. ENTRY PARAMETERS.
* A1 ADDRESS OF PARAMETER LIST CONTAINING
* ADDRESS OF FET
*
* 5. EXIT PARAMETERS.
* NONE.
*
* 6. COMMON DECKS CALLED.
* NP$CRT CONTROL DATA COPYRIGHT
*
* 7. SUBROUTINES AND MACROS CALLED.
* BKSP BACKSPACE ONE LOGICAL RECORD
*
* 8. DAYFILE MESSAGES.
* NONE.
*
*#
*ENDIF
************************************************************************
NP$BKSP SUBR = ENTRY/EXIT
BKSP X1,R BACKSPACE FILE ONE LOGICAL RECORD
EQ NP$BKSPX RETURN
END