home *** CD-ROM | disk | FTP | other *** search
/ The Party 1994: Try This At Home / disk_image.bin / source / fakesrc / 0plasma.asm next >
Encoding:
Assembly Source File  |  1993-10-21  |  1.8 KB  |  51 lines
  1. ;=============================================================================
  2. ; 0plasma.asm - Builds the diferent plasma effects.
  3. ;                                                    File created: 10-21-93
  4. ; Copyright (c) 1993, Carlos Hasan                  Last modified: 10-21-93
  5. ;
  6. ; Description:
  7. ;   This is just a simple loader that executes three differect plasma
  8. ;   routines that must be linked with this file.
  9. ;
  10. ; Portability:
  11. ;  Requires Turbo Assembler 3.2 or better to be assembler.
  12. ;  Dependent on the IBM PC 286 and the VGA graphics card.
  13. ;=============================================================================
  14.  
  15.                 dosseg
  16.                 .model  small,pascal
  17.                 .286
  18.  
  19.                 .stack  1024
  20.  
  21.                 global  ColorPlasma:proc        ; in CPLASMA.ASM
  22.                 global  SinusPlasma:proc        ; in RPLASMA.ASM
  23.                 global  WavePlasma:proc         ; in WPLASMA.ASM
  24.  
  25.  
  26. ;====================== Demo Code ============================================
  27.  
  28.                 .code
  29.  
  30. ;-----------------------------------------------------------------------------
  31. ; Start - Entry point of execution for this tiny demostration.
  32. ; In:
  33. ;  DS - Program Segment Prefix.
  34. ;  CS - Code Segment.
  35. ;-----------------------------------------------------------------------------
  36.  
  37. Start           proc
  38.  
  39.                 mov     ax,@Data                ; setup DS segment.
  40.                 mov     ds,ax
  41.                 call    ColorPlasma             ; do color plasma.
  42.                 call    SinusPlasma             ; do sinus plasma.
  43.                 call    WavePlasma              ; do wave plasma.
  44.                 mov     ax,4C00h
  45.                 int     21h                     ; exit to DOS.
  46.  
  47. Start           endp
  48.  
  49.                 end     Start
  50. ;
  51.