*******************************************************************************
*		  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	127
		dc.b	\1
		dc.b	\2,0
		even
		endm

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

		bra.w	DoEncryption

		;-------------- Script starts HERE!
		
StartScript:
		DefLoad	015,"Edge1.doc"
		DefLoad 016,"Edge2.doc"
		DefLoad 017,"Edge3.doc"
		DefLoad 018,"avt-spb3.doc"
		DefLoad	019,"dtl_cdos.doc"
		DefLoad 020,"dtl_mm.doc"
		DefLoad	021,"dtl_klon.doc"
		DefLoad 022,"dtl_syms.doc"
		DefLoad 023,"lsd_guar.doc"
		DefLoad 024,"psg-rt.doc"
		DefLoad	025,"psg-tcfd.doc"
		DefLoad 026,"trd-ufo.doc"
		DefLoad	027,"trd-or.doc"
		DefLoad 028,"uropa2.doc"
		DefLoad 029,"PP1.doc"
		DefLoad 030,"PP2.doc"
		DefLoad 031,"tpark.docs"
		DefLoad 032,"greetz"
	

		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