ctr_mcu/branches/0.10(X3)/renge.prn
N2232 dc469bd4c6 0.10のX3対応版を登録
git-svn-id: file:///Volumes/Transfer/gigaleak_20231201/2020-05-23%20-%20ctr.7z%20+%20svn_v1.068.zip/ctr/svn/ctr_mcu@193 013db118-44a6-b54f-8bf7-843cb86687b1
2010-06-23 07:16:15 +00:00

1408 lines
109 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

78K0R Assembler W1.31 Date:13 Jun 2010 Page: 1
Command: -c9F0104 -yC:\Program Files\NEC Electronics Tools\DEV -_msgoff inter_asm\renge.asm
Para-file:
In-file: inter_asm\renge.asm
Obj-file: renge.rel
Prn-file: renge.prn
Assemble list
ALNO STNO ADRS OBJECT M I SOURCE STATEMENT
1 1 ; 78K0R C Compiler V2.10 Assembler Source Date:13 Jun 2010 Time:19:31:24
2 2
3 3 ; Command : -c9F0104 -yC:\Program Files\NEC Electronics Tools\DEV -_msgoff -i
4 4 ; renge -iC:\Program Files\NEC Electronics Tools\FSL78K0R_Type02ES\
5 5 ; V1.20\inc78k0r -ms -qvjl3wt -sainter_asm -zp -no renge\renge.c
6 6 ; In-file : renge\renge.c
7 7 ; Asm-file : inter_asm\renge.asm
8 8 ; Para-file :
9 9
10 10 $PROCESSOR(9F0104)
11 11 $DEBUG
12 12 $NODEBUGA
13 13 $KANJICODE SJIS
14 14 $TOL_INF 03FH, 0210H, 00H, 00H, 00H, 00H, 00H
15 15
16 16 $DGS FIL_NAM, .file, 0EEH, 0FFFEH, 03FH, 067H, 01H, 00H
17 17 $DGS AUX_FIL, renge.c
18 18 $DGS MOD_NAM, renge, 00H, 0FFFEH, 00H, 077H, 00H, 00H
19 19 $DGS SEC_NAM, @@BITS, U, U, 00H, 078H, 00H, 00H
20 20 $DGS SEC_NAM, @@CNST, U, U, 00H, 078H, 00H, 00H
21 21 $DGS SEC_NAM, @@R_INIT, U, U, 00H, 078H, 00H, 00H
22 22 $DGS SEC_NAM, @@INIT, U, U, 00H, 078H, 00H, 00H
23 23 $DGS SEC_NAM, @@DATA, U, U, 00H, 078H, 00H, 00H
24 24 $DGS SEC_NAM, @@R_INIS, U, U, 00H, 078H, 00H, 00H
25 25 $DGS SEC_NAM, @@INIS, U, U, 00H, 078H, 00H, 00H
26 26 $DGS SEC_NAM, @@DATS, U, U, 00H, 078H, 00H, 00H
27 27 $DGS SEC_NAM, @@CNSTL, U, U, 00H, 078H, 00H, 00H
28 28 $DGS SEC_NAM, @@RLINIT, U, U, 00H, 078H, 00H, 00H
29 29 $DGS SEC_NAM, @@INITL, U, U, 00H, 078H, 00H, 00H
30 30 $DGS SEC_NAM, @@DATAL, U, U, 00H, 078H, 00H, 00H
31 31 $DGS SEC_NAM, @@CALT, U, U, 00H, 078H, 00H, 00H
32 32 $DGS SEC_NAM, ROM_CODE, U, U, 00H, 078H, 00H, 00H
33 33 $DGS SEC_NAM, @@CODEL, U, U, 00H, 078H, 00H, 00H
34 34 $DGS SEC_NAM, @@BASE, U, U, 00H, 078H, 00H, 00H
35 35 $DGS ENM_TAG, .1fake, 00H, 0FFFEH, 0AH, 0FH, 01H, 00H
36 36 $DGS AUX_TAG, 01H, 019H
37 37 $DGS MEB_ENM, _ERR_FINISED, 00H, 0FFFFH, 04H, 010H, 00H, 00H
38 38 $DGS MEB_ENM, _ERR_CONTINUE, 01H, 0FFFFH, 04H, 010H, 00H, 00H
39 39 $DGS END_STR, .eos, 01H, 0FFFFH, 00H, 066H, 01H, 00H
40 40 $DGS AUX_EOS, 013H, 01H
41 41 $DGS LAB_SYM, bs_S0096, U, U, 00H, 06H, 00H, 00H
42 42 $DGS LAB_SYM, es_S0096, U, U, 00H, 06H, 00H, 00H
43 43 $DGS LAB_SYM, bs_S0094, U, U, 00H, 06H, 00H, 00H
44 44 $DGS LAB_SYM, es_S0094, U, U, 00H, 06H, 00H, 00H
45 45 $DGS LAB_SYM, bs_S0095, U, U, 00H, 06H, 00H, 00H
46 46 $DGS LAB_SYM, es_S0095, U, U, 00H, 06H, 00H, 00H
47 47 $DGS STA_SYM, _tasks, U, U, 01H, 03H, 01H, 027H
48 48 $DGS AUX_STR, 00H, 00H, 016H, 0BH, 00H, 00H, 00H, 04H
49 49 $DGS GLV_SYM, _renge_init, U, U, 01H, 026H, 01H, 02H
50 50 $DGS AUX_FUN, 00H, U, U, 027H, 00H, 00H
51 51 $DGS BEG_FUN, ??bf_renge_init, U, U, 00H, 065H, 01H, 00H
52 52 $DGS AUX_BEG, 035H, 00H, 027H
53 53 $DGS END_FUN, ??ef_renge_init, U, U, 00H, 065H, 01H, 00H
54 54 $DGS AUX_END, 09H
55 55 $DGS GLV_SYM, _renge_task_interval_run, U, U, 0CH, 026H, 01H, 02H
56 56 $DGS AUX_FUN, 00H, U, U, 036H, 00H, 00H
57 57 $DGS BEG_FUN, ??bf_renge_task_interval_run, U, U, 00H, 065H, 01H, 00H
58 58 $DGS AUX_BEG, 051H, 02H, 02CH
59 59 $DGS REG_VAR, _i, 06H, 0FFFFH, 010CH, 04H, 00H, 00H
60 60 $DGS BEG_BLK, ??bb00_renge_task_interval_run, U, U, 00H, 064H, 01H, 00H
61 61 $DGS AUX_BEG, 07H, 00H, 02EH
62 62 $DGS BEG_BLK, ??bb01_renge_task_interval_run, U, U, 00H, 064H, 01H, 00H
63 63 $DGS AUX_BEG, 0BH, 00H, 00H
64 64 $DGS END_BLK, ??eb01_renge_task_interval_run, U, U, 00H, 064H, 01H, 00H
65 65 $DGS AUX_END, 0FH
66 66 $DGS END_BLK, ??eb00_renge_task_interval_run, U, U, 00H, 064H, 01H, 00H
67 67 $DGS AUX_END, 010H
68 68 $DGS END_FUN, ??ef_renge_task_interval_run, U, U, 00H, 065H, 01H, 00H
69 69 $DGS AUX_END, 012H
70 70 $DGS STA_SYM, _renge_task_immed_init, U, U, 01H, 03H, 01H, 02H
71 71 $DGS AUX_FUN, 00H, U, U, 041H, 00H, 00H
72 72 $DGS BEG_FUN, ??bf_renge_task_immed_init, U, U, 00H, 065H, 01H, 00H
73 73 $DGS AUX_BEG, 075H, 02H, 03BH
74 74 $DGS REG_VAR, _i, 06H, 0FFFFH, 010CH, 04H, 00H, 00H
75 75 $DGS BEG_BLK, ??bb00_renge_task_immed_init, U, U, 00H, 064H, 01H, 00H
76 76 $DGS AUX_BEG, 04H, 00H, 00H
77 77 $DGS END_BLK, ??eb00_renge_task_immed_init, U, U, 00H, 064H, 01H, 00H
78 78 $DGS AUX_END, 06H
79 79 $DGS END_FUN, ??ef_renge_task_immed_init, U, U, 00H, 065H, 01H, 00H
80 80 $DGS AUX_END, 07H
81 81 $DGS GLV_SYM, _renge_task_immed_add, U, U, 0CH, 026H, 01H, 02H
82 82 $DGS AUX_FUN, 00H, U, U, 062H, 00H, 00H
83 83 $DGS BEG_FUN, ??bf_renge_task_immed_add, U, U, 00H, 065H, 01H, 00H
84 84 $DGS AUX_BEG, 083H, 04H, 048H
85 85 $DGS FUN_ARG, _new_task, 02H, 0FFFFH, 01H, 09H, 01H, 01H
86 86 $DGS AUX_STR, 00H, 00H, 02H, 00H, 00H, 00H, 00H, 01H
87 87 $DGS AUT_VAR, _i, 01H, 0FFFFH, 0CH, 01H, 00H, 00H
88 88 $DGS BEG_BLK, ??bb00_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
89 89 $DGS AUX_BEG, 08H, 00H, 04AH
90 90 $DGS BEG_BLK, ??bb01_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
91 91 $DGS AUX_BEG, 0AH, 00H, 04CH
92 92 $DGS BEG_BLK, ??bb02_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
93 93 $DGS AUX_BEG, 0DH, 00H, 052H
94 94 $DGS END_BLK, ??eb02_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
95 95 $DGS AUX_END, 011H
96 96 $DGS END_BLK, ??eb01_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
97 97 $DGS AUX_END, 012H
98 98 $DGS BEG_BLK, ??bb03_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
99 99 $DGS AUX_BEG, 014H, 00H, 054H
100 100 $DGS BEG_BLK, ??bb04_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
101 101 $DGS AUX_BEG, 019H, 00H, 056H
102 102 $DGS BEG_BLK, ??bb05_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
103 103 $DGS AUX_BEG, 01BH, 00H, 00H
104 104 $DGS END_BLK, ??eb05_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
105 105 $DGS AUX_END, 01EH
106 106 $DGS END_BLK, ??eb04_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
107 107 $DGS AUX_END, 01FH
108 108 $DGS END_BLK, ??eb03_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
109 109 $DGS AUX_END, 022H
110 110 $DGS END_BLK, ??eb00_renge_task_immed_add, U, U, 00H, 064H, 01H, 00H
111 111 $DGS AUX_END, 023H
112 112 $DGS END_FUN, ??ef_renge_task_immed_add, U, U, 00H, 065H, 01H, 00H
113 113 $DGS AUX_END, 027H
114 114 $DGS GLV_SYM, _renge_task_immed_run, U, U, 0CH, 026H, 01H, 02H
115 115 $DGS AUX_FUN, 00H, U, U, 0DEH, 00H, 00H
116 116 $DGS BEG_FUN, ??bf_renge_task_immed_run, U, U, 00H, 065H, 01H, 00H
117 117 $DGS AUX_BEG, 0B0H, 04H, 068H
118 118 $DGS AUT_VAR, _list_id, 03H, 0FFFFH, 0CH, 01H, 00H, 00H
119 119 $DGS AUT_VAR, _last_task_id, 02H, 0FFFFH, 0CH, 01H, 00H, 00H
120 120 $DGS BEG_BLK, ??bb00_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
121 121 $DGS AUX_BEG, 05H, 00H, 06AH
122 122 $DGS BEG_BLK, ??bb01_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
123 123 $DGS AUX_BEG, 07H, 00H, 06CH
124 124 $DGS BEG_BLK, ??bb02_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
125 125 $DGS AUX_BEG, 08H, 00H, 06EH
126 126 $DGS BEG_BLK, ??bb03_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
127 127 $DGS AUX_BEG, 0BH, 00H, 072H
128 128 $DGS END_BLK, ??eb03_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
129 129 $DGS AUX_END, 011H
130 130 $DGS BEG_BLK, ??bb04_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
131 131 $DGS AUX_BEG, 014H, 00H, 074H
132 132 $DGS BEG_BLK, ??bb05_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
133 133 $DGS AUX_BEG, 016H, 00H, 07CH
134 134 $DGS END_BLK, ??eb05_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
135 135 $DGS AUX_END, 018H
136 136 $DGS END_BLK, ??eb04_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
137 137 $DGS AUX_END, 01AH
138 138 $DGS END_BLK, ??eb02_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
139 139 $DGS AUX_END, 01BH
140 140 $DGS BEG_BLK, ??bb06_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
141 141 $DGS AUX_BEG, 01EH, 00H, 07EH
142 142 $DGS BEG_BLK, ??bb07_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
143 143 $DGS AUX_BEG, 021H, 00H, 080H
144 144 $DGS BEG_BLK, ??bb08_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
145 145 $DGS AUX_BEG, 023H, 00H, 08AH
146 146 $DGS END_BLK, ??eb08_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
147 147 $DGS AUX_END, 025H
148 148 $DGS END_BLK, ??eb07_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
149 149 $DGS AUX_END, 026H
150 150 $DGS END_BLK, ??eb06_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
151 151 $DGS AUX_END, 028H
152 152 $DGS END_BLK, ??eb01_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
153 153 $DGS AUX_END, 02AH
154 154 $DGS BEG_BLK, ??bb09_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
155 155 $DGS AUX_BEG, 02DH, 00H, 08CH
156 156 $DGS BEG_BLK, ??bb0A_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
157 157 $DGS AUX_BEG, 02FH, 00H, 092H
158 158 $DGS AUT_VAR, _i, 01H, 0FFFFH, 0CH, 01H, 01H, 00H
159 159 $DGS AUX_STR, 00H, 030H, 01H, 00H, 00H, 00H, 00H, 00H
160 160 $DGS AUT_VAR, _j, 00H, 0FFFFH, 0CH, 01H, 01H, 00H
161 161 $DGS AUX_STR, 00H, 030H, 01H, 00H, 00H, 00H, 00H, 00H
162 162 $DGS BEG_BLK, ??bb0B_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
163 163 $DGS AUX_BEG, 033H, 00H, 096H
164 164 $DGS END_BLK, ??eb0B_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
165 165 $DGS AUX_END, 035H
166 166 $DGS BEG_BLK, ??bb0C_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
167 167 $DGS AUX_BEG, 03CH, 00H, 098H
168 168 $DGS BEG_BLK, ??bb0D_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
169 169 $DGS AUX_BEG, 03FH, 00H, 09AH
170 170 $DGS BEG_BLK, ??bb0E_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
171 171 $DGS AUX_BEG, 041H, 00H, 09CH
172 172 $DGS BEG_BLK, ??bb0F_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
173 173 $DGS AUX_BEG, 044H, 00H, 0A0H
174 174 $DGS END_BLK, ??eb0F_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
175 175 $DGS AUX_END, 046H
176 176 $DGS BEG_BLK, ??bb10_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
177 177 $DGS AUX_BEG, 04BH, 00H, 0A2H
178 178 $DGS BEG_BLK, ??bb11_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
179 179 $DGS AUX_BEG, 04DH, 00H, 0AAH
180 180 $DGS END_BLK, ??eb11_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
181 181 $DGS AUX_END, 04FH
182 182 $DGS END_BLK, ??eb10_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
183 183 $DGS AUX_END, 050H
184 184 $DGS END_BLK, ??eb0E_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
185 185 $DGS AUX_END, 054H
186 186 $DGS BEG_BLK, ??bb12_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
187 187 $DGS AUX_BEG, 056H, 00H, 0B0H
188 188 $DGS END_BLK, ??eb12_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
189 189 $DGS AUX_END, 05BH
190 190 $DGS END_BLK, ??eb0D_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
191 191 $DGS AUX_END, 05CH
192 192 $DGS BEG_BLK, ??bb13_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
193 193 $DGS AUX_BEG, 05EH, 00H, 0B2H
194 194 $DGS BEG_BLK, ??bb14_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
195 195 $DGS AUX_BEG, 062H, 00H, 0B8H
196 196 $DGS END_BLK, ??eb14_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
197 197 $DGS AUX_END, 065H
198 198 $DGS END_BLK, ??eb13_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
199 199 $DGS AUX_END, 068H
200 200 $DGS BEG_BLK, ??bb15_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
201 201 $DGS AUX_BEG, 06BH, 00H, 0BEH
202 202 $DGS END_BLK, ??eb15_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
203 203 $DGS AUX_END, 071H
204 204 $DGS END_BLK, ??eb0C_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
205 205 $DGS AUX_END, 072H
206 206 $DGS BEG_BLK, ??bb16_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
207 207 $DGS AUX_BEG, 077H, 00H, 0C0H
208 208 $DGS BEG_BLK, ??bb17_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
209 209 $DGS AUX_BEG, 079H, 00H, 0C2H
210 210 $DGS BEG_BLK, ??bb18_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
211 211 $DGS AUX_BEG, 07EH, 00H, 0C4H
212 212 $DGS BEG_BLK, ??bb19_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
213 213 $DGS AUX_BEG, 080H, 00H, 0CCH
214 214 $DGS END_BLK, ??eb19_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
215 215 $DGS AUX_END, 082H
216 216 $DGS END_BLK, ??eb18_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
217 217 $DGS AUX_END, 083H
218 218 $DGS END_BLK, ??eb17_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
219 219 $DGS AUX_END, 087H
220 220 $DGS BEG_BLK, ??bb1A_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
221 221 $DGS AUX_BEG, 089H, 00H, 0D8H
222 222 $DGS END_BLK, ??eb1A_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
223 223 $DGS AUX_END, 08BH
224 224 $DGS END_BLK, ??eb16_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
225 225 $DGS AUX_END, 08CH
226 226 $DGS END_BLK, ??eb0A_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
227 227 $DGS AUX_END, 08EH
228 228 $DGS END_BLK, ??eb09_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
229 229 $DGS AUX_END, 08FH
230 230 $DGS END_BLK, ??eb00_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
231 231 $DGS AUX_END, 090H
232 232 $DGS BEG_BLK, ??bb1B_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
233 233 $DGS AUX_BEG, 098H, 00H, 00H
234 234 $DGS END_BLK, ??eb1B_renge_task_immed_run, U, U, 00H, 064H, 01H, 00H
235 235 $DGS AUX_END, 09BH
236 236 $DGS END_FUN, ??ef_renge_task_immed_run, U, U, 00H, 065H, 01H, 00H
237 237 $DGS AUX_END, 09EH
238 238 $DGS GLV_SYM, _wait_ms, U, U, 01H, 026H, 01H, 02H
239 239 $DGS AUX_FUN, 00H, U, U, 0EEH, 00H, 00H
240 240 $DGS BEG_FUN, ??bf_wait_ms, U, U, 00H, 065H, 01H, 00H
241 241 $DGS AUX_BEG, 0157H, 04H, 0E4H
242 242 $DGS FUN_ARG, _ms, 02H, 0FFFFH, 0CH, 09H, 00H, 00H
243 243 $DGS AUT_VAR, _fine, 00H, 0FFFFH, 0DH, 01H, 00H, 00H
244 244 $DGS BEG_BLK, ??bb00_wait_ms, U, U, 00H, 064H, 01H, 00H
245 245 $DGS AUX_BEG, 06H, 00H, 0E6H
246 246 $DGS BEG_BLK, ??bb01_wait_ms, U, U, 00H, 064H, 01H, 00H
247 247 $DGS AUX_BEG, 0DH, 00H, 00H
248 248 $DGS END_BLK, ??eb01_wait_ms, U, U, 00H, 064H, 01H, 00H
249 249 $DGS AUX_END, 0FH
250 250 $DGS END_BLK, ??eb00_wait_ms, U, U, 00H, 064H, 01H, 00H
251 251 $DGS AUX_END, 010H
252 252 $DGS END_FUN, ??ef_wait_ms, U, U, 00H, 065H, 01H, 00H
253 253 $DGS AUX_END, 011H
254 254 $DGS GLV_SYM, _renge_flg_interval, U, U, 034CH, 027H, 00H, 00H
255 255 $DGS GLV_SYM, _renge_task_interval_run_force, U, U, 034CH, 027H, 00H, 00H
256 256 $DGS GLV_SYM, _renge_task_immediate_not_empty, U, U, 034CH, 027H, 00H, 00H
257 257 $DGS GLV_SYM, _system_time, U, U, 0CH, 026H, 00H, 00H
258 258 $DGS GLV_SYM, _tasks_immed, U, U, 0AH, 026H, 01H, 027H
259 259 $DGS AUX_STR, 013H, 00H, 010H, 08H, 00H, 00H, 00H, 04H
260 260 $DGS GLV_SYM, _tsk_sw, U, U, 01H, 02H, 01H, 02H
261 261 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
262 262 $DGS GLV_SYM, _tsk_adc, U, U, 01H, 02H, 01H, 02H
263 263 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
264 264 $DGS GLV_SYM, _tsk_batt, U, U, 01H, 02H, 01H, 02H
265 265 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
266 266 $DGS GLV_SYM, _tsk_led_pow, U, U, 01H, 02H, 01H, 02H
267 267 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
268 268 $DGS GLV_SYM, _tsk_led_wifi, U, U, 01H, 02H, 01H, 02H
269 269 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
270 270 $DGS GLV_SYM, _tsk_led_notify, U, U, 01H, 02H, 01H, 02H
271 271 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
272 272 $DGS GLV_SYM, _tsk_led_cam, U, U, 01H, 02H, 01H, 02H
273 273 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
274 274 $DGS GLV_SYM, _tsk_misc_stat, U, U, 01H, 02H, 01H, 02H
275 275 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
276 276 $DGS GLV_SYM, _tsk_debug, U, U, 01H, 02H, 01H, 02H
277 277 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
278 278 $DGS GLV_SYM, _tsk_debug2, U, U, 01H, 02H, 01H, 02H
279 279 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
280 280 $DGS GLV_SYM, _tsk_sys, U, U, 01H, 02H, 01H, 02H
281 281 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
282 282 $DGS GLV_SYM, _WDT_Restart, U, U, 01H, 02H, 01H, 02H
283 283 $DGS AUX_FUN, 00H, U, U, 00H, 00H, 00H
284 284
285 285 EXTRN _tsk_sw
286 286 EXTRN _tsk_adc
287 287 EXTRN _tsk_batt
288 288 EXTRN _tsk_led_pow
289 289 EXTRN _tsk_led_wifi
290 290 EXTRN _tsk_led_notify
291 291 EXTRN _tsk_led_cam
292 292 EXTRN _tsk_misc_stat
293 293 EXTRN _tsk_debug
294 294 EXTRN _tsk_debug2
295 295 EXTRN _tsk_sys
296 296 EXTRN _WDT_Restart
297 297 PUBLIC _renge_flg_interval
298 298 PUBLIC _renge_task_interval_run_force
299 299 PUBLIC _renge_task_immediate_not_empty
300 300 PUBLIC _system_time
301 301 PUBLIC _tasks_immed
302 302 PUBLIC _renge_init
303 303 PUBLIC _renge_task_interval_run
304 304 PUBLIC _renge_task_immed_add
305 305 PUBLIC _renge_task_immed_run
306 306 PUBLIC _wait_ms
307 307
308 308 ----- @@BITS BSEG
309 309 00000.0 _renge_flg_interval DBIT
310 310 00000.1 _renge_task_interval_run_force DBIT
311 311 00000.2 _renge_task_immediate_not_empty DBIT
312 312
313 313 ----- @@CNST CSEG MIRRORP
314 314
315 315 ----- @@R_INIT CSEG UNIT64KP
316 316 00000 R0000 DW loww (_tsk_sw)
317 317 00002 R0000 DW loww (_tsk_adc)
318 318 00004 R0000 DW loww (_tsk_batt)
319 319 00006 R0000 DW loww (_tsk_led_pow)
320 320 00008 R0000 DW loww (_tsk_led_wifi)
321 321 0000A R0000 DW loww (_tsk_led_notify)
322 322 0000C R0000 DW loww (_tsk_led_cam)
323 323 0000E R0000 DW loww (_tsk_misc_stat)
324 324 00010 R0000 DW loww (_tsk_debug)
325 325 00012 R0000 DW loww (_tsk_debug2)
326 326 00014 R0000 DW loww (_tsk_sys)
327 327
328 328 ----- @@INIT DSEG BASEP
329 329 00000 _tasks: DS (22)
330 330
331 331 ----- @@DATA DSEG BASEP
332 332 00000 _system_time: DS (1)
333 333 00001 DS (1)
334 334 00002 _tasks_immed: DS (16)
335 335
336 336 ----- @@R_INIS CSEG UNIT64KP
337 337
338 338 ----- @@INIS DSEG SADDRP
339 339
340 340 ----- @@DATS DSEG SADDRP
341 341
342 342 ----- @@CNSTL CSEG PAGE64KP
343 343
344 344 ----- @@RLINIT CSEG UNIT64KP
345 345
346 346 ----- @@INITL DSEG UNIT64KP
347 347
348 348 ----- @@DATAL DSEG UNIT64KP
349 349
350 350 ----- @@CALT CSEG CALLT0
351 351
352 352 ; Sub-Routines created by CC78K0R
353 353
354 354 ----- ROM_CODE CSEG BASE
355 355 00000 bs_S0096:
356 356 00000 F0 clrb x ;[INF] 1, 1
357 357 00001 317E shrw ax,7 ;[INF] 2, 1
358 358 00003 12 movw bc,ax ;[INF] 1, 1
359 359 00004 E6 onew ax ;[INF] 1, 1
360 360 00005 R780200 movw _tasks_immed[bc],ax ;[INF] 3, 1
361 361 00008 D7 ret ;[INF] 1, 6
362 362 00009 es_S0096:
363 363
364 364 ----- ROM_CODE CSEG BASE
365 365 00009 bs_S0094:
366 366 00009 8C01 mov a,[hl+1] ;[INF] 2, 1
367 367 0000B F0 clrb x ;[INF] 1, 1
368 368 0000C 317E shrw ax,7 ;[INF] 2, 1
369 369 0000E R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
370 370 00011 14 movw de,ax ;[INF] 1, 1
371 371 00012 A9 movw ax,[de] ;[INF] 1, 1
372 372 00013 6168 or a,x ;[INF] 2, 1
373 373 00015 D7 ret ;[INF] 1, 6
374 374 00016 es_S0094:
375 375
376 376 ----- ROM_CODE CSEG BASE
377 377 00016 bs_S0095:
378 378 00016 8C03 mov a,[hl+3] ;[INF] 2, 1
379 379 00018 F0 clrb x ;[INF] 1, 1
380 380 00019 317E shrw ax,7 ;[INF] 2, 1
381 381 0001B R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
382 382 0001E 14 movw de,ax ;[INF] 1, 1
383 383 0001F A9 movw ax,[de] ;[INF] 1, 1
384 384 00020 6168 or a,x ;[INF] 2, 1
385 385 00022 D7 ret ;[INF] 1, 6
386 386 00023 es_S0095:
387 387
388 388 ; *** Sub-Routine Information ***
389 389 ;
390 390 ; $SUB bs_S0094
391 391 ; CODE SIZE= 13 bytes
392 392 ;
393 393 ; $SUB bs_S0095
394 394 ; CODE SIZE= 13 bytes
395 395 ;
396 396 ; $SUB bs_S0096
397 397 ; CODE SIZE= 9 bytes
398 398
399 399 ; End of Sub-Routines
400 400
401 401 ; line 1 : #pragma section @@CODE ROM_CODE
402 402 ; line 2 : #pragma nop
403 403 ; line 3 : #pragma ei
404 404 ; line 4 : #pragma di
405 405 ; line 5 : #pragma sfr
406 406 ; line 6 :
407 407 ; line 7 : /***************************************************************
408 408 ; ***************
409 409 ; line 8 : <20>^<5E>X<EFBFBD>N<EFBFBD>V<EFBFBD>X<EFBFBD>e<EFBFBD><65><EFBFBD>H
410 410 ; line 9 : <20>Ȃ<EFBFBD><C882>قǁAiTRON<4F>ɂ̓R<CD83><52><EFBFBD>t<EFBFBD>B<EFBFBD>M<EFBFBD><4D><EFBFBD><EFBFBD><EFBFBD>[<5B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD><CD82><EFBFBD><EFBFBD>B
411 411 ; line 10 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>
412 412 ; line 11 : ctr_mcu_config.rb <20>Q<EFBFBD>ƁB task_config.h<><68><EFBFBD><EFBFBD><EC90AC><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
413 413 ; line 12 : ***************************************************************
414 414 ; **************/
415 415 ; line 13 : #include "renge.h"
416 416 ; line 14 : #include "renge_task_intval.h"
417 417 ; line 15 : #include "renge_task_immediate.h"
418 418 ; line 16 : #include "..\WDT.h"
419 419 ; line 17 : #include "..\config.h"
420 420 ; line 18 : #include "..\user_define.h"
421 421 ; line 19 :
422 422 ; line 20 :
423 423 ; line 21 : #define _renge_test_
424 424 ; line 22 :
425 425 ; line 23 : //**************************************************************
426 426 ; ****************
427 427 ; line 24 : bit renge_flg_interval;
428 428 ; line 25 : bit renge_task_interval_run_force;
429 429 ; line 26 : bit renge_task_immediate_not_empty;
430 430 ; line 27 :
431 431 ; line 28 : u8 system_time;
432 432 ; line 29 :
433 433 ; line 30 :
434 434 ; line 31 :
435 435 ; line 32 : #include "..\bsr_system.h"
436 436 ; line 33 : extern system_status_ system_status;
437 437 ; line 34 :
438 438 ; line 35 :
439 439 ; line 36 :
440 440 ; line 37 : //**************************************************************
441 441 ; ****************
442 442 ; line 38 : static void renge_task_immed_init();
443 443 ; line 39 : static void renge_task_immed_del();
444 444 ; line 40 :
445 445 ; line 41 :
446 446 ; line 42 :
447 447 ; line 43 : //**************************************************************
448 448 ; ****************
449 449 ; line 44 : task_status_immed ( *tasks_immed[ TASK_IMMED_RUN_LIST_MAX ] )();
450 450 ; line 45 :
451 451 ; line 46 :
452 452 ; line 47 :
453 453 ; line 48 : /***************************************************************
454 454 ; ***************
455 455 ; line 49 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
456 456 ; line 50 : <20>E<EFBFBD>^<5E>X<EFBFBD>N<EFBFBD>V<EFBFBD>X<EFBFBD>e<EFBFBD><65><EFBFBD>̓<EFBFBD><CC93>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD>̏<EFBFBD><CC8F><EFBFBD><EFBFBD><EFBFBD>
457 457 ; line 51 : <20>E<EFBFBD>C<EFBFBD><43><EFBFBD>^<5E>[<5B>o<EFBFBD><6F><EFBFBD>^<5E>C<EFBFBD>}
458 458 ; line 52 : ***************************************************************
459 459 ; **************/
460 460 ; line 53 : void renge_init(){
461 461
462 462 ----- ROM_CODE CSEG BASE
463 463 00023 _renge_init:
464 464 $DGL 1,33
465 465 00023 ??bf_renge_init:
466 466 ; line 54 : renge_task_immed_init();
467 467 $DGL 0,2
468 468 00023 RED5100 br !_renge_task_immed_init ;[INF] 3, 3
469 469 00026 ??ef_renge_init:
470 470 00026 ??ee_renge_init:
471 471 ; line 55 : /*
472 472 ; line 56 : <20>C<EFBFBD>x<EFBFBD><78><EFBFBD>g<EFBFBD>^<5E>C<EFBFBD>}<7D>̃Z<CC83>b<EFBFBD>g<EFBFBD>Ȃ<EFBFBD>
473 473 ; line 57 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RTC<54>𗬗p<F097AC97><70><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>̂ŃR<C583><52><EFBFBD><EFBFBD><EFBFBD>g<EFBFBD>A<EFBFBD>E<EFBFBD>g
474 474 ; line 58 : #define renge_tick 19xxxxxxx [ms]
475 475 ; line 59 : renge_interval_init(); <20><> RTC_init();
476 476 ; line 60 : */
477 477 ; line 61 : }
478 478 ; line 62 :
479 479 ; line 63 :
480 480 ; line 64 :
481 481 ; line 65 : /***************************************************************
482 482 ; ***************
483 483 ; line 66 : <20>V<EFBFBD>X<EFBFBD>e<EFBFBD><65><EFBFBD>`<60>b<EFBFBD>N<EFBFBD><4E><EFBFBD>i<EFBFBD>߂<EFBFBD>
484 484 ; line 67 : ***************************************************************
485 485 ; **************/
486 486 ; line 68 : /*
487 487 ; line 69 : void renge_interval(){
488 488 ; line 70 : // RTC<54><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD>
489 489 ; line 71 : <20><>__interrupt void int_rtc_int();
490 490 ; line 72 : }
491 491 ; line 73 : */
492 492 ; line 74 :
493 493 ; line 75 :
494 494 ; line 76 :
495 495 ; line 77 : /***************************************************************
496 496 ; ***************
497 497 ; line 78 : <20>R<EFBFBD><52><EFBFBD>p<EFBFBD>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>Ɍ<EFBFBD><C98C>܂<EFBFBD><DC82>Ă<EFBFBD><C482><EFBFBD><EFBFBD>A<EFBFBD>C<EFBFBD><43><EFBFBD>^<5E>[<5B>o<EFBFBD><6F><EFBFBD>N<EFBFBD><4E><EFBFBD>̃^<5E>X<EFBFBD>N
498 498 ; line 79 : <20><><EFBFBD>̂<EFBFBD><CC82><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>ƍ<EFBFBD><C68D><EFBFBD><EFBFBD><EFBFBD><E982A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>B
499 499 ; line 80 : ***************************************************************
500 500 ; **************/
501 501 ; line 81 : err renge_task_interval_run(){
502 502 00026 _renge_task_interval_run:
503 503 $DGL 1,39
504 504 00026 C7 push hl ;[INF] 1, 1
505 505 00027 ??bf_renge_task_interval_run:
506 506 ; line 82 : u8 i;
507 507 ; line 83 :
508 508 ; line 84 : // <20>C<EFBFBD><43><EFBFBD>^<5E>[<5B>o<EFBFBD><6F><EFBFBD>N<EFBFBD><4E>
509 509 ; line 85 : if(( renge_flg_interval == 1 )
510 510 ; line 86 : || ( renge_task_interval_run_force != 0 )) // todo <20><><EFBFBD><EFBFBD>
511 511 $DGL 0,6
512 512 00027 R31020004 bt _renge_flg_interval,$?L0007 ;[INF] 4, 5
513 513 0002B R3114001F bf _renge_task_interval_run_force,$?L0009 ;[INF] 4, 5
514 514 0002F ?L0007:
515 515 ; line 87 : {
516 516 0002F ??bb00_renge_task_interval_run:
517 517 ; line 88 : renge_task_interval_run_force = 0;
518 518 $DGL 0,8
519 519 0002F R711300 clr1 _renge_task_interval_run_force ;[INF] 3, 2
520 520 ; line 89 : renge_flg_interval = 0;
521 521 $DGL 0,9
522 522 00032 R710300 clr1 _renge_flg_interval ;[INF] 3, 2
523 523 ; line 90 : for( i = 0; i != TSK_LAST; i += 1 )
524 524 $DGL 0,10
525 525 00035 5600 mov l,#00H ; 0 ;[INF] 2, 1
526 526 00037 ?L0008:
527 527 00037 66 mov a,l ;[INF] 1, 1
528 528 00038 4C0B cmp a,#0BH ; 11 ;[INF] 2, 1
529 529 0003A DD12 bz $?L0009 ;[INF] 2, 4
530 530 ; line 91 : {
531 531 0003C ??bb01_renge_task_interval_run:
532 532 ; line 92 : tasks[ i ]();
533 533 $DGL 0,12
534 534 0003C 72 mov c,a ;[INF] 1, 1
535 535 0003D F3 clrb b ;[INF] 1, 1
536 536 0003E 311C shlw bc,1 ;[INF] 2, 1
537 537 00040 R790000 movw ax,_tasks[bc] ;[INF] 3, 1
538 538 00043 CEFC00 mov CS,#00H ; 0 ;[INF] 3, 1
539 539 00046 61CA call ax ;[INF] 2, 3
540 540 ; line 93 : // <20><><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD>
541 541 ; line 94 : renge_task_immed_run();
542 542 $DGL 0,14
543 543 00048 RFDA800 call !_renge_task_immed_run ;[INF] 3, 3
544 544 0004B ??eb01_renge_task_interval_run:
545 545 ; line 95 : }
546 546 $DGL 0,15
547 547 0004B 86 inc l ;[INF] 1, 1
548 548 0004C EFE9 br $?L0008 ;[INF] 2, 3
549 549 0004E ?L0009:
550 550 0004E ??eb00_renge_task_interval_run:
551 551 ; line 96 : }
552 552 ; line 97 : return( ERR_SUCCESS );
553 553 $DGL 0,17
554 554 0004E F7 clrw bc ;[INF] 1, 1
555 555 ; line 98 : }
556 556 $DGL 0,18
557 557 0004F ??ef_renge_task_interval_run:
558 558 0004F C6 pop hl ;[INF] 1, 1
559 559 00050 D7 ret ;[INF] 1, 6
560 560 00051 ??ee_renge_task_interval_run:
561 561 ; line 99 :
562 562 ; line 100 :
563 563 ; line 101 :
564 564 ; line 102 : /***************************************************************
565 565 ; **************
566 566 ; line 103 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>^<5E>X<EFBFBD>N<EFBFBD><4E>
567 567 ; line 104 :
568 568 ; line 105 : <20><>task_immed <20><><EFBFBD>Ԃ<EFBFBD><D482>֐<EFBFBD><D690>B
569 569 ; line 106 : <20><><EFBFBD>V<EFBFBD>X<EFBFBD>e<EFBFBD><65>tick<63>A<EFBFBD><41><EFBFBD><EFBFBD>̊<EFBFBD><CC8A><EFBFBD>݁iI2C<32>ʐM<CA90><4D><EFBFBD><EFBFBD><EFBFBD>Ȃǁj<C781><6A>
570 570 ; line 107 : <20>X<EFBFBD><58><EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD><EFBFBD><EFBFBD>^<5E>C<EFBFBD>~<7E><><EFBFBD>O<EFBFBD>Ŏ<EFBFBD><C58E>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
571 571 ; line 108 :
572 572 ; line 109 : <20><><EFBFBD>Ԓl<D492>@ERR_FINISED<45>@<40>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD>
573 573 ; line 110 : <20>@<40>@<40>@<40>@<40><><EFBFBD><EFBFBD><EFBFBD>ȊO <20><><EFBFBD>̃^<5E>C<EFBFBD>~<7E><><EFBFBD>O<EFBFBD>ł܂<C582><DC82><EFBFBD><EFBFBD>s
574 574 ; line 111 :
575 575 ; line 112 : ***************************************************************
576 576 ; **************/
577 577 ; line 113 :
578 578 ; line 114 :
579 579 ; line 115 : /**************************************
580 580 ; line 116 : **************************************/
581 581 ; line 117 : void renge_task_immed_init(){
582 582 00051 _renge_task_immed_init:
583 583 $DGL 1,54
584 584 00051 C7 push hl ;[INF] 1, 1
585 585 00052 ??bf_renge_task_immed_init:
586 586 ; line 118 : u8 i;
587 587 ; line 119 :
588 588 ; line 120 : for( i = 0; i < TASK_IMMED_RUN_LIST_MAX; i++ ){
589 589 $DGL 0,4
590 590 00052 5600 mov l,#00H ; 0 ;[INF] 2, 1
591 591 00054 ?L0013:
592 592 00054 66 mov a,l ;[INF] 1, 1
593 593 00055 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
594 594 00057 DE0B bnc $?L0014 ;[INF] 2, 4
595 595 00059 ??bb00_renge_task_immed_init:
596 596 ; line 121 : tasks_immed[ i ] = TSK_IMM_EMPTY_;
597 597 $DGL 0,5
598 598 00059 F0 clrb x ;[INF] 1, 1
599 599 0005A 317E shrw ax,7 ;[INF] 2, 1
600 600 0005C 12 movw bc,ax ;[INF] 1, 1
601 601 0005D F6 clrw ax ;[INF] 1, 1
602 602 0005E R780200 movw _tasks_immed[bc],ax ;[INF] 3, 1
603 603 00061 ??eb00_renge_task_immed_init:
604 604 ; line 122 : }
605 605 $DGL 0,6
606 606 00061 86 inc l ;[INF] 1, 1
607 607 00062 EFF0 br $?L0013 ;[INF] 2, 3
608 608 00064 ?L0014:
609 609 ; line 123 : }
610 610 $DGL 0,7
611 611 00064 ??ef_renge_task_immed_init:
612 612 00064 C6 pop hl ;[INF] 1, 1
613 613 00065 D7 ret ;[INF] 1, 6
614 614 00066 ??ee_renge_task_immed_init:
615 615 ; line 124 :
616 616 ; line 125 :
617 617 ; line 126 :
618 618 ; line 127 : /**************************************
619 619 ; line 128 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD>^<5E>X<EFBFBD>N<EFBFBD>̓o<CC93>^
620 620 ; line 129 : <20><><EFBFBD><EFBFBD>݋֎~ 36us <20><>
621 621 ; line 130 : **************************************/
622 622 ; line 131 : err renge_task_immed_add( task_status* new_task ){
623 623 00066 _renge_task_immed_add:
624 624 $DGL 1,65
625 625 00066 C7 push hl ;[INF] 1, 1
626 626 00067 C1 push ax ;[INF] 1, 1
627 627 00068 C1 push ax ;[INF] 1, 1
628 628 00069 FBF8FF movw hl,sp ;[INF] 3, 1
629 629 0006C ??bf_renge_task_immed_add:
630 630 ; line 132 : u8 i;
631 631 ; line 133 :
632 632 ; line 134 : // <20><><EFBFBD>X<EFBFBD>g<EFBFBD>̋󂫂̐擪<CC90>ɓo<C993>^
633 633 ; line 135 : // <20><EFBFBD><ED8F9C><EFBFBD><EFBFBD><EFBFBD>΂<EFBFBD><CE82><EFBFBD><EFBFBD>̃^<5E>X<EFBFBD>N<EFBFBD>́A<CD81><EFBFBD>}<7D>[<5B>N(TSK_IMM_DELETED_)<29>Ƃ<EFBFBD>
634 634 ; <20><><EFBFBD>A<EFBFBD>󂫂Ƃ͖<C682><CD96><EFBFBD><EFBFBD>I<EFBFBD>ɋ<EFBFBD><C98B>ʂ<EFBFBD><CA82><EFBFBD><EFBFBD><EFBFBD>
635 635 ; line 136 : // <20>d<EFBFBD><64><EFBFBD>o<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
636 636 ; line 137 : for( i = 0; i < TASK_IMMED_RUN_LIST_MAX; i += 1 )
637 637 $DGL 0,7
638 638 0006C CC0100 mov [hl+1],#00H ; i,0 ;[INF] 3, 1
639 639 0006F ?L0018:
640 640 0006F 8C01 mov a,[hl+1] ; i ;[INF] 2, 1
641 641 00071 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
642 642 00073 DE2D bnc $?L0019 ;[INF] 2, 4
643 643 ; line 138 : {
644 644 00075 ??bb00_renge_task_immed_add:
645 645 ; line 139 : if( tasks_immed[ i ] != TSK_IMM_EMPTY_ )
646 646 $DGL 0,9
647 647 00075 RFD0900 call !bs_S0094 ;[INF] 3, 3
648 648 00078 DD0A bz $?L0021 ;[INF] 2, 4
649 649 ; line 140 : {
650 650 0007A ??bb01_renge_task_immed_add:
651 651 ; line 141 : // <20>d<EFBFBD><64><EFBFBD>o<EFBFBD>^<5E>`<60>F<EFBFBD>b<EFBFBD>N
652 652 ; line 142 : if( tasks_immed[ i ] == new_task )
653 653 $DGL 0,12
654 654 0007A A9 movw ax,[de] ;[INF] 1, 1
655 655 0007B 614902 cmpw ax,[hl+2] ; new_task ;[INF] 3, 1
656 656 0007E DF1D bnz $?L0022 ;[INF] 2, 4
657 657 ; line 143 : {
658 658 00080 ??bb02_renge_task_immed_add:
659 659 ; line 144 : // <20>d<EFBFBD><64><EFBFBD>o<EFBFBD>^<5E>͂<EFBFBD><CD82>Ȃ<EFBFBD>
660 660 ; line 145 : NOP();
661 661 $DGL 0,15
662 662 00080 00 nop ;[INF] 1, 1
663 663 ; line 146 : return( ERR_ERR );
664 664 $DGL 0,16
665 665 00081 E7 onew bc ;[INF] 1, 1
666 666 00082 EF20 br $?L0017 ;[INF] 2, 3
667 667 00084 ??eb02_renge_task_immed_add:
668 668 ; line 147 : }
669 669 ; line 148 : }
670 670 00084 ??eb01_renge_task_immed_add:
671 671 00084 ?L0021:
672 672 ; line 149 : else
673 673 ; line 150 : {
674 674 00084 ??bb03_renge_task_immed_add:
675 675 ; line 151 : // <20>󂫂<EFBFBD><F382AB82><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD>
676 676 ; line 152 : // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><E982A4><EFBFBD>Ɋ<EFBFBD><C98A><EFBFBD>ݓ<EFBFBD><DD93><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD><EFBFBD>
677 677 ; <20><><EFBFBD>l<EFBFBD><6C>
678 678 ; line 153 : // <20>ő<EFBFBD><C591>ɂȂ<C982><C882>͂<EFBFBD><CD82><EFBFBD><EFBFBD><EFBFBD>
679 679 ; line 154 : for( ; i < TASK_IMMED_RUN_LIST_MAX; i += 1 )
680 680 $DGL 0,24
681 681 00084 8C01 mov a,[hl+1] ; i ;[INF] 2, 1
682 682 00086 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
683 683 00088 DE10 bnc $?L0026 ;[INF] 2, 4
684 684 ; line 155 : {
685 685 0008A ??bb04_renge_task_immed_add:
686 686 ; line 156 : if( tasks_immed[ i ] == TSK_IMM_EMPTY_ )
687 687 $DGL 0,26
688 688 0008A RFD0900 call !bs_S0094 ;[INF] 3, 3
689 689 0008D DF06 bnz $?L0028 ;[INF] 2, 4
690 690 ; line 157 : {
691 691 0008F ??bb05_renge_task_immed_add:
692 692 ; line 158 : tasks_immed[ i ] = new_task;
693 693 $DGL 0,28
694 694 0008F AC02 movw ax,[hl+2] ; new_task ;[INF] 2, 1
695 695 00091 B9 movw [de],ax ;[INF] 1, 1
696 696 ; line 159 : return( ERR_SUCCESS );
697 697 $DGL 0,29
698 698 00092 F7 clrw bc ;[INF] 1, 1
699 699 00093 EF0F br $?L0017 ;[INF] 2, 3
700 700 00095 ??eb05_renge_task_immed_add:
701 701 ; line 160 : }
702 702 00095 ?L0028:
703 703 00095 ??eb04_renge_task_immed_add:
704 704 ; line 161 : }
705 705 $DGL 0,31
706 706 00095 615901 inc [hl+1] ; i ;[INF] 3, 2
707 707 00098 EFEA br $?L0021 ;[INF] 2, 3
708 708 0009A ?L0026:
709 709 ; line 162 : // <20><><EFBFBD><EFBFBD>܂<EFBFBD><DC82>ă^<5E>X<EFBFBD>N<EFBFBD>o<EFBFBD>^<5E>ł<EFBFBD><C582>Ȃ<EFBFBD><C882>Ȃ<EFBFBD><C882><EFBFBD>
710 710 ; line 163 : return( ERR_ERR );
711 711 $DGL 0,33
712 712 0009A E7 onew bc ;[INF] 1, 1
713 713 0009B EF07 br $?L0017 ;[INF] 2, 3
714 714 0009D ??eb03_renge_task_immed_add:
715 715 ; line 164 : }
716 716 0009D ?L0022:
717 717 0009D ??eb00_renge_task_immed_add:
718 718 ; line 165 : }
719 719 $DGL 0,35
720 720 0009D 615901 inc [hl+1] ; i ;[INF] 3, 2
721 721 000A0 EFCD br $?L0018 ;[INF] 2, 3
722 722 000A2 ?L0019:
723 723 ; line 166 : // <20>^<5E>X<EFBFBD>N<EFBFBD>o<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD>
724 724 ; line 167 : NOP(); // <20>f<EFBFBD>o<EFBFBD>b<EFBFBD>K<EFBFBD>ŕ߂܂<DF82><DC82><EFBFBD><E982BD>
725 725 $DGL 0,37
726 726 000A2 00 nop ;[INF] 1, 1
727 727 ; line 168 : return( ERR_ERR );
728 728 $DGL 0,38
729 729 000A3 E7 onew bc ;[INF] 1, 1
730 730 ; line 169 : }
731 731 000A4 ?L0017:
732 732 $DGL 0,39
733 733 000A4 ??ef_renge_task_immed_add:
734 734 000A4 1004 addw sp,#04H ;[INF] 2, 1
735 735 000A6 C6 pop hl ;[INF] 1, 1
736 736 000A7 D7 ret ;[INF] 1, 6
737 737 000A8 ??ee_renge_task_immed_add:
738 738 ; line 170 :
739 739 ; line 171 :
740 740 ; line 172 :
741 741 ; line 173 : /**************************************
742 742 ; line 174 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD>^<5E>X<EFBFBD>N<EFBFBD>̎<EFBFBD><CC8E>s
743 743 ; line 175 : **************************************/
744 744 ; line 176 : err renge_task_immed_run(){
745 745 000A8 _renge_task_immed_run:
746 746 $DGL 1,98
747 747 000A8 C7 push hl ;[INF] 1, 1
748 748 000A9 2004 subw sp,#04H ;[INF] 2, 1
749 749 000AB FBF8FF movw hl,sp ;[INF] 3, 1
750 750 000AE ??bf_renge_task_immed_run:
751 751 ; line 177 : u8 list_id;
752 752 ; line 178 : u8 last_task_id;
753 753 ; line 179 :
754 754 ; line 180 : do{
755 755 000AE ??bb00_renge_task_immed_run:
756 756 ; line 181 : last_task_id = 0xFF;
757 757 $DGL 0,6
758 758 000AE CC02FF mov [hl+2],#0FFH ; last_task_id,255 ;[INF] 3, 1
759 759 ; line 182 : for( list_id = 0; list_id < TASK_IMMED_RUN_LIST_MAX; list_
760 760 ; id += 1 ){
761 761 $DGL 0,7
762 762 000B1 CC0300 mov [hl+3],#00H ; list_id,0 ;[INF] 3, 1
763 763 000B4 ?L0035:
764 764 000B4 8C03 mov a,[hl+3] ; list_id ;[INF] 2, 1
765 765 000B6 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
766 766 000B8 DE42 bnc $?L0036 ;[INF] 2, 4
767 767 000BA ??bb01_renge_task_immed_run:
768 768 ; line 183 : if( tasks_immed[ list_id ] != TSK_IMM_EMPTY_ ){
769 769 $DGL 0,8
770 770 000BA RFD1600 call !bs_S0095 ;[INF] 3, 3
771 771 000BD DD24 bz $?L0038 ;[INF] 2, 4
772 772 000BF ??bb02_renge_task_immed_run:
773 773 ; line 184 : #ifdef _renge_test_
774 774 ; line 185 : if( tasks_immed[ list_id ] == TSK_IMM_DELETED_ )
775 775 $DGL 0,10
776 776 000BF A9 movw ax,[de] ;[INF] 1, 1
777 777 000C0 E7 onew bc ;[INF] 1, 1
778 778 000C1 43 cmpw ax,bc ;[INF] 1, 1
779 779 000C2 DF03 bnz $?L0040 ;[INF] 2, 4
780 780 ; line 186 : {
781 781 000C4 ??bb03_renge_task_immed_run:
782 782 ; line 187 : NOP();
783 783 $DGL 0,12
784 784 000C4 00 nop ;[INF] 1, 1
785 785 000C5 ??eb03_renge_task_immed_run:
786 786 ; line 188 : // <20>^<5E>X<EFBFBD>N<EFBFBD>Ǘ<EFBFBD><C797>̕s<CC95><73>
787 787 ; line 189 : // <20><><EFBFBD>݂<EFBFBD><DD82>Ȃ<EFBFBD><C882>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD>Ƃ<EFBFBD><C682><EFBFBD>
788 788 ; line 190 : // <20>^<5E>X<EFBFBD>N<EFBFBD>̍폜<CC8D><ED8F9C><EFBFBD>̏<EFBFBD><CC8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>
789 789 ; line 191 : // <20>\<5C><><EFBFBD><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>^<5E>C<EFBFBD>~<7E><><EFBFBD>O<EFBFBD><4F> immed_run <20><><EFBFBD>Ă΂ꂽ
790 790 ; line 192 : }
791 791 $DGL 0,17
792 792 000C5 EF30 br $?L0039 ;[INF] 2, 3
793 793 000C7 ?L0040:
794 794 ; line 193 : else
795 795 ; line 194 : #endif
796 796 ; line 195 : {
797 797 000C7 ??bb04_renge_task_immed_run:
798 798 ; line 196 : if( tasks_immed[ list_id ]() == ERR_SUCCESS )
799 799 $DGL 0,21
800 800 000C7 8C03 mov a,[hl+3] ; list_id ;[INF] 2, 1
801 801 000C9 72 mov c,a ;[INF] 1, 1
802 802 000CA F3 clrb b ;[INF] 1, 1
803 803 000CB 311C shlw bc,1 ;[INF] 2, 1
804 804 000CD R790200 movw ax,_tasks_immed[bc] ;[INF] 3, 1
805 805 000D0 CEFC00 mov CS,#00H ; 0 ;[INF] 3, 1
806 806 000D3 61CA call ax ;[INF] 2, 3
807 807 000D5 D2 cmp0 c ;[INF] 1, 1
808 808 000D6 DF05 bnz $?L0042 ;[INF] 2, 4
809 809 ; line 197 : {
810 810 000D8 ??bb05_renge_task_immed_run:
811 811 ; line 198 : tasks_immed[ list_id ] = TSK_IMM_DELETED_;
812 812 $DGL 0,23
813 813 000D8 8C03 mov a,[hl+3] ; list_id ;[INF] 2, 1
814 814 000DA RFD0000 call !bs_S0096 ;[INF] 3, 3
815 815 000DD ??eb05_renge_task_immed_run:
816 816 ; line 199 : }
817 817 000DD ?L0042:
818 818 ; line 200 : last_task_id = list_id;
819 819 $DGL 0,25
820 820 000DD 8C03 mov a,[hl+3] ; list_id ;[INF] 2, 1
821 821 000DF 9C02 mov [hl+2],a ; last_task_id ;[INF] 2, 1
822 822 000E1 ??eb04_renge_task_immed_run:
823 823 ; line 201 : }
824 824 ; line 202 : }
825 825 $DGL 0,27
826 826 000E1 ??eb02_renge_task_immed_run:
827 827 000E1 EF14 br $?L0039 ;[INF] 2, 3
828 828 000E3 ?L0038:
829 829 ; line 203 : #ifdef _renge_test_
830 830 ; line 204 : else
831 831 ; line 205 : {
832 832 000E3 ??bb06_renge_task_immed_run:
833 833 ; line 206 : list_id += 1;
834 834 $DGL 0,31
835 835 000E3 615903 inc [hl+3] ; list_id ;[INF] 3, 2
836 836 ; line 207 : for( ; list_id < TASK_IMMED_RUN_LIST_MAX; list_id+
837 837 ; + )
838 838 $DGL 0,32
839 839 000E6 ?L0044:
840 840 000E6 8C03 mov a,[hl+3] ; list_id ;[INF] 2, 1
841 841 000E8 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
842 842 000EA DE10 bnc $?L0036 ;[INF] 2, 4
843 843 ; line 208 : {
844 844 000EC ??bb07_renge_task_immed_run:
845 845 ; line 209 : if( tasks_immed[ list_id ] != TSK_IMM_EMPTY_ )
846 846 $DGL 0,34
847 847 000EC RFD1600 call !bs_S0095 ;[INF] 3, 3
848 848 000EF 61E8 skz ;[INF] 2, 1
849 849 ; line 210 : {
850 850 000F1 ??bb08_renge_task_immed_run:
851 851 ; line 211 : NOP(); // ?
852 852 $DGL 0,36
853 853 000F1 00 nop ;[INF] 1, 1
854 854 000F2 ??eb08_renge_task_immed_run:
855 855 ; line 212 : }
856 856 000F2 ?L0047:
857 857 000F2 ??eb07_renge_task_immed_run:
858 858 ; line 213 : }
859 859 $DGL 0,38
860 860 000F2 615903 inc [hl+3] ; list_id ;[INF] 3, 2
861 861 000F5 EFEF br $?L0044 ;[INF] 2, 3
862 862 ; line 214 : break;
863 863 000F7 ??eb06_renge_task_immed_run:
864 864 ; line 215 : }
865 865 000F7 ?L0039:
866 866 000F7 ??eb01_renge_task_immed_run:
867 867 ; line 216 : #endif
868 868 ; line 217 : }
869 869 $DGL 0,42
870 870 000F7 615903 inc [hl+3] ; list_id ;[INF] 3, 2
871 871 000FA EFB8 br $?L0035 ;[INF] 2, 3
872 872 000FC ?L0036:
873 873 ; line 218 :
874 874 ; line 219 : // <20>^<5E>X<EFBFBD>N<EFBFBD>
875 875 ; line 220 : {
876 876 000FC ??bb09_renge_task_immed_run:
877 877 ; line 221 : if( last_task_id != 0xFF )
878 878 $DGL 0,46
879 879 000FC 8C02 mov a,[hl+2] ; last_task_id ;[INF] 2, 1
880 880 000FE 81 inc a ;[INF] 1, 1
881 881 000FF 61F8 sknz ;[INF] 2, 1
882 882 00101 REDF001 br !?L0049 ;[INF] 3, 3
883 883 ; line 222 : {
884 884 00104 ??bb0A_renge_task_immed_run:
885 885 ; line 223 : u8 i,j;
886 886 ; line 224 :
887 887 ; line 225 : #ifdef _renge_test_
888 888 ; line 226 : if ( tasks_immed[ 1 ] != 0 ){
889 889 $DGL 0,51
890 890 00104 F6 clrw ax ;[INF] 1, 1
891 891 00105 R420400 cmpw ax,!_tasks_immed+2 ;[INF] 3, 1
892 892 00108 61E8 skz ;[INF] 2, 1
893 893 0010A ??bb0B_renge_task_immed_run:
894 894 ; line 227 : NOP();
895 895 $DGL 0,52
896 896 0010A 00 nop ;[INF] 1, 1
897 897 0010B ??eb0B_renge_task_immed_run:
898 898 ; line 228 : }
899 899 0010B ?L0051:
900 900 ; line 229 : #endif
901 901 ; line 230 : // <20><><EFBFBD>X<EFBFBD>g<EFBFBD>O<EFBFBD>l<EFBFBD><6C>
902 902 ; line 231 :
903 903 ; line 232 : i = 0; // <20>O<EFBFBD>l<EFBFBD>ߌナ<DF8C>X<EFBFBD>g<EFBFBD>̍Ō<CC8D><C58C><EFBFBD>
904 904 $DGL 0,57
905 905 0010B CC0100 mov [hl+1],#00H ; i,0 ;[INF] 3, 1
906 906 ; line 233 : j = 1; // <20><><EFBFBD>X<EFBFBD>g<EFBFBD>̌<EFBFBD><CC8C><EFBFBD><EFBFBD>̕<EFBFBD><CC95>̃^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD>T<EFBFBD><54>
907 907 $DGL 0,58
908 908 0010E CC0001 mov [hl+0],#01H ; j,1 ;[INF] 3, 1
909 909 ; line 234 : for( ; j < TASK_IMMED_RUN_LIST_MAX; j++ )
910 910 $DGL 0,59
911 911 00111 ?L0053:
912 912 00111 8B mov a,[hl] ; j ;[INF] 1, 1
913 913 00112 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
914 914 00114 61C8 skc ;[INF] 2, 1
915 915 00116 REDA501 br !?L0054 ;[INF] 3, 3
916 916 ; line 235 : {
917 917 00119 ??bb0C_renge_task_immed_run:
918 918 ; line 236 : DI();
919 919 $DGL 0,61
920 920 00119 717BFA di ;[INF] 3, 4
921 921 ; line 237 : if( tasks_immed[ i ] == TSK_IMM_DELETED_ )
922 922 $DGL 0,62
923 923 0011C 8C01 mov a,[hl+1] ; i ;[INF] 2, 1
924 924 0011E F0 clrb x ;[INF] 1, 1
925 925 0011F 317E shrw ax,7 ;[INF] 2, 1
926 926 00121 12 movw bc,ax ;[INF] 1, 1
927 927 00122 R790200 movw ax,_tasks_immed[bc] ;[INF] 3, 1
928 928 00125 E7 onew bc ;[INF] 1, 1
929 929 00126 43 cmpw ax,bc ;[INF] 1, 1
930 930 00127 DF62 bnz $?L0056 ;[INF] 2, 4
931 931 ; line 238 : {
932 932 00129 ??bb0D_renge_task_immed_run:
933 933 ; line 239 : if( tasks_immed[ j ] == TSK_IMM_EMPTY_ )
934 934 $DGL 0,64
935 935 00129 8B mov a,[hl] ; j ;[INF] 1, 1
936 936 0012A F0 clrb x ;[INF] 1, 1
937 937 0012B 317E shrw ax,7 ;[INF] 2, 1
938 938 0012D R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
939 939 00130 14 movw de,ax ;[INF] 1, 1
940 940 00131 A9 movw ax,[de] ;[INF] 1, 1
941 941 00132 6168 or a,x ;[INF] 2, 1
942 942 00134 DF34 bnz $?L0058 ;[INF] 2, 4
943 943 ; line 240 : {
944 944 00136 ??bb0E_renge_task_immed_run:
945 945 ; line 241 : // <20><><EFBFBD>X<EFBFBD>g<EFBFBD>̍Ōゾ<C58C><E382BE><EFBFBD><EFBFBD>
946 946 ; line 242 : for( ; i < j ; i += 1 )
947 947 $DGL 0,67
948 948 00136 ?L0060:
949 949 00136 8C01 mov a,[hl+1] ; i ;[INF] 2, 1
950 950 00138 4D cmp a,[hl] ; j ;[INF] 1, 1
951 951 00139 DE0F bnc $?L0061 ;[INF] 2, 4
952 952 ; line 243 : {
953 953 0013B ??bb0F_renge_task_immed_run:
954 954 ; line 244 : tasks_immed[ i ] = TSK_IMM_EMPTY_;
955 955 $DGL 0,69
956 956 0013B 8C01 mov a,[hl+1] ; i ;[INF] 2, 1
957 957 0013D F0 clrb x ;[INF] 1, 1
958 958 0013E 317E shrw ax,7 ;[INF] 2, 1
959 959 00140 12 movw bc,ax ;[INF] 1, 1
960 960 00141 F6 clrw ax ;[INF] 1, 1
961 961 00142 R780200 movw _tasks_immed[bc],ax ;[INF] 3, 1
962 962 00145 ??eb0F_renge_task_immed_run:
963 963 ; line 245 : }
964 964 $DGL 0,70
965 965 00145 615901 inc [hl+1] ; i ;[INF] 3, 2
966 966 00148 EFEC br $?L0060 ;[INF] 2, 3
967 967 0014A ?L0061:
968 968 ; line 246 : #ifdef _renge_test_
969 969 ; line 247 : /// <20>ق<EFBFBD><D982><EFBFBD>?
970 970 ; line 248 : j += 1;
971 971 $DGL 0,73
972 972 0014A 615900 inc [hl+0] ; j ;[INF] 3, 2
973 973 ; line 249 : for( ; j < TASK_IMMED_RUN_LIST_MAX; j+
974 974 ; + )
975 975 $DGL 0,74
976 976 0014D ?L0063:
977 977 0014D 8B mov a,[hl] ; j ;[INF] 1, 1
978 978 0014E 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
979 979 00150 DE13 bnc $?L0064 ;[INF] 2, 4
980 980 ; line 250 : {
981 981 00152 ??bb10_renge_task_immed_run:
982 982 ; line 251 : if( tasks_immed[ j ] != TSK_IMM_EM
983 983 ; PTY_ )
984 984 $DGL 0,76
985 985 00152 8B mov a,[hl] ; j ;[INF] 1, 1
986 986 00153 F0 clrb x ;[INF] 1, 1
987 987 00154 317E shrw ax,7 ;[INF] 2, 1
988 988 00156 R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
989 989 00159 14 movw de,ax ;[INF] 1, 1
990 990 0015A A9 movw ax,[de] ;[INF] 1, 1
991 991 0015B 6168 or a,x ;[INF] 2, 1
992 992 0015D 61E8 skz ;[INF] 2, 1
993 993 ; line 252 : {
994 994 0015F ??bb11_renge_task_immed_run:
995 995 ; line 253 : NOP(); // ?
996 996 $DGL 0,78
997 997 0015F 00 nop ;[INF] 1, 1
998 998 00160 ??eb11_renge_task_immed_run:
999 999 ; line 254 : }
1000 1000 00160 ?L0066:
1001 1001 ; line 255 : }
1002 1002 $DGL 0,80
1003 1003 00160 ??eb10_renge_task_immed_run:
1004 1004 00160 615900 inc [hl+0] ; j ;[INF] 3, 2
1005 1005 00163 EFE8 br $?L0063 ;[INF] 2, 3
1006 1006 00165 ?L0064:
1007 1007 ; line 256 : #endif
1008 1008 ; line 257 : EI();
1009 1009 $DGL 0,82
1010 1010 00165 717AFA ei ;[INF] 3, 4
1011 1011 ; line 258 : break;
1012 1012 $DGL 0,83
1013 1013 00168 EF3B br $?L0054 ;[INF] 2, 3
1014 1014 0016A ??eb0E_renge_task_immed_run:
1015 1015 ; line 259 : }
1016 1016 0016A ?L0058:
1017 1017 ; line 260 : if( tasks_immed[ j ] != TSK_IMM_DELETED_ )
1018 1018 $DGL 0,85
1019 1019 0016A 8B mov a,[hl] ; j ;[INF] 1, 1
1020 1020 0016B F0 clrb x ;[INF] 1, 1
1021 1021 0016C 317E shrw ax,7 ;[INF] 2, 1
1022 1022 0016E R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
1023 1023 00171 14 movw de,ax ;[INF] 1, 1
1024 1024 00172 A9 movw ax,[de] ;[INF] 1, 1
1025 1025 00173 E7 onew bc ;[INF] 1, 1
1026 1026 00174 43 cmpw ax,bc ;[INF] 1, 1
1027 1027 00175 DD1D bz $?L0057 ;[INF] 2, 4
1028 1028 ; line 261 : {
1029 1029 00177 ??bb12_renge_task_immed_run:
1030 1030 ; line 262 : // <20>T<EFBFBD><54><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>O<EFBFBD>l<EFBFBD>߂<EFBFBD><DF82>ׂ<EFBFBD><D782>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD>
1031 1031 ; line 263 : tasks_immed[ i ] = tasks_immed[ j ];
1032 1032 $DGL 0,88
1033 1033 00177 A9 movw ax,[de] ;[INF] 1, 1
1034 1034 00178 12 movw bc,ax ;[INF] 1, 1
1035 1035 00179 8C01 mov a,[hl+1] ; i ;[INF] 2, 1
1036 1036 0017B F0 clrb x ;[INF] 1, 1
1037 1037 0017C 317E shrw ax,7 ;[INF] 2, 1
1038 1038 0017E 33 xchw ax,bc ;[INF] 1, 1
1039 1039 0017F R780200 movw _tasks_immed[bc],ax ;[INF] 3, 1
1040 1040 ; line 264 : tasks_immed[ j ] = TSK_IMM_DELETED_;
1041 1041 $DGL 0,89
1042 1042 00182 8B mov a,[hl] ; j ;[INF] 1, 1
1043 1043 00183 RFD0000 call !bs_S0096 ;[INF] 3, 3
1044 1044 ; line 265 : i += 1;
1045 1045 $DGL 0,90
1046 1046 00186 615901 inc [hl+1] ; i ;[INF] 3, 2
1047 1047 00189 ??eb12_renge_task_immed_run:
1048 1048 ; line 266 : }
1049 1049 ; line 267 : }
1050 1050 $DGL 0,92
1051 1051 00189 ??eb0D_renge_task_immed_run:
1052 1052 00189 EF09 br $?L0057 ;[INF] 2, 3
1053 1053 0018B ?L0056:
1054 1054 ; line 268 : else
1055 1055 ; line 269 : {
1056 1056 0018B ??bb13_renge_task_immed_run:
1057 1057 ; line 270 : #ifdef _renge_test_
1058 1058 ; line 271 : // <20>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD>ؗ<EFBFBD>
1059 1059 ; line 272 : if( tasks_immed[ i ] == TSK_IMM_EMPTY_ )
1060 1060 $DGL 0,97
1061 1061 0018B RFD0900 call !bs_S0094 ;[INF] 3, 3
1062 1062 0018E 61F8 sknz ;[INF] 2, 1
1063 1063 ; line 273 : {
1064 1064 00190 ??bb14_renge_task_immed_run:
1065 1065 ; line 274 : NOP();
1066 1066 $DGL 0,99
1067 1067 00190 00 nop ;[INF] 1, 1
1068 1068 00191 ??eb14_renge_task_immed_run:
1069 1069 ; line 275 : // <20><><EFBFBD><EFBFBD><EFBFBD>Ȃ͂<C882><CD82>Ȃ<EFBFBD>
1070 1070 ; line 276 : }
1071 1071 00191 ?L0070:
1072 1072 ; line 277 : #endif
1073 1073 ; line 278 : i += 1;
1074 1074 $DGL 0,103
1075 1075 00191 615901 inc [hl+1] ; i ;[INF] 3, 2
1076 1076 00194 ??eb13_renge_task_immed_run:
1077 1077 ; line 279 : }
1078 1078 00194 ?L0057:
1079 1079 ; line 280 : EI();
1080 1080 $DGL 0,105
1081 1081 00194 717AFA ei ;[INF] 3, 4
1082 1082 ; line 281 : if( tasks_immed[ i ] == TSK_IMM_EMPTY_ )
1083 1083 $DGL 0,106
1084 1084 00197 RFD0900 call !bs_S0094 ;[INF] 3, 3
1085 1085 0019A DF03 bnz $?L0072 ;[INF] 2, 4
1086 1086 ; line 282 : {
1087 1087 0019C ??bb15_renge_task_immed_run:
1088 1088 ; line 283 : #ifdef _renge_test_
1089 1089 ; line 284 : NOP();
1090 1090 $DGL 0,109
1091 1091 0019C 00 nop ;[INF] 1, 1
1092 1092 ; line 285 : #endif
1093 1093 ; line 286 : break;
1094 1094 $DGL 0,111
1095 1095 0019D EF06 br $?L0054 ;[INF] 2, 3
1096 1096 0019F ??eb15_renge_task_immed_run:
1097 1097 ; line 287 : // <20><><EFBFBD>X<EFBFBD>g<EFBFBD>̍Ōゾ<C58C><E382BE><EFBFBD><EFBFBD>
1098 1098 ; line 288 : }
1099 1099 0019F ?L0072:
1100 1100 0019F ??eb0C_renge_task_immed_run:
1101 1101 ; line 289 : }
1102 1102 $DGL 0,114
1103 1103 0019F 615900 inc [hl+0] ; j ;[INF] 3, 2
1104 1104 001A2 RED1101 br !?L0053 ;[INF] 3, 3
1105 1105 001A5 ?L0054:
1106 1106 ; line 290 : DI();
1107 1107 $DGL 0,115
1108 1108 001A5 717BFA di ;[INF] 3, 4
1109 1109 ; line 291 :
1110 1110 ; line 292 : // <20><><EFBFBD><EFBFBD><EFBFBD>܂łŊ<C582><C58A>S<EFBFBD>ɑO<C991>l<EFBFBD>߂<EFBFBD><DF82><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD>
1111 1111 ; line 293 : for( j = 0; j < TASK_IMMED_RUN_LIST_MAX; j++ )
1112 1112 $DGL 0,118
1113 1113 001A8 CC0000 mov [hl+0],#00H ; j,0 ;[INF] 3, 1
1114 1114 001AB ?L0074:
1115 1115 001AB 8B mov a,[hl] ; j ;[INF] 1, 1
1116 1116 001AC 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
1117 1117 001AE DE3D bnc $?L0075 ;[INF] 2, 4
1118 1118 ; line 294 : {
1119 1119 001B0 ??bb16_renge_task_immed_run:
1120 1120 ; line 295 : if( tasks_immed[ j ] == TSK_IMM_EMPTY_ )
1121 1121 $DGL 0,120
1122 1122 001B0 8B mov a,[hl] ; j ;[INF] 1, 1
1123 1123 001B1 F0 clrb x ;[INF] 1, 1
1124 1124 001B2 317E shrw ax,7 ;[INF] 2, 1
1125 1125 001B4 R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
1126 1126 001B7 14 movw de,ax ;[INF] 1, 1
1127 1127 001B8 A9 movw ax,[de] ;[INF] 1, 1
1128 1128 001B9 6168 or a,x ;[INF] 2, 1
1129 1129 001BB DF1C bnz $?L0077 ;[INF] 2, 4
1130 1130 ; line 296 : {
1131 1131 001BD ??bb17_renge_task_immed_run:
1132 1132 ; line 297 : #ifdef _renge_test_
1133 1133 ; line 298 : NOP();
1134 1134 $DGL 0,123
1135 1135 001BD 00 nop ;[INF] 1, 1
1136 1136 ; line 299 : j += 1;
1137 1137 $DGL 0,124
1138 1138 001BE 615900 inc [hl+0] ; j ;[INF] 3, 2
1139 1139 ; line 300 : for( ; j < TASK_IMMED_RUN_LIST_MAX; j++ )
1140 1140 $DGL 0,125
1141 1141 001C1 ?L0079:
1142 1142 001C1 8B mov a,[hl] ; j ;[INF] 1, 1
1143 1143 001C2 4C08 cmp a,#08H ; 8 ;[INF] 2, 1
1144 1144 001C4 DE27 bnc $?L0075 ;[INF] 2, 4
1145 1145 ; line 301 : {
1146 1146 001C6 ??bb18_renge_task_immed_run:
1147 1147 ; line 302 : if( tasks_immed[ j ] != TSK_IMM_EMPTY_
1148 1148 ; )
1149 1149 $DGL 0,127
1150 1150 001C6 8B mov a,[hl] ; j ;[INF] 1, 1
1151 1151 001C7 F0 clrb x ;[INF] 1, 1
1152 1152 001C8 317E shrw ax,7 ;[INF] 2, 1
1153 1153 001CA R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
1154 1154 001CD 14 movw de,ax ;[INF] 1, 1
1155 1155 001CE A9 movw ax,[de] ;[INF] 1, 1
1156 1156 001CF 6168 or a,x ;[INF] 2, 1
1157 1157 001D1 61E8 skz ;[INF] 2, 1
1158 1158 ; line 303 : {
1159 1159 001D3 ??bb19_renge_task_immed_run:
1160 1160 ; line 304 : NOP(); // ?
1161 1161 $DGL 0,129
1162 1162 001D3 00 nop ;[INF] 1, 1
1163 1163 001D4 ??eb19_renge_task_immed_run:
1164 1164 ; line 305 : }
1165 1165 001D4 ?L0082:
1166 1166 001D4 ??eb18_renge_task_immed_run:
1167 1167 ; line 306 : }
1168 1168 $DGL 0,131
1169 1169 001D4 615900 inc [hl+0] ; j ;[INF] 3, 2
1170 1170 001D7 EFE8 br $?L0079 ;[INF] 2, 3
1171 1171 ; line 307 : #endif
1172 1172 ; line 308 : break;
1173 1173 001D9 ??eb17_renge_task_immed_run:
1174 1174 ; line 309 : // <20><><EFBFBD>X<EFBFBD>g<EFBFBD>̍Ō<CC8D>
1175 1175 ; line 310 : }
1176 1176 001D9 ?L0077:
1177 1177 ; line 311 : if( tasks_immed[ j ] == TSK_IMM_DELETED_ )
1178 1178 $DGL 0,136
1179 1179 001D9 8B mov a,[hl] ; j ;[INF] 1, 1
1180 1180 001DA F0 clrb x ;[INF] 1, 1
1181 1181 001DB 317E shrw ax,7 ;[INF] 2, 1
1182 1182 001DD R040200 addw ax,#loww (_tasks_immed) ;[INF] 3, 1
1183 1183 001E0 14 movw de,ax ;[INF] 1, 1
1184 1184 001E1 A9 movw ax,[de] ;[INF] 1, 1
1185 1185 001E2 E7 onew bc ;[INF] 1, 1
1186 1186 001E3 43 cmpw ax,bc ;[INF] 1, 1
1187 1187 001E4 DF02 bnz $?L0084 ;[INF] 2, 4
1188 1188 ; line 312 : {
1189 1189 001E6 ??bb1A_renge_task_immed_run:
1190 1190 ; line 313 : tasks_immed[ j ] = TSK_IMM_EMPTY_;
1191 1191 $DGL 0,138
1192 1192 001E6 F6 clrw ax ;[INF] 1, 1
1193 1193 001E7 B9 movw [de],ax ;[INF] 1, 1
1194 1194 001E8 ??eb1A_renge_task_immed_run:
1195 1195 ; line 314 : }
1196 1196 001E8 ?L0084:
1197 1197 001E8 ??eb16_renge_task_immed_run:
1198 1198 ; line 315 : }
1199 1199 $DGL 0,140
1200 1200 001E8 615900 inc [hl+0] ; j ;[INF] 3, 2
1201 1201 001EB EFBE br $?L0074 ;[INF] 2, 3
1202 1202 001ED ?L0075:
1203 1203 ; line 316 : EI();
1204 1204 $DGL 0,141
1205 1205 001ED 717AFA ei ;[INF] 3, 4
1206 1206 001F0 ??eb0A_renge_task_immed_run:
1207 1207 ; line 317 : }
1208 1208 001F0 ?L0049:
1209 1209 001F0 ??eb09_renge_task_immed_run:
1210 1210 ; line 318 : }
1211 1211 001F0 ??eb00_renge_task_immed_run:
1212 1212 ; line 319 : }
1213 1213 ; line 320 : #if 0
1214 1214 ; line 321 : while( last_task_id != 0xFF ); // <20>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD>c<EFBFBD><63><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD>X<EFBFBD>Ď<EFBFBD>
1215 1215 ; <20>s
1216 1216 ; line 322 : #else
1217 1217 ; line 323 : while( 0 );
1218 1218 ; line 324 : #endif
1219 1219 ; line 325 :
1220 1220 ; line 326 : if( last_task_id != 0xFF )
1221 1221 $DGL 0,151
1222 1222 001F0 8C02 mov a,[hl+2] ; last_task_id ;[INF] 2, 1
1223 1223 001F2 81 inc a ;[INF] 1, 1
1224 1224 001F3 DD03 bz $?L0086 ;[INF] 2, 4
1225 1225 ; line 327 : {
1226 1226 001F5 ??bb1B_renge_task_immed_run:
1227 1227 ; line 328 : // <20>܂<EFBFBD><DC82>^<5E>X<EFBFBD>N<EFBFBD><4E><EFBFBD>c<EFBFBD><63><EFBFBD>Ă<EFBFBD><C482>i<EFBFBD>܂<EFBFBD><DC82>Ă<EFBFBD><C482>łˁj
1228 1228 ; line 329 : return( ERR_ERR );
1229 1229 $DGL 0,154
1230 1230 001F5 E7 onew bc ;[INF] 1, 1
1231 1231 001F6 EF01 br $?L0031 ;[INF] 2, 3
1232 1232 001F8 ??eb1B_renge_task_immed_run:
1233 1233 ; line 330 : }
1234 1234 001F8 ?L0086:
1235 1235 ; line 331 :
1236 1236 ; line 332 : return( ERR_SUCCESS );
1237 1237 $DGL 0,157
1238 1238 001F8 F7 clrw bc ;[INF] 1, 1
1239 1239 ; line 333 : }
1240 1240 001F9 ?L0031:
1241 1241 $DGL 0,158
1242 1242 001F9 ??ef_renge_task_immed_run:
1243 1243 001F9 1004 addw sp,#04H ;[INF] 2, 1
1244 1244 001FB C6 pop hl ;[INF] 1, 1
1245 1245 001FC D7 ret ;[INF] 1, 6
1246 1246 001FD ??ee_renge_task_immed_run:
1247 1247 ; line 334 :
1248 1248 ; line 335 :
1249 1249 ; line 336 :
1250 1250 ; line 337 : /***************************************************************
1251 1251 ; ***************
1252 1252 ; line 338 : <20>P<EFBFBD>ʂ<EFBFBD> ms
1253 1253 ; line 339 : NOP<4F><50><EFBFBD>񂷂<EFBFBD><F182B782><EFBFBD><EFBFBD>A<EFBFBD>w<EFBFBD><EFBFBD><E88E9E>CPU<50><55> *<2A><><EFBFBD>L<EFBFBD><4C><EFBFBD>܂<EFBFBD>* <20>B
1254 1254 ; line 340 : <20><><EFBFBD><EFBFBD>݂Ƃ<DD82><C682><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƃ<EFBFBD><C682>̕<EFBFBD><CC95>x<EFBFBD><78><EFBFBD>܂<EFBFBD><DC82>B
1255 1255 ; line 341 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EB8DB7><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
1256 1256 ; line 342 : ***************************************************************
1257 1257 ; **************/
1258 1258 ; line 343 : void wait_ms( u8 ms ){
1259 1259 001FD _wait_ms:
1260 1260 $DGL 1,222
1261 1261 001FD C7 push hl ;[INF] 1, 1
1262 1262 001FE C1 push ax ;[INF] 1, 1
1263 1263 001FF C1 push ax ;[INF] 1, 1
1264 1264 00200 FBF8FF movw hl,sp ;[INF] 3, 1
1265 1265 00203 ??bf_wait_ms:
1266 1266 ; line 344 : u16 fine;
1267 1267 ; line 345 :
1268 1268 ; line 346 : WDT_Restart();
1269 1269 $DGL 0,4
1270 1270 00203 RFD0000 call !_WDT_Restart ;[INF] 3, 3
1271 1271 ; line 347 : // <20>܂<EFBFBD><DC82>K<EFBFBD><4B><EFBFBD>ł<EFBFBD><C582>I
1272 1272 ; line 348 : while( ms != 0 ){
1273 1273 $DGL 0,6
1274 1274 00206 ?L0090:
1275 1275 00206 8C02 mov a,[hl+2] ; ms ;[INF] 2, 1
1276 1276 00208 D1 cmp0 a ;[INF] 1, 1
1277 1277 00209 DD12 bz $?L0091 ;[INF] 2, 4
1278 1278 0020B ??bb00_wait_ms:
1279 1279 ; line 349 : ms--;
1280 1280 $DGL 0,7
1281 1281 0020B 616902 dec [hl+2] ; ms ;[INF] 3, 2
1282 1282 ; line 350 : #ifdef _OVERCLOCK_
1283 1283 ; line 351 : fine = 860;
1284 1284 $DGL 0,9
1285 1285 0020E 305C03 movw ax,#035CH ; 860 ;[INF] 3, 1
1286 1286 00211 BB movw [hl],ax ; fine ;[INF] 1, 1
1287 1287 ; line 352 : #else
1288 1288 ; line 353 : fine = 430;
1289 1289 ; line 354 : #endif
1290 1290 ; line 355 : while( fine != 0 ){
1291 1291 $DGL 0,13
1292 1292 00212 ?L0092:
1293 1293 00212 F6 clrw ax ;[INF] 1, 1
1294 1294 00213 614900 cmpw ax,[hl+0] ; fine ;[INF] 3, 1
1295 1295 00216 DDEE bz $?L0090 ;[INF] 2, 4
1296 1296 00218 ??bb01_wait_ms:
1297 1297 ; line 356 : fine -= 1;
1298 1298 $DGL 0,14
1299 1299 00218 618900 decw [hl+0] ; fine ;[INF] 3, 2
1300 1300 0021B ??eb01_wait_ms:
1301 1301 ; line 357 : }
1302 1302 $DGL 0,15
1303 1303 0021B EFF5 br $?L0092 ;[INF] 2, 3
1304 1304 0021D ??eb00_wait_ms:
1305 1305 ; line 358 : }
1306 1306 0021D ?L0091:
1307 1307 ; line 359 : }
1308 1308 $DGL 0,17
1309 1309 0021D ??ef_wait_ms:
1310 1310 0021D 1004 addw sp,#04H ;[INF] 2, 1
1311 1311 0021F C6 pop hl ;[INF] 1, 1
1312 1312 00220 D7 ret ;[INF] 1, 6
1313 1313 00221 ??ee_wait_ms:
1314 1314
1315 1315 ----- @@CODEL CSEG
1316 1316
1317 1317 ----- @@BASE CSEG BASE
1318 1318 END
1319 1319
1320 1320
1321 1321 ; *** Code Information ***
1322 1322 ;
1323 1323 ; $FILE C:\78k_data\yav-mcu-basara\branches\0.10(fix)\renge\renge.c
1324 1324 ;
1325 1325 ; $FUNC renge_init(53)
1326 1326 ; void=(void)
1327 1327 ; CODE SIZE= 3 bytes, CLOCK_SIZE= 3 clocks, STACK_SIZE= 0 bytes
1328 1328 ;
1329 1329 ; $CALL renge_task_immed_init(54)
1330 1330 ; void=(void)
1331 1331 ;
1332 1332 ; $FUNC renge_task_interval_run(81)
1333 1333 ; bc=(void)
1334 1334 ; CODE SIZE= 43 bytes, CLOCK_SIZE= 45 clocks, STACK_SIZE= 6 bytes
1335 1335 ;
1336 1336 ; $CALL (92)
1337 1337 ; void=(void)
1338 1338 ;
1339 1339 ; $CALL renge_task_immed_run(94)
1340 1340 ; bc=(void)
1341 1341 ;
1342 1342 ; $FUNC renge_task_immed_init(117)
1343 1343 ; void=(void)
1344 1344 ; CODE SIZE= 21 bytes, CLOCK_SIZE= 24 clocks, STACK_SIZE= 2 bytes
1345 1345 ;
1346 1346 ; $FUNC renge_task_immed_add(131)
1347 1347 ; bc=(pointer new_task:ax)
1348 1348 ; CODE SIZE= 66 bytes, CLOCK_SIZE= 98 clocks, STACK_SIZE= 10 bytes
1349 1349 ;
1350 1350 ; $FUNC renge_task_immed_run(176)
1351 1351 ; bc=(void)
1352 1352 ; CODE SIZE= 341 bytes, CLOCK_SIZE= 381 clocks, STACK_SIZE= 10 bytes
1353 1353 ;
1354 1354 ; $CALL (196)
1355 1355 ; bc=(void)
1356 1356 ;
1357 1357 ; $FUNC wait_ms(343)
1358 1358 ; void=(unsigned char ms:x)
1359 1359 ; CODE SIZE= 36 bytes, CLOCK_SIZE= 36 clocks, STACK_SIZE= 10 bytes
1360 1360 ;
1361 1361 ; $CALL WDT_Restart(346)
1362 1362 ; void=(void)
1363 1363
1364 1364 ; Target chip : uPD79F0104
1365 1365 ; Device file : E1.00b
Segment informations:
ADRS LEN NAME
00000 00000H.3 @@BITS
00000 00000H @@CNST
00000 00016H @@R_INIT
00000 00016H @@INIT
00000 00012H @@DATA
00000 00000H @@R_INIS
00000 00000H @@INIS
00000 00000H @@DATS
00000 00000H @@CNSTL
00000 00000H @@RLINIT
00000 00000H @@INITL
00000 00000H @@DATAL
00000 00000H @@CALT
00000 00221H ROM_CODE
00000 00000H @@CODEL
00000 00000H @@BASE
Target chip : uPD79F0104
Device file : E1.00b
Assembly complete, 0 error(s) and 0 warning(s) found. ( 0)