; Register Equates
PORTA    EQU    $00    ;LCD display data
PORTB    EQU    $01    ;Keypad Row4,3,2,1;Col1,2,3,4
PORTC    EQU    $02    ;Fan*,Heat*,Cool*,Beep;ADen*,E,RS,R/W
DDRA    EQU    $04    ;Data direction, Port A (all output)
DDRB    EQU    $05    ;Data direction, Port B (7-4in,3-0out)
DDRC    EQU    $06    ;Data direction, Port C (all output)

; RAM Equates
TEMPA    EQU    $9E    ;One byte temp storage location
TEMPX    EQU    $9F    ;One byte temp storage location

    ORG    $100
; Set Port data patterns and directions
TRYLCD    LDA    #$00    ;
    STA    PORTB    ;Initial values for Thermostat controls控制脚PB0
接RS，PB1接RW，PB2接E
        STA     PORTC   ;数据线
    LDA    #$FF
    STA    DDRB    ;Port A all outputs
    STA    DDRC    ;Port C all outputs

; LCD display peripheral needs to be initialized  初始化
    LDA    #$01
    JSR    WCTRL    ;Clear
    LDA    #$02
    JSR    WCTRL    ;Home
    LDA    #$38
    JSR    WCTRL    ;Function Set- 8-bit,2-line,5X7
    LDA    #$0C
    JSR    WCTRL    ;Display on, Cursor off
    LDA    #$06
    JSR    WCTRL    ;Entry mode- Inc addr, no shift
        LDA     #80     ；从第一行开始
        JSR     ADDR

    LDA    #'A'    ;ASCII 'A'  显示单字符子程序
DLP    JSR    WDAT    ;Display a character
    INCA        ;To next ASCII character
    CMP    #'Z'    ;Go ABCDEFGHIJKLMNOPQRS & stop
    BNE    DLP    ;Loop till T
;HERE    BRA    HERE    ;Stop
        LDA     #0C0    ；从第二行开始
        JSR     ADDR
        CLRX
        JSR     PRSTR
PRSTR   LDA     LINE1,X   ;整行显示字符串子程序
        BEQ     OUT
L3      JSR     WDAT
        INCX
        BRA     PRSTR
OUT     RTS
;**************
; SUBROUTINES *
;**************

;*******************************************************
; WCTRL - Write control word to LCD peripheral         *
;    Enter with control word in accumulator       &nbs ......

>>返回讨论的主题