LIOGSCRE.A86

CGROUP	GROUP	TEXT
TEXT	CSEG

liogscre_::
	PUSH	DS
	PUSH	ES
	PUSH	SS
	PUSH	AX
	PUSH	BX
	PUSH	CX
	PUSH	DX
	PUSH	BP
	PUSH	SP
	PUSH	SI
	PUSH	DI

	SHR	AX,4
	ADD	AX,BX
	INC	AX
	MOV	DS,AX

	XOR	BX,BX
	MOV	DS:[0].B,03h	;Color 640x400
	MOV	DS:[1].B,00h
	MOV	DS:[2].B,00h
	MOV	DS:[3].B,01h

	INT	0a1h

	POP	DI
	POP	SI
	POP	SP
	POP	BP
	POP	DX
	POP	CX
	POP	BX
	POP	AX
	POP	SS
	POP	ES
	POP	DS

	RET