short far pascal TMTouchByte(
long session_handle,   // session handle for the desired 1-Wire network
short outbyte          // byte to transfer to the 1-Wire network 
); 

ROM[i] = (unsigned char)TMTouchByte(session_handle, 0x55);

i = TMTouchByte(SHandle, 0x55)