7289.asm

信号AD转换程序 信号AD转换程序 内容不多

BIT_CNT DATA 30H
DELAY1 DATA 31H
DELAY DATA 33H
DECIMAL DATA 32H
REC_BUF DATA 20H
SEND_BUF DATA 21H
CS  BIT P1.3
CLK BIT P1.2
DIO BIT P1.1
KEY BIT P1.0
;====================
MAIN:
ORG 0000H
JMP RESET
ORG 0100H
RESET:SETB CS
      SETB KEY
      SETB DIO
      MOV DELAY,#25
RST_DELAY1:
      DJNZ DELAY1,RST_DELAY1
      DJNZ DELAY,RST_DELAY1
      MOV SEND_BUF,#10111111B
      CALL SEND
      SETB CS
      MOV SEND_BUF,#10100100B
      CALL SEND
      SETB CS
;================================= DISP "H"
      MOV SEND_BUF,#81H
      CALL SEND
      MOV SEND_BUF,#0CH
      CALL SEND
      SETB CS
;================================= DISP "E"
      MOV SEND_BUF,#82H
      CALL SEND
      MOV SEND_BUF,#0BH
      CALL SEND
      SETB CS
;================================= DISP "L"
      MOV SEND_BUF,#83H
      CALL SEND
      MOV SEND_BUF,#0DH
      CALL SEND
      SETB CS
;================================ DISP "L"
      MOV SEND_BUF,#84H
      CALL SEND
      MOV SEND_BUF,#0DH
      CALL SEND
      SETB CS
;================================= DISP "O"
      MOV SEND_BUF,#85H
      CALL SEND
      MOV SEND_BUF,#0H
      CALL SEND
      SETB CS
;=================================
INTKEY:
      JB KEY,INTKEY
      MOV SEND_BUF,#00010101B
      CALL SEND
      CALL RECEIVE
      SETB CS
      MOV SEND_BUF,#80H
      CALL SEND
      MOV A,REC_BUF
      MOV SEND_BUF,A
      CALL SEND
      SETB CS
      CALL LONG_DELAY
      JMP INTKEY
;====================
SEND:
      MOV BIT_CNT,#8
      CLR CS
      CALL LONG_DELAY
SEND_LP:
      MOV A,SEND_BUF
      RLC A
      MOV SEND_BUF,A
      MOV DIO,C
      NOP
      NOP
      SETB CLK
      CALL SHORT_DELAY
      CLR CLK
      CALL SHORT_DELAY
      DJNZ BIT_CNT,SEND_LP
      CLR DIO
      RET
;=====================
RECEIVE:
      MOV BIT_CNT,#8
  ;    SETB DAT
      CALL LONG_DELAY
RECEIVE_LP:
      SETB CLK
      CALL SHORT_DELAY
      setb DIO
      MOV C,DIO
      MOV A,REC_BUF
      RLC A
      MOV REC_BUF,A
      CLR CLK
      CALL SHORT_DELAY
      DJNZ BIT_CNT,RECEIVE_LP
      CLR DIO
      RET

;=====================
LONG_DELAY:
      MOV DELAY,#25
      DJNZ DELAY,$
      RET
SHORT_DELAY:
      MOV DELAY,#4
      DJNZ DELAY,$
      RET
LLONG_DELAY:
      MOV DELAY,#0FFH
      MOV DELAY1,#0FFH
AAA:  DJNZ DELAY1,AAA
      NOP
      NOP
      NOP
      NOP
      NOP
      NOP
      NOP
      DJNZ DELAY,AAA
      RET
   END