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: 12.02.2024 savelij |
2 | ; LAST UPDATE: 13.02.2025 savelij |
| 3 | 3 | ||
| 4 | TITLE "extend.a80" |
4 | TITLE "extend.a80" |
| 5 | 5 | ||
| 6 | ; инфа для создания 9 сектора нового диска |
6 | ; инфа для создания 9 сектора нового диска |
| 7 | DSKINFO DB 0 ; +0xE1 - номер первого свободного сектора |
7 | DSKINFO DB 0 ; +0xE1 - номер первого свободного сектора |
| Line 9... | Line 9... | ||
| 9 | DB 0x16 ; +0xE3 - тип дискеты |
9 | DB 0x16 ; +0xE3 - тип дискеты |
| 10 | DB 0 ; +0xE4 - количество файлов на дискете |
10 | DB 0 ; +0xE4 - количество файлов на дискете |
| 11 | SECFREE DW 2544 ; +0xE5 - количество свободных секторов |
11 | SECFREE DW 2544 ; +0xE5 - количество свободных секторов |
| 12 | DB 0x10 ; +0xE7 - идентификационный код TRDOS |
12 | DB 0x10 ; +0xE7 - идентификационный код TRDOS |
| 13 | DW 0 ; +0xE8 - 2 байта 0 |
13 | DW 0 ; +0xE8 - 2 байта 0 |
| 14 | DUPL 9," " ; +0xEA - 9 байт 0x20 |
14 | DB 9 DUP ' ' ; +0xEA - 9 байт 0x20 |
| 15 | DB 0 ; +0xF3 - 1 байт 0 |
15 | DB 0 ; +0xF3 - 1 байт 0 |
| 16 | DB 0 ; +0xF4 - количество удаленных файлов |
16 | DB 0 ; +0xF4 - количество удаленных файлов |
| 17 | DB "RAMDISKO" ; +0xF5 - имя дискеты |
17 | DB "RAMDISKO" ; +0xF5 - имя дискеты |
| 18 | DSK_END |
18 | DSK_END |
| 19 | 19 | ||
| Line 98... | Line 98... | ||
| 98 | AND 7CH |
98 | AND 7CH |
| 99 | OR B |
99 | OR B |
| 100 | LD (TRD_5D16),A ; копия системного регистра (порт 0xFF) |
100 | LD (TRD_5D16),A ; копия системного регистра (порт 0xFF) |
| 101 | LD HL,ERR_OK |
101 | LD HL,ERR_OK |
| 102 | PUSH HL |
102 | PUSH HL |
| 103 | SET_CURRVIRT LD H,VIRT_REAL_DRIVE |
103 | SET_CURRVIRT LD H,CMOS.VIRT_REAL_DRIVE |
| 104 | CALL READCMOS |
104 | CALL READCMOS |
| 105 | AND %00000011 |
105 | AND %00000011 |
| 106 | LD L,A |
106 | LD L,A |
| 107 | LD A,B |
107 | LD A,B |
| 108 | RLCA |
108 | RLCA |
| Line 171... | Line 171... | ||
| 171 | PRT_NUM_VIRT LD HL,TXT4VIRTDRV |
171 | PRT_NUM_VIRT LD HL,TXT4VIRTDRV |
| 172 | LD B,ETXT4VIRTDRV-TXT4VIRTDRV-1 |
172 | LD B,ETXT4VIRTDRV-TXT4VIRTDRV-1 |
| 173 | CALL PRT_B_HL_ |
173 | CALL PRT_B_HL_ |
| 174 | LD A," " |
174 | LD A," " |
| 175 | RST 0x10 |
175 | RST 0x10 |
| 176 | LD H,VIRT_REAL_DRIVE |
176 | LD H,CMOS.VIRT_REAL_DRIVE |
| 177 | CALL READCMOS |
177 | CALL READCMOS |
| 178 | AND 3 |
178 | AND 3 |
| 179 | ADD A,"A" |
179 | ADD A,"A" |
| 180 | RST 0x10 |
180 | RST 0x10 |
| 181 | LD A,0x0D |
181 | LD A,0x0D |
| 182 | RST 0x10 |
182 | RST 0x10 |
| 183 | RET |
183 | RET |
| 184 | 184 | ||
| 185 | DUPL 0x0B01 - $,0xFF |
185 | DB 0x0B01 - $ DUP 0xFF |
| 186 | 186 | ||
| 187 | ; прирудительное переключение турбо |
187 | ; прирудительное переключение турбо |
| 188 | SET_TURBO LD A,(DE) |
188 | SET_TURBO LD A,(DE) |
| 189 | CP 0x0D |
189 | CP 0x0D |
| 190 | JR Z,.L2 |
190 | JR Z,.L2 |