2D-Studio/GRAFOPEN.ASM

;APOINT:		EQU	8	;#3D13
GO:	;DI 
		LD	IX,TAB00
		LD	HL,#0000
		LD	E,1
		LD	C,#B0
		RST	8
		;
		LD	IX,TAB01
		LD	HL,#0703
		LD	E,1
		LD	C,#B0
		RST	8
		;
		LD	IX,TAB02
		LD	HL,#0826
		LD	E,1
		LD	C,#B0
		RST	8
		;
		LD	IX,TAB03
		LD	HL,#0000
		LD	E,1
		LD	C,#B0
		RST	8
		;
		LD	IX,TAB04
		LD	HL,#0000
		LD	E,1
		LD	C,#B0
		RST	8
		RET

TAB00:		DEFB	40,32,#00,#00,#20,#00,#08,#00
TAB01:		DEFB	33,23,#03,#07,#60,#00,#0B,#07
TAB02:		DEFB	01,21,038,#08,#60,#00,046,#08

TAB03:		DEFB	08,02,028,#04,#60,#00,#24,#04
TAB04:		DEFB	02,02,037,#04,#60,#00,#2D,#04

NORTAB:		DEFB	12,23,#0F,#07,#20,#00,#17,#07
SECTAB:		DEFB	12,23,#0F,#07,#60,#00,#17,#07

SETNWIN:	DI
		LD	IX,NORTAB
		LD	HL,#0F07
		LD	E,1
		LD	C,#B0
		RST	8
		EI
		RET

SETAWIN:	DI
		LD	IX,SECTAB
		LD	HL,#0F07
		LD	E,1
		LD	C,#B0
		RST	8
		EI
		RET