📄 maina.s55
字号:
*-------------------------------------------------------------------------*
* *
* THIS IS AN UNPUBLISHED WORK CONTAINING CONFIDENTIAL AND PROPRIETARY *
* INFORMATION. IF PUBLICATION OCCURS, THE FOLLOWING NOTICE APPLIES: *
* "COPYRIGHT 2002 MIKET DSP SOLUTIONS, ALL RIGHTS RESERVED" *
* *
*-------------------------------------------------------------------------*/
.mmregs
.cpl_on
.arms_on
;-------------------------------------------------------------------------
.global _sRndSav
.text
;-------------------------------------------------------------------------
MULT .set (31821)
INC .set (13849)
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
.global _fill_rand
;-------------------------------------------------------------------------
_fill_rand
; S16 *psTo = ar0
; S16 len = t0
; S16 amp = t1
xar1 = #_sRndSav;
ac0 = #MULT << #16;
t0 = t0 - 1;
brc0 = t0;
localrepeat {
ac1 = *ar1 * ac0;
ac1 = ac1 + #INC;
*ar1 = ac1;
nop;
nop;
ac1 = t1 * *ar1;
*ar0+ = HI(ac1 << #1);
}
return;
;-------------------------------------------------------------------------
.global _stack_ini
;-------------------------------------------------------------------------
_stack_ini
; S16 sSize = t0
;
; returns
; S16 *psWhere = ar0
;
xar0 = xsp;
mar (ar0 - t0);
t0 = t0 - 1;
csr = t0;
ac0 = 0x2222;
repeat (CSR)
*ar0+ = ac0;
return;
;-------------------------------------------------------------------------
.global _stack_used
;-------------------------------------------------------------------------
_stack_used
; S16 *psStart = ar0
; S16 sSize = t0
;
; returns
; S16 sUsed = t0
;
mar (ar0 - t0);
ac1 = 0x2222;
L01
ac0 = ac1 - *ar0+;
if (ac0 != #0) goto L02
t0 = t0 - 1;
if (t0 > #0) goto L01
L02
return;
;-------------------------------------------------------------------------
.global _tstbc
;-------------------------------------------------------------------------
_tstbc
t0 = t0 + #5
if (t0 >= #0) goto L30
t0 = #10;
return;
L30
t0 = #20;
return;
;-------------------------------------------------------------------------
.global _main_stop
;-------------------------------------------------------------------------
_main_stop
nop
nop
nop
nop
return
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -