.title "yjs.asm"        ;page107
       .mmregs
       .copy "coeff.inc" 
       .def start
       .data
sine: .usect "sine",16
cosine: .usect "cosine",512
  xn      .usect "xn",5
    a0    .usect "a0",5 
table: .word 1*32768/10
       .word 2*32768/10  
       .word 3*32768/10
       .word 4*32768/10 
       .word 5*32768/10
STACK  .usect "STACK",10
     .text  
start: SSBX FRCT
    STM	#STACK+10,SP
    STM #a0,AR1
    RPT #4
    MVPD table,*AR1+
    STM #xn+4,AR3
    STM #a0+4,AR4
    STM #5,BK
    STM #-1,AR0
    STM #sine ,AR1
    RPT #15
    MVPD sinel, *AR1+
    STM #cosine,AR1
    RPT #511
    MVPD cosinel,*AR1+
    
   
    
  
    
    
    
end:   B    end       
.end