Advertisement
Guest User

n2

a guest
Nov 14th, 2018
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.80 KB | None | 0 0
  1. ; Test STM32F4-Assembler project
  2. ; Ня
  3. ; Library http://www.diary.ru/~teplofizik/p179409174.htm?oam#more1
  4. ; Library http://stm32asm.ru/new_clear.html
  5.  
  6. AREA |.text|, CODE, READONLY
  7.  
  8. GET lpc2292.ini
  9.  
  10. IMPORT init_GPIO
  11.  
  12. EXPORT __main
  13.  
  14. __main PROC
  15.  
  16. bl init_GPIO
  17.  
  18. loop1
  19. ;ldr r2,=IO2CLR
  20. ;ldr r2,=0x003F0000
  21. ;str r3, [r2]
  22.  
  23. ldr r0,=IO0PIN
  24. ldr r1,[r0]
  25.  
  26. tst r1,0x00
  27. bleq led_01 ;blne led_01 (не затухает)
  28. tst r1,0x10
  29. bleq led_10
  30. tst r1,0x20
  31. bleq led_11
  32.  
  33.  
  34.  
  35. b loop1
  36.  
  37. ENDP
  38.  
  39.  
  40. ; 11. Если ДД2 = 1, то ДСИ1 = 1 и ДСИ2 = 1; иначе, если ДД1 = 1, то ДСИ1 = 1 и ДСИ2 = 0, если ДД1 = 0, то ДСИ1=0 и ДСИ2 = 1;
  41.  
  42. led_11 PROC
  43. ldr r2,=IO2CLR
  44. ldr r3,=0x003F0000
  45. str r3,[r2]
  46.  
  47. ldr r2,=IO2SET
  48. ldr r3,=0x00130000
  49. str r3,[r2]
  50.  
  51. mov PC, LR ; mov r15, r14
  52.  
  53. ENDP
  54.  
  55. led_10 PROC
  56. ldr r2,=IO2CLR
  57. ldr r3,=0x003F0000
  58. str r3,[r2]
  59.  
  60. ldr r2,=IO2SET
  61. ldr r3,=0x00110000
  62. str r3,[r2]
  63.  
  64. mov PC, LR ; mov r15, r14
  65. ENDP
  66.  
  67. led_01 PROC
  68. ldr r2,=IO2CLR
  69. ldr r3,=0x003F0000
  70. str r3,[r2]
  71.  
  72. ldr r2,=IO2SET
  73. ldr r3,=0x00210000
  74. str r3,[r2]
  75.  
  76. mov PC, LR ; mov r15, r14
  77. ENDP
  78.  
  79. END
  80.  
  81.  
  82.  
  83. ;bl init_uart0
  84. ;;;;;;;;;;;;;;;;;;;;;;
  85. ;ldr r1, =T0MR0 ; /* Timer0 Match Value 0 */
  86. ;ldr r2, =15000000
  87. ;str r2, [r1]
  88.  
  89. ;ldr r1, =T0MCR
  90. ;ldr r2, =3
  91. ;str r2, [r1]
  92.  
  93. ;ldr r1, =T0TCR
  94. ;ldr r2, =1
  95. ;str r2, [r1]
  96.  
  97. ;ldr r1, =VICVectAddr0
  98. ;ldr r2, =tc0
  99. ;str r2, [r1]
  100.  
  101. ;ldr r1, =VICVectCntl0
  102. ;ldr r2, =0x24
  103. ;str r2, [r1]
  104.  
  105. ;ldr r1, =VICIntEnable
  106. ;ldr r2, =0x10
  107. ;str r2, [r1]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement