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