0001 b5f0 LCDCMD equ $b5f0 0002 b5f1 LCDDAT equ $b5f1 0003 0004 003c L4xC20 equ $3c * 4x20 0005 0001 CLRCH equ $01 0006 000f DCBON equ $0f 0007 0006 CINSHOF equ $06 0008 0014 SCSHR equ $14 0009 0002 CSRHOM equ $02 0010 0011 2100 ORG $2100 0012 0013 2100 86 3c [ 2 ] init ldaa #L4xC20 0014 2102 b7 b5 f0 [ 4 ] staa LCDCMD 0015 2105 bd 21 50 [ 6 ] jsr longue 0016 2108 86 01 [ 2 ] ldaa #CLRCH 0017 210a b7 b5 f0 [ 4 ] staa LCDCMD 0018 210d bd 21 50 [ 6 ] jsr longue 0019 2110 86 0f [ 2 ] ldaa #DCBON 0020 2112 b7 b5 f0 [ 4 ] staa LCDCMD 0021 2115 bd 21 57 [ 6 ] jsr courte 0022 2118 86 06 [ 2 ] ldaa #CINSHOF 0023 211a b7 b5 f0 [ 4 ] staa LCDCMD 0024 211d bd 21 57 [ 6 ] jsr courte 0025 2120 86 14 [ 2 ] ldaa #SCSHR 0026 2122 b7 b5 f0 [ 4 ] staa LCDCMD 0027 2125 bd 21 57 [ 6 ] jsr courte 0028 2128 86 02 [ 2 ] ldaa #CSRHOM 0029 212a b7 b5 f0 [ 4 ] staa LCDCMD 0030 212d bd 21 57 [ 6 ] jsr courte 0031 0032 2130 86 41 [ 2 ] suite ldaa #'A' 0033 2132 b7 b5 f1 [ 4 ] staa LCDDAT 0034 2135 bd 21 57 [ 6 ] jsr courte 0035 2138 86 42 [ 2 ] ldaa #'B' 0036 213a b7 b5 f1 [ 4 ] staa LCDDAT 0037 213d bd 21 57 [ 6 ] jsr courte 0038 2140 86 43 [ 2 ] ldaa #'C' 0039 2142 b7 b5 f1 [ 4 ] staa LCDDAT 0040 2145 bd 21 57 [ 6 ] jsr courte 0041 2148 86 44 [ 2 ] ldaa #'D' 0042 214a b7 b5 f1 [ 4 ] staa LCDDAT 0043 214d bd 21 57 [ 6 ] jsr courte 0044 0045 0046 * 0047 2150 ce c3 50 [ 3 ] longue ldx #50000 0048 2153 09 [ 3 ] loop_l dex 0049 2154 26 fd [ 3 ] bne loop_l 0050 2156 39 [ 5 ] rts 0051 * 0052 2157 ce 03 e8 [ 3 ] courte ldx #1000 0053 215a 09 [ 3 ] loop_c dex 0054 215b 26 fd [ 3 ] bne loop_c 0055 215d 39 [ 5 ] rtsloop_c