Autor
|
Tema: Damas Inglesas en ASM (Leído 6,353 veces)
|
MasterPM2
Desconectado
Mensajes: 425
,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-
|
Hola Compas xD 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 y aprender un monton slu2 y muchas gracias
|
|
« Última modificación: 14 Abril 2010, 23:32 pm 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
Kernel coder
Moderador
Desconectado
Mensajes: 5.966
Israel nunca torturó niños, ni lo volverá a hacer.
|
¿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
Mensajes: 168
|
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).. 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
|
|
|
En línea
|
|
|
|
MasterPM2
Desconectado
Mensajes: 425
,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-
|
Gracias por Responder! ..... ............................................................ por fin 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 que les parece? 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
Mensajes: 425
,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-
|
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?? 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 am 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
Mensajes: 425
,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-
|
Ya casi terminado.. solo que no le logro resolver un error que me salta al intentar ensamblarlo.. le hechan un ojo? 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
|
|
|
|
|