h14.asm

(1)完成键盘

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