comic.txt

来自「实现TWINS乒乓的对角线运动。 可以看到一对TWINS乒乓球的对角运动轨迹。」· 文本 代码 · 共 79 行

;---------------------------------------------------------------------------------------------------------
;子程序开始
;乒乓球对角线运动
WUPP: 							;子程序开始
MOV 	67H,63H
    	MOV 	68H,64H
		LCALL	WUDZ			;显示乒乓球轨迹
		MOV 	67H,65H
		MOV 	68H,66H
		LCALL   WUDZ
		LCALL	DLY100			;延时一段时间
		MOV 	67H,63H
		MOV 	68H,64H
		LCALL	WUCLE			;清点阵
		MOV 	67H,65H
		MOV 	68H,66H
		LCALL   WUCLE
    	LCALL	DLY50
		LCALL	NEXTX			;X位移，向下运动
		LCALL   GETSMM
		CJNE 	R6,#81h,ENDWUPP
		LJMP  	GORESET1
ENDWUPP:						;子程序结束，不退出则无穷循环
LJMP 	WUPP
WUDZ: 							;8*8点阵程序(46H表8点)含定位和写；
LCALL 	WUDING		;定位
    	MOV 	46H,#8			;写
		MOV	DPTR,#WUCIR
WUDZH:	
MOV 	A,#0
		MOVC 	A,@A+DPTR
		MOV 	R1,A
		LCALL 	WRD
		LCALL 	DLY50
		INC 	DPTR
		DJNZ 	46H,WUDZH
		RET
WUCLE:							;清当前点阵8*8(47H表8点)
LCALL 	WUDING		;定位
		MOV 	47H,#8			;清除
WUDZH1:
MOV 	R1,34H
		LCALL 	WRD
		LCALL 	DLY50			;每清一列，都延时DLY50
		DJNZ 	47H,WUDZH1
    	RET
WUDING:						;每次新的定位使得产生新点阵
MOV 	A,42H			;X定位
    	ADD 	A,67H           ;X公共地址
		MOV 	R1,A
		LCALL 	WRI
		MOV 	A,43H			;Y定位
 		ADD 	A,68H			;Y公共地址
		MOV 	R1,A
		LCALL 	WRI
		RET
NEXTX:							;改变X和Y的偏移量
MOV	A,63H
		CJNE	A,#7,CHEX
ENDX:
MOV	63H,#0
		MOV 	64H,#0
		MOV	65H,#7
		MOV 	66H,#0
		LJMP 	NENDX
CHEX:
INC 	63H
		MOV 	A,64H
		ADD 	A,#8
		MOV 	64H,A
		DEC 	65H
		MOV 	A,66H
		ADD 	A,#8
		MOV 	66H,A
NENDX:	
RET
WUCIR:							;实心圆模块数据表(8*8点阵需调用8次数据)
DB	24,126,126,255,255,126,126,24