Subversion Repositories pentevo

Rev

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

Rev 1007 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 15.06.2022 savelij
 2 
; LAST UPDATE: 01.11.2023 savelij
3 
 
 3 
 
4 
;==================ЧТЕНИЕ СО СМУК ВИНТА=======================
 4 
;==================ЧТЕНИЕ СО СМУК ВИНТА=======================
5 
RD_HDDS         PUSH BC
 5 
RD_HDD_SMUC     PUSH BC
6 
                PUSH DE
 6 
                PUSH DE
7 
                CALL SETSREG
 7 
                CALL SETSREG
8 
                EX AF,AF'
 8 
                EX AF,AF'
9 
                LD B,HIGH (PS_1F7)
 9 
                LD B,HIGH (PS_1F7)
10 
                LD A,0X20
 10 
                LD A,0x20
11 
                CALL SOUTPRT
 11 
                CALL SOUTPRT
12 
HDSRDM2         CALL SINPRT
 12 
HDSRDM2         CALL SINPRT
13 
                AND 0X88
 13 
                AND 0x88
14 
                CP 8
 14 
                CP 8
15 
                JR NZ,HDSRDM2
 15 
                JR NZ,HDSRDM2
16 
                EX AF,AF'
 16 
                EX AF,AF'
17 
HDSRDM1         PUSH AF
 17 
HDSRDM1         PUSH AF
18 
                LD DE,PS_PORT_RW
 18 
                LD DE,PS_PORT_RW
19 
                LD A,0X40
 19 
                LD A,0x40
20 
RDCSSC1         EX AF,AF'
 20 
RDCSSC1         EX AF,AF'
21 
                LD B,D
 21 
                LD B,D
22 
                CALL SINPRT
 22 
                CALL SINPRT
23 
                LD (HL),A
 23 
                LD (HL),A
24 
                INC HL
 24 
                INC HL
Line 53... Line 53...
53 
                EX AF,AF'
 53 
                EX AF,AF'
54 
                DEC A
 54 
                DEC A
55 
                JR NZ,RDCSSC1
 55 
                JR NZ,RDCSSC1
56 
                LD B,HIGH (PS_1F7)
 56 
                LD B,HIGH (PS_1F7)
57 
HDSRDM3         CALL SINPRT
 57 
HDSRDM3         CALL SINPRT
58 
                AND 0X80
 58 
                AND 0x80
59 
                JR NZ,HDSRDM3
 59 
                JR NZ,HDSRDM3
60 
                POP AF
 60 
                POP AF
61 
                DEC A
 61 
                DEC A
62 
                JR NZ,HDSRDM1
 62 
                JR NZ,HDSRDM1
63 
                POP DE
 63 
                POP DE
Line 84... Line 84...
84 
                CALL SOUTPRT
 84 
                CALL SOUTPRT
85 
                LD B,HIGH (PS_1F2)
 85 
                LD B,HIGH (PS_1F2)
86 
                EX AF,AF'
 86 
                EX AF,AF'
87 
 
 87 
 
88 
SOUTPRT         PUSH HL
 88 
SOUTPRT         PUSH HL
89 
                LD HL,0X3FF0
 89 
                LD HL,0x3FF0
90 
                EX (SP),HL
 90 
                EX (SP),HL
91 
                JP 0X3D2F
 91 
                JP 0x3D2F
92 
 
 92 
 
93 
SINPRT          PUSH HL
 93 
SINPRT          PUSH HL
94 
                LD HL,0X3FF3
 94 
                LD HL,0x3FF3
95 
                EX (SP),HL
 95 
                EX (SP),HL
96 
                JP 0X3D2F
 96 
                JP 0x3D2F
97 
;==================ЧТЕНИЕ СО СМУК ВИНТА=======================
 97 
;==================ЧТЕНИЕ СО СМУК ВИНТА=======================