home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / AGGRESSN / MOTION.ZIP / MOTION / DSP / XTST.X < prev    next >
Text File  |  1995-06-21  |  776b  |  44 lines
  1. ;---------------------------------------------------------------
  2. ; dsp relocator, feeds p/x/y mem freely..
  3. ;---------------------------------------------------------------
  4.  
  5. PBC    equ    $ffe0
  6. HSR    equ    $ffe9
  7. HTX    equ    $ffeb
  8.  
  9.     org    p:$0
  10.     jmp    start
  11.  
  12. ;    org    p:$40
  13.     dc    0,0,0,0,0,0,0,0,0,0
  14.     dc    0,0,0,0,0,0,0,0,0,0
  15.     dc    0,0,0,0,0,0,0,0,0,0
  16.     dc    0,0,0,0,0,0,0,0,0,0
  17.     dc    0,0,0,0,0,0,0,0,0,0
  18.     dc    0,0,0,0,0,0,0,0,0,0
  19.     dc    0,0
  20. start    
  21.     add    x,a
  22.  
  23.  
  24. secure    movep    #1,X:PBC
  25.     jclr    #0,x:HSR,secure
  26.     move    x:HTX,x0            ;pituus
  27.  
  28.     move    #$200,r0
  29.     
  30.     do    x0,nemesis
  31. genesis    movep    #1,X:PBC
  32.     jclr    #0,x:HSR,genesis
  33.     move    x:HTX,x0
  34.     movem    x0,p:(r0)+
  35. nemesis
  36.  
  37.     jmp    $200
  38.  
  39. ;    movep    #0,x:$fffe        ;port a (luku tahtoo tökkiä ilman..)
  40. ;secure2    jclr    #1,X:HSR,secure2
  41. ;    move    a1,X:HTX        
  42.  
  43.  
  44.     end