eyes_twinkle.asm

一款智能老鼠的玩具源代码

;****************************************************************;
; Eyes Twinkle
;
; Eyes control output pin: PRTC[3]
;
; Written by: Mr.ZhangJinBo
; Date: 2004-02-16
;****************************************************************;

;================================================================;
;Constant Area
;================================================================;
c_prtc3_1		equ	#00001000b
c_prtc3_0		equ	#11110111b

;================================================================;
;Data Area
;================================================================;
       .area    eyes_twinkle_var(data)
       
flg_eyes_twinkle::	.ds	1

;================================================================;
;Code Area
;================================================================;
       .area    eyes_twinkle_code(code)

eyes_twinkle::

	;******/*04-02-26*/******;
	lda	flg_ir_received		;judge if there is obstacle 
	cmpe	#0
	brz	no_ir_twinkle

	lda	#c_prtc3_1		;if there is obstacle, the eyes keep lighting.
	ora	r_prtc
;	lda	#c_prtc3_0
;	anda	r_prtc
	sta	r_prtc

	br	end_eyes_twinkle
	
no_ir_twinkle:
	;************************;
	
	lda	flg_eyes_twinkle	;condition
	cmpe	#1
	brnz	end_eyes_twinkle

	lda     #0			;clear the flag
	sta     flg_eyes_twinkle
	
	lda	r_prtc
	anda    #c_prtc3_1
	brz	1$
	
	lda	#c_prtc3_0		;if prtc.3=1
	anda	r_prtc			;reverse
	sta	r_prtc
	br	end_eyes_twinkle
1$:
	lda	#c_prtc3_1		;if prtc.3=0
	ora	r_prtc			;reverse
	sta	r_prtc
	
end_eyes_twinkle:
	ret

;================================================================;