extract.h

辞典 dict3.asm.grammar.asm,newword.asm 学习 learn.asm 名片 userinf.asm 备忘 userinf.asm 提醒 userinf

; ***************************************************************************
; *     Project : Electronic Dictionary                                     *
; *        Date : 2003.9                                                    *
; *   File Name : EXTRACT.H                                                 *
; ***************************************************************************

Lextract_word    macro
        if      extractBank=BankNo
		jsr	extract_word
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_word-1
        endif
        endm

Lextract_yinbiao    macro
        if      extractBank=BankNo
		jsr	extract_yinbiao
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_yinbiao-1
        endif
        endm

Lextract_jieshiCh_oneByte    macro
        if      extractBank=BankNo
		jsr	extract_jieshiCh_oneByte
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_jieshiCh_oneByte-1
        endif
        endm

Lextract_jieshiEn_oneByte    macro
        if      extractBank=BankNo
		jsr	extract_jieshiEn_oneByte
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_jieshiEn_oneByte-1
        endif
        endm

Lextract_jieshiPh_oneByte    macro
        if      extractBank=BankNo
		jsr	extract_jieshiPh_oneByte
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_jieshiPh_oneByte-1
        endif
        endm

Lextract_lijuCh    macro
        if      extractBank=BankNo
		jsr	extract_lijuCh
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_lijuCh-1
        endif
        endm

Lextract_lijuEn    macro
        if      extractBank=BankNo
		jsr	extract_lijuEn
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_lijuEn-1
        endif
        endm

Lextract_jieshi_oneByte    macro
        if      newenchBank=BankNo
		jsr	extract_jieshi_oneByte
        else
                jsr     LJSR
                dw      newenchBank
                dw      extract_jieshi_oneByte-1
        endif
        endm

LsetAttribute_flag    macro
        if      newenchBank=BankNo
		jsr	setAttribute_flag
        else
                jsr     LJSR
                dw      newenchBank
                dw      setAttribute_flag-1
        endif
        endm

LNewench_help    macro
        if      newenchBank=BankNo
		jsr	Newench_help
        else
                jsr     LJSR
                dw      newenchBank
                dw      Newench_help-1
        endif
        endm

LgetchainLen    macro
        if      newenchBank=BankNo
		jsr	getchainLen
        else
                jsr     LJSR
                dw      newenchBank
                dw      getchainLen-1
        endif
        endm

LCal_CigenAddr   macro
        if      newenchBank=BankNo
		jsr	Cal_CigenAddr
        else
                jsr     LJSR
                dw      newenchBank
                dw      Cal_CigenAddr-1
        endif
        endm

Lextract_Hychword    macro
        if      extractBank=BankNo
		jsr	extract_Hychword
        else
                jsr     LJSR
                dw      extractBank
                dw      extract_Hychword-1
        endif
        endm

;Lextract_HyEnword    macro
;        if      extractBank=BankNo
;		jsr	extract_HyEnword
;        else
;                jsr     LJSR
;                dw      extractBank
;                dw      extract_HyEnword-1
;        endif
;        endm

