Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .model tiny
- include macros.asm
- .code
- .startup
- ; PRESENTACIÓN
- ;mov ax, @data
- ;mov ds, ax
- dibujar_bandera
- limpiar_pantalla
- pintar_interfaz
- pintar_about
- obtener_fecha
- inicializar_mouse
- bucle:
- mov ax,3h ;Se obtiene el estado del boton derecho
- int 33h
- ; El estado del boton se guarda en el registro bx (si fue presionado)
- cmp bx,1 ;1 para click izquierdo
- je comprobar_x ; Si bx y 1 son iguales, el boton izquierdo fue presionado
- ;else
- obtener_hora
- print_location hora 20,6
- jmp bucle ; Si el jump no hace nada, volver a verificar
- comprobar_x:
- shr cx,3 ; división entre 8
- ; BOTON SALIR X ------------------------------
- cmp cx,1
- je comprobar_y
- cmp cx,2
- je comprobar_y
- cmp cx,3
- je comprobar_y
- cmp cx,4
- je comprobar_y
- cmp cx,5
- je comprobar_y
- cmp cx,6
- je comprobar_y
- cmp cx,7
- je comprobar_y
- cmp cx,8
- je comprobar_y
- cmp cx,9
- je comprobar_y
- cmp cx,10
- je comprobar_y
- cmp cx,11
- je comprobar_y
- cmp cx,12
- je comprobar_y
- cmp cx,13
- je comprobar_y
- cmp cx,14
- je comprobar_y
- cmp cx,15
- je comprobar_y
- cmp cx,16
- je comprobar_y
- cmp cx,17
- je comprobar_y
- cmp cx,18
- je comprobar_y
- ;else
- jmp bucle
- comprobar_y:
- shr dx,3 ; división entre 8
- ; BOTON ABOUT Y --------------------------------------
- cmp dx,1
- ;si coincide
- je pintar_panel_about
- ; BOTON VIDEO Y --------------------------------------
- cmp dx,3
- ;si coincide
- je pintar_panel_video
- ; BOTON OS Y --------------------------------------
- cmp dx,5
- ;si coincide
- je pintar_panel_os
- ; BOTON PROCESADOR Y --------------------------------------
- cmp dx,7
- ;si coincide
- je pintar_panel_procesador
- ; BOTON MEMORIA Y --------------------------------------
- cmp dx,9
- ;si coincide
- je pintar_panel_memoria
- ; BOTON HD Y --------------------------------------
- cmp dx,11
- ;si coincide
- je pintar_panel_hd
- ; BOTON SALIR Y --------------------------------------
- cmp dx,13
- ;si coincide
- je terminar
- ;else
- jmp bucle
- terminar:
- mov ax,02h ;Oculta el apuntador del ratón
- int 33h
- ; Devuelve la consola a su estado normal
- mov ah,00h ; Establece el modo de texto
- mov al,03h
- int 10h
- .exit ; El conjunto de instrucciones para salir, incluidas en salir
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement