_fileopen:
MOV.L R2,R5 ; R2(オープン・モード)をR5に設定
MOV.L #PARM,R2 ; パラメータ・ブロックのアドレスをR2に設定
MOV.L R1,4h:5[R2] ; R1(ファイル名先頭アドレス)をR2+4バイトに設定
MOV.B R5,2h:5[R2] ; R5をR2+2バイト(オープン・モード)に設定
MOV.L #01250000h,R1 ; FOPENの関数コードをR1に設定
MOV.L #SIM_IO,R5 ; システム・コールのアドレスをR5に設定
JSR R5 ; システム・コール
NOP
MOV.L #PARM,R2 ; パラメータ・ブロックをR2に設定
MOV.B 1h:5[R2],R1 ; R2+1バイト(ファイル番号)をR1に設定
MOV.B R1,[R3] ; R1をR3(ファイル番号のポインタ)の指す先に設定
MOV.B [R2],R1 ; R2の先頭1バイト(実行結果)をR1に設定
RTS ; 呼び出し元のアドレスに戻る
.SECTION B,DATA,ALIGN=4
PARM: .BLKL 2 ; パラメータ・ブロック領域
|