;THE TIMECIRCLE PRESENTS The loader for selector program
;Also (C)1988 by Brian Postma
;P.O.Box 367
;7570 AJ Oldenzaal
;Holland
;or call:05410-14763


execbase = 4		;basisadres exec
openlib = -552		;offset voor openlib
closelib = -414		;idem        closelib
output = -60		;huidige uitgave-device
write = -48		;gegevens uitgeven

start:
 movem.l d0-d7/a0-a6,-(a7)
 move.l	execbase,a6	;basisadres halen
 lea	dosname,a1	;adres bib naam
 moveq	#0,d0		;willekuerige versie
 jsr	openlib(a6)	;dos-bib openen
 move.l	d0,dosbase	;basisadres bib
 move.l	d0,a6		;
 jsr	output(a6)	;filehandler halen
 move.l	d0,outhandle	;zeker stellen
 jsr	main		;naar main
 movem.l  (a7)+,d0-d7/a0-a6
 jsr	execute
 rts


main:
 move.l	dosbase,a6
 move.l	outhandle,d1
 move.l	#ttc,d2
 move.l #ttcend-ttc,d3
 jsr	write(a6)
 rts


execute:movem.l	d1-d7/a0-a6,-(sp)
	move.l	dosbase,a6
	move.b	$84,d1
	lea	Name,a0
Loop1:	cmp.b	(a0)+,d1
	bne.s	Loop1
	move.l	a0,d1		;string
	clr.l	d2
	clr.l	d3
	jsr	-222(a6)	;Execute
	movem.l	(sp)+,d1-d7/a0-a6
	clr.l	d0
	rts

*-------------------------------------------
Name:	dc.b	1,"first file",0		;first number of file
	dc.b	2,"second file",0		;after that the name
	dc.b	3,"another file",0		;followed by 0 (zero)
	dc.b	4,"damn' one more !!",0

even
outhandle:
 dc.l	0
dosbase:
 dc.l	0
dosname:
 dc.b	"dos.library",0

ttc:
 dc.b	27,"c",27,"[0x",27,"[80u",27,"[0y",27,"[25t",12
 dc.b	27,"[3m",10,10,10,10,10,10,10,10,10
 dc.b	"                          This source was presented by"
 dc.b	10,10
 dc.b	"                                THE TIMECIRCLE        "
 dc.b	10,10
 dc.b	"                             A touch of perfection    "
 dc.b	10,10,10,10,10,27,"[0m",0
ttcend:
 even