Category : Assembly Language Source Code
Archive   : R42MAC.ZIP
Filename : TEST.ALC

 
Output of file : TEST.ALC contained in archive : R42MAC.ZIP

*+++++++ BEGIN
SAMPLEIO CSECT
USING *,15
B KZHQX001
DC AL1(11)
DC CL11'SAMPLEIO'
HZQKX001 DC 18F'0'
KZHQX001 STM 14,12,12(13)
ST 13,HZQKX001+4
LR 14,13
LA 13,HZQKX001
ST 13,8(0,14)
DROP 15
USING HZQKX001,13
*+++++++ OPEN INFILE
LA 2,INFILE
SVC 1
*+++++++ OPEN OUTFILE
LA 2,OUTFILE
SVC 1
MAINLOOP BAL 8,READREC
READRTN MVC OUTREC,EBCBLANK
* CLI INCODE,CRCTCODE
* BE GOODCODE
* MVC OTMESG,CODEERR
* B OUTPUTIT
B WRITEREC
WRTRTN B MAINLOOP
*
READREC MVC INREC,ASCBLANK
*+++++++ GET INFILE,INREC
LA 2,INFILE
LA 1,INREC
SVC 5
LA R1,INREC
LA R2,L'INREC
SVC ASCEBC
BR 8
*
WRITEREC MVC OUTREC,EBCBLANK
MVC OUTREC,INREC
LA R1,OUTREC
LA R2,L'OUTREC
SVC EBCASC
*+++++++ PUT OUTFILE,OUTREC
LA 2,OUTFILE
LA 1,OUTREC
SVC 6
B WRTRTN
*
*++ CLOSE INFILE
EOJ EQU *
LA 2,INFILE
SVC 2
*+++++++ CLOSE OUTFILE
LA 2,OUTFILE
SVC 2
*+++++++ RETURN
L 13,4(13)
LM 14,12,12(13)
BR 14
R1 EQU 1
R2 EQU 2
ASCEBC EQU 12
EBCASC EQU 13
*+++++ DCB DDNAME=C:\AUTOEXEC.BAT,
*+++++++LABEL$ DSORG=S,
*+++++++LABEL$ LRECL=80,
*+++++++LABEL$ RECFM=T,
*+++++++LABEL$ MACRF=G,
*+++++++LABEL$ EODAD=EOJ
INFILE DS 0F,0CL86
DC C'ADCB'
DC A(DCBDD009)
DC X'FFFF',X'00'
DC CL1'S',CL1'G',CL1'T'
DC X'0A1A'
DC H'80',H'0'
DC A(EOJ,EOJ,0)
DC 54X'00'
DCBDD009 DC C'C:\AUTOEXEC.BAT',X'00'

*++++++ DCB DDNAME=CON,
*+++++++LABEL$ DSORG=S,
*+++++++LABEL$ LRECL=82,
*+++++++LABEL$ RECFM=T,
*+++++++LABEL$ MACRF=P
OUTFILE DS 0F,0CL86
DC C'ADCB'
DC A(DCBDD010)
DC X'FFFF',X'00'
DC CL1'S',CL1'P',CL1'T'
DC X'0A1A'
DC H'82',H'0'
DC A(0,0,0)
DC 54X'00'
DCBDD010 DC C'CON',X'00'

ASCBLANK DC X'20'
INREC DS CL80

EBCBLANK DC X'40'
OUTREC DS CL80
DC X'0D0A'
END SAMPLEIO