应广单片机系列——基本应用程序框架

ByElmer1

单片机工程师面对一种新单片机时，最希望的是能有一个简单的样例，这个样例连上仿真器就能运行，里面最好包含一些基本功能，这样工程师就可以在这个样例的基础上很快改出自己需要的代码。

这里我以应广pdk22c12写了一段程序框架，已经包含对这个单片机的各种基本设置，拿回去就可以自己进行仿真调试，相信能让新接触应广单片机的朋友很快上手。

//-----------------------------------------
//应广单片机软件基本框架例程
* d( `: A" U) X//本例仅供参考，欢迎指正程序中的问题
//本例是根据应广单片机的特点创建的基本程序框架
# h: z( b6 m/ z2 G7 ~8 H8 y//包含定时中断、外部中断、AD转换、段位数码管显示,简单按键处理等功能
- `5 z* r: [5 W# G5 y0 g//用户在本例基础上很容易就能改出自己需要的程序

.chip pdk22c12
//{{PADAUK_CODE_OPTION
.Code_Option LVD  2.4V~2.9V // Maximum peRFormance = 8 MIPS
.Code_Option Security Enable  // Security 7/8 words Enable
//}}PADAUK_CODE_OPTION
//#define MOB_FLASH_MODE

KEY equ pa.5

//定义数码管的IO口，这里是显示三个8
4 e  k! I! J7 _; q3 C" l+ Z5 mLED_A equ pa.1
LED_B equ pa.0
4 p" s$ ^1 s% ?LED_C equ pa.7
( c& E6 }, o4 d5 k9 B- a+ qLED_D equ pa.6
LED_E equ pb.7
2 H# e" x+ E4 _; D# }: YLED_F equ pb.6
8 p* S' U8 v* o9 J3 T  V* [& ALED_G equ pb.5
LED_DP equ pb.1
, E5 b! U; w' z7 D0 n, Q6 ALED_COM1 equ pa.2
LED_COM2 equ pa.3
& y( W' ~' G: BLED_COM3 equ pa.4
LED_A_ON equ set1 LED_A
LED_A_OFF equ set0 LED_A
. t4 O$ e$ ~9 x% T; bLED_B_ON equ set1 LED_B
LED_B_OFF equ set0 LED_B
% w' q* Z% Q, N( K& v/ RLED_C_ON equ set1 LED_C
5 x& f; U  M$ H, O7 t* m& _+ A: |) GLED_C_OFF equ set0 LED_C
LED_D_ON equ set1 LED_D
LED_D_OFF equ set0 LED_D
LED_E_ON equ set1 LED_E
LED_E_OFF equ set0 LED_E
LED_F_ON equ set1 LED_F
/ @8 G; m4 K* |9 Y  g9 ALED_F_OFF equ set0 LED_F
; T( t3 K6 h) b+ r* R# `LED_G_ON equ set1 LED_G
LED_G_OFF equ set0 LED_G
5 A, O, n+ v0 ^7 J; S. E9 J$ @8 CLED_DP_ON equ set1 LED_DP
LED_DP_OFF equ set0 LED_DP
SELECT_LED1 macro
# V+ M' H' q0 | set1 LED_COM2
set1 LED_COM3
* e! D5 I6 M7 p set0 LED_COM1
2 o3 p) i: u$ g, g; @* g endm
$ I  g3 E- d6 `" ]  `: G5 oSELECT_LED2 macro
6 W& J0 l1 A. W set1 LED_COM1
set1 LED_COM3
set0 LED_COM2
' e) p1 c7 R/ ^3 V+ r" b6 Q% R& a8 P$ ~8 z/ F endm
* B0 M  P8 S/ O9 U; X3 hSELECT_LED3 macro
set1 LED_COM1
. |2 B1 P. ]% E! ?( o/ c set1 LED_COM2
1 R0 X: s; @* C* T( _5 V- w* r set0 LED_COM3
' x) `+ a! n0 M- s9 U9 e5 y6 [% I endm
ALL_LED_OFF macro
7 G* d& Z3 G& @7 b set1 LED_COM1
$ Y. M5 e  C# t5 _ set1 LED_COM2
6 k, {! |& Q9 g$ Y/ i set1 LED_COM3
, s! ]0 @" W4 C: b, O( K! b LED_A_OFF
, ?% z# r1 K; Z  m LED_B_OFF
& V* X& |& U1 q& i/ n. h5 l: F: ^7 R LED_C_OFF
! a7 _% R' S0 g9 G3 f8 N: [" V LED_D_OFF
LED_E_OFF
LED_F_OFF
LED_G_OFF
" G+ G/ `7 k* y: ^ LED_DP_OFF
endm

LED_DELAY macro
+ I3 o8 n( a# w( x; R$ u delay 250
delay 250
endm

word init_timer
2 |8 F6 y8 R7 k5 h4 [- @" L& z//用于数码管显示时进行查表转换
word disp_ptr
word disp_data
word disp_data_temp

byte Xms
byte ms_cnt
byte pb2_voltage

//用于数码管显示
byte disp1_buf
byte disp2_buf
% g$ F6 B) t; @  t" xbyte disp3_buf
byte disp_temp
* H( C! M8 x: @) ?byte led1_buf
byte led2_buf
: b- m& J) q! V2 cbyte led3_buf

//用于定时中断计时
8 h* Z: U. A" x" A2 u/ M1 s: Tbyte timer_cnt
( `! g3 j1 V  ^) J& t5 a4 T8 F9 ]//用于单键按键判断
5 u! d5 ^- ?; {, O6 y& d. K3 w* j7 Mbyte key_cnt
2 U) I6 ]2 e: S; y/ E6 r  Kbit key_press_flag

//定义标志位，用于数码管显示和闪烁控制
bit led_en_flag
; T7 u8 l; \9 l3 h/ ibit led_flash_flag
bit update_disp_flag

//应广单片机程序入口，第一条必须为跳转到第一个内核主程序入口地址的指令，第二条为第二个内核，有几个内核就有几条
.romadr 0x000
goto main0
goto main1

//应广单片机中断程序入口地址，所有中断共用同一个入口，需要用户自己判断中断类型
+ u1 a- g: H. X. I1 V/ Y: z.romadr 0x010
  U! O" G- R: o% Z. c( u7 g pushaf
if(intrq.T16) //定时中断
{
  stt16 init_timer //重设定时器值
  if(timer_cnt < 9) //得到1000ms间隔
( p7 x) d, d4 Z6 @7 w9 E# D  {
& H5 x6 a% G- {5 S! j" N. {, q   timer_cnt ++
  }
& J" O7 b  e. o. a  else
- B5 q* O9 O$ Q  {
# a- a) R: X* d# a# A. @   timer_cnt = 0
   if(led_flash_flag) //数码管闪烁处理
7 J5 c. o" x3 R( m1 M8 ~0 R* q   {
3 C* h( v; ^% I7 x" h) J    led_flash_flag = 0
0 l" S  o  L: T( ~" `   }
   else
   {
, P" }/ N% H0 Z+ D+ e! |    led_flash_flag = 1
   }
  }
% @' K  R% ^% R' J' B  intrq.T16 = 0
}
elseif(intrq.PB0) //PB0外部中断
{
  if(pb.0)
$ M$ u- D" k9 F6 e5 u  {
   //读到PB0状态为高，为上升沿
! y: U6 U. X3 l/ Q# [   nop //添加用户自己的代码
! C( |/ b$ W% a! R  }
( [( J$ l6 p7 P8 @1 e9 q5 t  else
2 t. P+ k  O3 ?  {
   //读到PB0状态为低，为下降沿
0 y  }# a' J+ v  l9 k   nop //添加用户自己的代码
% j) n" _. l7 }: b% C7 J  }
5 J4 D  y' _8 \8 a' ]9 W+ X% C2 ]& x }
intrq.AD = 0 //强制清除AD中断标志位，防止意外进入AD中断后程序不停响应
intrq.PA0 = 0 //强制清除PA0外部中断标志位，防止意外进入PA0中断后程序不停响应
. o* j  g$ t6 V8 L& Y5 a7 i: i popaf
6 m6 `4 @% m' F( U6 g9 e reti

//----------------------------------------
//input: ms
//用该函数可以再4M的频率下得到近似1毫秒的延时，在第一个内核中调用中断会导致延时加长
//----------------------------------------
delayXms:
8 h# `0 E* t2 V; n& N while(Xms)
{
1 M7 f+ b7 c+ q7 r  wdreset //这里需要有清看门狗操作，否则有可能在长延时下导致看门狗溢出复位
  ms_cnt = 20
  while(ms_cnt)
  {
$ R; b& ~; A/ u3 F   delay 195
$ E7 W; }5 g( r+ O% H: P   ms_cnt--
" O0 T: S* [* s: f4 @- [# H  }
! N+ d/ R: W$ T  Y+ ?; U  P' l$ a& X  Xms--
" B3 ?( j! q2 r# y5 v5 d }
ret

; B: a" F3 c" I6 u//----------------------------------------
//
//对PB2进行AD转换，得到上面的电压
//----------------------------------------
. N, E5 @9 c1 Qget_pb2_voltage:
//对新的一路AD通道进行AD转换时，第一次转换的结果可能不可靠，这里连续转换两次，取第二次结果
//如果连续对同一通道进行AD转换，可以只转换一次
% E6 t9 a8 j4 r  f! c. d( X! o; R adcc = 0b10_0010_00 //enable ADC, select pb2
ad_start = 1
wait1 ad_start //等待AD转换结束
a = adcr //放弃第一次转换结果
0 s7 R% ~$ }6 p  i5 V5 X ad_start = 1
. R& c$ X8 k7 e" U6 S& \ wait1 ad_start
" E6 X- D4 w( M) G7 i. g" c' I pb2_voltage = adcr //存储第二次转换结果
5 Y5 A; Z3 K" z5 E ret

//数码管BCD显示用的转换表，最后的两个0x00可以不要
0 u' Q" u  w( G2 L//数码管的a,b,...,g,dp分别对应bit7,bit6,...,bit0
bcd_tbl: //0~9
dc 0xFC,0x60,0xDA,0xF2,0x66,0xB6,0xBE,0xE0,0xFE,0xF6,0x00,0x00
//----------------------------------------
+ c2 A" ?5 L3 ?8 Q7 p3 u' N% V//以十进制形式显示数据disp_data
//只修改显示缓冲区
) I9 s- L8 `! g. H5 F/ k//----------------------------------------
update_led_disp_buf:
' m6 V0 U; S" M& T6 ^) a //a,b,...,g,dp --> bit7,bit6,...,bit0
: F: A/ U3 f3 l% b: A if(!update_disp_flag)
1 P6 p* u. X# Q) w% p, n6 Q# O* A0 X {
, \( \; B3 r& Z* E# o" o0 c  disp_data_temp = disp_data //先将需要显示的数据放到临时中间变量中，防止转换时数据更新导致显示出错

  //得到数据管第一位LED1的BCD码
0 N3 o- m) V& [! k1 @8 f1 K5 j  disp_temp = 0
1 d5 U3 W+ K0 i- Y' x  @  while(disp_data_temp >= 100) //直接用循环减实现除法
  {
   disp_data_temp = disp_data_temp - 100
; z+ b/ ~' @. t3 Z8 o& R, n   disp_temp ++
  }
2 T# s6 x% k2 R& F# t  disp_ptr = bcd_tbl //查表操作
  disp_ptr = disp_ptr + disp_temp
" y1 J) r; S6 ]; j& U: o; f  ldtabl disp_ptr
  mov disp1_buf,a
  //得到数据管第二位LED2的BCD码
  disp_temp = 0
3 z2 a, i" G; K) L  while(disp_data_temp >= 10)
  {
7 N( k( E; v) Z! L5 D$ o   disp_data_temp = disp_data_temp - 10
   disp_temp ++
) [# G; H8 d/ d8 |! V& y  }
! {: h4 \. V! }) `" u8 ]  disp_ptr = bcd_tbl
: s$ E* x2 N9 D" J  disp_ptr = disp_ptr + disp_temp
  ldtabl disp_ptr
  mov disp2_buf,a
  //得到数据管第三位LED3的BCD码
0 d7 C; ~" y4 @* |4 M$ J  a, `5 x  disp_temp = disp_data_temp
! ~! ]; G$ y, Q$ Q  disp_ptr = bcd_tbl
% x7 I3 V& E4 T2 Q$ O" J  disp_ptr = disp_ptr + disp_temp
  ldtabl disp_ptr
  mov disp3_buf,a

  update_disp_flag = 1
}

