Code:
Month var byte:Day var byte:Hours var byte:Mins var byte:Secs var byte
logdata var byte [8]:logdir var byte:modir var byte:daytra var byte
transwrite var byte:flittime var word:thermo var byte:humi var byte
logdata[1]=Hours:logdata[2]=Mins:logdata[3]=Secs

logdata[4]=(month & $f)+(logdir << 4):logdata[5]=flittime.lowbyte
logdata[0]=(day & $1f)+((flttime & $0700)>>3)
logdata[6]=thermo:logdata[7]=humi
No idea if this will work...it's just simple boolean logic and combining terms...