Rev 833 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 833 | Rev 835 | ||
|---|---|---|---|
| Line 6... | Line 6... | ||
| 6 | ;смена диска для старой команды TR-DOS |
6 | ;смена диска для старой команды TR-DOS |
| 7 | SET_CURRDRV LD B,A |
7 | SET_CURRDRV LD B,A |
| 8 | CALL SET_CURRVIRT |
8 | CALL SET_CURRVIRT |
| 9 | LD A,(NUM_ALT_PAGE) |
9 | LD A,(NUM_ALT_PAGE) |
| 10 | CP ROM_ADD_BAS48 | 0X80 |
10 | CP ROM_ADD_BAS48 | 0X80 |
| - | 11 | LD A,B |
|
| 11 | CALL NZ,COM_01 ;настройка на диск только для реальной дискеты |
12 | CALL NZ,COM_01 ;настройка на диск только для реальной дискеты |
| 12 | JP ERR_OK |
13 | JP ERR_OK |
| 13 | 14 | ||
| 14 | ;[0x18B7 УСТАНОВКА АДРЕСА ЗАПУСКА] |
15 | ;[0x18B7 УСТАНОВКА АДРЕСА ЗАПУСКА] |
| 15 | ADR_START_COM LD (TRD_5CC6),HL |
16 | ADR_START_COM LD (TRD_5CC6),HL |