Subversion Repositories pentevo

Rev

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

Rev 961 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 01.08.2021 savelij
 2 
; LAST UPDATE: 16.02.2025 savelij
3 
 
 3 
 
4 
loc_3C47        LD BC,WIN_A3
 4 
loc_3C47        LD BC,WIN_A3
5 
                LD A,0XFF
 5 
                LD A,0xFF
6 
                OUT (C),A               ;возврат привязки к порту 7FDD
 6 
                OUT (C),A               ;возврат привязки к порту 7FDD
7 
LOC_3C4B        LD DE,0XFFFF
 7 
LOC_3C4B        LD DE,0xFFFF
8 
                ld      a, 7
 8 
                ld      a, 7
9 
                jp      loc_9
 9 
                jp      loc_9
10 
 
 10 
 
11 
loc_3C50        ld      sp, 0X5BFF
 11 
loc_3C50        ld      sp, 0x5BFF
12 
                LD BC,WIN_A3
 12 
                LD BC,WIN_A3
13 
                LD A,0X40
 13 
                LD A,0x40
14 
                OUT (C),A               ;разблокировка привязки к порту 7FFD
 14 
                OUT (C),A               ;разблокировка привязки к порту 7FFD
15 
                ld      a, 1Fh ! 0XFF
 15 
                ld      a, 1Fh ! 0xFF
16 
                LD BC,WIN_P3
 16 
                LD BC,WIN_P3
17 
                OUT (C),A
 17 
                OUT (C),A
18 
                ld      hl, 0C000h
 18 
                ld      hl, 0C000h
19 
                ld      a, (hl)
 19 
                ld      a, (hl)
20 
                cp      0C3h
 20 
                cp      0C3h
Line 35... Line 35...
35 
                jr      nz, loc_3C47
 35 
                jr      nz, loc_3C47
36 
                cpl
 36 
                cpl
37 
                dec     hl
 37 
                dec     hl
38 
                cp      (hl)
 38 
                cp      (hl)
39 
                jr      nz, loc_3C47
 39 
                jr      nz, loc_3C47
40 
                LD H,CMOS_BYTE_03
 40 
                LD H,CMOS.BYTE_03
41 
                CALL READCMOS
 41 
                CALL READCMOS
42 
                AND M_KILL_REZIDENT
 42 
                AND CMOS_E9.M_KILL_REZIDENT
43 
                JR Z,.L1
 43 
                JR Z,.L1
44 
                LD (0XC000),A           ;портим резидент
 44 
                LD (0xC000),A           ;портим резидент
45 
.L1             ld      hl, 0D000h
 45 
.L1             ld      hl, 0D000h
46 
                ld      de, 5B00h
 46 
                ld      de, 5B00h
47 
                ld      bc, 2500h
 47 
                ld      bc, 2500h
48 
                ldir
 48 
                ldir
49 
                LD BC,WIN_P3            ;порт установки номера страницы
 49 
                LD BC,WIN_P3            ;порт установки номера страницы
50 
                ld      a, 1Eh ! 0XFF
 50 
                ld      a, 1Eh ! 0xFF
51 
                LD HL,LDIR_HL_DE
 51 
                LD HL,LDIR_HL_DE
52 
                LD DE,.E1
 52 
                LD DE,.E1
53 
                JP (HL)
 53 
                JP (HL)
54 
 
 54 
 
55 
.E1             ld      a, 3 ! 0XFF
 55 
.E1             ld      a, 3 ! 0xFF
56 
                LD HL,LDIR_DE_HL
 56 
                LD HL,LDIR_DE_HL
57 
                LD DE,.E2
 57 
                LD DE,.E2
58 
                JP (HL)
 58 
                JP (HL)
59 
 
 59 
 
60 
.E2             ld      a, 1Dh ! 0XFF
 60 
.E2             ld      a, 1Dh ! 0xFF
61 
                LD HL,LDIR_HL_DE
 61 
                LD HL,LDIR_HL_DE
62 
                LD DE,.E3
 62 
                LD DE,.E3
63 
                JP (HL)
 63 
                JP (HL)
64 
 
 64 
 
65 
.E3             ld      a, 1 ! 0XFF
 65 
.E3             ld      a, 1 ! 0xFF
66 
                LD HL,LDIR_DE_HL
 66 
                LD HL,LDIR_DE_HL
67 
                LD DE,.E4
 67 
                LD DE,.E4
68 
                JP (HL)
 68 
                JP (HL)
69 
 
 69 
 
70 
.E4             ld      a, 1Ch ! 0XFF
 70 
.E4             ld      a, 1Ch ! 0xFF
71 
                LD HL,LDIR_HL_DE
 71 
                LD HL,LDIR_HL_DE
72 
                LD DE,.E5
 72 
                LD DE,.E5
73 
                JP (HL)
 73 
                JP (HL)
74 
 
 74 
 
75 
.E5
 75 
.E5
76 
                LD A, 0 ! 0XFF
 76 
                LD A, 0 ! 0xFF
77 
                LD HL,LDIR_DE_HL
 77 
                LD HL,LDIR_DE_HL
78 
                LD DE,.E6
 78 
                LD DE,.E6
79 
                JP (HL)
 79 
                JP (HL)
80 
 
 80 
 
81 
.E6             ld      a, 1Bh ! 0XFF
 81 
.E6             ld      a, 1Bh ! 0xFF
82 
                LD HL,LDIR_HL_DE
 82 
                LD HL,LDIR_HL_DE
83 
                LD DE,.E7
 83 
                LD DE,.E7
84 
                JP (HL)
 84 
                JP (HL)
85 
 
 85 
 
86 
.E7
 86 
.E7
87 
                LD A,0 ! 0XFF
 87 
                LD A,0 ! 0xFF
88 
                OUT (C),A               ;вернули страницу
 88 
                OUT (C),A               ;вернули страницу
89 
                LD BC,WIN_A3
 89 
                LD BC,WIN_A3
90 
                LD A,0XFF
 90 
                LD A,0xFF
91 
                OUT (C),A               ;возврат привязки к порту 7FDD
 91 
                OUT (C),A               ;возврат привязки к порту 7FDD
92 
                ld      sp, (0X5B73)
 92 
                ld      sp, (0x5B73)
93 
                ret
 93 
                ret
94 
 
 94 
 
95 
LDIR_DE_HL      OUT (C),A
 95 
LDIR_DE_HL      OUT (C),A
96 
                ld      a, 0FFh
 96 
                ld      a, 0FFh
97 
                or      a
 97 
                or      a