Subversion Repositories pentevo

Rev

Rev 775 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 775 Rev 780
Line 1... Line 1...
1
 
1
 
2
;LAST UPDATE: 07.02.2018 savelij
2
;LAST UPDATE: 12.04.2018 savelij
3
 
3
 
4
ORG_SYS         EQU 0XE800;DE00                         ;адрес работы *dos.sys
4
ORG_SYS         EQU 0XE800;DE00                         ;адрес работы *dos.sys
5
 
5
 
-
 
6
        IFNDEF JUMP_SIZE
6
SIZE_JUMP       EQU 3                                   ;размер команды JP adr
7
JUMP_SIZE       EQU 3
-
 
8
        ENDIF
7
 
9
 
8
;[общие переменные]
10
;[общие переменные]
9
 INIT_VAR 0xF000                                        ;адрес таблицы переходов DOS
11
 INIT_VAR 0xF000                                        ;адрес таблицы переходов DOS
10
 SETVAR BDOS_RAM_JUMPS,0
12
 SETVAR BDOS_RAM_JUMPS,0
11
 SETVAR _ALLOC_SEGMENT,SIZE_JUMP                        ;00 выделение 1 страницы памяти
13
 SETVAR _ALLOC_SEGMENT,JUMP_SIZE                        ;00 выделение 1 страницы памяти
12
 SETVAR _FREE_SEGMENT,SIZE_JUMP                         ;01 освобождение страницы памяти по номеру
14
 SETVAR _FREE_SEGMENT,JUMP_SIZE                         ;01 освобождение страницы памяти по номеру
13
 SETVAR _SET_WIN0,SIZE_JUMP                             ;02 включение страницы озу в 0 окно
15
 SETVAR _SET_WIN0,JUMP_SIZE                             ;02 включение страницы озу в 0 окно
14
 SETVAR _SET_WIN1,SIZE_JUMP                             ;03 включение страницы озу в 1 окно
16
 SETVAR _SET_WIN1,JUMP_SIZE                             ;03 включение страницы озу в 1 окно
15
 SETVAR _SET_WIN2,SIZE_JUMP                             ;04 включение страницы озу в 2 окно
17
 SETVAR _SET_WIN2,JUMP_SIZE                             ;04 включение страницы озу в 2 окно
16
 SETVAR _SET_VIDEOMODE,SIZE_JUMP                        ;05 включение видеорежима
18
 SETVAR _SET_VIDEOMODE,JUMP_SIZE                        ;05 включение видеорежима
17
 SETVAR _READ_BYTE,SIZE_JUMP                            ;06 чтение байта из страницы BDOS
19
 SETVAR _READ_BYTE,JUMP_SIZE                            ;06 чтение байта из страницы BDOS
18
 SETVAR _WRITE_BYTE,SIZE_JUMP                           ;07 запись байта в страницы BDOS
20
 SETVAR _WRITE_BYTE,JUMP_SIZE                           ;07 запись байта в страницы BDOS
19
 SETVAR _TRANSFER_PAGE0,SIZE_JUMP                       ;08 передача байт в/из страницы BDOS
21
 SETVAR _TRANSFER_PAGE0,JUMP_SIZE                       ;08 передача байт в/из страницы BDOS
20
 SETVAR _JMP_BDOS,SIZE_JUMP                             ;09 вызов BDOS в страницах BDOS
22
 SETVAR _JMP_BDOS,JUMP_SIZE                             ;09 вызов BDOS в страницах BDOS
21
 SETVAR _BDOS_RAM,SIZE_JUMP                             ;0A включение конфига BDOS
23
 SETVAR _BDOS_RAM,JUMP_SIZE                             ;0A включение конфига BDOS
22
 SETVAR _USER_RAM,SIZE_JUMP                             ;0B включение конфига пользователя
24
 SETVAR _USER_RAM,JUMP_SIZE                             ;0B включение конфига пользователя
23
 SETVAR _GET_VARS_KEYS,SIZE_JUMP                        ;0C получение адреса переменных клавиатуры
25
 SETVAR _GET_VARS_KEYS,JUMP_SIZE                        ;0C получение адреса переменных клавиатуры
24
 SETVAR _GET_ADR_PAGES,SIZE_JUMP                        ;0D получение адреса номеров страниц конфигурации
26
 SETVAR _GET_ADR_PAGES,JUMP_SIZE                        ;0D получение адреса номеров страниц конфигурации
25
 ADDVAR SIZE_JUMP                                       ;0E резерв
27
 ADDVAR JUMP_SIZE                                       ;0E резерв
26
 ADDVAR SIZE_JUMP                                       ;0F резерв
28
 ADDVAR JUMP_SIZE                                       ;0F резерв
27
 
29
 
28
 SETVAR END_JUMP_TABLE,0
30
 SETVAR END_JUMP_TABLE,0
29
 
31
 
30
;[номера функций вызова дискового драйвера]
32
;[номера функций вызова дискового драйвера]
31
 INIT_VAR
33
 INIT_VAR