home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CROSSASM / ASM370.ZIP / DEMOAST2.ALC < prev    next >
Encoding:
Text File  |  1985-06-15  |  1.3 KB  |  49 lines
  1.          TITLE 'DEMOAST2 - READ SET OF NUMBERS AND PRINT MIN/MAX'
  2. *
  3. * AUTHOR.   DON HIGGINS.
  4. * DATE      03/30/85.
  5. * REMARKS.  PC/370 ASSIST FILE INPUT/OUTPUT DEMO.
  6. *
  7. *  THIS PROGRAM READS A SET OF FREE FORM INPUT NUMBERS FROM DEMOAST2.DAT
  8. *  AND CREATES REPORT WITH LARGEST AND SMALLEST ON FILE DEMOAST2.LOG.
  9. *  FOR INFORMATION ON ASSIST EXTENDED INSTRUCTIONS SEE PC370.DOC AND
  10. *  REFERENCE BOOK, "ASSEMBLER LANGUAGE WITH ASSIST" BY OVERBEEK AND
  11. *  SINGLETARY.
  12. *
  13.          START
  14.          USING *,15
  15.          XFILI =C'DEMOAST2DAT'
  16.          XFILO =C'DEMOAST2LOG'
  17. READ     XREAD CARD
  18.          BNZ   RESULT
  19.          XPRNT CARD
  20.          XDECI 4,CARD
  21.          C     4,BIG
  22.          BH    HIGH
  23.          C     4,SMALL
  24.          BL    LOW
  25.          B     READ
  26. HIGH     ST    4,BIG
  27.          B     READ
  28. LOW      ST    4,SMALL
  29.          B     READ
  30. RESULT   L     2,BIG
  31.          XDECO 2,DNUM1
  32.          XPRNT BIGOUT
  33.          L     2,SMALL
  34.          XDECO 2,DNUM2
  35.          XPRNT SMLOUT
  36.          SR    15,15
  37.          BR    14
  38. CARD     DC    CL80' '
  39.          DC    CL53' '
  40. BIG      DC    F'0'
  41. SMALL    DC    F'999'
  42. BIGOUT   DC    CL12'0BIGGEST='
  43. DNUM1    DC    CL12' '
  44.          DC    CL109' '
  45. SMLOUT   DC    CL12'0SMALLEST='
  46. DNUM2    DC    CL12' '
  47.          DC    CL109' '
  48.          END
  49.