;***************************************** 
; 78p153寄存器定義 
;***************************************** 
 R0  == 0X0 ;間接尋址IAR 
;****CONT REGISTE************* 

; 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 
  P   == 3 ;執(zhí)行SLEP時置為0 
  T   == 4 ;時間溢出時置為0 
  GP0 == 5 ; 
  GP1 == 6 ; 
  RST == 7 ;復位類型，由引腳喚醒時置1,其它復位置0 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
    R4  == 0X4 
     
 PORT5  == 0X5 
 IOC5   == 0X5 
 PORT6  == 0X6 
  
 IOC6   == 0X6 
  
 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口讀取其狀態(tài) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 ISR == 0XF ;中斷狀態(tài)寄存器 
  
  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 ; 
   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 ;本程序的要點是計算電源頻率進行計數(shù)實現(xiàn)同步。 
 ;保證通電后基本同步開工 
 a_temp  == 0x10  ;中斷子程序中保存A 
 tcount1 == 0x11    ;節(jié)拍計數(shù)1 
 tcount2 == 0x12    ;節(jié)拍計數(shù)2 
 tick    == 0x13    ;節(jié)拍常量值1 

 chtb    == 0x14    ;查表序號值 

 count2  == 0x15  ;定時計數(shù)值 
 temp    == 0x16    ;臨時計數(shù)器 
 temp2   == 0x17 
 code    == 0x18    ;輸出代碼 
 lamp    == 0x19  ;用于閃爍計數(shù) 
 spcode  == 0x1a  ;代表速度的代碼 
 stflag  == 0x1b  ;是否進入一拍標志 
 ifdrim  == 0x1c  ;是否夢幻 
 code2   == 0x1d  ; 
 tcount3 == 0x1e 
 teMP3   == 0x1f 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;開始 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
 org 0x0 
 jmp main 
;;;;;;;;;;;;;;;;;;;;;;;; 
;中斷計數(shù)子程序 
;;;;;;;;;;;;;;;;;;;;;;;; 
;龍圖開發(fā)網(wǎng) http://www.longtoo.com   原創(chuàng)，轉載請注明出處 
 org 0x8 
intext: 
  MOV  a_temp,a 
 bc stflag,7  ;這是是否要進入下一態(tài)的標志位 
 clr port5 
 clr port5    ;中斷后先清0。 
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;僅用于指示燈 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
 inc lamp    ;lamp是指示燈計數(shù)寄存器，也可以用別的方法 

代替 
 inca spcode    ;速度代碼0，1，2，3。加1后代入a中 
  MOV  temp2,a    ;temp2是局部變量,通過加1成為1，2，3，4。后再減1 

判0的方 
 djz temp2      ;式來進行指示 
 jmp speed2  
speed1: 
 jbc lamp,3 
 jmp lampset1 
 bc port6,1 
 jmp lampok 
lampset1: 
 bs port6,1 
 jmp lampok 
speed2: 
 djz temp2 
 jmp speed3 
 jbc lamp,4 
 jmp lampset2 
 bc port6,1 
 jmp lampok 
lampset2: 
 bs port6,1 
 jmp lampok  
speed3: 
 djz temp2 
 jmp speed4 
 jbc lamp,5 
 jmp lampset3 
 bc port6,1 
 jmp lampok 
lampset3: 
 bs port6,1 
 jmp lampok  
speed4: 
 jbc lamp,6 
 jmp lampset4 
 bc port6,1 
 jmp lampok 
lampset4: 
 bs port6,1   ;port6,1用于指示燈 
 jmp lampok 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
lampok: 
 call delay100u      ;調用廷時子程序越過0點 


 jbc ifdrim,0     ;是否夢幻,ifdrim判斷是否夢幻 
 jmp intext2   ;有夢幻， 
;;;;;;;;;;;;;;;;;;;;;;;;;; 
;非夢幻子程序 
;;;;;;;;;;;;;;;;;;;;;;;;;;  
intext1: 
  MOV  a,code   ;輸出代碼 
  MOV  port5,a 
 djz tcount1     ;tcount1是主計數(shù)器 
 jmp intend 
  MOV  a,tick   ;tick中有一個常量值 
  MOV  tcount1,a  ;在中斷子程序內加載數(shù)據(jù) 
 bs  stflag,7      ;tcount1為0要查表 
 jmp intend 
