飞思卡尔8位单片机MC9S0811程序单片机方主程序及PC机方程序.doc

（2）单片机方主程序
实例编号：A06 路径：\ASM\A06_Flash编程 (FshMain.asm)
*-----------------------------------------------------*
*文件名:FshMain.asm *
*硬件连接:无 *
*功能:① 等待接收N+1个数，放入内存 *
* ② 擦除以Fdata为首地址的Flash一页,将N个数据写入 *
* ③ 从以Fdata为首址的Flash区读取N个数据，串口发送 *
*说明:调用擦/写子程序之前先将待擦/写页后一页开始的 *
* 所有区域写保护 *
*-----------------------------------------------------*
*----------《嵌入式应用技术基础教程》教学实例---------*
*[头文件]
$include "GP32ASM.H" ;包含GP32的头文件
*[两个起始地址名]
RAMstartAddr equ $0040 ;RAM起始地址
FlashStartAddr equ $8000 ;程序开始地址
*[内存变量]
org RAMstartAddr ;RAM的起始地址
N rmb 1 ;写入数据的个数
RAMandFlash rmb 4 ;写入程序使用
DATA1 rmb !64 ;数据缓冲区
P_AddressInRAM rmb !90 ;Flash中程序移入RAM的首地址

*[Flash数据区(一页128字节)]
org FlashStartAddr
;设写入区为$8000～$807F一页
Fdata FCB !11,!12,!13,!14,!15,!16,!17,!18,!66
;几个初始值仅作比较
*======================================================
*[主程序]
ORG $8100
MainStart: ;复位后程序从此开始执行
;[系统初始化]
SEI
LDHX #$023F ;堆栈初始化
TXS
JSR GP32Init ;调系统初始化子程序GP32Init
;[串行口初始化]
JSR SCIInit
;[程序总循环入口]
MainLoop:
;[发送1个握手信号86]
LDA #!86 ;发送握手信号86
JSR SCISend1
;[等待接收1的握手信号56]
JSR SCIRe1
CMP #!56 ;是否是56?
BNE MainLoop ;否,继续握手
;[等待接收1个字节=要写入的字符个数(<=64)并存到N中]
JSR SCIRe1
STA N
;[等待接收N个字节并存到以DATA1为首址的内存中]
LDA N
LDHX #DATA1
JSR SCIReN
;[擦除以Fdata为首地址的Flash区(1页,GP32:128字节)]
LDA #%00000010 ;保护$8100~$FFFF的Flash区域
STA FLBPR
LDHX #Fdata
JSR EraseSub
;[将以DATA1开始的N个数写入以Fdata为首址的Flash区]
LDA #%00000010 ;保护$8100~$FFFF的Flash区域
STA FLBPR
LDHX #DATA1 ;RAM首地址->RAMandFlash[0-1]
STHX RAMandFlash
LDHX #Fdata ;Flash首地址->RAMandFlash[2-3]
STHX {RAMandFlash+!2}
LDA N ;写入Flash的数据个数
JSR WriteSub
;[向PC机发送写入Flash区的N个数据,供PC机接收并比较]
LDHX #Fdata
LDA N
JSR SCISendN
;[转程序总循环入口]
JMP MainLoop
*[外部子程序存放处，这些子程序都在当前目录中]
$INCLUDE "GP32init.asm" ;系统初始化
$INCLUDE "SCIInit.asm" ;串行口初始化
$INCLUDE "H08SCI.asm" ;串行通信收发
$INCLUDE "EraseSub.asm" ;Flash擦除
$INCLUDE "WriteSub.asm" ;Flash写入
*[中断向量]
ORG $FFFE ;复位向量
DW MainStart
（3）PC机方程序
实例编号：A06 路径：\ASM\ A06_Flash编程\ vb_flash
'程序描述：
' （1）把发送窗口中的数据从COM1发送出去
' （2）把接收到的数据显示在接收窗口中
'-------------------------------------------------------
Option Explicit '检查未经声明的变量
Dim i As Integer, I0 As Integer '临时使用
Dim j As Integer, j1 As Integer
Dim d1 As Double
Dim SendData(0) As Byte '发送数据数组
Dim SendData1() As Byte '发送数据数组1
Dim ReceiveData() As Byte '接收数据数组
Dim ReceiveData1() As Byte '接收数据数组
Dim S1 As String '缓冲用

