アセンブラのコマンドについて
突然、下記のようなプログラム(アセンブラらしい)を多々渡されて、「これをCOBOLに変換して!!」といわれました。
解説書も無く、何アセンブラかも??で途方に暮れています(--;;;何アセンブラか教えて欲しいです。また、参考書or参考HPも。とにかく情報をください。お願い致します。
AAAAAA START
R0 EQU 0
:
R12 EQU 12
SAVE (14,12)
BALR R3,0
USING *,R3,R4
LA R4,4095(R3)
LA R4,1(R4)
ST 13,OCSV1+4
LA 13,OCSV1
OPEN (TFIN,(INPUT,DISP))
OPEN (TFOUT,(OUTPUT,DISP))
RDIN ST 13,###@SV13
L 13,=A(###@RSV)
GET TFIN,TW
L 13,###@SV13
ST 13,###@SV13
L 13,=A(###@RSV)
PUT TFOUT,TW
L 13,###@SV13
B RDIN
EOFIN CLOSE (TFIN,DISP)
CLOSE (TFOUT,DISP)
L 13,OCSV1+4
RETURN (14,12),RC=0
LTORG
OCSV1 DS 18F
OCSV2 DS 18F
###@RSV DS 18F
###@SV13 DS F
DS 0D
TFIN DCB DDNAME=TFIN,
LRECL=0,
EODAD=EOFIN,
RECFM=FB,
MACRF=(GM),
BLKSIZE=0,
DEVD=DA,
DSORG=PS
TFOUT DCB DDNAME=TFOUT,
LRECL=0,
RECFM=FB,
MACRF=(PM),
BLKSIZE=0,
DEVD=DA,
DSORG=PS
DS 0D
TW DC 1024C' '
END
お礼
無事たどり着けました。 ありがとうございました