;; y = 256 - 32*log_2(256-x) の変換を行うサブルーチン convert: clrf PCLATH bsf PCLATH, 0 bsf PCLATH, 1 movwf PCL org 0x300 retlw D'0' ; ADRES=0 retlw D'0' ; ADRES=1 retlw D'0' ; ADRES=2 retlw D'1' ; ADRES=3 retlw D'1' ; ADRES=4 retlw D'1' ; ADRES=5 retlw D'1' ; ADRES=6 retlw D'1' ; ADRES=7 retlw D'1' ; ADRES=8 retlw D'2' ; ADRES=9 retlw D'2' ; ADRES=10 retlw D'2' ; ADRES=11 retlw D'2' ; ADRES=12 retlw D'2' ; ADRES=13 retlw D'3' ; ADRES=14 retlw D'3' ; ADRES=15 retlw D'3' ; ADRES=16 retlw D'3' ; ADRES=17 retlw D'3' ; ADRES=18 retlw D'4' ; ADRES=19 retlw D'4' ; ADRES=20 retlw D'4' ; ADRES=21 retlw D'4' ; ADRES=22 retlw D'4' ; ADRES=23 retlw D'5' ; ADRES=24 retlw D'5' ; ADRES=25 retlw D'5' ; ADRES=26 retlw D'5' ; ADRES=27 retlw D'5' ; ADRES=28 retlw D'6' ; ADRES=29 retlw D'6' ; ADRES=30 retlw D'6' ; ADRES=31 retlw D'6' ; ADRES=32 retlw D'6' ; ADRES=33 retlw D'7' ; ADRES=34 retlw D'7' ; ADRES=35 retlw D'7' ; ADRES=36 retlw D'7' ; ADRES=37 retlw D'7' ; ADRES=38 retlw D'8' ; ADRES=39 retlw D'8' ; ADRES=40 retlw D'8' ; ADRES=41 retlw D'8' ; ADRES=42 retlw D'8' ; ADRES=43 retlw D'9' ; ADRES=44 retlw D'9' ; ADRES=45 retlw D'9' ; ADRES=46 retlw D'9' ; ADRES=47 retlw D'10' ; ADRES=48 retlw D'10' ; ADRES=49 retlw D'10' ; ADRES=50 retlw D'10' ; ADRES=51 retlw D'10' ; ADRES=52 retlw D'11' ; ADRES=53 retlw D'11' ; ADRES=54 retlw D'11' ; ADRES=55 retlw D'11' ; ADRES=56 retlw D'12' ; ADRES=57 retlw D'12' ; ADRES=58 retlw D'12' ; ADRES=59 retlw D'12' ; ADRES=60 retlw D'13' ; ADRES=61 retlw D'13' ; ADRES=62 retlw D'13' ; ADRES=63 retlw D'13' ; ADRES=64 retlw D'14' ; ADRES=65 retlw D'14' ; ADRES=66 retlw D'14' ; ADRES=67 retlw D'14' ; ADRES=68 retlw D'14' ; ADRES=69 retlw D'15' ; ADRES=70 retlw D'15' ; ADRES=71 retlw D'15' ; ADRES=72 retlw D'15' ; ADRES=73 retlw D'16' ; ADRES=74 retlw D'16' ; ADRES=75 retlw D'16' ; ADRES=76 retlw D'17' ; ADRES=77 retlw D'17' ; ADRES=78 retlw D'17' ; ADRES=79 retlw D'17' ; ADRES=80 retlw D'18' ; ADRES=81 retlw D'18' ; ADRES=82 retlw D'18' ; ADRES=83 retlw D'18' ; ADRES=84 retlw D'19' ; ADRES=85 retlw D'19' ; ADRES=86 retlw D'19' ; ADRES=87 retlw D'19' ; ADRES=88 retlw D'20' ; ADRES=89 retlw D'20' ; ADRES=90 retlw D'20' ; ADRES=91 retlw D'21' ; ADRES=92 retlw D'21' ; ADRES=93 retlw D'21' ; ADRES=94 retlw D'21' ; ADRES=95 retlw D'22' ; ADRES=96 retlw D'22' ; ADRES=97 retlw D'22' ; ADRES=98 retlw D'23' ; ADRES=99 retlw D'23' ; ADRES=100 retlw D'23' ; ADRES=101 retlw D'23' ; ADRES=102 retlw D'24' ; ADRES=103 retlw D'24' ; ADRES=104 retlw D'24' ; ADRES=105 retlw D'25' ; ADRES=106 retlw D'25' ; ADRES=107 retlw D'25' ; ADRES=108 retlw D'26' ; ADRES=109 retlw D'26' ; ADRES=110 retlw D'26' ; ADRES=111 retlw D'27' ; ADRES=112 retlw D'27' ; ADRES=113 retlw D'27' ; ADRES=114 retlw D'28' ; ADRES=115 retlw D'28' ; ADRES=116 retlw D'28' ; ADRES=117 retlw D'29' ; ADRES=118 retlw D'29' ; ADRES=119 retlw D'29' ; ADRES=120 retlw D'30' ; ADRES=121 retlw D'30' ; ADRES=122 retlw D'30' ; ADRES=123 retlw D'31' ; ADRES=124 retlw D'31' ; ADRES=125 retlw D'31' ; ADRES=126 retlw D'32' ; ADRES=127 retlw D'32' ; ADRES=128 retlw D'32' ; ADRES=129 retlw D'33' ; ADRES=130 retlw D'33' ; ADRES=131 retlw D'33' ; ADRES=132 retlw D'34' ; ADRES=133 retlw D'34' ; ADRES=134 retlw D'35' ; ADRES=135 retlw D'35' ; ADRES=136 retlw D'35' ; ADRES=137 retlw D'36' ; ADRES=138 retlw D'36' ; ADRES=139 retlw D'37' ; ADRES=140 retlw D'37' ; ADRES=141 retlw D'37' ; ADRES=142 retlw D'38' ; ADRES=143 retlw D'38' ; ADRES=144 retlw D'39' ; ADRES=145 retlw D'39' ; ADRES=146 retlw D'39' ; ADRES=147 retlw D'40' ; ADRES=148 retlw D'40' ; ADRES=149 retlw D'41' ; ADRES=150 retlw D'41' ; ADRES=151 retlw D'42' ; ADRES=152 retlw D'42' ; ADRES=153 retlw D'42' ; ADRES=154 retlw D'43' ; ADRES=155 retlw D'43' ; ADRES=156 retlw D'44' ; ADRES=157 retlw D'44' ; ADRES=158 retlw D'45' ; ADRES=159 retlw D'45' ; ADRES=160 retlw D'46' ; ADRES=161 retlw D'46' ; ADRES=162 retlw D'47' ; ADRES=163 retlw D'47' ; ADRES=164 retlw D'48' ; ADRES=165 retlw D'48' ; ADRES=166 retlw D'49' ; ADRES=167 retlw D'49' ; ADRES=168 retlw D'50' ; ADRES=169 retlw D'50' ; ADRES=170 retlw D'51' ; ADRES=171 retlw D'51' ; ADRES=172 retlw D'52' ; ADRES=173 retlw D'53' ; ADRES=174 retlw D'53' ; ADRES=175 retlw D'54' ; ADRES=176 retlw D'54' ; ADRES=177 retlw D'55' ; ADRES=178 retlw D'55' ; ADRES=179 retlw D'56' ; ADRES=180 retlw D'57' ; ADRES=181 retlw D'57' ; ADRES=182 retlw D'58' ; ADRES=183 retlw D'59' ; ADRES=184 retlw D'59' ; ADRES=185 retlw D'60' ; ADRES=186 retlw D'61' ; ADRES=187 retlw D'61' ; ADRES=188 retlw D'62' ; ADRES=189 retlw D'63' ; ADRES=190 retlw D'63' ; ADRES=191 retlw D'64' ; ADRES=192 retlw D'65' ; ADRES=193 retlw D'65' ; ADRES=194 retlw D'66' ; ADRES=195 retlw D'67' ; ADRES=196 retlw D'68' ; ADRES=197 retlw D'69' ; ADRES=198 retlw D'69' ; ADRES=199 retlw D'70' ; ADRES=200 retlw D'71' ; ADRES=201 retlw D'72' ; ADRES=202 retlw D'73' ; ADRES=203 retlw D'74' ; ADRES=204 retlw D'74' ; ADRES=205 retlw D'75' ; ADRES=206 retlw D'76' ; ADRES=207 retlw D'77' ; ADRES=208 retlw D'78' ; ADRES=209 retlw D'79' ; ADRES=210 retlw D'80' ; ADRES=211 retlw D'81' ; ADRES=212 retlw D'82' ; ADRES=213 retlw D'83' ; ADRES=214 retlw D'85' ; ADRES=215 retlw D'86' ; ADRES=216 retlw D'87' ; ADRES=217 retlw D'88' ; ADRES=218 retlw D'89' ; ADRES=219 retlw D'91' ; ADRES=220 retlw D'92' ; ADRES=221 retlw D'93' ; ADRES=222 retlw D'95' ; ADRES=223 retlw D'96' ; ADRES=224 retlw D'97' ; ADRES=225 retlw D'99' ; ADRES=226 retlw D'101' ; ADRES=227 retlw D'102' ; ADRES=228 retlw D'104' ; ADRES=229 retlw D'106' ; ADRES=230 retlw D'107' ; ADRES=231 retlw D'109' ; ADRES=232 retlw D'111' ; ADRES=233 retlw D'113' ; ADRES=234 retlw D'115' ; ADRES=235 retlw D'118' ; ADRES=236 retlw D'120' ; ADRES=237 retlw D'123' ; ADRES=238 retlw D'125' ; ADRES=239 retlw D'128' ; ADRES=240 retlw D'131' ; ADRES=241 retlw D'134' ; ADRES=242 retlw D'138' ; ADRES=243 retlw D'141' ; ADRES=244 retlw D'145' ; ADRES=245 retlw D'150' ; ADRES=246 retlw D'155' ; ADRES=247 retlw D'160' ; ADRES=248 retlw D'166' ; ADRES=249 retlw D'173' ; ADRES=250 retlw D'182' ; ADRES=251 retlw D'192' ; ADRES=252 retlw D'205' ; ADRES=253 retlw D'224' ; ADRES=254 retlw D'255' ; ADRES=255 リスト5-3 Copyright 2005 Noriaki Mitsunaga