elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
25 Mayo 2012, 01:17  


Tema destacado: Únete al Grupo Steam elhacker.NET

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  ASM (Moderador: Eternal Idol)
| | | |-+  Damas Inglesas en ASM		 0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Damas Inglesas en ASM  (Leído 2,282 veces)
MasterPM2


Desconectado Desconectado

Mensajes: 421


,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-


Ver Perfil
Damas Inglesas en ASM
« en: 4 Marzo 2010, 00:56 »
Hola Compas xD

Código
ir_a macro x,y
    mov ah,02h
    mov dl,x
    mov dh,y
    mov bh,0
    int 10h
Endm
 
cuadrito Macro caracter,veces,color
    mov ah,09h
    mov al,caracter
    mov bh,0
    mov bl,color
    mov cx,veces
    int 10h
Endm
 
.model small
.stack
.code
.data
.start up
 
mov cx,8
 
for1:
 
ir_a 5,5
cuadrito 042,cx,4
 
loop for1
 
.exit

pues cuendo ensamblo el programa me imprime sin problemas asi:
      ********  (el numero de veces que le asigne al contador)
pero como pueden ver,lo imprime aumentando solamente en "X" osea, horizontalmente..
como hago para que aumente en "Y"?? :-\

asi :
*
*
*
*
*
*
*
*
PD: el objetivo de esto es para meterlos en un par de FOR's anidados para generar un tablero 8x8..
planeo hacer una Juego de Damas :xD y aprender un monton  ;-)

slu2
y muchas gracias
« Última modificación: 14 Abril 2010, 23:32 por _:MasterPM:_ » En línea
ANBU暗部   Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3

<firma retirada, no la vuelvas a poner o se te sancionara>  <- - Amenazas
Eternal Idol
Moderador
***
Desconectado Desconectado

Mensajes: 4.388


Clarin miente, TN opera y los giles regurgitan.


Ver Perfil WWW
Re: duda con imprimir en (X,Y) punto
« Respuesta #1 en: 9 Marzo 2010, 00:56 »
¿Ya probaste pasando valores distintos a ir_a cada vez?
En línea


La economía nunca ha sido libre: o la controla el Estado en beneficio del Pueblo o lo hacen los grandes consorcios en perjuicio de éste.
Juan Domingo Perón
08l00D

Desconectado Desconectado

Mensajes: 168


Ver Perfil
Re: duda con imprimir en (X,Y) punto
« Respuesta #2 en: 9 Marzo 2010, 01:47 »
Como dijo Eternal Idol lo que podrias hacer es cambiar los valores de la posicion del cursor cuando llames a la macro cosa que apunte a la fila siguiente... O podes imprimir el caracter CR o LF para un salto de linea y volver a imprimir la linea de ocho caracteres.. Esto dentro de un ciclo obviamente ..

PD: Hay cosas que no me cierran mucho...
Por que te imprime los caracteres consecutivamente? Si, supuestamente en el ciclo que hiciste el cursor esta apuntando siempre en la misma posicion(x = 5 ; y = 5)..  :huh:
Ademas el loop no esta demas? Si esa interrupcion imprime la cantidad de veces que le indiques con cx....
Perdonen si me equivoco es que no me acostumbro a la programacion en DOS  :P
 
En línea
MasterPM2


Desconectado Desconectado

Mensajes: 421


,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-


Ver Perfil
Re: duda con imprimir en (X,Y) punto
« Respuesta #3 en: 9 Marzo 2010, 19:08 »
Gracias por Responder! :rolleyes:..... ............................................................ por fin  :silbar: :xD

Código
ir_a macro x,y
    mov ah,02h
    mov dl,x
    mov dh,y
    mov bh,0
    int 10h
Endm
 
Repetir Macro caracter,veces,color
    mov ah,09h
    mov al,caracter
    mov bh,0
    mov bl,color
    mov cx,veces
    int 10h
Endm
 
ficha_blanca macro
    repetir 001,1,6
    endm
 
linea1 macro
ir_a 6,y
repetir 176,4,1
 
