Hola mundo LCD 1 Byte

;
;LCD 16x2 Hola mundo
;

STATUS EQU 03H
PORTB EQU 06H
TRISB EQU 06H
TRISA EQU 05H
PORTA EQU 05H
CUENTA1 EQU 0DH
CUENTA2 EQU 0EH
CUENTA3 EQU 0FH
W EQU 0
F EQU 1

ORG 00H
BSF STATUS,5
BSF PORTA,1
MOVLW 00H
MOVWF TRISB
MOVLW 00H
MOVWF TRISA
BCF STATUS,5

ZERO MOVLW 0
MOVWF PORTA
MOVLW 0
MOVWF PORTB


BSF PORTA,0
BCF PORTA,1
;H
MOVLW 48H
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;o
MOVLW 6FH
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;l
MOVLW 6CH
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;a
MOVLW 61H
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;space
MOVLW 00H
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;m
MOVLW 6DH
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;u
MOVLW 75H
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;n
MOVLW 6EH
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;d
MOVLW 64H
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1
;0
MOVLW 6FH
MOVWF PORTB
;Envio
BSF PORTA,1
BCF PORTA,1

lol

goto lol

END