extract.h

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

Lformat_indxs	macro
        if      newenchbank=BankNo
                jsr     format_indxs
        else
                jsr     LJSR
                dw      newenchBank
                dw      format_indxs-1
        endif
        endm

Linc1_bitcount	macro
        if      newenchbank=BankNo
                jsr   inc1_bitcount
        else
                jsr     LJSR
                dw      newenchBank
                dw      inc1_bitcount-1
        endif
        endm

Lstore_eachAttributeaddr	macro
        if      newenchbank=BankNo
                jsr   store_eachAttributeaddr
        else
                jsr     LJSR
                dw      newenchBank
                dw      store_eachAttributeaddr-1
        endif
        endm

LLight_AttributeIcon	macro
        if      newenchbank=BankNo
                jsr   Light_AttributeIcon
        else
                jsr     LJSR
                dw      newenchBank
                dw      Light_AttributeIcon-1
        endif
        endm


LLight_DownUppageIcon	macro
        if      newenchbank=BankNo
                jsr   Light_DownUppageIcon
        else
                jsr     LJSR
                dw      newenchBank
                dw      Light_DownUppageIcon-1
        endif
        endm

LShow_jieshiyinbiao	macro
        if      newenchbank=BankNo
                jsr   Show_jieshiyinbiao
        else
                jsr     LJSR
                dw      newenchBank
                dw      Show_jieshiyinbiao-1
        endif
        endm

Lstore_secondjieshiinf	macro
        if      newenchbank=BankNo
                jsr   store_secondjieshiinf
        else
                jsr     LJSR
                dw      newenchBank
                dw      store_secondjieshiinf-1
        endif
        endm

Lrestore_secondjieshiinf	macro
        if      newenchbank=BankNo
                jsr   restore_secondjieshiinf
        else
                jsr     LJSR
                dw      newenchBank
                dw      restore_secondjieshiinf-1
        endif
        endm

Lviewpublicliju	macro
        if      newenchbank=BankNo
                jsr   viewpublicliju
        else
                jsr     LJSR
                dw      newenchBank
                dw      viewpublicliju-1
        endif
        endm

Lshowliju	macro
        if      newenchbank=BankNo
                jsr   showliju
        else
                jsr     LJSR
                dw      newenchBank
                dw      showliju-1
        endif
        endm

Lrestore_pageXaddr	macro
        if      newenchbank=BankNo
                jsr   restore_pageXaddr
        else
                jsr     LJSR
                dw      newenchBank
                dw      restore_pageXaddr-1
        endif
        endm

LfindXlijuposionmode5	macro
        if      newenchbank=BankNo
                jsr   findXlijuposionmode5
        else
                jsr     LJSR
                dw      newenchBank
                dw      findXlijuposionmode5-1
        endif
        endm

LfindXlijuposionmode4	macro
        if      newenchbank=BankNo
                jsr   findXlijuposionmode4
        else
                jsr     LJSR
                dw      newenchBank
                dw      findXlijuposionmode4-1
        endif
        endm

Linvertliju	macro
        if      newenchbank=BankNo
                jsr   invertliju
        else
                jsr     LJSR
                dw      newenchBank
                dw      invertliju-1
        endif
        endm


Lextract_displaythisliju	macro
        if      newenchbank=BankNo
                jsr   extract_displaythisliju
        else
                jsr     LJSR
                dw      newenchBank
                dw      extract_displaythisliju-1
        endif
        endm

LOXOYTOY	macro
        if      newenchbank=BankNo
                jsr   OXOYTOY
        else
                jsr     LJSR
                dw      newenchBank
                dw      OXOYTOY-1
        endif
        endm


LGet_LiJuNumMode4_5	macro
        if      newenchbank=BankNo
                jsr   Get_LiJuNumMode4_5
        else
                jsr     LJSR
                dw      newenchBank
                dw      Get_LiJuNumMode4_5-1
        endif
        endm

LDaXieToXiaoXie	macro
        if      newenchbank=BankNo
                jsr   DaXieToXiaoXie
        else
                jsr     LJSR
                dw      newenchBank
                dw      DaXieToXiaoXie-1
        endif
        endm

Lfind_first16addr	macro
        if      newenchbank=BankNo
                jsr   find_first16addr
        else
                jsr     LJSR
                dw      newenchBank
                dw      find_first16addr-1
        endif
        endm

Lfind_16qianqujian	macro
        if      newenchbank=BankNo
                jsr   find_16qianqujian
        else
                jsr     LJSR
                dw      newenchBank
                dw      find_16qianqujian-1
        endif
        endm

LFind_FanChamatchword_addr	macro
        if      newenchbank=BankNo
                jsr   Find_FanChamatchword_addr
        else
                jsr     LJSR
                dw      newenchBank
                dw      Find_FanChamatchword_addr-1
        endif
        endm

Lstore_Nowlineaddr	macro
        if      newenchbank=BankNo
                jsr   store_Nowlineaddr
        else
                jsr     LJSR
                dw      newenchBank
                dw      store_Nowlineaddr-1
        endif
        endm

Lrestore_jieshiinf	macro
        if      newenchbank=BankNo
                jsr   restore_jieshiinf
        else
                jsr     LJSR
                dw      newenchBank
                dw      restore_jieshiinf-1
        endif
        endm

;======>>>>>>>汉英词典的宏<<<<<<<======
Lfind_machedchinawordaddr	macro
        if      DicchenBank=BankNo
                jsr   find_machedchinawordaddr
        else
                jsr     LJSR
                dw      DicchenBank
                dw      find_machedchinawordaddr-1
        endif
        endm

