📄 hamming.asm
字号:
.include "ccall.asm"
M .set 8 ; Sine table size log2
.text
.def _ti_hamming
_ti_hamming:
pre_ccall 3,AR_X,AR_Y,AR_N
; Modify any registers needed
spm 1 ; MUST Set Product shift to +1
clrc SXM ; MUST Set Sign Extension Mode Off
; Note: Overflow mode is off in C.
mar *,AR_N
banz LOOP,AR_X
b DONE
;STACK CONTENTS:
; 1 = sin_Index / sin_Ynext / sin_Ydiff
; 2 = sin_Frac
; 3 =
; End C Preprocessing
; ldp #sin_X
; lacc sin_X,8 ; Index = integer(X + Phase)
LOOP:
lacc *+,M-1,AR_STACK
;;; add sin_Phase,8 ;;; UNUSED
; sach sin_Index
; sacl sin_Frac
sach *+,1
and #07fffh ; Zero sign bit
sacl *-
; lacc sin_Index ; Y = SinTable[Index],
lacc *,AR_Y
add #_HammingTable
; tblr sin_Y
tblr *,AR_STACK
add #1
; tblr sin_Ynext ; Ynext = SinTable[Index+1],
tblr *
; lacc sin_Ynext ; Ydiff = Ynext - Y
lacc *,AR_Y
; sub sin_Y
sub *,AR_STACK
; sacl sin_Ydiff
sacl *
; lt sin_Ydiff ; Y = round(Y + Ydiff*Frac)
lt *+
; mpy sin_Frac
mpy *-,AR_Y
; zalr sin_Y
zalr *
apac
; sach sin_Y
sach *+,AR_N
banz LOOP,AR_X
; Begin C Post Processing
DONE:
; Restore any other registers modified
; Note: Overflow mode is off in C.
spm 0
post_ccall 3
_HammingTable:
.if (M==9)
.word 2621
.word 2622
.word 2625
.word 2631
.word 2639
.word 2649
.word 2662
.word 2677
.word 2694
.word 2713
.word 2734
.word 2758
.word 2784
.word 2812
.word 2843
.word 2876
.word 2911
.word 2948
.word 2987
.word 3029
.word 3073
.word 3119
.word 3167
.word 3217
.word 3270
.word 3325
.word 3382
.word 3441
.word 3502
.word 3565
.word 3631
.word 3699
.word 3768
.word 3840
.word 3914
.word 3990
.word 4068
.word 4148
.word 4230
.word 4315
.word 4401
.word 4489
.word 4579
.word 4671
.word 4765
.word 4862
.word 4960
.word 5059
.word 5161
.word 5265
.word 5371
.word 5478
.word 5587
.word 5698
.word 5811
.word 5926
.word 6042
.word 6161
.word 6281
.word 6402
.word 6526
.word 6651
.word 6777
.word 6906
.word 7036
.word 7167
.word 7301
.word 7435
.word 7572
.word 7709
.word 7849
.word 7990
.word 8132
.word 8276
.word 8421
.word 8567
.word 8715
.word 8864
.word 9015
.word 9167
.word 9320
.word 9474
.word 9630
.word 9787
.word 9945
.word 10104
.word 10265
.word 10426
.word 10589
.word 10752
.word 10917
.word 11083
.word 11250
.word 11417
.word 11586
.word 11755
.word 11926
.word 12097
.word 12269
.word 12442
.word 12616
.word 12791
.word 12966
.word 13142
.word 13319
.word 13496
.word 13674
.word 13853
.word 14032
.word 14211
.word 14392
.word 14572
.word 14754
.word 14935
.word 15117
.word 15300
.word 15483
.word 15666
.word 15849
.word 16033
.word 16217
.word 16401
.word 16585
.word 16770
.word 16955
.word 17139
.word 17324
.word 17509
.word 17694
.word 17879
.word 18064
.word 18249
.word 18434
.word 18619
.word 18803
.word 18987
.word 19172
.word 19356
.word 19539
.word 19723
.word 19906
.word 20089
.word 20271
.word 20453
.word 20635
.word 20816
.word 20997
.word 21177
.word 21357
.word 21536
.word 21714
.word 21892
.word 22070
.word 22246
.word 22422
.word 22598
.word 22772
.word 22946
.word 23119
.word 23291
.word 23463
.word 23633
.word 23803
.word 23971
.word 24139
.word 24306
.word 24471
.word 24636
.word 24800
.word 24962
.word 25124
.word 25284
.word 25443
.word 25602
.word 25758
.word 25914
.word 26068
.word 26222
.word 26374
.word 26524
.word 26673
.word 26821
.word 26968
.word 27113
.word 27257
.word 27399
.word 27540
.word 27679
.word 27817
.word 27953
.word 28088
.word 28221
.word 28353
.word 28483
.word 28611
.word 28738
.word 28863
.word 28986
.word 29108
.word 29228
.word 29346
.word 29462
.word 29577
.word 29690
.word 29801
.word 29910
.word 30018
.word 30123
.word 30227
.word 30329
.word 30429
.word 30527
.word 30623
.word 30717
.word 30809
.word 30899
.word 30988
.word 31074
.word 31158
.word 31240
.word 31320
.word 31398
.word 31474
.word 31548
.word 31620
.word 31690
.word 31757
.word 31823
.word 31886
.word 31948
.word 32007
.word 32064
.word 32118
.word 32171
.word 32221
.word 32270
.word 32316
.word 32360
.word 32401
.word 32441
.word 32478
.word 32513
.word 32546
.word 32576
.word 32604
.word 32630
.word 32654
.word 32676
.word 32695
.word 32712
.word 32727
.word 32739
.word 32749
.word 32757
.word 32763
.word 32766
.word 32767
.word 32766
.word 32763
.word 32757
.word 32749
.word 32739
.word 32727
.word 32712
.word 32695
.word 32676
.word 32654
.word 32630
.word 32604
.word 32576
.word 32546
.word 32513
.word 32478
.word 32441
.word 32401
.word 32360
.word 32316
.word 32270
.word 32221
.word 32171
.word 32118
.word 32064
.word 32007
.word 31948
.word 31886
.word 31823
.word 31757
.word 31690
.word 31620
.word 31548
.word 31474
.word 31398
.word 31320
.word 31240
.word 31158
.word 31074
.word 30988
.word 30899
.word 30809
.word 30717
.word 30623
.word 30527
.word 30429
.word 30329
.word 30227
.word 30123
.word 30018
.word 29910
.word 29801
.word 29690
.word 29577
.word 29462
.word 29346
.word 29228
.word 29108
.word 28986
.word 28863
.word 28738
.word 28611
.word 28483
.word 28353
.word 28221
.word 28088
.word 27953
.word 27817
.word 27679
.word 27540
.word 27399
.word 27257
.word 27113
.word 26968
.word 26821
.word 26673
.word 26524
.word 26374
.word 26222
.word 26068
.word 25914
.word 25758
.word 25602
.word 25443
.word 25284
.word 25124
.word 24962
.word 24800
.word 24636
.word 24471
.word 24306
.word 24139
.word 23971
.word 23803
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -