Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $include(mod51)
- mov P3,#00000000b
- st:
- call star
- mov P3,#00000001b
- call del
- jb P0.2,star_key
- mov P3,#00000010b
- call del
- mov P3,#00000100b
- call del
- mov P3,#00001000b
- call del
- mov P3,#00100000b
- call del
- mov P3,#01000000b
- call del
- mov P3,#10000000b
- call del
- mov P3,#01000000b
- call del
- mov P3,#01000000b
- call del
- mov P3,#00100000b
- call del
- mov P3,#00001000b
- call del
- mov P3,#00000100b
- call del
- mov P3,#00000100b
- call del
- mov P3,#00000010b
- call del
- ljmp st
- star_key:
- wait:
- jnb P0.2,st
- jmp wait
- diez:
- setb P0.2
- clr P0.0
- setb P0.1
- ret
- star:
- setb P0.0
- clr P0.1
- setb P0.2
- ret
- del:
- mov R1,#255
- MM2:
- mov R2,#255
- MM1:
- djnz R2,MM1
- djnz R1,MM2
- ret
- end
Add Comment
Please, Sign In to add comment