5.asm

用灯观察乒乓球效果

NAME C10
CSEG AT 0000H
LJMP START
CSEG AT 401BH
LJMP INT
CSEG AT 4100H
START:
        MOV A,#0FFH
        MOV DPTR,#0CFA0H
        MOVX @DPTR,A
        MOV R5,#00H
        MOV R4,#00H
        MOV R3,#00H
        MOV R7,#200
        MOV TMOD,#20H
        MOV TL1,#06H
        MOV TH1,#06H
        SETB EA
        SETB ET1
        SETB TR1
loop:
  lcall inkey
  jc loop
  cjne a,#0,lop1
  ljmp start
lop1:
  cjne a,#1,lop2
  clr ea
  ljmp loop
lop2:
  setb ea
  ljmp loop
disp:  MOV DPTR,#TAB
        MOV A,R3
        MOVC A,@A+DPTR
        MOV P1,A
        MOV DPTR,#0CFA0H
        MOV A,#0FBH
        MOVX @DPTR,A
        MOV A,#0FFH
        MOVX @DPTR,A
    RET
        MOV DPTR,#TAB
        MOV A,R4
        MOVC A,@A+DPTR
        ORL A,#80H
        MOV P1,A
        MOV DPTR,#0CFA0H
        MOV A,#0FDH
        MOVX @DPTR,A
        MOV A,#0FFH
        MOVX @DPTR,A
        MOV DPTR,#TAB
        MOV A,R5
        MOVC A,@A+DPTR
        MOV P1,A
        MOV DPTR,#0CFA0H
        MOV A,#0FEH
        MOVX @DPTR,A
        MOV A,#0FFH
        MOVX @DPTR,A
        ret
INT:    PUSH ACC
H1:     DJNZ R7,H0
        MOV R7,#200
;X
        INC R3
        CJNE R3,#0AH,H0
        MOV R3,#00H
        INC R4
        CJNE R4,#0AH,H0
        MOV R4,#00H
        INC R5
        CJNE R5,#0AH,H0
        MOV R5,#00H
H0:     POP ACC
        RETI
TAB:    db 3fh,6,05Bh,4fh,66h,06DH,7dh,07,7fh,6fh
inkey:
        mov r6,#10
inky1:
        mov p3,#0ffh
        jnb p3.0,inkey2
        lcall disp
        djnz r6,inky1
        clr a
        clr c
        ret
inkey2:
        mov r6,#10
inky2:
        mov p3,#0ffh
        jnb p3.1,inkey3
        lcall disp
        djnz r6,inky2
        mov a,#1
        clr c
        ret
inkey3:
        mov r6,#10
inky3:
        mov p3,#0ffh
        jnb p3.2,inkey4
        lcall disp
        djnz r6,inky3
        MOV A,#2
        clr c
        ret
inkey4:
        lcall disp
        setb c
        ret
        END