ret

//第一个内核程序入口
//----------------FPPA0-------------------
" H2 D6 w: R: {& [main0:

.ADJUST_OTP_IHRCR 8MIPS  // IHRC/2 = 8MIPS, WatchDog Disable, RAM0,1 temporary be used

sp = 0x30 //设置第一个内核的堆栈地址

//禁止中断和定时器
disgint
inten = 0
- {$ T$ F' g* j: d mov a,0b000_11_111 //disable timer
mov t16m,a

//小延时后在修改其它系统状态设置
delay 200
5 ]' B/ @! E! a( o. o: N clkmd.1 = 1 //打开看门狗，这个设置尽量靠前，以增强可靠性
4 h1 b5 ~  e3 ^+ K wdreset //清看门狗

//设置IO口
pac = 0b1101_1111 //PA5设置 IN
; G6 @) _6 w4 q" `9 z4 \  C2 I; z paph = 0b0000_0000
pbc = 0b1111_1010 //PB2设为模拟输入不开上拉电阻，PB0设为输入
pbph = 0b0000_0000 //poll high

ALL_LED_OFF

init_timer = 7768 //从7768进行校准为100ms
( d  }- L& u8 Z: |9 u( }+ L mov a,0b100_11_111
mov t16m,a
4 |; X7 |  M4 ]: k. t* M  }' j stt16 init_timer

