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