HT1380   EQU 0X06 
COUNT0   EQU 0X10 
TXBUF   EQU 0X11 
RXBUF   EQU 0X12 
DATABUF  EQU 0X13 
ADDRPOINT  EQU 0X14 

HT_SDA_IN  EQU 0B01001000 
HD_SDA_OUT EQU 0B00001000 
HT_SCL   EQU 0 
HT_RST   EQU 1 
Ht_SDA   EQU 2 
; 
TX_1380:  MOV  A,@HT_SDA_OUT 
   IOW  HT1380 
   BC  HT1380,HT_SCL 
    MOV  A,@8 
    MOV  COUNT0,A 
TX_1380_LP:  
   BC  HT1380,HT_SDA 
   JBC  TXBUF,0 
   BS  HT1380,HT_SDA 
   BS  HT1380,HT_SCL 
   RRC  TXBUF 
   BC  HT1380,HT_SCL 
DJZ  COUNT0 
JMP  TX_1380_LP 
RET 
;读HT1380子程序 
READ_HT:  
    MOV  TXBUF,A 
   BC  HT1380,HT_SCL 
   BS  HT1380,HT_RST 
    MOV  A,@HT_SDA_OUT 
   IOW  HT1380 
    MOV  A,@8 
    MOV  COUNT0,A 
TX_1_LP: 
   BC  HT1380,HT_SDA 
   JBC  TXBUF,0 
   BS  HT1380,HT_SDA 
   BS  HT1380,HT_SCL 
   RRC  TXBUF 
   BC  HT1380,HT_SCL 
   DJZ  COUNT0 
   JMP  TX_1_LP 
    MOV  A,@HT_SDA_IN 
   IOW  HT1380 
    MOV  A,@8 
    MOV  COUNT0,A 
RX_1380_LP: 
   RRC  RXBUF 
   BC  RXBUF,7 
   JBC  HT1380,HT_SDA 
   BS  RXBUF,7 
   BS  HT1380,HT_SCL 
   BC  HT1380,HT_SCL 
   DJZ  COUNT0 
   JMP  RX_1380_LP 
   BC  HT1380,HT_RST 
   RET 
;写HT1380子程序 
WRITE_HT: 
    MOV  ADDRPOINT,A 
   BC  HT1380,HT_SCL 
   BS  HT1380,HT_RST 
    MOV  A,@0B1000110 
    MOV  TXBUF,A 
   CALL TX_1380 
CLR  TXBUF 
CALL TX_1380 
BC  HT1380,HT_RST 
NOP 
BS  HT1380,HT_RST 
MOV  A,ADDRPOINT 
    MOV  TXBUF,A 
   CALL TX_1380 
MOV  A,DATABUF 
MOV  TXBUF,A 
CALL TX_1380 
BC  HT1380,HT_RST 
NOP 
BS  HT1380,HT_RST 
MOV  A,@0B10001110 
MOV  TXBUF,A 
CALL TX_1380 
MOV  A,@0B10000000 
MOV  TXBUF,A 
CALL TX_1380 
BC  HT1380,HT_RST 
MOV  A,HT_SDA_IN 
IOW  HT1380 
RET 
END