Subversion Repositories pentevo

Rev

Rev 1026 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1026 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 04.10.2022 savelij
 2 
; LAST UPDATE: 14.02.2025 savelij
3 
 
 3 
 
4 
                TITLE "call_trdos.a80"
 4 
                TITLE "call_trdos.a80"
5 
 
 5 
 
6 
 INIT_VAR 1
 6 
 INIT_VAR 1
7 
 SETVAR ERR_NO_TRDOS_DISK
 7 
 SETVAR ERR_NO_TRDOS_DISK
Line 11... Line 11...
11 
 
 11 
 
12 
 
 12 
 
13 
SEL_FILES_WIN   LD HL,ERS_FLAGS
 13 
SEL_FILES_WIN   LD HL,ERS_FLAGS
14 
                BIT B_VIEW_IMG,(HL)
 14 
                BIT B_VIEW_IMG,(HL)
15 
                JP Z,RESTART
 15 
                JP Z,RESTART
16 
                JP FILES_BROWSE
 16 
                JP FILE_BROWSER
17 
 
 17 
 
18 
VIEW_IMAGE      DI
 18 
VIEW_IMAGE      DI
19 
                LD BC,ADR_CAT_FAT
 19 
                LD BC,ADR_CAT_FAT
20 
                LD L,(IX+_TEK_PKT_L)
 20 
                LD L,(IX+_TEK_PKT_L)
21 
                LD H,(IX+_TEK_PKT_H)
 21 
                LD H,(IX+_TEK_PKT_H)
Line 308... Line 308...
308 
        RST8 _PRINT_MESSAGE
 308 
        RST8 _PRINT_MESSAGE
309 
                RET
 309 
                RET
310 
 
 310 
 
311 
NO_BAS          LD HL,ERS_FLAGS
 311 
NO_BAS          LD HL,ERS_FLAGS
312 
                BIT B_VIEW_IMG,(HL)
 312 
                BIT B_VIEW_IMG,(HL)
313 
                JP NZ,FILES_BROWSE
 313 
                JP NZ,FILE_BROWSER
314 
                LD IX,NOBASIC
 314 
                LD IX,NOBASIC
315 
        RST8 _WINW
 315 
        RST8 _WINW
316 
                JP _RULILKA
 316 
                JP _RULILKA
317 
 
 317 
 
318 
RUNFILE         DI
 318 
RUNFILE         DI
Line 384... Line 384...
384 
NEXTVIRT        LD HL,MAINLOP
 384 
NEXTVIRT        LD HL,MAINLOP
385 
                PUSH HL
 385 
                PUSH HL
386 
                LD A,(ERS_FLAGS)
 386 
                LD A,(ERS_FLAGS)
387 
                AND M_CLOCK_ON
 387 
                AND M_CLOCK_ON
388 
                RET Z
 388 
                RET Z
389 
                LD H,VIRT_REAL_DRIVE
 389 
                LD H,CMOS.VIRT_REAL_DRIVE
390 
                CALL READCMOS
 390 
                CALL READCMOS
391 
                AND 3                           ; A = сдвинутый номер виртуального дисковода
 391 
                AND 3                           ; A = сдвинутый номер виртуального дисковода
392 
                INC A
 392 
                INC A
393 
                CP 4
 393 
                CP 4
394 
                JR C,NEXTVIRT1
 394 
                JR C,NEXTVIRT1
Line 417... Line 417...
417 
                RLCA
 417 
                RLCA
418 
                LD D,A                          ; сдвинутый номер виртуального дисковода
 418 
                LD D,A                          ; сдвинутый номер виртуального дисковода
419 
                LD A,(ERS_FLAGS)
 419 
                LD A,(ERS_FLAGS)
420 
                AND M_CLOCK_ON
 420 
                AND M_CLOCK_ON
421 
                RET Z                           ; если кмос не найден, выходим
 421 
                RET Z                           ; если кмос не найден, выходим
422 
                LD H,VIRT_REAL_DRIVE
 422 
                LD H,CMOS.VIRT_REAL_DRIVE
423 
                CALL READCMOS
 423 
                CALL READCMOS
424 
                AND %11110011                   ; сбросили старый номер реального дисковода
 424 
                AND %11110011                   ; сбросили старый номер реального дисковода
425 
                OR D                            ; добавили новый номер реального дисковода
 425 
                OR D                            ; добавили новый номер реального дисковода
426 
                LD L,A
 426 
                LD L,A
427 
                CALL WRITECMOS                  ; сохраняем в кмосе
 427 
                CALL WRITECMOS                  ; сохраняем в кмосе