home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CROSSASM / ASM370.ZIP / DEMOAST1.ALC < prev    next >
Encoding:
Text File  |  1985-06-15  |  692 b   |  28 lines
  1.          TITLE 'DEMOAST1 - READ AND PRINT'
  2. *
  3. * AUTHOR.  DON HIGGINS.
  4. * DATE.    12/30/82.
  5. * REMARKS. PC/370 DEMO TO ILLUSTRATE ASSIST DUMP AND LOG OUTPUT.
  6. *
  7. * THIS PROGRAM READS CARDS FROM DEMOAST1.DAT AND LISTS THEM ALONG
  8. * WITH SELECTED DUMPS OF REGISTERS AND STORAGE ON DEMOAST1.LOG.
  9. *
  10. DEMOAST1  CSECT
  11.          USING *,R15
  12.          XFILI =C'DEMOAST1DAT'
  13.          XFILO =C'DEMOAST1LOG'
  14.          XDUMP
  15. LOOP     EQU   *
  16.          XREAD CARD
  17.          BNZ   EOF
  18.          XPRNT CARD,80
  19.          B     LOOP
  20. EOF      EQU   *
  21.          XDUMP CARD,80
  22.          XDUMP CARD
  23.          SVC   EXIT
  24. R15      EQU   15
  25. EXIT     EQU   0
  26. CARD     DC    CL80' '
  27.          END   DEMOAST1
  28.