macro.inc

calculator code ,use toshibaor nec LSI

	$nolist
;*******************************************************************************
;*******************************************************************************
;*                                                                             *
;*              (C)Copyright, CLOVER China Electronics Co.,LTD.                *
;*                         (Company No:190077-X)                               *
;*                          All Rigits Reserved                                *
;*   add:No.58-F Yang Dong Road, LuoFeng Demonstrative Zone Suzhou, China      *
;*                    Tel: [phone] Fax:[phone]                     *
;*                        http://www.clover.co.jp                              *
;*                                                                             *
;*******************************************************************************
;*******************************************************************************
;
;		OBS CPD3212T source program
;		CPU: TOSHIBA TLC-870/C series TMP86CM74AF
;		RAM: 2Kbytes(0040h - 083Fh)
;		ROM: 32Kbytes(8000h - FFFFh)
;
;
;Macro difinition
	$list
;==============================================================================
;	Push register
;==============================================================================
@define(PUSH_REG)(
	push	wa
	push	bc
	push	de
	push	hl
	push	ix
	push	iy
)
;==============================================================================
;	Pop register
;==============================================================================
@define(POP_REG)(
	pop	iy
	pop	ix
	pop	hl
	pop	de
	pop	bc
	pop	wa
)
;==============================================================================
;	Set bit		Note: use WA registor
;==============================================================================
@define(SEB(bitequ))(
	ld	wa,@bitequ
	set	(@bitequ>>4).a
)
;==============================================================================
;	Set bit		Note: use WA registor
;==============================================================================
@define(CLB(bitequ))(
	ld	wa,@bitequ
	clr	(@bitequ>>4).a
)
;==============================================================================
;	Branch if bit set	Note: use WA registor
;==============================================================================
@define(BBS(bitequ,label))(
	ld	wa,@bitequ
	test	(@bitequ>>4).a		;bit -reverse-> jump status
	j	f,@label		;if jump status is 0 -> branch
)
;==============================================================================
;	Branch if bit clear	Note: use WA registor
;==============================================================================
@define(BBC(bitequ,label))(
	ld	wa,@bitequ
	test	(@bitequ>>4).a		;bit -reverse-> jump status
	j	t,@label		;if jump status is 1 -> branch
)
;==============================================================================
;	Set '1' to W2
;==============================================================================
@define(S1_W2)(
	call	w2_clear
	ld	(W2_LSD),0x01		;set 1 to W2
)
;==============================================================================
;	Set '100' to W2
;==============================================================================
@define(S100_W2)(
	call	w2_clear
	ld	(W2_LSD-1),0x01		;set 100 to W2
)

;==============================================================================
;V2.00@define(lcd_disable)(
;V2.00		ld	(LCDCTL1),0y10000100	;1/4 duty, REFV V4,=VDD, Booster circuit disable, LCD display enable
;V2.00		clr	(P6DR).3
;V2.00		clr	(P6DR).5
;V2.00		clr	(FLG_MODE).6		;indicate LED OFF
;V2.00)

;V2.00@define(lcd_enable)(
;V2.00		ld	(LCDCTL1),0y10000101	;1/4 duty, REFV V4,=VDD, Booster circuit disable, LCD display enable
;V2.00		ld	(LCDCTL2),0y00000001	;base frequency for frame frequency 8M
;V2.00		set	(FLG_MODE).6		;indicate LED ON
;V2.00)
;==============================================================================
@define(if_finance_on)(
	test	(FINANCE_1).3
)
;----------------------------
@define(IS_TX2)(
	test	(FLG_MODE).4
)
;==============================================================================
@define(IS_M2)(
	test	(FLG_MODE).5
)
;===============================================================================V1.21
@define(interval_tm_disable)(
	clr	(EIRH).EF8		;TC3 interrupt enable
)
;==============================================================================V1.21
@define(interval_tm_enable)(
	clr	(ILH).IL8
	di
	set	(EIRH).EF8		;TC3 interrupt enable
	ei
)
;---------------------------------
;======================================
@define(RST_IN_ON(label))(
        test	(P1PRD).3
	j	f,@label
)
;----------------------------
@define(RST_IN_OFF(label))(
        test	(P1PRD).3
	j	t,@label
)
;----------------------------
@define(IS_D14_ON(label))(
        test	(MDFLG_3).3
	j	f,@label
	)
;----------------------------
@define(IS_D14_OFF(label))(
        test	(MDFLG_3).3
	j	t,@label
	)
;---------------------------
@define(IS_LTP_ON(label))(
	test	(FLG_MODE).0
	j	f,@label
	)
;---------------------------
@define(IS_LTP_OFF(label))(
	test	(FLG_MODE).0
	j	t,@label
	)
;==========================================

;================================================
@define(IS_5514_ON(label))(
        test	(FLG_MODE).2
	j	f,@label
	)
	;-------------------------
@define(IS_5514_OFF(label))(
        test	(FLG_MODE).2
	j	t,@label
	)
;================================================