Subversion Repositories pentevo

Rev

Rev 780 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
680 savelij 1 
 
1120 savelij 2 
; LAST UPDATE: 01.11.2023 savelij
680 savelij 3 
 
4 
;==================  NEMO HDD=======================
1120 savelij 5 
RD_HDD_NEMO     PUSH BC
680 savelij 6 
                PUSH DE
7 
                PUSH DE
8 
                EX AF,AF'
9 
                LD A,(MAS_SLA)
10 
                OR B
11 
                LD E,C
1120 savelij 12 
                LD BC,0xFF00 + PN_1F6
680 savelij 13 
                OUT (C),A
780 savelij 14 
                LD C,PN_1F5
680 savelij 15 
                OUT (C),E
16 
                POP DE
780 savelij 17 
                LD C,PN_1F4
680 savelij 18 
                OUT (C),D
780 savelij 19 
                LD C,PN_1F3
680 savelij 20 
                OUT (C),E
780 savelij 21 
                LD C,PN_1F2
680 savelij 22 
                EX AF,AF'
23 
                OUT (C),A
24 
                EX AF,AF'
780 savelij 25 
                LD C,PN_1F7
1120 savelij 26 
                LD A,0x20
680 savelij 27 
                OUT (C),A
780 savelij 28 
                LD C,PN_1F7
680 savelij 29 
HDDRD1          IN A,(C)
1120 savelij 30 
                AND 0x88
680 savelij 31 
                CP 8
32 
                JR NZ,HDDRD1
33 
                EX AF,AF'
34 
HDDRD2          EX AF,AF'
1120 savelij 35 
                LD A,0x40
780 savelij 36 
                LD C,PN_1F0
680 savelij 37 
READSC1         IN E,(C)
38 
                INC C
39 
                IN D,(C)
40 
                DEC C
41 
                LD (HL),E
42 
                INC HL
43 
                LD (HL),D
44 
                INC HL
45 
                IN E,(C)
46 
                INC C
47 
                IN D,(C)
48 
                DEC C
49 
                LD (HL),E
50 
                INC HL
51 
                LD (HL),D
52 
                INC HL
53 
                IN E,(C)
54 
                INC C
55 
                IN D,(C)
56 
                DEC C
57 
                LD (HL),E
58 
                INC HL
59 
                LD (HL),D
60 
                INC HL
61 
                IN E,(C)
62 
                INC C
63 
                IN D,(C)
64 
                DEC C
65 
                LD (HL),E
66 
                INC HL
67 
                LD (HL),D
68 
                INC HL
69 
                DEC A
70 
                JR NZ,READSC1
780 savelij 71 
                LD C,PN_1F7
680 savelij 72 
HDDRD3          IN A,(C)
1120 savelij 73 
                AND 0x80
680 savelij 74 
                JR NZ,HDDRD3
75 
                EX AF,AF'
76 
                DEC A
77 
                JR NZ,HDDRD2
78 
                POP DE
79 
                POP BC
80 
                XOR A
81 
                RET
82 
;==================  NEMO HDD=======================