;;;;;;;;;;;;;;;;;;;;;;;;;; 
;夢幻子程序 
;;;;;;;;;;;;;;;;;;;;;;;;;; 
intext2: 
 djz tcount2    ;同一級亮度存在拍數(shù)由 spcode查表得到 
 jmp intext21 
  MOV  a,tick     ;這是一個查表得來的值 
  MOV  tcount2,a 
;;;;;;;;;;;;;;;;;;;;;;;;;; 
 djz tcount1    ;tcount1表示節(jié)拍 
 jmp intext21 
  
 bs  stflag,7 
 inc tcount1      ;重置查表標志 

/*;;;;;;;;;;;;;;;;;;;;;;;;; 
;tcount1!=tcount3 
;;;;;;;;;;;;;;;;;;;;;;;;; 
intext25: 
  MOV  a,tcount1 
 sub a,tcount3 
 jbc status,c   ;若為1則無借位，tcount1>tcount3 
 jmp intext27 
  MOV  temp3,a   ;差放入temp3中 
 inc temp3 
 inc temp3 
  MOV  a,tcount3 
  MOV  temp,a 
intext28: 
 call delay100u   ;第一波廷時 
 djz temp 
 jmp intext28 
  MOV  a,code2   ;先輸出code2,即處于消暗的代碼 
  MOV  port5,a 
intext29: 
 call delay100u 
 djz temp3 
 jmp intext29 
  MOV  a,code   ;再輸出code,即處于上漲的代碼 
  MOV  port5,a 
 jmp intext21 
  
intext27: 
  MOV  a,tcount3 
 sub a,tcount1 
  MOV  temp3,a 
 inc temp3 
 inc temp3 
  MOV  a,tcount1 
  MOV  temp,a 
intext30: 
 call delay100u 
 djz temp 
 jmp intext30 
  MOV  a,code   ;輸出code,即處于上漲的代碼 
  MOV  port5,a 
intext31:  
 call delay100u 
 djz temp3 
 jmp intext31 
  MOV  a,code2   ;輸出code2,即處于消暗的代碼 
  MOV  port5,a 
;;;;;;;;;;;;;;;;;;;;;;;;;;;*/  
;龍圖開發(fā)網(wǎng) http://www.longtoo.com   原創(chuàng)，轉載請注明出處 

intext21: 
 jbs code,7    ;判斷是漸亮還時漸滅 
 jmp intext22    ;這里是亮度變化趨勢區(qū)分點 
  
  MOV  a,tcount1      ;code,7為1，則亮度漸亮 
  MOV  temp,a 
intext23: 
 call delay100u   ;這是個定長廷時子程序，如能用定時器會更好 

，那有可能利于加上按健功能 
 djz temp 
 jmp intext23 
  MOV  a,code      ;輸出已準備好的代碼 
  MOV  port5,a     ; 
 jmp intend 
  
intext22: 
  MOV  a,tcount1         ;亮度為漸暗 
 add a,@91    ;與160對應產(chǎn)生不過0的廷時 
  MOV  temp,a 
 com temp      ;得到漸暗方式的代碼 
intext24: 
 call delay100u 
 djz temp 
 jmp intext24  
  MOV  a,code 
  MOV  port5,a 
 call delay100u 
 call delay100u  

intend: 
  MOV  a,a_temp 
 clr isr    ;這一指令不能少 
 reti 
  
;;;;;;;;;;;;;;;;;;;;;;;;;;; 
spmode1: 
 add pc,a 
 retl 10 
 retl 10 
 retl 20 
 retl 30 
 retl 60 
  
tbmode1:     ;跑馬1的 
 add pc,a 
 retl 0b00000000 ;4 
 retl 0b00001000 
 retl 0b00000100 
 retl 0b00000010 
 retl 0b00000001 
  
