r08cnvlcdclk1.ms

用SAM72N9写的电子秤文档

.stabs "D:\Hcy_Projects\CLOCK_KITCHEN\SOURCE\CnvLCDDec10\R08CnvLCDClk1.S", FileName
;
; Copy right Oriental Skill (Asia) Ltd 
; October 24, 2003
;
; Created by Kwan for Testing
;
;
; Scratch Pad memory from 0H ~ 0FH (M0~MF)
; User RAM from 10H ~ 2FH (32 nibbles)
; Stack from 30H~4FH
; LCD RAM from 90H ~ AFH -- However A4H~AFH may be used
; as user RAM because S13~S19 segment are not used
; in this application.
;
; v02 03-12-4 14:14 
;  1. after battery insert to the scale, the display time should be 12:00 a.m.
;  2. the scale can enter calibration moe at anytime during clock display
;  3. to avoid abnormal operarion, program EPSON IC so that it cann't turn on
;     within 2s after the scale turn off.
; v03 03-12-9 12:24
;  1. add the function that if no key input within 30s program return to 
;     the view clock mode

;#define	SHOWLDIGITCMD	2
;#define	SHOWSDIGITCMD	3
;#define	SHOWICONCMD	4
;#define	SHOWMSGCMD	5

;#define	CLOCKMODE	0
;#define	WEIGHTMODE	1
;#define	CALIBRATEMODE	2

;#define	KeyHoldTm	M0
;#define	KeyFlags	M1
;#define	RegKeyFlags	1	; same as KeyFlags
;CommCount	EQU	M2	; bit count for comm
;#define	KeyHoldFlag	1
;#define	NewKeyFlag	2
;#define	DisFlashFlag	4
;#define	TimeFormatFlag	8	; 0: 12 hour, 1: 24 hour
;#define		KeyCode	M3
;#define	RegKeyCode	3
;#define	SendData	M4
;#define	RegSendData	4

;#define		Tmr15s	M5
;CommFlag	EQU	M6

;#define	ComDigHBuf	M6
;#define	DigitHBuf	M7

;#define		Tmr1s	M8
;#define		Tmr2s	M9


;
;#define		RTCSec	10H
;#define		RTCSecL	10H
;#define		RTCSecH	11H
;#define		RTCMin	12H
;#define		RTCMinL	12H
;#define		RTCMinH	13H
;#define		RTCHour	14H
;#define	RTCHourL	14H
;#define	RTCHourH	15H
;


;#define	RxStartBufL	20h	; start code 
;RxCommand	equ	21h
;#define	RxBuffer0	21H	; LSBL, ___1, decimal place
;#define	RxBuffer1	22H	; LSBH
;#define	RxBuffer2	23H	; xxx1
;#define	RxBuffer3	24H
;#define	RxBuffer4	25H	; xx1x
;#define	RxBuffer5	26H
;#define	RxBuffer6	27H	; x1xx
;#define	RxBuffer7	28H

;#define		RxIcon0	29h
;#define		RxIcon1	2ah
;#define		RxIcon2	2bH
;#define		RxIcon3	2cH
;#define	RxSBuffer	2dH	; SDIGIT

;#define	RxBuffer8	2eh
;#define	RxBuffer9	2fh

;#define	SumNumRxNibble	30h	; 
;

;#define		ModeOpt	31h	; 0: Clock Mode, 1: weighting Mode, 2: Calibration Mode

;#define	DspHourBuf	32H
;#define	DspHourLBuf	32H
;#define	DspHourHBuf	33H	

;#define	LCDMapMem0	34H	; 1ST DIGIT
;#define	LCDMapMem0H	35H
;#define	LCDMapMem1	36H	; 2ND DIGIT
;#define	LCDMapMem1H	37H
;#define	LCDMapMem2	38H	; 3RD DIGIT
;#define	LCDMapMem2H	39H
;#define	LCDMapMem3	3AH	; 4TH DIGIT
;#define	LCDMapMem3H	3BH
;#define	LCDMapMem4	3CH	; 5,6th digit
;#define	LCDMapMem4H	3DH
;#define	LCDMapMem5	3EH
;#define	LCDMapMem5H	3FH


