DISY_1650_CL:
SET_1650_MODE:       ;1650模式设置
  SET   CLK
  SET   DIN
  call  DELAY50US
  CLR   DIN
  MOV   A,48H   
  CALL  MOVE_1620
         
  MOV   A,11H    ;开屏，正常工作，8段输出，1级亮度
  CALL  MOVE_1620
  
  SET   CLK
  CLR   DIN
  call  DELAY50US   
  SET   DIN
;--------------------------------------------
DISY_DATA:
  SET   CLK
  SET   DIN
  call  DELAY50US
  CLR   DIN
  MOV   A,68H    ;写COM1地址
  CALL  MOVE_1620
  MOV   A,R01
  CALL  MOVE_1620
  
  SET   CLK
  CLR   DIN
  call  DELAY50US   
  SET   DIN
  RET
;--------------------------------------------
MOVE_1620:        ;数据传送子程序
  MOV   BTEMP,A
  CLR   BCOUNT
  MOV   A,8
  MOV   BCOUNT,A
   
  SET   BTEMP
MOVE_1620_LOOP:
  RL   BTEMP
  CLR   DIN
  SZ   BTEMP.0
  SET   DIN
   
  CLR   CLK   
  call  DELAY50US   
  SET   CLK
  call  DELAY50US
  CLR   CLK     
  SDZ   BCOUNT
  JMP   MOVE_1620_LOOP  
  

  SET   PDC.7
AAA:
  SZ   DIN
  jmp   AAA
   
  RET
DELAY50US:
   mov a,32
   mov TEMP,A
   Sdz TEMP
   JmP $-1
   RET