Subversion Repositories pentevo

Rev

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

Rev 1120 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 10.02.2024 savelij
 2 
; LAST UPDATE: 06.02.2025 savelij
3 
 
 3 
 
4 
HDD_TIME_OUT    EQU 0x8000
 4 
HDD_TIME_OUT    EQU 0x8000
5 
 
 5 
 
6 
ENABLE_INIR     EQU 0                           ; чтение секторов винта INIR'ом
 6 
ENABLE_INIR     EQU 0                           ; чтение секторов винта INIR'ом
7 
 
 7 
 
Line 122... Line 122...
122 
.INIT_91        PUSH HL
 122 
.INIT_91        PUSH HL
123 
                PUSH BC
 123 
                PUSH BC
124 
                LD A,IYL
 124 
                LD A,IYL
125 
                AND A
 125 
                AND A
126 
                JR NZ,.INIT91_1
 126 
                JR NZ,.INIT91_1
127 
        EVOPORT WIN_P6,ZXSTD_CPU2
 127 
        EVOPORT WIN_P2,ZXSTD_CPU2
128 
.INIT91_1       LD L,49 * 2 + 1
 128 
.INIT91_1       LD L,49 * 2 + 1
129 
                LD A,(HL)
 129 
                LD A,(HL)
130 
                AND 2
 130 
                AND 2
131 
                JR Z,.INI_912
 131 
                JR Z,.INI_912
132 
                LD BC,0XFF00+PN_1F2
 132 
                LD BC,0XFF00+PN_1F2
Line 152... Line 152...
152 
                LD L,A
 152 
                LD L,A
153 
                LD A,IYL
 153 
                LD A,IYL
154 
                AND A
 154 
                AND A
155 
                LD A,L
 155 
                LD A,L
156 
                JR NZ,.INIT91_2
 156 
                JR NZ,.INIT91_2
157 
                LD BC,WIN_P6
 157 
                LD BC,WIN_P2
158 
                XOR A
 158 
                XOR A
159 
                OUT (C),A
 159 
                OUT (C),A
160 
.INIT91_2       POP BC
 160 
.INIT91_2       POP BC
161 
                POP HL
 161 
                POP HL
162 
                RET
 162 
                RET
163 
 
 163 
 
164 
.INI_912        LD BC,WIN_P6
 164 
.INI_912        LD BC,WIN_P2
165 
                XOR A
 165 
                XOR A
166 
                OUT (C),A
 166 
                OUT (C),A
167 
                LD A,0xFF
 167 
                LD A,0xFF
168 
                POP BC
 168 
                POP BC
169 
                POP HL
 169 
                POP HL
Line 412... Line 412...
412 
                INC HL
 412 
                INC HL
413 
        ENDM
 413 
        ENDM
414 
                DEC A
 414 
                DEC A
415 
                JR NZ,.READSC1
 415 
                JR NZ,.READSC1
416 
        ENDIF
 416 
        ENDIF
417 
                LD BC,WIN_P6
 417 
                LD BC,WIN_P2
418 
                XOR A
 418 
                XOR A
419 
                OUT (C),A
 419 
                OUT (C),A
420 
                RET
 420 
                RET
421 
 
 421 
 
422 
; save sector (512 bytes)
 422 
; save sector (512 bytes)
Line 461... Line 461...
461 
                LD HL,0
 461 
                LD HL,0
462 
                ADD HL,SP                       ; новый адрес буфера записи
 462 
                ADD HL,SP                       ; новый адрес буфера записи
463 
                EXX
 463 
                EXX
464 
                LD SP,HL                        ; возврат адреса стека
 464 
                LD SP,HL                        ; возврат адреса стека
465 
                EXX
 465 
                EXX
466 
                LD BC,WIN_P6
 466 
                LD BC,WIN_P2
467 
                XOR A
 467 
                XOR A
468 
                OUT (C),A
 468 
                OUT (C),A
469 
                RET
 469 
                RET