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 
;==================ЧТЕНИЕ С NEMO HDD=======================
 4 
;==================ЧТЕНИЕ С NEMO HDD=======================
5 
RD_HDDN         PUSH BC
 5 
RD_HDD_NEMO     PUSH BC
6 
                PUSH DE
 6 
                PUSH DE
7 
                PUSH DE
 7 
                PUSH DE
8 
                EX AF,AF'
 8 
                EX AF,AF'
9 
                LD A,(MAS_SLA)
 9 
                LD A,(MAS_SLA)
10 
                OR B
 10 
                OR B
11 
                LD E,C
 11 
                LD E,C
12 
                LD BC,0XFF00+PN_1F6
 12 
                LD BC,0xFF00 + PN_1F6
13 
                OUT (C),A
 13 
                OUT (C),A
14 
                LD C,PN_1F5
 14 
                LD C,PN_1F5
15 
                OUT (C),E
 15 
                OUT (C),E
16 
                POP DE
 16 
                POP DE
17 
                LD C,PN_1F4
 17 
                LD C,PN_1F4
Line 21... Line 21...
21 
                LD C,PN_1F2
 21 
                LD C,PN_1F2
22 
                EX AF,AF'
 22 
                EX AF,AF'
23 
                OUT (C),A
 23 
                OUT (C),A
24 
                EX AF,AF'
 24 
                EX AF,AF'
25 
                LD C,PN_1F7
 25 
                LD C,PN_1F7
26 
                LD A,0X20
 26 
                LD A,0x20
27 
                OUT (C),A
 27 
                OUT (C),A
28 
                LD C,PN_1F7
 28 
                LD C,PN_1F7
29 
HDDRD1          IN A,(C)
 29 
HDDRD1          IN A,(C)
30 
                AND 0X88
 30 
                AND 0x88
31 
                CP 8
 31 
                CP 8
32 
                JR NZ,HDDRD1
 32 
                JR NZ,HDDRD1
33 
                EX AF,AF'
 33 
                EX AF,AF'
34 
HDDRD2          EX AF,AF'
 34 
HDDRD2          EX AF,AF'
35 
                LD A,0X40
 35 
                LD A,0x40
36 
                LD C,PN_1F0
 36 
                LD C,PN_1F0
37 
READSC1         IN E,(C)
 37 
READSC1         IN E,(C)
38 
                INC C
 38 
                INC C
39 
                IN D,(C)
 39 
                IN D,(C)
40 
                DEC C
 40 
                DEC C
Line 68... Line 68...
68 
                INC HL
 68 
                INC HL
69 
                DEC A
 69 
                DEC A
70 
                JR NZ,READSC1
 70 
                JR NZ,READSC1
71 
                LD C,PN_1F7
 71 
                LD C,PN_1F7
72 
HDDRD3          IN A,(C)
 72 
HDDRD3          IN A,(C)
73 
                AND 0X80
 73 
                AND 0x80
74 
                JR NZ,HDDRD3
 74 
                JR NZ,HDDRD3
75 
                EX AF,AF'
 75 
                EX AF,AF'
76 
                DEC A
 76 
                DEC A
77 
                JR NZ,HDDRD2
 77 
                JR NZ,HDDRD2
78 
                POP DE
 78 
                POP DE