ir_a 10,y
repetir 176,4,7 
 
ir_a 14,y
repetir 176,4,1 
 
ir_a 18,y
repetir 176,4,7
 
ir_a 22,y
repetir 176,4,1
 
ir_a 26,y
repetir 176,4,7
 
ir_a 30,y
repetir 176,4,1
 
ir_a 34,y
repetir 176,4,7  
 
inc y 
endm
 
linea2 macro
ir_a 6,y
repetir 176,4,7
 
ir_a 10,y
repetir 176,4,1 
 
ir_a 14,y
repetir 176,4,7 
 
ir_a 18,y
repetir 176,4,1
 
ir_a 22,y
repetir 176,4,7
 
ir_a 26,y
repetir 176,4,1
 
ir_a 30,y
repetir 176,4,7
 
ir_a 34,y
repetir 176,4,1
 
inc y
 
endm
 
.model small
.stack
.code
.data     
 
y db ?
.start up
 
mov y,1  
 
 
linea1
linea1
linea2
linea2
linea1
linea1
linea2
linea2
linea1
linea1
linea2
linea2
linea1
linea1
linea2
linea2
 
mov ah,02h
int 16h
 
.exit
 

pues hice el tablero de esa forma..
desconocia la funcion "Inc" y luego que la lei me sirvio para aumentar en "Y" asi q hice una macro para cada linea y luego solo las llamo las veces necesarias :D
que les parece? :laugh:
pensaba usar las caritas de la tabla assci como fichas..
En línea
ANBU暗部   Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3

<firma retirada, no la vuelvas a poner o se te sancionara>  <- - Amenazas
MasterPM2


Desconectado Desconectado

Mensajes: 421


,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-


Ver Perfil
Re: Damas Inglesas
« Respuesta #4 en: 14 Abril 2010, 23:29 »
pues ahor astoy aprendiendo a manipular el mouse en asm para mover las piezas..
ya logre que se vueva el puntero dentro del prompt con la interrupcion 33H..
pero lo que quiero es obviamente, mover la pieza..alguna idea??

Código
ir_a macro x,y
    mov ah,02h
    mov dl,x
    mov dh,y
    mov bh,0
    int 10h
Endm
 
Repetir Macro caracter,veces,color
    mov ah,09h
    mov al,caracter
    mov bh,0
    mov bl,color
    mov cx,veces
    int 10h
Endm
 
ficha_blanca macro
    repetir 001,1,6
endm
 
 
ficha_negra macro
    repetir 001,1,5
endm
 
 
linea1 macro
ir_a 6,y
repetir 176,4,1
 
ir_a 10,y
repetir 176,4,7 
 
ir_a 14,y
repetir 176,4,1 
 
ir_a 18,y
repetir 176,4,7
 
ir_a 22,y
repetir 176,4,1
 
ir_a 26,y
repetir 176,4,7
 
ir_a 30,y
repetir 176,4,1
 
ir_a 34,y
repetir 176,4,7  
 
inc y 
endm
 
linea2 macro
ir_a 6,y
repetir 176,4,7
 
ir_a 10,y
repetir 176,4,1 
 
ir_a 14,y
repetir 176,4,7 
 
ir_a 18,y
repetir 176,4,1
 
ir_a 22,y
repetir 176,4,7
 
ir_a 26,y
repetir 176,4,1
 
ir_a 30,y
repetir 176,4,7
 
ir_a 34,y
repetir 176,4,1
 
inc y
 
endm
 
.model small
.stack
.code
.data     
dato db ?
y db ?
a dw ?
b dw ?
c db 2
movida db ?
.start up
 
mov y,1  
 
 
linea1
linea1
linea2
linea2
linea1
linea1
linea2
linea2
linea1
linea1
linea2
linea2
linea1
linea1
linea2
linea2
 
 
 
ir_a 7,1 
ficha_blanca
 
ir_a 15,1 
ficha_blanca
 
ir_a 23,1
ficha_blanca
 
ir_a 31,1
ficha_blanca
 
 
 
;///////
ir_a 11,3
ficha_blanca
 