;#define		AppFlags	16H	
;#define	HalfSecFlag	1
;#define	SecClickFlag	2
;#define	ReqToSendFlag	4	; set when 4 bits has been sent in background
;#define	Rx4BitFlag	8	; set when 4 bits has been received in background

;b0 -- Half second (0->1 0.5 sec, 1->0 1 sec)
;b1 -- second click
;b2 -- RxReady

;#define	CommCount	17H	; bit count for comm
;#define	TmpRTCMinute	18H
;#define	TmpRTCMinuteL	18H	; for the use of time adjustment
;#define	TmpRTCMinuteH	19H
;#define	TmpRTCHour	1AH
;#define	TmpRTCHourL	1aH
;#define	TmpRTCHourH	1bH
;
;#define	CommBufferL	1cH	; Tx/Rx Buffer

;RxNibbleCnt	equ	00h	; 

;#define	RxNibbleCnt	1dh
;#define		KeyFlag	1eH
;NewKey		bit	1eh.0
;KeyHold		bit	1eh.1

;#define	RTC1SecCnt	1fh

;
;
;===========================================================
; Registers
; IC: 6001
;KPort		EQU	0E0H
;IO_Key_On	EQU	1
;IO_Key_Off	EQU	2
;IO_DClk		EQU	4
;;
;Timer		EQU	0E4H	; timer data register
;KPortMask	EQU	0E8H	; interrupt mask for K-port
;TimerMask	EQU	0EBH	
;KIntFactor	EQU	0EDH	; interrupt request flags for Kport
;TIntFactor	EQU	0EFH	; interrupt request flags for Timer
;;
;RPort		EQU	0F3H	; R0 data port
;IO_PowerCtl	EQU	1
;IO_DataOut	EQU	2
;;
;PPort		EQU	0F6H	; P0 data port
;IO_Key_Kg	EQU	1
;IO_Key_ml	EQU	2
;IO_DataIn	EQU	8
;;
;TimerCR		EQU	0F9H
;;b2=1 to reset clock timer
;;
;HeavyLoad	EQU	0FAH	; heavy load protection register
;;b3=1 if heavy load, b3=0 if normal load
;;
;LCDSwitch	EQU	0FBH	;
;;b3=1 if static, b3=0 if dynamic
;;
;PPortDir	EQU	0FCH	; P-port direction register
;;b0=1 if whole P-port as output, b0=0 if as inout 
;;
;BuzzerFreq	EQU	0FDH	; Buzzer freq


;===========================================================
; Registers
; IC: 60R08
;#define		KPort	0E3H
;IO_Key_On	EQU	1
;IO_Key_Off	EQU	2
;IO_DClk		EQU	4
;#define	IO_Key_On	1
;#define	IO_Key_Kg	2
;#define	IO_Key_ml	4  
;#define	IO_Key_Off	8

;#define		Timer	0E0H	; timer data register
;#define	KPortMask	0E5H	; interrupt mask for K-port
;#define	TimerMask	0E8H	
;#define	KIntFactor	0EAH	; interrupt request flags for Kport
;#define	TIntFactor	0E9H	; interrupt request flags for Timer

;#define		RPort	0EBH	; R0 data port
;#define	IO_PowerCtl	1
;#define	IO_DataOut	2

;#define		PPort	0EDH	; P0 data port
;IO_Key_Kg	EQU	1
;IO_Key_ml	EQU	2
;IO_DataIn	EQU	8

;#define		TimerCR	0EEH
;b2=1 to reset clock timer
;
;#define	HeavyLoad	0E6H	; heavy load protection register
;b3=1 if heavy load, b3=0 if normal load
;
;#define	LCDSwitch	0E8H	;
;b3=1 if static, b3=0 if dynamic
;
;#define	PPortDir	0EEH	; P-port direction register
;b0=1 if whole P-port as output, b0=0 if as inout 



