Subversion Repositories pentevo

Rev

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

Rev 831 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 30.06.2019 savelij
 2 
; LAST UPDATE: 06.02.2025 savelij
3 
 
 3 
 
4 
PRTT_MSG        LD A,(HL)
 4 
PRTT_MSG        LD A,(HL)
5 
                AND A
 5 
                AND A
6 
                RET Z
 6 
                RET Z
7 
                CALL PRTT_UPR
 7 
                CALL PRTT_UPR
8 
                INC HL
 8 
                INC HL
9 
                JR PRTT_MSG
 9 
                JR PRTT_MSG
10 
 
 10 
 
11 
PRTT_UPR        CP " "
 11 
PRTT_UPR        CP " "
12 
                JP NC,PRTT_A_
 12 
                JP NC,PRTT_A_
13 
                CP 0X16
 13 
                CP 0x16
14 
                JR Z,PRTT_COD16
 14 
                JR Z,PRTT_COD16
15 
                CP 0X17
 15 
                CP 0x17
16 
                JR Z,PRTT_COD17
 16 
                JR Z,PRTT_COD17
17 
                CP 9
 17 
                CP 9
18 
                RET NZ
 18 
                RET NZ
19 
PRTT_COD09      LD A,D
 19 
PRTT_COD09      LD A,D
20 
                ADD A,8
 20 
                ADD A,8
21 
                AND 0XF8
 21 
                AND 0xF8
22 
                LD D,A
 22 
                LD D,A
23 
                RET
 23 
                RET
24 
 
 24 
 
25 
PRTT_COD17      INC HL
 25 
PRTT_COD17      INC HL
26 
                LD A,(HL)
 26 
                LD A,(HL)
27 
                LD (TXT_COLOR),A                ;УСТАНОВКА ЦВЕТА ПЕЧАТИ
 27 
                LD (TXT_COLOR),A                ; установка цвета печати
28 
                RET
 28 
                RET
29 
 
 29 
 
30 
PRTT_COD16      INC HL
 30 
PRTT_COD16      INC HL
31 
                LD E,(HL)                       ;X ПОЗИЦИЯ
 31 
                LD E,(HL)                       ; X позиция
32 
                INC HL
 32 
                INC HL
33 
                LD D,(HL)                       ;Y ПОЗИЦИЯ
 33 
                LD D,(HL)                       ; Y позиция
34 
                RET
 34 
                RET
35 
 
 35 
 
36 
;ПЕЧАТЬ СИМВОЛА НА ТЕКСТМОДНОМ ЭКРАНЕ
 36 
; печать символа на текстмодном экране
37 
;D-X E-Y C-COLOR
 37 
; D-X E-Y C-COLOR
38 
PRTT_A_         PUSH DE
 38 
PRTT_A_         PUSH DE
39 
                PUSH HL
 39 
                PUSH HL
40 
                PUSH AF
 40 
                PUSH AF
41 
                LD L,E
 41 
                LD L,E
42 
                LD A,D
 42 
                LD A,D
43 
                LD H,0
 43 
                LD H,0
44 
                LD D,H
 44 
                LD D,H
45 
                ADD HL,HL       ;X2
 45 
                ADD HL,HL       ; x2
46 
                ADD HL,HL       ;X4
 46 
                ADD HL,HL       ; x4
47 
                ADD HL,HL       ;X8
 47 
                ADD HL,HL       ; x8
48 
                ADD HL,HL       ;X16
 48 
                ADD HL,HL       ; x16
49 
                ADD HL,HL       ;X32
 49 
                ADD HL,HL       ; x32
50 
                ADD HL,HL       ;X64
 50 
                ADD HL,HL       ; x64
51 
                LD E,A
 51 
                LD E,A
52 
                SRL E
 52 
                SRL E
53 
                ADD HL,DE
 53 
                ADD HL,DE
54 
                AND 1
 54 
                AND 1
55 
                RRCA
 55 
                RRCA
Line 61... Line 61...
61 
                LD E,LOW (CPU3+LSYM)
 61 
                LD E,LOW (CPU3+LSYM)
62 
                ADD HL,DE
 62 
                ADD HL,DE
63 
                POP AF
 63 
                POP AF
64 
                LD (HL),A
 64 
                LD (HL),A
65 
                LD A,H
 65 
                LD A,H
66 
                XOR 0X30
 66 
                XOR 0x30
67 
                LD H,A
 67 
                LD H,A
68 
                LD A,D
 68 
                LD A,D
69 
                AND 0X10
 69 
                AND 0x10
70 
                RLCA
 70 
                RLCA
71 
                RLCA
 71 
                RLCA
72 
                RLCA
 72 
                RLCA
73 
                RLCA
 73 
                RLCA
74 
                ADD A,L
 74 
                ADD A,L
Line 81... Line 81...
81 
PRTT_A1         POP HL
 81 
PRTT_A1         POP HL
82 
                POP DE
 82 
                POP DE
83 
                INC D
 83 
                INC D
84 
                RET
 84 
                RET
85 
 
 85 
 
86 
;ОЧИСТКА ТЕКСТМОДНОГО ЭКРАНА
 86 
; очистка текстмодного экрана
87 
CLS_TXTMODE8    LD BC,0XFF77
 87 
CLS_TXTMODE8    LD BC,0xFF77
88 
                LD A,0XAF
 88 
                LD A,0xAF
89 
                OUT (C),A
 89 
                OUT (C),A
90 
                EVOPORT WIN_P3,0XF7
 90 
        EVOPORT WIN_P3,0xF7
91 
                LD A," "
 91 
                LD A," "
92 
                LD HL,CPU3+LSYM
 92 
                LD HL,CPU3+LSYM
