本帖最后由 51黑小牛 于 2016-4-10 17:34 編輯
GPADIR EQU 0xE0028008
GPASET EQU 0xE0028004
GPACLR EQU 0xE002800C
EXPORT xmain
AREA Init,CODE,READONLY
ENTRY
xmain
ldr r0,=GPADIR
ldr r1,=0x3ff
str r1,[r0] ;A=out
;===========init1602=================
mov r4,#0x38
BL w1602C
mov r4,#0x06
BL w1602C
mov r4,#0x0c
BL w1602C
mov r4,#0x01
BL w1602C
;============main=================
loop mov r4,#0x80
bl w1602C
ldr r9,=dat
mov r6,#0
loop1 ldr r4,[r9,r6]
bl w1602D
ADD r6,r6,#1
BL delay
cmp r6,#15
bne loop1
mov r4,#0xc0
bl w1602C
ldr r9,=ttt
mov r6,#0
loop2 ldr r4,[r9,r6]
bl w1602D
ADD r6,r6,#1
BL delay
cmp r6,#15
bne loop2
B loop
;===================================
w1602C ldr r1,=0x3ff
ldr r0,=GPACLR
str r1,[r0]
mov r1,#0
ORR r1,r1,r4
ldr r0,=GPASET
str r1,[r0]
nop
nop
orr r1,r1,#0x200
str r1,[r0]
nop
nop
ldr r0,=GPACLR
mov r1,#0x200
str r1,[r0]
mov pc,lr
;======================================
w1602D ldr r1,=0x3ff
ldr r0,=GPACLR
str r1,[r0]
mov r1,#0x100
ORR r1,r1,r4
ldr r0,=GPASET
str r1,[r0]
nop
nop
orr r1,r1,#0x200
str r1,[r0]
nop
nop
ldr r0,=GPACLR
mov r1,#0x200
str r1,[r0]
mov pc,lr
;===================================
delay mov r5,#0xff00
delay1 sub r5,r5,#1
cmp r5,#0
bne delay1
mov pc,lr
;====================================
dat DCB " China Dianzi"
ttt DCB " Keji Xueyuan"
end
|