chasekan@gmail.com
Member level 1
- Joined
- Jun 23, 2013
- Messages
- 35
- Helped
- 1
- Reputation
- 2
- Reaction score
- 1
- Trophy points
- 8
- Activity points
- 255
Org 00h
mov a,#38h
acall cmnwrt
acall delay
mov a,#0eh
acall cmnwrt
acall delay
mov a,#01h
acall cmnwrt
acall delay
mov a,#06h
acall cmnwrt
acall delay
mov a,#84h
acall cmnwrt
acall delay
mov a,#'n'
acall datawrt
acall delay
mov a,#'o'
acall datawrt
l1: Sjmp l1
cmnwrt: Mov p1,a
clr p2.0
clr p2.1
setb p2.2
acall delay
clr p2.2
ret
datawrt: Mov p1,a
setb p2.0
clr p2.1
setb p2.2
acall delay
clr p2.2
ret
delay: Mov r3,#50
l2: Mov r4,#255
l3: Djnz r4,l3
djnz r3,l2
ret
end
mov a,#38h
acall cmnwrt
acall delay
mov a,#0eh
acall cmnwrt
acall delay
mov a,#01h
acall cmnwrt
acall delay
mov a,#06h
acall cmnwrt
acall delay
mov a,#84h
acall cmnwrt
acall delay
mov a,#'n'
acall datawrt
acall delay
mov a,#'o'
acall datawrt
l1: Sjmp l1
cmnwrt: Mov p1,a
clr p2.0
clr p2.1
setb p2.2
acall delay
clr p2.2
ret
datawrt: Mov p1,a
setb p2.0
clr p2.1
setb p2.2
acall delay
clr p2.2
ret
delay: Mov r3,#50
l2: Mov r4,#255
l3: Djnz r4,l3
djnz r3,l2
ret
end