;
; constants defintion
;
;#define		Key_On	0111b	; key code corr. to Samsung's code
;#define		Key_Off	1110b
;#define		Key_Kg	1101b
;#define		Key_ml	1011b
;#define		Key_Nil	0

; key code by hcy 
;Key_On		EQU	1110b	; key code corr. to Samsung's code
;Key_Off		EQU	0111b
;Key_Kg		EQU	1101b
;Key_ml		EQU	1011b
;Key_Nil		EQU	0


; define by hcy
;#define	Key_OnOff	0110b
;#define	Key_OnKg	0101b

;===========================================================
	.org	0
	
;-----------------------------------------------------------
;-----------------------------------------------------------
;	Display routine
;-----------------------------------------------------------
;-----------------------------------------------------------
;	hgfe dcba
;	retd	3fh		; 0
;	retd	06h		; 1
;	retd	5bh		; 2
;	retd	4fh		; 3
;	retd	66h		; 4
;	retd	6dh		; 5
;	retd	7dh		; 6
;	retd	27h		; 7
;	retd	7fh		; 8
;	retd	6fh		; 9
;	retd	77h		; A
;	retd	7ch		; b
;	retd	39h		; C
;	retd	5eh		; d
;	retd	79h		; E
;	retd	71h		; F
;	retd	76h		; H
;	retd	38h		; L
;	retd	31h		; r
;	retd	73h		; P
;	retd	78h		; t
;	retd	3eh		; U
;	retd	40h		; -
;	retd	00h		; ' '

;	cgbh defa (h always 0)
.stabn 278, LineInfo
	retd	0x0af		; 0
.stabn 279, LineInfo
	retd	0x0a0		; 1
.stabn 280, LineInfo
	retd	0x6d		; 2
.stabn 281, LineInfo
	retd	0x0e9		; 3
.stabn 282, LineInfo
	retd	0x0e2		; 4
.stabn 283, LineInfo
	retd	0x0cb		; 5
.stabn 284, LineInfo
	retd	0x0cf		; 6
.stabn 285, LineInfo
	retd	0x0a3		; 7
.stabn 286, LineInfo
	retd	0x0ef		; 8
.stabn 287, LineInfo
	retd	0x0eb		; 9
.stabn 288, LineInfo
	retd	0x0e7		; A
.stabn 289, LineInfo
	retd	0x0ce		; b
.stabn 290, LineInfo
	retd	0x0f		; C
.stabn 291, LineInfo
	retd	0x0af		; D
.stabn 292, LineInfo
	retd	0x4f		; E
.stabn 293, LineInfo
	retd	0x47		; F
.stabn 294, LineInfo
	retd	0x0e6		; H
.stabn 295, LineInfo
	retd	0x0e		; L
.stabn 296, LineInfo
	retd	0x44		; r
.stabn 297, LineInfo
	retd	0x67		; P
.stabn 298, LineInfo
	retd	0x4e		; t
.stabn 299, LineInfo
	retd	0x0ae		; U
.stabn 300, LineInfo
	retd	0x40		; -
.stabn 301, LineInfo
	retd	0x00		; ' '
	
	; fraction table
.stabn 304, LineInfo
	retd	0x18		; 
.stabn 305, LineInfo
	retd	0x14
.stabn 306, LineInfo
	retd	0x38
.stabn 307, LineInfo
	retd	0x12
.stabn 308, LineInfo
	retd	0x58
.stabn 309, LineInfo
	retd	0x34
.stabn 310, LineInfo
	retd	0x78
.stabn 311, LineInfo
	retd	0x98
	
	; denominator(2,4,8) and numerator(1,3,5,7,9) pattern
.stabn 314, LineInfo
	retd	0x00		; dummy
.stabn 315, LineInfo
	retd	0x00		; 1(numerator)
