temp.asm

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

; ***************************************************************************
EE_FIRST_PAGE:                          ;
        JSR     CLR_TEXTBUFFER          ;

        STZ     EE_COL_IDX              ;
        STZ     EE_ROW_IDX              ;
        STZ     EE_PAGE_END             ;
        STZ     EE_LAST_BYTE            ;

        JSR     UNZIP_A_EN_ALPHABET     ; LDA (<Ins)
        STA     EE_LAST_WORD            ;

        LDA     #1
        STA     EE_WORD_IDX             ;

?EE_FIRST_PAGE0:                        ;
        JSR     UNZIP_N_EN_ALPHABET     ; LDA (<Ins)
        BEQ     ?EE_FIRST_PAGE00        ;
        LDX     EE_WORD_IDX             ;
        INC     EE_WORD_IDX             ;
        STA     EE_LAST_WORD,X          ;

        JSR     EE_CHECK_CHAR           ;
        CPY     #1                      ;
        BEQ     ?EE_FIRST_PAGE0         ;
        BRA     ?EE_FIRST_PAGE01        ;
?EE_FIRST_PAGE00:                       ;
        LDA     #1                      ;
        STA     EE_PAGE_END             ;
?EE_FIRST_PAGE01:                       ;
        LDA     EE_LAST_BYTE            ;
        CMP     #$09                    ;
        BNE     ?EE_NEXT_PAGE_IN        ;
        LDA     EE_COL_IDX              ;
        CMP     #2                      ;
        BCS     ?EE_FIRST_PAGE02        ;
        STZ     EE_COL_IDX              ;

?EE_NEXT_PAGE_IN:                       ;
        LDA     EE_WORD_IDX
        BNE     ?EE_NEXT_PAGE_IN0
        JMP     ?EE_FIRST_PAGEX
?EE_NEXT_PAGE_IN0:

        CLC                             ;
        LDA     EE_WORD_IDX             ;
        ADC     EE_COL_IDX              ;
        CMP     #21                     ;
        BCC     ?EE_FIRST_PAGE1         ;
        BNE     ?EE_FIRST_PAGE02        ;
        LDA     EE_LAST_WORD,X          ;
        CMP     #' '                    ;
        BNE     ?EE_FIRST_PAGE02        ;
        DEX     EE_WORD_IDX             ;
        BNE     ?EE_FIRST_PAGE1         ;
        JMP     ?EE_FIRST_PAGEX         ;
?EE_FIRST_PAGE02:                       ;
        CLC                             ;
        LDA     EE_ROW_IDX              ;
        ADC     #20                     ;
        CMP     #100                    ;
        BCC     ?EE_FIRST_PAGE03        ;
        STZ     EE_PAGE_END             ;
        JMP     ?EE_FIRST_PAGEX         ;
?EE_FIRST_PAGE03:                       ;
        STA     EE_ROW_IDX              ;
        STZ     EE_COL_IDX              ;
?EE_FIRST_PAGE1:                        ;
        CLC                             ;
        LDA     EE_ROW_IDX              ;
        ADC     EE_COL_IDX              ;
        TAX                             ;
        LDY     #0                      ;
?EE_FIRST_PAGE10:                       ;
        LDA     EE_LAST_WORD,Y          ;
        STA     TEXTBUFFOR,X            ;
        INX                             ;
        INY                             ;
        DEC     EE_WORD_IDX             ;
        BNE     ?EE_FIRST_PAGE10        ;
        STA     EE_LAST_BYTE            ;
        TXA                             ;
        SEC                             ;
        SBC     EE_ROW_IDX              ;
        STA     EE_COL_IDX              ;

        LDA     EE_PAGE_END             ;
        BNE     ?EE_FIRST_PAGEX         ;

        STZ     EE_WORD_IDX             ;

        JMP     ?EE_FIRST_PAGE0         ;

?EE_FIRST_PAGEX:                        ;
        RTS


; ***************************************************************************
; if (A (a,z)
; ***************************************************************************
EE_CHECK_CHAR:
        CMP     #'_'
        BEQ     ?EE_CHECK_CHAR_Y
        CMP     #'a'
        BCC     ?EE_CHECK_CHAR2
        CMP     #'z'+1
        BCC     ?EE_CHECK_CHAR_Y
?EE_CHECK_CHAR2:
        CMP     #'A'
        BCC     ?EE_CHECK_CHAR_N
        CMP     #'Z'+1
        BCC     ?EE_CHECK_CHAR_Y
?EE_CHECK_CHAR_N:
        LDY     #0
        RTS
?EE_CHECK_CHAR_Y:
        LDY     #1
        RTS
; ***************************************************************************