Subversion Repositories pentevo

Rev

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

Rev 1026 Rev 1065
Line 1... Line 1...
1
 
1
 
2
; LAST UPDATE: 06.10.2022 savelij
2
; LAST UPDATE: 15.02.2023 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 744... Line 744...
744
                LD D,(HL)
744
                LD D,(HL)
745
                INC H
745
                INC H
746
                LD C,(HL)
746
                LD C,(HL)
747
                INC H
747
                INC H
748
                LD B,(HL)                               ; BCDE=номер кластера
748
                LD B,(HL)                               ; BCDE=номер кластера
-
 
749
; TODO: проверка номера кластера на 0 и 0xFFFFFFFF и возврат ошибки чтения/записи по надобности
749
                LD A,(IX+_MOUNT_Cls_Step)               ; шаг кластеров
750
                LD A,(IX+_MOUNT_Cls_Step)               ; шаг кластеров
750
                DEC A
751
                DEC A
751
                JR Z,RDWRMOUNT3                         ; шаг кластеров =1
752
                JR Z,RDWRMOUNT3                         ; шаг кластеров =1
752
                LD B,A                                  ; маска смещения в таблице кластеров
753
                LD B,A                                  ; маска смещения в таблице кластеров
753
                EX AF,AF'
754
                EX AF,AF'