;
;	pset & point
;	for Screen_mode 9,10,11
;	written by KXC KAROU¥UOTA

	.386p

	public	HS_psetm10
	public	HS_pointm10


code	segment 'CODE'
	assume cs:code

;	HS_psetm10( x,y,color ) ;
	align	4
HS_psetm10	proc 	near	
		mov	ax,104h
		mov	fs,ax
		mov	eax,[esp+8]
		mov	edx,[esp+4]
		shl	eax,8+2		;eax *= ( 512*2 )
		lea	edx,[edx*2+eax]
		mov	ax,[esp+12]
		mov	fs:[edx],ax
		ret
HS_psetm10	endp


;	color = HS_pointm10( x,y ) ;
	align	4
HS_pointm10	proc 	near	
		mov	ax,104h
		mov	fs,ax
		mov	eax,[esp+8]
		mov	edx,[esp+4]
		shl	eax,8+2		;eax *= ( 512*2 )
		lea	edx,[edx*2+eax]
		movzx	eax,word ptr fs:[edx]
		ret
HS_pointm10	endp

code	ends
	end