Hola mundo LCD 1 Byte, 2

;
;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 00H
MOVWF PORTA
MOVLW 00H
MOVWF PORTB

BCF PORTA,0
;Borrar
MOVLW 01H
MOVWF PORTB
;Envio
CALL RETARDO
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;bloody home
MOVLW 01H
MOVWF PORTB
;Envio
CALL RETARDO
BSF PORTA,1
CALL RETARDO
BCF PORTA,1




BSF PORTA,0
BCF PORTA,1



;H
MOVLW 48H
MOVWF PORTB
;Envio
CALL RETARDO
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;o
MOVLW 6FH
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;l
MOVLW 6CH
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;a
MOVLW 61H
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;space
MOVLW 00H
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;m
MOVLW 6DH
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;u
MOVLW 75H
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;n
MOVLW 6EH
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;d
MOVLW 64H
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1

;0
MOVLW 6FH
MOVWF PORTB
CALL RETARDO
;Envio
BSF PORTA,1
CALL RETARDO
BCF PORTA,1


lol

goto lol

END

;Subrutina de retardo
CALL RETARDO
CALL RETARDO
CALL RETARDO


RETARDO MOVLW 46H
MOVWF CUENTA1

LUCY MOVLW 45H
MOVWF CUENTA2

CHI MOVLW 44H
MOVWF CUENTA3

NANA DECFSZ CUENTA3,F
GOTO NANA

DECFSZ CUENTA2,F
GOTO CHI

DECFSZ CUENTA1,F
GOTO LUCY

RETURN

FIN
;;;, lol, chii ftw