*COMDECK COMCBRSC 
          ENTRY READSC
          EXT   DE$FTSC 
          SST 
READSC    DATA  0 
          SA2   A1+1
          SA4   A1+2
          SA2   X2
          SA3   X4
          SX5   X2
          LX2   3 
          LX5   1 
          IX2   X5+X2 
          GET   DE$FTSC,X1,X2,,X3 
          EQ    READSC
          END 
