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·············很捉急