;左進
ORG 00H
MOV SP,#70H
CALL INIT8279

GETKEY:
MOV DPTR,#8061H
MOVX A,@DPTR
ANL A,#0FH
JZ GETKEY
MOV DPTR,#8060H
MOVX A,@DPTR
PUSH ACC
ANL A,#00000111B
ADD A,R2
MOV DPTR,#CODETABLE
MOVC A,@A+DPTR
MOV DPTR,#8060H
MOVX @DPTR,A
JMP GETKEY

INIT8279:
MOV A,#0
MOV DPTR,#8061H
MOVX @DPTR,A
MOV A,#34H
MOVX @DPTR,A
MOV A,#0DFH
MOVX @DPTR,A

NOTCLEAROK:
MOVX A,@DPTR
JNB ACC.7,NOTCLEAROK
MOVX @DPTR,A
MOV A,#90H
MOVX @DPTR,A
RET

CODETABLE:
DB 0C0H,0F9H,0A4H,0B0H
DB 99H,92H,82H,0F8H
DB 80H,90H,88H,83H
DB 0C6H,0A1H,86H,8EH
END
arrow
arrow
    全站熱搜

    Joy 發表在 痞客邦 留言(0) 人氣()