8255单片机led显示实验

LEDBUF EQU 60H
ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:    MOV LEDBUF+0,#2
         MOV LEDBUF+1,#2
         MOV LEDBUF+2,#4
         MOV LEDBUF+3,#0
         MOV LEDBUF+4,#3
         MOV LEDBUF+5,#1
         MOV LEDBUF+6,#0
         MOV LEDBUF+7,#2
MLP:   CALL DISP
        AJMP MLP
        SJMP $
       ORG 1000H
DISP:  MOV DPTR,#07FFFH
       MOV A,#03H
       MOVX @DPTR,A
DISP1:MOV R0,#60H
      MOV R2,#01H
      MOV A,R2
DIR:  MOV DPTR,#0FFFDH
      MOVX @DPTR,A
      MOV A,@R0
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      MOV DPTR,#0FFFCH
      MOVX @DPTR,A
      CALL D1MS