21 lines
770 B
Text
21 lines
770 B
Text
* A+B 29/08/2015
|
|
APLUSB CSECT
|
|
USING APLUSB,R12
|
|
LR R12,R15
|
|
OPEN (MYDATA,INPUT)
|
|
LOOP GET MYDATA,PG read a single record
|
|
XDECI R4,PG input A, in register 4
|
|
XDECI R5,PG+12 input B, in register 5
|
|
AR R4,R5 A+B, add register 5 to register 4, R4=R4+R
|
|
XDECO R4,PG+24 edit A+B
|
|
XPRNT PG,36 print A+B
|
|
B LOOP repeat
|
|
ATEND CLOSE MYDATA
|
|
RETURN XR R15,R15
|
|
BR R14
|
|
LTORG
|
|
MYDATA DCB LRECL=24,RECFM=FT,EODAD=ATEND,DDNAME=MYFILE
|
|
PG DS CL24 record
|
|
DC CL12' '
|
|
YREGS
|
|
END APLUSB
|