ir_a 19,3
ficha_blanca
 
ir_a 27,3
ficha_blanca
 
ir_a 35,3
ficha_blanca
;////////       
ir_a 7,5 
ficha_blanca
 
ir_a 15,5 
ficha_blanca
 
ir_a 23,5
ficha_blanca
 
ir_a 31,5
ficha_blanca
 
;////////////////////////////////////////////////
ir_a 11,12
ficha_negra
 
ir_a 19,12
ficha_negra
 
ir_a 27,12
ficha_negra
 
ir_a 35,12
ficha_negra
 
 
ir_a 7,14
ficha_negra
 
ir_a 15,14
ficha_negra
 
ir_a 23,14
ficha_negra
 
ir_a 31,14
ficha_negra
 
 
ir_a 11,16
ficha_negra
 
ir_a 19,16
ficha_negra
 
ir_a 27,16
ficha_negra
 
ir_a 35,16
ficha_negra
 
 
ir_a 5,2
repetir 'A',1,3 
 
ir_a 5,4
repetir 'B',1,3
 
ir_a 5,6
repetir 'C',1,3
 
ir_a 5,8
repetir 'D',1,3
 
ir_a 5,10
repetir 'E',1,3
 
ir_a 5,12
repetir 'F',1,3
 
ir_a 5,14
repetir 'G',1,3
 
ir_a 5,16
repetir 'H',1,3
 
ir_a 7,17
repetir '1',1,3
 
ir_a 11,17
repetir '2',1,3
 
ir_a 15,17
repetir '3',1,3
 
ir_a 19,17
repetir '4',1,3
 
ir_a 23,17
repetir '5',1,3
 
ir_a 27,17
repetir '6',1,3
 
ir_a 31,17
repetir '7',1,3
 
ir_a 35,17
repetir '8',1,3
 
 
 
 
Mov Ax,01h
int 33h
 
 
Mov Ax,0003h
int 33h 
 
 
mov ah,00h 
int 16h
 
.exit
 
 

etoy aprendiendo lentamente, el trabajo no me ha dejado demasiado tiempo libre xD
asi que agradezco cualquier comentario..
sl2!
« Última modificación: 15 Abril 2010, 04:21 por _:MasterPM:_ » En línea
ANBU暗部   Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3

<firma retirada, no la vuelvas a poner o se te sancionara>  <- - Amenazas
MasterPM2


Desconectado Desconectado

Mensajes: 421


,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-


Ver Perfil
[ERROR]Damas Inglesas en ASM
« Respuesta #5 en: 19 Abril 2010, 07:26 »
Ya casi terminado..
solo que no le logro resolver un error que me salta al intentar ensamblarlo..
le hechan un ojo? :huh:

Código
pixel macro cursorX,cursorY
         mov AL, cursorX
         mov BL, 8
         div BL
         mov varX,al
 
         mov AL, cursorY
         mov BL, 8
         div BL
         mov varY, AL
 
endm 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ;****************************************************************************************************
 gotoxy macro fila,columna
         mov ah,02h             ;macro gotoxy
         mov dl,fila            ;set cursor position
         mov dh,columna
         mov bh,0
      int 10h
endm
 
repetir macro caracter,veces,color
    mov ah,09h
    mov al,caracter
    mov bh,0 ;numero de paginas
    mov bl,color                        ;color ;1=azul,2=verde,4=rojo,
                                               ;5=morado, 7=blanco,0=negro
    mov cx,veces
    int 10h                             ;veces
endm                                    ;interrupcion  de video (int 10)
.model large
.stack
.code  
       varX db ?
        varY db ?  
        var0 db ?
.data
        msg db " DAMERO $" 
        an db "integrantes: Jose Andres Moreno $"
        mar db "             Marco Antonio Portillo $" 
        ind db " Instrucciones de juego $"
        d db "1)Clik derecho para jugador 1(cuadritos rojo)$" 
        i db "2)Clik izquierdo jugador 2(cuadritos verde) $"
        n db "3)Oprimir los dos botones para despazarse $"
        g db "entre el tablero $"
 
        Var1 db ?
     If_Color db ?
 
 
