mode   equ  082h   ; 方式0，PA，PC輸出，PB輸入
CS0809 equ  8000h
PortA  equ  9000h  ; Port A
PortB  equ  9001h  ; Port B
PortC  equ  9002h  ; Port C
CAddr  equ  9003h  ; 控制字地址

       org   0

       mov   dptr,#CAddr  
       mov   a,#mode
       movx  @dptr,a

       mov   dptr, #CS0809
       mov   a, #0
       movx  @dptr, a    ; 起動 A/D

       mov   a, #40h
       djnz  ACC, $      ; 延時 > 100us

       movx  a, @dptr    ; 讀入結果
       mov   r7,#100
 dly:
       mov   dptr,#PortA
       movx  @dptr,a
       djnz  r7,dly      ;延時
       ljmp  0
       end