LNewwordstatus1	macro
        if      Dicaddbank=BankNo
                jmp   Newwordstatus1
        else
                lda	#>Newwordstatus1-1
		pha
		lda	#<Newwordstatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LFanChaNewenchDPkey	macro
        if      Dicaddbank=BankNo
                jmp   FanChaNewenchDPkey
        else
                lda	#>FanChaNewenchDPkey-1
		pha
		lda	#<FanChaNewenchDPkey-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LFanChaNewenchUPkey	macro
        if      Dicaddbank=BankNo
                jmp   FanChaNewenchUPkey
        else
                lda	#>FanChaNewenchUPkey-1
		pha
		lda	#<FanChaNewenchUPkey-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LDuoJiChenIntoEnchStatus1	macro
        if      Dicaddbank=BankNo
                jmp   DuoJiChenIntoEnchStatus1
        else
                lda	#>DuoJiChenIntoEnchStatus1-1
		pha
		lda	#<DuoJiChenIntoEnchStatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LNewwordDisplayNamestatus1	macro
        if      Dicaddbank=BankNo
                jmp   NewwordDisplayNamestatus1
        else
                lda	#>NewwordDisplayNamestatus1-1
		pha
		lda	#<NewwordDisplayNamestatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LNewwordNoNamestatus1	macro
        if      Dicaddbank=BankNo
                jmp   NewwordNoNamestatus1
        else
                lda	#>NewwordNoNamestatus1-1
		pha
		lda	#<NewwordNoNamestatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LNewwordInputNameStatus1	macro
        if      Dicaddbank=BankNo
                jmp   NewwordInputNameStatus1
        else
                lda	#>NewwordInputNameStatus1-1
		pha
		lda	#<NewwordInputNameStatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LNewwordAmendNamestatus1	macro
        if      Dicaddbank=BankNo
                jmp   NewwordAmendNamestatus1
        else
                lda	#>NewwordAmendNamestatus1-1
		pha
		lda	#<NewwordAmendNamestatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LNewwordIfstorestatus1	macro
        if      Dicaddbank=BankNo
                jmp   NewwordIfstorestatus1
        else
                lda	#>NewwordIfstorestatus1-1
		pha
		lda	#<NewwordIfstorestatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LNewworddisplaywordstatus1	macro
        if      Dicaddbank=BankNo
                jmp   Newworddisplaywordstatus1
        else
                lda	#>Newworddisplaywordstatus1-1
		pha
		lda	#<Newworddisplaywordstatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LNewwordjieshistatus1	macro
        if      Dicaddbank=BankNo
                jmp   Newwordjieshistatus1
        else
                lda	#>Newwordjieshistatus1-1
		pha
		lda	#<Newwordjieshistatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LNewwordjieshilijustatus1	macro
        if      Dicaddbank=BankNo
                jmp   Newwordjieshilijustatus1
        else
                lda	#>Newwordjieshilijustatus1-1
		pha
		lda	#<Newwordjieshilijustatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LNewwordjieshilijuEscKey	macro
        if      Dicaddbank=BankNo
                jmp   NewwordjieshilijuEscKey
        else
                lda	#>NewwordjieshilijuEscKey-1
		pha
		lda	#<NewwordjieshilijuEscKey-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LjieshisavewordDefaultteam1	macro
        if      Dicaddbank=BankNo
                jmp   jieshisavewordDefaultteam1
        else
                lda	#>jieshisavewordDefaultteam1-1
		pha
		lda	#<jieshisavewordDefaultteam1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LViewtongyi1	macro
        if      Dicaddbank=BankNo
                jmp   Viewtongyi1
        else
                lda	#>Viewtongyi1-1
		pha
		lda	#<Viewtongyi1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LViewFanYi1	macro
        if      Dicaddbank=BankNo
                jmp   ViewFanYi1
        else
                lda	#>ViewFanYi1-1
		pha
		lda	#<ViewFanYi1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LViewBianXi1	macro
        if      Dicaddbank=BankNo
                jmp   ViewBianXi1
        else
                lda	#>ViewBianXi1-1
		pha
		lda	#<ViewBianXi1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LViewGouCi1	macro
        if      Dicaddbank=BankNo
                jmp   ViewGouCi1
        else
                lda	#>ViewGouCi1-1
		pha
		lda	#<ViewGouCi1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LFanchaselectRkey	macro
        if      Dicaddbank=BankNo
                jmp   FanchaselectRkey
        else
                lda	#>FanchaselectRkey-1
		pha
		lda	#<FanchaselectRkey-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LFanchaselectRkey0	macro
        if      Dicaddbank=BankNo
                jmp   FanchaselectRkey0
        else
                lda	#>FanchaselectRkey0-1
		pha
		lda	#<FanchaselectRkey0-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LFanchaselectRkey1	macro
        if      Dicaddbank=BankNo
                jmp   FanchaselectRkey1
        else
                lda	#>FanchaselectRkey1-1
		pha
		lda	#<FanchaselectRkey1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		;;;jmp	LongGo
        endif
        endm


LFanchaselectLkey	macro
        if      Dicaddbank=BankNo
                jmp   FanchaselectLkey
        else
                lda	#>FanchaselectLkey-1
		pha
		lda	#<FanchaselectLkey-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

LFanchaselectLkey0	macro
        if      Dicaddbank=BankNo
                jmp   FanchaselectLkey0
        else
                lda	#>FanchaselectLkey0-1
		pha
		lda	#<FanchaselectLkey0-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm

Lviewtongyistatus1	macro
        if      Dicaddbank=BankNo
                jmp   viewtongyistatus1
        else
                lda	#>viewtongyistatus1-1
		pha
		lda	#<viewtongyistatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm




Lview5000Attributejieshistatus1	macro
        if      Dicaddbank=BankNo
                jmp   view5000Attributejieshistatus1
        else
                lda	#>view5000Attributejieshistatus1-1
		pha
		lda	#<view5000Attributejieshistatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm


LAttribute5000lijustatus1	macro
        if      Dicaddbank=BankNo
                jmp   Attribute5000lijustatus1
        else
                lda	#>Attribute5000lijustatus1-1
		pha
		lda	#<Attribute5000lijustatus1-1
		pha
		lda	#>Dicaddbank
		pha
		lda	#<Dicaddbank
		jmp	LongGo
        endif
        endm