h7.asm

(1)完成键盘

             mode  equ  082h   ; 方式0，PA，PC输出，PB输入
             PortA equ  8000h  ; Port A
             PortB equ  8001h  ; Port B
             PortC equ  8002h  ; Port C
             CAddr equ  8003h  ; 控制字地址

             org   0h
             mov   a, #mode
             mov   dptr, #CAddr
             movx  @dptr,a     ; 输出控制字
           

             ;实验1：PortA输出
EX_A:
             mov   a,#80H
             mov   dptr,#PortA
             mov   b,#8H
OutA:        
             movx  @dptr,a     ; 输出PortA
             rr    a           ; 移位
             mov   r5,#1
             call  delay       ; 延时
             djnz  b, OutA

             ;实验2： PortB 输入 PortA 输出
EX_B:
             mov   dptr,#PortB
             movx   a,@dptr    ; 读入PortB
             mov   dptr,#PortA
             movx  @dptr,a     ; 输出到PortA

             mov   r5,#2
             call  delay

             ljmp  0

delay:
             mov   r7,#0
ddd:         djnz  r7,ddd
             djnz  r6,ddd
             djnz  r5,ddd
             ret
             end