movf rnd,W
movwf temp
movlw d'100'

Label1
incf dig100,f
subwf temp,f
btfsc STATUS,C
goto Label1
decf dig100,f
addwf temp,f

Label2
movlw d'10'
incf dig10,f
subwf temp,f
btfsc STATUS,C
goto Label2
decf dig10,f
addwf temp,f

Label3
movf temp,W
movwf dig1