9. Пример программы
1 : ; T6963C ПРИМЕР ПРОГРАММЫ Вер.0.01
2 : ;
3 : ; ИСХОДНЫЙ КОД ПРОГРАММЫ для TMPZ84COOP
4 : ; 1991-02-15
5 : ; Размер изображения : 20 Столбцов x 8 Строк
6 : ;
7 : ; Шрифт : Режим 8 точек
8 : ;
9 : TXHOME EQU 40H ; ЗАДАТЬ АДРЕС НАЧАЛА ТЕКСТА
10 : TXAREA EQU 41H ; ЗАДАТЬ ТЕКСТОВУЮ ОБЛАСТЬ
11 : GRHOME EQU 42H ; ЗАДАТЬ АДРЕС НАЧАЛА ГРАФИКИ
12 : GRAREA EQU 43H ; ЗАДАТЬ ГРАФИЧЕСКУЮ ОБЛАСТЬ
13 : OFFSET EQU 22H ; ЗАДАТЬ АДРЕС СМЕЩЕНИЯ
14 : ADPSET EQU 24H ; ЗАДАТЬ УКАЗАТЕЛЬ АДРЕСА
15 : AWRON EQU OBOH ; УСТАНОВИТЬ РЕЖИМ АВТОМАТИЧЕСКОЙ ЗАПИСИ
16 : AWROFF EQU OB2H ; СБРОСИТЬ РЕЖИМ АВТОМАТИЧЕСКОЙ ЗАПИСИ
17 : CMDP EQU 01H ; ПОРТ СРАВНЕНИЯ
18 : DP EQU OOH ; ПОРТ ДАННЫХ
19 : STACK EQU 9FFFH ; БАЗОВЫЙ АДРЕС УКАЗАТЕЛЯ СТЕКА
20 : ;
21 : ORG OOOOH
22 : START:
23 : LD SP,STACK
24 : ;
26 : ; ЗАДАТЬ АДРЕС НАЧАЛА ТЕКСТА
26 : ;
27 : LD HL,OOOOH ; АДРЕС НАЧАЛА ТЕКСТА OOOOH
28 : CALL DT2
29 : LD A,TXHOME
30 : CALL CMD
31 :
32 : ; ЗАДАТЬ АДРЕС НАЧАЛА ГРАФИКИ
33 : ;
34 : LD HL,0200H ; АДРЕС НАЧАЛА ГРАФИКИ 0200H
35 : CALL DT2
36 : LD A,GRHOME
37 : CALL CMD
38 :
39 : ; ЗАДАТЬ ТЕКСТОВУЮ ОБЛАСТЬ
40 : ;
41 : LD HL,0014H ; ТЕКСТОВАЯ ОБЛАСТЬ 20 Столбцов
42 : CALL DT2
43 : LD A,TXAREA
44 : CALL CMD
45 : ;
46 : ; ЗАДАТЬ ГРАФИЧЕСКУЮ ОБЛАСТЬ
47 : ;
48 : LD HL,0014H ; ГРАФИЧЕСКАЯ ОБЛАСТЬ 20 Столбцов
49 : CALL DT2
50 : LD A,GRAREA
51 : CALL CMD
52 : ;
53 : ; УСТАНОВКА РЕЖИМА (OR РЕЖИМ,РЕЖИМ Внутреннего Знакогенератора)
54 : ;
55 : LD A,80H
56 : CALL CMD
57 : ;
58 : ; ВЫСТАВИТЬ РЕГИСТР СМЕЩЕНИЯ (00010 10000000 000=1400H АДРЕС
НАЧАЛА ОЗУ ЗНАКОГЕНЕРАТОРА)
59 : ; КОД СИМВОЛА 80H
60 : LD HL,0002H
61 : CALL DT2
62 : LD A,OFFSET
63 : CALL CMD
64 : ;
65 : ; РЕЖИМ ОТОБРАЖЕНИЯ
66 : ; (ВКЛ. ТЕКСТ, ВЫКЛ. ГРАФИКУ, ВЫКЛ. КУРСОР)
67 : ;
68 : LD A,94H
69 : CALL CMD
70 :
71 : ; ЗАПИСАТЬ КОД ТЕКСТОВОГО ПРОБЕЛА
72 : ;
73 : LD HL,OOOOH ; ЗАДАТЬ Указатель Адреса OOOOH
74 : CALL DT2 ; (АДРЕС НАЧАЛА ТЕКСТА)
75 : LD A,ADPSET
76 : CALL CMD
77 :
78 : LD A,AWRON ; УСТАНОВИТЬ АВТО ЗАПИСЬ ДАННЫХ
79 : CALL CMD ;
80 :
81 : LD BC,OOAOH ; 20 Столбцов x 8 Строк (160=AOH)
82 : TXCR:
83 : LD A,OOH ; ЗАПИСАТЬ ДАННЫЕ OOH
84 : CALL ADT ; (ЗАПИСАТЬ КОД ПРОБЕЛА)
85 :
86 : DEC BC
87 : LD A,B
88 : OR C
89 : JR NZ,TXCR
90 :
91 : LD A,AWROFF ; АВТО СБРОС
92 : CALL CMD
93 :
94 : ;
95 : ; ЗАПИСАТЬ ДАННЫЕ ВНЕШНЕГО ЗНАКОГЕНЕРАТОРА
96 : ;
97 : LD DE,EXTCG ; Адрес данных занакогенератора в Программе
98 : LD HL,1400H ; Стартовый Адрес ОЗУ Знакогенератора (1400H)
99 : CALL DT2
100 : LD A,ADPSET
101 : CALL CMD
102 : ;
103 : LD A,AWRON ; УСТАНОВИТЬ АВТО ЗАПИСЬ ДАННЫХ
104 : CALL CMD
105 :
106 : LD B,40H ; 8 Символов x 8 байт (64=40H)
107 : EXCG:
108 : LD A,(DE) ; ЗАПИСАТЬ ДАННЫЕ ВО ВНЕШНЕЕ ОЗУ
109 : CALL ADT ;
110 : INC HL
111 : INC DE
112 : DJNZ EXCG
113 :
114 : LD A,AWROFF ; АВТО СБРОС
115 : CALL CMD
116 :
117 : ; ЗАПИСАТЬ ДАННЫЕ ТЕКСТОВОГО ИЗОБРАЖЕНИЯ (ВНУТРЕННИЙ ЗНАКОГЕНЕРАТОР)
118 : ;
119 : LD HL,0040H ; Указатель Адреса 3 Строки, 4 Столбца
120 : CALL DT2
121 : LD A,ADPSET
122 : CALL CMD
123 :
124 : LD A,AWRON ; УСТАНОВИТЬ АВТО ЗАПИСЬ ДАННЫХ
125 : CALL CMD
126 :
127 : LD B,ODH ; Символ с кодом 13
128 : LD DE,TXPRT
129 : TXLP1:
130 : LD A,(DE) ; ЗАПИСАТЬ ДАННЫЕ
131 : CALL ADT
132 : INC DE
133 : DJNZ TXLP1
134 :
135 : LD A,AWROFF ; АВТО СБРОС
136 : CALL CMD
137 : ;
138 : ; ЗАПИСАТЬ ДАННЫЕ ТЕКСТОВОГО ИЗОБРАЖЕНИЯ (верхняя часть
ВНЕШНЕГО ЗНАКОГЕНЕРАТОРА)
139 :
140 : LD HL,006CH ; Указатель Адреса 5 Строк, 8 Столбцов
141 : CALL DT2
142 : LD A,ADPSET
143 : CALL CMD
144 :
145 : LD A,AWRON ; УСТАНОВИТЬ АВТО ЗАПИСЬ ДАННЫХ
146 : CALL CMD
147 :
148 : LD B,06H ; Символ с кодом 6
149 : LO DE,EXPRT1
150 : TXLP2;
151 : LD A,(DE) ; ЗАПИСЬ ДАННЫХ
152 : CALL ADT
153 : INC DE
154 : DJNZ TXLP2
155 :
156 : LD A,AWROFF ; АВТО СБРОС
157 : CALL CMD
158 :
159 : ; ЗАПИСАТЬ ДАННЫЕ ТЕКСТОВОГО ИЗОБРАЖЕНИЯ (нижняя часть
ВНЕШНЕГО ЗНАКОГЕНЕРАТОРА)
160 : ;
161 : LD HL,0080H ; Указатель Адреса 6 Строк, 8 Столбцов
16Z : CALL DT2
163 : LD A,ADPSET
164 : CALL CMD
165 :
166 : LD A,AWRON ; УСТАНОВИТЬ АВТО ЗАПИСЬ ДАННЫХ
167 : CALL CMD
168 :
169 : LD B,06H ; Символ с кодом 6
170 : LD DE,EXPRT2
171 : TXLP3:
172 : LD A,(DE) ; ЗАПИСАТЬ ДАННЫЕ
173 : CALL ADT
174 : INC DE
175 : DJNZ TXLP3
176 :
177 : LD A,AWROFF ; АВТО СБРОС
178 : CALL CMD
179 : PEND:
180 : JP PEND ; КОНЕЦ ПРОГРАММЫ
181 :
182 : ; Начало подпрограмм
183 : ;
184 : ; ПРОЦЕДУРА КОМАНДЫ ЗАПИСИ
185 : ;
186 : CMD:
187 : PUSH AF
188 : CMD1: IN A,(CMDP)
189 : AND 03H
190 : CP 03H ; ПРОВЕРКА СТАТУСА
191 : OR NZ,CMD1
192 : POP AF
193 : OUT (CMDP),A ; КОМАНДА ЗАПИСИ
194 : RET
195 : ;
196 : ; ПРОЦЕДУРА ЗАПИСИ ДАННЫХ (1 байт)
197 : ;
198 : DT1:
199 : PUSH AF
200 : DT11: IN A,(CMDP)
201 : AND 03H
202 : CP 03H ; ПРОВЕРКА СТАТУСА
203 : JR NZ,DT11
204 : POP AF
205 : OUT (DP),A ; ЗАПИСЬ ДАННЫХ
206 : RET
207 : ;
208 : ; ПРОЦЕДУРА ЗАПИСИ ДАННЫХ (2 байта)
209 : ;
210 : DT2:
211 : IN A,(CMDP)
212 : AND 03H
213 : CP 03H ; ПРОВЕРКА СТАТУСА
214 : JR NZ,DT2
215 : LD A,L
216 : OUT (DP),A ; ЗАПИСЬ ДАННЫХ (Dl)
217 : DT21:
218 : IN A,(CMDP)
219 : AND 03H
220 : CP 03H ; ПРОВЕРКА СТАТУСА
221 : JR NZ,DT21
222 :
223 : LD A,H
224 : OUT (DP),A ; ЗАПИСЬ ДАННЫХ (D2)
225 : RET
226 :
227 : ; ПРОЦЕДУРА РЕЖИМА АВТОМАТИЧЕСКОЙ ЗАПИСИ
228 :
229 : ADT:
230 : PUSH AF
231 : ADT1: IN A,(CMDP)
232 : AND 08H
233 : CP 08H ; ПРОВЕРКА СТАТУСА
234 : JR NZ,ADT1
235 : POP AF
236 : OUT (DP),A ; ЗАПИСЬ ДАННЫХ
237 : RET
238 : ;
239 : ; Конец подпрограмм
240 : ;
241 : ; КОДЫ СИМВОЛОВ ТЕКСТОВОГО ИЗОБРАЖЕНИЯ
242 : ;
243 : TXPRT:
244 : DEFB 34H,00H,2FH,00H,33H,00H ; КОД ВНУТРЕННЕГО ЗНАКОГЕНЕРАТОРА
245 : DEFB 28H,00H,29H,00H,22H,00H,21H
246 : EXPRT1:
247 : DEFB 80H,81H,00H,00H,84H,85H ; КОД ВНЕШНЕГО ЗНАКОГЕНЕРАТОРА
248 : EXPRT2:
249 : DEFB 82H,83H,00H,00H,86H,87H
250 : ;
251 : ; ДАННЫЕ ШРИФТА ВНЕШНЕГО ЗНАКОГЕНЕРАТОРА
252 : ;
253 : EXTCG:
254 : ;
255 : ; r^J вверх/влево КОД СИМВОЛА 80H
256 : DEFB 01H,01H,0FFH,01H,3FH,21H,3FH,21H
257 :
258 : ; r^J вверх/вправо КОД СИМВОЛА 81H
259 : DEFB 00H,00H,0FFH,00H,0FCH,04H,0FCH,04H
260 :
261 : ; r^J вниз/влево КОД СИМВОЛА 82H
262 : DEFB 21H,3FH,05H,0DH,19H,31H,0E1H,01H
263 :
264 : ; r^J вниз/вправо КОД СИМВОЛА 83H
265 : DEFB 04H,0FCH,40H,60H,30H,1CH,07H,00H
266 :
267 : ; r^J вверх/влево КОД СИМВОЛА 84H
268 : DEFB 08H,08H,0FFH,08H,09H,01H,01H,7FH
269 :
270 : ; r^J вверх/вправо КОД СИМВОЛА 85H
271 : DEFB 10H,10H,0FFH,10H,10H,00H,00H,0FCH
272 :
273 : ; r^J вниз/влево КОД СИМВОЛА 86H
274 : DEFB 00H,00H,00H,01H,07H,3CH,0E7H,00H
275 :
276 : ; rSJ вниз/вправо КОД СИМВОЛА 87H
277 : DEFB 18H,30H,60H,0C0H,00H,00H,0E0H,3FH
278 : ;
279 : END
Образец показа
|
