home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / trainer / gifasm.asm < prev    next >
Assembly Source File  |  1995-08-07  |  1KB  |  63 lines
  1. .286
  2.   w equ word ptr
  3.   b equ byte ptr
  4. code segment public
  5. assume cs:code,ds:code
  6.   extrn insthand:near
  7.   extrn loadgif:near
  8.   extrn setpal:near
  9.   extrn p13_2_modex:near
  10.   extrn squeeze:near
  11.   extrn blackpal:near
  12.   extrn init_modex:near
  13.   extrn reslim:byte
  14.   extrn oldint21:dword
  15.   extrn oldint65:dword
  16.   extrn ID:dword
  17.   extrn makecopy:near
  18.   public resident
  19.   public drawgif
  20.   public deinst
  21. resident proc near
  22.   call insthand
  23.   mov ax,word ptr ds:[2ch]
  24.   mov es,ax
  25.   mov ah,49h
  26.   int 21h
  27.   lea dx,reslim
  28.   inc dx
  29.   int 27h
  30.     ret
  31. resident endp
  32. drawgif proc near
  33.   call init_modex
  34.   call blackpal
  35.   call setpal
  36.  
  37.   call loadgif
  38.   call p13_2_modex pascal,8001,7999
  39. ;    call setpal
  40.   call squeeze
  41.  
  42.   mov ah,1
  43.   int 21h
  44.   ret
  45. drawgif endp
  46. deinst proc near
  47.   mov ah,49h
  48.   int 21h
  49.   mov dx,es:w oldint21
  50.   mov ax,es:w oldint21 + 2
  51.   mov ds,ax
  52.   mov ax,2521h
  53.   int 21h
  54.   mov dx,es:w oldint65
  55.   mov ax,es:w oldint65 + 2
  56.   mov ds,ax
  57.   mov ax,2565h
  58.   int 21h
  59.   int 20h
  60. deinst endp
  61. code ends
  62. end
  63.