CALLPS
* /---   FILE TYPE = E
* /---   BLOCK      CALLPS     00 000   82/04/08  11.29 
          IDENT  CALLPS 
          ABS 
          BASE   D
          LIST   F,X
*CALL     SYSCON
          TITLE  CALLPS - CALL PLATO COMMON DECKS.
*CALLALL  PLAS
          END