tbmode2: 
 add pc,a 
 retl 0b00000000 ;32 
  
 retl 0b00000001 
 retl 0b00000001 
 retl 0b00001001 
 retl 0b00001101 
 retl 0b00001111 
 retl 0b00001111 
 retl 0b00001110 
 retl 0b00000110 
  
 retl 0b00000010 
 retl 0b00000010 
 retl 0b00000011 
 retl 0b00001011 
 retl 0b00001111 
 retl 0b00001111 
 retl 0b00001101 
 retl 0b00001100 
  
 retl 0b00000100 
 retl 0b00000100 
 retl 0b00000110 
 retl 0b00000111 
 retl 0b00001111 
 retl 0b00001111 
 retl 0b00001011 
 retl 0b00001001 
  
 retl 0b00001000 
 retl 0b00001000 
 retl 0b00001100 
 retl 0b00001110 
 retl 0b00001111 
 retl 0b00001111 
 retl 0b00000111 
 retl 0b00000011 
 retl 0b00000001 
  
spmode4: 
 add pc,a 
 retl 1 
 retl 1 
 retl 1 
 retl 1 
 retl 1 
  
tbmode3: 
 add pc,a 
 retl 0b00000000 ;8 
  
 retl 0b00001100 
 retl 0b10001100 
  
 retl 0b00000110 
 retl 0b10000110 
  
 retl 0b00000011 
 retl 0b10000011 
  
 retl 0b00001001 
 retl 0b10001001 
  
tbmode4: 
 add pc,a 
 retl 0b00000000 ;6 
 retl 0b00001111 
 retl 0b10001111 
 retl 0b00000000 
 retl 0b00001111 
 retl 0b10001111 

tbmode5: 
 add pc,a 
 retl 0b00000000 
 retl 0b00001001 
 retl 0b00000011 
 retl 0b00000110 
 retl 0b00001100 
 retl 0b00001001 
 retl 0b00000011 
 retl 0b00000110 
 retl 0b00000011 
 retl 0b00001001 
 retl 0b00001100 
 retl 0b00000110 
 retl 0b00000011 

;龍圖開發(fā)網(wǎng) http://www.longtoo.com   原創(chuàng)，轉載請注明出處 

 org 0x100 
main: 
 clr lamp 
  MOV  a,@0xf0 ;設置PORT5 
 iow ioc5 
 clr port5 
  MOV  a,@0xf0 
 iow iocb 
  MOV  a,@0b11111101 ;設置PORT6. 
 iow ioc6 
  MOV  a,@0x02  ;P6口上拉 
 iow iocd 
  
  MOV  a,port6 ;讀入P6口的拔碼開關值 
 nop 
  MOV  a,port6 
  MOV  spcode,a 
 rlc spcode  ;把高2位左移到低2位 
 rlc spcode 
 rlc spcode 
  MOV  a,@0x03 ;屏蔽高6位 
 and spcode,a   ;保存速度代碼,這個代碼是公用的 
  

init:  
  MOV  a,@04 ;開外部中斷 
 iow iocf 
  MOV  a,@0x40 
 iow ioce 
 eni    ;開總中斷 
 ;jmp mode4 
  
;;;;;;;;;;;;;;;;;;;;;;;;;; 
;跑馬1,單燈跑馬 
;;;;;;;;;;;;;;;;;;;;;;;;;; 
mode1: 
 clr ifdrim 
  MOV  a,@10+5 
  MOV  count2,a     ;COUNT2決定這一模式總循環(huán)次數(shù) 
  
  MOV  a,spcode     ;根據(jù)開關代碼查到它對應的值 
 call spmode1 
  MOV  tick,a    ;這里可以省去tick2了,40/80/120/160 
  
mode13: 
 bc stflag,0   ;表示不夢幻 
  MOV  a,@04   
  MOV  chtb,a    
mode12: 
  MOV  a,chtb 
 call tbmode1   ;跑馬1的代碼表。 
  MOV  code,a 
 bc stflag,7     ;讓查表標志清0 
  MOV  a,tick   ;在中斷子程序中也有這一句 
  MOV  tcount1,a 
mode10:  
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 jbs stflag,7 ;判斷是否要進行查表 
 jmp mode10 ;tcountl若為0則進入下一拍 
 djz chtb 
 jmp mode12 
 djz count2 
 jmp mode13 
  

