ER      ref_flg ( ID flgid, T_RFLG *pk_rflg );

 MOVW    BC, #LOWW(_pk_rflg)

 MOV     A, #flgid

 CALL    !!_ref_flg

 ID      flgid;

 T_RFLG  *pk_rflg;