Procesadores

DATA SEGMENT
Teclaf db "No presiono una tecla adecuada","$"
cadena1 db "Ingrese primera cadena: ","$"
cadena2 db "Ingrese segunda cadena: ","$"
mensaje db "F2: a la izq. ,F3: al cent., F4: a lader."
valor db "2"
dolar db "$"

ingreso1 label byte
total1 db 21
longitud1 db ?
cade1 db 21 DUP(?)
dolar2 db "$"

ingreso2 label byte
total2 db 21
longitud2 db ?
cade2 db 21 DUP(?)dolar3 db "$"

fun2 db ""

rastreo db ?
db "$"

DATA ENDS

PILA SEGMENT STACK
DB 900 DUP(?)
PILA ENDS

INSTRUC SEGMENT
ASSUME CS:INSTRUC, DS:DATA, SS:PILA
INICIO:
MOVAX,DATA
MOV DS,AX

CALL RECORRE

MOV DX,0310H
CALL POSICION

lea dx,cadena1
CALL MUESTRA

lea dx,ingreso1
call ingreso

lea bx,cade1
mov cx,0
mov cl,longitud1mov si,cx
mov al,"$"
mov [bx+si],al

MOV DX,0410H
CALL POSICION

lea dx,cadena2
CALL MUESTRA

lea dx,ingreso2
call ingreso

lea bx,cade2
mov cx,0
mov cl,longitud2
movsi,cx
mov al,"$"
mov [bx+si],al

MOV DX,0510H
CALL POSICION
lea dx,mensaje
CALL MUESTRA

mov ah,00h
int 16h
mov rastreo,ah
cmp al,00h
jz funcion2

mov ah,09h
lea dx,teclafint 21h
MOV AH,4Ch
INT 21h

funcion2:
mov ah,rastreo
sub ah,fun2
jz alizq

funcion3:
add valor,1
mov ah,rastreo
sub ah,fun3
jz alicent

mov dx,0610h
call posicion
leadx,teclaf
call muestra
jmp fin

alizq:
call recorre
mov dx,0000h
call posicion
lea dx,cade1
call muestra
mov dx,0100h
call posicion
lea dx,cade2
call muestra
jmp finalicent:

call recorre

mov bh,2
mov ax,0
mov al,longitud1
div bh
mov dl,40
sub dl,al
mov dh,00h

call posicion
lea dx,cade1
call muestra

mov bh,2
mov ax,0
moval,longitud2
div bh
mov dl,40
sub dl,al
mov dh,01h

call posicion
lea dx,cade2
call muestra
jmp fin

alider:

call recorre


mov dx,80
sub dl,longitud1
call posicion
lea...