;;;;;;;;;;;;;;;;;;;;;;;;;; 
;跑馬2 
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
mode2: 
 clr ifdrim 
  MOV  a,@4 
  MOV  count2,a     ;決定這一模式總循環(huán)次數(shù) 
  
  MOV  a,spcode     ;根據(jù)開關代碼查到它對應的值 
 call spmode1 
  MOV  tick,a    ;這里可以省去tick2了,40/80/120/160 
  
mode23: 
 bc stflag,0   ;表示不夢幻 
  MOV  a,@32   
  MOV  chtb,a    
mode22: 
  MOV  a,chtb 
 call tbmode2 
  MOV  code,a 
 bc stflag,7     ;讓查表標志清0 
  MOV  a,tick   ;在中斷子程序中也有這一句 
  MOV  tcount1,a 
mode20:  
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 jbs stflag,7 ;判斷是否要進行查表 
 jmp mode20 ;tcountl若為0則進入下一拍 
 djz chtb 
 jmp mode22 
 djz count2 
 jmp mode23  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;以下為夢幻模式,只計總時間 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
mode3: 
 clr ifdrim 
 com ifdrim     ;這是夢幻的標志，它是不變的  
  MOV  a,@5      ;進行的時間 
  MOV  count2,a      ;count2決定了該模式的工作時間 
  MOV  a,spcode 
 call spmode4 
  MOV  tick,a 
  MOV  a,tick     ;這個值由開機時決定,為4 
  MOV  tcount2,a     ;決定同一亮度級別存在時間,為10ms的倍數(shù) 
mode33: 
  MOV  a,@8 
  MOV  chtb,a 
mode32: 
  MOV  a,chtb 
 call tbmode3   ;查表tbmode4 
  MOV  code,a     ;進入代 
 bc stflag,7     ;讓查表標志清0 
  MOV  a,@160 
  MOV  tcount1,a  
  
mode31:   
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 jbs stflag,7 
 jmp mode31 
 djz chtb 
 jmp mode32 
 djz count2 
 jmp mode33 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;以下為夢幻模式,只計總時間 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
mode4: 
 clr ifdrim 
 com ifdrim     ;這是夢幻的標志，它是不變的  
  MOV  a,@4      ;進行的時間 
  MOV  count2,a      ;count2決定了該模式的工作時間 
 ; MOV  a,spcode 
 ;call spmode4 
 ; MOV  tick,a 
  MOV  a,@1     ;這個值由開機時決定,為4 
  MOV  tcount2,a     ;決定同一亮度級別存在時間,為10ms的倍數(shù) 
mode43: 
  MOV  a,@5 
  MOV  chtb,a 
mode42: 
  MOV  a,chtb 
 call tbmode4   ;查表tbmode4 
  MOV  code,a     ;進入代 
 bc stflag,7     ;讓查表標志清0 
  MOV  a,@160 
  MOV  tcount1,a 

mode41:   
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 jbs stflag,7 
 jmp mode41 
 djz chtb 
 jmp mode42 
 djz count2 
 jmp mode43 
  
  
;;;;;;;;;;;;;;;;;;;;;;;;;; 
;跑馬5 
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
mode5: 
 clr ifdrim 
  MOV  a,@15 
  MOV  count2,a     ;決定這一模式總循環(huán)次數(shù) 
  
  MOV  a,spcode     ;根據(jù)開關代碼查到它對應的值 
 call spmode1 
  MOV  tick,a    ;這里可以省去tick2了,40/80/120/160 
  
mode53: 
 bc stflag,0   ;表示不夢幻 
  MOV  a,@12   
  MOV  chtb,a    
mode52: 
  MOV  a,chtb 
 call tbmode5 
  MOV  code,a 
 bc stflag,7     ;讓查表標志清0 
  MOV  a,tick   ;在中斷子程序中也有這一句 
  MOV  tcount1,a 
mode50:  
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 jbs stflag,7 ;判斷是否要進行查表 
 jmp mode50 ;tcountl若為0則進入下一拍 
 djz chtb 
 jmp mode52 
 djz count2 
 jmp mode53 
 jmp mode1  
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;延時子程序 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;  

delay100u: 
  MOV  a,@10 
  MOV  temp2,a 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
delay100: 
 nop 
 nop 
 nop 
 nop 
 nop 
 nop 
 djz temp2 
 jmp delay100 ;循環(huán)體內定時4US，當F=4MHz，D=2 
 ret