card_bak.asm

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

; ***************************************************************************
; *     Project : Electronic Dictionary                                     *
; *        Date : 2003.9                                                    *
; *   File Name : CARD_BAK.ASM                                              *
; ***************************************************************************

        pw      128
        case    off
        externs on
        include st2202.def      ;; Include ST2100 I/O define.
        include Data.def        ;; Data RAM define.
        include Bios.h
        include Graphics.h
        include Graph.def
        include KeyDef.def
        include DataBank.def
        public  card_bak_event
        public  card_bak_mode

DS0     .SECTION                ;; Data ROM location 10000h(Bank#2)
;;=====================================================
;;[V]-----------------------------------------------[V]
;;       Event process vector.
;;[V]-----------------------------------------------[V]

card_bak_event:
        dw      Card_bakBank
        dw      THSec-1         ;; 半秒钟事件
        dw      TSec-1          ;; 一秒钟事件
        dw      TMin-1          ;; 一分钟事件
        dw      card_bak_TKeyDown-1      ;; Key Down 事件
        dw      TKeyUp-1        ;; Key Up 事件
        dw      TTimer-1        ;; Timer 事件
        dw      TKeyPress-1     ;; Key press 事件
        dw      TLoad-1         ;; Enter Mode 事件
        dw      THelpRet-1      ;; Return from help mode.

;;======================================================================
PS7             .SECTION                ;; Program ROM location 4000h
BankNo          equ     Card_bakBank       ;; For check only.
card_bak_mode	equ     20
TLoad:
        lsetscreen  1
        lda     #<notemenu
        sta     StrAddrL
        lda     #>notemenu
        sta     StrAddrH

        stz     ItemStart
        stz     ItemOffset
        stz     MenuBufNO
remarkLoad_0:
        ldx     <Mode                  ;mode of system
        stx     <ModeSave              ;Save last mode
        lda     #MenuMode
        sta     <Mode                  ;Enter Menu Select Mode
        lda	#80h
        sta    <EFlag                 ;enter this mode flag
        JMP	jmp_lmainU


card_bak_TKeyDown:
        lread_key_again
                lda     ItemNo
                cmp     #4
                bcc     IsRemarkMode
                beq     IsSchedMode
                lda     #CardMode
                sta     <Mode
                lda     #80h
                sta     <EFlag
ExitNoUpdate:
                JMP	jmp_lmainU
IsRemarkMode:
                lda     #RemarkMode
                sta     <Mode
                lda     #8h
                sta     <EFlag
                bra     ExitNoUpdate
IsSchedMode:
                lda     #2
                sta     ItemNO
                lda     #Alarm_Mode
                sta     <Mode
                lda     #8h
                sta     <EFlag
                bra     ExitNoUpdate
TKeyUp:
TTimer:
TKeyPress:
THelpRet:
THSec:
TSec:
TMin:
JMP_lmainu:
	lmainu

        end