Subversion Repositories pentevo

Rev

Rev 548 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
548 savelij 1 
 
702 savelij 2 
;LAST UPDATE: 16.08.2015 savelij
3 
 
548 savelij 4 
                include ../../macros.a80
5 
                include ../../global_vars.a80
6 
 
7 
                ORG 0X6000
8 
                DI
9 
                LD E,0X3F
10 
                LD A,0XF7
11 
                CALL SET_PAGES
12 
                LD A,0XD7
13 
                CALL SET_PAGES
14 
                LD BC,0X7FFD
15 
                LD A,0X10
16 
                OUT (C),A
17 
                LD A,1
18 
                OUT (PEVO_CONF),A
19 
                CALL READ_NUM_PAGES
20 
                LD BC,WIN_P2
21 
                LD A,0XFD
22 
                OUT (C),A
23 
                XOR A
24 
                OUT (PEVO_CONF),A
25 
                JR $
26 
 
27 
SET_PAGES       LD BC,0X7FFD
28 
                OUT (C),A
29 
SETPAGES2       LD D,A
30 
                LD A,E
31 
                LD (0XC000),A
32 
                DEC E
33 
                LD A,D
34 
                AND 0XC7
35 
                RET Z
36 
                AND 7
37 
                LD A,D
38 
                JR NZ,SETPAGES3
39 
                SUB 0X38
40 
SETPAGES3       DEC A
41 
                JR SET_PAGES
42 
 
43 
READ_NUM_PAGES  LD HL,0X7000
44 
                LD D,0XC0
45 
                LD BC,WIN_P2
46 
RDNUMPAGES1     OUT (C),D
47 
                INC D
48 
                RET Z
49 
                LD A,(0X8000)
50 
                LD (HL),A
51 
                INC HL
52 
                JR RDNUMPAGES1