home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / HGRPCX10.ZIP / CLRGWIN.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-04-13  |  620 b   |  68 lines
  1. ;
  2. ; EGA1.ASM
  3. ;
  4.  
  5.         .model large
  6.  
  7.  
  8. Prefix    macro
  9.     push    bp
  10.     mov    bp,sp
  11.     push    ds
  12.     push    es
  13.     push    si
  14.     push    di
  15.     endm
  16.  
  17.  
  18. Postfix    macro
  19.     pop    di
  20.     pop    si
  21.     pop    es
  22.     pop    ds
  23.     mov    sp,bp
  24.     pop    bp
  25.     ret
  26.     endm
  27.  
  28.  
  29.     public    _clrgwin
  30.  
  31. codeseg    segment    byte public 'CODE'
  32.     assume    cs:codeseg
  33.  
  34.  
  35. _clrgwin    proc    far
  36.  
  37.     Prefix
  38.  
  39.     mov    ax,0A000h
  40.     mov    es,ax
  41.  
  42.     mov    di,[bp+6]
  43.  
  44.     lds    si,[bp+8]
  45.  
  46.     mov    dx,[bp+12]
  47.     mov    bx,28h
  48.     sub    bx,[bp+10]
  49.     mov    cx,[bp+10]
  50.     mov    al,[bp+8]
  51.  
  52. clrgwinloop:
  53.     push    cx
  54.     rep    stosb
  55.     pop    cx
  56.     add    di,bx
  57.     dec    dx
  58.     jg    clrgwinloop
  59.  
  60.     Postfix
  61.  
  62. _clrgwin    endp
  63.  
  64.  
  65. codeseg    ends
  66.  
  67.     end
  68.