demoprg.asm

台湾IC 8A APHAP初试化实现好东西下载

;################################################################################
;-----------------------------------------------;
DemoMode1IS:					;
	Jump_Path_R	PRA_CH_BIT,1,PageUpTG	;
	Jump_Path_R	PRA_CH_BIT,5,PageDownTG	;
	Jump_Path_R	PRA_CH_BIT,0,ModeSet1	;
	Jump_Path_R	PRA_CH_BIT,2,ModeSet2	;
;-----------------------------------------------'
;-----------------------------------------------;
DemoPrgStart:					;
	ScanKey_Initialize			;
	Input_Initialize	B'100011',0	;PRA_Rising_I,PRA_Falling_I
	SAVE_InSt_PRA_DTR	DemoMode1IS	;
	MOVIA	0
	MOVAR	Image_Index_TFT
;-----------------------------------------------;
AutoDisplay:					;
	CALL	INC_Image_Index		;	;
	CALL	ShowImage		;	;
	DELAY	0XB,0xB8		;3000ms
	JMP	AutoDisplay			;
;-----------------------------------------------'

;---------------------------------------;
ModeSet1:				;
	MOVIB	0			;
	MOVFR	PRB,R_PRB		;
	TRB	R_PRB,6			; _BL_EN
	MOVRF	R_PRB,PRB		;
	SRBR	R_PRB,6			;
	JMP	BL_ON			;
BL_Off:					;
	Set_LCD_Reg	0x07,0x0033	;
	JMP	AutoDisplay		;
BL_ON:					;
	Set_LCD_Reg	0x07,0x0037	;
	JMP	AutoDisplay		;
;---------------------------------------'

ModeSet2:
;---------------------------------------;
PageUpTG:				;
	CALL	INC_Image_Index		;
	CALL	ShowImage		;
	DELAY	0XB,0xB8		;3000ms
	MOVIB	0			;
	SRBR	PRA,0			;
	CALL	Set_DIMMING		;
	DELAY	0X9C,0x40		;40s
	JMP	AutoDisplay		;
;---------------------------------------;
Set_DIMMING:				;
	MOVIB	0			;
	MOVFR	PRB,R_PRB		;
	TRB	R_PRB,7	;_DIMMING	;
	MOVRF	R_PRB,PRB		;
RET					;
;---------------------------------------'

;---------------------------------------;
PageDownTG:				;
	CALL	DEC_Image_Index		;
	CALL	ShowImage		;
	DELAY	0XB,0xB8		;3000ms
	MOVIB	0			;
	SRBR	PRA,5			;
	CALL	Set_VIB_IND		;
	DELAY	0X9C,0x40		;40s
	JMP	AutoDisplay		;
;---------------------------------------;
Set_VIB_IND:				;
	MOVIB	0			;
	MOVFR	PRB,R_PRB		;
	TRB	R_PRB,2	;_VIBEN		;
	TRB	R_PRB,5	;_LED_IND	;
	TRB	R_PRB,6	;_BL_EN		;
	MOVRF	R_PRB,PRB		;
RET					;
;---------------------------------------'

;---------------------------------------;
INC_Image_Index:			;
	INCRR	Image_Index_TFT		;
	MOVIA	Image.No.TFT		;
	SRGTA	Image_Index_TFT		;skip if Image_Index>Image.No
 RET					;
	MOVIR	Image_Index_TFT,1	;
 RET					;
;---------------------------------------'
DEC_Image_Index:			;
	DECRRSZ	Image_Index_TFT		;
 RET
	MOVIR	Image_Index_TFT,Image.No.TFT
 RET					;