Advertisement
Guest User

Code

a guest
Apr 6th, 2011
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.23 KB | None | 0 0
  1. ; TXD P1.0 = CLOCK
  2. ; RXD P1.1 = DATA
  3.  
  4. $NOMOD51 ; importes
  5. #include "reg932.h" ; for
  6. ; at
  7. prog SEGMENT CODE ; undgå
  8. RSEG prog ; fejl
  9. ;
  10. ?C_START: ;
  11. public ?C_START ;
  12.  
  13. jmp 80H ;
  14. org 80H ; hvad gør disse "!!!!"
  15.  
  16. mov divm,#4 ;(120KHz)
  17. mov p1m1,#0 ;
  18. mov p1m2,#0 ; sætter portene op
  19. mov p1,#0H ;
  20. mov scon, #0 ; SKAL BRUGES DA DER ARBEJDES MED MODE-0
  21.  
  22.  
  23. call SEND_START
  24. mov a,#090h
  25. acall SEND_BYTE
  26. mov a,#0eeh
  27. acall SEND_BYTE
  28. acall SEND_STOP
  29.  
  30.  
  31.  
  32. SEND_START:
  33. /* CLR r5 ; OPERATION IS IN PROGRESS
  34. CLR r6 ; CLEAR STATUS FLAGS
  35. JNB p1.0,FAULT
  36. JNB p1.1,FAULT
  37. */ SETB p1.1 ; BEGIN START CODITION
  38. setb p1.0
  39. CLR p1.1
  40. ACALL DEELAY ;nop
  41. CLR p1.0
  42. RET
  43. DEELAY:
  44. nop
  45. ret
  46.  
  47.  
  48. SEND_STOP:
  49. clr p1.1
  50. setb p1.0
  51. setb p1.1
  52. ret
  53.  
  54. SEND_BYTE:
  55. mov r5,#08h
  56.  
  57. SB_LOOP:
  58. jnb acc.7,NOTONE
  59. setb p1.1
  60. jmp ONE
  61.  
  62. NOTONE:
  63. clr p1.1
  64.  
  65.  
  66. ONE:
  67. setb p1.0
  68. RL A
  69. DJNZ r5,SB_LOOP
  70. setb p1.1
  71. setb p1.0
  72. JNB P1.1,SB_EX
  73.  
  74. SB_EX:
  75. acall DEELAY
  76. clr p1.0
  77. acall DEELAY
  78. ret
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement