include "doorsos.h"
	include "graphlib.h"
	include "userlib.h"
	include "ziplib.h"
;	xdef		_ti92plus
	xdef		_ti89
 	xdef 		_main
;---------------------------------------------------------------------

_main:
	lea		filename(PC),a1
	lea		folder(PC),a2
	moveq.w		#7,d0
\Clr_name:
	clr.b		(a2)+
	clr.b		(a1)+
	dbra		d0,\Clr_name
	lea		title_m(PC),a0
	jsr		graphlib::smallbox	;draws the small box
	SetFont		#1
;	WriteStr	#75,#61,#4,name
;	WriteStr	#75,#51,#0,fold
	WriteStr	#32,#51,#4,name
	WriteStr	#32,#41,#0,fold
;	move.w		#51,d2
;	move.w		#129,d1
;	move.w		#8,d3
	move.w		#41,d2
	move.w		#73,d1
	move.w		#8,d3
	jsr		userlib::InputStr
	tst.w		d0
	bne		gotf1
	rts
gotf1:
	lea		folder(PC),a1
	moveq.w		#7,d0
Fold_Loop:
	move.b		(a0)+,(a1)+
	dbra		d0,Fold_Loop
;	WriteStr	#75,#61,#0,name
;	WriteStr	#75,#51,#4,fold
	WriteStr	#32,#51,#0,name
	WriteStr	#32,#41,#4,fold
;	move.w		#61,d2
;	move.w		#112,d1
;	move.w		#8,d3
	move.w		#51,d2
	move.w		#63,d1
	move.w		#8,d3
	jsr		userlib::InputStr
	tst.w		d0
	bne		gotf2
	rts
gotf2:
	lea		filename(PC),a1
	moveq.w		#7,d0
Name_Loop:
	move.b		(a0)+,(a1)+
	dbra		d0,Name_Loop
	pea		folder(PC)
	move.w		#$8,-(a7)
	jsr		userlib::FindSymEntry		;search for folder entry
	lea		6(a7),a7
	cmp.l		#0,a0			 	;if d0=0000 no var found
	beq		Invalid_pathname
	move.w		12(a0),d0
	pea		filename(PC)
	move.w		d0,-(a7)			;d0:folder handle
	jsr		userlib::FindSymEntry		;search for textname entry
	lea		6(a7),a7
	cmp.l		#0,a0				;if d0=0000 no var found
	beq		Invalid_pathname
	move.b		#2,d0
	jsr		ziplib::zipfile
	rts

Invalid_pathname:
	move.w	 	#570,-(a7)
	jsr		doorsos::ERD_dialog
	lea		2(a7),a7
	rts

;name		dc.b		"Name : "
name		dc.b		"Name:"
filename	ds.b		9
;fold		dc.b		"Folder : "
fold		dc.b		"Folder:"
folder		ds.b		9
;title_m		dc.b		"Ziper v1.1+ by Marc TEYSSIER :",0 
title_m		dc.b		"Ziper by Marc TEYSSIER :",0  
;*****************************************************
	rts
	end