home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / AGGRESSN / MOTION.ZIP / MOTION / DSP / FADE.S56 < prev    next >
Text File  |  1995-12-21  |  3KB  |  143 lines
  1. ; Realtime truecolor fader..  21.12.95 WizTom of AGGRESSION
  2. ; begin: 18:09
  3.  
  4. PBC    equ    $ffe0
  5. HSR    equ    $ffe9
  6. HTX    equ    $ffeb
  7.  
  8.  
  9.     org    p:$0
  10.     jmp    start
  11.  
  12.     dc    0,0,0,0,0,0,0,0,0,0
  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
  19. start    
  20.     move    #>$ffff,m0
  21.     movep    #$0,x:$fffe        ;fix read
  22.     move    m0,m1        
  23.     move    m0,m2        
  24.     move    m0,m3        
  25.     move    m0,m4        
  26.     move    m0,m5        
  27.     move    m0,m6        
  28.     move    m0,m7        
  29.     jsr    fixvakiot
  30.     move    #>$babe,x0
  31. x_ready    jclr    #1,X:HSR,x_ready
  32.     move    x0,X:HTX        
  33. ;------------------------------
  34. main
  35.     move    #>$feed,x0
  36. xtest    jclr    #1,X:HSR,xtest
  37.     move    x0,X:HTX        
  38.  
  39. monta    movep    #1,X:PBC        
  40.     jclr    #0,x:HSR,monta
  41.     move    x:HTX,n0
  42.  
  43. get_eka    movep    #1,X:PBC
  44.     jclr    #0,X:HSR,get_eka
  45.     move    x:HTX,y1
  46.  
  47. get_tok    movep    #1,X:PBC
  48.     jclr    #0,X:HSR,get_tok
  49.     move    x:HTX,x1
  50.  
  51. ;------
  52.     move    #>HTX,r0
  53.     move    #>spareRB,r3
  54.     move    #>spareG,r4
  55.     move    #>stackRB,r2
  56.     move    #>stackG,r5
  57.     move    #vakio,r7
  58.     move    #vakio,r1
  59.     movep    #1,X:PBC        
  60.     do    n0,luekamaa
  61.  
  62. v1    equ    $0007e0        ;G maski -> B
  63. v1b    equ    $00f81f        ;RB maski -> A
  64. ;--------
  65. r_eka    jclr    #0,x:HSR,r_eka
  66.     move            x:(r0),x0    y:(r7),a
  67.     and    x0,a        x:(r7),b
  68.     and    x0,b        a,x0
  69.     mpy    y1,x0,a        b,x0
  70.     mpy    y1,x0,b        a,x:(r2)
  71.     move            x:(r1),b    b,y:(r5)
  72.  
  73. r_toka    jclr    #0,x:HSR,r_toka
  74.     move            x:(r0),x0    y:(r7),a
  75.     and    x0,a        
  76.     and    x0,b        x:(r2),a    a,y0
  77.     mac    x1,y0,a        b,x0        y:(r5),b
  78.     mac    x1,x0,b        a,x:(r3)+
  79.     move            b,y:(r4)+
  80. luekamaa
  81. ;-----
  82.     move    #>spareRB,r3
  83.     move    #>spareG,r4
  84.     move    #>vakio+1,r7
  85.     move    #>vakio+1,r1
  86.     do    n0,ulos
  87.  
  88. v2    equ    $0007e0
  89. v2b    equ    $00f81f
  90. ;-----
  91.     move            x:(r3)+,x0    y:(r7),a
  92.     and    x0,a        x:(r1),b    y:(r4)+,y0    
  93.     and    y0,b        a,x0
  94.     or    x0,b
  95. w_one    jclr    #1,X:HSR,w_one
  96.     move    b1,X:(r0)        
  97. ulos    
  98. ;----
  99.  
  100.     jmp    main
  101. ;------------------------------------
  102. fixvakiot
  103.     move    #vakio,r0
  104.     move    #>v1,x1
  105.     move    #>v1b,x0
  106.     move    x,l:(r0)+
  107.     move    #>v2,x1
  108.     move    #>v2b,x0
  109.     move    x,l:(r0)+
  110.     rts
  111. ;-------------------
  112. ;-------------------
  113. ;read_one
  114. ;    movep    #1,X:PBC        
  115. ;    jclr    #0,x:HSR,read_one
  116. ;    move    x:HTX,a1
  117. ;write_one
  118. ;    jclr    #1,X:HSR,write_one
  119. ;    move    a1,X:HTX        
  120. ;---------------------
  121. ;jako                        ;divs x0,a (signed $123.456)
  122. ;    rep    #12
  123. ;    asr    a
  124. ;    andi    #$fe,ccr            ;clear carry
  125. ;    rep    #24
  126. ;    div    x0,a
  127. ;    asl    a
  128. ;    jclr    #23,x0,pos_diver
  129. ;    neg    a
  130. ;pos_diver
  131. ;    rts        ;signed result in a0 (finally WORKS!!!)
  132. ;---------------------------------
  133.     org    x:$0
  134. vakio    ds    5
  135. stackRB    ds    1
  136. spareRB    ds    10000    
  137.  
  138.     org    y:$0
  139. vakiob    ds    5
  140. stackG    ds    1
  141. spareG    ds    10000
  142.     end
  143.