testhl.asm

来自「LED照明行业地砖及护栏控制器程序 从现况来看」· 汇编 代码 · 共 124 行

;----------------------------------------
;	DS80c320 regs
;
;dps	equ	0a2h
dps	equ	86h
LAT	EQU	P3.3

DISH	EQU	30H

;-------------------------------
	org	0
	ljmp	MAIN
	org	3
	ljmp	MAIN
	org	23h
	ljmp	MAIN
	org	100h
;------------------------------------	
MAIN:	
	
        mov     sp,#46h
	clr	rs0
	clr	rs1
	MOV	DPTR,#0C001H
	MOV	A,#04FH
	MOVX	@DPTR,A
	mov	P1,#00h
M1:	LCALL	DEMO
	SJMP	M1
	
;===============================
DEMO:
	MOV	R3,#50	
DE3:
	MOV	DISH,#0
	LCALL	SHIFT
	MOV	DISH,#1
	LCALL	SHIFT
	LCALL	SHIFT
	MOV	DISH,#2
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	MOV	DISH,#3
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	LCALL	SHIFT
	DJNZ	R3,DE3
;	MOV	DISH,#0
;	LCALL	LMOV
;	MOV	DISH,#1
;	LCALL	LMOV
;	MOV	DISH,#2
;	LCALL	LMOV
;	MOV	DISH,#3
;	LCALL	LMOV
	RET
;------------------------------
LMOV:
LM1:	
	MOV	R0,#254
	MOV	DPS,#0
	MOV	DPH,DISH
	MOV	DPL,#1
	INC	DPS
	MOV	DPH,#DISH
	MOV	DPL,#0
	INC	DPS
LM2:
	MOVX	A,@DPTR
	INC	DPTR
	INC	DPS
	MOVX	@DPTR,A
	INC	DPTR
	INC	DPS
	DJNZ	R0,LM2
	MOV	DPTR,#0
	MOVX	A,@DPTR
	MOV	DPTR,#254
	MOVX	@DPTR,A
	RET
;***************************
DELAY0:	SETB	RS0	;RS = 1
	CLR	RS1
	MOV	R1,#0
DELAY2:	MOV	R2,#122
DELAY1:	MOV	R3,#10
	DJNZ	R3,$
	DJNZ	R2,DELAY1
	DJNZ	R1,DELAY2
	RET

;=====================================
SHIFT:	CLR	RS0	;RS = 0
	CLR	RS1
	MOV	DPS,#0
	MOV	DPH,DISH
	MOV	DPL,#0
;	MOV	DPTR,#0
	INC	DPS
	MOV	DPTR,#0c000H
	INC	DPS
	MOV     R1,#254
nor1:
	MOVX	A,@DPTR
	INC	DPTR
	INC	DPS
	MOVX	@DPTR,A
	INC	DPTR
	INC	DPS
	djnz	R1,nor1
	SETB	LAT
	CLR	LAT
	ret		
;*******************************
END;