[Oberon] re: Partitions.Show failure

[Vasile Rotaru]

  Hi

> > You don't say what version of NO.
> > I use ver 2001 and Partitions.Show always works on all/several IDE's. 
> > 
> 
>   It is the version I used before (the alpha/last one, I guess). I must have somewhere other version of NO. I'll try it too, thank you.
> 
> 

  I have found an NO version 2.3.6 and have tried it.

When I select the ATA/EIDE driver, Partition.Show fails with error 9.
When I select the IDE(old) driver, Partition.Show/Create works OK, but Partition.Check fails. (Or it fails later with the same trap if I skip Partition.Check). I have tried to move the partition forth and back, but it didn't help. I will have to check the disk for bad blocks :(.


  Anyway, I'm appending both traps,

Partition.Show, widh ATA/EIDE driver

TRAP 17  Disk error
ATADisk.Report  PC = 9213
	err = 9
ATADisk.TransferBlocks  PC = 9806
	bufAdr = 1176324
	ctrl =  0030EC60H
	dev =  0030ECE0H
	drive = 0
	lba = 1
	num = 0
	num1 = 1
	read = TRUE
	res = 9
	try = 0
ATADisk.GetBlocks  PC = 9854
	buf = L, O,  00000001X,  00000000X,  00000016X,  00000002X,  00000000X,  00000000X ...
	drive = 0
	num = 1
	ofs = 0
	start = 0
Partition.GetHDParams  PC = 7258
	buf = "LO" ...
	cyls = 2434
	drive = 0
	dsize = 39102210
	hd = 0
	hds = 255
	i = 0
	ok = FALSE
	p = 0
	phd = 0
	psec = 0
	sec = 0
	spt = 63
Partition.GetInfo  PC = 8122
	@for = 0
	@for = 0
	i = 0
	letter = 0
	pn = 0
Partition.Show  PC = 12972
Oberon.Call  PC = 4672
	Mod =  002E4960H
	P = Partition.Show  PC = 12908
	i = 10
	j = 14
	name = "Show"
	new = FALSE
	par =  00370840H
	res = 1
TextFrames.CallCmd  PC = 11197
	F =  0036FA60H
	cmd = "Partition.Show"
	new = FALSE
	par =  00370840H
	pos = 1088
	res = 1
TextFrames.Call  PC = 11448
	F =  0036FA60H
	new = FALSE
	pos = 1074
TextFrames.Edit  PC = 17542
	F =  0036FA60H
	Keys = {1}
	X = 73
	Y = 189
	beg = 0
	buf =  00000000H
	ch =  00000000X
	end = 0
	keysum = {1}
	pos = 1074
	text =  00000000H
	time = 0
TextFrames.Handle  PC = 18166
	F =  0036FA60H
	F1 =  00000000H
MenuViewers.Handle  PC = 4346
	Main =  0036FA60H
	Menu =  0036D120H
	V =  0036FB20H
	V1 =  00000000H
Oberon.Loop  PC = 8078
	V =  0036FB20H
	X = 73
	Y = 189
	ch = c
	keys = {1}
Modules.$$  PC = 287
	@SELF =  00024060H
	SELF =  00024060H
	disp = ""
	extension = ".Obj"
	imported = ""
	importing = "Edit"
	loop = Oberon.Loop  PC = 7475
	res = 0
	resMsg = ""
	resMsgLen = 0
	trace = FALSE


------------------------------------------

  Partition.Check, with IDE(old) driver

TRAP 17  Disk error
IDEDisk.GetBlocks  PC = 4107
	Error.err = 0
	buf =  000000E9X,  000000BCX,  00000001X,  00000000X,  00000000X, h,  00000080X, % ...
	drive = 0
	err = 6013
	num = 16
	ofs = 0
	start = 24805896
Partition.Check  PC = 14880
	ch =  00000000X
	date = 53009
	i = 1536
	len = 16
	num = 6
	pc = 0
	pr = 10
	seed = 5294032
	size = 192780
	start = 24804360
	t0 = 66935
	t1 = 0
	ticks = 83058
Oberon.Call  PC = 4672
	Mod =  002E4960H
	P = Partition.Check  PC = 13916
	i = 10
	j = 15
	name = "Check"
	new = FALSE
	par =  002AD380H
	res = 1
TextFrames.CallCmd  PC = 11197
	F =  00367A20H
	cmd = "Partition.Check"
	new = FALSE
	par =  002AD380H
	pos = 1695
	res = 1
TextFrames.Call  PC = 11448
	F =  00367A20H
	new = FALSE
	pos = 1680
TextFrames.Edit  PC = 17542
	F =  00367A20H
	Keys = {1}
	X = 50
	Y = 357
	beg = 0
	buf =  00000000H
	ch =  00000000X
	end = 0
	keysum = {1}
	pos = 1680
	text =  00000000H
	time = 0
TextFrames.Handle  PC = 18166
	F =  00367A20H
	F1 =  00000000H
MenuViewers.Handle  PC = 4346
	Main =  00367A20H
	Menu =  003650E0H
	V =  00367AE0H
	V1 =  00000000H
Oberon.Loop  PC = 8078
	V =  00367AE0H
	X = 50
	Y = 357
	ch = c
	keys = {1}
Modules.$$  PC = 287
	@SELF =  00024060H
	SELF =  00024060H
	disp = ""
	extension = ".Obj"
	imported = ""
	importing = "Edit"
	loop = Oberon.Loop  PC = 7475
	res = 0
	resMsg = ""
	resMsgLen = 0
	trace = FALSE