;8155輸入、輸出
             mode  equ  01H    ; 方式0，PA輸出,PB輸入
             PortA equ  7F01h  ; Port A
             PortB equ  7F02h  ; Port B
             PortC equ  7F03h  ; Port C
             CAddr equ  7F00h  ; 控制字地址

             org   0000H           ;實驗2： PortB 輸入 PortA 輸出
         
             LJMP   START
             ORG    0030H  
START: 
             MOV   A,#MODE
             mov   dptr,#CADDR
             movx  @dptr ,A
MAIN:
             mov   dptr,#PortB
             movx  a,@dptr     ; 讀入PortB
             mov   dptr,#PortA
             movx  @dptr,a     ; 輸出到PortA
             ;call  delay
             ljmp  MAIN

delay:
             MOV   R6,#0
DD1:         mov   r7,#0
ddd:         djnz  r7,ddd
             djnz  r6,dd1
             ret

             end