r01clk1.ms

用SAM72N9写的电子秤文档

.stabs "D:\Hcy_Projects\CLOCK_KITCHEN\SOURCE\CnvLCDDec05\R01Clk1.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.


;#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		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
;#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	0E3H
;IO_Key_On	EQU	1
;IO_Key_Off	EQU	2
;IO_DClk		EQU	4

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

;RPort		EQU	0EBH	; R0 data port
;IO_PowerCtl	EQU	1
;IO_DataOut	EQU	2

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

;TimerCR		EQU	0EEH
;b2=1 to reset clock timer
;
;HeavyLoad	EQU	0E6H	; heavy load protection register
;b3=1 if heavy load, b3=0 if normal load
;
;LCDSwitch	EQU	0E8H	;
;b3=1 if static, b3=0 if dynamic
;
;PPortDir	EQU	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

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

	
DspPattern:
.stabn 313, LineInfo
	ld	b,0
.stabn 314, LineInfo
	jpba

DspPattern1:
.stabn 317, LineInfo
	ld	b,1
.stabn 318, LineInfo
	jpba	
	
DspDenoNume:
.stabn 321, LineInfo
	ld	b,2
.stabn 322, 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 334, LineInfo
	push	xl
.stabn 335, LineInfo
	calz	DspPattern
DspDigE:
.stabn 337, LineInfo
	pop	xl
DspCopy:
.stabn 339, LineInfo
	ld	my,mx
.stabn 340, LineInfo
	inc	x
.stabn 341, LineInfo
	inc	y
.stabn 342, LineInfo
	ld	my,mx
.stabn 343, LineInfo
	ret
DspDigit1:
.stabn 345, LineInfo
	push	xl
.stabn 346, LineInfo
	calz	DspPattern1
.stabn 347, 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 360, LineInfo
	push	xl
.stabn 361, LineInfo
	calz	DspPattern
DspDigEW:
.stabn 363, LineInfo
	pop	xl

.stabn 365, LineInfo
	ld	my,mx
.stabn 366, LineInfo
	inc	x
.stabn 367, LineInfo
	inc	y
.stabn 368, LineInfo
	ld	a,(M6)
.stabn 369, LineInfo
	or	a,mx
.stabn 370, LineInfo
	ld	my,a
.stabn 371, LineInfo
	ret
DspDigit1W:
.stabn 373, LineInfo
	push	xl
.stabn 374, LineInfo
	calz	DspPattern1
.stabn 375, LineInfo
	jp	DspDigE
	
; I: x(lcd ram address)
DspDigitSpa:	
.stabn 379, LineInfo
	ld	a,0x07
.stabn 380, LineInfo
	calz	DspPattern1
.stabn 381, LineInfo
	ret
;-------------------------------------
; Cate   : Display
; By     : loren
; Func   : display the icon 
; Desc   : DspColonOn
; I/P    : --
; O/P    : --
; Destroy:
; Note   :
DspColonOn:
.stabn 392, LineInfo
	ld	y,(0x37)
.stabn 393, LineInfo
	ld	a,my
.stabn 394, LineInfo
	or	a,0x01
.stabn 395, LineInfo
	ld	y,0x094
.stabn 396, LineInfo
	ld	my,a
.stabn 397, LineInfo
	ret

;-------------------------------------
; Cate   : Display
; By     : loren
; Func   : display off the icon 
; Desc   : DspColonOff
; I/P    : --
; O/P    : --
; Destroy:
; Note   : 
DspColonOff:
.stabn 409, LineInfo
	ld	y,(0x37)
.stabn 410, LineInfo
	ld	a,my
.stabn 411, LineInfo
	and	a,0b1110
.stabn 412, LineInfo
	ld	y,0x094
.stabn 413, LineInfo
	ld	my,a
DspCO:
.stabn 415, 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 430, LineInfo
	ld	y,(0x31)
.stabn 431, LineInfo
	fan	my,0b1111
.stabn 432, LineInfo
	jp	nz,DspCO		; jmp if not clock mode
	
.stabn 434, LineInfo
	ld	y,(0x16)
.stabn 435, LineInfo
	FAN	my,(1)
.stabn 436, LineInfo
	Jp	z,DspColonOff
.stabn 437, LineInfo
	jp	DspColonOn

DspHourL:
.stabn 440, LineInfo
	ld	x,(0x36)
.stabn 441, LineInfo
	ld	y,0x093
.stabn 442, LineInfo
	calz	DspPattern
.stabn 443, LineInfo
	ld	x,(0x36)
.stabn 444, LineInfo
	ld	my,mx
.stabn 445, LineInfo
	inc	x
.stabn 446, LineInfo
	inc	y
.stabn 447, LineInfo
	ld	a,mx
.stabn 448, LineInfo
	or	a,0b0001
.stabn 449, LineInfo
	ld	my,a
.stabn 450, LineInfo
	ret
ClrAmPm:
.stabn 452, LineInfo
	ld	x,0x090
.stabn 453, LineInfo
	calz	DspDigitSpa		; ' ' 	
.stabn 454, LineInfo
	ld	x,0x09c
.stabn 455, LineInfo
	calz	DspDigitSpa
.stabn 456, LineInfo
	ret

FlashHour:
.stabn 459, LineInfo
	ld	x,(0x16)
.stabn 460, LineInfo
	FAN	mx,(1)
.stabn 461, 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 475, LineInfo
	ld	x,(1)
.stabn 476, LineInfo
	fan	mx,(8)
.stabn 477, LineInfo
	jp	nz,DspH0			; jmp if 24 hour format
.stabn 478, LineInfo
	call	IsEquZero
.stabn 479, LineInfo
	jp	c,NDspH00
.stabn 480, LineInfo
	call	IsEqu12
.stabn 481, LineInfo
	jp	c,DspH00		; jmp if hour =12
.stabn 482, LineInfo
	call	Sub12D
.stabn 483, LineInfo
	jp	nc,DspH00		; current time > 12
.stabn 484, LineInfo
	call	CopyByte
NDspH00:
.stabn 486, LineInfo
	ld	a,0x08
.stabn 487, LineInfo
	ld	x,0x090
.stabn 488, LineInfo
	ld	mx,a			; 'AM'
.stabn 489, LineInfo
	ld	x,0x09c
.stabn 490, LineInfo
	ld	a,0
.stabn 491, LineInfo
	ld	mx,a			; clr'pm'
.stabn 492, LineInfo
	jp	DspH1
DspH00:
.stabn 494, LineInfo
	ld	a,0x01
.stabn 495, LineInfo
	ld	x,0x09c
.stabn 496, LineInfo
	ld	mx,a			; 'PM'
.stabn 497, LineInfo
	ld	a,0
.stabn 498, LineInfo
	ld	x,0x090
.stabn 499, LineInfo
	ld	mx,a			; clr 'am'
.stabn 500, LineInfo
	jp	DspH1
DspH0:
;	ld	x,090h
;	calz	DspDigitSpa		; ' ' 	
;	ld	x,09ch
;	calz	DspDigitSpa
.stabn 506, LineInfo
	calz	ClrAmPm
.stabn 507, LineInfo