card_temp.asm

来自「辞典 dict3.asm.grammar.asm,newword.asm 学」· 汇编 代码 · 共 49 行

;;-----------EGUp---------
GroupKeyDownUp:
                lda     <TempRelatItem
                tay                     ;;for Clear Yuan Xin
                beq     SelectRelatUpEnd
                dec
                dec
                bpl     ToDrawYuanXin_0
                lda     #0
ToDrawYuanXin_0:
                sta     <TempRelatItem
ToDrawYuanXin:
                jsr     EClsYuanXinP    ;;Clear Souce Yuan Xin
                jsr     EDrawYuanXinP   ;;Draw Current Yuan Xin
GroupKeyDownUpEnd:
                jmp     Exitwithoutupdate
;;---------EGDown-----------
GroupKeyDownDown:
                lda     <TempRelatItem
                tay
                cmp     #5
                beq     SelectRelatUpEnd
                inc
                inc
                cmp     #6
                bcc     SelectRelatDown_0
                lda     #5
SelectRelatDown_0:
                jmp     ToDrawYuanXin_0
;;----------EGLeft-----------
GroupKeyDownLeft:
                lda     <TempRelatItem
                tay
                beq     SelectRelatLeftEnd
                dec     <TempRelatItem
                jmp     ToDrawYuanXin
SelectRelatLeftEnd:
                jmp     Exitwithoutupdate
;;------------EDRight----------
GroupKeyDownRight:
                lda     <TempRelatItem
                tay
                cmp     #5
                bcs     SelectRelatRightEnd
                inc     <TempRelatItem
                jmp     ToDrawYuanXin
SelectRelatRightEnd:
                jmp     Exitwithoutupdate