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

Îáðàçåö ïîêàçà

---

Ãëàâíàÿ - Ìèêðîñõåìû - DOC - ÆÊÈ - Èñòî÷íèêè ïèòàíèÿ - Ýëåêòðîìåõàíèêà - Èíòåðôåéñû - Ïðîãðàììû - Ïðèìåíåíèÿ - Ñòàòüè