HTML      PDF
, , , , msp430, MSP430, Atmel, Maxim, LCD, hd44780, t6963, sed1335, SED1335, mega128, avr, mega128  
  > > > T6963C

 







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 - - - - - - -



 
? | | |
. : +7 (495) 514 4110. e-mail:info@eust.ru
©1998-2016