fixed "clean" target and made sure code compiles with m68k-atari-mint toolchain

loading and verifying .s19 files from basflash.s19 works!

.cproject

@@ -1,7 +1,5 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<?fileVersion 4.0.0?>
-
-<cproject storage_type_id="org.eclipse.cdt.core.XmlProjectDescriptionStorage">
+<?fileVersion 4.0.0?><cproject storage_type_id="org.eclipse.cdt.core.XmlProjectDescriptionStorage">
 	<storageModule moduleId="org.eclipse.cdt.core.settings">
 		<cconfiguration id="cdt.managedbuild.toolchain.gnu.cross.base.500844171">
 			<storageModule buildSystemId="org.eclipse.cdt.managedbuilder.core.configurationDataProvider" id="cdt.managedbuild.toolchain.gnu.cross.base.500844171" moduleId="org.eclipse.cdt.core.settings" name="Default">
@@ -17,17 +15,37 @@
 			<storageModule moduleId="cdtBuildSystem" version="4.0.0">
 				<configuration artifactName="BaS_GNU" buildProperties="" description="" errorParsers="org.eclipse.cdt.core.GASErrorParser;org.eclipse.cdt.core.GCCErrorParser;org.eclipse.cdt.core.GLDErrorParser;org.eclipse.cdt.core.GmakeErrorParser;org.eclipse.cdt.core.CWDLocator" id="cdt.managedbuild.toolchain.gnu.cross.base.500844171" name="Default" parent="org.eclipse.cdt.build.core.emptycfg">
 					<folderInfo id="cdt.managedbuild.toolchain.gnu.cross.base.500844171.251316721" name="/" resourcePath="">
-						<toolChain id="cdt.managedbuild.toolchain.gnu.cross.base.2075717076" name="cdt.managedbuild.toolchain.gnu.cross.base">
-							<option id="cdt.managedbuild.option.gnu.cross.prefix.229077196" name="Prefix" superClass="cdt.managedbuild.option.gnu.cross.prefix"/>
-							<option id="cdt.managedbuild.option.gnu.cross.path.675708329" name="Path" superClass="cdt.managedbuild.option.gnu.cross.path"/>
-							<targetPlatform archList="all" binaryParser="" id="cdt.managedbuild.targetPlatform.gnu.cross.1762656328" isAbstract="false" osList="all"/>
-							<builder id="cdt.managedbuild.builder.gnu.cross.1405451926" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="Gnu Make Builder"/>
+						<toolChain id="cdt.managedbuild.toolchain.gnu.cross.base.237011896" name="Cross GCC" superClass="cdt.managedbuild.toolchain.gnu.cross.base">
+							<option id="cdt.managedbuild.option.gnu.cross.prefix.272340778" name="Prefix" superClass="cdt.managedbuild.option.gnu.cross.prefix"/>
+							<option id="cdt.managedbuild.option.gnu.cross.path.572966236" name="Path" superClass="cdt.managedbuild.option.gnu.cross.path"/>
+							<targetPlatform archList="all" binaryParser="" id="cdt.managedbuild.targetPlatform.gnu.cross.1946104397" isAbstract="false" osList="all" superClass="cdt.managedbuild.targetPlatform.gnu.cross"/>
+							<builder id="cdt.managedbuild.builder.gnu.cross.116010461" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="Gnu Make Builder" superClass="cdt.managedbuild.builder.gnu.cross"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.c.compiler.1346392496" name="Cross GCC Compiler" superClass="cdt.managedbuild.tool.gnu.cross.c.compiler">
+								<option id="gnu.c.compiler.option.include.paths.869536174" superClass="gnu.c.compiler.option.include.paths" valueType="includePath">
+									<listOptionValue builtIn="false" value="/usr/m68k-elf/include"/>
+								</option>
+								<inputType id="cdt.managedbuild.tool.gnu.c.compiler.input.2036594113" superClass="cdt.managedbuild.tool.gnu.c.compiler.input"/>
+							</tool>
+							<tool id="cdt.managedbuild.tool.gnu.cross.cpp.compiler.1539098439" name="Cross G++ Compiler" superClass="cdt.managedbuild.tool.gnu.cross.cpp.compiler"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.c.linker.983740799" name="Cross GCC Linker" superClass="cdt.managedbuild.tool.gnu.cross.c.linker">
+								<inputType id="cdt.managedbuild.tool.gnu.c.linker.input.406272886" superClass="cdt.managedbuild.tool.gnu.c.linker.input">
+									<additionalInput kind="additionalinputdependency" paths="$(USER_OBJS)"/>
+									<additionalInput kind="additionalinput" paths="$(LIBS)"/>
+								</inputType>
+							</tool>
+							<tool id="cdt.managedbuild.tool.gnu.cross.cpp.linker.57852077" name="Cross G++ Linker" superClass="cdt.managedbuild.tool.gnu.cross.cpp.linker"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.archiver.1399280647" name="Cross GCC Archiver" superClass="cdt.managedbuild.tool.gnu.cross.archiver"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.assembler.1268440718" name="Cross GCC Assembler" superClass="cdt.managedbuild.tool.gnu.cross.assembler">
+								<inputType id="cdt.managedbuild.tool.gnu.assembler.input.468245267" superClass="cdt.managedbuild.tool.gnu.assembler.input"/>
+							</tool>
 						</toolChain>
 					</folderInfo>
 					<fileInfo id="cdt.managedbuild.toolchain.gnu.cross.base.500844171.1693274825" name="Makefile" rcbsApplicability="disable" resourcePath="Makefile" toolsToInvoke=""/>
 				</configuration>
 			</storageModule>
 			<storageModule moduleId="org.eclipse.cdt.core.externalSettings"/>
+			<storageModule moduleId="org.eclipse.cdt.core.language.mapping"/>
+			<storageModule moduleId="org.eclipse.cdt.internal.ui.text.commentOwnerProjectMappings"/>
 		</cconfiguration>
 		<cconfiguration id="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686">
 			<storageModule buildSystemId="org.eclipse.cdt.managedbuilder.core.configurationDataProvider" id="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686" moduleId="org.eclipse.cdt.core.settings" name="firebee-cross">
@@ -37,38 +55,41 @@
 					<extension id="org.eclipse.cdt.core.GASErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
 					<extension id="org.eclipse.cdt.core.GLDErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
 					<extension id="org.eclipse.cdt.core.GmakeErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
+					<extension id="org.eclipse.cdt.core.CWDLocator" point="org.eclipse.cdt.core.ErrorParser"/>
 				</extensions>
 			</storageModule>
 			<storageModule moduleId="cdtBuildSystem" version="4.0.0">
 				<configuration artifactName="BaS_GNU" buildProperties="" description="cross development for firebee firmware" errorParsers="org.eclipse.cdt.core.GCCErrorParser;org.eclipse.cdt.core.GASErrorParser;org.eclipse.cdt.core.GLDErrorParser;org.eclipse.cdt.core.GmakeErrorParser" id="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686" name="firebee-cross" parent="org.eclipse.cdt.build.core.emptycfg">
 					<folderInfo id="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686." name="/" resourcePath="">
-						<toolChain errorParsers="" id="cdt.managedbuild.toolchain.gnu.cross.base.120730457" name="cdt.managedbuild.toolchain.gnu.cross.base" resourceTypeBasedDiscovery="true">
-							<option id="cdt.managedbuild.option.gnu.cross.prefix.904812232" name="Prefix" superClass="cdt.managedbuild.option.gnu.cross.prefix"/>
-							<option id="cdt.managedbuild.option.gnu.cross.path.1369935770" name="Path" superClass="cdt.managedbuild.option.gnu.cross.path"/>
-							<targetPlatform archList="all" binaryParser="" id="cdt.managedbuild.targetPlatform.gnu.cross.1544284446" isAbstract="false" osList="all"/>
-							<builder buildPath="${workspace_loc:/BaS_GNU}" errorParsers="" id="cdt.managedbuild.builder.gnu.cross.2120667679" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="Gnu Make Builder">
+						<toolChain id="cdt.managedbuild.toolchain.gnu.cross.base.1967179068" name="Cross GCC" resourceTypeBasedDiscovery="true" superClass="cdt.managedbuild.toolchain.gnu.cross.base">
+							<option id="cdt.managedbuild.option.gnu.cross.prefix.129963777" name="Prefix" superClass="cdt.managedbuild.option.gnu.cross.prefix"/>
+							<option id="cdt.managedbuild.option.gnu.cross.path.176129148" name="Path" superClass="cdt.managedbuild.option.gnu.cross.path"/>
+							<targetPlatform archList="all" binaryParser="" id="cdt.managedbuild.targetPlatform.gnu.cross.2042576934" isAbstract="false" osList="all" superClass="cdt.managedbuild.targetPlatform.gnu.cross"/>
+							<builder autoBuildTarget="all" buildPath="${workspace_loc:/BaS_GNU}" cleanBuildTarget="clean" enableAutoBuild="false" enableCleanBuild="true" enabledIncrementalBuild="true" id="cdt.managedbuild.builder.gnu.cross.1808605670" incrementalBuildTarget="all" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="Gnu Make Builder" parallelBuildOn="true" parallelizationNumber="optimal" superClass="cdt.managedbuild.builder.gnu.cross">
 								<outputEntries>
 									<entry flags="VALUE_WORKSPACE_PATH|RESOLVED" kind="outputPath" name=""/>
-									<entry flags="VALUE_WORKSPACE_PATH" kind="outputPath" name="objs"/>
 								</outputEntries>
 							</builder>
-							<tool errorParsers="org.eclipse.cdt.core.GASErrorParser" id="cdt.managedbuild.tool.gnu.cross.assembler.1136616288" name="Cross GCC Assembler" superClass="cdt.managedbuild.tool.gnu.cross.assembler">
-								<inputType id="cdt.managedbuild.tool.gnu.assembler.input.652605616" superClass="cdt.managedbuild.tool.gnu.assembler.input"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.c.compiler.283290301" name="Cross GCC Compiler" superClass="cdt.managedbuild.tool.gnu.cross.c.compiler">
+								<option id="gnu.c.compiler.option.include.paths.103275678" name="Include paths (-I)" superClass="gnu.c.compiler.option.include.paths" valueType="includePath">
+									<listOptionValue builtIn="false" value="&quot;${workspace_loc:/BaS_gcc/include}&quot;"/>
+									<listOptionValue builtIn="false" value="/usr/m68k-elf/include"/>
+									<listOptionValue builtIn="false" value="/opt/cross-mint/m68k-atari-mint/include"/>
+									<listOptionValue builtIn="false" value="/usr/lib/gcc/m68k-atari-mint/4.6.3/include"/>
+								</option>
+								<inputType id="cdt.managedbuild.tool.gnu.c.compiler.input.1445023059" superClass="cdt.managedbuild.tool.gnu.c.compiler.input"/>
 							</tool>
-							<tool errorParsers="org.eclipse.cdt.core.GLDErrorParser" id="cdt.managedbuild.tool.gnu.cross.c.linker.2090138476" name="Cross GCC Linker" superClass="cdt.managedbuild.tool.gnu.cross.c.linker">
-								<inputType id="cdt.managedbuild.tool.gnu.c.linker.input.1763299660" superClass="cdt.managedbuild.tool.gnu.c.linker.input">
+							<tool id="cdt.managedbuild.tool.gnu.cross.cpp.compiler.1303101590" name="Cross G++ Compiler" superClass="cdt.managedbuild.tool.gnu.cross.cpp.compiler"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.c.linker.2089383321" name="Cross GCC Linker" superClass="cdt.managedbuild.tool.gnu.cross.c.linker">
+								<inputType id="cdt.managedbuild.tool.gnu.c.linker.input.305885086" superClass="cdt.managedbuild.tool.gnu.c.linker.input">
 									<additionalInput kind="additionalinputdependency" paths="$(USER_OBJS)"/>
 									<additionalInput kind="additionalinput" paths="$(LIBS)"/>
 								</inputType>
 							</tool>
-							<tool errorParsers="org.eclipse.cdt.core.GCCErrorParser" id="cdt.managedbuild.tool.gnu.cross.c.compiler.359669870" name="Cross GCC Compiler" superClass="cdt.managedbuild.tool.gnu.cross.c.compiler">
-								<option id="gnu.c.compiler.option.include.paths.2015956820" name="Include paths (-I)" superClass="gnu.c.compiler.option.include.paths" valueType="includePath">
-									<listOptionValue builtIn="false" value="/usr/m68k-elf/include"/>
-									<listOptionValue builtIn="false" value="/opt/cross-mint/m68k-atari-mint/include"/>
-									<listOptionValue builtIn="false" value="/usr/lib/gcc/m68k-atari-mint/4.6.3/include"/>
-									<listOptionValue builtIn="false" value="&quot;${workspace_loc:/BaS_GNU/include}&quot;"/>
-								</option>
-								<inputType id="cdt.managedbuild.tool.gnu.c.compiler.input.374200372" superClass="cdt.managedbuild.tool.gnu.c.compiler.input"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.cpp.linker.413671435" name="Cross G++ Linker" superClass="cdt.managedbuild.tool.gnu.cross.cpp.linker"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.archiver.88300823" name="Cross GCC Archiver" superClass="cdt.managedbuild.tool.gnu.cross.archiver"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.assembler.810274043" name="Cross GCC Assembler" superClass="cdt.managedbuild.tool.gnu.cross.assembler">
+								<inputType id="cdt.managedbuild.tool.gnu.assembler.input.719845882" superClass="cdt.managedbuild.tool.gnu.assembler.input"/>
 							</tool>
 						</toolChain>
 					</folderInfo>
@@ -82,19 +103,78 @@
 				</configuration>
 			</storageModule>
 			<storageModule moduleId="org.eclipse.cdt.core.externalSettings"/>
+			<storageModule moduleId="org.eclipse.cdt.core.language.mapping"/>
+			<storageModule moduleId="org.eclipse.cdt.internal.ui.text.commentOwnerProjectMappings"/>
+		</cconfiguration>
+		<cconfiguration id="cdt.managedbuild.toolchain.gnu.cross.base.1557606920">
+			<storageModule buildSystemId="org.eclipse.cdt.managedbuilder.core.configurationDataProvider" id="cdt.managedbuild.toolchain.gnu.cross.base.1557606920" moduleId="org.eclipse.cdt.core.settings" name="Default">
+				<externalSettings/>
+				<extensions>
+					<extension id="org.eclipse.cdt.core.ELF" point="org.eclipse.cdt.core.BinaryParser"/>
+					<extension id="org.eclipse.cdt.core.GmakeErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
+					<extension id="org.eclipse.cdt.core.CWDLocator" point="org.eclipse.cdt.core.ErrorParser"/>
+					<extension id="org.eclipse.cdt.core.GCCErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
+					<extension id="org.eclipse.cdt.core.GASErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
+					<extension id="org.eclipse.cdt.core.GLDErrorParser" point="org.eclipse.cdt.core.ErrorParser"/>
+				</extensions>
+			</storageModule>
+			<storageModule moduleId="cdtBuildSystem" version="4.0.0">
+				<configuration buildProperties="" description="" id="cdt.managedbuild.toolchain.gnu.cross.base.1557606920" name="Default" parent="org.eclipse.cdt.build.core.emptycfg">
+					<folderInfo id="cdt.managedbuild.toolchain.gnu.cross.base.1557606920.894087346" name="/" resourcePath="">
+						<toolChain id="cdt.managedbuild.toolchain.gnu.cross.base.808036944" name="cdt.managedbuild.toolchain.gnu.cross.base" superClass="cdt.managedbuild.toolchain.gnu.cross.base">
+							<option id="cdt.managedbuild.option.gnu.cross.prefix.579880707" name="Prefix" superClass="cdt.managedbuild.option.gnu.cross.prefix"/>
+							<option id="cdt.managedbuild.option.gnu.cross.path.2139341053" name="Path" superClass="cdt.managedbuild.option.gnu.cross.path"/>
+							<targetPlatform archList="all" binaryParser="org.eclipse.cdt.core.ELF" id="cdt.managedbuild.targetPlatform.gnu.cross.1712307593" isAbstract="false" osList="all" superClass="cdt.managedbuild.targetPlatform.gnu.cross"/>
+							<builder id="cdt.managedbuild.builder.gnu.cross.1872779390" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="Gnu Make Builder" superClass="cdt.managedbuild.builder.gnu.cross"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.c.compiler.1693427002" name="Cross GCC Compiler" superClass="cdt.managedbuild.tool.gnu.cross.c.compiler">
+								<option id="gnu.c.compiler.option.include.paths.559413321" superClass="gnu.c.compiler.option.include.paths" valueType="includePath">
+									<listOptionValue builtIn="false" value="/usr/m68k-elf/include"/>
+								</option>
+								<inputType id="cdt.managedbuild.tool.gnu.c.compiler.input.589685537" superClass="cdt.managedbuild.tool.gnu.c.compiler.input"/>
+							</tool>
+							<tool id="cdt.managedbuild.tool.gnu.cross.cpp.compiler.66237432" name="Cross G++ Compiler" superClass="cdt.managedbuild.tool.gnu.cross.cpp.compiler">
+								<inputType id="cdt.managedbuild.tool.gnu.cpp.compiler.input.651961483" superClass="cdt.managedbuild.tool.gnu.cpp.compiler.input"/>
+							</tool>
+							<tool id="cdt.managedbuild.tool.gnu.cross.c.linker.801196180" name="Cross GCC Linker" superClass="cdt.managedbuild.tool.gnu.cross.c.linker">
+								<inputType id="cdt.managedbuild.tool.gnu.c.linker.input.1012333610" superClass="cdt.managedbuild.tool.gnu.c.linker.input">
+									<additionalInput kind="additionalinputdependency" paths="$(USER_OBJS)"/>
+									<additionalInput kind="additionalinput" paths="$(LIBS)"/>
+								</inputType>
+							</tool>
+							<tool id="cdt.managedbuild.tool.gnu.cross.cpp.linker.273251286" name="Cross G++ Linker" superClass="cdt.managedbuild.tool.gnu.cross.cpp.linker">
+								<inputType id="cdt.managedbuild.tool.gnu.cpp.linker.input.2032495512" superClass="cdt.managedbuild.tool.gnu.cpp.linker.input">
+									<additionalInput kind="additionalinputdependency" paths="$(USER_OBJS)"/>
+									<additionalInput kind="additionalinput" paths="$(LIBS)"/>
+								</inputType>
+							</tool>
+							<tool id="cdt.managedbuild.tool.gnu.cross.archiver.1703324170" name="Cross GCC Archiver" superClass="cdt.managedbuild.tool.gnu.cross.archiver"/>
+							<tool id="cdt.managedbuild.tool.gnu.cross.assembler.2129741386" name="Cross GCC Assembler" superClass="cdt.managedbuild.tool.gnu.cross.assembler">
+								<inputType id="cdt.managedbuild.tool.gnu.assembler.input.1949654614" superClass="cdt.managedbuild.tool.gnu.assembler.input"/>
+							</tool>
+						</toolChain>
+					</folderInfo>
+				</configuration>
+			</storageModule>
+			<storageModule moduleId="org.eclipse.cdt.core.externalSettings"/>
 		</cconfiguration>
 	</storageModule>
 	<storageModule moduleId="cdtBuildSystem" version="4.0.0">
 		<project id="BaS_GNU.null.2057987123" name="BaS_GNU"/>
 	</storageModule>
-	<storageModule moduleId="refreshScope" versionNumber="1">
-		<resource resourceType="PROJECT" workspacePath="/BaS_GNU"/>
+	<storageModule moduleId="refreshScope" versionNumber="2">
+		<configuration configurationName="firebee-cross">
+			<resource resourceType="PROJECT" workspacePath="/BaS_GNU"/>
+		</configuration>
+		<configuration configurationName="Default">
+			<resource resourceType="PROJECT" workspacePath="/BaS_GNU"/>
+		</configuration>
 	</storageModule>
 	<storageModule moduleId="org.eclipse.cdt.internal.ui.text.commentOwnerProjectMappings">
 		<doc-comment-owner id="org.eclipse.cdt.internal.ui.text.doctools.NullDocCommentOwner">
 			<path value=""/>
 		</doc-comment-owner>
 	</storageModule>
+	<storageModule moduleId="org.eclipse.cdt.core.LanguageSettingsProviders"/>
 	<storageModule moduleId="org.eclipse.cdt.make.core.buildtargets">
 		<buildTargets>
 			<target name="all" path="" targetID="org.eclipse.cdt.build.MakeTargetBuilder">
@@ -120,10 +200,43 @@
 				<useDefaultCommand>true</useDefaultCommand>
 				<runAllBuilders>true</runAllBuilders>
 			</target>
+			<target name="bfl" path="" targetID="org.eclipse.cdt.build.MakeTargetBuilder">
+				<buildCommand>make</buildCommand>
+				<buildArguments/>
+				<buildTarget>bfl</buildTarget>
+				<stopOnError>true</stopOnError>
+				<useDefaultCommand>true</useDefaultCommand>
+				<runAllBuilders>true</runAllBuilders>
+			</target>
 		</buildTargets>
 	</storageModule>
 	<storageModule moduleId="scannerConfiguration">
 		<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId=""/>
+		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686;cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686.;cdt.managedbuild.tool.gnu.cross.c.compiler.283290301;cdt.managedbuild.tool.gnu.c.compiler.input.1445023059">
+			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
+		</scannerConfigBuildInfo>
+		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171;cdt.managedbuild.toolchain.gnu.cross.base.500844171.251316721;cdt.managedbuild.tool.gnu.cross.c.compiler.1346392496;cdt.managedbuild.tool.gnu.c.compiler.input.2036594113">
+			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
+		</scannerConfigBuildInfo>
+		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171;cdt.managedbuild.toolchain.gnu.cross.base.500844171.251316721;cdt.managedbuild.tool.gnu.cross.c.compiler.915906842;cdt.managedbuild.tool.gnu.c.compiler.input.1420707322">
+			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
+		</scannerConfigBuildInfo>
+		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686">
+			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
+			<profile id="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC">
+				<buildOutputProvider>
+					<openAction enabled="true" filePath=""/>
+					<parser enabled="true"/>
+				</buildOutputProvider>
+				<scannerInfoProvider id="specsFile">
+					<runAction arguments="-E -P -v -dD &quot;${plugin_state_location}/specs.c&quot;" command="m68k-atari-mint-gcc" useDefault="true"/>
+					<parser enabled="true"/>
+				</scannerInfoProvider>
+			</profile>
+		</scannerConfigBuildInfo>
+		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171;cdt.managedbuild.toolchain.gnu.cross.base.500844171.2140460233;cdt.managedbuild.tool.gnu.cross.c.compiler.915906842.729509112;cdt.managedbuild.tool.gnu.c.compiler.input.2002421488">
+			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
+		</scannerConfigBuildInfo>
 		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686;cdt.managedbuild.toolchain.gnu.cross.base.500844171.756690686.;cdt.managedbuild.tool.gnu.cross.c.compiler.359669870;cdt.managedbuild.tool.gnu.c.compiler.input.374200372">
 			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
 		</scannerConfigBuildInfo>
@@ -140,11 +253,5 @@
 				</scannerInfoProvider>
 			</profile>
 		</scannerConfigBuildInfo>
-		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171;cdt.managedbuild.toolchain.gnu.cross.base.500844171.251316721;cdt.managedbuild.tool.gnu.cross.c.compiler.915906842;cdt.managedbuild.tool.gnu.c.compiler.input.1420707322">
-			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
-		</scannerConfigBuildInfo>
-		<scannerConfigBuildInfo instanceId="cdt.managedbuild.toolchain.gnu.cross.base.500844171;cdt.managedbuild.toolchain.gnu.cross.base.500844171.2140460233;cdt.managedbuild.tool.gnu.cross.c.compiler.915906842.729509112;cdt.managedbuild.tool.gnu.c.compiler.input.2002421488">
-			<autodiscovery enabled="true" problemReportingEnabled="true" selectedProfileId="org.eclipse.cdt.managedbuilder.core.GCCManagedMakePerProjectProfileC"/>
-		</scannerConfigBuildInfo>
 	</storageModule>
 </cproject>

.gdbinit

@@ -1,12 +1,10 @@
-set disassemble-next-line on
+#set disassemble-next-line on
 define tr
 	target remote | m68k-bdm-gdbserver pipe /dev/bdmcf3
+	monitor bdm-reset
 end
 define tbtr
 	target remote | m68k-bdm-gdbserver pipe /dev/tblcf3
 end
-
-tr
 source mcf5474.gdb
 
-

.project

@@ -17,6 +17,10 @@
 					<key>org.eclipse.cdt.make.core.append_environment</key>
 					<value>true</value>
 				</dictionary>
+				<dictionary>
+					<key>org.eclipse.cdt.make.core.autoBuildTarget</key>
+					<value>all</value>
+				</dictionary>
 				<dictionary>
 					<key>org.eclipse.cdt.make.core.buildArguments</key>
 					<value></value>
@@ -25,13 +29,17 @@
 					<key>org.eclipse.cdt.make.core.buildCommand</key>
 					<value>make</value>
 				</dictionary>
+				<dictionary>
+					<key>org.eclipse.cdt.make.core.cleanBuildTarget</key>
+					<value>clean</value>
+				</dictionary>
 				<dictionary>
 					<key>org.eclipse.cdt.make.core.contents</key>
 					<value>org.eclipse.cdt.make.core.activeConfigSettings</value>
 				</dictionary>
 				<dictionary>
 					<key>org.eclipse.cdt.make.core.enableAutoBuild</key>
-					<value>false</value>
+					<value>true</value>
 				</dictionary>
 				<dictionary>
 					<key>org.eclipse.cdt.make.core.enableCleanBuild</key>
@@ -41,19 +49,22 @@
 					<key>org.eclipse.cdt.make.core.enableFullBuild</key>
 					<value>true</value>
 				</dictionary>
+				<dictionary>
+					<key>org.eclipse.cdt.make.core.fullBuildTarget</key>
+					<value>all</value>
+				</dictionary>
 				<dictionary>
 					<key>org.eclipse.cdt.make.core.stopOnError</key>
 					<value>true</value>
 				</dictionary>
 				<dictionary>
 					<key>org.eclipse.cdt.make.core.useDefaultBuildCmd</key>
-					<value>false</value>
+					<value>true</value>
 				</dictionary>
 			</arguments>
 		</buildCommand>
 		<buildCommand>
 			<name>org.eclipse.cdt.managedbuilder.core.ScannerConfigBuilder</name>
-			<triggers>full,incremental,</triggers>
 			<arguments>
 			</arguments>
 		</buildCommand>

.settings/org.eclipse.cdt.codan.core.prefs

@@ -1,66 +1,68 @@
 eclipse.preferences.version=1
 org.eclipse.cdt.codan.checkers.errnoreturn=Warning
-org.eclipse.cdt.codan.checkers.errnoreturn.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},implicit\=>false}
+org.eclipse.cdt.codan.checkers.errnoreturn.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},implicit\=>false}
 org.eclipse.cdt.codan.checkers.errreturnvalue=Error
-org.eclipse.cdt.codan.checkers.errreturnvalue.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true}}
+org.eclipse.cdt.codan.checkers.errreturnvalue.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.checkers.noreturn=Error
-org.eclipse.cdt.codan.checkers.noreturn.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},implicit\=>false}
+org.eclipse.cdt.codan.checkers.noreturn.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},implicit\=>false}
 org.eclipse.cdt.codan.internal.checkers.AbstractClassCreation=Error
-org.eclipse.cdt.codan.internal.checkers.AbstractClassCreation.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.AbstractClassCreation.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.AmbiguousProblem=Error
-org.eclipse.cdt.codan.internal.checkers.AmbiguousProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.AmbiguousProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.AssignmentInConditionProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.AssignmentInConditionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true}}
+org.eclipse.cdt.codan.internal.checkers.AssignmentInConditionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.AssignmentToItselfProblem=Error
-org.eclipse.cdt.codan.internal.checkers.AssignmentToItselfProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true}}
+org.eclipse.cdt.codan.internal.checkers.AssignmentToItselfProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.CaseBreakProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.CaseBreakProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},no_break_comment\=>"no break",last_case_param\=>true,empty_case_param\=>false}
+org.eclipse.cdt.codan.internal.checkers.CaseBreakProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},no_break_comment\=>"no break",last_case_param\=>true,empty_case_param\=>false}
 org.eclipse.cdt.codan.internal.checkers.CatchByReference=Warning
-org.eclipse.cdt.codan.internal.checkers.CatchByReference.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},unknown\=>false,exceptions\=>()}
+org.eclipse.cdt.codan.internal.checkers.CatchByReference.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},unknown\=>false,exceptions\=>()}
 org.eclipse.cdt.codan.internal.checkers.CircularReferenceProblem=Error
-org.eclipse.cdt.codan.internal.checkers.CircularReferenceProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.CircularReferenceProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.ClassMembersInitialization=Warning
+org.eclipse.cdt.codan.internal.checkers.ClassMembersInitialization.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},skip\=>true}
 org.eclipse.cdt.codan.internal.checkers.FieldResolutionProblem=Error
-org.eclipse.cdt.codan.internal.checkers.FieldResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.FieldResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.FunctionResolutionProblem=Error
-org.eclipse.cdt.codan.internal.checkers.FunctionResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.FunctionResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.InvalidArguments=Error
-org.eclipse.cdt.codan.internal.checkers.InvalidArguments.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.InvalidArguments.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.InvalidTemplateArgumentsProblem=Error
-org.eclipse.cdt.codan.internal.checkers.InvalidTemplateArgumentsProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.InvalidTemplateArgumentsProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.LabelStatementNotFoundProblem=Error
-org.eclipse.cdt.codan.internal.checkers.LabelStatementNotFoundProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.LabelStatementNotFoundProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.MemberDeclarationNotFoundProblem=Error
-org.eclipse.cdt.codan.internal.checkers.MemberDeclarationNotFoundProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.MemberDeclarationNotFoundProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.MethodResolutionProblem=Error
-org.eclipse.cdt.codan.internal.checkers.MethodResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
-org.eclipse.cdt.codan.internal.checkers.NamingConventionFunctionChecker=-Info
-org.eclipse.cdt.codan.internal.checkers.NamingConventionFunctionChecker.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},pattern\=>"^[a-z]",macro\=>true,exceptions\=>()}
+org.eclipse.cdt.codan.internal.checkers.MethodResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.NamingConventionFunctionChecker=Info
+org.eclipse.cdt.codan.internal.checkers.NamingConventionFunctionChecker.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},pattern\=>"^[a-z]",macro\=>true,exceptions\=>()}
 org.eclipse.cdt.codan.internal.checkers.NonVirtualDestructorProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.NonVirtualDestructorProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true}}
+org.eclipse.cdt.codan.internal.checkers.NonVirtualDestructorProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.OverloadProblem=Error
-org.eclipse.cdt.codan.internal.checkers.OverloadProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.OverloadProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.RedeclarationProblem=Error
-org.eclipse.cdt.codan.internal.checkers.RedeclarationProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.RedeclarationProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.RedefinitionProblem=Error
-org.eclipse.cdt.codan.internal.checkers.RedefinitionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.RedefinitionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.ReturnStyleProblem=-Warning
-org.eclipse.cdt.codan.internal.checkers.ReturnStyleProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true}}
+org.eclipse.cdt.codan.internal.checkers.ReturnStyleProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.ScanfFormatStringSecurityProblem=-Warning
-org.eclipse.cdt.codan.internal.checkers.ScanfFormatStringSecurityProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true}}
+org.eclipse.cdt.codan.internal.checkers.ScanfFormatStringSecurityProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.StatementHasNoEffectProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.StatementHasNoEffectProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},macro\=>true,exceptions\=>()}
+org.eclipse.cdt.codan.internal.checkers.StatementHasNoEffectProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},macro\=>true,exceptions\=>()}
 org.eclipse.cdt.codan.internal.checkers.SuggestedParenthesisProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.SuggestedParenthesisProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},paramNot\=>false}
+org.eclipse.cdt.codan.internal.checkers.SuggestedParenthesisProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},paramNot\=>false}
 org.eclipse.cdt.codan.internal.checkers.SuspiciousSemicolonProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.SuspiciousSemicolonProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},else\=>false,afterelse\=>false}
+org.eclipse.cdt.codan.internal.checkers.SuspiciousSemicolonProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},else\=>false,afterelse\=>false}
 org.eclipse.cdt.codan.internal.checkers.TypeResolutionProblem=Error
-org.eclipse.cdt.codan.internal.checkers.TypeResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.TypeResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 org.eclipse.cdt.codan.internal.checkers.UnusedFunctionDeclarationProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.UnusedFunctionDeclarationProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},macro\=>true}
+org.eclipse.cdt.codan.internal.checkers.UnusedFunctionDeclarationProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},macro\=>true}
 org.eclipse.cdt.codan.internal.checkers.UnusedStaticFunctionProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.UnusedStaticFunctionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},macro\=>true}
+org.eclipse.cdt.codan.internal.checkers.UnusedStaticFunctionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},macro\=>true}
 org.eclipse.cdt.codan.internal.checkers.UnusedVariableDeclarationProblem=Warning
-org.eclipse.cdt.codan.internal.checkers.UnusedVariableDeclarationProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true},macro\=>true,exceptions\=>("@(\#)","$Id")}
+org.eclipse.cdt.codan.internal.checkers.UnusedVariableDeclarationProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>true,RUN_ON_INC_BUILD\=>true,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true},macro\=>true,exceptions\=>("@(\#)","$Id")}
 org.eclipse.cdt.codan.internal.checkers.VariableResolutionProblem=Error
-org.eclipse.cdt.codan.internal.checkers.VariableResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
+org.eclipse.cdt.codan.internal.checkers.VariableResolutionProblem.params={launchModes\=>{RUN_ON_FULL_BUILD\=>false,RUN_ON_INC_BUILD\=>false,RUN_ON_FILE_OPEN\=>false,RUN_ON_FILE_SAVE\=>false,RUN_AS_YOU_TYPE\=>true,RUN_ON_DEMAND\=>true}}
 useParentScope=false

.settings/org.eclipse.cdt.core.prefs

@@ -1,10 +1,21 @@
 eclipse.preferences.version=1
+indexer/filesToParseUpFront=cstdarg, stdarg.h, stddef.h, sys/resource.h, ctime, sys/types.h, signal.h, cstdio
+indexer/indexAllFiles=true
+indexer/indexOnOpen=true
+indexer/indexUnusedHeadersWithDefaultLang=true
+indexer/indexerId=org.eclipse.cdt.core.fastIndexer
+indexer/skipFilesLargerThanMB=80
+indexer/skipImplicitReferences=false
+indexer/skipMacroReferences=false
+indexer/skipReferences=false
+indexer/skipTypeReferences=false
+indexer/useHeuristicIncludeResolution=true
 org.eclipse.cdt.core.formatter.alignment_for_arguments_in_method_invocation=16
 org.eclipse.cdt.core.formatter.alignment_for_assignment=16
 org.eclipse.cdt.core.formatter.alignment_for_base_clause_in_type_declaration=80
 org.eclipse.cdt.core.formatter.alignment_for_binary_expression=16
-org.eclipse.cdt.core.formatter.alignment_for_compact_if=16
-org.eclipse.cdt.core.formatter.alignment_for_conditional_expression=34
+org.eclipse.cdt.core.formatter.alignment_for_compact_if=0
+org.eclipse.cdt.core.formatter.alignment_for_conditional_expression=80
 org.eclipse.cdt.core.formatter.alignment_for_conditional_expression_chain=18
 org.eclipse.cdt.core.formatter.alignment_for_constructor_initializer_list=0
 org.eclipse.cdt.core.formatter.alignment_for_declarator_list=16

COPYING

@@ -0,0 +1,674 @@
+                    GNU GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+                       TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy.  Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+  To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies.  Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+  An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License.  If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+  1. Source Code.
+
+  The "source code" for a work means the preferred form of the work
+for making modifications to it.  "Object code" means any non-source
+form of a work.
+
+  A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+  The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form.  A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+  The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities.  However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work.  For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+  The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+  The Corresponding Source for a work in source code form is that
+same work.
+
+  2. Basic Permissions.
+
+  All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met.  This License explicitly affirms your unlimited
+permission to run the unmodified Program.  The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work.  This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+  You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force.  You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright.  Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+  Conveying under any other circumstances is permitted solely under
+the conditions stated below.  Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+  No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+  When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+  4. Conveying Verbatim Copies.
+
+  You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+  You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+  5. Conveying Modified Source Versions.
+
+  You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+    a) The work must carry prominent notices stating that you modified
+    it, and giving a relevant date.
+
+    b) The work must carry prominent notices stating that it is
+    released under this License and any conditions added under section
+    7.  This requirement modifies the requirement in section 4 to
+    "keep intact all notices".
+
+    c) You must license the entire work, as a whole, under this
+    License to anyone who comes into possession of a copy.  This
+    License will therefore apply, along with any applicable section 7
+    additional terms, to the whole of the work, and all its parts,
+    regardless of how they are packaged.  This License gives no
+    permission to license the work in any other way, but it does not
+    invalidate such permission if you have separately received it.
+
+    d) If the work has interactive user interfaces, each must display
+    Appropriate Legal Notices; however, if the Program has interactive
+    interfaces that do not display Appropriate Legal Notices, your
+    work need not make them do so.
+
+  A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit.  Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+  6. Conveying Non-Source Forms.
+
+  You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+    a) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by the
+    Corresponding Source fixed on a durable physical medium
+    customarily used for software interchange.
+
+    b) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by a
+    written offer, valid for at least three years and valid for as
+    long as you offer spare parts or customer support for that product
+    model, to give anyone who possesses the object code either (1) a
+    copy of the Corresponding Source for all the software in the
+    product that is covered by this License, on a durable physical
+    medium customarily used for software interchange, for a price no
+    more than your reasonable cost of physically performing this
+    conveying of source, or (2) access to copy the
+    Corresponding Source from a network server at no charge.
+
+    c) Convey individual copies of the object code with a copy of the
+    written offer to provide the Corresponding Source.  This
+    alternative is allowed only occasionally and noncommercially, and
+    only if you received the object code with such an offer, in accord
+    with subsection 6b.
+
+    d) Convey the object code by offering access from a designated
+    place (gratis or for a charge), and offer equivalent access to the
+    Corresponding Source in the same way through the same place at no
+    further charge.  You need not require recipients to copy the
+    Corresponding Source along with the object code.  If the place to
+    copy the object code is a network server, the Corresponding Source
+    may be on a different server (operated by you or a third party)
+    that supports equivalent copying facilities, provided you maintain
+    clear directions next to the object code saying where to find the
+    Corresponding Source.  Regardless of what server hosts the
+    Corresponding Source, you remain obligated to ensure that it is
+    available for as long as needed to satisfy these requirements.
+
+    e) Convey the object code using peer-to-peer transmission, provided
+    you inform other peers where the object code and Corresponding
+    Source of the work are being offered to the general public at no
+    charge under subsection 6d.
+
+  A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+  A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling.  In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage.  For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product.  A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+  "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source.  The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+  If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information.  But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+  The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed.  Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+  Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+  7. Additional Terms.
+
+  "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law.  If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+  When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it.  (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.)  You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+  Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+    a) Disclaiming warranty or limiting liability differently from the
+    terms of sections 15 and 16 of this License; or
+
+    b) Requiring preservation of specified reasonable legal notices or
+    author attributions in that material or in the Appropriate Legal
+    Notices displayed by works containing it; or
+
+    c) Prohibiting misrepresentation of the origin of that material, or
+    requiring that modified versions of such material be marked in
+    reasonable ways as different from the original version; or
+
+    d) Limiting the use for publicity purposes of names of licensors or
+    authors of the material; or
+
+    e) Declining to grant rights under trademark law for use of some
+    trade names, trademarks, or service marks; or
+
+    f) Requiring indemnification of licensors and authors of that
+    material by anyone who conveys the material (or modified versions of
+    it) with contractual assumptions of liability to the recipient, for
+    any liability that these contractual assumptions directly impose on
+    those licensors and authors.
+
+  All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10.  If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term.  If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+  If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+  Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+  8. Termination.
+
+  You may not propagate or modify a covered work except as expressly
+provided under this License.  Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+  However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+  Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+  Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License.  If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+  9. Acceptance Not Required for Having Copies.
+
+  You are not required to accept this License in order to receive or
+run a copy of the Program.  Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance.  However,
+nothing other than this License grants you permission to propagate or
+modify any covered work.  These actions infringe copyright if you do
+not accept this License.  Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+  10. Automatic Licensing of Downstream Recipients.
+
+  Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License.  You are not responsible
+for enforcing compliance by third parties with this License.
+
+  An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations.  If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+  You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License.  For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+  11. Patents.
+
+  A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based.  The
+work thus licensed is called the contributor's "contributor version".
+
+  A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version.  For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+  Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+  In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement).  To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+  If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients.  "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+  If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+  A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License.  You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+  Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+  12. No Surrender of Others' Freedom.
+
+  If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all.  For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+  13. Use with the GNU Affero General Public License.
+
+  Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU Affero General Public License into a single
+combined work, and to convey the resulting work.  The terms of this
+License will continue to apply to the part which is the covered work,
+but the special requirements of the GNU Affero General Public License,
+section 13, concerning interaction through a network will apply to the
+combination as such.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+  Each version is given a distinguishing version number.  If the
+Program specifies that a certain numbered version of the GNU General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation.  If the Program does not specify a version number of the
+GNU General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+  If the Program specifies that a proxy can decide which future
+versions of the GNU General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+  Later license versions may give you additional or different
+permissions.  However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+  15. Disclaimer of Warranty.
+
+  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+  16. Limitation of Liability.
+
+  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+  17. Interpretation of Sections 15 and 16.
+
+  If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+                     END OF TERMS AND CONDITIONS
+
+            How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If the program does terminal interaction, make it output a short
+notice like this when it starts in an interactive mode:
+
+    <program>  Copyright (C) <year>  <name of author>
+    This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, your program's commands
+might be different; for a GUI interface, you would use an "about box".
+
+  You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU GPL, see
+<http://www.gnu.org/licenses/>.
+
+  The GNU General Public License does not permit incorporating your program
+into proprietary programs.  If your program is a subroutine library, you
+may consider it more useful to permit linking proprietary applications with
+the library.  If this is what you want to do, use the GNU Lesser General
+Public License instead of this License.  But first, please read
+<http://www.gnu.org/philosophy/why-not-lgpl.html>.

COPYING.LESSER

@@ -0,0 +1,330 @@
+                   GNU LESSER GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+  This version of the GNU Lesser General Public License incorporates
+the terms and conditions of version 3 of the GNU General Public
+License, supplemented by the additional permissions listed below.
+
+  0. Additional Definitions.
+
+  As used herein, "this License" refers to version 3 of the GNU Lesser
+General Public License, and the "GNU GPL" refers to version 3 of the GNU
+General Public License.
+
+  "The Library" refers to a covered work governed by this License,
+other than an Application or a Combined Work as defined below.
+
+  An "Application" is any work that makes use of an interface provided
+by the Library, but which is not otherwise based on the Library.
+Defining a subclass of a class defined by the Library is deemed a mode
+of using an interface provided by the Library.
+
+  A "Combined Work" is a work produced by combining or linking an
+Application with the Library.  The particular version of the Library
+with which the Combined Work was made is also called the "Linked
+Version".
+
+  The "Minimal Corresponding Source" for a Combined Work means the
+Corresponding Source for the Combined Work, excluding any source code
+for portions of the Combined Work that, considered in isolation, are
+based on the Application, and not on the Linked Version.
+
+  The "Corresponding Application Code" for a Combined Work means the
+object code and/or source code for the Application, including any data
+and utility programs needed for reproducing the Combined Work from the
+Application, but excluding the System Libraries of the Combined Work.
+
+  1. Exception to Section 3 of the GNU GPL.
+
+  You may convey a covered work under sections 3 and 4 of this License
+without being bound by section 3 of the GNU GPL.
+
+  2. Conveying Modified Versions.
+
+  If you modify a copy of the Library, and, in your modifications, a
+facility refers to a function or data to be supplied by an Application
+that uses the facility (other than as an argument passed when the
+facility is invoked), then you may convey a copy of the modified
+version:
+
+   a) under this License, provided that you make a good faith effort to
+   ensure that, in the event an Application does not supply the
+   function or data, the facility still operates, and performs
+   whatever part of its purpose remains meaningful, or
+
+   b) under the GNU GPL, with none of the additional permissions of
+   this License applicable to that copy.
+
+  3. Object Code Incorporating Material from Library Header Files.
+
+  The object code form of an Application may incorporate material from
+a header file that is part of the Library.  You may convey such object
+code under terms of your choice, provided that, if the incorporated
+material is not limited to numerical parameters, data structure
+layouts and accessors, or small macros, inline functions and templates
+(ten or fewer lines in length), you do both of the following:
+
+   a) Give prominent notice with each copy of the object code that the
+   Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the object code with a copy of the GNU GPL and this license
+   document.
+
+  4. Combined Works.
+
+  You may convey a Combined Work under terms of your choice that,
+taken together, effectively do not restrict modification of the
+portions of the Library contained in the Combined Work and reverse
+engineering for debugging such modifications, if you also do each of
+the following:
+
+   a) Give prominent notice with each copy of the Combined Work that
+   the Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the Combined Work with a copy of the GNU GPL and this license
+   document.
+
+   c) For a Combined Work that displays copyright notices during
+   execution, include the copyright notice for the Library among
+   these notices, as well as a reference directing the user to the
+   copies of the GNU GPL and this license document.
+
+   d) Do one of the following:
+
+       0) Convey the Minimal Corresponding Source under the terms of this
+       License, and the Corresponding Application Code in a form
+       suitable for, and under terms that permit, the user to
+       recombine or relink the Application with a modified version of
+       the Linked Version to produce a modified Combined Work, in the
+       manner specified by section 6 of the GNU GPL for conveying
+       Corresponding Source.
+
+       1) Use a suitable shared library mechanism for linking with the
+       Library.  A suitable mechanism is one that (a) uses at run time
+       a copy of the Library already present on the user's computer
+       system, and (b) will operate properly with a modified version
+       of the Library that is interface-compatible with the Linked
+       Version.
+
+   e) Provide Installation Information, but only if you would otherwise
+   be required to provide such information under section 6 of the
+   GNU GPL, and only to the extent that such information is
+   necessary to install and execute a modified version of the
+   Combined Work produced by recombining or relinking the
+   Application with a modified version of the Linked Version. (If
+   you use option 4d0, the Installation Information must accompany
+   the Minimal Corresponding Source and Corresponding Application
+   Code. If you use option 4d1, you must provide the Installation
+   Information in the manner specified by section 6 of the GNU GPL
+   for conveying Corresponding Source.)
+
+  5. Combined Libraries.
+
+  You may place library facilities that are a work based on the
+Library side by side in a single library together with other library
+facilities that are not Applications and are not covered by this
+License, and convey such a combined library under terms of your
+choice, if you do both of the following:
+
+   a) Accompany the combined library with a copy of the same work based
+   on the Library, uncombined with any other library facilities,
+   conveyed under the terms of this License.
+
+   b) Give prominent notice with the combined library that part of it
+   is a work based on the Library, and explaining where to find the
+   accompanying uncombined form of the same work.
+
+  6. Revised Versions of the GNU Lesser General Public License.
+
+  The Free Software Foundation may publish revised and/or new versions
+of the GNU Lesser General Public License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns.
+
+  Each version is given a distinguishing version number. If the
+Library as you received it specifies that a certain numbered version
+of the GNU Lesser General Public License "or any later version"
+applies to it, you have the option of following the terms and
+conditions either of that published version or of any later version
+published by the Free Software Foundation. If the Library as you
+received it does not specify a version number of the GNU Lesser
+General Public License, you may choose any version of the GNU Lesser
+General Public License ever published by the Free Software Foundation.
+
+  If the Library as you received it specifies that a proxy can decide
+whether future versions of the GNU Lesser General Public License shall
+apply, that proxy's public statement of acceptance of any version is
+permanent authorization for you to choose that version for the
+Library.
+                   GNU LESSER GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+  This version of the GNU Lesser General Public License incorporates
+the terms and conditions of version 3 of the GNU General Public
+License, supplemented by the additional permissions listed below.
+
+  0. Additional Definitions.
+
+  As used herein, "this License" refers to version 3 of the GNU Lesser
+General Public License, and the "GNU GPL" refers to version 3 of the GNU
+General Public License.
+
+  "The Library" refers to a covered work governed by this License,
+other than an Application or a Combined Work as defined below.
+
+  An "Application" is any work that makes use of an interface provided
+by the Library, but which is not otherwise based on the Library.
+Defining a subclass of a class defined by the Library is deemed a mode
+of using an interface provided by the Library.
+
+  A "Combined Work" is a work produced by combining or linking an
+Application with the Library.  The particular version of the Library
+with which the Combined Work was made is also called the "Linked
+Version".
+
+  The "Minimal Corresponding Source" for a Combined Work means the
+Corresponding Source for the Combined Work, excluding any source code
+for portions of the Combined Work that, considered in isolation, are
+based on the Application, and not on the Linked Version.
+
+  The "Corresponding Application Code" for a Combined Work means the
+object code and/or source code for the Application, including any data
+and utility programs needed for reproducing the Combined Work from the
+Application, but excluding the System Libraries of the Combined Work.
+
+  1. Exception to Section 3 of the GNU GPL.
+
+  You may convey a covered work under sections 3 and 4 of this License
+without being bound by section 3 of the GNU GPL.
+
+  2. Conveying Modified Versions.
+
+  If you modify a copy of the Library, and, in your modifications, a
+facility refers to a function or data to be supplied by an Application
+that uses the facility (other than as an argument passed when the
+facility is invoked), then you may convey a copy of the modified
+version:
+
+   a) under this License, provided that you make a good faith effort to
+   ensure that, in the event an Application does not supply the
+   function or data, the facility still operates, and performs
+   whatever part of its purpose remains meaningful, or
+
+   b) under the GNU GPL, with none of the additional permissions of
+   this License applicable to that copy.
+
+  3. Object Code Incorporating Material from Library Header Files.
+
+  The object code form of an Application may incorporate material from
+a header file that is part of the Library.  You may convey such object
+code under terms of your choice, provided that, if the incorporated
+material is not limited to numerical parameters, data structure
+layouts and accessors, or small macros, inline functions and templates
+(ten or fewer lines in length), you do both of the following:
+
+   a) Give prominent notice with each copy of the object code that the
+   Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the object code with a copy of the GNU GPL and this license
+   document.
+
+  4. Combined Works.
+
+  You may convey a Combined Work under terms of your choice that,
+taken together, effectively do not restrict modification of the
+portions of the Library contained in the Combined Work and reverse
+engineering for debugging such modifications, if you also do each of
+the following:
+
+   a) Give prominent notice with each copy of the Combined Work that
+   the Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the Combined Work with a copy of the GNU GPL and this license
+   document.
+
+   c) For a Combined Work that displays copyright notices during
+   execution, include the copyright notice for the Library among
+   these notices, as well as a reference directing the user to the
+   copies of the GNU GPL and this license document.
+
+   d) Do one of the following:
+
+       0) Convey the Minimal Corresponding Source under the terms of this
+       License, and the Corresponding Application Code in a form
+       suitable for, and under terms that permit, the user to
+       recombine or relink the Application with a modified version of
+       the Linked Version to produce a modified Combined Work, in the
+       manner specified by section 6 of the GNU GPL for conveying
+       Corresponding Source.
+
+       1) Use a suitable shared library mechanism for linking with the
+       Library.  A suitable mechanism is one that (a) uses at run time
+       a copy of the Library already present on the user's computer
+       system, and (b) will operate properly with a modified version
+       of the Library that is interface-compatible with the Linked
+       Version.
+
+   e) Provide Installation Information, but only if you would otherwise
+   be required to provide such information under section 6 of the
+   GNU GPL, and only to the extent that such information is
+   necessary to install and execute a modified version of the
+   Combined Work produced by recombining or relinking the
+   Application with a modified version of the Linked Version. (If
+   you use option 4d0, the Installation Information must accompany
+   the Minimal Corresponding Source and Corresponding Application
+   Code. If you use option 4d1, you must provide the Installation
+   Information in the manner specified by section 6 of the GNU GPL
+   for conveying Corresponding Source.)
+
+  5. Combined Libraries.
+
+  You may place library facilities that are a work based on the
+Library side by side in a single library together with other library
+facilities that are not Applications and are not covered by this
+License, and convey such a combined library under terms of your
+choice, if you do both of the following:
+
+   a) Accompany the combined library with a copy of the same work based
+   on the Library, uncombined with any other library facilities,
+   conveyed under the terms of this License.
+
+   b) Give prominent notice with the combined library that part of it
+   is a work based on the Library, and explaining where to find the
+   accompanying uncombined form of the same work.
+
+  6. Revised Versions of the GNU Lesser General Public License.
+
+  The Free Software Foundation may publish revised and/or new versions
+of the GNU Lesser General Public License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns.
+
+  Each version is given a distinguishing version number. If the
+Library as you received it specifies that a certain numbered version
+of the GNU Lesser General Public License "or any later version"
+applies to it, you have the option of following the terms and
+conditions either of that published version or of any later version
+published by the Free Software Foundation. If the Library as you
+received it does not specify a version number of the GNU Lesser
+General Public License, you may choose any version of the GNU Lesser
+General Public License ever published by the Free Software Foundation.
+
+  If the Library as you received it specifies that a proxy can decide
+whether future versions of the GNU Lesser General Public License shall
+apply, that proxy's public statement of acceptance of any version is
+permanent authorization for you to choose that version for the
+Library.

Makefile

@@ -26,14 +26,17 @@ CC=$(TCPREFIX)gcc
 LD=$(TCPREFIX)ld
 CPP=$(TCPREFIX)cpp
 OBJCOPY=$(TCPREFIX)objcopy
+AR=$(TCPREFIX)ar
+RANLIB=$(TCPREFIX)ranlib
 
 INCLUDE=-Iinclude
 CFLAGS=-mcpu=5474\
 	   -Wall\
 	   -g\
 	   -Wno-multichar\
-	   -Os\
-	   -fomit-frame-pointer\
+	   -Winline\
+	   -O \
+	   -fno-omit-frame-pointer\
 	   -fno-strict-aliasing\
 	   -ffreestanding\
 	   -fleading-underscore\
@@ -42,51 +45,75 @@ CFLAGS=-mcpu=5474\
 SRCDIR=sources
 OBJDIR=objs
 
-MAPFILE=bas.map
-
 # Linker control file. The final $(LDCFILE) is intermediate only (preprocessed  version of $(LDCSRC)
 LDCFILE=bas.lk
+LDRFILE=ram.lk
 LDCSRC=bas.lk.in
+LDCBSRC=basflash.lk.in
+LDCBFS=bashflash.lk
 
 # this Makefile can create the BaS to flash or an arbitrary ram address (for BDM debugging). See
 # below for the definition of TARGET_ADDRESS
 FLASH_EXEC=bas.$(EXE)
 RAM_EXEC=ram.$(EXE)
+BASFLASH_EXEC=basflash.$(EXE)
 
 CSRCS= \
 	$(SRCDIR)/sysinit.c \
 	$(SRCDIR)/init_fpga.c \
 	$(SRCDIR)/bas_printf.c \
+	$(SRCDIR)/bas_string.c \
 	$(SRCDIR)/BaS.c \
 	$(SRCDIR)/cache.c \
-	$(SRCDIR)/sd_card.c
+	$(SRCDIR)/mmc.c \
+	$(SRCDIR)/unicode.c \
+	$(SRCDIR)/ff.c \
+	$(SRCDIR)/sd_card.c \
+	$(SRCDIR)/wait.c \
+	$(SRCDIR)/s19reader.c \
+	$(SRCDIR)/flash.c
 
 ASRCS= \
 	$(SRCDIR)/startcf.S \
 	$(SRCDIR)/printf_helper.S \
 	$(SRCDIR)/mmu.S \
-	$(SRCDIR)/sd_card_asm.S \
 	$(SRCDIR)/exceptions.S \
 	$(SRCDIR)/supervisor.S \
-	$(SRCDIR)/ewf.S \
-	$(SRCDIR)/illegal_instruction.S 
-
+	$(SRCDIR)/illegal_instruction.S
+	
 COBJS=$(patsubst $(SRCDIR)/%.o,$(OBJDIR)/%.o,$(patsubst %.c,%.o,$(CSRCS)))
 AOBJS=$(patsubst $(SRCDIR)/%.o,$(OBJDIR)/%.o,$(patsubst %.S,%.o,$(ASRCS)))
 
 OBJS=$(COBJS) $(AOBJS)
-	
-all: $(FLASH_EXEC)
+LIBBAS=libbas.a
+
+all: fls ram bfl lib
+fls: $(FLASH_EXEC)
 ram: $(RAM_EXEC)
+bfl: $(BASFLASH_EXEC)
+lib: $(LIBBAS)
+
 .PHONY clean:
-	@ rm -f $(FLASH_EXEC) $(FLASH_EXEC).elf $(FLASH_EXEC).s19\
-			$(RAM_EXEC) $(RAM_EXEC).elf $(RAM_EXEC).s19\
-			$(OBJS) $(MAPFILE) $(LDCFILE) depend 
+	@ rm -f $(FLASH_EXEC) $(FLASH_EXEC).elf $(FLASH_EXEC).s19 \
+			$(RAM_EXEC) $(RAM_EXEC).elf $(RAM_EXEC).s19 \
+			$(BASFLASH_EXEC) $(BASFLASH_EXEC).elf $(BASFLASH_EXEC).s19 $(OBJDIR)/basflash.o $(OBJDIR)/basflash_start.o \
+			$(OBJS) $(LIBBAS) \
+			bas.lk bas.map ram.lk ram.map basflash.lk basflash.map depend 
 
 $(FLASH_EXEC): TARGET_ADDRESS=0xe0000000
-$(RAM_EXEC): TARGET_ADDRESS=0x10000000
+$(FLASH_EXEC): LDCFILE=bas.lk
+$(FLASH_EXEC): MAPFILE=bas.map
 
-$(FLASH_EXEC) $(RAM_EXEC): $(OBJS) $(LDCSRC)
+$(RAM_EXEC): TARGET_ADDRESS=0x10000000
+$(RAM_EXEC): LDCFILE=ram.lk
+$(RAM_EXEC): MAPFILE=ram.map
+
+$(BASFLASH_EXEC): TARGET_ADDRESS=0x00100000
+$(BASFLASH_EXEC): LDCFILE=basflash.lk
+$(BASFLASH_EXEC): MAPFILE=basflash.map
+
+# the final link stage (BaS in RAM and BaS in flash)
+$(FLASH_EXEC) $(RAM_EXEC): $(LIBBAS) $(LDCSRC)
 	$(CPP) -P -DTARGET_ADDRESS=$(TARGET_ADDRESS) -DFORMAT=$(FORMAT) $(LDCSRC) -o $(LDCFILE)
 	$(LD) --oformat $(FORMAT) -Map $(MAPFILE) --cref -T $(LDCFILE) -o $@
 ifeq ($(COMPILE_ELF),Y)
@@ -94,9 +121,24 @@ ifeq ($(COMPILE_ELF),Y)
 else
 	objcopy -I srec -O elf32-big --alt-machine-code 4 $@ $@.elf
 endif
+
+# the basflash (SD-card executable called from BaS) final link stage
+$(BASFLASH_EXEC): $(OBJDIR)/basflash.o $(OBJDIR)/basflash_start.o $(LIBBAS) $(LDCBFL)
+	$(CPP) -P -DTARGET_ADDRESS=$(TARGET_ADDRESS) -DFORMAT=$(FORMAT) $(LDCBSRC) -o $(LDCFILE)
+	$(LD) --oformat $(FORMAT) -Map $(MAPFILE) --cref -T $(LDCFILE) -L. -lbas -o $@
+ifeq ($(COMPILE_ELF),Y)
+	$(OBJCOPY) -O srec $@ $@.s19
+else
+	objcopy -I srec -O elf32-big --alt-machine-code 4 $@ $@.elf
+endif	
+
+# (re)create library. Currently suboptimal because it rewrites the whole lib even if only a single object changed
+$(LIBBAS): $(OBJS)
+	$(AR) rv $@ $(OBJS)
+	$(RANLIB) $@
 	
 # compile init_fpga with -mbitfield for testing purposes
-$(OBJDIR)/init_fpga.o:	CFLAGS += -mbitfield
+#$(OBJDIR)/init_fpga.o:	CFLAGS += -mbitfield
 
 # compile printf pc-relative so it can be used as well before and after copy of BaS
 $(OBJDIR)/bas_printf.o:	CFLAGS += -mpcrel
@@ -110,7 +152,8 @@ $(OBJDIR)/%.o:$(SRCDIR)/%.S
 	$(CC) -c $(CFLAGS) -Wa,--bitwise-or $(INCLUDE) $< -o $@
 
 depend: $(ASRCS) $(CSRCS)
-	$(CC) $(CFLAGS) $(INCLUDE) -M $(ASRCS) $(CSRCS) > depend
+		$(CC) $(CFLAGS) $(INCLUDE) -M $(ASRCS) $(CSRCS) | sed -e 's/^\(.*\).o:/$(OBJDIR)\/\1.o:/' > depend
+
 	
 ifneq (clean,$(MAKECMDGOALS))
 -include depend

bas.lk.in

@@ -1,6 +1,6 @@
 MEMORY
 {
-   bas_rom (RX) : ORIGIN = TARGET_ADDRESS, LENGTH = 0x00200000
+   bas_rom (RX) : ORIGIN = TARGET_ADDRESS, LENGTH = 0x00100000
    bas_ram (WX) : ORIGIN = 0x1FE00000, LENGTH = 0x00100000		/* target to copy BaS to */
 }
 
@@ -12,6 +12,8 @@ SECTIONS
 		objs/startcf.o(.text) /* this one is the entry point so it must be the first */
 		objs/sysinit.o(.text)
 		objs/init_fpga.o(.text)
+		objs/wait.o(.text)
+		
 #if (FORMAT == elf32-m68k)
 		*(.rodata)
 		*(.rodata.*)
@@ -27,16 +29,20 @@ SECTIONS
 		AT (ALIGN(ADDR(.text) + SIZEOF(.text), 4))
 	{
 		objs/BaS.o(.text)
+		objs/wait.o(.text)
 		/* put other routines into the same segment (RAM) as BaS.o */ 
-		objs/sd_card_asm.o(.text)
+		objs/unicode.o(.text)
+		objs/mmc.o(.text)
+		objs/ff.o(.text)
+		objs/sd_card.o(.text)
+		objs/s19reader.o(.text)
 		objs/bas_printf.o(.text)
+		objs/bas_string.o(.text)
 		objs/printf_helper.o(.text)
 		objs/cache.o(.text)
-		objs/sd_card.o(.text)
 		objs/mmu.o(.text)
 		objs/exceptions.o(.text)
 		objs/supervisor.o(.text)
-		objs/ewf.o(.text)
 		objs/illegal_instruction.o(.text)
 		*(.data)
 		*(.bss)	

basflash.lk.in

@@ -0,0 +1,105 @@
+MEMORY
+{
+   flasher (WX) : ORIGIN = TARGET_ADDRESS, LENGTH = 0x00100000		/* target to load basflash */
+}
+
+SECTIONS
+{
+	.text :
+	{
+		objs/basflash_start.o(.text)
+		objs/basflash.o(.text)
+
+		*(.data)
+		*(.bss)	
+		*(.rodata)
+		*(.rodata.*)		
+	} > flasher
+
+	.bas :
+	{
+	}
+		
+	#define BAS_LABEL_LMA(x) ((x))
+	_xprintf_before_copy = BAS_LABEL_LMA(_xprintf);
+	_display_progress_before_copy = BAS_LABEL_LMA(_display_progress);
+	/* _flush_and_invalidate_caches_before_copy = BAS_LABEL_LMA(_flush_and_invalidate_caches); */
+	
+	/*
+	 * Global memory map
+	 */
+
+	/* SDRAM Initialization @ 0000_0000 - 1FFF_FFFF 512Mbytes */
+ 	___SDRAM                = 0x00000000;
+ 	___SDRAM_SIZE           = 0x20000000;
+
+	/* ST-RAM */
+	__STRAM                 = ___SDRAM;
+	__STRAM_END             = __TOS;
+
+	/* TOS */
+	__TOS                   = 0x00e00000;
+
+	/* FastRAM */
+	__FASTRAM               = 0x10000000;
+	__FASTRAM_END           = 0x1FFFFFFF;
+
+	/* Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes) */
+	___BOOT_FLASH           = 0xe0000000;
+ 	___BOOT_FLASH_SIZE      = 0x00800000;
+
+	/* BaS */
+	__BAS_LMA               = LOADADDR(.bas);
+	__BAS_IN_RAM            = ADDR(.bas);
+	__BAS_SIZE              = SIZEOF(.bas);
+
+	/* Other flash components */
+	__FIRETOS               = 0xe0400000;
+	__EMUTOS                = 0xe0600000;
+	__EMUTOS_SIZE           = 0x00100000;
+
+	/* VIDEO RAM BASIS */
+	__VRAM                  = 0x60000000;
+
+	/* Memory mapped registers */
+ 	__MBAR                  = 0xFF000000;
+
+	/* 32KB on-chip System SRAM */
+ 	__SYS_SRAM              = 0xFF010000;
+	__SYS_SRAM_SIZE         = 0x00008000;
+
+	/* MMU memory mapped registers */
+ 	__MMUBAR                = 0xFF040000;
+
+	/*
+	 * 4KB on-chip Core SRAM0: -> exception table and exception stack
+	 */
+ 	__RAMBAR0               = 0xFF100000;
+ 	__RAMBAR0_SIZE          = 0x00001000;
+ 	__SUP_SP                = __RAMBAR0 + __RAMBAR0_SIZE - 4;
+
+	/* system variables */
+	
+	/* RAMBAR0 0 to 0x7FF -> exception vectors */
+	_rt_mod    = __RAMBAR0 + 0x800;
+	_rt_ssp    = __RAMBAR0 + 0x804;
+	_rt_usp    = __RAMBAR0 + 0x808;
+	_rt_vbr    = __RAMBAR0 + 0x80C;  	/* (8)01 */
+	_rt_cacr   = __RAMBAR0 + 0x810;   	/* 002 */
+	_rt_asid   = __RAMBAR0 + 0x814;   	/* 003 */
+	_rt_acr0   = __RAMBAR0 + 0x818;   	/* 004 */
+	_rt_acr1   = __RAMBAR0 + 0x81c;   	/* 005 */
+	_rt_acr2   = __RAMBAR0 + 0x820;   	/* 006 */
+	_rt_acr3   = __RAMBAR0 + 0x824;   	/* 007 */
+	_rt_mmubar = __RAMBAR0 + 0x828;		/* 008 */
+	_rt_sr     = __RAMBAR0 + 0x82c;
+	_d0_save   = __RAMBAR0 + 0x830;
+	_a7_save   = __RAMBAR0 + 0x834;
+	_video_tlb = __RAMBAR0 + 0x838;
+	_video_sbt = __RAMBAR0 + 0x83C;
+	_rt_mbar   = __RAMBAR0 + 0x844;   	/* (c)0f */
+
+	/* 4KB on-chip Core SRAM1: -> modified code */
+ 	__RAMBAR1               = 0xFF101000;
+ 	__RAMBAR1_SIZE          = 0x00001000;
+ }

cfg/DDRAM.cfg

@@ -1,57 +0,0 @@
-; This is the board specific initialization file used in CodeWarrior Embedded product for ColdFire architecture
-;        $RCSfile: M5475EVB.cfg,v $
-;        $Revision: 1.4 $   $Date: 2008/01/09 11:46:41 $
-; Please do NOT modifiy this file. If you wish to modify this file, please keep a backup copy of this file.
-
-ResetHalt
-
-;Set VBR - debugger must know this in order
-;   to do exception capture
-writecontrolreg 0x0801 0x00000000
-
-; If MBAR changes all following writes must change
-;   and if a memory configuration file is used,
-;   the reserved areas in the register block must
-;   change also.
-;Turn on MBAR at 0xFF00_0000
-writecontrolreg 0x0C0F 0xFF000000
-
-;Turn on RAMBAR0 at address FF10_0000 
-writecontrolreg 0x0C04 0xFF100035
-
-;Turn on RAMBAR1 at address FF10_1000 
-writecontrolreg 0x0C05 0xFF101035
-
-;Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes)
-writemem.l 0xFF000500 0xE0000000;
-writemem.l 0xFF000508 0x00101980;  16-bit port
-writemem.l 0xFF000504 0x007F0001;
-
-;SDRAM Initialization @ 0000_0000 - 1FFF_FFFF 512Mbytes
-writemem.l 0xFF000004 0x000002AA;   SDRAMDS configuration
-writemem.l 0xFF000020 0x0000001A;   SDRAM CS0 configuration (128Mbytes 0000_0000 - 07FF_FFFF)
-writemem.l 0xFF000024 0x0800001A;   SDRAM CS1 configuration (128Mbytes 0800_0000 - 0FFF_FFFF)
-writemem.l 0xFF000028 0x1000001A;   SDRAM CS2 configuration (128Mbytes 1000_0000 - 07FF_FFFF)
-writemem.l 0xFF00002C 0x1800001A;   SDRAM CS3 configuration (128Mbytes 1800_0000 - 1FFF_FFFF)
-;writemem.l 0xFF000108 0x73611730;   SDCFG1
-writemem.l 0xFF000108 0x53611730;   SDCFG1
-;writemem.l 0xFF00010C 0x46770000;   SDCFG2
-writemem.l 0xFF00010C 0x24730000;   SDCFG2
-
-;writemem.l 0xFF000104 0xE10D0002;   SDCR + IPALL
-writemem.l 0xFF000104 0xE10F0002;   SDCR + IPALL
-writemem.l 0xFF000100 0x40010000;   SDMR (write to LEMR)
-;writemem.l 0xFF000100 0x048D0000;   SDMR (write to LMR)
-writemem.l 0xFF000100 0x04890000;   SDMR (write to LMR)
-;writemem.l 0xFF000104 0xE10D0002;   SDCR + IPALL
-writemem.l 0xFF000104 0xE10F0002;   SDCR + IPALL
-;writemem.l 0xFF000104 0xE10D0004;   SDCR + IREF (first refresh)
-writemem.l 0xFF000104 0xE10F0004;   SDCR + IREF (first refresh)
-;writemem.l 0xFF000104 0xE10D0004;   SDCR + IREF (second refresh)
-writemem.l 0xFF000104 0xE10F0004;   SDCR + IREF (first refresh)
-;writemem.l 0xFF000100 0x008D0000;   SDMR (write to LMR)
-writemem.l 0xFF000100 0x00890000;   SDMR (write to LMR)
-;writemem.l 0xFF000104 0x71100F00;   SDCR (lock SDMR and enable refresh)
-writemem.l 0xFF000104 0x71100F00;   SDCR (lock SDMR and enable refresh)
-
-delay 1000

cfg/DDRAM.mem

@@ -1,47 +0,0 @@
-// Memory Configuration File
-//
-// Description:
-//  A memory configuration file contains commands that define the legally accessible
-//  areas of memory for your specific board. Useful for example when the debugger
-//  tries to display the content of a "char *" variable, that has not yet been initialized.
-//  In this case the debugger may try to read from a bogus address, which could cause a
-//  bus error.
-//
-// Board:
-//  LogicPD COLDARI1
-//
-// Reference:
-//  MCF5475RM.pdf
-
-
-// All reserved ranges read back 0xBABA...
-reservedchar 0xBA
-
-address 	MBAR_BASE 		0xFF000000 
-address 	MMUBAR_BASE 	0xFF040000
-
-usederivative "MCF5475"
-
-//         Memory Map:
-//         ----------------------------------------------------------------------
-range		0x00000000 			0x1FFFFFFF 				4 ReadWrite		// 512MB DDR SDRAM
-reserved	0x20000000 			0x5FFFFFFF
-
-range		0x60000000			0x7FFFFFFF				4 ReadWrite
-
-range		0x80000000			0xCFFFFFFF				4 ReadWrite			
-
-range		0xD0000000			0xFBFFFFFF				4 ReadWrite
-			
-reserved	0xFC000000			$MBAR_BASE-1			
-
- 			$MBAR_BASE 			$MBAR_BASE+0x3FFFF						// Memory Mapped Registers
-range		$MBAR_BASE+0x10000	$MBAR_BASE+0x17FFC		4 ReadWrite		// 32K Internal SRAM
-
-range		$MMUBAR_BASE		$MMUBAR_BASE+0xFFFF
-reserved	$MMUBAR_BASE+1x0000	0xFF0FFFFF	     						// Added to fill gap in MMR
-
-range      	0xFF100000 			0xFF100FFF 				4 ReadWrite		// 4K SRAM0 (RAMBAR0)
-range      	0xFF101000 			0xFFFFFFFF 				4 ReadWrite		// 4K SRAM1 (RAMBAR1)
-
-

cfg/flash.cfg

@@ -1,11 +0,0 @@
-; This is the board specific initialization file used in CodeWarrior Embedded product for ColdFire architecture
-;        $RCSfile: M5475EVB.cfg,v $
-;        $Revision: 1.4 $   $Date: 2008/01/09 11:46:41 $
-; Please do NOT modifiy this file. If you wish to modify this file, please keep a backup copy of this file.
-
-
-;Init CS0 (BootFLASH @ FE00_0000 - FE7F_FFFF 8Mbytes)
-writemem.l 0xFF000500 0xFE000000;
-writemem.l 0xFF000508 0x00101980;  16-bit port
-writemem.l 0xFF000504 0x007F0001;
-

cfg/mem.cfg

@@ -1,48 +0,0 @@
-; This is the board specific initialization file used in CodeWarrior Embedded product for ColdFire architecture
-;        $RCSfile: M5475EVB.cfg,v $
-;        $Revision: 1.4 $   $Date: 2008/01/09 11:46:41 $
-; Please do NOT modifiy this file. If you wish to modify this file, please keep a backup copy of this file.
-
-ResetHalt
-
-;Set VBR - debugger must know this in order
-;   to do exception capture
-writecontrolreg 0x0801 0x00000000
-
-; If MBAR changes all following writes must change
-;   and if a memory configuration file is used,
-;   the reserved areas in the register block must
-;   change also.
-;Turn on MBAR at 0xFF00_0000
-writecontrolreg 0x0C0F 0xFF000000
-
-;Turn on RAMBAR0 at address FF10_0000 
-writecontrolreg 0x0C04 0xFF100035
-
-;Turn on RAMBAR1 at address FF10_1000 
-writecontrolreg 0x0C05 0xFF101035
-
-;Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes)
-writemem.l 0xFF000500 0xE0000000;
-writemem.l 0xFF000508 0x00001180;  16-bit port
-writemem.l 0xFF000504 0x007F0001;
-
-;SDRAM Initialization @ 0000_0000 - 1FFF_FFFF 512Mbytes
-writemem.l 0xFF000004 0x000002AA;   SDRAMDS configuration
-writemem.l 0xFF000020 0x0000001A;   SDRAM CS0 configuration (128Mbytes 0000_0000 - 07FF_FFFF)
-writemem.l 0xFF000024 0x0800001A;   SDRAM CS1 configuration (128Mbytes 0800_0000 - 0FFF_FFFF)
-writemem.l 0xFF000028 0x1000001A;   SDRAM CS2 configuration (128Mbytes 1000_0000 - 17FF_FFFF)
-writemem.l 0xFF00002C 0x1800001A;   SDRAM CS3 configuration (128Mbytes 1800_0000 - 1FFF_FFFF)
-writemem.l 0xFF000108 0x53722938;   SDCFG1
-writemem.l 0xFF00010C 0x24330000;   SDCFG2
-
-writemem.l 0xFF000104 0xE10F0002;   SDCR + IPALL
-writemem.l 0xFF000100 0x40010000;   SDMR (write to LEMR)
-writemem.l 0xFF000100 0x05890000;   SDRM (write to LMR)
-writemem.l 0xFF000104 0xE10F0002;   SDCR + IPALL
-writemem.l 0xFF000104 0xE10F0004;   SDCR + IREF (first refresh)
-writemem.l 0xFF000104 0xE10F0004;   SDCR + IREF (second refresh)
-writemem.l 0xFF000100 0x01890000;   SDMR (write to LMR)
-writemem.l 0xFF000104 0x710F0F00;   SDCR (lock SDMR and enable refresh)
-
-delay 1000

cfg/mem.mem

@@ -1,38 +0,0 @@
-// Memory Configuration File
-//
-// Description:
-//  A memory configuration file contains commands that define the legally accessible
-//  areas of memory for your specific board. Useful for example when the debugger
-//  tries to display the content of a "char *" variable, that has not yet been initialized.
-//  In this case the debugger may try to read from a bogus address, which could cause a
-//  bus error.
-//
-// Board:
-//  LogicPD COLDARI1
-//
-// Reference:
-//  MCF5475RM.pdf
-
-
-// All reserved ranges read back 0xBABA...
-reservedchar 0xBA
-
-address 	MBAR_BASE 		0xFF000000 
-address 	MMUBAR_BASE 	0xFF040000
-
-usederivative "MCF5475"
-
-//         Memory Map:
-//         ----------------------------------------------------------------------
-range		0x00000000 			0x1FFFFFFF 				4 ReadWrite		// 512MB DDR SDRAM
-reserved	0x20000000 			$MBAR_BASE-1
-
-  			$MBAR_BASE 			$MBAR_BASE+0x3FFFF		4 ReadWrite		// Memory Mapped Registers
-range		$MBAR_BASE+0x10000	$MBAR_BASE+0x17FFC		4 ReadWrite		// 32K Internal SRAM
-reserved	$MBAR_BASE+0x17FFD	$MBAR_BASE+0x1FFBF
-
- 			$MMUBAR_BASE		$MMUBAR_BASE+0x001B
-reserved	$MMUBAR_BASE+0x001C 0xFF0FFFFF				
-
-range      	0xFF100000 			0xFF100FFF 				4 ReadWrite		// 4K SRAM0 (RAMBAR0)
-range      	0xFF101000 			0xFF101FFF 				4 ReadWrite		// 4K SRAM1 (RAMBAR1)

flash_scripts/flash_bas.bdm

@@ -0,0 +1,52 @@
+#!/usr/local/bin/bdmctrl -D2
+#
+# firebee board initialization for bdmctrl 
+#
+open $1
+reset
+sleep 10
+
+wait
+
+# Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes)
+write 0xFF000500 0xE0000000 4
+write 0xFF000508 0x00001180 4
+write 0xFF000504 0x007F0001 4
+
+
+# notify flashlib that we have flash at address 0xE0000000, length 0x7FFFFF, plugin is flash29
+flash 0xE0000000
+
+# flash-plugin (target-based flashing) does not work yet 
+#flash-plugin 0x10000000 0x4000 flash29.plugin
+
+# Erase flash from 0xE0000000 to 0xE00FFFFF (reserved space for BaS)
+#
+# Caution: sector offset numbers need to be the ones from the x16 address range
+# column and they vary in size - needs to be exactly as in the data sheet (p. 9)
+#
+# contrary to documentation, it seems we need to erase-wait after each sector
+
+erase 0xE0000000 0x00000
+erase-wait 0xE0000000
+erase 0xE0000000 0x01000
+erase-wait 0xE0000000
+erase 0xE0000000 0x02000
+erase-wait 0xE0000000
+erase 0xE0000000 0x03000
+erase-wait 0xE0000000
+erase 0xE0000000 0x04000
+erase-wait 0xE0000000
+erase 0xE0000000 0x05000
+erase-wait 0xE0000000
+erase 0xE0000000 0x06000
+erase-wait 0xE0000000
+erase 0xE0000000 0x07000
+erase-wait 0xE0000000
+erase 0xE0000000 0x08000
+erase-wait 0xE0000000
+erase 0xE0000000 0x10000
+erase-wait 0xE0000000
+blank-chk 0xE0000000 0x00000 
+load -v bas.elf
+wait

flash_scripts/flash_etos.bdm

@@ -0,0 +1,56 @@
+#!/usr/local/bin/bdmctrl -D2
+#
+# flash EmuTOS using bdmctrl
+#
+open $1
+reset
+
+# Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes)
+write 0xFF000500 0xE0000000 4
+write 0xFF000508 0x00001180 4
+write 0xFF000504 0x007F0001 4
+
+# notify flashlib that we have flash at address 0xE0000000, length 0x7FFFFF, plugin is flash29
+flash 0xe0000000
+
+# Erase flash from 0xE0600000 to 0xE06FFFFF (reserved space for EmuTOS)
+#
+# Caution: sector offset numbers need to be the ones from the x16 address range
+# column and they vary in size - needs to be exactly as in the data sheet (p. 9)
+#
+# contrary to documentation, it seems we need to erase-wait after each sector
+
+erase 0xe0000000 0x300000
+erase-wait 0xe0000000
+erase 0xe0000000 0x308000
+erase-wait 0xe0000000
+erase 0xe0000000 0x310000
+erase-wait 0xe0000000
+erase 0xe0000000 0x318000
+erase-wait 0xe0000000
+erase 0xe0000000 0x320000
+erase-wait 0xe0000000
+erase 0xe0000000 0x328000
+erase-wait 0xe0000000
+erase 0xe0000000 0x330000
+erase-wait 0xe0000000
+erase 0xe0000000 0x338000
+erase-wait 0xe0000000
+erase 0xe0000000 0x340000
+erase-wait 0xe0000000
+erase 0xe0000000 0x348000
+erase-wait 0xe0000000
+erase 0xe0000000 0x350000
+erase-wait 0xe0000000
+erase 0xe0000000 0x358000
+erase-wait 0xe0000000
+erase 0xe0000000 0x360000
+erase-wait 0xe0000000
+erase 0xe0000000 0x368000
+erase-wait 0xe0000000
+erase 0xe0000000 0x370000
+erase-wait 0xe0000000
+erase 0xe0000000 0x378000
+erase-wait 0xe0000000
+
+load -v emutosfb.elf

flash_scripts/flash_firetos.bdm

@@ -0,0 +1,59 @@
+#!/usr/local/bin/bdmctrl -D2
+#
+# firebee board initialization for bdmctrl 
+#
+open $1
+reset
+
+# Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes)
+write 0xFF000500 0xE0000000 4
+write 0xFF000508 0x00001180 4
+write 0xFF000504 0x007F0001 4
+
+# notify flashlib that we have flash at address 0xE0000000, length 0x7FFFFF, plugin is flash29
+flash 0xe0000000
+
+# flash-plugin (target-based flashing) does not work yet 
+# flash-plugin 0x10000000 0x4000 flash29.plugin
+
+# Erase flash from 0xE0400000 to 0xE04FFFFF (reserved space for FireTOS)
+#
+# Caution: sector offset numbers need to be the ones from the x16 address range
+# column and they vary in size - needs to be exactly as in the data sheet (p. 9)
+#
+# contrary to documentation, it seems we need to erase-wait after each sector
+
+erase 0xe0000000 0x200000
+erase-wait 0xe0000000
+erase 0xe0000000 0x208000
+erase-wait 0xe0000000
+erase 0xe0000000 0x210000
+erase-wait 0xe0000000
+erase 0xe0000000 0x218000
+erase-wait 0xe0000000
+erase 0xe0000000 0x220000
+erase-wait 0xe0000000
+erase 0xe0000000 0x228000
+erase-wait 0xe0000000
+erase 0xe0000000 0x230000
+erase-wait 0xe0000000
+erase 0xe0000000 0x238000
+erase-wait 0xe0000000
+erase 0xe0000000 0x240000
+erase-wait 0xe0000000
+erase 0xe0000000 0x248000
+erase-wait 0xe0000000
+erase 0xe0000000 0x250000
+erase-wait 0xe0000000
+erase 0xe0000000 0x258000
+erase-wait 0xe0000000
+erase 0xe0000000 0x260000
+erase-wait 0xe0000000
+erase 0xe0000000 0x268000
+erase-wait 0xe0000000
+erase 0xe0000000 0x270000
+erase-wait 0xe0000000
+erase 0xe0000000 0x278000
+erase-wait 0xe0000000
+
+load -v firetos.elf

flash_scripts/flash_fpga.bdm

@@ -0,0 +1,77 @@
+#!/usr/local/bin/bdmctrl -D2
+#
+# firebee board initialization for bdmctrl 
+#
+open $1
+#reset
+
+# Init CS0 (BootFLASH @ E000_0000 - E07F_FFFF 8Mbytes)
+write 0xFF000500 0xE0000000 4
+write 0xFF000508 0x00001180 4
+write 0xFF000504 0x007F0001 4
+
+# notify flashlib that we have flash at address 0xE0000000, length 0x7FFFFF, plugin is flash29
+flash 0xe0000000
+
+# flash-plugin (target-based flashing) does not work yet 
+#flash-plugin 0x10000000 0x4000 flash29.plugin
+
+# Erase flash from 0xE0700000 to 0xE07FFFFF (reserved space for FPGA)
+#
+# Caution: sector offset numbers need to be the ones from the x16 address range
+# column and they vary in size - needs to be exactly as in the data sheet (p. 9)
+#
+# contrary to documentation, it seems we need to erase-wait after each sector
+
+erase 0xe0000000 0x380000
+erase-wait 0xe0000000
+erase 0xe0000000 0x388000
+erase-wait 0xe0000000
+erase 0xe0000000 0x390000
+erase-wait 0xe0000000
+erase 0xe0000000 0x398000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3A0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3A0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3A8000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3B0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3B8000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3C0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3C8000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3D0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3D8000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3E0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3E8000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3F0000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3F8000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3F9000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3FA000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3FB000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3FC000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3FD000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3FE000
+erase-wait 0xe0000000
+erase 0xe0000000 0x3FF000
+erase-wait 0xe0000000
+
+wait
+
+load -v FPGA.elf

include/bas_printf.h

@@ -1,3 +1,22 @@
+/*
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
 #ifndef _BAS_PRINTF_H_
 #define _BAS_PRINTF_H_
 #include <stdarg.h>

include/bas_string.h

@@ -0,0 +1,26 @@
+/*
+ * bas_string.h
+ *
+ *  Created on: 26.02.2013
+ *      Author: mfro
+ */
+
+#ifndef BAS_STRING_H_
+#define BAS_STRING_H_
+
+#include <stddef.h>
+
+extern int strncmp(const char *s1, const char *s2, int max);
+extern char *strcpy(char *dst, const char *src);
+extern size_t strlen(const char *str);
+extern char *strcat(char *dst, const char *src);
+extern char *strncat(char *dst, const char *src, int max);
+extern int atoi(const char *c);
+
+#define isdigit(c)	(((c) >= '0') && ((c) <= '9'))
+#define isupper(c)	((c) >= 'A' && ((c) <= 'Z'))
+#define islower(c)	((c) >= 'a' && ((c) <= 'z'))
+#define isalpha(c)	(isupper((c)) || islower(c))
+#define tolower(c)	(isupper(c) ? ((c) + 'a' - 'A') : (c))
+
+#endif /* BAS_STRING_H_ */

include/bas_types.h

@@ -0,0 +1,37 @@
+/*
+ * bas_types.h
+ *
+ *  Created on: 17.11.2012
+ *      Author: mfro
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#ifndef BAS_TYPES_H_
+#define BAS_TYPES_H_
+
+#ifndef __cplusplus
+#include <stdbool.h>
+#endif /* __cplusplus */
+
+
+
+#endif /* BAS_TYPES_H_ */

include/cache.h

@@ -0,0 +1,32 @@
+#ifndef _CACHE_H_
+#define _CACHE_H_
+
+/*
+ * cache.h
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#include <stdint.h>
+
+extern void flush_and_invalidate_caches(void);
+
+#endif /* _CACHE_H_ */

include/diskio.h

@@ -0,0 +1,90 @@
+/*-----------------------------------------------------------------------
+/  Low level disk interface modlue include file   (C)ChaN, 2012
+/-----------------------------------------------------------------------*/
+
+#ifndef _DISKIO_DEFINED
+#define _DISKIO_DEFINED
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define _USE_WRITE	1	/* 1: Enable disk_write function */
+#define _USE_IOCTL	1	/* 1: Enable disk_ioctl fucntion */
+
+#include <stdint.h>
+
+
+/* Status of Disk Functions */
+typedef uint8_t	DSTATUS;
+
+/* Results of Disk Functions */
+typedef enum {
+	RES_OK = 0,		/* 0: Successful */
+	RES_ERROR,		/* 1: R/W Error */
+	RES_WRPRT,		/* 2: Write Protected */
+	RES_NOTRDY,		/* 3: Not Ready */
+	RES_PARERR		/* 4: Invalid Parameter */
+} DRESULT;
+
+
+/*---------------------------------------*/
+/* Prototypes for disk control functions */
+
+
+DSTATUS disk_initialize (uint8_t);
+DSTATUS disk_status (uint8_t);
+DRESULT disk_read (uint8_t, uint8_t*, uint32_t, uint8_t);
+#if	_READONLY == 0
+DRESULT disk_write (uint8_t, const uint8_t*, uint32_t, uint8_t);
+#endif
+DRESULT disk_ioctl (uint8_t, uint8_t, void*);
+
+
+/* Disk Status Bits (DSTATUS) */
+#define STA_NOINIT		0x01	/* Drive not initialized */
+#define STA_NODISK		0x02	/* No medium in the drive */
+#define STA_PROTECT		0x04	/* Write protected */
+
+
+/* Command code for disk_ioctrl fucntion */
+
+/* Generic command (used by FatFs) */
+#define CTRL_SYNC			0	/* Flush disk cache (for write functions) */
+#define GET_SECTOR_COUNT	1	/* Get media size (for only f_mkfs()) */
+#define GET_SECTOR_SIZE		2	/* Get sector size (for multiple sector size (_MAX_SS >= 1024)) */
+#define GET_BLOCK_SIZE		3	/* Get erase block size (for only f_mkfs()) */
+#define CTRL_ERASE_SECTOR	4	/* Force erased a block of sectors (for only _USE_ERASE) */
+
+/* Generic command (not used by FatFs) */
+#define CTRL_POWER			5	/* Get/Set power status */
+#define CTRL_LOCK			6	/* Lock/Unlock media removal */
+#define CTRL_EJECT			7	/* Eject media */
+#define CTRL_FORMAT			8	/* Create physical format on the media */
+
+/* MMC/SDC specific ioctl command */
+#define MMC_GET_TYPE		10	/* Get card type */
+#define MMC_GET_CSD			11	/* Get CSD */
+#define MMC_GET_CID			12	/* Get CID */
+#define MMC_GET_OCR			13	/* Get OCR */
+#define MMC_GET_SDSTAT		14	/* Get SD status */
+
+/* ATA/CF specific ioctl command */
+#define ATA_GET_REV			20	/* Get F/W revision */
+#define ATA_GET_MODEL		21	/* Get model name */
+#define ATA_GET_SN			22	/* Get serial number */
+
+
+/* MMC card type flags (MMC_GET_TYPE) */
+#define CT_MMC		0x01		/* MMC ver 3 */
+#define CT_SD1		0x02		/* SD ver 1 */
+#define CT_SD2		0x04		/* SD ver 2 */
+#define CT_SDC		(CT_SD1|CT_SD2)	/* SD */
+#define CT_BLOCK	0x08		/* Block addressing */
+
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif

include/ff.h

@@ -0,0 +1,337 @@
+/*---------------------------------------------------------------------------/
+/  FatFs - FAT file system module include file  R0.09a    (C)ChaN, 2012
+/----------------------------------------------------------------------------/
+/ FatFs module is a generic FAT file system module for small embedded systems.
+/ This is a free software that opened for education, research and commercial
+/ developments under license policy of following terms.
+/
+/  Copyright (C) 2012, ChaN, all right reserved.
+/
+/ * The FatFs module is a free software and there is NO WARRANTY.
+/ * No restriction on use. You can use, modify and redistribute it for
+/   personal, non-profit or commercial product UNDER YOUR RESPONSIBILITY.
+/ * Redistributions of source code must retain the above copyright notice.
+/
+/----------------------------------------------------------------------------*/
+
+#ifndef _FATFS
+#define _FATFS	4004	/* Revision ID */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#include <stdint.h>
+#include <ffconf.h>		/* FatFs configuration options */
+
+#if _FATFS != _FFCONF
+#error Wrong configuration file (ffconf.h).
+#endif
+
+
+
+/* Definitions of volume management */
+
+#if _MULTI_PARTITION		/* Multiple partition configuration */
+typedef struct {
+	uint8_t pd;	/* Physical drive number */
+	uint8_t pt;	/* Partition: 0:Auto detect, 1-4:Forced partition) */
+} PARTITION;
+extern PARTITION VolToPart[];	/* Volume - Partition resolution table */
+#define LD2PD(vol) (VolToPart[vol].pd)	/* Get physical drive number */
+#define LD2PT(vol) (VolToPart[vol].pt)	/* Get partition index */
+
+#else								/* Single partition configuration */
+#define LD2PD(vol) (uint8_t)(vol)	/* Each logical drive is bound to the same physical drive number */
+#define LD2PT(vol) 0				/* Always mounts the 1st partition or in SFD */
+
+#endif
+
+
+
+/* Type of path name strings on FatFs API */
+
+#if _LFN_UNICODE			/* Unicode string */
+#if !_USE_LFN
+#error _LFN_UNICODE must be 0 in non-LFN cfg.
+#endif
+#ifndef _INC_TCHAR
+typedef uint16_t TCHAR;
+#define _T(x) L ## x
+#define _TEXT(x) L ## x
+#endif
+
+#else						/* ANSI/OEM string */
+#ifndef _INC_TCHAR
+typedef char TCHAR;
+#define _T(x) x
+#define _TEXT(x) x
+#endif
+
+#endif
+
+
+
+/* File system object structure (FATFS) */
+
+typedef struct {
+	uint8_t	fs_type;		/* FAT sub-type (0:Not mounted) */
+	uint8_t	drv;			/* Physical drive number */
+	uint8_t	csize;			/* Sectors per cluster (1,2,4...128) */
+	uint8_t	n_fats;			/* Number of FAT copies (1,2) */
+	uint8_t	wflag;			/* win[] dirty flag (1:must be written back) */
+	uint8_t	fsi_flag;		/* fsinfo dirty flag (1:must be written back) */
+	uint16_t	id;				/* File system mount ID */
+	uint16_t	n_rootdir;		/* Number of root directory entries (FAT12/16) */
+#if _MAX_SS != 512
+	uint16_t	ssize;			/* Bytes per sector (512, 1024, 2048 or 4096) */
+#endif
+#if _FS_REENTRANT
+	_SYNC_t	sobj;			/* Identifier of sync object */
+#endif
+#if !_FS_READONLY
+	uint32_t	last_clust;		/* Last allocated cluster */
+	uint32_t	free_clust;		/* Number of free clusters */
+	uint32_t	fsi_sector;		/* fsinfo sector (FAT32) */
+#endif
+#if _FS_RPATH
+	uint32_t	cdir;			/* Current directory start cluster (0:root) */
+#endif
+	uint32_t	n_fatent;		/* Number of FAT entries (= number of clusters + 2) */
+	uint32_t	fsize;			/* Sectors per FAT */
+	uint32_t	fatbase;		/* FAT start sector */
+	uint32_t	dirbase;		/* Root directory start sector (FAT32:Cluster#) */
+	uint32_t	database;		/* Data start sector */
+	uint32_t	winsect;		/* Current sector appearing in the win[] */
+	uint8_t	win[_MAX_SS];	/* Disk access window for Directory, FAT (and Data on tiny cfg) */
+} FATFS;
+
+
+
+/* File object structure (FIL) */
+
+typedef struct {
+	FATFS*	fs;				/* Pointer to the related file system object */
+	uint16_t	id;				/* File system mount ID of the related file system object */
+	uint8_t	flag;			/* File status flags */
+	uint8_t	pad1;
+	uint32_t	fptr;			/* File read/write pointer (0ed on file open) */
+	uint32_t	fsize;			/* File size */
+	uint32_t	sclust;			/* File data start cluster (0:no data cluster, always 0 when fsize is 0) */
+	uint32_t	clust;			/* Current cluster of fpter */
+	uint32_t	dsect;			/* Current data sector of fpter */
+#if !_FS_READONLY
+	uint32_t	dir_sect;		/* Sector containing the directory entry */
+	uint8_t*	dir_ptr;		/* Pointer to the directory entry in the window */
+#endif
+#if _USE_FASTSEEK
+	uint32_t*	cltbl;			/* Pointer to the cluster link map table (null on file open) */
+#endif
+#if _FS_LOCK
+	uint32_t	lockid;			/* File lock ID (index of file semaphore table Files[]) */
+#endif
+#if !_FS_TINY
+	uint8_t	buf[_MAX_SS];	/* File data read/write buffer */
+#endif
+} FIL;
+
+
+
+/* Directory object structure (DIR) */
+
+typedef struct {
+	FATFS*	fs;				/* Pointer to the owner file system object */
+	uint16_t	id;				/* Owner file system mount ID */
+	uint16_t	index;			/* Current read/write index number */
+	uint32_t	sclust;			/* Table start cluster (0:Root dir) */
+	uint32_t	clust;			/* Current cluster */
+	uint32_t	sect;			/* Current sector */
+	uint8_t*	dir;			/* Pointer to the current SFN entry in the win[] */
+	uint8_t*	fn;				/* Pointer to the SFN (in/out) {file[8],ext[3],status[1]} */
+#if _USE_LFN
+	uint16_t*	lfn;			/* Pointer to the LFN working buffer */
+	uint16_t	lfn_idx;		/* Last matched LFN index number (0xFFFF:No LFN) */
+#endif
+} DIR;
+
+
+
+/* File status structure (FILINFO) */
+
+typedef struct {
+	uint32_t	fsize;			/* File size */
+	uint16_t	fdate;			/* Last modified date */
+	uint16_t	ftime;			/* Last modified time */
+	uint8_t	fattrib;		/* Attribute */
+	TCHAR	fname[13];		/* Short file name (8.3 format) */
+#if _USE_LFN
+	TCHAR*	lfname;			/* Pointer to the LFN buffer */
+	uint32_t 	lfsize;			/* Size of LFN buffer in TCHAR */
+#endif
+} FILINFO;
+
+
+
+/* File function return code (FRESULT) */
+
+typedef enum {
+	FR_OK = 0,				/* (0) Succeeded */
+	FR_DISK_ERR,			/* (1) A hard error occurred in the low level disk I/O layer */
+	FR_INT_ERR,				/* (2) Assertion failed */
+	FR_NOT_READY,			/* (3) The physical drive cannot work */
+	FR_NO_FILE,				/* (4) Could not find the file */
+	FR_NO_PATH,				/* (5) Could not find the path */
+	FR_INVALID_NAME,		/* (6) The path name format is invalid */
+	FR_DENIED,				/* (7) Access denied due to prohibited access or directory full */
+	FR_EXIST,				/* (8) Access denied due to prohibited access */
+	FR_INVALID_OBJECT,		/* (9) The file/directory object is invalid */
+	FR_WRITE_PROTECTED,		/* (10) The physical drive is write protected */
+	FR_INVALID_DRIVE,		/* (11) The logical drive number is invalid */
+	FR_NOT_ENABLED,			/* (12) The volume has no work area */
+	FR_NO_FILESYSTEM,		/* (13) There is no valid FAT volume */
+	FR_MKFS_ABORTED,		/* (14) The f_mkfs() aborted due to any parameter error */
+	FR_TIMEOUT,				/* (15) Could not get a grant to access the volume within defined period */
+	FR_LOCKED,				/* (16) The operation is rejected according to the file sharing policy */
+	FR_NOT_ENOUGH_CORE,		/* (17) LFN working buffer could not be allocated */
+	FR_TOO_MANY_OPEN_FILES,	/* (18) Number of open files > _FS_SHARE */
+	FR_INVALID_PARAMETER	/* (19) Given parameter is invalid */
+} FRESULT;
+
+
+
+/*--------------------------------------------------------------*/
+/* FatFs module application interface                           */
+
+FRESULT f_mount (uint8_t, FATFS*);						/* Mount/Unmount a logical drive */
+FRESULT f_open (FIL*, const TCHAR*, uint8_t);			/* Open or create a file */
+FRESULT f_read (FIL*, void*, uint32_t, uint32_t*);			/* Read data from a file */
+FRESULT f_lseek (FIL*, uint32_t);						/* Move file pointer of a file object */
+FRESULT f_close (FIL*);								/* Close an open file object */
+FRESULT f_opendir (DIR*, const char*);				/* Open an existing directory */
+FRESULT f_readdir (DIR*, FILINFO*);					/* Read a directory item */
+FRESULT f_stat (const TCHAR*, FILINFO*);			/* Get file status */
+FRESULT f_write (FIL*, const void*, uint32_t, uint32_t*);	/* Write data to a file */
+FRESULT f_getfree (const TCHAR*, uint32_t*, FATFS**);	/* Get number of free clusters on the drive */
+FRESULT f_truncate (FIL*);							/* Truncate file */
+FRESULT f_sync (FIL*);								/* Flush cached data of a writing file */
+FRESULT f_unlink (const TCHAR*);					/* Delete an existing file or directory */
+FRESULT	f_mkdir (const TCHAR*);						/* Create a new directory */
+FRESULT f_chmod (const TCHAR*, uint8_t, uint8_t);			/* Change attribute of the file/dir */
+FRESULT f_utime (const TCHAR*, const FILINFO*);		/* Change times-tamp of the file/dir */
+FRESULT f_rename (const TCHAR*, const TCHAR*);		/* Rename/Move a file or directory */
+FRESULT f_chdrive (uint8_t);							/* Change current drive */
+FRESULT f_chdir (const TCHAR*);						/* Change current directory */
+FRESULT f_getcwd (TCHAR*, uint32_t);					/* Get current directory */
+FRESULT f_forward (FIL*, uint32_t(*)(const uint8_t*,uint32_t), uint32_t, uint32_t*);	/* Forward data to the stream */
+FRESULT f_mkfs (uint8_t, uint8_t, uint32_t);					/* Create a file system on the drive */
+FRESULT	f_fdisk (uint8_t, const uint32_t[], void*);		/* Divide a physical drive into some partitions */
+int f_putc (TCHAR, FIL*);							/* Put a character to the file */
+int f_puts (const TCHAR*, FIL*);					/* Put a string to the file */
+int f_printf (FIL*, const TCHAR*, ...);				/* Put a formatted string to the file */
+TCHAR* f_gets (TCHAR*, int, FIL*);					/* Get a string from the file */
+
+#define f_eof(fp) (((fp)->fptr == (fp)->fsize) ? 1 : 0)
+#define f_error(fp) (((fp)->flag & FA__ERROR) ? 1 : 0)
+#define f_tell(fp) ((fp)->fptr)
+#define f_size(fp) ((fp)->fsize)
+
+#ifndef EOF
+#define EOF (-1)
+#endif
+
+
+
+
+/*--------------------------------------------------------------*/
+/* Additional user defined functions                            */
+
+/* RTC function */
+#if !_FS_READONLY
+uint32_t get_fattime (void);
+#endif
+
+/* Unicode support functions */
+#if _USE_LFN						/* Unicode - OEM code conversion */
+uint16_t ff_convert (uint16_t, uint32_t);		/* OEM-Unicode bidirectional conversion */
+uint16_t ff_wtoupper (uint16_t);			/* Unicode upper-case conversion */
+#if _USE_LFN == 3					/* Memory functions */
+void* ff_memalloc (uint32_t);			/* Allocate memory block */
+void ff_memfree (void*);			/* Free memory block */
+#endif
+#endif
+
+/* Sync functions */
+#if _FS_REENTRANT
+int ff_cre_syncobj (uint8_t, _SYNC_t*);/* Create a sync object */
+int ff_req_grant (_SYNC_t);			/* Lock sync object */
+void ff_rel_grant (_SYNC_t);		/* Unlock sync object */
+int ff_del_syncobj (_SYNC_t);		/* Delete a sync object */
+#endif
+
+
+
+
+/*--------------------------------------------------------------*/
+/* Flags and offset address                                     */
+
+
+/* File access control and file status flags (FIL.flag) */
+
+#define	FA_READ				0x01
+#define	FA_OPEN_EXISTING	0x00
+#define FA__ERROR			0x80
+
+#if !_FS_READONLY
+#define	FA_WRITE			0x02
+#define	FA_CREATE_NEW		0x04
+#define	FA_CREATE_ALWAYS	0x08
+#define	FA_OPEN_ALWAYS		0x10
+#define FA__WRITTEN			0x20
+#define FA__DIRTY			0x40
+#endif
+
+
+/* FAT sub type (FATFS.fs_type) */
+
+#define FS_FAT12	1
+#define FS_FAT16	2
+#define FS_FAT32	3
+
+
+/* File attribute bits for directory entry */
+
+#define	AM_RDO	0x01	/* Read only */
+#define	AM_HID	0x02	/* Hidden */
+#define	AM_SYS	0x04	/* System */
+#define	AM_VOL	0x08	/* Volume label */
+#define AM_LFN	0x0F	/* LFN entry */
+#define AM_DIR	0x10	/* Directory */
+#define AM_ARC	0x20	/* Archive */
+#define AM_MASK	0x3F	/* Mask of defined bits */
+
+
+/* Fast seek feature */
+#define CREATE_LINKMAP	0xFFFFFFFF
+
+
+
+/*--------------------------------*/
+/* Multi-byte word access macros  */
+
+#if _WORD_ACCESS == 1	/* Enable word access to the FAT structure */
+#define	LD_WORD(ptr)		(uint16_t)(* (uint16_t *)(uint8_t *)(ptr))
+#define	LD_DWORD(ptr)		(uint32_t)(* (uint32_t *)(uint8_t *)(ptr))
+#define	ST_WORD(ptr,val)	*(uint16_t *) (uint8_t *)(ptr) = (uint16_t)(val)
+#define	ST_DWORD(ptr,val)	*(uint32_t *) (uint8_t *)(ptr) = (uint32_t)(val)
+#else					/* Use byte-by-byte access to the FAT structure */
+#define	LD_WORD(ptr)		(uint16_t)(((uint16_t)*((uint8_t *)(ptr) + 1) << 8) | (uint16_t) *(uint8_t *)(ptr))
+#define	LD_DWORD(ptr)		(uint32_t)(((uint32_t)*((uint8_t *)(ptr) + 3) << 24) | ((uint32_t)*((uint8_t*)(ptr) + 2) << 16) | ((uint16_t) *((uint8_t*)(ptr) + 1) << 8) | *(uint8_t*)(ptr))
+#define	ST_WORD(ptr,val)	*(uint8_t *)(ptr) = (uint8_t)(val); *((uint8_t *)(ptr) + 1) = (uint8_t)((uint16_t)(val) >> 8)
+#define	ST_DWORD(ptr,val)	*(uint8_t *)(ptr) = (uint8_t)(val); *((uint8_t *)(ptr) + 1) = (uint8_t)((uint16_t)(val) >> 8); *((uint8_t*)(ptr) + 2) = (uint8_t)((uint32_t)(val) >> 16); *((uint8_t *)(ptr) + 3) = (uint8_t)((uint32_t)(val) >> 24)
+#endif
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* _FATFS */

include/ffconf.h

@@ -0,0 +1,190 @@
+/*---------------------------------------------------------------------------/
+/  FatFs - FAT file system module configuration file  R0.09a (C)ChaN, 2012
+/----------------------------------------------------------------------------/
+/
+/ CAUTION! Do not forget to make clean the project after any changes to
+/ the configuration options.
+/
+/----------------------------------------------------------------------------*/
+#ifndef _FFCONF
+#define _FFCONF 4004	/* Revision ID */
+
+
+/*---------------------------------------------------------------------------/
+/ Functions and Buffer Configurations
+/----------------------------------------------------------------------------*/
+
+#define	_FS_TINY		0	/* 0:Normal or 1:Tiny */
+/* When _FS_TINY is set to 1, FatFs uses the sector buffer in the file system
+/  object instead of the sector buffer in the individual file object for file
+/  data transfer. This reduces memory consumption 512 bytes each file object. */
+
+
+#define _FS_READONLY	0	/* 0:Read/Write or 1:Read only */
+/* Setting _FS_READONLY to 1 defines read only configuration. This removes
+/  writing functions, f_write, f_sync, f_unlink, f_mkdir, f_chmod, f_rename,
+/  f_truncate and useless f_getfree. */
+
+
+#define _FS_MINIMIZE	0	/* 0 to 3 */
+/* The _FS_MINIMIZE option defines minimization level to remove some functions.
+/
+/   0: Full function.
+/   1: f_stat, f_getfree, f_unlink, f_mkdir, f_chmod, f_truncate and f_rename
+/      are removed.
+/   2: f_opendir and f_readdir are removed in addition to 1.
+/   3: f_lseek is removed in addition to 2. */
+
+
+#define	_USE_STRFUNC	1	/* 0:Disable or 1-2:Enable */
+/* To enable string functions, set _USE_STRFUNC to 1 or 2. */
+
+
+#define	_USE_MKFS		0	/* 0:Disable or 1:Enable */
+/* To enable f_mkfs function, set _USE_MKFS to 1 and set _FS_READONLY to 0 */
+
+
+#define	_USE_FORWARD	0	/* 0:Disable or 1:Enable */
+/* To enable f_forward function, set _USE_FORWARD to 1 and set _FS_TINY to 1. */
+
+
+#define	_USE_FASTSEEK	0	/* 0:Disable or 1:Enable */
+/* To enable fast seek feature, set _USE_FASTSEEK to 1. */
+
+
+
+/*---------------------------------------------------------------------------/
+/ Locale and Namespace Configurations
+/----------------------------------------------------------------------------*/
+
+#define _CODE_PAGE	858
+/* The _CODE_PAGE specifies the OEM code page to be used on the target system.
+/  Incorrect setting of the code page can cause a file open failure.
+/
+/   932  - Japanese Shift-JIS (DBCS, OEM, Windows)
+/   936  - Simplified Chinese GBK (DBCS, OEM, Windows)
+/   949  - Korean (DBCS, OEM, Windows)
+/   950  - Traditional Chinese Big5 (DBCS, OEM, Windows)
+/   1250 - Central Europe (Windows)
+/   1251 - Cyrillic (Windows)
+/   1252 - Latin 1 (Windows)
+/   1253 - Greek (Windows)
+/   1254 - Turkish (Windows)
+/   1255 - Hebrew (Windows)
+/   1256 - Arabic (Windows)
+/   1257 - Baltic (Windows)
+/   1258 - Vietnam (OEM, Windows)
+/   437  - U.S. (OEM)
+/   720  - Arabic (OEM)
+/   737  - Greek (OEM)
+/   775  - Baltic (OEM)
+/   850  - Multilingual Latin 1 (OEM)
+/   858  - Multilingual Latin 1 + Euro (OEM)
+/   852  - Latin 2 (OEM)
+/   855  - Cyrillic (OEM)
+/   866  - Russian (OEM)
+/   857  - Turkish (OEM)
+/   862  - Hebrew (OEM)
+/   874  - Thai (OEM, Windows)
+/	1    - ASCII only (Valid for non LFN cfg.)
+*/
+
+
+#define	_USE_LFN	0		/* 0 to 3 */
+#define	_MAX_LFN	255		/* Maximum LFN length to handle (12 to 255) */
+/* The _USE_LFN option switches the LFN support.
+/
+/   0: Disable LFN feature. _MAX_LFN and _LFN_UNICODE have no effect.
+/   1: Enable LFN with static working buffer on the BSS. Always NOT reentrant.
+/   2: Enable LFN with dynamic working buffer on the STACK.
+/   3: Enable LFN with dynamic working buffer on the HEAP.
+/
+/  The LFN working buffer occupies (_MAX_LFN + 1) * 2 bytes. To enable LFN,
+/  Unicode handling functions ff_convert() and ff_wtoupper() must be added
+/  to the project. When enable to use heap, memory control functions
+/  ff_memalloc() and ff_memfree() must be added to the project. */
+
+
+#define	_LFN_UNICODE	0	/* 0:ANSI/OEM or 1:Unicode */
+/* To switch the character code set on FatFs API to Unicode,
+/  enable LFN feature and set _LFN_UNICODE to 1. */
+
+
+#define _FS_RPATH		0	/* 0 to 2 */
+/* The _FS_RPATH option configures relative path feature.
+/
+/   0: Disable relative path feature and remove related functions.
+/   1: Enable relative path. f_chdrive() and f_chdir() are available.
+/   2: f_getcwd() is available in addition to 1.
+/
+/  Note that output of the f_readdir fnction is affected by this option. */
+
+
+
+/*---------------------------------------------------------------------------/
+/ Physical Drive Configurations
+/----------------------------------------------------------------------------*/
+
+#define _VOLUMES	1
+/* Number of volumes (logical drives) to be used. */
+
+
+#define	_MAX_SS		512		/* 512, 1024, 2048 or 4096 */
+/* Maximum sector size to be handled.
+/  Always set 512 for memory card and hard disk but a larger value may be
+/  required for on-board flash memory, floppy disk and optical disk.
+/  When _MAX_SS is larger than 512, it configures FatFs to variable sector size
+/  and GET_SECTOR_SIZE command must be implememted to the disk_ioctl function. */
+
+
+#define	_MULTI_PARTITION	0	/* 0:Single partition, 1/2:Enable multiple partition */
+/* When set to 0, each volume is bound to the same physical drive number and
+/ it can mount only first primaly partition. When it is set to 1, each volume
+/ is tied to the partitions listed in VolToPart[]. */
+
+
+#define	_USE_ERASE	0	/* 0:Disable or 1:Enable */
+/* To enable sector erase feature, set _USE_ERASE to 1. CTRL_ERASE_SECTOR command
+/  should be added to the disk_ioctl functio. */
+
+
+
+/*---------------------------------------------------------------------------/
+/ System Configurations
+/----------------------------------------------------------------------------*/
+
+#define _WORD_ACCESS	0	/* 0 or 1 */
+/* Set 0 first and it is always compatible with all platforms. The _WORD_ACCESS
+/  option defines which access method is used to the word data on the FAT volume.
+/
+/   0: Byte-by-byte access.
+/   1: Word access. Do not choose this unless following condition is met.
+/
+/  When the byte order on the memory is big-endian or address miss-aligned word
+/  access results incorrect behavior, the _WORD_ACCESS must be set to 0.
+/  If it is not the case, the value can also be set to 1 to improve the
+/  performance and code size.
+*/
+
+
+/* A header file that defines sync object types on the O/S, such as
+/  windows.h, ucos_ii.h and semphr.h, must be included prior to ff.h. */
+
+#define _FS_REENTRANT	0		/* 0:Disable or 1:Enable */
+#define _FS_TIMEOUT		1000	/* Timeout period in unit of time ticks */
+#define	_SYNC_t			HANDLE	/* O/S dependent type of sync object. e.g. HANDLE, OS_EVENT*, ID and etc.. */
+
+/* The _FS_REENTRANT option switches the reentrancy (thread safe) of the FatFs module.
+/
+/   0: Disable reentrancy. _SYNC_t and _FS_TIMEOUT have no effect.
+/   1: Enable reentrancy. Also user provided synchronization handlers,
+/      ff_req_grant, ff_rel_grant, ff_del_syncobj and ff_cre_syncobj
+/      function must be added to the project. */
+
+
+#define	_FS_LOCK	0	/* 0:Disable or >=1:Enable */
+/* To enable file lock control feature, set _FS_LOCK to 1 or greater.
+   The value defines how many files can be opened simultaneously. */
+
+
+#endif /* _FFCONFIG */

include/s19reader.h

@@ -0,0 +1,47 @@
+/*
+ * s19reader.h
+ *
+ *  Created on: 17.11.2012
+ *      Author: mfro
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#ifndef _S19READER_H_
+#define _S19READER_H_
+
+typedef enum
+{
+	OK, 			/* no error */
+	FAIL,			/* general error aka "I don't know what went wrong" */
+	FILE_OPEN,		/* file open failed */
+	FILE_READ,		/* file read failed */
+	SREC_CORRUPT,	/* file doesn't seem to contain valid S-records */
+	MEMCPY_FAILED,	/* could not copy buffer to destination */
+	CODE_OVERLAPS,	/* copying would overwrite ourself */
+	VERIFY_FAILED,	/* destination does not read as we've written to */
+	ILLEGAL_SECTOR	/* flash sector number invalid */
+} err_t;
+
+typedef err_t (*memcpy_callback_t)(uint8_t *dst, uint8_t *src, uint32_t length);
+
+extern void srec_execute(char *filename);
+extern err_t read_srecords(char *filename, void **start_address, uint32_t *actual_length, memcpy_callback_t callback);
+
+#endif /* _S19READER_H_ */

include/sd_card.h

@@ -0,0 +1,45 @@
+/*
+ * sd_card.h
+ *
+ * Exported sd-card access routines for the FireBee BaS
+ *
+ *  Created on: 19.11.2012
+ *      Author: mfro
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#ifndef _SD_CARD_H_
+#define _SD_CARD_H_
+
+#include <MCF5475.h>
+#include <stdint.h>
+
+extern void sd_card_init(void);
+
+/* MMC card type flags (MMC_GET_TYPE) */
+#define CT_MMC		0x01		/* MMC ver 3 */
+#define CT_SD1		0x02		/* SD ver 1 */
+#define CT_SD2		0x04		/* SD ver 2 */
+#define CT_SDC		(CT_SD1|CT_SD2)	/* SD */
+#define CT_BLOCK	0x08		/* Block addressing */
+
+#endif /* _SD_CARD_H_ */

include/startcf.h

@@ -0,0 +1,8 @@
+
+#define cf_stack
+
+#define DIP_SWITCH		(*(volatile uint8_t *)(&_MBAR[0xA2C]))
+#define DIP_SWITCHa		__MBAR + 0xA2C
+
+#define sca_page_ID 	6
+

include/sysinit.h

@@ -0,0 +1,45 @@
+/*
+ * File:		sysinit.h
+ * Purpose:		Firebee Power-on Reset configuration
+ *
+ * Notes:
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#ifndef __SYSINIT_H__
+#define __SYSINIT_H__
+
+extern void wait_10us(void);
+
+/* send a 16-bit word out on the serial port */
+#define uart_out_word(a)	MCF_PSC0_PSCTB_8BIT = (a)
+
+/* adresses where FPGA data lives in flash */
+#define FPGA_FLASH_DATA ((uint8_t *) 0xe0700000L)
+#define FPGA_FLASH_DATA_END ((uint8_t *) 0xe0800000L)
+
+/* function(s) from init_fpga.c */
+extern void init_fpga(void);
+
+#endif /* __SYSINIT_H__ */
+
+

include/wait.h

@@ -0,0 +1,63 @@
+/*
+ * wait.h
+ *
+ *      Author: mfro
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#ifndef _WAIT_H_
+#define _WAIT_H_
+
+#include <bas_types.h>
+
+typedef bool (*checker_func)(void);
+
+extern __inline__ void wait(uint32_t) __attribute__((always_inline));
+extern __inline__ bool waitfor(uint32_t us, checker_func condition) __attribute__((always_inline));
+/*
+ * wait for the specified number of us on slice timer 0. Replaces the original routines that had
+ * the number of useconds to wait for hardcoded in their name.
+ */
+extern __inline__ void wait(uint32_t us)
+{
+	uint32_t target = MCF_SLT_SCNT(0) - (us * 132);
+
+	while (MCF_SLT_SCNT(0) > target);
+}
+
+/*
+ * the same as above, with a checker function which gets called while
+ * busy waiting and allows for an early return if it returns true
+ */
+extern __inline__ bool waitfor(uint32_t us, checker_func condition)
+{
+	uint32_t target = MCF_SLT_SCNT(0) - (us * 132);
+	uint32_t res;
+
+	do
+	{
+		if ((res = (*condition)()))
+			return res;
+	} while (MCF_SLT_SCNT(0) > target);
+	return false;
+}
+#endif /* _WAIT_H_ */

mcf5474.gdb

@@ -4,11 +4,14 @@
 
 define addresses
 set $vbr   = 0x00000000
-monitor bdm-ctl-set 0x0801 0x00000000 
+monitor bdm-ctl-set 0x0801 0x00000000
+ 
 set $mbar  = 0xFF000000
 monitor bdm-ctl-set 0x0C0F 0xFF000000
+
 set $rambar0 = 0xFF100000
 monitor bdm-ctl-set 0x0C04 0xFF100007
+
 set $rambar1 = 0xFF101000
 monitor bdm-ctl-set 0x0C05 0xFF101001
 end
@@ -54,7 +57,10 @@ end
 #
 
 define ib
-addresses
-setup-dram
+	addresses
+	setup-dram
 end
+
+tr
 ib
+load

run_bas.bdm

@@ -1,9 +1,10 @@
-#!/usr/local/bin/bdmctrl
+#!/usr/local/bin/bdmctrl -D2
 #
 # firebee board initialization for bdmctrl 
 #
 open $1
 reset
+sleep 10
 
 wait
 
@@ -28,21 +29,21 @@ write 0xFF000500 0xE0000000 4
 write 0xFF000508 0x00001180 4
 write 0xFF000504 0x007F0001 4
 # Init CS1 (Atari I/O address range)
-#write 0xFF00050C 0xFFF00000 4
-#write 0xFF000514 0x00002180 4
-#write 0xFF000510 0x000F0001 4
+write 0xFF00050C 0xFFF00000 4
+write 0xFF000514 0x00002180 4
+write 0xFF000510 0x000F0001 4
 # Init CS2 (FireBee 32 bit I/O address range)
-#write 0xFF000518 0xF0000000 4
-#write 0xFF000520 0x00002100 4
-#write 0xFF00051C 0x07FF0001 4
+write 0xFF000518 0xF0000000 4
+write 0xFF000520 0x00002100 4
+write 0xFF00051C 0x07FF0001 4
 # Init CS3 (FireBee 16 bit I/O address range)
-#write 0xFF000524 0xF8000000 4
-#write 0xFF00052C 0x00000180 4
-#write 0xFF000528 0x03FF0001 4
+write 0xFF000524 0xF8000000 4
+write 0xFF00052C 0x00000180 4
+write 0xFF000528 0x03FF0001 4
 # Init CS4 (FireBee video address range)
-#write 0xFF000530 0x40000000 4
-#write 0xFF000538 0x00000018 4
-#write 0xFF000534 0x003F0001 4
+write 0xFF000530 0x40000000 4
+write 0xFF000538 0x00000018 4
+write 0xFF000534 0x003F0001 4
 
 
 # SDRAM Initialization @ 0000_0000 - 1FFF_FFFF 512Mbytes
@@ -65,11 +66,7 @@ write 0xFF000104 0x710D0F00 4	# SDCR (lock SDMR and enable refresh)
 
 write 0xFF000240 0x80000000 4	# disable watchdog arbiter
 
-# notify flashlib that we have flash at address 0xE0000000, length 0x7FFFFF, plugin is flash29
-flash 0xE0000000 flash29
-# do not flash yet. First check if board can be initialized correctly
-
 load -v ram.elf
 wait
-sleep 1000
+sleep 100
 execute

sources/BaS.c

@@ -1,24 +1,45 @@
 /*
  * BaS
  *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
  */
+
 #include <stdint.h>
+#include <stdbool.h>
 
 #include "MCF5475.h"
 #include "MCF5475_SLT.h"
 #include "startcf.h"
 #include "cache.h"
 #include "bas_printf.h"
-
+#include "bas_types.h"
+#include "sd_card.h"
+#include "wait.h"
+
+#include "diskio.h"
+#include "ff.h"
+#include "s19reader.h"
+
 /* imported routines */
 extern int mmu_init();
 extern int vec_init();
-extern int illegal_table_make();
-extern void sd_card_idle();
-extern int sd_card_init();
-
-/* wait...() routines moved to sysinit.c */
-extern void wait(uint32_t us);
 
 /* Symbols from the linker script */
 extern uint8_t _STRAM_END[];
@@ -32,29 +53,49 @@ extern uint8_t _EMUTOS[];
 extern uint8_t _EMUTOS_SIZE[];
 #define EMUTOS_SIZE ((uint32_t)_EMUTOS_SIZE) /* size of EmuTOS, in bytes */
 
+/*
+ * check if it is possible to transfer data to PIC
+ */
+static inline bool pic_txready(void)
+{
+	if (MCF_PSC3_PSCSR & MCF_PSC_PSCSR_TXRDY)
+		return true;
+
+	return true;
+}
+
+/*
+ * check if it is possible to receive data from PIC
+ */
+static inline bool pic_rxready(void)
+{
+	if (MCF_PSC3_PSCSR & MCF_PSC_PSCSR_RXRDY)
+		return true;
+
+	return false;
+}
+
 void write_pic_byte(uint8_t value)
 {
-    /* Wait until the tramsmitter is ready */
-    while (!(MCF_PSC3_PSCSR & MCF_PSC_PSCSR_TXRDY)); 
+    /* Wait until the transmitter is ready or 1000us are passed */
+	waitfor(1000, pic_txready);
 
     /* Transmit the byte */
-    //MCF_PSC3_PSCTB_8BIT = value; // This define is actually 32-bit
     *(volatile uint8_t*)(&MCF_PSC3_PSCTB_8BIT) = value; // Really 8-bit
 }
 
 uint8_t read_pic_byte(void)
 {
-    /* Wait until a byte has been received */
-    while (!(MCF_PSC3_PSCSR & MCF_PSC_PSCSR_RXRDY)); 
+    /* Wait until a byte has been received or 1000us are passed */
+	waitfor(1000, pic_rxready);
 
     /* Return the received byte */
-    //return MCF_PSC3_PSCRB_8BIT; // This define is actually 32-bit
     return *(volatile uint8_t*)(&MCF_PSC3_PSCTB_8BIT); // Really 8-bit
 }
 
 void pic_init(void)
 {
-	char answer[4];
+	char answer[4] = "OLD";
 
 	xprintf("initialize the PIC: ");
 
@@ -70,7 +111,14 @@ void pic_init(void)
 	answer[2] = read_pic_byte();
 	answer[3] = '\0';
 
-	xprintf("%s\r\n", answer);
+	if (answer[0] != 'O' || answer[1] != 'K' || answer[2] != '!')
+	{
+		xprintf("PIC initialization failed. Already initialized?\r\n");
+	}
+	else
+	{
+		xprintf("%s\r\n", answer);
+	}
 }
 
 void nvram_init(void)
@@ -101,22 +149,37 @@ void nvram_init(void)
 	xprintf("finished\r\n");
 }
 
-/********************************************************************/
+void enable_coldfire_interrupts()
+{
+	xprintf("enable interrupts: ");
+	* (volatile uint32_t *) 0xf0010004 = 0L;		/* disable all interrupts */
+	MCF_EPORT_EPPAR = 0xaaa8;			/* all interrupts on falling edge */
+
+	MCF_GPT0_GMS = MCF_GPT_GMS_ICT(1) |	/* timer 0 on, video change capture on rising edge */
+			MCF_GPT_GMS_IEN |
+			MCF_GPT_GMS_TMS(1);
+	MCF_INTC_ICR62 = 0x3f;
+
+	* (volatile uint8_t *) 0xf0010004 = 0xfe;	/* enable int 1-7 */
+	MCF_EPORT_EPIER = 0xfe;				/* int 1-7 on */
+	MCF_EPORT_EPFR = 0xff;				/* clear all pending interrupts */
+	MCF_INTC_IMRL = 0xffffff00;			/* int 1-7 on */
+	MCF_INTC_IMRH = 0xbffffffe;			/* psc3 and timer 0 int on */
+
+	xprintf("finished\r\n");
+}
+
+void disable_coldfire_interrupts()
+{
+	* (volatile uint32_t *) 0xf0010004 = 0L;		/* disable all interrupts */
+}
+
 void BaS(void)
 {
-	int	az_sectors;
 	uint8_t *src;
 	uint8_t *dst = (uint8_t *)TOS;
 	uint32_t *adr;
 
-
-	az_sectors = sd_card_init();
-		
-	if (az_sectors > 0)
-	{
-		//sd_card_idle();
-	}
-
 	pic_init();
 	nvram_init();
 
@@ -140,28 +203,9 @@ void BaS(void)
 
 	xprintf("initialize exception vector table: ");
 	vec_init();
-	illegal_table_make();
 	xprintf("finished\r\n");
-		
-	/* interrupts */
-
-	xprintf("enable interrupts: ");
-	* (volatile uint32_t *) 0xf0010004 = 0L;		/* disable all interrupts */
-	MCF_EPORT_EPPAR = 0xaaa8;			/* all interrupts on falling edge */
-
-	MCF_GPT0_GMS = MCF_GPT_GMS_ICT(1) |	/* timer 0 on, video change capture on rising edge */
-			MCF_GPT_GMS_IEN |
-			MCF_GPT_GMS_TMS(1);
-	MCF_INTC_ICR62 = 0x3f;
-
-	* (volatile uint8_t *) 0xf0010004 = 0xfe;	/* enable int 1-7 */
-	MCF_EPORT_EPIER = 0xfe;				/* int 1-7 on */
-	MCF_EPORT_EPFR = 0xff;				/* clear all pending interrupts */
-	MCF_INTC_IMRL = 0xffffff00;			/* int 1-7 on */
-	MCF_INTC_IMRH = 0xbffffffe;			/* psc3 and timer 0 int on */
 
 	MCF_MMU_MMUCR = MCF_MMU_MMUCR_EN;	/* MMU on */
-	xprintf("finished\r\n");
 
 	xprintf("IDE reset: ");
 	/* IDE reset */
@@ -172,7 +216,6 @@ void BaS(void)
 	* (volatile uint8_t *) (0xffff8802 - 0) = 0;
 
 	xprintf("finished\r\n");
-
 	xprintf("enable video: ");
 	/*
 	 * video setup (25MHz)
@@ -195,6 +238,7 @@ void BaS(void)
 
 	xprintf("finished\r\n");
 
+	sd_card_init();
 
 	/*
 	 * memory setup
@@ -220,18 +264,24 @@ void BaS(void)
 	* (uint32_t *) 0x5a4 = FASTRAM_END;	/* ramtop TOS system variable */
 	* (uint32_t *) 0x5a8 = 0x1357bd13;	/* ramvalid TOS system variable */
 
+#define NOP() __asm__ __volatile__("nop\n\t" : : : "memory")
+
 	xprintf("init ACIA: ");
 	/* init ACIA */
 	* (uint8_t *) 0xfffffc00 = 3;
-	__asm__ __volatile__("nop	\n\t" : : : "memory");
+	NOP();
+
 	* (uint8_t *) 0xfffffc04 = 3;
-	__asm__ __volatile__("nop	\n\t" : : : "memory");
+	NOP();
+
 	* (uint8_t *) 0xfffffc00 = 0x96;
-	__asm__ __volatile__("nop	\n\t" : : : "memory");
+	NOP();
+
 	* (uint8_t *) 0xfffffa0f = -1;
-	__asm__ __volatile__("nop	\n\t" : : : "memory");
+	NOP();
+
 	* (uint8_t *) 0xfffffa11 = -1;
-	__asm__ __volatile__("nop	\n\t" : : : "memory");
+	NOP();
 
 	xprintf("finished\r\n");
 
@@ -242,6 +292,8 @@ void BaS(void)
 		__asm__ __volatile__("move.w #0x0700,sr	\n\t" : : : "memory");
 	}
 
+	srec_execute("BASFLASH.S19");
+
 	/* Jump into the OS */
 	typedef void void_func(void);
 	typedef struct {
@@ -249,7 +301,8 @@ void BaS(void)
 		void_func *initial_pc;
 	} ROM_HEADER;
 
-	xprintf("Call OS. BaS finished...\r\n");
+	xprintf("Call OS. BaS initialization finished...\r\n");
+	enable_coldfire_interrupts();
 
 	ROM_HEADER* os_header = (ROM_HEADER*)TOS;
 	os_header->initial_pc();

sources/bas_printf.c

@@ -32,8 +32,11 @@
  * SUCH DAMAGE.
  */
 
+#include <stdarg.h>
 #include "MCF5475.h"
-#include <bas_printf.h>
+#include "bas_printf.h"
+#include "bas_string.h"
+
 /*
  * Lexical definitions.
  *
@@ -54,7 +57,6 @@
 
 #define INF	32766		/* should be bigger than any field to print */
 
-static char buf[128];
 static char snil[] = "(nil)";
 
 static void xputchar(int c)
@@ -70,37 +72,9 @@ static void xputchar(int c)
 	);
 }
 
-#define isdigit(c)	(((c) >= '0') && ((c) <= '9'))
-#define isupper(c)	((c) >= 'A' && ((c) <= 'Z'))
-#define islower(c)	((c) >= 'a' && ((c) <= 'z'))
-#define isalpha(c)	(isupper((c)) || islower(c))
-#define tolower(c)	(isupper(c) ? ((c) + 'a' - 'A') : (c))
-
-static int atoi(const char *c)
-{
-	int value = 0;
-	while (isdigit(*c))
-	{
-		value *= 10;
-		value += (int) (*c - '0');
-		c++;
-	}
-	return value;
-}
-
-size_t strlen(const char *s)
-{
-	int length = 0;
-
-	while (*s++)
-	{
-		length++;
-	}
-	return length;
-}
-
 static void doprnt(void (*addchar)(int), const char *sfmt, va_list ap)
 {
+	char buf[128]; /* FIXME: this gets allocated in BSS which is not reachable in -mpcrel code */
 	char *bp;
 	const char *f;
 	long l;
@@ -385,6 +359,7 @@ void display_progress()
 {
 	static int _progress_index;
 	char progress_char[] = "|/-\\";
+
 	xputchar(progress_char[_progress_index++ % strlen(progress_char)]);
 	xputchar('\r');
 }

sources/bas_string.c

@@ -0,0 +1,74 @@
+/*
+ * bas_string.c
+ *
+ *  Created on: 26.02.2013
+ *      Author: mfro
+ */
+
+#include "bas_string.h"
+
+int strncmp(const char *s1, const char *s2, int max)
+{
+	int i;
+	int cmp;
+
+	for (i = 0; i < max && *s1++ && *s2++; i++);
+	{
+		cmp = (*s1 - *s2);
+		if (cmp != 0) return cmp;
+	}
+	return cmp;
+}
+
+char *strcpy(char *dst, const char *src)
+{
+	char *ptr = dst;
+
+	while ((*dst++ = *src++) != '\0');
+	return ptr;
+}
+
+int atoi(const char *c)
+{
+	int value = 0;
+	while (isdigit(*c))
+	{
+		value *= 10;
+		value += (int) (*c - '0');
+		c++;
+	}
+	return value;
+}
+
+size_t strlen(const char *s)
+{
+	const char *start = s;
+
+	while (*s++);
+
+	return s - start - 1;
+}
+
+
+char *strcat(char *dst, const char *src)
+{
+	char *ret = dst;
+	dst = &dst[strlen(dst)];
+	while ((*dst++ = *src++) != '\0');
+	return ret;
+}
+
+char *strncat(char *dst, const char *src, int max)
+{
+	int i;
+	char *ret = dst;
+
+	dst = &dst[strlen(dst)];
+	for (i = 0; i < max && *src; i++)
+	{
+		*dst++ = *src++;
+	}
+	*dst++ = '\0';
+
+	return ret;
+}

sources/basflash.c

@@ -0,0 +1,420 @@
+/*
+ * basflash.c
+ *
+ *  Created on: 18.12.2012
+ *      Author: mfro
+ */
+
+#include <stdint.h>
+#include <stdbool.h>
+#include "bas_string.h"
+#include "bas_printf.h"
+#include "diskio.h"
+#include "ff.h"
+#include "s19reader.h"
+
+
+
+static uint32_t mx29lv640d_flash_sectors[] =
+{
+	0xe0000000, 0xe0002000, 0xe0004000, 0xe0006000, 0xe0008000,	0xe000a000, 0xe000c000, 0xe000e000,
+	0xe0010000, 0xe0020000, 0xe0030000, 0xe0040000,	0xe0050000, 0xe0060000, 0xe0070000, 0xe0080000,
+	0xe0090000, 0xe00a0000, 0xe00b0000, 0xe00c0000, 0xe00d0000, 0xe00e0000, 0xe00f0000, 0xe0100000,
+	0xe0110000, 0xe0120000, 0xe0130000, 0xe0140000, 0xe0150000, 0xe0160000, 0xe0170000, 0xe0180000,
+	0xe0190000, 0xe01a0000, 0xe01b0000, 0xe01c0000, 0xe01d0000, 0xe01e0000, 0xe01f0000, 0xe0200000,
+	0xe0210000, 0xe0220000, 0xe0230000, 0xe0240000, 0xe0250000, 0xe0260000, 0xe0270000, 0xe0280000,
+	0xe0290000, 0xe02a0000, 0xe02b0000, 0xe02c0000, 0xe02d0000, 0xe02e0000, 0xe02f0000, 0xe0300000,
+	0xe0310000, 0xe0320000, 0xe0330000, 0xe0340000, 0xe0350000, 0xe0360000, 0xe0370000, 0xe0380000,
+	0xe0390000, 0xe03a0000, 0xe03b0000, 0xe03c0000, 0xe03d0000, 0xe03e0000, 0xe03f0000, 0xe0400000,
+	0xe0410000, 0xe0420000, 0xe0430000, 0xe0440000, 0xe0450000, 0xe0460000, 0xe0470000, 0xe0480000,
+	0xe0490000, 0xe04a0000, 0xe04b0000, 0xe04c0000, 0xe04d0000, 0xe04e0000, 0xe04f0000, 0xe0500000,
+	0xe0510000, 0xe0520000, 0xe0530000, 0xe0540000, 0xe0550000, 0xe0560000, 0xe0570000, 0xe0580000,
+	0xe0590000, 0xe05a0000, 0xe05b0000, 0xe05c0000, 0xe05d0000, 0xe05e0000, 0xe05f0000, 0xe0600000,
+	0xe0610000, 0xe0620000, 0xe0630000, 0xe0640000, 0xe0650000, 0xe0660000, 0xe0670000, 0xe0680000,
+	0xe0690000, 0xe06a0000, 0xe06b0000, 0xe06c0000, 0xe06d0000, 0xe06e0000, 0xe06f0000, 0xe0700000,
+	0xe0710000, 0xe0720000, 0xe0730000, 0xe0740000, 0xe0750000, 0xe0760000, 0xe0770000, 0xe0780000,
+	0xe0790000, 0xe07a0000, 0xe07b0000, 0xe07c0000, 0xe07d0000, 0xe07e0000, 0xe07f0000, 0xe0800000
+};
+static const int num_flash_sectors = sizeof(mx29lv640d_flash_sectors) / sizeof(uint32_t);
+
+typedef struct romram
+{
+	uint32_t flash_address;
+	uint32_t ram_address;
+	char *name;
+} ROMRAM;
+
+static const struct romram flash_areas[] =
+{
+		{ 0xe0600000, 0x00e00000, "EmuTOS" },	/* EmuTOS */
+		{ 0xe0400000, 0x00e00000, "FireTOS" },	/* FireTOS */
+		{ 0xe0700000, 0x00e00000, "FPGA" },  /* FPGA config */
+};
+static const int num_flash_areas = sizeof(flash_areas) / sizeof(struct romram);
+
+#define FLASH_ADDRESS 0xe0000000
+static volatile uint16_t *flash_unlock1 = (volatile uint16_t *) FLASH_ADDRESS + 0xaaa;
+static volatile uint16_t *flash_unlock2 = (volatile uint16_t *) FLASH_ADDRESS + 0x554;
+static const uint16_t cmd_unlock1 = 0xaa;
+static const uint16_t cmd_unlock2 = 0x55;
+static const uint16_t cmd_sector_erase1 = 0x80;
+static const uint16_t cmd_sector_erase2 = 0x30;
+static const uint16_t cmd_sector_erase_suspend = 0xb0;
+static const uint16_t cmd_sector_erase_resume = 0x30;
+static const uint16_t cmd_program = 0xa0;
+static const uint16_t cmd_autoselect = 0x90;
+static const uint16_t cmd_read = 0xf0;
+
+/*
+ * this callback just does nothing besides returning OK. Meant to do a dry run over the file to check its integrity
+ */
+static err_t simulate()
+{
+	err_t ret = OK;
+
+	return ret;
+}
+
+static err_t memcpy(uint8_t *dst, uint8_t *src, uint32_t length)
+{
+	uint8_t *end = src + length;
+
+	do
+	{
+		*dst++ = *src++;
+	} while (src < end);
+
+	return OK;
+}
+
+static err_t flash(uint8_t *dst, uint8_t *src, uint32_t length)
+{
+	err_t ret = OK;
+
+	/* TODO: do the actual flash */
+
+	return ret;
+}
+
+/*
+ * this callback verifies the data against the S-record file contents after a write to destination
+ */
+static err_t verify(uint8_t *dst, uint8_t *src, uint32_t length)
+{
+	uint8_t *end = src + length;
+
+	do
+	{
+		if (*src++ != *dst++)
+			return FAIL;
+	} while (src < end);
+
+	return OK;
+}
+
+/*
+ * unlock a flash sector
+ */
+
+err_t unlock_flash_sector(int sector_num)
+{
+	volatile uint32_t rd;
+	uint32_t size = (sector_num < num_flash_sectors ?
+						mx29lv640d_flash_sectors[sector_num + 1] - mx29lv640d_flash_sectors[sector_num] :
+						0);
+
+	*flash_unlock1 = cmd_unlock1;
+	*flash_unlock2 = cmd_unlock2;
+	*flash_unlock1 = cmd_autoselect;
+	rd = * (volatile uint32_t *) FLASH_ADDRESS;
+	* (volatile uint32_t *) FLASH_ADDRESS = size;
+	(void) rd;	/* get rid of "unused variable" compiler warning */
+	return OK;
+}
+
+/*
+ * erase a flash sector
+ *
+ * sector_num is the index into the sector table above.
+ *
+ * FIXME: need to disable data cache to ensure proper operation
+ */
+err_t erase_flash_sector(int sector_num)
+{
+	volatile uint32_t rd;
+	uint32_t size = (sector_num < num_flash_sectors ?
+						mx29lv640d_flash_sectors[sector_num + 1] - mx29lv640d_flash_sectors[sector_num] :
+						0);
+
+	if (unlock_flash_sector(sector_num) == OK)
+	{
+		*flash_unlock1 = cmd_unlock1;
+		*flash_unlock2 = cmd_unlock2;
+		*flash_unlock1 = cmd_sector_erase1;
+		*flash_unlock1 = cmd_unlock1;
+		*flash_unlock2 = cmd_unlock2;
+		*flash_unlock1 = cmd_sector_erase1;
+		rd = * (volatile uint32_t *) FLASH_ADDRESS;
+		* (volatile uint32_t *) FLASH_ADDRESS = size;
+		(void) rd;	/* get rid of "unused variable" compiler warning */
+		return OK;
+	}
+	return ILLEGAL_SECTOR;
+}
+
+err_t erase_flash_region(void *start_address, uint32_t length)
+{
+	err_t err;
+	int sector = -1;
+	int i;
+
+	/*
+	 * determine first sector to erase
+	 *
+	 * FIXME: if the start address of the .s19 file does not fall on a sector boundary, we
+	 * will probably erase vital code in the previous flash sector. This should not happen on the Firebee
+	 * where we have fixed areas for the different flash codes, but we should probably take care anyway
+	 */
+	for (i = 0; i < num_flash_sectors; i++)
+	{
+		if (start_address >= (void *) mx29lv640d_flash_sectors[i] && start_address <= (void *) mx29lv640d_flash_sectors[i])
+			sector = i;
+	}
+
+	if (sector >= 0 && sector <= num_flash_sectors)
+	{
+		/*
+		 * erase sectors until free space equals length
+		 *
+		 * FIXME: same as above. Currently, there is no prevention against overlapping flash areas.
+		 */
+		do {
+			err = erase_flash_sector(sector);
+			sector++;
+		} while ((uint8_t *) mx29lv640d_flash_sectors[sector] < (uint8_t *) start_address + length && ! err);
+	}
+	else
+	{
+		err = ILLEGAL_SECTOR;
+	}
+	return err;
+}
+
+void srec_flash(char *flash_filename)
+{
+	DRESULT res;
+	FRESULT fres;
+	FATFS fs;
+	FIL file;
+	err_t err;
+	void *start_address;
+	uint32_t length;
+
+	res = disk_status(0);
+	if (res == RES_OK)
+	{
+		fres = f_mount(0, &fs);
+		if (fres == FR_OK)
+		{
+			if ((fres = f_open(&file, flash_filename, FA_READ) != FR_OK))
+			{
+				xprintf("flasher file %s not present on disk\r\n", flash_filename);
+			}
+			else
+			{
+				f_close(&file);
+
+				/* first pass: parse and check for inconsistencies */
+				xprintf("check file integrity: ");
+				err = read_srecords(flash_filename, &start_address, &length, simulate);
+				if (err == OK)
+				{
+					xprintf("OK.\r\nerase flash area (from %p, length 0x%lx): ", start_address, length);
+					err = erase_flash_region(start_address, length);
+
+					/* next pass: copy data to destination */
+					xprintf("OK.\r\flash data: ");
+					err = read_srecords(flash_filename, &start_address, &length, memcpy);
+					if (err == OK)
+					{
+						/* next pass: verify data */
+						xprintf("OK.\r\nverify data: ");
+						err = read_srecords(flash_filename, &start_address, &length, verify);
+						if (err == OK)
+						{
+							typedef void void_func(void);
+							void_func *func;
+
+							xprintf("OK.\r\n");
+
+							xprintf("target successfully written and verified. Start address: %p\r\n", start_address);
+
+							func = (void_func *) start_address;
+							(*func)();
+						}
+						else
+						{
+							xprintf("failed\r\n");
+						}
+					}
+					else
+					{
+						xprintf("failed\r\n");
+					}
+				}
+				else
+				{
+					xprintf("failed\r\n");
+				}
+			}
+		}
+		else
+		{
+			// xprintf("could not mount FAT FS\r\n");
+		}
+		f_mount(0, 0L);
+	}
+	else
+	{
+		// xprintf("could not initialize SD card\r\n");
+	}
+}
+
+err_t srec_load(char *flash_filename)
+{
+	FRESULT fres;
+	FIL file;
+	err_t err;
+	void *start_address;
+	uint32_t length;
+
+	if ((fres = f_open(&file, flash_filename, FA_READ) != FR_OK))
+	{
+		xprintf("flasher file %s not present on disk\r\n", flash_filename);
+	}
+	else
+	{
+		f_close(&file);
+
+		/* first pass: parse and check for inconsistencies */
+		xprintf("check file integrity: ");
+		err = read_srecords(flash_filename, &start_address, &length, simulate);
+		if (err == OK)
+		{
+			/* next pass: copy data to destination */
+			xprintf("OK.\r\ncopy/flash data: ");
+			err = read_srecords(flash_filename, &start_address, &length, memcpy);
+			if (err == OK)
+			{
+				/* next pass: verify data */
+				xprintf("OK.\r\nverify data: ");
+				err = read_srecords(flash_filename, &start_address, &length, verify);
+				if (err == OK)
+				{
+					typedef void void_func(void);
+					void_func *func;
+
+					xprintf("OK.\r\n");
+					xprintf("target successfully written and verified. Start address: %p\r\n", start_address);
+
+					func = (void_func *) start_address;
+					(*func)();
+				}
+				else
+				{
+					xprintf("failed\r\n");
+				}
+			}
+			else
+			{
+				xprintf("failed\r\n");
+			}
+		}
+		else
+		{
+			xprintf("failed\r\n");
+		}
+	}
+	return OK;
+}
+
+void basflash(void)
+{
+	const char *basflash_str = "\\BASFLASH";
+	const char *bastest_str = "\\BASTEST";
+	DRESULT res;
+	FRESULT fres;
+	FATFS fs;
+
+	xprintf("\r\nHello from BASFLASH.S19!\r\n\r\n");
+
+	/*
+	 * read \BASTEST\ folder contents (search for .S19-files). If found load them to their final destination
+	 * (after BaS has copied them, not their flash location) and return.
+	 *
+	 * Files located in the BASTEST-folder thus override those in flash. Useful for testing before flashing
+	 */
+	res = disk_status(0);
+	xprintf("disk_status(0) = %d\r\n", res);
+	if (res == RES_OK)
+	{
+		fres = f_mount(0, &fs);
+		xprintf("f_mount() = %d\r\n", fres);
+		if (fres == FR_OK)
+		{
+			DIR directory;
+
+			fres = f_opendir(&directory, bastest_str);
+			xprintf("f_opendir() = %d\r\n", fres);
+			if (fres == FR_OK)
+			{
+				FILINFO fileinfo;
+
+				fres = f_readdir(&directory, &fileinfo);
+				xprintf("f_readdir() = %d\r\n", fres);
+				while (fres == FR_OK)
+				{
+					const char *srec_ext = ".S19";
+					char path[30];
+
+					if (fileinfo.fname[0] != '\0')	/* found a file */
+					{
+						xprintf("check file %s (%s == %s ?)\r\n", fileinfo.fname, &fileinfo.fname[strlen(fileinfo.fname) - 4], srec_ext);
+						if (strlen(fileinfo.fname) >= 4 && strncmp(&fileinfo.fname[strlen(fileinfo.fname) - 4], srec_ext, 4) == 0)	/* we have a .S19 file */
+						{
+							/*
+							 * build path + filename
+							 */
+							strcpy(path, bastest_str);
+							strcat(path, "\\");
+							strncat(path, fileinfo.fname, 13);
+
+							xprintf("loading file %s\r\n", path);
+							/*
+							 * load file
+							 */
+							if (srec_load(path) != OK)
+							{
+								xprintf("failed to load file %s\r\n", path);
+								// error handling
+							}
+						}
+					}
+					else
+						break; /* exit if no file found */
+					fres = f_readdir(&directory, &fileinfo);
+					xprintf("f_readdir() = %d\r\n", fres);
+				}
+			}
+			else
+			{
+				xprintf("f_opendir %s failed with error code %d\r\n", bastest_str, fres);
+			}
+		}
+		else
+		{
+			// xprintf("could not mount FAT FS\r\n");
+		}
+		f_mount(0, 0L);		/* unmount SD card */
+	}
+}

sources/basflash_start.c

@@ -0,0 +1,26 @@
+/*
+ * basflash_start.c
+ *
+ *  Created on: 16.02.2013
+ *      Author: mfro
+ */
+
+#include <stdint.h>
+
+static uint32_t ownstack[4096];
+static uint32_t *stackptr = &ownstack[4095];
+
+/*
+ * setup our own stack in SDRAM to prevent clashing BaS's in SRAM (size limited).
+ */
+void startup(void)
+{
+	static uint32_t oldstack;
+
+	void basflash(void);
+	__asm__ __volatile__("move.l	sp,%0\n\t" : "=g"(oldstack) : :);
+	__asm__ __volatile__("move.l	%0,sp\n\t" : : "g"(stackptr) : );
+	basflash();
+	__asm__ __volatile__("move.l	%0,sp\n\t" : : "g"(oldstack) : "sp");
+	(void) stackptr; /* make compiler happy about unused variables */
+}

sources/cache.c

@@ -1,6 +1,27 @@
 /*
  * cache handling
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
  */
+
 #include "cache.h"
 
 void flush_and_invalidate_caches(void)

sources/cache.h

@@ -1,8 +0,0 @@
-#ifndef _CACHE_H_
-#define _CACHE_H_
-
-#include <stdint.h>
-
-extern void flush_and_invalidate_caches(void);
-
-#endif /* _CACHE_H_ */

sources/ccsbcs.c

@@ -0,0 +1,540 @@
+/*------------------------------------------------------------------------*/
+/* Unicode - Local code bidirectional converter  (C)ChaN, 2009            */
+/* (SBCS code pages)                                                      */
+/*------------------------------------------------------------------------*/
+/*  437   U.S. (OEM)
+/   720   Arabic (OEM)
+/   1256  Arabic (Windows)
+/   737   Greek (OEM)
+/   1253  Greek (Windows)
+/   1250  Central Europe (Windows)
+/   775   Baltic (OEM)
+/   1257  Baltic (Windows)
+/   850   Multilingual Latin 1 (OEM)
+/   852   Latin 2 (OEM)
+/   1252  Latin 1 (Windows)
+/   855   Cyrillic (OEM)
+/   1251  Cyrillic (Windows)
+/   866   Russian (OEM)
+/   857   Turkish (OEM)
+/   1254  Turkish (Windows)
+/   858   Multilingual Latin 1 + Euro (OEM)
+/   862   Hebrew (OEM)
+/   1255  Hebrew (Windows)
+/   874   Thai (OEM, Windows)
+/   1258  Vietnam (OEM, Windows)
+*/
+
+#include <ff.h>
+#include <stdint.h>
+
+#if _CODE_PAGE == 437
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP437(0x80-0xFF) to Unicode conversion table */
+	0x00C7, 0x00FC, 0x00E9, 0x00E2, 0x00E4, 0x00E0, 0x00E5, 0x00E7,
+	0x00EA, 0x00EB, 0x00E8, 0x00EF, 0x00EE, 0x00EC, 0x00C4, 0x00C5,
+	0x00C9, 0x00E6, 0x00C6, 0x00F4, 0x00F6, 0x00F2, 0x00FB, 0x00F9,
+	0x00FF, 0x00D6, 0x00DC, 0x00A2, 0x00A3, 0x00A5, 0x20A7, 0x0192,
+	0x00E1, 0x00ED, 0x00F3, 0x00FA, 0x00F1, 0x00D1, 0x00AA, 0x00BA,
+	0x00BF, 0x2310, 0x00AC, 0x00BD, 0x00BC, 0x00A1, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
+	0x2555, 0x2563, 0x2551, 0x2557, 0x255D, 0x255C, 0x255B, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x255E, 0x255F,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x2567,
+	0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256B,
+	0x256A, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+	0x03B1, 0x00DF, 0x0393, 0x03C0, 0x03A3, 0x03C3, 0x00B5, 0x03C4,
+	0x03A6, 0x0398, 0x03A9, 0x03B4, 0x221E, 0x03C6, 0x03B5, 0x2229,
+	0x2261, 0x00B1, 0x2265, 0x2264, 0x2320, 0x2321, 0x00F7, 0x2248,
+	0x00B0, 0x2219, 0x00B7, 0x221A, 0x207F, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 720
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP720(0x80-0xFF) to Unicode conversion table */
+	0x0000, 0x0000, 0x00E9, 0x00E2, 0x0000, 0x00E0, 0x0000, 0x00E7,
+	0x00EA, 0x00EB, 0x00E8, 0x00EF, 0x00EE, 0x0000, 0x0000, 0x0000,
+	0x0000, 0x0651, 0x0652, 0x00F4, 0x00A4, 0x0640, 0x00FB, 0x00F9,
+	0x0621, 0x0622, 0x0623, 0x0624, 0x00A3, 0x0625, 0x0626, 0x0627,
+	0x0628, 0x0629, 0x062A, 0x062B, 0x062C, 0x062D, 0x062E, 0x062F,
+	0x0630, 0x0631, 0x0632, 0x0633, 0x0634, 0x0635, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
+	0x2555, 0x2563, 0x2551, 0x2557, 0x255D, 0x255C, 0x255B, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x255E, 0x255F,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x2567,
+	0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256B,
+	0x256A, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+	0x0636, 0x0637, 0x0638, 0x0639, 0x063A, 0x0641, 0x00B5, 0x0642,
+	0x0643, 0x0644, 0x0645, 0x0646, 0x0647, 0x0648, 0x0649, 0x064A,
+	0x2261, 0x064B, 0x064C, 0x064D, 0x064E, 0x064F, 0xO650, 0x2248,
+	0x00B0, 0x2219, 0x00B7, 0x221A, 0x207F, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 737
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP737(0x80-0xFF) to Unicode conversion table */
+	0x0391, 0x0392, 0x0393, 0x0394, 0x0395, 0x0396, 0x0397, 0x0398,
+	0x0399, 0x039A, 0x039B, 0x039C, 0x039D, 0x039E, 0x039F, 0x03A0,
+	0x03A1, 0x03A3, 0x03A4, 0x03A5, 0x03A6, 0x03A7, 0x03A8, 0x03A9,
+	0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7, 0x03B8,
+	0x03B9, 0x03BA, 0x03BB, 0x03BC, 0x03BD, 0x03BE, 0x03BF, 0x03C0,
+	0x03C1, 0x03C3, 0x03C2, 0x03C4, 0x03C5, 0x03C6, 0x03C7, 0x03C8,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
+	0x2555, 0x2563, 0x2551, 0x2557, 0x255D, 0x255C, 0x255B, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x255E, 0x255F,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x2567,
+	0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256B,
+	0x256A, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+	0x03C9, 0x03AC, 0x03AD, 0x03AE, 0x03CA, 0x03AF, 0x03CC, 0x03CD,
+	0x03CB, 0x03CE, 0x0386, 0x0388, 0x0389, 0x038A, 0x038C, 0x038E,
+	0x038F, 0x00B1, 0x2265, 0x2264, 0x03AA, 0x03AB, 0x00F7, 0x2248,
+	0x00B0, 0x2219, 0x00B7, 0x221A, 0x207F, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 775
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP775(0x80-0xFF) to Unicode conversion table */
+	0x0106, 0x00FC, 0x00E9, 0x0101, 0x00E4, 0x0123, 0x00E5, 0x0107,
+	0x0142, 0x0113, 0x0156, 0x0157, 0x012B, 0x0179, 0x00C4, 0x00C5,
+	0x00C9, 0x00E6, 0x00C6, 0x014D, 0x00F6, 0x0122, 0x00A2, 0x015A,
+	0x015B, 0x00D6, 0x00DC, 0x00F8, 0x00A3, 0x00D8, 0x00D7, 0x00A4,
+	0x0100, 0x012A, 0x00F3, 0x017B, 0x017C, 0x017A, 0x201D, 0x00A6,
+	0x00A9, 0x00AE, 0x00AC, 0x00BD, 0x00BC, 0x0141, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x0104, 0x010C, 0x0118,
+	0x0116, 0x2563, 0x2551, 0x2557, 0x255D, 0x012E, 0x0160, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x0172, 0x016A,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x017D,
+	0x0105, 0x010D, 0x0119, 0x0117, 0x012F, 0x0161, 0x0173, 0x016B,
+	0x017E, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+	0x00D3, 0x00DF, 0x014C, 0x0143, 0x00F5, 0x00D5, 0x00B5, 0x0144,
+	0x0136, 0x0137, 0x013B, 0x013C, 0x0146, 0x0112, 0x0145, 0x2019,
+	0x00AD, 0x00B1, 0x201C, 0x00BE, 0x00B6, 0x00A7, 0x00F7, 0x201E,
+	0x00B0, 0x2219, 0x00B7, 0x00B9, 0x00B3, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 850
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP850(0x80-0xFF) to Unicode conversion table */
+	0x00C7, 0x00FC, 0x00E9, 0x00E2, 0x00E4, 0x00E0, 0x00E5, 0x00E7,
+	0x00EA, 0x00EB, 0x00E8, 0x00EF, 0x00EE, 0x00EC, 0x00C4, 0x00C5,
+	0x00C9, 0x00E6, 0x00C6, 0x00F4, 0x00F6, 0x00F2, 0x00FB, 0x00F9,
+	0x00FF, 0x00D6, 0x00DC, 0x00F8, 0x00A3, 0x00D8, 0x00D7, 0x0192,
+	0x00E1, 0x00ED, 0x00F3, 0x00FA, 0x00F1, 0x00D1, 0x00AA, 0x00BA,
+	0x00BF, 0x00AE, 0x00AC, 0x00BD, 0x00BC, 0x00A1, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x00C1, 0x00C2, 0x00C0,
+	0x00A9, 0x2563, 0x2551, 0x2557, 0x255D, 0x00A2, 0x00A5, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x00E3, 0x00C3,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x00A4,
+	0x00F0, 0x00D0, 0x00CA, 0x00CB, 0x00C8, 0x0131, 0x00CD, 0x00CE,
+	0x00CF, 0x2518, 0x250C, 0x2588, 0x2584, 0x00A6, 0x00CC, 0x2580,
+	0x00D3, 0x00DF, 0x00D4, 0x00D2, 0x00F5, 0x00D5, 0x00B5, 0x00FE,
+	0x00DE, 0x00DA, 0x00DB, 0x00D9, 0x00FD, 0x00DD, 0x00AF, 0x00B4,
+	0x00AD, 0x00B1, 0x2017, 0x00BE, 0x00B6, 0x00A7, 0x00F7, 0x00B8,
+	0x00B0, 0x00A8, 0x00B7, 0x00B9, 0x00B3, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 852
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP852(0x80-0xFF) to Unicode conversion table */
+	0x00C7, 0x00FC, 0x00E9, 0x00E2, 0x00E4, 0x016F, 0x0107, 0x00E7,
+	0x0142, 0x00EB, 0x0150, 0x0151, 0x00EE, 0x0179, 0x00C4, 0x0106,
+	0x00C9, 0x0139, 0x013A, 0x00F4, 0x00F6, 0x013D, 0x013E, 0x015A,
+	0x015B, 0x00D6, 0x00DC, 0x0164, 0x0165, 0x0141, 0x00D7, 0x010D,
+	0x00E1, 0x00ED, 0x00F3, 0x00FA, 0x0104, 0x0105, 0x017D, 0x017E,
+	0x0118, 0x0119, 0x00AC, 0x017A, 0x010C, 0x015F, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x00C1, 0x00C2, 0x011A,
+	0x015E, 0x2563, 0x2551, 0x2557, 0x255D, 0x017B, 0x017C, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x0102, 0x0103,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x00A4,
+	0x0111, 0x0110, 0x010E, 0x00CB, 0x010F, 0x0147, 0x00CD, 0x00CE,
+	0x011B, 0x2518, 0x250C, 0x2588, 0x2584, 0x0162, 0x016E, 0x2580,
+	0x00D3, 0x00DF, 0x00D4, 0x0143, 0x0144, 0x0148, 0x0160, 0x0161,
+	0x0154, 0x00DA, 0x0155, 0x0170, 0x00FD, 0x00DD, 0x0163, 0x00B4,
+	0x00AD, 0x02DD, 0x02DB, 0x02C7, 0x02D8, 0x00A7, 0x00F7, 0x00B8,
+	0x00B0, 0x00A8, 0x02D9, 0x0171, 0x0158, 0x0159, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 855
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP855(0x80-0xFF) to Unicode conversion table */
+	0x0452, 0x0402, 0x0453, 0x0403, 0x0451, 0x0401, 0x0454, 0x0404,
+	0x0455, 0x0405, 0x0456, 0x0406, 0x0457, 0x0407, 0x0458, 0x0408,
+	0x0459, 0x0409, 0x045A, 0x040A, 0x045B, 0x040B, 0x045C, 0x040C,
+	0x045E, 0x040E, 0x045F, 0x040F, 0x044E, 0x042E, 0x044A, 0x042A,
+	0x0430, 0x0410, 0x0431, 0x0411, 0x0446, 0x0426, 0x0434, 0x0414,
+	0x0435, 0x0415, 0x0444, 0x0424, 0x0433, 0x0413, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x0445, 0x0425, 0x0438,
+	0x0418, 0x2563, 0x2551, 0x2557, 0x255D, 0x0439, 0x0419, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x043A, 0x041A,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x00A4,
+	0x043B, 0x041B, 0x043C, 0x041C, 0x043D, 0x041D, 0x043E, 0x041E,
+	0x043F, 0x2518, 0x250C, 0x2588, 0x2584, 0x041F, 0x044F, 0x2580,
+	0x042F, 0x0440, 0x0420, 0x0441, 0x0421, 0x0442, 0x0422, 0x0443,
+	0x0423, 0x0436, 0x0416, 0x0432, 0x0412, 0x044C, 0x042C, 0x2116,
+	0x00AD, 0x044B, 0x042B, 0x0437, 0x0417, 0x0448, 0x0428, 0x044D,
+	0x042D, 0x0449, 0x0429, 0x0447, 0x0427, 0x00A7, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 857
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP857(0x80-0xFF) to Unicode conversion table */
+	0x00C7, 0x00FC, 0x00E9, 0x00E2, 0x00E4, 0x00E0, 0x00E5, 0x00E7,
+	0x00EA, 0x00EB, 0x00E8, 0x00EF, 0x00EE, 0x0131, 0x00C4, 0x00C5,
+	0x00C9, 0x00E6, 0x00C6, 0x00F4, 0x00F6, 0x00F2, 0x00FB, 0x00F9,
+	0x0130, 0x00D6, 0x00DC, 0x00F8, 0x00A3, 0x00D8, 0x015E, 0x015F,
+	0x00E1, 0x00ED, 0x00F3, 0x00FA, 0x00F1, 0x00D1, 0x011E, 0x011F,
+	0x00BF, 0x00AE, 0x00AC, 0x00BD, 0x00BC, 0x00A1, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x00C1, 0x00C2, 0x00C0,
+	0x00A9, 0x2563, 0x2551, 0x2557, 0x255D, 0x00A2, 0x00A5, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x00E3, 0x00C3,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x00A4,
+	0x00BA, 0x00AA, 0x00CA, 0x00CB, 0x00C8, 0x0000, 0x00CD, 0x00CE,
+	0x00CF, 0x2518, 0x250C, 0x2588, 0x2584, 0x00A6, 0x00CC, 0x2580,
+	0x00D3, 0x00DF, 0x00D4, 0x00D2, 0x00F5, 0x00D5, 0x00B5, 0x0000,
+	0x00D7, 0x00DA, 0x00DB, 0x00D9, 0x00EC, 0x00FF, 0x00AF, 0x00B4,
+	0x00AD, 0x00B1, 0x0000, 0x00BE, 0x00B6, 0x00A7, 0x00F7, 0x00B8,
+	0x00B0, 0x00A8, 0x00B7, 0x00B9, 0x00B3, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 858
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP858(0x80-0xFF) to Unicode conversion table */
+	0x00C7, 0x00FC, 0x00E9, 0x00E2, 0x00E4, 0x00E0, 0x00E5, 0x00E7,
+	0x00EA, 0x00EB, 0x00E8, 0x00EF, 0x00EE, 0x00EC, 0x00C4, 0x00C5,
+	0x00C9, 0x00E6, 0x00C6, 0x00F4, 0x00F6, 0x00F2, 0x00FB, 0x00F9,
+	0x00FF, 0x00D6, 0x00DC, 0x00F8, 0x00A3, 0x00D8, 0x00D7, 0x0192,
+	0x00E1, 0x00ED, 0x00F3, 0x00FA, 0x00F1, 0x00D1, 0x00AA, 0x00BA,
+	0x00BF, 0x00AE, 0x00AC, 0x00BD, 0x00BC, 0x00A1, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x00C1, 0x00C2, 0x00C0,
+	0x00A9, 0x2563, 0x2551, 0x2557, 0x2550, 0x00A2, 0x00A5, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x00E3, 0x00C3,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x00A4,
+	0x00F0, 0x00D0, 0x00CA, 0x00CB, 0x00C8, 0x20AC, 0x00CD, 0x00CE,
+	0x00CF, 0x2518, 0x250C, 0x2588, 0x2584, 0x00C6, 0x00CC, 0x2580,
+	0x00D3, 0x00DF, 0x00D4, 0x00D2, 0x00F5, 0x00D5, 0x00B5, 0x00FE,
+	0x00DE, 0x00DA, 0x00DB, 0x00D9, 0x00FD, 0x00DD, 0x00AF, 0x00B4,
+	0x00AD, 0x00B1, 0x2017, 0x00BE, 0x00B6, 0x00A7, 0x00F7, 0x00B8,
+	0x00B0, 0x00A8, 0x00B7, 0x00B9, 0x00B3, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 862
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP862(0x80-0xFF) to Unicode conversion table */
+	0x05D0, 0x05D1, 0x05D2, 0x05D3, 0x05D4, 0x05D5, 0x05D6, 0x05D7,
+	0x05D8, 0x05D9, 0x05DA, 0x05DB, 0x05DC, 0x05DD, 0x05DE, 0x05DF,
+	0x05E0, 0x05E1, 0x05E2, 0x05E3, 0x05E4, 0x05E5, 0x05E6, 0x05E7,
+	0x05E8, 0x05E9, 0x05EA, 0x00A2, 0x00A3, 0x00A5, 0x20A7, 0x0192,
+	0x00E1, 0x00ED, 0x00F3, 0x00FA, 0x00F1, 0x00D1, 0x00AA, 0x00BA,
+	0x00BF, 0x2310, 0x00AC, 0x00BD, 0x00BC, 0x00A1, 0x00AB, 0x00BB,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
+	0x2555, 0x2563, 0x2551, 0x2557, 0x255D, 0x255C, 0x255B, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x255E, 0x255F,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x2567,
+	0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256B,
+	0x256A, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+	0x03B1, 0x00DF, 0x0393, 0x03C0, 0x03A3, 0x03C3, 0x00B5, 0x03C4,
+	0x03A6, 0x0398, 0x03A9, 0x03B4, 0x221E, 0x03C6, 0x03B5, 0x2229,
+	0x2261, 0x00B1, 0x2265, 0x2264, 0x2320, 0x2321, 0x00F7, 0x2248,
+	0x00B0, 0x2219, 0x00B7, 0x221A, 0x207F, 0x00B2, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 866
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP866(0x80-0xFF) to Unicode conversion table */
+	0x0410, 0x0411, 0x0412, 0x0413, 0x0414, 0x0415, 0x0416, 0x0417,
+	0x0418, 0x0419, 0x041A, 0x041B, 0x041C, 0x041D, 0x041E, 0x041F,
+	0x0420, 0x0421, 0x0422, 0x0423, 0x0424, 0x0425, 0x0426, 0x0427,
+	0x0428, 0x0429, 0x042A, 0x042B, 0x042C, 0x042D, 0x042E, 0x042F,
+	0x0430, 0x0431, 0x0432, 0x0433, 0x0434, 0x0435, 0x0436, 0x0437,
+	0x0438, 0x0439, 0x043A, 0x043B, 0x043C, 0x043D, 0x043E, 0x043F,
+	0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
+	0x2555, 0x2563, 0x2551, 0x2557, 0x255D, 0x255C, 0x255B, 0x2510,
+	0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x255E, 0x255F,
+	0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x2567,
+	0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256B,
+	0x256A, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+	0x0440, 0x0441, 0x0442, 0x0443, 0x0444, 0x0445, 0x0446, 0x0447,
+	0x0448, 0x0449, 0x044A, 0x044B, 0x044C, 0x044D, 0x044E, 0x044F,
+	0x0401, 0x0451, 0x0404, 0x0454, 0x0407, 0x0457, 0x040E, 0x045E,
+	0x00B0, 0x2219, 0x00B7, 0x221A, 0x2116, 0x00A4, 0x25A0, 0x00A0
+};
+
+#elif _CODE_PAGE == 874
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP874(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x0000, 0x0000, 0x0000, 0x2026, 0x0000, 0x0000,
+	0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
+	0x00A0, 0x0E01, 0x0E02, 0x0E03, 0x0E04, 0x0E05, 0x0E06, 0x0E07,
+	0x0E08, 0x0E09, 0x0E0A, 0x0E0B, 0x0E0C, 0x0E0D, 0x0E0E, 0x0E0F,
+	0x0E10, 0x0E11, 0x0E12, 0x0E13, 0x0E14, 0x0E15, 0x0E16, 0x0E17,
+	0x0E18, 0x0E19, 0x0E1A, 0x0E1B, 0x0E1C, 0x0E1D, 0x0E1E, 0x0E1F,
+	0x0E20, 0x0E21, 0x0E22, 0x0E23, 0x0E24, 0x0E25, 0x0E26, 0x0E27,
+	0x0E28, 0x0E29, 0x0E2A, 0x0E2B, 0x0E2C, 0x0E2D, 0x0E2E, 0x0E2F,
+	0x0E30, 0x0E31, 0x0E32, 0x0E33, 0x0E34, 0x0E35, 0x0E36, 0x0E37,
+	0x0E38, 0x0E39, 0x0E3A, 0x0000, 0x0000, 0x0000, 0x0000, 0x0E3F,
+	0x0E40, 0x0E41, 0x0E42, 0x0E43, 0x0E44, 0x0E45, 0x0E46, 0x0E47,
+	0x0E48, 0x0E49, 0x0E4A, 0x0E4B, 0x0E4C, 0x0E4D, 0x0E4E, 0x0E4F,
+	0x0E50, 0x0E51, 0x0E52, 0x0E53, 0x0E54, 0x0E55, 0x0E56, 0x0E57,
+	0x0E58, 0x0E59, 0x0E5A, 0x0E5B, 0x0000, 0x0000, 0x0000, 0x0000
+};
+
+#elif _CODE_PAGE == 1250
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1250(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x201A, 0x0000, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x0000, 0x2030, 0x0160, 0x2039, 0x015A, 0x0164, 0x017D, 0x0179,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x0000, 0x2122, 0x0161, 0x203A, 0x015B, 0x0165, 0x017E, 0x017A,
+	0x00A0, 0x02C7, 0x02D8, 0x0141, 0x00A4, 0x0104, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x015E, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x017B,
+	0x00B0, 0x00B1, 0x02DB, 0x0142, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x0105, 0x015F, 0x00BB, 0x013D, 0x02DD, 0x013E, 0x017C,
+	0x0154, 0x00C1, 0x00C2, 0x0102, 0x00C4, 0x0139, 0x0106, 0x00C7,
+	0x010C, 0x00C9, 0x0118, 0x00CB, 0x011A, 0x00CD, 0x00CE, 0x010E,
+	0x0110, 0x0143, 0x0147, 0x00D3, 0x00D4, 0x0150, 0x00D6, 0x00D7,
+	0x0158, 0x016E, 0x00DA, 0x0170, 0x00DC, 0x00DD, 0x0162, 0x00DF,
+	0x0155, 0x00E1, 0x00E2, 0x0103, 0x00E4, 0x013A, 0x0107, 0x00E7,
+	0x010D, 0x00E9, 0x0119, 0x00EB, 0x011B, 0x00ED, 0x00EE, 0x010F,
+	0x0111, 0x0144, 0x0148, 0x00F3, 0x00F4, 0x0151, 0x00F6, 0x00F7,
+	0x0159, 0x016F, 0x00FA, 0x0171, 0x00FC, 0x00FD, 0x0163, 0x02D9
+};
+
+#elif _CODE_PAGE == 1251
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1251(0x80-0xFF) to Unicode conversion table */
+	0x0402, 0x0403, 0x201A, 0x0453, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x20AC, 0x2030, 0x0409, 0x2039, 0x040A, 0x040C, 0x040B, 0x040F,
+	0x0452, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x0000, 0x2111, 0x0459, 0x203A, 0x045A, 0x045C, 0x045B, 0x045F,
+	0x00A0, 0x040E, 0x045E, 0x0408, 0x00A4, 0x0490, 0x00A6, 0x00A7,
+	0x0401, 0x00A9, 0x0404, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x0407,
+	0x00B0, 0x00B1, 0x0406, 0x0456, 0x0491, 0x00B5, 0x00B6, 0x00B7,
+	0x0451, 0x2116, 0x0454, 0x00BB, 0x0458, 0x0405, 0x0455, 0x0457,
+	0x0410, 0x0411, 0x0412, 0x0413, 0x0414, 0x0415, 0x0416, 0x0417,
+	0x0418, 0x0419, 0x041A, 0x041B, 0x041C, 0x041D, 0x041E, 0x041F,
+	0x0420, 0x0421, 0x0422, 0x0423, 0x0424, 0x0425, 0x0426, 0x0427,
+	0x0428, 0x0429, 0x042A, 0x042B, 0x042C, 0x042D, 0x042E, 0x042F,
+	0x0430, 0x0431, 0x0432, 0x0433, 0x0434, 0x0435, 0x0436, 0x0437,
+	0x0438, 0x0439, 0x043A, 0x043B, 0x043C, 0x043D, 0x043E, 0x043F,
+	0x0440, 0x0441, 0x0442, 0x0443, 0x0444, 0x0445, 0x0446, 0x0447,
+	0x0448, 0x0449, 0x044A, 0x044B, 0x044C, 0x044D, 0x044E, 0x044F
+};
+
+#elif _CODE_PAGE == 1252
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1252(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x02C6, 0x2030, 0x0160, 0x2039, 0x0152, 0x0000, 0x017D, 0x0000,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x02DC, 0x2122, 0x0161, 0x203A, 0x0153, 0x0000, 0x017E, 0x0178,
+	0x00A0, 0x00A1, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x00AA, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x00B9, 0x00BA, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x00BF,
+	0x00C0, 0x00C1, 0x00C2, 0x00C3, 0x00C4, 0x00C5, 0x00C6, 0x00C7,
+	0x00C8, 0x00C9, 0x00CA, 0x00CB, 0x00CC, 0x00CD, 0x00CE, 0x00CF,
+	0x00D0, 0x00D1, 0x00D2, 0x00D3, 0x00D4, 0x00D5, 0x00D6, 0x00D7,
+	0x00D8, 0x00D9, 0x00DA, 0x00DB, 0x00DC, 0x00DD, 0x00DE, 0x00DF,
+	0x00E0, 0x00E1, 0x00E2, 0x00E3, 0x00E4, 0x00E5, 0x00E6, 0x00E7,
+	0x00E8, 0x00E9, 0x00EA, 0x00EB, 0x00EC, 0x00ED, 0x00EE, 0x00EF,
+	0x00F0, 0x00F1, 0x00F2, 0x00F3, 0x00F4, 0x00F5, 0x00F6, 0x00F7,
+	0x00F8, 0x00F9, 0x00FA, 0x00FB, 0x00FC, 0x00FD, 0x00FE, 0x00FF
+};
+
+#elif _CODE_PAGE == 1253
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1253(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x0000, 0x2030, 0x0000, 0x2039, 0x000C, 0x0000, 0x0000, 0x0000,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x0000, 0x2122, 0x0000, 0x203A, 0x0000, 0x0000, 0x0000, 0x0000,
+	0x00A0, 0x0385, 0x0386, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x0000, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x2015,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x0384, 0x00B5, 0x00B6, 0x00B7,
+	0x0388, 0x0389, 0x038A, 0x00BB, 0x038C, 0x00BD, 0x038E, 0x038F,
+	0x0390, 0x0391, 0x0392, 0x0393, 0x0394, 0x0395, 0x0396, 0x0397,
+	0x0398, 0x0399, 0x039A, 0x039B, 0x039C, 0x039D, 0x039E, 0x039F,
+	0x03A0, 0x03A1, 0x0000, 0x03A3, 0x03A4, 0x03A5, 0x03A6, 0x03A7,
+	0x03A8, 0x03A9, 0x03AA, 0x03AD, 0x03AC, 0x03AD, 0x03AE, 0x03AF,
+	0x03B0, 0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7,
+	0x03B8, 0x03B9, 0x03BA, 0x03BB, 0x03BC, 0x03BD, 0x03BE, 0x03BF,
+	0x03C0, 0x03C1, 0x03C2, 0x03C3, 0x03C4, 0x03C5, 0x03C6, 0x03C7,
+	0x03C8, 0x03C9, 0x03CA, 0x03CB, 0x03CC, 0x03CD, 0x03CE, 0x0000
+};
+
+#elif _CODE_PAGE == 1254
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1254(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x210A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x02C6, 0x2030, 0x0160, 0x2039, 0x0152, 0x0000, 0x0000, 0x0000,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x02DC, 0x2122, 0x0161, 0x203A, 0x0153, 0x0000, 0x0000, 0x0178,
+	0x00A0, 0x00A1, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x00AA, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x00B9, 0x00BA, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x00BF,
+	0x00C0, 0x00C1, 0x00C2, 0x00C3, 0x00C4, 0x00C5, 0x00C6, 0x00C7,
+	0x00C8, 0x00C9, 0x00CA, 0x00CB, 0x00CC, 0x00CD, 0x00CE, 0x00CF,
+	0x011E, 0x00D1, 0x00D2, 0x00D3, 0x00D4, 0x00D5, 0x00D6, 0x00D7,
+	0x00D8, 0x00D9, 0x00DA, 0x00BD, 0x00DC, 0x0130, 0x015E, 0x00DF,
+	0x00E0, 0x00E1, 0x00E2, 0x00E3, 0x00E4, 0x00E5, 0x00E6, 0x00E7,
+	0x00E8, 0x00E9, 0x00EA, 0x00EB, 0x00EC, 0x00ED, 0x00EE, 0x00EF,
+	0x011F, 0x00F1, 0x00F2, 0x00F3, 0x00F4, 0x00F5, 0x00F6, 0x00F7,
+	0x00F8, 0x00F9, 0x00FA, 0x00FB, 0x00FC, 0x0131, 0x015F, 0x00FF
+};
+
+#elif _CODE_PAGE == 1255
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1255(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x02C6, 0x2030, 0x0000, 0x2039, 0x0000, 0x0000, 0x0000, 0x0000,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x02DC, 0x2122, 0x0000, 0x203A, 0x0000, 0x0000, 0x0000, 0x0000,
+	0x00A0, 0x00A1, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x00D7, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x00B9, 0x00F7, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x00BF,
+	0x05B0, 0x05B1, 0x05B2, 0x05B3, 0x05B4, 0x05B5, 0x05B6, 0x05B7,
+	0x05B8, 0x05B9, 0x0000, 0x05BB, 0x05BC, 0x05BD, 0x05BE, 0x05BF,
+	0x05C0, 0x05C1, 0x05C2, 0x05C3, 0x05F0, 0x05F1, 0x05F2, 0x05F3,
+	0x05F4, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
+	0x05D0, 0x05D1, 0x05D2, 0x05D3, 0x05D4, 0x05D5, 0x05D6, 0x05D7,
+	0x05D8, 0x05D9, 0x05DA, 0x05DB, 0x05DC, 0x05DD, 0x05DE, 0x05DF,
+	0x05E0, 0x05E1, 0x05E2, 0x05E3, 0x05E4, 0x05E5, 0x05E6, 0x05E7,
+	0x05E8, 0x05E9, 0x05EA, 0x0000, 0x0000, 0x200E, 0x200F, 0x0000
+};
+
+#elif _CODE_PAGE == 1256
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1256(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x067E, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x02C6, 0x2030, 0x0679, 0x2039, 0x0152, 0x0686, 0x0698, 0x0688,
+	0x06AF, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x06A9, 0x2122, 0x0691, 0x203A, 0x0153, 0x200C, 0x200D, 0x06BA,
+	0x00A0, 0x060C, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x06BE, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x00B9, 0x061B, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x061F,
+	0x06C1, 0x0621, 0x0622, 0x0623, 0x0624, 0x0625, 0x0626, 0x0627,
+	0x0628, 0x0629, 0x062A, 0x062B, 0x062C, 0x062D, 0x062E, 0x062F,
+	0x0630, 0x0631, 0x0632, 0x0633, 0x0634, 0x0635, 0x0636, 0x00D7,
+	0x0637, 0x0638, 0x0639, 0x063A, 0x0640, 0x0640, 0x0642, 0x0643,
+	0x00E0, 0x0644, 0x00E2, 0x0645, 0x0646, 0x0647, 0x0648, 0x00E7,
+	0x00E8, 0x00E9, 0x00EA, 0x00EB, 0x0649, 0x064A, 0x00EE, 0x00EF,
+	0x064B, 0x064C, 0x064D, 0x064E, 0x00F4, 0x064F, 0x0650, 0x00F7,
+	0x0651, 0x00F9, 0x0652, 0x00FB, 0x00FC, 0x200E, 0x200F, 0x06D2
+}
+
+#elif _CODE_PAGE == 1257
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1257(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x201A, 0x0000, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x0000, 0x2030, 0x0000, 0x2039, 0x0000, 0x00A8, 0x02C7, 0x00B8,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x0000, 0x2122, 0x0000, 0x203A, 0x0000, 0x00AF, 0x02DB, 0x0000,
+	0x00A0, 0x0000, 0x00A2, 0x00A3, 0x00A4, 0x0000, 0x00A6, 0x00A7,
+	0x00D8, 0x00A9, 0x0156, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x00B9, 0x0157, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x00E6,
+	0x0104, 0x012E, 0x0100, 0x0106, 0x00C4, 0x00C5, 0x0118, 0x0112,
+	0x010C, 0x00C9, 0x0179, 0x0116, 0x0122, 0x0136, 0x012A, 0x013B,
+	0x0160, 0x0143, 0x0145, 0x00D3, 0x014C, 0x00D5, 0x00D6, 0x00D7,
+	0x0172, 0x0141, 0x015A, 0x016A, 0x00DC, 0x017B, 0x017D, 0x00DF,
+	0x0105, 0x012F, 0x0101, 0x0107, 0x00E4, 0x00E5, 0x0119, 0x0113,
+	0x010D, 0x00E9, 0x017A, 0x0117, 0x0123, 0x0137, 0x012B, 0x013C,
+	0x0161, 0x0144, 0x0146, 0x00F3, 0x014D, 0x00F5, 0x00F6, 0x00F7,
+	0x0173, 0x014E, 0x015B, 0x016B, 0x00FC, 0x017C, 0x017E, 0x02D9
+};
+
+#elif _CODE_PAGE == 1258
+#define _TBLDEF 1
+static
+const uint16_t Tbl[] = {	/*  CP1258(0x80-0xFF) to Unicode conversion table */
+	0x20AC, 0x0000, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
+	0x02C6, 0x2030, 0x0000, 0x2039, 0x0152, 0x0000, 0x0000, 0x0000,
+	0x0000, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
+	0x02DC, 0x2122, 0x0000, 0x203A, 0x0153, 0x0000, 0x0000, 0x0178,
+	0x00A0, 0x00A1, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
+	0x00A8, 0x00A9, 0x00AA, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
+	0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
+	0x00B8, 0x00B9, 0x00BA, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x00BF,
+	0x00C0, 0x00C1, 0x00C2, 0x0102, 0x00C4, 0x00C5, 0x00C6, 0x00C7,
+	0x00C8, 0x00C9, 0x00CA, 0x00CB, 0x0300, 0x00CD, 0x00CE, 0x00CF,
+	0x0110, 0x00D1, 0x0309, 0x00D3, 0x00D4, 0x01A0, 0x00D6, 0x00D7,
+	0x00D8, 0x00D9, 0x00DA, 0x00DB, 0x00DC, 0x01AF, 0x0303, 0x00DF,
+	0x00E0, 0x00E1, 0x00E2, 0x0103, 0x00E4, 0x00E5, 0x00E6, 0x00E7,
+	0x00E8, 0x00E9, 0x00EA, 0x00EB, 0x0301, 0x00ED, 0x00EE, 0x00EF,
+	0x0111, 0x00F1, 0x0323, 0x00F3, 0x00F4, 0x01A1, 0x00F6, 0x00F7,
+	0x00F8, 0x00F9, 0x00FA, 0x00FB, 0x00FC, 0x01B0, 0x20AB, 0x00FF
+};
+
+#endif
+
+
+#if !_TBLDEF || !_USE_LFN
+#error This file is not needed in current configuration. Remove from the project.
+#endif
+
+
+uint16_t ff_convert (	/* Converted character, Returns zero on error */
+	uint16_t	src,	/* Character code to be converted */
+	uint32_t	dir		/* 0: Unicode to OEMCP, 1: OEMCP to Unicode */
+)
+{
+	uint16_t c;
+
+
+	if (src < 0x80) {	/* ASCII */
+		c = src;
+
+	} else {
+		if (dir) {		/* OEMCP to Unicode */
+			c = (src >= 0x100) ? 0 : Tbl[src - 0x80];
+
+		} else {		/* Unicode to OEMCP */
+			for (c = 0; c < 0x80; c++) {
+				if (src == Tbl[c]) break;
+			}
+			c = (c + 0x80) & 0xFF;
+		}
+	}
+
+	return c;
+}
+
+
+uint16_t ff_wtoupper (	/* Upper converted character */
+	uint16_t chr		/* Input character */
+)
+{
+	static const uint16_t tbl_lower[] = { 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6A, 0x6B, 0x6C, 0x6D, 0x6E, 0x6F, 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7A, 0xA1, 0x00A2, 0x00A3, 0x00A5, 0x00AC, 0x00AF, 0xE0, 0xE1, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6, 0xE7, 0xE8, 0xE9, 0xEA, 0xEB, 0xEC, 0xED, 0xEE, 0xEF, 0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0x0FF, 0x101, 0x103, 0x105, 0x107, 0x109, 0x10B, 0x10D, 0x10F, 0x111, 0x113, 0x115, 0x117, 0x119, 0x11B, 0x11D, 0x11F, 0x121, 0x123, 0x125, 0x127, 0x129, 0x12B, 0x12D, 0x12F, 0x131, 0x133, 0x135, 0x137, 0x13A, 0x13C, 0x13E, 0x140, 0x142, 0x144, 0x146, 0x148, 0x14B, 0x14D, 0x14F, 0x151, 0x153, 0x155, 0x157, 0x159, 0x15B, 0x15D, 0x15F, 0x161, 0x163, 0x165, 0x167, 0x169, 0x16B, 0x16D, 0x16F, 0x171, 0x173, 0x175, 0x177, 0x17A, 0x17C, 0x17E, 0x192, 0x3B1, 0x3B2, 0x3B3, 0x3B4, 0x3B5, 0x3B6, 0x3B7, 0x3B8, 0x3B9, 0x3BA, 0x3BB, 0x3BC, 0x3BD, 0x3BE, 0x3BF, 0x3C0, 0x3C1, 0x3C3, 0x3C4, 0x3C5, 0x3C6, 0x3C7, 0x3C8, 0x3C9, 0x3CA, 0x430, 0x431, 0x432, 0x433, 0x434, 0x435, 0x436, 0x437, 0x438, 0x439, 0x43A, 0x43B, 0x43C, 0x43D, 0x43E, 0x43F, 0x440, 0x441, 0x442, 0x443, 0x444, 0x445, 0x446, 0x447, 0x448, 0x449, 0x44A, 0x44B, 0x44C, 0x44D, 0x44E, 0x44F, 0x451, 0x452, 0x453, 0x454, 0x455, 0x456, 0x457, 0x458, 0x459, 0x45A, 0x45B, 0x45C, 0x45E, 0x45F, 0x2170, 0x2171, 0x2172, 0x2173, 0x2174, 0x2175, 0x2176, 0x2177, 0x2178, 0x2179, 0x217A, 0x217B, 0x217C, 0x217D, 0x217E, 0x217F, 0xFF41, 0xFF42, 0xFF43, 0xFF44, 0xFF45, 0xFF46, 0xFF47, 0xFF48, 0xFF49, 0xFF4A, 0xFF4B, 0xFF4C, 0xFF4D, 0xFF4E, 0xFF4F, 0xFF50, 0xFF51, 0xFF52, 0xFF53, 0xFF54, 0xFF55, 0xFF56, 0xFF57, 0xFF58, 0xFF59, 0xFF5A, 0 };
+	static const uint16_t tbl_upper[] = { 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F, 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5A, 0x21, 0xFFE0, 0xFFE1, 0xFFE5, 0xFFE2, 0xFFE3, 0xC0, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xC6, 0xC7, 0xC8, 0xC9, 0xCA, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF, 0xD0, 0xD1, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6, 0xD8, 0xD9, 0xDA, 0xDB, 0xDC, 0xDD, 0xDE, 0x178, 0x100, 0x102, 0x104, 0x106, 0x108, 0x10A, 0x10C, 0x10E, 0x110, 0x112, 0x114, 0x116, 0x118, 0x11A, 0x11C, 0x11E, 0x120, 0x122, 0x124, 0x126, 0x128, 0x12A, 0x12C, 0x12E, 0x130, 0x132, 0x134, 0x136, 0x139, 0x13B, 0x13D, 0x13F, 0x141, 0x143, 0x145, 0x147, 0x14A, 0x14C, 0x14E, 0x150, 0x152, 0x154, 0x156, 0x158, 0x15A, 0x15C, 0x15E, 0x160, 0x162, 0x164, 0x166, 0x168, 0x16A, 0x16C, 0x16E, 0x170, 0x172, 0x174, 0x176, 0x179, 0x17B, 0x17D, 0x191, 0x391, 0x392, 0x393, 0x394, 0x395, 0x396, 0x397, 0x398, 0x399, 0x39A, 0x39B, 0x39C, 0x39D, 0x39E, 0x39F, 0x3A0, 0x3A1, 0x3A3, 0x3A4, 0x3A5, 0x3A6, 0x3A7, 0x3A8, 0x3A9, 0x3AA, 0x410, 0x411, 0x412, 0x413, 0x414, 0x415, 0x416, 0x417, 0x418, 0x419, 0x41A, 0x41B, 0x41C, 0x41D, 0x41E, 0x41F, 0x420, 0x421, 0x422, 0x423, 0x424, 0x425, 0x426, 0x427, 0x428, 0x429, 0x42A, 0x42B, 0x42C, 0x42D, 0x42E, 0x42F, 0x401, 0x402, 0x403, 0x404, 0x405, 0x406, 0x407, 0x408, 0x409, 0x40A, 0x40B, 0x40C, 0x40E, 0x40F, 0x2160, 0x2161, 0x2162, 0x2163, 0x2164, 0x2165, 0x2166, 0x2167, 0x2168, 0x2169, 0x216A, 0x216B, 0x216C, 0x216D, 0x216E, 0x216F, 0xFF21, 0xFF22, 0xFF23, 0xFF24, 0xFF25, 0xFF26, 0xFF27, 0xFF28, 0xFF29, 0xFF2A, 0xFF2B, 0xFF2C, 0xFF2D, 0xFF2E, 0xFF2F, 0xFF30, 0xFF31, 0xFF32, 0xFF33, 0xFF34, 0xFF35, 0xFF36, 0xFF37, 0xFF38, 0xFF39, 0xFF3A, 0 };
+	int i;
+
+
+	for (i = 0; tbl_lower[i] && chr != tbl_lower[i]; i++) ;
+
+	return tbl_lower[i] ? tbl_upper[i] : chr;
+}

sources/flash.c

@@ -0,0 +1,111 @@
+/*
+ * flash.c
+ *
+ * flashing routines for BaS_gcc
+ *
+ *  Created on: 19.12.2012
+ *      Author: mfro
+ *      The ACP Firebee project
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2012        M. Froeschle
+ */
+
+#include <stdint.h>
+
+void chip_erase(uint8_t *address)
+{
+	* (volatile uint8_t *) (address + 0xaaa) = 0xaa;
+	* (volatile uint8_t *) (address + 0x555) = 0x55;
+	* (volatile uint8_t *) (address + 0xaaa) = 0x80;
+	* (volatile uint8_t *) (address + 0xaaa) = 0xaa;
+	* (volatile uint8_t *) (address + 0x555) = 0x55;
+	* (volatile uint8_t *) (address + 0xaaa) = 0x10;
+}
+
+void sector_erase(uint8_t *address, uint16_t sector)
+{
+	* (volatile uint8_t *) (address + 0xaaa) = 0xaa;
+	* (volatile uint8_t *) (address + 0x555) = 0x55;
+	* (volatile uint8_t *) (address + 0xaaa) = 0x80;
+	* (volatile uint8_t *) (address + 0xaaa) = 0xaa;
+	* (volatile uint8_t *) (address + 0x555) = 0x55;
+	* (volatile uint8_t *) (address + sector) = 0x30;
+
+	do {
+		;
+	} while (* (volatile uint32_t *) (address + sector) != 0xffffffff);
+}
+
+
+#ifdef _NOT_USED_
+* MX28LV640DB.alg
+	bra	lab0x5a
+	move.w	#0xaa,d0
+	move.w	d0,0xaaa(a5)
+	move.w	#0xff,d0
+	move.w	d0,0x554(a5)
+	move.w	#0x20,d0
+	move.w	d0,0xaaa(a5)
+lab0x1c:
+	move.w	#0xa0,d0
+	move.w	d0,(a5)
+	moveq 	#0,d0
+	move.w	(a3),d0
+	move.w	d0,(a4)
+lab0x28:
+	move.w	(a4),d1
+	andi.l	#0xffff,d1
+	cmp.l	d1,d0
+	bne.s	lab0x28
+	adda.l	#2,a3
+	adda.l	#2,a4
+	cmpa.l	a2,a3
+	blt.s	lab0x1c
+	move.w	#0x90,d0
+	move.w	d0,(a5)
+	move.w	#0,d0
+	move.w	d0,(a5)
+lab0x50:
+	nop
+	nop
+	halt
+	nop
+	bra.s	lab0x50
+lab0x5a:
+	move.w	#0xaa,d0
+	move.w	d0,0xaaa(a5)
+	move.w	#0x55,d0
+	move.w	d0,0x554(a5)
+	move.w	#0x80,d0
+	move.w	d0,0xaaa(a5)
+	move.w	#0xaa,d0
+	move.w	d0,0xaaa(a5)
+	move.w	#0x55,d0
+	move.w	d0,0x554(a5)
+	move.w	#0x30,d0
+	move.w	d0,(a4)
+lab0x88:
+	move.l	(a4),d1
+	move.l	#-1,d0
+	cmp.l	d1,d0
+	bne.s	lab0x88
+	nop
+	nop
+	halt
+	nop
+#endif /* _NOT_USED_ */

sources/ii_add.h

@@ -1,581 +0,0 @@
-//--------------------------------------------------------------------
-// add
-//--------------------------------------------------------------------
-/*****************************************************************************************/
-//--------------------------------------------------------------------
-// byt
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// add.b	#im,dx
-//--------------------------------------------------------------------
-addbir_macro:.macro
-	move.w		(a0)+,d0
-	extb.l		d0
-	mvs.b		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.b		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	ea,dx
-//--------------------------------------------------------------------
-adddd:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	ea,dx (first ea->a1 z.B. f<>r a0,a1,USP)
-//--------------------------------------------------------------------
-addddd:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		a1,d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	(ea),dx (first ea->a1 z.B. f<>r a0,a1,USP)
-//--------------------------------------------------------------------
-adddda:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	(ay)+,dx (first ea->a1 z.B. f<>r a0,a1,USP)
-//--------------------------------------------------------------------
-addddai:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1)+,d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	-(ay),dx (first ea->a1 z.B. f<>r a0,a1,USP)
-//--------------------------------------------------------------------
-addddad:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		-(a1),d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	d16(ay),dx
-//--------------------------------------------------------------------
-addd16ad:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0		
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	d8(ay,dy),dx
-//--------------------------------------------------------------------
-addd8ad:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	xxx.w,dx
-//--------------------------------------------------------------------
-addxwd:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	xxx.l,dx
-//--------------------------------------------------------------------
-addxld:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	d16(pc),dx
-//--------------------------------------------------------------------
-addd16pcd:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		a0,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	d8(pc,dy),dx
-//--------------------------------------------------------------------
-addd8pcd:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-//  add dy,ea
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// // add	dx,(ay)  (first ea->a1 z.B. f<>r a0,a1,USP)
-//--------------------------------------------------------------------
-addeda:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,(ay)+  (first ea->a1 z.B. f<>r a0,a1,USP)
-//--------------------------------------------------------------------
-addedai:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)+
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,(ay)+  
-//--------------------------------------------------------------------
-addedaid:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2+
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,-(ay)
-//--------------------------------------------------------------------
-addedad:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		-(a1),d1
-	move.l		a1,\2
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,-(ay)
-//--------------------------------------------------------------------
-addedadd:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		-\2,d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,d16(ay)
-//--------------------------------------------------------------------
-adde16ad:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.w		(a0)+,d1
-	add.l		d1,a1
-	mvs.\3		(a1),d1		
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add.w	d8(ay,dy),dx
-//--------------------------------------------------------------------
-adde8ad:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\2,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d1
-	move.l		\1,d0
-.else
-	mvs.\3		(a1),d1
-	mvs.\3		\1,d0
-.endif
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,xxx.w
-//--------------------------------------------------------------------
-addxwe:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // add	dx,xxx.l
-//--------------------------------------------------------------------
-addxle:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d1
-	add.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-/******************************************************/
-// adress register
-/******************************************************/
-//--------------------------------------------------------------------
-// // adda.w	ea,ax (ea = dx;ax;(ax);(ax)+,-(ax)
-//--------------------------------------------------------------------
-addaw:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		a0,pc_off(a7)			// pc auf next
-	movem.l		(a7),d0/d1/a0/a1		// register zurp<72>ck
-	mvs.w		\1,d0
-	adda.l		d0,\2
-	move.l		d0_off(a7),d0
-	lea			ii_ss(a7),a7			// stack erh<72>hen
-	rte
-	.endm;
-//--------------------------------------------------------------------
-// add.w ea,usp
-//--------------------------------------------------------------------
-addawa7:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.w		\1,d0
-	move.l		usp,a1
-	add.l		d0,a1
-	move.l		a1,usp
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	ea,usp (ea = dx;ax;(ax);(ax)+,-(ax)
-//--------------------------------------------------------------------
-addawu:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		a0,pc_off(a7)			// pc auf next
-	movem.l		(a7),d0/d1/a0/a1		// register zurp<72>ck
-	move.l		a7,_a7_save
-	move.l		usp,a7
-	move.l		\1,d0
-	adda.l		d0,\2
-	move.l		a7,usp
-	move.l		_a7_save,a7
-	move.l		d0_off(a7),d0
-	lea			ii_ss(a7),a7			// stack erh<72>hen
-	rte
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	ea,usp (ea = a7 => dx;ax;(ax);(ax)+,-(ax)
-//--------------------------------------------------------------------
-addawua7:.macro
-	addawu		\1,\2
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	d16(ay),ax
-//--------------------------------------------------------------------
-addawd16a:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a0)+,d0
-	adda.l		d0,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	add.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	d8(ay,dy),ax
-//--------------------------------------------------------------------
-addawd8a:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	add.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	xxx.w,ax
-//--------------------------------------------------------------------
-addawxwax:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.w		\1,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	xxx.l,ax
-//--------------------------------------------------------------------
-addawxlax:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	d16(pc),ax
-//--------------------------------------------------------------------
-addawd16pcax:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.w		\1,a1
-	adda.l		a0,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	d8(pc,dy),ax
-//--------------------------------------------------------------------
-addawd8pcax:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.w	#im,ax
-//--------------------------------------------------------------------
-addawim:.macro
-#ifdef	halten_add
-	halt
-#endif
-	mvs.w		\1,d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.l	d8(ay,dy),ax
-//--------------------------------------------------------------------
-addald8a:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-	move.l		(a1),d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // adda.l	d8(pc,dy),ax
-//--------------------------------------------------------------------
-addakd8pcax:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-	move.l		(a1),d0
-	move.l		\2,a1
-	adda.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//*****************************************************************************************
-// addx 
-//*****************************************************************************************
-//--------------------------------------------------------------------
-// // addx	dy,dx
-//--------------------------------------------------------------------
-adddx:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.b		sr_off+1(a7),d0			//ccr holen
-	move		d0,ccr					//setzen		
-	mvs.\3		\2,d0
-	mvs.\3		\1,d1
-	addx.l		d0,d1
-	set_cc0
-	move.\3		d1,\1
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // addx	-(ay),-(ax)
-//--------------------------------------------------------------------
-adddax:.macro
-#ifdef	halten_add
-	halt
-#endif
-	move.b		sr_off+1(a7),d0			//ccr holen
-	move		d0,ccr					//setzen		
-	move.l		\1,a1
-.ifc	\3,l
-	move.l		-(a1),d0
-.else
-	mvs.\3		-(a1),d0
-.endif
-	move.l		\2,a1
-.ifc	\3,l
-	move.l		-(a1),d0
-.else
-	mvs.\3		-(a1),d1
-.endif
-	addx.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------

sources/ii_and.h

@@ -1,441 +0,0 @@
-//--------------------------------------------------------------------
-// and
-//--------------------------------------------------------------------
-/*****************************************************************************************/
-//--------------------------------------------------------------------
-// byt
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// and.b	#im,dx
-//--------------------------------------------------------------------
-andbir_macro:.macro
-	move.w		(a0)+,d0
-	extb.l		d0
-	mvs.b		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.b		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	ea,dx
-//--------------------------------------------------------------------
-anddd:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	ea(l)->dy(w),dx z.B. f<>r USP
-//--------------------------------------------------------------------
-andddd:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		a1,d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	(ea)->dy,dx
-//--------------------------------------------------------------------
-anddda:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	ea->ay,(ay)+,dx
-//--------------------------------------------------------------------
-andddai:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1)+,d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	ea->ay,-(ay),dx
-//--------------------------------------------------------------------
-andddad:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		-(a1),d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	d16(ay),dx
-//--------------------------------------------------------------------
-andd16ad:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0		
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	d8(ay,dy),dx
-//--------------------------------------------------------------------
-andd8ad:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	xxx.w,dx
-//--------------------------------------------------------------------
-andxwd:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	xxx.l,dx
-//--------------------------------------------------------------------
-andxld:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	d16(pc),dx
-//--------------------------------------------------------------------
-andd16pcd:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		a0,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	d8(pc,dy),dx
-//--------------------------------------------------------------------
-andd8pcd:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-//  and dx,ea
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// // and	dx,(ea)->dy
-//--------------------------------------------------------------------
-andeda:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,ea->ay,(ay)+
-//--------------------------------------------------------------------
-andedai:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)+
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,ea->ay,(ay)+
-//--------------------------------------------------------------------
-andedaid:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2+
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,ea->ay,-(ay)
-//--------------------------------------------------------------------
-andedad:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		-(a1),d1
-	move.l		a1,\2
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,ea->ay,-(ay)
-//--------------------------------------------------------------------
-andedadd:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		-\2,d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,d16(ay)
-//--------------------------------------------------------------------
-ande16ad:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.w		(a0)+,d1
-	add.l		d1,a1
-	mvs.\3		(a1),d1		
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and.w	dx,d8(ay,dy)
-//--------------------------------------------------------------------
-ande8ad:.macro
-#ifdef	halten_and
-	halt
-#endif
-	move.l		\2,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d1
-	move.l		\1,d0
-.else
-	mvs.\3		(a1),d1
-	mvs.\3		\1,d0
-.endif
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,xxx.w
-//--------------------------------------------------------------------
-andxwe:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // and	dx,xxx.l
-//--------------------------------------------------------------------
-andxle:.macro
-#ifdef	halten_and
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d1
-	and.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	ea,ax
-//--------------------------------------------------------------------
-andaw:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// and.w ea,usp
-//--------------------------------------------------------------------
-andawa7:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	usp?,ax
-//--------------------------------------------------------------------
-andawu:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	usp?,usp
-//--------------------------------------------------------------------
-andawua7:.macro
-	andawu		\1,\2
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	d16(ay),ax
-//--------------------------------------------------------------------
-andawd16a:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	d8(ay,dy),ax
-//--------------------------------------------------------------------
-andawd8a:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	xxx.w,ax
-//--------------------------------------------------------------------
-andawxwax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	xxx.l,ax
-//--------------------------------------------------------------------
-andawxlax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	d16(pc),ax
-//--------------------------------------------------------------------
-andawd16pcax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	d8(pc,dy),ax
-//--------------------------------------------------------------------
-andawd8pcax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.w	#im,ax
-//--------------------------------------------------------------------
-andawim:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.l	d8(ay,dy),ax
-//--------------------------------------------------------------------
-andald8a:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // anda.l	d8(pc,dy),ax
-//--------------------------------------------------------------------
-andald8pcax:.macro
-	jmp			ii_error
-	.endm;
-//*****************************************************************************************
-// spezial addx subx etc.
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// // addx	dy,dx
-//--------------------------------------------------------------------
-anddx:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // addx	-(ay),-(ax)
-//--------------------------------------------------------------------
-anddax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------

sources/ii_dbcc.h

@@ -1,117 +0,0 @@
-//--------------------------------------------------------------------
-// dbcc,trapcc
-//--------------------------------------------------------------------
-.text
-ii_lset_dbcc:.macro 
-// dbra
-	ii_lset_opeau	51,c
-	ii_lset_opeau	52,c
-	ii_lset_opeau	53,c
-	ii_lset_opeau	54,c
-	ii_lset_opeau	55,c
-	ii_lset_opeau	56,c
-	ii_lset_opeau	57,c
-	ii_lset_opeau	58,c
-	ii_lset_opeau	59,c
-	ii_lset_opeau	5a,c
-	ii_lset_opeau	5b,c
-	ii_lset_opeau	5c,c
-	ii_lset_opeau	5d,c
-	ii_lset_opeau	5e,c
-	ii_lset_opeau	5f,c
-.endm
-
-ii_dbcc_func:.macro
-ii_0x51c8:
-		dbra_macro	d0_off+2(a7)
-ii_0x51c9:
-		dbra_macro	d1_off+2(a7)
-ii_0x51ca:
-		dbra_macro	d2
-ii_0x51cb:
-		dbra_macro	d3
-ii_0x51cc:
-		dbra_macro	d4
-ii_0x51cd:
-		dbra_macro	d5
-ii_0x51ce:
-		dbra_macro	d6
-ii_0x51cf:
-		dbra_macro	d7
-//---------------------------------------------------------------------------------------------
-// dbcc dx
-//---------------------------------------------------------------------------------------------
-		ii_dbcc	2,hi
-		ii_dbcc 3,ls
-		ii_dbcc	4,cc
-		ii_dbcc 5,cs
-		ii_dbcc	6,ne
-		ii_dbcc	7,eq
-		ii_dbcc	8,vc
-		ii_dbcc 9,vs
-		ii_dbcc a,pl
-		ii_dbcc b,mi
-		ii_dbcc c,ge
-		ii_dbcc	d,lt
-		ii_dbcc	e,gt
-		ii_dbcc	f,le
-.endm		
-//---------------------------------------------------------------------------------------------
-// dbra dx
-//---------------------------------------------------------------------------------------------
-dbra_macro:.macro
-#ifdef	halten_dbcc
-	halt
-#endif
-		mvz.w	\1,d1				// dx holen
-		subq.l	#1,d1				// dx-1
-		bcc		dbra\@				// bra if plus?
-		addq.l	#2,a0				// offset <20>berspringen		
-		move.w	d1,\1				// dx sichern
- 		ii_end
-dbra\@:
-		move.w	(a0),a1				// offset (wird auf long erweitert)
-		add.l	a1,a0				// dazuadieren
-		move.w	d1,\1				// dx sichern
- 		ii_end
-.endm
-//---------------------------------------------------------------------------------------------
-// dbcc dx
-//---------------------------------------------------------------------------------------------
-dbcc_macro:.macro
-#ifdef	halten_dbcc
-	halt
-#endif
-		b\2		dbncc\@		
-		mvz.w	\1,d1				// dx holen
-		subq.l	#1,d1				// dx-1
-		bcc		dbcc\@				// bra if plus?
-dbncc\@:
-		addq.l	#2,a0				// offset <20>berspringen		
-		move.w	d1,\1				// dx sichern
- 		ii_end
-dbcc\@:
-		move.w	(a0),a1				// offset (wird auf long erweitert)
-		add.l	a1,a0				// dazuadieren
-		move.w	d1,\1				// dx sichern
- 		ii_end
-.endm
-//db
-ii_dbcc:.macro
-ii_0x5\1c8:
-		dbcc_macro	d0_off+2(a7),\2
-ii_0x5\1c9:
-		dbcc_macro	d1_off+2(a7),\2
-ii_0x5\1ca:
-		dbcc_macro	d2,\2
-ii_0x5\1cb:
-		dbcc_macro	d3,\2
-ii_0x5\1cc:
-		dbcc_macro	d4,\2
-ii_0x5\1cd:
-		dbcc_macro	d5,\2
-ii_0x5\1ce:
-		dbcc_macro	d6,\2
-ii_0x5\1cf:
-		dbcc_macro	d7,\2
-.endm

sources/ii_ewf.h

@@ -1,181 +0,0 @@
-//--------------------------------------------------------------------
-// extension word format missing
-//--------------------------------------------------------------------
-.text
-ii_ewf_lset:.macro
-// pea
-	ii_lset_opeag	48,7
-	ii_lset	0x487b 
-// jmp
-	ii_lset_opeag	4e,f
-	ii_lset	0x4efb 
-// jsr
-	ii_lset_opeag	4e,b
-	ii_lset	0x4ebb 
-// tas
-	ii_lset_opeag	4a,f
-	ii_lset	0x4ebb 
-// tst.b
-	ii_lset_opeag	4a,3
-	ii_lset	0x4ebb 
-// tst.w
-	ii_lset_opeag	4a,7
-	ii_lset	0x4ebb 
-// tst.l
-	ii_lset_opeag	4a,b
-	ii_lset	0x4ebb 
-// clr.b
-	ii_lset_opeag	42,3
-	ii_lset	0x423b 
-// clr.w
-	ii_lset_opeag	42,7
-	ii_lset	0x423b 
-// clr.l
-	ii_lset_opeag	42,b
-	ii_lset	0x423b 
-.endm
-//---------------------------------------------------------------------------------------------
-ii_ewf_func:.macro
-	ewf_func_macro	pea,487
-	ewf_func_macro	jmp,4ef
-	ewf_func_macro	jsr,4eb
-	ewf_func_macro	tas,4af
-	ewf_func_macro	tstb,4a3
-	ewf_func_macro	tstw,4a7
-	ewf_func_macro	tstl,4ab
-	ewf_func_macro	clrb,423
-	ewf_func_macro	clrw,427
-	ewf_func_macro	clrl,42b
-.endm
-//---------------------------------------------------------------------------------------------
-pea_macro:.macro
-	jsr		ewf
-	move.l	(a1),d0
-	move.l	usp,a1
-	move.l	d0,-(a1)
-	move.l	a1,usp
-	ii_end
-.endm
-
-jmp_macro:.macro
-	jsr		ewf
-	move.l	a1,a0
-	ii_end
-.endm
-
-jsr_macro:.macro
-	jsr		ewf
-	move.l	a1,d0
-	move.l	usp,a1
-	move.l	a0,-(a1)
-	move.l	a1,usp
-	move.l	d0,a0
-	ii_end
-.endm
-	
-tas_macro:.macro
-	jsr		ewf
-	tas		(a1)
-	set_cc0
-	ii_end
-.endm
-	
-tstb_macro:.macro
-	jsr		ewf
-	tst.b	(a1)
-	set_cc0
-	ii_end
-.endm
-	
-tstw_macro:.macro
-	jsr		ewf
-	tst.w	(a1)
-	set_cc0
-	ii_end
-.endm
-	
-tstl_macro:.macro
-	jsr		ewf
-	tst.l	(a1)
-	set_cc0
-	ii_end
-.endm
-	
-clrb_macro:.macro
-	jsr		ewf
-	clr.b	(a1)
-	set_cc0
-	ii_end
-.endm
-	
-clrw_macro:.macro
-	jsr		ewf
-	clr.w	(a1)
-	set_cc0
-	ii_end
-.endm
-	
-clrl_macro:.macro
-	jsr		ewf
-	clr.l	(a1)
-	set_cc0
-	ii_end
-.endm
-//--------------------------------------------------------------------
-ewf_func_macro:.macro	//1=art 2=code
-ii_0x\20:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a0_off(a7),a1
-	\1_macro
-ii_0x\21:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a1_off(a7),a1
-	\1_macro
-ii_0x\22:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a2,a1
-	\1_macro
-ii_0x\23:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a3,a1
-	\1_macro
-ii_0x\24:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a4,a1
-	\1_macro
-ii_0x\25:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a5,a1
-	\1_macro
-ii_0x\26:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a6,a1
-	\1_macro
-ii_0x\27:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	usp,a1
-	\1_macro
-ii_0x\2b:
-#ifdef	halten_ewf
-	halt
-#endif
-	move.l	a0,a1
-	\1_macro
-.endm		
-

sources/ii_exg.h

@@ -1,120 +0,0 @@
-//--------------------------------------------------------------------
-// exg
-//--------------------------------------------------------------------
-.text
-ii_exg_lset:.macro 
-/*	ii_lset_dxu	c,40	//dx,d0
-	ii_lset_dxu	c,41	//dx,d1
-	ii_lset_dxu	c,42	//dx,d2
-	ii_lset_dxu	c,43	//dx,d3
-	ii_lset_dxu	c,44	//dx,d4
-	ii_lset_dxu	c,45	//dx,d5
-	ii_lset_dxu	c,46	//dx,d6
-	ii_lset_dxu	c,47	//dx,d7
- 	ii_lset_dxu	c,48	//ax,a0
-	ii_lset_dxu	c,49	//ax,a1
-	ii_lset_dxu	c,4a	//ax,a2
-	ii_lset_dxu	c,4b	//ax,a3
-	ii_lset_dxu	c,4c	//ax,a4
-	ii_lset_dxu	c,4d	//ax,a5
-	ii_lset_dxu	c,4e	//ax,a6
-	ii_lset_dxu	c,4f	//ax,a7 */ -->setting by "and"
- 	ii_lset_dxu	c,88	//dx,a0
-	ii_lset_dxu	c,89	//dx,a1
-	ii_lset_dxu	c,8a	//dx,a2
-	ii_lset_dxu	c,8b	//dx,a3
-	ii_lset_dxu	c,8c	//dx,a4
-	ii_lset_dxu	c,8d	//dx,a5
-	ii_lset_dxu	c,8e	//dx,a6
-	ii_lset_dxu	c,8f	//dx,a7  
-.endm
-//---------------------------------------------------------------------------------------------
-ii_exg_func:.macro
-// exg dx,dy
-	ii_exg_dx_dx 14,d0_off(a7)
-	ii_exg_dx_dx 34,d1_off(a7)
-	ii_exg_dx_dx 54,d2
-	ii_exg_dx_dx 74,d3
-	ii_exg_dx_dx 94,d4
-	ii_exg_dx_dx b4,d5
-	ii_exg_dx_dx d4,d6
-	ii_exg_dx_dx f4,d7
-// exg ax,ay
-	ii_exg_to_ax 14,a0_off(a7)
-	ii_exg_to_ax 34,a1_off(a7)
-	ii_exg_to_ax 54,a2
-	ii_exg_to_ax 74,a3
-	ii_exg_to_ax 94,a4
-	ii_exg_to_ax b4,a5
-	ii_exg_to_ax d4,a6
-	ii_exg_to_ax f4,usp
-// exg dx,ay
-	ii_exg_to_ax 18,d0_off(a7)
-	ii_exg_to_ax 38,d1_off(a7)
-	ii_exg_to_ax 58,d2
-	ii_exg_to_ax 78,d3
-	ii_exg_to_ax 98,d4
-	ii_exg_to_ax b8,d5
-	ii_exg_to_ax d8,d6
-	ii_exg_to_ax f8,d7
-.endm		
-//---------------------------------------------------------------------------------------------
-exg_macro:.macro
-#ifdef	halten_exg
-	halt
-#endif
-	move.l	\1,a1
-.ifc	\2,usp
-	move.l	a1,d0
-	move.l	\2,a1
-	move.l	a1,\1	
-	move.l	d0,a1
-.else
-	.ifc	\1,usp
-		move.l	a1,d0
-		move.l	\2,a1
-		move.l	a1,\1	
-		move.l	d0,a1
-	.else
-		move.l	\2,\1
-	.endif
-.endif
-	move.l	a1,\2
-	ii_end
-.endm
-ii_exg_dx_dx:.macro
-ii_0xc\10:
-	exg_macro	\2,d0_off(a7)
-ii_0xc\11:
-	exg_macro	\2,d1_off(a7)
-ii_0xc\12:
-	exg_macro	\2,d2
-ii_0xc\13:
-	exg_macro	\2,d3
-ii_0xc\14:
-	exg_macro	\2,d4
-ii_0xc\15:
-	exg_macro	\2,d5
-ii_0xc\16:
-	exg_macro	\2,d6
-ii_0xc\17:
-	exg_macro	\2,d7
-.endm
-ii_exg_to_ax:.macro
-ii_0xc\18:
-	exg_macro	\2,a0_off(a7)
-ii_0xc\19:
-	exg_macro	\2,a1_off(a7)
-ii_0xc\1a:
-	exg_macro	\2,a2
-ii_0xc\1b:
-	exg_macro	\2,a3
-ii_0xc\1c:
-	exg_macro	\2,a4
-ii_0xc\1d:
-	exg_macro	\2,a5
-ii_0xc\1e:
-	exg_macro	\2,a6
-ii_0xc\1f:
-	exg_macro	\2,usp
-.endm

sources/ii_func.h

@@ -1,945 +0,0 @@
-//--------------------------------------------------------------------
-// functionen macros
-//--------------------------------------------------------------------
-ii_lset_func:.macro
-/******************************************************/
-// byt
-/******************************************************/
-// func.b dy,dx
-	ii_lset_dx	\1,00						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c			
-	ii_lset_dx	\1,01			
-	ii_lset_dx	\1,02			
-	ii_lset_dx	\1,03			
-	ii_lset_dx	\1,04			
-	ii_lset_dx	\1,05			
-	ii_lset_dx	\1,06			
-	ii_lset_dx	\1,07			
-// func.b ax,dx
-	ii_lset_dxu	\1,08			
-	ii_lset_dxu	\1,09			
-	ii_lset_dxu	\1,0a			
-	ii_lset_dxu	\1,0b			
-	ii_lset_dxu	\1,0c			
-	ii_lset_dxu	\1,0d			
-	ii_lset_dxu	\1,0e			
-	ii_lset_dxu	\1,0f			
-// func.b (ax),dx
-	ii_lset_dx	\1,10			
-	ii_lset_dx	\1,11			
-	ii_lset_dx	\1,12			
-	ii_lset_dx	\1,13			
-	ii_lset_dx	\1,14			
-	ii_lset_dx	\1,15			
-	ii_lset_dx	\1,16			
-	ii_lset_dx	\1,17			
-// func.b (ax)+,dx
-	ii_lset_dx	\1,18			
-	ii_lset_dx	\1,19			
-	ii_lset_dx	\1,1a			
-	ii_lset_dx	\1,1b			
-	ii_lset_dx	\1,1c			
-	ii_lset_dx	\1,1d			
-	ii_lset_dx	\1,1e			
-	ii_lset_dx	\1,1f			
-// func.b -(ax),dx
-	ii_lset_dx	\1,20			
-	ii_lset_dx	\1,21			
-	ii_lset_dx	\1,22			
-	ii_lset_dx	\1,23			
-	ii_lset_dx	\1,24			
-	ii_lset_dx	\1,25			
-	ii_lset_dx	\1,26			
-	ii_lset_dx	\1,27			
-// func.b d16(ax),dx
-	ii_lset_dx	\1,28			
-	ii_lset_dx	\1,29			
-	ii_lset_dx	\1,2a			
-	ii_lset_dx	\1,2b			
-	ii_lset_dx	\1,2c			
-	ii_lset_dx	\1,2d			
-	ii_lset_dx	\1,2e			
-	ii_lset_dx	\1,2f			
-// func.b dd8(ax,dy),dx
-	ii_lset_dx	\1,30			
-	ii_lset_dx	\1,31			
-	ii_lset_dx	\1,32			
-	ii_lset_dx	\1,33			
-	ii_lset_dx	\1,34			
-	ii_lset_dx	\1,35			
-	ii_lset_dx	\1,36			
-	ii_lset_dx	\1,37			
-// func.b xxx.w,dx
-	ii_lset_dx	\1,38						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.b xxx.l,dx
-	ii_lset_dx	\1,39						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.b d16(pc),dx
-	ii_lset_dxg	\1,7a						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.b d8(pc,dy),dx
-	ii_lset_dxg	\1,3b						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.b #im,dx
-	ii_lset_dxg	\1,3c						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-/******************************************************/
-// word
-/******************************************************/
-// func.w dy,dx
-	ii_lset_dx	\1,40						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c			
-	ii_lset_dx	\1,41			
-	ii_lset_dx	\1,42			
-	ii_lset_dx	\1,43			
-	ii_lset_dx	\1,44			
-	ii_lset_dx	\1,45			
-	ii_lset_dx	\1,46			
-	ii_lset_dx	\1,47			
-// func.w ax,dx
-	ii_lset_dx	\1,48			
-	ii_lset_dx	\1,49			
-	ii_lset_dx	\1,4a			
-	ii_lset_dx	\1,4b			
-	ii_lset_dx	\1,4c			
-	ii_lset_dx	\1,4d			
-	ii_lset_dx	\1,4e			
-	ii_lset_dx	\1,4f			
-// func.w (ax),dx
-	ii_lset_dx	\1,50			
-	ii_lset_dx	\1,51			
-	ii_lset_dx	\1,52			
-	ii_lset_dx	\1,53			
-	ii_lset_dx	\1,54			
-	ii_lset_dx	\1,55			
-	ii_lset_dx	\1,56			
-	ii_lset_dx	\1,57			
-// func.w (ax)+,dx
-	ii_lset_dx	\1,58			
-	ii_lset_dx	\1,59			
-	ii_lset_dx	\1,5a			
-	ii_lset_dx	\1,5b			
-	ii_lset_dx	\1,5c			
-	ii_lset_dx	\1,5d			
-	ii_lset_dx	\1,5e			
-	ii_lset_dx	\1,5f			
-// func.w -(ax),dx
-	ii_lset_dx	\1,60			
-	ii_lset_dx	\1,61			
-	ii_lset_dx	\1,62			
-	ii_lset_dx	\1,63			
-	ii_lset_dx	\1,64			
-	ii_lset_dx	\1,65			
-	ii_lset_dx	\1,66			
-	ii_lset_dx	\1,67			
-// func.w d16(ax),dx
-	ii_lset_dx	\1,68			
-	ii_lset_dx	\1,69			
-	ii_lset_dx	\1,6a			
-	ii_lset_dx	\1,6b			
-	ii_lset_dx	\1,6c			
-	ii_lset_dx	\1,6d			
-	ii_lset_dx	\1,6e			
-	ii_lset_dx	\1,6f			
-// func.w d8(ax,dy),dx
-	ii_lset_dx	\1,70			
-	ii_lset_dx	\1,71			
-	ii_lset_dx	\1,72			
-	ii_lset_dx	\1,73			
-	ii_lset_dx	\1,74			
-	ii_lset_dx	\1,75			
-	ii_lset_dx	\1,76			
-	ii_lset_dx	\1,77			
-// func.w xxx.w,dx
-	ii_lset_dx	\1,78						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.w xxx.l,dx
-	ii_lset_dx	\1,79						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.w d16(pc),dx
-	ii_lset_dxg	\1,7a						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.w d8(pc,dy),dx
-	ii_lset_dxg	\1,7b						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-// func.w #im,dx
-	ii_lset_dxg	\1,7c						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-/******************************************************/
-// long
-/******************************************************/
-// func.l ax,dx		-> -(ay),-(ax)
-	ii_lset_dxu	\1,c8			
-	ii_lset_dxu	\1,c9			
-	ii_lset_dxu	\1,ca			
-	ii_lset_dxu	\1,cb			
-	ii_lset_dxu	\1,cc			
-	ii_lset_dxu	\1,cd			
-	ii_lset_dxu	\1,ce			
-	ii_lset_dxu	\1,cf			
-// func.w d8(ax,dy),dx
-	ii_lset_dx	\1,b0			
-	ii_lset_dx	\1,b1			
-	ii_lset_dx	\1,b2			
-	ii_lset_dx	\1,b3			
-	ii_lset_dx	\1,b4			
-	ii_lset_dx	\1,b5			
-	ii_lset_dx	\1,b6			
-	ii_lset_dx	\1,b7			
-// func.l d8(pc,dy),dx
-	ii_lset_dxg	\1,bb						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c
-/******************************************************/
-// adress register
-/******************************************************/
-//func.w dy,ax
-	ii_lset_dxg	\1,c0			
-	ii_lset_dxg	\1,c1			
-	ii_lset_dxg	\1,c2			
-	ii_lset_dxg	\1,c3			
-	ii_lset_dxg	\1,c4			
-	ii_lset_dxg	\1,c5			
-	ii_lset_dxg	\1,c6			
-	ii_lset_dxg	\1,c7			
-//func.w ay,ax
-	ii_lset_dxg	\1,c8			
-	ii_lset_dxg	\1,c9			
-	ii_lset_dxg	\1,ca			
-	ii_lset_dxg	\1,cb			
-	ii_lset_dxg	\1,cc			
-	ii_lset_dxg	\1,cd			
-	ii_lset_dxg	\1,ce			
-	ii_lset_dxg	\1,cf			
-//func.w (ay),ax
-	ii_lset_dxg	\1,d0			
-	ii_lset_dxg	\1,d1			
-	ii_lset_dxg	\1,d2			
-	ii_lset_dxg	\1,d3			
-	ii_lset_dxg	\1,d4			
-	ii_lset_dxg	\1,d5			
-	ii_lset_dxg	\1,d6			
-	ii_lset_dxg	\1,d7			
-//func.w (ay)+,ax
-	ii_lset_dxg	\1,d8			
-	ii_lset_dxg	\1,d9			
-	ii_lset_dxg	\1,da			
-	ii_lset_dxg	\1,db			
-	ii_lset_dxg	\1,dc			
-	ii_lset_dxg	\1,dd			
-	ii_lset_dxg	\1,de			
-	ii_lset_dxg	\1,df			
-//func.w -(ay),ax
-	ii_lset_dxg	\1,e0			
-	ii_lset_dxg	\1,e1			
-	ii_lset_dxg	\1,e2			
-	ii_lset_dxg	\1,e3			
-	ii_lset_dxg	\1,e4			
-	ii_lset_dxg	\1,e5			
-	ii_lset_dxg	\1,e6			
-	ii_lset_dxg	\1,e7			
-//func.w d16(ay),ax
-	ii_lset_dxg	\1,e8			
-	ii_lset_dxg	\1,e9			
-	ii_lset_dxg	\1,ea			
-	ii_lset_dxg	\1,eb			
-	ii_lset_dxg	\1,ec			
-	ii_lset_dxg	\1,ed			
-	ii_lset_dxg	\1,ee			
-	ii_lset_dxg	\1,ef			
-//func.w d8(ay,dy),ax
-	ii_lset_dxg	\1,f0			
-	ii_lset_dxg	\1,f1			
-	ii_lset_dxg	\1,f2			
-	ii_lset_dxg	\1,f3			
-	ii_lset_dxg	\1,f4			
-	ii_lset_dxg	\1,f5			
-	ii_lset_dxg	\1,f6			
-	ii_lset_dxg	\1,f7			
-// func.w xxx.w,ax
-	ii_lset_dxg	\1,f8
-// func.w xxx.l,ax
-	ii_lset_dxg	\1,f9
-// func.w d16(pc),ax
-	ii_lset_dxg	\1,fa
-// func.w d8(pc,dy),ax
-	ii_lset_dxg	\1,fb
-// func.w #im,ax
-	ii_lset_dxg	\1,fc
-//--------------------------------------------------------------------
-// ende
-	.endm;	
-/*****************************************************************************************/
-ii_func:.macro
-//--------------------------------------------------------------------
-// byt
-//--------------------------------------------------------------------
-///--------------------------------------------------------------------
-//  func.b	ds,dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,00,\2dd,d0_off+3(a7)		
-	funcbeadx	\1,01,\2dd,d1_off+3(a7)		
-	funcbeadx	\1,02,\2dd,d2		
-	funcbeadx	\1,03,\2dd,d3		
-	funcbeadx	\1,04,\2dd,d4		
-	funcbeadx	\1,05,\2dd,d5		
-	funcbeadx	\1,06,\2dd,d6		
-	funcbeadx	\1,07,\2dd,d7
-//--------------------------------------------------------------------
-//  func.b	(ax),dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,10,\2dda,a0_off(a7)		
-	funcbeadx	\1,11,\2dda,a1_off(a7)		
-	funcbeadx	\1,12,\2dd,(a2)		
-	funcbeadx	\1,13,\2dd,(a3)		
-	funcbeadx	\1,14,\2dd,(a4)		
-	funcbeadx	\1,15,\2dd,(a5)		
-	funcbeadx	\1,16,\2dd,(a6)		
-	funcbeadx	\1,17,\2dda,usp
-//--------------------------------------------------------------------
-//  func.b	(ax)+,dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,18,\2ddai,a0_off(a7)		
-	funcbeadx	\1,19,\2ddai,a1_off(a7)		
-	funcbeadx	\1,1a,\2dd,(a2)+		
-	funcbeadx	\1,1b,\2dd,(a3)+		
-	funcbeadx	\1,1c,\2dd,(a4)+		
-	funcbeadx	\1,1d,\2dd,(a5)+		
-	funcbeadx	\1,1e,\2dd,(a6)+		
-	funcbeadx	\1,1f,\2ddai,usp
-//--------------------------------------------------------------------
-//  func.b	-(ax),dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,20,\2ddad,a0_off(a7)		
-	funcbeadx	\1,21,\2ddad,a1_off(a7)		
-	funcbeadx	\1,22,\2dd,-(a2)		
-	funcbeadx	\1,23,\2dd,-(a3)		
-	funcbeadx	\1,24,\2dd,-(a4)		
-	funcbeadx	\1,25,\2dd,-(a5)		
-	funcbeadx	\1,26,\2dd,-(a6)		
-	funcbeadx	\1,27,\2ddad,usp
-//--------------------------------------------------------------------
-//  func.b	d16(ax),dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,28,\2d16ad,a0_off(a7)		
-	funcbeadx	\1,29,\2d16ad,a1_off(a7)		
-	funcbeadx	\1,2a,\2d16ad,a2		
-	funcbeadx	\1,2b,\2d16ad,a3		
-	funcbeadx	\1,2c,\2d16ad,a4		
-	funcbeadx	\1,2d,\2d16ad,a5		
-	funcbeadx	\1,2e,\2d16ad,a6		
-	funcbeadx	\1,2f,\2d16ad,usp
-//--------------------------------------------------------------------
-//  func.b	d8(ax,dy),dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,30,\2d8ad,a0_off(a7)		
-	funcbeadx	\1,31,\2d8ad,a1_off(a7)		
-	funcbeadx	\1,32,\2d8ad,a2		
-	funcbeadx	\1,33,\2d8ad,a3		
-	funcbeadx	\1,34,\2d8ad,a4		
-	funcbeadx	\1,35,\2d8ad,a5		
-	funcbeadx	\1,36,\2d8ad,a6		
-	funcbeadx	\1,37,\2d8ad,usp
-//--------------------------------------------------------------------
-// func.b xxx.w,dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,38,\2xwd,(a0)+
-//--------------------------------------------------------------------
-// func.b xxx.w,dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,39,\2xld,(a0)+
-//--------------------------------------------------------------------
-// func.b d16(pc),dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,3a,\2d16pcd,(a0)+
-//--------------------------------------------------------------------
-// func.b d8(pc,dy),dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,3b,\2d8pcd,(a0)+	(a0 wird nicht verwendet)
-//--------------------------------------------------------------------
-// func.b	#im,dx
-//--------------------------------------------------------------------
-	funcbeadx	\1,3c,\2bir_macro,(a0)+
-//--------------------------------------------------------------------
-//  func.b	dy,ea
-//--------------------------------------------------------------------
-///--------------------------------------------------------------------
-//  func.b	dx,dd -> addx subx etc. src und dest vertauscht!
-//--------------------------------------------------------------------
-	funcbdxea	\1,00,\2dx,d0_off+3(a7)		
-	funcbdxea	\1,01,\2dx,d1_off+3(a7)		
-	funcbdxea	\1,02,\2dx,d2		
-	funcbdxea	\1,03,\2dx,d3		
-	funcbdxea	\1,04,\2dx,d4		
-	funcbdxea	\1,05,\2dx,d5		
-	funcbdxea	\1,06,\2dx,d6		
-	funcbdxea	\1,07,\2dx,d7
-//--------------------------------------------------------------------
-//  func.b	-(ax),-(ay) addx subx etc. src und dest vertauscht!
-//--------------------------------------------------------------------
-	funcaxay	\1,08,\2dax,a0_off(a7),b		
-	funcaxay	\1,09,\2dax,a1_off(a7).b		
-	funcaxay	\1,0a,\2dax,a2,b		
-	funcaxay	\1,0b,\2dax,a3,b		
-	funcaxay	\1,0c,\2dax,a4,b		
-	funcaxay	\1,0d,\2dax,a5,b		
-	funcaxay	\1,0e,\2dax,a6,b		
-	funcaxay	\1,0f,\2dax,usp,b
-//--------------------------------------------------------------------
-//  func.b	dy,(ax)
-//--------------------------------------------------------------------
-	funcbdxea	\1,10,\2eda,a0_off(a7)		
-	funcbdxea	\1,11,\2eda,a1_off(a7)		
-	funcbdxea	\1,12,\2dd,(a2)		
-	funcbdxea	\1,13,\2dd,(a3)		
-	funcbdxea	\1,14,\2dd,(a4)		
-	funcbdxea	\1,15,\2dd,(a5)		
-	funcbdxea	\1,16,\2dd,(a6)		
-	funcbdxea	\1,17,\2eda,usp
-//--------------------------------------------------------------------
-//  func.b	dy,(ax)+
-//--------------------------------------------------------------------
-	funcbdxea	\1,18,\2edai,a0_off(a7)		
-	funcbdxea	\1,19,\2edai,a1_off(a7)		
-	funcbdxea	\1,1a,\2edaid,(a2)		
-	funcbdxea	\1,1b,\2edaid,(a3)	
-	funcbdxea	\1,1c,\2edaid,(a4)	
-	funcbdxea	\1,1d,\2edaid,(a5)	
-	funcbdxea	\1,1e,\2edaid,(a6)		
-	funcbdxea	\1,1f,\2edai,usp
-//--------------------------------------------------------------------
-//  func.b	dy,-(ax)
-//--------------------------------------------------------------------
-	funcbdxea	\1,20,\2edad,a0_off(a7)		
-	funcbdxea	\1,21,\2edad,a1_off(a7)		
-	funcbdxea	\1,22,\2edadd,(a2)		
-	funcbdxea	\1,23,\2edadd,(a3)		
-	funcbdxea	\1,24,\2edadd,(a4)		
-	funcbdxea	\1,25,\2edadd,(a5)		
-	funcbdxea	\1,26,\2edadd,(a6)		
-	funcbdxea	\1,27,\2edad,usp
-//--------------------------------------------------------------------
-//  func.b	dy,d16(ax)
-//--------------------------------------------------------------------
-	funcbdxea	\1,28,\2e16ad,a0_off(a7)		
-	funcbdxea	\1,29,\2e16ad,a1_off(a7)		
-	funcbdxea	\1,2a,\2e16ad,a2		
-	funcbdxea	\1,2b,\2e16ad,a3		
-	funcbdxea	\1,2c,\2e16ad,a4		
-	funcbdxea	\1,2d,\2e16ad,a5		
-	funcbdxea	\1,2e,\2e16ad,a6		
-	funcbdxea	\1,2f,\2e16ad,usp
-//--------------------------------------------------------------------
-//  func.b	dy,d8(ax,dy)
-//--------------------------------------------------------------------
-	funcbdxea	\1,30,\2e8ad,a0_off(a7)		
-	funcbdxea	\1,31,\2e8ad,a1_off(a7)		
-	funcbdxea	\1,32,\2e8ad,a2		
-	funcbdxea	\1,33,\2e8ad,a3		
-	funcbdxea	\1,34,\2e8ad,a4		
-	funcbdxea	\1,35,\2e8ad,a5		
-	funcbdxea	\1,36,\2e8ad,a6		
-	funcbdxea	\1,37,\2e8ad,usp
-//--------------------------------------------------------------------
-// func.w dy,xxx.w
-//--------------------------------------------------------------------
-	funcwdxea	\1,38,\2xwe,(a0)+
-//--------------------------------------------------------------------
-// func.w dy,xxx.w
-//--------------------------------------------------------------------
-	funcwdxea	\1,39,\2xld,(a0)+
-/*****************************************************************************************/
-// word
-/*****************************************************************************************/
-//  func.w	ds,dx
-//--------------------------------------------------------------------
-	funcweadx	\1,40,\2dd,d0_off+2(a7)		
-	funcweadx	\1,41,\2dd,d1_off+2(a7)		
-	funcweadx	\1,42,\2dd,d2		
-	funcweadx	\1,43,\2dd,d3		
-	funcweadx	\1,44,\2dd,d4		
-	funcweadx	\1,45,\2dd,d5		
-	funcweadx	\1,46,\2dd,d6		
-	funcweadx	\1,47,\2dd,d7
-//--------------------------------------------------------------------
-//  func.w	ax,dx
-//--------------------------------------------------------------------
-	funcweadx	\1,48,\2dd,a0_off+2(a7)		
-	funcweadx	\1,49,\2dd,a1_off+2(a7)		
-	funcweadx	\1,4a,\2dd,a2		
-	funcweadx	\1,4b,\2dd,a3		
-	funcweadx	\1,4c,\2dd,a4		
-	funcweadx	\1,4d,\2dd,a5		
-	funcweadx	\1,4e,\2dd,a6		
-	funcweadx	\1,4f,\2ddd,usp
-//--------------------------------------------------------------------
-//  func.w	(ax),dx
-//--------------------------------------------------------------------
-	funcweadx	\1,50,\2dda,a0_off(a7)		
-	funcweadx	\1,51,\2dda,a1_off(a7)		
-	funcweadx	\1,52,\2dd,(a2)		
-	funcweadx	\1,53,\2dd,(a3)		
-	funcweadx	\1,54,\2dd,(a4)		
-	funcweadx	\1,55,\2dd,(a5)		
-	funcweadx	\1,56,\2dd,(a6)		
-	funcweadx	\1,57,\2dda,usp
-//--------------------------------------------------------------------
-//  func.w	(ax)+,dx
-//--------------------------------------------------------------------
-	funcweadx	\1,58,\2ddai,a0_off(a7)		
-	funcweadx	\1,59,\2ddai,a1_off(a7)		
-	funcweadx	\1,5a,\2dd,(a2)+		
-	funcweadx	\1,5b,\2dd,(a3)+		
-	funcweadx	\1,5c,\2dd,(a4)+		
-	funcweadx	\1,5d,\2dd,(a5)+		
-	funcweadx	\1,5e,\2dd,(a6)+		
-	funcweadx	\1,5f,\2ddai,usp
-//--------------------------------------------------------------------
-//  func.w	-(ax),dx
-//--------------------------------------------------------------------
-	funcweadx	\1,60,\2ddad,a0_off(a7)		
-	funcweadx	\1,61,\2ddad,a1_off(a7)		
-	funcweadx	\1,62,\2dd,-(a2)		
-	funcweadx	\1,63,\2dd,-(a3)		
-	funcweadx	\1,64,\2dd,-(a4)		
-	funcweadx	\1,65,\2dd,-(a5)		
-	funcweadx	\1,66,\2dd,-(a6)		
-	funcweadx	\1,67,\2ddad,usp
-//--------------------------------------------------------------------
-//  func.w	d16(ax),dx
-//--------------------------------------------------------------------
-	funcweadx	\1,68,\2d16ad,a0_off(a7)		
-	funcweadx	\1,69,\2d16ad,a1_off(a7)		
-	funcweadx	\1,6a,\2d16ad,a2		
-	funcweadx	\1,6b,\2d16ad,a3		
-	funcweadx	\1,6c,\2d16ad,a4		
-	funcweadx	\1,6d,\2d16ad,a5		
-	funcweadx	\1,6e,\2d16ad,a6		
-	funcweadx	\1,6f,\2d16ad,usp
-//--------------------------------------------------------------------
-//  func.w	d8(ax,dy),dx
-//--------------------------------------------------------------------
-	funcweadx	\1,70,\2d8ad,a0_off(a7)		
-	funcweadx	\1,71,\2d8ad,a1_off(a7)		
-	funcweadx	\1,72,\2d8ad,a2		
-	funcweadx	\1,73,\2d8ad,a3		
-	funcweadx	\1,74,\2d8ad,a4		
-	funcweadx	\1,75,\2d8ad,a5		
-	funcweadx	\1,76,\2d8ad,a6		
-	funcweadx	\1,77,\2d8ad,usp
-//--------------------------------------------------------------------
-// func.w xxx.w,dx
-//--------------------------------------------------------------------
-	funcweadx	\1,78,\2xwd,(a0)+
-//--------------------------------------------------------------------
-// func.w xxx.w,dx
-//--------------------------------------------------------------------
-	funcweadx	\1,79,\2xld,(a0)+
-//--------------------------------------------------------------------
-// func.w d16(pc),dx
-//--------------------------------------------------------------------
-	funcweadx	\1,7a,\2d16pcd,(a0)+
-//--------------------------------------------------------------------
-// func.w d8(pc,dy),dx
-//--------------------------------------------------------------------
-	funcweadx	\1,7b,\2d8pcd,(a0)+	(a0 wird nicht verwendet)
-//--------------------------------------------------------------------
-// func.w #im,dx
-//--------------------------------------------------------------------
-	funcweadx	\1,7c,\2dd,(a0)+
-//--------------------------------------------------------------------
-//  func.w	dy,ea
-//--------------------------------------------------------------------
-///--------------------------------------------------------------------
-//  func.w	dx,dd -> addx subx etc.
-//--------------------------------------------------------------------
-.ifnc	\2,and			//platz f<>r exg
-	funcwdxea	\1,40,\2dx,d0_off+2(a7)		
-	funcwdxea	\1,41,\2dx,d1_off+2(a7)		
-	funcwdxea	\1,42,\2dx,d2		
-	funcwdxea	\1,43,\2dx,d3		
-	funcwdxea	\1,44,\2dx,d4		
-	funcwdxea	\1,45,\2dx,d5		
-	funcwdxea	\1,46,\2dx,d6		
-	funcwdxea	\1,47,\2dx,d7
-//--------------------------------------------------------------------
-//  func.w	-(ax),-(ay) -> addx,subx
-//--------------------------------------------------------------------
-	funcaxay	\1,48,\2dax,a0_off(a7),w		
-	funcaxay	\1,49,\2dax,a1_off(a7).w		
-	funcaxay	\1,4a,\2dax,a2,w		
-	funcaxay	\1,4b,\2dax,a3,w		
-	funcaxay	\1,4c,\2dax,a4,w		
-	funcaxay	\1,4d,\2dax,a5,w		
-	funcaxay	\1,4e,\2dax,a6,w		
-	funcaxay	\1,4f,\2dax,usp,w
-.endif
-//--------------------------------------------------------------------
-//  func.w	dy,(ax)
-//--------------------------------------------------------------------
-	funcwdxea	\1,50,\2eda,a0_off(a7)		
-	funcwdxea	\1,51,\2eda,a1_off(a7)		
-	funcwdxea	\1,52,\2dd,(a2)		
-	funcwdxea	\1,53,\2dd,(a3)		
-	funcwdxea	\1,54,\2dd,(a4)		
-	funcwdxea	\1,55,\2dd,(a5)		
-	funcwdxea	\1,56,\2dd,(a6)		
-	funcwdxea	\1,57,\2eda,usp
-//--------------------------------------------------------------------
-//  func.w	dy,(ax)+
-//--------------------------------------------------------------------
-	funcwdxea	\1,58,\2edai,a0_off(a7)		
-	funcwdxea	\1,59,\2edai,a1_off(a7)		
-	funcwdxea	\1,5a,\2edaid,(a2)		
-	funcwdxea	\1,5b,\2edaid,(a3)		
-	funcwdxea	\1,5c,\2edaid,(a4)		
-	funcwdxea	\1,5d,\2edaid,(a5)		
-	funcwdxea	\1,5e,\2edaid,(a6)		
-	funcwdxea	\1,5f,\2edai,usp
-//--------------------------------------------------------------------
-//  func.w	dy,-(ax)
-//--------------------------------------------------------------------
-	funcwdxea	\1,60,\2edad,a0_off(a7)		
-	funcwdxea	\1,61,\2edad,a1_off(a7)		
-	funcwdxea	\1,62,\2edadd,(a2)		
-	funcwdxea	\1,63,\2edadd,(a3)		
-	funcwdxea	\1,64,\2edadd,(a4)		
-	funcwdxea	\1,65,\2edadd,(a5)		
-	funcwdxea	\1,66,\2edadd,(a6)		
-	funcwdxea	\1,67,\2edad,usp
-//--------------------------------------------------------------------
-//  func.w	dy,d16(ax)
-//--------------------------------------------------------------------
-	funcwdxea	\1,68,\2e16ad,a0_off(a7)		
-	funcwdxea	\1,69,\2e16ad,a1_off(a7)		
-	funcwdxea	\1,6a,\2e16ad,a2		
-	funcwdxea	\1,6b,\2e16ad,a3		
-	funcwdxea	\1,6c,\2e16ad,a4		
-	funcwdxea	\1,6d,\2e16ad,a5		
-	funcwdxea	\1,6e,\2e16ad,a6		
-	funcwdxea	\1,6f,\2e16ad,usp
-//--------------------------------------------------------------------
-//  func.w	dy,d8(ax,dy)
-//--------------------------------------------------------------------
-	funcwdxea	\1,70,\2e8ad,a0_off(a7)		
-	funcwdxea	\1,71,\2e8ad,a1_off(a7)		
-	funcwdxea	\1,72,\2e8ad,a2		
-	funcwdxea	\1,73,\2e8ad,a3		
-	funcwdxea	\1,74,\2e8ad,a4		
-	funcwdxea	\1,75,\2e8ad,a5		
-	funcwdxea	\1,76,\2e8ad,a6		
-	funcwdxea	\1,77,\2e8ad,usp
-//--------------------------------------------------------------------
-// func.w dy,xxx.w
-//--------------------------------------------------------------------
-	funcwdxea	\1,78,\2xwe,(a0)+
-//--------------------------------------------------------------------
-// func.w dy,xxx.w
-//--------------------------------------------------------------------
-	funcwdxea	\1,79,\2xld,(a0)+
-/*****************************************************************************************/
-// long
-/*****************************************************************************************/
-//--------------------------------------------------------------------
-//  func.l	-(ax),-(ay)
-//--------------------------------------------------------------------
-	funcaxay	\1,c8,\2dax,a0_off(a7),l		
-	funcaxay	\1,c9,\2dax,a1_off(a7).l		
-	funcaxay	\1,ca,\2dax,a2,l		
-	funcaxay	\1,cb,\2dax,a3,l		
-	funcaxay	\1,cc,\2dax,a4,l		
-	funcaxay	\1,cd,\2dax,a5,l		
-	funcaxay	\1,ce,\2dax,a6,l		
-	funcaxay	\1,cf,\2dax,usp,l
-//--------------------------------------------------------------------
-//  func.l	d8(ax,dy),dx
-//--------------------------------------------------------------------
-	funcleadx	\1,b0,\2d8ad,a0_off(a7)		
-	funcleadx	\1,b1,\2d8ad,a1_off(a7)		
-	funcleadx	\1,b2,\2d8ad,a2		
-	funcleadx	\1,b3,\2d8ad,a3		
-	funcleadx	\1,b4,\2d8ad,a4		
-	funcleadx	\1,b5,\2d8ad,a5		
-	funcleadx	\1,b6,\2d8ad,a6		
-	funcleadx	\1,b7,\2d8ad,usp
-//--------------------------------------------------------------------
-// func.l d8(pc,dy),dx
-//--------------------------------------------------------------------
-	funcleadx	\1,bb,\2d8pcd,(a0)+	(a0 wird nicht verwendet)
-//--------------------------------------------------------------------
-//  func.l	dy,d8(ax,dy)
-//--------------------------------------------------------------------
-	funcldxea	\1,b0,\2e8ad,a0_off(a7)		
-	funcldxea	\1,b1,\2e8ad,a1_off(a7)		
-	funcldxea	\1,b2,\2e8ad,a2		
-	funcldxea	\1,b3,\2e8ad,a3		
-	funcldxea	\1,b4,\2e8ad,a4		
-	funcldxea	\1,b5,\2e8ad,a5		
-	funcldxea	\1,b6,\2e8ad,a6		
-	funcldxea	\1,b7,\2e8ad,usp
-/******************************************************/
-// adress register
-/******************************************************/
-//--------------------------------------------------------------------
-// func.w ea,ax
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// func.w	dx,ax
-//--------------------------------------------------------------------
-	funcweaax	\1,c0,\2aw,d0		
-	funcweaax	\1,c1,\2aw,d1		
-	funcweaax	\1,c2,\2aw,d2		
-	funcweaax	\1,c3,\2aw,d3		
-	funcweaax	\1,c4,\2aw,d4		
-	funcweaax	\1,c5,\2aw,d5		
-	funcweaax	\1,c6,\2aw,d6		
-	funcweaax	\1,c7,\2aw,d7		
-//--------------------------------------------------------------------
-// func.w	ay,ax
-//--------------------------------------------------------------------
-	funcweaax	\1,c8,\2aw,a0		
-	funcweaax	\1,c9,\2aw,a1		
-	funcweaax	\1,ca,\2aw,a2		
-	funcweaax	\1,cb,\2aw,a3		
-	funcweaax	\1,cc,\2aw,a4		
-	funcweaax	\1,cd,\2aw,a5		
-	funcweaax	\1,ce,\2aw,a6		
-	funcweaax	\1,cf,\2awu,a7	
-//--------------------------------------------------------------------
-// func.w	(ay),ax
-//--------------------------------------------------------------------
-	funcweaax	\1,d0,\2aw,(a0)		
-	funcweaax	\1,d1,\2aw,(a1)	
-	funcweaax	\1,d2,\2aw,(a2)		
-	funcweaax	\1,d3,\2aw,(a3)		
-	funcweaax	\1,d4,\2aw,(a4)		
-	funcweaax	\1,d5,\2aw,(a5)		
-	funcweaax	\1,d6,\2aw,(a6)		
-	funcweaax	\1,d7,\2awu,(a7)	
-//--------------------------------------------------------------------
-// func.w	(ay)+,ax
-//--------------------------------------------------------------------
-	funcweaax	\1,d8,\2aw,(a0)+		
-	funcweaax	\1,d9,\2aw,(a1)+
-	funcweaax	\1,da,\2aw,(a2)+	
-	funcweaax	\1,db,\2aw,(a3)+		
-	funcweaax	\1,dc,\2aw,(a4)+	
-	funcweaax	\1,dd,\2aw,(a5)+	
-	funcweaax	\1,de,\2aw,(a6)+	
-	funcweaax	\1,df,\2awu,(a7)+	
-//--------------------------------------------------------------------
-// func.w	-(ay),ax
-//--------------------------------------------------------------------
-	funcweaax	\1,e0,\2aw,-(a0)		
-	funcweaax	\1,e1,\2aw,-(a1)
-	funcweaax	\1,e2,\2aw,-(a2)	
-	funcweaax	\1,e3,\2aw,-(a3)		
-	funcweaax	\1,e4,\2aw,-(a4)	
-	funcweaax	\1,e5,\2aw,-(a5)	
-	funcweaax	\1,e6,\2aw,-(a6)	
-	funcweaax	\1,e7,\2awu,-(a7)	
-//--------------------------------------------------------------------
-// func.w	d16(ay),ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,e8,\2awd16a,a0_off(a7)		
-	funcweaaxn	\1,e9,\2awd16a,a1_off(a7)
-	funcweaaxn	\1,ea,\2awd16a,a2	
-	funcweaaxn	\1,eb,\2awd16a,a3		
-	funcweaaxn	\1,ec,\2awd16a,a4	
-	funcweaaxn	\1,ed,\2awd16a,a5	
-	funcweaaxn	\1,ee,\2awd16a,a6	
-	funcweaaxn	\1,ef,\2awd16a,usp	
-//--------------------------------------------------------------------
-// func.w	d8(ay,dy),ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,f0,\2awd8a,a0_off(a7)		
-	funcweaaxn	\1,f1,\2awd8a,a1_off(a7)
-	funcweaaxn	\1,f2,\2awd8a,a2	
-	funcweaaxn	\1,f3,\2awd8a,a3		
-	funcweaaxn	\1,f4,\2awd8a,a4	
-	funcweaaxn	\1,f5,\2awd8a,a5	
-	funcweaaxn	\1,f6,\2awd8a,a6	
-	funcweaaxn	\1,f7,\2awd8a,usp	
-//--------------------------------------------------------------------
-// func.w xxx.w,ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,f8,\2awxwax,(a0)+
-//--------------------------------------------------------------------
-// func.w xxxlw,ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,f9,\2awxlax,(a0)+
-//--------------------------------------------------------------------
-// func.w d16(pc),ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,fa,\2awd16pcax,(a0)+
-//--------------------------------------------------------------------
-// func.w d8(pc,dy),ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,fb,\2awd8pcax,(a0)+	//(a0 wird nicht verwendet)
-//--------------------------------------------------------------------
-// func.w #im,ax
-//--------------------------------------------------------------------
-	funcweaaxn	\1,fc,\2awim,(a0)+	
-//--------------------------------------------------------------------
-// ende
-	.endm;	
-//--------------------------------------------------------------------
-// byt
-funcbeadx:.macro					// function byt: im,dx 
-ii_0x\10\2:			 
-	\3		\4,d0_off+3(a7),b
-ii_0x\12\2:				 
-	\3		\4,d1_off+3(a7),b
-ii_0x\14\2:			 
-	\3		\4,d2,b
-ii_0x\16\2:			 
-	\3		\4,d3,b 
-ii_0x\18\2:			 
-	\3		\4,d4,b 
-ii_0x\1a\2:				 
-	\3		\4,d5,b
-ii_0x\1c\2:			 
-	\3		\4,d6,b
-ii_0x\1e\2:			 
-	\3		\4,d7,b
-	.endm;
-funcbdxea:.macro	// ea(\4) function(\3) dx -> ea
-ii_0x\11\2:
-	\3	d0_off+3(a7),\4,b
-ii_0x\13\2:
-	\3	d1_off+3(a7),\4,b
-ii_0x\15\2:
-	\3	d2,\4,b
-ii_0x\17\2:
-	\3	d3,\4,b
-ii_0x\19\2:
-	\3	d4,\4,b
-ii_0x\1b\2:
-	\3	d5,\4,b
-ii_0x\1d\2:
-	\3	d6,\4,b
-ii_0x\1f\2:
-	\3	d7,\4,b
-	.endm;
-//--------------------------------------------------------------------
-// word
-funcweadx:.macro	// dx function(\3) ea(\4) -> dx 
-ii_0x\10\2:
-	\3	\4,d0_off+2(a7),w
-ii_0x\12\2:
-	\3	\4,d1_off+2(a7),w
-ii_0x\14\2:
-	\3	\4,d2,w
-ii_0x\16\2:
-	\3	\4,d3,w
-ii_0x\18\2:
-	\3	\4,d4,w
-ii_0x\1a\2:
-	\3	\4,d5,w
-ii_0x\1c\2:
-	\3	\4,d6,w
-ii_0x\1e\2:
-	\3	\4,d7,w
-	.endm;
-funcwdxea:.macro	// ea(\4) function(\3) dx -> ea 
-ii_0x\11\2:
-	\3	d0_off+2(a7),\4,w
-ii_0x\13\2:
-	\3	d1_off+2(a7),\4,w
-ii_0x\15\2:
-	\3	d2,\4,w
-ii_0x\17\2:
-	\3	d3,\4,w
-ii_0x\19\2:
-	\3	d4,\4,w
-ii_0x\1b\2:
-	\3	d5,\4,w
-ii_0x\1d\2:
-	\3	d6,\4,w
-ii_0x\1f\2:
-	\3	d7,\4,w
-	.endm;
-//--------------------------------------------------------------------
-// long
-funcleadx:.macro	// dx function(\3) ea(\4) -> dx 
-ii_0x\10\2:
-	\3	\4,d0_off(a7),w
-ii_0x\12\2:
-	\3	\4,d1_off(a7),w
-ii_0x\14\2:
-	\3	\4,d2,w
-ii_0x\16\2:
-	\3	\4,d3,w
-ii_0x\18\2:
-	\3	\4,d4,w
-ii_0x\1a\2:
-	\3	\4,d5,w
-ii_0x\1c\2:
-	\3	\4,d6,w
-ii_0x\1e\2:
-	\3	\4,d7,w
-	.endm;
-funcldxea:.macro	// ea(\4) function(\3) dx -> ea 
-ii_0x\11\2:
-	\3	d0_off(a7),\4,w
-ii_0x\13\2:
-	\3	d1_off(a7),\4,w
-ii_0x\15\2:
-	\3	d2,\4,w
-ii_0x\17\2:
-	\3	d3,\4,w
-ii_0x\19\2:
-	\3	d4,\4,w
-ii_0x\1b\2:
-	\3	d5,\4,w
-ii_0x\1d\2:
-	\3	d6,\4,w
-ii_0x\1f\2:
-	\3	d7,\4,w
-	.endm;
-//--------------------------------------------------------------
-// address
-funcweaax:.macro	// ax function(\3) ea(\4)(ext long!) -> ax 
-ii_0x\10\2:
-	\3	\4,a0
-ii_0x\12\2:
-	\3	\4,a1
-ii_0x\14\2:
-	\3	\4,a2 
-ii_0x\16\2:
-	\3	\4,a3 
-ii_0x\18\2:
-	\3	\4,a4 
-ii_0x\1a\2:
-	\3	\4,a5 
-ii_0x\1c\2:
-	\3	\4,a6 
-ii_0x\1e\2:
-	\3a7 \4,a7 		// "a7" beachten wegen usp
-	.endm;
-funcweaaxn:.macro	// ax function(\3) ea(\4)(ext long!) -> ax 
-ii_0x\10\2:
-	\3	\4,a0_off(a7) 
-ii_0x\12\2:
-	\3	\4,a1_off(a7) 
-ii_0x\14\2:
-	\3	\4,a2 
-ii_0x\16\2:
-	\3	\4,a3 
-ii_0x\18\2:
-	\3	\4,a4 
-ii_0x\1a\2:
-	\3	\4,a5 
-ii_0x\1c\2:
-	\3	\4,a6 
-ii_0x\1e\2:
-	\3	\4,usp 
-	.endm;
-//--------------------------------------------------------------
-// byt, word, long
-//--------------------------------------------------------------
-funcaxay:.macro	// ea(\4) function(\3) dx -> ea,\5 = size
-ii_0x\11\2:
-	\3	a0_off(a7),\4,\5
-ii_0x\13\2:
-	\3	a1_off(a7),\4,\5
-ii_0x\15\2:
-	\3	a2,\4,\5
-ii_0x\17\2:
-	\3	a3,\4,\5
-ii_0x\19\2:
-	\3	a4,\4,\5
-ii_0x\1b\2:
-	\3	a5,\4,\5
-ii_0x\1d\2:
-	\3	a6,\4,\5
-ii_0x\1f\2:
-	\3	usp,\4,\5
-	.endm;

sources/ii_jmp.h

@@ -1,59 +0,0 @@
-//--------------------------------------------------------------------
-// extension word format missing
-//--------------------------------------------------------------------
-ii_\1_func:.macro
-ii_0x\20:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a0_off(a7),a1
-	\1_macro
-ii_0x\21:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a1_off(a7),a1
-	\1_macro
-ii_0x\22:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a2,a1
-	\1_macro
-ii_0x\23:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a3,a1
-	\1_macro
-ii_0x\24:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a4,a1
-	\1_macro
-ii_0x\25:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a5,a1
-	\1_macro
-ii_0x\26:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a6,a1
-	\1_macro
-ii_0x\27:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	usp,a1
-	\1_macro
-ii_0x\2b:
-#ifdef	halten_\1
-	halt
-#endif
-	move.l	a0,a1
-	\1_macro
-.endm		

sources/ii_lea.h

@@ -1,105 +0,0 @@
-//-------------------------------------------------------------------
-// lea
-//-------------------------------------------------------------------
-.text
-ii_lea_lset:.macro
-	ii_lset_dxu 4,f0			// lea d8(a0,dy.w),a0-a7
-	ii_lset_dxu 4,f1			// lea d8(a1,dy.w),a0-a7
-	ii_lset_dxu 4,f2			// lea d8(a2,dy.w),a0-a7
-	ii_lset_dxu 4,f3			// lea d8(a3,dy.w),a0-a7
-	ii_lset_dxu 4,f4			// lea d8(a4,dy.w),a0-a7
-	ii_lset_dxu 4,f5			// lea d8(a5,dy.w),a0-a7
-	ii_lset_dxu 4,f6			// lea d8(a6,dy.w),a0-a7
-	ii_lset_dxu 4,f7			// lea d8(a7,dy.w),a0-a7
-	ii_lset_dxu 4,fb			// lea d8(pc,dy.w),a0-a7
-.endm
-
-//---------------------------------------------------------------------------------------------
-// function
-//---------------------------------------------------------------------------------------------
-ii_lea_sub:.macro
-ii_0x4\1\2:
-#ifdef	halten_lea
-	halt
-#endif
-	move.l	\4,a1
-	jsr		ewf
-	move.l	a1,\3
-	ii_end
-.endm
-ii_lea_func:.macro
-//lea d8(ax,dy.w),a0-a7
-	ii_lea_sub	1,f0,a0_off(a7),a0_off(a7)
-	ii_lea_sub	1,f1,a0_off(a7),a1_off(a7)
-	ii_lea_sub	1,f2,a0_off(a7),a2
-	ii_lea_sub	1,f3,a0_off(a7),a3
-	ii_lea_sub	1,f4,a0_off(a7),a4
-	ii_lea_sub	1,f5,a0_off(a7),a5
-	ii_lea_sub	1,f6,a0_off(a7),a6
-	ii_lea_sub	1,f7,a0_off(a7),usp
-	ii_lea_sub	3,f0,a1_off(a7),a0_off(a7)
-	ii_lea_sub	3,f1,a1_off(a7),a1_off(a7)
-	ii_lea_sub	3,f2,a1_off(a7),a2
-	ii_lea_sub	3,f3,a1_off(a7),a3
-	ii_lea_sub	3,f4,a1_off(a7),a4
-	ii_lea_sub	3,f5,a1_off(a7),a5
-	ii_lea_sub	3,f6,a1_off(a7),a6
-	ii_lea_sub	3,f7,a1_off(a7),usp
-	ii_lea_sub	5,f0,a2,a0_off(a7)
-	ii_lea_sub	5,f1,a2,a1_off(a7)
-	ii_lea_sub	5,f2,a2,a2
-	ii_lea_sub	5,f3,a2,a3
-	ii_lea_sub	5,f4,a2,a4
-	ii_lea_sub	5,f5,a2,a5
-	ii_lea_sub	5,f6,a2,a6
-	ii_lea_sub	5,f7,a2,usp
-	ii_lea_sub	7,f0,a3,a0_off(a7)
-	ii_lea_sub	7,f1,a3,a1_off(a7)
-	ii_lea_sub	7,f2,a3,a2
-	ii_lea_sub	7,f3,a3,a3
-	ii_lea_sub	7,f4,a3,a4
-	ii_lea_sub	7,f5,a3,a5
-	ii_lea_sub	7,f6,a3,a6
-	ii_lea_sub	7,f7,a3,usp
-	ii_lea_sub	9,f0,a4,a0_off(a7)
-	ii_lea_sub	9,f1,a4,a1_off(a7)
-	ii_lea_sub	9,f2,a4,a2
-	ii_lea_sub	9,f3,a4,a3
-	ii_lea_sub	9,f4,a4,a4
-	ii_lea_sub	9,f5,a4,a5
-	ii_lea_sub	9,f6,a4,a6
-	ii_lea_sub	9,f7,a4,usp
-	ii_lea_sub	b,f0,a5,a0_off(a7)
-	ii_lea_sub	b,f1,a5,a1_off(a7)
-	ii_lea_sub	b,f2,a5,a2
-	ii_lea_sub	b,f3,a5,a3
-	ii_lea_sub	b,f4,a5,a4
-	ii_lea_sub	b,f5,a5,a5
-	ii_lea_sub	b,f6,a5,a6
-	ii_lea_sub	b,f7,a6,usp
-	ii_lea_sub	d,f0,a6,a0_off(a7)
-	ii_lea_sub	d,f1,a6,a1_off(a7)
-	ii_lea_sub	d,f2,a6,a2
-	ii_lea_sub	d,f3,a6,a3
-	ii_lea_sub	d,f4,a6,a4
-	ii_lea_sub	d,f5,a6,a5
-	ii_lea_sub	d,f6,a6,a6
-	ii_lea_sub	d,f7,a6,usp
-	ii_lea_sub	f,f0,usp,a0_off(a7)
-	ii_lea_sub	f,f1,usp,a1_off(a7)
-	ii_lea_sub	f,f2,usp,a2
-	ii_lea_sub	f,f3,usp,a3
-	ii_lea_sub	f,f4,usp,a4
-	ii_lea_sub	f,f5,usp,a5
-	ii_lea_sub	f,f6,usp,a6
-	ii_lea_sub	f,f7,usp,usp
-// lea d8(pc,dy.w),az
-	ii_lea_sub	1,fb,a0_off(a7),a0
-	ii_lea_sub	3,fb,a1_off(a7),a0
-	ii_lea_sub	5,fb,a2,a0
-	ii_lea_sub	7,fb,a3,a0
-	ii_lea_sub	9,fb,a4,a0
-	ii_lea_sub	b,fb,a5,a0
-	ii_lea_sub	d,fb,a6,a0
-	ii_lea_sub	f,fb,usp,a0
-.endm

sources/ii_macro.h

@@ -1,144 +0,0 @@
-/*******************************************************/
-// constanten
-/*******************************************************/
-.extern ___RAMBAR1
-.extern _rt_cacr
-.extern _rt_mod
-.extern _rt_ssp
-.extern _rt_usp
-.extern _rt_vbr
-.extern _d0_save
-.extern _a7_save
-
-ii_ss	=		16
-d0_off	=		0
-d1_off	=		4
-a0_off	=		8
-a1_off	=		12
-format_off =	16
-sr_off	=		18
-ccr_off =		19
-pc_off	=		20
-
-#define 	table 	0x20000000-0x8000-0xF000*4 // Adresse Sprungtabelle 	-> 8000=Sprungbereich mod cod, 61k(ohne 0xFxxx!)x4= tabelle
-
-/*******************************************************/
-// allgemeine macros
-/*******************************************************/
-ii_end:	.macro
-		move.l a0,pc_off(a7)
-		movem.l (a7),d0/d1/a0/a1
-		lea ii_ss(a7),a7
-		rte
-		.endm;
-
-set_cc0:.macro
-		move.w	ccr,d0 
-		move.b	d0,ccr_off(a7)
-		.endm;
-
-ii_esr:	.macro					// geht nicht!!??
-		movem.l		(a7),d0/d1/a0/a1
-		lea			ii_ss+8(a7),a7		// stack erh<72>hen
-		move.w		d0,_d0_save			// d0.w sicheren
-		move.w		-6(a7),d0			// sr holen
-		move.w		d0,sr				// sr setzen
-		nop
-		move.w		_d0_save,d0			// d0.w zur<75>ck
-		.endm;
-
-ii_end_mvm:.macro
-		move.l	a0_off(a7),a0
-		lea		16(a7),a7
-		rte
-		.endm;
-
-ii_endj:.macro
-		movem.l	(a7),d0/d1/a0/a1		// register zur<75>ck
-		lea		ii_ss(a7),a7			// korr
-		rte								// ende
-		.endm;
-		
-set_nzvc:.macro							// set ccr bits nzvc
-		move.w	ccr,d1
-		bclr	#4,d1
-		btst	#4,ccr_off(a7)
-		beq		snzvc2\@
-		bset	#4,d1
-snzvc2\@:
-		move.b	d1,ccr_off(a7)
-		.endm;
-		
-set_cc1:.macro
-		move.w	ccr,d1
-		move.b	d1,ccr_off(a7)
-		.endm;
-
-set_cc_b:.macro
-		move.w	ccr,d1
-		btst	#7,d0					// byt negativ?
-		beq		set_cc_b2\@
-		bset	#3,d1					// make negativ
-set_cc_b2\@:
-		move.b	d1,ccr_off(a7)
-		.endm;
-		
-set_cc_w:.macro
-		move.w	ccr,d1
-		btst	#15,d0					// byt negativ?
-		beq		set_cc_w2\@
-		bset	#3,d1					// make negativ
-set_cc_w2\@:
-		move.b	d1,ccr_off(a7)
-		.endm;
-		
-get_pc:	.macro
-		lea.l		(a0),a1
-		.endm;
-
-//--------------------------------------------------------------------
-ii_lset:.macro offs
-		lea	table+\offs*4,a0
-		move.l #ii_\offs,(a0)
-		.endm;
-ii_lset_dx:.macro				// 0x1.22 -> z.B. 1=d,2=4 ->0xd040 -> 0xde40
-		ii_lset_dxg	\1,\2
-		ii_lset_dxu	\1,\2
-		.endm;
-ii_lset_dxg:.macro				// gerade: 0x1.22 -> z.B. 1=d,2=4 ->0xd040 -> 0xde40
-		lea 	table+0x\10\2*4,a0
-		move.l	#ii_0x\10\2,(a0)
-		lea		0x800(a0),a0	// 4 * 0x200
-		move.l	#ii_0x\12\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\14\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\16\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\18\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\1a\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\1c\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\1e\2,(a0)
-		.endm;
-ii_lset_dxu:.macro				// ungerade: 0x1.22 -> z.B. 1=d,2=4 ->0xd140 -> 0xdf40
-		lea	table+0x\11\2*4,a0
-		move.l	#ii_0x\11\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\13\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\15\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\17\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\19\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\1b\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\1d\2,(a0)
-		lea		0x800(a0),a0
-		move.l	#ii_0x\1f\2,(a0)
-		.endm;
-

sources/ii_movem.h

@@ -1,374 +0,0 @@
-//***********************************************************************************/
-// movem
-//***********************************************************************************/
-ii_movem_lset: .macro
-// movem.l rx,xxx.L
-	ii_lset		0x48f9
-// movem.l xxx.L,rx
-	ii_lset		0x4cf9
-// movem.w rx,xxx.L
-	ii_lset		0x48b9
-// movem.w xxx.L,rx
-	ii_lset		0x4cb9
-// movem.l rx,-(ax)
-	ii_lset		0x48e0
-	ii_lset		0x48e1
-	ii_lset		0x48e2
-	ii_lset		0x48e3
-	ii_lset		0x48e4
-	ii_lset		0x48e5
-	ii_lset		0x48e6
-	ii_lset		0x48e7
-// movem.l (ax)+,rx
-	ii_lset		0x4cd8
-	ii_lset		0x4cd9
-	ii_lset		0x4cda
-	ii_lset		0x4cdb
-	ii_lset		0x4cdc
-	ii_lset		0x4cdd
-	ii_lset		0x4cde
-	ii_lset		0x4cdf
-.endm
-//***********************************************************************************/
-ii_movem_func: .macro
-//-------------------------------------------------------------------
-// movem.l
-//--------------------------------------------------------------------
-// movem.l (ax)+,reg
-//--------------------------------------------------------------------
-	.long		0
-az_reg_table:
-	.byte		0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4		// 0-f
-	.byte		1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5		// 10-1f
-	.byte		1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5		// 20-2f
-	.byte		2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6		// 30-3f
-	.byte		1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5		// 40-4f
-	.byte		2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6		// 50
-	.byte		2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6		// 60
-	.byte		3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7		// 70
-	.byte		1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5		// 80-8f
-	.byte		2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6		// 90
-	.byte		2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6		// a0
-	.byte		3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7		// b0
-	.byte		2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6		// c0
-	.byte		3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7		// d0
-	.byte		3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7		// e0
-	.byte		4,5,5,6,5,6,6,7,5,6,6,7,6,7,7,8		// f0
-//-------------------------------------------------------------------------------
-ii_0x48e0:		// movem.l reglist,-(a0)
-	mvm_mem_macro	0x48d0,a0_off(a7),2
-ii_0x48e1:		// movem.l reglist,-(a1)
-	mvm_mem_macro	0x48d1,a1_off(a7),2
-ii_0x48e2:		// movem.l reglist,-(a2)
-	mvm_mem_macro	0x48d2,a2,2
-ii_0x48e3:		// movem.l reglist,-(a3)
-	mvm_mem_macro	0x48d3,a3,2
-ii_0x48e4:		// movem.l reglist,-(a4)
-	mvm_mem_macro	0x48d4,a4,2
-ii_0x48e5:		// movem.l reglist,-(a5)
-	mvm_mem_macro	0x48d5,a5,2
-ii_0x48e6:		// movem.l reglist,-(a6)
-	mvm_mem_macro	0x48d6,a6,2
-ii_0x48e7:		// movem.l reglist,-(a7)
-	mvm_mem_macro	0x48d7,usp,2
-//-------------------------------------------------------------------------------
-ii_0x4cd8:		// movem.l (a0)+,reglist
-	mvm_reg_macro	0x4cd0,0x41e8,2
-ii_0x4cd9:		// movem.l (a1)+,reglist
-	mvm_reg_macro	0x4cd1,0x43e9,2
-ii_0x4cda:		// movem.l (a2)+,reglist
-	mvm_reg_macro	0x4cd2,0x45ea,2
-ii_0x4cdb:		// movem.l (a3)+,reglist
-	mvm_reg_macro	0x4cd3,0x47eb,2
-ii_0x4cdc:		// movem.l (a4)+,reglist
-	mvm_reg_macro	0x4cd4,0x49ec,2
-ii_0x4cdd:		// movem.l (a5)+,reglist
-	mvm_reg_macro	0x4cd5,0x4bed,2
-ii_0x4cde:		// movem.l (a6)+,reglist
-	mvm_reg_macro	0x4cd6,0x4dee,2
-ii_0x4cdf:		// movem.l (a7)+,reglist
-	mvm_reg_macro	0x4cd7,0x4fef,2
-//----------------------------------------------------------------------------
-ii_0x48f9:		// movem.l reg,xxx.L
-#ifdef	halten_movem
-	halt
-#endif
-		move.w		(a0)+,d0
-		move.l		(a0)+,a1
-		movemrm_macro	l
-//---------------------------------------------------------------------------------------------
-ii_0x4cf9:		// movem.l xxx.L,reg
-#ifdef	halten_movem
-	halt
-#endif
-		move.w		(a0)+,d0
-		move.l		(a0)+,a1
-		movemmr_macro	l
-//----------------------------------------------------------------------------
-ii_0x48b9:		// movem.w reg,xxx.L
-#ifdef	halten_movem
-	halt
-#endif
-		move.w		(a0)+,d0
-		move.l		(a0)+,a1
-		movemrm_macro	w
-//---------------------------------------------------------------------------------------------
-ii_0x4cb9:		// movem.w xxx.L,reg
-#ifdef	halten_movem
-	halt
-#endif
-		move.w		(a0)+,d0
-		move.l		(a0)+,a1
-		movemmr_macro	w
-.endm
-//==============================================================
-mvm_mem_macro:.macro
-#ifdef	halten_movem
-	halt
-#endif
-	lea			az_reg_table,a1
-	mvz.b		(a0),d1
-	mvz.b		0(a1,d1)+,d0
-	mvz.b		1(a0),d1
-	mvz.b		0(a1,d1)+,d1
-	add.l		d0,d1
-	lsl.l		#\3,d1				// * anzahl byts pro wert
-	move.l		\2,a1
-	sub.l		d1,a1				// ax-anzahl byts
-	move.l		a1,\2
-	lea			___RAMBAR1,a1
-	move.l		a1,pc_off(a7)
-	move.l		a1,d0
-	addq.l		#1,d0
-   	movec      	d0,RAMBAR1
-	move.w		#\1,(a1)+			// movem.x reg_list,-(a7)
-	move.w		(a0)+,(a1)+			// register list
-	move.w		#0x4ef9,(a1)+		// jmp.l
-	move.l		a0,(a1)				// r<>cksprungadresse
-   	move.l 		#___RAMBAR1 + 0x81,d0	// instruction
-   	movec      	d0,RAMBAR1
-	movem.l		(a7),d0/d1/a0/a1
-	lea			ii_ss(a7),a7		// stack erh<72>hen
-	rte
-.endm
-//---------------------------------------------------------------------------------
-mvm_reg_macro:.macro
-#ifdef	halten_movem
-	halt
-#endif
-	lea			az_reg_table,a1
-	mvz.b		(a0),d1
-	mvz.b		0(a1,d1)+,d0
-	mvz.b		1(a0),d1
-	mvz.b		0(a1,d1)+,d1
-	add.l		d0,d1
-	lea			___RAMBAR1,a1
-	move.l		a1,pc_off(a7)
-	move.l		a1,d0
-	addq.l		#1,d0
-   	movec      	d0,RAMBAR1
-	move.w		#\1,(a1)+			// movem.x (ax),reg_list
-	move.w		(a0)+,(a1)+			// register list
-	move.w		#\2,(a1)+			// lea 0(ax),ax
-	lsl.l		#\3,d1				// * anzahl byts pro wert
-	move.w		d1,(a1)+			// offset von lea
-	move.w		#0x4ef9,(a1)+		// jmp.l
-	move.l		a0,(a1)				// r<>cksprungadresse
-   	move.l 		#___RAMBAR1 + 0x81,d0	// instruction
-   	movec      	d0,RAMBAR1
-	movem.l		(a7),d0/d1/a0/a1
-	lea			ii_ss(a7),a7		// stack erh<72>hen
-	rte
-.endm
-//---------------------------------------------------------------------------------
-movemrm_macro:.macro				// in d0 register liste, in a1 zieladresse
-#ifdef	halten_movem
-	halt
-#endif
-		tst.b	d0					// datenregister zu verschieben?
-		bne		mrm_dx\@				// ja->
-		lsr.l	#8,d0				// sonst zu addressregister
-		jmp		mmrm_nd7\@			// ->
-mrm_dx\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd0\@
-.ifc	1,l
-		move.l	d0_off(a7),(a1)+
-.else
-		move.w	d0_off+2(a7),(a1)+
-.endif
-mmrm_nd0\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd1\@
-.ifc	1,l
-		move.l	d1_off(a7),(a1)+
-.else
-		move.w	d1_off+2(a7),(a1)+
-.endif
-mmrm_nd1\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd2\@
-		move.\1	d2,(a1)+
-mmrm_nd2\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd3\@
-		move.\1	d3,(a1)+
-mmrm_nd3\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd4\@
-		move.\1	d4,(a1)+
-mmrm_nd4\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd5\@
-		move.\1	d5,(a1)+
-mmrm_nd5\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd6\@
-		move.l	d6,(a1)+
-mmrm_nd6\@:
-		lsr.l	#1,d0
-		bcc		mmrm_nd7\@
-		move.\1	d7,(a1)+
-mmrm_nd7\@:
-		tst.b	d0					// addressregister zu verschieben?
-		beq		mmrm_na7\@
-		lsr.l	#1,d0
-		bcc		mmrm_na0\@
-.ifc	1,l
-		move.l	a0_off(a7),(a1)+
-.else
-		move.w	a0_off+2(a7),(a1)+
-.endif
-mmrm_na0\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na1\@
-.ifc	1,l
-		move.l	a1_off(a7),(a1)+
-.else
-		move.w	a1_off+2(a7),(a1)+
-.endif
-mmrm_na1\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na2\@
-		move.\1	a2,(a1)+
-mmrm_na2\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na3\@
-		move.\1	a3,(a1)+
-mmrm_na3\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na4\@
-		move.\1	a4,(a1)+
-mmrm_na4\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na5\@
-		move.\1	a5,(a1)+
-mmrm_na5\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na6\@
-		move.\1	a6,(a1)+
-mmrm_na6\@:
-		lsr.l	#1,d0
-		bcc		mmrm_na7\@
-		move.l	a0,d1		// sichern
-		move.l	usp,a0		// ist ja usp
-		move.\1	a0,(a1)+	// nach a0
-		move.l	d1,a0		// pc zur<75>ck
-mmrm_na7\@:
-		ii_end
-		.endm
-//---------------------------------------------------------------------------------------------
-movemmr_macro:.macro				// in d0 register liste, in a1 source adr
-#ifdef	halten_movem
-	halt
-#endif
-		tst.b	d0					// datenregister zu verschieben?
-		bne		mmr_dx\@				// ja->
-		lsr.l	#8,d0				// sonst zu addressregister
-		bra		mmmr_nd7\@			// ->
-mmr_dx\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd0\@
-.ifc	1,l
-		move.l	(a1)+,d0_off(a7)
-.else
-		move.w	(a1)+,d0_off+2(a7)
-.endif
-mmmr_nd0\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd1\@
-.ifc	1,l
-		move.l	(a1)+,d1_off(a7)
-.else
-		move.w	(a1)+,d1_off+2(a7)
-.endif
-mmmr_nd1\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd2\@
-		move.\1	(a1)+,d2
-mmmr_nd2\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd3\@
-		move.\1	(a1)+,d3
-mmmr_nd3\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd4\@
-		move.\1	(a1)+,d4
-mmmr_nd4\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd5\@
-		move.\1	(a1)+,d5
-mmmr_nd5\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd6\@
-		move.\1	(a1)+,d6
-mmmr_nd6\@:
-		lsr.l	#1,d0
-		bcc		mmmr_nd7\@
-		move.\1	(a1)+,d7
-mmmr_nd7\@:
-		tst.b	d0					// addressregister zu verschieben?
-		beq		mmmr_na7\@			// nein->
-		lsr.l	#1,d0
-		bcc		mmmr_na0\@
-.ifc	1,l
-		move.l	(a1)+,a0_off(a7)
-.else
-		move.w	(a1)+,a0_off+2(a7)
-.endif
-mmmr_na0\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na1\@
-.ifc	1,l
-		move.l	(a1)+,a1_off(a7)
-.else
-		move.w	(a1)+,a1_off+2(a7)
-.endif
-mmmr_na1\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na2\@
-		move.\1	(a1)+,a2
-mmmr_na2\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na3\@
-		move.\1	(a1)+,a3
-mmmr_na3\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na4\@
-		move.\1	(a1)+,a4
-mmmr_na4\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na5\@
-		move.\1	(a1)+,a5
-mmmr_na5\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na6\@
-		move.\1	(a1)+,a6
-mmmr_na6\@:
-		lsr.l	#1,d0
-		bcc		mmmr_na7\@
-		move.\1	(a1)+,a1	// nach a0
-		move.l	a1,usp		// war ja usp
-mmmr_na7\@:
-		ii_end
-		.endm		

sources/ii_movep.h

@@ -1,179 +0,0 @@
-//--------------------------------------------------------------------
-// movep
-//--------------------------------------------------------------------
-.text
-ii_movep_lset:.macro 
-	ii_lset_opeau	01,0	//movep.w d(a0-7),d0
-	ii_lset_opeau	03,0	//movep.w d(a0-7),d1
-	ii_lset_opeau	05,0	//movep.w d(a0-7),d2
-	ii_lset_opeau	07,0	//movep.w d(a0-7),d3
-	ii_lset_opeau	09,0	//movep.w d(a0-7),d4
-	ii_lset_opeau	0b,0	//movep.w d(a0-7),d5
-	ii_lset_opeau	0d,0	//movep.w d(a0-7),d6
-	ii_lset_opeau	0f,0	//movep.w d(a0-7),d7
-
-	ii_lset_opeau	01,4	//movep.w d0,d(a0-7)
-	ii_lset_opeau	03,4	//movep.w d1,d(a0-7)
-	ii_lset_opeau	05,4	//movep.w d2,d(a0-7)
-	ii_lset_opeau	07,4	//movep.w d3,d(a0-7)
-	ii_lset_opeau	09,4	//movep.w d4,d(a0-7)
-	ii_lset_opeau	0b,4	//movep.w d5,d(a0-7)
-	ii_lset_opeau	0d,4	//movep.w d6,d(a0-7)
-	ii_lset_opeau	0f,4	//movep.w d7,d(a0-7)
-
-	ii_lset_opeau	01,8	//movep.l d(a0-7),d0
-	ii_lset_opeau	03,8	//movep.l d(a0-7),d1
-	ii_lset_opeau	05,8	//movep.l d(a0-7),d2
-	ii_lset_opeau	07,8	//movep.l d(a0-7),d3
-	ii_lset_opeau	09,8	//movep.l d(a0-7),d4
-	ii_lset_opeau	0b,8	//movep.l d(a0-7),d5
-	ii_lset_opeau	0d,8	//movep.l d(a0-7),d6
-	ii_lset_opeau	0f,8	//movep.l d(a0-7),d7
-
-	ii_lset_opeau	01,c	//movep.l d0,d(a0-7)
-	ii_lset_opeau	03,c	//movep.l d1,d(a0-7)
-	ii_lset_opeau	05,c	//movep.l d2,d(a0-7)
-	ii_lset_opeau	07,c	//movep.l d3,d(a0-7)
-	ii_lset_opeau	09,c	//movep.l d4,d(a0-7)
-	ii_lset_opeau	0b,c	//movep.l d5,d(a0-7)
-	ii_lset_opeau	0d,c	//movep.l d6,d(a0-7)
-	ii_lset_opeau	0f,c	//movep.l d7,d(a0-7)
-.endm
-//---------------------------------------------------------------------------------------------
-ii_movep_func:.macro
-//movep.w d(a0-7),d0-7
-	ii_movep		010,d0_off(a7),wad
-	ii_movep		030,d1_off(a7),wad
-	ii_movep		050,d2,wad
-	ii_movep		070,d3,wad
-	ii_movep		090,d4,wad
-	ii_movep		0b0,d5,wad
-	ii_movep		0d0,d6,wad
-	ii_movep		0f0,d7,wad
-//movep.w d0-7,d(a0-7)
-	ii_movep		014,d0_off(a7),wda
-	ii_movep		034,d1_off(a7),wda
-	ii_movep		054,d2,wda
-	ii_movep		074,d3,wda
-	ii_movep		094,d4,wda
-	ii_movep		0b4,d5,wda
-	ii_movep		0d4,d6,wda
-	ii_movep		0f4,d7,wda
-//movep.l d(a0-7),d0-7
-	ii_movep		018,d0_off(a7),lad
-	ii_movep		038,d1_off(a7),lad
-	ii_movep		058,d2,lad
-	ii_movep		078,d3,lad
-	ii_movep		098,d4,lad
-	ii_movep		0b8,d5,lad
-	ii_movep		0d8,d6,lad
-	ii_movep		0f8,d7,lad
-//movep.l d0-7,d(a0-7)
-	ii_movep		01c,d0_off(a7),lda
-	ii_movep		03c,d1_off(a7),lda
-	ii_movep		05c,d2,lda
-	ii_movep		07c,d3,lda
-	ii_movep		09c,d4,lda
-	ii_movep		0bc,d5,lda
-	ii_movep		0dc,d6,lda
-	ii_movep		0fc,d7,lda
-.endm		
-//---------------------------------------------------------------------------------------------
-ii_movep:.macro	//1=code ziffer 1-3 2=register 3=art
-ii_0x\18:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a0_off(a7),a1
-	ii_movep\3_up1	\2
-ii_0x\19:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a1_off(a7),a1
-	ii_movep\3_up1	\2
-ii_0x\1a:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a2,a1
-	ii_movep\3_up1	\2
-ii_0x\1b:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a3,a1
-	ii_movep\3_up1	\2
-ii_0x\1c:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a4,a1
-	ii_movep\3_up1	\2
-ii_0x\1d:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a5,a1
-	ii_movep\3_up1	\2
-ii_0x\1e:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			a6,a1
-	ii_movep\3_up1	\2
-ii_0x\1f:
-#ifdef	halten_movep
-	halt
-#endif
-	move.l			usp,a1
-	ii_movep\3_up1	\2
-.endm	
-	
-ii_movepwad_up1:.macro
-	mvs.w			(a0)+,d1
-	add.l			d1,a1
-	move.b			(a1),d0
-	lsl.l			#8,d0
-	move.b			2(a1,d1.l),d0
-	move.w			d0,\1
-	ii_end
-.endm
-
-ii_movepwda_up1:.macro
-	mvs.w			(a0)+,d1
-	add.l			d1,a1
-	move.w			\1,d0
-	move.b			d0,2(a1)
-	lsr.l			#8,d0
-	move.b			d0,(a1)
-	ii_end
-.endm
-	
-ii_moveplad_up1:.macro
-	mvs.w			(a0)+,d1
-	add.l			d1,a1
-	move.b			(a1),d0
-	lsl.l			#8,d0
-	move.b			2(a1),d0
-	lsl.l			#8,d0
-	move.b			4(a1),d0
-	lsl.l			#8,d0
-	move.b			6(a1),d0
-	move.l			d0,\1
-	ii_end
-.endm
-
-ii_moveplda_up1:.macro
-	mvs.w			(a0)+,d1
-	add.l			d1,a1
-	move.l			\1,d0
-	move.b			d0,6(a1)
-	lsr.l			#8,d0
-	move.b			d0,4(a1)
-	lsr.l			#8,d0
-	move.b			d0,2(a1)
-	lsr.l			#8,d0
-	move.b			d0,(a1)
-	ii_end
-.endm

sources/ii_op.h

@@ -1,661 +0,0 @@
-/*****************************************************************************************/
-// opertionen
-/*****************************************************************************************/
-ii_lset_op:.macro
-//byt
-	ii_lset_opea	\1,0			// dx,ax
-	ii_lset_opea	\1,1			// (ax), (ax)+
-	ii_lset_opea	\1,2			// -(ax),d16(ax)
-	ii_lset_opeag	\1,3			// d8(ax,dy)
-	lea	table+0x\1\238*4,a0
-	move.l	#ii_0x\138,(a0)+		// xxx.w
-	move.l	#ii_0x\139,(a0)+		// xxx.l
-//word
-	ii_lset_opea	\1,4			// dx,ax
-	ii_lset_opea	\1,5			// (ax), (ax)+
-	ii_lset_opea	\1,6			// -(ax),d16(ax)
-	ii_lset_opeag	\1,7			// d8(ax,dy)
-	lea	table+0x\178*4,a0
-	move.l	#ii_0x\178,(a0)+		// xxx.w
-	move.l	#ii_0x\179,(a0)+		// xxx.l
-//long
-	ii_lset_opea	\1,8			// dx,ax
-	ii_lset_opea	\1,9			// (ax), (ax)+
-	ii_lset_opea	\1,a			// -(ax),d16(ax)
-	ii_lset_opeag	\1,b			// d8(ax,dy)
-	lea	table+0x\1b8*4,a0
-	move.l	#ii_0x\1b8,(a0)+		// xxx.w
-	move.l	#ii_0x\1b9,(a0)+		// xxx.l
-	.endm
-
-ii_lset_opeag:.macro				// 0x1120-0x1127 
-	lea	table+0x\1\20*4,a0
-	move.l	#ii_0x\1\20,(a0)+
-	move.l	#ii_0x\1\21,(a0)+
-	move.l	#ii_0x\1\22,(a0)+
-	move.l	#ii_0x\1\23,(a0)+
-	move.l	#ii_0x\1\24,(a0)+
-	move.l	#ii_0x\1\25,(a0)+
-	move.l	#ii_0x\1\26,(a0)+
-	move.l	#ii_0x\1\27,(a0)+
-	.endm;
-	
-ii_lset_opeau:.macro				// 0x1128-0x112f 
-	lea	table+0x\1\28*4,a0
-	move.l	#ii_0x\1\28,(a0)+
-	move.l	#ii_0x\1\29,(a0)+
-	move.l	#ii_0x\1\2a,(a0)+
-	move.l	#ii_0x\1\2b,(a0)+
-	move.l	#ii_0x\1\2c,(a0)+
-	move.l	#ii_0x\1\2d,(a0)+
-	move.l	#ii_0x\1\2e,(a0)+
-	move.l	#ii_0x\1\2f,(a0)+
-	.endm;
-
-ii_lset_opea:.macro
-	ii_lset_opeag	\1,\2
-	ii_lset_opeau	\1,\2
-	.endm
-/******************************************************/
-ii_op:.macro	// 1=code 2=operation 3 = normal oder immediat/quick
-// byt
-	opdx	\1,\2,b,0,\3		// dx,ax
-	opia	\1,\2,b,1,\3		// (ax),(ax)+
-	opdia	\1,\2,b,2,\3		// -(ax),d16(ax)
-	opd8a	\1,\2,b,3,\3		// d8(ax),xxx
-// word
-	opdx	\1,\2,w,4,\3		// dx,ax
-	opia	\1,\2,w,5,\3		// (ax),(ax)+
-	opdia	\1,\2,w,6,\3		// -(ax),d16(ax)
-	opd8a	\1,\2,w,7,\3		// d8(ax),xxx
-// long
-	opdx	\1,\2,l,8,\3		// dx,ax
-	opia	\1,\2,l,9,\3		// (ax),(ax)+
-	opdia	\1,\2,l,a,\3		// -(ax),d16(ax)
-	opd8a	\1,\2,l,b,\3		// d8(ax),xxx
-	.endm
-/******************************************************/
-// byt word long
-/******************************************************/
-opdx:	.macro	//register: \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal
-ii_0x\1\40:
-	.ifc	\3,b
-		op\5smd	\2,d0_off+3(a7),d0_off+3(a7),\3
-	.else
-		.ifc		\3,w
-			op\5smd	\2,d0_off+2(a7),d0_off+2(a7),\3
-		.else
-			op\5smd	\2,d0_off(a7),d0_off(a7),\3
-		.endif
-	.endif
-ii_0x\1\41:
-	.ifc	\3,b
-		op\5smd	\2,d1_off+3(a7),d1_off+3(a7),\3
-	.else
-		.ifc		\3,w
-			op\5smd	\2,d1_off+2(a7),d1_off+2(a7),\3
-		.else
-			op\5smd	\2,d1_off(a7),d1_off(a7),\3
-		.endif
-.endif
-ii_0x\1\42:
-	op\5smd	\2,d2,d2,\3
-ii_0x\1\43:
-	op\5smd	\2,d3,d3,\3
-ii_0x\1\44:
-	op\5smd	\2,d4,d4,\3
-ii_0x\1\45:
-	op\5smd	\2,d5,d5,\3
-ii_0x\1\46:
-	op\5smd	\2,d6,d6,\3
-ii_0x\1\47:
-	op\5smd	\2,d7,d7,\3
-//ax
-ii_0x\1\48:
-	opa\5smd	\2,a0_off(a7),a0_off(a7),\3
-ii_0x\1\49:
-	opa\5smd	\2,a1_off(a7),a1_off(a7),\3
-ii_0x\1\4a:
-	opa\5smd	\2,a2,a2,\3
-ii_0x\1\4b:
-	opa\5smd	\2,a3,a3,\3
-ii_0x\1\4c:
-	opa\5smd	\2,a4,a4,\3
-ii_0x\1\4d:
-	opa\5smd	\2,a5,a5,\3
-ii_0x\1\4e:
-	opa\5smd	\2,a6,a6,\3
-ii_0x\1\4f:
-	opa\5smd	\2,usp,usp,\3
-.endm;
-//-----------------------------------------------
-opia:	.macro	// (ax) \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal
-//(ax)
-ii_0x\1\40:
-	op\5sia	\2,a0_off(a7),(a1),(a1),\3
-ii_0x\1\41:
-	op\5sia	\2,a1_off(a7),(a1),(a1),\3
-ii_0x\1\42:
-	op\5smd	\2,(a2),(a2),\3
-ii_0x\1\43:
-	op\5smd	\2,(a3),(a3),\3
-ii_0x\1\44:
-	op\5smd	\2,(a4),(a4),\3
-ii_0x\1\45:
-	op\5smd	\2,(a5),(a5),\3
-ii_0x\1\46:
-	op\5smd	\2,(a6),(a6),\3
-ii_0x\1\47:
-	op\5sia	\2,usp,(a1),(a1),\3
-//(ax)+
-ii_0x\1\48:
-	op\5sia	\2,a0_off(a7),(a1),(a1)+,\3
-ii_0x\1\49:
-	op\5sia	\2,a1_off(a7),(a1),(a1)+,\3
-ii_0x\1\4a:
-	op\5smd	\2,(a2),(a2)+,\3
-ii_0x\1\4b:
-	op\5smd	\2,(a3),(a3)+,\3
-ii_0x\1\4c:
-	op\5smd	\2,(a4),(a4)+,\3
-ii_0x\1\4d:
-	op\5smd	\2,(a5),(a5)+,\3
-ii_0x\1\4e:
-	op\5smd	\2,(a6),(a6)+,\3
-ii_0x\1\4f:
-	op\5sia	\2,usp,(a1),(a1)+,\3
-.endm;
-//-----------------------------------------------
-opdia:	.macro	// -(ax) \1=code \2 = operation \3 = size \4 size and adressierungsart 5 = immediate oder normal
-ii_0x\1\40:
-	op\5sia	\2,a0_off(a7),-(a1),(a1),\3
-ii_0x\1\41:
-	op\5sia	\2,a1_off(a7),-(a1),(a1),\3
-ii_0x\1\42:
-	op\5smd	\2,-(a2),(a2),\3
-ii_0x\1\43:
-	op\5smd	\2,-(a3),(a3),\3
-ii_0x\1\44:
-	op\5smd	\2,-(a4),(a4),\3
-ii_0x\1\45:
-	op\5smd	\2,-(a5),(a5),\3
-ii_0x\1\46:
-	op\5smd	\2,-(a6),(a6),\3
-ii_0x\1\47:
-	op\5sia	\2,usp,-(a1),(a1),\3
-
-ii_0x\1\48:
-	op\5sd16a	\2,a0_off(a7),\3
-ii_0x\1\49:
-	op\5sd16a	\2,a1_off(a7),\3
-ii_0x\1\4a:
-	op\5sd16a	\2,a2,\3
-ii_0x\1\4b:
-	op\5sd16a	\2,a3,\3
-ii_0x\1\4c:
-	op\5sd16a	\2,a4,\3
-ii_0x\1\4d:
-	op\5sd16a	\2,a5,\3
-ii_0x\1\4e:
-	op\5sd16a	\2,a6,\3
-ii_0x\1\4f:
-	op\5sd16a	\2,usp,\3
-.endm;
-//-----------------------------------------------
-opd8a:	.macro	// d8(ax,dy) \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal
-ii_0x\1\40:
-	op\5sd8a	\2,a0_off(a7),\3
-ii_0x\1\41:
-	op\5sd8a	\2,a1_off(a7),\3
-ii_0x\1\42:
-	op\5sd8a	\2,a2,\3
-ii_0x\1\43:
-	op\5sd8a	\2,a3,\3
-ii_0x\1\44:
-	op\5sd8a	\2,a4,\3
-ii_0x\1\45:
-	op\5sd8a	\2,a5,\3
-ii_0x\1\46:
-	op\5sd8a	\2,a6,\3
-ii_0x\1\47:
-	op\5sd8a	\2,usp,\3
-
-ii_0x\1\48:
-	op\5sxx		\2,\3,w
-ii_0x\1\49:
-	op\5sxx		\2,\3,l
-.endm;
-//-----------------------------------------------
-opnsmd:.macro		// direct dx: 1=operation	2=ea src 3=ea dest 4=size
-#ifdef	halten_op
-	halt
-#endif
-.ifc	\4,l
-	move.l	\2,d1
-.else
-	mvs.\4	\2,d1
-.endif
-	.ifc	\1,negx
-		move.b		sr_off+1(a7),d1			//ccr holen
-		move		d1,ccr					//setzen
-	.endif		
-	\1	d1
-	set_cc0
-	move.\4		d1,\3
-	ii_end
-	.endm;
-
-opansmd:.macro		// direct ax: 1=operation	2=ea src 3=ea dest 4=size
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\2,usp
-		move.l	usp,a1
-		move.l	a1,d1
-.else
-		move.l		\2,d1
-.endif
-	\1	d1
-.ifc	\3,usp
-	move.l		d1,a1
-	move.l		a1,usp
-.else
-	move.l		d1,\3
-.endif
-	ii_end
-.endm;
-
-opnsia:.macro		// indirect: 1=operation 2=adress register 3= src 4=dest 5=size
-#ifdef	halten_op
-	halt
-#endif
-	move.l	\2,a1
-.ifc	\5,l
-	move.l	\3,d1
-.else
-	mvs.\5	\3,d1
-.endif
-	.ifc	\1,negx
-		move.b		sr_off+1(a7),d1			//ccr holen
-		move		d1,ccr					//setzen
-	.endif		
-	\1	d1
-	set_cc0
-	move.\5	d1,\4
-	ii_end
-	.endm;
-
-opnsd16a:.macro		// indirect: 1=operation 2=adress register 3=size
-#ifdef	halten_op
-	halt
-#endif
-	move.l	\2,a1
-	mvs.w	(a0)+,d1
-	add.l	d1,a1
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-	.ifc	\1,negx
-		move.b		sr_off+1(a7),d1			//ccr holen
-		move		d1,ccr					//setzen
-	.endif		
-	\1	d1
-	set_cc0
-	move.\3	d1,(a1)
-	ii_end
-	.endm;
-
-opnsd8a:.macro		// indirect: 1=operation 2=adress register 3=size
-#ifdef	halten_op
-	halt
-#endif
-	move.l	\2,a1
-	jsr		ewf
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-	.ifc	\1,negx
-		move.b		sr_off+1(a7),d1			//ccr holen
-		move		d1,ccr					//setzen
-	.endif		
-	\1	d1
-	set_cc0
-	move.\3	d1,(a1)
-	ii_end
-	.endm;
-
-opnsxx:.macro		// indirect: 1=operation 2=size 3=size adresse
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\2,l
-	move.l	(a1),d1
-.else
-	mvs.\2	(a1),d1
-.endif
-	move.\3	(a0)+,a1
-	.ifc	\1,negx
-		move.b		sr_off+1(a7),d1			//ccr holen
-		move		d1,ccr					//setzen
-	.endif		
-	\1	d1
-	set_cc0
-	move.\2	d1,(a1)
-	ii_end
-	.endm;
-//*******************************************************************************3
-opismd:.macro		// immediate dx: 1=opieration	2=ea src 3=ea dest 4=size
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-.ifc	\4,l
-	move.l	\2,d1
-.else
-	mvs.\4	\2,d1
-.endif
-	\1	d0,d1
-	set_cc0
-.ifnc	\1,cmp.l
-	move.\4		d1,\3
-.endif
-	ii_end
-.endm;
-
-opaismd:.macro		// immediate ax: 1=opieration	2=ea src 3=ea dest 4=size
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-.ifc	\2,usp
-		move.l	usp,a1
-		move.l	a1,d1
-.else
-		move.l		\2,d1
-.endif
-	\1	d0,d1
-.ifnc	\1,cmp.l
-.ifc	\3,usp
-	move.l		d1,a1
-	move.l		a1,usp
-.else
-	move.l		d1,\3
-.endif
-.endif
-	ii_end
-.endm;
-
-opisia:.macro		// indirect: 1=opieration 2=adress register 3= src 4=dest 5=size
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\5,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\5,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.l	\2,a1
-.ifc	\5,l
-	move.l	\3,d1
-.else
-	mvs.\5	\3,d1
-.endif
-	\1	d0,d1
-	set_cc0
-.ifnc	\1,cmp.l
-	move.\5	d1,\4
-.endif
-	ii_end
-.endm;
-
-opisd16a:.macro		// indirect: 1=opieration 2=adress register 3=size
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\3,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\3,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.l	\2,a1
-	mvs.w	(a0)+,d1
-	add.l	d1,a1
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-	\1	d0,d1
-	set_cc0
-.ifnc	\1,cmp.l
-	move.\3	d1,(a1)
-.endif
-	ii_end
-	.endm;
-
-opisd8a:.macro		// indirect: 1=opieration 2=adress register 3=size
-#ifdef	halten_op
-	halt
-#endif
-
-.ifc	\3,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\3,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.l	d0,_d0_save
-	move.l	\2,a1
-	jsr		ewf
-	move.l	_d0_save,d0
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-	\1	d0,d1
-	set_cc0
-.ifnc	\1,cmp.l
-	move.\3	d1,(a1)
-.endif
-	ii_end
-	.endm;
-
-opisxx:.macro		// immediate: 1=opieration 2=size 3=size adresse
-.ifc	\2,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\2,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.\3	(a0)+,a1
-.ifc	\2,l
-	move.l	(a1),d1
-.else
-	mvs.\2	(a1),d1
-.endif
-	\1	d0,d1
-	set_cc0
-.ifnc	\1,cmp.l
-	move.\2	d1,(a1)
-.endif
-	ii_end
-	.endm;
-//*******************************************************************************3
-opqsmd:.macro		// quick: 1=opieration	2=ea src 3=ea dest 4=size
-.ifc	\4,l
-	move.l	\2,d1
-.else
-	mvs.\4	\2,d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d0
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	,d1
-	set_cc0
-	move.\4		d1,\3
-	ii_end
-	.endm;
-
-opaqsmd:.macro		// quick: 1=opieration	2=ea src 3=ea dest 4=size
-.ifc	\2,usp
-		move.l	usp,a1
-		move.l	a1,d1
-.else
-		move.l		\2,d1
-.endif
-	\1	,d1
-.ifc	\3,usp
-	move.l		d1,a1
-	move.l		a1,usp
-.else
-	move.l		d1,\3
-.endif
-	ii_end
-	.endm;
-
-opqsia:.macro		// indirect: 1=opieration 2=adress register 3= src 4=dest 5=size
-#ifdef	halten_op
-	halt
-#endif
-
-	move.l	\2,a1
-.ifc	\5,l
-	move.l	\3,d1
-.else
-	mvs.\5	\3,d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d0
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	,d1
-	set_cc0
-	move.\5	d1,\4
-	ii_end
-	.endm;
-
-opqsd16a:.macro		// indirect: 1=opieration 2=adress register 3=size
-#ifdef	halten_op
-	halt
-#endif
-
-	move.l	\2,a1
-	mvs.w	(a0)+,d1
-	add.l	d1,a1
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d0
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	,d1
-	set_cc0
-	move.\3	d1,(a1)
-	ii_end
-	.endm;
-
-opqsd8a:.macro		// indirect: 1=opieration 2=adress register 3=size
-#ifdef	halten_op
-	halt
-#endif
-
-	move.l	d0,_d0_save
-	move.l	\2,a1
-	jsr		ewf
-	move.l	_d0_save,d0
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d0
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	,d1
-	set_cc0
-	move.\3	d1,(a1)
-	ii_end
-	.endm;
-
-opqsxx:.macro		// quick: 1=opieration 2=size 3=size adresse
-#ifdef	halten_op
-	halt
-#endif
-
-	move.\3	(a0)+,a1
-.ifc	\2,l
-	move.l	(a1),d1
-.else
-	mvs.\2	(a1),d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d0
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	,d1
-	set_cc0
-	move.\2	d1,(a1)
-	ii_end
-	.endm;

sources/ii_opc.h

@@ -1,263 +0,0 @@
-/*****************************************************************************************/
-// functionen macros: fehlende adressierungsarte (MCF nur Dx support) ohne ax
-// zusammen mit op.h
-/*****************************************************************************************/
-ii_lset_opc:.macro
-	ii_lset_opeag	\1,c			// dx,ax
-	ii_lset_opea	\1,d			// (ax), (ax)+
-	ii_lset_opea	\1,e			// -(ax),d16(ax)
-	ii_lset_opeag	\1,f			// d8(ax,dy)
-	lea	table+0x\1b8*4,a0
-	move.l	#ii_0x\1b8,(a0)+		// xxx.w
-	move.l	#ii_0x\1b9,(a0)+		// xxx.l
-	.endm
-
-/******************************************************/
-ii_opc:.macro	// 1=code 2=operation 3 = normal oder immediat
-	opcdx	\1,\2,l,c,\3		// dx,ax
-	opia	\1,\2,l,d,\3		// (ax),(ax)+
-	opdia	\1,\2,l,e,\3		// -(ax),d16(ax)
-	opd8a	\1,\2,l,f,\3		// d8(ax),xxx
-	.endm
-//*******************************************************************************3
-/******************************************************/
-// byt word long
-/******************************************************/
-opcdx:	.macro	//register: \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal
-ii_0x\1\40:
-#ifdef	halten_opc
-	halt
-#endif
-	.ifc	\3,b
-		op\5smd	\2,d0_off+3(a7),d0_off+3(a7),\3
-	.else
-		.ifc		\3,w
-			op\5smd	\2,d0_off+2(a7),d0_off+2(a7),\3
-		.else
-			op\5smd	\2,d0_off(a7),d0_off(a7),\3
-		.endif
-	.endif
-ii_0x\1\41:
-	.ifc	\3,b
-		op\5smd	\2,d1_off+3(a7),d1_off+3(a7),\3
-	.else
-		.ifc		\3,w
-			op\5smd	\2,d1_off+2(a7),d1_off+2(a7),\3
-		.else
-			op\5smd	\2,d1_off(a7),d1_off(a7),\3
-		.endif
-.endif
-ii_0x\1\42:
-	op\5smd	\2,d2,d2,\3
-ii_0x\1\43:
-	op\5smd	\2,d3,d3,\3
-ii_0x\1\44:
-	op\5smd	\2,d4,d4,\3
-ii_0x\1\45:
-	op\5smd	\2,d5,d5,\3
-ii_0x\1\46:
-	op\5smd	\2,d6,d6,\3
-ii_0x\1\47:
-	op\5smd	\2,d7,d7,\3
-.endm
-//-----------------------------------------------------
-opcsmd:.macro		// dx: 1=opieration	2=ea src 3=ea dest 4=size
-#ifdef	halten_opc
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-.ifc	\4,l
-	move.l	\2,d1
-.else
-	mvs.\4	\2,d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d1
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	d1
-	set_cc0
-	move.\4		d1,\3
-	ii_end
-	.endm;
-
-opacsmd:.macro		// ax: 1=opieration	2=ea src 3=ea dest 4=size
-#ifdef	halten_opc
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-.ifc	\2,usp
-		move.l	usp,a1
-		move.l	a1,d1
-.else
-		move.l		\2,d1
-.endif
-	\1	d1
-	set_cc0
-.ifc	\3,usp
-	move.l		d1,a1
-	move.l		a1,usp
-.else
-	move.l		d1,\3
-.endif
-	ii_end
-	.endm;
-
-opcsia:.macro		// (ax) (ax)+ -(ax): 1=opieration 2=adress register 3= src 4=dest 5=size
-#ifdef	halten_opc
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.l	\2,a1
-.ifc	\5,l
-	move.l	\3,d1
-.else
-	mvs.\5	\3,d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d1
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	d1
-	set_cc0
-	move.\5	d1,\4
-	ii_end
-	.endm;
-
-opcsd16a:.macro		// d16(ax): 1=opieration 2=adress register 3=size
-#ifdef	halten_opc
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.l	\2,a1
-	mvs.w	(a0)+,d1
-	add.l	d1,a1
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d1
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	d1
-	set_cc0
-	move.\3	d1,(a1)
-	ii_end
-	.endm;
-
-opcsd8a:.macro		// indirect: 1=opieration 2=adress register 3=size
-#ifdef	halten_opc
-	halt
-#endif
-
-.ifc	\4,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\4,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.l	d0,_d0_save
-	move.l	\2,a1
-	jsr		ewf
-	move.l	_d0_save,d0
-.ifc	\3,l
-	move.l	(a1),d1
-.else
-	mvs.\3	(a1),d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d1
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	d1
-	set_cc0
-	move.\3	d1,(a1)
-	ii_end
-	.endm;
-
-opcsxx:.macro		// indirect: 1=opieration 2=size 3=size adresse
-#ifdef	halten_opc
-	halt
-#endif
-
-.ifc	\2,l
-	move.l	(a0)+,d0
-.else
-	.ifc	\2,w
-		mvs.w	(a0)+,d0
-	.else
-		move.w	(a0)+,d0
-		extb.l	d0
-	.endif
-.endif
-	move.\3	(a0)+,a1
-.ifc	\2,l
-	move.l	(a1),d1
-.else
-	mvs.\2	(a1),d1
-.endif
-.ifc	\1,eor.l d0
-	move.l	d0_off(a7),d1
-.endif
-.ifc	\1,eor.l d1
-	move.l	d1_off(a7),d1
-.endif
-	\1	d1
-	set_cc0
-	move.\2	d1,(a1)
-	ii_end
-	.endm;

sources/ii_or.h

@@ -1,442 +0,0 @@
-//--------------------------------------------------------------------
-// or
-//--------------------------------------------------------------------
-/*****************************************************************************************/
-//--------------------------------------------------------------------
-// byt
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// or.b	#im,dx
-//--------------------------------------------------------------------
-orbir_macro:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.w		(a0)+,d0
-	extb.l		d0
-	mvs.b		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.b		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	ea,dx
-//--------------------------------------------------------------------
-ordd:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	ea(l)->dy(w),dx z.B. f<>r USP
-//--------------------------------------------------------------------
-orddd:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		a1,d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	(ea)->dy,dx
-//--------------------------------------------------------------------
-ordda:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	ea->ay,(ay)+,dx
-//--------------------------------------------------------------------
-orddai:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1)+,d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	ea->ay,-(ay),dx
-//--------------------------------------------------------------------
-orddad:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		-(a1),d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	d16(ay),dx
-//--------------------------------------------------------------------
-ord16ad:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0		
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	d8(ay,dy),dx
-//--------------------------------------------------------------------
-ord8ad:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	xxx.w,dx
-//--------------------------------------------------------------------
-orxwd:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	xxx.l,dx
-//--------------------------------------------------------------------
-orxld:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	d16(pc),dx
-//--------------------------------------------------------------------
-ord16pcd:.macro
-	halt
-	move.l		a0,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	d8(pc,dy),dx
-//--------------------------------------------------------------------
-ord8pcd:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-//  or dy,ea
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// // or	(ea)->dy,dx
-//--------------------------------------------------------------------
-oreda:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,ea->ay,(ay)+
-//--------------------------------------------------------------------
-oredai:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)+
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,ea->ay,(ay)+
-//--------------------------------------------------------------------
-oredaid:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2+
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,ea->ay,-(ay)
-//--------------------------------------------------------------------
-oredad:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		-(a1),d1
-	move.l		a1,\2
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,ea->ay,-(ay)
-//--------------------------------------------------------------------
-oredadd:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		-\2,d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,d16(ay)
-//--------------------------------------------------------------------
-ore16ad:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.w		(a0)+,d1
-	add.l		d1,a1
-	mvs.\3		(a1),d1		
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or.w	dx,d8(ay,dy)
-//--------------------------------------------------------------------
-ore8ad:.macro
-#ifdef	halten_or
-	halt
-#endif
-	move.l		\2,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d1
-	move.l		\1,d0
-.else
-	mvs.\3		(a1),d1
-	mvs.\3		\1,d0
-.endif
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,xxx.w
-//--------------------------------------------------------------------
-orxwe:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // or	dx,xxx.l
-//--------------------------------------------------------------------
-orxle:.macro
-#ifdef	halten_or
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d1
-	or.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	ea,ax
-//--------------------------------------------------------------------
-oraw:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// or.w ea,usp
-//--------------------------------------------------------------------
-orawa7:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	usp?,ax
-//--------------------------------------------------------------------
-orawu:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	usp?,usp
-//--------------------------------------------------------------------
-orawua7:.macro
-	orawu		\1,\2
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	d16(ay),ax
-//--------------------------------------------------------------------
-orawd16a:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	d8(ay,dy),ax
-//--------------------------------------------------------------------
-orawd8a:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	xxx.w,ax
-//--------------------------------------------------------------------
-orawxwax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	xxx.l,ax
-//--------------------------------------------------------------------
-orawxlax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	d16(pc),ax
-//--------------------------------------------------------------------
-orawd16pcax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	d8(pc,dy),ax
-//--------------------------------------------------------------------
-orawd8pcax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.w	#im,ax
-//--------------------------------------------------------------------
-orawim:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.l	d8(ay,dy),ax
-//--------------------------------------------------------------------
-orald8a:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // ora.l	d8(pc,dy),ax
-//--------------------------------------------------------------------
-orald8pcax:.macro
-	jmp			ii_error
-	.endm;
-//*****************************************************************************************
-// spezial addx subx etc.
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// // addx	dy,dx
-//--------------------------------------------------------------------
-ordx:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------
-// // addx	-(ay),-(ax)
-//--------------------------------------------------------------------
-ordax:.macro
-	jmp			ii_error
-	.endm;
-//--------------------------------------------------------------------

sources/ii_pea.h

@@ -1,74 +0,0 @@
-//--------------------------------------------------------------------
-// pea
-//--------------------------------------------------------------------
-.text
-ii_pea_lset:.macro
-	ii_lset_opeag	48,7
-	ii_lset	0x487b 
-.endm
-//---------------------------------------------------------------------------------------------
-ii_pea_func:.macro
-ii_0x4870:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a0_off(a7),a1
-	pea_macro
-ii_0x4871:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a1_off(a7),a1
-	pea_macro
-ii_0x4872:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a2,a1
-	pea_macro
-ii_0x4873:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a3,a1
-	pea_macro
-ii_0x4874:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a4,a1
-	pea_macro
-ii_0x4875:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a5,a1
-	pea_macro
-ii_0x4876:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a6,a1
-	pea_macro
-ii_0x4877:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	usp,a1
-	pea_macro
-ii_0x487b:
-#ifdef	halten_pea
-	halt
-#endif
-	move.l	a0,a1
-	pea_macro
-.endm		
-//---------------------------------------------------------------------------------------------
-pea_macro:.macro
-	jsr		ewf
-	move.l	(a1),d0
-	move.l	usp,a1
-	move.l	d0,-(a1)
-	move.l	a1,usp
-	ii_end
-.endm

sources/ii_shd.h

@@ -1,247 +0,0 @@
-/*****************************************************************************************/
-// opertionen
-/*****************************************************************************************/
-ii_lset_shd:.macro
-	ii_lset_shdx	e0			//r d0
-	ii_lset_shdx	e2			//r d1
-	ii_lset_shdx	e4			//r d2
-	ii_lset_shdx	e6			//r d3
-	ii_lset_shdx	e8			//r d4
-	ii_lset_shdx	ea			//r d5
-	ii_lset_shdx	ec			//r d6
-	ii_lset_shdx	ee			//r d7
-	
-	ii_lset_shdx	e1			//l d0
-	ii_lset_shdx	e3			//l d1
-	ii_lset_shdx	e4			//l d2
-	ii_lset_shdx	e5			//l d3
-	ii_lset_shdx	e9			//l d4
-	ii_lset_shdx	eb			//l d5
-	ii_lset_shdx	ed			//l d6
-	ii_lset_shdx	ef			//l d7
-	.endm
-	
-ii_lset_shdx:.macro
-//byt
-	ii_lset_opea	\1,0			// as,ls #im,dx
-	ii_lset_opea	\1,1			// rox,ro #im,dx
-	ii_lset_opea	\1,2			// as,ls dy,dx
-	ii_lset_opea	\1,3			// rox,ro dy,dx
-//word
-	ii_lset_opea	\1,4			// as,ls #im,dx
-	ii_lset_opea	\1,5			// rox,ro #im,dx
-	ii_lset_opea	\1,6			// as,ls dy,dx
-	ii_lset_opea	\1,7			// rox,ro dy,dx
-//long
-//	ii_lset_opea	\1,8			// as,ls #im,dx -> vorhanden
-	ii_lset_opea	\1,9			// rox,ro #im,dx
-//	ii_lset_opea	\1,a			// as,ls dy,dx	-> vorhanden
-	ii_lset_opea	\1,b			// rox,ro dy,dx
-	.endm
-/******************************************************/
-ii_shd:.macro	// 1=code 2=operation 3 = normal, direct oder immediat
-// byt
-	opdx	\1,\2,b,0,\3		// dx
-// word
-	opdx	\1,\2,w,4,\3		// dx
-// long
-	opdx	\1,\2,l,8,\3		// dx
-	.endm
-/******************************************************/
-// byt word long routinen
-/******************************************************/
-sh_asr:	.macro		// asr -> 1=operation 2 = dx 3 = dy/im 4 = size b/w
-	mvs.\4		\2,d1
-	sh_shal		\1,\2,\3,\4
-	.endm	
-
-sh_lsr:	.macro		// asl -> 1=operation 2 = dx 3 = dy/im 4 = size b/w
-	mvz.\4		\2,d1
-	sh_shal		\1,\2,\3,\4
-	.endm
-	
-sh_shal:.macro
-	move.w		\3,d0
-	\1.l		d0,d1
-	set_cc0
-	move.\4		d1,\2
-	.endm	
-	
-sh_all:	.macro		// asl/lsl -> 1=operation 2 = dx 3 = dy/im 4 = size b/w
-	mvz.\4		\2,d1
-.ifc	\4,b
-	byterev.l	d1
-.else
-	swap.w		d1
-.endif
-	sh_asr		\1,\2,\3,\4
-	.endm	
-	
-sh_ror:	.macro		// ror -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l
-	move.\4	\2,d1	/
-	move.w	\3,d0
-.ifc	\4,b
-	lsl.l	#8,d1
-	move.b	\2,d1
-	and.l	#0x7,d0
-	lsr.l	d0,d1
-.else
-	.ifc	\4,w
-		swap.w	d1
-		move.w	\2,d1
-		and.l	#0xf,d0
-		lsr.l	d0,d1
-	.else
-		and.l	#0x1f,d0
-		lsr.l	d0,d1
-		move.l	d1,a1
-		move.l	\2,d1
-		sub.l	#32,d0
-		neg.l	d0
-		lsl.l	d0,d1
-		add.l	a1,d1
-	.endif
-.endif
-	move.\4	d1,\2
-	move.w	ccr,d0
-	and.l	#1,d1	// ist auch carry bit
-	or.l	d1,d0	
-	move.b	d0,ccr_off(a7)
-	.endm
-	
-sh_rol:	.macro		// rol -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l
-	move.\4	\2,d1	
-	move.w	\3,d0
-.ifc	\4,b
-	lsl.l	#8,d1
-	move.b	\2,d1
-	and.l	#0x7,d0
-	lsl.l	d0,d1
-	lsr.l	#8,d1
-	moveq	#7,d0
-.else
-	.ifc	\4,w
-		swap.w	d1
-		move.w	\2,d1
-		and.l	#0xf,d0
-		lsr.l	d0,d1
-		swap.w	d1
-		moveq	#15,d0
-	.else
-		and.l	#0x1f,d0
-		lsl.l	d0,d1
-		move.l	d1,a1
-		move.l	\2,d1
-		sub.l	#32,d0
-		neg.l	d0
-		lsr.l	d0,d1
-		add.l	a1,d1
-		moveq	#31,d0
-	.endif
-.endif
-	move.\4	d1,\2
-	lsr.l	d0,d1		// carry bit schieben
-	move.w	ccr,d0
-	and.l	#1,d1
-	or.l	d1,d0	
-	move.b	d0,ccr_off(a7)
-	.endm
-	
-sh_roxr:	.macro		// roxr -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l
-	clr.l	d0
-	addx.l	d0,d0
-ifc	\4,b
-	mvz.b	\2,d1
-	lsl.l	#1,d1
-	add.l	d0,d1
-	lsl.l	#8,d1
-	move.b	\2,d1
-	move.w	\3,d0
-	and.l	#0x7,d0
-	lsr.l	d0,d1
-	set_cc0
-else
-	.ifc	\4,w
-		mvz.b	\2,d1
-		lsl.l	#1,d1
-		add.l	d0,d1
-		lsl.l	#8,d1
-		lsl.l	#8,d1
-		move.w	\2,d1
-		move.w	\3,d0
-		and.l	#0xf,d0
-		lsr.l	d0,d1
-		set_cc0
-	.else
-		bitrev.l d0
-		move.l	\2,d1
-		lsr.l	#1,d1
-		add.l	d0,d1
-		move.w	\3,d0
-		subq.l	#1,d0
-		and.l	#0x1f,d0
-		lsr.l	d0,d1
-		move.l	d1,a1
-		set_cc1
-		move.l	\2,d1
-		sub.l	#32,d0
-		neg.l	d0
-		lsl.l	d0,d1
-		add.l	a1,d1
-	.endif
-.endif
-	move.\4	d1,\2
-	.endm
-	
-sh_roxl:	.macro		// roxl -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l
-	clr.l	d0
-	addx.l	d0,d0
-ifc	\4,b
-	mvz.b	\2,d1
-	lsl.l	#1,d1
-	add.l	d0,d1
-	lsl.l	#8,d1
-	move.b	\2,d1
-	lsl.l	#8,d1
-	lsl.l	#7,d1
-	move.w	\3,d0
-	and.l	#0x7,d0
-	lsl.l	d0,d1
-	set_cc0
-	byterev.l d1
-else
-	.ifc	\4,w
-		mvz.b	\2,d1
-		lsl.l	#1,d1
-		add.l	d0,d1
-		lsl.l	#8,d1
-		lsl.l	#7,d1
-		mvz.w	\2,d0
-		lsr.l	#1,d0
-		add.l	d0,d1
-		move.w	\3,d0
-		and.l	#0xf,d0
-		lsl.l	d0,d1
-		set_cc0
-		swap.w	d1
-	.else
-		move.l	\2,d1
-		lsl.l	#1,d1
-		add.l	d0,d1
-		move.w	\3,d0
-		subq.l	#1,d0
-		and.l	#0x1f,d0
-		lsl.l	d0,d1
-		move.l	d1,a1
-		set_cc1
-		move.l	\2,d1
-		sub.l	#32,d0
-		neg.l	d0
-		lsr.l	d0,d1
-		add.l	a1,d1
-	.endif
-.endif
-	move.\4	d1,\2
-	.endm
-	
-	

sources/ii_shift.h

@@ -1,687 +0,0 @@
-/*****************************************************************************************/
-// opertionen
-/*****************************************************************************************/
-ii_shift_lset:.macro
-/******************************************************/
-// byt
-/******************************************************/
-//  asx.b #,dx
-	ii_lset_dx	\1,00						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c			
-	ii_lset_dx	\1,01			
-	ii_lset_dx	\1,02			
-	ii_lset_dx	\1,03			
-	ii_lset_dx	\1,04			
-	ii_lset_dx	\1,05			
-	ii_lset_dx	\1,06			
-	ii_lset_dx	\1,07			
-// lsx.b #,dx
-	ii_lset_dxu	\1,08			
-	ii_lset_dxu	\1,09			
-	ii_lset_dxu	\1,0a			
-	ii_lset_dxu	\1,0b			
-	ii_lset_dxu	\1,0c			
-	ii_lset_dxu	\1,0d			
-	ii_lset_dxu	\1,0e			
-	ii_lset_dxu	\1,0f			
-// roxx.b #,dx
-	ii_lset_dx	\1,10			
-	ii_lset_dx	\1,11			
-	ii_lset_dx	\1,12			
-	ii_lset_dx	\1,13			
-	ii_lset_dx	\1,14			
-	ii_lset_dx	\1,15			
-	ii_lset_dx	\1,16			
-	ii_lset_dx	\1,17			
-// rox.b #,dx
-	ii_lset_dx	\1,18			
-	ii_lset_dx	\1,19			
-	ii_lset_dx	\1,1a			
-	ii_lset_dx	\1,1b			
-	ii_lset_dx	\1,1c			
-	ii_lset_dx	\1,1d			
-	ii_lset_dx	\1,1e			
-	ii_lset_dx	\1,1f			
-// asx.b dy,dx
-	ii_lset_dx	\1,20			
-	ii_lset_dx	\1,21			
-	ii_lset_dx	\1,22			
-	ii_lset_dx	\1,23			
-	ii_lset_dx	\1,24			
-	ii_lset_dx	\1,25			
-	ii_lset_dx	\1,26			
-	ii_lset_dx	\1,27			
-// lsx.b dy,dx
-	ii_lset_dx	\1,28			
-	ii_lset_dx	\1,29			
-	ii_lset_dx	\1,2a			
-	ii_lset_dx	\1,2b			
-	ii_lset_dx	\1,2c			
-	ii_lset_dx	\1,2d			
-	ii_lset_dx	\1,2e			
-	ii_lset_dx	\1,2f			
-// roxx.dy,dx
-	ii_lset_dx	\1,30			
-	ii_lset_dx	\1,31			
-	ii_lset_dx	\1,32			
-	ii_lset_dx	\1,33			
-	ii_lset_dx	\1,34			
-	ii_lset_dx	\1,35			
-	ii_lset_dx	\1,36			
-	ii_lset_dx	\1,37			
-// rox.b dy,dx
-	ii_lset_dx	\1,38			
-	ii_lset_dx	\1,39			
-	ii_lset_dx	\1,3a			
-	ii_lset_dx	\1,3b			
-	ii_lset_dx	\1,3c			
-	ii_lset_dx	\1,3d			
-	ii_lset_dx	\1,3e			
-	ii_lset_dx	\1,3f			
-/******************************************************/
-// word
-/******************************************************/
-// asx.w #x,dx
-	ii_lset_dx	\1,40						// 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c			
-	ii_lset_dx	\1,41			
-	ii_lset_dx	\1,42			
-	ii_lset_dx	\1,43			
-	ii_lset_dx	\1,44			
-	ii_lset_dx	\1,45			
-	ii_lset_dx	\1,46			
-	ii_lset_dx	\1,47			
-// lsx.w #,dx
-	ii_lset_dx	\1,48			
-	ii_lset_dx	\1,49			
-	ii_lset_dx	\1,4a			
-	ii_lset_dx	\1,4b			
-	ii_lset_dx	\1,4c			
-	ii_lset_dx	\1,4d			
-	ii_lset_dx	\1,4e			
-	ii_lset_dx	\1,4f			
-// roxx.w #,dx
-	ii_lset_dx	\1,50			
-	ii_lset_dx	\1,51			
-	ii_lset_dx	\1,52			
-	ii_lset_dx	\1,53			
-	ii_lset_dx	\1,54			
-	ii_lset_dx	\1,55			
-	ii_lset_dx	\1,56			
-	ii_lset_dx	\1,57			
-// rox.w #xdx
-	ii_lset_dx	\1,58			
-	ii_lset_dx	\1,59			
-	ii_lset_dx	\1,5a			
-	ii_lset_dx	\1,5b			
-	ii_lset_dx	\1,5c			
-	ii_lset_dx	\1,5d			
-	ii_lset_dx	\1,5e			
-	ii_lset_dx	\1,5f			
-// asx.w dy,dx
-	ii_lset_dx	\1,60			
-	ii_lset_dx	\1,61			
-	ii_lset_dx	\1,62			
-	ii_lset_dx	\1,63			
-	ii_lset_dx	\1,64			
-	ii_lset_dx	\1,65			
-	ii_lset_dx	\1,66			
-	ii_lset_dx	\1,67			
-// lsx.w dy,dx
-	ii_lset_dx	\1,68			
-	ii_lset_dx	\1,69			
-	ii_lset_dx	\1,6a			
-	ii_lset_dx	\1,6b			
-	ii_lset_dx	\1,6c			
-	ii_lset_dx	\1,6d			
-	ii_lset_dx	\1,6e			
-	ii_lset_dx	\1,6f			
-// roxx.w dy,dx
-	ii_lset_dx	\1,70			
-	ii_lset_dx	\1,71			
-	ii_lset_dx	\1,72			
-	ii_lset_dx	\1,73			
-	ii_lset_dx	\1,74			
-	ii_lset_dx	\1,75			
-	ii_lset_dx	\1,76			
-	ii_lset_dx	\1,77			
-// rox.w dy,dx
-	ii_lset_dx	\1,78			
-	ii_lset_dx	\1,79			
-	ii_lset_dx	\1,7a			
-	ii_lset_dx	\1,7b			
-	ii_lset_dx	\1,7c			
-	ii_lset_dx	\1,7d			
-	ii_lset_dx	\1,7e			
-	ii_lset_dx	\1,7f			
-/******************************************************/
-// long
-/******************************************************/
-// roxx.l #,dx
-	ii_lset_dx	\1,90			
-	ii_lset_dx	\1,91			
-	ii_lset_dx	\1,92			
-	ii_lset_dx	\1,93			
-	ii_lset_dx	\1,94			
-	ii_lset_dx	\1,95			
-	ii_lset_dx	\1,96			
-	ii_lset_dx	\1,97			
-// rox.l #xdx
-	ii_lset_dx	\1,98			
-	ii_lset_dx	\1,99			
-	ii_lset_dx	\1,9a			
-	ii_lset_dx	\1,9b			
-	ii_lset_dx	\1,9c			
-	ii_lset_dx	\1,9d			
-	ii_lset_dx	\1,9e			
-	ii_lset_dx	\1,9f			
-// roxx.l dy,dx
-	ii_lset_dx	\1,b0			
-	ii_lset_dx	\1,b1			
-	ii_lset_dx	\1,b2			
-	ii_lset_dx	\1,b3			
-	ii_lset_dx	\1,b4			
-	ii_lset_dx	\1,b5			
-	ii_lset_dx	\1,b6			
-	ii_lset_dx	\1,b7			
-// rox.l dy,dx
-	ii_lset_dx	\1,b8			
-	ii_lset_dx	\1,b9			
-	ii_lset_dx	\1,ba			
-	ii_lset_dx	\1,bb			
-	ii_lset_dx	\1,bc			
-	ii_lset_dx	\1,bd			
-	ii_lset_dx	\1,be			
-	ii_lset_dx	\1,bf
-//--------------------------------------------------------------------
-// asr.w ea
-	ii_lset_opea	\10,d			// (ax), (ax)+
-	ii_lset_opea	\10,e			// -(ax),d16(ax)
-	ii_lset_opeag	\10,f			// d8(ax,dy)
-	lea	table+0x\10\2f8*4,a0
-	move.l	#ii_0x\10f8,(a0)+		// xxx.w
-	move.l	#ii_0x\10f9,(a0)+		// xxx.l
-// asl.w ea
-	ii_lset_opea	\11,d			// (ax), (ax)+
-	ii_lset_opea	\11,e			// -(ax),d16(ax)
-	ii_lset_opeag	\11,f			// d8(ax,dy)
-	lea	table+0x\11\2f8*4,a0
-	move.l	#ii_0x\11f8,(a0)+		// xxx.w
-	move.l	#ii_0x\11f9,(a0)+		// xxx.l
-// lsr.w ea
-	ii_lset_opea	\12,d			// (ax), (ax)+
-	ii_lset_opea	\12,e			// -(ax),d16(ax)
-	ii_lset_opeag	\12,f			// d8(ax,dy)
-	lea	table+0x\12\2f8*4,a0
-	move.l	#ii_0x\12f8,(a0)+		// xxx.w
-	move.l	#ii_0x\12f9,(a0)+		// xxx.l
-// lsr.w ea
-	ii_lset_opea	\13,d			// (ax), (ax)+
-	ii_lset_opea	\13,e			// -(ax),d16(ax)
-	ii_lset_opeag	\13,f			// d8(ax,dy)
-	lea	table+0x\13\2f8*4,a0
-	move.l	#ii_0x\13f8,(a0)+		// xxx.w
-	move.l	#ii_0x\13f9,(a0)+		// xxx.l
-// roxr.w ea
-	ii_lset_opea	\14,d			// (ax), (ax)+
-	ii_lset_opea	\14,e			// -(ax),d16(ax)
-	ii_lset_opeag	\14,f			// d8(ax,dy)
-	lea	table+0x\14\2f8*4,a0
-	move.l	#ii_0x\14f8,(a0)+		// xxx.w
-	move.l	#ii_0x\14f9,(a0)+		// xxx.l
-// roxl.w ea
-	ii_lset_opea	\15,e			// (ax), (ax)+
-	ii_lset_opea	\15,e			// -(ax),d16(ax)
-	ii_lset_opeag	\15,f			// d8(ax,dy)
-	lea	table+0x\15\2f8*4,a0
-	move.l	#ii_0x\15f8,(a0)+		// xxx.w
-	move.l	#ii_0x\15f9,(a0)+		// xxx.l
-// ror.w ea
-	ii_lset_opea	\16,d			// (ax), (ax)+
-	ii_lset_opea	\16,e			// -(ax),d16(ax)
-	ii_lset_opeag	\16,f			// d8(ax,dy)
-	lea	table+0x\16\2f8*4,a0
-	move.l	#ii_0x\16f8,(a0)+		// xxx.w
-	move.l	#ii_0x\16f9,(a0)+		// xxx.l
-// rol.w ea
-	ii_lset_opea	\17,d			// (ax), (ax)+
-	ii_lset_opea	\17,e			// -(ax),d16(ax)
-	ii_lset_opeag	\17,f			// d8(ax,dy)
-	lea	table+0x\17\2f8*4,a0
-	move.l	#ii_0x\17f8,(a0)+		// xxx.w
-	move.l	#ii_0x\17f9,(a0)+		// xxx.l
-// ende
-.endm;	
-/******************************************************/
-ii_shift_op:.macro	// 1=code 
-//byt-------------------------------
-//asx.b	#x,dx
-	ii_shift_op2agb	0,as,a
-//lsx.b	#x,dx
-	ii_shift_op2aub	0,ls,a
-//roxx.b	#x,dx
-	ii_shift_op2agb	1,rox,a
-//rox.b	#x,dx
-	ii_shift_op2aub	1,ro,a
-//asx.b	dy,dx
-	ii_shift_op2agb	2,as,b
-//lsx.b	dy,dx
-	ii_shift_op2aub	2,ls,b
-//roxx.b dy,dx
-	ii_shift_op2agb	3,rox,b
-//rox.b	dy,dx
-	ii_shift_op2aub	3,ro,b
-// word ---------------------------------------
-//asx.w	#x,dx
-	ii_shift_op2agw	4,as,a
-//lsx.w	#x,dx
-	ii_shift_op2auw	4,ls,a
-//roxx.w	#x,dx
-	ii_shift_op2agw	5,rox,a
-//rox.w	#x,dx
-	ii_shift_op2auw	5,ro,a
-//asx.w	dy,dx
-	ii_shift_op2agw	6,as,b
-//lsx.w	dy,dx
-	ii_shift_op2auw	6,ls,b
-//roxx.w dy,dx
-	ii_shift_op2agw	7,rox,b
-//rox.w	dy,dx
-	ii_shift_op2auw	7,ro,b
-// long ---------------------------------------
-//roxx.l #x,dx
-	ii_shift_op2agw	9,rox,a
-//rox.l	#x,dx
-	ii_shift_op2auw	9,ro,a
-//roxx.l dy,dx
-	ii_shift_op2agw	b,rox,b
-//rox.l	dy,dx
-	ii_shift_op2auw	b,ro,b
-// ea ---------------------------------------
-//asr.w	#1,ea
-	ii_shift_op2ea	0,asr
-//asl.w	#1,ea
-	ii_shift_op2ea	1,asl
-//lsr.w	#1,ea
-	ii_shift_op2ea	2,lsr,
-//lsl.w	#1,ea
-	ii_shift_op2ea	3,lsl
-//roxr.w #1,ea
-	ii_shift_op2ea	4,roxr
-//roxl.w #1,ea
-	ii_shift_op2ea	5,roxl
-//ror.w	#1,ea
-	ii_shift_op2ea	6,ror
-//rol.w	#1,ea
-	ii_shift_op2ea	7,rol
-.endm
-//byt ============================================
-ii_shift_op2agb:.macro	//byt: 1=code 2=operation 3=quick(a) oder register(b)
-	ii_shift_op1\3b	\1,0,\2,d0_off+3(a7)
-	ii_shift_op1\3b	\1,1,\2,d1_off+3(a7)
-	ii_shift_op1\3b	\1,2,\2,d2
-	ii_shift_op1\3b	\1,3,\2,d3
-	ii_shift_op1\3b	\1,4,\2,d4
-	ii_shift_op1\3b	\1,5,\2,d5
-	ii_shift_op1\3b	\1,6,\2,d6
-	ii_shift_op1\3b	\1,7,\2,d7
-.endm
-
-ii_shift_op2aub:.macro	//byt: 1=code 2=operation
-	ii_shift_op1\3b	\1,8,\2,d0_off+3(a7)
-	ii_shift_op1\3b	\1,9,\2,d1_off+3(a7)
-	ii_shift_op1\3b	\1,a,\2,d2
-	ii_shift_op1\3b	\1,b,\2,d3
-	ii_shift_op1\3b	\1,c,\2,d4
-	ii_shift_op1\3b	\1,d,\2,d5
-	ii_shift_op1\3b	\1,e,\2,d6
-	ii_shift_op1\3b	\1,f,\2,d7
-.endm
-
-ii_shift_op1ab:.macro	// z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx
-	ii_shift_op0	0\1\2,b,\3r,#8,\4
-	ii_shift_op0	2\1\2,b,\3r,#1,\4
-	ii_shift_op0	4\1\2,b,\3r,#2,\4
-	ii_shift_op0	6\1\2,b,\3r,#3,\4
-	ii_shift_op0	8\1\2,b,\3r,#4,\4
-	ii_shift_op0	a\1\2,b,\3r,#5,\4
-	ii_shift_op0	c\1\2,b,\3r,#6,\4
-	ii_shift_op0	e\1\2,b,\3r,#7,\4
-	ii_shift_op0	1\1\2,b,\3l,#8,\4
-	ii_shift_op0	3\1\2,b,\3l,#1,\4
-	ii_shift_op0	5\1\2,b,\3l,#2,\4
-	ii_shift_op0	7\1\2,b,\3l,#3,\4
-	ii_shift_op0	9\1\2,b,\3l,#4,\4
-	ii_shift_op0	b\1\2,b,\3l,#5,\4
-	ii_shift_op0	d\1\2,b,\3l,#6,\4
-	ii_shift_op0	f\1\2,b,\3l,#7,\4
-.endm
-	
-ii_shift_op1bb:.macro	// z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx
-	ii_shift_op0b	0\1\2,b,\3r,d0_off(a7),\4
-	ii_shift_op0b	2\1\2,b,\3r,d1_off(a7),\4
-	ii_shift_op0	4\1\2,b,\3r,d2,\4
-	ii_shift_op0	6\1\2,b,\3r,d3,\4
-	ii_shift_op0	8\1\2,b,\3r,d4,\4
-	ii_shift_op0	a\1\2,b,\3r,d5,\4
-	ii_shift_op0	c\1\2,b,\3r,d6,\4
-	ii_shift_op0	e\1\2,b,\3r,d7,\4
-	ii_shift_op0b	1\1\2,b,\3l,d0_off(a7),\4
-	ii_shift_op0b	3\1\2,b,\3l,d1_off(a7),\4
-	ii_shift_op0	5\1\2,b,\3l,d2,\4
-	ii_shift_op0	7\1\2,b,\3l,d3,\4
-	ii_shift_op0	9\1\2,b,\3l,d4,\4
-	ii_shift_op0	b\1\2,b,\3l,d5,\4
-	ii_shift_op0	d\1\2,b,\3l,d6,\4
-	ii_shift_op0	f\1\2,b,\3l,d7,\4
-.endm
-// word ---------------------------------------
-ii_shift_op2agw:.macro	//byt: 1=code 2=operation 3=quick(a) oder register(b)
-	ii_shift_op1\3w	\1,0,\2,d0_off+2(a7)
-	ii_shift_op1\3w	\1,1,\2,d1_off+2(a7)
-	ii_shift_op1\3w	\1,2,\2,d2
-	ii_shift_op1\3w	\1,3,\2,d3
-	ii_shift_op1\3w	\1,4,\2,d4
-	ii_shift_op1\3w	\1,5,\2,d5
-	ii_shift_op1\3w	\1,6,\2,d6
-	ii_shift_op1\3w	\1,7,\2,d7
-.endm
-
-ii_shift_op2auw:.macro	//byt: 1=code 2=operation
-	ii_shift_op1\3w	\1,8,\2,d0_off+2(a7)
-	ii_shift_op1\3w	\1,9,\2,d1_off+2(a7)
-	ii_shift_op1\3w	\1,a,\2,d2
-	ii_shift_op1\3w	\1,b,\2,d3
-	ii_shift_op1\3w	\1,c,\2,d4
-	ii_shift_op1\3w	\1,d,\2,d5
-	ii_shift_op1\3w	\1,e,\2,d6
-	ii_shift_op1\3w	\1,f,\2,d7
-.endm
-
-ii_shift_op1aw:.macro	// z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx
-	ii_shift_op0	0\1\2,w,\3r,#8,\4
-	ii_shift_op0	2\1\2,w,\3r,#1,\4
-	ii_shift_op0	4\1\2,w,\3r,#2,\4
-	ii_shift_op0	6\1\2,w,\3r,#3,\4
-	ii_shift_op0	8\1\2,w,\3r,#4,\4
-	ii_shift_op0	a\1\2,w,\3r,#5,\4
-	ii_shift_op0	c\1\2,w,\3r,#6,\4
-	ii_shift_op0	e\1\2,w,\3r,#7,\4
-	ii_shift_op0	1\1\2,w,\3l,#8,\4
-	ii_shift_op0	3\1\2,w,\3l,#1,\4
-	ii_shift_op0	5\1\2,w,\3l,#2,\4
-	ii_shift_op0	7\1\2,w,\3l,#3,\4
-	ii_shift_op0	9\1\2,w,\3l,#4,\4
-	ii_shift_op0	b\1\2,w,\3l,#5,\4
-	ii_shift_op0	d\1\2,w,\3l,#6,\4
-	ii_shift_op0	f\1\2,w,\3l,#7,\4
-.endm
-	
-ii_shift_op1bw:.macro	// z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx
-	ii_shift_op0b	0\1\2,w,\3r,d0_off(a7),\4
-	ii_shift_op0b	2\1\2,w,\3r,d1_off(a7),\4
-	ii_shift_op0	4\1\2,w,\3r,d2,\4
-	ii_shift_op0	6\1\2,w,\3r,d3,\4
-	ii_shift_op0	8\1\2,w,\3r,d4,\4
-	ii_shift_op0	a\1\2,w,\3r,d5,\4
-	ii_shift_op0	c\1\2,w,\3r,d6,\4
-	ii_shift_op0	e\1\2,w,\3r,d7,\4
-	ii_shift_op0b	1\1\2,w,\3l,d0_off(a7),\4
-	ii_shift_op0b	3\1\2,w,\3l,d1_off(a7),\4
-	ii_shift_op0	5\1\2,w,\3l,d2,\4
-	ii_shift_op0	7\1\2,w,\3l,d3,\4
-	ii_shift_op0	9\1\2,w,\3l,d4,\4
-	ii_shift_op0	b\1\2,w,\3l,d5,\4
-	ii_shift_op0	d\1\2,w,\3l,d6,\4
-	ii_shift_op0	f\1\2,w,\3l,d7,\4
-.endm
-// long ---------------------------------------
-ii_shift_op2agl:.macro	//byt: 1=code 2=operation 3=quick(a) oder register(b)
-	ii_shift_op1\3l	\1,0,\2,d0_off(a7)
-	ii_shift_op1\3l	\1,1,\2,d1_off(a7)
-	ii_shift_op1\3l	\1,2,\2,d2
-	ii_shift_op1\3l	\1,3,\2,d3
-	ii_shift_op1\3l	\1,4,\2,d4
-	ii_shift_op1\3l	\1,5,\2,d5
-	ii_shift_op1\3l	\1,6,\2,d6
-	ii_shift_op1\3l	\1,7,\2,d7
-.endm
-
-ii_shift_op2aul:.macro	//byt: 1=code 2=operation
-	ii_shift_op1\3l	\1,8,\2,d0_off(a7)
-	ii_shift_op1\3l	\1,9,\2,d1_off(a7)
-	ii_shift_op1\3l	\1,a,\2,d2
-	ii_shift_op1\3l	\1,b,\2,d3
-	ii_shift_op1\3l	\1,c,\2,d4
-	ii_shift_op1\3l	\1,d,\2,d5
-	ii_shift_op1\3l	\1,e,\2,d6
-	ii_shift_op1\3l	\1,f,\2,d7
-.endm
-
-ii_shift_op1al:.macro	// z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx
-	ii_shift_op0	0\1\2,l,\3r,#8,\4
-	ii_shift_op0	2\1\2,l,\3r,#1,\4
-	ii_shift_op0	4\1\2,l,\3r,#2,\4
-	ii_shift_op0	6\1\2,l,\3r,#3,\4
-	ii_shift_op0	8\1\2,l,\3r,#4,\4
-	ii_shift_op0	a\1\2,l,\3r,#5,\4
-	ii_shift_op0	c\1\2,l,\3r,#6,\4
-	ii_shift_op0	e\1\2,l,\3r,#7,\4
-	ii_shift_op0	1\1\2,l,\3l,#8,\4
-	ii_shift_op0	3\1\2,l,\3l,#1,\4
-	ii_shift_op0	5\1\2,l,\3l,#2,\4
-	ii_shift_op0	7\1\2,l,\3l,#3,\4
-	ii_shift_op0	9\1\2,l,\3l,#4,\4
-	ii_shift_op0	b\1\2,l,\3l,#5,\4
-	ii_shift_op0	d\1\2,l,\3l,#6,\4
-	ii_shift_op0	f\1\2,l,\3l,#7,\4
-.endm
-	
-ii_shift_op1bl:.macro	// z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx
-	ii_shift_op0b	0\1\2,l,\3r,d0_off(a7),\4
-	ii_shift_op0b	2\1\2,l,\3r,d1_off(a7),\4
-	ii_shift_op0	4\1\2,l,\3r,d2,\4
-	ii_shift_op0	6\1\2,l,\3r,d3,\4
-	ii_shift_op0	8\1\2,l,\3r,d4,\4
-	ii_shift_op0	a\1\2,l,\3r,d5,\4
-	ii_shift_op0	c\1\2,l,\3r,d6,\4
-	ii_shift_op0	e\1\2,l,\3r,d7,\4
-	ii_shift_op0b	1\1\2,l,\3l,d0_off(a7),\4
-	ii_shift_op0b	3\1\2,l,\3l,d1_off(a7),\4
-	ii_shift_op0	5\1\2,l,\3l,d2,\4
-	ii_shift_op0	7\1\2,l,\3l,d3,\4
-	ii_shift_op0	9\1\2,l,\3l,d4,\4
-	ii_shift_op0	b\1\2,l,\3l,d5,\4
-	ii_shift_op0	d\1\2,l,\3l,d6,\4
-	ii_shift_op0	f\1\2,l,\3l,d7,\4
-.endm
-// .word ea ============================================
-ii_shift_op2ea:.macro		//1=code 2.ziffer 2=shiftart
-// (a0) bis (a7) ----------------------------
-ii_0xe\1d0:				 
-	move.l	a0_off(a7),a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1d1:				 
-	move.l	a1_off(a7),a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1d2:	
-	ii_shift_typ	w,\2,#1,(a2),(a2).
-ii_0xe\1d3:	
-	ii_shift_typ	w,\2,#1,(a3),(a3).
-ii_0xe\1d4:	
-	ii_shift_typ	w,\2,#1,(a4),(a4).
-ii_0xe\1d5:	
-	ii_shift_typ	w,\2,#1,(a5),(a5).
-ii_0xe\1d6:	
-	ii_shift_typ	w,\2,#1,(a6),(a6).
-ii_0xe\1d7:	
-	move.l	usp,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-// (a0)+ bis (a7)+ -----------------------------
-ii_0xe\1d8:				 
-	move.l	a0_off(a7),a1
-	addq.l	#2,a0_off(a7)
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1d9:				 
-	move.l	a1_off(a7),a1
-	addq.l	#2,a0_off(a7)
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1da:	
-	ii_shift_typ	w,\2,#1,(a2),(a2)+.
-ii_0xe\1db:	
-	ii_shift_typ	w,\2,#1,(a3),(a3)+
-ii_0xe\1dc:	
-	ii_shift_typ	w,\2,#1,(a4),(a4)+
-ii_0xe\1dd:	
-	ii_shift_typ	w,\2,#1,(a5),(a5)+
-ii_0xe\1de:	
-	ii_shift_typ	w,\2,#1,(a6),(a6)+
-ii_0xe\1df:	
-	move.l	usp,a1
-	addq.l	#2,a1
-	move.l	a1,usp
-	subq.l	#2,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-// -(a0) bis -(a7) -----------------------------
-ii_0xe\1e0:				 
-	move.l	a0_off(a7),a1
-	subq.l	#2,a1
-	move.l	a1,a0_off(a7)
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1e1:				 
-	move.l	a1_off(a7),a1
-	subq.l	#2,a1
-	move.l	a1,a1_off(a7)
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1e2:	
-	ii_shift_typ	w,\2,#1,-(a2),(a2).
-ii_0xe\1e3:	
-	ii_shift_typ	w,\2,#1,-(a3),(a3)
-ii_0xe\1e4:	
-	ii_shift_typ	w,\2,#1,-(a4),(a4)
-ii_0xe\1e5:	
-	ii_shift_typ	w,\2,#1,-(a5),(a5)
-ii_0xe\1e6:	
-	ii_shift_typ	w,\2,#1,-(a6),(a6)
-ii_0xe\1e7:	
-	move.l	usp,a1
-	subq.l	#2,a1
-	move.l	a1,usp
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-// d16(a0) bis d16(a7) -----------------------------
-ii_0xe\1e8:	
-	move.w	(a0)+,a1			 
-	add.l	a0_off(a7),a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1e9:				 
-	move.w	(a0)+,a1			 
-	add.l	a1_off(a7),a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1ea:	
-	move.w	(a0)+,a1			 
-	add.l	a2,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1eb:	
-	move.w	(a0)+,a1			 
-	add.l	a3,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1)
-ii_0xe\1ec:	
-	move.w	(a0)+,a1			 
-	add.l	a4,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1)
-ii_0xe\1ed:	
-	move.w	(a0)+,a1			 
-	add.l	a5,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1)
-ii_0xe\1ee:	
-	move.w	(a0)+,a1			 
-	add.l	a6,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1)
-ii_0xe\1ef:	
-	mvs.w	(a0)+,d0
-	move.l	usp,a1			 
-	add.l	d0,a1
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-// d8(a0,dy) bis d8(a7,dy) -----------------------------
-ii_0xe\1f0:	
-	move.l	a0_off(a0),a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f1:				 
-	move.l	a1_off(a0),a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f2:	
-	move.l	a2,a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f3:	
-	move.l	a3,a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f4:	
-	move.l	a4,a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f5:	
-	move.l	a5,a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f6:	
-	move.l	a6,a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f7:	
-	move.l	usp,a1			 
-	jsr	ewf
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-// xxx.w xxx.l
-ii_0xe\1f8:	
-	move.w	(a0)+,a1			 
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-ii_0xe\1f9:				 
-	move.l	(a0)+,a1			 
-	ii_shift_typ	w,\2,#1,(a1),(a1).
-.endm
-//============================================================================
-//subroutine
-//------------------------------
-ii_shift_op0:.macro	// shift: 1=code 2=size 3=shift art 4=shift wert 5=ea
-ii_0xe\1:
-	ii_shift_typ	\2,\3,\4,\5,\5
-.endm	
-
-ii_shift_op0b:.macro	// shift wert nach d0 holen: 1=code 2=size 3=shift art 4=shift wert 5=ea
-ii_0xe\1:
-	move.l	\4,d0
-	ii_shift_typ	\2,\3,d0,\5,\5
-.endm	
-
-ii_shift_typ:.macro	//1=size 2=shift art 3=shift wert 4=source 5=dest
-#ifdef	halten
-	halt
-#endif
-.ifc	asr,\2
-	mvs.\1	\4,d1
-.else
-	mvz.\1	\4,d1
-.endif
-.ifc	roxr,\2
-	nop
-.else
-	.ifc	roxl,\2
-		nop
-	.else
-		.ifc	ror,\2
-			nop
-		.else
-			.ifc	rol,\2
-				nop
-			.else
-				\2.l	\3,d1
-			.endif
-		.endif
-	.endif
-.endif
-	set_cc0
-	move.\1	d1,\5
-	ii_end
-.endm

sources/ii_sub.h

@@ -1,584 +0,0 @@
-//--------------------------------------------------------------------
-// sub
-//--------------------------------------------------------------------
-/*****************************************************************************************/
-//--------------------------------------------------------------------
-// byt
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// sub.b	#im,dx
-//--------------------------------------------------------------------
-subbir_macro:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.w		(a0)+,d0
-	extb.l		d0
-	mvs.b		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.b		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	ea,dx
-//--------------------------------------------------------------------
-subdd:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	ea(l)->dy(w),dx z.B. f<>r USP
-//--------------------------------------------------------------------
-subddd:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		a1,d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	(ea)->dy,dx
-//--------------------------------------------------------------------
-subdda:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	ea->ay,(ay)+,dx
-//--------------------------------------------------------------------
-subddai:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		(a1)+,d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	ea->ay,-(ay),dx
-//--------------------------------------------------------------------
-subddad:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	mvs.\3		-(a1),d0
-	move.l		a1,\1
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	d16(ay),dx
-//--------------------------------------------------------------------
-subd16ad:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0		
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	d8(ay,dy),dx
-//--------------------------------------------------------------------
-subd8ad:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	xxx.w,dx
-//--------------------------------------------------------------------
-subxwd:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	xxx.l,dx
-//--------------------------------------------------------------------
-subxld:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	d16(pc),dx
-//--------------------------------------------------------------------
-subd16pcd:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		a0,a1
-	mvs.w		(a0)+,d0
-	add.l		d0,a1
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	d8(pc,dy),dx
-//--------------------------------------------------------------------
-subd8pcd:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d0
-	move.l		\2,d1
-.else
-	mvs.\3		(a1),d0
-	mvs.\3		\2,d1
-.endif
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-//  sub dy,ea
-//--------------------------------------------------------------------
-//--------------------------------------------------------------------
-// // sub	(ea)->dy,dx
-//--------------------------------------------------------------------
-subeda:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,ea->ay,(ay)+
-//--------------------------------------------------------------------
-subedai:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		(a1),d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)+
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,ea->ay,(ay)+
-//--------------------------------------------------------------------
-subedaid:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2+
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,ea->ay,-(ay)
-//--------------------------------------------------------------------
-subedad:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.\3		-(a1),d1
-	move.l		a1,\2
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,ea->ay,-(ay)
-//--------------------------------------------------------------------
-subedadd:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	mvs.\3		-\2,d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,d16(ay)
-//--------------------------------------------------------------------
-sube16ad:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		\2,a1
-	mvs.w		(a0)+,d1
-	add.l		d1,a1
-	mvs.\3		(a1),d1		
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,d8(ay,dy)
-//--------------------------------------------------------------------
-sube8ad:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\2,a1
-	jsr			ewf
-.ifc	\3,l
-	move.l		(a1),d1
-	move.l		\1,d0
-.else
-	mvs.\3		(a1),d1
-	mvs.\3		\1,d0
-.endif
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,xxx.w
-//--------------------------------------------------------------------
-subxwe:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.w		(a0)+,a1
-	mvs.\3		(a1),d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // sub	dx,xxx.l
-//--------------------------------------------------------------------
-subxle:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.\3		\1,d0
-	move.l		(a0)+,a1
-	mvs.\3		(a1),d1
-	sub.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-/******************************************************/
-// adress register
-/******************************************************/
-//--------------------------------------------------------------------
-// // suba.w	ea,ax
-//--------------------------------------------------------------------
-subaw:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		a0,pc_off(a7)			// pc auf next
-	movem.l		(a7),d0/d1/a0/a1		// register zurp<72>ck
-	mvs.w		\1,d0
-	suba.l		d0,\2
-	move.l		d0_off(a7),d0
-	lea			ii_ss(a7),a7			// stack erh<72>hen
-	rte
-	.endm;
-//--------------------------------------------------------------------
-// sub.w ea,usp
-//--------------------------------------------------------------------
-subawa7:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.w		\1,d0
-	move.l		usp,a1
-	sub.l		d0,a1
-	move.l		a1,usp
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	usp?,ax
-//--------------------------------------------------------------------
-subawu:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		a0,pc_off(a7)			// pc auf next
-	movem.l		(a7),d0/d1/a0/a1		// register zurp<72>ck
-	move.l		a7,_a7_save
-	move.l		usp,a7
-	move.l		\1,d0
-	suba.l		d0,\2
-	move.l		a7,usp
-	move.l		_a7_save,a7
-	move.l		d0_off(a7),d0
-	lea			ii_ss(a7),a7			// stack erh<72>hen
-	rte
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	usp?,usp
-//--------------------------------------------------------------------
-subawua7:.macro
-	subawu		\1,\2
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	d16(ay),ax
-//--------------------------------------------------------------------
-subawd16a:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	mvs.w		(a0)+,d0
-	adda.l		d0,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	sub.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	d8(ay,dy),ax
-//--------------------------------------------------------------------
-subawd8a:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	sub.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	xxx.w,ax
-//--------------------------------------------------------------------
-subawxwax:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.w		(a0)+,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	suba.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	xxx.l,ax
-//--------------------------------------------------------------------
-subawxlax:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		(a0)+,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	suba.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	d16(pc),ax
-//--------------------------------------------------------------------
-subawd16pcax:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.w		(a0)+,a1
-	adda.l		a0,a1
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	suba.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	d8(pc,dy),ax
-//--------------------------------------------------------------------
-subawd8pcax:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-	mvs.w		(a1),d0
-	move.l		\2,a1
-	sub.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.w	#im,ax
-//--------------------------------------------------------------------
-subawim:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	mvs.w		\1,d0
-	move.l		\2,a1
-	sub.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.l	d8(ay,dy),ax
-//--------------------------------------------------------------------
-subald8a:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		\1,a1
-	jsr			ewf
-	move.l		(a1),d0
-	move.l		\2,a1
-	sub.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // suba.l	d8(pc,dy),ax
-//--------------------------------------------------------------------
-subakd8pcax:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.l		a0,a1
-	jsr			ewf
-	move.l		(a1),d0
-	move.l		\2,a1
-	sub.l		d0,a1
-	move.l		a1,\2
-	ii_end
-	.endm;
-//*****************************************************************************************
-// subx 
-//*****************************************************************************************
-//--------------------------------------------------------------------
-// // subx	dy,dx
-//--------------------------------------------------------------------
-subdx:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.b		sr_off+1(a7),d0			//ccr holen
-	move		d0,ccr					//setzen		
-	mvs.\3		\2,d0
-	mvs.\3		\1,d1
-	subx.l		d0,d1
-	set_cc0
-	move.\3		d1,\1
-	ii_end
-	.endm;
-//--------------------------------------------------------------------
-// // subx	-(ay),-(ax)
-//--------------------------------------------------------------------
-subdax:.macro
-#ifdef	halten_sub
-	halt
-#endif
-	move.b		sr_off+1(a7),d0			//ccr holen
-	move		d0,ccr					//setzen		
-	move.l		\1,a1
-.ifc	\3,l
-	move.l		-(a1),d0
-.else
-	mvs.\3		-(a1),d0
-.endif
-	move.l		\2,a1
-.ifc	\3,l
-	move.l		-(a1),d0
-.else
-	mvs.\3		-(a1),d1
-.endif
-	subx.l		d0,d1
-	set_cc0
-	move.\3		d1,(a1)
-	ii_end
-	.endm;
-//--------------------------------------------------------------------

sources/illegal_instruction.S

@@ -1,24 +1,30 @@
+/*
+ * illegal_instruction.S
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ */
+
 .global 	_illegal_instruction
 .global 	_illegal_table_make
 
 #include 	"startcf.h"
-#include	"ii_macro.h"
-#include	"ii_func.h"
-#include	"ii_op.h"
-#include	"ii_opc.h"
-#include	"ii_add.h"
-#include	"ii_sub.h"
-#include	"ii_or.h"
-#include	"ii_and.h"
-#include	"ii_dbcc.h"
-#include	"ii_shd.h"
-#include	"ii_movem.h"
-#include	"ii_lea.h"
-#include	"ii_shift.h"
-#include	"ii_exg.h"
-#include	"ii_movep.h"
-#include	"ii_ewf.h"
-#include	"ii_move.h"
 
 .extern		_ii_shift_vec
 .extern		ewf
@@ -32,297 +38,5 @@ ii_error:
 	nop
 	
 _illegal_instruction:
-#ifdef	ii_on
-	move.w		#0x2700,sr
-	lea			-ii_ss(a7),a7
-	movem.l		d0/d1/a0/a1,(a7)
-	move.l		pc_off(a7),a0			// pc
-	mvz.w		(a0)+,d0				// code
-	lea			table,a1
-	move.l		0(a1,d0*4),a1
-	jmp			(a1)
-/*************************************************************************************************/
-#endif
 _illegal_table_make:
-#ifdef	ii_on
-	lea			table,a0
-	moveq		#0,d0
-_itm_loop:
-	move.l		#ii_error,(a0)+
-	addq.l		#1,d0
-	cmp.l		#0xF000,d0
-	bne			_itm_loop
-//-------------------------------------------------------------------------
-	ii_ewf_lset		// diverse fehlende adressierungn
-//-------------------------------------------------------------------------
-// 0x0000 
-// ori
-	ii_lset_op	00
-// andi
-	ii_lset_op	02
-// subi
-	ii_lset_op	04
-// addi
-	ii_lset_op	06
-// eori
-	ii_lset_op	0a
-// cmpi
-	ii_lset_op	0c
-// movep
-	ii_movep_lset	
-//-------------------------------------------------------------------------
-// 0x1000 move.b
-// 0x2000 move.l
-// 0x3000 move.w
-	ii_move_lset
-//-------------------------------------------------------------------------
-// 0x4000 
-//-------------------------------------------------------------------------
-// negx
-	ii_lset_op	40
-// neg
-	ii_lset_op	44
-// not
-	ii_lset_op	46
-//---------------------------------------------------------------------------------------------
-// lea	d8(ax,dy.w),az; d8(pc,dy.w),az
-//-------------------------------------------------------------------
-	ii_lea_lset
-//-------------------------------------------------------------------
-// movem 
-//-------------------------------------------------------------------
-	ii_movem_lset
-//-------------------------------------------------------------------------
-// 0x5000
-//-------------------------------------------------------------------------
-// addq, subq
-	ii_lset_op	50
-	ii_lset_op	51
-	ii_lset_op	52
-	ii_lset_op	53
-	ii_lset_op	54
-	ii_lset_op	55
-	ii_lset_op	56
-	ii_lset_op	57
-	ii_lset_op	58
-	ii_lset_op	59
-	ii_lset_op	5a
-	ii_lset_op	5b
-	ii_lset_op	5c
-	ii_lset_op	5d
-	ii_lset_op	5e
-	ii_lset_op	5f
-// dbcc
-	ii_lset_dbcc
-// scc
-	ii_lset_opc	50
-	ii_lset_opc	51
-	ii_lset_opc	52
-	ii_lset_opc	53
-	ii_lset_opc	54
-	ii_lset_opc	55
-	ii_lset_opc	56
-	ii_lset_opc	57
-	ii_lset_opc	58
-	ii_lset_opc	59
-	ii_lset_opc	5a
-	ii_lset_opc	5b
-	ii_lset_opc	5c
-	ii_lset_opc	5d
-	ii_lset_opc	5e
-	ii_lset_opc	5f
-//-------------------------------------------------------------------------
-// 0x8000		or
-//-------------------------------------------------------------------------
-	ii_lset_func	8
-//-------------------------------------------------------------------------
-// 0x9000		sub
-//-------------------------------------------------------------------------
-	ii_lset_func	9
-//-------------------------------------------------------------------------
-// 0xb000		
-//-------------------------------------------------------------------------
-// eor
-	ii_lset_op	b1
-	ii_lset_op	b3
-	ii_lset_op	b5
-	ii_lset_op	b7
-	ii_lset_op	b9
-	ii_lset_op	bb
-	ii_lset_op	bd
-	ii_lset_op	bf
-//-------------------------------------------------------------------------
-// 0xc000		
-//-------------------------------------------------------------------------
-// and
-	ii_lset_func	c
-// exg
-	ii_exg_lset
-//-------------------------------------------------------------------------
-// 0xd000		add
-//-------------------------------------------------------------------------
-	ii_lset_func	d
-//-------------------------------------------------------------------------
-// 0xe000
-//-------------------------------------------------------------------------
-// shift register
-	ii_shift_lset	e	
-//-------------------------------------------------
-// differenz zwischen orginal und gemoved korrigieren
-	lea			ii_error(pc),a1
-	move.l		a1,d1
-	sub.l		#ii_error,d1
-	lea			table,a0
-	moveq		#0,d0
-_itkorr_loop:
-	add.l		d1,(a0)+
-	addq.l		#1,d0
-	cmp.l		#0xF000,d0
-	bne			_itkorr_loop
-#endif
 	rts
-#ifdef	ii_on
-//***********************************************************************************/
-//-------------------------------------------------------------------------
-		ii_ewf_func		// diverse fehlende adressierungn
-//-------------------------------------------------------------------------
-//---------------------------------------------------------------------------------------------
-// 0x0000
-//--------------------------------------------------------------------
-// ori 00
-		ii_op		00,or.l,i
-//--------------------------------------------------------------------
-// andi 02
-		ii_op		02,and.l,i
-//--------------------------------------------------------------------
-// subi 04
-		ii_op		04,and.l,i
-//--------------------------------------------------------------------
-// addi 06
-		ii_op		06,add.l,i
-//--------------------------------------------------------------------
-// eori 0a
-		ii_op		0a,eor.l,i
-//--------------------------------------------------------------------
-// cmpi 0c
-		ii_op		0c,cmp.l,i
-//--------------------------------------------------------------------
-// movep
-	ii_movep_func	
-///---------------------------------------------------------------------------------------------
-// 0x1000 move.b
-// 0x2000 move.l	
-// 0x3000 move.w
-		ii_move_op
-//---------------------------------------------------------------------------------------------
-// 0x4000
-//---------------------------------------------------------------------------------------------
-// neg 0x40..
-		ii_op		40,negx.l,n
-//---------------------------------------------------------------------------------------------
-// neg 0x44..
-		ii_op		44,neg.l,n
-//---------------------------------------------------------------------------------------------
-// not 0x46..
-		ii_op		46,not.l,n
-//---------------------------------------------------------------------------------------------
-// lea	d8(ax,dy.w),az; d8(pc,dy.w),az
-//-------------------------------------------------------------------
-		ii_lea_func
-//-------------------------------------------------------------------
-// movem
-//--------------------------------------------------------------------
-ii_movem_func
-//---------------------------------------------------------------------------------------------
-// 0x5000
-//---------------------------------------------------------------------------------------------
-//dbcc
-		ii_dbcc_func
-// addq 0x5...
-		ii_op		50,addq.l #8,q
-		ii_op		52,addq.l #1,q
-		ii_op		54,addq.l #2,q
-		ii_op		56,addq.l #3,q
-		ii_op		58,addq.l #4,q
-		ii_op		5a,addq.l #5,q
-		ii_op		5c,addq.l #6,q
-		ii_op		5e,addq.l #7,q
-//---------------------------------------------------------------------------------------------
-// subq 0x5...
-		ii_op		51,subq.l #8,q
-		ii_op		53,subq.l #1,q
-		ii_op		55,subq.l #2,q
-		ii_op		57,subq.l #3,q
-		ii_op		59,subq.l #4,q
-		ii_op		5b,subq.l #5,q
-		ii_op		5d,subq.l #6,q
-		ii_op		5f,subq.l #7,q
-//---------------------------------------------------------------------------------------------
-// 0x5... scc
-		ii_opc		50,st,c
-		ii_opc		51,sf,c
-		ii_opc		52,shi,c
-		ii_opc		53,sls,c
-		ii_opc		54,scc,c
-		ii_opc		55,scs,c
-		ii_opc		56,sne,c
-		ii_opc		57,seq,c
-		ii_opc		58,svc,c
-		ii_opc		59,svs,c
-		ii_opc		5a,spl,c
-		ii_opc		5b,smi,c
-		ii_opc		5c,sge,c
-		ii_opc		5d,slt,c
-		ii_opc		5e,sgt,c
-		ii_opc		5f,sle,c
-//---------------------------------------------------------------------------------------------
-// 0x6000
-//--------------------------------------------------------------------
-//---------------------------------------------------------------------------------------------
-// 0x7000
-//--------------------------------------------------------------------
-//---------------------------------------------------------------------------------------------
-// 0x8000
-//---------------------------------------------------------------------------------------------
-// or
-		ii_func		8,or
-//---------------------------------------------------------------------------------------------
-// 0x9000
-//---------------------------------------------------------------------------------------------
-// sub
-		ii_func		9,sub
-//---------------------------------------------------------------------------------------------
-// 0xa000
-//--------------------------------------------------------------------
-//---------------------------------------------------------------------------------------------
-// 0xb000
-//---------------------------------------------------------------------------------------------
-// eor
-		ii_op		b1,eor.l d0,q
-		ii_op		b3,eor.l d1,q
-		ii_op		b5,eor.l d2,q
-		ii_op		b7,eor.l d3,q
-		ii_op		b9,eor.l d4,q
-		ii_op		bb,eor.l d5,q
-		ii_op		bd,eor.l d6,q
-		ii_op		bf,eor.l d7,q
-//---------------------------------------------------------------------------------------------
-// 0xc000
-//---------------------------------------------------------------------------------------------
-// and
-		ii_func		c,and
-// exg
-		ii_exg_func
-//---------------------------------------------------------------------------------------------
-// 0xd000
-//---------------------------------------------------------------------------------------------
-// add
-		ii_func		d,add
-//---------------------------------------------------------------------------------------------
-// 0xe000 shift
-//--------------------------------------------------------------------
-		ii_shift_op
-//--------------------------------------------------------------------
-// 0xf000
-//--------------------------------------------------------------------
-#endif

sources/init_fpga.c

@@ -1,9 +1,27 @@
 /*
  * init_fpga.c
  *
- *  Created on: 16.10.2012
- *      Author: Markus Fröschle
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
  */
+
 #include <MCF5475.h>
 #include "sysinit.h"
 
@@ -14,8 +32,6 @@
 #define FPGA_CONF_DONE	(1 << 5)
 
 extern void xprintf_before_copy(const char *fmt, ...);
-extern void display_progress_before_copy(void);
-extern void wait_10ms();
 
 #define xprintf	 xprintf_before_copy
 #define display_progress display_progress_before_copy
@@ -27,7 +43,7 @@ void init_fpga(void)
 	register uint8_t *fpga_data;
 	register int i;
 
-	xprintf("FPGA load data...\r\n");
+	xprintf("FPGA load config... ");
 
 
 	MCF_GPIO_PODR_FEC1L &= ~FPGA_CLOCK;		/* FPGA clock => low */
@@ -60,12 +76,6 @@ void init_fpga(void)
 	do
 	{
 		uint8_t value = *fpga_data++;
-
-		if (((int) fpga_data % 0x100) == 0) {
-			xprintf("%08x  ", fpga_data);
-			display_progress();
-		}
-
 		for (i = 0; i < 8; i++, value >>= 1)
 		{
 
@@ -87,12 +97,13 @@ void init_fpga(void)
 
 	if (fpga_data < (uint8_t *) FPGA_FLASH_DATA_END)
 	{
-		for (i = 0; i < 4000; i++)
+		while (fpga_data++ < (uint8_t *) FPGA_FLASH_DATA_END)
 		{
 			/* toggle a little more since it's fun ;) */
 			MCF_GPIO_PODR_FEC1L |= FPGA_CLOCK;
 			MCF_GPIO_PODR_FEC1L &= ~FPGA_CLOCK;
 		}
+
 		xprintf("finished\r\n");
 	}
 	else

sources/macro.h

@@ -1,10 +0,0 @@
-/*******************************************************/
-// allgemeine macros
-/*******************************************************/
-.text
-wait_pll: .macro
-wait1_pll\@:
-		tst.w	(a1)
-		bmi		wait1_pll\@
-		rts
-.endm

sources/main.c

@@ -0,0 +1,100 @@
+/*----------------------------------------------------------------------*/
+/* FatFs sample project for generic microcontrollers (C)ChaN, 2012      */
+/*----------------------------------------------------------------------*/
+
+#include <stdio.h>
+#include "ff.h"
+
+
+FATFS Fatfs;		/* File system object */
+FIL Fil;			/* File object */
+uint8_t Buff[128];		/* File read buffer */
+
+
+void die (		/* Stop with dying message */
+	FRESULT rc	/* FatFs return value */
+)
+{
+	xprintf("Failed with rc=%u.\n", rc);
+	for (;;) ;
+}
+
+
+/*-----------------------------------------------------------------------*/
+/* Program Main                                                          */
+/*-----------------------------------------------------------------------*/
+
+int main (void)
+{
+	FRESULT rc;				/* Result code */
+	DIR dir;				/* Directory object */
+	FILINFO fno;			/* File information object */
+	uint32_t bw, br, i;
+
+
+	f_mount(0, &Fatfs);		/* Register volume work area (never fails) */
+
+	xprintf("\nOpen an existing file (message.txt).\n");
+	rc = f_open(&Fil, "MESSAGE.TXT", FA_READ);
+	if (rc) die(rc);
+
+	xprintf("\nType the file content.\n");
+	for (;;) {
+		rc = f_read(&Fil, Buff, sizeof Buff, &br);	/* Read a chunk of file */
+		if (rc || !br) break;			/* Error or end of file */
+		for (i = 0; i < br; i++)		/* Type the data */
+			putchar(Buff[i]);
+	}
+	if (rc) die(rc);
+
+	xprintf("\nClose the file.\n");
+	rc = f_close(&Fil);
+	if (rc) die(rc);
+
+	xprintf("\nCreate a new file (hello.txt).\n");
+	rc = f_open(&Fil, "HELLO.TXT", FA_WRITE | FA_CREATE_ALWAYS);
+	if (rc) die(rc);
+
+	xprintf("\nWrite a text data. (Hello world!)\n");
+	rc = f_write(&Fil, "Hello world!\r\n", 14, &bw);
+	if (rc) die(rc);
+	xprintf("%u bytes written.\n", bw);
+
+	xprintf("\nClose the file.\n");
+	rc = f_close(&Fil);
+	if (rc) die(rc);
+
+	xprintf("\nOpen root directory.\n");
+	rc = f_opendir(&dir, "");
+	if (rc) die(rc);
+
+	xprintf("\nDirectory listing...\n");
+	for (;;) {
+		rc = f_readdir(&dir, &fno);		/* Read a directory item */
+		if (rc || !fno.fname[0]) break;	/* Error or end of dir */
+		if (fno.fattrib & AM_DIR)
+			xprintf("   <dir>  %s\n", fno.fname);
+		else
+			xprintf("%8lu  %s\n", fno.fsize, fno.fname);
+	}
+	if (rc) die(rc);
+
+	xprintf("\nTest completed.\n");
+	for (;;) ;
+}
+
+
+
+/*---------------------------------------------------------*/
+/* User Provided Timer Function for FatFs module           */
+/*---------------------------------------------------------*/
+
+uint32_t get_fattime (void)
+{
+	return	  ((uint32_t)(2012 - 1980) << 25)	/* Year = 2012 */
+			| ((uint32_t)1 << 21)				/* Month = 1 */
+			| ((uint32_t)1 << 16)				/* Day_m = 1*/
+			| ((uint32_t)0 << 11)				/* Hour = 0 */
+			| ((uint32_t)0 << 5)				/* Min = 0 */
+			| ((uint32_t)0 >> 1);				/* Sec = 0 */
+}

sources/mmc.c

@@ -0,0 +1,652 @@
+#include <stdint.h>
+#include <bas_types.h>
+#include <sd_card.h>
+#include <bas_printf.h>
+#include <sysinit.h>
+#include <wait.h>
+#include <MCF5475.h>
+
+/*
+ * Firebee: MMCv3/SDv1/SDv2 (SPI mode) control module
+ *
+ *
+ * Copyright (C) 2011, ChaN, all right reserved.
+ *
+ * This software is a free software and there is NO WARRANTY.
+ * No restriction on use. You can use, modify and redistribute it for
+ * personal, non-profit or commercial products UNDER YOUR RESPONSIBILITY.
+ * Redistributions of source code must retain the above copyright notice.
+ *
+ */
+
+/* Copyright (C) 2012, mfro, all rights reserved. */
+
+
+#define	CS_HIGH()	{ dspi_fifo_val &= ~MCF_DSPI_DTFR_CS5; }
+#define	CS_LOW()	{ dspi_fifo_val |= MCF_DSPI_DTFR_CS5; }
+
+#define SPICLK_FAST() { MCF_DSPI_DCTAR0 = MCF_DSPI_DCTAR_TRSZ(0b111) |	/* transfer size = 8 bit */ \
+					  MCF_DSPI_DCTAR_PCSSCK(0b01) |	/* 1 clock DSPICS to DSPISCK delay prescaler */ \
+					  MCF_DSPI_DCTAR_PASC_1CLK |	/* 1 clock DSPISCK to DSPICS negation prescaler */ \
+					  MCF_DSPI_DCTAR_PDT_1CLK |		/* 1 clock delay between DSPICS assertions prescaler */ \
+					  MCF_DSPI_DCTAR_PBR_3CLK |		/* 3 clock Baudrate prescaler */ \
+					  MCF_DSPI_DCTAR_ASC(0b0000) |	/* 2 */ \
+					  MCF_DSPI_DCTAR_DT(0b0000) |	/* 2 */ \
+					  MCF_DSPI_DCTAR_BR(0b0000); }	/* clock / 2 */
+
+#define SPICLK_SLOW() { MCF_DSPI_DCTAR0 = MCF_DSPI_DCTAR_TRSZ(0b111) |	/* transfer size = 8 bit */ \
+					  MCF_DSPI_DCTAR_PCSSCK(0b01) |	/* 3 clock DSPICS to DSPISCK delay prescaler */ \
+					  MCF_DSPI_DCTAR_PASC_3CLK |	/* 3 clock DSPISCK to DSPICS negation prescaler */ \
+					  MCF_DSPI_DCTAR_PDT_3CLK |		/* 3 clock delay between DSPICS assertions prescaler */ \
+					  MCF_DSPI_DCTAR_PBR_3CLK |		/* 3 clock prescaler */ \
+					  MCF_DSPI_DCTAR_ASC(0b1001) |	/* 1024 */ \
+					  MCF_DSPI_DCTAR_DT(0b1001) |	/* 1024 */ \
+					  MCF_DSPI_DCTAR_BR(0b0111); }
+
+
+
+/*--------------------------------------------------------------------------
+
+   Module Private Functions
+
+---------------------------------------------------------------------------*/
+
+#include "diskio.h"
+
+
+/* MMC/SD command */
+#define CMD0	(0)			/* GO_IDLE_STATE */
+#define CMD1	(1)			/* SEND_OP_COND (MMC) */
+#define	ACMD41	(0x80+41)	/* SEND_OP_COND (SDC) */
+#define CMD8	(8)			/* SEND_IF_COND */
+#define CMD9	(9)			/* SEND_CSD */
+#define CMD10	(10)		/* SEND_CID */
+#define CMD12	(12)		/* STOP_TRANSMISSION */
+#define ACMD13	(0x80+13)	/* SD_STATUS (SDC) */
+#define CMD16	(16)		/* SET_BLOCKLEN */
+#define CMD17	(17)		/* READ_SINGLE_BLOCK */
+#define CMD18	(18)		/* READ_MULTIPLE_BLOCK */
+#define CMD23	(23)		/* SET_BLOCK_COUNT (MMC) */
+#define	ACMD23	(0x80+23)	/* SET_WR_BLK_ERASE_COUNT (SDC) */
+#define CMD24	(24)		/* WRITE_BLOCK */
+#define CMD25	(25)		/* WRITE_MULTIPLE_BLOCK */
+#define CMD32	(32)		/* ERASE_ER_BLK_START */
+#define CMD33	(33)		/* ERASE_ER_BLK_END */
+#define CMD38	(38)		/* ERASE */
+#define CMD55	(55)		/* APP_CMD */
+#define CMD58	(58)		/* READ_OCR */
+
+
+static volatile DSTATUS Stat = 0 /* STA_NOINIT */;	/* Physical drive status */
+static uint8_t CardType;			/* Card type flags */
+
+
+
+/*-----------------------------------------------------------------------*/
+/* Send/Receive data to the MMC  (Platform dependent)                    */
+/*-----------------------------------------------------------------------*/
+
+static uint32_t dspi_fifo_val = /* CONT disable continous chip select */
+								/* CTAS use DCTAR0 for clock and attributes */
+								MCF_DSPI_DTFR_EOQ | /* current transfer is last in queue */
+								MCF_DSPI_DTFR_CTCNT;
+
+/* Exchange a byte */
+static uint8_t xchg_spi(uint8_t byte)
+{
+	uint32_t fifo = dspi_fifo_val | byte;
+	uint8_t res;
+
+	MCF_DSPI_DTFR = fifo;
+	while (! (MCF_DSPI_DSR & MCF_DSPI_DSR_TCF));	/* wait until DSPI transfer complete */
+	MCF_DSPI_DSR = 0xffffffff;						/* clear DSPI status register */
+
+	fifo = MCF_DSPI_DRFR;
+	MCF_DSPI_DSR = 0xffffffff;
+	res = fifo & 0xff;
+	return res;
+}
+
+
+/* Receive multiple byte
+ *
+ * buff: pointer to data buffer
+ * btr: number of bytes to receive (16, 64 or 512)
+ */
+static void rcvr_spi_multi(uint8_t *buff, uint32_t count)
+{
+	int i;
+
+	for (i = 0; i < count; i++)
+		*buff++ = xchg_spi(0xff);
+}
+
+
+#if _USE_WRITE
+/* Send multiple byte
+ *
+ * buff: pointer to data
+ * btx: number of bytes to send
+ */
+static void xmit_spi_multi(const uint8_t *buff, uint32_t btx)
+{
+	int i;
+
+	for (i = 0; i < btx; i++)
+		xchg_spi(*buff++);
+}
+#endif
+
+
+static bool card_ready(void)
+{
+	uint8_t d;
+
+	d = xchg_spi(0xff);
+	return (d == 0xff);
+}
+
+/*
+ * Wait for card ready
+ *
+ * wt: timeout in ms
+ * returns 1: ready, 0: timeout
+ */
+static int wait_ready(uint32_t wt)
+{
+	return waitfor(wt, card_ready);
+}
+
+
+
+/*
+ * Deselect card and release SPI
+ */
+static void deselect(void)
+{
+	CS_HIGH();
+	xchg_spi(0xFF);	/* Dummy clock (force DO hi-z for multiple slave SPI) */
+}
+
+
+
+/*
+ * Select card and wait for ready
+ */
+
+static int select(void)	/* 1:OK, 0:Timeout */
+{
+	CS_LOW();
+
+	xchg_spi(0xFF);	/* Dummy clock (force DO enabled) */
+
+	if (wait_ready(5000000))
+		return 1;	/* OK */
+	deselect();
+	return 0;	/* Timeout */
+}
+
+
+
+/*
+ * Control SPI module (Platform dependent)
+ */
+static void power_on (void)	/* Enable SSP module */
+{
+	MCF_PAD_PAR_DSPI = 0x1fff;			/* configure all DSPI GPIO pins for DSPI usage */
+
+	/*
+	 * FIXME: really necessary or just an oversight
+	 * that PAD_PAR_DSPI is only 16 bit?
+	 */
+	// MCF_PAD_PAR_TIMER = 0xff; leave off for now
+
+	/*
+	 * initialize DSPI module configuration register
+	 */
+	MCF_DSPI_DMCR = MCF_DSPI_DMCR_MSTR |	/* FireBee is DSPI master*/
+				MCF_DSPI_DMCR_CSIS5 |	/* CS5 inactive state high */
+				MCF_DSPI_DMCR_CSIS3 |	/* CS3 inactive state high */
+				MCF_DSPI_DMCR_CSIS2 |	/* CS2 inactive state high */
+				MCF_DSPI_DMCR_DTXF |	/* disable transmit FIFO */
+				MCF_DSPI_DMCR_DRXF |	/* disable receive FIFO */
+				MCF_DSPI_DMCR_CTXF |	/* clear transmit FIFO */
+				MCF_DSPI_DMCR_CRXF;		/* clear receive FIFO */
+
+	/* initialize DSPI clock and transfer attributes register 0 */
+	MCF_DSPI_DCTAR0 = MCF_DSPI_DCTAR_TRSZ(0b111) |	/* transfer size = 8 bit */
+					  MCF_DSPI_DCTAR_PCSSCK(0b01) |	/* 3 clock DSPICS to DSPISCK delay prescaler */
+					  MCF_DSPI_DCTAR_PASC_3CLK |	/* 3 clock DSPISCK to DSPICS negation prescaler */
+					  MCF_DSPI_DCTAR_PDT_3CLK |		/* 3 clock delay between DSPICS assertions prescaler */
+					  MCF_DSPI_DCTAR_PBR_3CLK |		/* 3 clock prescaler */
+					  MCF_DSPI_DCTAR_ASC(0b1001) |	/* 1024 */
+					  MCF_DSPI_DCTAR_DT(0b1001) |	/* 1024 */
+					  MCF_DSPI_DCTAR_BR(0b0111);
+
+	CS_HIGH();					/* Set CS# high */
+
+	/* card should now be initialized as MMC */
+
+	wait(10 * 1000);	/* 10ms */
+}
+
+
+static
+void power_off (void)		/* Disable SPI function */
+{
+	select();				/* Wait for card ready */
+	deselect();
+}
+
+
+/*-----------------------------------------------------------------------*/
+/* Receive a data packet from the MMC                                    */
+/*-----------------------------------------------------------------------*/
+static
+int rcvr_datablock (	/* 1:OK, 0:Error */
+	uint8_t *buff,			/* Data buffer */
+	uint32_t btr			/* Data block length (byte) */
+)
+{
+	uint8_t token;
+	uint32_t target = MCF_SLT_SCNT(0) - (200 * 1000L * 132);
+
+	do {							/* Wait for DataStart token in timeout of 200ms */
+		token = xchg_spi(0xFF);
+		/* This loop will take a time. Insert rot_rdq() here for multitask envilonment. */
+	} while ((token == 0xFF) && MCF_SLT_SCNT(0) > target);
+	if(token != 0xFE) return 0;		/* Function fails if invalid DataStart token or timeout */
+
+	rcvr_spi_multi(buff, btr);		/* Store trailing data to the buffer */
+	xchg_spi(0xFF); xchg_spi(0xFF);			/* Discard CRC */
+
+	return 1;						/* Function succeeded */
+}
+
+
+
+/*-----------------------------------------------------------------------*/
+/* Send a data packet to the MMC                                         */
+/*-----------------------------------------------------------------------*/
+
+#if _USE_WRITE
+static
+int xmit_datablock (	/* 1:OK, 0:Failed */
+	const uint8_t *buff,	/* Ponter to 512 byte data to be sent */
+	uint8_t token			/* Token */
+)
+{
+	uint8_t resp;
+
+
+	if (!wait_ready(500)) return 0;		/* Wait for card ready */
+
+	xchg_spi(token);					/* Send token */
+	if (token != 0xFD) {				/* Send data if token is other than StopTran */
+		xmit_spi_multi(buff, 512);		/* Data */
+		xchg_spi(0xFF); xchg_spi(0xFF);	/* Dummy CRC */
+
+		resp = xchg_spi(0xFF);				/* Receive data resp */
+		if ((resp & 0x1F) != 0x05)		/* Function fails if the data packet was not accepted */
+			return 0;
+	}
+	return 1;
+}
+#endif
+
+
+/*-----------------------------------------------------------------------*/
+/* Send a command packet to the MMC                                      */
+/*-----------------------------------------------------------------------*/
+
+static uint8_t send_cmd (		/* Return value: R1 resp (bit7==1:Failed to send) */
+	uint8_t cmd,		/* Command index */
+	uint32_t arg		/* Argument */
+)
+{
+	uint8_t n, res;
+
+
+	if (cmd & 0x80) {	/* Send a CMD55 prior to ACMD<n> */
+		cmd &= 0x7F;
+		res = send_cmd(CMD55, 0);
+		if (res > 1) return res;
+	}
+
+	/* Select card */
+	deselect();
+	if (!select()) return 0xFF;
+
+	/* Send command packet */
+	xchg_spi(0x40 | cmd);				/* Start + command index */
+	xchg_spi((uint8_t)(arg >> 24));		/* Argument[31..24] */
+	xchg_spi((uint8_t)(arg >> 16));		/* Argument[23..16] */
+	xchg_spi((uint8_t)(arg >> 8));			/* Argument[15..8] */
+	xchg_spi((uint8_t)arg);				/* Argument[7..0] */
+	n = 0x01;							/* Dummy CRC + Stop */
+	if (cmd == CMD0) n = 0x95;			/* Valid CRC for CMD0(0) */
+	if (cmd == CMD8) n = 0x87;			/* Valid CRC for CMD8(0x1AA) */
+	xchg_spi(n);
+
+	/* Receive command resp */
+	if (cmd == CMD12) xchg_spi(0xFF);	/* Diacard following one byte when CMD12 */
+	n = 10;								/* Wait for response (10 bytes max) */
+	do
+		res = xchg_spi(0xFF);
+	while ((res & 0x80) && --n);
+
+	return res;							/* Return received response */
+}
+
+
+
+/*--------------------------------------------------------------------------
+
+   Public Functions
+
+---------------------------------------------------------------------------*/
+
+
+/*
+ * Initialize disk drive
+ *
+ * drv: physical drive number (0)
+ */
+DSTATUS disk_initialize(uint8_t drv)
+{
+	uint8_t n, cmd, ty, ocr[4];
+
+
+	if (drv) return STA_NOINIT;			/* Supports only drive 0 */
+	power_on();							/* Initialize SPI */
+
+	if (Stat & STA_NODISK) return Stat;	/* Is card existing in the socket? */
+
+	SPICLK_SLOW();
+	for (n = 10; n; n--) xchg_spi(0xFF);	/* Send 80 dummy clocks */
+
+	ty = 0;
+	if (send_cmd(CMD0, 0) == 1) {			/* Put the card SPI/Idle state */
+		uint32_t target = MCF_SLT_SCNT(0) - (1000L * 1000L * 132);	/* 1 sec */
+
+		if (send_cmd(CMD8, 0x1AA) == 1) {	/* SDv2? */
+			for (n = 0; n < 4; n++) ocr[n] = xchg_spi(0xFF);	/* Get 32 bit return value of R7 resp */
+			if (ocr[2] == 0x01 && ocr[3] == 0xAA) {				/* Is the card supports vcc of 2.7-3.6V? */
+				while (MCF_SLT_SCNT(0) > target && send_cmd(ACMD41, 1UL << 30)) ;	/* Wait for end of initialization with ACMD41(HCS) */
+				if (MCF_SLT_SCNT(0) > target && send_cmd(CMD58, 0) == 0) {		/* Check CCS bit in the OCR */
+					for (n = 0; n < 4; n++) ocr[n] = xchg_spi(0xFF);
+					ty = (ocr[0] & 0x40) ? CT_SD2 | CT_BLOCK : CT_SD2;	/* Card id SDv2 */
+				}
+			}
+		} else {	/* Not SDv2 card */
+			if (send_cmd(ACMD41, 0) <= 1) 	{	/* SDv1 or MMC? */
+				ty = CT_SD1; cmd = ACMD41;	/* SDv1 (ACMD41(0)) */
+			} else {
+				ty = CT_MMC; cmd = CMD1;	/* MMCv3 (CMD1(0)) */
+			}
+			while (MCF_SLT_SCNT(0) > target && send_cmd(cmd, 0)) ;		/* Wait for end of initialization */
+			if (!MCF_SLT_SCNT(0) > target || send_cmd(CMD16, 512) != 0)	/* Set block length: 512 */
+				ty = 0;
+		}
+	}
+	CardType = ty;	/* Card type */
+	deselect();
+
+	if (ty) {			/* OK */
+		SPICLK_FAST();			/* Set fast clock */
+		Stat &= ~STA_NOINIT;	/* Clear STA_NOINIT flag */
+	} else {			/* Failed */
+		power_off();
+		Stat = STA_NOINIT;
+	}
+
+	return Stat;
+}
+
+
+
+/*-----------------------------------------------------------------------*/
+/* Get disk status                                                       */
+/*-----------------------------------------------------------------------*/
+
+DSTATUS disk_status (
+	uint8_t drv		/* Physical drive number (0) */
+)
+{
+	if (drv) return STA_NOINIT;		/* Supports only drive 0 */
+
+	return Stat;	/* Return disk status */
+}
+
+
+
+/*-----------------------------------------------------------------------*/
+/* Read sector(s)                                                        */
+/*-----------------------------------------------------------------------*/
+
+DRESULT disk_read (
+	uint8_t drv,		/* Physical drive number (0) */
+	uint8_t *buff,		/* Pointer to the data buffer to store read data */
+	uint32_t sector,	/* Start sector number (LBA) */
+	uint8_t count		/* Number of sectors to read (1..128) */
+)
+{
+	if (drv || !count) return RES_PARERR;		/* Check parameter */
+	if (Stat & STA_NOINIT) return RES_NOTRDY;	/* Check if drive is ready */
+
+	if (!(CardType & CT_BLOCK)) sector *= 512;	/* LBA ot BA conversion (byte addressing cards) */
+
+	if (count == 1) {	/* Single sector read */
+		if ((send_cmd(CMD17, sector) == 0)	/* READ_SINGLE_BLOCK */
+			&& rcvr_datablock(buff, 512))
+			count = 0;
+	}
+	else {				/* Multiple sector read */
+		if (send_cmd(CMD18, sector) == 0) {	/* READ_MULTIPLE_BLOCK */
+			do {
+				if (!rcvr_datablock(buff, 512)) break;
+				buff += 512;
+			} while (--count);
+			send_cmd(CMD12, 0);				/* STOP_TRANSMISSION */
+		}
+	}
+	deselect();
+
+	return count ? RES_ERROR : RES_OK;	/* Return result */
+}
+
+
+
+/*-----------------------------------------------------------------------*/
+/* Write sector(s)                                                       */
+/*-----------------------------------------------------------------------*/
+
+#if _USE_WRITE
+DRESULT disk_write (
+	uint8_t drv,			/* Physical drive number (0) */
+	const uint8_t *buff,	/* Ponter to the data to write */
+	uint32_t sector,		/* Start sector number (LBA) */
+	uint8_t count			/* Number of sectors to write (1..128) */
+)
+{
+	if (drv || !count) return RES_PARERR;		/* Check parameter */
+	if (Stat & STA_NOINIT) return RES_NOTRDY;	/* Check drive status */
+	if (Stat & STA_PROTECT) return RES_WRPRT;	/* Check write protect */
+
+	if (!(CardType & CT_BLOCK)) sector *= 512;	/* LBA ==> BA conversion (byte addressing cards) */
+
+	if (count == 1) {	/* Single sector write */
+		if ((send_cmd(CMD24, sector) == 0)	/* WRITE_BLOCK */
+			&& xmit_datablock(buff, 0xFE))
+			count = 0;
+	}
+	else {				/* Multiple sector write */
+		if (CardType & CT_SDC) send_cmd(ACMD23, count);	/* Predefine number of sectors */
+		if (send_cmd(CMD25, sector) == 0) {	/* WRITE_MULTIPLE_BLOCK */
+			do {
+				if (!xmit_datablock(buff, 0xFC)) break;
+				buff += 512;
+			} while (--count);
+			if (!xmit_datablock(0, 0xFD))	/* STOP_TRAN token */
+				count = 1;
+		}
+	}
+	deselect();
+
+	return count ? RES_ERROR : RES_OK;	/* Return result */
+}
+#endif
+
+
+/*-----------------------------------------------------------------------*/
+/* Miscellaneous drive controls other than data read/write               */
+/*-----------------------------------------------------------------------*/
+
+#if _USE_IOCTL
+DRESULT disk_ioctl (
+	uint8_t drv,		/* Physical drive number (0) */
+	uint8_t ctrl,		/* Control command code */
+	void *buff		/* Pointer to the conrtol data */
+)
+{
+	DRESULT res;
+	uint8_t n, csd[16], *ptr = buff;
+	uint32_t *dp, st, ed, csize;
+
+
+	if (drv) return RES_PARERR;					/* Check parameter */
+	if (Stat & STA_NOINIT) return RES_NOTRDY;	/* Check if drive is ready */
+
+	res = RES_ERROR;
+
+	switch (ctrl) {
+	case CTRL_SYNC :		/* Wait for end of internal write process of the drive */
+		if (select()) {
+			deselect();
+			res = RES_OK;
+		}
+		break;
+
+	case GET_SECTOR_COUNT :	/* Get drive capacity in unit of sector (DWORD) */
+		if ((send_cmd(CMD9, 0) == 0) && rcvr_datablock(csd, 16)) {
+			if ((csd[0] >> 6) == 1) {	/* SDC ver 2.00 */
+				csize = csd[9] + ((uint16_t)csd[8] << 8) + ((uint32_t)(csd[7] & 63) << 16) + 1;
+				*(uint32_t*)buff = csize << 10;
+			} else {					/* SDC ver 1.XX or MMC ver 3 */
+				n = (csd[5] & 15) + ((csd[10] & 128) >> 7) + ((csd[9] & 3) << 1) + 2;
+				csize = (csd[8] >> 6) + ((uint16_t)csd[7] << 2) + ((uint16_t)(csd[6] & 3) << 10) + 1;
+				*(uint32_t*)buff = csize << (n - 9);
+			}
+			res = RES_OK;
+		}
+		break;
+
+	case GET_SECTOR_SIZE :	/* Get sector size in unit of byte (WORD) */
+		*(uint16_t*)buff = 512;
+		res = RES_OK;
+		break;
+
+	case GET_BLOCK_SIZE :	/* Get erase block size in unit of sector (DWORD) */
+		if (CardType & CT_SD2) {	/* SDC ver 2.00 */
+			if (send_cmd(ACMD13, 0) == 0) {	/* Read SD status */
+				xchg_spi(0xFF);
+				if (rcvr_datablock(csd, 16)) {				/* Read partial block */
+					for (n = 64 - 16; n; n--) xchg_spi(0xFF);	/* Purge trailing data */
+					*(uint32_t*)buff = 16UL << (csd[10] >> 4);
+					res = RES_OK;
+				}
+			}
+		} else {					/* SDC ver 1.XX or MMC */
+			if ((send_cmd(CMD9, 0) == 0) && rcvr_datablock(csd, 16)) {	/* Read CSD */
+				if (CardType & CT_SD1) {	/* SDC ver 1.XX */
+					*(uint32_t*)buff = (((csd[10] & 63) << 1) + ((uint16_t)(csd[11] & 128) >> 7) + 1) << ((csd[13] >> 6) - 1);
+				} else {					/* MMC */
+					*(uint32_t*)buff = ((uint16_t)((csd[10] & 124) >> 2) + 1) * (((csd[11] & 3) << 3) + ((csd[11] & 224) >> 5) + 1);
+				}
+				res = RES_OK;
+			}
+		}
+		break;
+
+	case CTRL_ERASE_SECTOR :	/* Erase a block of sectors (used when _USE_ERASE == 1) */
+		if (!(CardType & CT_SDC)) break;				/* Check if the card is SDC */
+		if (disk_ioctl(drv, MMC_GET_CSD, csd)) break;	/* Get CSD */
+		if (!(csd[0] >> 6) && !(csd[10] & 0x40)) break;	/* Check if sector erase can be applied to the card */
+		dp = buff; st = dp[0]; ed = dp[1];				/* Load sector block */
+		if (!(CardType & CT_BLOCK)) {
+			st *= 512; ed *= 512;
+		}
+		if (send_cmd(CMD32, st) == 0 && send_cmd(CMD33, ed) == 0 && send_cmd(CMD38, 0) == 0 && wait_ready(30000))	/* Erase sector block */
+			res = RES_OK;	/* FatFs does not check result of this command */
+		break;
+
+	/* Following command are not used by FatFs module */
+
+	case MMC_GET_TYPE :		/* Get MMC/SDC type (BYTE) */
+		*ptr = CardType;
+		res = RES_OK;
+		break;
+
+	case MMC_GET_CSD :		/* Read CSD (16 bytes) */
+		if (send_cmd(CMD9, 0) == 0		/* READ_CSD */
+			&& rcvr_datablock(ptr, 16))
+			res = RES_OK;
+		break;
+
+	case MMC_GET_CID :		/* Read CID (16 bytes) */
+		if (send_cmd(CMD10, 0) == 0		/* READ_CID */
+			&& rcvr_datablock(ptr, 16))
+			res = RES_OK;
+		break;
+
+	case MMC_GET_OCR :		/* Read OCR (4 bytes) */
+		if (send_cmd(CMD58, 0) == 0) {	/* READ_OCR */
+			for (n = 4; n; n--) *ptr++ = xchg_spi(0xFF);
+			res = RES_OK;
+		}
+		break;
+
+	case MMC_GET_SDSTAT :	/* Read SD status (64 bytes) */
+		if (send_cmd(ACMD13, 0) == 0) {	/* SD_STATUS */
+			xchg_spi(0xFF);
+			if (rcvr_datablock(ptr, 64))
+				res = RES_OK;
+		}
+		break;
+
+	default:
+		res = RES_PARERR;
+		break;
+	}
+
+	deselect();
+
+	return res;
+}
+#endif
+
+
+/*-----------------------------------------------------------------------*/
+/* Device timer function                                                 */
+/*-----------------------------------------------------------------------*/
+/* This function must be called from timer interrupt routine in period
+/  of 1 ms to generate card control timing.
+*/
+
+#ifdef _NOT_USED_
+void disk_timerproc (void)
+{
+	uint8_t s;
+
+	s = Stat;
+	if (WP)		/* Write protected */
+		s |= STA_PROTECT;
+	else		/* Write enabled */
+		s &= ~STA_PROTECT;
+	//if (INS)	/* Card is in socket */
+		s &= ~STA_NODISK;
+	//else		/* Socket empty */
+	//	s |= (STA_NODISK | STA_NOINIT);
+	Stat = s;
+}
+#endif /* _NOT_USED_ */

sources/printf_helper.S

@@ -1,4 +1,28 @@
-// assembler trampoline to let printf (compiled -mpcrel) indirectly reference __MBAR
+/*
+ * printf_helper.S
+ *
+ * assembler trampoline to let printf (compiled -mpcrel) indirectly reference __MBAR
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ */
+
 
 			.global printf_helper
 printf_helper:

sources/s19reader.c

@@ -0,0 +1,424 @@
+/*
+ * s19reader.c
+ *
+ *  Created on: 17.12.2012
+ *      Author: mfro
+ *      The ACP Firebee project
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2012        M. Froeschle
+ */
+
+#include <stdint.h>
+#include <stdbool.h>
+#include <stdlib.h>
+
+#include "bas_printf.h"
+#include "sd_card.h"
+#include "diskio.h"
+#include "ff.h"
+#include "s19reader.h"
+#include "cache.h"
+
+/*
+ * Yes, I know. The following doesn't really look like code should look like...
+ *
+ * I did try to map structures over the S-records with (packed) which didn't work reliably due to gcc _not_ packing them appropiate
+ * and finally ended up with this. Not nice, put paid (and working).
+ *
+ */
+#define SREC_TYPE(a) 		(a)[0]							/* type of record */
+#define SREC_COUNT(a) 		(a)[1]							/* length of valid bytes to follow */
+#define SREC_ADDR16(a) 		(256 * (a)[2] + (a)[3])			/* 2 byte address field */
+#define SREC_ADDR24(a)		(0x10000 * (a)[2] + 0x100 *  \
+							(a)[3] + (a)[4])				/* 3 byte address field */
+#define SREC_ADDR32(a) 		(0x1000000 * a[2] + 0x10000 * \
+							a[3] + 0x100 * (a)[4] + (a)[5])	/* 4 byte address field */
+#define SREC_DATA16(a)		((uint8_t *)&((a)[4]))			/* address of first byte of data in a record */
+#define SREC_DATA24(a)		((uint8_t *)&((a)[5]))			/* address of first data byte in 24 bit record */
+#define SREC_DATA32(a)		((uint8_t *)&((a)[6]))			/* adress of first byte of a record with 32 bit address field */
+#define SREC_DATA16_SIZE(a)	(SREC_COUNT((a)) - 3)			/* length of the data[] array without the checksum field */
+#define SREC_DATA24_SIZE(a)	(SREC_COUNT((a)) - 4)			/* length of the data[] array without the checksum field */
+#define SREC_DATA32_SIZE(a)	(SREC_COUNT((a)) - 5)			/* length of the data[] array without the checksum field */
+#define SREC_CHECKSUM(a)	(a)[SREC_COUNT(a) + 2 - 1]		/* record's checksum (two's complement of the sum of all bytes) */
+
+/*
+ * convert a single hex character into byte
+ */
+static uint8_t nibble_to_byte(uint8_t nibble)
+{
+	if ((nibble >= '0') && (nibble <= '9'))
+		return nibble - '0';
+	else if ((nibble >= 'A' && nibble <= 'F'))
+		return 10 + nibble - 'A';
+	else if ((nibble >= 'a' && nibble <= 'f'))
+		return 10 + nibble - 'a';
+	return 0;
+}
+
+/*
+ * convert two hex characters into byte
+ */
+static uint8_t hex_to_byte(uint8_t hex[2])
+{
+	return 16 * (nibble_to_byte(hex[0])) + (nibble_to_byte(hex[1]));
+}
+
+/*
+ * convert four hex characters into a 16 bit word
+ */
+static uint16_t hex_to_word(uint8_t hex[4])
+{
+	return 256 * hex_to_byte(&hex[0]) + hex_to_byte(&hex[2]);
+}
+
+/*
+ * convert eight hex characters into a 32 bit word
+ */
+static uint32_t hex_to_long(uint8_t hex[8])
+{
+	return 65536 * hex_to_word(&hex[0]) + hex_to_word(&hex[4]);
+}
+
+/*
+ * compute the record checksum
+ *
+ * it consists of the one's complement of the byte sum of the data from the count field until the end
+ */
+static uint8_t checksum(uint8_t arr[])
+{
+	int i;
+	uint8_t checksum = SREC_COUNT(arr);
+
+	for (i = 0; i < SREC_COUNT(arr) - 1; i++)
+	{
+		checksum += arr[i + 2];
+	}
+	return ~checksum;
+}
+
+#ifdef _NOT_USED_
+void print_record(uint8_t *arr)
+{
+	switch (SREC_TYPE(arr))
+	{
+		case 0:
+		{
+			xprintf("type 0x%x ", SREC_TYPE(arr));
+			xprintf("count 0x%x ", SREC_COUNT(arr));
+			xprintf("addr 0x%x ", SREC_ADDR16(arr));
+			xprintf("module %11.11s ", SREC_DATA16(arr));
+			xprintf("chk 0x%x 0x%x\r\n", SREC_CHECKSUM(arr), checksum(arr));
+		}
+		break;
+
+		case 3:
+		case 7:
+		{
+			xprintf("type 0x%x ", SREC_TYPE(arr));
+			xprintf("count 0x%x ", SREC_COUNT(arr));
+			xprintf("addr 0x%x ", SREC_ADDR32(arr));
+			xprintf("data %02x,%02x,%02x,%02x,... ",
+					SREC_DATA32(arr)[0], SREC_DATA32(arr)[1], SREC_DATA32(arr)[3], SREC_DATA32(arr)[4]);
+			xprintf("chk 0x%x 0x%x\r\n", SREC_CHECKSUM(arr), checksum(arr));
+		}
+		break;
+
+		default:
+			xprintf("unsupported report type %d in print_record\r\n", arr[0]);
+			break;
+	}
+}
+#endif /* _NOT_USED_ */
+
+/*
+ * convert an S-record line into its corresponding byte vector (ASCII->binary)
+ */
+static void line_to_vector(uint8_t *buff, uint8_t *vector)
+{
+	int i;
+	int length;
+	uint8_t *vp = vector;
+
+	length = hex_to_byte(buff + 2);
+
+	buff++;
+	*vp++ = nibble_to_byte(*buff); /* record type. Only one single nibble */
+	buff++;
+
+	for (i = 0; i <= length; i++)
+	{
+		*vp++ = hex_to_byte(buff);
+		buff += 2;
+	}
+}
+
+/*
+ * read and parse a Motorola S-record file and copy contents to dst. The theory of operation is to read and parse the S-record file
+ * and to use the supplied callback routine to copy the buffer to the destination once the S-record line is converted.
+ * The memcpy callback can be anything (as long as it conforms parameter-wise) - a basically empty function to just let
+ * read_srecords validate the file, a standard memcpy() to copy file contents to destination RAM or a more sophisticated
+ * routine that does write/erase flash
+ *
+ * FIXME: Currently only records that the gcc toolchain emits are supported.
+ *
+ * Parameters:
+ *   IN
+ *   	filename - the filename that contains the S-records
+ *   	callback - the memcpy() routine discussed above
+ *   OUT
+ *   	start_address - the execution address of the code as read from the file. Can be used to jump into and execute it
+ *   	actual_length - the overall length of the binary code read from the file
+ *   returns
+ *   	OK or an err_t error code if anything failed
+ */
+err_t read_srecords(char *filename, void **start_address, uint32_t *actual_length, memcpy_callback_t callback)
+{
+	FRESULT fres;
+	FIL file;
+	err_t ret = OK;
+
+	if ((fres = f_open(&file, filename, FA_READ) == FR_OK))
+	{
+		uint8_t line[80];
+		int lineno = 0;
+		int data_records = 0;
+		bool found_block_header = false;
+		bool found_block_end = false;
+		bool found_block_data = false;
+
+		while (ret == OK && (uint8_t *) f_gets((char *) line, sizeof(line), &file) != NULL)
+		{
+			lineno++;
+			uint8_t vector[80];
+
+			line_to_vector(line, vector);	/* vector now contains the decoded contents of line, from line[1] on */
+
+			if (line[0] == 'S')
+			{
+				if (SREC_CHECKSUM(vector) != checksum(vector))
+				{
+					xprintf("invalid checksum 0x%x (should be 0x%x) in line %d\r\n",
+							SREC_CHECKSUM(vector), checksum(vector), lineno);
+					ret = FAIL;
+				}
+
+				switch (vector[0])
+				{
+				case 0:	/* block header */
+					found_block_header = true;
+					if (found_block_data || found_block_end)
+					{
+						xprintf("S7 or S3 record found before S0: S-records corrupt?\r\n");
+						ret = FAIL;
+					}
+
+					break;
+
+				case 2: /* three byte address field data record */
+					if (!found_block_header || found_block_end)
+					{
+						xprintf("S3 record found before S0 or after S7: S-records corrupt?\r\n");
+						ret = FAIL;
+					}
+					ret = callback((uint8_t *) SREC_ADDR24(vector), SREC_DATA24(vector), SREC_DATA24_SIZE(vector));
+					data_records++;
+					break;
+
+				case 3: /* four byte address field data record */
+					if (!found_block_header || found_block_end)
+					{
+						xprintf("S3 record found before S0 or after S7: S-records corrupt?\r\n");
+						ret = FAIL;
+					}
+					ret = callback((uint8_t *) SREC_ADDR32(vector), SREC_DATA32(vector), SREC_DATA32_SIZE(vector));
+					data_records++;
+					break;
+
+				case 7: /* four byte address field end record */
+					if (!found_block_header || found_block_end)
+					{
+						xprintf("S7 record found before S0 or after S7: S-records corrupt?\r\n");
+					}
+					else
+					{
+						// xprintf("S7 record (end) found after %d valid data blocks\r\n", data_records);
+						*start_address = (void *) SREC_ADDR32(vector);
+					}
+					break;
+
+				case 8: /* three byte address field end record */
+					if (!found_block_header || found_block_end)
+					{
+						xprintf("S8 record found before S0 or after S8: S-records corrupt?\r\n");
+					}
+					else
+					{
+						// xprintf("S7 record (end) found after %d valid data blocks\r\n", data_records);
+						*start_address = (void *) SREC_ADDR24(vector);
+					}
+					break;
+
+				default:
+					xprintf("unsupported record type (%d) found in line %d\r\n", vector[0], lineno);
+					xprintf("offending line: \r\n");
+					xprintf("%s\r\n", line);
+					ret = FAIL;
+					break;
+				}
+			}
+			else
+			{
+				xprintf("illegal character ('%c') found on line %d: S-records corrupt?\r\n", line[0], lineno);
+				ret = FAIL;
+				break;
+			}
+		}
+		f_close(&file);
+	}
+	else
+	{
+		xprintf("could not open file %s\r\n", filename);
+		ret = FILE_OPEN;
+	}
+	return ret;
+}
+
+/*
+ * this callback just does nothing besides returning OK. Meant to do a dry run over the file to check its integrity
+ */
+static err_t simulate()
+{
+	err_t ret = OK;
+
+	return ret;
+}
+
+static err_t memcpy(uint8_t *dst, uint8_t *src, uint32_t length)
+{
+	uint8_t *end = src + length;
+
+	do
+	{
+		*dst++ = *src++;
+	} while (src < end);
+
+	return OK;
+}
+
+static err_t flash(uint8_t *dst, uint8_t *src, uint32_t length)
+{
+	err_t ret = OK;
+
+	/* TODO: do the actual flash */
+
+	return ret;
+}
+
+/*
+ * this callback verifies the data against the S-record file contents after a write to destination
+ */
+static err_t verify(uint8_t *dst, uint8_t *src, uint32_t length)
+{
+	uint8_t *end = src + length;
+
+	do
+	{
+		if (*src++ != *dst++)
+			return FAIL;
+	} while (src < end);
+
+	return OK;
+}
+
+void srec_execute(char *flasher_filename)
+{
+	DRESULT res;
+	FRESULT fres;
+	FATFS fs;
+	FIL file;
+	err_t err;
+	void *start_address;
+	uint32_t length;
+
+	disk_initialize(0);
+	res = disk_status(0);
+	if (res == RES_OK)
+	{
+		fres = f_mount(0, &fs);
+		if (fres == FR_OK)
+		{
+			if ((fres = f_open(&file, flasher_filename, FA_READ) != FR_OK))
+			{
+				xprintf("flasher file %s not present on disk\r\n", flasher_filename);
+			}
+			else
+			{
+				f_close(&file);
+
+				/* first pass: parse and check for inconsistencies */
+				xprintf("check file integrity: ");
+				err = read_srecords(flasher_filename, &start_address, &length, simulate);
+				if (err == OK)
+				{
+					/* next pass: copy data to destination */
+					xprintf("OK.\r\ncopy/flash data: ");
+					err = read_srecords(flasher_filename, &start_address, &length, memcpy);
+					if (err == OK)
+					{
+						/* next pass: verify data */
+						xprintf("OK.\r\nverify data: ");
+						err = read_srecords(flasher_filename, &start_address, &length, verify);
+						if (err == OK)
+						{
+							xprintf("OK.\r\n");
+							typedef void void_func(void);
+							void_func *func;
+							xprintf("target successfully written and verified. Start address: %p\r\n", start_address);
+
+							func = start_address;
+							flush_and_invalidate_caches();
+							(*func)();
+						}
+						else
+						{
+							xprintf("failed\r\n");
+						}
+					}
+					else
+					{
+						xprintf("failed\r\n");
+					}
+				}
+				else
+				{
+					xprintf("failed\r\n");
+				}
+			}
+		}
+		else
+		{
+			// xprintf("could not mount FAT FS\r\n");
+		}
+		f_mount(0, NULL);
+	}
+	else
+	{
+		// xprintf("could not initialize SD card\r\n");
+	}
+}
+

sources/sd_card.c

@@ -1,37 +1,121 @@
-/*
- * sd card
- */
-
-#include <stdint.h>
-#include <MCF5475.h>
-
-void sd_card_idle(void)
-{
-	__asm__ __volatile__ (
-			".extern	sd_idle\n\t"
-			"bsr		sd_idle\n\t"
-			/* output */:
-			/* input */ :
-			/* clobber */: "a0","a1","a2","a3","a4","a5",
-			              "d0","d1","d2","d3","d4","d5","d6","d7","memory"
-	);
-}
-
-
-
-int sd_card_init(void)
-{
-	register int ret __asm__("d0");
-
-	__asm__ __volatile__ (
-		".extern		sd_init\n\t"
-		"bsr.l			sd_init\n\t"
-		/* output */: "=r" (ret)
-		/* input */ :
-		/* clobber */: "a0","a1","a2","a3","a4","a5",
-		              "d1","d2","d3","d4","d5","d6","d7","memory"
-	);
-
-	return ret;
-}
-
+/*
+ * sd_card.c
+ *
+ *  Created on: 16.12.2012
+ *      Author: mfro
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2012        M. Froeschle
+ */
+
+#include <sd_card.h>
+#include <diskio.h>
+#include <ff.h>
+#include <bas_printf.h>
+
+#define WELCOME_NAME	"WELCOME.MSG"
+#define FLASHCODE_NAME	"BENCH.BIN"
+
+#define FLASHCODE_ADDRESS	0x03000000L
+
+/*
+ * initialize SD-card and FF FAT filesystem routines. Harness to load a file during boot.
+ *
+ * This is currently more like a proof of concept,
+ * but will be extended to load and execute a bootstrap flasher to be able to flash the Bee directly
+ * from card.
+ */
+void sd_card_init(void)
+{
+	DRESULT res;
+	FATFS fs;
+	FRESULT fres;
+
+	disk_initialize(0);
+	res = disk_status(0);
+	xprintf("disk status of SD card is %d\r\n", res);
+	if (res == RES_OK)
+	{
+		fres = f_mount(0, &fs);
+		xprintf("mount status of SD card fs is %d\r\n", fres);
+		if (fres == FR_OK)
+		{
+			DIR directory;
+			FIL file;
+
+			fres = f_opendir(&directory, "\\");
+			if (fres == FR_OK)
+			{
+				FILINFO fi;
+
+				while (((fres = f_readdir(&directory, &fi)) == FR_OK) && fi.fname[0])
+				{
+					xprintf("%13.13s %d\r\n", fi.fname, fi.fsize);
+				}
+			}
+			else
+			{
+				xprintf("could not open directory \"\\\" on SD-card! Error code: %d\r\n", fres);
+			}
+
+			/*
+			 * let's see if we find our boot flashing executable on disk
+			 */
+			fres = f_open(&file, FLASHCODE_NAME, FA_READ);
+			if (fres == FR_OK)
+			{
+				/*
+				 * yes, load and execute it
+				 *
+				 * FIXME: we will need some kind of user confirmation here
+				 * to avoid unwanted flashing or "bootsector viruses" before going productive
+				 */
+				uint32_t size;	/* length of code piece read */
+				uint32_t total_size = 0L;
+				uint32_t start_time = MCF_SLT_SCNT(0);
+				uint32_t end_time;
+				uint32_t time = 0;
+
+				while ((fres = f_read(&file, (void *) FLASHCODE_ADDRESS, 1024 * 1000, &size)) == FR_OK && size > 0)
+				{
+					total_size += size / 1024;
+					xprintf("read hunk of %d bytes, total_size = %d kBytes\r\n", size, total_size);
+				}
+				end_time = MCF_SLT_SCNT(0);
+				time = (end_time - start_time) / 132L;
+				xprintf("result of f_read: %ld, %ld kbytes read\r\n", fres, total_size);
+				xprintf("time to load %s: %ld s\r\n", FLASHCODE_NAME, time / 1000 / 100);
+				xprintf("equals to about %ld kBytes/second\r\n", total_size / (time / 1000 / 100));
+
+			}
+			f_close(&file);
+
+			fres = f_open(&file, WELCOME_NAME, FA_READ);
+			if (fres == FR_OK)
+			{
+				char line[128];
+
+				while (f_gets(line, sizeof(line), &file))
+				{
+					xprintf("%s", line);
+				}
+			}
+			f_close(&file);
+		}
+		f_mount(0, 0L);	/* release work area */
+	}
+}

sources/sd_card_asm.S

@@ -1,439 +0,0 @@
-/********************************************************************/
-// sd card
-/********************************************************************/
-#define		dspi_dtar0	0x0c
-#define		dspi_dsr	0x2c
-#define		dspi_dtfr	0x34
-#define		dspi_drfr	0x38
-
-#define LONGASC(a, b, c, d) ((a << 24) | (b << 16) | (c << 8) | (d))
-
-#define MCF_PAD_PAR_DSPI	(__MBAR+0xA50)
-#define MCF_PSC0_PSCTB_8BIT (__MBAR+0x860C)
-#define MCF_DSPI_DMCR (__MBAR+0x8A00)
-#define MCF_SLT0_SCNT (__MBAR + 0x908)
-
-		.text
-
-warte_10ms:
-		move.l		d0,-(sp)
-		move.l		MCF_SLT0_SCNT,d0
-		sub.l		#1320000,d0
-warte_d6:
-		cmp.l		MCF_SLT0_SCNT,d0
-		bcs			warte_d6
-		move.l		(sp)+,d0
-		rts
-
-warte_1ms:
-		move.l		d0,-(sp)
-		move.l		MCF_SLT0_SCNT,d0
-		sub.l		#132000,d0
-warte_d5:
-		cmp.l		MCF_SLT0_SCNT,d0
-		bcs			warte_d5
-		move.l		(sp)+,d0
-		rts
-
-		.global		sd_idle
-		.global		sd_init
-
-sd_init:
-		lea			MCF_PSC0_PSCTB_8BIT,a6
-		move.l   	#LONGASC('S', 'D', '-', 'C'),(a6)
-		move.l		#LONGASC('a', 'r', 'd', ' '),(a6)
-
-		move.l		buffer,a5				// basis addresse (diesen bereich brauchen wir nicht mehr!)
-		move.l		#0x1fffffff,d0				// normal dspi
-		move.l		d0,MCF_PAD_PAR_DSPI
-		lea			MCF_DSPI_DMCR,a0
-		move.l		#0x800d3c00,(a0)			// 8 bit cs5 on
-		move.l		#0x38558897,d0				
-		move.l		d0,dspi_dtar0(a0)			// 400kHz 
-		move.l		#0x082000ff,d4				// tx vorbesetzen
-		mov3q.l		#-1,dspi_dsr(a0)
-		
-		bsr.l		warte_1ms
-		move.l		#0xc00d3c00,(a0)			// 8 bit 4MHz clocken cs off
-		bsr.l		warte_10ms
-		move.l		#0x800d3c00,(a0)			// 8 bit 4MHz normal cs on
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		bsr			sd_com
-		move.l		#0x802d3c00,(a0)			// 8 bit 4MHz normal cs off
-		clr.b		d4
-		bsr			sd_com
-		bsr			sd_com
-		move.l		#0x800d3c00,(a0)			// 8 bit 4MHz normal cs on
-		move.b		#0xff,d4
-		bsr			sd_com
-		bsr			sd_com
-		move.l		#0x802d3c00,(a0)			// 8 bit 4MHz normal cs off
-		bsr.l		warte_10ms
-
-// sd idle
-		move.l		#100,d6				// 100 versuche
-		move.l		#10,d3				// 10 versuche
-sd_idle:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x40,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#0x95,d4
-		bsr			sd_com
-		
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		cmp.b		#0x01,d5
-		beq			idle_end
-		bsr			sd_com
-		cmp.b		#0x01,d5
-		beq			idle_end
-		bsr			sd_com
-		cmp.b		#0x01,d5
-		beq			idle_end
-		bsr			sd_com
-		cmp.b		#0x01,d5
-		beq			idle_end
-		bsr			sd_com
-		cmp.b		#0x01,d5
-		beq			idle_end
-		bsr			sd_com
-		cmp.b		#0x01,d5
-		beq			idle_end
-		subq.l		#1,d6
-		beq			sd_not
-		bra			sd_idle
-idle_end:
-// cdm 8
-read_ic:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x48,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#0x01,d4
-		bsr			sd_com
-		move.b		#0xaa,d4
-		bsr			sd_com
-		move.b		#0x87,d4
-		bsr			sd_com
-		
-		bsr			sd_get_status
-		cmp.b		#5,d5
-		beq			sd_v1
-		cmp.b		#1,d5
-		bne			read_ic
-		
-		move.b		#0xff,d4
-		bsr			sd_com
-		move.b		d5,d0
-		bsr			sd_com
-		move.b		d5,d1
-		bsr			sd_com
-		move.b		d5,d2
-		bsr			sd_com
-		cmp.b		#0xaa,d5
-		bne			sd_testd3
-		move.l		#LONGASC('S', 'D', 'H', 'C'),(a6)
-		move.b		#' ',(a6)
-sd_v1:
-		
-// cdm 58
-read_ocr:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x7a,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_get_status
-		move.l		#LONGASC('V', 'e', 'r', '1'),d6
-		cmp.b		#5,d5
-		beq			read_ocr
-		cmp.b		#1,d5
-		bne			read_ocr
-		
-		move.b		#0xff,d4
-		bsr			sd_com
-		move.b		d5,d0
-		bsr			sd_com
-		move.b		d5,d1
-		bsr			sd_com
-		move.b		d5,d2
-		bsr			sd_com
-
-// acdm 41
-		move.l		#20000,d6			// 20000 versuche ready can bis 1 sec gehen
-wait_of_aktiv:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x77,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#0x95,d4
-		bsr			sd_com
-
-		bsr			sd_get_status
-		cmp.b		#0x05,d5
-		beq			wait_of_aktiv
-
-wait_of_aktiv2:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x69,d4
-		bsr			sd_com
-		move.b		#0x40,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x95,d4
-		bsr			sd_com
-
-		bsr			sd_get_status
-		tst.b		d5
-		beq			sd_init_ok
-		cmp.b		#0x05,d5
-		beq			wait_of_aktiv2	
-		subq.l		#1,d6
-		bne			wait_of_aktiv
-sd_testd3:
-		subq.l		#1,d3
-		bne			sd_idle
-		bra			sd_error
-
-sd_init_ok:
-// cdm 10
-read_cid:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x4a,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x95,d4
-		bsr			sd_com
-		
-		move.l		a5,a4				// adresse setzen
-		bsr			sd_rcv_info
-
-// name ausgeben
-		lea			1(a5),a4
-		moveq		#7,d7
-sd_nam_loop:
-		move.b		(a4)+,(a6)
-		subq.l		#1,d7
-		bne			sd_nam_loop
-		move.b		#' ',(a6)
-
-// cdm 9
-read_csd:
-		move.b		#0xff,d4			// receive byt
-		bsr			sd_com
-		move.b		#0x49,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x00,d4
-		bsr			sd_com
-		move.b		#0x01,d4
-		bsr			sd_com
-		
-		move.l		a5,a4				// adresse setzen
-		bsr			sd_rcv_info
-
-		mvz.b		(a5),d0
-		lsr.l		#6,d0
-		
-		bne			sd_csd2				// format v2
-		move.l		6(a5),d1
-		moveq		#14,d0				// bit 73..62 c_size
-		lsr.l		d0,d1				// bits extrahieren
-		and.l		#0xfff,d1			// 12 bits
-		addq.l		#1,d1
-		mvz.w		9(a5),d0
-		lsr.l		#7,d0				// bits 49..47
-		and.l		#0x7,d0				// 3 bits
-		moveq.l		#8,d2				// x256 (dif v1 v2)
-		sub.l		d0,d2		
-		lsr.l		d2,d1
-		bra			sd_print_size
-sd_csd2:
-		mvz.w		8(a5),d1
-		addq.l		#1,d1
-sd_print_size:		
-		swap		d1
-		lsl.l		#1,d1
-		bcc			sd_16G
-		move.l		#LONGASC('3', '2', 'G', 'B'),(a6)
-		bra			sd_ok
-sd_16G:
-		lsl.l		#1,d1
-		bcc			sd_8G
-		move.l		#LONGASC('1', '6', 'G', 'B'),(a6)
-		bra			sd_ok
-sd_8G:
-		lsl.l		#1,d1
-		bcc			sd_4G
-		move.l		#LONGASC(' ', '4', 'G', 'B'),(a6)
-		bra			sd_ok
-sd_4G:
-		lsl.l		#1,d1
-		bcc			sd_2G
-		move.l		#LONGASC(' ', '4', 'G', 'B'),(a6)
-		bra			sd_ok
-sd_2G:
-		lsl.l		#1,d1
-		bcc			sd_1G
-		move.l		#LONGASC(' ', '2', 'G', 'B'),(a6)
-		bra			sd_ok
-sd_1G:
-		lsl.l		#1,d1
-		bcc			sd_512M
-		move.l		#LONGASC(' ', '1', 'G', 'B'),(a6)
-		bra			sd_ok
-sd_512M:
-		lsl.l		#1,d1
-		bcc			sd_256M
-		move.b		#'5',(a6)
-		move.l		#LONGASC('1', '2', 'M', 'B'),(a6)
-		bra			sd_ok
-sd_256M:
-		lsl.l		#1,d1
-		bcc			sd_128M
-		move.b		#'2',(a6)
-		move.l		#LONGASC('5', '6', 'M', 'B'),(a6)
-		bra			sd_ok
-sd_128M:
-		lsl.l		#1,d1
-		bcc			sd_64M
-		move.b		#'1',(a6)
-		move.l		#LONGASC('2', '8', 'M', 'B'),(a6)
-		bra			sd_ok
-sd_64M:
-		lsl.l		#1,d1
-		bcc			sd_32M
-		move.l		#LONGASC('6', '4', 'M', 'B'),(a6)
-		bra			sd_ok
-sd_32M:
-		lsl.l		#1,d1
-		bcc			sd_16M
-		move.l		#LONGASC('3', '2', 'M', 'B'),(a6)
-		bra			sd_ok
-sd_16M:
-		lsl.l		#1,d1
-		bcc			sd_8M
-		move.l		#LONGASC('1', '6', 'M', 'B'),(a6)
-		bra			sd_ok
-sd_8M:
-		move.l		#LONGASC('<', '9', 'M', 'B'),(a6)
-sd_ok:
-		move.l		#LONGASC(' ', 'O', 'K', '!'),(a6)
-		move.l		#0x0a0d,(a6)
-		//halt
-		//halt
-		rts
-// subs ende -------------------------------
-sd_V1:
-		move.l   #LONGASC('n', 'o', 'n', '!'),(a6)
-		move.l	#0x0a0d,(a6)
-		//halt
-		//halt
-		rts
-sd_error:
-		move.l  #LONGASC('E', 'r', 'r', 'o'),(a0)
-		move.l	#LONGASC('r', '!', '', ''), (a0)
-		move.l	#0x0a0d,(a6)
-		halt
-		halt
-		rts
-sd_not:
-		move.l	#LONGASC('n', 'o', 'n', '!'),(a0)
-		move.l	#0x0a0d,(a6)
-		halt
-		halt
-		rts
-
-// status holen -------------------------------
-sd_get_status:
-		move.b		#0xff,d4
-		bsr			sd_com
-		cmp.b		#0xff,d5
-		beq			sd_get_status
-		rts
-// byt senden und holen ---------------------		
-sd_com:
-		move.l		d4,dspi_dtfr(a0)
-wait_auf_complett:
-		btst.b		#7,dspi_dsr(a0)
-		beq			wait_auf_complett
-		move.l		dspi_drfr(a0),d5
-		mov3q.l		#-1,dspi_dsr(a0)			// clr status register
-		rts
-
-// daten holen ----------------------------
-sd_rcv_info:		
-		moveq		#18,d3						// 16 byts + 2 byts crc
-		move.b		#0xff,d4
-sd_rcv_rb_w:		
-		bsr			sd_get_status 
-		cmp.b		#0xfe,d5					// daten bereit?
-		bne			sd_rcv_rb_w					// nein->
-sd_rcv_rd_rb:
-		bsr			sd_com
-		move.b		d5,(a4)+
-		subq.l		#1,d3
-		bne			sd_rcv_rd_rb
-		rts
-/******************************************/
-
-			.data
-buffer:		dc.l	0, 0, 0, 0, 0, 0, 0, 0

sources/sd_ide.c

@@ -1,540 +0,0 @@
-#include "MCF5475.h"
-#include "startcf.h"
-
-
-
-/* imported routines */
-//extern int warten_20ms();
-//extern int warten_200us();
-//extern int warten_10us();
- 
-/********************************************************************/
-void asm sd_test(void)
-{
-		clr.w		MCF_PAD_PAR_DSPI
-		lea			MCF_GPIO_PPDSDR_DSPI,a2		// data in
-		lea			MCF_GPIO_PODR_DSPI,a1		// data out
-		move.b		#0x00,(a1)					// alle auf 0
-		lea			MCF_GPIO_PDDR_DSPI,a0
-		move.b		#0x7d,(a0)					// din = input rest output
-		
-		bsr			warten_20ms
-		
-		move.b		#0x7f,(a1)					// alle auf 1
-
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-// sd idle
-sd_idle:
-		bsr			sd_16clk
-		moveq		#0x40,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x95,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x05,d5
-		beq			sd_test
-		cmp.b		#0x01,d5
-		beq			wait_of_aktiv
-		cmp.b		#0x04,d5
-		beq			sd_init_ok
-		cmp.b		#0x00,d5
-		beq			sd_init_ok
-		bra			sd_idle
-				
-// acdm 41
-wait_of_aktiv:
-		bsr			sd_16clk
-
-		moveq		#0x77,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-
-		bsr			sd_receive
-
-		bsr			sd_16clk
-
-		move.l		#0xff,d6
-		moveq		#0x69,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#00,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#00,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#0x02,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#00,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#0x01,d4
-		bsr			sd_com
-		and			d5,d6
-
-		bsr			sd_receive
-				
-		cmp.b		#0x00,d5
-		beq			sd_init_ok
-		cmp.b		#0x05,d5
-		beq			sd_test	
-		bra			wait_of_aktiv
-
-sd_init_ok:
-
-// blockgr<67>sse 512byt
-sd_bg:
-		bsr			sd_16clk
-		moveq		#0x50,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#02,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_bg
-
-// read block
-sd_rb:
-		bsr			sd_16clk
-		moveq		#0x51,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x08,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_rb
-		
-		lea			0xc00000,a4
-		move.l		#513,d7
-rd_rb:
-		bsr			sd_receive
-		move.b		d5,(a4)+
-		subq.l		#1,d7
-		bne			rd_rb	
-
-// write block
-sd_wb:
-		bsr			sd_16clk
-		moveq		#0x58,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x08,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_wb
-		
-		lea			0xc00000,a4
-		move.l		#513,d7
-		moveq.l		#0x66,d4
-wr_wb:
-		bsr			sd_com
-//		subq.l		#1,d4
-		moveq		#0x66,d4
-		subq.l		#1,d7
-		bne			wr_wb	
-
-		bsr			sd_receive
-		
-wr_wb_el:	
-		moveq		#0xff,d4
-		bsr			sd_com
-		cmp.b		#0xff,d5
-		bne			wr_wb_el
-		
-
-// read block 2
-sd_rb2:
-		bsr			sd_16clk
-		moveq		#0x51,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x08,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_rb2
-		
-		lea			0xc00400,a4
-		move.l		#513,d7
-rd_rb2:
-		bsr			sd_receive
-		move.b		d5,(a4)+
-		subq.l		#1,d7
-		bne			rd_rb2	
-
-
-		nop
-		nop
-
-		rts
-		
-sd_receive:
-		moveq		#0xff,d4
-		bsr			sd_com
-		cmp.b		#0xff,d5
-		beq			sd_receive
-		rts
-		
-sd_com:
-		bclr.b		#6,(a1)
-sd_comb:
-		bsr			warten_10us
-		moveq		#7,d2
-		clr.l		d5
-sd_com_loop:
-		btst		d2,d4
-		beq			sd_com2
-		bset.b		#0,(a1)
-		bra			sd_com2_1
-sd_com2:
-		bclr.b		#0,(a1)
-sd_com2_1:
-		bsr			sd_clk
-		and.l		#0x02,d3
-		beq			sd_com3
-		bset.b		d2,d5
-sd_com3:
-		subq.l		#1,d2
-		bge			sd_com_loop
-		bsr			warten_10us
-		bset.b		#6,(a1)
-		bset.b		#0,(a1)
-		bsr			warten_200us
-		rts
-sd_clk:
-		tst.b		0xfffff700
-		tst.b		0xfffff700
-		bset.b		#2,(a1)
-		tst.b		0xfffff700
-		tst.b		0xfffff700
-		move.b		(a2),d3
-		tst.b		0xfffff700
-		bclr.b		#2,(a1)
-		rts
-
-sd_15clk:
-		move		#15,d0
-		bra			sd_16clk
-sd_16clk:
-		moveq		#16,d0
-sd_16clk1:
-		bsr			sd_clk
-		subq.l		#1,d0
-		bne			sd_16clk1
-		bsr			warten_10us
-		rts
-// warteschleife ca. 20ms  
-warten_20ms:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#700000,d6
-  		bra			warten_loop
-// warteschleife ca. 200us  
-warten_200us: 
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#7000,d6
-  		bra			warten_loop
-// warteschleife ca. 10us  
-warten_10us:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#333,d6
-warten_loop:
-		move.l		(a0),d1
-		sub.l		d0,d1
-		add.l		d6,d1
-		bpl			warten_loop
-		move.l		(sp)+,d0
-		move.l		(sp)+,d1
-		move.l		(sp)+,d6
-		move.l		(sp)+,a0
-		rts;
-}
-
-
-/**************************************************/
-void asm ide_test(void)
-{
-		lea			MCF_PAD_PAR_DSPI,a0
-		move.w		#0x1fff,(a0)
-		lea			MCF_DSPI_DCTAR0,a0
-		move.l		#0x38a644e4,(a0)
-		lea			MCF_DSPI_DMCR,a0
-		move.l		#0x802d3c00,(a0)
-		clr.l		MCF_DSPI_DTCR
-		bsr			warten_20ms
-		lea			MCF_DSPI_DTFR,a0
-		lea			MCF_DSPI_DRFR,a1
-
-		moveq		#10,d0		
-sd_reset:
-		move.l		#0x000100ff,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		subq.l		#1,d0
-		bne			sd_reset
-		
-		moveq		#10,d1
-sd_loop1:
-		bsr			warten_20ms
-		moveq		#-1,d0		
-// cmd 0 set to idle
-		move.l		#0x00200040,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200095,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		cmp.w		#0x0001,d0
-		beq			sd_loop2
-		subq.l		#1,d1
-		bne			sd_loop1
-		moveq		#10,d1
-		bra			sd_test
-sd_loop2:
-		moveq		#-1,d0		
-// cmd 41		
-		move.l		#0x00200069,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200000,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		move.l		#0x00200001,(a0)
-		bsr			warten_20ms
-		and.l		(a1),d0
-		tst.w		d0
-		bne			sd_loop2
-
-		nop
-		nop
-/********************************************************************/
-#define		cmd_reg		(0x1d)
-#define		status_reg	(0x1d)
-#define		seccnt		(0x09)
-
-ide_test:
-		lea			0xfff00040,a0
-		lea			0xc00000,a1
-		move.b		#0xec,cmd_reg(a0)		//identify devcie cmd
-		bsr			wait_int
-		bsr			ds_rx
-// read sector normal		
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x20,cmd_reg(a0)		// read cmd
-		bsr			wait_int
-		bsr			ds_rx
-
-// write testpattern sector
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x30,cmd_reg(a0)		// write cmd
-		bsr			drq_wait
-// write pattern
-		move.l		#256,d0
-ide_test_loop3:		
-		move.w		#0xa55a,(a0)
-		subq.l		#1,d0
-		bne			ide_test_loop3
-		bsr			wait_int
-// read testpattern sector
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x20,cmd_reg(a0)		// read
-		bsr			wait_int
-		bsr			ds_rx
-// sector restauriern
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x30,cmd_reg(a0)		// write
-		lea			-0x400(a1),a1			// vorletzer
-		bsr			drq_wait
-		bsr			ds_tx
-		bsr			wait_int
-// fertig und zur<75>ck		
-		nop
-		rts
-// wait auf int
-wait_int:
-		move.b		0xfffffa01,d0
-		btst.b		#5,d0
-		bne			wait_int
-		move.b		status_reg(a0),d0
-		rts
-// wait auf drq
-drq_wait:
-		move.b		status_reg(a0),d0
-		btst		#3,d0
-		beq			drq_wait
-		rts
-
-// 1 sector lesen word
-ds_rx:
-		move.l		#256,d0
-ds_rx_loop:		
-		move.w		(a0),(a1)+
-		subq.l		#1,d0
-		bne			ds_rx_loop
-		rts
-// 1 sector lesen long
-ds_rxl:
-		move.l		#128,d0
-ds_rxl_loop:		
-		move.l		(a0),(a1)+
-		subq.l		#1,d0
-		bne			ds_rxl_loop
-		rts
-// 1 sector schreiben word
-ds_tx:
-		move.l		#256,d0
-ds_tx_loop:		
-		move.w		(a1)+,(a0)
-		subq.l		#1,d0
-		bne			ds_tx_loop
-		rts
-// 1 sector schreiben word
-ds_txl:
-		move.l		#128,d0
-ds_txl_loop:		
-		move.l		(a1)+,(a0)
-		subq.l		#1,d0
-		bne			ds_txl_loop
-		rts
-// warteschleife ca. 20ms  
-warten_20ms:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#700000,d6
-  		bra			warten_loop
-// warteschleife ca. 200us  
-warten_200us: 
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#7000,d6
-  		bra			warten_loop
-// warteschleife ca. 10us  
-warten_10us:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#333,d6
-warten_loop:
-		move.l		(a0),d1
-		sub.l		d0,d1
-		add.l		d6,d1
-		bpl			warten_loop
-		move.l		(sp)+,d0
-		move.l		(sp)+,d1
-		move.l		(sp)+,d6
-		move.l		(sp)+,a0
-		rts;
-}
-/********************************************************************/

sources/sd_ide.s

@@ -1,458 +0,0 @@
-
-
-//.include "startcf.h"
-
-//.extern ___MBAR
-//#define MCF_SLT0_SCNT	___MBAR+0x908
-
-//.global ide_test
-
-.text
-/*
-sd_test:
-		clr.w		MCF_PAD_PAR_DSPI
-		lea			MCF_GPIO_PPDSDR_DSPI,a2		// data in
-		lea			MCF_GPIO_PODR_DSPI,a1		// data out
-		move.b		#0x00,(a1)					// alle auf 0
-		lea			MCF_GPIO_PDDR_DSPI,a0
-		move.b		#0x7d,(a0)					// din = input rest output
-		
-		bsr			warten_20ms
-		
-		move.b		#0x7f,(a1)					// alle auf 1
-
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-		bsr			sd_16clk
-// sd idle
-sd_idle:
-		bsr			sd_16clk
-		moveq		#0x40,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x95,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x05,d5
-		beq			sd_test
-		cmp.b		#0x01,d5
-		beq			wait_of_aktiv
-		cmp.b		#0x04,d5
-		beq			sd_init_ok
-		cmp.b		#0x00,d5
-		beq			sd_init_ok
-		bra			sd_idle
-				
-// acdm 41
-wait_of_aktiv:
-		bsr			sd_16clk
-
-		moveq		#0x77,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-
-		bsr			sd_receive
-
-		bsr			sd_16clk
-
-		move.l		#0xff,d6
-		moveq		#0x69,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#00,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#00,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#0x02,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#00,d4
-		bsr			sd_com
-		and			d5,d6
-		moveq		#0x01,d4
-		bsr			sd_com
-		and			d5,d6
-
-		bsr			sd_receive
-				
-		cmp.b		#0x00,d5
-		beq			sd_init_ok
-		cmp.b		#0x05,d5
-		beq			sd_test	
-		bra			wait_of_aktiv
-
-sd_init_ok:
-
-// blockgr<EFBFBD>sse 512byt
-sd_bg:
-		bsr			sd_16clk
-		moveq		#0x50,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#02,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_bg
-
-// read block
-sd_rb:
-		bsr			sd_16clk
-		moveq		#0x51,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x08,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_rb
-		
-		lea			0xc00000,a4
-		move.l		#513,d7
-rd_rb:
-		bsr			sd_receive
-		move.b		d5,(a4)+
-		subq.l		#1,d7
-		bne			rd_rb	
-
-// write block
-sd_wb:
-		bsr			sd_16clk
-		moveq		#0x58,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x08,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_wb
-		
-		lea			0xc00000,a4
-		move.l		#513,d7
-		moveq.l		#0x66,d4
-wr_wb:
-		bsr			sd_com
-//		subq.l		#1,d4
-		moveq		#0x66,d4
-		subq.l		#1,d7
-		bne			wr_wb	
-
-		bsr			sd_receive
-		
-wr_wb_el:	
-		moveq		#0xff,d4
-		bsr			sd_com
-		cmp.b		#0xff,d5
-		bne			wr_wb_el
-		
-
-// read block 2
-sd_rb2:
-		bsr			sd_16clk
-		moveq		#0x51,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x08,d4
-		bsr			sd_com
-		moveq		#00,d4
-		bsr			sd_com
-		moveq		#0x01,d4
-		bsr			sd_com
-		
-		bsr			sd_receive
-
-		cmp.b		#0x00,d5
-		bne			sd_rb2
-		
-		lea			0xc00400,a4
-		move.l		#513,d7
-rd_rb2:
-		bsr			sd_receive
-		move.b		d5,(a4)+
-		subq.l		#1,d7
-		bne			rd_rb2	
-
-
-		nop
-		nop
-
-		rts
-		
-sd_receive:
-		moveq		#0xff,d4
-		bsr			sd_com
-		cmp.b		#0xff,d5
-		beq			sd_receive
-		rts
-		
-sd_com:
-		bclr.b		#6,(a1)
-sd_comb:
-		bsr			warten_10us
-		moveq		#7,d2
-		clr.l		d5
-sd_com_loop:
-		btst		d2,d4
-		beq			sd_com2
-		bset.b		#0,(a1)
-		bra			sd_com2_1
-sd_com2:
-		bclr.b		#0,(a1)
-sd_com2_1:
-		bsr			sd_clk
-		and.l		#0x02,d3
-		beq			sd_com3
-		bset.b		d2,d5
-sd_com3:
-		subq.l		#1,d2
-		bge			sd_com_loop
-		bsr			warten_10us
-		bset.b		#6,(a1)
-		bset.b		#0,(a1)
-		bsr			warten_200us
-		rts
-sd_clk:
-		tst.b		0xfffff700
-		tst.b		0xfffff700
-		bset.b		#2,(a1)
-		tst.b		0xfffff700
-		tst.b		0xfffff700
-		move.b		(a2),d3
-		tst.b		0xfffff700
-		bclr.b		#2,(a1)
-		rts
-
-sd_15clk:
-		move		#15,d0
-		bra			sd_16clk
-sd_16clk:
-		moveq		#16,d0
-sd_16clk1:
-		bsr			sd_clk
-		subq.l		#1,d0
-		bne			sd_16clk1
-		bsr			warten_10us
-		rts
-// warteschleife ca. 20ms  
-warten_20ms:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#700000,d6
-  		bra			warten_loop
-// warteschleife ca. 200us  
-warten_200us: 
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#7000,d6
-  		bra			warten_loop
-// warteschleife ca. 10us  
-warten_10us:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#333,d6
-warten_loop:
-		move.l		(a0),d1
-		sub.l		d0,d1
-		add.l		d6,d1
-		bpl			warten_loop
-		move.l		(sp)+,d0
-		move.l		(sp)+,d1
-		move.l		(sp)+,d6
-		move.l		(sp)+,a0
-		rts;
-/********************************************************************/
-#define		cmd_reg		(0x1d)
-#define		status_reg	(0x1d)
-#define		seccnt		(0x09)
-
-ide_test:
-		lea			0xfff00040,a0
-		lea			0xc00000,a1
-		move.b		#0xec,cmd_reg(a0)		//identify devcie cmd
-		bsr			wait_int
-		bsr			ds_rx
-// read sector normal		
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x20,cmd_reg(a0)		// read cmd
-		bsr			wait_int
-		bsr			ds_rx
-
-// write testpattern sector
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x30,cmd_reg(a0)		// write cmd
-		bsr			drq_wait
-// write pattern
-		move.l		#256,d0
-ide_test_loop3:		
-		move.w		#0xa55a,(a0)
-		subq.l		#1,d0
-		bne			ide_test_loop3
-		bsr			wait_int
-// read testpattern sector
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x20,cmd_reg(a0)		// read
-		bsr			wait_int
-		bsr			ds_rx
-// sector restauriern
-		move.b		#1,seccnt(a0)			// 1 sector
-		move.b		#0x30,cmd_reg(a0)		// write
-		lea			-0x400(a1),a1			// vorletzer
-		bsr			drq_wait
-		bsr			ds_tx
-		bsr			wait_int
-// fertig und zur<EFBFBD>ck		
-		nop
-		rts
-// wait auf int
-wait_int:
-		move.b		0xfffffa01,d0
-		btst		#5,d0
-		bne			wait_int
-		move.b		status_reg(a0),d0
-		rts
-// wait auf drq
-drq_wait:
-		move.b		status_reg(a0),d0
-		btst		#3,d0
-		beq			drq_wait
-		rts
-
-// 1 sector lesen word
-ds_rx:
-		move.l		#256,d0
-ds_rx_loop:		
-		move.w		(a0),(a1)+
-		subq.l		#1,d0
-		bne			ds_rx_loop
-		rts
-// 1 sector lesen long
-ds_rxl:
-		move.l		#128,d0
-ds_rxl_loop:		
-		move.l		(a0),(a1)+
-		subq.l		#1,d0
-		bne			ds_rxl_loop
-		rts
-// 1 sector schreiben word
-ds_tx:
-		move.l		#256,d0
-ds_tx_loop:		
-		move.w		(a1)+,(a0)
-		subq.l		#1,d0
-		bne			ds_tx_loop
-		rts
-// 1 sector schreiben word
-ds_txl:
-		move.l		#128,d0
-ds_txl_loop:		
-		move.l		(a1)+,(a0)
-		subq.l		#1,d0
-		bne			ds_txl_loop
-		rts
-// warteschleife ca. 20ms  
-warten_20ms:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#700000,d6
-  		bra			warten_loop
-// warteschleife ca. 200us  
-warten_200us: 
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#7000,d6
-  		bra			warten_loop
-// warteschleife ca. 10us  
-warten_10us:  		
-		move.l		a0,-(sp)
-		move.l		d6,-(sp) 		
-		move.l		d1,-(sp) 		
-		move.l		d0,-(sp) 		
-  		lea			MCF_SLT0_SCNT,a0
-  		move.l		(a0),d0
-  		move.l		#333,d6
-warten_loop:
-		move.l		(a0),d1
-		sub.l		d0,d1
-		add.l		d6,d1
-		bpl			warten_loop
-		move.l		(sp)+,d0
-		move.l		(sp)+,d1
-		move.l		(sp)+,d6
-		move.l		(sp)+,a0
-		rts;
-/********************************************************************/

sources/startcf.S

@@ -18,7 +18,6 @@ _rom_header:
 		 */
 		bra.s	_rom_entry	// Short jump to the real entry point
 		.short	0x4ef9		// Fake jmp instruction
-
 		/* The second long is the initial PC */
 		.long	_rom_entry	// Real entry point
 
@@ -40,13 +39,14 @@ _rom_entry:
 		move.l	d0,MCF_MMU_MMUCR
 
 		/* Initialize RAMBARs: locate SRAM and validate it */
-		move.l	#__RAMBAR0 + 0x7,%d0 	/* supervisor only */
+		move.l	#__RAMBAR0 + 0x7,d0 	/* supervisor only */
 		movec	d0,RAMBAR0
 		move.l	#__RAMBAR1 + 0x1,d0
 		movec	d0,RAMBAR1
 
 		/* set stack pointer to end of SRAM1 */
 		lea 	__SUP_SP,a7
+		move.l	#0,(sp)
 
 		/* Initialize the processor caches.
 		 * The instruction cache is fully enabled.

sources/startcf.h

@@ -1,25 +0,0 @@
-
-#define cf_stack
-
-//#define ii_on
-#define halten
-#define halten_dbcc
-#define halten_and
-#define halten_add
-#define halten_sub
-#define halten_or
-#define halten_op
-#define halten_opc
-#define halten_movem
-#define halten_lea
-#define halten_shift
-#define halten_move
-#define halten_exg
-#define halten_movep
-#define halten_ewf
-
-#define DIP_SWITCH		(*(volatile uint8_t *)(&_MBAR[0xA2C]))
-#define DIP_SWITCHa		__MBAR + 0xA2C
-
-#define sca_page_ID 	6
-

sources/sysinit.c

@@ -4,6 +4,25 @@
  *
  * Notes: 
  *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
  */
 
 #include "MCF5475.h"
@@ -11,28 +30,18 @@
 #include "cache.h"
 #include "sysinit.h"
 #include "bas_printf.h"
+#include "bas_types.h"
+#include "wait.h"
 
 extern void xprintf_before_copy(const char *fmt, ...);
 #define xprintf	 xprintf_before_copy
 extern void flush_and_invalidate_caches_before_copy(void);
 #define flush_and_invalidate_caches flush_and_invalidate_caches_before_copy
 
-#define UNUSED(x)       (void)(x)               /* Unused variable         */
+#define UNUSED(x) (void)(x)               /* Unused variable         */
 
 extern volatile long _VRAM;	/* start address of video ram from linker script */
 
-/*
- * wait for the specified number of us on slice timer 0. Replaces the original routines that had
- * the number of useconds to wait for hardcoded in their name.
- */
-void wait(uint32_t us)
-{
-	uint32_t target = MCF_SLT_SCNT(0) - (us * 132);
-
-	while (MCF_SLT_SCNT(0) > target);
-}
-
-
 /*
  * init SLICE TIMER 0 
  * all  = 32.538 sec = 30.736mHz
@@ -159,6 +168,16 @@ void init_gpio(void)
 
 	// ALLE DIR NORMAL INPUT = 0
 	MCF_GPIO_PDDR_FEC1L = 0b00011110;	/* OUT: 4=LED,3=PRG_DQ0,2=#FPGA_CONFIG,1=PRG_CLK(FPGA) */
+
+#define FPGA_STATUS		(1 << 0)
+#define FPGA_CLOCK		(1 << 1)
+#define FPGA_CONFIG		(1 << 2)
+#define FPGA_DATA0		(1 << 3)
+#define FPGA_CONF_DONE	(1 << 5)
+
+	/* pull FPGA config to low as early as possible */
+	MCF_GPIO_PODR_FEC1L &= ~FPGA_CLOCK;		/* FPGA clock => low */
+	MCF_GPIO_PODR_FEC1L &= ~FPGA_CONFIG;	/* FPGA config => low */
 }
 
 /*
@@ -227,16 +246,63 @@ void init_ddram(void)
 	 */
 	if (!(MCF_SDRAMC_SDCR & MCF_SDRAMC_SDCR_REF)) {
 		/* Basic configuration and initialization */
+
+		/*
+		 * SB_E (Bits 9-8):  10	<=> 7.6 mA (SDCKE)
+		 * SB_C (Bits 7-6):	 10 <=> 7.6 mA (SDRAM Clocks)
+		 * SB_A (Bits 5-4):	 10 <=> 7.6 mA (RAS, CAS, SDWE, SDADDR[12:0], and SDBA)
+		 * SB_S (Bits 3-2):  10 <=> 7.6 mA (SDRDQS)
+		 * SB_D (Bits 1-0):	 10 <=> 7.6 mA (SDRDQS)
+		 *
+		 * -> lowest setting the Coldfire SDRAM controller allows
+		 */
 		MCF_SDRAMC_SDRAMDS = 0x000002AA;/* SDRAMDS configuration */
+
 		MCF_SDRAMC_CS0CFG = 0x0000001A;	/* SDRAM CS0 configuration (128Mbytes 0000_0000 - 07FF_FFFF) */
 		MCF_SDRAMC_CS1CFG = 0x0800001A;	/* SDRAM CS1 configuration (128Mbytes 0800_0000 - 0FFF_FFFF) */
 		MCF_SDRAMC_CS2CFG = 0x1000001A;	/* SDRAM CS2 configuration (128Mbytes 1000_0000 - 07FF_FFFF) */
 		MCF_SDRAMC_CS3CFG = 0x1800001A;	/* SDRAM CS3 configuration (128Mbytes 1800_0000 - 1FFF_FFFF) */
+
+		/*
+		 *
+		 */
+		MCF_SDRAMC_SDCFG1 = MCF_SDRAMC_SDCFG1_WTLAT(3)	/* Write latency */
+				| MCF_SDRAMC_SDCFG1_REF2ACT(8)			/* Refresh to Active Delay */
+				| MCF_SDRAMC_SDCFG1_PRE2ACT(2)			/* Precharge to Active Delay */
+				| MCF_SDRAMC_SDCFG1_ACT2RW(2)			/* Active to Read/Write Delay */
+				| MCF_SDRAMC_SDCFG1_RDLAT(6)			/* Read CAS latency */
+				| MCF_SDRAMC_SDCFG1_SWT2RD(3)			/* Single Write to Read/Write/Precharge delay */
+				| MCF_SDRAMC_SDCFG1_SRD2RW(7);			/* Single Read to Read/Write/Precharge delay */
+
+		MCF_SDRAMC_SDCFG2 = MCF_SDRAMC_SDCFG2_BL(7)		/* Burst Length */
+				| MCF_SDRAMC_SDCFG2_BRD2WT(7)			/* Burst Read to Write delay */
+				| MCF_SDRAMC_SDCFG2_BWT2RW(6)			/* Burst Write to Read/Write/Precharge delay */
+				| MCF_SDRAMC_SDCFG2_BRD2PRE(4);			/* Burst Read to Read/Precharge delay */
+
+#ifdef _NOT_USED_
 		MCF_SDRAMC_SDCFG1 = 0x73622830;	/* SDCFG1 */
 		MCF_SDRAMC_SDCFG2 = 0x46770000;	/* SDCFG2 */
+#endif /* _NOT_USED_ */
+
+		MCF_SDRAMC_SDCR = MCF_SDRAMC_SDCR_IPALL			/* initiate Precharge All command */
+				| MCF_SDRAMC_SDCR_RCNT(13)				/* Refresh Count (= (x + 1) * 64 */
+				| MCF_SDRAMC_SDCR_MUX(1)				/* Muxing control */
+				| MCF_SDRAMC_SDCR_DDR
+				| MCF_SDRAMC_SDCR_CKE
+				| MCF_SDRAMC_SDCR_MODE_EN;
+
+		MCF_SDRAMC_SDMR = MCF_SDRAMC_SDMR_CMD			/* Generate an LMR/LEMR command */
+				| MCF_SDRAMC_SDMR_AD(0)					/* Address */
+				| MCF_SDRAMC_SDMR_BNKAD(1);				/* LEMR */
+		MCF_SDRAMC_SDMR = MCF_SDRAMC_SDMR_CMD			/* Generate an LMR/LEMR command */
+				| MCF_SDRAMC_SDMR_AD(0x123)
+				| MCF_SDRAMC_SDMR_BNKAD(0);				/* LMR */
+
+#ifdef _NOT_USED_
 		MCF_SDRAMC_SDCR = 0xE10D0002;	/* SDCR + IPALL */
 		MCF_SDRAMC_SDMR = 0x40010000;	/* SDMR (write to LEMR) */
 		MCF_SDRAMC_SDMR = 0x048D0000;	/* SDRM (write to LMR) */
+#endif /* _NOT_USED_ */
 		MCF_SDRAMC_SDCR = 0xE10D0002;	/* SDCR + IPALL */
 		MCF_SDRAMC_SDCR = 0xE10D0004;	/* SDCR + IREF (first refresh) */
 		MCF_SDRAMC_SDCR = 0xE10D0004;	/* SDCR + IREF (second refresh) */
@@ -459,7 +525,7 @@ void test_upd720101(void)
 			MCF_PCI_PCICAR_FUNCNUM(0) +
 			MCF_PCI_PCICAR_DWORD(57);
 
-		* (uint8_t *) PCI_IO_OFFSET = 0x20;
+		//* (uint8_t *) PCI_IO_OFFSET = 0x20;	// commented out (hangs currently)
 	}
 	else
 	{
@@ -472,12 +538,25 @@ void test_upd720101(void)
 	xprintf("finished\r\n");
 }
 
+static bool i2c_transfer_finished(void)
+{
+	if (MCF_I2C_I2SR & MCF_I2C_I2SR_IIF)
+		return true;
+
+	return false;
+}
+
 static void wait_i2c_transfer_finished(void)
 {
-	while (!(MCF_I2C_I2SR & MCF_I2C_I2SR_IIF));	/* wait until interrupt bit has been set */
+	waitfor(100000, i2c_transfer_finished);		/* wait until interrupt bit has been set */
 	MCF_I2C_I2SR &= ~MCF_I2C_I2SR_IIF; 			/* clear interrupt bit (byte transfer finished */
 }
 
+static bool i2c_bus_free(void)
+{
+	return (MCF_I2C_I2SR & MCF_I2C_I2SR_IBB);
+}
+
 /*
  * TFP410 (DVI) on
  */
@@ -508,7 +587,7 @@ void dvi_on(void) {
 		/* i2c enable, master mode, transmit acknowledge */
 		MCF_I2C_I2CR = MCF_I2C_I2CR_IEN | MCF_I2C_I2CR_MSTA | MCF_I2C_I2CR_MTX;
 
-		MCF_I2C_I2DR = 0x7a;				/* send data: address of TFP410 */
+		MCF_I2C_I2DR = 0x7a;						/* send data: address of TFP410 */
 		wait_i2c_transfer_finished();
 
 		if (MCF_I2C_I2SR & MCF_I2C_I2SR_RXAK)		/* next try if no acknowledge */
@@ -524,13 +603,13 @@ void dvi_on(void) {
 		if (MCF_I2C_I2SR & MCF_I2C_I2SR_RXAK)		/* next try if no acknowledge */
 			continue;
 
-		MCF_I2C_I2CR &= 0xef; //~MCF_I2C_I2CR_MTX;			/* switch to receive mode */
-		dummyByte = MCF_I2C_I2DR; 						/* dummy read */
+		MCF_I2C_I2CR &= 0xef; //~MCF_I2C_I2CR_MTX;	/* switch to receive mode */
+		dummyByte = MCF_I2C_I2DR; 					/* dummy read */
 
 		wait_i2c_transfer_finished();
 
 		MCF_I2C_I2CR |= MCF_I2C_I2CR_TXAK; 			/* transmit acknowledge enable */
-		receivedByte = MCF_I2C_I2DR;						/* read a byte */
+		receivedByte = MCF_I2C_I2DR;				/* read a byte */
 
 		wait_i2c_transfer_finished();
 
@@ -544,7 +623,7 @@ void dvi_on(void) {
 		MCF_I2C_I2CR = 0x0; // stop
 		MCF_I2C_I2SR = 0x0; // clear sr
 
-		while ((MCF_I2C_I2SR & MCF_I2C_I2SR_IBB));	/* wait for bus free */
+		waitfor(10000, i2c_bus_free);
 
 		MCF_I2C_I2CR = 0xb0; // on tx master
 		MCF_I2C_I2DR = 0x7A;
@@ -566,7 +645,7 @@ void dvi_on(void) {
 		dummyByte = MCF_I2C_I2DR; // dummy read
 		MCF_I2C_I2SR = 0x0; // clear sr
 
-		while ((MCF_I2C_I2SR & MCF_I2C_I2SR_IBB)); /* wait until bus free */
+		waitfor(10000, i2c_bus_free);
 
 		MCF_I2C_I2CR = 0xb0;
 		MCF_I2C_I2DR = 0x7A;
@@ -673,7 +752,8 @@ void init_ac97(void) {
 			vc = MCF_PSC2_PSCTB_AC97;
 
 			/* FIXME: that looks more than suspicious (Fredi?) */
-			if ((va & 0xE0000fff) == 0xE0000800 & vb == 0x02000000 & vc == 0x00000000) {
+			/* fixed with parentheses to avoid compiler warnings, but this looks still more than wrong to me */
+			if (((va & 0xE0000fff) == 0xE0000800) & (vb == 0x02000000) & (vc == 0x00000000)) {
 				goto livo;
 			}
 		}
@@ -739,10 +819,11 @@ void initialize_hardware(void) {
 	if (!(DIP_SWITCH & (1 << 6))) {
 		/* Minimal hardware initialization */
 		init_gpio();
+		init_serial();
+		init_slt();
 		init_fbcs();
 		init_ddram();
 		init_fpga();
-
 		/* FireTOS seems to have trouble to initialize the ST-RAM by itself, so... */
 		/* Validate ST RAM */
 		* (volatile uint32_t *) 0x42e = STRAM_END;	/* phystop TOS system variable */
@@ -753,7 +834,7 @@ void initialize_hardware(void) {
 		/* Jump into FireTOS */
 		typedef void void_func(void);
 		void_func* FireTOS = (void_func*)FIRETOS;
-		FireTOS(); // Should never return
+		FireTOS(); 	// Should never return
 		return;
 	}
 

sources/sysinit.h

@@ -1,26 +0,0 @@
-/*
- * File:		sysinit.h
- * Purpose:		Firebee Power-on Reset configuration
- *
- * Notes:
- *
- */
-
-#ifndef __SYSINIT_H__
-#define __SYSINIT_H__
-
-extern void wait_10us(void);
-
-/* send a 16-bit word out on the serial port */
-#define uart_out_word(a)	MCF_PSC0_PSCTB_8BIT = (a)
-
-/* adresses where FPGA data lives in flash */
-#define FPGA_FLASH_DATA ((uint8_t *) 0xe0700000L)
-#define FPGA_FLASH_DATA_END ((uint8_t *) 0xe0800000L)
-
-/* function(s) from init_fpga.c */
-extern void init_fpga(void);
-
-#endif /* __SYSINIT_H__ */
-
-

sources/unicode.c

@@ -0,0 +1,17 @@
+#include <ff.h>
+
+#if _USE_LFN != 0
+
+#if   _CODE_PAGE == 932
+#include "cc932.c"
+#elif _CODE_PAGE == 936
+#include "cc936.c"
+#elif _CODE_PAGE == 949
+#include "cc949.c"
+#elif _CODE_PAGE == 950
+#include "cc950.c"
+#else
+#include "ccsbcs.c"
+#endif
+
+#endif

sources/wait.c

@@ -0,0 +1,31 @@
+/*
+ * wait.c
+ *
+ *  Created on: 10.12.2012
+ *      Author: mfro
+ *
+ * This file is part of BaS_gcc.
+ *
+ * BaS_gcc is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * BaS_gcc is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with BaS_gcc.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Copyright 2010 - 2012 F. Aschwanden
+ * Copyright 2011 - 2012 V. Riviere
+ * Copyright 2012        M. Froeschle
+ *
+ */
+
+#include <stdint.h>
+#include <MCF5475.h>
+
+#include <wait.h>