Rev 888 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 888 | Rev 1186 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ;LAST UPDATE: 05.09.2017 savelij |
2 | ; LAST UPDATE: 13.02.2025 savelij |
| 3 | 3 | ||
| 4 | TITLE "raznoe.a80" |
4 | TITLE "raznoe.a80" |
| 5 | 5 | ||
| 6 | IF EMU |
6 | IF EMU |
| 7 | CMP_VARSTRDOS |
7 | CMP_VARSTRDOS |
| Line 70... | Line 70... | ||
| 70 | 70 | ||
| 71 | EMU_LDIR_RHL CALL EMU_LDIR |
71 | EMU_LDIR_RHL CALL EMU_LDIR |
| 72 | POP HL |
72 | POP HL |
| 73 | RET |
73 | RET |
| 74 | 74 | ||
| 75 | PRINT_VIRTDRV LD H,VIRT_REAL_DRIVE |
75 | PRINT_VIRTDRV LD H,CMOS.VIRT_REAL_DRIVE |
| 76 | CALL READCMOS ;ЧТЕНИЕ НОМЕРА ВИРТУАЛЬНОГО ДИСКА |
76 | CALL READCMOS ;ЧТЕНИЕ НОМЕРА ВИРТУАЛЬНОГО ДИСКА |
| 77 | AND 3 ;НАМ НУЖНЫ ТОЛЬКО 2 МЛАДШИХ БИТА |
77 | AND 3 ;НАМ НУЖНЫ ТОЛЬКО 2 МЛАДШИХ БИТА |
| 78 | ADD A,"A" ;ПРЕОБРАЗОВАЛИ В ТЕКСТ |
78 | ADD A,"A" ;ПРЕОБРАЗОВАЛИ В ТЕКСТ |
| 79 | RST 0X10 ;НАПЕЧАТАЛИ БУКВУ |
79 | RST 0X10 ;НАПЕЧАТАЛИ БУКВУ |
| 80 | RET |
80 | RET |
| Line 92... | Line 92... | ||
| 92 | JR PRINT2ZERO |
92 | JR PRINT2ZERO |
| 93 | 93 | ||
| 94 | IF EMU |
94 | IF EMU |
| 95 | ADD_TXT_VERS LD HL,TEXT4VIRTDRV ;ТЕКСТ ПРО ВИРТУАЛЬНЫЙ ДИСКОВОД |
95 | ADD_TXT_VERS LD HL,TEXT4VIRTDRV ;ТЕКСТ ПРО ВИРТУАЛЬНЫЙ ДИСКОВОД |
| 96 | RST 0X18 ;ПЕЧАТЬ НА ЭКРАНЕ |
96 | RST 0X18 ;ПЕЧАТЬ НА ЭКРАНЕ |
| 97 | LD H,VIRT_REAL_DRIVE |
97 | LD H,CMOS.VIRT_REAL_DRIVE |
| 98 | CALL READCMOS ;ЧТЕНИЕ НОМЕРА ВИРТУАЛЬНОГО ДИСКА |
98 | CALL READCMOS ;ЧТЕНИЕ НОМЕРА ВИРТУАЛЬНОГО ДИСКА |
| 99 | AND 3 ;НАМ НУЖНЫ ТОЛЬКО 2 МЛАДШИХ БИТА |
99 | AND 3 ;НАМ НУЖНЫ ТОЛЬКО 2 МЛАДШИХ БИТА |
| 100 | ADD A,"A" ;ПРЕОБРАЗОВАЛИ В ТЕКСТ |
100 | ADD A,"A" ;ПРЕОБРАЗОВАЛИ В ТЕКСТ |
| 101 | RST 0X10 ;НАПЕЧАТАЛИ БУКВУ |
101 | RST 0X10 ;НАПЕЧАТАЛИ БУКВУ |
| 102 | RET |
102 | RET |