📄 ledv1_f398.dt
字号:
;******************************************;
;4M IRC WDT Enable V1 check is F398
;******************************************;
include "ledV1_F398.h"
;===========================================;
org 0
jmp System_Initialize
;===========================================;
org 8
jmp Int_serv
;============================================;
Pwm_table:
add pc,a
;-------------------------------------;00
retl @2 ;
retl @2 ;
retl @2 ;
retl @2 ;
retl @3 ;
retl @3 ;
retl @3 ;
retl @3 ;
retl @3 ;
retl @4 ;
;-------------------------------------;10
retl @4 ;
retl @4 ;
retl @4 ;
retl @4 ;
retl @5 ;
retl @5 ;
retl @5 ;
retl @6 ;
retl @6 ;
retl @6 ;
;-------------------------------------;20
retl @7 ;
retl @7 ;
retl @7 ;
retl @8 ;
retl @8 ;
retl @8 ;
retl @9 ;
retl @9 ;
retl @10 ;
retl @10 ;
;-------------------------------------;30
retl @11 ;
retl @11 ;
retl @12 ;
retl @12 ;
retl @13 ;
retl @13 ;
retl @14 ;
retl @14 ;
retl @15 ;
retl @15 ;
;-------------------------------------;40
retl @16 ;
retl @16 ;
retl @17 ;
retl @17 ;
retl @18 ;
retl @18 ;
retl @19 ;
retl @19 ;
retl @20 ;
retl @20 ;
;-------------------------------------;50
retl @21 ;
retl @22 ;
retl @23 ;
retl @24 ;
retl @25 ;
retl @26 ;
retl @27 ;
retl @28 ;
retl @29 ;
retl @30 ;
;-------------------------------------;60
retl @31 ;
retl @32 ;
retl @33 ;
retl @34 ;
retl @35 ;
retl @36 ;
retl @37 ;
retl @38 ;
retl @39 ;
retl @40 ;
;-------------------------------------;70
retl @41 ;
retl @42 ;
retl @43 ;
retl @44 ;
retl @45 ;
retl @46 ;
retl @47 ;
retl @48 ;
retl @49 ;
retl @50 ;
;-------------------------------------;80
retl @51 ;
retl @52 ;
retl @53 ;
retl @54 ;
retl @55 ;
retl @56 ;
retl @57 ;
retl @58 ;
retl @59 ;
retl @60 ;
;-------------------------------------;90
retl @61 ;
retl @62 ;
retl @63 ;
retl @64 ;
retl @65 ;
retl @66 ;
retl @67 ;
retl @68 ;
retl @69 ;
retl @70 ;
;-------------------------------------;100
retl @71 ;
retl @72 ;
retl @73 ;
retl @74 ;
retl @75 ;
retl @76 ;
retl @77 ;
retl @78 ;
retl @79 ;
retl @80 ;
;-------------------------------------;110
retl @81 ;
retl @82 ;
retl @83 ;
retl @84 ;
retl @85 ;
retl @86 ;
retl @87 ;
retl @88 ;
retl @89 ;
retl @90 ;
;-------------------------------------;120
retl @91 ;
retl @92 ;
retl @93 ;
retl @94 ;
retl @95 ;
retl @96 ;
retl @97 ;
retl @98 ;
retl @99 ;
retl @100 ;
;-------------------------------------;130
retl @101 ;
retl @102 ;
retl @103 ;
retl @104 ;
retl @105 ;
retl @106 ;
retl @107 ;
retl @108 ;
retl @109 ;
retl @110 ;
;-------------------------------------;140
retl @111 ;
retl @112 ;
retl @113 ;
retl @114 ;
retl @115 ;
retl @116 ;
retl @117 ;
retl @118 ;
retl @119 ;
retl @120 ;
;-------------------------------------;150
retl @121 ;
retl @121 ;
retl @122 ;
retl @122 ;
retl @123 ;
retl @123 ;
retl @124 ;
retl @124 ;
retl @125 ;
retl @125 ;
;-------------------------------------;160
retl @126 ;
retl @126 ;
retl @127 ;
retl @127 ;
retl @128 ;
retl @128 ;
retl @129 ;
retl @129 ;
retl @130 ;
retl @130 ;
;-------------------------------------;170
retl @131 ;
retl @131 ;
retl @132 ;
retl @132 ;
retl @133 ;
retl @133 ;
retl @133 ;
retl @134 ;
retl @134 ;
retl @134 ;
;-------------------------------------;180
retl @135 ;
retl @135 ;
retl @135 ;
retl @136 ;
retl @136 ;
retl @136 ;
retl @137 ;
retl @137 ;
retl @137 ;
retl @137 ;
;-------------------------------------;190
retl @137 ;
retl @138 ;
retl @138 ;
retl @138 ;
retl @138 ;
retl @139 ;
retl @139 ;
retl @139 ;
retl @139 ;
retl @139 ;
;-------------------------------------;170
/*retl @171 ;
retl @172 ;
retl @173 ;
retl @174 ;
retl @175 ;
retl @176 ;
retl @177 ;
retl @178 ;
retl @179 ;
retl @180 ;
;-------------------------------------;180
retl @181 ;
retl @182 ;
retl @183 ;
retl @184 ;
retl @185 ;
retl @186 ;
retl @187 ;
retl @188 ;
retl @189 ;
retl @190 ;
;-------------------------------------;190
retl @191 ;
retl @192 ;
retl @193 ;
retl @194 ;
retl @195 ;
retl @196 ;
retl @197 ;
retl @198 ;
retl @199 ;
retl @200 ;*/
;-------------------------------------;200
retl @140 ;
retl @140 ;
;============================================;
Int_serv:
mov Image_a,a
swap Image_a
swapa status
mov Image_Status,a
;-----------------------------------
jbs Sys_Status,F_int
jmp Key_Scan
ac_scan:
bc Sys_Status,F_int
bs Sys_Status_T,F_5ms
mov a,r6
and a,@0b00000010
xor a,AC_buff
jbc status,z
jmp Tcc_ret
coma AC_buff
and a,@0b00000010
mov AC_buff,a
bs Sys_Status_T,F_5ms
bs Sys_Status_T,F_10ms
inc Time_buff
jbc status,z
bs Sys_Status_s,F_256s
jbc Time_buff,1
bs Sys_Status_T,F_20ms
inc Time_T1
jbc Time_T1,6
bs Sys_Status_s,F_64s
jbc Time_T1,6
clr Time_T1
inc Time_T2
jbc Time_T2,7
bs Sys_Status_s,F_128s
jbc Time_T2,7
clr Time_T2
inc Time_T3
mov a,Time_T3
xor a,@38
jbs status,z
jmp tcc_ret
bs Sys_Status_s,F_38s
clr Time_T3
jmp tcc_ret
;-----------------------------------
Key_Scan:
wdtc
bs Sys_Status,F_int
jbs Sys_Status,F_Dly
jmp Key_Scan1
inc Key_temp
jbs status,z
jmp tcc_ret
bc Sys_Status,F_Dly
clr Key_temp
jmp tcc_ret
Key_Scan1:
mov a,r6
and a,@0b00000001
xor a,Key_buff
jbc status,z
jmp tcc_ret
inc Key_Temp
jbs Key_temp,4
jmp tcc_ret
coma Key_buff
and a,@0b00000001
mov Key_buff,a
bs Sys_Status,F_Dly
bs Sys_Status,F_Sta
;-----------------------------------
Tcc_ret:
clr intc
swapa Image_Status
mov status,a
swapa image_a
reti
;============================================;
System_Initialize:
; {
mov a,@0b00000011
contw
mov a,@0b11111111
iow r5
mov a,@0b11001011
iow r6
nop
mov a,@0b01100000
iow iocb
mov a,@0b00001111;2#
iow iocd
/*
mov a,@0b01100000
iow iocb
mov a,@0b00111111 ;1#
iow iocd
mov a,@0b11001111
iow iocc */
clr r5
clr r6
Clr153ram
mov a,r6
and a,@0b00000001
mov Key_buff,a
mov a,@0b00000001
iow intc
clr intc
eni
; }
;============================================;
;////////////////////////////////////////////;
;============================================;
LedStatus01: ;red 5, green 4, blue 2
bs Sys_Status_T,F_4s
LedStatus01_1:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00000100
mov H2L_port,a ;From High To Low
mov a,@0b00100100
mov L2H_port,a ;From Low To High
call pwm
LedStatus01_F2:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00100100
mov H2L_port,a
mov L2H_port,a
call pwm
LedStatus01_2:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00100100
mov H2L_port,a
mov a,@0b00100000
mov L2H_port,a
call pwm
LedStatus01_F3:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00100000
mov H2L_port,a
mov L2H_port,a
call pwm
LedStatus01_3:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00100000
mov H2L_port,a
mov a,@0b00110000
mov L2H_port,a
call pwm
LedStatus01_F4:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00110000
mov H2L_port,a
mov L2H_port,a
call pwm
LedStatus01_4:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00110000
mov H2L_port,a
mov a,@0b00010000
mov L2H_port,a
call pwm
LedStatus01_F5:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00010000
mov H2L_port,a
mov L2H_port,a
call pwm
LedStatus01_5:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00010000
mov H2L_port,a
mov a,@0b00010100
mov L2H_port,a
call pwm
LedStatus01_F6:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00010100
mov H2L_port,a
mov L2H_port,a
call pwm
LedStatus01_6:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00010100
mov H2L_port,a
mov a,@0b00110100
mov L2H_port,a
call pwm
LedStatus01_F7:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00110100
mov H2L_port,a
mov L2H_port,a
call pwm
LedStatus01_7:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00110100
mov H2L_port,a
mov a,@0b00000100
mov L2H_port,a
call pwm
LedStatus01_F1:
jbc Sys_Status,F_Sta
jmp LedStatus02
mov a,@0b00000100
mov H2L_port,a
mov L2H_port,a
call pwm
jmp LedStatus01
;================================================;
LedStatus02:
bc Sys_Status_T,F_4s
bc Sys_Status,F_Sta
LedStatus02_1:
jbc Sys_Status,F_Sta
jmp LedStatus03
mov a,@0b00100000;red 5, green 4, blue 2
call LedStatus02_loop
mov a,@0b00010000;red 5, green 4, blue 2
call LedStatus02_loop
jbc Sys_Status,F_Sta
jmp LedStatus03
mov a,@0b00000100;red 5, green 4, blue 2
call LedStatus02_loop
mov a,@0b00110000;red 5, green 4, blue 2
call LedStatus02_loop
jbc Sys_Status,F_Sta
jmp LedStatus03
mov a,@0b00100100;red 5, green 4, blue 2
call LedStatus02_loop
mov a,@0b00010100;red 5, green 4, blue 2
call LedStatus02_loop
jbc Sys_Status,F_Sta
jmp LedStatus03
mov a,@0b00110100;red 5, green 4, blue 2
call LedStatus02_loop
jmp LedStatus02_1
LedStatus02_loop:
mov r6,a
jbs Sys_Status_s,F_256s
jmp LedStatus02_loop
bc Sys_Status_s,F_256s
ret
;============================================;
LedStatus03:
bc Sys_Status,F_Sta
LedStatus03_1:
jbc Sys_Status,F_Sta
jmp LedStatus04
mov a,@0b00100000;red 5, green 4, blue 2
call LedStatus03_loop
mov a,@0b00010000;red 5, green 4, blue 2
call LedStatus03_loop
jbc Sys_Status,F_Sta
jmp LedStatus04
mov a,@0b00000100;red 5, green 4, blue 2
call LedStatus03_loop
mov a,@0b00110000;red 5, green 4, blue 2
call LedStatus03_loop
jbc Sys_Status,F_Sta
jmp LedStatus04
mov a,@0b00100100;red 5, green 4, blue 2
call LedStatus03_loop
mov a,@0b00010100;red 5, green 4, blue 2
call LedStatus03_loop
jbc Sys_Status,F_Sta
jmp LedStatus04
mov a,@0b00110100;red 5, green 4, blue 2
call LedStatus03_loop
jmp LedStatus03_1
LedStatus03_loop:
mov r6,a
jbs Sys_Status_s,F_128s
jmp LedStatus03_loop
bc Sys_Status_s,F_128s
ret
;============================================;
LedStatus04:
bc Sys_Status,F_Sta
LedStatus04_1:
jbc Sys_Status,F_Sta
jmp LedStatus05
mov a,@0b00100000;red 5, green 4, blue 2
call LedStatus04_loop
mov a,@0b00010000;red 5, green 4, blue 2
call LedStatus04_loop
jbc Sys_Status,F_Sta
jmp LedStatus05
mov a,@0b00000100;red 5, green 4, blue 2
call LedStatus04_loop
mov a,@0b00110000;red 5, green 4, blue 2
call LedStatus04_loop
jbc Sys_Status,F_Sta
jmp LedStatus05
mov a,@0b00100100;red 5, green 4, blue 2
call LedStatus04_loop
mov a,@0b00010100;red 5, green 4, blue 2
call LedStatus04_loop
jbc Sys_Status,F_Sta
jmp LedStatus05
mov a,@0b00110100;red 5, green 4, blue 2
call LedStatus04_loop
jmp LedStatus04_1
LedStatus04_loop:
mov r6,a
jbs Sys_Status_s,F_64s
jmp LedStatus04_loop
bc Sys_Status_s,F_64s
ret
;============================================;
LedStatus05:
bs Sys_Status_T,F_4s
bc Sys_Status,F_Sta
LedStatus05_loop:
call LedStatus05_1
jbc Sys_Status,F_Sta
jmp LedStatus06
jmp LedStatus05_loop
;---------------------------------------
LedStatus05_1:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
ret
mov a,@0b00100000
mov H2L_port,a ;From High To Low
mov a,@0b00100100
mov L2H_port,a ;From Low To High
call PWM
LedStatus05_2:;red 5, green 4, blue 2
jbc Sys_Status,F_Sta
ret
mov a,@0b00100100
mov H2L_port,a ;From High To Low
mov a,@0b00000100
mov L2H_port,a ;From Low To High
call PWM
LedStatus05_3:;red 5, green 4, blue 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -