;ORG_	ORG	#0000
;	DISP   #0000
INTA	EQU	#80
; ROM__
; A0000	JP	NULL_0
; 	DB	#FF,#FF,#FF,#FF,#FF
; A0008	PUSH	AF		;INT BIOS
; 	LD	A,#00
; 	OUT	(#7C),A
; 	POP	AF
; 	RET 
; 	RET 
; A0010	JP	NULL_0		;INT DOS
; 	DB	#FF,#FF,#FF,#FF,#FF
; A0018	JP	NULL_0		;INT DISK
; 	DB	#FF,#FF,#FF,#FF,#FF
; A0020	JP	RST_20		;
; 	DB	#FF,#FF,#FF,#FF,#FF
; A0028	JP	NULL_0		;
; 	DB	#FF,#FF,#FF,#FF,#FF
; A0030	JP	NULL_0		;INT MOUSE
; 	DB	#FF,#FF,#FF,#FF,#FF
; A0038	JP	RST_38		;INTERRUPT

; 	DS	197
; ORG #0200
	JP	INIT
	JP	DLGinit
	JP	GETPARM
	JP	POPUP
	JP	RECTAN
	JP	BPUSH
	JP	BPOP
	JP	POINT
	JP	HZ2LINE
	JP	HRUBBER
	JP	VRUBBER
	JP	PLACE
	JP	CHARS
	JP	OPTIMIZ
	JP	SAVERG
	JP	RESTRG
	JP	CONST
	JP	DESTR
	JP	LCONST
	JP	LDESTR
	JP	LOBJECT
	JP	WAITMSG
	JP	INTMOUS
	JP	INTON
	JP	INTOFF

	JP	LST_INI
	JP	LST_CLR
	JP	SBV_WRK
	JP	EDITBOX

	JP	SBODY
	JP	SBMAX
	JP	SBWIN
	JP	SBVAL
	JP	POSSX
	JP	POSSY
	JP	RSBMAX
	JP	RSBWIN
	JP	RSBVAL
	JP	RPOSSX
	JP	RPOSSY
	JP	PCHARX

	JP	DLGopen
	JP	DLGclos

	JP	XFRAME

	JP	HBAR
	JP	SBH_WRK
	JP	SBLEN
	JP	RSBLEN
	JP	SBHGT
	JP	RSBHGT
	JP	INITSPR
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE
	JP	NONE

NONE	SCF 
	RET 

RST_38	;MAIN INTERUPT
	EI 
	RET 

NULL_0	SCF 
	RET 

RST_20	PUSH	HL
	PUSH	DE
	LD	HL,4
	ADD	HL,SP
	LD	E,(HL)
	INC	(HL)
	INC	HL
	LD	D,(HL)
	JP	NZ,RST401
	INC	(HL)
RST401	EX	DE,HL
	LD	L,(HL)
	LD	H,ADRST20/256
	LD	E,(HL)
	INC	H
	LD	D,(HL)
	EX	DE,HL
	POP	DE
	EX	(SP),HL
	RET 

I500	SCF 
	RET 

USERini	LD	A,2
	SCF 
	RET 

SBODY	LD	(BODY),A
	RET 

SBMAX	LD	(SB_MAX),HL
	RET 

SBWIN	LD	(SB_WIN),HL
	RET 

SBVAL	LD	(SB_VAL),HL
	RET 

POSSX	LD	(POSS_X),HL
	RET 

POSSY	LD	(POSS_Y),HL
	RET 

RSBMAX	LD	HL,(SB_MAX)
	RET 

RSBWIN	LD	HL,(SB_WIN)
	RET 

RSBVAL	LD	HL,(SB_VAL)
	RET 

SBLEN	LD	(SB_LEN),HL
	RET 

RSBLEN	LD	HL,(SB_LEN)
	RET 

SBHGT	LD	(SB_HGT),HL
	RET 

RSBHGT	LD	HL,(SB_HGT)
	RET 



RPOSSX	LD	HL,(POSS_X)
	RET 

RPOSSY	LD	HL,(POSS_Y)
	RET 


INITSPR	LD	(BSPRADR+1),HL
	RET 

	INCLUDE	"WINDOW-H.asm"
	INCLUDE	"DLG.ASM"
	INCLUDE	"INTMOUSE.ASM"
	INCLUDE	"LOBJECT.ASM"

	ALIGN	256
;	ENT 
;	ORG	$/256+1*256
;	DISP   $-#8000
FONTSIZ	;DS	32,6
	DB	6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
	DB	6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
;		  ! " #	$ % & '	( ) * +	, - . /
	DB	6,3,5,6,6,7,7,3,4,4,6,6,4,6,3,7
;		0 1 2 3	4 5 6 7	8 9 : ;	< = > ?
	DB	6,4,6,6,6,6,6,6,6,6,3,4,6,7,6,6
;		@ A B C	D E F G	H I J K	L M N O
	DB	7,6,6,6,6,6,6,6,6,3,5,6,6,8,6,6
;		P Q R S	T U PE W X Y Z [ \ ] ^ _
	DB	6,6,6,6,6,6,6,8,6,6,6,4,6,4,5,6
;		` a b c	d e f g	h i j k	l m n o
	DB	3,6,6,6,6,6,4,6,6,2,5,6,2,8,6,6
;		p q r s	t u v w	x y z {	| } ~
	DB	6,6,3,5,3,6,6,8,6,6,6,4,3,4,6,6

;		A B PE G D E J Z I J K L M N O P
	DB	6,6,6,6,7,6,8,6,6,6,6,6,8,6,6,6
;		R S T U	F H C h	W W X Y	X E U Q
	DB	6,6,6,6,8,6,6,6,8,8,7,7,6,6,8,6
;		a b v g	d e j z	i j k l	m n o p
	DB	6,6,6,6,7,6,8,6,6,6,6,6,8,6,6,6
;	DS	48,6
	DB	6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
	DB	6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
	DB	6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6

;		r s t u	f h c h	w w x y	x e u q
	DB	6,6,6,5,8,5,6,6,8,8,7,7,6,6,7,6
	DB	6,6,6,6,6,6,6,6,5,6,6,6,5,5,6,1

FONTER	INCBIN "IFFWIN2.BIN"

ADRST20;
	DB	I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF
	DB	I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF
	DS	#F0

	DB	I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256
	DB	I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256
	DS	#F0

;	ENT 
_______