A      EQU     20
       ORG     0
       GOTO    BEALLITAS
;-----------------------------
BEALLITAS
  BANKSEL     PORTB
  CLRF        PORTB
  BANKSEL     TRISB
  CLRF        TRISB
  GOTO        PROGRAM
;--------------------------------

PROGRAM
  BANKSEL     PORTB	
  MOVLW       B'00000000'
  MOVWF       PORTB
  CALL        TIME

  BANKSEL     PORTB	
  MOVLW       B'00000110'
  MOVWF       PORTB
  CALL        TIME
 
  BANKSEL     PORTB
  MOVLW       B'01011011'
  MOVWF       PORTB
  CALL        TIME

  BANKSEL     PORTB	
  MOVLW       B'01001111'
  MOVWF       PORTB
  CALL        TIME

  BANKSEL     PORTB
  MOVLW       B'01100110'
  MOVWF       PORTB
  CALL        TIME
  GOTO        PROGRAM
;----------------------------
TIME
  BANKSEL     A		
  MOVLW       D'50'
  MOVWF       A
V DECFSZ      A,F
  GOTO        V
  RETURN
;--------------------------------
  END