home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s093 / 1.img / DEMO51.ASM next >
Encoding:
Assembly Source File  |  1980-01-01  |  2.9 KB  |  158 lines
  1. ; Copyright 1985 Cybernetic Micro Systems, Inc.
  2.  
  3. ; Demo51.ASM    8051 Source Code
  4.  
  5. Bseg        ; Bit Segment directive
  6.  MFlag    BIT 0Ah ; Bit address 10 decimal
  7.  DisB    BIT 0Eh ; Bit address 14 decimal
  8.  RB2     =  10h ; Pattern to select Reg Bank 2
  9. Ends
  10.  
  11. Dseg          ; Data Segment directive
  12.  REGbuffer DATA 0 ; dummy to show Data Type
  13. Ends
  14.  
  15. Xseg           ; External Memory Segment
  16.  DummyBuf Data 20h ; dummy to show Data Type
  17. Ends
  18.  
  19. Cseg           ; Code Segment Directive
  20.  
  21. ORG 0h
  22.  
  23. ;%S Copyright 1985 Cybernetic Micro Systems, Inc.
  24.  
  25. Begin:
  26. ajmp ReStart
  27.  
  28. ORG 3h        ; External Interrupt 0 Vector
  29. nop
  30. Ext0Int:    ;:Pin 12 LOW
  31. reti        ; do nothing for Ext 0
  32.  
  33.  
  34. ORG 0Bh     ; Timer/Counter 0 Vector
  35. ajmp T0Int    ; if Timer 0 Interrupt
  36.  
  37.  
  38. ORG 13h     ; External Interrupt 1 Vector
  39. reti        ; do nothing for Ext 1
  40.  
  41.  
  42. ORG 1Bh     ; Timer/Counter 1 Vector
  43. ;        ; Should NOT be enabled,
  44. reti        ; T1 is used for Serial clock
  45.  
  46.  
  47. ORG 23h     ; Serial Interrupt Vector
  48. ajmp SerialInt    ; if Serial Interrupt
  49.  
  50.  
  51. ORG 2Bh     ; Timer/Counter 2 Vector
  52. ;        ; not used in this program,
  53. reti        ; T2 only exists in the 8052
  54.  
  55.  
  56. ReStart:    ;:Hdw Reset
  57. mov TMOD,#20h    ; T0 prescaler mode, T1 auto reload
  58. mov TH1,#0FDh    ; reload value for serial communications
  59. mov TL1,#0FDh    ; also initial count value
  60. setb TR1    ; turn on timer 1
  61. setb TR0    ; and timer 0
  62. inc R6        ; count # of reset cycles
  63. lcall InitSer    ; turn on serial interface
  64. mov IE,#97h    ; enable all interrupts except T1 & T2
  65. ;
  66. MainLoop:    ;: Init Regs
  67. mov R4,#15    ; loop counter
  68. inc R1
  69. ;
  70. zeroVAL:    ;:Value <- 0
  71. clr A
  72. mov R2,#0    ; also clear R2
  73. clr Mflag    ; control bit
  74. ;
  75. doLoop:     ;: Count Loop
  76. xch A,R2
  77. add A,#3    ;change increment value
  78. xch A,R2
  79. jb  MFlag,ValMax ;?A = Max
  80. ;
  81. OutP1:        ;:  P1 <- AC
  82. add A,R2
  83. mov P1,A
  84. ;
  85. jb DisB,NotStore ;? DisB=1
  86. ;
  87. acall StoreVal    ;record value in external memory
  88. inc R5
  89. ;
  90. NotStore:    ;:Test Value
  91. setb C
  92. jnb ACC.7,NotMAX ;?Not Max Yet
  93. setb Mflag    ; disable counting
  94. ;
  95. VALMax:     ;: Have MAX
  96. acall SwitchBanks
  97. ;
  98. NotMax:     ;:Repeat Loop
  99. cpl C
  100. djnz R4,DoLoop    ;?R4 > 0
  101. ;
  102. mov P1,#0FFh    ; set Port 1 all high again
  103. ajmp MainLoop
  104.  
  105. StoreVAL:    ;: record Value
  106. push psw
  107. movx @R1,A    ; save in external memory
  108. pop psw
  109. ret
  110.  
  111. SwitchBanks:
  112. acall SelRB2
  113. ;
  114. SelRB0:     ;: BS -> 0
  115. anl PSW,#0E7h
  116. ret
  117. ;
  118. SelRB2:     ;: BS -> 2
  119. orl PSW,#RB2
  120. ret
  121.  
  122. InitSer:    ;: UART on
  123. mov SCON,#052h    ; mode 1, REN on, TI on
  124. acall SelRB2
  125. mov R3,#55h    ; data to transmit
  126. acall SelRB0
  127. ret
  128.  
  129. T0Int:        ;:T0 Interrupt
  130. cpl DisB    ; complement control bit
  131. reti
  132.  
  133. SerialInt:    ;:UART Routine
  134. inc R7
  135. jbc TI,SerialTx ;?Tx Ready
  136. clr RI        ; else clear receiver
  137. acall SelRB2
  138. mov R4,SBUF    ; read received data to R4
  139. acall SelRB0
  140. reti
  141. ;
  142. SerialTx:
  143. acall SelRB2
  144. xch A,R3
  145. rl  A        ; rotate data to transmit
  146. mov SBUF,A    ; write to transmitter
  147. xch A,R3    ; save new data
  148. acall SelRB0
  149. reti
  150.  
  151. nop
  152.  
  153. ;%E    Copyright 1985 Cybernetic Micro Systems, Inc.
  154.  
  155. Ends        ; end of Code segment
  156.  
  157. END Begin
  158.