ER      ref_cyc ( ID cycid, T_RCYC *pk_rcyc );

 MOVW    BC, #LOWW(_pk_rcyc)

 MOV     A,  #cycid

 CALL    !!_ref_cyc

 ID      cycid;

 T_RCYC  *pk_rcyc;