.startup
 
gotoxy 1,0
repetir 178,34,9
 
 gotoxy 14,0
 mov ah,09h
 lea dx, msg
 int 21h
 
 
 
 gotoxy 38,5
 mov ah,09h
 lea dx,an
 int 21h
 
 gotoxy 38,6
 mov ah,09h
 lea dx,mar
 int 21h 
 
 gotoxy 42,8
 mov ah,09h
 lea dx,ind
 int 21h
 
 gotoxy 35,10
 mov ah,09h
 lea dx,d
 int 21h
 
 gotoxy 35,11
 mov ah,09h
 lea dx,i
 int 21h
 
 gotoxy 35,12
 mov ah,09h
 lea dx,n
 int 21h 
 
  gotoxy 35,13
 mov ah,09h
 lea dx,g
 int 21h
 
 
 
 
 
 
 
 
 start:   
 
 gotoxy 1,1
repetir 178,34,5  
gotoxy 1,2
repetir 178,34,5 
gotoxy 1,3
repetir 178,34,5
gotoxy 1,4
repetir 178,34,5
gotoxy 1,5
repetir 178,34,5  
 gotoxy 1,6
repetir 178,34,5  
gotoxy 1,7
repetir 178,34,5 
gotoxy 1,8
repetir 178,34,5
gotoxy 1,9
repetir 178,34,5
gotoxy 1,10
repetir 178,34,5  
 gotoxy 1,11
repetir 178,34,5  
gotoxy 1,12
repetir 178,34,5 
gotoxy 1,13
repetir 178,34,5
gotoxy 1,14
repetir 178,34,5
gotoxy 1,15
repetir 178,34,5  
 gotoxy 1,16
repetir 178,34,5  
gotoxy 1,17
repetir 178,34,5 
gotoxy 1,18
repetir 178,34,5
gotoxy 1,19
repetir 178,34,5
gotoxy 1,20
repetir 178,34,5  
gotoxy 1,21
repetir 178,34,5
 
 
 ;********PRIMER FILA DE CUADRITOS*********
;primera guadrito
gotoxy 3,1
repetir 178,3,7
gotoxy 3,2
repetir 178,3,7  
 
 
;segundo cuadrito
gotoxy 6,1
repetir 178,3,0
gotoxy 7,1
repetir 178,1,2 
gotoxy 6,2 
repetir 178,3,0 
 
 
 
;tercer guadrito
gotoxy 9,1
repetir 178,3,7
gotoxy 9,2
repetir 178,3,7   
 
;cuarto cuadrito
gotoxy 12,1
repetir 178,3,0
gotoxy 13,1
repetir 178,1,2
gotoxy 12,2
repetir 178,3,0
 
 
 
;quinto guadrito
gotoxy 15,1
repetir 178,3,7
gotoxy 15,2
repetir 178,3,7  
 
;sexto cuadrito
gotoxy 18,1
repetir 178,3,0
gotoxy 19,1
repetir 178,1,2
gotoxy 18,2
repetir 178,3,0
 
 
;septimo guadrito
gotoxy 21,1
repetir 178,3,7
gotoxy 21,2
repetir 178,3,7  
 
 
;octavo cuadrito
gotoxy 24,1
repetir 178,3,0 
gotoxy 25,1
repetir 178,1,2
gotoxy 24,2
repetir 178,3,0  
 
;noveno guadrito
gotoxy 27,1
repetir 178,3,7
gotoxy 27,2
repetir 178,3,7   
 
;decimo cuadrito
gotoxy 30,1
repetir 178,3,0 
gotoxy 31,1
repetir 178,1,2
gotoxy 30,2
repetir 178,3,0 
 
 
 
 
 
 
;*********SEGUNDA FILA DE CUADRITOS************
 
;primera guadrito segunda linea
gotoxy 3,3
repetir 178,3,0 
gotoxy 4,3
repetir 178,1,2
gotoxy 3,4
repetir 178,3,0
 
 
 
