Subversion Repositories pentevo

Rev

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

Rev 780 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 12.04.2018 savelij
 2 
; LAST UPDATE: 01.11.2023 savelij
3 
 
 3 
 
4 
;==================ЧТЕНИЕ С DIVIDE ВИНТА======================
 4 
;==================ЧТЕНИЕ С DIVIDE ВИНТА======================
5 
RD_HDDD         PUSH BC
 5 
RD_HDD_DIVIDE   PUSH BC
6 
                PUSH DE
 6 
                PUSH DE
7 
                CALL SETVREG
 7 
                CALL SETVREG
8 
                EX AF,AF'
 8 
                EX AF,AF'
9 
                LD C,PV_1F7
 9 
                LD C,PV_1F7
10 
                LD A,0X20
 10 
                LD A,0x20
11 
                OUT (C),A
 11 
                OUT (C),A
12 
                LD C,PV_1F7
 12 
                LD C,PV_1F7
13 
HDVRD1          IN A,(C)
 13 
HDVRD1          IN A,(C)
14 
                AND 0X88
 14 
                AND 0x88
15 
                CP 8
 15 
                CP 8
16 
                JR NZ,HDVRD1
 16 
                JR NZ,HDVRD1
17 
                EX AF,AF'
 17 
                EX AF,AF'
18 
HDVRD2          EX AF,AF'
 18 
HDVRD2          EX AF,AF'
19 
                CALL READVSEC
 19 
                CALL READVSEC
20 
                LD C,PV_1F7
 20 
                LD C,PV_1F7
21 
HDVRD3          IN A,(C)
 21 
HDVRD3          IN A,(C)
22 
                AND 0X80
 22 
                AND 0x80
23 
                JR NZ,HDVRD3
 23 
                JR NZ,HDVRD3
24 
                EX AF,AF'
 24 
                EX AF,AF'
25 
                DEC A
 25 
                DEC A
26 
                JR NZ,HDVRD2
 26 
                JR NZ,HDVRD2
27 
EXITVHD         POP DE
 27 
EXITVHD         POP DE
28 
                POP BC
 28 
                POP BC
29 
                LD A,B
 29 
                LD A,B
30 
                AND 0X0F
 30 
                AND 0x0F
31 
                LD B,A
 31 
                LD B,A
32 
                XOR A
 32 
                XOR A
33 
                RET
 33 
                RET
34 
 
 34 
 
35 
SETVREG         PUSH DE
 35 
SETVREG         PUSH DE
36 
                LD D,B
 36 
                LD D,B
37 
                LD E,C
 37 
                LD E,C
38 
                LD BC,0XFF00+PV_1F6
 38 
                LD BC,0xFF00+PV_1F6
39 
                OUT (C),D
 39 
                OUT (C),D
40 
                EX AF,AF'
 40 
                EX AF,AF'
41 
                LD C,PV_1F7
 41 
                LD C,PV_1F7
42 
SETVRE1         IN A,(C)
 42 
SETVRE1         IN A,(C)
43 
                AND 0X80
 43 
                AND 0x80
44 
                JR NZ,SETVRE1
 44 
                JR NZ,SETVRE1
45 
                LD C,PV_1F5
 45 
                LD C,PV_1F5
46 
                OUT (C),E
 46 
                OUT (C),E
47 
                POP DE
 47 
                POP DE
48 
                LD C,PV_1F4
 48 
                LD C,PV_1F4
Line 53... Line 53...
53 
                EX AF,AF'
 53 
                EX AF,AF'
54 
                OUT (C),A
 54 
                OUT (C),A
55 
                RET
 55 
                RET
56 
 
 56 
 
57 
;READ SECTOR (512 BYTES)
 57 
;READ SECTOR (512 BYTES)
58 
READVSEC        LD A,0X40
 58 
READVSEC        LD A,0x40
59 
                LD C,PV_1F0
 59 
                LD C,PV_1F0
60 
READVSC1        REPT 8
 60 
READVSC1        REPT 8
61 
                INI
 61 
                INI
62 
                INC B
 62 
                INC B
63 
                ENDM
 63 
                ENDM