pwm.asm

51串口发送AT通讯指令测试程序

     led_0   equ   30h
     led_1   equ   31h
     led_2   equ   32h
     adc     equ   35h

     clock   bit   p2.4
     st      bit   p2.5
     eoc     bit   p2.6
     oe      bit   p2.7

             ORG   0000H
             LJMP  MAIN
             org   000bh
             ljmp  int_t0
             ORG   001BH
             LJMP  INT_T1

             ORG   0050H
    int_t0:  SETB  P3.7
             ;cpl   clock
             reti

    INT_T1:  CLR    P3.7
             LCALL  LDELAY
             ;CPL    P3.7
            ; LCALL  HDELAY
             reti

    Hdelay:  mov   r6,40H
             djnz  r6,$
	     ret

    Ldelay:  mov   r6,41H
             djnz  r6,$
	     ret

     delay:  mov   r6,#10
        d1:  mov   r7,#250
	     djnz  r7,$
	     djnz  r6,d1
	     ret

      disp:  mov  dptr,#table
             mov a,led_0
             movc a,@a+dptr
	     clr p2.3
	     mov p0,a
	     lcall delay
	     setb p2.3
	     mov a,led_1
	     movc a,@a+dptr
	     clr p2.2
	     mov p0,a
	     lcall delay
	     setb p2.2
	     mov a,led_2
	     movc a,@a+dptr
	     clr p2.1
	     mov p0,a
	     lcall delay
	     setb p2.1
	     ret

             ORG    0100H
   MAIN:
             mov sp,#60h
             mov led_0,#00h
             mov led_1,#00h
	     mov led_2,#00h
	     mov tmod,#22h
	     mov th0,#245
	     mov tl0,#245
             MOV TH1,#200
             MOV TL1,#200
	     mov ie,#10001010B
             ;setb tr0
             SETB TR1

             MOV    40H,#5
             MOV    41H,#5
     loop:
             setb   p3.7
             ljmp   loop
  ;  wait:    clr st
   ;          setb st
;	     clr st
	    ; jnb eoc,$
;	     setb oe
;	     mov adc,p1
;	     clr oe
;	     mov a,adc
 ;            mov b,#100
;	     div ab
;	     mov led_2,a
;	     mov a,b
;	     mov b,#10
;	     div ab
;	     mov led_1,a
;	     mov led_0,b
	     ;lcall disp
	     ljmp $

 table:      db 3fh,06h,5bh,4fh,66h
             db 6dh,7dh,07h,7fh,6fh

	  end