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 |