Private Sub cmdOK_Click() '"确定"按钮
If TxtN.Text = "" Or Val(TxtN.Text) > 64 Then
MsgBox "请输入正确的写入Flash区的数据个数（1-64）!"
Exit Sub
End If
For i = 0 To TxtN.Text - 1 '清空输入数据区
Text3(i).Enabled = True
Next i
End Sub

Private Sub CndClear_Click() '清空数据区
For i = 0 To 127
Text3(i).Text = ""
Next i
End Sub

Private Sub Form_Load() '初始化
'串行口初始化
Call SCIinit(1, "9600,N,8,1")
'清空数据区
For i = 0 To 63
Text3(i).Text = ""
Text3(i).Enabled = False
Next i
For i = 64 To 127
Text3(i).Text = ""
Text3(i).Enabled = False
Next i
End Sub

Private Sub CndStart_Click() '单击"写入并校验"按钮
'写入的数据个数在1～64之间
If TxtN.Text = "" Or Val(TxtN.Text) > 64 Then
MsgBox "请输入正确的写入Flash区的数据个数（1-64）!"
Exit Sub
End If
'输入的数据必须小于255
For i = 0 To TxtN.Text - 1
If Text3(i).Text = "" Or Val(Text3(i).Text) > 255 Then
MsgBox "请输入" & TxtN.Text & "个正确的数据（0-255）！"
Exit Sub
End If
Next i
MSCommFlash.InBufferCount = 0
d1 = Timer()
Do '等待接收握手信号（86＝"V"）
DoEvents
If Timer()-d1>= 5 Then GoTo CndStart_Click_Error0 '无握手信号
Loop Until MSCommFlash.InBufferCount >= 1
ReceiveData = MSCommFlash.Input '接收数据
If ReceiveData(0) = 86 Then
SendData(0) = 56
MSCommFlash.Output = SendData '发送回答信号（56）
Else
GoTo CndStart_Click_Error1 '不是正确的握手信号
End If
'给发送数据赋值
ReDim SendData1(TxtN.Text)
SendData1(0) = Val(TxtN.Text)
For i = 1 To TxtN.Text
SendData1(i) = Text3(i - 1).Text
Next i
MSCommFlash.Output = SendData1 '发送N+1个数，N个数据
MSCommFlash.InBufferCount = 0
d1 = Timer()
Do '等待接收数据N个
DoEvents
If Timer() - d1 > 5 Then GoTo CndStart_Click_Error2
Loop Until MSCommFlash.InBufferCount >= TxtN.Text 'TxtN.Text
ReceiveData = MSCommFlash.Input '接收数据
'数据分解、显示
For i = 0 To TxtN.Text - 1
Text3(64 + i).Enabled = True
Text3(64 + i).Text = ReceiveData(i)
Next i
GoTo CndStart_Click_Exit
CndStart_Click_Error0:
MsgBox ("无握手信号！")
GoTo CndStart_Click_Exit
CndStart_Click_Error1: '不是正确的握手信号
MsgBox ("握手信号不正确！")
GoTo CndStart_Click_Exit
CndStart_Click_Error2:
MsgBox ("等待很久，未收到返回数据！")
CndStart_Click_Exit:
ReceiveData = MSCommFlash.Input
MSCommFlash.InBufferCount = 0
End Sub

Private Sub CndExit_Click()
'"返回"按钮,关闭串行口,关闭时钟
If MSCommFlash.PortOpen = True Then
MSCommFlash.PortOpen = False '关闭串行口
End If
Unload Me
End Sub
Private Sub Form_Deactivate() '单击窗体之外
CndExit_Click
End Sub
Private Sub Form_LostFocus() '失去焦点
CndExit_Click
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
CndExit_Click
End Sub

Private Sub TxtN_KeyPress(KeyAscii As Integer)
'48为0,57为9 8为退格键
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0 'KeyAscii值为0的为""
End If
End Sub

Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
'48为0,57为9 8为退格键
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0 'KeyAscii值为0的为""
End If
End Sub