Subversion Repositories pentevo

Rev

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

Rev 1046 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 21.12.2022 savelij
 2 
; LAST UPDATE: 01.11.2023 savelij
3 
 
 3 
 
4 
;================ЗАГРУЗЧИК С ZC SD КАРТОЧКИ===================
 4 
;================ЗАГРУЗЧИК С ZC SD КАРТОЧКИ===================
5 
READ_SD         PUSH AF
 5 
READ_ZSD        PUSH AF
6 
                LD A,1
 6 
                LD A,1
7 
                OUT (P_CONF),A
 7 
                OUT (P_CONF),A
8 
                POP AF
 8 
                POP AF
9 
                EX AF,AF'
 9 
                EX AF,AF'
10 
                LD A,CMD_18
 10 
                LD A,CMD_18
11 
                CALL SECM200
 11 
                CALL SECM200
12 
                EX AF,AF'
 12 
                EX AF,AF'
13 
RDMULT1         EX AF,AF'
 13 
RDMULT1         EX AF,AF'
14 
RDMULT2         CALL IN_OOUT
 14 
RDMULT2         CALL IN_OOUT
15 
                CP 0XFE
 15 
                CP 0xFE
16 
                JR NZ,RDMULT2
 16 
                JR NZ,RDMULT2
17 
                PUSH BC
 17 
                PUSH BC
18 
                LD BC,P_DATA
 18 
                LD BC,P_DATA
19 
                INIR
 19 
                INIR
20 
                NOP
 20 
                NOP
Line 78... Line 78...
78 
                OUT (C),L
 78 
                OUT (C),L
79 
                NOP
 79 
                NOP
80 
                OUT (C),D
 80 
                OUT (C),D
81 
                NOP
 81 
                NOP
82 
                OUT (C),E
 82 
                OUT (C),E
83 
                LD A,0XFF
 83 
                LD A,0xFF
84 
                OUT (C),A
 84 
                OUT (C),A
85 
                POP BC
 85 
                POP BC
86 
                POP DE
 86 
                POP DE
87 
                POP HL
 87 
                POP HL
88 
                RET
 88 
                RET
Line 104... Line 104...
104 
                OUT (C),A
 104 
                OUT (C),A
105 
                POP BC
 105 
                POP BC
106 
                RET
 106 
                RET
107 
 
 107 
 
108 
IN_OOUT         PUSH DE
 108 
IN_OOUT         PUSH DE
109 
                LD DE,0X20FF
 109 
                LD DE,0x20FF
110 
IN_WAIT         IN A,(P_DATA)
 110 
IN_WAIT         IN A,(P_DATA)
111 
                CP E
 111 
                CP E
112 
                JR NZ,IN_EXIT
 112 
                JR NZ,IN_EXIT
113 
IN_NEXT         DEC D
 113 
IN_NEXT         DEC D
114 
                JR NZ,IN_WAIT
 114 
                JR NZ,IN_WAIT