|
|
|
|
|
|
| Programador | Cartel Luminoso | Caja de Banco | |
| CPU 6802 v2.0 | |||
CONTROL DE CAJA DE BANCO
Se trata de un control de caja de banco para el (Banco Nacional de Bolivia), “BNB” los pulsadores se colocan en cada una de las cajas de banco, si se presiona cualquiera de ellas se muestra un mensaje que invita a pasar a ese numero de caja , si no se presiona nada... aparece el logo del banco
Es un circuito bastante simple que nos permite controlar una matriz de led’s con pulsadores La velocidad del la pantalla de leds variara de acuerdo al programa se recomienda también variar el cristal para controlar la velocidad si no se desea manipular el programa
CÓDIGO FUENTE
|
;------------------------------------------------------------------------------------------ ; programa que controla una matriz de leds de 8*16 ; donse se envian mensajes atraves pulsadores en el p1 ; Creado por Raul Alejandro Quispe Larico ;Email: ; ;Paginas: ;http://es.geocities.com/raulalejandroql ;http://www.bo.computrabajo.com/em-cvs-SC003-181.htm ; ; Cel : 72097633-72039662 ;------------------------------------------------------------------------------------------
ORG 000H
;********************* PRINCIPAL*****************************
INICIO: NOP
NOPRES: ACALL BNB ;SI NO SACA [ BNB ] SIPRES:
JB P1.0,s11 ;anaLiza si se ha precionado tecla 1 ACALL REBOTES acall PASECAJA ;si se preciona se carga ACALL UNO
s11: JB P1.1,s22 ;analiza si se ha precionado tecla 2 ACALL REBOTES CLR P1.7 ACALL PASECAJA acall DOS ;si se preciona se carga t
s22: JB P1.2,s33 ;analiza si se ha precionado tecla 3 ACALL REBOTES CLR P1.7 ACALL PASECAJA ACALL TRES
s33: JB P1.3,s44 ;analiza si se ha precionado tecla 4 ACALL REBOTES CLR P1.7 ACALL PASECAJA ACALL CUATRO
S44: AJMP INICIO
;************************MENSAJES************************* ;pase[]={31,20,8,0,15,20,15,0,9,21,18,0,31,21,21}; ;----------------------------------------------mensaje [ PASE ] M_PASE: mov 40h,#21 mov 41h,#21 mov 42h,#31 mov 43h,#00 mov 44h,#18 mov 45h,#21 mov 46h,#09 mov 47h,#00 mov 48h,#15 mov 49h,#20 mov 4ah,#15 mov 4bh,#00 mov 4ch,#08 mov 4dh,#20 mov 4Eh,#31 mov 4Fh,#00 RET
;----------------------------------------------mensaje [ PASE ] ;caja[]={14,17,10,0,15,20,15,0,2,17,30,0,15,20,15}; M_CAJA: mov 40h,#15 mov 41h,#20 mov 42h,#15 mov 43h,#00 mov 44h,#30 mov 45h,#17 mov 46h,#02 mov 47h,#00 mov 48h,#15 mov 49h,#20 mov 4ah,#15 mov 4bh,#0 mov 4ch,#17h,#17 mov 4dh,#17 mov 4Eh,#14 mov 4Fh,#00 RET
;----------------------------------------------mensaje [ PASE ] ;uno[]={0,0,0,0,0,0,9,31,31,1,0,0,0,0,0,0,}; M_UNO: mov 40h,#00 mov 41h,#00 mov 42h,#00 mov 43h,#00 mov 44h,#00 mov 45h,#00 mov 46h,#09 mov 47h,#31 mov 48h,#31 mov 49h,#01 mov 4ah,#00 mov 4bh,#00 mov 4ch,#00 mov 4dh,#00 mov 4eh,#00 mov 4fh,#00 RET ;----------------------------------------------mensaje [ PASE ] ;dos[]={0,0,0,0,0,0,9,19,21,9,0,0,0,0,0,0}; M_DOS: mov 40h,#00 mov 41h,#00 mov 42h,#00 mov 43h,#00 mov 44h,#00 mov 45h,#00 mov 46h,#09 mov 47h,#21 mov 48h,#19 mov 49h,#09 mov 4ah,#00 mov 4bh,#00 mov 4ch,#00 mov 4dh,#00 mov 4dh,#00 mov 4eh,#00 mov 4fh,#00 RET ;----------------------------------------------mensaje [ PASE ] ;tres[]={0,0,0,0,0,0,21,21,21,10,0,0,0,0,0,0}; M_TRES: mov 40h,#00 mov 41h,#00 mov 42h,#00 mov 43h,#00 mov 44h,#00 mov 45h,#00 mov 46h,#10 mov 47h,#21 mov 48h,#21 mov 49h,#21 mov 4ah,#00 mov 4bh,#00 mov 4ch,#00 mov 4dh,#00 mov 4eh,#00 mov 4fh,#00 RET ;----------------------------------------------mensaje [ PASE ] ;cuatro[]={0,0,0,0,0,0,28,4,4,31,0,0,0,0,0,0}; M_CUATRO: mov 40h,#00 mov 41h,#00 mov 42h,#00 mov 43h,#00 mov 44h,#00 mov 45h,#00 mov 46h,#31 mov 47h,#04 mov 48h,#04h,#04 mov 49h,#28 mov 4ah,#00 mov 4bh,#00 mov 4ch,#00 mov 4dh,#00 mov 4eh,#00 mov 4fh,#00 RET ;----------------------------------------------mensaje [ PASE ] ;bnb[]={31,21,21,10,00,31,8,4,2,31,00,31,21,21,10,00}; M_BNB: mov 40h,#00 mov 41h,#10 mov 42h,#21 mov 43h,#21 mov 44h,#31 mov 45h,#00 mov 46h,#31 mov 47h,#02 mov 48h,#04 mov 49h,#08 mov 4ah,#31 mov 4bh,#00 mov 4ch,#10 mov 4dh,#21 mov 4Eh,#21 mov 4Fh,#31 ret ;***********************SUBRUTINAS****************************** ;------------------------------------------- programa : Directo ; descripcion : MUESTRA LOS MENSAJES DESDE LA [40] - [4F]
Directo: ;------------------sacando equibalencias
pos equ 20H ;dir [20] = pos bit direccionable conta equ 30H ;dir [30] = conta ;---------------------inicio de programa mov r0,#40h ;inicio de la memoria interna a mostrar desde [40] mov pos,#00h ;inicio de las direcciones en los decodificadores ;----------------- bucle: mov p2,pos ;sacando la posicion mov A,@r0 ;saco el dato ; CPL A MOV P0,A acall delay ;DELAY DE 10MS ; acall delay ; acall delay ; acall delay inc r0 ;se incrementa el puntero de la ram interna inc pos ;se incrementa la posicion mov a,R0 ; cjne a,#50h,bucle ;salto si no se llego al fin de la matriz ret ;---------------------------------------------PROGRAMA : PASECAJA PASECAJA:
MOV 30H,#30H B_PASE: ACALL M_PASE ACALL DIRECTO DJNZ 30H,B_PASE MOV 30H,#30H B_CAJA: ACALL M_CAJA ACALL DIRECTO DJNZ 30H,B_CAJA RET
;---------------------------------------------PROGRAMA : UNO UNO:
MOV 30H,#30H B_UNO: ACALL M_UNO ACALL DIRECTO DJNZ 30H,B_UNO RET ;---------------------------------------------PROGRAMA : DOS DOS:
MOV 30H,#30H B_DOS: ACALL M_DOS ACALL DIRECTO DJNZ 30H,B_DOS RET ;---------------------------------------------PROGRAMA : TRES TRES:
MOV 30H,#30H B_TRES: ACALL M_TRES ACALL DIRECTO DJNZ 30H,B_TRES RET ;---------------------------------------------PROGRAMA : CUATRO CUATRO:
MOV 30H,#30H B_CUATRO: ACALL M_CUATRO ACALL DIRECTO DJNZ 30H,B_CUATRO RET ;---------------------------------------------PROGRAMA : BNB BNB:
ACALL M_BNB ACALL DIRECTO RET
;***************************RETARDOS ;************************************************* DELAY DE 10 miliseg e0 ,2 delay: mov R4,#090H bucle4: mov r2,#02H bucle3: djnz r2,bucle3 djnz R4,bucle4 ret ;**************************************************ELIMINADOR DE REBOTES DE 20 miliseg REBOTES: mov R4,#0ffh ;eFH bucle2: mov r2,#0ffh ;50H bucle1: djnz r2,bucle1 djnz R4,bucle2 ret
END |
Visita la pagina principal para mas proyectos o envíenos un correo solicitando algún proyecto de su interés
Bueno cualquier comentario a mi pagina estaré gustoso de responder tus preguntas o dudas, puedes enviarme un correo electrónico a [email protected] y si eres de La Paz Bolivia puedes llamarme por teléfono al 72097633 , será un gusto atenderte, te recomiendo también accedas a la pagina principal donde encontraras un listado de programas que apuesto serán de tu agrado, recuerda que puedes publicar anuncios o proyectos con todos tus datos totalmente GRATIS!!! , será para mi un gusto serte de utilidad...
RAUL ALEJANDRO
QUISPE LARICO