93 
                CALL CLSTXTMD1
 93 
                CALL CLSTXTMD1
94 
                LD HL,CPU3+RSYM
 94 
                LD HL,CPU3+RSYM
95 
                CALL CLSTXTMD1
 95 
                CALL CLSTXTMD1
Line 113... Line 113...
113 
                DEC A
 113 
                DEC A
114 
                JR NZ,CLSTXTMD2
 114 
                JR NZ,CLSTXTMD2
115 
                EX AF,AF'
 115 
                EX AF,AF'
116 
                RET
 116 
                RET
117 
 
 117 
 
118 
;СОХРАНЕНИЕ ТЕКСТМОДНОГО ЭКРАНА
 118 
; сохранение текстмодного экрана
- 
 
 119 
STORE_TXTMODE
119 
STORE_TXTMODE   EVOPORT WIN_P3,0XF7
 120 
        EVOPORT WIN_P3,0xF7
120 
                LD B,HIGH (WIN_P5)
 121 
                LD B,HIGH (WIN_P1)
121 
                LD A,RAM_TEMP
 122 
                LD A,RAM_TEMP
122 
                OUT (C),A
 123 
                OUT (C),A
123 
                LD DE,CPU5+OFFSET_SCRSAVE
 124 
                LD DE,CPU1+OFFSET_SCRSAVE
124 
                LD HL,CPU3+LSYM
 125 
                LD HL,CPU3+LSYM
125 
                CALL STORETXTMD1
 126 
                CALL STORETXTMD1
126 
                LD HL,CPU3+RSYM
 127 
                LD HL,CPU3+RSYM
127 
                CALL STORETXTMD1
 128 
                CALL STORETXTMD1
128 
                LD HL,CPU3+LATTR
 129 
                LD HL,CPU3+LATTR
Line 136... Line 137...
136 
                ADD HL,BC
 137 
                ADD HL,BC
137 
                DEC A
 138 
                DEC A
138 
                JR NZ,STORETXTMD2
 139 
                JR NZ,STORETXTMD2
139 
                RET
 140 
                RET
140 
 
 141 
 
141 
;ВОССТАНОВЛЕНИЕ ТЕКСТМОДНОГО ЭКРАНА
 142 
; восстановление текстмодного экрана
- 
 
 143 
RESTORE_TXTMODE
142 
RESTORE_TXTMODE EVOPORT WIN_P3,0XF7
 144 
        EVOPORT WIN_P3,0xF7
143 
                LD B,HIGH (WIN_P5)
 145 
                LD B,HIGH (WIN_P1)
144 
                LD A,RAM_TEMP
 146 
                LD A,RAM_TEMP
145 
                OUT (C),A
 147 
                OUT (C),A
146 
                LD DE,CPU5+OFFSET_SCRSAVE
 148 
                LD DE,CPU1+OFFSET_SCRSAVE
147 
                LD HL,CPU3+LSYM
 149 
                LD HL,CPU3+LSYM
148 
                CALL RESTORETXTMD1
 150 
                CALL RESTORETXTMD1
149 
                LD HL,CPU3+RSYM
 151 
                LD HL,CPU3+RSYM
150 
                CALL RESTORETXTMD1
 152 
                CALL RESTORETXTMD1
151 
                LD HL,CPU3+LATTR
 153 
                LD HL,CPU3+LATTR
Line 167... Line 169...
167 
                LD DE,CPU1+OFFSET_BUFSYM
 169 
                LD DE,CPU1+OFFSET_BUFSYM
168 
                PUSH DE
 170 
                PUSH DE
169 
                ROMCALL UNPACK,ROM_RST80
 171 
        ROMCALL UNPACK,ROM_RST80
170 
 
 172 
 
171 
                LD HL,SYM00
 173 
                LD HL,SYM00
172 
                LD DE,CPU1+OFFSET_BUFSYM+0XF2*8
 174 
                LD DE,CPU1+OFFSET_BUFSYM+0xF2*8
173 
                LD BC,END_MAGICSYM-SYM00
 175 
                LD BC,END_MAGICSYM-SYM00
174 
                LDIR                            ;ДОБАВЛЕНИЕ СПЕЦ СИМВОЛОВ В НАБОР
 176 
                LDIR                            ; добавление спец символов в набор
175 
 
 177 
 
176 
                LD BC,0X800
 178 
                LD BC,0x800
177 
                POP HL
 179 
                POP HL
178 
                LD DE,0
 180 
                LD DE,0
179 
                PEC_ON M_SHADOW_BF+M_FONT_BF
 181 
        PEC_ON M_SHADOW_BF+M_FONT_BF
180 
                LDIR                            ;УСТАНОВКА MAGIC FONT
 182 
                LDIR                            ; установка MAGIC font
181 
                PEC_OFF M_FONT_BF
 183 
        PEC_OFF M_FONT_BF
182 
                RET
 184 
                RET
183 
 
 185 
 
- 
 
 186 
RESTORE_FONT
184 
RESTORE_FONT    EVOPORT WIN_P1,RAM_SCR_FONT
 187 
        EVOPORT WIN_P1,RAM_SCR_FONT
185 
                LD HL,CPU1+OFFSET_FNTSAVE
 188 
                LD HL,CPU1+OFFSET_FNTSAVE
186 
                LD DE,0
 189 
                LD DE,0
187 
                LD BC,0X800
 190 
                LD BC,0x800
188 
                PEC_ON M_SHADOW_BF+M_FONT_BF
 191 
        PEC_ON M_SHADOW_BF+M_FONT_BF
189 
                LDIR
 192 
                LDIR
190 
                PEC_OFF M_FONT_BF
 193 
        PEC_OFF M_FONT_BF
191 
                RET
 194 
                RET