《匠人手记》推荐网上购书渠道:
互动出版网(china-pub)购书入口   >>>
当当网(dangdang)购书入口   >>>
卓越亚马逊网 购书入口   >>>
淘宝网(taobao)购书入口   >>>
更多购书渠道……   >>> 

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

天气预报
百宝日历
载入中...

百宝专栏

载入中...
最新货色

载入中...

粉丝评论

载入中...

载入中...



百宝信息

载入中...

百宝流量

(2006-07-01开始)


匠人手记

 匠人观点: 好记性不如烂笔头  
 黑色幽默:三鹿门——后世畅想

em78P156e+1621显示汇编例子
程序匠人 发表于 2006-8-26 23:09:00  阅读全文 | 回复(0) | 引用通告 | 编辑

 em78c156e+1621显示汇编例子

;XS1621 ,3.58,OUT 20001  /6/22

INDI    EQU     0X0
RTCC    EQU     0X1
PC      EQU     0X2
STATUS  EQU     0X3
FSR     EQU     0X4
PORT5   EQU     0X5
PORT6   EQU     0X6
STACK_A EQU     0X10
STACK_S EQU     0X11
XS1     EQU     0X12
XS2     EQU     0X13
XS3     EQU     0X15
XS4     EQU     0X16
XS5     EQU     0X17
XS6     EQU     0X18
XS7     EQU     0X19
XS8     EQU     0X1A
JP1     EQU     0X1B
JP2     EQU     0X1C
JP3     EQU     0X1D
JP4     EQU     0X1E
XS9     EQU     0X20
XS10    EQU     0X21
        ORG     0
        JMP     MAIN
        ORG     8
        MOV     STACK_A,A
        SWAP    STACK_A
        SWAPA   STATUS
        MOV     STACK_S,A
        CLR     0XF
        SWAPA   STACK_S
        MOV     STATUS,A
        SWAPA   STACK_A
        RETI
BIAO:
        ADD     0X2,A
        RETL    @0B11101110     ;0
        RETL    @0B01001000     ;1
        RETL    @0B10111010     ;2
        RETL    @0B11011010     ;3
        RETL    @0B01011100     ;4
        RETL    @0B11010110     ;5
        RETL    @0B11110110     ;6
        RETL    @0B01001010     ;7
        RETL    @0B11111110     ;8
        RETL    @0B01011110     ;9
        RETL    @0B00000000     ;A
XSZW:
        MOV     A,JP1
        CALL    BIAO
        MOV     XS3,A
        MOV     A,JP2
        CALL    BIAO
        MOV     XS4,A
        MOV     A,JP3
        CALL    BIAO
        MOV     XS5,A
        MOV     A,JP4
        CALL    BIAO
        MOV     XS6,A
        MOV     A,@7
        MOV     XS1,A
AWS:
        RLC     XS10
        RLC     XS9
        RLC     XS8
        RLC     XS7
        JBS     XS6,1
        JMP     ASD1
        BS      XS10,4
        JMP     ASG1
ASD1:
        BC      XS10,4
ASG1:
        RRC     XS6
        RLC     XS10
        RLC     XS9
        RLC     XS8
        RLC     XS7
        JBS     XS5,1
        JMP     ASD2
        BS      XS10,4
        JMP     ASG2
ASD2:
        BC      XS10,4
ASG2:
        RRC     XS5
        RLC     XS10
        RLC     XS9
        RLC     XS8
        RLC     XS7
        JBS     XS4,1
        JMP     ASD3
        BS      XS10,4
        JMP     ASG3
ASD3:
        BC      XS10,4
ASG3:
        RRC     XS4
        RLC     XS10
        RLC     XS9
        RLC     XS8
        RLC     XS7
        JBS     XS3,1
        JMP     ASD4
        BS      XS10,4
        JMP     ASG4
ASD4:
        BC      XS10,4
ASG4:
        RRC     XS3
        DJZ     XS1
        JMP     AWS
        RET
YSA:
        MOV     A,@2
        MOV     XS3,A
LOP1:
        NOP
        DJZ     XS3,A
        JMP     LOP1
        RET
XSS:                     ;HT1621 XS 8-BITS  COMMAND MODE
        BS      PORT5,1
        BC      PORT5,0    ;CS=0
        CALL    YSA
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1   ;DATA=1
        BC      PORT5,2
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1   ;DATA=0
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1  ;DATA=0
        MOV     A,@8
        MOV     XS1,A
