_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 ; パラメータ・ブロック領域
|