//上电后清需要使用的变量
, m' r# e; R$ u( m0 T7 d" r key_cnt = 0
5 M# K+ B* a% ]& w. i, B disp1_buf = 0
1 J& {* M: B$ r6 }& r% n disp2_buf = 0
disp3_buf = 0
, k# n, t5 @) W( B: _ led1_buf = 0
7 S1 f' S3 J2 e; f( P led2_buf = 0
! l$ M( [& S8 l3 _( S led3_buf = 0
update_disp_flag = 0
timer_cnt = 0
4 W! ~+ H* |; Z1 q disp_data = 000
% X2 K% [) N! H! E/ n* T led_en_flag = 1 //数码管进行显示

//将PB2设为模拟输入口进行AD转换
% o) t% I( L3 v adcdi = 0b0000_0100 //pb2 is analog input
adcc = 0b10_0010_00 //enable ADC, select pb2
adcm = 0b000_0100_0 //system clock/16
, c) k* W% ]4 g  D9 S //adcm = 0b000_0111_0 //system clock/128

//延时一段时间等系统稳定
Xms = 100
+ E5 X( \4 a% k, L call delayXms

//得到按键初始状态，这样在按键损坏时不会误判按键按下或松开
' G2 t) Y, v, | if(!KEY)
; k+ j2 C( C+ b" d2 b {
  key_press_flag = 1
}
else
* w, b1 M9 F5 R. ?! o! U {
  key_press_flag = 0
}

3 ~% c3 Z4 t6 l5 R; y0 I stt16 init_timer
intrq = 0
inten.T16 = 1 //打开定时中断
inten.PB0 = 1 //打开PB0外部中断
engint //允许中断
set1 fppen.1 //打开第二个内核

5 }5 {' q# y! z* p+ [9 V

main0_loop:   

wdreset //clear watch dog

//得到PB2的AD转换结果
4 @2 c) J0 ?4 B& Q4 G call get_pb2_voltage
//AD转换完立即更新数码管显示缓冲区
  ^5 V) ^" G2 a+ I2 O call update_led_disp_buf

