Subversion Repositories pentevo

Rev

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

Rev 1056 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 16.01.2023 savelij
 2 
; LAST UPDATE: 10.02.2024 savelij
3 
 
 3 
 
4 
HDD_TIME_OUT    EQU 0x0000
 4 
HDD_TIME_OUT    EQU 0x8000
5 
 
 5 
 
6 
ENABLE_INIR     EQU 0                           ; чтение секторов винта INIR'ом
 6 
ENABLE_INIR     EQU 0                           ; чтение секторов винта INIR'ом
7 
 
 7 
 
8 
; входные параметры общие:
 8 
; входные параметры общие:
9 
; HL - адрес чтения/записи в память
 9 
; HL - адрес чтения/записи в память
Line 88... Line 88...
88 
                JR Z,.HDDINIT_5
 88 
                JR Z,.HDDINIT_5
89 
                AND A
 89 
                AND A
90 
                JR Z,.HDDINIT_1
 90 
                JR Z,.HDDINIT_1
91 
                LD A,0XFF
 91 
                LD A,0XFF
92 
.HDDINIT_1      CALL Z,.INIT_91
 92 
.HDDINIT_1      CALL Z,.INIT_91
93 
                LD D,A
 93 
;               LD D,A
- 
 
 94 
        LD H,A
- 
 
 95 
        LD L,0xFF
94 
.HDDINIT_5      PUSH DE
 96 
.HDDINIT_5
- 
 
 97 
;               PUSH DE
95 
                LD IX,_IDENTIFY_DEVICE << 8 + 1
 98 
;               LD IX,_IDENTIFY_DEVICE << 8 + 1
96 
                PUSH HL
 99 
;               PUSH HL
97 
                LD BC,0xF000
 100 
;               LD BC,0xF000
98 
                LD DE,0
 101 
;               LD DE,0
99 
                CALL .READ_ID_TEST
 102 
;               CALL .READ_ID_TEST
100 
                POP HL
 103 
;               POP HL
101 
                CP 7
 104 
;               CP 7
102 
                JR NZ,.HDDINIT_3
 105 
;               JR NZ,.HDDINIT_3
103 
                POP HL
 106 
;               POP HL
104 
                LD L,1
 107 
;               LD L,1
105 
                JR .HDDINIT_4
 108 
;               JR .HDDINIT_4
106 
 
 109 
 
107 
.HDDINIT_3      AND A
 110 
;.HDDINIT_3     AND A
108 
                JR Z,.HDDINIT_2
 111 
;               JR Z,.HDDINIT_2
109 
                LD A,0XFF
 112 
;               LD A,0XFF
110 
.HDDINIT_2      CALL Z,.INIT_91
 113 
;.HDDINIT_2     CALL Z,.INIT_91
111 
                POP HL
 114 
;               POP HL
112 
                LD L,A
 115 
;               LD L,A
113 
.HDDINIT_4      XOR A
 116 
.HDDINIT_4      XOR A
114 
                POP BC
 117 
                POP BC
115 
                POP DE
 118 
                POP DE
116 
                POP IX
 119 
                POP IX
117 
                RET
 120 
                RET