cnvlcdclk.ms

用SAM72N9写的电子秤文档

.stabs "D:\Hcy_Projects\CLOCK_KITCHEN\SOURCE\CnvLCDDec02\CnvLCDClk.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.
;
;#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		Tmr30s	M5
;CommFlag	EQU	M6

;#define	ComDigHBuf	M6
;#define	DigitHBuf	M7

;#define		Tmr1s	M8



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


;===========================================================
; Registers
; IC: 60R08
;KPort		EQU	2E3H
;IO_Key_On	EQU	1
;IO_Key_Off	EQU	2
;IO_DClk		EQU	4
;
;Timer		EQU	2E0H	; timer data register
;KPortMask	EQU	2E5H	; interrupt mask for K-port
;TimerMask	EQU	2E8H	
;KIntFactor	EQU	2EAH	; interrupt request flags for Kport
;TIntFactor	EQU	2E9H	; interrupt request flags for Timer
;
;RPort		EQU	2EBH	; R0 data port
;IO_PowerCtl	EQU	1
;IO_DataOut	EQU	2
;
;PPort		EQU	2EDH	; P0 data port
;IO_Key_Kg	EQU	1
;IO_Key_ml	EQU	2
;IO_DataIn	EQU	8
;
;TimerCR		EQU	2EEH
;b2=1 to reset clock timer
;
;HeavyLoad	EQU	2E6H	; heavy load protection register
;b3=1 if heavy load, b3=0 if normal load
;
;LCDSwitch	EQU	2E8H	;
;b3=1 if static, b3=0 if dynamic
;
;PPortDir	EQU	2EEH	; 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

; 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 257, LineInfo
	retd	0x0af		; 0
.stabn 258, LineInfo
	retd	0x0a0		; 1
.stabn 259, LineInfo
	retd	0x6d		; 2
.stabn 260, LineInfo
	retd	0x0e9		; 3
.stabn 261, LineInfo
	retd	0x0e2		; 4
.stabn 262, LineInfo
	retd	0x0cb		; 5
.stabn 263, LineInfo
	retd	0x0cf		; 6
.stabn 264, LineInfo
	retd	0x0a3		; 7
.stabn 265, LineInfo
	retd	0x0ef		; 8
.stabn 266, LineInfo
	retd	0x0eb		; 9
.stabn 267, LineInfo
	retd	0x0e7		; A
.stabn 268, LineInfo
	retd	0x0ce		; b
.stabn 269, LineInfo
	retd	0x0f		; C
.stabn 270, LineInfo
	retd	0x0af		; D
.stabn 271, LineInfo
	retd	0x4f		; E
.stabn 272, LineInfo
	retd	0x47		; F
.stabn 273, LineInfo
	retd	0x0e6		; H
.stabn 274, LineInfo
	retd	0x0e		; L
.stabn 275, LineInfo
	retd	0x44		; r
.stabn 276, LineInfo
	retd	0x67		; P
.stabn 277, LineInfo
	retd	0x4e		; t
.stabn 278, LineInfo
	retd	0x0ae		; U
.stabn 279, LineInfo
	retd	0x40		; -
.stabn 280, LineInfo
	retd	0x00		; ' '
	
	; fraction table
.stabn 283, LineInfo
	retd	0x18		; 
.stabn 284, LineInfo
	retd	0x14
.stabn 285, LineInfo
	retd	0x38
.stabn 286, LineInfo
	retd	0x12
.stabn 287, LineInfo
	retd	0x58
.stabn 288, LineInfo
	retd	0x34
.stabn 289, LineInfo
	retd	0x78
.stabn 290, LineInfo
	retd	0x98
	
	; denominator(2,4,8) and numerator(1,3,5,7,9) pattern
.stabn 293, LineInfo
	retd	0x00		; dummy
.stabn 294, LineInfo
	retd	0x00		; 1(numerator)
.stabn 295, LineInfo
	retd	0x4A		; 2(denominator)
.stabn 296, LineInfo
	retd	0x30		; 3(numerator)
.stabn 297, LineInfo
	retd	0x0C4		; 4(denominator)
.stabn 298, LineInfo
	retd	0x31		; 5(numerator)
.stabn 299, LineInfo
	retd	0x00		; dummy
.stabn 300, LineInfo
	retd	0x11		; 7(numerator)
.stabn 301, LineInfo
	retd	0x0CE		; 8(denominator)
.stabn 302, LineInfo
	retd	0x31		; 9(numerator)

	
DspPattern:
.stabn 306, LineInfo
	ld	b,0
.stabn 307, LineInfo
	jpba

DspPattern1:
.stabn 310, LineInfo
	ld	b,1
.stabn 311, LineInfo
	jpba	
	
DspDenoNume:
.stabn 314, LineInfo
	ld	b,2
.stabn 315, 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 327, LineInfo
	push	xl
.stabn 328, LineInfo
	calz	DspPattern
DspDigE:
.stabn 330, LineInfo
	pop	xl
DspCopy:
.stabn 332, LineInfo
	ld	my,mx
.stabn 333, LineInfo
	inc	x
.stabn 334, LineInfo
	inc	y
.stabn 335, LineInfo
	ld	my,mx
.stabn 336, LineInfo
	ret
DspDigit1:
.stabn 338, LineInfo
	push	xl
.stabn 339, LineInfo
	calz	DspPattern1
.stabn 340, 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 353, LineInfo
	push	xl
.stabn 354, LineInfo
	calz	DspPattern
