X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=16%2Fxw__%2Fmxpn.asm;fp=16%2Fxw__%2Fmxpn.asm;h=7b60449d765eb0d2d28fd51e9a71725f09f6b118;hb=47cdc66151d973d975d0e31fb8a786eb639bebdb;hp=0000000000000000000000000000000000000000;hpb=4b23f27092a9470a741e3a18261ad389fd1929db;p=16.git

diff --git a/16/xw__/mxpn.asm b/16/xw__/mxpn.asm
new file mode 100755
index 00000000..7b60449d
--- /dev/null
+++ b/16/xw__/mxpn.asm
@@ -0,0 +1,35 @@
+.387
+		PUBLIC	MXPAN
+		EXTRN	MX_BYTESPERLINE:BYTE
+		EXTRN	MXWAITDISPLAY:BYTE
+		EXTRN	MXSTARTADDRESS:BYTE
+MX_TEXT		SEGMENT	PARA PUBLIC USE16 'CODE'
+		ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
+MXPAN:
+	push		bp
+	mov		bp,sp
+	sub		sp,0
+	mov		ax,word ptr 6[bp]
+	mul		word ptr cs:MX_BYTESPERLINE
+	mov		dx,word ptr 8[bp]
+	shr		dx,1
+	shr		dx,1
+	add		ax,dx
+	push		ax
+	call		far ptr MXWAITDISPLAY
+	call		far ptr MXSTARTADDRESS
+	mov		dx,3daH
+	in		al,dx
+	mov		dx,3c0H
+	mov		al,33H
+	out		dx,al
+	mov		al,byte ptr 8[bp]
+	and		al,3
+	shl		al,1
+	out		dx,al
+	xor		ax,ax
+	mov		sp,bp
+	pop		bp
+	retf		4
+MX_TEXT		ENDS
+		END