display.asm

asm.rar 拉斯维加丝盘源代码 ASM51

;;=================================================
F_BlackLcd:
        lda      #$ff
        bne      F_FillLcd
F_ClearLcd:
        lda     #0
F_FillLcd:
        ldx     #0
?loop1:
        sta     $3E00,x
        inx
        bne     ?loop1
?loop2:
        sta     $3F00,x
        inx
        bne     ?loop2
        rts
;;=================================================
F_DispSymbol:
        jsr     F_GetDispRamIndex
F_TurnOnSegment:
        ldx     R_DispAddress
        lda     R_LcdRamForSplb30,x
        ora     R_DispBit
        sta     R_LcdRamForSplb30,x
        rts
;;=================================================
F_ClearSymbol:
        jsr     F_GetDispRamIndex
F_TurnOffSegment:
        lda     R_DispBit
        eor     #$ff
        sta     R_DispBit
        ldx     R_DispAddress
        lda     R_LcdRamForSplb30,x
        and     R_DispBit
        sta     R_LcdRamForSplb30,x
        rts
;;=================================================
F_GetDispRamIndex:
        lda     lcd_table1,x
        sta     R_DispAddress
        lda     lcd_table1+1,x
        sta     R_DispBit
        rts
;;=================================================