start: SSBX FRCT
STM #STACK+10,SP
STM #sinx,AR1
STM #cosx,AR3
STM #fsin,AR4
STM #fcos,AR2
STM #qpsk,AR0
ST #0,@SIN25P
CALL SIN25K
STM #x,AR5
STM #y,AR7
ST #0xe4e4,*AR7
LD *AR7,B
STL B,*AR5-----值放在*AR5和B的低16位
ST #0,@SIN25P
STM #7,AR6
QPSKSTART: LD *AR5,B
AND #11,B
SFTL B,5
LD *AR5,A
ROR A
ROR A
STL A,*AR5
LD SIN25P,A
ADD B,A
ADD #SINTAB,A
STM #255,BRC
RPTB QPSKEND
SUB #SINTAB,A
ADD SINSTP,A
AND #07FH,A
ADD #SINTAB,A
QPSKEND: READA *AR0+
BANZ QPSKSTART,*AR6-
here: B here
SIN25K: STM #500, BRC
RPTB SINRET-1
ST #K_IF80,SINSTP
LD SIN25P,A
ADD SINSTP,A
AND #07FH,A
STL A,SIN25P
ADD #SINTAB,A
READA *AR1+
LD SIN25P,A
ADD #32,A
AND #07FH,A
ADD #SINTAB,A
READA *AR3+
LD SIN25P,A
ADD #64,A
AND #07FH,A
ADD #SINTAB,A
READA *AR4+
LD SIN25P,A
ADD #96,A
AND #07FH,A
ADD #SINTAB,A
READA *AR2+
SINRET RET
.end-------------------很捉急