zd1.asm

工控机振动平台

        tim1  equ 30h
        tim2  equ 31h
        sign  bit 00h
        ORG   0000H




        AJMP  INIT
;************************************************
        org   001bh
        ;cpl   p0.6
        clr   p0.6
         nop
         nop
         setb   p0.6
         nop
         nop
         clr   p0.6

       inc   tim1
       setb  sign
        reti


        ORG   0030H
;********************
INIT:   NOP
        MOV   R0,#20H        ;clear 20H-7FH RAM.
        MOV   R5,#60H
CLOP:   MOV   @R0,#0
        INC   R0
        DJNZ  R5,CLOP

        mov   th1,#230
        mov   tl1,#230
        mov   tmod,#20h
        mov   ie,#88h
        setb  tr1
        mov   tim1,#0A0h
        mov   tim2,#15h
        clr   sign
;********************************************************************
        ORG   0100H
main:   nop
        jnb   sign,main
        mov   a,tim1

        cjne  a,#00h,main
        clr   sign

        inc   tim2
        mov   a,tim2

        cjne  a,#00h,main
       ; inc   tim2
         cpl   p0.7
        mov   tim1,#0A0h
        mov   tim2,#15h
           
         
main1:  ajmp  main
;********************************************************************
dl1:    nop                  ;dalay
        MOV R7,#0ffh
DL11:   MOV R6,#0ffH
DL12:   DJNZ R6,DL12
        DJNZ R7,DL11
        RET
;**********************
        end