Subversion Repositories pentevo

Rev

Rev 1046 | 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 
;================��������� � ZC SD ��������===================
1120 savelij 5 
READ_ZSD        PUSH AF
680 savelij 6 
                LD A,1
7 
                OUT (P_CONF),A
8 
                POP AF
9 
                EX AF,AF'
10 
                LD A,CMD_18
11 
                CALL SECM200
12 
                EX AF,AF'
13 
RDMULT1         EX AF,AF'
14 
RDMULT2         CALL IN_OOUT
1120 savelij 15 
                CP 0xFE
680 savelij 16 
                JR NZ,RDMULT2
17 
                PUSH BC
18 
                LD BC,P_DATA
19 
                INIR
20 
                NOP
21 
                INIR
22 
                NOP
23 
                IN A,(C)
24 
                NOP
25 
                IN A,(C)
26 
                POP BC
27 
                EX AF,AF'
28 
                DEC A
29 
                JR NZ,RDMULT1
30 
                LD A,CMD_12
31 
                CALL OUT_COM
32 
RDMULT3         CALL IN_OOUT
33 
                INC A
34 
                JR NZ,RDMULT3
35 
                PUSH AF
36 
                LD A,3
37 
                OUT (P_CONF),A
38 
                XOR A
39 
                OUT (P_DATA),A
40 
                POP AF
41 
                RET
42 
 
43 
SECM200         PUSH HL
44 
                PUSH DE
45 
                PUSH BC
46 
                PUSH AF
47 
                PUSH BC
48 
                LD A,CMD_58
49 
                LD BC,P_DATA
50 
                CALL OUT_COM
51 
                CALL IN_OOUT
52 
                IN A,(C)
53 
                NOP
54 
                IN H,(C)
55 
                NOP
56 
                IN H,(C)
57 
                NOP
58 
                IN H,(C)
59 
                BIT 6,A
60 
                POP HL
61 
                JR NZ,SECN200
62 
                EX DE,HL
63 
                ADD HL,HL
64 
                EX DE,HL
65 
                ADC HL,HL
66 
                LD H,L
67 
                LD L,D
68 
                LD D,E
69 
                LD E,0
70 
SECN200         POP AF
1046 savelij 71 
                in (c) ;in f,(c)
72 
                in (c) ;in f,(c)
680 savelij 73 
                LD BC,P_DATA
74 
                OUT (C),A
75 
                NOP
76 
                OUT (C),H
77 
                NOP
78 
                OUT (C),L
79 
                NOP
80 
                OUT (C),D
81 
                NOP
82 
                OUT (C),E
1120 savelij 83 
                LD A,0xFF
680 savelij 84 
                OUT (C),A
85 
                POP BC
86 
                POP DE
87 
                POP HL
88 
                RET
89 
 
90 
OUT_COM         PUSH BC
91 
                LD BC,P_DATA
1046 savelij 92 
                in (c) ;in f,(c)
93 
                in (c) ;in f,(c)
680 savelij 94 
                OUT (C),A
95 
                XOR A
96 
                OUT (C),A
97 
                NOP
98 
                OUT (C),A
99 
                NOP
100 
                OUT (C),A
101 
                NOP
102 
                OUT (C),A
103 
                DEC A
104 
                OUT (C),A
105 
                POP BC
106 
                RET
107 
 
108 
IN_OOUT         PUSH DE
1120 savelij 109 
                LD DE,0x20FF
680 savelij 110 
IN_WAIT         IN A,(P_DATA)
111 
                CP E
112 
                JR NZ,IN_EXIT
113 
IN_NEXT         DEC D
114 
                JR NZ,IN_WAIT
115 
IN_EXIT         POP DE
116 
                RET
117 
;================��������� � ZC SD ��������===================