DspDigEW:
.stabn 356, LineInfo
	pop	xl

.stabn 358, LineInfo
	ld	my,mx
.stabn 359, LineInfo
	inc	x
.stabn 360, LineInfo
	inc	y
.stabn 361, LineInfo
	ld	a,(M6)
.stabn 362, LineInfo
	or	a,mx
.stabn 363, LineInfo
	ld	my,a
.stabn 364, LineInfo
	ret
DspDigit1W:
.stabn 366, LineInfo
	push	xl
.stabn 367, LineInfo
	calz	DspPattern1
.stabn 368, LineInfo
	jp	DspDigE
	
; I: x(lcd ram address)
DspDigitSpa:	
.stabn 372, LineInfo
	ld	a,0x07
.stabn 373, LineInfo
	calz	DspPattern1
.stabn 374, LineInfo
	ret
;-------------------------------------
; Cate   : Display
; By     : loren
; Func   : display the icon 
; Desc   : DspColonOn
; I/P    : --
; O/P    : --
; Destroy:
; Note   :
DspColonOn:
.stabn 385, LineInfo
	ld	y,(0x37)
.stabn 386, LineInfo
	ld	a,my
.stabn 387, LineInfo
	or	a,0x01
.stabn 388, LineInfo
	ld	y,0x094
.stabn 389, LineInfo
	ld	my,a
.stabn 390, LineInfo
	ret

;-------------------------------------
; Cate   : Display
; By     : loren
; Func   : display off the icon 
; Desc   : DspColonOff
; I/P    : --
; O/P    : --
; Destroy:
; Note   : 
DspColonOff:
.stabn 402, LineInfo
	ld	y,(0x37)
.stabn 403, LineInfo
	ld	a,my
.stabn 404, LineInfo
	and	a,0b1110
.stabn 405, LineInfo
	ld	y,0x094
.stabn 406, LineInfo
	ld	my,a
DspCO:
.stabn 408, 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 423, LineInfo
	ld	y,(0x31)
.stabn 424, LineInfo
	fan	my,0b1111
.stabn 425, LineInfo
	jp	nz,DspCO		; jmp if not clock mode
	
.stabn 427, LineInfo
	ld	y,(0x16)
.stabn 428, LineInfo
	FAN	my,(1)
.stabn 429, LineInfo
	Jp	z,DspColonOff
.stabn 430, LineInfo
	jp	DspColonOn

DspHourL:
.stabn 433, LineInfo
	ld	x,(0x36)
.stabn 434, LineInfo
	ld	y,0x093
.stabn 435, LineInfo
	calz	DspPattern
.stabn 436, LineInfo
	ld	x,(0x36)
.stabn 437, LineInfo
	ld	my,mx
.stabn 438, LineInfo
	inc	x
.stabn 439, LineInfo
	inc	y
.stabn 440, LineInfo
	ld	a,mx
.stabn 441, LineInfo
	or	a,0b0001
.stabn 442, LineInfo
	ld	my,a
.stabn 443, LineInfo
	ret
ClrAmPm:
.stabn 445, LineInfo
	ld	x,0x090
.stabn 446, LineInfo
	calz	DspDigitSpa		; ' ' 	
.stabn 447, LineInfo
	ld	x,0x09c
.stabn 448, LineInfo
	calz	DspDigitSpa
.stabn 449, LineInfo
	ret

FlashHour:
.stabn 452, LineInfo
	ld	x,(0x16)
.stabn 453, LineInfo
	FAN	mx,(1)
.stabn 454, 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 468, LineInfo
	ld	x,(1)
.stabn 469, LineInfo
	fan	mx,(8)
.stabn 470, LineInfo
	jp	nz,DspH0			; jmp if 24 hour format
.stabn 471, LineInfo
	call	IsEquZero
.stabn 472, LineInfo
	jp	c,NDspH00
.stabn 473, LineInfo
	call	IsEqu12
.stabn 474, LineInfo
	jp	c,DspH00		; jmp if hour =12
.stabn 475, LineInfo
	call	Sub12D
.stabn 476, LineInfo
	jp	nc,DspH00		; current time > 12
.stabn 477, LineInfo
	call	CopyByte
NDspH00:
.stabn 479, LineInfo
	ld	a,0x08
.stabn 480, LineInfo
	ld	x,0x090
.stabn 481, LineInfo
	ld	mx,a			; 'AM'
.stabn 482, LineInfo
	ld	x,0x09c
.stabn 483, LineInfo
	ld	a,0
.stabn 484, LineInfo
	ld	mx,a			; clr'pm'
.stabn 485, LineInfo
	jp	DspH1
DspH00:
.stabn 487, LineInfo
	ld	a,0x01
.stabn 488, LineInfo
	ld	x,0x09c
.stabn 489, LineInfo
	ld	mx,a			; 'PM'
.stabn 490, LineInfo
	ld	a,0
.stabn 491, LineInfo
	ld	x,0x090
.stabn 492, LineInfo
	ld	mx,a			; clr 'am'
.stabn 493, LineInfo
	jp	DspH1
DspH0:
;	ld	x,090h
;	calz	DspDigitSpa		; ' ' 	
;	ld	x,09ch
;	calz	DspDigitSpa
.stabn 499, LineInfo
	calz	ClrAmPm
.stabn 500, LineInfo
	call	CopyByte
.stabn 501, LineInfo
	jp	NDspH0
DspH1:
;	ld	x,DspHourBuf
;	calz	IncByteD