*-- Revision Header do NOT edit!
*
*   Program         :	WildStar.asm   
*   Copyright       :   K.R. Simpson 1991
*   Author          :   Ken Simpson                                         
*   Creation Date   :	15 Feb 1992
*   Current version :	1.2
*   Assembler       :   Macro68 v2.128
*
*   REVISION HISTORY
*
*   Date          Version         Comment
*   ---------     -------         ------------------------------------------
*   24 Jan 1992   1.1
*   15 Feb 1992   1.2             A Bit shorter
*
*-- REV_END --*



RNF_WildStar	EQU	$34
****************************************************************************
	exeobj
	errfile	't:Errors.assem'
	objfile	'WildStar'


;_[]
	SECTION	WildStar000000,CODE
ProgStart
	MOVEA.L	(4),A6
	LEA	(DosName),A1
	MOVEA.L	(LibList,A6),A0
	JSR	(_LVOFindName,A6)
	MOVEA.L	D0,A6
	CMPI.W	#$25,(LIB_VERSION,A6)
	BEQ.W	_Version2			; This will only work under
						; Version 2 so exit if not.
	MOVEQ	#0,D0
	JSR	(_LVOOutput,A6)
	MOVE.L	D0,D1
	LEA	(NotV2,PC),A0
	MOVE.L	A0,D2
	MOVEQ	#$22,D3
	JSR	(_LVOWrite,A6)
	MOVEQ	#$14,D0
	BRA.B	ExitNow

_Version2
	MOVEA.L	(dl_Root,A6),A3
	BCHG	#0,(RNF_WildStar,A3)
	BNE.B	StarOff
	MOVEQ	#0,D0
	JSR	(_LVOOutput,A6)
	MOVE.L	D0,D1
	LEA	(StarOn.MSG,PC),A0
	MOVE.L	A0,D2
	MOVEQ	#$23,D3
	JSR	(_LVOWrite,A6)
	MOVEQ	#0,D0
	BRA.B	ExitNow

StarOff	MOVEQ	#0,D0
	JSR	(_LVOOutput,A6)
	MOVE.L	D0,D1
	LEA	(StarOff.MSG,PC),A0
	MOVE.L	A0,D2
	MOVEQ	#$2B,D3
	JSR	(_LVOWrite,A6)
	MOVEQ	#0,D0
ExitNow	RTS

NotV2		db	'Sorry, this program needs WB 2.0.',$A,0
StarOn.MSG	db	'The star (''*'') is now a wildcard.',$A,0
StarOff.MSG	db	'The star (''*'') is now a normal character.',$A,0
DosName		db	'dos.library',0
	end