📄 k4.asm
字号:
;-------------------------------------------------------------
; By qdly
; 2006-1-12
;-------------------------------------------------------------
$INCLUDE (t89c51cc01.INC)
ORG 0000H
AJMP MAIN
ORG 0003H
AJMP INT00
ORG 0100H
MAIN:
MOV IEN0,#81H
SETB IT0
;SETB EA
MOV R7,#00H
LCALL DELAY1S
LCALL DELAY1S
LCALL DELAY1S
LCALL DELAY1S
LCALL DELAY1S
LCALL DELAY1S
LCALL DELAY1S
LCALL DELAY1S
;MOV P0,31H
;MOV P1,32H
MOV P2,41H
INT00:
PUSH ACC
PUSH PSW
MOV C,P1.7
MOV B.0,C
INC R7
CJNE R7,#1H,NE1
MOV R1,#40H
EVENODD:
MOV C,B.0
JNC DY0
MOV @R1,#0FFH
AJMP RET0
DY0: MOV @R1,#0H
AJMP RET0
NE1: CJNE R7,#2H,NE2
INC R1
SJMP NE19
NE2: CJNE R7,#0AH,NE0A
INC R1
SJMP NE19
NE0A: CJNE R7,#12H,NE12
INC R1
SJMP NE19
NE12: CJNE R7,#1AH,NE19
MOV R7,#00H
INC R1
SJMP EVENODD
NE19:
MOV A,@R1
RL A
MOV C,B.0
MOV ACC.0,C
MOV @R1,A
RET0: POP PSW
POP ACC
RETI
DELAY1S:
MOV R2,#06H
DELAY11:MOV R3,#0FFH
DELAY41:MOV R4,#0FFH
DJNZ R4,$
DJNZ R3,DELAY41
DJNZ R2,DELAY11
RET
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -