;**********************************************************************
;
; Filename: HW-3S.asm
; Date:2006/05/17
; File Version:
; 主控芯片用12c508，直接输出3路低电平有效的可调矩形脉冲，用于LED的调光 *
; *
;**********************************************************************
list p="12c508"
#include <p12c508.inc>
__CONFIG _MCLRE_OFF&_CP_ON&_WDT_OFF&_IntRC_OSC
errorlevel 0,-207
;**********************************************************************
;变量和名称定义
#define led_r GPIO,0
#define led_g GPIO,1
#define led_b GPIO,2
#define gl GPIO,3
#define sd_1 GPIO,4
#define sd_2 GPIO,5
#define rep_b d'50'
cotc equ 07h
cotc_c equ 08h
cots equ 09h
ch_r equ 0ah
ch_g equ 0bh
ch_b equ 0ch
glcs equ 0dh
rep_d equ 0eh
rep_c equ 0fh







;**********************************************************************
;



org 0x00
MOVwf OSCCAL ;片内震荡校正系数送OSCCAL
;---------------------------
;RAM清0子程序
MOVlw 0x08
MOVwf FSR
MOVlw d'24'
MOVwf cotc
MOVlw 0x00
MOVwf INDF
incf FSR,f
decfsz cotc,f
goto $-3
;-----------------------------
;
main:
MOVlw b'00111000' ;
TRIS GPIO
MOVlw b'11111111' ;
MOVwf GPIO
bcf STATUS,PA0 ;
MOVlw 0x00 ;起始输出最暗
MOVwf ch_r
MOVwf ch_g
MOVwf ch_b
MOVlw rep_b
MOVwf rep_c
MOVlw rep_0 ;调用红色常亮，绿色渐亮子程序
MOVwf rep_d
call reprom
goto $-1







;
reprom:
MOVf rep_d,w
MOVwf PCL



rep_0:
MOVlw 0xff ;红色常亮，绿色渐亮
MOVwf ch_r ;
incfsz ch_g,f ;判断绿色是否最亮
retlw 0x00 ;否
decf ch_g,f ;是则绿色重置0xff
MOVlw rep_1 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_1: ;红色绿色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_2
MOVwf rep_d
retlw 0x00

rep_2: ;绿色常亮，红色渐渐灭
decfsz ch_r,f ;判断绿色是否最暗
retlw 0x00 ;否
MOVlw rep_3 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_3: ;绿色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_4
MOVwf rep_d
retlw 0x00

rep_4: ;绿色常亮,蓝色渐亮
incfsz ch_b,f ;判断绿色是否最亮
retlw 0x00 ;否
decf ch_b,f ;是则绿色重置0xff
MOVlw rep_5 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_5: ;绿色蓝色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_6
MOVwf rep_d
retlw 0x00

rep_6: ;蓝色常亮，绿色渐渐灭
decfsz ch_g,f ;判断绿色是否最暗
retlw 0x00 ;否
MOVlw rep_7 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_7: ;绿色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_8
MOVwf rep_d
retlw 0x00

rep_8: ;蓝色常亮，红色渐亮
incfsz ch_r,f ;判断红色是否最亮
retlw 0x00 ;否
decf ch_r,f ;是则绿色重置0xff
MOVlw rep_9 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_9: ;红色蓝色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_10
MOVwf rep_d
retlw 0x00

rep_10: ;红色蓝色常亮,绿色渐亮
incfsz ch_g,f ;判断绿色是否最暗
retlw 0x00 ;否
decf ch_g,f
MOVlw rep_11 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_11: ;红色,绿色,蓝色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_12
MOVwf rep_d
retlw 0x00

rep_12: ;红色常亮，绿色蓝色渐渐灭
decf ch_g,f ;判断绿色是否最暗
decfsz ch_b,f
retlw 0x00 ;否
MOVlw rep_13 ;保持静止色子程序地址送转移指针
MOVwf rep_d
retlw 0x00
rep_13: ;红色静止色保持节拍
decfsz rep_c,f
retlw 0x00
MOVlw rep_b
MOVwf rep_c
MOVlw rep_0
MOVwf rep_d
retlw 0x00




;***********************************
end