LDicchen_Help	macro
        if      DicchenBank=BankNo
                jsr   Dicchen_Help
        else
                jsr     LJSR
                dw      DicchenBank
                dw      Dicchen_Help-1
        endif
        endm

LDrawALineAt15	macro
        if      Dicadd1bank=BankNo
                jsr   DrawALineAt15
        else
                jsr     LJSR
                dw      Dicadd1bank
                dw      DrawALineAt15-1
        endif
        endm

LClearUp_findbuff	macro
        if      Dicadd1bank=BankNo
                jsr   ClearUp_findbuff
        else
                jsr     LJSR
                dw      Dicadd1bank
                dw      ClearUp_findbuff-1
        endif
        endm

Ldicchenmode	macro
	if	dicchenbank=BnakNo
                jmp   dicchenmode
        else
                lda	#>dicchenmode-1
		pha
		lda	#<dicchenmode-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LMohuMatch	macro
	if	Dicadd1bank=BnakNo
                jmp   MohuMatch
        else
                lda	#>MohuMatch-1
		pha
		lda	#<MohuMatch-1
		pha
		lda	#>Dicadd1bank
		pha
		lda	#<Dicadd1bank
		jmp	LongGo
        endif
        endm

LStartMoHumatch	macro
	if	Dicadd1bank=BnakNo
                jmp   MoHumatchstatus1
        else
                lda	#>StartMoHumatch-1
		pha
		lda	#<StartMoHumatch-1
		pha
		lda	#>Dicadd1bank
		pha
		lda	#<Dicadd1bank
		jmp	LongGo
        endif
        endm

LMuhuMatchjieshistatus1	macro
	if	Dicadd1bank=BnakNo
                jmp   MuhuMatchjieshistatus1
        else
                lda	#>MuhuMatchjieshistatus1-1
		pha
		lda	#<MuhuMatchjieshistatus1-1
		pha
		lda	#>Dicadd1bank
		pha
		lda	#<Dicadd1bank
		jmp	LongGo
        endif
        endm

LMoHumatchAlllijustatus1	macro
	if	Dicadd1bank=BnakNo
                jmp   MoHumatchAlllijustatus1
        else
                lda	#>MoHumatchAlllijustatus1-1
		pha
		lda	#<MoHumatchAlllijustatus1-1
		pha
		lda	#>Dicadd1bank
		pha
		lda	#<Dicadd1bank
		jmp	LongGo
        endif
        endm

LMoHumatchlijustatus1	macro
	if	Dicadd1bank=BnakNo
                jmp   MoHumatchlijustatus1
        else
                lda	#>MoHumatchlijustatus1-1
		pha
		lda	#<MoHumatchlijustatus1-1
		pha
		lda	#>Dicadd1bank
		pha
		lda	#<Dicadd1bank
		jmp	LongGo
        endif
        endm

LViewEnChUPkey	macro
	if	dicchenbank=BnakNo
                jmp   ViewEnChUPkey
        else
                lda	#>ViewEnChUPkey-1
		pha
		lda	#<ViewEnChUPkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LViewEnChDPkey	macro
	if	dicchenbank=BnakNo
                jmp   ViewEnChDPkey
        else
                lda	#>ViewEnChDPkey-1
		pha
		lda	#<ViewEnChDPkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiDkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiDkey
        else
                lda	#>ChenjieshiDkey-1
		pha
		lda	#<ChenjieshiDkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiUkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiUkey
        else
                lda	#>ChenjieshiUkey-1
		pha
		lda	#<ChenjieshiUkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiRkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiRkey
        else
                lda	#>ChenjieshiRkey-1
		pha
		lda	#<ChenjieshiRkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiLkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiLkey
        else
                lda	#>ChenjieshiLkey-1
		pha
		lda	#<ChenjieshiLkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiUPkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiUPkey
        else
                lda	#>ChenjieshiUPkey-1
		pha
		lda	#<ChenjieshiUPkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiDPkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiDPkey
        else
                lda	#>ChenjieshiDPkey-1
		pha
		lda	#<ChenjieshiDPkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm

LChenjieshiEnterkey	macro
	if	dicchenbank=BnakNo
                jmp   ChenjieshiEnterkey
        else
                lda	#>ChenjieshiEnterkey-1
		pha
		lda	#<ChenjieshiEnterkey-1
		pha
		lda	#>dicchenbank
		pha
		lda	#<dicchenbank
		jmp	LongGo
        endif
        endm




;;=======新英汉补丁===============

LAmendxyhLib	macro
        if      Dicadd2bank=BankNo
                jsr   AmendxyhLib
        else
                jsr     LJSR
                dw      Dicadd2bank
                dw      AmendxyhLib-1
        endif
        endm


LShowBuDingJieShi	macro
        if      Dicadd2bank=BankNo
                jsr   ShowBuDingJieShi
        else
                jsr     LJSR
                dw      Dicadd2bank
                dw      ShowBuDingJieShi-1
        endif
        endm


Lsave_BudingTouToBuff	macro
        if      Dicadd2bank=BankNo
                jsr   save_BudingTouToBuff
        else
                jsr     LJSR
                dw      Dicadd2bank
                dw      save_BudingTouToBuff-1
        endif
        endm

Lsave_BudingWeiToBuff	macro
        if      Dicadd2bank=BankNo
                jsr   save_BudingWeiToBuff
        else
                jsr     LJSR
                dw      Dicadd2bank
                dw      save_BudingWeiToBuff-1
        endif
        endm

 	end