fibonacci urgente
Publicado por Riku (7 intervenciones) el 18/04/2008 08:16:18
include numero
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ;
CODIGO SEGMENT 'CODE'
FIBONACI PROC fAR
ASSUME CS:CODIGO,DS:DATOS,SS:PILA,ES:DATOS
ORG 0100H
push ds ; Esto es necesario para
sub ax,ax ; el retorno al simolo
push ax ; del sistema.
mov ax,DATOS
mov es,ax
mov al,003h
mov ah,0
int 10h
mov ax,0b800h
mov ds,ax
mov si,OFFSET DATO_1
mov di,0
mov cx,(OFFSET FIN_DATO_1 - OFFSET DATO_1)
pantallazo:
mov al,es:[si]
mov ds:[di],al
add di,2
inc si
loop pantallazo
mov dx,1
xor bx,bx
mov ax,bx
aqui:
mov ax,bx
add ax,dx
mov bx,dx
mov dx,ax
numero 11,11
hay_tecla_anagrama_?:
mov ah,1
int 16h
jnz hay_tecla_pulsada_anagrama
jmp hay_tecla_anagrama_?
hay_tecla_pulsada_anagrama:
mov ah,0
int 16h
es_escape_anagrama_?:
cmp ah,1
jnz no_es_escape_anagrama
jmp salir_programa
no_es_escape_anagrama:
jmp aqui
salir_programa:
ret
FIBONACI ENDP
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ;
CODIGO ENDS
DATOS SEGMENT 'DATA'
DATO_1 LABEL BYTE
DB '********** Pulsar una tecla **********'
FIN_DATO_1 LABEL BYTE
DATOS ENDS
PILA SEGMENT STACK
DB 1024 DUP ('PILA')
PILA ENDS
END FIBONACI
hola alguien me podria ayudar?, este codigo en teoria deberia poder compilars con tasm, pero me marca error con en numero, ojala m puedan echar la mano, y k la serie fibonaci se imprima
como serie. gracias de antemano
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ;
CODIGO SEGMENT 'CODE'
FIBONACI PROC fAR
ASSUME CS:CODIGO,DS:DATOS,SS:PILA,ES:DATOS
ORG 0100H
push ds ; Esto es necesario para
sub ax,ax ; el retorno al simolo
push ax ; del sistema.
mov ax,DATOS
mov es,ax
mov al,003h
mov ah,0
int 10h
mov ax,0b800h
mov ds,ax
mov si,OFFSET DATO_1
mov di,0
mov cx,(OFFSET FIN_DATO_1 - OFFSET DATO_1)
pantallazo:
mov al,es:[si]
mov ds:[di],al
add di,2
inc si
loop pantallazo
mov dx,1
xor bx,bx
mov ax,bx
aqui:
mov ax,bx
add ax,dx
mov bx,dx
mov dx,ax
numero 11,11
hay_tecla_anagrama_?:
mov ah,1
int 16h
jnz hay_tecla_pulsada_anagrama
jmp hay_tecla_anagrama_?
hay_tecla_pulsada_anagrama:
mov ah,0
int 16h
es_escape_anagrama_?:
cmp ah,1
jnz no_es_escape_anagrama
jmp salir_programa
no_es_escape_anagrama:
jmp aqui
salir_programa:
ret
FIBONACI ENDP
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ;
CODIGO ENDS
DATOS SEGMENT 'DATA'
DATO_1 LABEL BYTE
DB '********** Pulsar una tecla **********'
FIN_DATO_1 LABEL BYTE
DATOS ENDS
PILA SEGMENT STACK
DB 1024 DUP ('PILA')
PILA ENDS
END FIBONACI
hola alguien me podria ayudar?, este codigo en teoria deberia poder compilars con tasm, pero me marca error con en numero, ojala m puedan echar la mano, y k la serie fibonaci se imprima
como serie. gracias de antemano
Valora esta pregunta
0