h52s.asm

来自「上课老师给的8086仿真器」· 汇编 代码 · 共 57 行

	ORG 0013H
	LJMP HA2S3
	ORG 0580H	      ;?
HA2S:	MOV P1,#07FH
	ORL P3,#00H
HA2S1:	JNB P3.4,HA2S1
	ORL IE,#84H
	ORL IP,#04H
	MOV PSW,#00H
	MOV SP,#53H
HA2S2:	MOV P1,#07EH
	ACALL HA2S7
	MOV P1,#07DH
	ACALL HA2S7
	MOV P1,#07BH
	ACALL HA2S7
	MOV P1,#077H
	ACALL HA2S7
	MOV P1,#06FH
	ACALL HA2S7
	MOV P1,#05FH
	ACALL HA2S7
	MOV P1,#03FH
	ACALL HA2S7
	SJMP HA2S2
HA2S3:	MOV B,R2
HA2S4:	MOV P1,#07FH
	MOV 20H,#0A0H
HA2S5:	SETB P1.7
	ACALL HA2S6
	CLR P1.7
	ACALL HA2S6
	DJNZ 20H,HA2S5
	CLR P1.7
	ACALL HA2S6
	JNB P3.2,HA2S4
	MOV R2,B
	RETI
HA2S6:	MOV R2,#06H
	ACALL DELAY
	RET
HA2S7:	MOV R2,#30H
	ACALL DELAY
	RET
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