можно так еще
UrtWr: mov r3,#0xff0000 ;r3 = Z_BASE; orr r3,r3,#0xff000000 ldr r1,[r3,#Z_COMSTA0] ands r1,r1,#0x040 ;if(COMSTA.6) strne r0,[r3,#Z_COMTX] ; { COMTX = iTx; r0 = 1; } movne r0,#1 moveq r0,#0 ;else r0 = 0; bx lr
есть оптимизированная библиотека под адуки в сети валяется.
|