jk6-3.asm

来自「微机原理课程 所有讲义PPT 课程全实验（包括代码程序设计实验报告） 习」· 汇编 代码 · 共 65 行

SERIAL	EQU 2000H
CONTROL	EQU 2AH
SWH_PL	EQU 02H
SWH_TXD	EQU 01H
DIG_MR	EQU 08H
DIG_TXD	EQU 04H
LED_MR	EQU 20H
LED_TXD	EQU 10H
COM_TXD	EQU 40H
LEDPOS	EQU	41H
	ORG	0000H
	LJMP	LEDOUT
	ORG	0100H
LEDOUT:	MOV	LEDPOS,#01FH
	MOV	DPTR,#SERIAL
	MOV	A,#CONTROL
	ORL	A,#LED_TXD
	MOVX	@DPTR,A
NEXTLED:MOV	A,LEDPOS
	CLR	C
	SUBB	A,#08H
BIGSMAL: JNC BIG
SMALL:	MOV	A,LEDPOS
	ACALL	SHIFT
	MOV	SBUF,A
	JNB	TI,$
	CLR	TI
	MOV	SBUF,#0FFH
	JNB	TI,$
	CLR	TI
	SJMP	SL
BIG:	MOV	SBUF,#0FFH
	JNB	TI,$
	CLR	TI
	ACALL	SHIFT
	MOV	SBUF,A
	JNB	TI,$
	CLR	TI
SL:	MOV	A,LEDPOS
	CJNE	A,#15,INCPOS
	MOV	LEDPOS,#0
	SJMP	LIGHT
INCPOS:	INC	LEDPOS
LIGHT:	ACALL	DELAY
	SJMP	NEXTLED
SHIFT:	PUSH	07H
	MOV	R7,A
	INC	R7
	MOV	A,#0FFH
	CLR	C
SHIFTL:	RLC	A
	DJNZ	R7,SHIFTL
	POP	07H
	RET
DELAY:MOV	R7,#200
DIMS:	MOV	R6,#02H
DL:	MOV	R5,#0FFH
DL1:	DJNZ	R5,DL1
	DJNZ	R6,DL
	DJNZ	R7,DIMS
	RET
	END