if(!KEY) //电压恢复正常只要按键就立刻结束倒计时
{
  if(key_cnt < 3)
  {
   key_cnt ++
* s2 \+ @  R2 M9 h  }
8 p; g1 I! l3 j4 c  else
  {
   if(!key_press_flag)
   {
# `2 J1 `$ ~2 ^. F& U  C    key_press_flag = 1 //这里是按键按下
    //按键切换数码管是否进行显示
5 u% Q6 ^" `4 z: J, v3 X! f    if(led_en_flag)
    {
     led_en_flag = 0 //数码管不显示
2 p4 D1 y: g3 C7 v8 S    }
    else
    {
4 w: S, R+ q8 e$ O     led_en_flag = 1 //数码管显示
    }
   }
  }
}
else
{
/ v& j, L* N3 j; D+ O  if(key_cnt)
  {
   key_cnt --
' s/ \7 Z# N9 J; f8 j9 A  }
( M/ ?/ T, o5 @5 h5 v& m  else
  {
   if(key_press_flag)
   {
- S; \' h4 s3 U    key_press_flag = 0 //这里是按键松开
7 Z1 x1 a: y6 D8 V: u   }
8 U" O! X: U- ]- E# |  }
}

//延时50毫秒，目的是让第一个内核循环的时间大于第二个内核循环时间的两倍
//以保证显示缓冲区再次更新前第二个核已经做出响应，保证显示正确
Xms = 50
call delayXms

goto main0_loop

//第二个内核程序入口
//----------------FPPA1-------------------
main1:
/ ^( J% r4 Q( V" \1 [ sp = 0x38 //设置第二个内核的堆栈地址
delay 200
6 ~6 K/ d# T9 wmain1_loop:
2 i/ r2 [* Z" C3 o if(update_disp_flag) //有数据更新时才进行更新
{
  led1_buf = disp1_buf
9 A3 G7 @! j& J0 h% n  P# J2 S* ~  led2_buf = disp2_buf
  led3_buf = disp3_buf
  update_disp_flag = 0
% T) U- l4 ~9 e8 v2 h1 k }

//第二个内核循环扫描显示数码管，这样可以得到没有闪烁的显示效果
9 D" a- _# k2 e- G3 h5 k if(led_en_flag) //数码管需要显示
{
" [3 \: L' v( a) B  //下面程序尽量让数码管每个段位的处理时间相同，这样可以保证各个段位亮度一致
  //LED1
  ALL_LED_OFF
, l. y  p$ v  n; r/ b  LED_DELAY
  SELECT_LED1
  if(led1_buf.7)
: B- K5 J; |2 v4 J  {
   LED_A_ON
3 `+ `, k4 r( c9 ^  P5 r/ x  }
" @5 X, y* [: n0 X4 H! w' g. E; P6 c  LED_DELAY
( _0 g0 X7 ?: X  LED_A_OFF
  if(led1_buf.6)
  {
   LED_B_ON
  }
& `5 a! o6 a4 t9 V; P  LED_DELAY
5 ]1 z7 K$ D. C7 Y  g3 j  LED_B_OFF
+ `2 G( V4 r% i8 f  if(led1_buf.5)
  {
   LED_C_ON
/ l5 @( N8 {4 A: Y, \+ a  }
  LED_DELAY
  Y, U7 O4 E6 m& C) a+ n  LED_C_OFF
  if(led1_buf.4)
  {
9 [, K9 X! v" L7 C  V7 B) T   LED_D_ON
  }
  LED_DELAY
  LED_D_OFF
7 P: \# S! v1 W5 Y* Q; A& t2 n  if(led1_buf.3)
  {
   LED_E_ON
0 u+ ~1 m" L! T+ |) Q5 \  }
  LED_DELAY
9 M# ]1 J2 x: C% |' ~1 l5 L  LED_E_OFF
3 B9 l. B+ v" U* k# z  n- }  if(led1_buf.2)
# s6 S2 u4 |0 G  {
   LED_F_ON
  }
  LED_DELAY
  LED_F_OFF
% [9 }4 k% C$ i" G" |8 q& M# A  if(led1_buf.1)
  {
- l" l2 N. n7 h# O' W0 L0 |   LED_G_ON
! N0 M6 `! a, n2 o1 |9 \% S  }
+ c/ ~/ H! C. Y  LED_DELAY
  LED_G_OFF
  if(led1_buf.0)
$ A  ^, y% v4 C) o/ z  H3 j( _8 q  {
: q; _; S* V0 K  p   LED_DP_ON
/ U' K$ ~5 e4 a  f  }
  LED_DELAY
- h. c0 k- ?3 H) Q0 a2 R+ T% p  LED_DP_OFF
) s0 X) P: l& R2 D8 J  //LED2
  ALL_LED_OFF
  LED_DELAY
3 B# K, K0 `# e9 ~" V" \' D  SELECT_LED2
  if(led2_buf.7)
  {
   LED_A_ON
7 ]0 @  u! W- d; `" S+ }7 g/ H  }
1 H; D- Z# O; O$ M  g; u, z$ G# p$ w  LED_DELAY
  LED_A_OFF
  if(led2_buf.6)
  {
   LED_B_ON
  }
  LED_DELAY
# O5 G/ Y1 I* D; S0 l  LED_B_OFF
  if(led2_buf.5)
2 {2 H* P. i" f! e; k8 a  {
. W2 Y5 X& b% F' C) @2 {   LED_C_ON
3 J+ o8 j# l. Z4 D" D* ^4 }8 u0 @; y  }
  LED_DELAY
- c$ l# y0 S3 H$ Q  LED_C_OFF
  if(led2_buf.4)
  {
   LED_D_ON
  }
  LED_DELAY
( K  Y: u" [& w- _/ |3 a: A  LED_D_OFF
% y& {+ q- e" x1 ?( |6 o. {: k, D  if(led2_buf.3)
  {
   LED_E_ON
' \- _% r1 U4 j( ^8 d% s/ E  }
  LED_DELAY
  LED_E_OFF
' d3 O7 X# L% W  if(led2_buf.2)
" P5 x0 |' U& A  {
   LED_F_ON
  }
3 r3 T$ }0 R  f( }$ _+ {  LED_DELAY
  LED_F_OFF
# `6 M4 M* B$ N0 S% i* x  if(led2_buf.1)
4 Y. Y$ o9 V! F3 V4 z& Y4 [  {
   LED_G_ON
: h& G" ?/ \1 K8 u5 d  }
  LED_DELAY
  LED_G_OFF
  if(led2_buf.0)
% a* l% B" P# v8 Z0 N  {
# X! y. h% k) |# ]* u   LED_DP_ON
  }
  LED_DELAY
: @" d; A/ y' }' [0 g6 b, p  LED_DP_OFF
7 @# v6 H4 i8 C4 {3 d) g  //LED3
. Z# e2 f: f. X4 a- n- [0 w. A  ALL_LED_OFF
  LED_DELAY
8 _+ _8 @- Y/ w7 h* \  SELECT_LED3
$ T/ f( `0 \. W* X% ^  i  if(led3_buf.7)
1 K! n0 `; i3 m2 m  {
   LED_A_ON
& k8 }6 x3 {+ I  }
  LED_DELAY
, j8 B" C8 J& B! r! V8 V  LED_A_OFF
  }, b$ W( Y) J8 |% p5 _# s# \  if(led3_buf.6)
  {
+ l* N$ Z& {5 R/ {* P9 O9 l% H   LED_B_ON
  }
1 ?0 K- ~3 D6 x  LED_DELAY
( E5 P; f1 o4 q7 @' k& u9 O  LED_B_OFF
  if(led3_buf.5)
  {
2 @. S* C) w' O   LED_C_ON
  }
  LED_DELAY
* u6 K. P7 h' O; D6 H  LED_C_OFF
8 d. p4 h, g$ e, X) @6 ~  j( o  if(led3_buf.4)
  {
2 f) i: f- f" \; j7 r! t   LED_D_ON
2 h2 O; o/ l! L: ~2 k% d8 B' ~* u  }
  LED_DELAY
7 Q* }$ C' Q0 l  LED_D_OFF
3 \" @1 C2 I8 L; d$ W& i  if(led3_buf.3)
  w) i' Y/ A' f* H7 O  {
   LED_E_ON
6 P( e% f% {6 `2 x( {  }
  LED_DELAY
  LED_E_OFF
/ y) W% o2 A  ~( H- E+ \  if(led3_buf.2)
  {
   LED_F_ON
  }
  LED_DELAY
  LED_F_OFF
/ g8 ?0 v3 U' E: U+ G+ ]  if(led3_buf.1)
, q& ~& f+ w7 O* \/ g* r3 p7 q  {
: K6 V/ r2 c; c0 S   LED_G_ON
1 {1 F% }# y2 I  }
  LED_DELAY
  LED_G_OFF
  if(led3_buf.0)
6 v! o/ K9 e" A& ~  {
   LED_DP_ON
  }
5 G' J: E  W( L+ r  LED_DELAY
  LED_DP_OFF
% z+ _  Y0 [% _, P0 L3 g7 y8 I7 s }
else //数码管不需要显示
9 A! R7 f! ~, ]& d1 ] {
; g5 k& f/ S5 _8 Y4 q/ W* L% w  ALL_LED_OFF
}

goto main1_loop

3 o( n" V5 a9 k  t

Racheler

谢谢分享