;
;LCD 16x2 por llamadas, lol
;
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
;CALL Espacio ;
;CALL signodeadmiracion ; !
;CALL comitas ; "
;CALL gato ; #
;CALL pesos ; $
;CALL porciento ; %
;CALL ygreenga ; &
;CALL comita ; '
;CALL AbroParentesis ; (
;CALL CierroParentesis ; )
;CALL estrella ; *
;CALL mas ; +
;CALL coma ; ,
;CALL menos ; -
;;CALL punto ; .
;CALL paloladeado ; /
;CALL N0
;CALL N1
;CALL N2
;CALL N3
;CALL N4
;CALL N5
;CALL N6
;CALL N7
;CALL N8
;CALL N9
;CALL dospuntos
;CALL puntoycoma
;CALL menorque
;CALL igual
;CALL mayorque
;CALL signodepregunta
;CALL arroba
;CALL A
;CALL BM
;CALL C
;CALL D
;CALL E
;CALL FM
;CALL G
;CALL H
;CALL I
;CALL J
;CALL K
;CALL L
;CALL M
;CALL N
;CALL O
;CALL P
;CALL Q
;CALL R
;CALL S
;CALL T
;CALL U
;CALL V
;CALL WM
;CALL X
;CALL Y
;CALL Z
;CALL Abrocorchete
;CALL yen
;CALL Cierrocorchete
;CALL yay
;CALL Guionbajo
;CALL noacento
;CALL a
;CALL bm
;CALL c
;CALL d
;CALL e
;CALL fm
;CALL g
;CALL h
;CALL i
;CALL j
;CALL k
;CALL l
;CALL m
;;CALL n
;CALL o
;CALL p
;CALL q
;CALL r
;CALL s
;CALL t
;CALL u
;CALL v
;CALL wm
;CALL x
;CALL y
;CALL z
;CALL Abroparentecis
;CALL palo
;;CALL Cierroparentecis
;CALL flechitahacialaderecha
;CALL flechitahacialaizquierda
CALL V
CALL i
CALL c
CALL t
CALL o
CALL r
CALL i
CALL a
CALL Espacio
CALL R
CALL a
CALL m
CALL o
CALL s
noescomidaesunsnak
goto noescomidaesunsnak
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Ejemplo de ASCII (Codigo estandar de America para el Intercamio de Informacion)
Espacio MOVLW 20H ; space (Valor Hexadecimal del caracter "20H" = "00100000b")
MOVWF PORTB ; Mover a puerto B (Mueve su valor binario, hacia el puerto B, del PIC 16F84A)
CALL Envio ; Envia el dato (Envia un peque?o pulso hacia el "Enable")
RETURN ; Retorna, (Retorna de donde fue llamado, como en la pelicula)
signodeadmiracion MOVLW 21H ; !
MOVWF PORTB ;
CALL Envio ;
RETURN ;
comitas MOVLW 22H ; "
MOVWF PORTB ;
CALL Envio ;
RETURN ;
gato MOVLW 23H ; #
MOVWF PORTB ;
CALL Envio ;
RETURN ;
pesos MOVLW 24H ; $
MOVWF PORTB ;
CALL Envio ;
RETURN ;
porciento MOVLW 25H ; %
MOVWF PORTB ;
CALL Envio ;
RETURN ;
ygreenga MOVLW 26H ; &
MOVWF PORTB ;
CALL Envio ;
RETURN ;
comita MOVLW 27H ; '
MOVWF PORTB ;
CALL Envio ;
RETURN ;
AbroParentesis MOVLW 28H ; (
MOVWF PORTB ;
CALL Envio ;
RETURN ;
CierroParentesis MOVLW 29H ; )
MOVWF PORTB ;
CALL Envio ;
RETURN ;
estrella MOVLW 2AH ; *
MOVWF PORTB ;
CALL Envio ;
RETURN ;
mas MOVLW 2BH ; +
MOVWF PORTB ;
CALL Envio ;
RETURN ;
coma MOVLW 2CH ; ,
MOVWF PORTB ;
CALL Envio ;
RETURN ;
menos MOVLW 2DH ; -
MOVWF PORTB ;
CALL Envio ;
RETURN ;
punto MOVLW 2EH ; .
MOVWF PORTB ;
CALL Envio ;
RETURN ;
paloladeado MOVLW 2FH ; /
MOVWF PORTB ;
CALL Envio ;
RETURN ;
;;;;;;;Numeros;;;;;;;
N0 MOVLW 30H ; 0
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N1 MOVLW 31H ; 1
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N2 MOVLW 32H ; 2
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N3 MOVLW 33H ; 3
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N4 MOVLW 34H ; 4
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N5 MOVLW 35H ; 5
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N6 MOVLW 36H ; 6
MOVWF PORTB;
CALL Envio ;
RETURN ;
N7 MOVLW 37H ; 7
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N8 MOVLW 38H ; 8
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N9 MOVLW 39H ; 9
MOVWF PORTB ;
CALL Envio ;
RETURN ;
dospuntos MOVLW 3AH ; :
MOVWF PORTB ;
CALL Envio ;
RETURN ;
puntoycoma MOVLW 3BH; ;
MOVWF PORTB ;
CALL Envio ;
RETURN ;
menorque MOVLW 3CH ; <
MOVWF PORTB ;
CALL Envio ;
RETURN ;
igual MOVLW 3DH ; =
MOVWF PORTB ;
CALL Envio ;
RETURN ;
mayorque MOVLW 3EH ; >
MOVWF PORTB ;
CALL Envio ;
RETURN ;
signodepregunta MOVLW 3FH ; ?
MOVWF PORTB ;
CALL Envio ;
RETURN ;
;;;;;;;Letras Mayusculas;;;;;;;
arroba MOVLW 40H ; @
MOVWF PORTB ;
CALL Envio ;
RETURN ;
A MOVLW 41H ; A
MOVWF PORTB ;
CALL Envio ;
RETURN ;
BM MOVLW 42H ; B
MOVWF PORTB ;
CALL Envio ;
RETURN ;
C MOVLW 43H ; C
MOVWF PORTB ;
CALL Envio ;
RETURN ;
D MOVLW 44H ; D
MOVWF PORTB ;
CALL Envio ;
RETURN ;
E MOVLW 45H ; E
MOVWF PORTB ;
CALL Envio ;
RETURN ;
FM MOVLW 46H ; F
MOVWF PORTB ;
CALL Envio ;
RETURN ;
G MOVLW 47H ; G
MOVWF PORTB ;
CALL Envio ;
RETURN ;
H MOVLW 48H ; H
MOVWF PORTB ;
CALL Envio ;
RETURN ;
I MOVLW 49H ; I
MOVWF PORTB ;
CALL Envio ;
RETURN ;
J MOVLW 4AH ; J
MOVWF PORTB ;
CALL Envio ;
RETURN ;
K MOVLW 4BH ; K
MOVWF PORTB ;
CALL Envio ;
RETURN ;
L MOVLW 4CH ; L
MOVWF PORTB ;
CALL Envio ;
RETURN ;
M MOVLW 4DH ; M
MOVWF PORTB ;
CALL Envio ;
RETURN ;
N MOVLW 4EH ; N
MOVWF PORTB ;
CALL Envio ;
RETURN ;
O MOVLW 4FH ; O
MOVWF PORTB ;
CALL Envio ;
RETURN ;
;;;;;;Letras Mayusculas;;;;;;;
P MOVLW 50H ; P
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Q MOVLW 51H ; Q
MOVWF PORTB ;
CALL Envio ;
RETURN ;
R MOVLW 52H ; R
MOVWF PORTB ;
CALL Envio ;
RETURN ;
S MOVLW 53H ; S
MOVWF PORTB ;
CALL Envio ;
RETURN ;
T MOVLW 54H ; T
MOVWF PORTB ;
CALL Envio ;
RETURN ;
U MOVLW 55H ; U
MOVWF PORTB ;
CALL Envio ;
RETURN ;
V MOVLW 56H ; V
MOVWF PORTB ;
CALL Envio ;
RETURN ;
WM MOVLW 57H ; W
MOVWF PORTB ;
CALL Envio ;
RETURN ;
X MOVLW 58H ; X
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Y MOVLW 59H ; Y
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Z MOVLW 5AH ; Z
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Abrocorchete MOVLW 5BH ;[
MOVWF PORTB ;
CALL Envio ;
RETURN ;
yen MOVLW 5CH ; yen
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Cierrocorchete MOVLW 5DH ; ]
MOVWF PORTB ;
CALL Envio ;
RETURN ;
yay MOVLW 5EH ; ^
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Guionbajo MOVLW 5FH ; _
MOVWF PORTB ;
CALL Envio ;
RETURN ;
;;;;;;;Letras minusculas;;;;;;;
noacento MOVLW 60H ; `
MOVWF PORTB ;
CALL Envio ;
RETURN ;
a MOVLW 61H ; a
MOVWF PORTB ;
CALL Envio ;
RETURN ;
bm MOVLW 62H ; b
MOVWF PORTB ;
CALL Envio ;
RETURN ;
c MOVLW 63H ; c
MOVWF PORTB ;
CALL Envio ;
RETURN ;
d MOVLW 64H ; d
MOVWF PORTB ;
CALL Envio ;
RETURN ;
e MOVLW 65H ; e
MOVWF PORTB ;
CALL Envio ;
RETURN ;
fm MOVLW 66H ; f
MOVWF PORTB ;
CALL Envio ;
RETURN ;
g MOVLW 67H ; g
MOVWF PORTB ;
CALL Envio ;
RETURN ;
h MOVLW 68H ; h
MOVWF PORTB ;
CALL Envio ;
RETURN ;
i MOVLW 69H ; i
MOVWF PORTB ;
CALL Envio ;
RETURN ;
j MOVLW 6AH ; j
MOVWF PORTB ;
CALL Envio ;
RETURN ;
k MOVLW 6BH ; k
MOVWF PORTB ;
CALL Envio ;
RETURN ;
l MOVLW 6CH ; l
MOVWF PORTB ;
CALL Envio ;
RETURN ;
m MOVLW 6DH ; m
MOVWF PORTB ;
CALL Envio ;
RETURN ;
n MOVLW 6EH ; n
MOVWF PORTB ;
CALL Envio ;
RETURN ;
o MOVLW 6FH ; o
MOVWF PORTB ;
CALL Envio ;
RETURN ;
;;;;;;;Letras minusculas;;;;;;;
p MOVLW 70H ; `
MOVWF PORTB ;
CALL Envio ;
RETURN ;
q MOVLW 71H ; q
MOVWF PORTB ;
CALL Envio ;
RETURN ;
r MOVLW 72H ; r
MOVWF PORTB ;
CALL Envio ;
RETURN ;
s MOVLW 73H ; s
MOVWF PORTB ;
CALL Envio ;
RETURN ;
t MOVLW 74H ; t
MOVWF PORTB ;
CALL Envio ;
RETURN ;
u MOVLW 75H ; u
MOVWF PORTB ;
CALL Envio ;
RETURN ;
v MOVLW 76H ; v
MOVWF PORTB ;
CALL Envio ;
RETURN ;
wm MOVLW 77H ; w
MOVWF PORTB ;
CALL Envio ;
RETURN ;
x MOVLW 78H ; x
MOVWF PORTB ;
CALL Envio ;
RETURN ;
y MOVLW 79H ; y
MOVWF PORTB ;
CALL Envio ;
RETURN ;
z MOVLW 7AH ; z
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Abroparentecis MOVLW 7BH ; (
MOVWF PORTB ;
CALL Envio ;
RETURN ;
palo MOVLW 7CH ; |
MOVWF PORTB ;
CALL Envio ;
RETURN ;
Cierroparentecis MOVLW 7DH ; )
MOVWF PORTB ;
CALL Envio ;
RETURN ;
flechitahacialaderecha MOVLW 7EH ; <-
MOVWF PORTB ;
CALL Envio ;
RETURN ;
flechitahacialaizquierda MOVLW 7FH ; ->
MOVWF PORTB ;
CALL Envio ;
RETURN ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Envio
BSF PORTA,1
BCF PORTA,1
RETURN
END
No hay comentarios:
Publicar un comentario