In the following code what is DIG, DIG 1, and DIG 0?

To convert Decimal back to BCD, reverse the Process...

RTCSeconds=DecimalSeconds DIG 1
RTCSeconds=RTCSeconds<<4
RTCSeconds=RTCSeconds+(DecimalSeconds DIG 0)