;Programa que pasa los números de una tabla a su valor absoluto
DATOS SEGMENT
      longitud equ 2    ;tamaño de la tabla
      fuente dw 1,0ff50h ;tabla fuente
      destino dw longitud dup(?)
DATOS ENDS

PILA SEGMENT STACK 'stack'
     db 128 dup(?)
PILA ENDS

CODIGO SEGMENT
       assume cs:codigo,ds:datos,ss:pila

ppal proc far
     push ds    ;Dirección de retorno al PSP
     sub ax,ax
     push ax

     mov ax,datos    ;Inicialización del registro DS
     mov ds,ax

     call absoluto
     retf

ppal endp

absoluto proc
         mov cx,longitud   ;inicializamos contador
         xor si,si         ;Índice a cero
   otro: mov ax,fuente[si]
         cmp ax,0          ;miro si es negativo
         jns guardar
         xor bx,bx
         sub bx,ax
         mov ax,bx
guardar: mov destino[si],ax
         add si,2
         dec cx
         jnz otro
         ret
absoluto endp


CODIGO ENDS
       END PPAL