.stabn 316, LineInfo
	retd	0x4A		; 2(denominator)
.stabn 317, LineInfo
	retd	0x30		; 3(numerator)
.stabn 318, LineInfo
	retd	0x0C4		; 4(denominator)
.stabn 319, LineInfo
	retd	0x31		; 5(numerator)
.stabn 320, LineInfo
	retd	0x00		; dummy
.stabn 321, LineInfo
	retd	0x11		; 7(numerator)
.stabn 322, LineInfo
	retd	0x0CE		; 8(denominator)
.stabn 323, LineInfo
	retd	0x31		; 9(numerator)

	
DspPattern:
.stabn 327, LineInfo
	ld	b,0
.stabn 328, LineInfo
	jpba

DspPattern1:
.stabn 331, LineInfo
	ld	b,1
.stabn 332, LineInfo
	jpba	
	
DspDenoNume:
.stabn 335, LineInfo
	ld	b,2
.stabn 336, LineInfo
	jpba

;-------------------------------------
; Cate   : Display
; By     : Hcy
; Func   : display the digit(0--9)
; Desc   : DspDigit
; I/P    : A(0--9),X(address of digit address)
; O/P    : --
; Destroy: A,
; Note   :
DspDigit:
.stabn 348, LineInfo
	push	xl
.stabn 349, LineInfo
	calz	DspPattern
DspDigE:
.stabn 351, LineInfo
	pop	xl
DspCopy:
.stabn 353, LineInfo
	ld	my,mx
.stabn 354, LineInfo
	inc	x
.stabn 355, LineInfo
	inc	y
.stabn 356, LineInfo
	ld	my,mx
.stabn 357, LineInfo
	ret
DspDigit1:
.stabn 359, LineInfo
	push	xl
.stabn 360, LineInfo
	calz	DspPattern1
.stabn 361, LineInfo
	jp	DspDigE	


;-------------------------------------
; Cate   : Display
; By     : Hcy
; Func   : display the digit(0--9)
; Desc   : DspDigit
; I/P    : A(0--9),X(address of digit address)
; O/P    : --
; Destroy: A,
; Note   :
DspDigitW:
.stabn 374, LineInfo
	push	xl
.stabn 375, LineInfo
	calz	DspPattern
DspDigEW:
.stabn 377, LineInfo
	pop	xl

.stabn 379, LineInfo
	ld	my,mx
.stabn 380, LineInfo
	inc	x
.stabn 381, LineInfo
	inc	y
.stabn 382, LineInfo
	ld	a,(M6)
.stabn 383, LineInfo
	or	a,mx
.stabn 384, LineInfo
	ld	my,a
.stabn 385, LineInfo
	ret
DspDigit1W:
.stabn 387, LineInfo
	push	xl
.stabn 388, LineInfo
	calz	DspPattern1
.stabn 389, LineInfo
	jp	DspDigE
	
; I: x(lcd ram address)
DspDigitSpa:	
.stabn 393, LineInfo
	ld	a,0x07
.stabn 394, LineInfo
	calz	DspPattern1
.stabn 395, LineInfo
	ret
;-------------------------------------
; Cate   : Display
; By     : loren
; Func   : display the icon 
; Desc   : DspColonOn
; I/P    : --
; O/P    : --
; Destroy:
; Note   :
DspColonOn:
.stabn 406, LineInfo
	ld	y,(0x37)
.stabn 407, LineInfo
	ld	a,my
.stabn 408, LineInfo
	or	a,0x01
.stabn 409, LineInfo
	ld	y,0x044
.stabn 410, LineInfo
	ld	my,a
.stabn 411, LineInfo
	ret

;-------------------------------------
; Cate   : Display
; By     : loren
; Func   : display off the icon 
; Desc   : DspColonOff
; I/P    : --
; O/P    : --
; Destroy:
; Note   : 
DspColonOff:
.stabn 423, LineInfo
	ld	y,(0x37)
