Subversion Repositories pentevo

Rev

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