- [ORG 7C00h]
- ; Codigo desarrollado por Kellerman Rivero, krsloco@gmail.com
- xor ax,ax
- mov ax,cs ; Mueve al registro AX (Acumulador) el contenido del Registro CS (Code Segment)
- mov ds,ax ; Mueve al registro DS (Data Segment) el contenido del registro AX (Acumulador)
- ;Por tanto hemos colocado el DS en la misma direccion apuntada por CS.
- mov es,ax ; Mueve al registro ES (Extra Segment) el contenido del registro AX(Acumulador)
- mov ax,00 ; Peticion para limpiar pantalla
- mov al,03
- int 0x10;
- mov cx,longmas
- ;mov si, mascara
- ;mov di, respuesta
- lea di, [respuesta]
- lea si, [mascara]
- jmp cargar_respuesta
- mascara db 'El Brujo:',0
- longmas equ $-mascara
- norep db 'No puedo responder tu pregunta',13,0
- longnorep equ $-norep
- respuesta resb longmas
- cargar_respuesta:
- xor ax,ax
- int 16h
- mov dl,al
- mov al,[si]
- mov ah,0x0E
- mov bx,0x0007
- int 0x10
- mov [di],dl
- inc di;
- inc si;
- loop cargar_respuesta
- mov cx,longmas
- lea si, [respuesta]
- jmp cargar_pregunta
- mostrar_respuesta:
- xor ax,ax
- int 16h
- cmp ah,1Ch
- jne mostrar_respuesta
- mov ax,00 ; Peticion para limpiar pantalla
- mov al,03
- int 0x10;
- ciclo:
- mov al,[si]
- cmp al,2Eh
- je hang
- mov ah,0x0E
- mov bx,0x0007
- int 0x10
- inc si
- loop ciclo
- jmp hang
- cargar_pregunta:
- xor ax,ax
- int 16h
- mov dh,ah
- mov ah,0x0E
- mov bx,0x0007
- int 0x10
- cmp dh,35h
- je mostrar_respuesta
- jmp cargar_pregunta
- hang: jmp hang ; Hang
- times 512-($-$$)-2 db 0
- dw 0AA55h
Esta es la version en emsablador de mi juego realizado en C, el brujo responde. Interesante para pasar ratos.