ad.asm

AD程序

ADCS		EQU		P3.0	;AD SELECT PIN,0,WORK
ADWR            EQU             P3.6    ;AD WR SIGNAL
ADRD            EQU             P3.7
ADBUFFER		EQU		43H			;AD DATA  BUFFER
                ORG	0000H
		LJMP	MAIN
              ;  ORG	0013H
	;	LJMP	INDATA
MAIN:           NOP
             ;   SETB    EA
             ;   SETB    EX1
             ;   SETB    IT1
OK:          LCALL     LOOP
             LCALL     INDATA
             LCALL     YSC
             LJMP      OK
LOOP:   NOP
	CLR		ADCS		;  
        CLR             ADWR
        
        MOV		R0,0FFH         ;
MMM1:   NOP
	DJNZ		R0,MMM1
        
        SETB            ADCS
        SETB            ADWR
       ; SETB    EA
        ;SETB    EX1
       ; SETB    IT1
        RET
;================================================
INDATA:
;	PUSH	ACC
;	PUSH	PSW
 ;       CLR     IT1
 ;       CLR     EA
        MOV     P0,#0FFH
        CLR     ADCS
        CLR     ADRD
	MOV	 A, P0		 ; Input data, CS still low
	MOV	ADBUFFER, A		 ; Store in memory
	SETB	 ADCS		; Reset CS signal
	SETB    ADRD
;	POP	PSW
;	POP	ACC
;        SETB    EA
;        SETB    IT1
;	RETI				; the interrupt loop
        RET
;**************YSC****************
YSC:    MOV     5EH,#06H
LP2:    MOV     5FH,#0AH
LP1:    DJNZ    5FH,LP1
        DJNZ    5EH,LP2
        RET
;=================================================
        END