Subversion Repositories pentevo

Rev

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

Rev 1190 Rev 1204
Line 1... Line 1...
1
 
1
 
2
; LAST UPDATE: 27.02.2025 savelij
2
; LAST UPDATE: 23.03.2025 savelij
3
 
3
 
4
COM_FAT         EX AF,AF'
4
COM_FAT         EX AF,AF'
5
                CALL P5_READ_BYTE
5
                CALL P5_READ_BYTE
6
                LD A,(NEXTBYTERST8)
6
                LD A,(NEXTBYTERST8)
7
                PUSH IX
7
                PUSH IX
Line 1380... Line 1380...
1380
; IXL - L - количество секторов для загрузки
1380
; IXL - L - количество секторов для загрузки
1381
; IXH - H - размер кластера
1381
; IXH - H - размер кластера
1382
; IYL - E -
1382
; IYL - E -
1383
; IYH - D - смещение в кластере
1383
; IYH - D - смещение в кластере
1384
READ_FILE       EX AF,AF'
1384
READ_FILE       EX AF,AF'
-
 
1385
                LD A,0xFF
-
 
1386
                LD (FATVAR.NumSec2Buf),A
1385
                LD A,IYL
1387
                LD A,IYL
1386
                DEC A
1388
                DEC A
1387
                JR Z,LD_FILE00
1389
                JR Z,LD_FILE00
1388
                LD IYL,INT4EXT
1390
                LD IYL,INT4EXT
1389
                LD HL,LD_FILE6
1391
                LD HL,LD_FILE6