hc11demo.sdi

freescale单片机lcd液晶屏驱动程序

F712,7E,,
F713,55,,
F714,55,,
F715,55,,
F716,57,,
F717,7F,,
F718,55,,
F719,55,,
F71A,77,,
F71B,55,,
F71C,55,,
F71D,77,,
F71E,00,,                 db $00,$1F,$FF,$FF,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
F71F,1F,,
F720,FF,,
F721,FF,,
F722,FE,,
F723,FF,,
F724,FF,,
F725,FF,,
F726,FF,,
F727,FF,,
F728,FF,,
F729,FF,,
F72A,FF,,
F72B,FF,,
F72C,FF,,
F72D,FF,,
F72E,00,,                 db $00,$1D,$DD,$DF,$FE,$3F,$DD,$DD,$FF,$FF,$DD,$DD,$FF,$DD,$DD,$FF
F72F,1D,,
F730,DD,,
F731,DF,,
F732,FE,,
F733,3F,,
F734,DD,,
F735,DD,,
F736,FF,,
F737,FF,,
F738,DD,,
F739,DD,,
F73A,FF,,
F73B,DD,,
F73C,DD,,
F73D,FF,,
F73E,00,,                 db $00,$0F,$FF,$FF,$FE,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
F73F,0F,,
F740,FF,,
F741,FF,,
F742,FE,,
F743,0F,,
F744,FF,,
F745,FF,,
F746,FF,,
F747,FF,,
F748,FF,,
F749,FF,,
F74A,FF,,
F74B,FF,,
F74C,FF,,
F74D,FF,,
F74E,00,,                 db $00,$07,$F7,$F7,$F4,$03,$F7,$F7,$FF,$FF,$F7,$F7,$F7,$F7,$F7,$F7
F74F,07,,
F750,F7,,
F751,F7,,
F752,F4,,
F753,03,,
F754,F7,,
F755,F7,,
F756,FF,,
F757,FF,,
F758,F7,,
F759,F7,,
F75A,F7,,
F75B,F7,,
F75C,F7,,
F75D,F7,,
F75E,00,,                 db $00,$03,$FF,$FF,$FC,$00,$FF,$FF,$FF,$FE,$FF,$FF,$FF,$7F,$FF,$FF
F75F,03,,
F760,FF,,
F761,FF,,
F762,FC,,
F763,00,,
F764,FF,,
F765,FF,,
F766,FF,,
F767,FE,,
F768,FF,,
F769,FF,,
F76A,FF,,
F76B,7F,,
F76C,FF,,
F76D,FF,,
F76E,00,,                 db $00,$00,$FF,$FF,$FC,$00,$1F,$FF,$FF,$F8,$3F,$FF,$FF,$1F,$FF,$FF
F76F,00,,
F770,FF,,
F771,FF,,
F772,FC,,
F773,00,,
F774,1F,,
F775,FF,,
F776,FF,,
F777,F8,,
F778,3F,,
F779,FF,,
F77A,FF,,
F77B,1F,,
F77C,FF,,
F77D,FF,,
F77E,00,,                 db $00,$00,$3F,$FF,$F8,$00,$0F,$FF,$FF,$F0,$1F,$FF,$FF,$0F,$FF,$FF
F77F,00,,
F780,3F,,
F781,FF,,
F782,F8,,
F783,00,,
F784,0F,,
F785,FF,,
F786,FF,,
F787,F0,,
F788,1F,,
F789,FF,,
F78A,FF,,
F78B,0F,,
F78C,FF,,
F78D,FF,,
F78E,00,,                 db $00,$00,$07,$77,$70,$00,$01,$77,$7F,$00,$04,$71,$77,$03,$55,$77
F78F,00,,
F790,07,,
F791,77,,
F792,70,,
F793,00,,
F794,01,,
F795,77,,
F796,7F,,
F797,00,,
F798,04,,
F799,71,,
F79A,77,,
F79B,03,,
F79C,55,,
F79D,77,,
F79E,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F79F,00,,
F7A0,00,,
F7A1,00,,
F7A2,00,,
F7A3,00,,
F7A4,00,,
F7A5,00,,
F7A6,00,,
F7A7,00,,
F7A8,00,,
F7A9,00,,
F7AA,00,,
F7AB,00,,
F7AC,00,,
F7AD,00,,
F7AE,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F7AF,00,,
F7B0,00,,
F7B1,00,,
F7B2,00,,
F7B3,00,,
F7B4,00,,
F7B5,00,,
F7B6,00,,
F7B7,00,,
F7B8,00,,
F7B9,00,,
F7BA,00,,
F7BB,00,,
F7BC,00,,
F7BD,00,,
F7BE,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F7BF,00,,
F7C0,00,,
F7C1,00,,
F7C2,00,,
F7C3,00,,
F7C4,00,,
F7C5,00,,
F7C6,00,,
F7C7,00,,
F7C8,00,,
F7C9,00,,
F7CA,00,,
F7CB,00,,
F7CC,00,,
F7CD,00,,
F7CE,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F7CF,00,,
F7D0,00,,
F7D1,00,,
F7D2,00,,
F7D3,00,,
F7D4,00,,
F7D5,00,,
F7D6,00,,
F7D7,00,,
F7D8,00,,
F7D9,00,,
F7DA,00,,
F7DB,00,,
F7DC,00,,
F7DD,00,,
F7DE,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F7DF,00,,
F7E0,00,,
F7E1,00,,
F7E2,00,,
F7E3,00,,
F7E4,00,,
F7E5,00,,
F7E6,00,,
F7E7,00,,
F7E8,00,,
F7E9,00,,
F7EA,00,,
F7EB,00,,
F7EC,00,,
F7ED,00,,
F7EE,20,,                 db $20,$C0,$00,$00,$81,$E0,$00,$00,$00,$00,$60,$C0,$04,$05,$40,$00
F7EF,C0,,
F7F0,00,,
F7F1,00,,
F7F2,81,,
F7F3,E0,,
F7F4,00,,
F7F5,00,,
F7F6,00,,
F7F7,00,,
F7F8,60,,
F7F9,C0,,
F7FA,04,,
F7FB,05,,
F7FC,40,,
F7FD,00,,
F7FE,21,,                 db $21,$00,$40,$00,$82,$10,$00,$40,$00,$00,$60,$C0,$04,$05,$00,$00
F7FF,00,,
F800,40,,
F801,00,,
F802,82,,
F803,10,,
F804,00,,
F805,40,,
F806,00,,
F807,00,,
F808,60,,
F809,C0,,
F80A,04,,
F80B,05,,
F80C,00,,
F80D,00,,
F80E,11,,                 db $11,$4E,$F4,$9E,$82,$04,$7C,$F7,$9E,$E0,$51,$4E,$3C,$F5,$4F,$3C
F80F,4E,,
F810,F4,,
F811,9E,,
F812,82,,
F813,04,,
F814,7C,,
F815,F7,,
F816,9E,,
F817,E0,,
F818,51,,
F819,4E,,
F81A,3C,,
F81B,F5,,
F81C,4F,,
F81D,3C,,
F81E,11,,                 db $11,$4A,$44,$92,$81,$E4,$62,$44,$91,$20,$51,$51,$44,$95,$49,$24
F81F,4A,,
F820,44,,
F821,92,,
F822,81,,
F823,E4,,
F824,62,,
F825,44,,
F826,91,,
F827,20,,
F828,51,,
F829,51,,
F82A,44,,
F82B,95,,
F82C,49,,
F82D,24,,
F82E,0A,,                 db $0A,$48,$44,$9E,$80,$12,$A0,$47,$91,$20,$4A,$51,$44,$F5,$49,$24
F82F,48,,
F830,44,,
F831,9E,,
F832,80,,
F833,12,,
F834,A0,,
F835,47,,
F836,91,,
F837,20,,
F838,4A,,
F839,51,,
F83A,44,,
F83B,F5,,
F83C,49,,
F83D,24,,
F83E,0A,,                 db $0A,$48,$44,$92,$82,$12,$BE,$44,$11,$20,$4A,$51,$44,$85,$49,$24
F83F,48,,
F840,44,,
F841,92,,
F842,82,,
F843,12,,
F844,BE,,
F845,44,,
F846,11,,
F847,20,,
F848,4A,,
F849,51,,
F84A,44,,
F84B,85,,
F84C,49,,
F84D,24,,
F84E,0A,,                 db $0A,$48,$54,$92,$82,$12,$A2,$54,$91,$20,$4A,$51,$44,$95,$49,$24
F84F,48,,
F850,54,,
F851,92,,
F852,82,,
F853,12,,
F854,A2,,
F855,54,,
F856,91,,
F857,20,,
F858,4A,,
F859,51,,
F85A,44,,
F85B,95,,
F85C,49,,
F85D,24,,
F85E,04,,                 db $04,$48,$77,$9E,$81,$E1,$3E,$73,$91,$20,$44,$4E,$3C,$75,$49,$3C
F85F,48,,
F860,77,,
F861,9E,,
F862,81,,
F863,E1,,
F864,3E,,
F865,73,,
F866,91,,
F867,20,,
F868,44,,
F869,4E,,
F86A,3C,,
F86B,75,,
F86C,49,,
F86D,3C,,
F86E,00,,                 db $00,$00,$00,$00,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04
F86F,00,,
F870,00,,
F871,00,,
F872,00,,
F873,01,,
F874,00,,
F875,00,,
F876,00,,
F877,00,,
F878,00,,
F879,00,,
F87A,00,,
F87B,00,,
F87C,00,,
F87D,04,,
F87E,00,,                 db $00,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$38
F87F,00,,
F880,00,,
F881,00,,
F882,00,,
F883,03,,
F884,00,,
F885,00,,
F886,00,,
F887,00,,
F888,00,,
F889,00,,
F88A,00,,
F88B,00,,
F88C,00,,
F88D,38,,
F88E,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F88F,00,,
F890,00,,
F891,00,,
F892,00,,
F893,00,,
F894,00,,
F895,00,,
F896,00,,
F897,00,,
F898,00,,
F899,00,,
F89A,00,,
F89B,00,,
F89C,00,,
F89D,00,,
F89E,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F89F,00,,
F8A0,00,,
F8A1,00,,
F8A2,00,,
F8A3,00,,
F8A4,00,,
F8A5,00,,
F8A6,00,,
F8A7,00,,
F8A8,00,,
F8A9,00,,
F8AA,00,,
F8AB,00,,
F8AC,00,,
F8AD,00,,
F8AE,00,,                 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
F8AF,00,,
F8B0,00,,
F8B1,00,,
F8B2,00,,
F8B3,00,,
F8B4,00,,
F8B5,00,,
F8B6,00,,
F8B7,00,,
F8B8,00,,
F8B9,00,,
F8BA,00,,
F8BB,00,,
F8BC,00,,
F8BD,00,,
,,,
,,, vsmlogoend
,,,
,,, ;************************************************************************
,,, ;**** Pixel Addressable LCD Package ****
,,, ******************;*********************
,,,
,,, ;LCD Registers addresses
,,, LCD_STATUS      equ     5
,,, LCD_COMMAND     equ     6
,,, LCD_READ        equ     1
,,, LCD_WRITE       equ     2
,,,
,,, ;Common LCD Commands
,,, LCD_CURSOR      equ     $21
,,, LCD_OFFSET      equ     $22
,,, LCD_ADDRESS     equ     $24
,,, LCD_TEXTHOME    equ     $40
,,, LCD_TEXTAREA    equ     $41
,,, LCD_GFXHOME     equ     $42
,,, LCD_GFXAREA     equ     $43
,,, LCD_ORMODE      equ     $80
,,, LCD_XORMODE     equ     $81
,,, LCD_ANDMODE     equ     $83
,,, LCD_ATTRMODE    equ     $84
,,, LCD_DISPLAY     equ     $90
,,, LCD_CLINES      equ     $A0
,,, LCD_AUTOWRITE   equ     $B0
,,, LCD_AUTOREAD    equ     $B1
,,, LCD_AUTORESET   equ     $B2
,,, LCD_WRITEINC    equ     $C0
,,, LCD_READINC     equ     $C1
,,, LCD_WRITEDEC    equ     $C2
,,, LCD_READDEC     equ     $C3
,,, LCD_SCREENPEEK  equ     $E0
,,, LCD_SCREENCOPY  equ     $E8
,,, LCD_BITSET      equ     $F0
,,,
,,, ;Initialize LCD package for 128x75 pixel display
F8BE,86 02,lcdinit, lcdinit         ldaa #2                         ;STRB active low, STRA on rising edges
F8C0,A7 02,,                 staa PIOC,X
,,,
F8C2,86 FF,,                 ldaa #$FF                       ;Start with PORTB high.
F8C4,A7 04,,                 staa PORTB,X
,,,
F8C6,CC 00 00,,                 ldd #0                          ;Set Text base address
F8C9,8D 5A,,                 bsr wrdouble
F8CB,86 40,,                 ldaa #LCD_TEXTHOME
F8CD,8D 41,,                 bsr wrcmd
,,,
F8CF,CC 00 10,,                 ldd #16                         ;16 bytes per text row
F8D2,8D 51,,                 bsr wrdouble
F8D4,86 41,,                 ldaa #LCD_TEXTAREA
F8D6,8D 38,,                 bsr wrcmd
,,,
F8D8,CC 04 00,,                 ldd #$0400                      ;Set Graphics base address
F8DB,8D 48,,                 bsr wrdouble
F8DD,86 42,,                 ldaa #LCD_GFXHOME
F8DF,8D 2F,,                 bsr wrcmd
,,,
F8E1,CC 00 10,,                 ldd #16                         ;16 bytes per graphics row
F8E4,8D 3F,,                 bsr wrdouble
F8E6,86 43,,                 ldaa #LCD_GFXAREA
F8E8,8D 26,,                 bsr wrcmd
,,,
F8EA,CC 08 00,,                 ldd #$0800                      ;Set CGRAM base address
F8ED,8D 36,,                 bsr wrdouble
F8EF,86 22,,                 ldaa #LCD_OFFSET
F8F1,8D 1D,,                 bsr wrcmd
,,,
F8F3,86 9C,,                 ldaa #LCD_DISPLAY+$0C           ;Enable text, graphics, no cursor.
F8F5,8D 19,,                 bsr wrcmd
F8F7,39,,                 rts
,,,
,,, ;Set the address pointer
F8F8,8D 2B,wraddr, wraddr          bsr wrdouble
F8FA,86 24,,                 ldaa #LCD_ADDRESS
F8FC,20 12,,                 bra wrcmd
,,,
,,, ;Write ASCIIZ string at Y to LCD
F8FE,18 A6 00,wrstr, wrstr           ldaa 0,Y                        ;Read next character
F901,27 0C,,                 beq wsdone                      ;rtsurn if zero
F903,80 20,,                 suba #$20                       ;Display uses non ASCII charset.
F905,8D 23,,                 bsr wrdata                      ;Send it to the display as data
F907,86 C0,,                 ldaa #LCD_WRITEINC              ;Write and increment
F909,8D 05,,                 bsr wrcmd
F90B,18 08,,                 iny                             ;Loop for next character
F90D,20 EF,,                 bra wrstr
F90F,39,wsdone, wsdone          rts
,,,
,,, ;Write command
F910,6F 07,wrcmd, wrcmd           clr DDRC,X                      ;Prepare to read
F912,C6 05,,                 ldab #LCD_STATUS                ;CD high, RD low
F914,E7 04,wrcmd1, wrcmd1          stab PORTB,X
F916,1F 05 01 FA,,                 brclr PORTCL,X,1,wrcmd1         ;Bit 0 must be set
F91A,A7 03,,                 staa PORTC,X
F91C,C6 FF,,                 ldab #$FF
F91E,E7 07,,                 stab DDRC,X
F920,C6 06,,                 ldab #LCD_COMMAND
F922,E7 04,,                 stab PORTB,X
F924,39,,                 rts
,,,
,,, ;Write double data parameter (B=data1, A=data2)
,,, ;Use for setting graphics/text home addresses etc.
F925,36,wrdouble, wrdouble        psha
F926,17,,                 tba
F927,8D 01,,                 bsr wrdata
F929,32,,                 pula
,,,
,,, ;Write single data parameter
F92A,6F 07,wrdata, wrdata          clr DDRC,X                      ;Prepare to read
F92C,C6 05,,                 ldab #LCD_STATUS                ;CD high, RD low
F92E,E7 04,wrdata1, wrdata1         stab PORTB,X
F930,1F 05 02 FA,,                 brclr PORTCL,X,2,wrdata1        ;Bit 1 must be set
F934,A7 03,,                 staa PORTC,X
F936,C6 FF,,                 ldab #$FF
F938,E7 07,,                 stab DDRC,X
F93A,C6 02,,                 ldab #LCD_WRITE
F93C,E7 04,,                 stab PORTB,X
F93E,39,,                 rts
,,,
,,,
,,, ;Write autodata value:
F93F,6F 07,awdata, awdata          clr DDRC,X                      ;Prepare to read
F941,C6 05,,                 ldab #LCD_STATUS                ;CD high, RD low
F943,E7 04,wrauto1, wrauto1         stab PORTB,X
F945,1F 05 08 FA,,                 brclr PORTCL,X,8,wrauto1        ;Bit 3 must be set
F949,A7 03,,                 staa PORTC,X
F94B,C6 FF,,                 ldab #$FF
F94D,E7 07,,                 stab DDRC,X
F94F,C6 02,,                 ldab #LCD_WRITE
F951,E7 04,,                 stab PORTB,X
F953,39,,                 rts
,,,
,,, ;Reset autowrite:
F954,6F 07,awreset, awreset         clr DDRC,X                      ;Prepare to read
F956,C6 05,,                 ldab #LCD_STATUS                ;CD high, RD low
F958,E7 04,awr1, awr1            stab PORTB,X
F95A,1F 05 08 FA,,                 brclr PORTCL,X,8,awr1           ;Bit 3 must be set
F95E,86 B2,,                 ldaa #LCD_AUTORESET
F960,A7 03,,                 staa PORTC,X
F962,C6 FF,,                 ldab #$FF
F964,E7 07,,                 stab DDRC,X
F966,C6 06,,                 ldab #LCD_COMMAND
F968,E7 04,,                 stab PORTB,X
F96A,39,,                 rts
,,,
,,, ;Read autodata
F96B,6F 07,rdauto, rdauto          clr DDRC,X                      ;Prepare to read
F96D,C6 05,,                 ldab #LCD_STATUS                ;CD high, RD low
F96F,E7 04,rdauto1, rdauto1         stab PORTB,X
F971,1F 05 04 FA,,                 brclr PORTCL,X,4,rdauto1        ;Bit 2 must be set
F975,C6 01,,                 ldab #LCD_READ
F977,E7 04,,                 stab PORTB,X
F979,96 05,,                 ldaa PORTCL
F97B,39,,                 rts
,,,
,,, ;Reset autoread:
F97C,6F 07,arreset, arreset         clr DDRC,X                      ;Prepare to read
F97E,C6 05,,                 ldab #LCD_STATUS                ;CD high, RD low
F980,E7 04,arr1, arr1            stab PORTB,X
F982,1F 05 04 FA,,                 brclr PORTCL,X,4,arr1           ;Bit 2 must be set
F986,86 B2,,                 ldaa #LCD_AUTORESET
F988,A7 03,,                 staa PORTC,X
F98A,C6 FF,,                 ldab #$FF
F98C,E7 07,,                 stab DDRC,X
F98E,C6 06,,                 ldab #LCD_COMMAND
F990,E7 04,,                 stab PORTB,X
F992,39,,                 rts