home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / INC_MAG / INC_2_1.MSA / PRGS_S16.S < prev    next >
Text File  |  1990-01-20  |  905b  |  42 lines
  1.  
  2.          MOVE.W    #32,-(SP)      
  3.          TRAP      #1
  4.          ADDQ.W    #2,SP
  5.  
  6.          MOVE.L    #SHIFT,$4D2    
  7.      
  8.          MOVE.W    #7,-(SP)
  9.          TRAP      #1
  10.          ADDQ.W    #2,SP
  11.  
  12.          CLR.L     $4D2    
  13.  
  14.          CLR.W     -(SP)   
  15.          TRAP      #1
  16.  
  17. SHIFT:    MOVE.W    #$555,$FF8240
  18.          MOVEM.L   D0-D7/A0-A6,-(SP)
  19.          MOVE.L    $44E,A0        
  20.          ADD.L     #12800,A0      
  21.          MOVE.L    A0,A1          
  22.          ADDQ.L    #8,A0          
  23.          MOVE.L    #160,D0     
  24. S16:     MOVE.L    (A0)+,(A1)+    
  25.     MOVE.L    (A0)+,(A1)+    
  26.     MOVE.L    (A0)+,(A1)+    
  27.     MOVE.L    (A0)+,(A1)+    
  28.     MOVE.L    (A0)+,(A1)+    
  29.     MOVE.L    (A0)+,(A1)+    
  30.     MOVE.L    (A0)+,(A1)+    
  31.     MOVE.L    (A0)+,(A1)+    
  32.     MOVE.L    (A0)+,(A1)+    
  33.     MOVE.L    (A0)+,(A1)+    
  34.          DBF       D0,S16         
  35.          MOVEM.L   (SP)+,D0-D7/A0-A6
  36.     MOVE.W    #$777,$FF8240
  37.          RTS           
  38.         
  39.     
  40.  
  41.  
  42.