16F877 and 4094 please help

[Jerson]

INCLUDE "modedefs.bas"
DEFINE SHIFT_PAUSEUS 100


        
        TRISB = %00000111 
        
        alarm var byte
'****************************************************************
        symbol clock=portc.4
        symbol data_pin=portc.2
        symbol strb=PORTc.3
'****************************************************************
        alarm=0
       
start:

       IF PORTB.0=0 THEN
	    alarm = alarm + $80      ' add the bit
       ELSE
            alarm = alarm & $7F      ' remove the bit
       ENDIF

       IF PORTB.1=0 THEN
	    alarm=alarm + $40
       ELSE
            alarm = alarm & $BF      ' remove the bit
       ENDIF

       IF PORTB.2=0 THEN
            alarm=alarm+$20
       ELSE
            alarm = alarm & $DF      ' remove the bit
       ENDIF
       gosub print
       goto start      

print:
        
        ShiftOut data_pin,clock,0,[alarm]                              
        strb = 1  : PAUSEUS 100 :  STRB = 0
        return

end