home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG008.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-05-15  |  889 b   |  21 lines
  1.  
  2. ;************************************************************************
  3. ; Using BIOS service to load all registers in palette                   *
  4. ;************************************************************************
  5.                                         ;Palette + Overscan value
  6. Palette_table   DB      0, 1, 2, 3, 4, 5, 6, 7
  7.                 DB      8, 9,10,11,12,13,14,15, 0
  8.  
  9.         PUBLIC  _BIOS_Palette
  10.  
  11. _BIOS_Palette   PROC NEAR
  12.         PUSH    ES
  13.         MOV     AX,CS                   ;Load ES with Code segment
  14.         MOV     ES,AX                   ;to get address of table into ES:DX
  15.         LEA     DX,Palette_table        ;Load BX with offset of VLT
  16.         MOV     AX,1002H                ;Function 10 and subfunction 02
  17.         INT     10H                     ;Ask BIOS to load the palette
  18.         POP     ES
  19.         RET
  20. _BIOS_Palette   ENDP
  21.