;primera guadrito segunda linea
gotoxy 6,3
repetir 178,3,7
gotoxy 6,4
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 9,3
repetir 178,3,0 
gotoxy 10,3
repetir 178,1,2
gotoxy 9,4
repetir 178,3,0
 
 
 
;cuarto guadrito segunda linea
gotoxy 12,3
repetir 178,3,7
gotoxy 12,4
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 15,3
repetir 178,3,0
gotoxy 16,3
repetir 178,1,2
gotoxy 15,4
repetir 178,3,0
 
 
 
;primera guadrito segunda linea
gotoxy 18,3
repetir 178,3,7
gotoxy 18,4
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 21,3
repetir 178,3,0
gotoxy 22,3
repetir 178,1,2
gotoxy 21,4
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 24,3
repetir 178,3,7
gotoxy 24,4
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 27,3
repetir 178,3,0
gotoxy 28,3
repetir 178,1,2
gotoxy 27,4
repetir 178,3,0
 
 
;cuarto guadrito segunda linea
gotoxy 30,3
repetir 178,3,7
gotoxy 30,4
repetir 178,3,7   
 
 
;************TERCERA LINEA DE CUADRITOS***********
 
;primera guadrito
gotoxy 3,5
repetir 178,3,7
gotoxy 3,6
repetir 178,3,7   
 
;segundo cuadrito
gotoxy 6,5
repetir 178,3,0
gotoxy 7,5
repetir 178,1,2 
gotoxy 6,6 
repetir 178,3,0 
 
;tercer guadrito
gotoxy 9,5
repetir 178,3,7
gotoxy 9,6
repetir 178,3,7 
 
;cuarto cuadrito
gotoxy 12,5
repetir 178,3,0
gotoxy 13,5
repetir 178,1,2 
gotoxy 12,6
repetir 178,3,0 
 
;quinto guadrito
gotoxy 15,5
repetir 178,3,7
gotoxy 15,6
repetir 178,3,7  
 
;sexto cuadrito
gotoxy 18,5
repetir 178,3,0
gotoxy 19,5
repetir 178,1,2 
gotoxy 18,6
repetir 178,3,0
 
 
;septimo guadrito
gotoxy 21,5
repetir 178,3,7
gotoxy 21,6
repetir 178,3,7  
 
 
;octavo cuadrito
gotoxy 24,5
repetir 178,3,0 
gotoxy 25,5
repetir 178,1,2 
gotoxy 24,6
repetir 178,3,0 
 
 
 
 
;noveno guadrito
gotoxy 27,5
repetir 178,3,7
gotoxy 27,6
repetir 178,3,7   
 
;decimo cuadrito
gotoxy 30,5
repetir 178,3,0 
gotoxy 31,5
repetir 178,1,2 
gotoxy 30,6
repetir 178,3,0 
 
 
 
 
 
 
;*************CUARTA LINEA DE CUADRITOS******************
 
;primera guadrito segunda linea
gotoxy 3,7
repetir 178,3,0 
gotoxy 4,7
repetir 178,1,2 
gotoxy 3,8
repetir 178,3,0
 
 
;primera guadrito segunda linea
gotoxy 6,7
repetir 178,3,7
gotoxy 6,8
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 9,7
repetir 178,3,0
gotoxy 10,7
repetir 178,1,2 
gotoxy 9,8
repetir 178,3,0
 
 
 
;cuarto guadrito segunda linea
gotoxy 12,7
repetir 178,3,7
gotoxy 12,8
repetir 178,3,7
 
 
;primera guadrito segunda linea
gotoxy 15,7
repetir 178,3,0
gotoxy 16,7
repetir 178,1,2 
gotoxy 15,,8
repetir 178,3,0 
 
 
;primera guadrito segunda linea
gotoxy 18,7
repetir 178,3,7
gotoxy 18,8
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 21,7
repetir 178,3,0
gotoxy 22,7
repetir 178,1,2 
gotoxy 21,8
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 24,7
repetir 178,3,7
gotoxy 24,8
repetir 178,3,7  
 
