*DECK,    IO
          IDENT     IO
          TITLE IO - FOR MACROS READIN, WRITEOUT
**DOCK    EJECT  4,10                                                   0125 735
**DOCK    TITLE  SPACE,4,10                                             0125 736
          ENTRY    IOREAD,IOWRITE,IOREWRT,IOIO,IOSAV,IOZZ,IOZW
          EXT      CPC03,CPC04,CPC,CPC999 
          SPACE    2
*CALL,IOCOM 
          END 
