;*****************************************
; 78p153寄存器定义
;*****************************************
R0 == 0X0 ;间接寻址IAR
;****CONT REGISTE************* CONTW/R
; 7 6 5 4 3 2 1 0
; - INT TS TE PAB PSR2 PSR1 PSR2
; PSR TCC RATE WDT RATE 定时器或看门狗分频比
; 000 1:2 1:1
; 001 1:4 1:2
; 010 1:8 1:4
; 011 1:16 1:8
; 100 1:32 1:16
; 101 1:64 1:32
; 110 1:128 1:64
; 111 1:256 1:128
; PAB 0:TCC 1:WDT 选择用于定时器或看门狗
; TE TCC信号边沿选择位。 0：由高到低加1。 1：由低到高加1
; TS TCC信号源 0：内部时钟。 1：外部输入（P62/TCC）
; INT 中断使能标志 0：由DISI或硬件中断屏蔽，1：由ENI/RETL使能中断。
TCC == 0X1
PC == 0X2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STATUS == 0X3
C == 0
DC == 1
Z == 2 ;如果为0，标致为1。
P == 3 ;执行SLEP时置为0
T == 4 ;时间溢出时置为0
GP0 == 5 ;
GP1 == 6 ;
RST == 7 ;复位类型，由引脚唤醒时置1,其它复位置0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
R4 == 0X4 ;在间接寻址中，用间接寻址方式寻址00~06，0F~2F，BIT6、7为通用读写位。
PORT5 == 0X5
IOC5 == 0X5 ;p5口控制，0：输出， 1：输入.
PORT6 == 0X6
IOC6 == 0X6 ;p5口控制，0：输出， 1：输入.
IOCB == 0X0B ;为0将P50，P51，P52， P60，P61，P62下拉,
IOCC == 0X0C ;为0将P60，P61，P62， P64，P65，P66，P67漏极开路
IOCD == 0X0D ;为0将P60，P61，P62， P64，P65，P66，P67上拉
;0: 为允许使能。 1：为禁止
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IOCE == 0X0E ;WDT控制器
WDTE == 7 ;0:禁止看门狗?1：允许看门狗。
EIS == 6 ;0：P60，双向I/O口，1：外部中断管脚。此时IOC6的BIT0置为1（输入）
;为“0”时，/通道被屏蔽。INT为“1”时，可通由P6口读取其状态。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ISR == 0XF ;中断状态寄存器
TCIF == 0 ;TCC溢出时置1，软件清0
ICIF == 1 ;P6口输入变化置1，软件清0
EXIF == 2 ;外部中断，由P60/INT下降沿置1，软件清0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IOCF == 0XF ;中断屏蔽寄存器
TCIE == 1 ;0:为中断禁止。1为中断允许
ICIE == 2 ;
EXIE == 3 ;
li == 2 ;2 1
data == 0 ;0 2
clk == 1 ;1 0
long1 == 10
long2 == 20
timelong1 == 20
timelong2 == 30
speed1 == 10
speed2 == 40
;;;;;;;;;;;;;;;;
;通用常数预设
;;;;;;;;;;;;;;;;
linelong == 0xff ;灯体长度（总点数）
linelongnumb == 20
modenum == 0x06
;变量定义
time == 0x10 ;用于定时器延时
temp == 0x11 ;用于多个色彩计数输出。
chtbl == 0x12 ;查表值
temp2 == 0x13 ;用于一个长廷时
count1 == 0x14 ;
count2 == 0x16 ;用于一种模式的定时
count3 == 0x17
count4 == 0x18
temp1 == 0x15 ;
before == 0x19
after == 0x1a
a_temp == 0x1b
wmode == 0x1c
next == 0x1e
time1 == 0x1f
; include "emc153.h"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org 0x0
jmp start
gomodtbl:
add pc,a
nop ;gomod_tblsize = 8
retl 1 ;红
retl 1
retl 4 ;红绿
retl 2
retl 2 ;绿
retl 6 ;绿蓝
retl 3
retl 3 ;蓝
retl 5 ;红蓝
challtbl:
add pc,a
nop
retl 1
retl 2
retl 3
retl 4
retl 5
retl 6
retl 7
resendtbl:
add pc,a
nop
retl 0
retl 1
retl 2
retl 3
retl 4
retl 5
retl 6
retl 7
lsmodtbl:
add pc,a
nop
retl 3
retl 1
retl 2
retl 3
retl 4
retl 5
retl 6
retl 7
scantbl:
add pc,a
nop
retl 0x15
retl 0x53
retl 0x36
retl 0x62
retl 0x24
retl 0x41
;;;;;;;;;;;;;;;;;;;;;;
;mncolor:根椐代码输出多个色彩
;输入：A：这里代表一色彩，TEMP：这里代表个数
;三层嵌
;;;;;;;;;;;;;;;;;;;;;
mncolor:
add pc,a
jmp mncolor0
jmp mncolor1
jmp mncolor2
jmp mncolor3
jmp mncolor4
jmp mncolor5
jmp mncolor6
jmp mncolor7
nop
mncolor0:
bs port5,data ;；输出为零
call oneclk
nop
call oneclk
nop
call oneclk
djz temp
jmp mncolor0
ret
mncolor1:
bc port5,data ;点亮红光
call oneclk
bs port5,data
call oneclk
bs port5,data
call oneclk
djz temp
jmp mncolor1
ret
mncolor2:
bs port5,data
call oneclk
bc port5,data ;点亮绿光
call oneclk
bs port5,data
call oneclk
djz temp
jmp mncolor2
ret
mncolor3:
bs port5,data
call oneclk
bs port5,data ;点亮蓝光
call oneclk
bc port5,data
call oneclk
djz temp
jmp mncolor3
ret
mncolor4:
bc port5,data
call oneclk
bc port5,data ;点亮红绿光
call oneclk
bs port5,data
call oneclk
djz temp
jmp mncolor4
ret
mncolor5:
bc port5,data
call oneclk
bs port5,data ;点亮红蓝光
call oneclk
bc port5,data
call oneclk
djz temp
jmp mncolor5
ret
mncolor6:
bs port5,data
call oneclk
bc port5,data ;点亮绿蓝光
call oneclk
bc port5,data
call oneclk
djz temp
jmp mncolor6
ret
mncolor7:
bc port5,data
call oneclk
bc port5,data ;点亮红绿蓝光
call oneclk
bc port5,data
call oneclk
djz temp
jmp mncolor7
ret
;;;;;;;;;;;;;;;;;;;;;
;NCOLOR:根据代码输出单个色彩像素
;输入：A，这里代表色彩
;双层嵌
;这个程式本身执行时间不长
;;;;;;;;;;;;;;;;;;;;;
ncolor:
add pc,a
jmp ncolor0
jmp ncolor1
jmp ncolor2
jmp ncolor3
jmp ncolor4
jmp ncolor5
jmp ncolor6
jmp ncolor7
nop
ncolor0:
call color0
ret
ncolor1:
call color1
ret
ncolor2:
call color2
ret
ncolor3:
call color3
ret
ncolor4:
call color4
ret
ncolor5:
call color5
ret
ncolor6:
call color6
ret
ncolor7:
call color7
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;初始化处理
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org 0x110
start:
mov a,@0
contw ;定义分频比等
clr isr
mov a,@modenum ;模式总数
mov wmode,a
mov a,@0xf0 ;设置端口5为输出
iow ioc5
mov a,@0xf0 ;port5下拉
iow iocb
clr port5
mov a,@0xff ;port6口为输出，
iow ioc6
mov a,@0x0 ;p6口上拉
iow iocd
mov a,@0x01
iow iocf ;开外部中断，开中断后进入模式1
; jmp resend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;gomod:
;变量：count2定时,count1,chtbl,time,temp1
;子程序：
; gomodtbl ;表首标识
; ncolor ;根据a输出色点
; mdelay2 ;一个用定时器实现的定时子程序
;常量：
gomod_time == 6 ;6本模式的定时常数
gomod_tabsize == 8 ;本模式查表的表据尺寸
gomod_long1 == 20 ;同色段的长度
gomod_speed == 30 ;移动的速度
gomod:
mov a,@linelongnumb
mov temp1,a ;借用TEMP1
gomod001:
mov a,@linelong ;{实际灯体长度
call mcolor0
call oneli ;}清屏
djz temp1
jmp gomod001
call oneli ;}清屏
mov a,@gomod_time ;本模式的定时常数
mov count2,a ;
gomod03:
mov a,@gomod_tabsize ;本模式查表的表据尺寸
mov chtbl,a
gomod02:
mov a,@gomod_long1
mov count1,a
gomod01:
mov a,chtbl
call gomodtbl ;表首标识
call ncolor
call oneli
mov a,@gomod_speed ;移动的速度
call mdelay2
jbc next,0
jmp chmode
djz count1
jmp gomod01
djz chtbl
jmp gomod02
djz count2
jmp gomod03
mov a,wmode
xor a,@modenum
jbs status,z
jmp gomod
;;;;;;;;;;;;;;;;;;;
;chall:全色变化
;子程序：
; challtbl ;表首标识
; mncolor ;根据a与temp输出色彩段
; mdelay1 ;一个用定时器实现的定时子程序
;变量：count2,count1,chtbl,before,after,temp,time
;常量：
; chall_time ;本模式的定时常数
; chall_tabsize ;本模式查表的表据尺寸
;chall模式的相关参数
chall_time == 10 ;10本模式的定时常数
chall_tabsize == 7 ;本模式查表的表据尺寸
chall_sp == 0xff
;修改后不再有渐变功能
;;;;;;;;;;;;;;;;;;;
chall:
mov a,@chall_time
mov count2,a
chall03:
mov a,@chall_tabsize
mov chtbl,a
chall02:
mov a,chtbl
call challtbl
mov after,a
mov a,@linelongnumb
mov temp1,a
chall01:
mov a,@0xff
mov temp,a
mov a,after
call mncolor
call oneli
djz temp1
jmp chall01 ;发出一行数据
mov a, @chall_sp
call mdelay2
jbc next,0
jmp chmode
djz chtbl
jmp chall02
djz count2
jmp chall03
mov a,wmode
xor a,@modenum
jbs status,z
jmp chall
/*
chall:
mov a,@linelong ;linelong ;{实际灯体长度
call mcolor0
call oneli ;}清屏
mov a,@chall_time ;本模式的定时常数
mov count2,a ;
chall03:
mov a,@chall_tabsize ;本模式查表的表据尺寸
mov chtbl,a
chall02:
mov a,@0xff
mov time,a ;count1做为一个渐变控制量
mov a,chtbl
call challtbl
mov before,a ;
and a,@0xf0 ;
mov after,a ;后一态的查表代码
swap after
mov a,before
and a,@0x0f
mov before,a ;前一态的查表代码
chall01:
mov a,@linelong
mov temp,a ;总个数
mov a,before
call mncolor ;输出一串数据
call oneli
com time
call mdelay1 ;这是一个更短的廷时
jbc next,0
jmp chmode
mov a,@linelong
mov temp,a
mov a,after
call mncolor
call oneli ;
com time
call mdelay1
jbc next,0
jmp chmode
djz time
jmp chall01
djz chtbl
jmp chall02
djz count2
jmp chall03
mov a,wmode
xor a,@modenum
jbs status,z
jmp chall
*/
;;;;;;;;;;;;;;;;;;;;;;;;
;resend:反向跑动,定长10米,25个点，用队列的方式记住当前点,长度有限
;子程序
; resendtbl ;表首标识
; mncolor ;根据a与temp输出色彩段
;
;变量:count2,count4,count3，count1,chtbl,temp,time
;常量
; resend_time
; resend_long ;实现反移位中的补移最大位数
; resend_sp ;定义移位的速度
; resend_tabsize
;resend模式的相关参数
resend_time == 250 ;8本模式的定时常数
resend_long == 10 ;实现反移位中的补移最大位数
resend_sp == 30 ;定义移位的速度
resend_tabsize == 8 ;查表数据尺寸
;;;;;;;;;;;;;;;;;;;;;;;;
resend:
mov a,@linelong
call mcolor0
call oneli
mov a,@resend_time
mov count2,a ;循环的次数
mov a,@resend_tabsize
mov chtbl,a ;总的段数-1，定义初始值。
mov a,@resend_long ;每段长度的
mov count4,a
mov a,@(resend_tabsize*resend_long)-1
mov count3,a
resend4:
mov a,chtbl
call resendtbl ;根据chtbl输出一个点。
call ncolor
djz count4 ;count4减1并判断是否要修改循环圈
jmp resend5 ;
mov a,@resend_long
mov count4,a ;重设一段的个数,count4与chtbl是无穷循环的
djz chtbl ;调整查表指针
jmp resend5
mov a,@resend_tabsize ;若查表超出范围，则重置值
mov chtbl,a ;重设当前处于哪一段
resend5:
djz count3 ;每发一位，总长度都减1
jmp resend4
resend8: ;一次发送完毕后会进行相应的廷时
mov a,@(resend_tabsize*resend_long)-1
mov count3,a
jmp resend7
resend7:
call oneli
mov a,@resend_sp ;定义移位的速度
call mdelay2
djz count2
jmp resend4
mov a,wmode
xor a,@modenum
jbs status,z
jmp resend
jmp lsmod
/*resend:
mov a,@linelong
call mcolor0
call oneli ;清0
mov a,@resend_time
mov count2,a ;决定这段模式的定时
mov a,@1 ;从末位开始
mov count3,a ;中间段的查
mov a,@resend_long ;实现反移位中的补移最大位数
mov count4,a ;本帧中要补移位的位数,4to1
resend04:
mov a,count3 ;count3记录了查表中一帧中的起头
mov chtbl,a ;重发一帧时要找到头
resend06:
mov a,@250/resend_long ;总段数=总长/每段长度
mov count1,a ;这个数用来保证像素是全的,temp1也是一个公用变量配套
mov a,count3
mov chtbl,a
resend02:
mov a,@resend_long ;
mov temp,a ;长度
mov a,chtbl
call resendtbl ;查找代码
call mncolor ;发出一段代码
resend05:
djz chtbl ;
jmp resend021
mov a,@resend_tabsize
mov chtbl,a
resend021: ;250位发送完毕,这段程序在发完250bit
djz count1
jmp resend02
resend01:
mov a,count4 ;进行适当移位,count4记录了当前要移动的位
mov temp,a ;确定长度
mov a,chtbl ;将下一个查表值
call resendtbl ;查表
call mncolor
call oneli ;发出一个有效脉冲
mov a,@resend_sp ;定义移位的速度
call mdelay2
jbc next,0
jmp chmode
djz count4
jmp resend06 ;只改变补移位数
mov a,@resend_long ;重新设置补位长度
mov count4,a
inc count3
mov a,count3
xor a,@9 ;有效数为１～８，用９来作叛断
jbs status,z
jmp resend04
mov a,@1 ;重新设定段数
mov count3,a
resend03:
djz count2 ;每移动一段要进行count2减１
jmp resend04
mov a,wmode
xor a,@modenum
jbs status,z
jmp resend
*/
;;;;;;;;;;;;;;;;
;lsmod:快速扫描
;子程序
; lsmodtbl ;表首标识
; ncolor ;根据a与temp输出色彩段
; mdelay2 ;
;变量:count2,chtbl,temp,time
;常量
; lsmod_time
; lsmod_long ;实现反移位中的补移最大位数
; lsmod_sp ;定义移位的速度
; lsmod_tabsize
;lsmod模式的相关参数
lsmod_time == 5 ;5
lsmod_long == 5 ;实现反移位中的补移最大位数
lsmod_sp == 4 ;定义移位的速度
lsmod_tabsize == 8
;
;;;;;;;;;;;;;;;;
lsmod:
mov a,@linelong ;{实际灯体长度
call mcolor0
call oneli ;}清屏
mov a,@lsmod_time
mov count2,a ;决定这段模式的定时
lsmod04:
mov a,@lsmod_tabsize
mov chtbl,a
lsmod03:
mov a,@lsmod_long
mov temp,a
lsmod01:
mov a,chtbl
call lsmodtbl
call ncolor
call oneli
mov a,@lsmod_sp
call mdelay2
jbc next,0
jmp chmode
djz temp
jmp lsmod01 ;
mov a,@lsmod_long
mov temp,a
lsmod05:
mov a,@0
call ncolor
call oneli
mov a,@lsmod_sp
call mdelay2
jbc next,0
jmp chmode
djz temp
jmp lsmod05
mov a,@lsmod_long
mov temp,a
lsmod07:
mov a,chtbl
call lsmodtbl
call ncolor
call oneli
mov a,@lsmod_sp
call mdelay2
jbc next,0
jmp chmode
djz temp
jmp lsmod07 ;
mov a,@linelong-4*lsmod_long
mov temp,a
lsmod02:
call color0
call oneli
mov a,@lsmod_sp
call mdelay2
jbc next,0
jmp chmode
djz temp
jmp lsmod02
mov a,@3*lsmod_long
mov temp,a
lsmod06:
call color0
call oneli
mov a,@lsmod_sp
call mdelay2
jbc next,0
jmp chmode
djz temp
jmp lsmod06
djz chtbl
jmp lsmod03
djz count2
jmp lsmod04
mov a,wmode
xor a,@modenum
jbs status,z
jmp lsmod
;;;;;;;;;;;;;;;;;;;;
;scan:全彩扫描,无底色,表中的数据进行了一定的安排。
;子程序
; scantbl ;表首标识
; ncolor ;根据a与temp输出色彩段
; mdelay2 ;
;变量:count2,chtbl,temp,time
;常量
; scan_time == 15
; scan_long1 == 6 ;实现反移位中的补移最大位数
; scan_sp == 5 ;定义移位的速度
; scan_tabsize == 6
;scan模式的相关参数
scan_time == 30 ;30
scan_long1 == 7 ;实现反移位中的补移最大位数
scan_sp == 4 ;定义移位的速度
scan_tabsize == 6
