*******************************************************************************
*		  EX4 Documents Disk -^- LOADER SCRIPT GENERATOR -^-
* ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
*	Simply load this text into 'AsmOne' then edit the lines 'DefLoad'.
*
* These contain the following information in the layout below;  
*
*		Defload	LINENUMBER,"FILENAME"
*
*	The 'line-number' refers to the line in the index on which the file in
* the 'filename' should be loaded if the left mouse button was pressed while
* viewing the 'index' text. The last line in the script must end with 'DefEnd'
*
* After editing this script just press the <ESC> key and press 'A' followed by
* <RETURN>. This will then save a file onto the disk called 'LOADSCRIPT.BIN'.
*
* The file will be save in a scrambled 'encrypted' form so that its tamper
* proof from non (good) coder/cracker lamers trying to change it!
*	There will be an update to this proggy later so that there is
*	no limit to the number of files.... so keep an eye out!!!!!!
*******************************************************************************
DefLoad		macro
		dc.b	-2
		dc.b	\1
		dc.b	\2,0
		even
		endm

DefEnd		macro
		dcb.b	8,-1
		even
		endm
		auto	\j\\wb ex4dd:LOADSCRIPT\StartScript\EndScript\

		bra.s	DoEncryption

		;-------------- Script starts HERE!
		
StartScript:
		DefLoad	026,"DUNEII"
		DefLoad 046,"TestPIC.iff"
		DefLoad 047,"TestPIC2.iff"
		DefLoad 048,"TestPIC3.iff"
		DefLoad	090,"README"
		DefLoad 091,"DOCINDEX"
		DefLoad	026,"DUNEII"
		DefLoad 046,"TestPIC.iff"
		DefLoad 047,"TestPIC2.iff"
		DefLoad 048,"TestPIC3.iff"
		DefLoad	090,"README"
		DefLoad 091,"DOCINDEX"
		DefLoad	026,"DUNEII"
		DefLoad 046,"TestPIC.iff"
		DefLoad 047,"TestPIC2.iff"
		DefLoad 048,"TestPIC3.iff"
		DefLoad	090,"README"
		DefLoad 091,"DOCINDEX"
		DefLoad	026,"DUNEII"
		DefLoad 046,"TestPIC.iff"
		DefLoad 047,"TestPIC2.iff"
		DefLoad 048,"TestPIC3.iff"
		DefLoad	090,"README"
		DefLoad 091,"DOCINDEX"

		DefEnd		
EndScript:	;-------------- Script Ends HERE!

*******************************************************************************
		even		
DoEncryption	lea	startscript(pc),a0
		lea	endscript(pc),a1
encode:		cmp.l	a0,a1
		beq.s	done
		move.b	(a0),d0
		bset	#7,d0
		move.b	d0,(a0)+
		bra.s	encode
done		rts