;primera guadrito segunda linea
gotoxy 27,7
repetir 178,3,0
gotoxy 28,7
repetir 178,1,2 
gotoxy 27,8
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 30,7
repetir 178,3,7
gotoxy 30,8
repetir 178,3,7   
 
 
 
 
 
 
;************QUINTA LINEA DE CUADRITOS******************
 
;primera guadrito
gotoxy 3,9
repetir 178,3,7 
gotoxy 3,10
repetir 178,3,7
 
;segundo cuadrito
gotoxy 6,9
repetir 178,3,0
gotoxy 7,9
repetir 178,1,0 
gotoxy 6,10 
repetir 178,3,0    
 
;tercer guadrito
gotoxy 9,9
repetir 178,3,7
gotoxy 9,10
repetir 178,3,7 
 
;cuarto cuadrito
gotoxy 12,9
repetir 178,3,0 
gotoxy 13,9
repetir 178,1,0 
gotoxy 12,10
repetir 178,3,0    
 
;quinto guadrito
gotoxy 15,9
repetir 178,3,7
gotoxy 15,10
repetir 178,3,7  
 
;sexto cuadrito
gotoxy 18,9
repetir 178,3,0
gotoxy 19,9
repetir 178,1,0 
gotoxy 18,10
repetir 178,3,0    
 
;septimo guadrito
gotoxy 21,9
repetir 178,3,7
gotoxy 21,10
repetir 178,3,7   
 
;octavo cuadrito
gotoxy 24,9
repetir 178,3,0 
gotoxy 25,9
repetir 178,1,0 
gotoxy 24,10
repetir 178,3,0   
 
;noveno guadrito
gotoxy 27,9
repetir 178,3,7
gotoxy 27,10
repetir 178,3,7  
 
;decimo cuadrito
gotoxy 30,9
repetir 178,3,0
gotoxy 31,9
repetir 178,1,0 
gotoxy 30,10
repetir 178,3,0  
 
 
;***********SEXTA LINEA DE CUADRITOS******************
 
;primera guadrito segunda linea
gotoxy 3,11
repetir 178,3,0
gotoxy 4,11
repetir 178,1,0 
gotoxy 3,12
repetir 178,3,0    
 
 
;primera guadrito segunda linea
gotoxy 6,11
repetir 178,3,7
gotoxy 6,12
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 9,11
repetir 178,3,0
gotoxy 10,11
repetir 178,1,0
gotoxy 9,12
repetir 178,3,0    
 
 
;cuarto guadrito segunda linea
gotoxy 12,11
repetir 178,3,7
gotoxy 12,12
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 15,11
repetir 178,3,0 
gotoxy 16,11
repetir 178,1,0
gotoxy 15,12
repetir 178,3,0    
 
 
;primera guadrito segunda linea
gotoxy 18,11
repetir 178,3,7
gotoxy 18,12
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 21,11
repetir 178,3,0 
gotoxy 22,11
repetir 178,1,0
gotoxy 21,12
repetir 178,3,0  
 
 
;cuarto guadrito segunda linea
gotoxy 24,11
repetir 178,3,7
gotoxy 24,12
repetir 178,3,7 
 
;primera guadrito segunda linea
gotoxy 27,11
repetir 178,3,0
gotoxy 28,11
repetir 178,1,0
gotoxy 27,12
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 30,11
repetir 178,3,7
gotoxy 30,12
repetir 178,3,7
 
 
 
;**********SEPTIMA LINEA DE CUADRITOS***************
 
 ;primera guadrito
gotoxy 3,13
repetir 178,3,7
gotoxy 3,14
repetir 178,3,7  
 
 
;segundo cuadrito
gotoxy 6,13
repetir 178,3,0
gotoxy 7,13
repetir 178,1,4 
gotoxy 6,14 
repetir 178,3,0 
 
 
 
;tercer guadrito
gotoxy 9,13
repetir 178,3,7
gotoxy 9,14
repetir 178,3,7   
 
