viewalar.asm

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

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

                chip    W65C02S                 ;; Define chip : ST2100 base on 65c02.
                pw      128                     ;; .LST's page width = 128 character.
                case    off                     ;; Don't care Upper-case or lower-case.
                externs on                      ;; Make all labels public.
                include st2202.def              ;; Include ST2100 I/O define,
                include DATA.def                ;;         Data RAM define,
                include KEYDEF.def              ;;         Key define,
                include GRAPH.def               ;;         Graph RAM define.
                include BIOS.h                  ;;         BIOS's head.
                include GRAPHICS.h              ;;         GRAPHICS's haed.

        public  AlarmViewEvent

cdada     equ   80h
alarmflag1 equ  0a6h
alarmflag0 equ  0a7h

DS0             .SECTION                        ;; Data ROM location 10000h(Bank#2)
AlarmViewEvent:
        dw      AlarmViewBank
        dw      THSec-1         ;; 半秒钟事件
        dw      TSec-1          ;; 一秒钟事件
        dw      TMin-1          ;; 一分钟事件
        dw      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.

WelcomeMsg: db  0dh,0dh,'   欢迎您!',0

PS6             .SECTION
BankNo          equ     AlarmViewBank
;;======================================================================

THSec:
TSec:
TMin:
TKeyUp:
TTimer:
TKeyPress:
THelpRet:
jmp_LMAINU:
        LMAINU
TKeyDown:
        lread_key_again
                lda     <KeyNo
                cmp     #UpKey
                beq     ?UpKeyPrc
                cmp     #DownKey
                beq     ?DownKeyPrc
                jmp	jmp_LMAINU
?UpKeyPrc:      lda     #>UpViewFun-1
                pha
                lda     #<UpViewFun-1
                pha
                lda     #>RemarkBank
                pha
                lda     #<RemarkBank
                jmp     Longgo

?DownKeyPrc:    lda     #>DownViewFun-1
                pha
                lda     #<DownViewFun-1
                pha
                lda     #>RemarkBank
                pha
                lda     #<RemarkBank
                jmp     Longgo

;;[p]-----------------------------------[p]
TLoad:
                lset_lcd_contrast
                ;;lda    #1
                ;;sta    tempflagforviewche    ;;;;;;1-12-4 13:21
                lda     #NullHelp-HelpTable
                sta     <HelpOffset
                LSetScreen      1
                rmb5    <SF0            ;;????;;sf0.5=1 alarm ok
                lda     #5
                sta     <FileClase
                lda      TP0
                sta      <CurCardNoL
                stz      <CurCardNoH
                stz      <CurCardOff

                lda     power_flag
                and     #0feh
                sta     power_flag

                lda      #>alarmenter-1
                pha
                lda      #<alarmenter-1
                pha
                lda      #>AlarmBank
                pha
                lda      #<AlarmBank
                jmp     Longgo

                end