PR> Hi All,
PR>   well Im after a pixel routine, not the usuall 
PR> Mem[$A000:Addr]
PR>  stuff, but one for graphix mode $12. The reason is im 

This one is for mode $13(320*200). Just change line "mov ax,320"
for a different resolution.
PROCEDURE PUTPIXEL(X,Y:INTEGER;COLOUR:WORD);

BEGIN
 ASM
  MOV AX,$A000
  MOV ES,AX
  MOV AX,320
  MOV CX,Y
  MUL CX
  ADD AX,X
  MOV DI,AX
  MOV AX,COLOUR
  MOV [ES:DI],AX
 END;
END;

Doug.

--- Msgedsq/2 3.10