Subversion Repositories pentevo

Rev

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

Rev 680 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 01.12.2014 savelij
 2 
; LAST UPDATE: 01.11.2023 savelij
3 
 
 3 
 
4 
;===============ЧТЕНИЕ С SD NEOGS=========================
 4 
;===============ЧТЕНИЕ С SD NEOGS=========================
5 
;ЧТЕНИЕ "A" СЕКТОРОВ
 5 
;ЧТЕНИЕ "A" СЕКТОРОВ
6 
READNGS         EX AF,AF'
 6 
READ_NEOGS      EX AF,AF'
7 
                LD A,_DEV_READ
 7 
                LD A,_DEV_READ
8 
                CALL COMM2SD
 8 
                CALL COMM2SD
9 
                EX AF,AF'
 9 
                EX AF,AF'
10 
                PUSH DE
 10 
                PUSH DE
11 
                PUSH BC
 11 
                PUSH BC
12 
                LD BC,GSDAT
 12 
                LD BC,GSDAT
13 
SDRDSN1         EX AF,AF'
 13 
SDRDSN1         EX AF,AF'
14 
                OUT (GSCOM),A
 14 
                OUT (GSCOM),A
15 
                CALL WC_
 15 
                CALL WC_
16 
                LD DE,0X0200
 16 
                LD DE,0x0200
17 
SDRDSN2         CALL WN_
 17 
SDRDSN2         CALL WN_
18 
                INI
 18 
                INI
19 
                DEC DE
 19 
                DEC DE
20 
                LD A,D
 20 
                LD A,D
21 
                OR E
 21 
                OR E
Line 23... Line 23...
23 
                EX AF,AF'
 23 
                EX AF,AF'
24 
                DEC A
 24 
                DEC A
25 
                JR NZ,SDRDSN1
 25 
                JR NZ,SDRDSN1
26 
                CALL WN_
 26 
                CALL WN_
27 
SDRDSN3         IN A,(C)
 27 
SDRDSN3         IN A,(C)
28 
                CP 0X77
 28 
                CP 0x77
29 
                JR NZ,SDRDSN3
 29 
                JR NZ,SDRDSN3
30 
                POP BC
 30 
                POP BC
31 
                POP DE
 31 
                POP DE
32 
                XOR A
 32 
                XOR A
33 
                RET
 33 
                RET
34 
 
 34 
 
35 
;ПЕРЕДАТЧИК КОМАНД/ПАРАМЕТРОВ В ДРАЙВЕР НА NeoGS
 35 
;ПЕРЕДАТЧИК КОМАНД/ПАРАМЕТРОВ В ДРАЙВЕР НА NeoGS
36 
COMM2SD         OUT (GSDAT),A                   ;УШЛА КОМАНДА ДРАЙВЕРУ
 36 
COMM2SD         OUT (GSDAT),A                   ;УШЛА КОМАНДА ДРАЙВЕРУ
37 
                LD A,0X1E
 37 
                LD A,0x1E
38 
                OUT (GSCOM),A                   ;УШЛА КОМАНДА ПРОШИВКЕ
 38 
                OUT (GSCOM),A                   ;УШЛА КОМАНДА ПРОШИВКЕ
39 
                CALL WC_
 39 
                CALL WC_
40 
                LD A,B
 40 
                LD A,B
41 
                OUT (GSDAT),A                   ;УШЛИ БИТЫ 31-24 ПАРАМЕТРОВ
 41 
                OUT (GSDAT),A                   ;УШЛИ БИТЫ 31-24 ПАРАМЕТРОВ
42 
                CALL WD_
 42 
                CALL WD_