*DECK S$VABT
          IDENT  S$VABT 
          TITLE S$VABT - VERIFICATION ABORT 
          COMMENT  VERIFICATION ABORT 
          ENTRY  S$VABT 
          SPACE  4
S$VABT    SUBR
          SA1    A0          A0 HAS ADDR OF FIT 
          MX2    42 
          BX1    X2*X1       REMOVE CIO DATA
          MX4    0           CLEAR RESULT REG 
          MX2    -6          ONE CHARACTER
          DUP    10 
          BX3    -X2*X1 
          IFTHEN X3=0 
            SX3    55B
            ENDIF.
          BX4    X4+X3
          LX4    6
          LX1    6
          ENDD
          BX6    X4 
          SA6    WORDS+1
          MESSAGE  WORDS,3,RECALL 
          CALL   S$ABT
          EXIT
  
  
WORDS     DATA   10H *** FILE 
          DATA   10H
          DATA   10HOUT OF ORD
          DATA   10HER ***
TERM      DATA   0
  
          END 
