Subversion Repositories pentevo

Rev

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

Rev 845 Rev 952
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 06.07.2019 savelij
 2 
;LAST UPDATE: 27.02.2021 savelij
3 
 
 3 
 
4 
;               include sl811_equ.a80
 4 
;               include sl811_equ.a80
5 
 
 5 
 
6 
TIMEOUT_RETRY   EQU 6
 6 
TIMEOUT_RETRY   EQU 6
7 
 
 7 
 
Line 23... Line 23...
23 
 
 23 
 
24 
;ПОРТИТСЯ РЕГИСТР IX
 24 
;ПОРТИТСЯ РЕГИСТР IX
25 
 
 25 
 
26 
;общая точка входа для работы
 26 
;общая точка входа для работы
27 
COMUSBF         EX AF,AF'
 27 
COMUSBF         EX AF,AF'
28 
                LD (NUMHDD),A
 28 
                LD (TMP_NUMHDD),A
29 
                LD A,IYL
 29 
                LD A,IYL
30 
                AND A
 30 
                AND A
31 
                LD A,(NEXTBYTERST8)
 31 
                LD A,(NEXTBYTERST8)
32 
                JR Z,.L1
 32 
                JR Z,.L1
33 
                EX (SP),HL
 33 
                EX (SP),HL
Line 49... Line 49...
49 
                LD H,A
 49 
                LD H,A
50 
                LD A,(HL)
 50 
                LD A,(HL)
51 
                INC HL
 51 
                INC HL
52 
                LD H,(HL)
 52 
                LD H,(HL)
53 
                LD L,A
 53 
                LD L,A
54 
                LD A,(NUMHDD)
 54 
                LD A,(TMP_NUMHDD)
55 
                EX AF,AF'
 55 
                EX AF,AF'
56 
                EX (SP),HL
 56 
                EX (SP),HL
57 
                RET
 57 
                RET
58 
 
 58 
 
59 
.L2             POP IY
 59 
.L2             POP IY