📄 sat.asl
字号:
00E2 F9 00 200 sta0 .PYPP
00E4 F3 B9 201 lda #<SignXSquDiff
00E6 F9 00 202 sta0 .PYDP
00E8 20 00 00 203 call .CopyData
00EB 24 204 ret
00EC 205 XCubeSum_Trans_X:
00EC F3 03 206 lda #>SignXCubeSum
00EE F9 00 207 sta0 .PXPP
00F0 F3 EB 208 lda #<SignXCubeSum
00F2 F9 00 209 sta0 .PXDP
00F4 F3 00 210 lda #>SignX
00F6 F9 00 211 sta0 .PYPP
00F8 F3 00 212 lda #<SignX
00FA F9 00 213 sta0 .PYDP
00FC 20 00 00 214 call .CopyData
+ 215
00FF 24 216 ret
0100 217 XSquDiff_Trans_X:
0100 F3 03 218 lda #>SignXSquDiff
0102 F9 00 219 sta0 .PXPP
0104 F3 B9 220 lda #<SignXSquDiff
0106 F9 00 221 sta0 .PXDP
0108 F3 00 222 lda #>SignX
010A F9 00 223 sta0 .PYPP
010C F3 00 224 lda #<SignX
010E F9 00 225 sta0 .PYDP
0110 20 00 00 226 call .CopyData
0113 24 227 ret
+ 228
+ 229 ; Compute Y's Standard deviation for LR mode
+ 230
0114 231 YSum_Trans_Y:
0114 F3 00 232 lda #>SignYSum
0116 F9 00 233 sta0 .PXPP
0118 F3 00 234 lda #<SignYSum
011A F9 00 235 sta0 .PXDP
011C F3 00 236 lda #>SignY
011E F9 00 237 sta0 .PYPP
0120 F3 00 238 lda #<SignY
0122 F9 00 239 sta0 .PYDP
0124 20 00 00 240 call .CopyData
0127 24 241 ret
+ 242
0128 243 Z_Trans_YSum:
0128 F3 00 244 lda #>SignZ
012A F9 00 245 sta0 .PXPP
012C F3 00 246 lda #<SignZ
012E F9 00 247 sta0 .PXDP
0130 F3 00 248 lda #>SignYSum
0132 F9 00 249 sta0 .PYPP
0134 F3 00 250 lda #<SignYSum
0136 F9 00 251 sta0 .PYDP
0138 20 00 00 252 call .CopyData
013B 24 253 ret
+ 254
013C 255 YSquSum_Trans_X:
013C F3 00 256 lda #>SignYSquSum
013E F9 00 257 sta0 .PXPP
0140 F3 00 258 lda #<SignYSquSum
0142 F9 00 259 sta0 .PXDP
0144 F3 00 260 lda #>SignX
0146 F9 00 261 sta0 .PYPP
0148 F3 00 262 lda #<SignX
014A F9 00 263 sta0 .PYDP
014C 20 00 00 264 call .CopyData
014F 24 265 ret
0150 266 Z_Trans_YSquSum:
0150 F3 00 267 lda #>SignZ
0152 F9 00 268 sta0 .PXPP
0154 F3 00 269 lda #<SignZ
0156 F9 00 270 sta0 .PXDP
0158 F3 00 271 lda #>SignYSquSum
015A F9 00 272 sta0 .PYPP
015C F3 00 273 lda #<SignYSquSum
015E F9 00 274 sta0 .PYDP
0160 20 00 00 275 call .CopyData
0163 24 276 ret
0164 277 Z_Trans_XFourSum:
0164 F3 00 278 lda #>SignZ
0166 F9 00 279 sta0 .PXPP
0168 F3 00 280 lda #<SignZ
016A F9 00 281 sta0 .PXDP
016C F3 03 282 lda #>SignXFourSum
016E F9 00 283 sta0 .PYPP
0170 F3 D7 284 lda #<SignXFourSum
0172 F9 00 285 sta0 .PYDP
0174 20 00 00 286 call .CopyData
+ 287
0177 24 288 ret
0178 289 Z_Trans_YSquDiff:
0178 F3 00 290 lda #>SignZ
017A F9 00 291 sta0 .PXPP
017C F3 00 292 lda #<SignZ
017E F9 00 293 sta0 .PXDP
0180 F3 03 294 lda #>SignYSquDiff
0182 F9 00 295 sta0 .PYPP
0184 F3 C3 296 lda #<SignYSquDiff
0186 F9 00 297 sta0 .PYDP
0188 20 00 00 298 call .CopyData
018B 24 299 ret
018C 300 XFourSum_Trans_X:
018C F3 03 301 lda #>SignXFourSum
018E F9 00 302 sta0 .PXPP
0190 F3 D7 303 lda #<SignXFourSum
0192 F9 00 304 sta0 .PXDP
0194 F3 00 305 lda #>SignX
0196 F9 00 306 sta0 .PYPP
0198 F3 00 307 lda #<SignX
019A F9 00 308 sta0 .PYDP
019C 20 00 00 309 call .CopyData
019F 24 310 ret
01A0 311 YSquDiff_Trans_X:
01A0 F3 03 312 lda #>SignYSquDiff
01A2 F9 00 313 sta0 .PXPP
01A4 F3 C3 314 lda #<SignYSquDiff
01A6 F9 00 315 sta0 .PXDP
01A8 F3 00 316 lda #>SignX
01AA F9 00 317 sta0 .PYPP
01AC F3 00 318 lda #<SignX
01AE F9 00 319 sta0 .PYDP
01B0 20 00 00 320 call .CopyData
01B3 24 321 ret
01B4 322 XYSum_Trans_Y:
01B4 F3 00 323 lda #>SignXYSum
01B6 F9 00 324 sta0 .PXPP
01B8 F3 00 325 lda #<SignXYSum
01BA F9 00 326 sta0 .PXDP
01BC F3 00 327 lda #>SignY
01BE F9 00 328 sta0 .PYPP
01C0 F3 00 329 lda #<SignY
01C2 F9 00 330 sta0 .PYDP
01C4 20 00 00 331 call .CopyData
01C7 24 332 ret
+ 333
01C8 334 Z_Trans_XYSum:
01C8 F3 00 335 lda #>SignZ
01CA F9 00 336 sta0 .PXPP
01CC F3 00 337 lda #<SignZ
01CE F9 00 338 sta0 .PXDP
01D0 F3 00 339 lda #>SignXYSum
01D2 F9 00 340 sta0 .PYPP
01D4 F3 00 341 lda #<SignXYSum
01D6 F9 00 342 sta0 .PYDP
01D8 20 00 00 343 call .CopyData
01DB 24 344 ret
01DC 345 Z_Trans_XSquYSum:
01DC F3 00 346 lda #>SignZ
01DE F9 00 347 sta0 .PXPP
01E0 F3 00 348 lda #<SignZ
01E2 F9 00 349 sta0 .PXDP
01E4 F3 03 350 lda #>SignXSquYSum
01E6 F9 00 351 sta0 .PYPP
01E8 F3 E1 352 lda #<SignXSquYSum
01EA F9 00 353 sta0 .PYDP
01EC 20 00 00 354 call .CopyData
01EF 24 355 ret
01F0 356 Z_Trans_XYMulDiff:
01F0 F3 00 357 lda #>SignZ
01F2 F9 00 358 sta0 .PXPP
01F4 F3 00 359 lda #<SignZ
01F6 F9 00 360 sta0 .PXDP
01F8 F3 03 361 lda #>SignXYMulDiff
01FA F9 00 362 sta0 .PYPP
01FC F3 CD 363 lda #<SignXYMulDiff
01FE F9 00 364 sta0 .PYDP
0200 20 00 00 365 call .CopyData
0203 24 366 ret
+ 367
0204 368 XSquYSum_Trans_X:
0204 F3 03 369 lda #>SignXSquYSum
0206 F9 00 370 sta0 .PXPP
0208 F3 E1 371 lda #<SignXSquYSum
020A F9 00 372 sta0 .PXDP
020C F3 00 373 lda #>SignX
020E F9 00 374 sta0 .PYPP
0210 F3 00 375 lda #<SignX
0212 F9 00 376 sta0 .PYDP
0214 20 00 00 377 call .CopyData
+ 378
0217 24 379 ret
0218 380 XYMulDiff_Trans_X:
0218 F3 03 381 lda #>SignXYMulDiff
021A F9 00 382 sta0 .PXPP
021C F3 CD 383 lda #<SignXYMulDiff
021E F9 00 384 sta0 .PXDP
0220 F3 00 385 lda #>SignX
0222 F9 00 386 sta0 .PYPP
0224 F3 00 387 lda #<SignX
0226 F9 00 388 sta0 .PYDP
0228 20 00 00 389 call .CopyData
022B 24 390 ret
+ 391
+ 392 ;Public functions
+ 393 ;; compute Standard deviation
+ 394 ; Clear statistic memory for computing SD
+ 395
022C 396 SD_Scl::
022C F3 00 397 lda #>SDBuf
022E F9 00 398 sta0 Param+0 ;; PP
0230 F3 00 399 lda #<SDBuf
0232 F9 01 400 sta0 Param+1 ;; DP
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -