Subversion Repositories pentevo

Rev

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

Rev 680 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 01.12.2014 savelij
 2 
; LAST UPDATE: 01.11.2023 savelij
3 
 
 3 
 
4 
;==================ЧТЕНИЕ С PROFI ВИНТА=======================
 4 
;==================ЧТЕНИЕ С PROFI ВИНТА=======================
5 
RD_HDDP         PUSH BC
 5 
RD_HDD_PROFI    PUSH BC
6 
                PUSH DE
 6 
                PUSH DE
7 
                PUSH AF
 7 
                PUSH AF
8 
                PUSH BC
 8 
                PUSH BC
9 
                LD BC,0XDFFD
 9 
                LD BC,0xDFFD
10 
                LD A,0X20
 10 
                LD A,0x20
11 
                OUT (C),A
 11 
                OUT (C),A
12 
                POP BC
 12 
                POP BC
13 
                LD A,(MAS_SLA)
 13 
                LD A,(MAS_SLA)
14 
                OR B
 14 
                OR B
15 
                LD B,A
 15 
                LD B,A
16 
                POP AF
 16 
                POP AF
17 
                CALL SETHPREG
 17 
                CALL SETHPREG
18 
                EX AF,AF'
 18 
                EX AF,AF'
19 
                LD BC,PP_1F7W
 19 
                LD BC,PP_1F7W
20 
                LD A,0X20
 20 
                LD A,0x20
21 
                OUT (C),A
 21 
                OUT (C),A
22 
                LD BC,PP_1F7R
 22 
                LD BC,PP_1F7R
23 
HDDPRD1         IN A,(C)
 23 
HDDPRD1         IN A,(C)
24 
                AND 0X88
 24 
                AND 0x88
25 
                CP 8
 25 
                CP 8
26 
                JR NZ,HDDPRD1
 26 
                JR NZ,HDDPRD1
27 
                EX AF,AF'
 27 
                EX AF,AF'
28 
HDDPRD2         EX AF,AF'
 28 
HDDPRD2         EX AF,AF'
29 
                CALL READPSEC
 29 
                CALL READPSEC
30 
                LD BC,PP_1F7R
 30 
                LD BC,PP_1F7R
31 
HDDPRD3         IN A,(C)
 31 
HDDPRD3         IN A,(C)
32 
                AND 0X80
 32 
                AND 0x80
33 
                JR NZ,HDDPRD3
 33 
                JR NZ,HDDPRD3
34 
                EX AF,AF'
 34 
                EX AF,AF'
35 
                DEC A
 35 
                DEC A
36 
                JR NZ,HDDPRD2
 36 
                JR NZ,HDDPRD2
37 
                LD BC,0XDFFD
 37 
                LD BC,0xDFFD
38 
                XOR A
 38 
                XOR A
39 
                OUT (C),A
 39 
                OUT (C),A
40 
                POP DE
 40 
                POP DE
41 
                POP BC
 41 
                POP BC
42 
                LD A,B
 42 
                LD A,B
43 
                AND 0X0F
 43 
                AND 0x0F
44 
                LD B,A
 44 
                LD B,A
45 
                XOR A
 45 
                XOR A
46 
                RET
 46 
                RET
47 
 
 47 
 
48 
SETHPREG        PUSH DE
 48 
SETHPREG        PUSH DE
Line 51... Line 51...
51 
                LD BC,PP_1F6W
 51 
                LD BC,PP_1F6W
52 
                OUT (C),D
 52 
                OUT (C),D
53 
                EX AF,AF'
 53 
                EX AF,AF'
54 
                LD BC,PP_1F7R
 54 
                LD BC,PP_1F7R
55 
SETHPRE1        IN A,(C)
 55 
SETHPRE1        IN A,(C)
56 
                AND 0X80
 56 
                AND 0x80
57 
                JR NZ,SETHPRE1
 57 
                JR NZ,SETHPRE1
58 
                LD BC,PP_1F5W
 58 
                LD BC,PP_1F5W
59 
                OUT (C),E
 59 
                OUT (C),E
60 
                POP DE
 60 
                POP DE
61 
                LD BC,PP_1F4W
 61 
                LD BC,PP_1F4W
Line 65... Line 65...
65 
                LD BC,PP_1F2W
 65 
                LD BC,PP_1F2W
66 
                EX AF,AF'
 66 
                EX AF,AF'
67 
                OUT (C),A
 67 
                OUT (C),A
68 
                RET
 68 
                RET
69 
 
 69 
 
70 
READPSEC        LD A,0X40
 70 
READPSEC        LD A,0x40
71 
READPSC1        REPT 4
 71 
READPSC1        REPT 4
72 
                LD BC,PP_1F0R
 72 
                LD BC,PP_1F0R
73 
                IN E,(C)
 73 
                IN E,(C)
74 
                LD BC,PP_HIR
 74 
                LD BC,PP_HIR
75 
                IN D,(C)
 75 
                IN D,(C)