;*-------------------------------------*
;*     FBF CAL呼び出しテンプレート     *
;*-------------------------------------*
; 必要パラメータをワークエリアに設定して
; FBFCAL を 実行します。
; (DIREN を 定義してください。
; DIREN:EQU &H18D1)
;
; 実行後 キャリーフラグ ON => 正常終了 / OFF => 失敗 
;        $0 => リザルトコード (0 or 1) 


FBFCAL:	PRE IX,DIREN		;ポインタ DIREN の示すアドレスを読み込む
	LDW $0,(IX+$31)
	ADW $0,$30
	PRE IZ,FBFIZ		;ワークエリアを指定してFBF実行
	PRE IX,FBFCAL2+1	;FBFCAL2のアドレスを自己書き換え
	STW $0,(IX+$31)
	PRE IX,0		;CAL呼び出しの為に IX を 0 にする
FBFCAL2:CAL &H0000		;FBFをCAL呼び出し
				;CAL後、後続の処理がない場合は JP でも可(FBFCALを抜ける)

	PRE IX,FBFRES		;FBFのリザルトコードを取得
	LD $0,(IX+$31)		; $0 = リザルトコード	
	SBC $0,$30		; キャリーON→OK(0) OFF→NG(1)
	RTN

FBFIZ:  DB 0			;IZポインタ更新用
;*-------------------------------------*



  