chfwmp.asm

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

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

        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 Keydef.def
        include Graph.def
        ;;;include extract.h
        ;;;include xyhaddr.h
        ;;;include 5000lib.ref
        include fulu.h

        INCLUDE ST2202.MAC

        INCLUDE CHCH.INC
        INCLUDE CNDICT.INC
        INCLUDE XYHADDR.H

;EditCurPos      EQU     _CHDictSubState+1

; ***************************************************************************
LMAINKEEPHILIT:
        MACRO
        LUpdateScreen                   ;
        JSR     SetIdiomIdx             ;
        LMAINU
        ENDM

; ***************************************************************************
DS0     .Section

	include	bookbmp.asm

; ***************************************************************************
; * Procedure Table                                                         *
; ***************************************************************************
        PUBLIC  CH_Idiom_Event
CH_Idiom_Event:
        dw      CH_Idiom_Bank
        dw      W4_DICT_HSec-1         ; 半秒钟事件处理程式向量
        dw      W4_DICT_Sec-1          ; 一秒钟事件处理程式向量
        dw      W4_DICT_Min-1          ; 一分钟事件处理程式向量
        dw      W4_DICT_KeyDown-1      ; W4_DICT_key_down处理程式向量(主程式从这里进入)
        dw      W4_DICT_KeyUp-1        ; Key Up 事件处理程式向量
        dw      W4_DICT_Timer-1        ; Timer 事件处理程式向量
        dw      W4_DICT_KeyPress-1     ; 键一直按住不放手
        dw      CH_Idiom_Load-1         ; 进入此 Mode 事件处理程式向量