单片机大神请进，51单片机汇编程序，程序可发至603937022@qq.com，急求！！

Question

一、内容　
1. P3.3口做输入口，外接一脉冲（开关），每输入一个脉冲，P1口按十六进制加一。
2. P1口做输出口，编写程序，使P1口接的8个发光二极管L1—L8按16进制加一方式点亮发光二极管。程序如下：
ORG 0540h
HA1S: MOV A,#00H
HA1S1: JB P3.3,HA1S1
MOV R2,#20H
LCALL DELAY
JB P3.3,HA1S1
HA1S2: JNB P3.3,HA1S2
MOV R2,#20H
LCALL DELAY
JNB P3.3,HA1S2
INC A
PUSH ACC
CPL A
MOV P1,A
POP ACC
AJMP HA1S1
DELAY: PUSH 02H
DELAY1: PUSH 02H
DELAY2: PUSH 02H
DELAY3: DJNZ R2,DELAY3
POP 02H
DJNZ R2,DELAY2
POP 02H
DJNZ R2,DELAY1
POP 02H
DJNZ R2,DELAY
RET
END
求大神注释一下！
二、把上面的要求P3.3输入替换成INT0外部中断输入，写个完整的汇编程序，其他要求不变！

Answer 1

1 P1口做输出口，编写程序，使P1口接的8个发光二极管L1—L8按16进制加一方式点亮发光二极管。程序如下：
ORG 0540h
HA1S: MOV A,#00H；A初值为0
HA1S1: JB P3.3,HA1S1；如果P3.3为1则等待（有脉冲变0一次）
MOV R2,#20H；R2赋值为20
LCALL DELAY；延时（去抖动）
JB P3.3,HA1S1；如果为1则返回继续判断
HA1S2: JNB P3.3,HA1S2；等待脉冲变为高电平（等待键释放）
MOV R2,#20H；R2重新赋值为20
LCALL DELAY；延时
JNB P3.3,HA1S2；如果没释放则返回继续等待
INC A；A加1
PUSH ACC；A入堆栈保护
CPL A；A取反
MOV P1,A；A送P1
POP ACC;A的值出栈恢复原值
AJMP HA1S1；返回程序开始处
DELAY: PUSH 02H；02H(R2)入栈保护，因为下面的循环中都是20次（R2中的数，所以三次入栈），不过这个程序这样写真是很别扭
DELAY1: PUSH 02H
DELAY2: PUSH 02H
DELAY3: DJNZ R2,DELAY3
POP 02H
DJNZ R2,DELAY2
POP 02H
DJNZ R2,DELAY1
POP 02H
DJNZ R2,DELAY
RET
END
二、把上面的要求P3.3输入替换成INT0外部中断输入，写个完整的汇编程序，其他要求不变！
ORG 0000H
LJMP MAIN
ORG 0013H
LJMP ZDX1
ORG 0100H
MAIN: SETB EX1
SETB EA
MOV A,#00H
MOV P1,#0FFH
SJMP $
ZDX1: INC A
PUSH ACC
CPL A
MOV P1,A
POP A
RETI
END

追问

非常感谢，小弟 完全不会。泪奔

追答

忘了关键一条，SETB IT1

追问

你的程序能不能运行啊，能运行的话我就采纳你的啊，

Answer 2

P3.3是外中断1，不是0.
ORG 00H
AJMP MAIN
ORG 13H
AJMP EX1INT
ORG 30H
MAIN:
SETB EA
SETB EX1
SETB IT1
MAIN1:
MOV P1,R0
CJNE R0,#0,MAIN1
MOV R0,#0
AJMP MAIN1
EX1INT:
INC R0
RETI
END

Answer 3

ORG 0000H ; protues仿真通过
JMP MAIN
ORG 0003H
INT00: INC A ; INT0 中断 计数
CPL A
MOV P1,A ; P1 输出显示 计数
CPL A
RETI
MAIN: MOV SP, #7FH ; 初始化设置
SETB IT0 ; 开中断
SETB EX0
SETB EA
SJMP $
END