mjl-cn.asm

用PIC控制lcd-12232F液晶LCD的中文显示

	MOVE?CB	001h, _runtimes
	LABEL?L	L00248	
	LABEL?L	L00246	
	CMPNE?TCL	_PORTB_3, 000h, L00250
	SUB?BCB	_runtimes, 001h, _runtimes
	CMPGE?BCL	_runtimes, 001h, L00252
	MOVE?CB	063h, _runtimes
	LABEL?L	L00252	
	LABEL?L	L00250	
	RETURN?	

	LABEL?L	_secs	
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	MOVE?CB	001h, _i
	LABEL?L	L00254	
	CMPGT?BCL	_i, 003h, L00255
	LCDOUT?C	0FEh
	LCDOUT?C	014h
	NEXT?BCL	_i, 001h, L00254
	LABEL?L	L00255	
	LCDOUT?C	0FEh
	LCDOUT?C	00Eh
	PAUSE?C	032h
	CMPNE?TCL	_PORTB_2, 000h, L00256
	ADD?BCB	_runsec, 001h, _runsec
	CMPLE?BCL	_runsec, 0FFh, L00258
	MOVE?CB	000h, _runsec
	LABEL?L	L00258	
	LABEL?L	L00256	
	CMPNE?TCL	_PORTB_3, 000h, L00260
	CMPGE?BCL	_runsec, 001h, L00262
	MOVE?CB	0FFh, _runsec
	LABEL?L	L00262	
	SUB?BCB	_runsec, 001h, _runsec
	LABEL?L	L00260	
	RETURN?	

	LABEL?L	_rundata	
	MOVE?CW	014h, _j
	LABEL?L	L00264	
	CMPGT?WCL	_j, 016h, L00265
	I2CDATA?T	_SDA
	I2CCLOCK?T	_SCLK
	I2CWRITE?C	0A0h
	I2CWRITE?W	_j
	I2CWRITE?B	_runtimes
	I2CWRITES?B	_runsec
	PAUSE?C	00Ah
	NEXT?WCL	_j, 002h, L00264
	LABEL?L	L00265	
	RETURN?	

	LABEL?L	_cptcount	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0BCh
	LCDOUT?C	0C6h
	LCDOUT?C	0CAh
	LCDOUT?C	0FDh
	LCDOUT?C	0C6h
	LCDOUT?C	0F7h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0CAh
	LCDOUT?C	0FDh
	LCDOUT?C	03Ah
	LCDOUT?C	020h
	LCDOUT?C	020h
	LCDOUTCOUNT?C	005h
	LCDOUTNUM?W	_counts
	LCDOUTDEC?	
	PAUSE?C	0012Ch
	CMPNE?TCL	_PORTB_1, 000h, L00266
	ADD?BCB	_countcnt, 001h, _countcnt
	CMPLE?BCL	_countcnt, 002h, L00268
	MOVE?CB	001h, _countcnt
	LABEL?L	L00268	
	LABEL?L	L00266	
	CMPNE?BCL	_countcnt, 001h, L00272
	GOSUB?L	_countshow
	GOTO?L	L00271
	LABEL?L	L00272	
	CMPNE?BCL	_countcnt, 002h, L00273
	GOSUB?L	_countshow
	LABEL?L	L00273	
	LABEL?L	L00271	
	GOSUB?L	_countdata
	RETURN?	

	LABEL?L	_countshow	
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	MOVE?CB	001h, _i
	LABEL?L	L00274	
	CMPGT?BCL	_i, 006h, L00275
	LCDOUT?C	0FEh
	LCDOUT?C	014h
	NEXT?BCL	_i, 001h, L00274
	LABEL?L	L00275	
	LCDOUT?C	0FEh
	LCDOUT?C	00Eh
	PAUSE?C	032h
	CMPNE?TCL	_PORTB_2, 000h, L00276
	ADD?WCW	_counts, 001h, _counts
	CMPLE?WCL	_counts, 0FFFFh, L00278
	MOVE?CW	000h, _counts
	LABEL?L	L00278	
	LABEL?L	L00276	
	CMPNE?TCL	_PORTB_3, 000h, L00280
	CMPGE?WCL	_counts, 001h, L00282
	MOVE?CW	0FFFFh, _counts
	LABEL?L	L00282	
	SUB?WCW	_counts, 001h, _counts
	LABEL?L	L00280	
	CMPNE?TCL	_PORTB_5, 000h, L00284
	MOVE?CW	000h, _counts
	LABEL?L	L00284	
	RETURN?	

	LABEL?L	_countdata	
	MOVE?CW	01Eh, _j
	LABEL?L	L00286	
	CMPGT?WCL	_j, 020h, L00287
	I2CDATA?T	_SDA
	I2CCLOCK?T	_SCLK
	I2CWRITE?C	0A0h
	I2CWRITE?W	_j
	I2CWRITES?W	_counts
	PAUSE?C	00Ah
	NEXT?WCL	_j, 002h, L00286
	LABEL?L	L00287	
	RETURN?	

	LABEL?L	_incount	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0C7h
	LCDOUT?C	0D6h
	LCDOUT?C	0C8h
	LCDOUT?C	0EBh
	LCDOUT?C	0BCh
	LCDOUT?C	0C6h
	LCDOUT?C	0CAh
	LCDOUT?C	0FDh
	LCDOUT?C	0C6h
	LCDOUT?C	0F7h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUT?C	0C7h
	LCDOUT?C	0D6h
	LCDOUT?C	0C8h
	LCDOUT?C	0EBh
	LCDOUT?C	0CAh
	LCDOUT?C	0FDh
	LCDOUT?C	03Ah
	LCDOUT?C	020h
	LCDOUT?C	020h
	LCDOUTCOUNT?C	005h
	LCDOUTNUM?W	_incounts
	LCDOUTDEC?	
	PAUSE?C	0012Ch
	CMPNE?TCL	_PORTB_1, 000h, L00288
	ADD?BCB	_incountcnt, 001h, _incountcnt
	CMPLE?BCL	_incountcnt, 002h, L00290
	MOVE?CB	001h, _incountcnt
	LABEL?L	L00290	
	LABEL?L	L00288	
	CMPNE?BCL	_incountcnt, 001h, L00294
	GOSUB?L	_incountshow
	GOTO?L	L00293
	LABEL?L	L00294	
	CMPNE?BCL	_incountcnt, 002h, L00295
	GOSUB?L	_incountshow
	LABEL?L	L00295	
	LABEL?L	L00293	
	GOSUB?L	_incountdata
	RETURN?	

	LABEL?L	_incountshow	
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	MOVE?CB	001h, _i
	LABEL?L	L00296	
	CMPGT?BCL	_i, 006h, L00297
	LCDOUT?C	0FEh
	LCDOUT?C	014h
	NEXT?BCL	_i, 001h, L00296
	LABEL?L	L00297	
	LCDOUT?C	0FEh
	LCDOUT?C	00Eh
	PAUSE?C	032h
	CMPNE?TCL	_PORTB_2, 000h, L00298
	ADD?WCW	_incounts, 001h, _incounts
	CMPLE?WCL	_incounts, 0FFFFh, L00300
	MOVE?CW	000h, _incounts
	LABEL?L	L00300	
	LABEL?L	L00298	
	CMPNE?TCL	_PORTB_3, 000h, L00302
	CMPGE?WCL	_incounts, 001h, L00304
	MOVE?CW	0FFFFh, _incounts
	LABEL?L	L00304	
	SUB?WCW	_incounts, 001h, _incounts
	LABEL?L	L00302	
	CMPNE?TCL	_PORTB_5, 000h, L00306
	MOVE?CW	000h, _incounts
	LABEL?L	L00306	
	RETURN?	

	LABEL?L	_incountdata	
	MOVE?CW	028h, _j
	LABEL?L	L00308	
	CMPGT?WCL	_j, 02Ah, L00309
	I2CDATA?T	_SDA
	I2CCLOCK?T	_SCLK
	I2CWRITE?C	0A0h
	I2CWRITE?W	_j
	I2CWRITES?W	_incounts
	PAUSE?C	00Ah
	NEXT?WCL	_j, 002h, L00308
	LABEL?L	L00309	
	RETURN?	

	LABEL?L	_detecttime	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0C9h
	LCDOUT?C	0E8h
	LCDOUT?C	0B6h
	LCDOUT?C	0A8h
	LCDOUT?C	0BCh
	LCDOUT?C	0ECh
	LCDOUT?C	0B3h
	LCDOUT?C	0F6h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUT?C	020h
	LCDOUT?C	020h
	LCDOUT?C	020h
	LCDOUT?C	020h
	LCDOUTCOUNT?C	004h
	LCDOUTNUM?B	_dtime
	LCDOUTDEC?	
	LCDOUT?C	078h
	LCDOUT?C	031h
	LCDOUT?C	030h
	LCDOUT?C	06Dh
	LCDOUT?C	053h
	PAUSE?C	0012Ch
	CMPNE?TCL	_PORTB_1, 000h, L00310
	ADD?BCB	_dtimecnt, 001h, _dtimecnt
	CMPLE?BCL	_dtimecnt, 002h, L00312
	MOVE?CB	001h, _dtimecnt
	LABEL?L	L00312	
	LABEL?L	L00310	
	CMPNE?BCL	_dtimecnt, 001h, L00316
	GOSUB?L	_dtimeset
	GOTO?L	L00315
	LABEL?L	L00316	
	CMPNE?BCL	_dtimecnt, 002h, L00317
	GOSUB?L	_dtimeset
	LABEL?L	L00317	
	LABEL?L	L00315	
	GOSUB?L	_dtimedata
	RETURN?	

	LABEL?L	_dtimeset	
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	MOVE?CB	001h, _i
	LABEL?L	L00318	
	CMPGT?BCL	_i, 003h, L00319
	LCDOUT?C	0FEh
	LCDOUT?C	014h
	NEXT?BCL	_i, 001h, L00318
	LABEL?L	L00319	
	LCDOUT?C	0FEh
	LCDOUT?C	00Eh
	PAUSE?C	032h
	CMPNE?TCL	_PORTB_2, 000h, L00320
	ADD?BCB	_dtime, 001h, _dtime
	CMPLE?BCL	_dtime, 0C8h, L00322
	MOVE?CB	001h, _dtime
	LABEL?L	L00322	
	LABEL?L	L00320	
	CMPNE?TCL	_PORTB_3, 000h, L00324
	CMPGE?BCL	_dtime, 002h, L00326
	MOVE?CB	0C9h, _dtime
	LABEL?L	L00326	
	SUB?BCB	_dtime, 001h, _dtime
	LABEL?L	L00324	
	CMPNE?TCL	_PORTB_5, 000h, L00328
	MOVE?CB	001h, _dtime
	LABEL?L	L00328	
	RETURN?	

	LABEL?L	_dtimedata	
	MOVE?CW	03Ch, _j
	LABEL?L	L00330	
	CMPGT?WCL	_j, 03Dh, L00331
	I2CDATA?T	_SDA
	I2CCLOCK?T	_SCLK
	I2CWRITE?C	0A0h
	I2CWRITE?W	_j
	I2CWRITES?B	_dtime
	PAUSE?C	00Ah
	NEXT?WCL	_j, 002h, L00330
	LABEL?L	L00331	
	RETURN?	

	LABEL?L	_gettime	
	MOVE?CT	001h, _RST
	SHIFTDATA?T	_IO
	SHIFTCLOCK?T	_SCLK
	SHIFTMODE?C	_LSBFIRST
	SHIFTOUT?CC	0BFh, 008h
	SHIFTDATA?T	_IO
	SHIFTCLOCK?T	_SCLK
	SHIFTMODE?C	_LSBPRE
	SHIFTIN?BC	_rtcsec, 008h
	SHIFTIN?BC	_rtcmin, 008h
	SHIFTIN?BC	_rtchr, 008h
	SHIFTIN?BC	_rtcdate, 008h
	SHIFTIN?BC	_rtcmonth, 008h
	SHIFTIN?BC	_rtcday, 008h
	SHIFTIN?BC	_rtcyear, 008h
	SHIFTIN?BC	_rtccontrol, 008h
	MOVE?CT	000h, _RST
	RETURN?	

	LABEL?L	_waitinglcd	
	CMPLE?WCL	_counts, 000h, L00332
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0D6h
	LCDOUT?C	0B9h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0B4h
	LCDOUT?C	0F8h
	LCDOUT?C	0A1h
	LCDOUT?C	0EFh
	GOTO?L	L00333
	LABEL?L	L00332	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0D6h
	LCDOUT?C	0B9h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0B4h
	LCDOUT?C	0F8h
	LABEL?L	L00333	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcyear
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmonth
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcdate
	LCDOUTHEX?	
	LCDOUT?C	020h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtchr
	LCDOUTHEX?	
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmin
	LCDOUTHEX?	
	LCDOUT?C	020h
	PAUSE?C	001F4h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0D6h
	LCDOUT?C	0B9h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0B4h
	LCDOUT?C	0F8h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcyear
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmonth
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcdate
	LCDOUTHEX?	
	LCDOUT?C	020h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtchr
	LCDOUTHEX?	
	LCDOUT?C	020h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmin
	LCDOUTHEX?	
	LCDOUT?C	020h
	PAUSE?C	001F4h
	RETURN?	

	LABEL?L	_workinglcd	
	CMPLE?WCL	_counts, 000h, L00334
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0B4h
	LCDOUT?C	0F8h
	LCDOUT?C	020h
	LCDOUT?C	020h
	LCDOUT?C	0A1h
	LCDOUT?C	0EFh
	GOTO?L	L00335
	LABEL?L	L00334	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0B4h
	LCDOUT?C	0F8h
	LABEL?L	L00335	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcyear
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmonth
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcdate
	LCDOUTHEX?	
	LCDOUT?C	020h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtchr
	LCDOUTHEX?	
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmin
	LCDOUTHEX?	
	LCDOUT?C	020h
	PAUSE?C	001F4h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0B2h
	LCDOUT?C	0B6h
	LCDOUT?C	0BBh
	LCDOUT?C	0F1h
	LCDOUT?C	0CAh
	LCDOUT?C	0B1h
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0B4h
	LCDOUT?C	0F8h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcyear
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmonth
	LCDOUTHEX?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcdate
	LCDOUTHEX?	
	LCDOUT?C	020h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtchr
	LCDOUTHEX?	
	LCDOUT?C	020h
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_rtcmin
	LCDOUTHEX?	
	LCDOUT?C	020h
	PAUSE?C	001F4h
	RETURN?	

	LABEL?L	_restlcd	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0D1h
	LCDOUT?C	0B1h
	LCDOUT?C	0CAh
	LCDOUT?C	0F3h
	LCDOUT?C	0CDh
	LCDOUT?C	0A3h
	LCDOUT?C	0BBh
	LCDOUT?C	0FAh
	LCDOUT?C	0C6h
	LCDOUT?C	0DAh
	LCDOUT?C	0BCh
	LCDOUT?C	0E4h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUT?C	0CDh
	LCDOUT?C	0A3h
	LCDOUT?C	0BBh
	LCDOUT?C	0FAh
	LCDOUT?C	0C8h
	LCDOUT?C	0D5h
	LCDOUT?C	0CAh
	LCDOUT?C	0FDh
	LCDOUT?C	0A1h
	LCDOUT?C	0C3h
	LCDOUTCOUNT?C	002h
	SUB?BCW	_hcnt, 001h, T1
	LCDOUTNUM?W	T1
	LCDOUTDEC?	
	LCDOUT?C	02Fh
	LCDOUTCOUNT?C	002h
	LCDOUTNUM?B	_wnmb
	LCDOUTDEC?	
	PAUSE?C	0012Ch
	RETURN?	

	LABEL?L	_catcherror	
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	0BCh
	LCDOUT?C	0ECh
	LCDOUT?C	0B2h
	LCDOUT?C	0E9h
	LCDOUT?C	0C6h
	LCDOUT?C	0F8h
	LCDOUT?C	0C6h
	LCDOUT?C	0BFh
	LCDOUT?C	0BAh
	LCDOUT?C	0CDh
	LCDOUT?C	0B9h
	LCDOUT?C	0DCh
	LCDOUT?C	0B5h
	LCDOUT?C	0C0h
	LCDOUT?C	0FEh
	LCDOUT?C	002h
	LCDOUT?C	0FEh
	LCDOUT?C	00Ch
	LCDOUT?C	0FEh
	LCDOUT?C	090h
	LCDOUT?C	0C7h
	LCDOUT?C	0E5h
	LCDOUT?C	0B3h
	LCDOUT?C	0FDh
	LCDOUT?C	0C0h
	LCDOUT?C	0ACh
	LCDOUT?C	0BBh
	LCDOUT?C	0F8h
	LCDOUT?C	0BAh
	LCDOUT?C	0CDh
	LCDOUT?C	0B3h
	LCDOUT?C	0E6h
	LCDOUT?C	0C0h
	LCDOUT?C	0E0h
	PAUSE?C	0012Ch
	CMPNE?TCL	_PORTB_5, 000h, L00336
	MOVE?CB	000h, _almp
	GOSUB?L	_alnormalflagdata
	GOTO?L	_main
	LABEL?L	L00336	
	CMPNE?TCL	_PORTB_6, 000h, L00338
	MOVE?CB	001h, _i
	LABEL?L	L00340	
	CMPGT?BBL	_i, _dtime, L00341
	PAUSE?C	00Ah
	NEXT?BCL	_i, 001h, L00340
	LABEL?L	L00341	
	CMPNE?TCL	_PORTB_6, 000h, L00342
	ADD?WCW	_incounts, 001h, _incounts
	GOSUB?L	_incountdata
	GOSUB?L	_takein
	LABEL?L	L00342	
	LABEL?L	L00338	
	GOTO?L	_catcherror

	LABEL?L	_alnormalflagdata	
	MOVE?CW	050h, _j
	LABEL?L	L00344	
	CMPGT?WCL	_j, 051h, L00345
	I2CDATA?T	_SDA
	I2CCLOCK?T	_SCLK
	I2CWRITE?C	0A0h
	I2CWRITE?W	_j
	I2CWRITES?B	_almp
	PAUSE?C	00Ah
	NEXT?WCL	_j, 002h, L00344
	LABEL?L	L00345	
	RETURN?	

	LABEL?L	_tensec	
	MOVE?CB	001h, _i
	LABEL?L	L00346	
	CMPGT?BCL	_i, 00Ah, L00347
	PAUSE?C	003E8h
	NEXT?BCL	_i, 001h, L00346
	LABEL?L	L00347	
	RETURN?	

	LABEL?L	_fivesec	
	MOVE?CB	001h, _i
	LABEL?L	L00348	
	CMPGT?BCL	_i, 005h, L00349
	PAUSE?C	003E8h
	NEXT?BCL	_i, 001h, L00348
	LABEL?L	L00349	
	RETURN?	
	END?	

	END