;********************************************************
;* lcd.asm : programme de contr“le de l'afficheur LCD   *
;********************************************************
;Programme de test d'un afficheur LCD situ‚ … l'adresse $4000
;se referant au schema donn‚ a l'adresse

;--------------------------------
;|      EQUATES SECTION         |
;--------------------------------
OPTION  equ     $1039
;------------------------------------
;|      VARIABLES                   |
;------------------------------------
;--------------------------------
;|      MAIN                    |
;--------------------------------
        ORG     $0C000
        fcc     "* AfficheurLCD *"
        fcb  0
        fcc     "*  t e s t...  *"
        fcb $12
        fcb $15
        fcb $15
        fcb $15
        fcb $15
        fcb $15
        fcb $12
        fcb 0


Main:   ldaa    #$40
        staa    OPTION
LC1A4:  lds     #$00FF
        jsr     LCD50
        ldaa    #$38
        staa    $4000
        jsr     LCD50
        ldaa    #$01
        staa    $4000
        jsr     LCD50
        ldaa    #$0F
LC1BC:  staa    $4000
        jsr     LCD50
        ldaa    #$06
        staa    $4000
        ldaa    #$40
        jsr     LCD50
        staa    $4000
        ldab    #$08
        ldx     #$0C021
LC1D4:  ldaa    0,X
        inx
        jsr     LCD36
        decb
        bne     LC1D4
        ldaa    #$01
        jsr     LCD50
        staa    $4000
LC204:  ldx     #$0C000
        jsr     LCD3F
        ldaa    #$0C0
        jsr     LCD50
        staa    $4000
        ldx     #$0C011
        jsr     LCD3F
        bra     *
LCD36:  tst    $4000
        bmi     LCD36
        staa    $4001
        rts
LCD3F:  ldaa    0,X
        inx
        tsta
        bne     LCD46
        rts
LCD46:  tst     $4000
        bmi     LCD46
        staa    $4001
        bra     LCD3F

LCD50:  tst     $4000
        bmi     LCD50
        rts

;------------------------------------
;RESET Vector
;------------------------------------
        org    $0FFD6
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main        
        fdb     Main
        fdb     Main        
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main
        fdb     Main      
        fdb     Main
        fdb     Main
        fdb     Main