mirror of
https://github.com/romychs/DemoN.git
synced 2025-04-09 22:06:42 +03:00
124 lines
5.5 KiB
NASM
124 lines
5.5 KiB
NASM
;[]=========================================================================[]
|
||
;[] Данные монитора-отладчика DemoN []
|
||
;[] v0.01 - последние изменения 10.10.2004 []
|
||
;[] v0.02 - последние изменения 11.03.2005 []
|
||
;[] v0.03 - последние изменения 05.02.2006 []
|
||
;[] v0.10 - последние изменения 10.09.2006 []
|
||
;[]=========================================================================[]
|
||
|
||
SymbolNoPrint
|
||
DB 0xB0;"." ; символы < пробела
|
||
ClockOn DB On ; признак вывода часов
|
||
DemonScreen DB 0 ; номер экрана отладчика
|
||
OSScreen DB 0 ; Номер экрана ОСи
|
||
OSGrafMode DB 0 ; Графический режим оси
|
||
BufPage DB 255 ; Номер страницы с оконным буфером
|
||
|
||
Hello DB "\r\n"
|
||
; DB "Версия откомпилирована специально для Василия Иванова!",13,10,10
|
||
IFDEF DSS_1_70
|
||
DB "Demon for DSS 1.70+ v"
|
||
ELSE
|
||
DB "DemoN v"
|
||
ENDIF
|
||
INCBIN "VERSION/major.bin"
|
||
DB "."
|
||
INCBIN "VERSION/minor.bin"
|
||
DB " build "
|
||
INCBIN "VERSION/build.bin"
|
||
DB " (alpha) <Created by Alpha Studio>\r\n"
|
||
DB "Last edition "
|
||
INCBIN "VERSION/date.bin"
|
||
DB " (BLR "
|
||
INCBIN "VERSION/time.bin"
|
||
DB ")\r\n"
|
||
DB "FidoNet: Igor Zhadinets 2:454/5.18; "
|
||
DB "e-mail: igor_ast@tut.by",13,10,10,0
|
||
Str:
|
||
.Load DB "Load file ...\r\n",0
|
||
.DA DB "\r\n",0
|
||
|
||
PauseFlash EQU 16 ; частота мигания прогр.курсора
|
||
|
||
Color:
|
||
.Screen DB 00000111b ; основной цвет экрана
|
||
.Border DB 00000011b ; цвет рамки
|
||
.TextStrReg DB 00000010b ; цвет регистровых пар
|
||
.TextStrWin DB 00000101b ; цвет номеров окон
|
||
._SP DB 00000110b ; подсветка вершины стека
|
||
._PC DB 01110001b ; подсветка выполняемой стр.
|
||
.RezArea DB 00001110b ; подсветка резидента
|
||
.TextStrLogo
|
||
DB 00000100b ; цвет лого программы
|
||
.Cursor DB 00011101b ; цвет курсора-указателя
|
||
.InLine DB 00111111b ; цвет строки ввода
|
||
.InLineEd DB 00110001b ; цвет строки ввода при ред.
|
||
|
||
StackDebug DS 2 ; адрес стека отладчика
|
||
BankDebug DS 1 ; номер банки отладчика
|
||
BankOS DS 1 ; номер банки с OS
|
||
RezAdr DW 0x7000 ; адрес посадки резидента
|
||
StackDown DS 1 ; глубина стека
|
||
StackDump DW 0x800A ; начало дампа стека
|
||
|
||
Reg: ; значение регистровых пар
|
||
._IX DW 0
|
||
._IY DW 0
|
||
._HL DW 0
|
||
._DE DW 0
|
||
._BC DW 0
|
||
._AF DW 0
|
||
._HL_ DW 0
|
||
._DE_ DW 0
|
||
._BC_ DW 0
|
||
._AF_ DW 0
|
||
._IR DW 0
|
||
._SP DW 0x7FFE
|
||
._PC DW 0
|
||
|
||
WinPage: DB 0xFF,0xFF,0xFF,0xFF ; адреса подключенных страниц
|
||
|
||
Dump1 DW 0x4000 ; адрес начала динамического дампа
|
||
Dump: ; адреса начала строк дампа
|
||
DW KEYB.InputLine.Buffer;0x4100
|
||
DW KEYB.InputLine.Buffer+16;0x8100
|
||
DW KEYB.PutCode.Buffer;0xC100
|
||
DW 0x5280
|
||
DW 0x9280
|
||
DW 0xD280
|
||
DW 0x6000
|
||
DW 0xA000
|
||
|
||
ListAddr DS 40 ; буфер хранения адресов листинга
|
||
ListFormat DB -1 ; форматный вывод листинга
|
||
; -1 - да; 0 - нет
|
||
|
||
DecHex DB 0 ; 0-HEX FF-DEC система
|
||
|
||
;======== Констатнты ======
|
||
On EQU 0xFF
|
||
Off EQU 0
|
||
Ins EQU 0
|
||
Ovr EQU 0xFF
|
||
SysSymb EQU 0x1B ; системный знакогенератор
|
||
|
||
;печать через п/п биоса
|
||
IFDEF D_PRINTCH_BIOS
|
||
Demon.Bios_Win
|
||
DB 0 ; идентификатор окна биоса
|
||
MainWin DB 80,32,0,0,00110000b,0,0,0
|
||
DS 26,0
|
||
ENDIF
|
||
|
||
;--------------------------------------
|
||
;Диалоговое окно для пп выхода
|
||
;--------------------------------------
|
||
ExitDlg DB 6,22,13,32,6,#40
|
||
DB "Confirmation",0
|
||
DB " You really want to quit?"
|
||
DB 0x16,32,17,"OK Cancel",0
|
||
DB 2
|
||
DB 29,17,8,2 ;Ok
|
||
DW 0,0
|
||
DB 39,17,8,2 ;Cancel
|
||
DW 0,KEYB.Keyb.NoExit |