友情推荐网上购书渠道:
EDN网(ednchina)购书入口   >>>
互动出版网(china-pub)购书入口   >>>
当当网(dangdang)购书入口   >>>
淘宝网(taobao)购书入口   >>>
更多购书渠道……   >>> 

设为首页加入收藏联系匠人管理入口21IC首页21IC博客21IC社区侃单片机回复的贴参与的贴

天气预报
百宝日历

百宝专栏

  • 首页 相册 标签
  • 电脑应用(65)
  • 供需信息(22)
  • 写书近况(82)
  • 匠人文集(115)
  • 硬件技术(171)
  • 匠人公告(86)
  • 与非门专栏(545)
  • 匠人笔记(115)
  • 团队撰写(96)
  • 汽车电子(52)
  • 编程技巧(465)
  • 程序宝典(476)
  • 网络酷文(472)
  • 开发工具(19)
  • 资料宝藏(274)
  • 项目管理(11)
  • 藏经宝阁(42)
  • 趣味设计(5)
  • 社区热贴(2)
  • 比尔盖茨熊专栏(0) 
  • 百宝信息

    载入中...

    百宝流量

    (2006-07-01开始)



    匠人手记

    芯片专题

    器件专题

    软件专题

    硬件专题

    综合专题

    项目专题

    原创专题

    器件检测
    LCD LED
    按键 触摸键
    E2PROM
    电池 电机
    电阻 电容 电感

    指令系统
    软件算法
    编程规范
    滤波算法
    串行通讯

    PCB设计
    I2C PWM
    红外遥控
    充电技术
    中断 ADC 

    匠人手记
    匠人夜话
    网络心路
    一周热点串烧
    从零开始玩PIC
    DIY旋转时钟

    中颖SH69P53的LCD驱动程序
    程序匠人 发表于 2006-12-1 13:10:00  阅读全文 | 回复(0) | 引用通告 | 编辑

    中颖SH69P53的LCD驱动程序


    ; Test self SH69P53,ram(192*4), ROM(3072*16), Timer0&1,
    ; ADC function program
    ;*************************
    list p=69P56
    ;*************************
    IE    EQU    00H   ; IEX, IET0, IET1, IEP
    IRQ    EQU    01H
    TM0    EQU    02H
    TM1    EQU    03H
    TL0    EQU    04H
    TH0    EQU    05H
    TL1    EQU    06H
    TH1    EQU    07H
    PORTA    EQU    08H
    PORTB    EQU    09H
    PORTC    EQU    0AH
    PORTD    EQU    0BH
    PORTE    EQU    0CH
    PPHL    EQU    0DH    ; PULLEN, PH/PL, OXS(1:OSCX, 0:OSC), OXON
    TBR    EQU    0EH
    INX    EQU    0FH
    DPL    EQU    10H
    DPM    EQU    11H
    DPH    EQU    12H
    T0SE    EQU   13H
    PBIE    EQU    14H
    PBIF    EQU    15H
    ALM    EQU    16H
    AEC    EQU    17H
    PAXOUT    EQU    18H
    PBXOUT    EQU    19H
    PCXOUT    EQU    1AH
    PDXOUT    EQU    1BH
    PEXOUT    EQU    1CH
    EL    EQU    1DH
    WDT    EQU    1EH
    ;    EQU    1FH
    VACR    EQU   20H   ; BIT3=VREFS, BIT[2:0]=ACR2~0
    ADCS    EQU    21H    ; BIT3=ADCON, BIT[2:0]=CH2~1
    GOT    EQU    22H    ; BIT3=GO/DONEB, BIT2&BIT1=TADC1&0, BIT0=ADCS
    ADCDL    EQU    23H
    ADCDH    EQU    24H
    LCD    EQU    25H    ; , LCDON, RLCD[1:0](Bias Resistor)
    LPS    EQU    26H    ; LPS[1:0], DUTY[1:0]
    LVD    EQU    27H    ; LVD, SEG=OUTPUT, PE=SEG, PD=SEG

    PWM0    EQU    00H    ; +7
    PWM1    EQU    01H    ; +7
    PP0L    EQU    02H    ; +7
    PP0M    EQU    03H   ; +7
    PP0H    EQU    04H   ; +7
    PD0L    EQU    05H   ; +7
    PD0M    EQU    06H   ; +7
    PD0H    EQU    07H   ; +7
    PP1L    EQU    08H   ; +7
    PP1M    EQU    09H   ; +7
    PP1H    EQU    0AH   ; +7
    PD1L    EQU    0BH   ; +7
    PD1M    EQU    0CH   ; +7
    PD1H    EQU    0DH   ; +7
    RDT1    EQU    0EH   ; +7
    RDT2    EQU    0FH   ; +7
    RDT3    EQU    10H   ; +7
    RDT4    EQU    11H   ; +7

    ; ADRn
    ADR0    EQU    060H
    ADR1    EQU    ADR0+01h
    ADR2    EQU    ADR0+02h
    ADR3    EQU    ADR0+03h
    ADR4    EQU    ADR0+04h
    ADR5    EQU    ADR0+05h
    ADR6    EQU    ADR0+06h
    ADR7    EQU    ADR0+07h
    ADR8    EQU    ADR0+08h
    ADR9    EQU    ADR0+09h
    ADRA    EQU    ADR0+0Ah
    ADRB    EQU    ADR0+0BH
    ADRC    EQU    ADR0+0CH
    ADRE    EQU    ADR0+0EH
    ADRF    EQU    ADR0+0FH

    TFLG    EQU    040H
    CT0    EQU    041H
    CT1    EQU    042H
    CTP    EQU    043H
    CT    EQU    044H

    TEMP0    EQU    028H

    ; SELF TEST FLAG AS NORMAL RAM
    FLG0    EQU    050H
    FLG1    EQU    051H
    FLG2    EQU    052H
    FLG3    EQU    053H
    FLG4    EQU    054H
    FLGA    EQU    055H
    FLGB    EQU    056H
    FLGC    EQU    057H
    FLGD    EQU    058H
    FLGE    EQU    059H
    FLGF    EQU    05AH
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       ORG    0000H
    PROGRAM:
       JMP    POWERON
       NOP
       RTNI
       RTNI
       NOP

       ORG    0005H
    POWERON:
    ;    LDA    WDT,0
    ;    BA3    T_WDT
       LDI    PAXOUT,0FH    ; PORTA OUTPUT ENABLE
       LDI    PBXOUT,0FH    ; PORTB OUTPUT ENABLE
    ;    LDI    PCXOUT,0FH    ; PORTC OUTPUT ENABLE
       LDI    PDXOUT,0FH    ; PORTD OUTPUT ENABLE
       LDI    PORTD,00H
       LDI    PEXOUT,0FH    ; PORTE OUTPUT ENABLE
       LDI    TM0,03H   
    ;    LDA    WDT,0
    ;    BA3    WDT_RST

       LDI    CT0,00H
       LDI    CT1,00H
       LDI    CT,00H
       LDI    FLGA,00H
       STA    FLGB,0
       STA    FLGC,0
       STA    FLGD,0
       STA    FLGE,0
       STA    TFLG,0
      

    ;    JMP    TIME_L1
    ;    JMP    T_TIMER
    ;    JMP    T_PINT
    ;    JMP    VIN_PH
    ;    JMP    T_ALM
    ;    JMP    T_WDT

    ;******************************************************************
    ORT OUTPUT TEST
    ;*****************
    T_PORT:   
       NOP
       NOP
       NOP
       NOP
       LDA    WDT,0
       LDI    PORTA,0FH
       LDI    PORTB,0FH
       LDI    PORTC,0FH
       LDI    PORTD,0FH
       LDI    PORTE,0FH
       NOP
       NOP
       NOP
       NOP
       NOP
       NOP
       LDA    WDT,0
       LDI    PORTA,00H
       LDI    PORTB,00H
       LDI    PORTC,00H
       LDI    PORTD,00H
       LDI    PORTE,00H
       ADIM    CT,01H
       BNC    T_PORT
       ADIM    CT0,01H
       BNC    T_PORT+2
       ADIM    CT1,01H
       BNC    T_PORT+4
      
       LDA    WDT,0
       BA3    $+2
       JMP    $+2
       STOP
       LDA    TFLG,0
       BNZ    $+6
      
       LDI    PPHL,0001B    ; OSCX ON
       CALL    DLAY5MS
       LDI    PPHL,0011B    ; SYSCLK=OSCX
       LDI    TFLG,0FH
       JMP    T_PORT
      
       LDI    TFLG,00H
       LDI    TM0,03H        ; 1/32, 4/32768Hz*32(03H)*256=1s
    ;    LDI    TL0,00H
    ;    LDI    TH0,00H
    ;    LDI    IRQ,00H
      
       ANDIM    PBXOUT,1010B    ; PORTB.2&.0=INPUT
       ORIM    PPHL,1100B    ; PULL UP ON
       LDI    PORTB,0101B    ; PORTB.2&.0=INPUT PULL HIGH
       NOP
       LDA    WDT,0
       LDA    PORTB,0
       STA    FLGB,0
       EORIM    FLGB,0101B
       BNZ    START+4        ; RUN=OSCX(FFH)
       ANDIM    PPHL,1100B    ; OSCX OFF
       NOP
    ;    JMP    $
    ;    JMP    T_PORT
       JMP    START        ; RUN=OSC(00H)
    ;******************************************************************
    ;TEST START
    ;*****************
    START:
       LDI    FLG1,00H
       LDI    FLG0,00H
       CALL    DISPLAY
       JMP    T_LCD
       LDI    FLG1,0FH
       LDI    FLG0,0FH
       CALL    DISPLAY
      

      
    T_LCD:    
    ;    JMP    T_T0
       LDI    LCD,0100B    ; LCD ON
    ;    LDI    DPH,06H
    ;    LDI    DPM,00H
    ;    LDI    DPL,00H
    ;    LDI    INX,0FH
    ;    LDI    DPL,01H
    ;    LDI    INX,0FH
    ;    LDI    LPS,0011B
    ;    LDI    LVD,0011B
    ;    NOP
       LDI    PORTD,00H
       LDI    PORTE,00H
    ;    CALL    DLY100
    ;    LDI    PORTA,00H
    ;    CALL    DLY500
    ;    JMP    $-5
    ;    LDI    LCD,00H
    ;    NOP
    ;    NOP
    ;    NOP
    ;    STOP
    ;    NOP
    ;    NOP
    ;    JMP    $-1
    ;****************************************************************
    ;TEST LCDRAM
    TSLCD:
       LDI    FLG2,0DH    ; TEST    LCDRAM($300H~$31DH, $328H~$344H)
       LDI    FLG1,0DH    ;(20)
       LDI    FLG0,00H
       CALL    DISPLAY
       CALL    DLY500
       LDI    LVD,00H
       LDI    LPS,0000B
    LCD_L0:   
       LDA    LVD,0
       STA    FLG1,0
       LDA    LPS,0
       STA    FLG0,0
       CALL    DISPLAY
       NOP
       CALL    LCDTEST
       ADI    LPS,01H
       BA2    $+3
       STA    LPS,0
       JMP    LCD_L0
       LDI    LPS,07H
    LCD_L1:   
       LDA    LVD,0
       STA    FLG1,0
       LDA    LPS,0
       STA    FLG0,0
       CALL    DISPLAY
       NOP
       CALL    LCDTEST
       ADIM    LPS,04H
       BC    $+2
       JMP    LCD_L1
       ADI    LVD,01H
       BA2    $+3
       STA    LVD,0
       JMP    LCD_L1-1
      
       LDI    LVD,0111B
       STA    FLG1,0
       LDI    TEMP0,0FH
       STA    FLG0,0
       CALL    DISPLAY
       CALL    LCDOUT
       SBIM    TEMP0,01H
       BC    $-4

       JMP    START
       JMP    T_T0
    ;******************************
    LCDTEST:
       LDI    TEMP0,0FH
    ;    CALL    RAMTEST1
    ;    CALL    DLY500
    ;    SBIM    TEMP0,01H
    ;    BC    $-3
      
       CALL    RAMTEST2
       RTNI
      
    LCDOUT:                ; SCAN OUTPUT $358H~$36BH
       NOP
       LDI    DPH,06H
       LDI    DPM,00H
       LDI    DPL,00H
       LDI    INX,01H
       LDI    DPL,01H
       LDI    INX,02H
       LDI    DPL,02H
       LDI    INX,04H
       LDI    DPL,03H
       LDI    INX,08H
       LDI    DPL,04H
       LDI    INX,03H
       LDI    DPL,05H
       LDI    INX,05H
       LDI    DPL,06H
       LDI    INX,09H
       LDI    DPL,07H
       LDI    INX,0AH
      
       LDI    DPM,05H
       LDI    DPL,08H
    RAM_L0:
       LDA    TEMP0,0        ; AC=(TEMP0)
       STA    INX,0        ; RAM=(AC)
       CALL    DLY100
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,0CH
       BNZ    RAM_L0
       SBI    DPM,06H
       BAZ    $+4
       JMP    RAM_L0
       ADIM    DPM,01H
       JMP    RAM_L0
       RTNI
    ;**************************
    RAMTEST1:
       LDI    FLG1,02H
       LDA    TEMP0,0
       STA    FLG0,0
    ;    CALL    DISPLAY
       LDI    DPH,06H
       LDI    DPM,00H
       LDI    DPL,00H
    RAM_L1:
       LDA    TEMP0,0        ; AC=(TEMP0)
       STA    INX,0        ; RAM=(AC)
       CALL    DLY100
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,0FH
       BNZ    RAM_L1
       SBI    DPM,01H
       BAZ    $+4
       JMP    RAM_L1
       ADIM    DPM,01H
       JMP    RAM_L1
      
       LDI    DPH,06H
       LDI    DPM,02H
       LDI    DPL,08H
    RAM_L2:
       LDA    TEMP0,0        ; AC=(TEMP0)
       STA    INX,0        ; RAM=(AC)
       CALL    DLY100
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,05H
       BNZ    RAM_L2
       SBI    DPM,04H
       BAZ    $+4
       JMP    RAM_L2
       ADIM    DPM,01H
       JMP    RAM_L2
      
       CALL    DLY500
      
       LDI    DPH,06H
       LDI    DPM,00H
       LDI    DPL,00H
    RAM_L3:
       LDA    TEMP0,0        ; AC=(TEMP0)
       SUBM    INX,0        ; RAM-(AC)=RAM=00H
       BAZ    $+2
       CALL    RAMERR
       CALL    DLY100
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,0FH
       BNZ    RAM_L3
       SBI    DPM,01H
       BAZ    $+4
       JMP    RAM_L3
       ADIM    DPM,01H
       JMP    RAM_L3
      
       LDI    DPH,06H
       LDI    DPM,02H
       LDI    DPL,08H
    RAM_L4:
       LDA    TEMP0,0        ; AC=(TEMP0)
       STA    FLGF,0
       ANDIM    FLGF,03H
       SUBM    INX,0        ; RAM-(AC)=RAM=00H
       BAZ    $+2
       CALL    RAMERR
       CALL    DLY100
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,05H
       BNZ    RAM_L4
       SBI    DPM,04H
       BAZ    $+4
       JMP    RAM_L4
       ADIM    DPM,01H
       JMP    RAM_L4
      
       CALL    DLY500

       RTNI
    ;*************************
    RAMTEST2:
    ;    LDI    FLG1,03H
    ;    LDA    TEMP0,0
    ;    STA    FLG0,0
    ;    CALL    DISPLAY
      
       LDI    DPH,06H
       LDI    DPM,02H
       STA    FLGE,1
       LDI    DPL,08H
       STA    FLGF,1
       LDI    DPM,00H
       STA    DPM,1
       LDI    DPL,00H
       STA    DPL,1
    RAM_L5:
       LDA    DPM,1
       STA    DPM,0
       LDA    DPL,1
       STA    DPL,0
       LDI    INX,01H
    ;    jmp    $-1
       CALL    DLY100
    ;    nop
       LDI    INX,02H
       CALL    DLY100
    ;    nop
       LDI    INX,04H
       CALL    DLY100
    ;    nop
       LDI    INX,08H
       CALL    DLY100
    ;    nop
       LDA    LPS,0
       BA1    $+9
       LDI    INX,0FH
       CALL    DLY100
       LDI    INX,00H
       CALL    DLY100
       CALL    ADDLCDL
       LDA    TEMP0,0
       BNZ    RAM_L5
       RTNI

       LDI    INX,00H
       CALL    DLY100
       LDA    FLGE,1
       STA    DPM,0
       LDA    FLGF,1
       STA    DPL,0
       LDI    INX,01H
       CALL    DLY100
       LDI    INX,02H
       CALL    DLY100
       LDI    INX,0FH
       LDA    DPM,1
       STA    DPM,0
       LDA    DPL,1
       STA    DPL,0
       LDI    INX,0FH
       CALL    DLY100
       LDI    INX,00H
       LDA    FLGE,1
       STA    DPM,0
       LDA    FLGF,1
       STA    DPL,0
       LDI    INX,00H
       CALL    DLY100
       CALL    ADDLCDH
       LDA    DPM,1
       STA    DPM,0
       LDA    DPL,1
       STA    DPL,0
       CALL    ADDLCDL
       LDA    TEMP0,0
       BNZ    RAM_L5
       RTNI
      
    ADDLCDL:
       LDI    TEMP0,00H   
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,0FH
       BNZ    ADDL_L1
       SBI    DPM,01H
       BAZ    $+4
       JMP    ADDL_L1
       ADIM    DPM,01H
    ADDL_L1:
       LDI    TEMP0,0FH
       LDA    DPM,0
       STA    DPM,1
       LDA    DPL,0
       STA    DPL,1
       RTNI   

    ADDLCDH:
       ADIM    DPL,01H
       BC    $+6
       SBI    DPL,05H
       BNZ    ADDL_L2
       SBI    DPM,04H
       BNZ    ADDL_L2
       RTNI
       ADIM    DPM,01H
    ADDL_L2:
       LDA    DPM,0
       STA    FLGE,1
       LDA    DPL,0
       STA    FLGF,1
       RTNI           
      

    ;*************************
    RAMERR:
       LDA    DPH,0
       STA    FLG2,0
       LDA    DPM,0
       STA    FLG1,0
       LDA    DPL,0
       STA    FLG0,0
    ;    CALL    ERR
       RTNI

    ;****************************************
    ;T0
    ;****************************************
    T_T0:
       LDI    FLG2,0BH    ; TEST T0
       LDI    FLG1,0BH
       LDI    FLG0,0CH
       CALL    DISPLAY
       LDA    TM0,0
       STA    TM0,1

       LDA    T0SE,0
       STA    FLG0,0
       CALL    DISPLAY
       LDI    TM0,1111B
       LDI    TL0,00H
       LDI    TH0,0FH
       LDI    IRQ,00H
       NOP
       NOP
       LDA    IRQ,0
       BA2    $+7
       LDA    TH0,0
       STA    FLG1,0
       LDA    TL0,0
       STA    FLG0,0
       CALL    DISPLAY1
       JMP    $-7
      
    T0_LOOP:
       LDI    T0SE,01H
       STA    FLG0,0
       LDI    FLG1,0BH
       CALL    DISPLAY1
       LDI    TM0,1111B
       LDI    TL0,00H
       LDI    TH0,0FH
       LDI    IRQ,00H
       NOP
       NOP
       LDA    IRQ,0
       BA2    $+7
       LDA    TH0,0
       STA    FLG1,0
       LDA    TL0,0
       STA    FLG0,0
       CALL    DISPLAY1
       JMP    $-7
      
       ADIM    T0SE,01H
       BA2    $+2
       JMP    T0_LOOP+1
      
       LDA    TM0,1
       STA    TM0,0
       LDI    T0SE,00H

       LDI    FLG1,0CH
       LDA    T0SE,0
       STA    FLG0,0
       CALL    DISPLAY
       LDI    TM1,1111B
       LDI    TL1,00H
       LDI    TH1,0FH
       LDI    IRQ,00H
       NOP
       NOP
       LDA    IRQ,0
       BA1    $+7
       LDA    TH1,0
       STA    FLG1,0
       LDA    TL1,0
       STA    FLG0,0
       CALL    DISPLAY
       JMP    $-7

    T1_LOOP:   
       LDI    T0SE,04H
       STA    FLG0,0
       LDI    FLG1,0CH
       CALL    DISPLAY
       LDI    TM1,1111B
       LDI    TL1,00H
       LDI    TH1,0FH
       LDI    IRQ,00H
       NOP
       NOP
       LDA    IRQ,0
       BA1    $+7
       LDA    TH1,0
       STA    FLG1,0
       LDA    TL1,0
       STA    FLG0,0
       CALL    DISPLAY
       JMP    $-7
      
       ADIM    T0SE,04H
       BNC    T1_LOOP+1
      
       LDI    T0SE,0010B
       LDI    TM0,1111B
       LDI    TL0,00H
       LDI    TH0,0FH
       LDI    IRQ,00H
       LDI    IE,0100B
       HALT
       NOP
       NOP
       LDI    FLG1,0BH
       LDI    FLG0,0BH
       CALL    DISPLAY1
          
       LDI    T0SE,1000B
       LDI    TM1,1111B
       LDI    TL1,00H
       LDI    TH1,0FH
       LDI    IRQ,00H
       LDI    IE,0010B
       HALT
       NOP
       NOP
       LDI    FLG1,0CH
       LDI    FLG0,0CH
       CALL    DISPLAY
      
       LDI    T0SE,0011B
       LDI    TM0,1111B
       LDI    TL0,00H
       LDI    TH0,0FH
       LDI    IRQ,00H
       LDI    IE,0100B
       HALT
       NOP
       NOP
       LDI    FLG1,0BH
       LDI    FLG0,0CH
       CALL    DISPLAY1
          
       LDI    T0SE,1100B
       LDI    TM1,1111B
       LDI    TL1,00H
       LDI    TH1,0FH
       LDI    IRQ,00H
       LDI    IE,0010B
       HALT
       NOP
       NOP
       LDI    FLG1,0CH
       LDI    FLG0,0BH
       CALL    DISPLAY
      
       CALL    DLY2000

    ;*********************************************************
    T_END:   
       LDI    WDT,00H
       LDA    PPHL,0
       BA1    $+5        ; RUN=OSCX
       LDI    FLG2,0FH
        LDI   FLG1,0FH
        LDI    FLG0,0FH    ; TEST END
        JMP    $+4
        LDI    FLG2,00H
        LDI   FLG1,00H
        LDI    FLG0,00H    ; TEST END
        CALL    DISPLAY
        CALL    DISPLAY
        CALL    DISPLAY
        CALL    DISPLAY
       
        LDI    PAXOUT,0FH
       STA    PBXOUT,0
       STA    PCXOUT,0
       STA    PDXOUT,0
       LDI    PORTC,0FH
       STOP
       NOP
       NOP
       JMP    T_END

     

    ;********************************************************************
    DISPLAY1:   
       ORIM    PCXOUT,0111B
       ANDIM    PORTC,1000B
       LDI    PEXOUT,0FH
       LDI    PDXOUT,0FH
       LDI    TBR,0EH
       LDA    FLG1,0
       CALL    MARK
       STA    PORTE,0
       LDA    TBR,0
       STA    PORTD,0
       ORIM    PORTC,0010B
       LDI    TM1,00H
       LDI    TL1,00H
       LDI    TH1,08H
       ANDIM    IRQ,1101B
       LDA    WDT,0
       LDA    IRQ,0
       BA1    $+2
       JMP    $-3
       LDI    TBR,0EH
       LDA    FLG0,0
       CALL    MARK
       STA    PORTE,0
       LDA    TBR,0
       STA    PORTD,0
       ANDIM    PORTC,1101B
       ORIM    PORTC,0001B
       LDI    TM1,00H
       LDI    TL1,00H
       LDI    TH1,08H
       ANDIM    IRQ,1101B
       LDA    WDT,0
       LDA    IRQ,0
       BA1    $+2
       JMP    $-3
       ANDIM    PORTC,1000B
       LDI    TM1,00H
       LDI    TL1,00H
       LDI    TH1,08H
       ANDIM    IRQ,1101B
       LDA    WDT,0
       LDA    IRQ,0
       BA1    $+2
       JMP    $-3
       RTNI
      
    DLAY5MS:
       LDI    CT0,04H
       NOP
       ADIM    CT0,01H
       BNC    $-2
       RTNI   

    DLY500:
       LDI    TL0,00H
       LDI    TH0,08H
    DLY5_0:
       ANDIM    IRQ,1011B
       LDA    WDT,0
       LDA    IRQ,0
       BA2    $+2
       JMP    $-3
       RTNI

    DLY100:
       LDI    TL0,0CH
       LDI    TH0,0CH
       JMP    DLY5_0

    DLY1000:
       LDI    CT,02H
       CALL    DLY500
       SBIM    CT,01H
       BNZ    $-2
       RTNI
      
    DLY2000:
       LDI    CT,04H
       CALL    DLY500
       SBIM    CT,01H
       BNZ    $-2
       RTNI   

    DISPLAY:
       ORIM    PCXOUT,0111B    ; PC2~0=OUTPUT
       ANDIM    PORTC,1000B
       LDI    PEXOUT,0FH
       LDI    PDXOUT,0FH
       LDI    TBR,0EH
       LDA    FLG1,0
       CALL    MARK
       STA    PORTE,0
       LDA    TBR,0
       STA    PORTD,0
       ORIM    PORTC,0010B
       CALL    DLY500
       LDI    TBR,0EH
       LDA    FLG0,0
       CALL    MARK
       STA    PORTE,0
       LDA    TBR,0
       STA    PORTD,0
       ANDIM    PORTC,1101B
       ORIM    PORTC,0001B
       CALL    DLY500
       CALL    CLS
       CALL    DLY500
       RTNI   

    CLS:
    ;    LDI    PORTE,00H
    ;    LDI    PORTF,00H
       ANDIM    PORTC,1000B
       RTNI
      
      
       ORG    5DFH
    MARK:
       TJMP

    ;    ORG    5E0H
       RTNW    0EH,07H        ;0
       RTNW    08H,04H        ;1
       RTNW    0DH,03H        ;2
       RTNW    0DH,06H        ;3
       RTNW    0BH,04H        ;4
       RTNW    07H,06H        ;5
       RTNW    07H,07H        ;6
       RTNW    0CH,04H        ;7
       RTNW    0FH,07H        ;8
       RTNW    0FH,06H        ;9
       RTNW    0FH,05H        ;a
       RTNW    03H,07H        ;b
       RTNW    06H,03H        ;c
       RTNW    09H,07H        ;d
       RTNW    07H,03H        ;E
       RTNW    07H,01H        ;F
       RTNW   01H,02H        ;Do C4 12H****************************************************************
        RTNW   03H,06H        ;Re D4 36H
        RTNW   02H,0DH        ;Me
        RTNW   06H,0FH        ;Fa
        RTNW   06H,0CH        ;So
        RTNW   00H,0DH        ;La
        RTNW   05H,02H        ;Si
        RTNW   04H,0BH        ;Do^30=17,31=4B
        RTNW   05H,0DH        ;Re^
        RTNW   06H,0EH        ;Me^
        RTNW   03H,09H        ;Fa^
        RTNW   06H,06H        ;So^
        RTNW   01H,09H        ;La^
        RTNW   06H,05H        ;Si^
        RTNW   04H,0AH        ;Do^^

      
    ;*********************************************************
       END

     

    看《匠人手记》,与匠人同行!北航出版,正在热卖!

  • 标签:中颖 SH69P53 LCD 程序 
  • 发表评论:
    载入中...

    广告5号位 [投放]


    学习板、开发板、编程器、下载器、仿真器(查看详情……)

    站内搜索


    站外搜索


    百度  google
    mp3  歌词 
    图片  FLASH 
    知道  文档
    新闻  词典 
    地图  mp3 
    软件  天网 
    雅虎  爱问 
    搜狗  讯雷 
    网讯  华军 
    天空 

    21IC器件搜索
    百宝箱分站
  • 《匠人的百宝箱》21IC站
  • 《匠人的百宝箱》21IC笔记团队
  • 《匠人的百宝箱》MCUBLOG站
  • 《匠人的百宝箱》MCUBLOG笔记团队
  • 《匠人的百宝箱》EDN站
  • 《匠人手记》EDN书友会
  • 《匠人的百宝箱》与非网站
  • 《匠人的百宝箱》新浪站
  • 《匠人的百宝箱》百度站
  • 《匠人的百宝箱》网易126站
  • 《匠人的百宝箱》网易163站
  • 《匠人的百宝箱》互动出版网站
  • 广告4号位 [投放]

     
     
     

    新鲜货色

    匠人手记

    近期动态

    载入中...

      《匠人手记》购书全攻略 
     书友近况:淘书手记答疑与讨论:什么是散转程序 
     《匠人手记》新书艳照
     EDN《匠人手记》签名售书优惠活动开始报名啦!
     欢迎加入《匠人手记》EDN书友会
     欢迎加入《匠人手记》书友会Q群
     《匠人手记》终稿目录
     《匠人手记》封面,请大家先睹为快
     上周六收到了北航寄来的《匠人手记》清样,让大家先睹为快

    匠人原创

    粉丝评论

    往日酷贴

    载入中...

    载入中...



     网络酷文:博客,改变的不仅仅是图书 
     网络酷文:C语言宏定义技巧C语言 条件编译详解

      21IC上海2008-04聚会报名进行中。。。 
     两分钟让你明白什么是ERP![转]
      神奇的Duff's Device 算法
      实用一线通讯电路及软件设计方法
      程序员的“七年之痒”
      史上最短但最精彩的武侠小说
      网络无厘头文学《缺钙水浒》(爆笑)

     你的博客还能持续多久(转贴)
     电动车无刷电机控制器软件设计要点(作者:谢渊斌)

    大千八卦

    友情连接

    新浪新闻:
    新浪财经:
    AK58新闻:
    新浪股票:
    新浪股票:
    证券之星:

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [嵌入式365]

    [水牛的仓库]

    [股剩是怎样炼成的]

    [PIC论坛]

    [ICC AVR开发网]

    [中国高校自动化网]

     

     

     

    MCU博客-中国电子工程师博客网 

    大学生电子网 

     

     

     

     

     

    !!! 《匠人的百宝箱》 !!!