home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c010 / 1.ddi / FLILIB3.ZIP / FLISRC3.ZIP / JSETCOLO.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-29  |  529 b   |  54 lines
  1.  
  2. ;set the color map
  3.  
  4.     dosseg
  5.     .model    large
  6.     .code
  7.  
  8.     public _aa_set_colors
  9. _aa_set_colors proc far
  10.     ;aa_set_colors(0, 256, vga_cmap);
  11.     push bp
  12.     mov bp,sp
  13.     push cx
  14.     push bx
  15.     push ds
  16.     push si
  17.  
  18.     cld
  19.     mov    bx,[bp+4+2]
  20.     mov    cx,[bp+6+2]
  21.     lds    si,[bp+8+2]
  22.  
  23. st1:
  24.     mov    dx,3c8h
  25.     mov al,bl
  26.     out dx,al
  27.     inc bl
  28.     inc dx
  29.     jmp s1
  30. s1:
  31.     lodsb
  32.     out dx,al
  33.     jmp s2
  34. s2:
  35.     lodsb
  36.     out dx,al
  37.     jmp s3
  38. s3:
  39.     lodsb
  40.     out dx,al
  41.     loop st1
  42.  
  43.  
  44.     pop si
  45.     pop ds
  46.     pop bx
  47.     pop cx
  48.     pop bp
  49.     ret
  50. _aa_set_colors endp
  51.  
  52.  
  53. END
  54.