home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / GSAVE2.ZIP / GLOAD2.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-12-04  |  1.5 KB  |  84 lines
  1. .model small
  2. .stack 100h
  3. .data
  4.  
  5. picture dw ?
  6. file    db 'SCREENGS.000',0
  7.  
  8. .code
  9.         mov     ax,@data
  10.         mov     ds,ax
  11.  
  12.         mov     ax,4a00h
  13.         mov     bx,1000
  14.         int     21h
  15.  
  16.         mov     ax,0013h
  17.         int     10h
  18.         push    0a000h
  19.         pop     es
  20.  
  21.         mov     ax,4800h
  22.         mov     bx,1000h
  23.         int     21h
  24.         mov     picture,ax
  25.  
  26.         mov     ax,3d00h
  27.         lea     dx,file
  28.         int     21h
  29.         jc      error
  30.         mov     bx,ax
  31.  
  32.         mov     ax,3f00h
  33.         mov     cx,768        
  34.         xor     dx,dx
  35.         push    ds picture
  36.         pop     ds
  37.         int     21h
  38.  
  39.         mov     dx,3c8h
  40.         xor     al,al
  41.         out     dx,al
  42.         inc     dx
  43.         mov     cx,768
  44.         xor     si,si
  45. load_colors:
  46.         lodsb
  47.         out     dx,al
  48.         loop    load_colors
  49.         pop     ds
  50.  
  51.         mov     ax,3f00h
  52.         mov     cx,320*200
  53.         xor     dx,dx
  54.         push    ds picture
  55.         pop     ds
  56.         int     21h
  57.  
  58.         mov     ax,3e00h
  59.         int     21h
  60.  
  61.         xor     si,si
  62.         xor     di,di
  63.         mov     cx,320*200
  64.         rep     movsb
  65.         pop     ds
  66.         
  67.         xor     ah,ah
  68.         int     16h
  69.  
  70. error:
  71.  
  72.         push    es
  73.         mov     ax,picture
  74.         mov     es,ax
  75.         mov     ax,4900h
  76.         int     21h
  77.         pop     es
  78.  
  79.         mov     ax,0003h
  80.         int     10h
  81.         mov     ax,4c00h
  82.         int     21h
  83. end
  84.