📄 extract.h
字号:
LAttribute5000lijuEscKey macro
if Dicaddbank=BankNo
jmp Attribute5000lijuEscKey
else
lda #>Attribute5000lijuEscKey-1
pha
lda #<Attribute5000lijuEscKey-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LViewGouCistatus1 macro
if Dicaddbank=BankNo
jmp ViewGouCistatus1
else
lda #>ViewGouCistatus1-1
pha
lda #<ViewGouCistatus1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LviewGouCijieshistatus1 macro
if Dicaddbank=BankNo
jmp viewGouCijieshistatus1
else
lda #>viewGouCijieshistatus1-1
pha
lda #<viewGouCijieshistatus1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LGouCijieshilijustatus1 macro
if Dicaddbank=BankNo
jmp GouCijieshilijustatus1
else
lda #>GouCijieshilijustatus1-1
pha
lda #<GouCijieshilijustatus1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LGouCijieshilijuEscKey macro
if Dicaddbank=BankNo
jmp GouCijieshilijuEscKey
else
lda #>GouCijieshilijuEscKey-1
pha
lda #<GouCijieshilijuEscKey-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LViewFenLei1 macro
if Dicaddbank=BankNo
jmp ViewFenLei1
else
lda #>ViewFenLei1-1
pha
lda #<ViewFenLei1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LviewFenLeistatus1 macro
if Dicaddbank=BankNo
jmp viewFenLeistatus1
else
lda #>viewFenLeistatus1-1
pha
lda #<viewFenLeistatus1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LPrepareFanCha1 macro
if Dicaddbank=BankNo
jmp PrepareFanCha1
else
lda #>PrepareFanCha1-1
pha
lda #<PrepareFanCha1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LFanChaNewenchStatus1 macro
if Dicaddbank=BankNo
jmp FanChaNewenchStatus1
else
lda #>FanChaNewenchStatus1-1
pha
lda #<FanChaNewenchStatus1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LFanchaChenstatus1 macro
if Dicaddbank=BankNo
jmp FanchaChenstatus1
else
lda #>FanchaChenstatus1-1
pha
lda #<FanchaChenstatus1-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LFanChaNewenchEscKey macro
if Dicaddbank=BankNo
jmp FanChaNewenchEscKey
else
lda #>FanChaNewenchEscKey-1
pha
lda #<FanChaNewenchEscKey-1
pha
lda #>Dicaddbank
pha
lda #<Dicaddbank
jmp LongGo
endif
endm
LNewenchLoad macro
if newenchbank=BankNo
jmp NewenchLoad
else
lda #>NewenchLoad-1
pha
lda #<NewenchLoad-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
Lreturntojieshimode macro
if newenchbank=BankNo
jmp returntojieshimode
else
lda #>returntojieshimode-1
pha
lda #<returntojieshimode-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LJieshiUkey macro
if newenchbank=BankNo
jmp JieshiUkey
else
lda #>JieshiUkey-1
pha
lda #<JieshiUkey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LJieshiDkey macro
if newenchbank=BankNo
jmp JieshiDkey
else
lda #>JieshiDkey-1
pha
lda #<JieshiDkey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LJieshiUpkey macro
if newenchbank=BankNo
jmp JieshiUpkey
else
lda #>JieshiUpkey-1
pha
lda #<JieshiUpkey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LJieshiDpkey macro
if newenchbank=BankNo
jmp JieshiDpkey
else
lda #>JieshiDpkey-1
pha
lda #<JieshiDpkey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
Lrestore_nowlineaddr macro
if newenchbank=BankNo
jsr restore_nowlineaddr
else
jsr ljsr
dw newenchbank
dw restore_nowlineaddr-1
endif
endm
LRelocateAddr macro
if newenchbank=BankNo
jsr RelocateAddr
else
jsr ljsr
dw newenchbank
dw RelocateAddr-1
endif
endm
LGetUpperwordaddr macro
if newenchbank=BankNo
jsr GetUpperwordaddr
else
jsr ljsr
dw newenchbank
dw GetUpperwordaddr-1
endif
endm
LGetnextXlineaddr macro
if newenchbank=BankNo
jsr GetnextXlineaddr
else
jsr ljsr
dw newenchbank
dw GetnextXlineaddr-1
endif
endm
Lselectliju macro
if newenchbank=BankNo
jmp selectliju
else
lda #>selectliju-1
pha
lda #<selectliju-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LJieshiEnterkey macro
if newenchbank=BankNo
jmp JieshiEnterkey
else
lda #>JieshiEnterkey-1
pha
lda #<JieshiEnterkey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewAllliju macro
if newenchbank=BankNo
jmp viewAllliju
else
lda #>viewAllliju-1
pha
lda #<viewAllliju-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewAlllijuUKey macro
if newenchbank=BankNo
jmp viewAlllijuUKey
else
lda #>viewAlllijuUKey-1
pha
lda #<viewAlllijuUKey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewAlllijuUPKey macro
if newenchbank=BankNo
jmp viewAlllijuUKey
else
lda #>viewAlllijuUPKey-1
pha
lda #<viewAlllijuUPKey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewAlllijuDKey macro
if newenchbank=BankNo
jmp viewAlllijuDKey
else
lda #>viewAlllijuDKey-1
pha
lda #<viewAlllijuDKey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewAlllijuDPKey macro
if newenchbank=BankNo
jmp viewAlllijuDPKey
else
lda #>viewAlllijuDPKey-1
pha
lda #<viewAlllijuDPKey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewlijuUKey macro
if newenchbank=BankNo
jmp viewlijuUKey
else
lda #>viewlijuUKey-1
pha
lda #<viewlijuUKey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
LviewlijuDKey macro
if newenchbank=BankNo
jmp viewlijuDKey
else
lda #>viewlijuDKey-1
pha
lda #<viewlijuDKey-1
pha
lda #>newenchbank
pha
lda #<newenchbank
jmp LongGo
endif
endm
Lstore_citiao macro
if newenchbank=BankNo
jsr store_citiao
else
jsr LJSR
dw newenchBank
dw store_citiao-1
endif
endm
LShowcitiaoyinbiao macro
if newenchbank=BankNo
jsr Showcitiaoyinbiao
else
jsr LJSR
dw newenchBank
dw Showcitiaoyinbiao-1
endif
endm
Lshowinter macro
if newenchbank=BankNo
jsr showinter
else
jsr LJSR
dw newenchBank
dw showinter-1
endif
endm
Lstore_jieshiinf macro
if newenchbank=BankNo
jsr store_jieshiinf
else
jsr LJSR
dw newenchBank
dw store_jieshiinf-1
endif
endm
Lsetjibie_flag macro
if newenchbank=BankNo
jsr setjibie_flag
else
jsr LJSR
dw newenchBank
dw setjibie_flag-1
endif
endm
LsetVoice_flag macro
if newenchbank=BankNo
jsr setVoice_flag
else
jsr LJSR
dw newenchBank
dw setVoice_flag-1
endif
endm
Lset_tongyiflag macro
if newenchbank=BankNo
jsr set_tongyiflag
else
jsr LJSR
dw newenchBank
dw set_tongyiflag-1
endif
endm
Lset_FanYiFlag macro
if newenchbank=BankNo
jsr set_FanYiFlag
else
jsr LJSR
dw newenchBank
dw set_FanYiFlag-1
endif
endm
Lset_BianXiFlag macro
if newenchbank=BankNo
jsr set_BianXiFlag
else
jsr LJSR
dw newenchBank
dw set_BianXiFlag-1
endif
endm
Lset_bianhuaflag macro
if newenchbank=BankNo
jsr set_bianhuaflag
else
jsr LJSR
dw newenchBank
dw set_bianhuaflag-1
endif
endm
Lformat_indxd macro
if newenchbank=BankNo
jsr format_indxd
else
jsr LJSR
dw newenchBank
dw format_indxd-1
endif
endm
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -