A      EQU     20
       ORG     0
       GOTO    BEALLITAS
;-----------------------------
BEALLITAS
  CLRF        PORTB
  BANKSEL     TRISB
  CLRF        TRISB
  BANKSEL     PORTB
  GOTO        PROGRAM
;--------------------------------
PROGRAM
  MOVLW       B'00000000'
  MOVWF       PORTB
  CALL        TIME
  MOVLW       B'00000110'
  MOVWF       PORTB
  CALL        TIME
  MOVLW       B'01011011'
  MOVWF       PORTB
  CALL        TIME
  MOVLW       B'01001111'
  MOVWF       PORTB
  CALL        TIME
  MOVLW       B'01100110'
  MOVWF       PORTB
  CALL        TIME
  GOTO        PROGRAM
;----------------------------
TIME
  MOVLW       D'50'
  MOVWF       A
V DECFSZ      A,F
  GOTO        V
  RETURN
;--------------------------------
  END