Cerradura con tarjetas telefonicas en PBP

[darekrafal38]

Hola a todos. Soy Rafal desde Valencia. Estos foros son estupendos. Y todos los ejemplos me ayudaron mucho aprender programar en picbasic pro. Gracias a todos por presentar ejemplos.
Tengo un programa escrito en ccs e intento pasar a pbp y tengo unos problemas de descifrar.
El programa es una cerradura con tarjetas telefónicas gastadas. Es para una tarjeta.
Y me gustaría hacerlo en pbp y hacerlo mejor multi usuario. He escrito un poco de programa y me he atascado.
Si un aficionado quisiera terminar conmigo sería buen ejemplo para pic basic pro.
página de programador www.xbot.es/ezkybel/cerradura

@ DEVICE pic16F628A                                                      
@ DEVICE pic16F628A, WDT_OFF                  
@ DEVICE pic16F628A, PWRT_ON                 
@ DEVICE pic16F628A, PROTECT_OFF          
@ DEVICE pic16F628A, MCLR_off                
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT

CMCON = 7           'potrd a. a digital
TRISA =%00000000    'potrd a. todo salidas
TRISB =%00011100    'potrd b. bit 2.3.4 entradas resto salidas
SWT VAR PORTB.3     'interuptor de tarjeta ..detecta si entro tarjeta
JMP VAR PORTB.4     ' boton  conectado a portb.4
DOOR VAR PORTB.5    ' salida a la ceradura
LED_A VAR PORTA.0   ' led amarillo
LED_R VAR PORTA.1   ' led rojo
I VAR BYTE
ALMACEN VAR BYTE

 INICIO:   ' EMPIESA PROGRAMA
 
 
 
 
 IF SWT = 0 THEN GOSUB RESET    'SI SWT DETECTA TARJETA SALTA A RESET Y RETORNA 
 
 FOR I = 0 TO 31   ' RETORNA DE RESET I cUENTA 31 PULSOS 
 GOSUB PULSO        '  A SI IGNORAMOS 31 BYTES  
 NEXT I            '
 
 FOR I = 0 TO 32   'ACA NOS EMPIESA CONTAR BYTES LO GUE NOS INTERESAN 
 GOSUB PULSO        '
 
 SHIFTIN PORTB.2,PORTB.1,0,[ALMACEN\8]  'ACA ME ATASKO 
 NEXT I
 ' NO SE COMO SEGIR
 
 
 RESET:
 PORTB.0 = 1
 PAUSE 15
 PORTB.1 = 1
 PAUSE 15
 PORTB.1 = 0
 PAUSE 15
 PORTB.0 = 0
 PAUSE 15
 RETUTN
 
 PULSO:
 PORTB.1 =1
 PAUSE 15
 PORTB.1 =0
 PAUSE 15
 RETURN
 
 
 END