home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / democomp / demo / _2complx.arj / 2CLX-SRC.ZIP / VALAMI / SMOOTH.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-11-10  |  4.2 KB  |  173 lines
  1. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  2. ;
  3. ; A SHOCK! BEMUTATJA: MILYEN EGY OPTIMALIZALATLAN FORRAS...
  4. ;
  5. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  6.  
  7.  
  8. paletti:        x = 0
  9.                 y = 0
  10.                 z = 0
  11.  
  12.                 rept 64
  13.                 db x
  14.                 db y
  15.                 db z
  16.                 db x
  17.                 db y
  18.                 db z
  19.                 db x
  20.                 db y
  21.                 db z
  22.                 db x
  23.                 db y
  24.                 db z
  25.                 x = x + 1
  26.                 y = y + 1
  27.                 z = z + 1
  28.                 endm
  29.  
  30. paletti2:       x = 0
  31.                 y = 0
  32.                 z = 0
  33.  
  34.                 rept 64
  35.                 db x/2
  36.                 db y
  37.                 db z*2
  38.                 db x/2
  39.                 db y
  40.                 db z*2
  41.                 db x/2
  42.                 db y
  43.                 db z*2
  44.                 db x/2
  45.                 db y
  46.                 db z*2
  47.                 x = x + 1
  48.                 y = y + 1
  49.                 z = z + 1
  50.                 endm
  51.  
  52. paletti3:       x = 0
  53.                 y = 0
  54.                 z = 0
  55.  
  56.                 rept 64
  57.                 db x/2
  58.                 db y*2
  59.                 db z*2
  60.                 db x/2
  61.                 db y*2
  62.                 db z*2
  63.                 db x/2
  64.                 db y*2
  65.                 db z*2
  66.                 db x/2
  67.                 db y*2
  68.                 db z*2
  69.                 x = x + 1
  70.                 y = y + 1
  71.                 z = z + 1
  72.                 endm
  73.  
  74. paletti4:       x = 0
  75.                 y = 0
  76.                 z = 0
  77.  
  78.                 rept 64
  79.                 db x*2
  80.                 db y/2
  81.                 db z*2
  82.                 db x*2
  83.                 db y/2
  84.                 db z*2
  85.                 db x*2
  86.                 db y/2
  87.                 db z*2
  88.                 db x*2
  89.                 db y/2
  90.                 db z*2
  91.                 x = x + 1
  92.                 y = y + 1
  93.                 z = z + 1
  94.                 endm
  95.  
  96. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  97.  
  98. paletta:        pusha
  99.                 mov     dx,3c8h
  100.                 xor     ax,ax
  101.                 out     dx,al
  102.                 mov     bl,0
  103.                 inc     dx
  104.                 mov     cx,768
  105.                 lea     si,paletti
  106.                 rep     outsb
  107.         popa
  108.         ret
  109.  
  110. paletta2:       pusha
  111.                 mov     dx,3c8h
  112.                 xor     ax,ax
  113.                 out     dx,al
  114.                 mov     bl,0
  115.                 inc     dx
  116.                 mov     cx,768
  117.                 lea     si,paletti2
  118.                 rep     outsb
  119.         popa
  120.         ret
  121.  
  122. paletta3:       pusha
  123.                 mov     dx,3c8h
  124.                 xor     ax,ax
  125.                 out     dx,al
  126.                 mov     bl,0
  127.                 inc     dx
  128.                 mov     cx,768
  129.                 lea     si,paletti3
  130.                 rep     outsb
  131.         popa
  132.         ret
  133.  
  134. paletta4:       pusha
  135.                 mov     dx,3c8h
  136.                 xor     ax,ax
  137.                 out     dx,al
  138.                 mov     bl,0
  139.                 inc     dx
  140.                 mov     cx,768
  141.                 lea     si,paletti4
  142.                 rep     outsb
  143.         popa
  144.         ret
  145.  
  146. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  147.  
  148. smooth:         mov     di,320+50
  149. smoo:        mov    ah,0
  150.         mov    bh,0
  151.                 mov     cx,220
  152. smoo1:          mov     al,byte ptr es:[di+2]
  153.                 mov     bl,byte ptr es:[di-2]
  154.         add    ax,bx
  155.                 mov     bl,byte ptr es:[di-2*320]
  156.                 add     ax,bx
  157.                 mov     bl,byte ptr es:[di+2*320]
  158.                 add     ax,bx
  159.                 shr     ax,2
  160.                 MOV     fs:[di],al
  161.                 mov     si,64000
  162.                 sub     si,di
  163.                 MOV     fs:[si],al
  164.                 inc     di
  165.                 dec     cx
  166.                 jnz     smoo1
  167.                 add     di,100
  168.                 cmp     di,50000
  169.         jbe    smoo
  170.         ret
  171.  
  172. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  173.