Subversion Repositories pentevo

Rev

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

Rev 1026 Rev 1186
Line 1... Line 1...
1
 
1
 
2
; LAST UPDATE: 17.09.2022 savelij
2
; LAST UPDATE: 14.02.2025 savelij
3
 
3
 
4
; номера функций RST 8
4
; номера функций RST 8
5
 INIT_VAR 0X40
5
 INIT_VAR 0x40
6
 SETVAR _AY_PRN_INIT
6
 SETVAR _AY_PRN_INIT
7
 SETVAR _AY_PRN_A_
7
 SETVAR _AY_PRN_A_
8
 SETVAR _AY_PRN_TOKEN
8
 SETVAR _AY_PRN_TOKEN
9
 SETVAR _AY_PRN_SCR
9
 SETVAR _AY_PRN_SCR
10
 SETVAR _TAPE_INIT
10
 SETVAR _TAPE_INIT
Line 15... Line 15...
15
 SETVAR _SCROLL_UP
15
 SETVAR _SCROLL_UP
16
 SETVAR _SCROLL_DOWN
16
 SETVAR _SCROLL_DOWN
17
 SETVAR _SET_MODE
17
 SETVAR _SET_MODE
18
 SETVAR _MATH
18
 SETVAR _MATH
19
 SETVAR _VERSION
19
 SETVAR _VERSION
20
 
-
 
-
 
20
 SETVAR _FILE_BROWSER
-
 
21
 SETVAR _NMI_FB_BLOCK
21
 INIT_VAR 0X4F
22
 INIT_VAR 0x4F
22
 SETVAR _BIOS
23
 SETVAR _BIOS
23
 SETVAR _COM_DEV
24
 SETVAR _COM_DEV
24
 SETVAR _COM_FAT
25
 SETVAR _COM_FAT
25
 SETVAR _SORT_FINDFILES
26
 SETVAR _SORT_FINDFILES
26
 SETVAR _MOUNTER
27
 SETVAR _MOUNTER
Line 120... Line 121...
120
 SETVAR _POSTF04                                ; перемотать на "B" файлов вперед
121
 SETVAR _POSTF04                                ; перемотать на "B" файлов вперед
121
 SETVAR _POSTF05                                ; подсчет количества "легальных" записей
122
 SETVAR _POSTF05                                ; подсчет количества "легальных" записей
122
 SETVAR _POSTF06                                ; установить номер "легальной" записи из "BC"
123
 SETVAR _POSTF06                                ; установить номер "легальной" записи из "BC"
123
 SETVAR _POSTF07                                ; вернуть в "BC" текущий номер "легальной" записи
124
 SETVAR _POSTF07                                ; вернуть в "BC" текущий номер "легальной" записи
124
 
125
 
-
 
126
; подфункции FILE_BROWSER
-
 
127
FB
-
 
128
 _INIT_VAR
-
 
129
 _SETVAR .SELECT_FILE                           ; вывод окна для выбора файла
-
 
130
 _SETVAR .GET_HABDLE                            ; получить описатель выбранного файла
-
 
131
 _SETVAR .GET_FILETYPE                          ; получить тип выбранного файла
-
 
132
 _SETVAR .SET_FILE_EXT                          ; установка расширений файлов
-
 
133
 
125
; номера поддерживаемых расширений для RST 8
134
; номера поддерживаемых расширений для RST 8
126
; "TRDSCLFDITAPSPG$C FNTBMPROM"         ;RST 8
135
; "TRDSCLFDITAPSPG$C FNTBMPROM"         ;RST 8
127
; "TRDSCLFDITAPSPG$C BMPSNA"            ;MAINMENU
136
; "TRDSCLFDITAPSPG$C BMPSNA"            ;MAINMENU
128
 INIT_VAR 1
137
 INIT_VAR 1
129
 SETVAR _TRD            ;TRD
138
 SETVAR _TRD            ;TRD
Line 168... Line 177...
168
 SETVAR _ADR_MOUSE_L
177
 SETVAR _ADR_MOUSE_L
169
 SETVAR _ADR_MOUSE_H
178
 SETVAR _ADR_MOUSE_H
170
 SETVAR _ADR_HOTKEY_L
179
 SETVAR _ADR_HOTKEY_L
171
 SETVAR _ADR_HOTKEY_H
180
 SETVAR _ADR_HOTKEY_H
172
 
181
 
-
 
182
 BITMASK DOWN_HEADER,           7               ; 1-есть нижний заголовок
-
 
183
 BITMASK WINFRAME,              6               ; 0-рамка окна есть
-
 
184
 BITMASK UPHEADER,              5               ; 1-есть верхний заголовок
-
 
185
 BITMASK TEXT,                  4               ; 0-есть текст для окна
-
 
186
 BITMASK MENU_FILE,             3               ; 1-файлы, 0-меню
-
 
187
; в байте текущего номера пункта _NUM_PKT
-
 
188
;   BIT 7-0 => 8-9 текущий пункт,
-
 
189
;         1 => 8-9 адрес хранения
-
 
190
;       6-0 => A-B количество пунктов
-
 
191
;         1 => A-B адрес хранения
-
 
192
 BITMASK ADR_PUNKT,             7
-
 
193
 BITMASK ADR_NUMS_PUNKT,        6
-
 
194
 
173
JUMP_SIZE       EQU 3
195
JUMP_SIZE       EQU 3
174
 
196
 
175
 INIT_VAR 0X100
197
 INIT_VAR 0x100
176
 SETVAR _NEMO_RD_ID,JUMP_SIZE                   ; чтение сектора идентификации HDD с определением его наличия
198
 SETVAR _NEMO_RD_ID,JUMP_SIZE                   ; чтение сектора идентификации HDD с определением его наличия
177
 SETVAR _NEMO_RD_SEC,JUMP_SIZE                  ; чтение секторов HDD
199
 SETVAR _NEMO_RD_SEC,JUMP_SIZE                  ; чтение секторов HDD
178
 SETVAR _NEMO_WR_SEC,JUMP_SIZE                  ; запись секторов HDD
200
 SETVAR _NEMO_WR_SEC,JUMP_SIZE                  ; запись секторов HDD
179
 
201
 
180
 SETVAR _ZCSD_RD_ID,JUMP_SIZE                   ; чтение сектора идентификации набортной SD карты
202
 SETVAR _ZCSD_RD_ID,JUMP_SIZE                   ; чтение сектора идентификации набортной SD карты