wok-6.x rev 25450
BootProg: avoid divide errors
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Wed Sep 14 18:33:54 2022 +0000 (2022-09-14) |
| parents | 6023b31d568c |
| children | 5b1ba413bf58 |
| files | BootProg/stuff/boot16.asm BootProg/stuff/boot32.asm BootProg/stuff/bootex.asm diggerjs/receipt nareto/receipt |
line diff
1.1 --- a/BootProg/stuff/boot16.asm Mon Sep 12 16:35:46 2022 +0000 1.2 +++ b/BootProg/stuff/boot16.asm Wed Sep 14 18:33:54 2022 +0000 1.3 @@ -83,6 +83,12 @@ 1.4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1.5 1.6 %define bx(label) bx+label-boot 1.7 +%define si(label) si+label-boot 1.8 +NullEntryCheck equ 1 ; +3 bytes 1.9 +ReadRetry equ 1 ; +9 bytes 1.10 +LBAsupport equ 1 ; +16 bytes 1.11 +Over2GB equ 1 ; +5 bytes 1.12 +GeometryCheck equ 1 ; +18 bytes 1.13 1.14 [BITS 16] 1.15 [CPU 8086] 1.16 @@ -98,6 +104,7 @@ 1.17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1.18 1.19 boot: 1.20 +DriveNumber: 1.21 jmp short start ; MS-DOS/Windows checks for this jump 1.22 nop 1.23 bsOemName DB "BootProg" ; 0x03 1.24 @@ -161,14 +168,14 @@ 1.25 mov si, 7C00h 1.26 xor di, di 1.27 mov ds, di 1.28 - mov [si], dx ; store BIOS boot drive number 1.29 + push es 1.30 + mov [si(DriveNumber)], dx ; store BIOS boot drive number 1.31 rep movsw ; move 512 bytes (+ 12) 1.32 1.33 ;;;;;;;;;;;;;;;;;;;;;; 1.34 ;; Jump to the copy ;; 1.35 ;;;;;;;;;;;;;;;;;;;;;; 1.36 1.37 - push es 1.38 mov cl, byte main 1.39 push cx 1.40 retf 1.41 @@ -189,13 +196,16 @@ 1.42 ;; for current BIOS ;; 1.43 ;;;;;;;;;;;;;;;;;;;;;;;;;; 1.44 1.45 +%if GeometryCheck != 0 1.46 mov ah, 8 1.47 int 13h ; may destroy SI,BP, and DS registers 1.48 +%endif 1.49 ; update AX,BL,CX,DX,DI, and ES registers 1.50 push cs 1.51 pop ds 1.52 xor bx, bx 1.53 1.54 +%if GeometryCheck != 0 1.55 and cx, byte 3Fh 1.56 cmp [bx(bpbSectorsPerTrack)], cx 1.57 jne BadParams ; verify updated and validity 1.58 @@ -203,6 +213,7 @@ 1.59 inc ax 1.60 mov [bpbHeadsPerCylinder], ax 1.61 BadParams: 1.62 +%endif 1.63 1.64 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1.65 ;; Load FAT (FAT12: 6KB max, FAT16: 128KB max) ;; 1.66 @@ -255,9 +266,13 @@ 1.67 repe cmpsb 1.68 pop di 1.69 je FindNameFound 1.70 +%if NullEntryCheck != 0 1.71 scasb 1.72 je FindNameFailed ; end of root directory (NULL entry found) 1.73 add di, byte 31 1.74 +%else 1.75 + add di, byte 32 1.76 +%endif 1.77 dec word [bx(bpbRootEntries)] 1.78 jnz FindNameCycle ; next root entry 1.79 1.80 @@ -289,35 +304,49 @@ 1.81 ;; CH = 0 ;; 1.82 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1.83 1.84 +FAT12 equ 1 1.85 +FAT16 equ 1 1.86 push di ; up to 2 * 635K / BytesPerCluster bytes 1.87 +%if FAT12 == 1 1.88 mov cl, 12 1.89 +%endif 1.90 ClusterLoop: 1.91 mov [di], si 1.92 1.93 + add si, si ; si = cluster * 2 1.94 +%if FAT16 == 1 1.95 mov ax, es ; ax = FAT segment = ImageLoadSeg 1.96 - add si, si ; si = cluster * 2 1.97 jnc First64k 1.98 mov ah, (1000h+ImageLoadSeg)>>8 ; adjust segment for 2nd part of FAT16 1.99 First64k: 1.100 mov dx, 0FFF8h 1.101 +%else 1.102 + mov dx, 0FF8h 1.103 +%endif 1.104 1.105 +%if FAT12 == 1 && FAT16 == 1 1.106 cmp [bx(bpbSectorsPerFAT)], cx ; 1..12 = FAT12, 16..256 = FAT16 1.107 ja ReadClusterFat16 1.108 - 1.109 mov dh, 0Fh 1.110 +%endif 1.111 +%if FAT12 == 1 1.112 add si, [di] 1.113 shr si, 1 ; si = cluster * 3 / 2 1.114 - 1.115 +%endif 1.116 +%if FAT16 == 1 1.117 ReadClusterFat16: 1.118 push ds 1.119 mov ds, ax 1.120 lodsw ; ax = next cluster 1.121 pop ds 1.122 +%else 1.123 + lodsw ; ax = next cluster 1.124 +%endif 1.125 +%if FAT12 == 1 1.126 jnc ReadClusterEven 1.127 - 1.128 rol ax, cl 1.129 - 1.130 ReadClusterEven: 1.131 +%endif 1.132 scasw ; di += 2 1.133 and ah, dh ; mask cluster value 1.134 cmp ax, dx 1.135 @@ -464,31 +493,41 @@ 1.136 push di 1.137 push cx 1.138 1.139 +%if LBAsupport != 0 1.140 push bx 1.141 push bx 1.142 +%endif 1.143 push dx ; 32-bit LBA: up to 2TB 1.144 push ax 1.145 push es 1.146 +%if ReadRetry != 0 || LBAsupport != 0 1.147 + mov di, 16 ; packet size byte = 16, reserved byte = 0 1.148 +%endif 1.149 +%if LBAsupport != 0 1.150 push bx 1.151 inc bx ; sector count word = 1 1.152 push bx 1.153 dec bx 1.154 - mov di, 16 ; packet size byte = 16, reserved byte = 0 1.155 push di 1.156 +%endif 1.157 1.158 +%if Over2GB != 0 1.159 xchg ax, cx ; save low LBA 1.160 xchg ax, dx ; get high LBA 1.161 cwd ; clear dx (LBA offset <2TB) 1.162 - div word [bx(bpbSectorsPerTrack)] ; up to 8GB disks 1.163 + idiv word [bx(bpbSectorsPerTrack)] ; up to 8GB disks 1.164 1.165 xchg ax, cx ; restore low LBA, save high LBA / SPT 1.166 - div word [bx(bpbSectorsPerTrack)] 1.167 +%else 1.168 + xor cx, cx ; up to 2GB disks otherwise divide error interrupt ! 1.169 +%endif 1.170 + idiv word [bx(bpbSectorsPerTrack)] 1.171 ; ax = LBA / SPT 1.172 ; dx = LBA % SPT = sector - 1 1.173 inc dx 1.174 1.175 xchg cx, dx ; restore high LBA / SPT, save sector no. 1.176 - div word [bx(bpbHeadsPerCylinder)] 1.177 + idiv word [bx(bpbHeadsPerCylinder)] 1.178 ; ax = (LBA / SPT) / HPC = cylinder 1.179 ; dx = (LBA / SPT) % HPC = head 1.180 mov ch, al 1.181 @@ -501,41 +540,54 @@ 1.182 ; dh = head no. 1.183 1.184 ReadSectorRetry: 1.185 - mov dl, [bx] 1.186 + mov dl, [bx(DriveNumber)] 1.187 ; dl = drive no. 1.188 + mov si, sp 1.189 +%if LBAsupport != 0 1.190 mov ah, 42h ; ah = 42h = extended read function no. 1.191 - mov si, sp 1.192 int 13h ; extended read sectors (DL, DS:SI) 1.193 jnc ReadSectorNextSegment 1.194 +%endif 1.195 1.196 mov ax, 201h ; al = sector count = 1 1.197 ; ah = 2 = read function no. 1.198 int 13h ; read sectors (AL, CX, DX, ES:BX) 1.199 1.200 jnc ReadSectorNextSegment 1.201 +%if ReadRetry != 0 1.202 cbw ; ah = 0 = reset function 1.203 int 13h ; reset drive (DL) 1.204 1.205 dec di 1.206 jnz ReadSectorRetry ; extra attempt 1.207 +%endif 1.208 1.209 call Error 1.210 db "Read error." 1.211 1.212 ReadSectorNextSegment: 1.213 1.214 +%if LBAsupport != 0 1.215 pop ax ; al = 16 1.216 mul byte [bx(bpbBytesPerSector)+1] ; = (bpbBytesPerSector/256)*16 1.217 pop cx ; sector count = 1 1.218 pop bx 1.219 add [si+6], ax ; adjust segment for next sector 1.220 +%else 1.221 + mov al, 16 1.222 + mul byte [bx(bpbBytesPerSector)+1] ; = (bpbBytesPerSector/256)*16 1.223 + add [si], ax ; adjust segment for next sector 1.224 +%endif 1.225 pop es ; es:0 updated 1.226 pop ax 1.227 pop dx 1.228 +%if LBAsupport != 0 1.229 pop di 1.230 pop di 1.231 - 1.232 add ax, cx ; adjust LBA for next sector 1.233 +%else 1.234 + add ax, 1 ; adjust LBA for next sector 1.235 +%endif 1.236 1.237 pop cx ; cluster sectors to read 1.238 pop di ; file sectors to read 1.239 @@ -543,7 +595,7 @@ 1.240 loopne ReadSectorNext ; until cluster sector count or file sector count is reached 1.241 pop si 1.242 mov ax, bx ; clear ax 1.243 - mov dx, [bx] ; pass the BIOS boot drive to Run or Error 1.244 + mov dx, [bx(DriveNumber)] ; pass the BIOS boot drive to Run or Error 1.245 1.246 ret 1.247 1.248 @@ -581,7 +633,7 @@ 1.249 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1.250 1.251 ProgramName db "STARTUP BIN" ; name and extension each must be 1.252 - ; padded with spaces (11 bytes total) 1.253 + times (510-($-$$)) db ' ' ; padded with spaces (11 bytes total) 1.254 1.255 ;;;;;;;;;;;;;;;;;;;;;;;;;; 1.256 ;; End of the sector ID ;;
2.1 --- a/BootProg/stuff/boot32.asm Mon Sep 12 16:35:46 2022 +0000 2.2 +++ b/BootProg/stuff/boot32.asm Wed Sep 14 18:33:54 2022 +0000 2.3 @@ -185,7 +185,6 @@ 2.4 xor di, di 2.5 mov ds, di 2.6 push es 2.7 - push byte main 2.8 mov [si(DriveNumber)], dx ; store BIOS boot drive number 2.9 rep movsw 2.10 2.11 @@ -193,6 +192,7 @@ 2.12 ;; Jump to the copy ;; 2.13 ;;;;;;;;;;;;;;;;;;;;;; 2.14 2.15 + push byte main 2.16 retf 2.17 2.18 main: 2.19 @@ -440,20 +440,19 @@ 2.20 idiv word [bx(bpbSectorsPerTrack)] ; up to 8GB disks, avoid divide error 2.21 2.22 xchg ax, cx ; restore low LBA, save high LBA / SPT 2.23 - div word [bx(bpbSectorsPerTrack)] 2.24 %else 2.25 ; Busybox mkdosfs creates fat32 for floppies. 2.26 ; Floppies may support CHS only. 2.27 cwd ; clear dx (LBA offset <16MB) 2.28 + xor cx, cx ; high LBA / SPT = 0 2.29 +%endif 2.30 idiv word [bx(bpbSectorsPerTrack)] 2.31 - xor cx, cx 2.32 -%endif 2.33 ; ax = LBA / SPT 2.34 ; dx = LBA % SPT = sector - 1 2.35 inc dx 2.36 2.37 xchg cx, dx ; restore high LBA / SPT, save sector no. 2.38 - div word [bx(bpbHeadsPerCylinder)] 2.39 + idiv word [bx(bpbHeadsPerCylinder)] 2.40 ; ax = (LBA / SPT) / HPC = cylinder 2.41 ; dx = (LBA / SPT) % HPC = head 2.42
3.1 --- a/BootProg/stuff/bootex.asm Mon Sep 12 16:35:46 2022 +0000 3.2 +++ b/BootProg/stuff/bootex.asm Wed Sep 14 18:33:54 2022 +0000 3.3 @@ -77,6 +77,9 @@ 3.4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3.5 3.6 %define bx(label) bx+label-boot 3.7 +%define si(label) si+label-boot 3.8 +NullEntryCheck equ 1 ; +3 bytes 3.9 +ReadRetry equ 1 ; +8 bytes 3.10 3.11 [BITS 16] 3.12 [CPU 386] 3.13 @@ -92,6 +95,7 @@ 3.14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3.15 3.16 boot: 3.17 +DriveNumber: 3.18 jmp short start ; Windows checks for this jump 3.19 nop 3.20 bsOemName DB "EXFAT " ; 0x03 3.21 @@ -154,13 +158,14 @@ 3.22 mov si, 7C00h 3.23 xor di, di 3.24 mov ds, di 3.25 + push es 3.26 + mov [si(DriveNumber)], dx ; store BIOS boot drive number 3.27 rep movsw ; move 512 bytes (+ 12) 3.28 3.29 ;;;;;;;;;;;;;;;;;;;;;; 3.30 ;; Jump to the copy ;; 3.31 ;;;;;;;;;;;;;;;;;;;;;; 3.32 3.33 - push es 3.34 push word main 3.35 retf 3.36 3.37 @@ -169,7 +174,6 @@ 3.38 pop ds 3.39 3.40 xor ebx, ebx 3.41 - mov [bx], dl ; store BIOS boot drive number 3.42 3.43 mov esi, [bx(bpbRootDirCluster)] ; esi=cluster # of root dir 3.44 3.45 @@ -194,16 +198,20 @@ 3.46 ;; dword [bx+FileSize] file size ;; 3.47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3.48 3.49 -CurNameSize equ 3 3.50 -StartCluster equ 14h 3.51 -FileSize equ 18h 3.52 +CurNameSize equ 3 ; 1 byte 3.53 +StartCluster equ 14h ; 4 bytes 3.54 +FileSize equ 18h ; 8 bytes 3.55 3.56 FindNameCycle: 3.57 pusha 3.58 3.59 +%if NullEntryCheck != 0 3.60 xor ax, ax 3.61 or al, [es:di] 3.62 je FindNameFailed 3.63 +%else 3.64 + movzx ax, byte [es:di] 3.65 +%endif 3.66 3.67 cmp al, 0c0h ; EXFAT_ENTRY_FILE_INFO ? 3.68 jne NotFileInfo 3.69 @@ -213,7 +221,7 @@ 3.70 mov al, [es:di+bx] 3.71 mov [bx], al 3.72 dec bx 3.73 - jnz CopyInfo ; keep BIOS boot drive number 3.74 + jnz CopyInfo ; keep BIOS boot drive number 3.75 3.76 NotFileInfo: 3.77 mov al, 0c1h ; EXFAT_ENTRY_FILE_NAME ? 3.78 @@ -232,7 +240,7 @@ 3.79 popf ; restore carry="not last sector" flag 3.80 jc RootDirReadContinue ; continue to the next root dir cluster 3.81 FindNameFailed: ; end of root directory (dir end reached) 3.82 - mov dl, [bx] ; restore BIOS boot drive number 3.83 + mov dx, [bx(DriveNumber)] ; restore BIOS boot drive number 3.84 call Error 3.85 db "File not found." 3.86 FindNameFound: 3.87 @@ -250,9 +258,9 @@ 3.88 add di, bp ; adjust segment for next sector 3.89 mov es, di ; es:0 updated 3.90 call ReadCluster ; read one more sector of the boot file 3.91 - sub [bx+FileSize], ebp 3.92 + sub [bx+FileSize], ebp ; max FileSize is < 640KB : check low 32 bits only 3.93 ja FileReadContinue 3.94 - mov dl, [bx] ; restore BIOS boot drive number 3.95 + mov dx, [bx(DriveNumber)] ; restore BIOS boot drive number 3.96 xor ax, ax 3.97 pop bp 3.98 3.99 @@ -354,10 +362,9 @@ 3.100 loop ReadSectorC 3.101 3.102 mul ebx ; edx:eax = 0 3.103 - mov cl, [bx(bpbSectorSizeBits)] 3.104 - dec cx 3.105 - stc 3.106 - rcl eax, cl ; eax=# of exFAT entries per sector 3.107 + mov cl,-2 3.108 + add cl, [bx(bpbSectorSizeBits)] 3.109 + bts ax, cx ; eax=# of exFAT entries per sector 3.110 lea edi, [esi-2] ; edi=cluster #-2 3.111 xchg eax, esi 3.112 div esi ; eax=FAT sector #, edx=entry # in sector 3.113 @@ -365,15 +372,14 @@ 3.114 imul si, dx, byte 4 ; si=entry # offset in sector 3.115 3.116 cdq 3.117 - add eax, [bx(bpbFatSectorStart)] ; sector # relative to exFAT 3.118 - call ReadSectorC ; read 1 exFAT sector 3.119 + add eax, [bx(bpbFatSectorStart)] ; sector # relative to FAT32 3.120 + call ReadSectorC ; read 1 FAT32 sector 3.121 3.122 mov esi, [es:si] ; esi=next cluster # 3.123 3.124 - inc dx 3.125 - mov cl, [bx(bpbSectorPerClusterBits)] 3.126 - shl edx, cl ; 10000h max (32MB cluster) 3.127 - mov ecx, edx 3.128 + mov dl, [bx(bpbSectorPerClusterBits)] 3.129 + xor cx, cx 3.130 + bts ecx, edx ; 10000h max (32MB cluster) 3.131 xchg eax, edi ; get cluster #-2 3.132 mul ecx 3.133 3.134 @@ -407,19 +413,25 @@ 3.135 push es 3.136 push bx 3.137 push bp ; sector count word = 1 3.138 +%if ReadRetry != 0 3.139 mov cx, 16 3.140 push cx ; packet size byte = 16, reserved byte = 0 3.141 ReadSectorRetry: 3.142 +%else 3.143 + push byte 16 3.144 +%endif 3.145 mov si, sp 3.146 mov ah, 42h ; ah = 42h = extended read function no. 3.147 - mov dl, [bx] ; restore BIOS boot drive number 3.148 + mov dl, [bx(DriveNumber)] ; restore BIOS boot drive number 3.149 int 13h ; extended read sectors (DL, DS:SI) 3.150 3.151 jnc ReadSuccess 3.152 3.153 +%if ReadRetry != 0 3.154 xor ax, ax 3.155 int 13h ; reset drive (DL) 3.156 loop ReadSectorRetry ; up to 16 retries 3.157 +%endif 3.158 3.159 call Error 3.160 db "Read error."
4.1 --- a/diggerjs/receipt Mon Sep 12 16:35:46 2022 +0000 4.2 +++ b/diggerjs/receipt Wed Sep 14 18:33:54 2022 +0000 4.3 @@ -9,7 +9,8 @@ 4.4 SOURCE="digger.js" 4.5 TARBALL="$SOURCE-$VERSION.zip" 4.6 WEB_SITE="http://www.heise.de/software/download/digger.js/8148" 4.7 -WGET_URL="https://www.tikkel.de/download/$TARBALL" 4.8 +#WGET_URL="https://www.tikkel.de/download/$TARBALL" 4.9 +WGET_URL="https://download.tuxfamily.org/slitaz/sources/packages-cooking/${TARBALL:0:1}/$TARBALL" 4.10 4.11 # What is the latest version available today? 4.12 current_version()
5.1 --- a/nareto/receipt Mon Sep 12 16:35:46 2022 +0000 5.2 +++ b/nareto/receipt Wed Sep 14 18:33:54 2022 +0000 5.3 @@ -8,7 +8,7 @@ 5.4 LICENSE="GPL2" 5.5 TARBALL="$PACKAGE-$VERSION.tar.gz" 5.6 WEB_SITE="https://web.archive.org/web/20131008041555/http://www.nareto.org/" 5.7 -WGET_URL="${WEB_SITE}srcs/$TARBALL" 5.8 +WGET_URL="https://download.tuxfamily.org/slitaz/sources/packages-cooking/${TARBALL:0:1}/$TARBALL" 5.9 CONFIG_FILES="/etc/nagios" 5.10 BUGS="s/oreon/centreon/" 5.11