thanks to Jamie s This works
SEROUT2 TX, baudrate, ["ENTER HOUR (HH):",13]
SERIN2 RX, Baudrate, [DEC2 TEMP]
RTCHH=TEMP DIG 1
RTCHH=RTCHH<<4
RTCHH=RTCHH+(TEMP DIG 0)

'writing it to the ds1302:
HIGH RST ' Activate the DS1302
SHIFTOUT DG, CLK, 0, [$84] ' Send write hour
SHIFTOUT DG, CLK, 0, [RTCHH] ' Send hours
LOW RST