1			   1: ; MCU=69P56
2			   2: IE		EQU	00H     ; Interrupt enable flags
3			   3: IRQ		EQU	01H     ; Interrupt request flags
4			   4: TM0		EQU	02H             
5			   5: TM1		EQU	03H
6			   6: TL0		EQU	04H
7			   7: TH0		EQU	05H
8			   8: TL1		EQU	06H
9			   9: TH1		EQU	07H
10			   10: PA		EQU	08H
11			   11: PB		EQU	09H
12			   12: PC		EQU	0AH
13			   13: PD		EQU	0BH
14			   14: PE		EQU	0CH
15			   15: CONTROL		EQU	0DH
16			   16: TBR		EQU	0EH
17			   17: INX		EQU	0FH
18			   18: DPL		EQU	10H
19			   19: DPM		EQU	11H
20			   20: DPH		EQU	12H
21			   21: TIMCTL		EQU	13H
22			   22: PBINT		EQU	14H
23			   23: PBIRQ		EQU	15H
24			   24: ALARM		EQU	16H
25			   25: AEC		EQU	17H
26			   26: PAC		EQU	18H
27			   27: PBC		EQU	19H
28			   28: PCC		EQU	1AH
29			   29: PDC		EQU	1BH
30			   30: PEC		EQU	1CH
31			   31: ELON		EQU	1DH
32			   32: WDTC		EQU	1EH
33			   33: ;		RESERVED
34			   
35			   35: VREFADC		EQU	20H
36			   36: ADCSEL		EQU	21H
37			   37: ADCOSC		EQU	22H
38			   38: ADCL		EQU	23H
39			   39: ADCH		EQU	24H
40			   40: LCDON		EQU	25H
41			   41: DUTY		EQU	26H
42			   42: LCDC		EQU	27H
43			   
44			   
45			   45: PWMC0		EQU	00H
46			   46: PWMC1		EQU	01H
47			   47: PWMP0L		EQU	02H
48			   48: PWMP0M		EQU	03H
49			   49: PWMP0H		EQU	04H
50			   50: PWMD0L		EQU	05H
51			   51: PWMD0M		EQU	06H
52			   52: PWMD0H		EQU	07H
53			   53: PWMP1L		EQU	08H
54			   54: PWMP1M		EQU	09H
55			   55: PWMP1H		EQU	0AH
56			   56: PWMD1L		EQU	0BH
57			   57: PWMD1M		EQU	0CH
58			   58: PWMD1H		EQU	0DH
59			   59: RDT0		EQU	0EH
60			   60: RDT1		EQU	0FH
61			   61: RDT2		EQU	10H
62			   62: RDT3		EQU	11H
63			   63: ;====================================================
64			   64: BUFFL		EQU	31H
65			   65: BUFFM		EQU	32H
66			   66: BUFFH		EQU	33H
67			   
68			   
69			   
70			   70: TEMP		EQU	60H		; BANK0  
71			   71: TEMPL		EQU	61H		; BANK0
72			   72: TEMPH		EQU	62H		; BANK0
73			   73: SINFLG		EQU	63H		; BANK0 
74			   
75			   75: PSH		EQU	50H		; BANK1
76			   76: DTNUML		EQU	51H		; BANK1
77			   77: DTNUMH		EQU	52H		; BANK1
78			   78: BDPL		EQU	53H		; BANK1
79			   79: BDPM		EQU	54H		; BANK1
80			   80: BDPH		EQU	55H		; BANK1
81			   
82			   82: ; (60H-7CH) BANK1 STORE RECEIVE DATA (0E0H-0FCH)
83			   83: ;====================================================
84			   84: ;====================================================
85			   85: ;		JMP	MAINPROG
86			   86: ;		JMP	ADCINT		; ADC
87			   87: ;		JMP	TIME0INT	; TIMER0
88			   88: ;		JMP	TIME1INT	; TIMER1
89			   89: ;		JMP	PORTBINT	; PORTB INT
90			   90: ;****************************************************
91			   91: ;****************************************************
92			   92: 		ORG	0000H
93	0x0000	0xe005	   93: 		JMP	MAINPROG
94	0x0001	0xffff	   94: 		NOP
95	0x0002	0xffff	   95: 		NOP
96	0x0003	0xffff	   96: 		NOP
97	0x0004	0xe800	   97: 		JMP	PORTBINT
98			   98: 		
99			   
100			   100: ;****************************************************
101			   101: ;****************************************************
102			   102: MAINPROG:
103	0x0005	0x7800	   103: 		LDI	IE,0		; Disable Interrupt
104	0x0006	0x7801	   104: 		LDI	IRQ,0		; Clear all interrupt flags
105	0x0007	0x7a1e	   105: 		LDI	WDTC,4		; WDT 64MS
106			   106: 		
107			   
108			   108: 		
109			   109: 		
110	0x0008	0x7e8d	   110: 		LDI	CONTROL,13	; OPEN 4M OSCX
111	0x0009	0x7933	   111: 		LDI	BUFFH,2
112	0x000a	0x7831	   112: 		LDI	BUFFL,0
113	0x000b	0xffff	   113: MAINWAIT:	NOP
114	0x000c	0xffff	   114: 		NOP
115	0x000d	0x58b1	   115: 		SBIM	BUFFL,1
116	0x000e	0x800b	   116: 		BNZ	MAINWAIT
117	0x000f	0x7a1e	   117: 		LDI	WDTC,4		; WDT 64MS
118	0x0010	0x58b3	   118: 		SBIM	BUFFH,1
119	0x0011	0x800b	   119: 		BNZ	MAINWAIT
120	0x0012	0x7f8d	   120: 		LDI	CONTROL,15	; MAIN CLOCK 4M
121	0x0013	0xffff	   121: 		NOP
122	0x0014	0xffff	   122: 		NOP
123	0x0015	0x7933	   123: 		LDI	BUFFH,2
124	0x0016	0xc03e	   124: 		CALL	DELAY_TIMES_XX	; DISPLAY 2S
125	0x0017	0xffff	   125: 		NOP
126	0x0018	0xffff	   126: 		NOP
127			   127: 		
128			   
129			   
130			   
131			   
132	0x0019	0x7813	   132: 		LDI	TIMCTL,0	; TIM0 =OSC TIM1=OSC SYS
133	0x001a	0x7903	   133: 		LDI	TM1,2
134	0x001b	0x7806	   134: 		LDI	TL1,0
135	0x001c	0x7807	   135: 		LDI	TH1,0
136	0x001d	0x7860	   136: 		LDI	TEMP,0
137	0x001e	0x3cd1	   137: 		STA	DTNUML,1
138	0x001f	0x3cd2	   138: 		STA	DTNUMH,1
139	0x0020	0x7819	   139: 		LDI	PBC,0
140	0x0021	0x7f89	   140: 		LDI	PB,15
141	0x0022	0x7c14	   141: 		LDI	PBINT,8		; PB.0 RECEIVE
142	0x0023	0x7815	   142: 		LDI	PBIRQ,0
143	0x0024	0x7863	   143: 		LDI	SINFLG,0
144	0x0025	0x7801	   144: 		LDI	IRQ,0
145	0x0026	0x6880	   145: 		ORIM	IE,1		; ENABLE PORTB INT
146			   146: ;====================================================
147			   147: ;====================================================
148			   148: MAINLOOP:
149			   149: 		
150			   150: 		
151	0x0027	0x7960	   151: 		LDI	TEMP,2
152	0x0028	0x3001	   152: 		AND	IRQ,0
153	0x0029	0x9039	   153: 		BAZ	NOTRECOVER
154	0x002a	0x7681	   154: 		ANDIM	IRQ,13
155	0x002b	0x3863	   155: 		LDA	SINFLG,0
156	0x002c	0x9039	   156: 		BAZ	NOTRECOVER
157	0x002d	0x7863	   157: 		LDI	SINFLG,0	
158	0x002e	0x38d1	   158: 		LDA	DTNUML,1
159	0x002f	0x8039	   159: 		BNZ	NOTRECOVER
160	0x0030	0x7be0	   160: 		LDI	TEMP,7
161	0x0031	0x38d2	   161: 		LDA	DTNUMH,1
162	0x0032	0x1860	   162: 		SUB	TEMP,0
163	0x0033	0x8039	   163: 		BNZ	NOTRECOVER
164			   164: ;----------------------------------------------------
165	0x0034	0xffff	   165: 		NOP			; RECEIVE OK
166	0x0035	0xffff	   166: 		NOP
167			   167: 					; ADD YOU PROGRAM
168			   
169	0x0036	0x7860	   169: 		LDI	TEMP,0
170	0x0037	0x3cd2	   170: 		STA	DTNUMH,1
171	0x0038	0x3cd1	   171: 		STA	DTNUML,1
172			   172: ;----------------------------------------------------
173	0x0039	0x3863	   173: NOTRECOVER:	LDA	SINFLG,0
174	0x003a	0x803d	   174: 		BNZ	NOTCLRTIM1
175	0x003b	0x7806	   175: 		LDI	TL1,0
176	0x003c	0x7807	   176: 		LDI	TH1,0
177			   177: NOTCLRTIM1:
178			   178: 	
179			   179: 		
180	0x003d	0xe027	   180: 		JMP	MAINLOOP
181			   181: ;****************************************************
182			   182: ;****************************************************
183			   
184			   
185			   
186			   
187			   187: ;****************************************************
188			   188: ;****************************************************
189			   189: DELAY_TIMES_XX:				; BUFFH=?
190	0x003e	0x7fb2	   190: 		LDI	BUFFM,15
191	0x003f	0x7fb1	   191: 		LDI	BUFFL,15
192	0x0040	0xffff	   192: DLYTM10:	NOP
193	0x0041	0xffff	   193: 		NOP
194	0x0042	0x58b1	   194: 		SBIM	BUFFL,1
195	0x0043	0x8040	   195: 		BNZ	DLYTM10
196	0x0044	0x7a1e	   196: 		LDI	WDTC,4		; WDT 64MS
197	0x0045	0x58b2	   197: 		SBIM	BUFFM,1
198	0x0046	0x8040	   198: 		BNZ	DLYTM10
199	0x0047	0x58b3	   199: 		SBIM	BUFFH,1
200	0x0048	0x8040	   200: 		BNZ	DLYTM10
201	0x0049	0xd400	   201: 		RTNI
202			   202: ;****************************************************
203			   203: ;****************************************************
204			   204: 		ORG	800H
205			   205: 		
206	0x0800	0x3cd0	   206: PORTBINT:	STA	PSH,1
207	0x0801	0x7801	   207: 		LDI	IRQ,0
208	0x0802	0x3815	   208: 		LDA	PBIRQ,0
209	0x0803	0xb805	   209: 		BA3	RECEIVENT
210	0x0804	0xe86d	   210: 		JMP	PORTBINTEN
211	0x0805	0x3863	   211: RECEIVENT:	LDA	SINFLG,0
212	0x0806	0x800b	   212: 		BNZ	RECEIVEFNT
213	0x0807	0x7806	   213: 		LDI	TL1,0
214	0x0808	0x7807	   214: 		LDI	TH1,0
215	0x0809	0x78e3	   215: 		LDI	SINFLG,1
216	0x080a	0xe86d	   216: 		JMP	PORTBINTEN
217	0x080b	0x50e3	   217: RECEIVEFNT:	SBI	SINFLG,1
218	0x080c	0x8019	   218: 		BNZ	RECEIVEDAT
219	0x080d	0x3807	   219: 		LDA	TH1,0
220	0x080e	0x3c62	   220: 		STA	TEMPH,0
221	0x080f	0x3806	   221: 		LDA	TL1,0
222	0x0810	0x3c61	   222: 		STA	TEMPL,0
223	0x0811	0x7806	   223: 		LDI	TL1,0
224	0x0812	0x7807	   224: 		LDI	TH1,0
225	0x0813	0x5162	   225: 		SBI	TEMPH,2
226	0x0814	0x886d	   226: 		BNC	PORTBINTEN
227	0x0815	0x5262	   227: 		SBI	TEMPH,4
228	0x0816	0x986d	   228: 		BC	PORTBINTEN
229	0x0817	0x7963	   229: 		LDI	SINFLG,2	; FONT OK
230	0x0818	0xe86d	   230: 		JMP	PORTBINTEN
231	0x0819	0x5163	   231: RECEIVEDAT:	SBI	SINFLG,2
232	0x081a	0x806d	   232: 		BNZ	PORTBINTEN
233			   233: 		
234	0x081b	0x3807	   234: 		LDA	TH1,0
235	0x081c	0x3c62	   235: 		STA	TEMPH,0
236	0x081d	0x3806	   236: 		LDA	TL1,0
237	0x081e	0x3c61	   237: 		STA	TEMPL,0
238	0x081f	0x7806	   238: 		LDI	TL1,0
239	0x0820	0x7807	   239: 		LDI	TH1,0
240			   
241			   241: 		
242			   
243	0x0821	0x5162	   243: 		SBI	TEMPH,2
244	0x0822	0x986d	   244: 		BC	PORTBINTEN
245	0x0823	0x3862	   245: 		LDA	TEMPH,0
246	0x0824	0x8027	   246: 		BNZ	PORTBINTXX
247	0x0825	0x51e1	   247: 		SBI	TEMPL,3
248	0x0826	0x886d	   248: 		BNC	PORTBINTEN	; DAT: 03<TH1,TL1<14H OK
249			   249: PORTBINTXX:		
250	0x0827	0x7be2	   250: 		LDI	TEMPH,7
251	0x0828	0x18d2	   251: 		SUB	DTNUMH,1	; DATNUM<70H
252	0x0829	0x986d	   252: 		BC	PORTBINTEN
253			   253: 		
254	0x082a	0x7862	   254: 		LDI	TEMPH,0
255	0x082b	0x55e1	   255: 		SBI	TEMPL,11
256	0x082c	0x882e	   256: 		BNC	RECDATCHG
257	0x082d	0x78e2	   257: 		LDI	TEMPH,1		; DAT=0/1
258			   258: RECDATCHG:
259	0x082e	0x3812	   259: 		LDA	DPH,0
260	0x082f	0x3cd5	   260: 		STA	BDPH,1
261	0x0830	0x3811	   261: 		LDA	DPM,0
262	0x0831	0x3cd4	   262: 		STA	BDPM,1
263	0x0832	0x3810	   263: 		LDA	DPL,0
264	0x0833	0x3cd3	   264: 		STA	BDPL,1
265			   265: 		
266	0x0834	0x7892	   266: 		LDI	DPH,1
267	0x0835	0x38d1	   267: 		LDA	DTNUML,1
268	0x0836	0xf000	   268: 		SHR
269	0x0837	0xf000	   269: 		SHR
270	0x0838	0x3c10	   270: 		STA	DPL,0
271	0x0839	0x38d2	   271: 		LDA	DTNUMH,1
272	0x083a	0xf000	   272: 		SHR
273	0x083b	0xf000	   273: 		SHR
274	0x083c	0x3c11	   274: 		STA	DPM,0
275	0x083d	0x4b11	   275: 		ADIM	DPM,6
276	0x083e	0x79e1	   276: 		LDI	TEMPL,3
277	0x083f	0x30d2	   277: 		AND	DTNUMH,1
278	0x0840	0x3c61	   278: 		STA	TEMPL,0
279	0x0841	0x0c61	   279: 		ADDM	TEMPL,0
280	0x0842	0x0c61	   280: 		ADDM	TEMPL,0
281	0x0843	0x0c10	   281: 		ADDM	DPL,0
282			   282: 		
283	0x0844	0x79e1	   283: 		LDI	TEMPL,3
284	0x0845	0x30d1	   284: 		AND	DTNUML,1
285	0x0846	0x3c61	   285: 		STA	TEMPL,0
286	0x0847	0x9061	   286: 		BAZ	RECDATNXT0
287	0x0848	0x50e1	   287: 		SBI	TEMPL,1
288	0x0849	0x905a	   288: 		BAZ	RECDATNXT1
289	0x084a	0x5161	   289: 		SBI	TEMPL,2
290	0x084b	0x9053	   290: 		BAZ	RECDATNXT2
291	0x084c	0x3862	   291: 		LDA	TEMPH,0
292	0x084d	0x9063	   292: 		BAZ	RECDATNXTEN
293	0x084e	0x7c61	   293: 		LDI	TEMPL,8
294	0x084f	0x380f	   294: 		LDA	INX,0
295	0x0850	0x2c61	   295: 		ORM	TEMPL,0
296	0x0851	0x3c0f	   296: 		STA	INX,0
297	0x0852	0xe863	   297: 		JMP	RECDATNXTEN
298	0x0853	0x3862	   298: RECDATNXT2:	LDA	TEMPH,0
299	0x0854	0x9063	   299: 		BAZ	RECDATNXTEN
300	0x0855	0x7a61	   300: 		LDI	TEMPL,4
301	0x0856	0x380f	   301: 		LDA	INX,0
302	0x0857	0x2c61	   302: 		ORM	TEMPL,0
303	0x0858	0x3c0f	   303: 		STA	INX,0
304	0x0859	0xe863	   304: 		JMP	RECDATNXTEN
305	0x085a	0x3862	   305: RECDATNXT1:	LDA	TEMPH,0
306	0x085b	0x9063	   306: 		BAZ	RECDATNXTEN
307	0x085c	0x7961	   307: 		LDI	TEMPL,2
308	0x085d	0x380f	   308: 		LDA	INX,0
309	0x085e	0x2c61	   309: 		ORM	TEMPL,0
310	0x085f	0x3c0f	   310: 		STA	INX,0
311	0x0860	0xe863	   311: 		JMP	RECDATNXTEN
312	0x0861	0x3862	   312: RECDATNXT0:	LDA	TEMPH,0
313	0x0862	0x3c0f	   313: 		STA	INX,0
314			   314: RECDATNXTEN:
315	0x0863	0x38d5	   315: 		LDA	BDPH,1
316	0x0864	0x3c12	   316: 		STA	DPH,0
317	0x0865	0x38d4	   317: 		LDA	BDPM,1
318	0x0866	0x3c11	   318: 		STA	DPM,0
319	0x0867	0x38d3	   319: 		LDA	BDPL,1
320	0x0868	0x3c10	   320: 		STA	DPL,0
321	0x0869	0x78e2	   321: 		LDI	TEMPH,1
322	0x086a	0x0cd1	   322: 		ADDM	DTNUML,1
323	0x086b	0x7862	   323: 		LDI	TEMPH,0
324	0x086c	0x04d2	   324: 		ADCM	DTNUMH,1	; DATA NUMBER
325			   325: 		
326			   326: 		
327	0x086d	0x7815	   327: PORTBINTEN:	LDI	PBIRQ,0
328	0x086e	0x6880	   328: 		ORIM	IE,1		; ENABLE PORTB INT
329	0x086f	0x38d0	   329: 		LDA	PSH,1
330	0x0870	0xd400	   330: 		RTNI
331			   331: ;****************************************************
332			   332: ;****************************************************
333			   
334			   334: ;****************************************************
335			   335: ;****************************************************
336			   336: 		END