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!