Fix critical bug in sys_ClearDeviceTable

bos.inc

@@ -308,7 +308,7 @@ macro device_file? flags, type, version, intsource
 	end repeat
 	macro export? jumpno, function
 		if function > 0
-			store $C9: byte at $$+jumpno
+			store $C3: byte at $$+jumpno
 			store function: 3 at $$+jumpno+1
 		end if
 	end macro

build_bos_inc.py

@@ -339,7 +339,7 @@ def build_bos_inc():
 	end repeat
 	macro export? jumpno, function
 		if function > 0
-			store $C9: byte at $$+jumpno
+			store $C3: byte at $$+jumpno
 			store function: 3 at $$+jumpno+1
 		end if
 	end macro

src/data/adrive/src/fs/bin/include/bos.inc

@@ -308,7 +308,7 @@ macro device_file? flags, type, version, intsource
 	end repeat
 	macro export? jumpno, function
 		if function > 0
-			store $C9: byte at $$+jumpno
+			store $C3: byte at $$+jumpno
 			store function: 3 at $$+jumpno+1
 		end if
 	end macro

src/data/adrive/src/fs/lib/include/bos.inc

@@ -308,7 +308,7 @@ macro device_file? flags, type, version, intsource
 	end repeat
 	macro export? jumpno, function
 		if function > 0
-			store $C9: byte at $$+jumpno
+			store $C3: byte at $$+jumpno
 			store function: 3 at $$+jumpno+1
 		end if
 	end macro

src/data/buildno.txt

@@ -1 +1 @@
-1.19.2000 alpha
+1.19.2100 alpha

src/include/bos.inc

@@ -308,7 +308,7 @@ macro device_file? flags, type, version, intsource
 	end repeat
 	macro export? jumpno, function
 		if function > 0
-			store $C9: byte at $$+jumpno
+			store $C3: byte at $$+jumpno
 			store function: 3 at $$+jumpno+1
 		end if
 	end macro

src/sys/AppendDeviceTable.asm

@@ -10,7 +10,7 @@ sys_AppendDeviceTable:
 .entryhl:
 	push iy
 	ld iy,open_device_table
-	ld b,open_device_table.len / 4 - 1
+	ld b,open_device_table.len / 4
 .check_next:
 	ld a,(iy)
 	or a,a

src/sys/ClearDeviceTable.asm

@@ -5,19 +5,24 @@
 ;@NOTE Each device table entry is 4 bytes. 1 byte flags, 3 byte file descriptor.
 sys_ClearDeviceTable:
 	push iy
-	ld iy,open_device_table
-	ld b,open_device_table.len / 4 - 1
+	ld iy,open_device_table-4
+	ld b,open_device_table.len / 4
 .loop:
+	lea iy,iy+4
 	ld a,(iy)
 	or a,a
 	jr nz,.close_dev
-	lea iy,iy+4
+.next:
 	djnz .loop
 	pop iy
 	ret
 .close_dev:
-	push iy
-	ld hl,(iy+1)
+	push iy,bc
+	ld de,(iy+1)
+	sbc hl,hl
+	ld (iy),l
+	ld (iy+1),hl
+	ex hl,de
 	call drv_DeinitDevice.entryhl
-	pop iy
-	jr .loop
+	pop bc,iy
+	jr .next

src/sys/SearchDeviceTable.asm

@@ -9,7 +9,7 @@ sys_SearchDeviceTable:
 .entryhl:
 	push iy
 	ld iy,open_device_table
-	ld b,open_device_table.len / 4 - 1
+	ld b,open_device_table.len / 4
 .check_loop:
 	ld a,(iy)
 	ld de,(iy+1)