* Проверка указателя стека на переполнение. При обнаружении переполнения
* выполняется переход к обработчику фатальных ошибок
*
Метка Операция Операнд Комментарий
STACK EQU $1000 ; Начальный адрес стека (пустой)
SIZE EQU $100 ; Максимальный размер стека
*
PSHH ; Сохранение H:X (считается, что стек OK!)
PSHX
TSX ; Перемещение SP+1 в H:X
CPHX #STACK-SIZE ; Сравнение с наименьшим адресом стека
BLO FATAL ; Выход из подпрограммы, если меньше,
; в ином случае продолжать выполнение
; основного кода
PULX ; Восстановление H:X
PULH
*
* |
* |
* |
*
FATAL EQU * ; Обработчик фатальной ошибки
*
|