;cuarto cuadrito
gotoxy 12,13
repetir 178,3,0
gotoxy 13,13
repetir 178,1,4
gotoxy 12,14
repetir 178,3,0
 
 
 
;quinto guadrito
gotoxy 15,13
repetir 178,3,7
gotoxy 15,14
repetir 178,3,7  
 
;sexto cuadrito
gotoxy 18,13
repetir 178,3,0
gotoxy 19,13
repetir 178,1,4
gotoxy 18,14
repetir 178,3,0
 
 
;septimo guadrito
gotoxy 21,13
repetir 178,3,7
gotoxy 21,14
repetir 178,3,7  
 
 
;octavo cuadrito
gotoxy 24,13
repetir 178,3,0 
gotoxy 25,13
repetir 178,1,4
gotoxy 24,14
repetir 178,3,0  
 
;noveno guadrito
gotoxy 27,13
repetir 178,3,7
gotoxy 27,14
repetir 178,3,7   
 
;decimo cuadrito
gotoxy 30,13
repetir 178,3,0 
gotoxy 31,13
repetir 178,1,4
gotoxy 30,14
repetir 178,3,0 
 
 
 
 
 
 
;**************OCTAVA LINEA DE CUADRITOS****************
 
;primera guadrito segunda linea
gotoxy 3,15
repetir 178,3,0 
gotoxy 4,15
repetir 178,1,4
gotoxy 3,16
repetir 178,3,0
 
 
 
;primera guadrito segunda linea
gotoxy 6,15
repetir 178,3,7
gotoxy 6,16
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 9,15
repetir 178,3,0 
gotoxy 10,15
repetir 178,1,4
gotoxy 9,16
repetir 178,3,0
 
 
 
;cuarto guadrito segunda linea
gotoxy 12,15
repetir 178,3,7
gotoxy 12,16
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 15,15
repetir 178,3,0
gotoxy 16,15
repetir 178,1,4
gotoxy 15,16
repetir 178,3,0
 
 
;primera guadrito segunda linea
gotoxy 18,15
repetir 178,3,7
gotoxy 18,16
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 21,15
repetir 178,3,0
gotoxy 22,15
repetir 178,1,4
gotoxy 21,16
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 24,15
repetir 178,3,7
gotoxy 24,16
repetir 178,3,7  
 
 
;primera guadrito segunda linea
gotoxy 27,15
repetir 178,3,0
gotoxy 28,15
repetir 178,1,4
gotoxy 27,16
repetir 178,3,0
 
 
;cuarto guadrito segunda linea
gotoxy 30,15
repetir 178,3,7
gotoxy 30,16
repetir 178,3,7   
 
 
;***************NOVENA LINEA DE CUADRITOS********************
 
;primera guadrito
gotoxy 3,17
repetir 178,3,7
gotoxy 3,18
repetir 178,3,7   
 
;segundo cuadrito
gotoxy 6,17
repetir 178,3,0
gotoxy 7,17
repetir 178,1,4 
gotoxy 6,18
repetir 178,3,0 
 
;tercer guadrito
gotoxy 9,17
repetir 178,3,7
gotoxy 9,18
repetir 178,3,7 
 
;cuarto cuadrito
gotoxy 12,17
repetir 178,3,0
gotoxy 13,17
repetir 178,1,4 
gotoxy 12,18
repetir 178,3,0 
 
;quinto guadrito
gotoxy 15,17
repetir 178,3,7
gotoxy 15,18
repetir 178,3,7  
 
;sexto cuadrito
gotoxy 18,17
repetir 178,3,0
gotoxy 19,17
repetir 178,1,4 
gotoxy 18,18
repetir 178,3,0
 
 
;septimo guadrito
gotoxy 21,17
repetir 178,3,7
gotoxy 21,18
repetir 178,3,7  
 
 
;octavo cuadrito
gotoxy 24,17
repetir 178,3,0 
gotoxy 25,17
repetir 178,1,4 
gotoxy 24,18
repetir 178,3,0 
 
 
 
 
;noveno guadrito
gotoxy 27,17
repetir 178,3,7
gotoxy 27,18
repetir 178,3,7   
 
