home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / emulate / systems / pc370 / mac / wto.mac < prev    next >
Text File  |  1987-08-11  |  222b  |  14 lines
  1. WTO     MACRO ,L'&1
  2.      AIF   &1='.LIT
  3. &LABEL$$ IC    0,&1+&2
  4.      MVI   &1+&2,C'$'
  5.      LA    2,&1
  6.      SVC   209
  7.      STC   0,&1+&2
  8.      AGO   .END
  9. .LIT     ANOP
  10. TEXT     SETC  &1
  11. &LABEL$$ LA    2,=C'&TEXT.$'
  12.      SVC   209
  13. .END     ANOP
  14.