/FILE 10 NAME(Y6502.S)
/FILE 11 NAME(Y6502.IV) NEW(REPLACE)
/SYS REGION=400K
/INCLUDE WATFIV
COPT LIBLIST
      CALL TRANSL(10,11)
      STOP
      END