Стэк asm 8051 AT89C52

MOV      SP,   #?STACK-1

?STACK  SEGMENT IDATA     ; Размещение сегмента стека ?STACK в главном модуле
        RSEG    ?STACK
        DS      20

InitDevice: MOV   TH0, #0      ; загрузка в старший счетный регистр таймера-счетчика 0 нулевого значения 
            MOV   TL0, #0      ; загрузка в младший счетный регистр таймера-счетчика 0 нулевого значения 
            ANL   TMOD, #0F0H  ; установка таймера-счетчика 0 в режим таймера и блокировка внешнего вывода
            ORL   TMOD, #09    ; установка таймера-счетчика 0 в режим работы 16-разрядного таймера и
                               ;  разрешение управление таймером-счетчиком от внешнего вывода INT0
            SETB  TR0          ; установка бита управления таймера-счетчика 0 в регистре TCON 
            SETB  PX0          ; установка бита уровня внешнего прерывания INT0 таймера счетчика 0 в регистре IP
            SETB  EX0          ; установка бита разрешения внешнего прерывания таймера-счетчика 0 в регистре IE 
            SETB  EA           ; установка бита разрешения индивидуально разрешенных прерываний в регистре IE
            RET                ; выход из подпрограммы и возвращение в основную программу
            END

            CSEG AT 17h
            LJMP  ISR_INT0
 
; Определение переменных
;  в сегменте памяти данных
?DT?GetPulseCode  SEGMENT DATA
               RSEG ?DT?GetPulseCode   
PulseWidth:    DS 2           ; Длительность импульса (два байта)
 
; в битоадресуемом сегменте памяти данных
?BT?GetPulseCode  SEGMENT BIT
               RSEG ?BT?GetPulseCode   
FgOV:          DBIT 1         ; Флаг переполнения (1 бит)
 
?PR?GetPulseCode SEGMENT CODE ; PR - Program Part
              RSEG ?PR?GetPulseCode 
 
ISR_INT0:   PUSH  PSW                ; запоминаем значение регистра PSW в стек
            MOV   PulseWidth, TH0    ; Считывание кода длительности из счетных 
            MOV   PulseWidth+1, TL0  ;  регистров таймера-счетчика 0
            MOV   TH0, #0            ; обнуление старшего счетного регистра таймера-счетчика 0
            MOV   TL0, #0            ; обнуление старшего счетного регистра таймера-счетчика 0
            MOV   C, TF0             ; флаг переноса принимает значение флага переполнения таймера-счетчика 0
            MOV   FgOV, C            ; битовая переменная FgOV принимает значение флага переноса
            CLR   TF0                ; очистка флага переполнения таймера-счетчика 0
            POP   PSW                ; восстановление значения регистра PSW из стека
            RETI                     ; выход из подпрограммыобработчика прерывания и возвращение в основную программу

CSEG AT 0h ; Устанавливаем начало сегмента кода в 0h
 
; Программа формирует 15 импульсов длиной 45 мс с задержкой 25 мс, путём подачи на P1.0 0 и 1.
; Программа справедлива при частоте процессора 12 MHz. При частоте 24 MHz необходимо умножать полученные миллисекунды на 2.
; Реализация отсчёта времени основана на оступе от верхней границы таймера и ожидания флага переполнения
 
 
 
MOV A, #1Eh ; Помещаем в аккумулятор 30d для отсчёта 15 положительных импульсов
CLR P1.0 ; Сбрасываем 0 бит порта P1
MOV TMOD, #00010000b ; Настраиваем ТС 1 в режим 1
SJMP MAIN ; Прыгаем на метку MAIN
 
DELAY:
CLR P1.0 ; Сбрасываем 0 бит порта P1 в 0
MOV TL1, #58h
MOV TH1, #9Eh; 25 мс до флага прерывания. Всего тактов таймера 65536. - 25000 = 40536d = 9E58h.
;При условии что частота тактового генератора Fosc = 12 МГц
SETB TR1 ; Запускаем таймер
SJMP WAIT ; Уходим в задержку
 
MAIN:
JZ OUT ; Завершаем программу в случае, если A равно 0
DEC A ; Уменьшаем A на 1
JB P1.0, DELAY ; Если бит порта находится в 1, то уходим на задержку в 25 мс
MOV TL1, #38h
MOV TH1, #50h ; 45 мс до флага прерывания. Всего тактов таймера 65536. - 45000 = 20536d = 5038h.
;При условии что частота тактового генератора Fosc = 12 МГц
SETB P1.0 ; Устанавливаем 0 бит порта P1 в 1
SETB TR1 ; Запускаем таймер
 
WAIT:
JNB TF1, WAIT ; Осуществляем задержку до переполнения таймера
CLR TR1 ; Останавливаем таймер
CLR TF1 ; Сбрасываем флаг переполнения
SJMP MAIN ; Переходим в MAIN
 
OUT:
CLR P1.0 ; Сбрасываем бит порта
CLR TR1 ; Выключаем таймер
CLR TF1 ; Сбрасываем флаг переполнения
SJMP $ ; Уходим в бесконечный цикл
END

JB P1.0, DELAY ; Если бит порта находится в 1, то уходим на задержку в 25 мс