ljbx.asm

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

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

	db	0f7h
;LRTS:
        pla
;LongGo:
        pha
        stx     x_temp_bak
        ldx     #longgo_prg_end-longgo_prg-1
?2:
        lda     longgo_prg,x
        sta     bank_trans_ram,x
        dex
        bpl     ?2
        ldx     x_temp_bak
        jmp     bank_trans_ram

;bank_trans_in_ram:
        lda     (<LJInx),y
        tax
        dey
        lda     (<LJInx),y

        sta     <prrl
        stx     <prrh
        lda     <AReg
        ldy     <YReg
        ldx     x_temp_bak
        rts
;bank_trans_in_ram_end:

;longgo_prg:
        pla
        sta     <PRRl
        pla
        sta     <prrh
        rts
;longgo_prg_end:

;ljsr:
        sta     <AReg
        lda     <prrh
        pha                     ;; Push the bank register.
        lda     <prrl
        pha                     ;; Push the bank register.

        lda     #>LRTS-1        ;; Set long return address.
        pha
        lda     #<LRTS-1
        pha

        stx     x_temp_bak
        clc
        tsx
        lda     100h+5,x
        sta     <LJInx
        adc     #4
        sta     100h+5,x
        lda     100h+6,x
        sta     <LJInx+1
        adc     #0
        sta     100h+6,x        ;; Return address +=3.

        sty     <YReg
        ldy     #4
;to_read_other_bank_sub_program:
        lda     (<LJInx),y       ;; Get high address.
        pha
        dey
        lda     (<LJInx),y       ;; Get low address.
        pha
        dey
;;=========================
        ldx     #bank_trans_in_ram_end-bank_trans_in_ram-1
?1:
        lda     bank_trans_in_ram,x
        sta     bank_trans_ram,x
        dex
        bpl     ?1
        jmp     bank_trans_ram

;ljbx_end:

        .end