中科因仑“3+1”工程特种兵精英论坛

标题: 给使用应广单片机做开发的初学者一个入门的例程 [打印本页]

作者: 张衍波 时间: 2015-3-12 11:46
标题: 给使用应广单片机做开发的初学者一个入门的例程

给使用应广单片机做开发的初学者一个入门的例程
这是一个电推剪的案子最先开始的样子刚拿到应广的单片机第一次尝试做电推剪
由于这是一个公司真实的案子所以请见谅给大家的是一个刚开始的版本

有一段 32 bit /32 bit 的除法改自匠人手记

;;====================除法宏定义
;;入口:
;;       被除数  =  NUM_A3,NUM_A2,NUM_A1,NUM_A0
;;  除数       =  NUM_B3,NUM_B2,NUM_B1,NUM_B0
;;出口:
;;             商    =  NUM_C3,NUM_C2,NUM_C1,NUM_C0
;;       余数 =  NUM_D3,NUM_D2,NUM_D1,NUM_D0
DIV_RLC:

      CLEAR                      COUNT_JSQ
      SET1                      COUNT_JSQ,0X05                               ;32
      MOV       A,0x00
      CEQSN       NUM_B3,A
      ;MOV                      NUM_B3,NUM_B3
      ;T1SN                      Z
      GOTO                      DIV_RLC_0
      ;MOV                      NUM_B2,NUM_B2
      ;T1SN                      Z
;       MOV       A,0x00
      CEQSN       NUM_B2,A
      GOTO                      DIV_RLC_0
      ;MOV                      NUM_B1,NUM_B1
      ;T1SN                      Z
;       MOV       A,0x00
      CEQSN       NUM_B1,A
      GOTO                      DIV_RLC_0
      ;MOV                      NUM_B0,NUM_B0
      ;T1SN                      Z
;       MOV       A,0x00
      CEQSN       NUM_B0,A
      GOTO                      DIV_RLC_0
      GOTO                      DIV_ERR
DIV_RLC_0:
      ALLCLR       NUM_C3,NUM_C2,NUM_C1,NUM_C0
      ALLCLR       NUM_D3,NUM_D2,NUM_D1,NUM_D0
;======除数不为0
DIV_32_32_LP:
      ALLRLC       NUM_A3,NUM_A2,NUM_A1,NUM_A0
      ALLRLC       NUM_D3,NUM_D2,NUM_D1,NUM_D0
;==试商
      T0SN                      C
      GOTO                      DIV_32_32_LP1
      ;SIZE_COMP             NUM_D3,NUM_D2,NUM_D1,NUM_D0,NUM_B3,NUM_B2,NUM_B1,NUM_B0
      MOV             A,NUM_D3
      ;MOV             RTMP_MAC,A
      ;MOV             A,NUM_B3
      ;SUB             A,RTMP_MAC
      COMP             A,NUM_B3
      T0SN             C
      GOTO             COMP_Small
      T1SN             Z
      GOTO             COMP_LARGE

      MOV             A,NUM_D2
      ;MOV             RTMP_MAC,A
      ;MOV             A,NUM_B2
      ;SUB             A,RTMP_MAC
      COMP             A,NUM_B2
      T0SN             C
      GOTO             COMP_Small
      T1SN             Z
      GOTO             COMP_LARGE

      MOV             A,NUM_D1
      ;MOV             RTMP_MAC,A
      ;MOV             A,NUM_B1
      ;SUB             A,RTMP_MAC
      COMP             A,NUM_B1
      T0SN             C
      GOTO             COMP_Small
      T1SN             Z
      GOTO             COMP_LARGE

      MOV             A,NUM_D0
      ;MOV             RTMP_MAC,A
      ;MOV             A,NUM_B0
      ;SUB             A,RTMP_MAC
      COMP       A,NUM_B0
      T0SN             C
      GOTO             COMP_Small
      T1SN             Z
      GOTO             COMP_LARGE
;       GOTO             COMP_LARGE
COMP_LARGE:
      SET1             C
      GOTO             SIZE_COMP_OUT
COMP_Small:
      SET0             C
      GOTO             SIZE_COMP_OUT
SIZE_COMP_OUT:
      ;
      ;*/
      T1SN                      C
      GOTO                      DIV_32_32_LP2
;       SET0                      C
DIV_32_32_LP1:
      MOV                      A,NUM_B0
      SUB                      NUM_D0,A
      SUBCC             NUM_D1,NUM_B1
      SUBCC             NUM_D2,NUM_B2
      SUBCC             NUM_D3,NUM_B3
      SET1                      C
DIV_32_32_LP2:
      ALLRLC       NUM_C3,NUM_C2,NUM_C1,NUM_C0
      DZSN                      COUNT_JSQ
      GOTO                      DIV_32_32_LP
      SET0                      C
      GOTO                      DIV_RLC_OUT
DIV_ERR:                                                       ;溢出（除数=0）处理
      MOV             A,0XFF
      MOV             NUM_C3,A
      MOV             NUM_C2,A
      MOV             NUM_C1,A
      MOV             NUM_C0,A

      MOV             NUM_D3,A
      MOV             NUM_D2,A
      MOV             NUM_D1,A
      MOV             NUM_D0,A
      SET1             C
DIV_RLC_OUT:
      RET

欢迎光临中科因仑“3+1”工程特种兵精英论坛 (http://bbs.enlern.com/)