*COMDECK BKSP 
          IDENT  BKSP 
          ENTRY  BKSP 
          SYSCOM B1 
          TITLE  BKSP - BACKSPACE 1 LOGICAL RECORD. 
          COMMENT BACKSPACE 1 LOGICAL RECORD. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 BKSP     SPACE  4,10 
***       BKSP - BACKSPACE 1 LOGICAL RECORD.
* 
*         CALL BKSP (FILE,R)
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         BKSP(FILE,R);      ( *SYMPL* CALL ) 
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS BKSP.
  
  
 BKSP     SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       ADDRESS OF RECALL
          SA2    X2          RECALL VALUE 
          NZ     X2,BKS1     IF RECALL
          BKSP   X1 
          EQ     BKSPX
  
 BKS1     BKSP   X1,R 
          EQ     BKSPX
  
          END 
