Rev 1120 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1120 | Rev 1186 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ; LAST UPDATE: 01.11.2023 savelij |
2 | ; LAST UPDATE: 06.02.2025 savelij |
| 3 | 3 | ||
| 4 | ; 26.04.2019 поправлено описание структуры |
4 | ; 26.04.2019 поправлено описание структуры |
| 5 | ; 07.07.2021 перед вызовом LD_FILE в реги BCDE загружается номер кластера откуда читать |
5 | ; 07.07.2021 перед вызовом LD_FILE в реги BCDE загружается номер кластера откуда читать |
| 6 | 6 | ||
| 7 | LSNAST STRUCT ;заголовок снапшотов |
7 | LSNAST STRUCT ;заголовок снапшотов |
| Line 75... | Line 75... | ||
| 75 | ld de,lsna_RI |
75 | ld de,lsna_RI |
| 76 | ld bc,27 |
76 | ld bc,27 |
| 77 | ldir ;копируем заголовок |
77 | ldir ;копируем заголовок |
| 78 | RUNSNA_LP_M 2,0 ;загрузим 2 страницу и ещё чуть |
78 | RUNSNA_LP_M 2,0 ;загрузим 2 страницу и ещё чуть |
| 79 | RUNSNA_LP_M 0,9 ;загрузим 0 страницу и ещё чуть |
79 | RUNSNA_LP_M 0,9 ;загрузим 0 страницу и ещё чуть |
| 80 | ld a,(FILE_SRC+30) |
80 | ld a,(FATVAR.FILE_SRC+30) |
| 81 | or a |
81 | or a |
| 82 | jr z,RUNSNA_ENDLOAD ;если файл больше 64к, то снап 128к !!!!нада проверить |
82 | jr z,RUNSNA_ENDLOAD ;если файл больше 64к, то снап 128к !!!!нада проверить |
| 83 | ld hl,0xc000 ;сохраняем заголовок |
83 | ld hl,0xc000 ;сохраняем заголовок |
| 84 | ld de,lsna_RPC |
84 | ld de,lsna_RPC |
| 85 | ld bc,4 |
85 | ld bc,4 |
| Line 161... | Line 161... | ||
| 161 | ld b,HIGH (WIN_A3) |
161 | ld b,HIGH (WIN_A3) |
| 162 | out (c),e |
162 | out (c),e |
| 163 | RUNSNA_L1P |
163 | RUNSNA_L1P |
| 164 | xor a |
164 | xor a |
| 165 | out (PEVO_CONF),a |
165 | out (PEVO_CONF),a |
| 166 | LD DE,(AFILCLS) |
166 | LD DE,(FATVAR.AFILCLS) |
| 167 | LD BC,(AFILCLS + 2) |
167 | LD BC,(FATVAR.AFILCLS + 2) |
| 168 | call LOAD_FILE |
168 | call LOAD_FILE |
| 169 | LD (AFILCLS),DE |
169 | LD (FATVAR.AFILCLS),DE |
| 170 | LD (AFILCLS + 2),BC |
170 | LD (FATVAR.AFILCLS + 2),BC |
| 171 | ld a,1 |
171 | ld a,1 |
| 172 | out (PEVO_CONF),a |
172 | out (PEVO_CONF),a |
| 173 | ret |
173 | ret |
| 174 | 174 | ||
| 175 | 175 | ||