.stabn 424, LineInfo
	ld	a,my
.stabn 425, LineInfo
	and	a,0b1110
.stabn 426, LineInfo
	ld	y,0x044
.stabn 427, LineInfo
	ld	my,a
DspCO:
.stabn 429, LineInfo
	ret

;-------------------------------------
;-------------------------------------
; Cate   :Dosplay
; By     :Kwan
; Func   :Flash the colon
; Desc   :
; I/P    :---
; O/P    :
; Destroy:
; Note   : turn on/off the colon according to 
; 	   HalfSecFlag
;
FlashColon:
.stabn 444, LineInfo
	ld	y,(0x31)
.stabn 445, LineInfo
	fan	my,0b1111
.stabn 446, LineInfo
	jp	nz,DspCO		; jmp if not clock mode
	
.stabn 448, LineInfo
	ld	y,(0x16)
.stabn 449, LineInfo
	FAN	my,(1)
.stabn 450, LineInfo
	Jp	z,DspColonOff
.stabn 451, LineInfo
	jp	DspColonOn

DspHourL:
.stabn 454, LineInfo
	ld	x,(0x36)
.stabn 455, LineInfo
	ld	y,0x043
.stabn 456, LineInfo
	calz	DspPattern
.stabn 457, LineInfo
	ld	x,(0x36)
.stabn 458, LineInfo
	ld	my,mx
.stabn 459, LineInfo
	inc	x
.stabn 460, LineInfo
	inc	y
.stabn 461, LineInfo
	ld	a,mx
.stabn 462, LineInfo
	or	a,0b0001
.stabn 463, LineInfo
	ld	my,a
.stabn 464, LineInfo
	ret
ClrAmPm:
.stabn 466, LineInfo
	ld	x,0x040
.stabn 467, LineInfo
	calz	DspDigitSpa		; ' ' 	
.stabn 468, LineInfo
	ld	x,0x04c
.stabn 469, LineInfo
	calz	DspDigitSpa
.stabn 470, LineInfo
	ret

FlashHour:
.stabn 473, LineInfo
	ld	x,(0x16)
.stabn 474, LineInfo
	FAN	mx,(1)
.stabn 475, LineInfo
	Jp	z,DspHourOff
;-------------------------------------
; Cate   : Display
; By     : Hcy
; Func   : Display the time
; Desc   : DspTime
; I/P    : y(ram address)
; O/P    : --
; Destroy:
; Note   :
DspTime:
DspHour:
	; display hour xx
;	ld	x,RTCHourH
.stabn 489, LineInfo
	ld	x,(1)
.stabn 490, LineInfo
	fan	mx,(8)
.stabn 491, LineInfo
	jp	nz,DspH0			; jmp if 24 hour format
.stabn 492, LineInfo
	call	IsEquZero
.stabn 493, LineInfo
	jp	c,NDspH00
.stabn 494, LineInfo
	call	IsEqu12
.stabn 495, LineInfo
	jp	c,DspH00		; jmp if hour =12
.stabn 496, LineInfo
	call	Sub12D
.stabn 497, LineInfo
	jp	nc,DspH00		; current time > 12
.stabn 498, LineInfo
	call	CopyByte
NDspH00:
.stabn 500, LineInfo
	ld	a,0x08
.stabn 501, LineInfo
	ld	x,0x040
.stabn 502, LineInfo
	ld	mx,a			; 'AM'
.stabn 503, LineInfo
	ld	x,0x04c
.stabn 504, LineInfo
	ld	a,0
.stabn 505, LineInfo
	ld	mx,a			; clr'pm'
.stabn 506, LineInfo
	jp	DspH1
DspH00:
.stabn 508, LineInfo
	ld	a,0x01
.stabn 509, LineInfo
	ld	x,0x04c
.stabn 510, LineInfo
	ld	mx,a			; 'PM'
.stabn 511, LineInfo
	ld	a,0
.stabn 512, LineInfo
	ld	x,0x040