C $BE0A preserve HL, BC
C $BE0C point HL at object address table
C $BE0F load B with zero
C $BE11 load C with D - set by caller to unknown byte at $C39F
C $BE13 subtract one from C, then double C and add it to HL as an offset
C $BE16 load appropriate object address from the table into BC
C $BE19 load H with zero
C $BE1B load L with E - set by caller to unknown byte at $C3A2
C $BE1C calculate address of object property (BC=object address, HL=offset to property)
C $BE1D load value of object property into A
C $BE1E restore BC, HL
C $BE20 return