Subversion Repositories pentevo

Rev

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

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