《匠人手记》推荐网上购书渠道:
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开始)



    匠人手记

    Freescale GP32监控程序1
    程序匠人 发表于 2005-8-31 16:59:00  阅读全文 | 回复(0) | 引用通告 | 编辑

    GP32监控程序仅供学习,不得它用--liu1234的博客liu1234的博客
    - -| 回首页 | 2005年索引 | - -c实例,液晶时钟,串口调时
    GP32监控程序仅供学习,不得它用- -
                                          
    $INCLUDE "GP32.H"
    ;----------------------------------------------------------------
    MAPREG1         EQU $0000
    MAPREG2         EQU $FE00
    ;----------------------------------------------------------------
    ;RAM区
    RAMSTART        EQU $0040
    DBUFSTAddr      EQU $0040       ;(要写入FLASH的数据)的开始地址
                                    ;$0041两个单元
    PAGE            EQU $0042       ;下载程序的总页数
    COUNT           EQU $0043       ;计数单元
    VAR_COUNT       EQU $0044       ;计数单元
    FlashAddress    EQU $0045       ;被擦写的FALSH地址
                                    ;$0046两个单元
    DATABUF         EQU $0047       ;$47-$C8为下载缓冲区,其中C7C8存放页地址
    PAGEADDRBUF     EQU {DATABUF+!128}  ;C7C8存放页地址
    VECTABBUF       EQU $00C9       ;00C9-00EC存放中断向量,其中EBEC 复位向量E9EA SWI向量
    SWIVECBUF       EQU {VECTABBUF+!32};E9EA SWI向量
    RESETVECBUF     EQU {VECTABBUF+!34};EBEC 复位向量
    P_AddressInRAM  EQU $00ED       ;擦写flash子程序搬入ram的首地址,此后整个RAM区放擦写程序
    ;----------------------------------------------------------------
    ;FLASH区
    U_RESET_H       EQU $FA00       ;用户程序复位向量挪入的区域,一页
    U_RESET_L       EQU $FA01
    MONADDR         EQU $FA80       ;监控程序开始地址
    ;BRK_SWI_INT    EQU $FB8D
    VEC_TAB_ST      EQU $FFDC       ;中断向量起始地址
    ;----------------------------------------------------------------
            ORG MONADDR
            SEI                     ;禁止所有中断
            LDHX  #$023F            ;堆栈初始化放入GP32的RAM最高端
            TXS
    ;----------------------------------------------------------------
    ;初始化配置寄存器
            LDA  #%00000001      ;[初始化CONFIG2]
    ;                  |+---------;SCIBDSRC=1 SCI波特率使用内部总线时钟
    ;                  +----------;OSCSTOPENB=0 STOP模式下振荡器不工作、
            STA  CONFIG2
            LDA  #%00111101   ;[初始化CONFIG1]
    ;              |||||||+---------;COPD=1 禁止COP模块
    ;              ||||||+----------;STOP=0 禁止STOP指令
    ;              |||||+-----------;SSREC=1 经过32个CGMXCLK周期退出STOP模式
    ;              ||||+------------;LVI5OR3=1 LVI工作在5V
    ;              |||+-------------;LVIPWRD=1 禁止LVI模块电源
    ;              ||+--------------;LVIRSTD=1 允许LVI复位信号
    ;              |+---------------;LVISTOP=0 在stop模式下禁止LVI
    ;              +----------------;COPRS=0 COP溢出范围在2^18-2^4个CGMXCLK时钟周期
            STA  CONFIG1
    ;[PLL编程] 由外部晶阵f=32.768,产生内部总线时钟2.4576MHz
            CLR  PCTL               ;初始化PTCL
            MOV  #$01,PCTL
            MOV  #$01,PMSH      ;PLL倍频因子寄存器高位
            MOV  #$2C,PMSL          ;PLL倍频因子寄存器低位
            MOV  #$80,PMRS          ;PLL VCO范围选择寄存器
            BSET 5,PCTL
            BSET 7,PBWC
            BSET 4,PCTL
    ;----------------------------------------------------------------
            BSET 1,DDRA
    ;----------------------------------------------------------------
    ;串行口初始化
            LDA  #%01000000
    ;              |||||||+---------;PTY=0偶校验
    ;              ||||||+----------;PEN=0禁止奇偶校验
    ;              |||||+-----------;ILTY=0线路空闲类型,从起始位计数
    ;              ||||+------------;WAKE=0唤醒选择RXD引脚空闲时唤醒
    ;              |||+-------------;M=0字符长度8位
    ;              ||+--------------;TXINV=0反码选择,正常码输出
    ;              |+---------------;ENSCI=1,允许SCI
    ;              +----------------;LOOPS=0,非环路
            STA  SCC1
            LDA  #%00001100
    ;              |||||||+---------;SBK=0,禁止传送中止符
    ;              ||||||+----------;RWU=0,正常操作
    ;              |||||+-----------;D2(RE)=1,允许接收器
    ;              ||||+------------;D3(TE)=1,允许发送器
    ;              |||+-------------;ILIE=0线路空闲中断不允许
    ;              ||+--------------;SCRIE=0禁止接收中断查询方式收发
    ;              |+---------------;TCIE=0禁止发送中断查询方式收发
    ;              +----------------;SXTIE=0禁止发送空中断
            STA  SCC2

            LDA  #%00000010
    ;              |||||||+---------;0
    ;              ||||||+----------;1
    ;              |||||+-----------;0 010BD分频值为4
    ;              ||||+------------;0 保留位
    ;              |||+-------------;0
    ;              ||+--------------;0 00预分频为1
    ;              |+---------------;0 保留位
    ;              +----------------;0 保留位
            STA  SCBR               ;fBUS=2.4576MHz,取PD=1(即SCP1,SCP0=00)
                                    ;BD=2(即SCR2,SCR1,SCR0=010)
                                    ;则波特率=2457600 /(64*1*4) = 9600
    ;----------------------------------------------------------------
    BEGIN:  LDA U_RESET_H           ;(FA00,FA01)=修改后的用户程序复位向量
            CMP #$FF                ;用户复位向量是否为空
            BNE DOWNNEW_OR_RUNOLD
            LDA U_RESET_L
            CMP #$FF
            BNE DOWNNEW_OR_RUNOLD   ;用户程序复位向量不空,转去执行用户程序
    LOOP:   JSR HAND_WITH_PC        ;与PC机的握手程序,成功 C=1
            BCC LOOP                ;C=0握手不成功继续握手
            BRA DOWNNEW_OR_BRK      ;握手成功,转去下载新用户程序或断点调试
    ;----------------------------------------------------------------
    DOWNNEW_OR_RUNOLD:
            LDX #!50                ;用户程序复位向量不空,握手x次
    LOOP1:  PSHX
            JSR HAND_WITH_PC        ;与PC机的握手程序,成功 C=1
            PULX
            BCS DOWNNEW_OR_BRK      ;握手成功,转去下载新用户程序
            DBNZX LOOP1
            LDA U_RESET_H           ;握手不成功,转去执行用户程序
            PSHA
            PULH
            LDA U_RESET_L
            TAX
            JMP ,X
    ;至此只有复位可以退出程序,否则一直执行用户程序
    ;----------------------------------------------------------------
    ;握手成功
    DOWNNEW_OR_BRK:
            BRCLR 5,SCS1,*          ;查询接收
            LDA SCDR
            CBEQA #$A7,DOWN_NEW_RUN ;第一字节=0xA7下载新用户程序
            CBEQA #$A8,RUN_BRK      ;第一字节=0xA8,转去断点调试
            BRA DOWNNEW_OR_BRK
    DOWN_NEW_RUN:
            JSR DOWN_NEW            ;第一字节=0xA7下载新用户程序
    RUNNEW: LDA U_RESET_H           ;执行用户程序
            PSHA
            PULH
            LDA U_RESET_L
            TAX
            JMP ,X
    ;至此只有复位可以退出程序,否则一直执行用户程序
    ;----------------------------------------------------------------
    RUN_BRK:  
            LDA U_RESET_H           ;第一字节=0xA8断点调试;(FA00,FA01)=修改后的用户程序复位向量
            CMP #$FF
            BNE DOWITH_BRK          ;断点处理
            LDA U_RESET_L
            CMP #$FF
            BNE DOWITH_BRK          ;用户程序复位向量不空,转去断点调试
            LDHX #$0000             ;用户程序复位向量空,空片返回程序开始点
    LOOP9:  LDA TAB_EMPTY,X         ;发送"空片"
            JSR SEND_BYTE           ;发送一字节
            AIX #$1
            CPHX #$5                ;5个字符
            BNE LOOP9
            JMP BEGIN               ;空片返回程序开始点
    DOWITH_BRK:                     ;断点处理
            JSR AFFIRM_BRK_ADDR     ;确认断点子程序
            LDA U_RESET_H
            PSHA
            PULH
            LDA U_RESET_L
            TAX
            LDA #$80                ;断点允许,等待激活
            STA BRKSCR              ;断点控制寄存器
            CLI                     ;允许中断,主要是开放断点中断
            JMP ,X                  ;执行用户程序
    FB27:   JMP BEGIN               ;这条指令实际执行不到
    ;----------------------------------------------------------------
    AFFIRM_BRK_ADDR:                ;确认断点子程序
            BRCLR 5,SCS1,*          ;接收断点地址
            LDA SCDR
            PSHA
            PULH
            BRCLR 5,SCS1,*
            LDA SCDR
            TAX
            LDA #!10                ;连续接收从断点处10个字节
    LOOP12: PSHA
            BRCLR 5,SCS1,*
            LDA SCDR
            CMP ,X                  ;与FLASH中的字节比较
            BNE ERROR               ;不等无效的断点地址
            AIX #$1
            PULA
            DBNZA LOOP12
            LDHX #$0                ;发送"成功"
    LOOP10: LDA TAB_SUCCE,X
            JSR SEND_BYTE           ;发送一字节
            AIX #$1
            CPHX #5                 ;5个字符
            BNE LOOP10
            JMP SAVE_BRK
    ERROR:  LDHX #$0
    LOOP11: LDA TAB_ISERR,X         ;发送"错误"
            JSR SEND_BYTE           ;发送一字节
            AIX #$1
            CPHX #5
            BNE LOOP11
            JMP AFFIRM_BRK_ADDR
    TAB_EMPTY:   DB 'Empty'
    TAB_SUCCE:   DB 'Succe'
    TAB_ISERR:   DB 'IsErr'
    SAVE_BRK:                       ;接收断点并存入断点地址寄存器
            BRCLR 5,SCS1,*
            LDA SCDR
            STA BRKH
            BRCLR 5,SCS1,*
            LDA SCDR
            STA BRKL
            RTS
    ;----------------------------------------------------------------       
    BRK_SWI_INT:
    ;中断后MCU自动进栈内容
    ;大地址
    ;| 1 PCL
    ;| 2 PCH
    ;| 3 X
    ;| 4 A
    ;| 5 CCR
    ;| 6 <-----SP
    ;V
    ;小地址
            SEI                     ;关中断
           
            LDA #$0                 ;禁止断点中断,清除断点中断标志
            STA BRKSCR
           
            PSHH
           
    ;堆栈内容
    ;大地址
    ;| 1 PCL
    ;| 2 PCH
    ;| 3 X
    ;| 4 A
    ;| 5 CCR
    ;| 6 H
    ;| 7 <-----SP
    ;V
    ;小地址       
            LDHX #DIS_INFO
            TXA
            STA 6,SP                ;断点地址换为DIS_INFO
            PSHH
            PULA
            STA 5,SP                ;断点地址换为DIS_INFO
            PULH               
            RTI                     ;退出中断,执行显示内容子程序想当于JMP指令
           
    DIS_INFO:                       ;显示内容子程序,无返回
            PSHA       
            LDA #$A8                ;发送引导符A8
            JSR SEND_BYTE           ;发送一字节
           
            PULA                    ;A
            JSR SEND_BYTE           ;发送一字节
           
            TXA                     ;X->A
            JSR SEND_BYTE           ;发送一字节
           
            PSHH
            PULA                    ;H->A
            JSR SEND_BYTE           ;发送一字节
           
            TSX                     ;SP+1->H:X
            TXA                     ;SPL
            JSR SEND_BYTE           ;发送一字节
           
            PSHH
            PULA                    ;SPH
            JSR SEND_BYTE           ;发送一字节
           
            LDA #$0                
            INCA                    ;1
            JSR SEND_BYTE           ;发送一字节
           
            TPA                     ;CCR->A
            JSR SEND_BYTE           ;发送一字节
           
            LDHX #RAMSTART          ;发送RAM区数据
            LDA #0                  ;共512个,发两次
            JSR SEND_N_BYTE         ;发送
            LDA #0
            JSR SEND_N_BYTE
           
            LDHX #MAPREG1           ;发送各寄存器数据
            LDA #$40                ;共40H个
            JSR SEND_N_BYTE
           
            LDHX #MAPREG2           ;发送其余各寄存器数据
            LDA #$0D                ;共0DH个
            JSR SEND_N_BYTE
           
            LDA FLBPR               ;发送FLASH保护寄存器
            JSR SEND_BYTE           ;发送一字节
    ;?????????????????????可泄密       
            LDHX #VEC_TAB_ST        ;发送中断向量表
            LDA #!36
            JSR SEND_N_BYTE
           
    LOOP13:                         ;是否下一断点调试
            BRCLR 5,SCS1,*          ;接收联络码64H
            LDA SCDR
            CMP #$64
            BNE LOOP13
           
            BRCLR 5,SCS1,*          ;接收并存储下一断点地址
            LDA SCDR
            STA BRKH
            BRCLR 5,SCS1,*
            LDA SCDR
            STA BRKL
           
            LDA U_RESET_H           ;重新从头运行用户程序
            PSHA
            PULH
            LDA U_RESET_L
            TAX
            LDA #$80                ;断点允许,等待激活
            STA BRKSCR              ;断点控制寄存器
            CLI
            JMP ,X                  ;执行用户程序
           
            RTS                     ;此句实际执行不到
    SEND_N_BYTE:
            PSHA
            LDA ,X
            BRCLR 7,SCS1,*
            STA SCDR
            AIX #$1
            PULA
            DBNZA SEND_N_BYTE
            RTS
           
    SEND_BYTE:
            BRCLR 7,SCS1,*
            STA SCDR
            RTS
    ;----------------------------------------------------------------
    ;----------------------------------------------------------------
    ;接收用户程序代码
    DOWN_NEW:
            BRCLR 5,SCS1,*          ;查询接收程序的页数
            LDA SCDR
            STA PAGE                ;总页数
    LOOP3:   LDHX #$0               ;接收一页数据(包括起始地址)
    LOOP2:  BRCLR 5,SCS1,*          ;查询接收某页的字节和起始地址
            LDA SCDR
            STA DATABUF,X           ;从$47开始存放数据$47-$C8,(00C700C8)存放地址
            AIX #$1
            CPX #!130               ;页起始地址+128字节/页=130
            BCS LOOP2               ;C=1,X<#130
            LDA #$F4                ;FA00--FFFF区域受保护
            STA FLBPR
            LDHX PAGEADDRBUF
            STHX FlashAddress       ;擦FALSH程序的参数,被擦地址
            JSR EraseSub            ;擦FALSH程序
            LDHX #DATABUF
            STHX DBUFSTAddr
            MOV #!128,COUNT         ;43 计数单元
            LDHX PAGEADDRBUF
            STHX FlashAddress
            JSR WRITESUB            ;写FLASH子程序
            MOV #!128,COUNT         ;43 计数单元
            LDHX PAGEADDRBUF
    LOOP4:  LDA ,X
            BRCLR 7,SCS1,*
            STA SCDR
            AIX #1
            DBNZ COUNT,LOOP4        ;发给pc机校验
            DBNZ PAGE,LOOP3         ;所有页是否接收完毕?
            JSR DOWITH_VECTAB       ;处理中断向量
            RTS

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

    发表评论:
    载入中...

    芯片专题

    器件专题

    软件专题

    硬件专题

    综合专题

    项目专题

    原创专题

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

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

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

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

    广告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博客-中国电子工程师博客网 

    大学生电子网 

     

     

     

     

     

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