Subversion Repositories pentevo

Rev

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

Rev 1186 Rev 1285
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 16.02.2025 savelij
 2 
; LAST UPDATE: 21.08.2025 savelij
3 
 
 3 
 
4 
        TITLE "mounter.a80 ROM_RST83"
 4 
        TITLE "mounter.a80 ROM_RST83"
5 
 
 5 
 
6 
MOUNTER         CALL P5_READ_BYTE
 6 
MOUNTER         CALL P5_READ_BYTE
7 
                LD A,(NEXTBYTERST8)
 7 
                LD A,(NEXTBYTERST8)
Line 581... Line 581...
581 
                LD L,D
 581 
                LD L,D
582 
                LD H,0
 582 
                LD H,0
583 
                ADD HL,HL
 583 
                ADD HL,HL
584 
                ADD HL,HL
 584 
                ADD HL,HL
585 
                ADD HL,HL
 585 
                ADD HL,HL
586 
                LD DE,BUF_VOLUMES;BUF_TABLVOL                   ; адрес таблицы найденных разделов
 586 
                LD DE,BUF_VOLUMES                       ; адрес таблицы найденных разделов
587 
                ADD HL,DE
 587 
                ADD HL,DE
588 
                LD A,(HL)
 588 
                LD A,(HL)
589 
                CP _SD_SDZ
 589 
                CP _SD_SDZ
590 
                LD HL,COMSDZ
 590 
                LD HL,COMSDZ
591 
                JR Z,.L6
 591 
                JR Z,.L6
Line 880... Line 880...
880 
                LD B,(HL)
 880 
                LD B,(HL)
881 
                DEC HL
 881 
                DEC HL
882 
                LD C,(HL)                               ; взяли длину файла в байтах
 882 
                LD C,(HL)                               ; взяли длину файла в байтах
883 
                PUSH BC                                 ; сохранили для дальнейшего использования
 883 
                PUSH BC                                 ; сохранили для дальнейшего использования
884 
                LD IYL,INTERNAL
 884 
                LD IYL,INTERNAL
885 
                LD HL,OFFSET_BUFSYM+CPU2
 885 
                LD HL,BUF_512                           ; буфер куда сектор грузим
886 
                PUSH HL
 886 
                PUSH HL
887 
                CALL READ_FILE                          ; прочитали 1 сектор из файла
 887 
                CALL READ_FILE                          ; прочитали 1 сектор из файла
888 
        EVOPORT WIN_P1,RAM_MOUNTER
 888 
        EVOPORT WIN_P1,RAM_MOUNTER
889 
                POP HL
 889 
                POP HL
890 
                POP BC
 890 
                POP BC
Line 1134... Line 1134...
1134 
REST_NAMELOAD   LD HL,NAME_RAMDISK-CPU2
 1134 
REST_NAMELOAD   LD HL,NAME_RAMDISK-CPU2
1135 
                LD DE,(RREG_L)
 1135 
                LD DE,(RREG_L)
1136 
                LD BC,0x20
 1136 
                LD BC,0x20
1137 
                JP LDIR_BYTES
 1137 
                JP LDIR_BYTES
1138 
 
 1138 
 
1139 
;STOR_NAMELOAD  LD HL,(RREG_L)
 - 
 
1140 
;               LD DE,NAME_RAMDISK-CPU2
 - 
 
1141 
;               LD BC,0x20
 - 
 
1142 
;               JP LDIR_BYTES
 - 
 
1143 
 
 - 
 
1144 
GET_MOUNTED
 1139 
GET_MOUNTED
1145 
        EVOPORT WIN_P1,RAM_MOUNTER
 1140 
        EVOPORT WIN_P1,RAM_MOUNTER
1146 
                LD HL,BUF_MOUNTDRIVES & 0x3FFF
 1141 
                LD HL,BUF_MOUNTDRIVES & 0x3FFF
1147 
                LD DE,(RREG_L)
 1142 
                LD DE,(RREG_L)
1148 
                LD BC,0x100
 1143 
                LD BC,0x100