home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / PC370.ZIP / DEMOAST4.ALC < prev    next >
Encoding:
Text File  |  1987-05-18  |  764 b   |  35 lines
  1. DEMOAST4 CSECT
  2.     USING *,R15
  3.     XFILO =C'CON:'
  4.     XPRNT =CL50' DEMOAST4 STARTED',50
  5.     XPRNT =CL50' TEST PC/370 ASSIST FILE REDIRECTION',50
  6.     XPRNT =CL50' COPY TEXT TO DEMOAST4.LOG AND LIST',50
  7.     XPRNT =CL50' ENTER TEXT (USE ESC KEY TO END)',50
  8.     XFILO =C'DEMOAST4.LOG'
  9.     XFILI =C'CON:'
  10. LOOP1    EQU   *
  11.     XREAD CMD,50
  12.     BNZ   EOF1
  13.     XPRNT CMD-1,51
  14.     B     LOOP1
  15. EOF1     EQU   *
  16.     XFILO =C'CON:'
  17.     XPRNT =C'  ',2
  18.     XPRNT =CL50' LISTING OF DEMOAST4.LOG',50
  19.     XPRNT =C'  ',2
  20.     XFILI =C'DEMOAST4.LOG'
  21. LOOP2    EQU   *
  22.     XREAD CMD,50
  23.     BNZ   EOF2
  24.     XPRNT CMD-1,51
  25.     B     LOOP2
  26. EOF2     EQU   *
  27.     XPRNT =C'  ',2
  28.     XPRNT =CL50' DEMOAST4 ENDED',50
  29.     BR    R14
  30.     DC    C' ' SPACE FOR CC
  31. CMD      DC    CL50' '
  32. R14      EQU   14 RETURN
  33. R15      EQU   15 BASE
  34.     END
  35.