replaced AcAxisIo with Channels

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8405 8c9fc860-2736-0410-a75d-ab315db34111

source/AcAxiDma.Mod

@@ -5,7 +5,7 @@
 module AcAxiDma;
 
 import
-	system, AcAxisIo;
+	Channels;
 
 const
 	CmdSetAddr = 1*2;
@@ -21,9 +21,9 @@ type
 	Address = longint;
 
 	Controller* = record
-		cfgCmd-: AcAxisIo.Output;
-		cfgData-: AcAxisIo.Output;
-		status-: AcAxisIo.Input;
+		cfgCmd-: port out;
+		cfgData-: port out;
+		status-: port in;
 
 		dataSize-: longint; (** size of one data element in bytes *)
 		addr-: Address;
@@ -41,7 +41,7 @@ type
 	WriteController* = record(Controller)
 	end;
 
-	procedure InitController*(var ctl: Controller; cfgCmd, cfgData: AcAxisIo.Output; status: AcAxisIo.Input; dataSize, maxBurstLen: longint);
+	procedure InitController*(var ctl: Controller; cfgCmd, cfgData: port out; status: port in; dataSize, maxBurstLen: longint);
 	begin
 		ctl.cfgCmd := cfgCmd;
 		ctl.cfgData := cfgData;

source/AcStreamVideoOut.Mod

@@ -1,7 +1,7 @@
 module AcStreamVideoOut; (** AUTHOR ""; PURPOSE ""; *)
 
 import
-	system, AcAxisIo;
+	Channels;
 
 const
 	CmdSetEnabled = 0;
@@ -19,7 +19,7 @@ const
 
 type
 	Controller* = record
-		cfg-: AcAxisIo.Output; (** configuration port *)
+		cfg-: port out; (** configuration port *)
 		enabled-: boolean; (** TRUE if the PWM output is enabled *)
 		
 		pixelClock-: real; (** pixel clock in Hz *)
@@ -37,7 +37,7 @@ type
 		vertSyncPolarity-: boolean;
 	end;
 
-	procedure InitController*(var ctl: Controller; cfg: AcAxisIo.Output; pixelClock: real);
+	procedure InitController*(var ctl: Controller; cfg: port out; pixelClock: real);
 	begin
 		ctl.cfg := cfg;
 		ctl.pixelClock := pixelClock;

source/Release.Tool

@@ -530,7 +530,7 @@ PACKAGE Drivers ARCHIVE "Drivers.zip" SOURCE "DriversSrc.zip" DESCRIPTION "Devic
 	}
 
 	ZYNQ & ~COOP {
-		Zynq.AcAxisIo.Mod
+		Zynq.ARM.Channels.Mod
 		AcStreamVideoOut.Mod
 		AcAxiDma.Mod
 		Zynq.PsConfig.Mod

source/Zynq.DisplayLinear.Mod

@@ -1,7 +1,7 @@
 MODULE DisplayLinear;
 
 IMPORT SYSTEM, Displays, Plugins, Machine, Kernel, Commands, Options,
-	PsConfig, AcAxisIo, Video := AcStreamVideoOut, AcAxiDma, Trace;
+	PsConfig, Channels, Video := AcStreamVideoOut, AcAxiDma, Trace;
 
 CONST
 	MaxWidth = 1920;
@@ -137,9 +137,9 @@ VAR
 	buf: POINTER TO ARRAY OF CHAR;
 	bufAddr: ADDRESS;
 
-	rCfgCmd, rCfgData: AcAxisIo.Output;
-	rStatus: AcAxisIo.Input;
-	videoCfg: AcAxisIo.Output;
+	rCfgCmd, rCfgData: PORT OUT;
+	rStatus: PORT IN;
+	videoCfg: PORT OUT;
 	rdma: AcAxiDma.ReadController;
 
 	(*
@@ -213,10 +213,10 @@ VAR
 		(*
 			Setup ActiveCells components ports
 		*)
-		ASSERT(AcAxisIo.GetOutput(0,0, rCfgCmd));
-		ASSERT(AcAxisIo.GetOutput(0,1, rCfgData));
-		ASSERT(AcAxisIo.GetInput(0,0, rStatus));
-		ASSERT(AcAxisIo.GetOutput(0,2, videoCfg));
+		ASSERT(Channels.GetOutput(0,0, rCfgCmd));
+		ASSERT(Channels.GetOutput(0,1, rCfgData));
+		ASSERT(Channels.GetInput(0,0, rStatus));
+		ASSERT(Channels.GetOutput(0,2, videoCfg));
 
 		(*
 			Allocate frame buffer