Subversion Repositories pentevo

Rev

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

Rev 1027 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 09.10.2022 savelij
 2 
; LAST UPDATE: 13.02.2025 savelij
3 
 
 3 
 
4 
                TITLE "virtual.a80"
 4 
                TITLE "virtual.a80"
5 
 
 5 
 
6 
                DB 0xFF                         ; DCU
 6 
                DB 0xFF                         ; DCU
7 
 
 7 
 
Line 718... Line 718...
718 
                LD H,A
 718 
                LD H,A
719 
                JP .S9
 719 
                JP .S9
720 
 
 720 
 
721 
CP_TYPEDRIVE    PUSH BC
 721 
CP_TYPEDRIVE    PUSH BC
722 
                PUSH HL
 722 
                PUSH HL
723 
                LD H,VIRT_REAL_DRIVE
 723 
                LD H,CMOS.VIRT_REAL_DRIVE
724 
                CALL READCMOS
 724 
                CALL READCMOS
725 
                POP HL
 725 
                POP HL
726 
                AND 3
 726 
                AND 3
727 
                LD B,A
 727 
                LD B,A
728 
                LD A,(TRD_5CF6)
 728 
                LD A,(TRD_5CF6)
729 
                CP B
 729 
                CP B
730 
                POP BC
 730 
                POP BC
731 
                RET
 731 
                RET
732 
 
 732 
 
733 
; установка переменных текущего привода
 733 
; установка переменных текущего привода
734 
SET_DRIVENAME   LD H,VIRT_REAL_DRIVE
 734 
SET_DRIVENAME   LD H,CMOS.VIRT_REAL_DRIVE
735 
                CALL READCMOS
 735 
                CALL READCMOS
736 
                RRCA
 736 
                RRCA
737 
                RRCA
 737 
                RRCA
738 
                AND 3
 738 
                AND 3
739 
                LD (TRD_5D19),A
 739 
                LD (TRD_5D19),A