mirror of
https://github.com/moshix/mvs.git
synced 2026-05-03 14:58:55 +00:00
50 lines
1.0 KiB
Plaintext
50 lines
1.0 KiB
Plaintext
TITLE 'DEMOAST2 - READ SET OF NUMBERS AND PRINT MIN/MAX'
|
||
*
|
||
* AUTHOR. DON HIGGINS.
|
||
* DATE 03/30/85.
|
||
* REMARKS. PC/370 ASSIST FILE INPUT/OUTPUT DEMO.
|
||
*
|
||
* THIS PROGRAM READS A SET OF FREE FORM INPUT NUMBERS FROM DEMOAST2.DAT
|
||
* AND CREATES REPORT WITH LARGEST AND SMALLEST ON FILE DEMOAST2.LOG.
|
||
*
|
||
* MAINTENANCE.
|
||
*
|
||
* 05/18/87 CONVERTED TO R2.0 XFILEI/XFILO PATH/FILENAME FORMAT
|
||
*
|
||
START
|
||
USING *,15
|
||
XFILI =C'DEMOAST2.DAT'
|
||
XFILO =C'DEMOAST2.LOG'
|
||
READ XREAD CARD
|
||
BNZ RESULT
|
||
XPRNT CARD
|
||
XDECI 4,CARD
|
||
C 4,BIG
|
||
BH HIGH
|
||
C 4,SMALL
|
||
BL LOW
|
||
B READ
|
||
HIGH ST 4,BIG
|
||
B READ
|
||
LOW ST 4,SMALL
|
||
B READ
|
||
RESULT L 2,BIG
|
||
XDECO 2,DNUM1
|
||
XPRNT BIGOUT
|
||
L 2,SMALL
|
||
XDECO 2,DNUM2
|
||
XPRNT SMLOUT
|
||
SR 15,15
|
||
BR 14
|
||
CARD DC CL80' '
|
||
DC CL53' '
|
||
BIG DC F'0'
|
||
SMALL DC F'999'
|
||
BIGOUT DC CL12'0BIGGEST='
|
||
DNUM1 DC CL12' '
|
||
DC CL109' '
|
||
SMLOUT DC CL12'0SMALLEST='
|
||
DNUM2 DC CL12' '
|
||
DC CL109' '
|
||
END
|
||
|