Rev 736 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
548 | savelij | 1 | |
2 | ; �ਬ�� �⥭�� 䮭�� � ���⥢� |
||
3 | ; |
||
4 | ; (c) lvd^nedopc 2012 |
||
5 | ; |
||
6 | ; ��� ��� ���ᬠ |
||
7 | |||
646 | savelij | 8 | ;��������� ��� ���������� � ������� EVO RESET SERVICE 16.04.2012 savelij |
548 | savelij | 9 | |
831 | savelij | 10 | ;LAST UPDATE: 30.06.2019 savelij |
11 | |||
548 | savelij | 12 | ;START EQU #6000 |
13 | ; ORG START |
||
14 | |||
646 | savelij | 15 | FREAD EQU CPU1+OFFSET_SCRSAVE;OFFSET_FNTSAVE;-0X800 |
16 | FONT EQU CPU1+OFFSET_FNTSAVE;0XD800 |
||
548 | savelij | 17 | ;FLDIR EQU 0XD800 |
18 | |||
19 | SCAN_FONT |
||
20 | ; DI |
||
21 | |||
22 | ; LD A,1 |
||
23 | ; OUT (0XFE),A |
||
24 | |||
549 | savelij | 25 | ; XOR A |
26 | ; OUT (PEVO_CONF),A |
||
548 | savelij | 27 | |
549 | savelij | 28 | ; LD BC,0XEFF7 |
29 | ; OUT (C),A ;�⠢�� ���7, ����� ����㯥� ⮫쪮 � ��襤��-०��� |
||
548 | savelij | 30 | |
549 | savelij | 31 | ; INC A |
32 | ; OUT (PEVO_CONF),A |
||
548 | savelij | 33 | |
34 | LD A,0XA7 |
||
35 | LD BC,0XFF77 |
||
36 | OUT (C),A ;����砥� ���� ���⥢�� ⥪�⬮� - 1-��࠭��� |
||
37 | ; ������ ���7 � ��77 �⠢�� ��� 7 ��� ����� |
||
736 | savelij | 38 | EVOPORT WIN_P1,RAM_SCR_FONT |
548 | savelij | 39 | CALL OUTPAGE ;�뢮��� �� ᨬ���� �� ��࠭ |
40 | |||
41 | LOOP |
||
42 | CALL SYNCREAD ;���뢠�� 䮭� ��⮤�� �⥭�� ���⨪��, ����� �� ��࠭� |
||
43 | JP DECODEFONT ; ��४����㥬 � ����� �ଠ� 䮭�� ��������� ��������� ���� |
||
44 | ; CALL INVERTFONT ; �������㥬 �� ����� 䮭� |
||
45 | ; CALL WRITEFONT ; ��襬 ���� |
||
46 | |||
47 | ; LD A,0X7F |
||
48 | ; IN A,(0XFE) |
||
49 | ; RRA |
||
50 | ; JR C,LOOP ;�⮣� ��� ������ ���� �� ����� any key |
||
51 | |||
52 | ; LD A,0XFF |
||
53 | ; LD BC,WIN_A3 |
||
54 | ; OUT (C),A |
||
55 | |||
56 | ; LD A,0XA3 |
||
57 | ; LD BC,0XFF77 |
||
58 | ; OUT (C),A ; ����⠭�������� 6912-०�� |
||
59 | |||
60 | ; XOR A |
||
61 | ; OUT (PEVO_CONF),A ;����뢠�� 襤�� |
||
62 | |||
63 | ; RET |
||
64 | |||
65 | OUTPAGE |
||
66 | ; LD A,0X7F-8 ;��� ��室���� 1��࠭��� ⥪�⬮� (� ����) |
||
67 | ; LD BC,WIN_A3 |
||
68 | ; OUT (C),A |
||
69 | |||
70 | ; LD HL,0XC000 ; �⠢�� ��ਡ���. �� ��易⥫쭮, �⮡ ᨬ���� �뫨 ������, |
||
71 | ; LD DE,0XC001 ; ����� ��䨣���� �㫥� |
||
72 | ; LD (HL),0X01;5 |
||
73 | ; LD BC,0X3FFF |
||
74 | ; LDIR |
||
75 | |||
573 | savelij | 76 | XOR A |
77 | LD HL,CPU3+LATTR |
||
831 | savelij | 78 | ROMCALL CLSTXTMD1,ROM_RST82 |
573 | savelij | 79 | XOR A |
80 | LD HL,CPU3+RATTR |
||
831 | savelij | 81 | ROMCALL CLSTXTMD1,ROM_RST82 |
548 | savelij | 82 | |
83 | XOR A ; ��� ���⠥���� ᨬ���� |
||
573 | savelij | 84 | LD HL,CPU3+LSYM ;0XC1C0 ; ��㤠 ��稭��� ������ |
548 | savelij | 85 | LD DE,64-40 |
86 | LD C,25 ; �쪮 ��ப ���⠥�. �����筮 �������� 16 ��ப ᢥ���. |
||
87 | STRLOOP |
||
88 | LD B,80/5 |
||
89 | SYMLOOP |
||
90 | CALL PRINC ; �����塞 ����� ᨬ��� 5 ࠧ |
||
91 | CALL PRINC |
||
92 | CALL PRINC |
||
93 | CALL PRINC |
||
94 | CALL PRINC |
||
95 | |||
96 | INC A |
||
97 | |||
98 | DJNZ SYMLOOP |
||
99 | |||
100 | ADD HL,DE ; ᬥ饭�� �� ������ ��ப� |
||
101 | |||
102 | DEC C |
||
103 | JR NZ,STRLOOP |
||
104 | |||
105 | RET |
||
106 | |||
107 | PRINC ; ���⠥� ᨬ��� � �����⨬ 㪠��⥫� � HL �� ���騩 ᨬ��� |
||
108 | LD (HL),A |
||
109 | BIT 4,H |
||
110 | SET 4,H |
||
111 | RET Z |
||
112 | RES 4,H |
||
113 | INC HL |
||
114 | RET |
||
115 | |||
116 | SYNCREAD |
||
117 | |||
118 | ; �� ��楤�� ������ �믮������� �� ���� ������ 7 ���!!!!!!! |
||
119 | |||
120 | ; ᭠砫� ����砥� IM 2 � ������ ⠡��窨 ��� ���� |
||
121 | DI |
||
122 | ; IM 2 |
||
123 | |||
124 | ; setup IM2 tables |
||
125 | |||
126 | ; LD HL,INTTAB |
||
127 | ; LD A,1 |
||
128 | ; LD I,A |
||
129 | ; INC A |
||
130 | |||
131 | ; LD (HL),A |
||
132 | ; INC L |
||
133 | ; JR NZ,$-2 |
||
134 | |||
135 | ; INC H |
||
136 | ; LD (HL),A |
||
137 | |||
138 | ; LD L,H |
||
139 | ; LD (HL),0XC3 ; JP |
||
140 | ; INC HL |
||
141 | ; LD (HL)LOW (INTPROC) |
||
142 | ; INC HL |
||
143 | ; LD (HL),HIGH (INTPROC) |
||
144 | |||
145 | |||
585 | savelij | 146 | LD HL,EI_RET |
147 | LD (ADR_INT),HL |
||
148 | |||
548 | savelij | 149 | LD HL,FREAD ; ��࠭�� �⠢�� �㤠 �㤥� ���� 䮭� |
150 | |||
151 | EI |
||
152 | HALT |
||
153 | EI |
||
154 | HALT ; ������ 堫� �⮡ �� ��� � ����প� ������� �⥭��� ᯥ毮�� ��אַ |
||
155 | ; � ������ ��砫� �⮡ࠦ���� ᨬ�����. ������ 堫� 2 ࠧ�, �⮡ 㡥����, |
||
156 | ; �� ��� �㤥� �墠祭 � �� ��砫�, � �� � �।���. |
||
157 | ; ��ࠡ��稪 ��� - ᭠砫� JP, ��⮬ RET. |
||
158 | |||
159 | |||
160 | |||
161 | |||
162 | ; ������ ����প� �� ������ �⮡ࠦ���� ��ࢮ�� ᨬ����. �� ��������� 5 ࠧ, |
||
163 | ; � ��ࢠ� ������� INI �������� 横��� ����� �ਬ�୮ � �।��� ��� |
||
164 | ; 5 ᨬ����� |
||
623 | savelij | 165 | LD BC,0 ;10 |
585 | savelij | 166 | DI ;4 |
167 | LD B,2 ;7 |
||
623 | savelij | 168 | DJNZ $ ;13*2+8 |
548 | savelij | 169 | LD D,76 |
170 | LINWAIT |
||
171 | LD BC,256*33 |
||
172 | DJNZ $ |
||
173 | DEC D |
||
174 | JP NZ,LINWAIT |
||
175 | LD BC,0X0EBE ; ������ � ����� ����প� ��㧨� ���� ���� |
||
176 | LD D,128 ; � ����稪 ��� 128 ��ப |
||
177 | |||
178 | |||
179 | READLOOP |
||
180 | ; �⠥� 16 ����. ��� ࠧ INI:INC B �믮������ �� 20 ⠪⮢, � 5 ᨬ����� |
||
181 | ; ������ ⮦� 20 ⠪⮢ (@7MHz nowait) |
||
182 | REPT 16 |
||
183 | INI |
||
184 | INC B |
||
185 | ENDM |
||
186 | |||
187 | LD E,7 ; ���ࠥ� ��⠢襥�� �६� ��ப� |
||
188 | DEC E |
||
189 | JR NZ,$-1 |
||
190 | |||
191 | DEC D |
||
192 | JP NZ,READLOOP ; �⮣� ���� ��� �� �������� 448 ⠪⮢ |
||
193 | |||
194 | |||
195 | ; ��� ��⠫�, ��� �� ���... |
||
196 | DI |
||
197 | ; IM 1 |
||
198 | RET |
||
199 | |||
585 | savelij | 200 | ;INTPROC ; ��ࠡ��祣 ��� :) |
201 | ; RET |
||
548 | savelij | 202 | |
203 | |||
204 | |||
205 | |||
206 | DECODEFONT |
||
207 | |||
208 | ; ��४����㥬 ��⠭�� 䮭� � ����� �ଠ� |
||
209 | |||
210 | LD HL,FREAD |
||
211 | LD DE,FONT |
||
212 | |||
213 | |||
214 | LD IXH,16 |
||
215 | DF256L |
||
216 | LD IXL,16 |
||
217 | DF16L |
||
218 | LD BC,16 |
||
219 | REPT 8 |
||
220 | LD A,(HL) |
||
221 | ADD HL,BC |
||
222 | LD (DE),A |
||
223 | INC DE |
||
224 | ENDM |
||
225 | |||
226 | LD BC,1-128 |
||
227 | ADD HL,BC |
||
228 | |||
229 | DEC IXL |
||
230 | JR NZ,DF16L |
||
231 | |||
232 | LD BC,128-16 |
||
233 | ADD HL,BC |
||
234 | |||
235 | DEC IXH |
||
236 | JR NZ,DF256L |
||
237 | |||
238 | RET |
||
239 | |||
240 | |||
241 | |||
242 | ;INVERTFONT |
||
243 | |||
244 | ; �������㥬 䮭� |
||
245 | |||
246 | ; LD HL,FONT |
||
247 | ; LD BC,2048 |
||
248 | ;IFLOOP |
||
249 | ; LD A,(HL) |
||
250 | ; CPL |
||
251 | ; LD (HL),A |
||
252 | ; CPI |
||
253 | ; JP PE,IFLOOP |
||
254 | |||
255 | ; RET |
||
256 | |||
257 | |||
258 | |||
259 | ;WRITEFONT |
||
260 | |||
261 | ; ��襬 䮭� ���⭮ � 䮭� |
||
262 | |||
263 | ; LD A,0X05 |
||
264 | ; OUT (PEVO_CONF),A |
||
265 | |||
266 | ; LD HL,FONT |
||
267 | ; LD DE,FLDIR ; ���ਬ �� ��� � ��� -- ��� ࠡ�⠥� |
||
268 | ; LD BC,2048 |
||
269 | ; LDIR |
||
270 | |||
271 | ; LD A,1 |
||
272 | ; OUT (PEVO_CONF),A |
||
273 | ; RET |
||
274 | |||
275 | |||
276 | |||
277 | ; ORG ($+255)&0XFF00 |
||
278 | ;INTTAB |
||
279 | ; DS 512 |
||
280 | |||
281 | |||
282 | ;FREAD DS 2048 |
||
283 | ;FONT DS 2048 |
||
284 | |||
285 | ;FLDIR EQU FONT & 0XF800 |
||
286 | |||
287 | ;ENDD |
||
288 | ; ORG START |