home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG082.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-10  |  910 b   |  23 lines
  1.  
  2. ;************************************************************************
  3. ; Read value of the pixel at 100,50 and return value in AX              *
  4. ; Use BIOS function READ PIXEL to get the value.                        *
  5. ;************************************************************************
  6.  
  7. X               EQU     [BP+4]          ;Formal parameters on stack
  8. Y               EQU     [BP+6]
  9.  
  10.         PUBLIC  _BIOS_Pixel_Read
  11.  
  12. _BIOS_Pixel_Read PROC    NEAR
  13.         PUSH    BP
  14.         MOV     BP,SP
  15.         MOV     CX,X                    ;Load pixel (column)
  16.         MOV     DX,Y                    ;Load raster (row)
  17.         MOV     AH,0DH                  ;Function = READ PIXEL
  18.         INT     10H                     ;Ask BIOS to read the pixel
  19.         XOR     AH,AH                   ;Clear upper bits of AX (since value in
  20.         POP     BP
  21.         RET
  22. _BIOS_Pixel_Read ENDP
  23.