;decimo cuadrito
gotoxy 30,17
repetir 178,3,0 
gotoxy 31,17
repetir 178,1,4 
gotoxy 30,18
repetir 178,3,0 
 
 
 
 
 
 
;*****************DECIMA LINEA DE CUADRITOS*********************
 
;primera guadrito segunda linea
gotoxy 3,19
repetir 178,3,0 
gotoxy 4,19
repetir 178,1,4 
gotoxy 3,20
repetir 178,3,0
 
 
;primera guadrito segunda linea
gotoxy 6,19
repetir 178,3,7
gotoxy 6,20
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 9,19
repetir 178,3,0
gotoxy 10,19
repetir 178,1,4 
gotoxy 9,20
repetir 178,3,0
 
 
 
;cuarto guadrito segunda linea
gotoxy 12,19
repetir 178,3,7
gotoxy 12,20
repetir 178,3,7
 
 
;primera guadrito segunda linea
gotoxy 15,19
repetir 178,3,0
gotoxy 16,19
repetir 178,1,4 
gotoxy 15,,20
repetir 178,3,0 
 
 
;primera guadrito segunda linea
gotoxy 18,19
repetir 178,3,7
gotoxy 18,20
repetir 178,3,7     
 
;primera guadrito segunda linea
gotoxy 21,19
repetir 178,3,0
gotoxy 22,19
repetir 178,1,4 
gotoxy 21,20
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 24,19
repetir 178,3,7
gotoxy 24,20
repetir 178,3,7  
 
;primera guadrito segunda linea
gotoxy 27,19
repetir 178,3,0
gotoxy 28,19
repetir 178,1,4 
gotoxy 27,20
repetir 178,3,0 
 
 
;cuarto guadrito segunda linea
gotoxy 30,19
repetir 178,3,7
gotoxy 30,20
repetir 178,3,7 
 
 
;*************************************
 
 
 
 
 
 
 
 ;**********************************************************************
 
 Mov Cx,900
         For:                               ;Ciclo For
            ;Push Cx                         ;Guarda Cx en la pila
               ; Mov Ax,Cx
                ;Mov Var1,2
                   ; Div Var1                ;el residuo se guarda en Ah
                        ;CMP Ah,0            ;Compara Residuo con cero
                            ;Ja Blanco       ;si residuo <> 0 ,If_color = 7
                            ;Je Negro        ;si residuo =  0 ,If_color = 5
                    Continue:
                    Mov Ax,1h
                    Int 33h
 
                    Mov Ax,0003
                    Int 33h
 
                    Cmp Bx,1
                    Je Cursor 
 
                    Cmp Bx,2
                    JE  Probando      
 
 
                    CMP bx, 3
 
                    JE salir       
 
            ;Pop Cx                          ;Recobra Cx de la pila
         Loop For   
 
 
 
 
 
 
mov ah,02h
int 16h
.exit   
 
 
 
 
;Blanco:
        ;Mov If_Color,2
        ;JMP Continue
    ; Negro:
        ;Mov If_Color,0
        ;JMP Continue
 
 Cursor:
 
 pixel Cx,Dx
 
 mov AL, varX
 sub AL, 2
 mov var0, AL
 
 GotoXY varx,varY
             ;Decremento la columna
 Repetir 178,1,4  ;Imprime caracter 
 JMP Continue
 
 
 probando:
 
 pixel Cx,Dx
 
 mov AL, varX
 sub AL, 2
 mov var0, AL
 
 GotoXY varx,varY
             ;Decremento la columna
 Repetir 178,1,2  ;Imprime caracter 
 JMP Continue
 
 
 
salir: 
pixel Cx,Dx
 
 mov AL, varX
 sub AL, 2
 mov var0, AL
 
 GotoXY varx,varY
             ;Decremento la columna
 Repetir 178,1,0  ;Imprime caracter 
 JMP Continue       
 
En línea
ANBU暗部   Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3

<firma retirada, no la vuelvas a poner o se te sancionara>  <- - Amenazas
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines