Как получить адрес подпрограммы?

code_sg segment
     assume cs:code_sg, ds:code_sg, ss:code_sg
     org 100h
Na db ?     ;резервирование переменной для младшего разряда
Nb db ?     ;резервирование переменной для среднего разряда
Nc db ?     ;резервирование переменной для старшего разряда
begin: jmp start
start:                  
;инициализация ПСА
mov DX, 0D9CH           ; указать адрес ПСА                  
    mov AL, 40H                   ; программный сброс ПСА
    out DX, Al
           mov AL, 4DH      ;инструкция режима
           out DX, AL           ; запись инструкции режима                        
           mov AL, 33H      ;инструкции управления
           out DX, AL                     ;запись иснтрукции управления   
;инициализация таймера
    mov DX, 0DA3H       ;указать адреспо которому будут записаны
    mov AL, 31H     ;РУС0    
    out DX, AL          
    mov AL, 0B1H        ;РУС1
    out DX, AL
           mov AL, 0F1H                ;РУС2
           out DX, AL
 ;инициализация ППИ
          mov DX,0D9BH      ;адрес РУС
          mov AL,80h        ;управляющий байт    
          OUT DX,AL     ;запись управляющего байта           
 
;инициализация ПКП
    mov DX, 0DA4H        ;указать адрес ICW1 ПКП
    mov AL, 17H     ;поместить ICW1 ПКП в AL   
    out DX, AL
    mov DX, 0DA5H       ;указать адрес ICW2 ПКП      
    mov AL, A0H ;поместить ICW2 ПКП в AL
    out DX, AL
    mov DX, 0DA4H       ;указать адрес ICW4 ПКП
    mov AL, 07H     ;поместить ICW4 ПКП в AL
    out DX, AL
;запись значений в сч.0, сч.1 и сч.2 таймера
          mov al,99H                   ;загрузить в al 99
          mov dx,0DA0H 
          out dx,al                         ;загрузить 99 в младший байт Сч0
          out dx,al                        ;загрузить 99 в старший байт Сч0
          mov dx,0DA1H 
          out dx,al                        ;загрузить 99 в младший байт Сч1 
          out dx,al                       ;загрузить 99 в старший байт Сч1
          mov al,99H                  ;загрузить в al 99
          mov dx,0DA2H 
          out dx,al                         ;загрузить 99 в младший байт Сч2
          out dx,al                        ;загрузить 99 в старший байт Сч2
          xor ax,ax                       ;обнуление
         mov dx,0DA3H
         mov AL, 01H        ;запись РУС0 для считывания без остановки
    out DX, AL
          mov dx,0DA3H
         mov AL, 51H        ;запись РУС1 ждя считывания без остановки 
    out DX, AL      
;вычисление количества деталей
        mov dx,0DA0H        
        in al,dx                        ;чтение младшего байта Na из Сч0
        mov cl,al                     
        mov dx,0DA0H
        in al,dx                   ;чтение старшего байта    
        mov ch,al                   
        mov bx,9999H  
        sub bx,cx                   ;вычисление количества деталей
        mov Na,bl
        mov Nb, bh
        
 
        mov dx,0DA1H
        in al,dx                        ;чтение младшего байта Nb из Сч1
        mov cl,al                     
        mov bl,99H          
        sub bl,cl                   ;вычисление количества деталей
        mov Nc,bl
;вывод значения на индикаторы
        mov dx, 0D98H        ;указать адрес КА ППИ
        mov al, Na               ;запись в ах количества деталей
        out  dx, al                   ;вывод через КА младшего байта Na
        mov dx,0D99H         ;указать адрес КВ ППИ
         mov al, Nb
        out dx,al                   ;вывод через КВ старшего байта Na
        xor ax,ax                   ;обнуление
        mov dx,0D9AH         ;указать адрес КС ППИ
        mov al,Nc                 ;запись в ах количества деталей
        out dx,al                 ;вывод через КС младшего байта Nc    
        xor ax,ax             
;разрешение работы счётчика сч2 таймера
    mov DX, 0DA8H        ;указать адрес
    mov AL,01H      ;сформировать уровень логической единицы    
    out DX, AL          ;на входе Си1 таймера
           mov AH, 4CH      ;возврат в DOS
    int 21H
code_sg  ends
end begin
Программа прерывания для IRQ0
 
name prer0
    assume cs:segm, ds:segm, ss:segm
    segm segment
    org 100h
    begin:
;вывод сигнала текущего значения на ПСА
mov dx, 0D9DH       ;указать адрес ПСА   
    mov ax,Na                  ;записать в ах количество деталей
    out dx, al           ;записать в ПСА младший байт
           in cl ,dx                             ;вывести байт состояния 
           test cl,01H                         ;проверить уровень сигнала TxRDY
           jz out dx, ah                       ;если 1 то записать в ПСА старший байт
           in cl,dx                               ;вывести байт состояния
           test cl,01H                         ;проверить уровень сигнала TxRDY
           jz mov ax,Nb                      ;если 1 то записать в ах Nb
           out dx,ax                            ;записать в ПСА старший байт
    segm ends
end begin
     
Программа прерывания для IRQ1
 
name prer1
    assume cs:segm, ds:segm, ss:segm
    segm segment
    org 100h
          jmp start 
        stop: 
 mov DX, 0DA8H      ;указать адрес сч2
mov AL,03H      ;сформировать сигнал остановки    
out DX, AL  
start:
mov dx,0DA0H    
in al,dx                        ;чтение младшего байт Na из сч0
        mov cl,al                     
        mov dx,0DA0H
        in al,dx                       ;чтение старшего байта
        mov ch,al                   
        mov bx,9999H  
        sub bx,cx                   ;вычисление количества деталей
        mov Na,bl
        mov Nb, bh
         mov dx,0DA1H
        in al,dx                        ;чтение младшего байта Nb из Сч1
        mov cl,al                     
        mov bl,99H  
        sub bl,cl                   ;вычисление количества деталей
        mov Nc,bl
        
;вывод значения на индикаторы
        mov dx, 0D98H        ;указать адрес КА ППИ
        mov al, Na               ;записать в ах количество деталей
        out  dx, al                   ;вывод через КА младшего байта Na
        mov dx,0D99H         ;указать адрес КВ ППИ
        mov al, Nb
        out dx,al                   
        xor ax,ax                   
        mov dx,0D9AH         ;указать адрес КС ППИ
        mov al,Nc                 
        out dx,al                     
        xor ax,ax     
          mov al, Nb
        mov cl, 01H       ;записать в cl максимального значения       
        cmp cx,ax         ;сравнение с полученным значением                   
        jb   stop                      ;если больше 01, остановить счетчик 2
segm ends
end begin

mov   ah,25h
mov   al,<номер вектора в таблице>
mov   dx,<смещение на обработчик в сегменте кодов>
mov   ds,<сегментный адрес кодов>
int     21h  ;установили

;Следующая команда дает смещение до обработчика прерываний в сегменте кодов
mov   dx,OffSet ProcInterrupt 
push  ds
mov   ax,cs
mov   ds,ax
mov   ah,25h
mov   al,<номер вектора в таблице>
int   21h  ;установили 
pop   ds