- To68x32, Xo68x32, Toppc, Xoppc + !DevTools deleted -> the code is integrated into the main versions of the 332/555
git-svn-id: https://svn.code.sf.net/p/libusbjava/code/trunk@111 94ad28fe-ef68-46b1-9651-e7ae4fcf1c4c
This commit is contained in:
schlaepfer
@@ -1,76 +0,0 @@
|
||||
(* USB Dev Tool *)
|
||||
|
||||
(* NOTE: writing permission is needed in this directory to create the files JavaOut.txt and JavaErr.txt! *)
|
||||
|
||||
(* MC68332 & MPC555 *)
|
||||
<EFBFBD><EFBFBD>CXdeCmdsDev.CompileThis
|
||||
UsbBDIDll
|
||||
UsbBDI
|
||||
UsbBDI555
|
||||
UsbBDI332
|
||||
UsbTargLog
|
||||
<EFBFBD><EFBFBD>E
|
||||
|
||||
<EFBFBD><EFBFBD>CDevDebug.UnloadThis
|
||||
UsbTargLog
|
||||
UsbBDI555
|
||||
UsbBDI332
|
||||
UsbBDI
|
||||
UsbBDIDll
|
||||
<EFBFBD><EFBFBD>E
|
||||
|
||||
(* MPC555 only (start BB555) *)
|
||||
<EFBFBD><EFBFBD>CXdeCmdsDev.CompileThis
|
||||
XoppcTrgtRegDict
|
||||
XoppcAmdFlashs
|
||||
XoppcSystem
|
||||
<EFBFBD><EFBFBD>E
|
||||
|
||||
<EFBFBD><EFBFBD>CDevDebug.UnloadThis
|
||||
XoppcSystem
|
||||
XoppcAmdFlashs
|
||||
XoppcTrgtRegDict
|
||||
<EFBFBD><EFBFBD>E
|
||||
|
||||
(* MC68332 only (start BB332) *)
|
||||
<EFBFBD><EFBFBD>CXdeCmdsDev.CompileThis
|
||||
Xo68x32AmdFlashs
|
||||
Xo68x32System
|
||||
<EFBFBD><EFBFBD>E
|
||||
|
||||
<EFBFBD><EFBFBD>CDevDebug.UnloadThis
|
||||
Xo68x32System
|
||||
Xo68x32AmdFlashs
|
||||
<EFBFBD><EFBFBD>E
|
||||
|
||||
|
||||
(* MC68332 & MPC555 *)
|
||||
files of directory: Usb\Mod\ files: *
|
||||
Usb\Mod\BDI.otd
|
||||
Usb\Mod\BDI332.otd
|
||||
Usb\Mod\BDI555.otd
|
||||
Usb\Mod\BDIDll.otd
|
||||
Usb\Mod\TargLog.otd
|
||||
|
||||
files of directory: Usb\Rsrc\ files: *
|
||||
Usb\Rsrc\usbpdi.jar
|
||||
|
||||
files of directory: files: *
|
||||
BDI.dll
|
||||
|
||||
(* MPC555 only *)
|
||||
files of directory: Xoppc\Mod\ files: *
|
||||
Xoppc\Mod\AmdFlashs.otd
|
||||
Xoppc\Mod\System.otd
|
||||
Xoppc\Mod\TrgtRegDict.otd
|
||||
|
||||
files of directory: Toppc\Docu\ files: *
|
||||
Toppc\Docu\!NTBTargetPpcDemoTool.odc
|
||||
|
||||
(* MC68332 only *)
|
||||
files of directory: Xo68x32\Mod\ files: *
|
||||
Xo68x32\Mod\AmdFlashs.otd
|
||||
Xo68x32\Mod\System.otd
|
||||
|
||||
files of directory: To68x32\Docu\ files: *
|
||||
To68x32\Docu\!NTBTarget332DemoTool.odc
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,369 +0,0 @@
|
||||
|
||||
MODULE Xo68x32AmdFlashs;
|
||||
(** <20> ProXon/ED 7.10.97 / 20.10.98 / wm 9.00 / ED 18.12.00 / 27.6.02 | *)
|
||||
(* Updated for 29F800 Bottom Boot Sector. Changes in dark-green. wm, 9.2000 *)
|
||||
IMPORT
|
||||
Log := StdLog, Dialog, Services,
|
||||
UT := XdeUtilities, XE := XdeErrors, FlM := Xo68x32FlashMemories, BDI := UsbBDI332,
|
||||
BDIMain := UsbBDI;
|
||||
|
||||
CONST
|
||||
errPrefix = "Amd_";
|
||||
TargetDefineMem = "Xo68x32ImcTarget.DefineMemory";
|
||||
TargetInit = "Xo68x32ImcTarget.Init";
|
||||
(*
|
||||
thisMod="XdeAmdFlashs";
|
||||
*)
|
||||
|
||||
CONST
|
||||
nul = 0X; cr = 0DX; eol = cr; ht = 9X;
|
||||
|
||||
imageFileExt = ".Tim"; (** target image file extension: ".Tim" *)
|
||||
|
||||
VAR
|
||||
Done-: BOOLEAN; eof-: BOOLEAN;
|
||||
(** Done=TRUE: vorangegangene Operation wurde erfolgreich beendet.
|
||||
eof = TRUE: das Ende des Files ist nun erreicht, oder ein ENDrecord wurde gelesen.
|
||||
|
||||
Done=TRUE und eot = TRUE: ENDrecord konnte noch erfolgreich gelesen werden.
|
||||
*)
|
||||
firstErr-: INTEGER; (** error list see CrossErrors.Text, search for Xo68x32AmdFlashs *)
|
||||
|
||||
PROCEDURE Error (errNr: SHORTINT);
|
||||
BEGIN
|
||||
IF Done THEN firstErr := firstErr; Done := FALSE END;
|
||||
XE.Error("", errPrefix, errNr, TRUE)
|
||||
END Error;
|
||||
|
||||
|
||||
PROCEDURE LogHex (val: INTEGER);
|
||||
BEGIN
|
||||
Log.Char('0'); Log.IntForm(val, Log.hexadecimal, 1, ' ', Log.hideBase); Log.Char('H')
|
||||
END LogHex;
|
||||
|
||||
|
||||
PROCEDURE PutWord (adr, data: INTEGER);
|
||||
BEGIN
|
||||
data := data MOD 10000H; BDI.writeMem(adr, data, 2)
|
||||
END PutWord;
|
||||
|
||||
PROCEDURE WaitByDataPoll (adr, expData: INTEGER);
|
||||
VAR endTime: LONGINT; data: INTEGER;
|
||||
BEGIN
|
||||
endTime := Services.Ticks() + 5000;
|
||||
REPEAT data := BDI.readMem(adr, 2) UNTIL (data = expData) OR (endTime < Services.Ticks());
|
||||
IF data # expData THEN
|
||||
Error(3); Log.Tab; Log.String("at loc "); LogHex(adr); Log.Ln
|
||||
END
|
||||
END WaitByDataPoll;
|
||||
|
||||
PROCEDURE LogWord (data: INTEGER; comment: ARRAY OF CHAR);
|
||||
BEGIN
|
||||
Log.Tab; Log.String(comment); Log.String(":"); Log.Tab; LogHex(data MOD 10000H); Log.Ln
|
||||
END LogWord;
|
||||
|
||||
PROCEDURE InDeviceAdr (VAR devAdr: INTEGER);
|
||||
VAR adr: INTEGER; scnr: UT.Scanner;
|
||||
BEGIN
|
||||
UT.GetScanner("!", scnr);
|
||||
IF scnr.done THEN scnr.Int(adr) END;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); devAdr := 0
|
||||
ELSE
|
||||
devAdr := adr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize
|
||||
END
|
||||
END InDeviceAdr;
|
||||
|
||||
PROCEDURE InSectorAdr (VAR sectorAdr: INTEGER);
|
||||
VAR adr: INTEGER; scnr: UT.Scanner;
|
||||
BEGIN
|
||||
UT.GetScanner("!", scnr);
|
||||
IF scnr.done THEN scnr.Int(adr) END;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); sectorAdr := 0
|
||||
ELSE
|
||||
sectorAdr := adr DIV FlM.memDevice.sectorSize * FlM.memDevice.sectorSize
|
||||
END
|
||||
END InSectorAdr;
|
||||
|
||||
|
||||
PROCEDURE GetChipIDsAm29F800 (devAdr: INTEGER);
|
||||
VAR data: INTEGER; res, sector: INTEGER;
|
||||
|
||||
PROCEDURE GetSectorProtection (sector, sectAdr, sectSize: INTEGER);
|
||||
BEGIN
|
||||
data := BDI.readMem(sectAdr + 4, 2);
|
||||
Log.Tab; Log.String("sector "); Log.Int(sector); Log.Tab; Log.String("adr: ");
|
||||
Log.Tab; LogHex(sectAdr); Log.String("..."); LogHex(sectAdr + sectSize - 1);
|
||||
Log.Tab;
|
||||
IF data = 0 THEN Log.String("un") END; Log.String("protected")
|
||||
END GetSectorProtection;
|
||||
|
||||
|
||||
BEGIN
|
||||
devAdr := devAdr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize;
|
||||
Dialog.Call(TargetInit, "error calling " + TargetInit, res);
|
||||
IF res # 0 THEN Error(2) END;
|
||||
Log.Ln; Log.String("getting Am29F800B chip IDs:"); Log.Ln; Log.Tab; Log.String("address area:");
|
||||
LogHex(devAdr); Log.String(" .. "); LogHex(devAdr + FlM.memDevice.deviceSize - 1); Log.Ln;
|
||||
PutWord(devAdr + 0AAAH, 0AAAAH);
|
||||
PutWord(devAdr + 0554H, 5555H);
|
||||
PutWord(devAdr + 0AAAH, 9090H);
|
||||
data := BDI.readMem(devAdr + 0, 2); LogWord(data, "manufacturer id");
|
||||
data := BDI.readMem(devAdr + 2, 2); LogWord(data, "device id");
|
||||
(* device id = 22D6h: top boot block, device id = 2258H: bottom boot block *)
|
||||
|
||||
Log.Tab; Log.String("sector protection:"); Log.Ln;
|
||||
IF data = 22D6H THEN
|
||||
FOR sector := 0 TO 14 DO
|
||||
GetSectorProtection(sector, devAdr, FlM.memDevice.sectorSize);
|
||||
INC(devAdr, FlM.memDevice.sectorSize); Log.Ln
|
||||
END;
|
||||
GetSectorProtection(15, devAdr, FlM.memDevice.sectorSize DIV 2);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 2); Log.Ln;
|
||||
GetSectorProtection(16, devAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 8); Log.Ln;
|
||||
GetSectorProtection(17, devAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 8); Log.Ln;
|
||||
GetSectorProtection(18, devAdr, FlM.memDevice.sectorSize DIV 4);
|
||||
ELSIF data = 2258H THEN
|
||||
GetSectorProtection(0, devAdr, FlM.memDevice.sectorSize DIV 4);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 4); Log.Ln;
|
||||
GetSectorProtection(1, devAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 8); Log.Ln;
|
||||
GetSectorProtection(2, devAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 8); Log.Ln;
|
||||
GetSectorProtection(3, devAdr, FlM.memDevice.sectorSize DIV 2);
|
||||
INC(devAdr, FlM.memDevice.sectorSize DIV 2); Log.Ln;
|
||||
FOR sector := 4 TO 18 DO
|
||||
GetSectorProtection(sector, devAdr, FlM.memDevice.sectorSize);
|
||||
INC(devAdr, FlM.memDevice.sectorSize); Log.Ln
|
||||
END
|
||||
ELSE Error(4) (* wrong device id *)
|
||||
END;
|
||||
PutWord(devAdr, 0F0F0H); Log.Ln
|
||||
END GetChipIDsAm29F800;
|
||||
|
||||
PROCEDURE GetChipIDsAm29F040 (devAdr: INTEGER);
|
||||
VAR data: INTEGER; res, sector: INTEGER;
|
||||
|
||||
PROCEDURE GetSectorProtection (sector, sectAdr, sectSize: INTEGER);
|
||||
BEGIN
|
||||
data := BDI.readMem(sectAdr + 4, 2);
|
||||
Log.Tab; Log.String("sector "); Log.Int(sector); Log.Tab; Log.String("adr: ");
|
||||
Log.Tab; LogHex(sectAdr); Log.String("..."); LogHex(sectAdr + sectSize - 1);
|
||||
Log.Tab;
|
||||
IF data = 0 THEN Log.String("un") END; Log.String("protected")
|
||||
END GetSectorProtection;
|
||||
|
||||
|
||||
BEGIN
|
||||
devAdr := devAdr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize;
|
||||
Dialog.Call(TargetInit, "error calling " + TargetInit, res);
|
||||
IF res # 0 THEN Error(2) END;
|
||||
Log.Ln; Log.String("getting Am29F040B chip IDs:"); Log.Tab; Log.String("address area:");
|
||||
Log.Tab; LogHex(devAdr); Log.String(" .. "); LogHex(devAdr + FlM.memDevice.deviceSize - 1); Log.Ln;
|
||||
PutWord(devAdr + 0AAAH, 0AAAAH);
|
||||
PutWord(devAdr + 0554H, 5555H);
|
||||
PutWord(devAdr + 0AAAH, 9090H);
|
||||
data := BDI.readMem(devAdr + 0, 2); LogWord(data, "manufacturer id");
|
||||
data := BDI.readMem(devAdr + 2, 2); LogWord(data, "device id");
|
||||
(* device id = 22D6h: top boot block, device id = 2258H: bottom boot block *)
|
||||
|
||||
Log.Tab; Log.String("sector protection:"); Log.Ln;
|
||||
FOR sector := 0 TO 7 DO
|
||||
GetSectorProtection(sector, devAdr, FlM.memDevice.sectorSize);
|
||||
INC(devAdr, FlM.memDevice.sectorSize); Log.Ln
|
||||
END;
|
||||
Log.Ln;
|
||||
DEC(devAdr, FlM.memDevice.sectorSize);
|
||||
PutWord(devAdr, 0F0F0H); Log.Ln
|
||||
END GetChipIDsAm29F040;
|
||||
|
||||
PROCEDURE EraseDevice (adr: INTEGER);
|
||||
CONST expData = 0FFFFH;
|
||||
VAR devAdr: INTEGER;
|
||||
BEGIN
|
||||
devAdr := adr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize;
|
||||
Log.Ln; Log.Tab; Log.String("erasing device(s): ");
|
||||
LogHex(devAdr); Log.String(" .. "); LogHex(devAdr + FlM.memDevice.deviceSize - 1); Log.Ln;
|
||||
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(devAdr + 0AAAAH, 8080H);
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(devAdr + 0AAAAH, 1010H);
|
||||
|
||||
WaitByDataPoll(devAdr, expData)
|
||||
END EraseDevice;
|
||||
|
||||
PROCEDURE EraseSector (sectorAdr: INTEGER);
|
||||
VAR devAdr: INTEGER;
|
||||
BEGIN
|
||||
sectorAdr := sectorAdr DIV FlM.memDevice.sectorSize * FlM.memDevice.sectorSize;
|
||||
devAdr := sectorAdr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize;
|
||||
Log.Ln; Log.Tab; Log.String("erasing sector: ");
|
||||
LogHex(sectorAdr); Log.String(" .. "); LogHex(sectorAdr + FlM.memDevice.sectorSize - 1);
|
||||
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(devAdr + 0AAAAH, 8080H);
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(sectorAdr, 3030H);
|
||||
|
||||
WaitByDataPoll(sectorAdr, 0FFFFH)
|
||||
END EraseSector;
|
||||
|
||||
PROCEDURE EraseSectorAm29F800 (sectorAdr: INTEGER);
|
||||
VAR devAdr: INTEGER;
|
||||
|
||||
PROCEDURE SetEraseMode;
|
||||
BEGIN
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(devAdr + 0AAAAH, 8080H);
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H)
|
||||
END SetEraseMode;
|
||||
|
||||
|
||||
BEGIN
|
||||
sectorAdr := sectorAdr DIV FlM.memDevice.sectorSize * FlM.memDevice.sectorSize;
|
||||
devAdr := sectorAdr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize;
|
||||
Log.Ln; Log.Tab; Log.String("erasing sector: ");
|
||||
LogHex(sectorAdr); Log.String(" .. "); LogHex(sectorAdr + FlM.memDevice.sectorSize - 1);
|
||||
SetEraseMode;
|
||||
PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
IF sectorAdr - devAdr <= 0FFFFH THEN (* erase bottom boot block *)
|
||||
INC(sectorAdr, FlM.memDevice.sectorSize DIV 4);
|
||||
SetEraseMode; PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
INC(sectorAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
SetEraseMode; PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
INC(sectorAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
SetEraseMode; PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
ELSIF sectorAdr - devAdr >= 0F0000H THEN (* erase top boot block *)
|
||||
INC(sectorAdr, FlM.memDevice.sectorSize DIV 2);
|
||||
SetEraseMode; PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
INC(sectorAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
SetEraseMode; PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
INC(sectorAdr, FlM.memDevice.sectorSize DIV 8);
|
||||
SetEraseMode; PutWord(sectorAdr, 3030H); WaitByDataPoll(sectorAdr, 0FFFFH);
|
||||
END
|
||||
END EraseSectorAm29F800;
|
||||
|
||||
PROCEDURE ProgramLong (adr, data: INTEGER);
|
||||
(* program one long at adr *)
|
||||
VAR devAdr, word: INTEGER;
|
||||
BEGIN
|
||||
devAdr := adr DIV FlM.memDevice.deviceSize * FlM.memDevice.deviceSize;
|
||||
|
||||
(* high word *)
|
||||
word := data DIV 10000H MOD 10000H;
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(devAdr + 0AAAAH, 0A0A0H);
|
||||
PutWord(adr, word);
|
||||
WaitByDataPoll(adr, word);
|
||||
|
||||
(* low word *)
|
||||
word := data MOD 10000H; INC(adr, 2);
|
||||
PutWord(devAdr + 0AAAAH, 0AAAAH);
|
||||
PutWord(devAdr + 05554H, 5555H);
|
||||
PutWord(devAdr + 0AAAAH, 0A0A0H);
|
||||
PutWord(adr, word);
|
||||
WaitByDataPoll(adr, word)
|
||||
END ProgramLong;
|
||||
|
||||
|
||||
PROCEDURE ShowChipIDsAm29F040 * ;
|
||||
(**
|
||||
Syntax: XdeAmdFlashs.ShowChipIDsAm29F040B deviceAddress
|
||||
|
||||
Preconditions: Target.DefineMemory defines the memory device Am29F040B
|
||||
target connected via BDI
|
||||
Description: shows: manufacturer id, device id and sector protection
|
||||
Postconditions: the device(s) is in normal reading array mode.
|
||||
*)
|
||||
VAR devAdr: INTEGER;
|
||||
BEGIN
|
||||
BDIMain.ConnectDevice;
|
||||
FlM.LoadMemDevPar("Am29F040"); InDeviceAdr(devAdr); GetChipIDsAm29F040(devAdr)
|
||||
END ShowChipIDsAm29F040;
|
||||
|
||||
|
||||
PROCEDURE ShowChipIDsAm29F800 * ;
|
||||
(**
|
||||
Syntax: XdeAmdFlashs.ShowChipIDsAm29F800B deviceAddress
|
||||
|
||||
Preconditions: Target.DefineMemory defines the memory device Am29F800B
|
||||
target connected via BDI
|
||||
Description: shows: manufacturer id, device id and sector protection
|
||||
Postconditions: the device(s) is in normal reading array mode.
|
||||
*)
|
||||
VAR devAdr: INTEGER;
|
||||
BEGIN
|
||||
BDIMain.ConnectDevice;
|
||||
FlM.LoadMemDevPar("Am29F800"); InDeviceAdr(devAdr); GetChipIDsAm29F800(devAdr)
|
||||
END ShowChipIDsAm29F800;
|
||||
|
||||
|
||||
|
||||
PROCEDURE EraseSectAm29F800 * ;
|
||||
VAR sectAdr: INTEGER;
|
||||
BEGIN
|
||||
BDIMain.ConnectDevice;
|
||||
FlM.LoadMemDevPar("Am29F800"); InSectorAdr(sectAdr); EraseSectorAm29F800(sectAdr)
|
||||
END EraseSectAm29F800;
|
||||
|
||||
|
||||
|
||||
PROCEDURE LoadAm29F010 * ;
|
||||
(** Preconditions: there is an image file Am29F010.Tim
|
||||
if neccessary, click on CRSystem.Build to update all images
|
||||
Description: the image in file Am29F010.Tim is loaded to the targets flash memory devices.
|
||||
Postconditions: all flash memory device sectors, touched by the records in the imagefile,
|
||||
are first erased and then programed.
|
||||
*)
|
||||
BEGIN
|
||||
BDIMain.ConnectDevice;
|
||||
Done := TRUE;
|
||||
FlM.InstallDeviceProc(EraseDevice, EraseSector, ProgramLong);
|
||||
FlM.Program("Am29F010", FALSE)
|
||||
END LoadAm29F010;
|
||||
|
||||
|
||||
PROCEDURE LoadAm29F040 * ;
|
||||
(** Preconditions: there is an image file Am29F040.Tim
|
||||
if neccessary, click on CRSystem.Build to update all images
|
||||
Description: the image in file Am29F040.Tim is loaded to the targets flash memory devices.
|
||||
Postconditions: all flash memory device sectors, touched by the records in the imagefile,
|
||||
are first erased and then programed.
|
||||
*)
|
||||
BEGIN
|
||||
BDIMain.ConnectDevice;
|
||||
Done := TRUE;
|
||||
FlM.InstallDeviceProc(EraseDevice, EraseSector, ProgramLong);
|
||||
FlM.Program("Am29F040", FALSE)
|
||||
END LoadAm29F040;
|
||||
|
||||
|
||||
PROCEDURE LoadAm29F800 * ;
|
||||
(** Preconditions: there is an image file Am29F800B.Tim
|
||||
if neccessary, click on CRSystem.Build to update all images
|
||||
Description: the image in file Am29F800B.Tim is loaded to the targets flash memory devices.
|
||||
Postconditions: all flash memory device sectors, touched by the records in the imagefile,
|
||||
are first erased and then programed.
|
||||
*)
|
||||
BEGIN
|
||||
BDIMain.ConnectDevice;
|
||||
Done := TRUE;
|
||||
FlM.InstallDeviceProc(EraseDevice, EraseSectorAm29F800, ProgramLong);
|
||||
FlM.Program("Am29F800", FALSE)
|
||||
END LoadAm29F800;
|
||||
|
||||
|
||||
|
||||
BEGIN
|
||||
END Xo68x32AmdFlashs.
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,369 +0,0 @@
|
||||
|
||||
MODULE XoppcAmdFlashs;
|
||||
(** <20> ProXon/ED 7.10.97 / 20.10.98 / wm 9.00 / ED 18.12.00 / 27.6.02 | *)
|
||||
(* changes:
|
||||
22.10.04 UG adapted for ppc
|
||||
*)
|
||||
IMPORT
|
||||
Log := StdLog, Dialog, Services,
|
||||
UT := XdeUtilities, XE := XdeErrors, FlM := XoppcFlashMemories , BDI := UsbBDI555, TMAM := XoppcTargetMemAndMods,
|
||||
S := SYSTEM, XSYS := XoppcSystem, TextModels;
|
||||
|
||||
CONST
|
||||
errPrefix = "Amd_";
|
||||
TargetDefineMem = "Xo68x32ImcTarget.DefineMemory";
|
||||
TargetInit = "Xo68x32ImcTarget.Init";
|
||||
|
||||
(*
|
||||
thisMod="XdeAmdFlashs";
|
||||
*)
|
||||
|
||||
CONST
|
||||
nul = 0X; cr = 0DX; eol = cr; ht = 9X;
|
||||
nyd = "<>"; (*not yet defined (number)*)
|
||||
imageFileExt = ".Tim"; (** target image file extension: ".Tim" *)
|
||||
|
||||
VAR
|
||||
Done-: BOOLEAN; eof-: BOOLEAN;
|
||||
(** Done=TRUE: vorangegangene Operation wurde erfolgreich beendet.
|
||||
eof = TRUE: das Ende des Files ist nun erreicht, oder ein ENDrecord wurde gelesen.
|
||||
|
||||
Done=TRUE und eot = TRUE: ENDrecord konnte noch erfolgreich gelesen werden.
|
||||
*)
|
||||
firstErr-: INTEGER; (** error list see CrossErrors.Text, search for Xo68x32AmdFlashs *)
|
||||
|
||||
|
||||
(*cs*)
|
||||
VAR
|
||||
Am29LV160DSegment : TMAM.Segment;
|
||||
Am29LV160DDevice: TMAM.Device;
|
||||
configT: TextModels.Model;
|
||||
|
||||
CONST
|
||||
configText = "TargetConfig.odc";
|
||||
|
||||
PROCEDURE Error (errNr: SHORTINT);
|
||||
BEGIN
|
||||
IF Done THEN firstErr := firstErr; Done := FALSE END;
|
||||
XE.Error("", errPrefix, errNr, TRUE)
|
||||
END Error;
|
||||
|
||||
PROCEDURE LogHex (val: INTEGER);
|
||||
BEGIN
|
||||
Log.Char('0'); Log.IntForm(val, Log.hexadecimal, 1, ' ', Log.hideBase); Log.Char('H')
|
||||
END LogHex;
|
||||
|
||||
PROCEDURE LogWord (data: INTEGER; comment: ARRAY OF CHAR);
|
||||
BEGIN
|
||||
Log.Tab; Log.String(comment); Log.String(":"); Log.Tab; LogHex(data MOD 10000H); Log.Ln
|
||||
END LogWord;
|
||||
|
||||
PROCEDURE PutInt (adr, data: INTEGER);
|
||||
BEGIN
|
||||
BDI.writeMem(adr, data, 4);
|
||||
END PutInt;
|
||||
|
||||
PROCEDURE mirrorReadIntData (data : INTEGER): INTEGER;
|
||||
VAR i: INTEGER;
|
||||
ds, datas: SET;
|
||||
BEGIN
|
||||
ds := {};
|
||||
datas := S.VAL(SET, data);
|
||||
FOR i := 0 TO 31 DO
|
||||
IF i IN datas THEN
|
||||
INCL(ds, 31 - i)
|
||||
END;
|
||||
END;
|
||||
RETURN S.VAL(INTEGER, ds);
|
||||
END mirrorReadIntData;
|
||||
|
||||
PROCEDURE InDeviceAdr (VAR devAdr: INTEGER);
|
||||
VAR adr: INTEGER; scnr: UT.Scanner;
|
||||
BEGIN
|
||||
UT.GetScanner("!", scnr);
|
||||
IF scnr.done THEN scnr.Int(adr) END;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); devAdr := 0
|
||||
ELSE
|
||||
devAdr := adr DIV Am29LV160DSegment.size * Am29LV160DSegment.size ;
|
||||
END
|
||||
END InDeviceAdr;
|
||||
|
||||
PROCEDURE GetChipIDsAm29LV160D (devAdr: INTEGER);
|
||||
VAR data: INTEGER; res, sector: INTEGER;
|
||||
VAR locSgmt: TMAM.Segment; locSgmtNr: INTEGER;
|
||||
|
||||
|
||||
PROCEDURE GetSectorProtection (sector, sectAdr, sectSize: INTEGER);
|
||||
BEGIN
|
||||
data := BDI.readMem(sectAdr + 2 * 4, 4);
|
||||
Log.Tab; Log.String("adr: ");
|
||||
Log.Tab; LogHex(sectAdr); Log.String("..."); LogHex(sectAdr + sectSize - 1);
|
||||
Log.Tab;
|
||||
IF mirrorReadIntData(data) = 0 THEN Log.String("un") END; Log.String("protected")
|
||||
END GetSectorProtection;
|
||||
|
||||
|
||||
BEGIN
|
||||
devAdr := devAdr DIV Am29LV160DSegment.size * Am29LV160DSegment.size ;
|
||||
|
||||
Log.Ln; Log.String("getting Am29LV160D chip IDs:"); Log.Tab; Log.String("address area:");
|
||||
Log.Tab; LogHex(devAdr); Log.String(" .. "); LogHex(devAdr + Am29LV160DSegment.size - 1); Log.Ln;
|
||||
|
||||
PutInt(devAdr + 01554H, 055005500H);
|
||||
PutInt(devAdr + 0AA8H, 0AA00AA00H);
|
||||
PutInt(devAdr + 01554H, 009000900H);
|
||||
|
||||
data := BDI.readMem(devAdr + 0, 4); LogWord(mirrorReadIntData(data), "manufacturer id"); (*01*)
|
||||
data := BDI.readMem(devAdr + 4, 4); LogWord(mirrorReadIntData(data), "device id");
|
||||
Log.String("Sectorname:"); Log.Tab;
|
||||
Log.String("Sectorbaseadress:"); Log.Tab;
|
||||
Log.String("Sectorsize:"); Log.Tab;
|
||||
Log.String("Sectorused:"); Log.Tab;
|
||||
Log.String("Sectorattributs:"); Log.Tab;
|
||||
Log.String("Sectoradressrange:"); Log.Tab;
|
||||
Log.Tab; Log.String("sector protection:");
|
||||
Log.Ln;
|
||||
locSgmt := Am29LV160DSegment.local; locSgmtNr := 0;
|
||||
WHILE locSgmt # NIL DO
|
||||
IF locSgmt.name = "" THEN Log.Int(locSgmtNr) ELSE Log.String(locSgmt.name) END;
|
||||
Log.Tab;
|
||||
Log.Tab; IF locSgmt.base < 0 THEN Log.String(nyd) ELSE LogHex(locSgmt.base) END;
|
||||
Log.Tab; IF locSgmt.size < 0 THEN Log.String(nyd) ELSE LogHex(locSgmt.size) END;
|
||||
Log.Tab; LogHex(locSgmt.used);
|
||||
Log.Tab; Log.Set(locSgmt.attrs);
|
||||
GetSectorProtection(locSgmtNr, devAdr, locSgmt.size);
|
||||
INC(devAdr, locSgmt.size DIV Am29LV160DSegment.width); Log.Ln;
|
||||
locSgmt := locSgmt.next; INC(locSgmtNr)
|
||||
END;
|
||||
PutInt(devAdr + 01554H, 0F000F00H); Log.Ln (*Reset*)
|
||||
END GetChipIDsAm29LV160D;
|
||||
|
||||
PROCEDURE ShowChipIDsAm29LV160D * ;
|
||||
(**
|
||||
Syntax: XdeAmdFlashs.ShowChipIDsAm29LV160D deviceAddress
|
||||
|
||||
Preconditions: Target.DefineMemory defines the memory device Am29FLV160DB
|
||||
target connected via BDI
|
||||
Description: shows: manufacturer id, device id and sector protection
|
||||
Postconditions: the device(s) is in normal reading array mode.
|
||||
*)
|
||||
VAR devAdr: INTEGER;
|
||||
BEGIN
|
||||
InDeviceAdr(devAdr);
|
||||
GetChipIDsAm29LV160D(devAdr);
|
||||
END ShowChipIDsAm29LV160D;
|
||||
|
||||
|
||||
|
||||
PROCEDURE GetSectorAdress (sectName : TMAM.Name; VAR sectSize : INTEGER ): INTEGER;
|
||||
VAR locSgmt: TMAM.Segment; locSgmtNr, adr: INTEGER;
|
||||
BEGIN
|
||||
locSgmt := Am29LV160DSegment.local; locSgmtNr := 0; adr := 0;
|
||||
WHILE locSgmt # NIL DO
|
||||
adr := adr DIV locSgmt.size * locSgmt.size;
|
||||
IF locSgmt.name = "" THEN Log.Int(locSgmtNr) ELSE Log.String(locSgmt.name) END;
|
||||
IF locSgmt.name = sectName THEN
|
||||
sectSize := locSgmt.size DIV Am29LV160DSegment.width ; RETURN adr
|
||||
ELSE
|
||||
adr := adr + locSgmt.size DIV Am29LV160DSegment.width;
|
||||
END;
|
||||
locSgmt := locSgmt.next; INC(locSgmtNr)
|
||||
END;
|
||||
END GetSectorAdress;
|
||||
|
||||
|
||||
PROCEDURE InSectorAdr (VAR sectorAdr, sectSize : INTEGER);
|
||||
VAR scnr: UT.Scanner;
|
||||
sectName : TMAM.Name;
|
||||
BEGIN
|
||||
UT.GetScanner("!", scnr);
|
||||
IF scnr.done THEN scnr.CharSequence(sectName) END;
|
||||
Log.String("Readed sector name: "); Log.String(sectName); Log.Tab;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); sectorAdr := 0
|
||||
ELSE
|
||||
sectorAdr := GetSectorAdress(sectName, sectSize);
|
||||
Log.String("Sectoradress: "); LogHex(sectorAdr); Log.Ln;
|
||||
END
|
||||
END InSectorAdr;
|
||||
|
||||
|
||||
|
||||
PROCEDURE InDumpStartAndEndAdr (VAR startAdr, endAdr: INTEGER);
|
||||
VAR adr: INTEGER; scnr: UT.Scanner;
|
||||
BEGIN
|
||||
UT.GetScanner("!", scnr);
|
||||
IF scnr.done THEN scnr.Int(adr) END;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); startAdr := 0
|
||||
ELSE
|
||||
startAdr := adr
|
||||
END;
|
||||
Log.Ln; Log.String("read start adress to dump: "); LogHex(startAdr);
|
||||
|
||||
IF scnr.done THEN scnr.Int(adr) END;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); endAdr := 0
|
||||
ELSE
|
||||
endAdr := adr
|
||||
END;
|
||||
Log.Ln; Log.String("read end adress to dump: "); LogHex(endAdr); Log.Ln;
|
||||
END InDumpStartAndEndAdr;
|
||||
|
||||
|
||||
|
||||
PROCEDURE InSectorAdr2 (VAR sectorAdr: INTEGER);
|
||||
VAR adr: INTEGER; scnr: UT.Scanner;
|
||||
BEGIN
|
||||
UT.GetScanner("!", scnr);
|
||||
IF scnr.done THEN scnr.Int(adr) END;
|
||||
IF ~scnr.done THEN
|
||||
Error(1); sectorAdr := 0
|
||||
ELSE
|
||||
sectorAdr := adr
|
||||
END;
|
||||
LogHex(sectorAdr);
|
||||
END InSectorAdr2;
|
||||
|
||||
|
||||
PROCEDURE WaitByDataPollInt (adr, expData, timeOut: INTEGER);
|
||||
VAR endTime: LONGINT; data: INTEGER;
|
||||
BEGIN
|
||||
endTime := Services.Ticks() + timeOut;
|
||||
REPEAT data := BDI.readMem(adr, 4) UNTIL (data = expData) OR (endTime < Services.Ticks());
|
||||
IF data # expData THEN
|
||||
Error(3); Log.Tab; Log.String("at loc "); LogHex(adr); Log.Ln
|
||||
END
|
||||
END WaitByDataPollInt;
|
||||
|
||||
|
||||
|
||||
|
||||
PROCEDURE EraseSectorAm29LV160D (sectorAdr: INTEGER);
|
||||
VAR devAdr: INTEGER;
|
||||
|
||||
PROCEDURE SetEraseMode;
|
||||
BEGIN
|
||||
PutInt(devAdr + 01554H, 055005500H);
|
||||
PutInt(devAdr + 0AA8H, 0AA00AA00H);
|
||||
PutInt(devAdr + 01554H, 01000100H);
|
||||
PutInt(devAdr + 01554H, 055005500H);
|
||||
PutInt(devAdr + 0AA8H, 0AA00AA00H)
|
||||
END SetEraseMode;
|
||||
|
||||
|
||||
BEGIN
|
||||
(* Log.String("AmdFlashs-Erase, sector adress ");
|
||||
LogHex(sectorAdr); Log.Tab;*)
|
||||
devAdr := Am29LV160DSegment.base ;
|
||||
(* LogHex(devAdr);*)
|
||||
sectorAdr := sectorAdr - devAdr;
|
||||
(* Log.Ln; Log.Tab; Log.String("erasing sector: ");
|
||||
LogHex(devAdr + sectorAdr); Log.String(" .. ");*)
|
||||
SetEraseMode;
|
||||
PutInt(devAdr + sectorAdr , 0C000C00H); WaitByDataPollInt(devAdr + sectorAdr , 0FFFFFFFFH, 5000);
|
||||
|
||||
END EraseSectorAm29LV160D;
|
||||
|
||||
|
||||
PROCEDURE EraseSectAm29LV160D * ;
|
||||
VAR sectAdr, sectSize: INTEGER;
|
||||
BEGIN
|
||||
InSectorAdr2(sectAdr);
|
||||
EraseSectorAm29LV160D(sectAdr);
|
||||
END EraseSectAm29LV160D;
|
||||
|
||||
|
||||
PROCEDURE EraseDeviceAm29LV160D * (adr: INTEGER);
|
||||
CONST expData = 0FFFFFFFFH;
|
||||
VAR devAdr: INTEGER;
|
||||
BEGIN
|
||||
devAdr := Am29LV160DSegment.base ;
|
||||
adr := adr - devAdr;
|
||||
Log.Ln; Log.Tab; Log.String("erasing device(s): ");
|
||||
LogHex(devAdr); Log.String(" .. "); LogHex(devAdr + Am29LV160DDevice.size - 1); Log.Ln;
|
||||
PutInt(devAdr + 01554H, 055005500H);
|
||||
PutInt(devAdr + 0AA8H, 0AA00AA00H);
|
||||
PutInt(devAdr + 01554H, 01000100H);
|
||||
PutInt(devAdr + 01554H, 055005500H);
|
||||
PutInt(devAdr + 0AA8H, 0AA00AA00H);
|
||||
PutInt(devAdr + 01554H, 08000800H);
|
||||
WaitByDataPollInt(devAdr, expData, 30000);
|
||||
Log.Tab; Log.String("device erased! ");
|
||||
END EraseDeviceAm29LV160D;
|
||||
|
||||
|
||||
PROCEDURE EraseDeviceAm29LV160DCmd * ;
|
||||
VAR sectAdr, sectSize: INTEGER;
|
||||
BEGIN
|
||||
InDeviceAdr(sectAdr);
|
||||
EraseDeviceAm29LV160D(sectAdr);
|
||||
END EraseDeviceAm29LV160DCmd;
|
||||
|
||||
|
||||
|
||||
PROCEDURE ProgramIntAm29LV160D (adr, data: INTEGER);
|
||||
(* program one int at adr *)
|
||||
VAR
|
||||
devAdr: INTEGER;
|
||||
BEGIN
|
||||
devAdr := Am29LV160DSegment.base ;
|
||||
|
||||
PutInt(devAdr + 01554H, 055005500H);
|
||||
PutInt(devAdr + 0AA8H, 0AA00AA00H);
|
||||
PutInt(devAdr + 01554H, 05000500H);
|
||||
PutInt(adr, data);
|
||||
WaitByDataPollInt(adr , data, 5000);
|
||||
END ProgramIntAm29LV160D;
|
||||
|
||||
|
||||
PROCEDURE LoadAm29LV160D * ;
|
||||
(** Preconditions: there is an image fileAm29LV160DB.Tim
|
||||
if neccessary, click on XoppcSystem.Build to update all images
|
||||
Description: the image in file fileAm29LV160DB.Tim is loaded to the targets flash memory devices.
|
||||
Postconditions: all flash memory device sectors, touched by the records in the imagefile,
|
||||
are first erased and then programed.
|
||||
*)
|
||||
BEGIN
|
||||
|
||||
Done := TRUE;
|
||||
Am29LV160DSegment := TMAM.GetSegment(NIL, "ExternalFlashAm29LV160D");
|
||||
Am29LV160DDevice := TMAM.GetDevice("Am29LV160D");
|
||||
FlM.LoadMemDevPar(Am29LV160DDevice, Am29LV160DSegment);
|
||||
FlM.InstallDeviceProc(EraseDeviceAm29LV160D, EraseSectorAm29LV160D, ProgramIntAm29LV160D);
|
||||
XSYS.ResetTarget; IF ~BDI.Done THEN Error(40); RETURN END;
|
||||
FlM.Program("Am29LV160D", FALSE)
|
||||
END LoadAm29LV160D;
|
||||
|
||||
|
||||
PROCEDURE DumpIntAm29LV160D * ;
|
||||
VAR
|
||||
startAdr, endAdr : INTEGER;
|
||||
data, i : INTEGER;
|
||||
BEGIN
|
||||
InDumpStartAndEndAdr(startAdr, endAdr);
|
||||
FOR i := startAdr TO (endAdr) BY 4 DO
|
||||
data := BDI.readMem(i , 4);
|
||||
Log.String("Readed INT value at Adress "); LogHex(i); Log.String(" : ");
|
||||
LogHex(data); Log.Ln;
|
||||
END;
|
||||
END DumpIntAm29LV160D;
|
||||
|
||||
|
||||
|
||||
PROCEDURE Init * ;
|
||||
BEGIN
|
||||
XSYS.ResetTarget;
|
||||
IF ~BDI.Done THEN Error(40); RETURN END;
|
||||
Log.Tab; Log.String("controller reset and initialised"); Log.Ln;
|
||||
TMAM.InitRegs;
|
||||
END Init;
|
||||
|
||||
|
||||
BEGIN
|
||||
Init;
|
||||
END XoppcAmdFlashs.
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,190 +0,0 @@
|
||||
|
||||
MODULE XoppcTrgtRegDict;
|
||||
(** <20> ProXon/ED 3.9.94 / 22.11.98 / 4.12.00 / 14.2.02 | *)
|
||||
(** target register operations*)
|
||||
IMPORT
|
||||
XE := XdeErrors, XU := XdeUtilities, BDI := UsbBDI555, Log := StdLog;
|
||||
|
||||
CONST
|
||||
errPrefix = "RegDir_"; regDictPath = "Xoppc/Rsrc/RegisterDictionary.odc";
|
||||
|
||||
TYPE
|
||||
RegName* = ARRAY 8 OF CHAR;
|
||||
RegDesc = RECORD
|
||||
type: RegName;
|
||||
size: INTEGER;
|
||||
END;
|
||||
|
||||
VAR
|
||||
Done-: BOOLEAN; (** previous operation successfully completed *)
|
||||
firstErr-: SHORTINT; (** first error occured, see error list at the end of this module *)
|
||||
|
||||
regTypeTab: ARRAY 8 OF RegDesc;
|
||||
curReg, curRegCode, regTextPos: INTEGER; curRegName: RegName; curRegType: RegName;
|
||||
regScn: XU.Scanner;
|
||||
fprMoveAddr*: INTEGER;
|
||||
|
||||
PROCEDURE ClearRegAttr;
|
||||
BEGIN
|
||||
curReg := 0; curRegCode := 0; regTextPos := 0;
|
||||
curRegType := regTypeTab[0].type; curRegName := ""
|
||||
END ClearRegAttr;
|
||||
|
||||
PROCEDURE Error (errNr: SHORTINT);
|
||||
BEGIN
|
||||
IF Done THEN firstErr := errNr; Done := FALSE END;
|
||||
XE.Error("", errPrefix, errNr, TRUE);
|
||||
ClearRegAttr
|
||||
END Error;
|
||||
|
||||
PROCEDURE LogInt (val: INTEGER);
|
||||
BEGIN
|
||||
Log.Int(val)
|
||||
END LogInt;
|
||||
|
||||
PROCEDURE LogHex (val: INTEGER);
|
||||
BEGIN
|
||||
Log.Char('0'); Log.IntForm(val MOD 100000000L, Log.hexadecimal, 1, ' ', Log.hideBase); Log.Char('H')
|
||||
END LogHex;
|
||||
|
||||
PROCEDURE SelectRegEntry;
|
||||
BEGIN
|
||||
curReg := 0;
|
||||
WHILE (curReg < LEN(regTypeTab)) & (regTypeTab[curReg].type # curRegType) DO
|
||||
INC(curReg)
|
||||
END;
|
||||
IF curReg >= LEN(regTypeTab) THEN Error(6) END
|
||||
END SelectRegEntry;
|
||||
|
||||
PROCEDURE SelectNextReg * ;
|
||||
VAR ch: CHAR;
|
||||
BEGIN
|
||||
regScn.Ident(curRegName); regTextPos := regScn.start;
|
||||
regScn.Ident(curRegType);
|
||||
regScn.Int(curRegCode); regScn.Char(ch);
|
||||
IF ~regScn.done THEN
|
||||
IF regScn.eot THEN
|
||||
Done := FALSE; ClearRegAttr
|
||||
ELSE
|
||||
Error(8)
|
||||
END
|
||||
ELSIF ch # ';' THEN
|
||||
Error(8)
|
||||
ELSE
|
||||
SelectRegEntry
|
||||
END
|
||||
END SelectNextReg;
|
||||
|
||||
PROCEDURE SelectFirstReg * ;
|
||||
BEGIN
|
||||
IF ~Done THEN
|
||||
XU.GetScanner(regDictPath, regScn); Done := TRUE;
|
||||
END;
|
||||
regScn.SetPos(0); SelectNextReg
|
||||
END SelectFirstReg;
|
||||
|
||||
PROCEDURE SelectReg * (IN name: ARRAY OF CHAR; OUT found: BOOLEAN);
|
||||
BEGIN
|
||||
SelectFirstReg;
|
||||
WHILE Done & (name # curRegName) DO SelectNextReg END;
|
||||
found := Done
|
||||
END SelectReg;
|
||||
|
||||
PROCEDURE LogRegs * ;
|
||||
BEGIN
|
||||
SelectFirstReg;
|
||||
WHILE Done DO
|
||||
SelectNextReg;
|
||||
Log.String(curRegName); Log.Tab; Log.String(curRegType); Log.Tab;
|
||||
Log.Int(curRegCode); Log.Tab; Log.Int(regTextPos); Log.Ln
|
||||
END
|
||||
END LogRegs;
|
||||
|
||||
PROCEDURE ReadReg * (IN regName: ARRAY OF CHAR; OUT regVal: LONGINT; OUT size: INTEGER; OUT done: BOOLEAN);
|
||||
BEGIN
|
||||
Done := TRUE; done := TRUE;
|
||||
IF curRegName # regName THEN SelectReg(regName, done) END;
|
||||
IF done THEN
|
||||
size := regTypeTab[curReg].size;
|
||||
CASE curReg OF
|
||||
| 0:
|
||||
regVal := BDI.readGPR(curRegCode);
|
||||
| 1:
|
||||
regVal := BDI.readGPR(curRegCode);
|
||||
| 2:
|
||||
regVal := BDI.readSPR(curRegCode);
|
||||
| 3:
|
||||
regVal := BDI.readMSR();
|
||||
| 4:
|
||||
regVal := BDI.readFPR(curRegCode, fprMoveAddr);
|
||||
| 5:
|
||||
regVal := BDI.readCR();
|
||||
| 6:
|
||||
regVal := BDI.readFPSCR();
|
||||
| 7:
|
||||
regVal := BDI.readMem(curRegCode, 4);
|
||||
END;
|
||||
done := BDI.Done
|
||||
END
|
||||
END ReadReg;
|
||||
|
||||
PROCEDURE WriteReg * (IN regName: ARRAY OF CHAR; regVal: INTEGER; OUT done: BOOLEAN);
|
||||
BEGIN
|
||||
Done := TRUE; done := TRUE;
|
||||
IF curRegName # regName THEN SelectReg(regName, done) END;
|
||||
IF done THEN
|
||||
CASE curReg OF
|
||||
| 0:
|
||||
BDI.writeGPR(curRegCode, regVal);
|
||||
| 1:
|
||||
BDI.writeGPR(curRegCode, regVal);
|
||||
| 2:
|
||||
BDI.writeSPR(curRegCode, regVal);
|
||||
| 3:
|
||||
BDI.writeMSR(regVal);
|
||||
| 4:
|
||||
BDI.writeFPR(curRegCode, fprMoveAddr, regVal);
|
||||
| 5:
|
||||
BDI.writeCR(regVal);
|
||||
| 6:
|
||||
BDI.writeFPSCR(regVal);
|
||||
| 7:
|
||||
BDI.writeMem(curRegCode, regVal, 4);
|
||||
END;
|
||||
done := BDI.Done
|
||||
END
|
||||
END WriteReg;
|
||||
|
||||
PROCEDURE Clear * ;
|
||||
VAR n: INTEGER;
|
||||
BEGIN
|
||||
Done := TRUE; firstErr := 0;
|
||||
FOR n := 0 TO LEN(regTypeTab) - 1 DO
|
||||
regTypeTab[0].type := "???"; regTypeTab[0].size := 4;
|
||||
END
|
||||
END Clear;
|
||||
|
||||
PROCEDURE Init;
|
||||
BEGIN
|
||||
Clear;
|
||||
(*__ setup stub reg type *)
|
||||
regTypeTab[0].type := "???"; regTypeTab[0].size := 4;
|
||||
ClearRegAttr;
|
||||
|
||||
(*__ setup register types *)
|
||||
regTypeTab[1].type := "GPR"; regTypeTab[1].size := 4;
|
||||
regTypeTab[2].type := "SPR"; regTypeTab[2].size := 4;
|
||||
regTypeTab[3].type := "MSR"; regTypeTab[3].size := 4;
|
||||
regTypeTab[4].type := "FPR"; regTypeTab[4].size := 8;
|
||||
regTypeTab[5].type := "CR"; regTypeTab[5].size := 4;
|
||||
regTypeTab[6].type := "FPSCR"; regTypeTab[6].size := 4;
|
||||
regTypeTab[7].type := "CtrlReg"; regTypeTab[7].size := 4;
|
||||
XU.GetScanner(regDictPath, regScn);
|
||||
IF ~regScn.done THEN Error(3) END
|
||||
END Init;
|
||||
|
||||
|
||||
BEGIN
|
||||
Init
|
||||
END XoppcTrgtRegDict.
|
||||
|
||||
Reference in New Issue
Block a user