.386
   .model tiny
   .code
         OldTimer dd ?
new1ch:
pusha      
push   es   
push   ds

push   cs   
pop   ds   


;код обработчика

pop   ds      
pop   es
popa
jmp   cs:OldTimer
            

init:

        mov ax,351ch
   int 21h

        mov word ptr  OldTimer, bx
        mov word ptr  OldTimer+2, es

        mov dx,offset new1ch
        mov ax,251ch
   int 21h
   
   mov ax,251ch
   mov dx,word ptr OldTimer+2
   mov ds,dx
   mov dx,word ptr cs:OldTimer
   int 21h

   mov     dx,offset init
        int     27h
   end  init

; move stack to   end
      mov   sp,offset end_prog
; resize size prog
      mov   ax,cs
      mov   es,ax
      mov   ds,ax
      mov   bx,(end_prog-start+10fh+64)/16
      mov   ah,4ah
      int   21h

   
   mov ax,251ch
   mov dx,word ptr OldTimer+2
   mov ds,dx
   mov dx,word ptr cs:OldTimer
   int 21h

mov ax,cs
mov ds,ax
mov ax,251ch
lea dx, new1ch
int 21h

#include <iostream.h>
#include <stdlib.h>

bool IsNumValid(int x);
bool IsSolution(int x);

void main()
{
   cout<<"nitka + nitka = tkanj"<<endl;
   for(int i=10000; i<50000; i++)
   {
      if(IsNumValid(i))
      {
         if(IsSolution(i))
            cout<<i<<" + "<<i<<" = "<<2*i<<endl;
      }
   }
}

bool IsNumValid(int x)
{
   char str[6];
   itoa(x, str, 10);
   for(int i=0; i<4; i++)
   {
      for(int j=i+1; j<5; j++)
      {
         if(str[i]==str[j])
            return false;
      }
   }
   return true;
}

bool IsSolution(int x)
{
   if(!IsNumValid(2*x))
      return false;
   char str1[6];
   char str2[6];
   itoa(x, str1, 10);
   itoa(2*x, str2, 10);
   if(str1[0]!=str2[3]||str1[2]!=str2[0]||str1[3]!=str2[1]||str1[4]!=str2[2])
      return false;
   return true;
}

text   segment      'code'
   assume cs:text,ds:text
   org 256
main   proc
   jmp init
sym1   dw   421eh
sym2   dw   241eh
count   db   0

new_1ch   proc
   push   ax
   push   es
   inc   cs:count
   test   byte ptr cs:count,03h
   jnz    exit

   mov   ax,0b800h
   mov      es,ax
   mov   ax,cs:sym1

   xchg   ax,cs:sym2
   mov   cs:sym1,ax
   mov   es:3998,ax

exit:   pop   es
   pop   ax
   iret
new_1ch   endp
main   endp
init   proc

   mov   ah,25h
   mov   al,1ch
   mov    dx,offset new_1ch
   int    21h

   mov   ah,09h
   mov   dx,offset mes
   int   21h

        mov    ax,3100h
        mov     dx,(init-main+10fh)/16

   int   21h
init   endp
mes   db   'Already Resident$'
text   ends
   end   main