RE:Quiero dibujar candado en TASM
Creo que alguien más lo optimizará, pero este es su código
title canda.asm dibuja un candado en modo gráfico
pixie macro x0,y0,colors
mov ah,0ch
mov al,colors
mov bh,00h
mov cx,x0
mov dx,y0
int 10h
endm
.model small
.stack 64h
.data
x dw 320
y dw 240
color db 04h
.code
inicio:
mov ax,@data
mov ds,ax
push ds
pop es
mov ah,00h ;modo gráfico
mov al,12h ;640x480 color
mov bh,00h ;pagina 0
mov bl,00h ;fondo negro de la pantalla
int 10h
mov ah,0bh ;paleta de colores
mov bh,00h ;pagina 0
mov bl,00h ;fondo negro de la pantalla
int 10h
call cgrande
call cpeque
mov cx,310
mov x,cx
mov dx,247
mov y,dx
c1:
pixie x,y,color
cmp cx,331
je c2
inc x
jmp c1
c2:
pixie x,y,color
cmp dx,250
je c3
inc y
dec x
jmp c2
c3:
pixie x,y,color
cmp cx,307
je c4
dec x
jmp c3
c4:
pixie x,y,color
cmp x,310
je c00
inc x
dec y
jmp c4
c00:
mov cx,331
mov x,cx
mov dx,247
mov y,dx
c5:
pixie x,y,color
cmp dx,265
je c6
inc y
jmp c5
c6:
pixie x,y,color
cmp cx,329
je c7
inc y
dec x
jmp c6
c7:
pixie x,y,color
cmp dx,250
je c01
dec y
jmp c7
c01:
mov cx,329
mov x,cx
mov dx,267
mov y,dx
c8:
pixie x,y,color
cmp cx,307
je c9
dec x
jmp c8
c9:
pixie x,y,color
cmp dx,250
je c02
dec y
jmp c9
c02:
mov cx,315
mov x,cx
mov dx,254
mov y,dx
;---------------------------------------------inicia cuadrado
c10:
pixie x,y,color
cmp cx,322
je c11
inc x
jmp c10
c11:
pixie x,y,color
cmp y,261
je c12
inc y
jmp c11
c12:
pixie x,y,color
cmp cx,315
je c13
dec x
jmp c12
c13:
pixie x,y,color
cmp dx,254
je c03
dec y
jmp c13
c03:
call mini
mov ah,10h
int 16h
mov ah,00h
mov al,03h
int 10h
mov ax,4c00h
int 21h
;-----------------------------------------------------------------------------------Curva grande
cgrande proc
pixie x,y,color
pixie 319,241,color
pixie 318,241,color
pixie 317,242,color
pixie 316,242,color
pixie 315,243,color
pixie 314,243,color
pixie 313,244,color
pixie 313,245,color
pixie 312,246,color
pixie 312,247,color
inc x
pixie x,y,color
pixie 322,241,color
pixie 323,241,color
pixie 324,242,color
pixie 325,242,color
pixie 326,243,color
pixie 327,243,color
pixie 328,244,color
pixie 328,245,color
pixie 329,246,color
pixie 329,247,color
ret
cgrande endp
;-------------------------------------------------------------------------------------Curva chica
cpeque proc
pixie 320,243,color
pixie 319,244,color
pixie 318,244,color
pixie 317,245,color
pixie 316,245,color
pixie 315,246,color
pixie 315,247,color
pixie 321,243,color
pixie 322,244,color
pixie 323,244,color
pixie 324,245,color
pixie 325,245,color
pixie 326,246,color
pixie 326,247,color
ret
cpeque endp
;---------------------------------------------------------------------------------------circulo pequeño
mini proc
pixie 318,256,color
pixie 319,256,color
pixie 320,257,color
pixie 320,258,color
pixie 319,259,color
pixie 318,259,color
pixie 317,258,color
pixie 317,257,color
ret
mini endp
end inicio