Retro1.org codex

*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