Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!mcnc!ecsvax!phco
From: phco@ecsvax.UUCP (John Miller)
Newsgroups: comp.sys.ibm.pc
Subject: Re: wanted: MASM routine
Message-ID: <3323@ecsvax.UUCP>
Date: Wed, 3-Jun-87 09:25:19 EDT
Article-I.D.: ecsvax.3323
Posted: Wed Jun  3 09:25:19 1987
Date-Received: Sat, 6-Jun-87 20:50:30 EDT
References: <15963@brunix.UUCP>
Reply-To: phco@ecsvax.UUCP (John Miller)
Organization: Univ. of North Carolina at Chapel Hill
Lines: 36

Here's one for Microsoft Pascal.  I'm not sure about the differences in
parameter passing, but I think Microsoft C can use this.

; wr_pixel.asm
; calls the IBM PC rom BIOS video service to write a pixel dot 
; to call from MS-PASCAL:
;       procedure wr_pixel(x,y,color: integer); extern;
;       x and y are horizontal and vertical coordinates (0,0 at upper left)
;       color depends on screen mode and color palette (see DOS manual)
;
;                                       ----- John Miller 10/23/86
 
WRPIXS   SEGMENT 'CODE'
PUBLIC   WR_PIXEL
WR_PIXEL PROC FAR
         PUSH BP                ; SAVE BASE POINTER
         MOV BP,SP
 
         MOV AL,6[BP]           ; GET COLOR
         MOV DL,8[BP]           ; GET Y
         MOV CX,10[BP]          ; GET X
 
         MOV AH,12
         INT 16                 ; CALL BIOS WRITE PIXEL
 
         POP BP
         RET 6                  ; REMOVE PARAMETERS FROM STACK
WR_PIXEL ENDP
WRPIXS   ENDS
         END
 

-- 
                        John Miller  (ecsvax!phco)
                        Dept. of Pharmacology, Univ. of N.C.-Chapel Hill
                        Chapel Hill, NC 27514       (919) 966-4343