	ORG #C000

CallFn	EQU #5B06
CallPg	EQU #5B0C
Page	EQU #5B21
Return	EQU #5B0F
KosADE	EQU #5B1E
ST_	EQU #5B27

ZadN	EQU #6003
PageN	EQU #6008

STACK	EQU #5FFF

;---------------------------------------------------------------
	DS 8    ;   

	DW InitLibrary  ;#00
	DW CloseLibrary ;#01

	DW Help
;---------------------------------------------------------------
InitLibrary RET
CloseLibrary RET

ConsoleName DB "console .lib",0
ConsoleNum  DB 0
CommandName DB "command .lib",0
CommandNum  DB 0

;	   
Help	LD A,(PageN)
	LD HL,ConsoleName
	CALL CallFn
	DB 42   ;OpenL
	RET C	;Error
	LD (ConsoleNum),A
      ;  Command
	LD A,(PageN)
	LD HL,CommandName
	CALL CallFn
	DB 42   ;OpenL
	JP C,CloseCon
	LD (CommandNum),A
     ;  
     ; 
	LD A,(ConsoleNum)
	LD B,A
	LD C,2
	LD A,(PageN)
	LD HL,Text
	CALL CallFn
	DB 43
     ; 
	LD A,(CommandNum)
	LD B,A
	LD C,3
	CALL CallFn
	DB 43
     ;  (AHL)
	PUSH AF
	LD A,(ConsoleNum)
	LD B,A
	LD C,2
	POP AF
	CALL CallFn
	DB 43
     ;  2
	LD A,(ConsoleNum)
	LD B,A
	LD C,2
	LD A,(PageN)
	LD HL,Text2
	CALL CallFn
	DB 43
     ;	 "command.lib"
	LD A,(CommandNum)
	CALL CallFn
	DB 69
     ;	 "console.lib"
CloseCon LD A,(ConsoleNum)
	CALL CallFn
	DB 69
	RET

Text	DB " ࠬ:",13,0
Text2	DB 13,"The end",13,0

END
                                                                                             