XSC:
        JBS     XS2,7
        JMP     XSD
        BS      PORT5,2   ;DATA=1
        JMP     XSG
XSD:
        BC      PORT5,2    ;DATA=0
XSG:
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1
        RLC     XS2
        DJZ     XS1
        JMP     XSC
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1     ;DATA=?
        BS      PORT5,0    ;CS=1
        RET
XSA:            ;HT1621XS WRITE MODE
        MOV     A,@8
        MOV     XS1,A
WXC:
        JBS     XS2,7
        JMP     WXD
        BS      PORT5,2    ;DATA=1
        JMP     WXG
WXD:
        BC      PORT5,2    ;DATA=0
WXG:
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1
        RLC     XS2
        DJZ     XS1
        JMP     WXC
        RET
MAIN:  
        MOV     A,@0X0
        IOW     0X0E
        MOV     A,@0B11000000
        CONTW
        CLR     0X0F
        MOV     A,@0X01
        IOW     0X0F
        ENI
        MOV     A,@0X10
        MOV     0X4,A
LOPKN:
        MOV     A,@0
        MOV     0X0,A
        JBS     0X4,6
        JMP     KOL
        JMP     KIL
KOL:
        NOP
        INC     0X4
        JMP     LOPKN
KIL:
        BS      0X4,6
        MOV     A,@0B11110000
        IOW     PORT5
        CLR     PORT5
        MOV     A,@0B11111111
        IOW     PORT6
        CLR     PORT6
        NOP
        MOV     A,@0x0F
        MOV     PORT5,A
        MOV     A,@8
        MOV     JP1,A
        MOV     A,@8
        MOV     JP2,A
        MOV     A,@0
        MOV     JP3,A
        MOV     A,@9
        MOV     JP4,A
        CALL    XSZW
        BC      PORT5,0   ;CS=0
        CALL    YSA
        BS      PORT5,0   ;CS=1
        CALL    YSA
        BC      PORT5,0   ;CS=0
        CALL    YSA
        BS      PORT5,0   ;CS=1
        CALL    YSA
        MOV     A,@0B11100011 ;COMMAND NORAML MODE
        MOV     XS2,A
        CALL    XSS
        MOV     A,@0B00011000   ;SYSTEM RC 256K
        MOV     XS2,A
        CALL    XSS
        MOV     A,@0B00101001   ;BIAS 1/3 4 COMMONS
        MOV     XS2,A
        CALL    XSS
        MOV     A,@0B00000001   ;SYS EN
        MOV     XS2,A
        CALL    XSS
        MOV     A,@0B00001001   ;TONE ON
        MOV     XS2,A
        CALL    XSS
        MOV     A,@0B01000000   ;WRITE
        MOV     XS2,A
        BC      PORT5,0         ;CS=0
        CALL    YSA
        BS      PORT5,2
        BC      PORT5,1
        CALL    YSA
        BS      PORT5,1         ;DATA=1
        CALL    XSA
        MOV     A,XS7     ;1
        MOV     XS2,A
        CALL    XSA
        MOV     A,XS8       ;2
        MOV     XS2,A
        CALL    XSA
        MOV     A,XS9     ;3
        MOV     XS2,A
        CALL    XSA
        MOV     A,XS10       ;4
        MOV     XS2,A
        CALL    XSA
        MOV     A,@0XFF        ;5
        MOV     XS2,A
        CALL    XSA
        BS      PORT5,0   ;CS=1
        MOV     A,@0B00000011   ;LCD ON
        MOV     XS2,A
        CALL    XSS
        NOP
KK:
        NOP
        NOP
        NOP
        NOP
        NOP
        JMP     KK
        EOP

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

发表评论:
载入中...

芯片专题

器件专题

软件专题

硬件专题

综合专题

项目专题

原创专题

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

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

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

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

广告5号位 [投放]


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

广告3号位 [投放]

站内搜索


站外搜索


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

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

     
     

    匠人原创

    往日酷贴

     
     
     

    大千八卦

    友情连接

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

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [嵌入式365]

    [水牛的仓库]

    [股剩是怎样炼成的]

    [PIC论坛]

    [ICC AVR开发网]

    [中国高校自动化网]

     

     

     

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

    大学生电子网 

     

     

     

     

     

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