Krn/network: added getsockname and getpeername

.gitea/CODEOWNERS

@@ -1,54 +0,0 @@
-# =============================================================================
-# Apps
-# User-facing applications, games, multimedia, UI and desktop resources
-# =============================================================================
-
-^programs/(cmm|demos|emulator|games|media|other)/.*       @KolibriOS/apps
-^contrib/(games|media|other)/.*                           @KolibriOS/apps
-^skins/.*                                                 @KolibriOS/apps
-
-
-# =============================================================================
-# System
-# Kernel, drivers, filesystems, SDK, libraries, toolchain and system utilities
-# =============================================================================
-
-^kernel/.*                                                @KolibriOS/system
-^drivers/.*                                               @KolibriOS/system
-
-^programs/(bcc32|develop|fs|hd_load|system|testing)/.*    @KolibriOS/system
-^contrib/(C_Layer|sdk|toolchain)/.*                       @KolibriOS/system
-
-# Shared system/API includes in programs/
-^programs/[^/]+\\.inc$                                    @KolibriOS/system
-
-
-# =============================================================================
-# Network
-# Network stack, network drivers, protocols, libraries and network applications
-# =============================================================================
-
-^kernel/trunk/network/.*                                  @KolibriOS/network
-
-^drivers/ethernet/.*                                      @KolibriOS/network
-^drivers/(mii|netdrv)\\.inc$                              @KolibriOS/network
-
-^programs/network/.*                                      @KolibriOS/network
-^programs/network\\.inc$                                  @KolibriOS/network
-
-^programs/develop/libraries/(http|network|kos_mbedtls)/.* @KolibriOS/network
-
-^contrib/network/.*                                       @KolibriOS/network
-
-
-# =============================================================================
-# DevOps
-# CI/CD, repository infrastructure, build system and autobuild configuration
-# =============================================================================
-
-^\\.gitea/.*                                              @KolibriOS/devops
-^_tools/.*                                                @KolibriOS/devops
-
-^\\.gitmodules$                                           @KolibriOS/devops
-^build\\.txt$                                             @KolibriOS/devops
-^tup\\.config\\.template$                                 @KolibriOS/devops

.gitea/ansible/playbooks/deploy.yml

@@ -19,62 +19,3 @@
         owner: "{{ storage_user }}"
         group: "{{ storage_user }}"
         mode: preserve
-
-    # per-program binaries browsable at <version>/<lang>/data/, like on the old builds server
-    - name: Creating build tree folders
-      ansible.builtin.file:
-        path: "{{ storage_path }}/{{ version }}/{{ item | basename | regex_replace('\\.tar\\.gz$', '') }}/data"
-        state: directory
-        owner: "{{ storage_user }}"
-        group: "{{ storage_user }}"
-        mode: '0755'
-      with_fileglob: "{{ tree_artifact_path }}/*.tar.gz"
-
-    - name: Unpacking build trees
-      ansible.builtin.unarchive:
-        src: "{{ item }}"
-        dest: "{{ storage_path }}/{{ version }}/{{ item | basename | regex_replace('\\.tar\\.gz$', '') }}/data"
-        owner: "{{ storage_user }}"
-        group: "{{ storage_user }}"
-      with_fileglob: "{{ tree_artifact_path }}/*.tar.gz"
-
-    # stable URL for the newest build: <storage_path>/latest/<lang>/...
-    - name: Updating latest symlink
-      ansible.builtin.file:
-        src: "{{ version }}"
-        dest: "{{ storage_path }}/latest"
-        state: link
-        force: true
-        owner: "{{ storage_user }}"
-        group: "{{ storage_user }}"
-
-    # emulators hardcode <site root>/<lang>/data/data/kolibri.img; storage_path is the ci folder, one level under the site root
-    - name: Sending bare images to stable emulator paths
-      ansible.builtin.copy:
-        src: "{{ stable_artifact_path }}/"
-        dest: "{{ storage_path }}/../"
-        mode: preserve
-
-    # older builds shrink to compressed images and lose their unpacked tree; the newest few keep both
-    - name: Looking for zstd on the storage server
-      ansible.builtin.shell: command -v zstd
-      register: zstd_present
-      changed_when: false
-      failed_when: false
-
-    - name: Requiring zstd for compaction
-      ansible.builtin.assert:
-        that: zstd_present.rc == 0
-        fail_msg: >-
-          zstd is not installed on the storage server, so older builds cannot
-          be compacted. Install it and re-run this build.
-
-    - name: Compacting older builds
-      ansible.builtin.script:
-        cmd: >-
-          ../../utils/compact-builds.sh
-          {{ storage_path | quote }}
-          {{ compact_keep | default(5) | int }}
-          {{ compact_max | default(10) | int }}
-      register: compaction
-      changed_when: "'compacted 0 of' not in compaction.stdout"

.gitea/utils/compact-builds.sh

@@ -1,74 +0,0 @@
-#!/bin/bash
-# SPDX-License-Identifier: GPL-2.0-only
-# SPDX-FileCopyrightText: 2026 KolibriOS team
-
-# Shrink older builds on the storage server: compress their images and drop
-# their unpacked tree, which is rebuildable from the commit. sha256sums.txt
-# keeps naming the bare images, so a compacted build has to be decompressed
-# before it can be verified.
-#
-# Layout:  <root>/<version>/<lang>/kolibrios-<descr>-<lang>.{img,iso,raw} -> .zst
-#          <root>/<version>/<lang>/data/                                  -> removed
-#
-# Usage: compact-builds.sh <storage-root> [keep] [max-per-run]
-#        DRY_RUN=1 walks the same selection and changes nothing
-
-set -euo pipefail
-
-root=${1:?storage root required}
-# the build just published is always among these, so an upload in flight is safe
-keep=${2:-5}
-# a build is hundreds of MiB to re-compress: cap the first pass over the backlog
-max=${3:-10}
-dry=${DRY_RUN:-0}
-verb=compacted
-[ "$dry" = 1 ] && verb="would compact"
-
-# --rm drops the source only once the archive is written; the box serves the
-# site over NFS, so compaction yields to it
-compress_image() {
-    nice -n 10 ionice -c3 zstd -12 -T1 -q --rm "$1"
-}
-export -f compress_image
-
-leftovers() {
-    local build=$1
-    find "$build" -mindepth 2 -maxdepth 2 \
-        \( -type d -name data \
-           -o -type f \( -name '*.img' -o -name '*.iso' -o -name '*.raw' \) \) \
-        -print -quit
-}
-
-compacted=0
-pending=0
-
-while IFS= read -r version; do
-    dir="$root/$version"
-    [ -n "$(leftovers "$dir")" ] || continue
-
-    pending=$((pending + 1))
-    [ "$compacted" -lt "$max" ] || continue
-
-    if [ "$dry" = 1 ]; then
-        compacted=$((compacted + 1))
-        echo "$verb $version"
-        continue
-    fi
-
-    # a build holds nine images: one per core, each zstd kept to one thread so
-    # the two levels of parallelism do not fight. Archive before dropping the
-    # tree, so a failure here leaves the build merely uncompacted and the next
-    # run picks it up again
-    find "$dir" -mindepth 2 -maxdepth 2 -type f \
-         \( -name '*.img' -o -name '*.iso' -o -name '*.raw' \) -print0 \
-        | xargs -0 -r -P "$(nproc)" -I{} bash -c 'compress_image "$@"' _ {}
-
-    find "$dir" -mindepth 2 -maxdepth 2 -type d -name data -exec rm -rf {} +
-
-    compacted=$((compacted + 1))
-    echo "$verb $version"
-# <tag>-<commit count>-g<sha>: order by the count, never by mtime
-done < <(find "$root" -mindepth 1 -maxdepth 1 -type d -name '*-*-g*' -printf '%f\n' \
-             | sort -t- -k2,2n | head -n "-$keep")
-
-echo "$verb $compacted of $pending older build(s), $((pending - compacted)) left for the next run"

.gitea/workflows/build.yaml

@@ -128,8 +128,7 @@ jobs:
           fi
 
       # cache restore resets ctimes; realign tup DB to skip a full rebuild,
-      # but keep files changed since the cache's commit dirty so tup rebuilds them.
-      # A submodule bump diffs as a bare gitlink, so expand it to its whole subtree
+      # but keep files changed since the cache's commit dirty so tup rebuilds them
       - name: Sync tup DB with filesystem ctime
         if: steps.check-tup-cache.outputs.cache_restored == 'true'
         run: |
@@ -137,10 +136,6 @@ jobs:
           BASE=$(cat .tup/build-commit 2>/dev/null || true)
           if [ -n "$BASE" ] && git cat-file -e "${BASE}^{commit}" 2>/dev/null; then
             git -c core.quotePath=false diff --name-only "$BASE" HEAD > "$DIRTY"
-            git diff --raw "$BASE" HEAD | awk '$2 == "160000" { print $NF }' |
-            while read -r sub; do
-              git -C "$sub" -c core.quotePath=false ls-files | sed "s|^|$sub/|"
-            done >> "$DIRTY"
             echo "Cache built at $BASE; $(wc -l < "$DIRTY") changed files kept dirty"
             python3 .gitea/utils/sync-tup-ctime.py .tup/db "$DIRTY"
           else
@@ -167,13 +162,12 @@ jobs:
           tup init
           tup variant ${{ matrix.lang }}.config
 
-      # build the image for language variant; keep the tup log for publishing
+      # build the image for language variant
       - name: Build KolibriOS
         run: |
-          set -o pipefail
           export PATH=/home/autobuild/tools/win32/bin:$PATH
           source kos32-export-env-vars ${{ gitea.workspace }}
-          tup build-${{ matrix.lang }} 2>&1 | tee build.log
+          tup build-${{ matrix.lang }}
 
       # stamp the cache with its commit so later builds diff against it
       - name: Record cache base commit
@@ -187,26 +181,15 @@ jobs:
         id: vars
         run: echo "descr=$(git describe --tags)" >> $GITEA_OUTPUT
 
-      # stage build outputs under their final names, plus distribution kit and checksums
-      - name: Prepare artifacts
+      # rename build outputs to their final names so artifacts are bare files
+      - name: Rename images
         run: |
-          set -e
-          BASE="kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}"
           for ext in img iso raw; do
-            cp "build-${{ matrix.lang }}/data/kolibri.$ext" "$BASE.$ext"
+            cp "build-${{ matrix.lang }}/data/kolibri.$ext" \
+               "kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.$ext"
           done
-          # zip: distr targets Windows/DOS users, Explorer opens it natively
-          (cd "build-${{ matrix.lang }}/data" && zip -r -9 -q "${{ gitea.workspace }}/$BASE.distr.zip" distribution_kit)
-          # whole build tree for per-program downloads; the big images ship separately
-          tar -C "build-${{ matrix.lang }}" \
-              --exclude './data/kolibri.iso' \
-              --exclude './data/kolibri.raw' \
-              --exclude './data/distribution_kit' \
-              -czf "$BASE.tree.tar.gz" .
-          sha256sum "$BASE".img "$BASE".iso "$BASE".raw "$BASE".distr.zip > "$BASE.sha256sums.txt"
-          mv build.log "$BASE.build.log"
 
-      # publish the images; longer retention for the floppy image
+      #publish the three images; longer retention for the floppy image.
       - name: Upload floppy image
         uses: actions/upload-artifact@v3
         with:
@@ -228,34 +211,6 @@ jobs:
           path: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.raw
           retention-days: 15
 
-      - name: Upload distribution kit
-        uses: actions/upload-artifact@v3
-        with:
-          name: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.distr.zip
-          path: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.distr.zip
-          retention-days: 30
-
-      - name: Upload checksums
-        uses: actions/upload-artifact@v3
-        with:
-          name: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.sha256sums.txt
-          path: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.sha256sums.txt
-          retention-days: 90
-
-      - name: Upload build log
-        uses: actions/upload-artifact@v3
-        with:
-          name: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.build.log
-          path: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.build.log
-          retention-days: 90
-
-      - name: Upload build tree
-        uses: actions/upload-artifact@v3
-        with:
-          name: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.tree.tar.gz
-          path: kolibrios-${{ steps.vars.outputs.descr }}-${{ matrix.lang }}.tree.tar.gz
-          retention-days: 15
-
   deploy:
     name: "Publish Images"
     runs-on: ubuntu-latest
@@ -280,50 +235,31 @@ jobs:
         run: |
           set -eu
 
-          rm -rf ./norm-artifacts ./stable-artifacts ./tree-artifacts
-          mkdir -p ./norm-artifacts ./stable-artifacts ./tree-artifacts
+          rm -rf ./norm-artifacts
+          mkdir -p ./norm-artifacts
 
-          find ./artifacts -type f -name 'kolibrios-*' | while read -r file; do
-            fname="$(basename "$file")"        # kolibrios-<descr>-<lang>.<suffix>
-            case "$fname" in
-              *.tree.tar.gz)    stem="${fname%.tree.tar.gz}";;
-              *.distr.zip)      stem="${fname%.distr.zip}";;
-              *.sha256sums.txt) stem="${fname%.sha256sums.txt}";;
-              *.build.log)      stem="${fname%.build.log}";;
-              *.img)            stem="${fname%.img}";;
-              *.iso)            stem="${fname%.iso}";;
-              *.raw)            stem="${fname%.raw}";;
-              *) continue;;
-            esac
-            lang="${stem##*-}"                 # <lang> has no dashes, <descr> may
+          find ./artifacts -type f \( \
+            -name 'kolibrios-*.img' -o \
+            -name 'kolibrios-*.iso' -o \
+            -name 'kolibrios-*.raw' \
+          \) | while read -r file; do
+            fname="$(basename "$file")"        # kolibrios-<descr>-<lang>.<ext>
+            name_without_ext="${fname%.*}"
+            lang="${name_without_ext##*-}"
 
             mkdir -p "./norm-artifacts/$lang"
-            case "$fname" in
-              *.tree.tar.gz)
-                # unpacked on the server into <version>/<lang>/data/ for per-program downloads
-                cp "$file" "./tree-artifacts/$lang.tar.gz";;
-              *.sha256sums.txt)
-                cp "$file" "./norm-artifacts/$lang/sha256sums.txt";;
-              *.build.log)
-                cp "$file" "./norm-artifacts/$lang/build.log";;
-              *.img)
-                cp "$file" "./norm-artifacts/$lang/$fname"
-                # emulators (e.g. v86) hardcode <lang>/data/data/kolibri.img at the site root
-                mkdir -p "./stable-artifacts/$lang/data/data"
-                cp "$file" "./stable-artifacts/$lang/data/data/kolibri.img";;
-              *)
-                cp "$file" "./norm-artifacts/$lang/$fname";;
-            esac
+            cp "$file" "./norm-artifacts/$lang/$fname"
           done
 
-          # derive the version (git describe) from an artifact name: kolibrios-<descr>-<lang>.iso -> <descr>
-          sample="$(find ./norm-artifacts -type f -name 'kolibrios-*.iso' | head -n1)"
+          # derive the version (git describe) from an artifact name:
+          # kolibrios-<descr>-<lang>.<ext> -> <descr>
+          sample="$(find ./norm-artifacts -type f -name 'kolibrios-*' | head -n1)"
           base="$(basename "${sample%.*}")"   # kolibrios-<descr>-<lang>
           version="${base%-*}"                # kolibrios-<descr>
           version="${version#kolibrios-}"     # <descr>
           echo "version=$version" >> $GITEA_OUTPUT
 
-          find ./norm-artifacts ./stable-artifacts ./tree-artifacts -type f -print
+          find ./norm-artifacts -type f -print
 
       - name: Setup SSH
         run: |
@@ -349,6 +285,4 @@ jobs:
             -e "storage_path=${{ secrets.STORAGE_PATH }}" \
             -e "version=${{ steps.normalize.outputs.version }}" \
             -e "artifact_path=${{ gitea.workspace }}/norm-artifacts" \
-            -e "stable_artifact_path=${{ gitea.workspace }}/stable-artifacts" \
-            -e "tree_artifact_path=${{ gitea.workspace }}/tree-artifacts" \
             -v

.gitmodules

@@ -4,7 +4,7 @@
 	branch = main
 [submodule "programs/develop/oberon07"]
 	path = programs/develop/oberon07
-	url = https://git.kolibrios.org/KolibriOS/oberon-07-compiler.git
+	url = https://github.com/AntKrotov/oberon-07-compiler.git
 	branch = master
 [submodule "programs/cmm"]
 	path = programs/cmm

data/Tupfile.lua

@@ -41,6 +41,10 @@ img_files = {
  {"LIB/KMENU.OBJ", "common/lib/kmenu.obj"},
  {"LIB/PIXLIB.OBJ", "common/lib/pixlib.obj"},
  {"MEDIA/AC97SND", "common/media/ac97snd"},
+ {"MEDIA/IMGF/IMGF", "common/media/ImgF/ImgF"},
+ {"MEDIA/IMGF/CEDG.OBJ", "common/media/ImgF/cEdg.obj"},
+ {"MEDIA/IMGF/DITHER.OBJ", "common/media/ImgF/dither.obj"},
+ {"MEDIA/IMGF/INVSOL.OBJ", "common/media/ImgF/invSol.obj"},
  {"NETWORK/FTPC.INI", SRC_PROGS .. "/network/ftpc/ftpc.ini"},
  {"NETWORK/FTPD.INI", "common/network/ftpd.ini"},
  {"NETWORK/KNMAP", "common/network/knmap"},
@@ -54,7 +58,8 @@ img_files = {
  {"SETTINGS/FB2READ.INI", "common/settings/fb2read.ini"},
  {"SETTINGS/HA.CFG", SRC_PROGS .. "/other/ha/SETTINGS/HA.CFG"},
  {"SETTINGS/ICON.INI", build_type .. "/settings/icon.ini"},
- {"SETTINGS/KEYMAP.KEY", VAR_PROGS .. "/system/taskbar/keymap.key.kpack"},
+ {"SETTINGS/KEYMAP.KEY", SRC_PROGS .. "/system/taskbar/KEYMAP.KEY"},
+ {"SETTINGS/KOLIBRI.LBL", build_type .. "/settings/kolibri.lbl"},
  {"SETTINGS/LANG.INI", build_type .. "/settings/lang.ini"},
  {"SETTINGS/MENU.DAT", build_type .. "/settings/menu.dat"},
  {"SETTINGS/NETWORK.INI", "common/settings/network.ini"},
@@ -69,6 +74,7 @@ if build_type == "ru_RU" then tup.append_table(img_files, {
  {"WELCOME.HTM", VAR_DATA .. "/" .. build_type .. "/welcome.htm.kpack"},
  {"EXAMPLE.ASM", SRC_PROGS .. "/develop/examples/example/rus/example.asm"},
  {"DEVELOP/BACKY", SRC_PROGS .. "/develop/backy/Backy_ru"},
+ {"GAMES/BASEKURS.KLA", build_type .. "/games/basekurs.kla"},
  {"File Managers/KFAR.INI", build_type .. "/File Managers/kfar.ini"},
  {"GAMES/DESCENT", build_type .. "/games/descent"},
  {"SETTINGS/.shell", SRC_PROGS .. "/system/shell/bin/rus/.shell"},
@@ -186,12 +192,6 @@ extra_files = {
  {"kolibrios/develop/tcc/samples/", SRC_PROGS ..  "/develop/ktcc/libc.obj/samples/*.sh"},
  {"kolibrios/develop/tcc/samples/clayer/", SRC_PROGS ..  "/develop/ktcc/libc.obj/samples/clayer/*"},
  {"kolibrios/develop/utils/SPEDump", SRC_PROGS .. "/develop/SPEDump/SPEDump.kex"},
- {"kolibrios/develop/XDPascal/", SRC_PROGS .. "/develop/XDPascal/xdpk/*"},
- {"kolibrios/develop/XDPascal/projects2025/", SRC_PROGS .. "/develop/XDPascal/xdpk/projects2025/*"},
- {"kolibrios/develop/XDPascal/projects2025/Compiler/", SRC_PROGS .. "/develop/XDPascal/xdpk/projects2025/Compiler/*"},
- {"kolibrios/develop/XDPascal/projects2026/", SRC_PROGS .. "/develop/XDPascal/xdpk/projects2026/*"},
- {"kolibrios/develop/XDPascal/source/", SRC_PROGS .. "/develop/XDPascal/xdpk/source/*"},
- {"kolibrios/develop/XDPascal/units/", SRC_PROGS .. "/develop/XDPascal/xdpk/units/*"},
  {"kolibrios/emul/", "common/emul/*"},
  {"kolibrios/emul/dosbox/", "common/emul/DosBox/*"},
  {"kolibrios/emul/e80/readme.txt", SRC_PROGS .. "/emulator/e80/readme.txt"},
@@ -268,10 +268,6 @@ extra_files = {
  {"kolibrios/lib/i915_dri.drv", "common/lib/i915_dri.drv"},
  {"kolibrios/media/fplay", "common/media/fplay"},
  {"kolibrios/media/fplay_run", "common/media/fplay_run"},
- {"kolibrios/media/ImgF/ImgF", "common/media/ImgF/ImgF"},
- {"kolibrios/media/ImgF/cEdg.obj", "common/media/ImgF/cEdg.obj"},
- {"kolibrios/media/ImgF/dither.obj", "common/media/ImgF/dither.obj"},
- {"kolibrios/media/ImgF/invSol.obj", "common/media/ImgF/invSol.obj"},
  {"kolibrios/media/minimp3", "common/media/minimp3"},
  {"kolibrios/media/updf", SRC .. "/contrib/media/updf/build/uPDF"},
  {"kolibrios/media/vttf", "common/media/vttf"},
@@ -295,6 +291,8 @@ extra_files = {
  {"kolibrios/utils/vmode", "common/vmode"},
  {"kolibrios/utils/texture", "common/utils/texture"},
  {"kolibrios/utils/kterm/kterm", VAR_PROGS .. "/other/kterm/kterm"},
+ {"kolibrios/utils/kterm/serial.sys", VAR_DRVS .. "/serial/serial.sys"},
+ {"kolibrios/utils/kterm/install.sh", SRC .. "/drivers/serial/install.sh"},
  {"kolibrios/utils/cnc_editor/cnc_editor", VAR_PROGS .. "/other/cnc_editor/cnc_editor"},
  {"kolibrios/utils/cnc_editor/kolibri.NC", SRC_PROGS .. "/other/cnc_editor/kolibri.NC"},
  {"kolibrios/utils/kfm/kfm.ini", "common/File Managers/kfm.ini"},
@@ -486,6 +484,11 @@ tup.append_table(img_files, {
  {"DEVELOP/MTDBG", VAR_PROGS .. "/develop/mtdbg/mtdbg"},
  {"DEVELOP/MSTATE", VAR_PROGS .. "/develop/mstate/mstate"},
  {"DEVELOP/SCANCODE", VAR_PROGS .. "/develop/scancode/scancode"},
+ {"DEVELOP/EXAMPLES/CIRCLE", VAR_PROGS .. "/develop/examples/circle/circle"},
+ {"DEVELOP/EXAMPLES/COLORREF", VAR_PROGS .. "/demos/colorref/colorref"},
+ {"DEVELOP/EXAMPLES/CONGET", VAR_PROGS .. "/develop/libraries/console_coff/examples/test_gets"},
+ {"DEVELOP/EXAMPLES/CSLIDE", VAR_PROGS .. "/demos/cslide/cslide"},
+ {"DEVELOP/EXAMPLES/THREAD", VAR_PROGS .. "/develop/examples/thread/thread"},
  {"File Managers/KFAR", VAR_PROGS .. "/fs/kfar/kfar"},
  {"File Managers/OPENDIAL", VAR_PROGS .. "/fs/opendial/opendial"},
  {"LOD", VAR_PROGS .. "/fs/lod/lod"},
@@ -536,7 +539,7 @@ tup.append_table(img_files, {
  {"NETWORK/PING", VAR_PROGS .. "/network/ping/ping"},
  {"NETWORK/NETCFG", VAR_PROGS .. "/network/netcfg/netcfg"},
  {"NETWORK/NETSTAT", VAR_PROGS .. "/network/netstat/netstat"},
- {"NETWORK/NETSURF", VAR_PROGS .. "/network/netsurf/netsurf"},
+ {"NETWORK/NSINST", VAR_PROGS .. "/network/netsurf/nsinstall"},
  {"NETWORK/NSLOOKUP", VAR_PROGS .. "/network/nslookup/nslookup"},
  {"NETWORK/PASTA", VAR_PROGS .. "/network/pasta/pasta"},
  {"NETWORK/SYNERGYC", VAR_PROGS .. "/network/synergyc/synergyc"},
@@ -567,15 +570,12 @@ tup.append_table(img_files, {
  {"DRIVERS/UHCI.SYS", VAR_DRVS .. "/usb/uhci.sys"},
  {"DRIVERS/OHCI.SYS", VAR_DRVS .. "/usb/ohci.sys"},
  {"DRIVERS/EHCI.SYS", VAR_DRVS .. "/usb/ehci.sys"},
- {"DRIVERS/XHCI.SYS", VAR_DRVS .. "/usb/xhci/xhci.sys"},
  {"DRIVERS/USBHID.SYS", VAR_DRVS .. "/usb/usbhid/usbhid.sys"},
- {"DRIVERS/USBFTDI.SYS", VAR_DRVS .. "/usb/usbftdi/usbftdi.sys"},
  {"DRIVERS/USBOTHER.SYS",VAR_DRVS .. "/usb/usbother/usbother.sys"},
  {"DRIVERS/USBCDC.SYS", VAR_DRVS .. "/usb/usbnet/usbcdc.sys"},
  {"DRIVERS/USBRNDIS.SYS", VAR_DRVS .. "/usb/usbnet/usbrndis.sys"},
  {"DRIVERS/USBSTOR.SYS", VAR_DRVS .. "/usb/usbstor.sys"},
  {"DRIVERS/RDC.SYS", VAR_DRVS .. "/video/rdc.sys"},
- {"DRIVERS/SERIAL.SYS", VAR_DRVS .. "/serial/serial.sys"},
  {"DRIVERS/COMMOUSE.SYS", VAR_DRVS .. "/mouse/commouse.sys"},
  {"DRIVERS/PS2MOUSE.SYS", VAR_DRVS .. "/mouse/ps2mouse4d/ps2mouse.sys"},
  {"DRIVERS/TMPDISK.SYS", VAR_DRVS .. "/disk/tmpdisk.sys"},
@@ -592,7 +592,6 @@ tup.append_table(img_files, {
  {"DRIVERS/VT823X.SYS", VAR_DRVS .. "/audio/vt823x.sys"},
  {"DRIVERS/SIS.SYS", VAR_DRVS .. "/audio/sis.sys"},
  {"DRIVERS/SDHCI.SYS", "../drivers/sdhci/sdhci.sys"},
- {"DRIVERS/I2CHID.SYS", VAR_DRVS .. "/i2chid/i2chid.sys"},
 })
 tup.append_table(extra_files, {
  {"HD_Load/9x2klbr/", VAR_PROGS .. "/hd_load/9x2klbr/9x2klbr.exe"},
@@ -646,28 +645,19 @@ tup.append_table(extra_files, {
  {"kolibrios/3D/blocks/block.bin", VAR_PROGS .. "/bcc32/games/blocks/block.bin"},
  {"kolibrios/develop/tcc/lib/crt0.o", VAR_PROGS ..  "/develop/ktcc/bin/lib/crt0.o", group = "../programs/develop/ktcc/<crt0.o>"},
  {"kolibrios/develop/tcc/lib/tiny.o", VAR_PROGS ..  "/develop/ktcc/bin/lib/tiny.o", group = "../programs/develop/ktcc/<tiny.o>"},
- {"kolibrios/develop/tcc/lib/libsound.a", VAR_PROGS ..  "/develop/ktcc/bin/lib/libsound.a", group = "../programs/develop/ktcc/<libsound.a>"},
- {"kolibrios/develop/examples/circle", VAR_PROGS .. "/develop/examples/circle/circle"},
- {"kolibrios/develop/examples/colorref", VAR_PROGS .. "/demos/colorref/colorref"},
- {"kolibrios/develop/examples/conget", VAR_PROGS .. "/develop/libraries/console_coff/examples/test_gets"},
- {"kolibrios/develop/examples/cslide", VAR_PROGS .. "/demos/cslide/cslide"},
- {"kolibrios/develop/examples/thread", VAR_PROGS .. "/develop/examples/thread/thread"}
+ {"kolibrios/develop/tcc/lib/libsound.a", VAR_PROGS ..  "/develop/ktcc/bin/lib/libsound.a", group = "../programs/develop/ktcc/<libsound.a>"}
 })
--- -- For russian build, add russian-only programs.
--- if build_type == "ru_RU" then tup.append_table(img_files, {
--- {"DEVELOP/EXAMPLES/TESTCON2", VAR_PROGS .. "/develop/libraries/console_coff/examples/testcon2_rus"},
--- }) else tup.append_table(img_files, {
--- {"DEVELOP/EXAMPLES/TESTCON2", VAR_PROGS .. "/develop/libraries/console_coff/examples/testcon2_eng"},
--- }) end
+-- For russian build, add russian-only programs.
+if build_type == "ru_RU" then tup.append_table(img_files, {
+ {"GAMES/KLAVISHA", VAR_PROGS .. "/games/klavisha/klavisha"},
+ {"DEVELOP/EXAMPLES/TESTCON2", VAR_PROGS .. "/develop/libraries/console_coff/examples/testcon2_rus"},
+}) else tup.append_table(img_files, {
+ {"DEVELOP/EXAMPLES/TESTCON2", VAR_PROGS .. "/develop/libraries/console_coff/examples/testcon2_eng"},
+}) end
 
 if build_type == "ru_RU" then tup.append_table(extra_files, {
- {"kolibrios/develop/examples/testcon2", VAR_PROGS .. "/develop/libraries/console_coff/examples/testcon2_rus"},
  {"kolibrios/utils/period", VAR_PROGS .. "/other/period/period"},
  {"kolibrios/games/Dungeons/Dungeons", VAR_PROGS .. "/games/Dungeons/Dungeons"},
- {"kolibrios/games/klavisha/klavisha", VAR_PROGS .. "/games/klavisha/klavisha"},
- {"kolibrios/games/klavisha/basekurs.kla", "ru_RU/games/basekurs.kla"},
-}) else tup.append_table(extra_files, {
- {"kolibrios/develop/examples/testcon2", VAR_PROGS .. "/develop/libraries/console_coff/examples/testcon2_eng"},
 }) end
 
 end -- tup.getconfig('NO_FASM') ~= 'full'

data/common/File Managers/kfar.ini

@@ -48,7 +48,7 @@ mht=/sys/network/WebView
 docx=/sys/network/WebView
 url=/sys/network/WebView
 fb2=/sys/fb2read
-kla=/kolibrios/games/klavisha/klavisha
+kla=/sys/games/klavisha
 pdf=/kolibrios/media/updf
 avi=/kolibrios/media/fplay_run
 mpg=/kolibrios/media/fplay_run

data/common/settings/AUTORUN.DAT

@@ -6,9 +6,8 @@
 #/SYS/CROPFLAT          "XS800 YS480"	1	# set limits of screen
 #/SYS/LOADDRV           COMMOUSE	1	# serial mouse driver
 #/SYS/DEVELOP/BOARD     ""   0	# Load DEBUG board
-#/SYS/LOADDRV            RDC  0	# videodriver for RDC M2010/M2012
 /SYS/SETUP              BOOT 0	# Load device settings
-/SYS/LOADDRV            I2CHID 0	# Start I2C touchpad driver
+/SYS/LOADDRV            RDC  0	# videodriver for RDC M2010/M2012
 /SYS/@TASKBAR           ""   0	# Start taskbar
 /SYS/ESKIN              ""   0	# Set style
 /SYS/@ICON              ""   0	# Multithread desktop icons

data/common/settings/assoc.ini

@@ -179,7 +179,7 @@ stl=/sys/3d/view3ds
 skn=/sys/skincfg
 dtp=/sys/skincfg
 lif=/kolibrios/demos/life2
-kla=/kolibrios/games/klavisha/klavisha
+kla=/sys/games/klavisha
 pdf=/kolibrios/media/updf
 
 smc=/kolibrios/emul/zsnes/zsnes

data/common/settings/games.ini

@@ -39,7 +39,7 @@ Donkey=/kg/donkey
 Loderunner=/kg/LRL/LRL,41
 ; 21days=/kg/21days,104 ;rus only
 BabyPainter=/kg/BabyPainter,87
-Klavisha=/kg/klavisha/klavisha,69
+Klavisha=games/klavisha,69
 Millioneer=/kg/WHOWTBAM/whowtbam,114
 StarTrek71=/kg/sstartrek/SStarTrek
 Descent=games/descent

data/common/settings/system.ini

@@ -5,22 +5,6 @@ font smoothing=sbp
 font height=9
 speaker mute=off
 
-[touchpad]
-speed=100
-; how far a finger must move before the pointer follows, in pad units;
-; larger is steadier under a pressing finger, 0 turns the filter off
-jitter=1
-; the same, for a finger that landed on the button strip: it is pressing
-; rather than steering there, so it needs a stricter margin
-jitter_buttons=45
-scroll_step=64
-scroll_invert=0
-tap_enable=1
-tap_drag=1
-right_click=1
-button_zone=15
-right_split=50
-
 [mouse]
 speed=4
 acceleration=3

data/en_US/settings/icon.ini

@@ -243,7 +243,7 @@ x=204
 y=0
 [22]
 name=NETSURF
-path=/sys/NETWORK/NETSURF
+path=/sys/NETWORK/NSINST
 param=
 ico=125
 x=204

data/en_US/settings/menu.dat

@@ -40,7 +40,7 @@
 06 zSea Image Viewer  * |/kolibrios/media/zsea/zsea
 38 Animage              |media/animage
 38 IconEdit             |media/iconedit
-40 Image Filtering    * |/kolibrios/media/ImgF/ImgF
+40 Image Filtering      |media/imgf/imgf
 52 Palitra              |media/palitra
 39 Pipet                |develop/pipet
 #4 **** MULTIMEDIA
@@ -116,7 +116,6 @@
 33 HTTPGet              |network/httpget
 33 Downloader           |network/dl
 12 WebView Browser      |network/webview
-12 NetSurf              |network/netsurf
 #13 **** SERVERS
 24 FTP                  |network/ftpd
 #14 **** OTHER

data/es_ES/settings/icon.ini

@@ -243,7 +243,7 @@ x=204
 y=0
 [22]
 name=NETSURF
-path=/sys/NETWORK/NETSURF
+path=/sys/NETWORK/NSINST
 param=
 ico=125
 x=204

data/es_ES/settings/menu.dat

@@ -41,7 +41,7 @@
 16 Image viewer KIV      |media/kiv
 16 Image viewer zSea  *  |/kolibrios/media/zsea/zsea
 16 Animage               |media/animage
-16 Efectos de imаgenes * |/kolibrios/media/ImgF/ImgF
+16 Efectos de imаgenes   |media/imgf/imgf
 16 Palitra               |media/palitra
 #4   **** MULTIMEDIA
 16 Pixie Audioplayer     |media/pixie
@@ -121,7 +121,6 @@
 16 HTTPGet               |network/httpget
 16 Descargas             |network/dl
 16 Navegador WebView     |network/webview
-12 NetSurf               |network/netsurf
 #15    **** OTROS
 16 Reloj analвgico       |demos/aclock
 16 Reloj binario         |demos/bcdclk

data/et_EE/settings/menu.dat

@@ -41,7 +41,7 @@
 06 Image viewer zSea  *  |/kolibrios/media/zsea/zsea
 38 Animage               |media/animage
 38 IconEdit              |media/iconedit
-16 Image Filtering    *  |/kolibrios/media/ImgF/ImgF
+16 Image Filtering       |media/imgf/imgf
 52 Palitra               |media/palitra
 39 Pipet                 |develop/pipet
 #4   **** MULTIMEDIA ****

data/it_IT/settings/menu.dat

@@ -41,7 +41,7 @@
 06 Image viewer zSea  *  |/kolibrios/media/zsea/zsea
 38 Animage               |media/animage
 38 IconEdit              |media/iconedit
-40 Image Filtering    *  |/kolibrios/media/ImgF/ImgF
+40 Image Filtering       |media/imgf/imgf
 52 Palitra               |media/palitra
 39 Pipet                 |develop/pipet
 #4 **** MULTIMEDIA

data/ru_RU/File Managers/kfar.ini

@@ -39,7 +39,7 @@ docx=/sys/network/WebView
 url=/sys/network/WebView
 fb2=/sys/fb2read
 mht=/sys/network/WebView
-kla=/kolibrios/games/klavisha/klavisha
+kla=/sys/games/klavisha
 pdf=/kolibrios/media/updf
 avi=/kolibrios/media/fplay_run
 mpg=/kolibrios/media/fplay_run

data/ru_RU/settings/games.ini

@@ -39,7 +39,7 @@ Donkey=/kg/donkey
 Loderunner=/kg/LRL/LRL,41
 21days=/kg/21days,104 ;rus only
 BabyPainter=/kg/BabyPainter,87
-Klavisha=/kg/klavisha/klavisha,69
+Klavisha=games/klavisha,69
 Millioneer=/kg/WHOWTBAM/whowtbam,114
 StarTrek71=/kg/sstartrek/SStarTrek
 Descent=games/descent

data/ru_RU/settings/icon.ini

@@ -243,7 +243,7 @@ x=204
 y=0
 [22]
 name=NETSURF
-path=/sys/NETWORK/NETSURF
+path=/sys/NETWORK/NSINST
 param=
 ico=125
 x=204

data/ru_RU/settings/menu.dat

@@ -40,7 +40,7 @@
 06 Просмотр фото zSea   |/kolibrios/media/zsea/zsea
 38 Редактор Animage     |media/animage
 38 Редактор иконок      |media/iconedit
-40 Наложение фильтров * |/kolibrios/media/ImgF/ImgF
+40 Наложение фильтров   |media/imgf/imgf
 52 Палитра              |media/palitra
 39 Пипетка              |develop/pipet
 #4 **** Звук и видео
@@ -115,7 +115,6 @@
 33 HTTPGet              |network/httpget
 33 Загрузчик            |network/dl
 12 Браузер WebView      |network/webview
-12 Браузер NetSurf      |network/netsurf
 #14 **** Разное
 00 Эмуляторы*         > |@6
 45 Создание скриншотов  |scrshoot
@@ -123,7 +122,7 @@
 18 FB2 Читалка          |fb2read
 16 Аналоговые часы      |aclock
 21 Таблица Менделеева   |/kolibrios/utils/period
-59 Тренажёр KJIABuIIIA  |/kolibrios/games/klavisha/klavisha
+59 Тренажёр KJ|ABuIIIA  |games/klavisha
 16 Бинарные часы        |demos/bcdclk
 53 Таймер               |timer
 09 Разархиватор Unz     |unz

drivers/audio/intel_hda/CODEC_H.INC

@@ -515,18 +515,20 @@ HDA_AMP_VOLMASK    equ 0x7F
 
 
 ; unsolicited event handler
-HDA_UNSOL_QUEUE_SIZE	equ 64	; must stay a power of 2 (used as a bitmask for wrap)
+HDA_UNSOL_QUEUE_SIZE	equ 64
 
-struc HDA_BUS_UNSOLICITED
-{
-    ; ring buffer
-    .queue  rd HDA_UNSOL_QUEUE_SIZE * 2 ; 2 dword for each event (res and res_ex)
-    .rp     dd ?                        ; Read pointer
-    .wp     dd ?                        ; Write pointer
-;   ; workqueue
-;   .work   dd ?                        ;struct work_struct work;
-;   .bus    dd ?                        ;struct hda_bus ;bus
-}
+;struc  HDA_BUS_UNSOLICITED
+;{
+;        ; ring buffer
+;        .queue:
+;            times HDA_UNSOL_QUEUE_SIZE*2 dd ?
+;        .rp                              dd ?
+;        .wp                              dd ?
+;
+;        ; workqueue
+;        .work                            dd ?;struct work_struct work;
+;        .bus                             dd ?  ;struct hda_bus ;bus
+;};
 
 ; Helper for automatic ping configuration
 AUTO_PIN_MIC		 equ 0

drivers/audio/intel_hda/hdaudio.asm

@@ -273,8 +273,8 @@ RIRB_INT_RESPONSE	 equ  0x01
 RIRB_INT_OVERRUN	 equ  0x04
 RIRB_INT_MASK		 equ  0x05
 
-; STATESTS int mask: SDIWAKE[14:0], a 16-bit register
-STATESTS_INT_MASK	 equ  0x7FFF
+; STATESTS int mask: SD2,SD1,SD0
+STATESTS_INT_MASK	 equ  0x07
 AZX_MAX_CODECS		 equ  4
 
 ; SD_CTL bits
@@ -402,7 +402,6 @@ struc AC_CNTRL		    ;AC controller base class
 	.response_reset     dd 0
 	.polling_mode	    db 0
 	.poll_count	    db 0
-	.no_irq 	    db 0 ; no interrupt line: a thread runs hda_irq
 	.posbuf 	    dd ?
 	.start_wallclk	    dd ? ; start + minimum wallclk
 	.period_wallclk     dd ? ; wallclk for period
@@ -506,6 +505,8 @@ macro spin_unlock
 	pop	ebx eax
 }
 
+data fixups
+end data
 
 include '../../struct.inc'
 include '../../macros.inc'
@@ -606,6 +607,9 @@ if IRQ_REMAP
 	invoke	SysMsgBoardStr
 end if
 
+	mov	ebx, [ctrl.int_line]
+	invoke	AttachIntHandler, ebx, hda_irq, dword 0
+
 ;Asper This part is from "azx_probe" proc. [
 	call	azx_codec_create
 	cmp	eax, 0
@@ -650,15 +654,7 @@ end if
 	stdcall hda_codec_setup_stream, eax, SDO_TAG, 0, 0x11	; Left & Right channels (Back panel)
 ;Asper+ ]
 
-if USE_UNSOL_EV = 0
-	invoke	TimerHS, 1, 0, snd_hda_automute, 1
-else
-	; Keep the unsolicited-event mode on the event-driven path. Running
-	; snd_hda_automute at startup can issue codec commands before the new
-	; unsolicited-response flow is ready, which hangs some systems.
-	invoke	TimerHS, 1, 0, process_unsol_events, 0
-end if
-
+	invoke	TimerHS, 1, 0, snd_hda_automute, 0
 if USE_SINGLE_MODE
 	mov	esi, msgSingleMode
 	invoke	SysMsgBoardStr
@@ -854,13 +850,13 @@ end if
 
 	mov	edx, ICH6_REG_SD_STS + SDO_OFS
 	call	azx_readb
-	mov	cl, al
+	mov	bl, al
 
 	mov	al, SD_INT_MASK
 	mov	edx, ICH6_REG_SD_STS + SDO_OFS
 	call	azx_writeb
 
-	test	cl, SD_INT_COMPLETE
+	test	bl, SD_INT_COMPLETE
 	jz	@f
 
 	mov	eax, [ctrl.civ_val]
@@ -897,13 +893,13 @@ end if
 ;if 0
 	; clear state status int
 	mov	edx, ICH6_REG_STATESTS
-	call	azx_readw
-	and	eax, STATESTS_INT_MASK
+	call	azx_readb
+	test	al, 0x04
 	jz	@f
 
-	; ack all state-change bits, else the level IRQ line stays asserted
+	mov	al, 0x04
 	mov	edx, ICH6_REG_STATESTS
-	call	azx_writew
+	call	azx_writeb
 @@:
 ;end if
 	or	eax, 1
@@ -911,24 +907,6 @@ end if
 	ret
 endp
 
-; Stand-in for the interrupt when no interrupt line is available. A thread,
-; not a TimerHS callback: the kernel calls timer callbacks with the global
-; timer list lock held, and hda_irq may stall and refill the audio buffer.
-; hda_irq runs with interrupts off, as it would in IRQ context: it holds
-; aspinlock, which azx_rirb_get_response waits for with interrupts off, so
-; a holder that could be preempted would hang the machine.
-proc hda_poll_thread
-.loop:
-	pushfd
-	cli
-	call	hda_irq
-	popfd
-	mov	eax, 5		; delay, sleeping instead of spinning
-	mov	ebx, 1		; 10 ms; a 16 KB period is ~85 ms at 48 kHz
-	int	0x40
-	jmp	.loop
-endp
-
 
 align 4
 proc create_primary_buff
@@ -1217,26 +1195,6 @@ end if
 	; allocate CORB/RIRB
 	call	azx_alloc_cmd_io
 
-	; attach the IRQ handler BEFORE the controller may raise interrupts:
-	; azx_init_chip enables GIE/CIE and a codec state-change can fire
-	; right away; an unclaimed level IRQ makes the
-	; kernel poll foreign handlers and relink their IRQH nodes onto our
-	; line (see irq_serv .try_other_irqs), corrupting the dispatch list
-	; a warm reboot can leave GIE and a stale completion bit behind, and
-	; civ_val is never resynced, so silence the controller before attaching
-	call	azx_int_disable
-	mov	ebx, [ctrl.int_line]
-	invoke	AttachIntHandler, ebx, hda_irq, dword 0
-	test	eax, eax
-	jnz	@f
-	; No usable interrupt line (INTLINE=0xFF on boards that route INTx only
-	; through ACPI _PRT or MSI, which the kernel does not parse). The
-	; controller still latches INTSTS/SD_STS, we only lose the wakeup - so
-	; poll the RIRB for codec replies and run the interrupt handler from a
-	; thread. A flag of its own: polling_mode is the timeout recovery state.
-	mov	[ctrl.no_irq], 1
-@@:
-
 	; initialize chip
 	call	azx_init_pci
 
@@ -1244,32 +1202,6 @@ end if
 	call	azx_init_chip
 ;] Asper
 
-	; no IRQ line: let a polling thread stand in for the interrupt.
-	; Started only now - earlier, hda_irq could ack STATESTS in the window
-	; before reset_controller reads it into codec_mask
-	cmp	[ctrl.no_irq], 0
-	je	@f
-	push	esi edi 	; CreateThread clobbers them, START needs esi
-	mov	ebx, 1
-	mov	ecx, hda_poll_thread
-	xor	edx, edx
-	invoke	CreateThread
-	pop	edi esi
-	test	eax, eax
-	jns	.thread_ok
-	; nothing would ever complete a period and playback would stall,
-	; so fail the init rather than register a service that hangs
-	mov	esi, msgNoIrqThread
-	invoke	SysMsgBoardStr
-	xor	eax, eax
-	ret
-.thread_ok:
-if DEBUG
-	mov	esi, msgNoIrqPoll
-	invoke	SysMsgBoardStr
-end if
-@@:
-
 	xor	eax, eax
 	inc	eax
 	ret
@@ -1303,7 +1235,7 @@ endl
 	; clear STATESTS
 	mov	eax, STATESTS_INT_MASK
 	mov	edx, ICH6_REG_STATESTS
-	call	azx_writew
+	call	azx_writeb
 
 	; reset controller
 	mov	edx, ICH6_REG_GCTL
@@ -1514,12 +1446,6 @@ endp
 
 proc azx_alloc_cmd_io
 	push	eax ecx edx
-	; the unsolicited-event ring lives in reserved storage, so its
-	; pointers hold garbage until we clear them here - do it before
-	; reset_controller enables unsolicited responses in GCTL
-	mov	[unsol_events.rp], 0
-	mov	[unsol_events.wp], 0
-
 	; single page (at least 4096 bytes) must suffice for both ringbuffers
 	invoke	KernelAlloc, 4096
 	mov	[ctrl.rb], eax
@@ -1720,24 +1646,14 @@ endl
 	mov	ecx, 1000;+1000
 .next_try:
 	mov	al, [ctrl.polling_mode]
-	or	al, [ctrl.no_irq]
+	test	al, al
 	jnz	.poll
 	mov	ah, [do_poll]
 	test	ah, ah
 	jz	@f
 .poll:
 	spin_lock_irq
-	; take the lock hda_irq holds so two RIRB readers never overlap
-	push	eax ebx
-	mov	eax, aspinlock
-.poll_lock:
-	mov	ebx, SPINLOCK_BUSY
-	lock xchg [eax], ebx
-	cmp	ebx, SPINLOCK_FREE
-	jnz	.poll_lock
-	pop	ebx eax
 	call	azx_update_rirb
-	mov	[aspinlock], SPINLOCK_FREE
 	spin_unlock_irq
 @@:
 	mov	eax, [ctrl.rirb_cmd]
@@ -2018,7 +1934,6 @@ proc azx_int_disable
 	mov	ebx, ICH6_INT_CTRL_EN or ICH6_INT_GLOBAL_EN
 	xor	ebx, -1
 	and	eax, ebx
-	mov	edx, ICH6_REG_INTCTL	; azx_readl turned edx into the absolute address
 	call	azx_writel
 	pop	edx ebx eax
 	ret
@@ -2034,9 +1949,9 @@ proc azx_int_clear
 	call	azx_writeb
 
 	; clear STATESTS
-	mov	ax, STATESTS_INT_MASK
+	mov	al, STATESTS_INT_MASK
 	mov	edx, ICH6_REG_STATESTS
-	call	azx_writew
+	call	azx_writeb
 
 	; clear rirb status
 	mov	al, RIRB_INT_MASK
@@ -2720,7 +2635,7 @@ proc  snd_hda_automute stdcall, data:dword
 	test	eax, eax
 	jz	.out
 
-	stdcall snd_hda_read_pin_sense, edx, [data]
+	stdcall snd_hda_read_pin_sense, edx, 1
 	test	eax, AC_PINSENSE_PRESENCE
 	jnz	@f
 	xchg	ecx, esi
@@ -2749,65 +2664,24 @@ proc  snd_hda_automute stdcall, data:dword
 endp
 
 
-; ;Asper remember to add this functions:
-; proc  snd_hda_queue_unsol_event stdcall, par1:dword, par2:dword
-; ;if DEBUG
-; ;        push    esi
-; ;        mov     esi, msgUnsolEvent
-; ;        invoke  SysMsgBoardStr
-; ;        pop     esi
-; ;end if
-; if USE_UNSOL_EV = 1
-; 	;Test. Do not make queue, process immediately!
-; 	;stdcall here snd_hda_read_pin_sense stdcall, nid:dword, trigger_sense:dword
-; 	;and then mute/unmute pin based on the results
-; 	invoke	TimerHS, 1, 0, snd_hda_automute, 0
-; end if
-; 	ret
-; endp
-; ;...
-
-align 4
-proc snd_hda_queue_unsol_event stdcall, res:dword, res_ex:dword
-    ; Single-producer (HDA IRQ) lock-free enqueue. The caller azx_update_rirb
-    ; only carries EBX across iterations and reloads the rest, and TimerHS
-    ; preserves EBX too - so by using scratch regs only we need no saves.
-    mov     eax, [unsol_events.wp]
-    and     eax, HDA_UNSOL_QUEUE_SIZE - 1     ; never index the ring wild
-    lea     edx, [eax+1]
-    and     edx, HDA_UNSOL_QUEUE_SIZE - 1     ; next write pos (size must be 2^n)
-    cmp     edx, [unsol_events.rp]
-    je      .full                             ; ring full -> drop, keep 1 slot free
-
-    mov     ecx, [res]
-    mov     [unsol_events.queue + eax*8], ecx
-    mov     ecx, [res_ex]
-    mov     [unsol_events.queue + eax*8 + 4], ecx
-    mov     [unsol_events.wp], edx            ; publish only after data is stored
-
-    invoke  TimerHS, 1, 0, process_unsol_events, 0
-.full:
-    ret
+;Asper remember to add this functions:
+proc  snd_hda_queue_unsol_event stdcall, par1:dword, par2:dword
+;if DEBUG
+;        push    esi
+;        mov     esi, msgUnsolEvent
+;        invoke  SysMsgBoardStr
+;        pop     esi
+;end if
+if USE_UNSOL_EV = 1
+	;Test. Do not make queue, process immediately!
+	;stdcall here snd_hda_read_pin_sense stdcall, nid:dword, trigger_sense:dword
+	;and then mute/unmute pin based on the results
+	invoke	TimerHS, 1, 0, snd_hda_automute, 0
+end if
+	ret
 endp
+;...
 
-align 4
-proc process_unsol_events stdcall, data:dword
-    ; Runs from TimerHS (single consumer). Uses only EAX (scratch) and calls
-    ; snd_hda_automute, which preserves every register, so nothing is saved.
-.loop:
-    mov     eax, [unsol_events.rp]
-    cmp     eax, [unsol_events.wp]
-    je      .done
-    ; The event payload is at [unsol_events.queue + eax*8] (res) and +4 (res_ex).
-    ; Per-pin tag parsing is not implemented yet, so just re-evaluate jack state.
-    inc     eax
-    and     eax, HDA_UNSOL_QUEUE_SIZE - 1
-    mov     [unsol_events.rp], eax
-    stdcall snd_hda_automute, 0
-    jmp     .loop
-.done:
-    ret
-endp
 
 align 4
 proc  fdword2str stdcall, flags:dword	; bit 0 - skipLeadZeroes; bit 1 - newLine; other bits undefined
@@ -3076,7 +2950,6 @@ sz_sound_srv	     db 'SOUND',0
 
 msgInit      db 'detect hardware...',13,10,0
 msgFail      db 'device not found',13,10,0
-msgNoIrqThread db 'no IRQ line: cannot create polling thread',13,10,0
 msgAttchIRQ  db 'IRQ line not supported', 13,10,0
 msgInvIRQ    db 'IRQ line not assigned or invalid', 13,10,0
 msgPlay      db 'start play', 13,10,0
@@ -3146,7 +3019,6 @@ if DEBUG
     msgTCSEL		     db 'PCI TCSEL     ',0
     msgTV		     db 'HDA test version ',TEST_VERSION_NUMBER,13,10,0
     msgGCap		     db 'GCAP = ',0
-    msgNoIrqPoll	     db 'no IRQ line: polling thread',13,10,0
 end if
 
 if USE_SINGLE_MODE
@@ -3181,16 +3053,10 @@ end if
 
 ;] Asper
 
-; relocation table lives after all code and initialized data: placed before the
-; code its size feeds back into every relocation site and fasm may never converge
-data fixups
-end data
-
 aspinlock	 dd SPINLOCK_FREE
 
 codec CODEC
 ctrl AC_CNTRL
-unsol_events HDA_BUS_UNSOLICITED
 
 ;Asper: BDL must be aligned to 128 according to HDA specification.
 pcmout_bdl	 rd 1

drivers/ethernet/i8255x.asm

@@ -130,8 +130,6 @@ RU_STATUS_IDLE          = 0000b shl 2
 RU_STATUS_SUSPENDED     = 0001b shl 2
 RU_STATUS_NO_RESOURCES  = 0010b shl 2
 RU_STATUS_READY         = 0100b shl 2
-SCB_STATUS_CUS          = 11000000b     ; CU Status
-CU_STATUS_ACTIVE        = 10b shl 6
 SCB_STATUS_FCP          = 1 shl 8       ; Flow Control Pause
 SCB_STATUS_SWI          = 1 shl 10      ; Software Interrupt
 SCB_STATUS_MDI          = 1 shl 11      ; MDI read/write complete
@@ -185,8 +183,6 @@ struct  txfd
 
 ends
 
-TXFD_STATUS_C           = 1 shl 15
-
 TXFD_CMD_IA             = 1 shl 0
 TXFD_CMD_CFG            = 1 shl 1
 TXFD_CMD_TX             = 1 shl 2
@@ -632,9 +628,6 @@ reset:
         mov     ax, CU_START or INT_MASK
         out     dx, ax
         call    cmd_wait
-; cmd_wait only means the SCB accepted the command. The Configure below
-; reuses confcmd, so a slow chip would read it instead of our MAC.
-        call    confcmd_wait
 
 ;-------------
 ; Configure CU
@@ -659,7 +652,6 @@ reset:
         mov     ax, CU_START                            ; expect Interrupts from now on
         out     dx, ax
         call    cmd_wait
-        call    confcmd_wait
 
 ; Start media check timer
         mov     [ebx + device.state], ETH_LINK_DOWN
@@ -686,11 +678,6 @@ init_rx_ring:
 ;---------------------
 ; build rxfd structure
 
-        cmp     [ebx + device.rx_desc], 0       ; the RFD of an earlier reset
-        je      @f
-        invoke  NetFree, [ebx + device.rx_desc]
-        mov     [ebx + device.rx_desc], 0
-  @@:
         invoke  NetAlloc, 2000
         test    eax, eax
         jz      .out_of_mem
@@ -702,7 +689,6 @@ init_rx_ring:
         mov     [esi + sizeof.NET_BUFF + rxfd.command], RXFD_CMD_EL or RXFD_CMD_SUSPEND
         mov     [esi + sizeof.NET_BUFF + rxfd.link], eax
         mov     [esi + sizeof.NET_BUFF + rxfd.count], 0
-        mov     [esi + sizeof.NET_BUFF + rxfd.rx_buf_addr], 0xffffffff  ; simplified mode, no RBD
         mov     [esi + sizeof.NET_BUFF + rxfd.size], 1528
 
         ret
@@ -723,15 +709,6 @@ init_tx_ring:
         invoke  GetPhysAddr
         mov     ecx, TX_RING_SIZE
   .next_desc:
-; after a reset with frames still unreclaimed: free them, or transmit sees the
-; descriptor busy (virt_addr) and reports TX overrun forever
-        cmp     [esi + txfd.virt_addr], 0
-        je      @f
-        push    eax ecx
-        invoke  NetFree, [esi + txfd.virt_addr]
-        pop     ecx eax
-        mov     [esi + txfd.virt_addr], 0
-  @@:
         mov     [esi + txfd.status], 0
         mov     [esi + txfd.command], 0
         lea     edx, [eax + txfd.buf_addr]
@@ -786,7 +763,7 @@ proc transmit stdcall bufferptr
         lea     edi, [ebx + device.tx_ring + eax]
 
         ; Check if current descriptor is free or still in use
-        cmp     [edi + txfd.virt_addr], 0               ; buffer not reclaimed yet
+        cmp     [edi + txfd.status], 0
         jne     .overrun
 
         ; Fill in status and command values
@@ -809,22 +786,6 @@ proc transmit stdcall bufferptr
         mov     eax, edi
         invoke  GetPhysAddr
         set_io  [ebx + device.io_addr], 0
-
-        ; CU_START is only valid while the CU is idle or suspended:
-        ; wait for the previous frame to leave (1.2 ms at 10 Mbit)
-        push    eax ecx
-        set_io  [ebx + device.io_addr], REG_SCB_STATUS
-        mov     ecx, 100000
-  .cu_busy:
-        in      al, dx
-        and     al, SCB_STATUS_CUS
-        cmp     al, CU_STATUS_ACTIVE
-        jne     .cu_free
-        dec     ecx
-        jnz     .cu_busy
-        DEBUGF  2, "CU still active, starting anyway\n"
-  .cu_free:
-        pop     ecx eax
         set_io  [ebx + device.io_addr], REG_SCB_PTR
         out     dx, eax
 
@@ -893,7 +854,7 @@ int_handler:
 
         DEBUGF  1,"Status: %x\n", ax
 
-        test    ax, SCB_STATUS_FR or SCB_STATUS_RNR     ; frame received or receiver stopped?
+        test    ax, SCB_STATUS_FR               ; did we receive a frame?
         jz      .no_rx
 
         push    ax
@@ -940,7 +901,6 @@ int_handler:
         mov     [esi + sizeof.NET_BUFF + rxfd.command], RXFD_CMD_EL or RXFD_CMD_SUSPEND
         mov     [esi + sizeof.NET_BUFF + rxfd.link], eax
         mov     [esi + sizeof.NET_BUFF + rxfd.count], 0
-        mov     [esi + sizeof.NET_BUFF + rxfd.rx_buf_addr], 0xffffffff  ; simplified mode, no RBD
         mov     [esi + sizeof.NET_BUFF + rxfd.size], 1528
 
 ; restart RX
@@ -956,22 +916,11 @@ int_handler:
         mov     ax, RX_START
         out     dx, ax
         call    cmd_wait
+  .out_of_mem:
 
 ; Hand the frame over to the kernel
         jmp     [EthInput]
 
-  .out_of_mem:
-; The buffer is still our only RFD: drop the frame and reuse it
-        mov     esi, [esp]                      ; the buffer
-        mov     ecx, [esi + NET_BUFF.length]
-        dec     [ebx + device.packets_rx]       ; counted above, before the allocation
-        sub     dword [ebx + device.bytes_rx], ecx
-        sbb     dword [ebx + device.bytes_rx + 4], 0
-        inc     [ebx + device.packets_rx_drop]
-        add     esp, 12                         ; buffer, .rx_loop, ebx
-        mov     esi, [ebx + device.rx_desc]
-        jmp     .not_ok
-
   .not_ok:
 ; Reset the FD
         mov     [esi + sizeof.NET_BUFF + rxfd.status], 0
@@ -996,27 +945,6 @@ int_handler:
 
   .no_rx_:
         DEBUGF  1, "no more data\n"
-
-; With a single RFD the receiver sits in No Resources/Suspended whenever a
-; frame arrived before we re-armed it. Nothing restarts it but us.
-        set_io  [ebx + device.io_addr], 0
-        set_io  [ebx + device.io_addr], REG_SCB_STATUS
-        in      al, dx
-        and     al, SCB_STATUS_RUS
-        cmp     al, RU_STATUS_READY
-        je      .ru_ready
-        test    byte[esp], 1                    ; bit 0 of the saved status is reserved,
-        jnz     .ru_ready                       ; we mark it: one restart per IRQ
-        or      byte[esp], 1
-        movzx   eax, al
-        DEBUGF  1, "Restarting receiver, RU status %x\n", eax:2
-        mov     esi, [ebx + device.rx_desc]
-        push    ebx
-        test    [esi + sizeof.NET_BUFF + rxfd.status], RXFD_STATUS_C
-        jnz     .rx_loop                        ; a frame completed meanwhile
-        add     esp, 4
-        jmp     .not_ok                         ; re-arm the empty RFD
-  .ru_ready:
         pop     ax
 
   .no_rx:
@@ -1027,13 +955,13 @@ int_handler:
 
         push    eax
   .loop_tx:
-        mov     eax, [ebx + device.last_tx]
-        mov     edx, sizeof.txfd
-        mul     edx
+        mov     edi, [ebx + device.last_tx]
+        mov     eax, sizeof.txfd
+        mul     eax
         lea     edi, [ebx + device.tx_ring + eax]
 
-        test    [edi + txfd.status], TXFD_STATUS_C      ; sent by the device?
-        jz      .tx_done
+        cmp     [edi + txfd.status], 0
+        je      .tx_done
 
         cmp     [edi + txfd.virt_addr], 0
         je      .tx_done
@@ -1042,7 +970,6 @@ int_handler:
 
         push    [edi + txfd.virt_addr]
         mov     [edi + txfd.virt_addr], 0
-        mov     [edi + txfd.status], 0                  ; free for transmit again
         invoke  NetFree
 
         inc     [ebx + device.last_tx]
@@ -1053,6 +980,12 @@ int_handler:
         pop     eax
   .no_tx:
 
+        test    ax, RU_STATUS_NO_RESOURCES
+        jz      .not_out_of_resources
+
+        DEBUGF  2, "Out of resources!\n"
+
+  .not_out_of_resources:
         pop     edi esi ebx
         xor     eax, eax
         inc     eax
@@ -1146,25 +1079,6 @@ proc check_media_mii stdcall dev:dword
 endp
 
 
-; Wait (up to 1 s) until the device has executed the command in confcmd.
-align 4
-confcmd_wait:
-        mov     ecx, 1000                       ; udelay = Sleep(1), 1 ms
-  .loop:
-        test    [ebx + device.confcmd.status], TXFD_STATUS_C
-        jnz     .done
-        call    udelay
-        dec     ecx
-        jnz     .loop
-        movzx   eax, [ebx + device.confcmd.command]
-        DEBUGF  2, "Command 0x%x not completed\n", eax:4
-        ret
-  .done:
-        movzx   eax, [ebx + device.confcmd.command]
-        movzx   ecx, [ebx + device.confcmd.status]
-        DEBUGF  1, "Command 0x%x done, status 0x%x\n", eax:4, ecx:4
-        ret
-
 align 4
 cmd_wait:
 

drivers/i2chid/Tupfile.lua

@@ -1,3 +0,0 @@
-if tup.getconfig("NO_FASM") ~= "" then return end
-ROOT = "../.."
-tup.rule("i2chid.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.sys")

drivers/i2chid/dwi2c.inc

@@ -1,438 +0,0 @@
-; Synopsys DesignWare I2C master, polled (PIO) mode only.
-; This is the controller inside Intel LPSS blocks (Skylake and newer, plus
-; Atom-derived SoCs); the same IP is used by many other vendors.
-;
-; The register file is always accessed as dwords. The controller must be
-; disabled to change IC_TAR, so every transfer disables it, programs the
-; target address, enables it back and feeds the TX FIFO by hand.
-
-; ------------------------------ Registers ------------------------------------
-DwIcCon             = 0x00
-DwIcTar             = 0x04
-DwIcDataCmd         = 0x10
-DwIcSsSclHcnt       = 0x14
-DwIcSsSclLcnt       = 0x18
-DwIcFsSclHcnt       = 0x1C
-DwIcFsSclLcnt       = 0x20
-DwIcIntrStat        = 0x2C
-DwIcIntrMask        = 0x30
-DwIcRawIntrStat     = 0x34
-DwIcRxTl            = 0x38
-DwIcTxTl            = 0x3C
-DwIcClrIntr         = 0x40
-DwIcClrTxAbrt       = 0x54
-DwIcEnable          = 0x6C
-DwIcStatus          = 0x70
-DwIcTxflr           = 0x74
-DwIcRxflr           = 0x78
-DwIcSdaHold         = 0x7C
-DwIcTxAbrtSource    = 0x80
-DwIcEnableStatus    = 0x9C
-DwIcCompParam1      = 0xF4
-DwIcCompVersion     = 0xF8
-DwIcCompType        = 0xFC
-
-; "DW_apb_i2c" component signature ('DW' + 0x0140).
-DW_COMP_TYPE_VALUE  = 0x44570140
-
-; IC_CON: master, standard speed (100 kHz), restarts allowed, slave disabled.
-DW_CON_MASTER       = 1 shl 0
-DW_CON_SPEED_STD    = 1 shl 1
-DW_CON_SPEED_FAST   = 2 shl 1
-DW_CON_RESTART_EN   = 1 shl 5
-DW_CON_SLAVE_DIS    = 1 shl 6
-
-; IC_DATA_CMD bits above the data byte.
-DW_CMD_READ         = 1 shl 8
-DW_CMD_STOP         = 1 shl 9
-DW_CMD_RESTART      = 1 shl 10
-
-; IC_STATUS bits
-DW_STAT_TFNF        = 1 shl 1   ; TX FIFO not full
-DW_STAT_TFE         = 1 shl 2   ; TX FIFO empty
-DW_STAT_RFNE        = 1 shl 3   ; RX FIFO not empty
-DW_STAT_MST_ACT     = 1 shl 5   ; master FSM busy
-
-; IC_RAW_INTR_STAT bits
-DW_INT_TX_ABRT      = 1 shl 6
-
-; SCL timing for standard mode. The LPSS input clock is 100 MHz on the PCH
-; parts and 133 MHz on the Atom-derived SoCs (Apollo Lake, Gemini Lake), and
-; nothing in PCI config space says which one this is, so the counts are
-; picked to satisfy the fast-mode minimums at the fastest of them: at
-; 133 MHz that is tHIGH = 0.98 us and tLOW = 1.5 us, 400 kHz. On a 100 MHz
-; part the same counts run the bus at 300 kHz, which is just as legal.
-; Fast mode rather than standard: HID over I2C requires every device to
-; support it, that is what Windows drives them at, and a polled host pays
-; for every byte with busy-waiting - at 100 kHz a 64-byte input read costs
-; 6 ms, more than a fast pad takes to produce the next report, and the
-; backlog that builds up plays back as the cursor coasting after the finger
-; has stopped. SDA hold stays well below tLOW.
-DW_FS_HCNT          = 130
-DW_FS_LCNT          = 200
-DW_SDA_HOLD         = 28
-; The AMD FCH feeds its DesignWare masters from a 150 MHz reference, so
-; the same minimums need more counts there: 145/225 give tHIGH = 0.97 us,
-; tLOW = 1.5 us, again 400 kHz; SDA hold 45 = 300 ns.
-DW_AMD_FS_HCNT      = 145
-DW_AMD_FS_LCNT      = 225
-DW_AMD_SDA_HOLD     = 45
-
-; A transfer gives up after [XferTimeout] hundredths of a second. The init
-; value must cover a full report descriptor read: descriptors run up to 2 KB
-; and the bus may be as slow as 77 kHz, so at 9 SCL cycles per byte a single
-; transfer takes ~240 ms of wall-clock time. Polling is generous too now that it runs in its own thread
-; rather than in a timer callback - a wedged bus costs this thread its slice
-; and nothing else.
-DW_TIMEOUT_INIT     = 60
-DW_TIMEOUT_POLL     = 20
-
-; Disables the controller and waits until it reports itself disabled.
-; in: ebx = MMIO base. Clobbers eax, ecx.
-proc dw_ctrl_disable
-        mov     dword [ebx+DwIcEnable], 0
-        mov     ecx, 100000
-@@:
-        test    dword [ebx+DwIcEnableStatus], 1
-        jz      .done
-        pause
-        loop    @b
-.done:
-        ret
-endp
-
-; Aborts a stuck transfer cleanly: the ABORT bit makes the master issue STOP,
-; flush the TX FIFO and raise TX_ABRT, which releases a slave that is holding
-; the bus (a clock-stretching touchpad, for instance). Simply disabling the
-; controller in the middle of a byte would leave SDA held low and every
-; following transfer would time out too. Older cores without the ABORT bit
-; just ignore the write and fall through after the wait.
-; in: ebx = MMIO base. Clobbers eax, ecx.
-proc dw_ctrl_abort
-        mov     dword [ebx+DwIcEnable], 3
-        mov     ecx, 100000
-@@:
-        test    dword [ebx+DwIcRawIntrStat], DW_INT_TX_ABRT
-        jnz     @f
-        pause
-        loop    @b
-@@:
-        mov     eax, [ebx+DwIcClrTxAbrt]
-        call    dw_ctrl_disable
-        ret
-endp
-
-; One idle step of a transfer wait loop.
-; A healthy transfer is over within a few milliseconds, well inside the
-; first two timer ticks, and spins through them: a transfer that yields
-; its slice is at the scheduler's mercy for the rest of it. Past that the
-; bus is stuck or crawling, and the wait gives up the CPU a tick at a time
-; instead of burning a core until XferTimeout.
-; in: eax = ticks elapsed since the transfer began. Preserves all but eax.
-DW_SPIN_TICKS       = 2
-
-proc dw_wait_step
-        cmp     eax, DW_SPIN_TICKS
-        jae     .yield
-        pause
-        ret
-.yield:
-        push    ebx
-        movi    ebx, 1
-        invoke  Delay                   ; preserves every register
-        pop     ebx
-        ret
-endp
-
-; One-time controller setup after mapping.
-; in: ebx = MMIO base.
-proc dw_ctrl_init
-        push    eax ecx
-        call    dw_ctrl_disable
-        mov     dword [ebx+DwIcCon], DW_CON_MASTER + DW_CON_SPEED_FAST + \
-                DW_CON_RESTART_EN + DW_CON_SLAVE_DIS
-; The counts come from variables: they depend on the reference clock, which
-; is decided by whoever found the controller (PCI LPSS or AMD FCH). The
-; standard-mode registers get the same values scaled up so that they are
-; sane should anything ever switch the speed bits back.
-        mov     eax, [DwHcnt]
-        mov     [ebx+DwIcFsSclHcnt], eax
-        lea     eax, [eax*4]
-        mov     [ebx+DwIcSsSclHcnt], eax
-        mov     eax, [DwLcnt]
-        mov     [ebx+DwIcFsSclLcnt], eax
-        lea     eax, [eax*4]
-        mov     [ebx+DwIcSsSclLcnt], eax
-        mov     eax, [DwSdaHold]
-        mov     [ebx+DwIcSdaHold], eax
-        mov     dword [ebx+DwIcIntrMask], 0
-        mov     dword [ebx+DwIcRxTl], 0
-        mov     dword [ebx+DwIcTxTl], 0
-        mov     eax, [ebx+DwIcClrIntr]
-        pop     ecx eax
-        ret
-endp
-
-; One combined I2C transaction: optional write phase, then optional read phase
-; with a repeated START between them. Fully polled.
-; out: eax = 0 on success, IC_TX_ABRT_SOURCE value on NAK/abort, -1 on timeout.
-proc dw_xfer stdcall uses ebx esi edi, addr:dword, wbuf:dword, wlen:dword, \
-        rbuf:dword, rlen:dword
-locals
-        wsent   dd ?
-        rqueued dd ?
-        rgot    dd ?
-        t0      dd ?
-endl
-        mov     ebx, [I2cMmio]
-        call    dw_ctrl_disable
-        mov     eax, [addr]
-        mov     [ebx+DwIcTar], eax
-        mov     eax, [ebx+DwIcClrIntr]
-        mov     dword [ebx+DwIcEnable], 1
-        xor     eax, eax
-        mov     [wsent], eax
-        mov     [rqueued], eax
-        mov     [rgot], eax
-        invoke  GetTimerTicks
-        mov     [t0], eax
-.loop:
-; Abort (NAK and friends) ends the transfer immediately.
-        test    dword [ebx+DwIcRawIntrStat], DW_INT_TX_ABRT
-        jnz     .abort
-; Drain the RX FIFO first so it can never overflow.
-        test    dword [ebx+DwIcStatus], DW_STAT_RFNE
-        jz      .no_rx
-        mov     edx, [rgot]
-        cmp     edx, [rlen]
-        jae     .no_rx
-        mov     eax, [ebx+DwIcDataCmd]
-        mov     edi, [rbuf]
-        mov     [edi+edx], al
-        inc     edx
-        mov     [rgot], edx
-        jmp     .loop
-.no_rx:
-; Feed the write phase.
-        mov     eax, [wsent]
-        cmp     eax, [wlen]
-        jae     .push_reads
-        test    dword [ebx+DwIcStatus], DW_STAT_TFNF
-        jz      .check_done
-        mov     esi, [wbuf]
-        movzx   edx, byte [esi+eax]
-        inc     eax
-        cmp     eax, [wlen]
-        jne     @f
-        cmp     [rlen], 0
-        jne     @f
-        or      edx, DW_CMD_STOP        ; last byte of a write-only transfer
-@@:
-        mov     [ebx+DwIcDataCmd], edx
-        mov     [wsent], eax
-        jmp     .loop
-.push_reads:
-; Feed read commands, at most 8 outstanding so the RX FIFO keeps up.
-        mov     eax, [rqueued]
-        cmp     eax, [rlen]
-        jae     .check_done
-        mov     edx, eax
-        sub     edx, [rgot]
-        cmp     edx, 8
-        jae     .check_done
-        test    dword [ebx+DwIcStatus], DW_STAT_TFNF
-        jz      .check_done
-        mov     edx, DW_CMD_READ
-        test    eax, eax
-        jnz     @f
-        cmp     [wlen], 0
-        je      @f
-        or      edx, DW_CMD_RESTART     ; repeated START after the write phase
-@@:
-        mov     ecx, [rlen]
-        dec     ecx
-        cmp     eax, ecx
-        jne     @f
-        or      edx, DW_CMD_STOP
-@@:
-        mov     [ebx+DwIcDataCmd], edx
-        inc     eax
-        mov     [rqueued], eax
-        jmp     .loop
-.check_done:
-        mov     eax, [rgot]
-        cmp     eax, [rlen]
-        jne     .not_done
-        mov     eax, [wsent]
-        cmp     eax, [wlen]
-        jne     .not_done
-        mov     eax, [ebx+DwIcStatus]
-        test    eax, DW_STAT_TFE
-        jz      .not_done
-        test    eax, DW_STAT_MST_ACT
-        jnz     .not_done
-        call    dw_ctrl_disable
-        xor     eax, eax
-        ret
-.not_done:
-        invoke  GetTimerTicks
-        sub     eax, [t0]
-        cmp     eax, [XferTimeout]
-        jae     .timeout
-        call    dw_wait_step
-        jmp     .loop
-.abort:
-        mov     esi, [ebx+DwIcTxAbrtSource]
-        mov     eax, [ebx+DwIcClrTxAbrt]
-        call    dw_ctrl_disable
-        mov     eax, esi
-        test    eax, eax
-        jnz     @f
-        or      eax, 0x80000000
-@@:
-        ret
-.timeout:
-        call    dw_ctrl_abort
-        or      eax, -1
-        ret
-endp
-
-; Reads one HID input report as a single continuous bus transaction, the way
-; interrupt-driven hosts (Windows, Linux) do it: the optional register-address
-; write and every read command are queued into the TX FIFO before the bytes
-; start flowing, so nothing on the wire depends on how fast the host loop
-; runs. The previous adaptive read (fetch 2 length bytes, decide, fetch the
-; rest, stop short) was cut down on the wire to 3 bytes for an empty poll -
-; and the SIPODEV/Hantick touchpad firmwares are exactly the kind of thing
-; that wedges when an input read is shorter than the frame they prepared.
-; rlen should not exceed the TX FIFO depth (IC_COMP_PARAM_1 bits 23:16, plus
-; one) or the queue loop degrades to feeding the FIFO on the fly, which
-; reintroduces pauses.
-; in: addr = slave, wlen bytes at wbuf written first (0 = plain read),
-;     rlen bytes read into buf.
-; out: eax = 0 ok, IC_TX_ABRT_SOURCE on NAK/abort, -1 on timeout.
-; Timeout check for the dw_read_block wait spots; expands inside the proc so
-; [t0] and [XferTimeout] resolve in the caller's own frame.
-macro BLOCK_TICK fail_label {
-        invoke  GetTimerTicks
-        sub     eax, [t0]
-        cmp     eax, [XferTimeout]
-        jae     fail_label
-        call    dw_wait_step
-}
-
-proc dw_read_block stdcall uses ebx esi edi, addr:dword, wbuf:dword, wlen:dword,         buf:dword, rlen:dword
-locals
-        rgot    dd ?
-        t0      dd ?
-endl
-        mov     ebx, [I2cMmio]
-        call    dw_ctrl_disable
-        mov     eax, [addr]
-        mov     [ebx+DwIcTar], eax
-        mov     eax, [ebx+DwIcClrIntr]
-        mov     dword [ebx+DwIcEnable], 1
-        invoke  GetTimerTicks
-        mov     [t0], eax
-        mov     [rgot], 0
-; Write phase: the register address bytes, no STOP - the read continues the
-; same transaction after a repeated START.
-        xor     ecx, ecx
-.wr:
-        cmp     ecx, [wlen]
-        jae     .queue_reads
-        test    dword [ebx+DwIcRawIntrStat], DW_INT_TX_ABRT
-        jnz     .abort
-        test    dword [ebx+DwIcStatus], DW_STAT_TFNF
-        jz      .wr_wait
-        mov     esi, [wbuf]
-        movzx   edx, byte [esi+ecx]
-        mov     [ebx+DwIcDataCmd], edx
-        inc     ecx
-        jmp     .wr
-.wr_wait:
-        BLOCK_TICK .timeout
-        jmp     .wr
-.queue_reads:
-        xor     ecx, ecx
-.rq:
-        cmp     ecx, [rlen]
-        jae     .drain
-        test    dword [ebx+DwIcRawIntrStat], DW_INT_TX_ABRT
-        jnz     .abort
-        test    dword [ebx+DwIcStatus], DW_STAT_TFNF
-        jz      .rq_wait
-        mov     edx, DW_CMD_READ
-        test    ecx, ecx
-        jnz     .not_first
-        cmp     [wlen], 0
-        je      .not_first
-        or      edx, DW_CMD_RESTART
-.not_first:
-        mov     eax, [rlen]
-        dec     eax
-        cmp     ecx, eax
-        jne     @f
-        or      edx, DW_CMD_STOP
-@@:
-        mov     [ebx+DwIcDataCmd], edx
-        inc     ecx
-; Drain opportunistically so a FIFO shallower than rlen cannot deadlock the
-; queue loop (the RX side fills while the TX side is full).
-        test    dword [ebx+DwIcStatus], DW_STAT_RFNE
-        jz      .rq
-        call    .take_byte
-        jmp     .rq
-.rq_wait:
-        BLOCK_TICK .timeout
-        jmp     .rq
-.drain:
-        test    dword [ebx+DwIcRawIntrStat], DW_INT_TX_ABRT
-        jnz     .abort
-        test    dword [ebx+DwIcStatus], DW_STAT_RFNE
-        jz      .chk
-        call    .take_byte
-        jmp     .drain
-; Moves one byte from the RX FIFO into the caller's buffer. Exactly rlen
-; reads are queued into freshly flushed FIFOs, so a byte beyond rlen should
-; never arrive; if one does anyway it is still taken off the FIFO, so the
-; drain loop cannot stall on it, but it is dropped rather than written
-; past the end of the buffer.
-.take_byte:
-        mov     edx, [rgot]
-        mov     eax, [ebx+DwIcDataCmd]
-        cmp     edx, [rlen]
-        jae     @f
-        mov     edi, [buf]
-        mov     [edi+edx], al
-        inc     edx
-        mov     [rgot], edx
-@@:
-        retn
-.chk:
-        mov     eax, [rgot]
-        cmp     eax, [rlen]
-        jne     .wait
-        test    dword [ebx+DwIcStatus], DW_STAT_MST_ACT
-        jnz     .wait
-        call    dw_ctrl_disable
-        xor     eax, eax
-        ret
-.wait:
-        BLOCK_TICK .timeout
-        jmp     .drain
-.abort:
-        mov     esi, [ebx+DwIcTxAbrtSource]
-        mov     eax, [ebx+DwIcClrTxAbrt]
-        call    dw_ctrl_disable
-        mov     eax, esi
-        test    eax, eax
-        jnz     @f
-        or      eax, 0x80000000
-@@:
-        ret
-.timeout:
-        call    dw_ctrl_abort
-        or      eax, -1
-        ret
-endp

drivers/i2chid/hidmin.inc

@@ -1,646 +0,0 @@
-; Minimal HID report descriptor parser.
-;
-; The goal is not a full HID implementation: the parser walks the descriptor
-; once and remembers the bit layout of the first input report that contains
-; relative X and relative Y (Generic Desktop / X, Y) - i.e. the mouse
-; compatibility collection that every I2C mouse and every Windows Precision
-; Touchpad exposes. Buttons (Usage Page 9) and a relative wheel found in the
-; same report are picked up too. Absolute (digitizer) reports are advanced
-; over but otherwise ignored.
-;
-; Report IDs are honoured: bit positions are counted separately per report ID
-; and the chosen ID is checked in every incoming packet.
-;
-; Alongside the mouse report, the parser also maps the touchpad (Windows
-; Precision Touchpad) report: the report that carries Tip Switch usages.
-; Each Tip Switch opens a new finger block; the absolute X and Y that follow
-; it belong to that finger; Contact Count and the Button-page fields of the
-; same report are recorded too. Once the pad is switched into touchpad mode
-; those offsets are what the frame decoder reads - every vendor lays the
-; frame out differently, and only the descriptor knows how.
-HID_MAX_FINGERS = 5
-
-HID_MAX_USAGES  = 16
-HID_MAX_REPIDS  = 16
-
-; Returns the pointer to the input bit counter of the current report ID,
-; allocating a new slot on first use.
-; out: ebx -> dword bit counter. Clobbers eax, ecx.
-proc hid_get_bits_slot
-        mov     eax, [p_report_id]
-        xor     ecx, ecx
-.scan:
-        cmp     ecx, [p_idcnt]
-        jae     .add
-        cmp     eax, [p_ids+ecx*4]
-        jz      .found
-        inc     ecx
-        jmp     .scan
-.add:
-        cmp     ecx, HID_MAX_REPIDS
-        jb      @f
-        dec     ecx                     ; table full: reuse the last slot
-        jmp     .found
-@@:
-        mov     [p_ids+ecx*4], eax
-        mov     dword [p_bits+ecx*4], 0
-        mov     dword [p_fbits+ecx*4], 0
-        inc     [p_idcnt]
-.found:
-        lea     ebx, [p_bits+ecx*4]
-        ret
-endp
-
-; Handles one Input main item. v_flags = item data (bit 2 = relative).
-proc hid_process_input
-        push    eax ebx ecx edx
-        call    hid_get_bits_slot
-        mov     eax, [ebx]
-        mov     [v_base], eax
-; Advance the counter over this field right away.
-        mov     eax, [p_report_size]
-        imul    eax, [p_report_count]
-        add     [ebx], eax
-; Remember the largest logical maximum ever attached to Generic Desktop X
-; and Y. The mouse collection declares a tiny relative range there while
-; the touchpad collection declares the real surface extents, so the
-; maximum over the whole descriptor is the size of the pad - which is what
-; the button zones are measured against, and it differs per model.
-        cmp     [p_usage_cnt], 0
-        je      .no_extent
-        xor     ecx, ecx
-.ext_loop:
-        cmp     ecx, [p_usage_cnt]
-        jae     .no_extent
-        mov     eax, [p_usages+ecx*4]
-        cmp     eax, 0x00010030
-        jne     .ext_y
-        mov     eax, [p_log_max]
-        cmp     eax, [t_padmaxx]
-        jbe     .ext_next
-        mov     [t_padmaxx], eax
-        jmp     .ext_next
-.ext_y:
-        cmp     eax, 0x00010031
-        jne     .ext_next
-        mov     eax, [p_log_max]
-        cmp     eax, [t_padmaxy]
-        jbe     .ext_next
-        mov     [t_padmaxy], eax
-.ext_next:
-        inc     ecx
-        jmp     .ext_loop
-.no_extent:
-; Button-style field: Usage Minimum/Maximum on the Button page.
-        cmp     [p_usage_min], -1
-        je      .not_buttons
-        cmp     [p_usage_max], -1
-        je      .not_buttons
-        cmp     [p_usage_page], 9
-        jne     .not_buttons
-        cmp     [p_report_size], 1      ; buttons are always 1-bit fields
-        jne     .done
-        mov     eax, [v_base]
-        mov     ecx, [p_report_count]
-        call    hid_note_buttons
-        jmp     .done
-.not_buttons:
-        cmp     [p_usage_cnt], 0
-        je      .done
-        call    hid_note_touchpad
-; Usage-list field: look for GD/X, GD/Y, GD/Wheel among the usages.
-        test    [v_flags], 4            ; only relative fields are interesting
-        jz      .done
-        xor     ecx, ecx
-.usage_loop:
-        cmp     ecx, [p_report_count]
-        jae     .done
-; usage index = min(field index, usage count - 1): a short usage list
-; applies its last usage to the remaining fields.
-        mov     edx, [p_usage_cnt]
-        dec     edx
-        mov     eax, ecx
-        cmp     eax, edx
-        jbe     @f
-        mov     eax, edx
-@@:
-        mov     eax, [p_usages+eax*4]
-        cmp     eax, 0x00010030
-        je      .is_x
-        cmp     eax, 0x00010031
-        je      .is_y
-        cmp     eax, 0x00010038
-        je      .is_wheel
-.next_usage:
-        inc     ecx
-        jmp     .usage_loop
-.is_x:
-        test    [t_have], 1
-        jnz     .next_usage
-        call    hid_claim_report_id
-        jc      .next_usage
-        call    hid_field_offset
-        mov     [t_xoff], eax
-        mov     eax, [p_report_size]
-        mov     [t_xsize], eax
-        or      [t_have], 1
-        jmp     .next_usage
-.is_y:
-        test    [t_have], 2
-        jnz     .next_usage
-        call    hid_claim_report_id
-        jc      .next_usage
-        call    hid_field_offset
-        mov     [t_yoff], eax
-        mov     eax, [p_report_size]
-        mov     [t_ysize], eax
-        or      [t_have], 2
-        jmp     .next_usage
-.is_wheel:
-        test    [t_have], 8
-        jnz     .next_usage
-        mov     eax, [t_id]
-        cmp     eax, -1                 ; wheel never claims a report on its own
-        je      .next_usage
-        cmp     eax, [p_report_id]
-        jne     .next_usage
-        call    hid_field_offset
-        mov     [t_woff], eax
-        mov     eax, [p_report_size]
-        mov     [t_wsize], eax
-        or      [t_have], 8
-        jmp     .next_usage
-.done:
-        pop     edx ecx ebx eax
-        ret
-endp
-
-; Records a run of 1-bit Button-page fields starting at bit eax, ecx of them.
-; The mouse decoder wants the buttons of ITS report: an item from some other
-; report is kept only until a better one turns up, and .eof drops it if it
-; still does not match. The touchpad report keeps its own copy.
-proc hid_note_buttons
-        push    eax ecx edx
-        cmp     ecx, 8
-        jbe     @f
-        mov     ecx, 8
-@@:
-        mov     edx, [p_report_id]
-        cmp     edx, [t_ptp_id]
-        jne     .mouse
-        cmp     [t_pbtn_cnt], 0
-        jne     .mouse
-        mov     [t_pbtn_off], eax
-        mov     [t_pbtn_cnt], ecx
-.mouse:
-        cmp     [t_btncnt], 0
-        je      .take
-        mov     edx, [t_btnid]
-        cmp     edx, [t_id]             ; already the chosen report's: keep
-        je      .done
-        mov     edx, [p_report_id]
-        cmp     edx, [t_btnid]          ; a second run in the same report: keep the first
-        je      .done
-.take:
-        mov     [t_btnoff], eax
-        mov     [t_btncnt], ecx
-        mov     eax, [p_report_id]
-        mov     [t_btnid], eax
-.done:
-        pop     edx ecx eax
-        ret
-endp
-
-; Walks the usages of the current input item looking for the touchpad
-; fields. Field k takes usage min(k, count-1), as in the mouse search.
-proc hid_note_touchpad
-        push    eax ebx ecx edx
-        xor     ecx, ecx
-.field:
-        cmp     ecx, [p_report_count]
-        jae     .done
-        mov     edx, [p_usage_cnt]
-        dec     edx
-        mov     eax, ecx
-        cmp     eax, edx
-        jbe     @f
-        mov     eax, edx
-@@:
-        mov     ebx, [p_usages+eax*4]   ; ebx = usage of field ecx
-        call    hid_field_offset        ; eax = its bit offset
-        cmp     ebx, 0x000D0042         ; Tip Switch: a new finger
-        je      .tip
-        cmp     ebx, 0x000D0054         ; Contact Count
-        je      .count
-        cmp     ebx, 0x000D0051         ; Contact Identifier
-        je      .cid
-        cmp     ebx, 0x00010030
-        je      .x
-        cmp     ebx, 0x00010031
-        je      .y
-        shr     ebx, 16
-        cmp     ebx, 9                  ; buttons written as a usage list
-        jne     .next
-        push    ecx
-        neg     ecx
-        add     ecx, [p_report_count]   ; the fields from here to the end
-        call    hid_note_buttons
-        pop     ecx
-        jmp     .done                   ; one run per item is enough
-.tip:
-        cmp     [t_ptp_id], -1
-        jne     @f
-        mov     edx, [p_report_id]
-        mov     [t_ptp_id], edx         ; the first report with fingers is the one
-@@:
-        call    hid_in_ptp
-        jne     .next
-        mov     edx, [t_fcount]
-        cmp     edx, HID_MAX_FINGERS
-        jae     .next
-        mov     [t_ftip+edx*4], eax
-        mov     dword [t_fxs+edx*4], 0
-        mov     dword [t_fys+edx*4], 0
-        mov     dword [t_fcids+edx*4], 0
-        inc     [t_fcount]
-        jmp     .next
-.cid:
-        call    hid_in_ptp
-        jne     .next
-        mov     edx, [t_fcount]
-        test    edx, edx
-        jz      .next
-        dec     edx
-        cmp     dword [t_fcids+edx*4], 0
-        jne     .next
-        mov     [t_fcid+edx*4], eax
-        mov     eax, [p_report_size]
-        mov     [t_fcids+edx*4], eax
-        jmp     .next
-.count:
-        call    hid_in_ptp
-        jne     .next
-        mov     [t_ccnt_off], eax
-        mov     eax, [p_report_size]
-        mov     [t_ccnt_size], eax
-        jmp     .next
-.x:
-        test    [v_flags], 4            ; absolute only; relative is the mouse
-        jnz     .next
-        call    hid_in_ptp
-        jne     .next
-        mov     edx, [t_fcount]
-        test    edx, edx
-        jz      .next
-        dec     edx
-        cmp     dword [t_fxs+edx*4], 0
-        jne     .next
-        mov     [t_fx+edx*4], eax
-        mov     eax, [p_report_size]
-        mov     [t_fxs+edx*4], eax
-        jmp     .next
-.y:
-        test    [v_flags], 4
-        jnz     .next
-        call    hid_in_ptp
-        jne     .next
-        mov     edx, [t_fcount]
-        test    edx, edx
-        jz      .next
-        dec     edx
-        cmp     dword [t_fys+edx*4], 0
-        jne     .next
-        mov     [t_fy+edx*4], eax
-        mov     eax, [p_report_size]
-        mov     [t_fys+edx*4], eax
-.next:
-        inc     ecx
-        jmp     .field
-.done:
-        pop     edx ecx ebx eax
-        ret
-endp
-
-; ZF set when the current item belongs to the touchpad report.
-proc hid_in_ptp
-        push    eax
-        mov     eax, [p_report_id]
-        cmp     eax, [t_ptp_id]
-        pop     eax
-        ret
-endp
-
-; Size in bytes of the feature report with id eax; 0 when the descriptor
-; never mentioned one.
-proc hid_feature_bytes
-        push    ecx
-        xor     ecx, ecx
-@@:
-        cmp     ecx, [p_idcnt]
-        jae     .none
-        cmp     eax, [p_ids+ecx*4]
-        je      .found
-        inc     ecx
-        jmp     @b
-.found:
-        mov     eax, [p_fbits+ecx*4]
-        add     eax, 7
-        shr     eax, 3
-        pop     ecx
-        ret
-.none:
-        xor     eax, eax
-        pop     ecx
-        ret
-endp
-
-; Locks the candidate report ID to the current one, or fails (CF=1) when a
-; different report already holds X/Y.
-proc hid_claim_report_id
-        mov     eax, [t_id]
-        cmp     eax, -1
-        jne     @f
-        mov     eax, [p_report_id]
-        mov     [t_id], eax
-        clc
-        ret
-@@:
-        cmp     eax, [p_report_id]
-        jne     .taken
-        clc
-        ret
-.taken:
-        stc
-        ret
-endp
-
-; Bit offset of field #ecx of the current item.
-; in: ecx = field index. out: eax = v_base + ecx * report_size.
-proc hid_field_offset
-        mov     eax, [p_report_size]
-        imul    eax, ecx
-        add     eax, [v_base]
-        ret
-endp
-
-; Parses the report descriptor.
-; in: esi -> descriptor, ecx = length.
-; out: eax = 1 and f_* variables filled if a usable report was found.
-proc hid_parse_report_desc uses ebx esi edi
-        lea     edi, [esi+ecx]
-        xor     eax, eax
-        mov     [p_usage_page], eax
-        mov     [p_report_size], eax
-        mov     [p_report_count], eax
-        mov     [p_report_id], eax
-        mov     [p_uses_repid], eax
-        mov     [p_usage_cnt], eax
-        mov     [p_idcnt], eax
-        mov     [p_log_max], eax
-        mov     [t_padmaxx], eax
-        mov     [t_padmaxy], eax
-        mov     [t_have], eax
-        mov     [t_btncnt], eax
-        mov     [t_wsize], eax
-        mov     [p_usage_min], -1
-        mov     [p_usage_max], -1
-        mov     [t_id], -1
-        mov     [t_btnid], -2
-        mov     [t_ptp_id], -1
-        mov     [t_fcount], eax
-        mov     [t_ccnt_size], eax
-        mov     [t_pbtn_cnt], eax
-        mov     [t_ptp_bytes], eax
-.loop:
-        cmp     esi, edi
-        jae     .eof
-        movzx   eax, byte [esi]
-        inc     esi
-        cmp     al, 0xFE
-        je      .long_item
-        mov     ecx, eax
-        and     ecx, 3
-        cmp     ecx, 3
-        jne     @f
-        inc     ecx                     ; size code 3 means 4 bytes
-@@:
-        lea     ebx, [esi+ecx]
-        cmp     ebx, edi
-        ja      .eof
-        xor     edx, edx
-        jecxz   .no_data
-        cmp     ecx, 1
-        jne     @f
-        movzx   edx, byte [esi]
-        jmp     .have_data
-@@:
-        cmp     ecx, 2
-        jne     @f
-        movzx   edx, word [esi]
-        jmp     .have_data
-@@:
-        mov     edx, [esi]
-.have_data:
-        add     esi, ecx
-.no_data:
-        and     eax, 0xFC
-; Global items
-        cmp     al, 0x04
-        je      .g_usage_page
-        cmp     al, 0x84
-        je      .g_report_id
-        cmp     al, 0x74
-        je      .g_report_size
-        cmp     al, 0x94
-        je      .g_report_count
-        cmp     al, 0x24
-        je      .g_log_max
-; Local items
-        cmp     al, 0x08
-        je      .l_usage
-        cmp     al, 0x18
-        je      .l_usage_min
-        cmp     al, 0x28
-        je      .l_usage_max
-; Main items
-        cmp     al, 0x80
-        je      .m_input
-        cmp     al, 0x90
-        je      .m_clear_locals
-        cmp     al, 0xB0
-        je      .m_feature
-        cmp     al, 0xA0
-        je      .m_clear_locals
-        cmp     al, 0xC0
-        je      .m_clear_locals
-        jmp     .loop
-.g_usage_page:
-        and     edx, 0xFFFF
-        mov     [p_usage_page], edx
-        jmp     .loop
-.g_report_id:
-        mov     [p_report_id], edx
-        mov     [p_uses_repid], 1
-        jmp     .loop
-.g_report_size:
-        mov     [p_report_size], edx
-        jmp     .loop
-.g_report_count:
-        mov     [p_report_count], edx
-        jmp     .loop
-.g_log_max:
-        mov     [p_log_max], edx
-        jmp     .loop
-.l_usage:
-        mov     ebx, [p_usage_cnt]
-        cmp     ebx, HID_MAX_USAGES
-        jae     .loop
-        cmp     ecx, 4                  ; 4-byte usage carries its own page
-        je      @f
-        mov     eax, [p_usage_page]
-        shl     eax, 16
-        or      edx, eax
-@@:
-        mov     [p_usages+ebx*4], edx
-        inc     [p_usage_cnt]
-        jmp     .loop
-.l_usage_min:
-        mov     [p_usage_min], edx
-        jmp     .loop
-.l_usage_max:
-        mov     [p_usage_max], edx
-        jmp     .loop
-.m_input:
-        mov     [v_flags], edx
-        call    hid_process_input
-        jmp     .m_clear_locals         ; input bits are not feature bits
-.m_feature:
-; Feature reports are only ever written, never decoded, but writing one
-; needs its exact size: a SET_REPORT shorter than the report is ignored by
-; some firmwares (the Elan Input Mode report has two bytes, mode and the
-; selective-reporting switches - one byte does nothing there).
-        call    hid_get_bits_slot
-        mov     eax, [p_report_size]
-        imul    eax, [p_report_count]
-        add     [p_fbits+ecx*4], eax
-.m_clear_locals:
-        xor     eax, eax
-        mov     [p_usage_cnt], eax
-        mov     [p_usage_min], -1
-        mov     [p_usage_max], -1
-        jmp     .loop
-.long_item:
-        cmp     esi, edi
-        jae     .eof
-        movzx   ecx, byte [esi]
-        lea     esi, [esi+ecx+2]
-        jmp     .loop
-.eof:
-; Size of the touchpad report, when there is one.
-        mov     eax, [t_ptp_id]
-        cmp     eax, -1
-        je      .no_ptp
-        xor     ecx, ecx
-@@:
-        cmp     ecx, [p_idcnt]
-        jae     .no_ptp
-        cmp     eax, [p_ids+ecx*4]
-        je      @f
-        inc     ecx
-        jmp     @b
-@@:
-        mov     eax, [p_bits+ecx*4]
-        add     eax, 7
-        shr     eax, 3
-        mov     [t_ptp_bytes], eax
-.no_ptp:
-; Success needs relative X and Y in the same report - or, failing that, a
-; touchpad report with at least one complete finger, which is then the only
-; thing the device will be driven through.
-        mov     eax, [t_have]
-        and     eax, 3
-        cmp     eax, 3
-        je      .have_mouse
-        cmp     [t_fcount], 0
-        je      .fail
-        cmp     dword [t_fxs], 0
-        je      .fail
-        cmp     dword [t_fys], 0
-        je      .fail
-        mov     [f_repid], -1           ; no mouse report to match
-        mov     [f_bytes], 0
-        mov     [t_btncnt], 0
-        movi    eax, 1
-        ret
-.have_mouse:
-; Keep buttons/wheel only when they live in the chosen report.
-        mov     eax, [t_btnid]
-        cmp     eax, [t_id]
-        je      @f
-        mov     [t_btncnt], 0
-@@:
-; Final layout.
-        mov     eax, [t_id]
-        mov     [f_repid], eax
-        xor     ecx, ecx
-@@:
-        cmp     ecx, [p_idcnt]
-        jae     .no_bits
-        cmp     eax, [p_ids+ecx*4]
-        je      .got_bits
-        inc     ecx
-        jmp     @b
-.got_bits:
-        mov     eax, [p_bits+ecx*4]
-        add     eax, 7
-        shr     eax, 3
-        mov     [f_bytes], eax
-        movi    eax, 1
-        ret
-.no_bits:
-.fail:
-        xor     eax, eax
-        ret
-endp
-
-; Extracts an unsigned field from an input report.
-; in: esi -> report data, eax = bit offset, ecx = bit count (1..24).
-; out: eax = value.
-proc hid_extract_u
-        push    ebx ecx edx
-        mov     edx, eax
-        shr     edx, 3
-        mov     ebx, [esi+edx]          ; buffer has spare bytes at the end
-        and     eax, 7
-        push    ecx
-        mov     ecx, eax
-        shr     ebx, cl
-        pop     ecx
-        neg     ecx
-        add     ecx, 32
-        shl     ebx, cl
-        shr     ebx, cl
-        mov     eax, ebx
-        pop     edx ecx ebx
-        ret
-endp
-
-; Same, sign-extended.
-proc hid_extract_s
-        push    ebx ecx edx
-        mov     edx, eax
-        shr     edx, 3
-        mov     ebx, [esi+edx]
-        and     eax, 7
-        push    ecx
-        mov     ecx, eax
-        shr     ebx, cl
-        pop     ecx
-        neg     ecx
-        add     ecx, 32
-        shl     ebx, cl
-        sar     ebx, cl
-        mov     eax, ebx
-        pop     edx ecx ebx
-        ret
-endp

drivers/i2chid/system.ini

@@ -1,26 +0,0 @@
-[touchpad]
-; pointer speed in percent of the driver's default (on top of the [mouse]
-; speed above; pads differ in resolution)
-speed=100
-; how far a finger must move before the pointer follows, in pad units;
-; larger is steadier under a pressing finger, 0 turns the filter off
-jitter=1
-; the same, for a finger that landed on the button strip: it is pressing
-; rather than steering there, so it needs a stricter margin
-jitter_buttons=45
-; pad units of two-finger travel per wheel step, and the direction
-scroll_step=64
-scroll_invert=0
-; turn a short, still touch into a click: one finger left, two right,
-; three middle
-tap_enable=1
-; tap, then touch again at once and move: the button stays down for that
-; second touch - this is how text is selected and how one draws
-tap_drag=1
-; right click: 0 never, 1 bottom-right corner, 2 by finger count (two
-; fingers right, three middle), 3 either
-right_click=1
-; button strip along the bottom edge, in percent of the surface: its
-; height, and where its left half ends
-button_zone=15
-right_split=50

drivers/i2chid/tpreload.asm

@@ -1,72 +0,0 @@
-; Asks the I2C touchpad driver to read its settings again.
-;
-; The driver takes everything it can be tuned with from the [touchpad] section
-; of /sys/settings/system.ini, and it reads that file once while loading. This
-; tells it to read the file again, so editing a setting takes effect straight
-; away instead of at the next boot.
-;
-; There is no window: the outcome goes to the debug board, the way the driver
-; reports everything else.
-
-format binary as ""
-use32
-        db      'MENUET01'
-        dd      1, start, i_end, mem, mem, 0, 0
-
-include '../../programs/macros.inc'
-
-SRV_RELOAD_CONF = 1
-
-start:
-; 1. Find the driver's service by name.
-        mcall   68, 16, srv_name
-        test    eax, eax
-        jz      .no_driver
-        mov     [ioctl.handle], eax
-; 2. Ask it to reload. No data travels either way: the driver reads the file
-;    itself, so the settings file stays the only place they are written down.
-        mcall   68, 17, ioctl
-        test    eax, eax
-        jnz     .refused
-        mov     esi, msg_ok
-        jmp     .say
-.no_driver:
-        mov     esi, msg_no_driver
-        jmp     .say
-.refused:
-        mov     esi, msg_refused
-.say:
-        call    board_str
-        or      eax, -1
-        mcall
-
-; Writes a zero-terminated string to the debug board.
-; in: esi -> string
-board_str:
-        lodsb
-        test    al, al
-        jz      .done
-        mov     cl, al
-        mcall   63, 1
-        jmp     board_str
-.done:
-        ret
-
-srv_name        db 'I2CHID', 0
-
-align 4
-ioctl:
-.handle         dd 0
-.io_code        dd SRV_RELOAD_CONF
-.input          dd 0
-.inp_size       dd 0
-.output         dd 0
-.out_size       dd 0
-
-msg_ok          db 'tpreload: touchpad settings reloaded', 13, 10, 0
-msg_no_driver   db 'tpreload: the I2C touchpad driver is not loaded', 13, 10, 0
-msg_refused     db 'tpreload: the driver refused the request', 13, 10, 0
-
-i_end:
-        rb      1024
-mem:

drivers/peimport.inc

@@ -139,7 +139,6 @@ import core,\
               RegKeyboard,\
               DelKeyboard,\
               Sleep,\
-              Delay,\
               GetTimerTicks,\
 \
               strncat,\

drivers/serial/common.inc

@@ -1,4 +1,4 @@
-SERIAL_COMPATIBLE_API_VER = 1 ; increments in case of breaking changes
+SERIAL_COMPATIBLE_API_VER = 0 ; increments in case of breaking changes
 
 SERIAL_API_GET_VERSION = 0
 SERIAL_API_SRV_ADD_PORT = 1
@@ -9,7 +9,6 @@ SERIAL_API_CLOSE_PORT = 5
 SERIAL_API_SETUP_PORT = 6
 SERIAL_API_READ = 7
 SERIAL_API_WRITE = 8
-SERIAL_API_ENUM_PORTS = 9
 
 SERIAL_API_ERR_PORT_INVALID = 1
 SERIAL_API_ERR_PORT_BUSY = 2
@@ -30,9 +29,6 @@ SERIAL_CONF_STOP_BITS_2 = 2
 
 SERIAL_CONF_FLOW_CTRL_NONE = 0
 
-SERIAL_INFO_DRIVER_LEN = 16
-SERIAL_INFO_DESCR_LEN = 64
-
 struct  SP_DRIVER
         size            dd ? ; size of this struct
         startup         dd ? ; int __stdcall (*startup)(void *drv_data, const struct serial_conf *conf);
@@ -50,20 +46,7 @@ struct  SP_CONF
         flow_ctrl       db ?
 ends
 
-struct  SP_PORT_INFO
-        size            dd ? ; size of this struct
-        driver          dd ? ; ASCIIZ driver name, e.g. "uart16550", "usb-cdc"
-        descr           dd ? ; ASCIIZ description, may be NULL
-ends
-
-struct  SP_PORT_ENUM_ENTRY
-        id              dd ? ; unique port number (SERIAL_PORT.id)
-        busy            dd ? ; 0 = free, non-zero = port is opened
-        driver          rb SERIAL_INFO_DRIVER_LEN
-        descr           rb SERIAL_INFO_DESCR_LEN
-ends
-
-proc serial_add_port stdcall, drv:dword, drv_data:dword, info:dword
+proc serial_add_port stdcall, drv:dword, drv_data:dword
 locals
         handler    dd ?
         io_code    dd ?
@@ -77,7 +60,7 @@ endl
         mov     [io_code], SERIAL_API_SRV_ADD_PORT
         lea     eax, [drv]
         mov     [input], eax
-        mov     [inp_size], 12
+        mov     [inp_size], 8
         xor     eax, eax
         mov     [output], eax
         mov     [out_size], eax
@@ -146,7 +129,7 @@ proc serial_port_init
         ret
 endp
 
-proc serial_port_get_version stdcall uses ebx, version:dword
+proc serial_port_get_version stdcall, version:dword
 locals
         .handler    dd ?
         .io_code    dd ?
@@ -166,7 +149,7 @@ endl
 
         lea     ecx, [.handler]
         mcall   SF_SYS_MISC, SSF_CONTROL_DRIVER
-
+        
         ret
 endp
 
@@ -314,43 +297,6 @@ endl
         ret
 endp
 
-proc serial_port_enum stdcall uses ebx, buf:dword, buf_size:dword, \
-                      total:dword, filled:dword
-locals
-        .handler    dd ?
-        .io_code    dd ?
-        .input      dd ?
-        .inp_size   dd ?
-        .output     dd ?
-        .out_size   dd ?
-endl
-        push    [buf_size]
-        push    [buf]
-        mov     eax, [serial_drv_handle]
-        mov     [.handler], eax
-        mov     dword [.io_code], SERIAL_API_ENUM_PORTS
-        mov     [.input], esp
-        mov     dword [.inp_size], 8
-        sub     esp, 8
-        mov     [.output], esp
-        mov     dword [.out_size], 8
-
-        lea     ecx, [.handler]
-        mcall   SF_SYS_MISC, SSF_CONTROL_DRIVER
-
-        pop     ebx edx
-        cmp     eax, -1
-        je      .err
-        mov     ecx, [total]
-        mov     [ecx], ebx
-        mov     ecx, [filled]
-        mov     [ecx], edx
-    .err:
-
-        add     esp, 8
-        ret
-endp
-
 align 4
 serial_drv_name   db "SERIAL", 0
 serial_drv_handle dd ?

drivers/serial/install.sh

@@ -0,0 +1,5 @@
+#SHS
+echo Installing serial driver for kterm...
+cp /kolibrios/utils/kterm/serial.sys /sys/drivers/
+/sys/loaddrv serial
+echo Serial driver successfully installed!

drivers/serial/serial.asm

@@ -44,8 +44,6 @@ struct  SERIAL_PORT
         rx_buf          RING_BUF
         tx_buf          RING_BUF
         conf            SP_CONF
-        driver          rb SERIAL_INFO_DRIVER_LEN ; ASCIIZ, copied from SP_PORT_INFO.driver in add_port
-        descr           rb SERIAL_INFO_DESCR_LEN  ; ASCIIZ, copied from SP_PORT_INFO.descr in add_port (may be empty)
 ends
 
 proc START c, reason:dword, cmdline:dword
@@ -59,7 +57,7 @@ proc START c, reason:dword, cmdline:dword
         stdcall uart_probe, 0x2f8, 3
         stdcall uart_probe, 0x3e8, 4
         stdcall uart_probe, 0x2e8, 3
-        invoke  RegService, serial_drv_name, service_proc
+        invoke  RegService, drv_name, service_proc
         ret
 
   .fail:
@@ -77,7 +75,7 @@ srv_calls:
         dd      service_proc.setup
         dd      service_proc.read
         dd      service_proc.write
-        dd      service_proc.enum_ports
+        ; TODO enumeration
 srv_calls_end:
 
 proc service_proc stdcall uses ebx esi edi, ioctl:dword
@@ -99,13 +97,11 @@ proc service_proc stdcall uses ebx esi edi, ioctl:dword
         ; in:
         ;  +0: driver
         ;  +4: driver data
-        ;  +8: port info (SP_PORT_INFO*)
-        cmp     [edx + IOCTL.inp_size], 12
+        cmp     [edx + IOCTL.inp_size], 8
         jb      .err
         mov     ebx, [edx + IOCTL.input]
         mov     ecx, [ebx]
         mov     edx, [ebx + 4]
-        mov     ebx, [ebx + 8]
         call    add_port
         ret
 
@@ -141,7 +137,6 @@ proc service_proc stdcall uses ebx esi edi, ioctl:dword
         ;  +4 addr to SERIAL_CONF
         ; out:
         ;  +0 port handle if success
-        ; eax = 0 if success, otherwise an error code SERIAL_API_ERR_*
         cmp     [edx + IOCTL.inp_size], 8
         jb      .err
         cmp     [edx + IOCTL.out_size], 4
@@ -225,60 +220,25 @@ proc service_proc stdcall uses ebx esi edi, ioctl:dword
         mov     [ebx], ecx
         ret
 
-  .enum_ports:
-        ; in:
-        ;  +0 output buffer (array of SP_PORT_ENUM_ENTRY), may be NULL
-        ;  +4 output buffer size in bytes
-        ; out:
-        ;  +0 total number of ports in the system
-        ;  +4 number of entries actually filled into the buffer
-        ; eax = 0 if success, -1 otherwise
-        cmp     [edx + IOCTL.inp_size], 8
-        jb      .err
-        cmp     [edx + IOCTL.out_size], 8
-        jb      .err
-        mov     ebx, [edx + IOCTL.input]
-        push    edx
-        mov     eax, [ebx]
-        mov     edx, [ebx + 4]
-        call    sp_enum
-        pop     edx
-        mov     ebx, [edx + IOCTL.output]
-        mov     [ebx], eax
-        mov     [ebx + 4], ecx
-        xor     eax, eax
-        ret
-
   .err:
         or      eax, -1
         ret
 endp
 
+; struct SERIAL_PORT __fastcall *add_port(const struct SP_DRIVER *drv, const void *drv_data);
 align 4
-; @param ecx pointer to SP_DRIVER
-; @param edx driver-specific argument
-; @param ebx pointer to SP_PORT_INFO
-; @return SERIAL_PORT descriptor
 proc add_port uses edi
-        DEBUGF  L_DBG, "serial.sys: add port drv=%x drv_data=%x info=%x\n", ecx, edx, ebx
+        DEBUGF  L_DBG, "serial.sys: add port drv=%x drv_data=%x\n", ecx, edx
 
         mov     eax, [ecx + SP_DRIVER.size]
         cmp     eax, sizeof.SP_DRIVER
         jne     .fail
 
-        test    ebx, ebx
-        jz      .fail
-        mov     eax, [ebx + SP_PORT_INFO.size]
-        cmp     eax, sizeof.SP_PORT_INFO
-        jne     .fail
-
         ; alloc memory for serial port descriptor
         push    ecx
         push    edx
-        push    ebx
         movi    eax, sizeof.SERIAL_PORT
         invoke  Kmalloc
-        pop     ebx
         pop     edx
         pop     ecx
         test    eax, eax
@@ -292,17 +252,6 @@ proc add_port uses edi
         invoke  MutexInit
         and     [edi + SERIAL_PORT.con], 0
 
-        ; copy port info strings
-        mov     eax, [ebx + SP_PORT_INFO.driver]
-        lea     edx, [edi + SERIAL_PORT.driver]
-        mov     ecx, SERIAL_INFO_DRIVER_LEN
-        call    copy_bounded_str
-
-        mov     eax, [ebx + SP_PORT_INFO.descr]
-        lea     edx, [edi + SERIAL_PORT.descr]
-        mov     ecx, SERIAL_INFO_DESCR_LEN
-        call    copy_bounded_str
-
         mov     ecx, port_list_mutex
         invoke  MutexLock
 
@@ -333,35 +282,7 @@ proc add_port uses edi
 endp
 
 align 4
-; copies an ASCIIZ string into a fixed-size buffer: copies up to (size - 1)
-; bytes or until the NUL, then zero-pads the rest of the buffer
-; @param eax source ASCIIZ ptr, may be NULL
-; @param edx dest buffer ptr
-; @param ecx dest buffer size in bytes, must be >= 1
-proc copy_bounded_str uses esi edi
-        mov     esi, eax
-        mov     edi, edx
-        dec     ecx ; reserve the last byte for the NUL terminator
-  .copy:
-        test    ecx, ecx
-        jz      .pad
-        test    esi, esi
-        jz      .pad
-        lodsb
-        test    al, al
-        jz      .pad
-        stosb
-        dec     ecx
-        jmp     .copy
-  .pad:
-        inc     ecx ; account for the reserved NUL byte
-        xor     al, al
-        rep     stosb
-        ret
-endp
-
-align 4
-; @param ecx serial port descriptor
+; u32 __fastcall *remove_port(struct SERIAL_PORT *port);
 proc remove_port uses esi
         mov     esi, ecx
         mov     ecx, port_list_mutex
@@ -736,69 +657,7 @@ proc sp_write
         ret
 endp
 
-align 4
-; @param eax buf
-; @param edx buf_size (bytes)
-; @return eax total port count in the system
-;         ecx entries filled into buf
-proc sp_enum uses ebx esi edi
-        mov     ecx, eax
-        mov     eax, edx
-        xor     edx, edx
-        mov     ebx, sizeof.SP_PORT_ENUM_ENTRY
-        div     ebx
-        ; eax max entries count
-
-        mov     edi, ecx
-        imul    eax, sizeof.SP_PORT_ENUM_ENTRY
-        add     eax, ecx
-        mov     edx, eax ; end-of-buffer boundary
-
-        xor     ebx, ebx ; total port count
-        xor     ecx, ecx ; filled count
-
-        push    ecx edx
-        mov     ecx, port_list_mutex
-        invoke  MutexLock
-        pop     edx ecx
-
-        mov     esi, port_list
-  .next:
-        mov     esi, [esi + SERIAL_PORT.fd]
-        cmp     esi, port_list
-        jz      .done
-        inc     ebx
-        cmp     edi, edx
-        jae     .next
-
-        mov     eax, [esi + SERIAL_PORT.id]
-        mov     [edi + SP_PORT_ENUM_ENTRY.id], eax
-        xor     eax, eax
-        cmp     dword [esi + SERIAL_PORT.con], 0
-        setnz   al
-        mov     [edi + SP_PORT_ENUM_ENTRY.busy], eax
-
-        push    ecx esi edi
-        lea     esi, [esi + SERIAL_PORT.driver]
-        lea     edi, [edi + SP_PORT_ENUM_ENTRY.driver]
-        mov     ecx, (SERIAL_INFO_DRIVER_LEN + SERIAL_INFO_DESCR_LEN) / 4
-        rep     movsd
-        pop     edi esi ecx
-
-        add     edi, sizeof.SP_PORT_ENUM_ENTRY
-        inc     ecx
-        jmp     .next
-
-  .done:
-        push    ecx
-        mov     ecx, port_list_mutex
-        invoke  MutexUnlock
-        pop     ecx
-
-        mov     eax, ebx
-        ret
-endp
-
+drv_name    db 'SERIAL', 0
 include_debug_strings
 
 align 4

drivers/serial/uart16550.inc

@@ -169,7 +169,6 @@ proc uart_probe stdcall uses ebx esi edi, io_addr:dword, irqn:dword
         ; register port
         lea     ecx, [uart_drv]
         mov     edx, edi
-        lea     ebx, [uart_port_info]
         call    add_port
         test    eax, eax
         jz      .free_desc   ; TODO detach_int_handler?
@@ -407,11 +406,3 @@ uart_drv:
         dd      uart_reconf
         dd      uart_tx
 uart_drv_end:
-
-align 4
-uart_port_info:
-        dd      uart_port_end - uart_port_info
-        dd      uart_port_name
-        dd      0
-uart_port_end:
-uart_port_name db 'uart16550', 0

drivers/usb/usbftdi/usbftdi.asm

@@ -1,6 +1,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                              ;;
-;; Copyright (C) KolibriOS team 2004-2026. All rights reserved. ;;
+;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
 ;; Distributed under terms of the GNU General Public License    ;;
 ;;                                                              ;;
 ;;  FTDI chips driver for KolibriOS                             ;;
@@ -15,11 +15,10 @@
 format PE DLL native 0.05
 entry START
 
-L_DBG = 1
-L_ERR = 2
+DEBUG = 1
 
 __DEBUG__ = 1
-__DEBUG_LEVEL__ = L_ERR
+__DEBUG_LEVEL__ = 1
 
 node equ ftdi_context
 node.next equ ftdi_context.next_context
@@ -123,10 +122,9 @@ TYPE_232H=6
 TYPE_230X=7
 
 ;strings
-my_driver       db      'usbftdi',0
+my_driver       db      'usbother',0
 serial_driver   db      'SERIAL',0
-nomemory_msg    db      'ftdi: no memory',13,10,0
-ftdi_port_name  db      'ftdi',0
+nomemory_msg    db      'K : no memory',13,10,0
 
 ; Structures
 struct ftdi_context
@@ -202,13 +200,10 @@ endp
 
 
 proc AddDevice stdcall uses ebx esi edi, .config_pipe:DWORD, .config_descr:DWORD, .interface:DWORD
-locals
-        .pinfo rb sizeof.SP_PORT_INFO
-endl
-
+        
         invoke  USBGetParam, [.config_pipe], 0
         mov     edx, eax
-        DEBUGF  L_DBG, 'ftdi: Detected device vendor: 0x%x\n', [eax+usb_descr.idVendor]
+        DEBUGF 2,'K : Detected device vendor: 0x%x\n', [eax+usb_descr.idVendor]
         cmp     word[eax+usb_descr.idVendor], 0x0403
         jnz     .notftdi
         mov     eax, sizeof.ftdi_context
@@ -219,7 +214,7 @@ endl
         invoke  SysMsgBoardStr
         jmp     .nothing
   @@:
-        DEBUGF  L_DBG, 'ftdi: Adding struct to list 0x%x\n', eax
+        DEBUGF 2,'K : Adding struct to list 0x%x\n', eax
         call    linkedlist_add
         
         mov     ebx, [.config_pipe]
@@ -238,7 +233,7 @@ endl
         jmp     .slow
         
         mov     cx, [edx+usb_descr.bcdDevice]
-        DEBUGF  L_DBG, 'ftdi: Chip type 0x%x\n', ecx
+        DEBUGF 2, 'K : Chip type 0x%x\n', ecx
         cmp     cx, 0x400
         jnz     @f
         mov     [eax + ftdi_context.chipType], TYPE_BM
@@ -292,13 +287,8 @@ endl
         mov     eax, [serial_drv_entry]
         test    eax, eax
         jz      @f
-        mov     dword [.pinfo + SP_PORT_INFO.size], sizeof.SP_PORT_INFO
-        mov     dword [.pinfo + SP_PORT_INFO.driver], ftdi_port_name
-        ; TODO obtain iManufacturer, iProduct and iSerial strings
-        mov     dword [.pinfo + SP_PORT_INFO.descr], 0
-        lea     ecx, [.pinfo]
-        stdcall serial_add_port, uart_drv, ebx, ecx
-        DEBUGF  L_DBG, 'ftdi: add serial port with result %x\n', eax
+        stdcall serial_add_port, uart_drv, ebx
+        DEBUGF  1, "usbftdi: add serial port with result %x\n", eax
    @@:
         mov     [ebx + ftdi_context.port_handle], eax
 
@@ -306,7 +296,7 @@ endl
         ret        
            
   .notftdi:
-        DEBUGF  L_DBG, 'ftdi: Skipping not FTDI device\n'
+        DEBUGF 1,'K : Skipping not FTDI device\n'
   .nothing:        
         xor     eax, eax
         ret
@@ -327,7 +317,7 @@ EventData   rd  3
 endl
         mov     edi, [ioctl]
         mov     eax, [edi+io_code]
-        DEBUGF  L_DBG, 'ftdi: FTDI got the request: %d\n', eax
+        DEBUGF 1,'K : FTDI got the request: %d\n', eax
         test    eax, eax            ;0
         jz      .version
         dec     eax                 ;1
@@ -426,7 +416,7 @@ endl
   .version:     
         jmp     .endswitch
   .error:
-        DEBUGF  L_ERR, 'ftdi: error occured! %d\n', eax
+        DEBUGF 1, 'K : FTDI error occured! %d\n', eax
         ;mov     esi, [edi+output]
         ;mov     [esi], dword 'ERR0'
         ;or      [esi], eax
@@ -459,7 +449,7 @@ endl
         mov     word[ConfPacket+6], cx
   .own_index:
         mov     ebx, [edi+4]
-        DEBUGF  L_DBG, 'ftdi: ConfPacket 0x%x 0x%x\n', [ConfPacket], [ConfPacket+4]          
+        DEBUGF 2,'K : ConfPacket 0x%x 0x%x\n', [ConfPacket], [ConfPacket+4]          
         lea     esi, [ConfPacket]
         lea     edi, [EventData]        
         invoke  USBControlTransferAsync, [ebx + ftdi_context.nullP],  esi, 0,\
@@ -475,7 +465,7 @@ endl
         jmp     .error
         
   .ftdi_setrtshigh:
-        DEBUGF  L_DBG, 'ftdi: Setting RTS pin HIGH PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2,'K : FTDI Setting RTS pin HIGH PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_SET_MODEM_CTRL_REQUEST shl 8) \
@@ -483,7 +473,7 @@ endl
         jmp     .ftdi_out_control_transfer_noinp         
 
   .ftdi_setrtslow:
-        DEBUGF  L_DBG, 'ftdi: Setting RTS pin LOW PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2,'K : FTDI Setting RTS pin LOW PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_SET_MODEM_CTRL_REQUEST shl 8) \
@@ -491,7 +481,7 @@ endl
         jmp     .ftdi_out_control_transfer_noinp           
         
   .ftdi_setdtrhigh:
-        DEBUGF  L_DBG, 'ftdi: Setting DTR pin HIGH PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2,'K : FTDI Setting DTR pin HIGH PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_SET_MODEM_CTRL_REQUEST shl 8) \
@@ -499,7 +489,7 @@ endl
         jmp     .ftdi_out_control_transfer_noinp           
 
   .ftdi_setdtrlow:
-        DEBUGF  L_DBG, 'ftdi: Setting DTR pin LOW PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2,'K : FTDI Setting DTR pin LOW PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_SET_MODEM_CTRL_REQUEST shl 8) \
@@ -507,7 +497,7 @@ endl
         jmp     .ftdi_out_control_transfer_noinp           
         
   .ftdi_usb_reset:
-        DEBUGF  L_DBG, 'ftdi: Reseting PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2,'K : FTDI Reseting PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_RESET_REQUEST shl 8) \
@@ -515,7 +505,7 @@ endl
         jmp     .ftdi_out_control_transfer_noinp  
         
   .ftdi_purge_rx_buf:
-        DEBUGF  L_DBG, 'ftdi: Purge TX buffer PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Purge TX buffer PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_RESET_REQUEST shl 8) \
@@ -523,7 +513,7 @@ endl
         jmp     .ftdi_out_control_transfer_noinp  
         
   .ftdi_purge_tx_buf:
-        DEBUGF  L_DBG, 'ftdi: Purge RX buffer PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Purge RX buffer PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_RESET_REQUEST shl 8) \
@@ -531,42 +521,42 @@ endl
         jmp     .ftdi_out_control_transfer_noinp  
         
   .ftdi_set_bitmode:
-        DEBUGF  L_DBG, 'ftdi: Set bitmode 0x%x, bitmask 0x%x %d PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set bitmode 0x%x, bitmask 0x%x %d PID: %d Dev handler 0x0x%x\n', \
                                                [edi+8]:2,[edi+10]:2,[edi],[edi+4]
         mov     word[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                 + (SIO_SET_BITMODE_REQUEST shl 8)                                       
         jmp     .ftdi_out_control_transfer_withinp        
      
   .ftdi_set_line_property:
-        DEBUGF  L_DBG, 'ftdi: Set line property 0x%x PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set line property 0x%x PID: %d Dev handler 0x0x%x\n', \
                                                           [edi+8]:4,[edi],[edi+4]
         mov     word[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                 + (SIO_SET_DATA_REQUEST shl 8)
         jmp     .ftdi_out_control_transfer_withinp
         
   .ftdi_set_latency_timer:
-        DEBUGF  L_DBG, 'ftdi: Set latency %d PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set latency %d PID: %d Dev handler 0x0x%x\n', \
                                                           [edi+8],[edi],[edi+4]
         mov     word[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                 + (SIO_SET_LATENCY_TIMER_REQUEST shl 8)        
         jmp     .ftdi_out_control_transfer_withinp
         
   .ftdi_set_event_char:
-        DEBUGF  L_DBG, 'ftdi: Set event char %c PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set event char %c PID: %d Dev handler 0x0x%x\n', \
                                                           [edi+8],[edi],[edi+4]
         mov     word[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                 + (SIO_SET_EVENT_CHAR_REQUEST shl 8)
         jmp     .ftdi_out_control_transfer_withinp
 
   .ftdi_set_error_char:
-        DEBUGF  L_DBG, 'ftdi: Set error char %c PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set error char %c PID: %d Dev handler 0x0x%x\n', \
                                                           [edi+8],[edi],[edi+4]
         mov     word[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                 + (SIO_SET_ERROR_CHAR_REQUEST shl 8)
         jmp     .ftdi_out_control_transfer_withinp 
         
   .ftdi_setflowctrl:
-        DEBUGF  L_DBG, 'ftdi: Set flow control PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Set flow control PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     dword[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                  + (SIO_SET_FLOW_CTRL_REQUEST shl 8) + (0 shl 16)
@@ -579,7 +569,7 @@ endl
         jmp     .own_index
 
   .ftdi_read_pins:
-        DEBUGF  L_DBG, 'ftdi: Read pins PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Read pins PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                      [edi+4]
         mov     ebx, [edi+4] 
         mov     dword[ConfPacket], (FTDI_DEVICE_IN_REQTYPE) \
@@ -608,7 +598,7 @@ endl
         jmp     .error
         
   .ftdi_set_wchunksize:
-        DEBUGF  L_DBG, 'ftdi: Set write chunksize %d bytes PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set write chunksize %d bytes PID: %d Dev handler 0x0x%x\n', \
                                                     [edi+8], [edi], [edi+4]
         mov     ebx, [edi+4]
         mov     ecx, [edi+8] 
@@ -618,7 +608,7 @@ endl
         jmp     .endswitch
    
   .ftdi_get_wchunksize:
-        DEBUGF  L_DBG, 'ftdi: Get write chunksize PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Get write chunksize PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     esi, [edi+output]
         mov     edi, [edi+input]
@@ -628,7 +618,7 @@ endl
         jmp     .endswitch
 
   .ftdi_set_rchunksize:
-        DEBUGF  L_DBG, 'ftdi: Set read chunksize %d bytes PID: %d Dev handler 0x0x%x\n', \
+        DEBUGF 2, 'K : FTDI Set read chunksize %d bytes PID: %d Dev handler 0x0x%x\n', \
                                                     [edi+8], [edi], [edi+4]
         mov     ebx, [edi+4]
         mov     ecx, [edi+8]
@@ -638,7 +628,7 @@ endl
         jmp     .endswitch
 
   .ftdi_get_rchunksize:
-        DEBUGF  L_DBG, 'ftdi: Get read chunksize PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Get read chunksize PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4]
         mov     esi, [edi+output]
         mov     edi, [edi+input]
@@ -648,7 +638,7 @@ endl
         jmp     .endswitch        
 
   .ftdi_write_data:
-        DEBUGF  L_DBG, 'ftdi: Write %d bytes PID: %d Dev handler 0x%x\n', [edi+8],\
+        DEBUGF 2, 'K : FTDI Write %d bytes PID: %d Dev handler 0x%x\n', [edi+8],\
                                                             [edi], [edi+4]
         mov     esi, edi
         add     esi, 12        
@@ -695,7 +685,7 @@ endl
         jmp     .write_loop
         
   .ftdi_read_data:
-        DEBUGF  L_DBG, 'ftdi: Read %d bytes PID: %d Dev handler 0x%x\n', [edi+8],\
+        DEBUGF 2, 'K : FTDI Read %d bytes PID: %d Dev handler 0x%x\n', [edi+8],\
                                                             [edi], [edi+4]
         mov     edi, [ioctl]
         mov     esi, [edi+input]
@@ -753,7 +743,7 @@ endl
         ;---Dirty hack end
         
   .ftdi_poll_modem_status:
-        DEBUGF  L_DBG, 'ftdi: Poll modem status PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Poll modem status PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4] 
         mov     ebx, [edi+4] 
         mov     dword[ConfPacket], (FTDI_DEVICE_IN_REQTYPE) \
@@ -777,7 +767,7 @@ endl
         jmp     .endswitch
         
   .ftdi_get_latency_timer:
-        DEBUGF  L_DBG, 'ftdi: Get latency timer PID: %d Dev handler 0x0x%x\n', [edi],\
+        DEBUGF 2, 'K : FTDI Get latency timer PID: %d Dev handler 0x0x%x\n', [edi],\
                                                                         [edi+4] 
         mov     ebx, [edi+4] 
         mov     dword[ConfPacket], FTDI_DEVICE_IN_REQTYPE \
@@ -797,7 +787,7 @@ endl
         jmp     .endswitch
                 
   .ftdi_get_list:
-        DEBUGF  L_DBG, 'ftdi: devices list request\n'  
+        DEBUGF 2, 'K : FTDI devices list request\n'  
         mov     edi, [edi+output]
         xor     ecx, ecx
         call    linkedlist_gethead
@@ -827,7 +817,7 @@ endl
         jmp     .endswitch
 
   .ftdi_lock:
-        DEBUGF  L_DBG, 'ftdi: Lock PID: %d Dev handler 0x0x%x\n', [edi], [edi+4]  
+        DEBUGF 2, 'K : FTDI Lock PID: %d Dev handler 0x0x%x\n', [edi], [edi+4]  
         mov     esi, [edi+input]
         mov     ebx, [esi+4]
         mov     eax, [ebx + ftdi_context.lockPID]
@@ -841,7 +831,7 @@ endl
         jmp     .endswitch
         
   .ftdi_unlock:
-        DEBUGF  L_DBG, 'ftdi: Unlock PID: %d Dev handler 0x0x%x\n', [edi], [edi+4]
+        DEBUGF 2, 'K : FTDI Unlock PID: %d Dev handler 0x0x%x\n', [edi], [edi+4]
         mov     esi, [edi+input]
         mov     edi, [edi+output]
         mov     ebx, [esi+4]
@@ -855,19 +845,145 @@ endl
         mov     [edi], eax
         jmp     .endswitch 
 
+H_CLK = 120000000
+C_CLK = 48000000        
   .ftdi_set_baudrate:
-        DEBUGF  L_DBG, 'ftdi: Set baudrate to %d PID: %d Dev handle: 0x%x\n',\
+        DEBUGF 2, 'K : FTDI Set baudrate to %d PID: %d Dev handle: 0x%x\n',\
                    [edi+8], [edi], [edi+4]
         mov     ebx, [edi+4]
-        mov     esi, [edi+8]
-        call    ftdi_calc_baud_divisor
+        cmp     [ebx + ftdi_context.chipType], TYPE_2232H
+        jl      .c_clk        
+        imul    eax, [edi+8], 10
+        cmp     eax, H_CLK / 0x3FFF        
+        jle     .c_clk
+  .h_clk:
+        cmp     dword[edi+8], H_CLK/10
+        jl      .h_nextbaud1
+        xor     edx, edx
+        mov     ecx, H_CLK/10
+        jmp     .calcend
+        
+  .c_clk:
+        cmp     dword[edi+8], C_CLK/16
+        jl      .c_nextbaud1
+        xor     edx, edx
+        mov     ecx, C_CLK/16
+        jmp     .calcend  
+  
+  .h_nextbaud1:
+        cmp     dword[edi+8], H_CLK/(10 + 10/2)
+        jl      .h_nextbaud2
+        mov     edx, 1
+        mov     ecx, H_CLK/(10 + 10/2)
+        jmp     .calcend
+        
+  .c_nextbaud1:
+        cmp     dword[edi+8], C_CLK/(16 + 16/2)
+        jl      .c_nextbaud2
+        mov     edx, 1
+        mov     ecx, C_CLK/(16 + 16/2)
+        jmp     .calcend        
+        
+  .h_nextbaud2:
+        cmp     dword[edi+8], H_CLK/(2*10)
+        jl      .h_nextbaud3
+        mov     edx, 2
+        mov     ecx, H_CLK/(2*10)
+        jmp     .calcend
+        
+  .c_nextbaud2:  
+        cmp     dword[edi+8], C_CLK/(2*16)
+        jl      .c_nextbaud3
+        mov     edx, 2
+        mov     ecx, C_CLK/(2*16)
+        jmp     .calcend        
+        
+  .h_nextbaud3:
+        mov     eax, H_CLK*16/10  ; eax - best_divisor
+        xor     edx, edx
+        div     dword[edi+8]      ; [edi+8] - baudrate
+        push    eax
+        and     eax, 1
+        pop     eax
+        shr     eax, 1
+        jz      .h_rounddowndiv     ; jump by result of and eax, 1
+        inc     eax
+  .h_rounddowndiv:
+        cmp     eax, 0x20000
+        jle     .h_best_divok
+        mov     eax, 0x1FFFF
+  .h_best_divok:
+        mov     ecx, eax        
+        mov     eax, H_CLK*16/10
+        xor     edx, edx
+        div     ecx
+        xchg    ecx, eax            ; ecx - best_baud
+        push    ecx
+        and     ecx, 1
+        pop     ecx
+        shr     ecx, 1
+        jz      .rounddownbaud
+        inc     ecx
+        jmp     .rounddownbaud
+        
+  .c_nextbaud3:
+        mov     eax, C_CLK        ; eax - best_divisor
+        xor     edx, edx
+        div     dword[edi+8]      ; [edi+8] - baudrate
+        push    eax
+        and     eax, 1
+        pop     eax
+        shr     eax, 1
+        jnz     .c_rounddowndiv     ; jump by result of and eax, 1
+        inc     eax
+  .c_rounddowndiv:
+        cmp     eax, 0x20000
+        jle     .c_best_divok
+        mov     eax, 0x1FFFF
+  .c_best_divok:
+        mov     ecx, eax        
+        mov     eax, C_CLK
+        xor     edx, edx
+        div     ecx
+        xchg    ecx, eax            ; ecx - best_baud
+        push    ecx
+        and     ecx, 1
+        pop     ecx
+        shr     ecx, 1
+        jnz     .rounddownbaud
+        inc     ecx
+        
+  .rounddownbaud:
+        mov     edx, eax            ; edx - encoded_divisor
+        shr     edx, 3
+        and     eax, 0x7      
+        push    7 6 5 1 4 2 3 0               
+        mov     eax, [esp+eax*4]
+        shl     eax, 14
+        or      edx, eax        
+        add     esp, 32
+        
+  .calcend:
+        mov     eax, edx        ; eax - *value
+        mov     ecx, edx        ; ecx - *index
+        and     eax, 0xFFFF
+        cmp     [ebx + ftdi_context.chipType], TYPE_2232H
+        jge     .foxyindex        
+        shr     ecx, 16
+        jmp     .preparepacket
+  .foxyindex:
+        shr     ecx, 8
+        and     ecx, 0xFF00
+        or      ecx, [ebx + ftdi_context.index]
+        
+  .preparepacket:
         mov     word[ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                 + (SIO_SET_BAUDRATE_REQUEST shl 8)
         mov     word[ConfPacket+2], ax
         mov     word[ConfPacket+4], cx
         mov     word[ConfPacket+6], 0
-        jmp     .own_index
-
+        jmp     .own_index        
+        
 endp 
 restore   handle
 restore   io_code
@@ -877,143 +993,10 @@ restore   output
 restore   out_size 
 
 
-proc ftdi_calc_baud_divisor
-; in:       ebx = ftdi_context pointer
-;           esi = baud rate
-; out:      ax = encoded value
-;           cx = encoded index
-; destroys: eax, ecx, edx, esi
-        cmp     [ebx + ftdi_context.chipType], TYPE_2232H
-        jl      .c_clk
-        imul    eax, esi, 10
-        cmp     eax, H_CLK / 0x3FFF
-        jle     .c_clk
-  .h_clk:
-        cmp     esi, H_CLK / 10
-        jl      .h_nextbaud1
-        xor     edx, edx
-        mov     ecx, H_CLK / 10
-        jmp     .calcend
-
-  .c_clk:
-        cmp     esi, C_CLK / 16
-        jl      .c_nextbaud1
-        xor     edx, edx
-        mov     ecx, C_CLK / 16
-        jmp     .calcend
-
-  .h_nextbaud1:
-        cmp     esi, H_CLK / (10 + 10 / 2)
-        jl      .h_nextbaud2
-        mov     edx, 1
-        mov     ecx, H_CLK / (10 + 10 / 2)
-        jmp     .calcend
-
-  .c_nextbaud1:
-        cmp     esi, C_CLK / (16 + 16 / 2)
-        jl      .c_nextbaud2
-        mov     edx, 1
-        mov     ecx, C_CLK/(16 + 16 / 2)
-        jmp     .calcend
-
-  .h_nextbaud2:
-        cmp     esi, H_CLK / (2 * 10)
-        jl      .h_nextbaud3
-        mov     edx, 2
-        mov     ecx, H_CLK / (2 * 10)
-        jmp     .calcend
-
-  .c_nextbaud2:
-        cmp     esi, C_CLK / (2 * 16)
-        jl      .c_nextbaud3
-        mov     edx, 2
-        mov     ecx, C_CLK / (2 * 16)
-        jmp     .calcend
-
-  .h_nextbaud3:
-        mov     eax, H_CLK * 16 / 10 ; eax - best_divisor
-        xor     edx, edx
-        div     esi
-        push    eax
-        and     eax, 1
-        pop     eax
-        shr     eax, 1
-        jz      .h_rounddowndiv ; jump by result of and eax, 1
-        inc     eax
-  .h_rounddowndiv:
-        cmp     eax, 0x20000
-        jle     .h_best_divok
-        mov     eax, 0x1FFFF
-  .h_best_divok:
-        mov     ecx, eax
-        mov     eax, H_CLK * 16 / 10
-        xor     edx, edx
-        div     ecx
-        xchg    ecx, eax ; ecx - best_baud
-        push    ecx
-        and     ecx, 1
-        pop     ecx
-        shr     ecx, 1
-        jz      .rounddownbaud
-        inc     ecx
-        jmp     .rounddownbaud
-
-  .c_nextbaud3:
-        mov     eax, C_CLK ; eax - best_divisor
-        xor     edx, edx
-        div     esi
-        push    eax
-        and     eax, 1
-        pop     eax
-        shr     eax, 1
-        jnz     .c_rounddowndiv ; jump by result of and eax, 1
-        inc     eax
-  .c_rounddowndiv:
-        cmp     eax, 0x20000
-        jle     .c_best_divok
-        mov     eax, 0x1FFFF
-  .c_best_divok:
-        mov     ecx, eax
-        mov     eax, C_CLK
-        xor     edx, edx
-        div     ecx
-        xchg    ecx, eax ; ecx - best_baud
-        push    ecx
-        and     ecx, 1
-        pop     ecx
-        shr     ecx, 1
-        jnz     .rounddownbaud
-        inc     ecx
-
-  .rounddownbaud:
-        mov     edx, eax ; edx - encoded_divisor
-        shr     edx, 3
-        and     eax, 0x7
-        push    7 6 5 1 4 2 3 0
-        mov     eax, [esp + eax * 4]
-        shl     eax, 14
-        or      edx, eax
-        add     esp, 32
-
-  .calcend:
-        mov     eax, edx ; eax - *value
-        mov     ecx, edx ; ecx - *index
-        and     eax, 0xFFFF
-        cmp     [ebx + ftdi_context.chipType], TYPE_2232H
-        jge     .foxyindex
-        shr     ecx, 16
-        ret
-  .foxyindex:
-        shr     ecx, 8
-        and     ecx, 0xFF00
-        or      ecx, [ebx + ftdi_context.index]
-        ret
-endp
-
 proc control_callback stdcall uses ebx edi esi, .pipe:DWORD, .status:DWORD, \
                                .buffer:DWORD, .length:DWORD, .calldata:DWORD   
    
-        DEBUGF  L_DBG, 'ftdi: status is %d\n', [.status] 
+        DEBUGF 1, 'K : status is %d\n', [.status] 
         mov     ecx, [.calldata]
         mov     eax, [ecx]
         mov     ebx, [ecx+4]
@@ -1028,7 +1011,7 @@ endp
 proc bulk_callback stdcall uses ebx edi esi, .pipe:DWORD, .status:DWORD, \
                             .buffer:DWORD, .length:DWORD, .calldata:DWORD
 
-        DEBUGF  L_DBG, 'ftdi: status is %d\n', [.status]        
+        DEBUGF 1, 'K : status is %d\n', [.status]        
         mov     ecx, [.calldata]
         mov     eax, [ecx]
         mov     ebx, [ecx+4]
@@ -1051,7 +1034,7 @@ endp
 
 proc DeviceDisconnected stdcall uses  ebx esi edi, .device_data:DWORD
 
-        DEBUGF  L_DBG, 'ftdi: deleting device data 0x%x\n', [.device_data]
+        DEBUGF 1, 'K : FTDI deleting device data 0x%x\n', [.device_data]
         mov     esi, [.device_data]
         mov     eax, [esi + ftdi_context.readBufPtr]
         test    eax, eax
@@ -1079,7 +1062,7 @@ proc bulk_in_complete stdcall uses ebx edi esi, .pipe:DWORD, .status:DWORD, \
         mov     eax, [.status]
         test    eax, eax
         jz      @f
-        DEBUGF  L_ERR, 'ftdi: bulk in error %x\n', eax
+        DEBUGF  2, 'ftdi: bulk in error %x\n', eax
   @@:
         mov     ebx, [.calldata]
         btr     dword [ebx + ftdi_context.writeBufLock], 0
@@ -1092,7 +1075,7 @@ proc bulk_out_complete stdcall uses ebx edi esi, .pipe:DWORD, .status:DWORD, \
         mov     eax, [.status]
         test    eax, eax
         jz      @f
-        DEBUGF  L_ERR, 'ftdi: bulk out error %x\n', eax
+        DEBUGF  2, 'ftdi: bulk out error %x\n', eax
   @@:
         mov     ebx, [.calldata]
         mov     ecx, [.length]
@@ -1109,18 +1092,18 @@ proc bulk_out_complete stdcall uses ebx edi esi, .pipe:DWORD, .status:DWORD, \
 endp
 
 proc uart_startup stdcall uses ebx, data:dword, conf:dword
-        DEBUGF  L_DBG, "ftdi: startup %x %x\n", [data], [conf]
+        DEBUGF  1, "ftdi: startup %x %x\n", [data], [conf]
         stdcall uart_reconf, [data], [conf]
         test    eax, eax
         jz      @f
-        DEBUGF  L_ERR, "ftdi: uart reconf error %x\n", eax
+        DEBUGF  2, "ftdi: uart reconf error %x\n", eax
         jmp     .exit
   @@:
         mov     ebx, [data]
         invoke  TimerHS, 2, 2, uart_rx, ebx
         test    eax, eax
         jnz     @f
-        DEBUGF  L_ERR, "ftdi: timer creation error\n"
+        DEBUGF  2, "ftdi: timer creation error\n"
         or      eax, -1
         jmp     .exit
   @@:
@@ -1131,7 +1114,7 @@ proc uart_startup stdcall uses ebx, data:dword, conf:dword
 endp
 
 proc uart_shutdown stdcall uses ebx, data:dword
-        DEBUGF  L_DBG, "ftdi: shutdown %x\n", [data]
+        DEBUGF  1, "ftdi: shutdown %x\n", [data]
         mov     ebx, [data]
         cmp     [ebx + ftdi_context.rx_timer], 0
         jz      @f
@@ -1263,14 +1246,137 @@ proc uart_rx stdcall uses ebx esi, data:dword
         ret
 endp
 
-proc ftdi_set_baudrate stdcall uses ebx esi, dev:dword, baud:dword
+proc ftdi_set_baudrate stdcall uses ebx, dev:dword, baud:dword
 locals
 ConfPacket  rb  8
 endl
         mov     ebx, [dev]
-        mov     esi, [baud]
-        call    ftdi_calc_baud_divisor
+        cmp     [ebx + ftdi_context.chipType], TYPE_2232H
+        jl      .c_clk
+        imul    eax, [baud], 10
+        cmp     eax, H_CLK / 0x3FFF
+        jle     .c_clk
+  .h_clk:
+        cmp     dword [baud], H_CLK / 10
+        jl      .h_nextbaud1
+        xor     edx, edx
+        mov     ecx, H_CLK / 10
+        jmp     .calcend
 
+  .c_clk:
+        cmp     dword [baud], C_CLK / 16
+        jl      .c_nextbaud1
+        xor     edx, edx
+        mov     ecx, C_CLK / 16
+        jmp     .calcend
+
+  .h_nextbaud1:
+        cmp     dword [baud], H_CLK / (10 + 10 / 2)
+        jl      .h_nextbaud2
+        mov     edx, 1
+        mov     ecx, H_CLK / (10 + 10 / 2)
+        jmp     .calcend
+
+  .c_nextbaud1:
+        cmp     dword [baud], C_CLK / (16 + 16 / 2)
+        jl      .c_nextbaud2
+        mov     edx, 1
+        mov     ecx, C_CLK/(16 + 16 / 2)
+        jmp     .calcend
+
+  .h_nextbaud2:
+        cmp     dword [baud], H_CLK / (2 * 10)
+        jl      .h_nextbaud3
+        mov     edx, 2
+        mov     ecx, H_CLK / (2 * 10)
+        jmp     .calcend
+
+  .c_nextbaud2:
+        cmp     dword [baud], C_CLK / (2 * 16)
+        jl      .c_nextbaud3
+        mov     edx, 2
+        mov     ecx, C_CLK / (2 * 16)
+        jmp     .calcend
+
+  .h_nextbaud3:
+        mov     eax, H_CLK * 16 / 10 ; eax - best_divisor
+        xor     edx, edx
+        div     dword [baud]
+        push    eax
+        and     eax, 1
+        pop     eax
+        shr     eax, 1
+        jz      .h_rounddowndiv ; jump by result of and eax, 1
+        inc     eax
+  .h_rounddowndiv:
+        cmp     eax, 0x20000
+        jle     .h_best_divok
+        mov     eax, 0x1FFFF
+  .h_best_divok:
+        mov     ecx, eax
+        mov     eax, H_CLK * 16 / 10
+        xor     edx, edx
+        div     ecx
+        xchg    ecx, eax ; ecx - best_baud
+        push    ecx
+        and     ecx, 1
+        pop     ecx
+        shr     ecx, 1
+        jz      .rounddownbaud
+        inc     ecx
+        jmp     .rounddownbaud
+
+  .c_nextbaud3:
+        mov     eax, C_CLK ; eax - best_divisor
+        xor     edx, edx
+        div     dword [baud]
+        push    eax
+        and     eax, 1
+        pop     eax
+        shr     eax, 1
+        jnz     .c_rounddowndiv ; jump by result of and eax, 1
+        inc     eax
+  .c_rounddowndiv:
+        cmp     eax, 0x20000
+        jle     .c_best_divok
+        mov     eax, 0x1FFFF
+  .c_best_divok:
+        mov     ecx, eax
+        mov     eax, C_CLK
+        xor     edx, edx
+        div     ecx
+        xchg    ecx, eax ; ecx - best_baud
+        push    ecx
+        and     ecx, 1
+        pop     ecx
+        shr     ecx, 1
+        jnz     .rounddownbaud
+        inc     ecx
+
+  .rounddownbaud:
+        mov     edx, eax ; edx - encoded_divisor
+        shr     edx, 3
+        and     eax, 0x7
+        push    7 6 5 1 4 2 3 0
+        mov     eax, [esp + eax * 4]
+        shl     eax, 14
+        or      edx, eax
+        add     esp, 32
+
+  .calcend:
+        mov     eax, edx ; eax - *value
+        mov     ecx, edx ; ecx - *index
+        and     eax, 0xFFFF
+        cmp     [ebx + ftdi_context.chipType], TYPE_2232H
+        jge     .foxyindex
+        shr     ecx, 16
+        jmp     .preparepacket
+  .foxyindex:
+        shr     ecx, 8
+        and     ecx, 0xFF00
+        or      ecx, [ebx + ftdi_context.index]
+
+  .preparepacket:
         mov     word [ConfPacket], (FTDI_DEVICE_OUT_REQTYPE) \
                                    + (SIO_SET_BAUDRATE_REQUEST shl 8)
         mov     word [ConfPacket + 2], ax
@@ -1345,9 +1451,10 @@ uart_drv:
         dd      uart_tx
 uart_drv_end:
 
-include_debug_strings
+serial_drv_entry dd 0
 
 data fixups
 end data        
-
-serial_drv_entry dd ?
+        
+;for DEBUGF macro
+include_debug_strings

drivers/usb/usbnet/usbcdc.asm

@@ -2204,9 +2204,6 @@ proc acm_arm_rx
 endp
 
 proc acm_add_device stdcall uses ebx esi edi, .pipe0:dword, .config:dword, .interface:dword
-locals
-        .pinfo rb sizeof.SP_PORT_INFO
-endl
 
 ; 1. Parse the descriptors (the ACM data interface is alt setting 0).
         xor     eax, eax
@@ -2267,12 +2264,7 @@ endl
 
         cmp     [serial_drv_entry], 0
         je      .no_serial
-        mov     dword [.pinfo+SP_PORT_INFO.size], sizeof.SP_PORT_INFO
-        mov     dword [.pinfo+SP_PORT_INFO.driver], acm_port_name
-; TODO obtain iManufacturer, iProduct and iSerial strings
-        mov     dword [.pinfo+SP_PORT_INFO.descr], 0
-        lea     ecx, [.pinfo]
-        stdcall serial_add_port, acm_sp_driver, ebx, ecx
+        stdcall serial_add_port, acm_sp_driver, ebx
         mov     [ebx+acm_dev.PortHandle], eax
         test    eax, eax
         jz      .no_serial
@@ -2660,7 +2652,6 @@ endp
 
 ; strings and static data
 my_service      db      'usbcdc', 0
-acm_port_name   db      'cdc-acm', 0
 netdev_name     db      'USB CDC-NCM', 0
 ecm_netdev_name db      'USB CDC-ECM', 0
 ecm_zlp_dummy   db      0               ; address for zero-length transfers

drivers/usb/usbstor.asm

@@ -1754,14 +1754,8 @@ proc disk_read_write stdcall uses ebx esi edi, \
         mov     eax, [numsectors]
         mov     eax, [eax]
 ; 2. The transfer length for SCSI_{READ,WRITE}10 commands can not be greater
-; than 0xFFFF sectors, but that is not the practical limit: the field size is
-; the only thing the standard bounds, while real sticks hang their firmware on
-; multi-megabyte single commands. The kernel disk cache asks for as much as
-; CACHE_MAX_ALLOC_SIZE (4 MB) in one call, i.e. 8192 sectors, and that is
-; exactly where such sticks stop answering and re-enumerate. Linux caps
-; usb-storage at 240 sectors (120 KB) for the same reason; do the same and
-; split larger requests into slices.
-max_sectors_at_time = 240
+; than 0xFFFF, so split the request to slices with <= 0xFFFF sectors.
+max_sectors_at_time = 0xFFFF
 .split:
         push    eax     ; .length_rest
         cmp     eax, max_sectors_at_time

drivers/usb/xhci/Tupfile.lua

@@ -1,3 +0,0 @@
-if tup.getconfig("NO_FASM") ~= "" then return end
-ROOT = "../../.."
-tup.rule("xhci.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.sys")

drivers/usb/xhci/xhci_context.inc

@@ -1,993 +0,0 @@
-; Device slots, contexts and pipes for the xHCI driver.
-; This file is included from xhci.asm.
-
-; =============================================================================
-; ============================ Context helpers ================================
-; =============================================================================
-
-; Returns the address of one context inside a context structure.
-; in: eax = base of the structure, ecx = index of the context,
-;     esi -> usb_controller.
-; out: eax = address of the context.
-proc xhci_context
-        push    ecx edx
-        mov     edx, [esi+xhci_controller.ContextSize-XCD]
-        imul    edx, ecx
-        add     eax, edx
-        pop     edx ecx
-        ret
-endp
-
-; Zeroes the Input Context. The caller must hold CmdLock.
-; in: esi -> usb_controller.
-proc xhci_clear_input_ctx
-        push    eax ecx edi
-        mov     edi, [esi+xhci_controller.InputCtx-XCD]
-        xor     eax, eax
-        mov     ecx, 33*64/4
-        rep stosd
-        pop     edi ecx eax
-        ret
-endp
-
-; Returns the pipe of the default control endpoint of the same device, which
-; represents the device as a whole.
-; in: ebx -> xhci_pipe. out: eax -> xhci_pipe or 0.
-proc xhci_ctrl_pipe
-        mov     eax, [ebx+xhci_pipe.DevPage]
-        test    eax, eax
-        jz      .nothing
-        mov     eax, [eax+XHCI_PIPES_OFS+1*4]
-        test    eax, eax
-        jz      .nothing
-        sub     eax, sizeof.xhci_pipe
-.nothing:
-        ret
-endp
-
-; Fills the Slot Context of the Input Context from the device description kept
-; in a pipe. The caller must hold CmdLock.
-; in: esi -> usb_controller, ebx -> xhci_pipe describing the device,
-;     ecx = value for the Context Entries field.
-proc xhci_fill_slot_ctx
-        push    eax ecx edx edi
-        mov     eax, [esi+xhci_controller.InputCtx-XCD]
-        push    ecx
-        movi    ecx, 1
-        call    xhci_context
-        pop     ecx
-        mov     edi, eax
-; dword 0: Route String, Speed and Context Entries.
-        mov     eax, [ebx+xhci_pipe.Route]
-        and     eax, 0FFFFFh
-if XHCI_SUPERSPEED
-; A SuperSpeed root-port device carries the raw PORTSC speed identifier;
-; its kernel-visible Speed pretends high-speed and must not get here.
-        mov     edx, [ebx+xhci_pipe.PSIV]
-        test    edx, edx
-        jnz     .havespeed
-end if
-        mov     edx, [ebx+xhci_pipe.Speed]
-        cmp     edx, USB_SPEED_FS
-        jz      .fs
-        cmp     edx, USB_SPEED_LS
-        jz      .ls
-        movi    edx, XHCI_PSI_HS
-        jmp     .havespeed
-.fs:
-        movi    edx, XHCI_PSI_FS
-        jmp     .havespeed
-.ls:
-        movi    edx, XHCI_PSI_LS
-.havespeed:
-        shl     edx, 20
-        or      eax, edx
-        shl     ecx, 27
-        or      eax, ecx
-        mov     [edi], eax
-; dword 1: Root Hub Port Number.
-        mov     eax, [ebx+xhci_pipe.RootPort]
-        shl     eax, 16
-        mov     [edi+4], eax
-; dword 2: the Transaction Translator, if the device is served by one.
-        mov     eax, [ebx+xhci_pipe.TTSlot]
-        test    eax, eax
-        jz      @f
-        mov     edx, [ebx+xhci_pipe.TTPort]
-        shl     edx, 8
-        or      eax, edx
-@@:
-        mov     [edi+8], eax
-        and     dword [edi+12], 0
-        pop     edi edx ecx eax
-        ret
-endp
-
-; Fills the Endpoint Context of the Input Context for the given pipe.
-; The caller must hold CmdLock.
-; in: esi -> usb_controller, ebx -> xhci_pipe.
-proc xhci_fill_ep_ctx
-        push    eax ecx edx edi
-        mov     eax, [esi+xhci_controller.InputCtx-XCD]
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        inc     ecx
-        call    xhci_context
-        mov     edi, eax
-; dword 0: Interval.
-        mov     eax, [ebx+xhci_pipe.Interval]
-        shl     eax, 16
-        mov     [edi], eax
-; dword 1: Error Count, Endpoint Type, Max Burst Size and Max Packet Size.
-        mov     eax, [ebx+xhci_pipe.EpType]
-        shl     eax, 3
-        or      eax, 3 shl 1            ; three retries before giving up
-        mov     edx, [ebx+xhci_pipe.MaxPacket]
-        mov     ecx, edx
-        shr     ecx, 11
-        and     ecx, 3                  ; extra transactions per microframe
-        shl     ecx, 8
-        or      eax, ecx
-if XHCI_SUPERSPEED
-; A SuperSpeed bulk endpoint may allow bursts of several packets; the field
-; shares its bits with the extra-transactions ones, which are zero then.
-        mov     ecx, [ebx+xhci_pipe.MaxBurst]
-        shl     ecx, 8
-        or      eax, ecx
-end if
-        and     edx, 7FFh
-        shl     edx, 16
-        or      eax, edx
-        mov     [edi+4], eax
-; dwords 2 and 3: the TR Dequeue Pointer with the Dequeue Cycle State.
-        mov     eax, [ebx+xhci_pipe.Enqueue]
-        shl     eax, 4
-        add     eax, [ebx+xhci_pipe.RingPhys]
-        or      eax, [ebx+xhci_pipe.Cycle]
-        mov     [edi+8], eax
-        and     dword [edi+12], 0
-; dword 4: Average TRB Length, only a hint for the bandwidth scheduler.
-        mov     eax, [ebx+xhci_pipe.MaxPacket]
-        and     eax, 7FFh
-        cmp     [ebx+xhci_pipe.EpType], XHCI_EP_CONTROL
-        jnz     @f
-        movi    eax, 8
-@@:
-        mov     [edi+16], eax
-        and     dword [edi+20], 0
-        pop     edi edx ecx eax
-        ret
-endp
-
-; =============================================================================
-; ============================== Slot commands ================================
-; =============================================================================
-
-; Issues the Address Device command for a newly created default control pipe.
-; in: esi -> usb_controller, ebx -> xhci_pipe. out: eax = 0 on failure.
-proc xhci_address_device
-        push    ebx ecx edx edi
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexLock
-        call    xhci_clear_input_ctx
-        mov     edx, [esi+xhci_controller.InputCtx-XCD]
-        mov     dword [edx+4], 3        ; add the Slot Context and endpoint zero
-        movi    ecx, 1
-        call    xhci_fill_slot_ctx
-        call    xhci_fill_ep_ctx
-        mov     [ebx+xhci_pipe.MaxDCI], 1
-; Point the DCBAA entry of the slot at the Device Context.
-        mov     eax, [esi+xhci_controller.CommonPage-XCD]
-        mov     ecx, [ebx+xhci_pipe.SlotId]
-        mov     edx, [ebx+xhci_pipe.DevPagePhys]
-        mov     [eax+ecx*8], edx
-        and     dword [eax+ecx*8+4], 0
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, XHCI_TRB_ADDRESS_DEV shl 10
-        mov     eax, [esi+xhci_controller.InputCtxPhys-XCD]
-        push    ebx
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_submit
-        pop     ebx
-        push    eax
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexUnlock
-        pop     eax
-        cmp     eax, XHCI_CC_SUCCESS
-        jz      .ok
-        DEBUGF 1,'K : XHCI: Address Device failed, code %d\n',eax
-        xor     eax, eax
-        jmp     .nothing
-.ok:
-        movi    eax, 1
-.nothing:
-        pop     edi edx ecx ebx
-        ret
-endp
-
-; Issues a Configure Endpoint command that adds the given endpoint.
-; in: esi -> usb_controller, ebx -> xhci_pipe of the endpoint,
-;     edi -> xhci_pipe of the default control endpoint of the same device.
-; out: eax = completion code.
-proc xhci_configure_endpoint
-        push    ebx ecx edx esi edi
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexLock
-        call    xhci_clear_input_ctx
-; Drop the endpoint and add it again, so that reopening an endpoint that has
-; been closed before also works.
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        movi    eax, 1
-        shl     eax, cl
-        mov     edx, [esi+xhci_controller.InputCtx-XCD]
-        mov     [edx], eax
-        or      eax, 1                  ; the Slot Context is always added
-        mov     [edx+4], eax
-        call    xhci_fill_ep_ctx
-; The Context Entries field must cover every endpoint in use by the device.
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        cmp     ecx, [edi+xhci_pipe.MaxDCI]
-        jae     @f
-        mov     ecx, [edi+xhci_pipe.MaxDCI]
-@@:
-        mov     [edi+xhci_pipe.MaxDCI], ecx
-        push    ebx
-        mov     ebx, edi
-        call    xhci_fill_slot_ctx
-        pop     ebx
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, XHCI_TRB_CONFIG_EP shl 10
-        mov     eax, [esi+xhci_controller.InputCtxPhys-XCD]
-        push    ebx
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_submit
-        pop     ebx
-        push    eax
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexUnlock
-        pop     eax
-        pop     edi esi edx ecx ebx
-        ret
-endp
-
-; Tells the controller where the endpoint has to continue from.
-; in: esi -> usb_controller, ebx -> xhci_pipe.
-proc xhci_set_dequeue
-        pushad
-        cmp     [ebx+xhci_pipe.SlotId], 0
-        jz      .nothing
-        mov     eax, [ebx+xhci_pipe.Dequeue]
-        shl     eax, 4
-        add     eax, [ebx+xhci_pipe.RingPhys]
-        or      eax, [ebx+xhci_pipe.Cycle]
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        shl     ecx, 16
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, ecx
-        or      edx, XHCI_TRB_SET_DEQ shl 10
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_sync
-        cmp     eax, XHCI_CC_SUCCESS
-        jz      .nothing
-        DEBUGF 1,'K : XHCI: Set TR Dequeue Pointer failed, code %d\n',eax
-.nothing:
-        popad
-        ret
-endp
-
-; =============================================================================
-; =============================== New device ==================================
-; =============================================================================
-
-; Called from xhci_port_init and from the hub support code when a new device
-; has been connected and reset. Enables a device slot for it and hands it over
-; to the protocol layer.
-; in: esi -> usb_controller, eax = speed. out: eax = 0 on failure.
-proc xhci_new_device
-        push    ebx ecx edx edi
-        mov     [esi+usb_controller.ResettingSpeed], al
-; 1. Reserve room for the pseudo-pipe that describes the new device. Only the
-; fields read by xhci_init_pipe are filled in; the layout matches a real pipe,
-; so the result can be passed to usb_new_device as a usb_pipe pointer.
-        sub     esp, sizeof.xhci_pipe + 4
-        mov     ebx, esp
-        push    ebx
-        mov     edi, ebx
-        xor     eax, eax
-        mov     ecx, (sizeof.xhci_pipe + 4)/4
-        rep stosd
-        pop     ebx
-        mov     [ebx+sizeof.xhci_pipe], esi     ; usb_pipe.Controller
-        movzx   eax, [esi+usb_controller.ResettingSpeed]
-        mov     [ebx+xhci_pipe.Speed], eax
-; 2. Compute the root hub port, the route string and the tier of the device.
-        movzx   edx, [esi+usb_controller.ResettingPort]
-        mov     edi, [esi+usb_controller.ResettingHub]
-        test    edi, edi
-        jnz     .behind_hub
-        mov     eax, [esi+xhci_controller.PortMap-XCD+edx*4]
-        mov     [ebx+xhci_pipe.RootPort], eax
-if XHCI_SUPERSPEED
-        mov     eax, [esi+xhci_controller.ResettingPSIV-XCD]
-        mov     [ebx+xhci_pipe.PSIV], eax
-end if
-        jmp     .have_topology
-.behind_hub:
-; The parent hub is a device too, and its own pipe carries the topology data.
-        mov     eax, [edi+USB_HUB_CONFIGPIPE]
-        sub     eax, sizeof.xhci_pipe
-        mov     ecx, [eax+xhci_pipe.RootPort]
-        mov     [ebx+xhci_pipe.RootPort], ecx
-        mov     ecx, [eax+xhci_pipe.Depth]
-        mov     eax, [eax+xhci_pipe.Route]
-; The route string holds one nibble per tier, at most five of them.
-        cmp     ecx, 5
-        jae     .have_route
-        push    ecx edx
-        shl     ecx, 2
-        inc     edx                     ; the route uses 1-based port numbers
-        cmp     edx, 15
-        jbe     @f
-        movi    edx, 15
-@@:
-        shl     edx, cl
-        or      eax, edx
-        pop     edx ecx
-.have_route:
-        inc     ecx
-        mov     [ebx+xhci_pipe.Depth], ecx
-        mov     [ebx+xhci_pipe.Route], eax
-; 3. Low- and full-speed devices behind a high-speed hub need the address of
-; the Transaction Translator that serves them.
-        cmp     [ebx+xhci_pipe.Speed], USB_SPEED_HS
-        jz      .have_topology
-        push    ebx
-        mov     ecx, edx
-        mov     edx, edi
-        invoke  usbhc_api.usb_get_tt
-        pop     ebx
-        test    edx, edx
-        jz      .have_topology
-        sub     edx, sizeof.xhci_pipe
-        mov     eax, [edx+xhci_pipe.SlotId]
-        mov     [ebx+xhci_pipe.TTSlot], eax
-        inc     ecx
-        mov     [ebx+xhci_pipe.TTPort], ecx
-.have_topology:
-; 4. Ask the controller for a device slot.
-        xor     eax, eax
-        push    ebx
-        xor     ebx, ebx
-        xor     ecx, ecx
-        mov     edx, XHCI_TRB_ENABLE_SLOT shl 10
-        call    xhci_cmd_sync
-        pop     ebx
-        cmp     eax, XHCI_CC_SUCCESS
-        jnz     .fail
-        test    edx, edx
-        jz      .fail
-        mov     [ebx+xhci_pipe.SlotId], edx
-        DEBUGF 1,'K : XHCI new device: slot %d, root port %d, route %x, speed %d\n',edx,[ebx+xhci_pipe.RootPort],[ebx+xhci_pipe.Route],[ebx+xhci_pipe.Speed]
-; 5. Hand the device over to the protocol layer. It opens the pipe of the
-; default control endpoint, and that is where the slot is really addressed.
-        lea     ecx, [ebx+sizeof.xhci_pipe]
-        invoke  usbhc_api.usb_new_device
-        test    eax, eax
-        jnz     .done
-; 6. The protocol layer has failed; release the slot again.
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, XHCI_TRB_DISABLE_SLOT shl 10
-        xor     eax, eax
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_sync
-        xor     eax, eax
-        jmp     .done
-.fail:
-        dbgstr 'XHCI: Enable Slot failed'
-        xor     eax, eax
-.done:
-        add     esp, sizeof.xhci_pipe + 4
-        pop     edi edx ecx ebx
-        ret
-endp
-
-; =============================================================================
-; ================================= Pipes =====================================
-; =============================================================================
-
-proc xhci_alloc_pipe
-        push    ebx ecx edi
-        mov     ebx, xhci_ep_mutex
-        invoke  usbhc_api.usb_allocate_common, sizeof.xhci_pipe + sizeof.usb_pipe
-        test    eax, eax
-        jz      @f
-; Zero the whole block: the kernel may call FreePipe for a pipe whose InitPipe
-; has never run, and that path must not act on garbage.
-        mov     edi, eax
-        push    eax
-        xor     eax, eax
-        movi    ecx, (sizeof.xhci_pipe + sizeof.usb_pipe + 3)/4
-        rep stosd
-        pop     eax
-        add     eax, sizeof.xhci_pipe
-@@:
-        pop     edi ecx ebx
-        ret
-endp
-
-proc xhci_free_pipe stdcall, ptr:dword
-        push    ebx esi edi
-        mov     ebx, [ptr]
-        sub     ebx, sizeof.xhci_pipe
-        mov     esi, [ebx+sizeof.xhci_pipe+usb_pipe.Controller]
-        test    esi, esi
-        jz      .free
-        cmp     [ebx+xhci_pipe.SlotId], 0
-        jz      .drop_pipe
-        cmp     [ebx+xhci_pipe.DCI], 1
-        jnz     .drop_pipe
-; This is the default control endpoint, that is, the handle of the whole
-; device: release the slot together with the per-device page.
-        mov     ecx, [ebx+xhci_pipe.SlotId]
-        mov     edx, ecx
-        shl     edx, 24
-        or      edx, XHCI_TRB_DISABLE_SLOT shl 10
-        xor     eax, eax
-        push    ebx
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_sync
-        pop     ebx
-; The controller may access the Device Context until the command above
-; completes, so only now may the DCBAA entry and the slot table forget it.
-        mov     ecx, [ebx+xhci_pipe.SlotId]
-        mov     edi, [esi+xhci_controller.CommonPage-XCD]
-        and     dword [edi+ecx*8], 0
-        and     dword [edi+ecx*8+4], 0
-        and     [esi+xhci_controller.SlotPages-XCD+ecx*4], 0
-        mov     eax, [ebx+xhci_pipe.DevPage]
-        test    eax, eax
-        jz      .drop_ring
-        invoke  KernelFree, eax
-        and     [ebx+xhci_pipe.DevPage], 0
-        jmp     .drop_ring
-.drop_pipe:
-; Remove the pipe from the per-device table, if it is still listed there.
-; On disconnect the kernel releases the pipes of a device in arbitrary order,
-; and the pipe of the default control endpoint - the owner of the per-device
-; page - may well be freed before this one, taking the page with it. The
-; authoritative pointer is the one in SlotPages: it is cleared when the slot
-; is released, so it can never point to freed memory.
-        mov     ecx, [ebx+xhci_pipe.SlotId]
-        test    ecx, ecx
-        jz      .drop_ring
-        mov     eax, [esi+xhci_controller.SlotPages-XCD+ecx*4]
-        test    eax, eax
-        jz      .drop_ring
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        cmp     ecx, 32
-        jae     .drop_ring
-        and     dword [eax+XHCI_PIPES_OFS+ecx*4], 0
-.drop_ring:
-        mov     eax, [ebx+xhci_pipe.Ring]
-        test    eax, eax
-        jz      @f
-        invoke  KernelFree, eax
-        and     [ebx+xhci_pipe.Ring], 0
-@@:
-        mov     eax, [ebx+xhci_pipe.RingMap]
-        test    eax, eax
-        jz      .free
-        invoke  KernelFree, eax
-        and     [ebx+xhci_pipe.RingMap], 0
-.free:
-        pop     edi esi ebx
-        mov     eax, [ptr]
-        sub     eax, sizeof.xhci_pipe
-        invoke  usbhc_api.usb_free_common, eax
-        ret
-endp
-
-; Allocates the transfer ring of a pipe.
-; in: ebx -> xhci_pipe. out: eax = 0 on failure.
-proc xhci_alloc_ring
-        push    ecx edx
-        call    xhci_alloc_page
-        test    eax, eax
-        jz      .nothing
-        mov     [ebx+xhci_pipe.RingMap], eax
-        call    xhci_alloc_page
-        test    eax, eax
-        jnz     @f
-        invoke  KernelFree, [ebx+xhci_pipe.RingMap]
-        and     [ebx+xhci_pipe.RingMap], 0
-        xor     eax, eax
-        jmp     .nothing
-@@:
-        mov     [ebx+xhci_pipe.Ring], eax
-        mov     [ebx+xhci_pipe.RingPhys], edx
-; The last entry returns to the beginning of the ring and toggles the cycle.
-        lea     ecx, [eax+(XHCI_RING_TRBS-1)*16]
-        mov     [ecx], edx
-        mov     dword [ecx+12], (XHCI_TRB_LINK shl 10) + XHCI_TRB_TC
-        and     [ebx+xhci_pipe.Enqueue], 0
-        and     [ebx+xhci_pipe.Dequeue], 0
-        and     [ebx+xhci_pipe.Reserved], 0
-        and     [ebx+xhci_pipe.FirstFix], 0
-        mov     [ebx+xhci_pipe.Cycle], XHCI_TRB_C
-        movi    eax, 1
-.nothing:
-        pop     edx ecx
-        ret
-endp
-
-; Stores the pipe in the per-device table used by the event ring handler.
-; in: ebx -> xhci_pipe.
-proc xhci_register_pipe
-        push    eax ecx edx
-        mov     eax, [ebx+xhci_pipe.DevPage]
-        test    eax, eax
-        jz      @f
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        cmp     ecx, 32
-        jae     @f
-        lea     edx, [ebx+sizeof.xhci_pipe]
-        mov     [eax+XHCI_PIPES_OFS+ecx*4], edx
-@@:
-        pop     edx ecx eax
-        ret
-endp
-
-; Computes the Interval field of the Endpoint Context of an interrupt endpoint.
-; The kernel passes bInterval from the endpoint descriptor: for high-speed
-; devices it is an exponent of 125 us periods, for low- and full-speed devices
-; it is a number of frames.
-; in: ebx -> xhci_pipe, eax = bInterval.
-proc xhci_calc_interval
-        push    eax ecx
-        cmp     [ebx+xhci_pipe.Speed], USB_SPEED_HS
-        jnz     .low_speed
-        test    eax, eax
-        jz      @f
-        dec     eax
-@@:
-        jmp     .clamp
-.low_speed:
-; One frame equals eight periods of 125 us, hence the offset of three.
-        test    eax, eax
-        jnz     @f
-        movi    eax, 1
-@@:
-        bsr     ecx, eax
-        lea     eax, [ecx+3]
-.clamp:
-        cmp     eax, 15
-        jbe     @f
-        movi    eax, 15
-@@:
-        mov     [ebx+xhci_pipe.Interval], eax
-        pop     ecx eax
-        ret
-endp
-
-; Called from usb_open_pipe.
-; in: edi -> usb_pipe for the target, ecx -> usb_pipe of the config pipe,
-;     esi -> usb_controller, eax -> usb_gtd of the first descriptor,
-;     [ebp+12] = endpoint, [ebp+16] = maxpacket, [ebp+20] = type,
-;     [ebp+24] = interval.
-; out: eax = 0 on failure.
-proc xhci_init_pipe
-virtual at ebp+8
-.config_pipe    dd      ?
-.endpoint       dd      ?
-.maxpacket      dd      ?
-.type           dd      ?
-.interval       dd      ?
-end virtual
-        push    ebx
-        sub     edi, sizeof.xhci_pipe
-        sub     ecx, sizeof.xhci_pipe
-        mov     ebx, edi                ; ebx -> xhci_pipe being initialized
-; 1. Copy the description of the device from the config pipe.
-        mov     eax, [ecx+xhci_pipe.SlotId]
-        mov     [ebx+xhci_pipe.SlotId], eax
-        mov     eax, [ecx+xhci_pipe.DevPage]
-        mov     [ebx+xhci_pipe.DevPage], eax
-        mov     eax, [ecx+xhci_pipe.DevPagePhys]
-        mov     [ebx+xhci_pipe.DevPagePhys], eax
-        mov     eax, [ecx+xhci_pipe.Speed]
-        mov     [ebx+xhci_pipe.Speed], eax
-        mov     eax, [ecx+xhci_pipe.RootPort]
-        mov     [ebx+xhci_pipe.RootPort], eax
-        mov     eax, [ecx+xhci_pipe.Route]
-        mov     [ebx+xhci_pipe.Route], eax
-        mov     eax, [ecx+xhci_pipe.Depth]
-        mov     [ebx+xhci_pipe.Depth], eax
-        mov     eax, [ecx+xhci_pipe.TTSlot]
-        mov     [ebx+xhci_pipe.TTSlot], eax
-        mov     eax, [ecx+xhci_pipe.TTPort]
-        mov     [ebx+xhci_pipe.TTPort], eax
-if XHCI_SUPERSPEED
-        mov     eax, [ecx+xhci_pipe.PSIV]
-        mov     [ebx+xhci_pipe.PSIV], eax
-end if
-; 2. Work out the Device Context Index and the endpoint type.
-        mov     eax, [.endpoint]
-        test    eax, eax
-        jz      .control_ep
-        mov     ecx, eax
-        and     ecx, 15
-        add     ecx, ecx
-        test    al, 80h
-        jz      @f
-        inc     ecx
-        or      [ebx+xhci_pipe.Flags], XHCI_PIPE_IN
-@@:
-        mov     [ebx+xhci_pipe.DCI], ecx
-        mov     eax, [.type]
-        cmp     eax, BULK_PIPE
-        jz      .bulk
-        cmp     eax, INTERRUPT_PIPE
-        jz      .interrupt
-; A control endpoint other than endpoint zero is unusual but legal.
-        mov     [ebx+xhci_pipe.EpType], XHCI_EP_CONTROL
-        jmp     .have_type
-.bulk:
-        movi    eax, XHCI_EP_BULK_OUT
-        test    [ebx+xhci_pipe.Flags], XHCI_PIPE_IN
-        jz      @f
-        movi    eax, XHCI_EP_BULK_IN
-@@:
-        mov     [ebx+xhci_pipe.EpType], eax
-        jmp     .have_type
-.interrupt:
-        movi    eax, XHCI_EP_INT_OUT
-        test    [ebx+xhci_pipe.Flags], XHCI_PIPE_IN
-        jz      @f
-        movi    eax, XHCI_EP_INT_IN
-@@:
-        mov     [ebx+xhci_pipe.EpType], eax
-        mov     eax, [.interval]
-        call    xhci_calc_interval
-.have_type:
-        mov     eax, [.maxpacket]
-        mov     [ebx+xhci_pipe.MaxPacket], eax
-if XHCI_SUPERSPEED
-        call    xhci_ss_get_burst
-end if
-        jmp     .alloc_ring
-.control_ep:
-; The default control endpoint always has index one. Until the real packet size
-; is known from the device descriptor, use the value the specification requires
-; for the speed of the device: the kernel asks for 64 regardless of the speed,
-; which is wrong for low- and full-speed devices.
-        mov     [ebx+xhci_pipe.DCI], 1
-        mov     [ebx+xhci_pipe.EpType], XHCI_EP_CONTROL
-        movi    eax, 64
-        cmp     [ebx+xhci_pipe.Speed], USB_SPEED_HS
-        jz      @f
-        movi    eax, 8
-@@:
-if XHCI_SUPERSPEED
-; A SuperSpeed device always uses 512 bytes on the default control endpoint.
-        cmp     [ebx+xhci_pipe.PSIV], XHCI_PSI_SS
-        jb      @f
-        mov     eax, 512
-@@:
-end if
-        mov     [ebx+xhci_pipe.MaxPacket], eax
-.alloc_ring:
-; 3. Allocate the transfer ring.
-        call    xhci_alloc_ring
-        test    eax, eax
-        jz      .fail
-; 4. Choose the software list the pipe belongs to and insert it there. The
-; hardware knows nothing about these lists; they exist only so that the kernel
-; can walk all pipes and reinsert an aborted one.
-        lea     edx, [esi+xhci_controller.ControlED-XCD]
-        cmp     [.type], BULK_PIPE
-        jb      @f
-        lea     edx, [esi+xhci_controller.BulkED-XCD]
-        jz      @f
-        lea     edx, [esi+xhci_controller.IntED-XCD]
-@@:
-        lea     edi, [ebx+sizeof.xhci_pipe]
-        mov     [edi+usb_pipe.BaseList], edx
-        mov     ecx, [edx+usb_pipe.NextVirt]
-        mov     [edi+usb_pipe.NextVirt], ecx
-        mov     [edi+usb_pipe.PrevVirt], edx
-        mov     [ecx+usb_pipe.PrevVirt], edi
-        mov     [edx+usb_pipe.NextVirt], edi
-; 5. Now do the hardware part.
-        cmp     [.endpoint], 0
-        jz      .address_device
-        call    xhci_register_pipe
-        mov     edi, [.config_pipe]
-        sub     edi, sizeof.xhci_pipe
-        call    xhci_configure_endpoint
-        xhci_trace 'K : XHCI open pipe: slot %d dci %d\n', [ebx+xhci_pipe.SlotId], [ebx+xhci_pipe.DCI]
-        cmp     eax, XHCI_CC_SUCCESS
-        jz      .success
-        DEBUGF 1,'K : XHCI: Configure Endpoint failed, code %d\n',eax
-        jmp     .unlink_fail
-.address_device:
-; 6. This is a new device: allocate its Device Context, publish the slot and
-; let the controller give the device a bus address.
-        call    xhci_alloc_page
-        test    eax, eax
-        jz      .unlink_fail
-        mov     [ebx+xhci_pipe.DevPage], eax
-        mov     [ebx+xhci_pipe.DevPagePhys], edx
-        mov     ecx, [ebx+xhci_pipe.SlotId]
-        mov     [esi+xhci_controller.SlotPages-XCD+ecx*4], eax
-        call    xhci_register_pipe
-        call    xhci_address_device
-        test    eax, eax
-        jz      .free_devpage
-.success:
-; usb_open_pipe keeps the pointer to the new pipe in edi across this call, so
-; it has to be handed back untouched; the branch above has overwritten it with
-; the pipe of the default control endpoint.
-        lea     edi, [ebx+sizeof.xhci_pipe]
-        pop     ebx
-        movi    eax, 1
-        ret
-.free_devpage:
-        mov     ecx, [ebx+xhci_pipe.SlotId]
-        and     [esi+xhci_controller.SlotPages-XCD+ecx*4], 0
-        mov     eax, [ebx+xhci_pipe.DevPage]
-        invoke  KernelFree, eax
-        and     [ebx+xhci_pipe.DevPage], 0
-.unlink_fail:
-; Undo the insertion into the software list before failing.
-        lea     edi, [ebx+sizeof.xhci_pipe]
-        mov     eax, [edi+usb_pipe.NextVirt]
-        mov     edx, [edi+usb_pipe.PrevVirt]
-        mov     [eax+usb_pipe.PrevVirt], edx
-        mov     [edx+usb_pipe.NextVirt], eax
-.fail:
-        lea     edi, [ebx+sizeof.xhci_pipe]
-        pop     ebx
-        xor     eax, eax
-        ret
-endp
-
-; Removes the pipe from the hardware configuration of the device.
-; in: esi -> usb_controller, ebx -> usb_pipe.
-proc xhci_unlink_pipe
-        pushad
-        sub     ebx, sizeof.xhci_pipe
-        cmp     [ebx+xhci_pipe.SlotId], 0
-        jz      .nothing
-        cmp     [ebx+xhci_pipe.DCI], 1
-        jz      .nothing        ; the slot itself is released by FreePipe
-        call    xhci_ctrl_pipe
-        test    eax, eax
-        jz      .nothing
-        mov     edi, eax                ; edi -> pipe of endpoint zero
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexLock
-        call    xhci_clear_input_ctx
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        movi    eax, 1
-        shl     eax, cl
-        mov     edx, [esi+xhci_controller.InputCtx-XCD]
-        mov     [edx], eax              ; drop this endpoint
-        mov     dword [edx+4], 1        ; keep the Slot Context
-        mov     ecx, [edi+xhci_pipe.MaxDCI]
-        test    ecx, ecx
-        jnz     @f
-        movi    ecx, 1
-@@:
-        push    ebx
-        mov     ebx, edi
-        call    xhci_fill_slot_ctx
-        pop     ebx
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, XHCI_TRB_CONFIG_EP shl 10
-        mov     eax, [esi+xhci_controller.InputCtxPhys-XCD]
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_submit
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexUnlock
-.nothing:
-        popad
-        ret
-endp
-
-; Temporarily removes the pipe from the hardware schedule.
-; in: esi -> usb_controller, ebx -> usb_pipe.
-proc xhci_disable_pipe
-        pushad
-        sub     ebx, sizeof.xhci_pipe
-        cmp     [ebx+xhci_pipe.SlotId], 0
-        jz      .nothing
-        mov     ecx, [ebx+xhci_pipe.DCI]
-        shl     ecx, 16
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, ecx
-        or      edx, XHCI_TRB_STOP_EP shl 10
-        xor     eax, eax
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_sync
-.nothing:
-        popad
-        ret
-endp
-
-; Reinserts the pipe into the hardware schedule after xhci_disable_pipe, with
-; an empty transfer queue.
-; in: esi -> usb_controller, ebx -> usb_pipe,
-;     edx -> current descriptor, eax -> new last descriptor.
-proc xhci_enable_pipe
-        pushad
-        sub     ebx, sizeof.xhci_pipe
-        mov     eax, [ebx+xhci_pipe.Ring]
-        test    eax, eax
-        jz      .nothing
-; The queue is empty now, so the ring can be restarted from its beginning.
-        mov     edi, eax
-        xor     eax, eax
-        mov     ecx, 0x1000/4
-        rep stosd
-        mov     edi, [ebx+xhci_pipe.RingMap]
-        mov     ecx, 0x1000/4
-        rep stosd
-        mov     edi, [ebx+xhci_pipe.Ring]
-        add     edi, (XHCI_RING_TRBS-1)*16
-        mov     eax, [ebx+xhci_pipe.RingPhys]
-        mov     [edi], eax
-        mov     dword [edi+12], (XHCI_TRB_LINK shl 10) + XHCI_TRB_TC
-        and     [ebx+xhci_pipe.Enqueue], 0
-        and     [ebx+xhci_pipe.Dequeue], 0
-        and     [ebx+xhci_pipe.Reserved], 0
-        and     [ebx+xhci_pipe.FirstFix], 0
-        mov     [ebx+xhci_pipe.Cycle], XHCI_TRB_C
-        call    xhci_set_dequeue
-.nothing:
-        popad
-        ret
-endp
-
-; =============================================================================
-; ========================== Address and packet size ==========================
-; =============================================================================
-
-; Called from usb_set_address_callback. The bus address is chosen by the
-; controller itself while executing the Address Device command, so the only
-; thing left to do is to remember the number the kernel has reserved: it asks
-; for it back on disconnect in order to mark it free again.
-; in: esi -> usb_controller, ebx -> usb_pipe, cl = address.
-proc xhci_set_device_address
-        movzx   eax, cl
-        mov     [ebx+xhci_pipe.Address-sizeof.xhci_pipe], eax
-        jmp     [usbhc_api.usb_subscribe_control]
-endp
-
-; in: esi -> usb_controller, ebx -> usb_pipe. out: eax = address.
-proc xhci_get_device_address
-        mov     eax, [ebx+xhci_pipe.Address-sizeof.xhci_pipe]
-        ret
-endp
-
-; Called from usb_get_descr8_callback once the real packet size of the default
-; control endpoint is known. On xHCI that value lives in the Endpoint Context,
-; so an Evaluate Context command is needed to update it.
-; in: esi -> usb_controller, ebx -> usb_pipe, ecx = packet size.
-proc xhci_set_endpoint_packet_size
-        push    ebx ecx edx edi
-        sub     ebx, sizeof.xhci_pipe
-if XHCI_SUPERSPEED
-; For a SuperSpeed device bMaxPacketSize0 is an exponent, and the only value
-; the specification allows is 9: use 512 directly instead of the raw byte.
-        cmp     [ebx+xhci_pipe.PSIV], XHCI_PSI_SS
-        jb      @f
-        mov     ecx, 512
-@@:
-end if
-        mov     [ebx+xhci_pipe.MaxPacket], ecx
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexLock
-        call    xhci_clear_input_ctx
-        mov     edx, [esi+xhci_controller.InputCtx-XCD]
-        mov     dword [edx+4], 2        ; evaluate the default control endpoint
-        call    xhci_fill_ep_ctx
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, XHCI_TRB_EVAL_CTX shl 10
-        mov     eax, [esi+xhci_controller.InputCtxPhys-XCD]
-        push    ebx
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_submit
-        pop     ebx
-        cmp     eax, XHCI_CC_SUCCESS
-        jz      @f
-        DEBUGF 1,'K : XHCI: Evaluate Context failed, code %d\n',eax
-@@:
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexUnlock
-        pop     edi edx ecx ebx
-        jmp     [usbhc_api.usb_subscribe_control]
-endp
-
-; If the descriptor that has just completed is the answer to a request for the
-; hub descriptor, tell the controller that the device is a hub: it has to know
-; that in order to serve the devices behind it.
-; in: ebx -> usb_gtd.
-proc xhci_check_hub_descriptor
-        pushad
-        cmp     [ebx+usb_gtd.Callback], 0
-        jz      .nothing
-        mov     eax, [ebx+usb_gtd.Pipe]
-        mov     esi, [eax+usb_pipe.Controller]
-        sub     eax, sizeof.xhci_pipe
-        test    [eax+xhci_pipe.Flags], XHCI_PIPE_HUBPEND
-        jz      .nothing
-        and     [eax+xhci_pipe.Flags], not XHCI_PIPE_HUBPEND
-        cmp     [ebx+xhci_gtd.Status-sizeof.xhci_gtd], XHCI_CC_SUCCESS
-        jnz     .nothing
-        mov     edx, [eax+xhci_pipe.HubBuf]
-        test    edx, edx
-        jz      .nothing
-        cmp     byte [edx+1], 29h       ; bDescriptorType
-        jnz     .nothing
-        or      [eax+xhci_pipe.Flags], XHCI_PIPE_ISHUB
-        mov     ebx, eax                ; ebx -> xhci_pipe of the hub
-        movzx   edi, byte [edx+2]       ; bNbrPorts
-        movzx   ebp, byte [edx+3]       ; low byte of wHubCharacteristics
-        shr     ebp, 5
-        and     ebp, 3                  ; Transaction Translator Think Time
-        DEBUGF 1,'K : XHCI: device on slot %d is a hub with %d ports\n',[ebx+xhci_pipe.SlotId],edi
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexLock
-        call    xhci_clear_input_ctx
-        mov     eax, [esi+xhci_controller.InputCtx-XCD]
-        mov     dword [eax+4], 1        ; only the Slot Context is evaluated
-        mov     ecx, [ebx+xhci_pipe.MaxDCI]
-        test    ecx, ecx
-        jnz     @f
-        movi    ecx, 1
-@@:
-        call    xhci_fill_slot_ctx
-; Patch the Slot Context with the fields that describe a hub. Only Configure
-; Endpoint takes them into account, Evaluate Context would ignore them.
-        mov     eax, [esi+xhci_controller.InputCtx-XCD]
-        movi    ecx, 1
-        call    xhci_context
-        or      dword [eax], 1 shl 26   ; this device is a hub
-        cmp     [ebx+xhci_pipe.Speed], USB_SPEED_HS
-        jnz     @f
-        shl     ebp, 16
-        or      [eax+8], ebp
-@@:
-        shl     edi, 24
-        or      [eax+4], edi            ; Number of Ports
-        mov     edx, [ebx+xhci_pipe.SlotId]
-        shl     edx, 24
-        or      edx, XHCI_TRB_CONFIG_EP shl 10
-        mov     eax, [esi+xhci_controller.InputCtxPhys-XCD]
-        xor     ebx, ebx
-        xor     ecx, ecx
-        call    xhci_cmd_submit
-        cmp     eax, XHCI_CC_SUCCESS
-        jz      @f
-        DEBUGF 1,'K : XHCI: cannot mark the device as a hub, code %d\n',eax
-@@:
-        lea     ecx, [esi+xhci_controller.CmdLock-XCD]
-        invoke  MutexUnlock
-.nothing:
-        popad
-        ret
-endp

drivers/usb/xhci/xhci_ss.inc

@@ -1,135 +0,0 @@
-; SuperSpeed support for the xHCI driver, included from xhci.asm when
-; XHCI_SUPERSPEED is enabled. The pieces too small to live here - the port
-; map, the Slot Context speed, the 512-byte default control endpoint, the
-; Max Burst field of the Endpoint Context - sit in the other files under
-; "if XHCI_SUPERSPEED" guards; this file keeps the self-contained procedures.
-;
-; The kernel USB stack knows nothing about SuperSpeed, so it never learns
-; about it: a SuperSpeed device is announced as a high-speed one, which also
-; keeps the Transaction Translator logic away from it. The raw PORTSC speed
-; identifier travels in xhci_pipe.PSIV instead and reaches everything that
-; really needs it. SuperSpeed hubs are not supported: the kernel only speaks
-; the USB2 hub protocol, so a device behind a USB3 hub is served by the USB2
-; half of that hub at high speed.
-
-; =============================================================================
-; ============================ SuperSpeed ports ===============================
-; =============================================================================
-
-; Called from xhci_new_port for a SuperSpeed root port instead of the USB2
-; reset entry point: a SuperSpeed link trains itself and the port enables
-; itself on connect, reporting the speed with no reset at all. When the link
-; is already up, skip straight to the reset recovery stage, after which
-; xhci_port_init picks the device up; otherwise try a warm reset.
-; in: esi -> usb_controller, ecx = port index.
-proc xhci_ss_start_port
-        push    eax edx
-        and     [esi+usb_controller.ResettingHub], 0
-        mov     [esi+usb_controller.ResettingPort], cl
-        push    ecx
-        invoke  GetTimerTicks
-        pop     ecx
-        mov     [esi+usb_controller.ResetTime], eax
-        mov     [esi+xhci_controller.ResetStart-XCD], eax
-        call    xhci_port_reg
-        mov     eax, [edx]
-        test    al, XHCI_PORT_PED
-        jz      .warm_reset
-        mov     [esi+usb_controller.ResettingStatus], 2
-        DEBUGF 1,'K : XHCI %x: SS port %d link is up, PORTSC=%x\n',esi,ecx,eax
-        jmp     .nothing
-.warm_reset:
-; Connected, but the link has not come up. The Port Reset bit is set while a
-; warm reset is running, so the ordinary reset-wait machinery in
-; xhci_port_reset_done serves this case unchanged; the extra WRC change bit is
-; acknowledged there together with the usual ones.
-        mov     dword [edx], XHCI_PORT_PP + XHCI_PORT_WPR
-        mov     [esi+usb_controller.ResettingStatus], 1
-        DEBUGF 1,'K : XHCI %x: warm-resetting port %d, PORTSC=%x\n',esi,ecx,eax
-.nothing:
-        pop     edx eax
-        ret
-endp
-
-; The kernel restarts pending root ports through the NewPortReset entry of
-; usb_hardware_func directly, bypassing xhci_new_port; SuperSpeed ports must
-; not get the USB2 reset on that path either, so the entry points here.
-; in: esi -> usb_controller, ecx = port index.
-proc xhci_ss_port_reset
-        bt      [esi+xhci_controller.SSPortMask-XCD], ecx
-        jnc     xhci_new_port.reset
-        call    xhci_ss_start_port
-        ret
-endp
-
-; =============================================================================
-; ===================== Endpoint Companion descriptors ========================
-; =============================================================================
-
-; Reads the SuperSpeed Endpoint Companion descriptor of a bulk endpoint and
-; keeps its bMaxBurst for the Endpoint Context, allowing bursts of up to
-; bMaxBurst+1 packets per transaction. Zero (no bursts) is always legal, so
-; any failure just leaves the field alone. Only bulk endpoints are considered:
-; a nonzero burst on a periodic endpoint would also require the Max ESIT
-; Payload fields, and real interrupt endpoints do not burst anyway.
-; Relies on the stack frame of usb_open_pipe exactly like xhci_init_pipe does:
-; [ebp+8] is the config pipe of the device.
-; in: ebx -> xhci_pipe of a non-control endpoint being opened.
-proc xhci_ss_get_burst
-        push    eax ecx edx edi
-; 1. Only SuperSpeed bulk endpoints are of interest.
-        cmp     [ebx+xhci_pipe.PSIV], XHCI_PSI_SS
-        jb      .nothing
-        mov     eax, [ebx+xhci_pipe.EpType]
-        and     al, 3
-        cmp     al, 2                   ; bulk endpoint types are 2 and 6
-        jnz     .nothing
-; 2. Find the configuration data kept by the kernel behind the device
-; descriptor; it holds the endpoint descriptors with their companions.
-        mov     eax, [ebp+8]
-        mov     eax, [eax+usb_pipe.DeviceData]
-        test    eax, eax
-        jz      .nothing
-        movzx   edx, [eax+usb_device_data.DeviceDescrSize]
-        mov     edi, [eax+usb_device_data.ConfigDataSize]
-        lea     ecx, [eax+edx+usb_device_data.DeviceDescriptor]
-        add     edi, ecx                ; edi -> end of the configuration data
-; 3. Reconstruct bEndpointAddress from the Device Context Index.
-        mov     edx, [ebx+xhci_pipe.DCI]
-        shr     edx, 1
-        test    [ebx+xhci_pipe.Flags], XHCI_PIPE_IN
-        jz      @f
-        or      dl, 80h
-@@:
-; 4. Walk the descriptors to the one of this endpoint.
-.walk:
-        lea     eax, [ecx+2]
-        cmp     eax, edi
-        ja      .nothing
-        movzx   eax, byte [ecx]         ; bLength
-        test    eax, eax
-        jz      .nothing                ; malformed data, stop
-        cmp     byte [ecx+1], 5         ; an endpoint descriptor?
-        jnz     .advance
-        cmp     [ecx+2], dl             ; bEndpointAddress
-        jnz     .advance
-; 5. The companion descriptor (type 30h) immediately follows its endpoint.
-        add     ecx, eax
-        lea     eax, [ecx+3]
-        cmp     eax, edi
-        ja      .nothing
-        cmp     byte [ecx+1], 30h       ; SuperSpeed Endpoint Companion
-        jnz     .nothing
-        movzx   eax, byte [ecx+2]       ; bMaxBurst
-        cmp     eax, 15
-        ja      .nothing
-        mov     [ebx+xhci_pipe.MaxBurst], eax
-        DEBUGF 1,'K : XHCI: slot %d dci %d bursts %d+1 packets\n',[ebx+xhci_pipe.SlotId],[ebx+xhci_pipe.DCI],eax
-        jmp     .nothing
-.advance:
-        add     ecx, eax
-        jmp     .walk
-.nothing:
-        pop     edi edx ecx eax
-        ret
-endp

kernel/trunk/blkdev/disk.inc

@@ -842,7 +842,8 @@ disk_scan_partitions:
         cmp     ebx, mbr_buffer
         jz      .release_partition_buffer
 ; 15b. If we have allocated it, free it.
-        stdcall kernel_free, ebx
+        xchg    eax, ebx
+        call    free
         jmp     .nothing
 ; 15c. Otherwise, release reference.
 .release_partition_buffer:
@@ -1488,31 +1489,19 @@ dyndisk_handler:
 ; 12. The fs operation has specified some partition.
         push    edx ecx
         xor     eax, eax
-        mov     ecx, eax
         lodsb
-@@:
-        lea     ecx, [ecx*4 + ecx]
-        shl     ecx, 1
-
         sub     eax, '0'
-        jb      .dyndisk_cleanup
+        jz      .dyndisk_cleanup
         cmp     eax, 10
         jnc     .dyndisk_cleanup
-
-        add     ecx, eax
-        cmp     ecx, MAX_NUM_PARTITIONS
-        ja      .dyndisk_cleanup
-
+        mov     ecx, eax
         lodsb
         cmp     eax, '/'
         jz      @f
         test    eax, eax
-        jnz     @b
+        jnz     .dyndisk_cleanup
         dec     esi
 @@:
-        test    ecx, ecx
-        jz      .dyndisk_cleanup
-
         cmp     byte [esi], 0
         jnz     @f
         ;  partition  info

kernel/trunk/const.inc

@@ -183,8 +183,6 @@ EFLAGS_ID      =    0x200000  ; id flag
 IRQ_PIC        =    0
 IRQ_APIC       =    1
 
-IO_MAP_SIZE    =    65536/8 ; 8192 or 2 PAGE_SIZE
-
 struct  TSS
         _back       rw 2
         _esp0       rd 1
@@ -292,9 +290,6 @@ sys_proc            = OS_BASE + 0x008E000
 
 SLOT_BASE           = OS_BASE + 0x0090000
 
-APPDATA_IDLE_THREAD = SLOT_BASE + sizeof.APPDATA*1 ; poiner to IDLE thread
-APPDATA_OS_THREAD   = SLOT_BASE + sizeof.APPDATA*2 ; poiner to OS thread
-
 VGABasePtr          = OS_BASE + 0x00A0000
 
 virtual at            OS_BASE + 0x05FFF80
@@ -575,7 +570,7 @@ struct  APPDATA
         ipc_start       dd ?            ;+160
         ipc_size        dd ?            ;+164
         occurred_events dd ?            ;+168  ; mask which accumulates occurred events
-        debugger_thread dd ?            ;+172  ; pointer to APPDATA or 0
+        debugger_slot   dd ?            ;+172  ; index in SLOT_BASE array
         terminate_protection dd ?       ;+176
         keyboard_mode   db ?            ;+180
                         rb 3

kernel/trunk/core/debug.inc

@@ -8,8 +8,8 @@
 
 ; diamond, 2006
 sys_debug_services:
-        cmp     ebx, sys_debug_services_table.count
-        jae     @f
+        cmp     ebx, 9
+        ja      @f
         jmp     dword [sys_debug_services_table + ebx*4]
 @@:
         ret
@@ -26,9 +26,7 @@ sys_debug_services_table:
         dd      debug_write_process_memory
         dd      debug_terminate
         dd      debug_set_drx
-.count  = ($ - sys_debug_services_table)/4
 endg
-
 debug_set_event_data:
 ; in: ecx = pointer
 ; destroys eax
@@ -36,20 +34,22 @@ debug_set_event_data:
         mov     [eax + APPDATA.dbg_event_mem], ecx
         ret
 
-get_debuggee_thread:
+get_debuggee_slot:
 ; in: ecx=PID
 ; out: CF=1 if error
-;      CF=0 and eax = pointer to APPDATA if ok
+;      CF=0 and eax=slot*0x20 if ok
 ; out: interrupts disabled
         cli
         mov     eax, ecx
-        call    pid_to_thread
+        call    pid_to_slot
+        ;call     pid_to_appdata
         test    eax, eax
         jz      .ret_bad
-
+        shl     eax, BSF sizeof.APPDATA
         push    ebx
-        mov     ebx, [current_slot]
-        cmp     [eax + APPDATA.debugger_thread], ebx
+        mov     ebx, [current_slot_idx]
+        cmp     [SLOT_BASE + eax + APPDATA.debugger_slot], ebx
+        ;cmp     [eax + APPDATA.debugger_slot], ebx
         pop     ebx
         jnz     .ret_bad
 ;       clc     ; automatically
@@ -61,9 +61,10 @@ get_debuggee_thread:
 debug_detach:
 ; in: ecx=pid
 ; destroys eax,ebx
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      .ret
-        and     dword [eax + APPDATA.debugger_thread], 0
+        and     dword [eax + SLOT_BASE + APPDATA.debugger_slot], 0
+        ;and     dword [eax + APPDATA.debugger_slot], 0
         call    do_resume
 .ret:
         sti
@@ -71,27 +72,40 @@ debug_detach:
 
 debug_terminate:
 ; in: ecx=pid
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      debug_detach.ret
         mov     ecx, eax
 
-        movzx   ecx, ch ; del when sysfn_term... will using APPDATA
+        shr     ecx, BSF sizeof.APPDATA
+        ;movzx   ecx, ch ; del when sysfn_term... will using APPDATA
+
+;        push    2
+;        pop     ebx
+        mov     edx, esi ; what?
         jmp     sysfn_terminate
 
 debug_suspend:
 ; in: ecx=pid
 ; destroys eax,ecx
-        call    get_debuggee_thread
+; { Patch by Coldy (rev. 7125), reason: http://board.kolibrios.org/viewtopic.php?f=1&t=1712&p=75957#p75957
+;        cli
+;        mov     eax, ecx
+;        call    pid_to_slot
+;        shl     eax, 5
+;        jz      .ret
+        call    get_debuggee_slot
         jc      .ret
-
-        mov     cl, [eax + APPDATA.state] ; process state
+; } End patch
+        mov     cl, [SLOT_BASE + eax + APPDATA.state] ; process state
+        ;mov     cl, [eax + APPDATA.state] ; process state
         test    cl, cl
         jz      .1
         cmp     cl, TSTATE_WAITING
         jnz     .ret
         mov     cl, TSTATE_WAIT_SUSPENDED
 .2:
-        mov     [eax + APPDATA.state], cl
+        mov     [SLOT_BASE + eax + APPDATA.state], cl
+        ;mov     [eax + APPDATA.state], cl
 .ret:
         sti
         ret
@@ -100,14 +114,16 @@ debug_suspend:
         jmp     .2
 
 do_resume:
-        mov     cl, [eax + APPDATA.state]
+        mov     cl, [SLOT_BASE + eax + APPDATA.state]
+        ;mov     cl, [eax + APPDATA.state]
         cmp     cl, TSTATE_RUN_SUSPENDED
         jz      .1
         cmp     cl, TSTATE_WAIT_SUSPENDED
         jnz     .ret
         mov     cl, TSTATE_WAITING
 .2:
-        mov     [eax + APPDATA.state], cl
+        mov     [SLOT_BASE + eax + APPDATA.state], cl
+        ;mov     [eax + APPDATA.state], cl
 .ret:
         ret
 .1:
@@ -117,9 +133,11 @@ do_resume:
 debug_resume:
 ; in: ecx=pid
 ; destroys eax,ebx
-        call    get_debuggee_thread
-        jc      .ret
-
+        cli
+        mov     eax, ecx
+        call    pid_to_slot
+        shl     eax, BSF sizeof.APPDATA
+        jz      .ret
         call    do_resume
 .ret:
         sti
@@ -142,15 +160,21 @@ debug_getcontext:
         inc     ebx                 ; 1 - get sse context
                                   ; TODO legacy 32-bit FPU/MMX context
 .std_ctx:
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      .ret
 
+        shr     eax, BSF sizeof.APPDATA
+        ;movzx   ebp, ah
+
         cmp     eax, [fpu_owner]
+        ;cmp     ebp, [fpu_owner]
         jne     @f
         inc     bh                ; set swap context flag
 @@:
+        shl     eax, BSF sizeof.APPDATA
         mov     edi, esi
-        mov     eax, [eax + APPDATA.pl0_stack]
+        mov     eax, [SLOT_BASE + eax + APPDATA.pl0_stack]
+        ;mov     eax, [eax + APPDATA.pl0_stack]
         lea     esi, [eax + RING0_STACK_SIZE]
 
 .ring0:
@@ -216,10 +240,11 @@ debug_setcontext:
         cmp     edx, 28h
         jnz     .ret
 
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      .stiret
-
-        mov     eax, [eax + APPDATA.pl0_stack]
+;        mov     esi, edx
+        mov     eax, [eax + SLOT_BASE+APPDATA.pl0_stack]
+        ;mov     eax, [eax + APPDATA.pl0_stack]
         lea     edi, [eax + RING0_STACK_SIZE]
 
 .ring0:
@@ -252,16 +277,15 @@ debug_setcontext:
         ret
 
 debug_set_drx:
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      .errret
-
         mov     ebp, eax
-        lea     eax, [eax + APPDATA.dbg_regs]
+        lea     eax, [eax + SLOT_BASE + APPDATA.dbg_regs]
+        ;lea     eax, [eax + APPDATA.dbg_regs]
 ; [eax]=dr0, [eax+4]=dr1, [eax+8]=dr2, [eax+C]=dr3
 ; [eax+10]=dr7
         cmp     esi, OS_BASE
         jae     .errret
-
         cmp     dl, 3
         ja      .errret
         mov     ecx, dr7
@@ -282,7 +306,10 @@ debug_set_drx:
         btr     dword [eax + 10h], edx    ; clear L<i> bit
         test    byte [eax + 10h], 55h
         jnz     .okret
-        and     [ebp + APPDATA.dbg_state], not 1
+;        imul    eax, ebp, tss_step/32
+;        and     byte [eax + tss_data + TSS._trap], not 1
+        and     [SLOT_BASE + ebp + APPDATA.dbg_state], not 1
+        ;and     [ebp + APPDATA.dbg_state], not 1
 .okret:
         and     dword [esp + SYSCALL_STACK.eax], 0
         sti
@@ -327,7 +354,10 @@ debug_set_drx:
         not     ebx
         and     [eax + 10h+2], bx
         or      [eax + 10h+2], dx         ; set R/W and LEN fields
-        or      [ebp + APPDATA.dbg_state], 1
+;        imul    eax, ebp, tss_step/32
+;        or      byte [eax + tss_data + TSS._trap], 1
+        or      [SLOT_BASE + ebp + APPDATA.dbg_state], 1
+        ;or      [ebp + APPDATA.dbg_state], 1
         jmp     .okret
 
 debug_read_process_memory:
@@ -338,9 +368,10 @@ debug_read_process_memory:
 ; esi=address in debuggee
 ; out: [esp+36]=sizeof(read)
 ; destroys all
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      .err
-
+        shr     eax, BSF sizeof.APPDATA
+        ;movzx   eax,ah
         mov     ecx, edi
         call    read_process_memory
         sti
@@ -358,9 +389,10 @@ debug_write_process_memory:
 ; esi=address in debuggee
 ; out: [esp+36]=sizeof(write)
 ; destroys all
-        call    get_debuggee_thread
+        call    get_debuggee_slot
         jc      debug_read_process_memory.err
-
+        shr     eax, BSF sizeof.APPDATA
+        ;movzx   eax,ah
         mov     ecx, edi
         call    write_process_memory
         sti
@@ -368,7 +400,7 @@ debug_write_process_memory:
         ret
 
 debugger_notify:
-; in: eax=debugger thread
+; in: eax=debugger slot
 ;     ecx=size of debug message
 ;     [esp+4]..[esp+4+ecx]=message
 ; interrupts must be disabled!
@@ -378,7 +410,9 @@ debugger_notify:
         mov     edi, [timer_ticks]
         add     edi, 500        ; 5 sec timeout
 .1:
-        mov     esi, [ebp + APPDATA.dbg_event_mem]
+        mov     eax, ebp
+        shl     eax, BSF sizeof.APPDATA
+        mov     esi, [SLOT_BASE + eax + APPDATA.dbg_event_mem]
         test    esi, esi
         jz      .ret
 ; read buffer header
@@ -432,6 +466,8 @@ debugger_notify:
         pop     edx
         call    write_process_memory
 ; new debug event
-        or      [ebp + APPDATA.occurred_events], EVENT_DEBUG
+        mov     eax, ebp
+        shl     eax, BSF sizeof.APPDATA
+        or      [SLOT_BASE + eax + APPDATA.occurred_events], EVENT_DEBUG
 .ret:
         ret

kernel/trunk/core/fpu.inc

@@ -150,10 +150,10 @@ init_avx512:
 
         ret
 
+; param
+;  eax= 512 bytes memory area aligned on a 16-byte boundary
+
 align 4
-; @brief Export function - Save FPU context in buffer
-; @param eax - 512 bytes memory area aligned on a 16-byte boundary
-; @return  not return
 fpu_save:
         push    ecx
         push    esi
@@ -166,7 +166,7 @@ fpu_save:
         mov     edi, eax
 
         mov     ecx, [fpu_owner]
-        mov     esi, [current_slot]
+        mov     esi, [current_slot_idx]
         cmp     ecx, esi
         jne     .save
 
@@ -175,11 +175,14 @@ fpu_save:
 .save:
         mov     [fpu_owner], esi
 
-        mov     eax, [ecx + APPDATA.fpu_state]
+        shl     ecx, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + ecx + APPDATA.fpu_state]
+
         call    save_context
 
 ; first 512 bytes of XSAVE area have the same format as FXSAVE
-        mov     esi, [esi + APPDATA.fpu_state]
+        shl     esi, BSF sizeof.APPDATA
+        mov     esi, [SLOT_BASE + esi + APPDATA.fpu_state]
         mov     ecx, 512/4
         cld
         rep movsd
@@ -191,16 +194,14 @@ fpu_save:
         pop     ecx
         ret
 
-; @brief Export function - Get size from AVX context
-; @return  size of buffer
 avx_save_size:
         mov     eax, [xsave_area_size]
         ret
 
+; param
+;  eax= avx_save_size() bytes memory area aligned on a 64-byte boundary
+
 align 4
-; @brief Export function - Save AVX context in buffer
-; @param eax - avx_save_size() bytes memory area aligned on a 64-byte boundary
-; @return  not return
 avx_save:
         push    ecx
         push    esi
@@ -213,7 +214,7 @@ avx_save:
         mov     edi, eax
 
         mov     ecx, [fpu_owner]
-        mov     esi, [current_slot]
+        mov     esi, [current_slot_idx]
         cmp     ecx, esi
         jne     .save
 
@@ -222,10 +223,13 @@ avx_save:
 .save:
         mov     [fpu_owner], esi
 
-        mov     eax, [ecx + APPDATA.fpu_state]
+        shl     ecx, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + ecx + APPDATA.fpu_state]
+
         call    save_context
 
-        mov     esi, [esi + APPDATA.fpu_state]
+        shl     esi, BSF sizeof.APPDATA
+        mov     esi, [SLOT_BASE + esi + APPDATA.fpu_state]
         mov     ecx, [xsave_area_size]
         add     ecx, 3
         shr     ecx, 2
@@ -260,13 +264,9 @@ save_fpu_context:
 
 
 align 4
-; @brief Export function - Restore FPU context
-; @param eax - 512 bytes memory area aligned on a 16-byte boundary
-; @return  not return
 fpu_restore:
         push    ecx
         push    esi
-        push    edi
 
         mov     esi, eax
 
@@ -274,7 +274,7 @@ fpu_restore:
         cli
 
         mov     ecx, [fpu_owner]
-        mov     eax, [current_slot]
+        mov     eax, [current_slot_idx]
         cmp     ecx, eax
         jne     .copy
 
@@ -284,8 +284,6 @@ fpu_restore:
 
         fxrstor [esi]
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
@@ -293,31 +291,24 @@ fpu_restore:
         fnclex                  ;fix possible problems
         frstor  [esi]
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
 .copy:
-        mov     edi, [eax + APPDATA.fpu_state]
+        shl     eax, BSF sizeof.APPDATA
+        mov     edi, [SLOT_BASE + eax + APPDATA.fpu_state]
         mov     ecx, 512/4
         cld
         rep movsd
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
 
 align 4
-; @brief Export function - Restore AVX context
-; @param eax - avx_save_size() bytes memory area aligned on a 64-byte boundary
-; @return  not return
 avx_restore:
         push    ecx
         push    esi
-        push    edi
 
         mov     esi, eax
 
@@ -325,7 +316,7 @@ avx_restore:
         cli
 
         mov     ecx, [fpu_owner]
-        mov     eax, [current_slot]
+        mov     eax, [current_slot_idx]
         cmp     ecx, eax
         jne     .copy
 
@@ -338,8 +329,6 @@ avx_restore:
         xrstor  [esi]
         pop     edx
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
@@ -349,8 +338,6 @@ avx_restore:
 
         fxrstor [esi]
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
@@ -358,21 +345,18 @@ avx_restore:
         fnclex                  ;fix possible problems
         frstor  [esi]
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
 .copy:
-        mov     edi, [eax + APPDATA.fpu_state]
+        shl     eax, BSF sizeof.APPDATA
+        mov     edi, [SLOT_BASE + eax + APPDATA.fpu_state]
         mov     ecx, [xsave_area_size]
         add     ecx, 3
         shr     ecx, 2
         cld
         rep movsd
         popfd
-
-        pop     edi
         pop     esi
         pop     ecx
         ret
@@ -386,19 +370,21 @@ except_7:                  ;#NM exception handler
         mov     es, ax
 
         mov     ebx, [fpu_owner]
-        cmp     ebx, [current_slot]
+        cmp     ebx, [current_slot_idx]
         je      .exit
 
-        mov     eax, [ebx + APPDATA.fpu_state]
+        shl     ebx, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + ebx + APPDATA.fpu_state]
         bt      [cpu_caps + (CAPS_OSXSAVE/32)*4], CAPS_OSXSAVE mod 32
         jnc     .no_xsave
         mov     ecx, eax
         mov     eax, [xsave_eax]
         mov     edx, [xsave_edx]
         xsave   [ecx]
-        mov     ebx, [current_slot]
+        mov     ebx, [current_slot_idx]
         mov     [fpu_owner], ebx
-        mov     ecx, [ebx + APPDATA.fpu_state]
+        shl     ebx, BSF sizeof.APPDATA
+        mov     ecx, [SLOT_BASE + ebx + APPDATA.fpu_state]
         xrstor  [ecx]
 .exit:
         restore_ring3_context
@@ -408,22 +394,24 @@ except_7:                  ;#NM exception handler
         jnc     .no_SSE
 
         fxsave  [eax]
-        mov     ebx, [current_slot]
+        mov     ebx, [current_slot_idx]
         mov     [fpu_owner], ebx
-        mov     eax, [ebx + APPDATA.fpu_state]
+        shl     ebx, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + ebx + APPDATA.fpu_state]
         fxrstor [eax]
         restore_ring3_context
         iret
 
 .no_SSE:
         fnsave  [eax]
-        mov     ebx, [current_slot]
+        mov     ebx, [current_slot_idx]
         mov     [fpu_owner], ebx
-        mov     eax, [ebx + APPDATA.fpu_state]
+        shl     ebx, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + ebx + APPDATA.fpu_state]
         frstor  [eax]
         restore_ring3_context
         iret
 
 iglobal
-  fpu_owner dd APPDATA_OS_THREAD
+  fpu_owner dd 2
 endg

kernel/trunk/core/memory.inc

@@ -605,7 +605,7 @@ proc page_fault_handler
 
         mov     edi, [.err_addr]
         and     edi, -PAGE_SIZE
-        mov     ecx, PAGE_SIZE/4
+        mov     ecx, 1024
         xor     eax, eax
        ;cld     ;caller is duty for this
         rep stosd
@@ -664,7 +664,7 @@ proc page_fault_handler
         cmp     ebx, tss._io_map_0
         jb      .fail
 
-        cmp     ebx, tss._io_map_0 + IO_MAP_SIZE
+        cmp     ebx, tss._io_map_0+8192
         jae     .fail
 
 ; io permission map
@@ -695,7 +695,7 @@ proc page_fault_handler
 endp
 
 ; returns number of mapped bytes
-proc map_mem_ipc stdcall, lin_addr:dword,thread:dword,\
+proc map_mem_ipc stdcall, lin_addr:dword,slot:dword,\
                       ofs:dword,buf_size:dword,req_access:dword
         locals
              count   dd ?
@@ -706,8 +706,9 @@ proc map_mem_ipc stdcall, lin_addr:dword,thread:dword,\
         cmp     [buf_size], 0
         jz      .exit
 
-        mov     eax, [thread]
-        mov     eax, [eax + APPDATA.process]
+        mov     eax, [slot]
+        shl     eax, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + eax + APPDATA.process]
         test    eax, eax
         jz      .exit
 
@@ -731,7 +732,7 @@ proc map_mem_ipc stdcall, lin_addr:dword,thread:dword,\
         shr     edx, 12
         and     edx, 0x3FF
 .map:
-        stdcall safe_map_page, [process], [req_access], [ofs]
+        stdcall safe_map_page, [slot], [req_access], [ofs]
         jnc     .exit
         add     [count], PAGE_SIZE
         add     [ofs], PAGE_SIZE
@@ -757,7 +758,7 @@ proc map_mem_ipc stdcall, lin_addr:dword,thread:dword,\
         ret
 endp
 
-proc map_memEx stdcall, lin_addr:dword,thread:dword,\
+proc map_memEx stdcall, lin_addr:dword,slot:dword,\
                         ofs:dword,buf_size:dword,req_access:dword
         locals
              count   dd ?
@@ -768,8 +769,9 @@ proc map_memEx stdcall, lin_addr:dword,thread:dword,\
         cmp     [buf_size], 0
         jz      .exit
 
-        mov     eax, [thread]
-        mov     eax, [eax + APPDATA.process]
+        mov     eax, [slot]
+        shl     eax, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + eax + APPDATA.process]
         test    eax, eax
         jz      .exit
 
@@ -793,7 +795,7 @@ proc map_memEx stdcall, lin_addr:dword,thread:dword,\
         shr     edx, 12
         and     edx, 0x3FF
 .map:
-        stdcall safe_map_page, [process], [req_access], [ofs]
+        stdcall safe_map_page, [slot], [req_access], [ofs]
         jnc     .exit
         add     [count], PAGE_SIZE
         add     [ofs], PAGE_SIZE
@@ -824,7 +826,7 @@ endp
 ; in: edi = linear address to map
 ; out: CF cleared <=> failed
 ; destroys: only eax
-proc safe_map_page stdcall, process:dword, req_access:dword, ofs:dword
+proc safe_map_page stdcall, slot:dword, req_access:dword, ofs:dword
         mov     eax, [esi + edx*4]
         test    al, PG_READ
         jz      .not_present
@@ -859,7 +861,9 @@ proc safe_map_page stdcall, process:dword, req_access:dword, ofs:dword
         cli
         cld
         push    ebx ecx
-        mov     eax, [process]
+        mov     eax, [slot]
+        shl     eax, BSF sizeof.APPDATA
+        mov     eax, [SLOT_BASE + eax + APPDATA.process]
         mov     eax, [eax + PROC.dlls_list_ptr]
         test    eax, eax
         jz      .no_hdll
@@ -949,7 +953,7 @@ sys_IPC:
 
 proc sys_ipc_send stdcall, PID:dword, msg_addr:dword, msg_size:dword
            locals
-             dst_thread dd ?
+             dst_slot   dd ?
              dst_offset dd ?
              buf_size   dd ?
              used_buf   dd ?
@@ -959,12 +963,13 @@ proc sys_ipc_send stdcall, PID:dword, msg_addr:dword, msg_size:dword
         cli
 
         mov     eax, [PID]
-        call    pid_to_thread
+        call    pid_to_slot
         test    eax, eax
         jz      .no_pid
 
-        mov     [dst_thread], eax
-        mov     edi, [eax + APPDATA.ipc_start] ;is ipc area defined?
+        mov     [dst_slot], eax
+        shl     eax, BSF sizeof.APPDATA
+        mov     edi, [SLOT_BASE + eax + APPDATA.ipc_start] ;is ipc area defined?
         test    edi, edi
         jz      .no_ipc_area
 
@@ -972,7 +977,7 @@ proc sys_ipc_send stdcall, PID:dword, msg_addr:dword, msg_size:dword
         and     ebx, 0xFFF
         mov     [dst_offset], ebx
 
-        mov     esi, [eax + APPDATA.ipc_size]
+        mov     esi, [SLOT_BASE + eax + APPDATA.ipc_size]
         mov     [buf_size], esi
 
         mov     ecx, [ipc_tmp]
@@ -985,7 +990,7 @@ proc sys_ipc_send stdcall, PID:dword, msg_addr:dword, msg_size:dword
         pop     edi esi
 @@:
         mov     [used_buf], ecx
-        stdcall map_mem_ipc, ecx, [dst_thread], \
+        stdcall map_mem_ipc, ecx, [dst_slot], \
                 edi, esi, PG_SWR
 
         mov     edi, [dst_offset]
@@ -1034,8 +1039,9 @@ proc sys_ipc_send stdcall, PID:dword, msg_addr:dword, msg_size:dword
         mov     [page_tabs + ebx*4], eax
         invlpg  [edx]
 
-        mov     eax, [dst_thread]
-        or      [eax + APPDATA.occurred_events], EVENT_IPC
+        mov     eax, [dst_slot]
+        shl     eax, BSF sizeof.APPDATA
+        or      [SLOT_BASE + eax + APPDATA.occurred_events], EVENT_IPC
         push    0
         jmp     .ret
 .no_pid:
@@ -1233,27 +1239,25 @@ f68:
         mov     eax, [ecx + SRV.entry]
         test    eax, eax
         jz      .fail
-        mov     eax, -2 ;error free RAM
-        cmp     [ecx + SRV.base], 0
-        je      .fail
+        push    ecx    ;save handl
 
-        push    ecx         ;save handl
-        mov     ebp, esp    ;START may be cdecl or stdcall
         push    edx         ;cmdline
         push    DRV_EXIT
-        call    [ecx + SRV.entry]   ;the result is not checked
-        mov     esp, ebp
-        pop     esi
+        call    eax   ;the result is not checked
+        lea     esp, [esp+8]
+        push    ecx
 
-        mov     eax, [esi + SRV.fd]
-        mov     edx, [esi + SRV.bk]
+        mov     ebx, [ecx + SRV.base]
+        mov     eax, -2 ;error free RAM
+        test    ebx, ebx
+        jz      .fail
+        stdcall kernel_free, ebx ;del driver
+
+        mov     eax, [ecx + SRV.fd]
+        mov     edx, [ecx + SRV.bk]
         mov     [edx + SRV.fd], eax
         mov     [eax + SRV.bk], edx
-        push    eax
-        stdcall kernel_free, [esi + SRV.base] ;del driver
-        mov     eax, esi
-        call    free        ;eax = mem
-        pop     eax
+        stdcall free, ecx
         ;dec     [count_services]
 
         mov     [esp + SYSCALL_STACK.eax], eax

kernel/trunk/core/sched.inc

@@ -139,13 +139,14 @@ do_change_task:
         mov     eax, [xsave_eax]
         mov     edx, [xsave_edx]
         xsave   [ecx]
-        mov     ecx, [current_slot]
+        mov     ecx, [current_slot_idx]
         mov     [fpu_owner], ecx
+        mov     ecx, [current_slot]
         mov     ecx, [ecx + APPDATA.fpu_state]
         xrstor  [ecx]
   .no_xsave:
       ; set CR0.TS
-        cmp     ebx, [fpu_owner]    ;ebx == incoming task (new)
+        cmp     bh, byte[fpu_owner] ;bh == incoming task (new)
         clts                        ;clear a task switch flag
         je      @f
         mov     eax, cr0            ;and set it again if the owner

kernel/trunk/core/sys32.inc

@@ -165,7 +165,7 @@ exc_c:                            ; exceptions (all but 7th - #NM)
         jnz     IRetToUserHook
   @@:
         cli
-        mov     eax, [esi + APPDATA.debugger_thread]
+        mov     eax, [esi + APPDATA.debugger_slot]
         test    eax, eax
         jnz     .debug
 ; not debuggee => say error and terminate
@@ -514,30 +514,28 @@ destroy_thread:
 @@:
         mov     eax, [esi + APPOBJ.fd]
         test    eax, eax
-        jz      @f
+        jz      @F
 
         cmp     eax, esi
-        je      @f
+        je      @F
 
         push    esi
         call    [eax + APPOBJ.destroy]
            DEBUGF 1,"%s",msg_obj_destroy
         pop     esi
-        jmp     @b
+        jmp     @B
 @@:
         mov     esi, [.slot]
-        shl     esi, BSF sizeof.APPDATA
-        add     esi, SLOT_BASE
         cmp     [fpu_owner], esi ; if user fpu last -> fpu user = 2
-        jne     @f
+        jne     @F
 
-        mov     [fpu_owner], APPDATA_OS_THREAD
-        mov     eax, [APPDATA_OS_THREAD + APPDATA.fpu_state]
+        mov     [fpu_owner], 2
+        mov     eax, [SLOT_BASE + sizeof.APPDATA*2 + APPDATA.fpu_state]
         clts
         bt      [cpu_caps], CAPS_SSE
         jnc     .no_SSE
         fxrstor [eax]
-        jmp     @f
+        jmp     @F
 .no_SSE:
         fnclex
         frstor  [eax]
@@ -546,8 +544,8 @@ destroy_thread:
         mov     [KEY_COUNT], byte 0    ; empty keyboard buffer
         mov     [BTN_COUNT], byte 0    ; empty button buffer
 
+
 ; remove defined hotkeys
-        mov     esi, [.slot]
         mov     eax, hotkey_list
 .loop:
         cmp     [eax+8], esi
@@ -640,7 +638,7 @@ destroy_thread:
         pushad
         mov     edi, esi
         shl     edi, BSF sizeof.APPDATA
-        mov     eax, [SLOT_BASE + edi + APPDATA.debugger_thread]
+        mov     eax, [SLOT_BASE + edi + APPDATA.debugger_slot]
         test    eax, eax
         jz      .nodebug
         movi    ecx, 8
@@ -668,12 +666,12 @@ destroy_thread:
         add     edi, SLOT_BASE
 
         mov     eax, [edi + APPDATA.io_map]
-        cmp     eax, [APPDATA_IDLE_THREAD + APPDATA.io_map]
+        cmp     eax, [SLOT_BASE + sizeof.APPDATA+APPDATA.io_map]
         je      @F
         call    free_page
 @@:
         mov     eax, [edi+APPDATA.io_map+4]
-        cmp     eax, [APPDATA_IDLE_THREAD + APPDATA.io_map+4]
+        cmp     eax, [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map+4]
         je      @F
         call    free_page
 @@:
@@ -714,12 +712,12 @@ destroy_thread:
         call    free_cd_channel
         and     [cd_status], 0
 @@:
+        pop     esi
         cmp     [bgrlockpid], esi
         jnz     @f
         and     [bgrlockpid], 0
         and     [bgrlock], 0
 @@:
-        pop     esi
 
         pusha                 ; remove all port reservations
         mov     edx, esi
@@ -780,15 +778,14 @@ destroy_thread:
 
         mov     edi, esi ; do not run this process slot
         shl     edi, BSF sizeof.APPDATA
-        add     edi, SLOT_BASE
-        mov     [edi + APPDATA.state], TSTATE_FREE
+        mov     [SLOT_BASE + edi + APPDATA.state], TSTATE_FREE
 ; debugger test - terminate all debuggees
         mov     eax, 2
-        mov     ecx, APPDATA_OS_THREAD + APPDATA.debugger_thread
+        mov     ecx, SLOT_BASE + 2*sizeof.APPDATA + APPDATA.debugger_slot
 .xd0:
         cmp     eax, [thread_count]
         ja      .xd1
-        cmp     dword [ecx], edi
+        cmp     dword [ecx], esi
         jnz     @f
         and     dword [ecx], 0
         pushad

kernel/trunk/core/taskman.inc

@@ -537,21 +537,21 @@ pid_to_slot:
 align 4
 proc read_process_memory
 ;Input:
-;  eax - process thread
+;  eax - process slot
 ;  ecx - buffer address
 ;  edx - buffer size
 ;  esi - start address in other process
 ;Output:
 ;  eax - number of bytes read.
        locals
-         thread dd ?
+         slot   dd ?
          buff   dd ?
          r_count    dd ?
          offset dd ?
          tmp_r_cnt  dd ?
        endl
 
-        mov     [thread], eax
+        mov     [slot], eax
         mov     [buff], ecx
         and     [r_count], 0
         mov     [tmp_r_cnt], edx
@@ -577,7 +577,7 @@ proc read_process_memory
 
         push    ecx
         stdcall map_memEx, [proc_mem_map], \
-                [thread], ebx, ecx, PG_READ
+                [slot], ebx, ecx, PG_READ
         pop     ecx
 
         mov     esi, [offset]
@@ -607,7 +607,7 @@ endp
 align 4
 proc write_process_memory
 ;Input:
-;  eax - process thread
+;  eax - process slot
 ;  ecx - buffer address
 ;  edx - buffer size
 ;  esi - start address in other process
@@ -615,14 +615,14 @@ proc write_process_memory
 ;  eax - number of bytes written
 
        locals
-         thread dd ?
+         slot   dd ?
          buff   dd ?
          w_count    dd ?
          offset dd ?
          tmp_w_cnt  dd ?
        endl
 
-        mov     [thread], eax
+        mov     [slot], eax
         mov     [buff], ecx
         and     [w_count], 0
         mov     [tmp_w_cnt], edx
@@ -647,7 +647,7 @@ proc write_process_memory
         mov     ebx, [offset]
         push    ecx
         stdcall map_memEx, [proc_mem_map], \
-                [thread], ebx, ecx, PG_SWR
+                [slot], ebx, ecx, PG_SWR
         pop     ecx
 
         mov     edi, [offset]
@@ -906,7 +906,7 @@ common_app_entry:
         stdcall free_kernel_space, [ebp+APP_HDR.img_base]
         stdcall kernel_free, ebp
         mov     ebx, [current_slot]
-        cmp     [ebx + APPDATA.debugger_thread], 0
+        cmp     [ebx + APPDATA.debugger_slot], 0
         je      .exit
         mov     [ebx + APPDATA.state], TSTATE_RUN_SUSPENDED
         mov     [ebx + APPDATA.state], TSTATE_RUN_SUSPENDED
@@ -1054,8 +1054,8 @@ proc set_app_params stdcall,slot:dword, params:dword, flags:dword
 ; set if debuggee
         test    byte [flags], 1
         jz      .no_debug
-        mov     eax, [current_slot]
-        mov     [SLOT_BASE + ebx + APPDATA.debugger_thread], eax
+        mov     eax, [current_slot_idx]
+        mov     [SLOT_BASE + ebx + APPDATA.debugger_slot], eax
 .no_debug:
         mov     [SLOT_BASE + ebx + APPDATA.state], dl
         lea     edx, [SLOT_BASE + ebx]
@@ -1074,24 +1074,27 @@ get_curr_slot:
         mov     eax, [current_slot]
         ret
 
-; @brief  Get pointer to APPDATA by PID
-; @param eax - TID of thread
-; @return  eax - 0 - not found or pointer on APPDATA
-pid_to_thread:
+pid_to_appdata:
+;Input:
+;  eax - pid of process
+;Output:
+;  eax - 0 - not found or pointer on APPDATA
         push    ebx
         push    ecx
         mov     ebx, [thread_count]
+        shl     ebx, BSF sizeof.APPDATA ; multiply by size
         ; skip first process in the task table
-        mov     ecx, APPDATA_IDLE_THREAD
+        mov     ecx, SLOT_BASE
+        add     ebx, ecx
 .loop:
+        add     ecx, sizeof.APPDATA
         cmp     [ecx + APPDATA.state], TSTATE_FREE
         jz      @f  ;skip empty slots
         cmp     [ecx + APPDATA.tid], eax
         jz      .pid_found
 @@:
-        add     ecx, sizeof.APPDATA
-        dec     ebx
-        jnz     .loop
+        cmp     ecx, ebx
+        jb      .loop
 
         pop     ecx
         pop     ebx

kernel/trunk/core/timers.inc

@@ -48,7 +48,7 @@ endg
 
 ; This internal function acquires the lock for the global list.
 lock_timer_list:
-        mov     edx, [current_slot]
+        mov     edx, [current_slot_idx]
 @@:
         xor     eax, eax
         lock cmpxchg [timer_list_owner], edx

kernel/trunk/docs/sysfuncr.txt

@@ -2507,7 +2507,7 @@ dword-значение цвета 0x00RRGGBB
   * иначе eax = TID - идентификатор потока
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_THREAD_CONTROL (51) /
+  eax - SF_CREATE_THREAD (51) /
   ebx - SSF_CREATE_THREAD (1), SSF_GET_CURR_THREAD_SLOT (2),
         SSF_GET_THREAD_PRIORITY (3), SSF_SET_THREAD_PRIORITY (4)
 
@@ -4098,9 +4098,6 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * подфункция 7 - запуск программы
   * подфункция 8 - удаление файла/папки
   * подфункция 9 - создание папки
-  * подфункция 10 - переименование/перемещение
-  * подфункция 11 - создание симлинка
-  * подфункция 12 - чтение симлинка
 Для CD-приводов в связи с аппаратными ограничениями доступны
 только подфункции 0,1,5 и 7, вызов других подфункций завершится
 ошибкой с кодом 2.
@@ -4115,8 +4112,7 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
  [ebx] - SSF_READ_FILE (0), SSF_READ_FOLDER (1), SSF_CREATE_FILE (2),
     SSF_WRITE_FILE (3), SSF_SET_END (4), SSF_GET_INFO (5),
     SSF_SET_INFO (6), SSF_START_APP (7), SSF_DELETE (8),
-    SSF_CREATE_FOLDER (9), SSF_RENAME (10), SSF_CREATE_SYMLINK (11),
-    SSF_READ_SYMLINK (12)
+    SSF_CREATE_FOLDER (9)
 ======================================================================
 = Функция 70, подфункция 0 - чтение файла с поддержкой длинных имён. =
 ======================================================================
@@ -4468,62 +4464,6 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * Формирование нового пути отличается от общих правил:
     относительный путь относится к папке целевого файла (или папки),
     абсолютный путь считается от корня раздела.
-
----------------------- Константы для регистров: ----------------------
-  eax - SF_FILE (70)
- [ebx] - SSF_RENAME (10)
-======================================================================
-=========== Функция 70, подфункция 11 - создание симлинка. ===========
-======================================================================
-Параметры:
-  * eax = 70 - номер функции
-  * ebx = указатель на информационную структуру
-Формат информационной структуры:
-  * +0: dword: 11 = номер подфункции
-  * +4: dword: 0 (зарезервировано)
-  * +8: dword: 0 (зарезервировано)
-  * +12 = +0xC: dword: 0 (зарезервировано)
-  * +16 = +0x10: dword: указатель на строку с целевым путём
-  * +20 = +0x14: путь, правила формирования имён указаны в общем
-    описании (путь ссылки)
-Возвращаемое значение:
-  * eax = 0 - успешно, иначе код ошибки файловой системы
-  * ebx разрушается
-Замечания:
-  * Родительская папка должна существовать.
-  * Для CD функция не поддерживается (возвращает код ошибки 2).
-
----------------------- Константы для регистров: ----------------------
-  eax - SF_FILE (70)
- [ebx] - SSF_CREATE_SYMLINK (11)
-======================================================================
-============ Функция 70, подфункция 12 - чтение симлинка. ============
-======================================================================
-Параметры:
-  * eax = 70 - номер функции
-  * ebx = указатель на информационную структуру
-Формат информационной структуры:
-  * +0: dword: 12 = номер подфункции
-  * +4: dword: 0 (зарезервировано)
-  * +8: dword: 0 (зарезервировано)
-  * +12 = +0xC: dword: размер буфера в байтах
-  * +16 = +0x10: dword: указатель на буфер для целевого пути
-  * +20 = +0x14: путь, правила формирования имён указаны в общем
-    описании (путь ссылки)
-Возвращаемое значение:
-  * eax = 0 - успешно, иначе код ошибки файловой системы
-  * ebx = число байт, записанных в буфер
-Замечания:
-  * Функция не следует по симлинку; она читает целевой путь,
-    на который указывает симлинк.
-  * Целевой путь всегда завершается нулём, в том числе при обрезании;
-    записывается не более (размер буфера - 1) байт пути.
-  * Значение в ebx включает завершающий 0, как в подфункции 2
-    функции 30.
-
----------------------- Константы для регистров: ----------------------
-  eax - SF_FILE (70)
- [ebx] - SSF_READ_SYMLINK (12)
 ======================================================================
 ========== Функция 71 - установить заголовок окна программы ==========
 ======================================================================
@@ -5119,8 +5059,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * eax = дескриптор фьютекса, 0 при ошибке
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_CREATE (0)
+  eax - SF_FUTEX (77)
+  ebx - SSF_CREATE (0)
 ======================================================================
 ============= Функция 77, подфункция 1, Удалить фьютекс. =============
 ======================================================================
@@ -5134,8 +5074,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * Ядро автоматически удаляет фьютексы при завершении процесса.
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_DESTROY (1)
+  eax - SF_FUTEX (77)
+  ebx - SSF_DESTROY (1)
 ======================================================================
 ================= Функция 77, подфункция 2, Ожидать. =================
 ======================================================================
@@ -5151,8 +5091,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
          -2 - контрольное значение фьютекса не соответствует
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_WAIT (2)
+  eax - SF_FUTEX (77)
+  ebx - SSF_WAIT (2)
 ======================================================================
 ================ Функция 77, подфункция 3, Разбудить. ================
 ======================================================================
@@ -5165,8 +5105,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * eax = количество разбуженых
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_WAKE (3)
+  eax - SF_FUTEX (77)
+  ebx - SSF_WAKE (3)
 ======================================================================
 Замечания:
   * Подфункции 4-7 зарезервированы и сейчас возвращают -1.
@@ -5188,8 +5128,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * Поддерживаются только pipe-дескрипторы.
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FD_READ (10)
+  eax - SF_FUTEX (77)
+  ebx - SSF_FILE_READ (10)
 
 ======================================================================
 ======== Функция 77, подфункция 11, Записать из буфера в файл. =======
@@ -5208,8 +5148,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
   * Поддерживаются только pipe-дескрипторы.
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FD_WRITE (11)
+  eax - SF_FUTEX (77)
+  ebx - SSF_FILE_WRITE (11)
 
 ======================================================================
 =========== Функция 77, подфункция 13, Создать новый pipe. ===========
@@ -5233,8 +5173,8 @@ Architecture Software Developer's Manual, Volume 3, Appendix B);
     - дескриптором записи.
 
 ---------------------- Константы для регистров: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FD_PIPE2 (13)
+  eax - SF_FUTEX (77)
+  ebx - SSF_PIPE_CREATE (13)
 
 ======================================================================
 ========== Функция -1 - завершить выполнение потока/процесса =========

kernel/trunk/docs/sysfuncs.txt

@@ -2492,7 +2492,7 @@ Returned value:
   * otherwise eax = TID - thread identifier
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_THREAD_CONTROL (51)
+  eax - SF_CREATE_THREAD (51)
   ebx - SSF_CREATE_THREAD (1), SSF_GET_CURR_THREAD_SLOT (2),
         SSF_GET_THREAD_PRIORITY (3), SSF_SET_THREAD_PRIORITY (4)
 ======================================================================
@@ -4060,9 +4060,6 @@ Available subfunctions:
   * subfunction 7 - start application
   * subfunction 8 - delete file/folder
   * subfunction 9 - create folder
-  * subfunction 10 - rename/move
-  * subfunction 11 - create symlink
-  * subfunction 12 - read symlink
 For CD-drives due to hardware limitations only subfunctions
 0,1,5 and 7 are available, other subfunctions return error
 with code 2.
@@ -4076,8 +4073,7 @@ is called for corresponding device.
  [ebx] - SSF_READ_FILE (0), SSF_READ_FOLDER (1), SSF_CREATE_FILE (2),
     SSF_WRITE_FILE (3), SSF_SET_END (4), SSF_GET_INFO (5),
     SSF_SET_INFO (6), SSF_START_APP (7), SSF_DELETE (8),
-    SSF_CREATE_FOLDER (9), SSF_RENAME (10), SSF_CREATE_SYMLINK (11),
-    SSF_READ_SYMLINK (12)
+    SSF_CREATE_FOLDER (9)
 ======================================================================
 === Function 70, subfunction 0 - read file with long names support. ==
 ======================================================================
@@ -4148,7 +4144,6 @@ Structure of block of data for folder entry (BDFE):
       and after archiving this bit is cleared - it can be useful
       for automatically creating of backup-archives as at writing
       this bit is usually set
-    * bit 6 (mask 0x40): this is a symbolic link (currently only set by the ext driver).
   * +4: dword: encoding, equals to field +8 in the information structure
   * +8: 4*byte: time of file creation
   * +12 = +0xC: 4*byte: date of file creation
@@ -4428,60 +4423,6 @@ Remarks:
   * New path forming differs from general rules:
     relative path relates to the target's parent folder,
     absolute path relates to the partition's root folder.
-
----------------------- Constants for registers: ----------------------
-  eax - SF_FILE (70)
- [ebx] - SSF_RENAME (10)
-======================================================================
-=========== Function 70, subfunction 11 - create symlink. ============
-======================================================================
-Parameters:
-  * eax = 70 - function number
-  * ebx = pointer to the information structure
-Format of the information structure:
-  * +0: dword: 11 = subfunction number
-  * +4: dword: 0 (reserved)
-  * +8: dword: 0 (reserved)
-  * +12 = +0xC: dword: 0 (reserved)
-  * +16 = +0x10: dword: pointer to the target path string
-  * +20 = +0x14: path, general rules of names forming (link path)
-Returned value:
-  * eax = 0 - success, otherwise file system error code
-  * ebx destroyed
-Remarks:
-  * The parent folder must already exist.
-  * The function is not supported for CD (returns error code 2).
-
----------------------- Constants for registers: ----------------------
-  eax - SF_FILE (70)
- [ebx] - SSF_CREATE_SYMLINK (11)
-======================================================================
-============ Function 70, subfunction 12 - read symlink. =============
-======================================================================
-Parameters:
-  * eax = 70 - function number
-  * ebx = pointer to the information structure
-Format of the information structure:
-  * +0: dword: 12 = subfunction number
-  * +4: dword: 0 (reserved)
-  * +8: dword: 0 (reserved)
-  * +12 = +0xC: dword: buffer size in bytes
-  * +16 = +0x10: dword: pointer to buffer for target path
-  * +20 = +0x14: path, general rules of names forming (link path)
-Returned value:
-  * eax = 0 - success, otherwise file system error code
-  * ebx = number of bytes written to the buffer
-Remarks:
-  * The function does not follow the symlink; it reads the target path
-    that the symlink points to.
-  * The target path is always terminated with 0, even when truncated;
-    at most (buffer size - 1) path bytes are written.
-  * The value returned in ebx includes the terminating 0, as in
-    subfunction 2 of function 30.
-
----------------------- Constants for registers: ----------------------
-  eax - SF_FILE (70)
- [ebx] - SSF_READ_SYMLINK (12)
 ======================================================================
 ================== Function 71 - set window caption ==================
 ======================================================================
@@ -5332,8 +5273,8 @@ Returned value:
   * eax = futex handle, 0 on error
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_CREATE (0)
+  eax - SF_FUTEX (77)
+  ebx - SSF_CREATE (0)
 ======================================================================
 ========= Function 77, Subfunction 1, Destroy futex object ===========
 ======================================================================
@@ -5348,8 +5289,8 @@ Remarks:
     terminates.
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_DESTROY (1)
+  eax - SF_FUTEX (77)
+  ebx - SSF_DESTROY (1)
 ======================================================================
 =============== Function 77, Subfunction 2, Futex wait ===============
 ======================================================================
@@ -5365,8 +5306,8 @@ Returned value:
          -2 - futex control value doesn't match
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_WAIT (2)
+  eax - SF_FUTEX (77)
+  ebx - SSF_WAIT (2)
 ======================================================================
 =============== Function 77, Subfunction 3, Futex wake ===============
 ======================================================================
@@ -5379,8 +5320,8 @@ Returned value:
   * eax = number of waiters that were woken up
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FUTEX_WAKE (3)
+  eax - SF_FUTEX (77)
+  ebx - SSF_WAKE (3)
 ======================================================================
 Remarks:
   * Subfunctions 4-7 are reserved and currently return -1.
@@ -5402,8 +5343,8 @@ Remarks:
   * Only pipe descriptors are supported.
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FD_READ (10)
+  eax - SF_FUTEX (77)
+  ebx - SSF_FILE_READ (10)
 ======================================================================
 =========== Function 77, Subfunction 11, Write to file. =============
 ======================================================================
@@ -5421,8 +5362,8 @@ Remarks:
   * Only pipe descriptors are supported.
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FD_WRITE (11)
+  eax - SF_FUTEX (77)
+  ebx - SSF_FILE_WRITE (11)
 ======================================================================
 ========== Function 77, Subfunction 13, Create pipe. ================
 ======================================================================
@@ -5440,8 +5381,8 @@ Remarks:
     write handle.
 
 ---------------------- Constants for registers: ----------------------
-  eax - SF_POSIX (77)
-  ebx - SSF_FD_PIPE2 (13)
+  eax - SF_FUTEX (77)
+  ebx - SSF_PIPE_CREATE (13)
 ======================================================================
 === Function 80 - file system interface with parameter of encoding ===
 ======================================================================

kernel/trunk/fs/fat.inc

@@ -2405,12 +2405,11 @@ fat_Write:
 ; hd_extend_file can return three error codes: FAT table error, device error or disk full.
 ; First two cases are fatal errors, in third case we may write some data
         cmp     al, ERROR_DISK_FULL
-        jnz     .noWrite
+        jnz     @f
 ; correct number of bytes to write
         mov     ecx, [edi+28]
         cmp     ecx, ebx
         ja      .length_ok
-.noWrite:
         push    0
 .ret:
         pop     eax eax eax ecx ecx

kernel/trunk/fs/fs_lfn.inc

@@ -182,20 +182,8 @@ proc file_system_is_operation_safe stdcall, inf_struct_ptr: dword
 
 .case6:
         cmp     dword [ebx], 6
-        jnz     .case11
-        mov     ecx, 32
-        jmp     .end_switch
-
-.case11:
-        cmp     dword [ebx], 11
-        jnz     .case12
-        stdcall is_string_userspace, edx
-        jmp     .ret
-
-.case12:
-        cmp     dword [ebx], 12
         jnz     .switch_none
-        mov     ecx, dword [ebx + 12]
+        mov     ecx, 32
         jmp     .end_switch
 
 .switch_none:

kernel/trunk/fs/parse_fn.inc

@@ -253,10 +253,9 @@ UTF16to8_string:
 
 UTF16to8:
 ;   in:
-; ax = UTF-16 char
+; eax = UTF-16 char
 ; edi -> buffer for UTF-8 char (increasing)
 ; ecx = byte counter (decreasing)
-        movzx   eax, ax
         dec     ecx
         js      .ret
         cmp     eax, 80h

kernel/trunk/gui/background.inc

@@ -193,8 +193,7 @@ align 4
 ;--------------------------------------
 align 4
 @@:
-        mov     eax, [current_slot]
-        mov     eax, [eax + APPDATA.tid]
+        mov     eax, [current_slot_idx]
         mov     [bgrlockpid], eax
         cmp     [img_background], static_background_data
         jz      .nomem
@@ -242,8 +241,7 @@ nosb6:
         jnz     nosb7
         cmp     [bgrlock], 0
         jz      .err
-        mov     eax, [current_slot]
-        mov     eax, [eax + APPDATA.tid]
+        mov     eax, [current_slot_idx]
         cmp     [bgrlockpid], eax
         jnz     .err
         mov     eax, ecx

kernel/trunk/gui/font.inc

@@ -48,10 +48,6 @@ dtext:
         add     esp, 28
         ret
 
-.nomem:
-        add     esp, 40
-        ret
-
 .redirect:
         mov     ebp, [edi]
         add     edi, 8
@@ -85,8 +81,6 @@ dtext:
         mov     [esp+32], eax
         imul    ebp, eax
         stdcall kernel_alloc, ebp
-        test    eax, eax
-        jz      .nomem
         mov     ecx, ebp
         shr     ecx, 2
         mov     [esp+36], eax

kernel/trunk/gui/window.inc

@@ -1997,8 +1997,6 @@ align 4
         ; esi - slot
         push    eax ecx edx esi
         xchg    eax, esi
-        shl     eax, BSF sizeof.APPDATA
-        add     eax, SLOT_BASE
         lea     ecx, [esp + 12]
         mov     edx, 1
         call    read_process_memory

kernel/trunk/kernel.asm

@@ -55,6 +55,7 @@ launcher_start db 1
 endg
 
 max_processes  =  255
+tss_step       =  128 + 8192 ; tss & i/o - 65535 ports, * 256=557056*4
 
 os_stack       =  os_data_l - gdts    ; GDTs
 os_code        =  os_code_l - gdts
@@ -388,7 +389,7 @@ high_code:
         mov     edi, tss._io_map_0
         xor     eax, eax
         not     eax
-        mov     ecx, IO_MAP_SIZE/4
+        mov     ecx, 8192/4
         rep stosd                    ; access to 4096*8=65536 ports
 
         mov     ax, tss0
@@ -409,7 +410,7 @@ high_code:
         stdcall alloc_kernel_space, 0x50000         ; FIXME check size
         mov     [default_io_map], eax
 
-        add     eax, IO_MAP_SIZE
+        add     eax, 0x2000
         mov     [ipc_tmp], eax
         mov     ebx, 0x1000
 
@@ -534,7 +535,7 @@ high_code:
         dec     ecx
         jns     @b
 
-        mov     edx, APPDATA_IDLE_THREAD
+        mov     edx, SLOT_BASE + sizeof.APPDATA*1
         mov     ebx, [os_stack_seg]
         add     ebx, RING0_STACK_SIZE
         add     ebx, [xsave_area_size]
@@ -546,7 +547,7 @@ high_code:
         mov     ecx, IDLE_PRIORITY
         call    scheduler_add_thread
 
-        mov     edx, APPDATA_OS_THREAD
+        mov     edx, SLOT_BASE + sizeof.APPDATA*2
         mov     ebx, [os_stack_seg]
         call    setup_os_slot
         mov     dword [edx], 'OS'
@@ -555,7 +556,7 @@ high_code:
 
         mov     [current_slot_idx], 2
         mov     [thread_count], 2
-        mov     [current_slot], APPDATA_OS_THREAD
+        mov     [current_slot], SLOT_BASE + sizeof.APPDATA*2
 
 ; Move other CPUs to deep sleep, if it is useful
 uglobal
@@ -847,15 +848,15 @@ include "detect/vortex86.inc"                     ; Vortex86 SoC detection code
         call    reserve_irqs_ports
 
         mov     [SLOT_BASE + APPDATA.window], window_data
-        mov     [APPDATA_IDLE_THREAD + APPDATA.window], background_window
-        mov     [APPDATA_OS_THREAD + APPDATA.window], window_data + sizeof.WDATA*2
+        mov     [SLOT_BASE + sizeof.APPDATA + APPDATA.window], window_data + sizeof.WDATA
+        mov     [SLOT_BASE + sizeof.APPDATA*2 + APPDATA.window], window_data + sizeof.WDATA*2
         mov     [window_data + WDATA.thread], SLOT_BASE
-        mov     [background_window + WDATA.thread], APPDATA_IDLE_THREAD
-        mov     [window_data + sizeof.WDATA*2 + WDATA.thread], APPDATA_OS_THREAD
+        mov     [window_data + sizeof.WDATA + WDATA.thread], SLOT_BASE + sizeof.APPDATA
+        mov     [window_data + sizeof.WDATA*2 + WDATA.thread], SLOT_BASE + sizeof.APPDATA*2
 
         call    init_display
         mov     eax, [def_cursor]
-        mov     [background_window + WDATA.cursor], eax
+        mov     [window_data + sizeof.WDATA + WDATA.cursor], eax
         mov     [window_data + sizeof.WDATA*2 + WDATA.cursor], eax
 
 ; PRINT CPU FREQUENCY
@@ -952,14 +953,14 @@ include "detect/vortex86.inc"                     ; Vortex86 SoC detection code
 ; Protect I/O permission map
 
         mov     esi, [default_io_map]
-        stdcall map_page, esi, [APPDATA_IDLE_THREAD + APPDATA.io_map], PG_READ
+        stdcall map_page, esi, [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map], PG_READ
         add     esi, 0x1000
-        stdcall map_page, esi, [APPDATA_IDLE_THREAD + APPDATA.io_map + 4], PG_READ
+        stdcall map_page, esi, [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map + 4], PG_READ
 
         stdcall map_page, tss._io_map_0, \
-                [APPDATA_IDLE_THREAD + APPDATA.io_map], PG_READ
+                [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map], PG_READ
         stdcall map_page, tss._io_map_1, \
-                [APPDATA_IDLE_THREAD + APPDATA.io_map + 4], PG_READ
+                [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map + 4], PG_READ
 
 ; SET KEYBOARD PARAMETERS
         mov     al, 0xf6       ; reset keyboard, scan enabled
@@ -1864,7 +1865,7 @@ sysfn_shutdown:          ; 18.9 = system shutdown
 ; out: Z/z -- is/not kernel thread
 is_kernel_thread:
         mov     eax, [eax + APPDATA.process]
-        cmp     eax, [APPDATA_OS_THREAD + APPDATA.process]       ; OS
+        cmp     eax, [SLOT_BASE + 2*sizeof.APPDATA + APPDATA.process]       ; OS
         ret
 ;------------------------------------------------------------------------------
 sysfn_terminate:        ; 18.2 = TERMINATE
@@ -2064,7 +2065,7 @@ sysfn_zmodif:
 
 ;------------------------------------------------------------------------------
 sysfn_getidletime:              ; 18.4 = GET IDLETIME
-        mov     eax, [APPDATA_IDLE_THREAD + APPDATA.cpu_usage]
+        mov     eax, [SLOT_BASE + sizeof.APPDATA + APPDATA.cpu_usage]
         mov     [esp + SYSCALL_STACK.eax], eax
         ret
 ;------------------------------------------------------------------------------
@@ -2824,7 +2825,7 @@ no_mark_system_shutdown:
 align 4
 noshutdown:
         mov     eax, [thread_count]           ; termination
-        mov     ebx, APPDATA_IDLE_THREAD + APPDATA.state
+        mov     ebx, SLOT_BASE + sizeof.APPDATA + APPDATA.state
         mov     esi, 1
 ;--------------------------------------
 align 4

kernel/trunk/network/ARP.inc

@@ -83,31 +83,6 @@ macro arp_init {
 
 }
 
-;-----------------------------------------------------------------;
-;                                                                 ;
-; arp_clear_device: Empty the ARP table and counters of a removed ;
-;                   device.                                       ;
-;                                                                 ;
-;  IN:  edi = device number * 4                                   ;
-;                                                                 ;
-;-----------------------------------------------------------------;
-macro arp_clear_device {
-
-        xor     eax, eax
-        mov     [ARP_entries + edi], eax
-        mov     [ARP_packets_tx + edi], eax
-        mov     [ARP_packets_rx + edi], eax
-        mov     [ARP_conflicts + edi], eax
-
-        push    edi
-        imul    edi, (ARP_TABLE_SIZE * sizeof.ARP_entry)/4
-        add     edi, ARP_table
-        mov     ecx, (ARP_TABLE_SIZE * sizeof.ARP_entry)/2
-        rep stosw
-        pop     edi
-
-}
-
 ;-----------------------------------------------------------------;
 ;                                                                 ;
 ; arp_decrease_entry_ttls                                         ;
@@ -338,9 +313,6 @@ arp_output_request:
         DEBUGF  DEBUG_NETWORK_VERBOSE, "ARP_output_request: ip=%u.%u.%u.%u device=0x%x\n",\
         [esp]:1, [esp + 1]:1, [esp + 2]:1, [esp + 3]:1, ebx
 
-        test    ebx, ebx                        ; device is gone
-        jz      .exit
-
         mov     ax, ETHER_PROTO_ARP
         mov     ecx, sizeof.ARP_header
         mov     edx, ETH_BROADCAST              ; broadcast mac

kernel/trunk/network/IPv4.inc

@@ -1,6 +1,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                 ;;
-;; Copyright (C) KolibriOS team 2004-2026. All rights reserved.    ;;
+;; Copyright (C) KolibriOS team 2004-2024. All rights reserved.    ;;
 ;; Distributed under terms of the GNU General Public License       ;;
 ;;                                                                 ;;
 ;;  IPv4.INC                                                       ;;
@@ -105,29 +105,6 @@ macro   ipv4_init {
 }
 
 
-;-----------------------------------------------------------------;
-;                                                                 ;
-; ipv4_clear_device: Reset the IPv4 settings of a removed device, ;
-;                    so no route points to it anymore.            ;
-;                                                                 ;
-;  IN:  edi = device number * 4                                   ;
-;                                                                 ;
-;-----------------------------------------------------------------;
-macro   ipv4_clear_device {
-
-        xor     eax, eax
-        mov     [IPv4_address + edi], eax
-        mov     [IPv4_subnet + edi], eax
-        mov     [IPv4_nameserver + edi], eax
-        mov     [IPv4_gateway + edi], eax
-        mov     [IPv4_broadcast + edi], eax
-        mov     [IPv4_packets_tx + edi], eax
-        mov     [IPv4_packets_rx + edi], eax
-        mov     [IPv4_packets_dumped + edi], eax
-
-}
-
-
 ;-----------------------------------------------------------------;
 ;                                                                 ;
 ; Decrease TimeToLive of all fragment slots                       ;
@@ -780,8 +757,6 @@ ipv4_output_raw:
         push    esi eax
 
         call    ipv4_route
-        test    eax, eax
-        jz      .arp_error
         call    arp_ip_to_mac
 
         test    eax, 0xffff0000         ; error bits
@@ -790,9 +765,9 @@ ipv4_output_raw:
         push    ebx                     ; push the mac
         push    ax
 
-        inc     [IPv4_packets_tx + edi]
+        inc     [IPv4_packets_tx + 4*edi]
         mov     ax, ETHER_PROTO_IPv4
-        mov     ebx, [net_device_list + edi]
+        mov     ebx, [net_device_list + 4*edi]
         mov     ecx, [esp + 6 + 4]
         add     ecx, sizeof.IPv4_header
         mov     edx, esp
@@ -976,7 +951,7 @@ endp
 ;       edi = device number*4                                     ;
 ;                                                                 ;
 ; DESTROYED:                                                      ;
-;       ebx, ecx                                                  ;
+;       ecx                                                       ;
 ;                                                                 ;
 ;-----------------------------------------------------------------;
 align 4
@@ -989,11 +964,8 @@ ipv4_route:
         cmp     eax, 0xffffffff
         je      .broadcast
 
-; Check for on-link
         xor     edi, edi
   .loop:
-        cmp     [net_device_list + edi], 0      ; skip slots without a device
-        je      .next
         mov     ebx, [IPv4_address + edi]
         and     ebx, [IPv4_subnet + edi]
         jz      .next
@@ -1006,58 +978,9 @@ ipv4_route:
         cmp     edi, 4*NET_DEVICES_MAX
         jb      .loop
 
-; no on-link match, find first device with a gateway
-        mov     edi, 4                  ; skip loopback device
-  .loop_gw:
-        cmp     [IPv4_gateway + edi], 0
-        je      .next_gw
-        cmp     [net_device_list + edi], 0
-        jne     .found_gw
-  .next_gw:
-        add     edi, 4
-        cmp     edi, 4*NET_DEVICES_MAX
-        jb      .loop_gw
-        jmp     .loopback               ; no gateway found, fall-back to loopback device
-
-  .found_gw:
-        mov     eax, [IPv4_gateway + edi]
-        jmp     .got_it
-
+        mov     eax, [IPv4_gateway + 4]         ; TODO: let user (or a user space daemon) configure default route
   .broadcast:
-; broadcast: we will do our best without full routing..
-
-; find the first non loopback device which has an active link without IP address
-        mov     edi, 4                  ; skip loopback device
-  .bc_loop1:
-        mov     ebx, [net_device_list + edi]
-        test    ebx, ebx
-        jz      @f
-        cmp     [ebx + NET_DEVICE.link_state], 0
-        je      @f
-        cmp     [IPv4_address + edi], 0
-        je      .got_it
-  @@:
-        add     edi, 4
-        cmp     edi, 4*NET_DEVICES_MAX
-        jb      .bc_loop1
-
-; If there is no such device, try the one with active link and IP address
-        mov     edi, 4                  ; skip loopback device
-  .bc_loop2:
-        mov     ebx, [net_device_list + edi]
-        test    ebx, ebx
-        jz      @f
-        cmp     [ebx + NET_DEVICE.link_state], 0
-        jne     .got_it
-  @@:
-        add     edi, 4
-        cmp     edi, 4*NET_DEVICES_MAX
-        jb      .bc_loop2
-;        jmp     .loopback               ; no gateway found, fall-back to loopback device
-
-  .loopback:
-        xor     edi, edi                ; nowhere to go for now.. route it to the loopback device
-
+        mov     edi, 4                          ; TODO: same as above
   .got_it:
         DEBUGF  DEBUG_NETWORK_VERBOSE, "IPv4_route: %u\n", edi
         test    edx, edx
@@ -1079,23 +1002,14 @@ ipv4_route:
         cmp     eax, 0xffffffff
         je      @f
 
-; An interface without an address (DHCP not done yet, or the lease
-; dropped when the link went down) can send nothing but broadcasts: with
-; address and mask both zero every destination compared as on-link, and
-; the stack went asking ARP for internet addresses on behalf of 0.0.0.0.
-        test    edx, edx
-        jz      .fail
-
 ; Check if we should route to gateway or not
-        mov     ebx, edx
+        mov     ebx, [IPv4_address + edi]
         and     ebx, [IPv4_subnet + edi]
         mov     ecx, eax
         and     ecx, [IPv4_subnet + edi]
         cmp     ecx, ebx
         je      @f
         mov     eax, [IPv4_gateway + edi]
-        test    eax, eax
-        jz      .fail                                ; off-link and no gateway
   @@:
         DEBUGF  DEBUG_NETWORK_VERBOSE, "IPv4_route: %u\n", edi
         ret

kernel/trunk/network/ethernet.inc

@@ -61,41 +61,6 @@ macro   eth_init {
 
 }
 
-;-----------------------------------------------------------------;
-;                                                                 ;
-; eth_clear_device: Drop the frames of a removed device that are  ;
-;                   still waiting in the input queue, their       ;
-;                   NET_BUFF.device will not be valid anymore.    ;
-;                                                                 ;
-;  IN:  ebx = device ptr                                          ;
-;                                                                 ;
-;-----------------------------------------------------------------;
-macro   eth_clear_device {
-
-local   .loop, .done
-
-        spin_lock_irqsave
-        mov     esi, [ETH_frame_head]
-  .loop:
-        cmp     esi, ETH_frame_head
-        je      .done
-        mov     eax, esi
-        mov     esi, [esi + NET_BUFF.NextPtr]
-        cmp     [eax + NET_BUFF.device], ebx
-        jne     .loop
-
-; unlink it, ETH_frame_head/tail double as the NextPtr/PrevPtr of the list head
-        mov     ecx, [eax + NET_BUFF.PrevPtr]
-        mov     [ecx + NET_BUFF.NextPtr], esi
-        mov     [esi + NET_BUFF.PrevPtr], ecx
-        dec     [ETH_frame_queued]
-        stdcall net_buff_free, eax
-        jmp     .loop
-  .done:
-        spin_unlock_irqrestore
-
-}
-
 align 4
 ; This function is called by ethernet drivers.
 ; Push the received ethernet packet onto the ethernet input queue.
@@ -280,9 +245,6 @@ eth_output:
 
         DEBUGF  DEBUG_NETWORK_VERBOSE, "ETH_output: size=%u device=%x\n", ecx, ebx
 
-        test    ebx, ebx
-        jz      .no_device
-
         cmp     ecx, [ebx + ETH_DEVICE.mtu]
         ja      .too_large
 
@@ -333,16 +295,11 @@ eth_output:
         ret
 
   .too_large:
-        inc     [ebx + NET_DEVICE.packets_tx_err]
+        inc     [eax + NET_DEVICE.packets_tx_err]
         DEBUGF  DEBUG_NETWORK_VERBOSE, "ETH_output: Packet too large!\n"
         xor     eax, eax
         ret
 
-  .no_device:
-        DEBUGF  DEBUG_NETWORK_ERROR, "ETH_output: no device!\n"
-        xor     eax, eax
-        ret
-
 
 
 ;-----------------------------------------------------------------;

kernel/trunk/network/socket.inc

@@ -279,8 +279,10 @@ sys_socket:
         dd      socket_get_opt          ; 9
         dd      socket_pair             ; 10
 
-        ;dd      socket_sendto           ; 11
-        ;dd      socket_recvfrom         ; 12
+        dd      socket_getpeername      ; 11
+        dd      socket_getsockname      ; 12
+        ;dd      socket_sendto           ; 13
+        ;dd      socket_recvfrom         ; 14
   .number = ($ - .table) / 4 - 1
 
   .error:
@@ -780,6 +782,8 @@ socket_close:
 
         cmp     [eax + SOCKET.Protocol], IP_PROTO_TCP
         jne     .free
+        test    [eax + SOCKET.state], SS_ISCONNECTED
+        jz      @f
         test    [eax + SOCKET.state], SS_ISDISCONNECTING
         jnz     @f
         call    tcp_disconnect
@@ -1394,6 +1398,139 @@ socket_pair:
 
 
 
+;-----------------------------------------------------------------;
+;                                                                 ;
+; socket_getpeername: Get name of connected peer socket.          ;
+;                                                                 ;
+;   IN: ecx = socket number                                       ;
+;       edx = pointer to sockaddr struct                          ;
+;       esi = length of sockaddr struct                           ;
+;                                                                 ;
+;  OUT: eax = length of sockaddr struct                                        ;
+;       eax = -1 on error                                         ;
+;       ebx = errorcode on error                                  ;
+;                                                                 ;
+;-----------------------------------------------------------------;
+align 4
+socket_getpeername:
+
+        DEBUGF  DEBUG_NETWORK_VERBOSE, "SOCKET_getpeername: socknum=%u sockaddr=%x length=%u\n", ecx, edx, esi
+
+        call    socket_num_to_ptr
+        test    eax, eax
+        jz      .notsock
+
+        stdcall is_region_userspace, edx, esi
+        jnz     .efault
+
+        cmp     [eax + SOCKET.Domain], AF_INET4
+        jne     .invalid
+
+        cmp     esi, 8  ; domain + port + ipv4_addr
+        jb      .errlen
+
+        mov     word[edx], AF_INET4
+        mov     esi, edx
+
+        xor     edx, edx
+        cmp     [eax + SOCKET.Type], SOCK_RAW
+        je      .raw_protocol
+
+        mov     dx, [eax + TCP_SOCKET.RemotePort]
+.raw_protocol:
+        cmp     [eax + SOCKET.state], SS_ISCONNECTED
+        jne     .notconn
+
+        mov     [esi + sockaddr.port], dx
+
+        mov     edx, [eax + IP_SOCKET.RemoteIP]
+        mov     [esi + sockaddr.ip], edx
+
+        mov     dword[esp + SYSCALL_STACK.eax], 8
+        ret
+
+  .efault:
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        mov     dword[esp + SYSCALL_STACK.ebx], EFAULT
+        ret
+
+  .notconn:
+        mov     dword[esp + SYSCALL_STACK.ebx], ENOTCONN
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        ret
+  .no_inet4:
+  .errlen:
+  .invalid:
+        mov     dword[esp + SYSCALL_STACK.ebx], EINVAL
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        ret
+  .notsock:
+        mov     dword[esp + SYSCALL_STACK.ebx], ENOTSOCK
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        ret
+;-----------------------------------------------------------------;
+;                                                                 ;
+; socket_getsockname: Get socket name.                            ;
+;                                                                 ;
+;   IN: ecx = socket number                                       ;
+;       edx = pointer to sockaddr struct                          ;
+;       esi = length of sockaddr struct                           ;
+;                                                                 ;
+;  OUT: eax = length of sockaddr struct                                        ;
+;       eax = -1 on error                                         ;
+;       ebx = errorcode on error                                  ;
+;                                                                 ;
+;-----------------------------------------------------------------;
+align 4
+socket_getsockname:
+
+        DEBUGF  DEBUG_NETWORK_VERBOSE, "SOCKET_getsockname: socknum=%u sockaddr=%x length=%u\n", ecx, edx, esi
+
+        call    socket_num_to_ptr
+        test    eax, eax
+        jz      .notsock
+
+        stdcall is_region_userspace, edx, esi
+        jnz     .efault
+
+        cmp     [eax + SOCKET.Domain], AF_INET4
+        jne     .invalid
+
+        cmp     esi, 8  ; domain + port + ipv4_addr
+        jb      .errlen
+
+        mov     word[edx], AF_INET4
+        mov     esi, edx
+
+        xor     edx, edx
+        cmp     [eax + SOCKET.Type], SOCK_RAW
+        je      .raw_protocol
+
+        mov     dx, [eax + TCP_SOCKET.RemotePort]
+.raw_protocol:
+        mov     [esi + sockaddr.port], dx
+
+        mov     edx, [eax + IP_SOCKET.RemoteIP]
+        mov     [esi + sockaddr.ip], edx
+
+        mov     dword[esp + SYSCALL_STACK.eax], 8
+        ret
+
+  .efault:
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        mov     dword[esp + SYSCALL_STACK.ebx], EFAULT
+        ret
+
+  .errlen:
+  .invalid:
+        mov     dword[esp + SYSCALL_STACK.ebx], EINVAL
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        ret
+  .notsock:
+        mov     dword[esp + SYSCALL_STACK.ebx], ENOTSOCK
+        mov     dword[esp + SYSCALL_STACK.eax], -1
+        ret
+
 ;-----------------------------------------------------------------;
 ;                                                                 ;
 ; socket_debug: Copy socket variables to application buffer.      ;
@@ -2124,11 +2261,11 @@ socket_free:
         mov     ebx, eax
         cmp     [eax + STREAM_SOCKET.rcv.start_ptr], 0
         je      @f
-        stdcall kernel_free, [eax + STREAM_SOCKET.rcv.start_ptr]
+        stdcall free_kernel_space, [eax + STREAM_SOCKET.rcv.start_ptr]
   @@:
         cmp     [ebx + STREAM_SOCKET.snd.start_ptr], 0
         je      @f
-        stdcall kernel_free, [ebx + STREAM_SOCKET.snd.start_ptr]
+        stdcall free_kernel_space, [ebx + STREAM_SOCKET.snd.start_ptr]
   @@:
         mov     eax, ebx
   .no_stream:

kernel/trunk/network/stack.inc

@@ -118,7 +118,7 @@ SS_MORETOCOME           = 0x4000
 SS_BLOCKED              = 0x8000
 
 
-SOCKET_BUFFER_SIZE      = 4096*32       ; must be 4096*(power of 2) where 'power of 2' is at least 8
+SOCKET_BUFFER_SIZE      = 4096*8        ; must be 4096*(power of 2) where 'power of 2' is at least 8
 MAX_backlog             = 20            ; maximum backlog for stream sockets
 
 ; Error Codes
@@ -139,6 +139,9 @@ EISCONN                 = 56
 ETIMEDOUT               = 60
 ECONNREFUSED            = 61
 
+EFAULT                  = 14  ; copy, defined in posix/posix.inc ; Bad address
+ENOTSOCK                = 38  ; FreeBSD error code,  Socket operation on non-socket
+
 ; Api protocol numbers
 API_ETH                 = 0
 API_IPv4                = 1
@@ -597,16 +600,6 @@ net_remove_device:
         mov     dword [edi-4], eax
         dec     [net_device_count]
 
-;-----------------------------------------------------------------
-; Forget everything the protocols still know about this interface.
-; Otherwise its IP address keeps matching in ipv4_route, and output
-; ends up calling through the now empty net_device_list slot.
-
-        sub     edi, net_device_list + 4        ; device number * 4
-        ipv4_clear_device
-        arp_clear_device
-        eth_clear_device
-
         call    net_send_event
 
         xor     eax, eax

kernel/trunk/network/tcp_input.inc

@@ -1422,14 +1422,10 @@ endl
         test    [edx + TCP_header.Flags], TH_ACK
         jz      .drop
 
-        push    ebx
-        lea     ecx, [ebx + SOCKET.mutex]
-        call    mutex_unlock
-        pop     eax
-
+        mov     eax, ebx
         mov     ebx, ECONNREFUSED
         call    tcp_drop
-        jmp     .drop_no_socket
+        jmp     .drop
        @@:
 
 ;-----------------------------------------------------------------------------------

kernel/trunk/network/tcp_output.inc

@@ -234,25 +234,23 @@ endl
         mov     ebx, TCP_max_win
         shl     ebx, cl
         pop     ecx
-
-; Clamp to available window first, then subtract what the peer already knows (as in BSD)
-
-        cmp     ebx, ecx
-        jbe     @f
-        mov     ebx, ecx
-       @@:
         sub     ebx, [eax + TCP_SOCKET.RCV_ADV]
         add     ebx, [eax + TCP_SOCKET.RCV_NXT]
 
+        cmp     ebx, ecx
+        jl      @f
+        mov     ebx, ecx
+       @@:
+
         DEBUGF  DEBUG_NETWORK_VERBOSE, "TCP_output: we can increase window by %d bytes\n", ebx
 
         mov     edi, [eax + TCP_SOCKET.t_maxseg]
         shl     edi, 1
-        cmp     ebx, edi                                ; signed: may be negative if window shrank
-        jge     .send
+        cmp     ebx, edi
+        jae     .send
 
         cmp     ebx, SOCKET_BUFFER_SIZE/2
-        jge     .send
+        jae     .send
 
   .no_window:
 

kernel/trunk/network/tcp_subr.inc

@@ -320,12 +320,12 @@ tcp_respond:
         stosb
         mov     eax, SOCKET_BUFFER_SIZE
         sub     eax, [esi + STREAM_SOCKET.rcv.size]
-        mov     cl, [esi + TCP_SOCKET.RCV_SCALE]
-        shr     eax, cl                 ; scale first, then clamp to the
-        cmp     eax, TCP_max_win        ; 16-bit field maximum
+        cmp     eax, TCP_max_win
         jbe     .lessthanmax
         mov     eax, TCP_max_win
   .lessthanmax:
+        mov     cl, [esi + TCP_SOCKET.RCV_SCALE]
+        shr     eax, cl
 
         xchg    al, ah
         stosw                   ; window
@@ -488,7 +488,7 @@ tcp_set_persist:
 ; Start/restart persistence timer.
 
         tcpt_rangeset [eax + TCP_SOCKET.timer_persist], ebx, TCP_time_pers_min, TCP_time_pers_max
-        or      [eax + TCP_SOCKET.timer_flags], timer_flag_persist
+        or      [ebx + TCP_SOCKET.timer_flags], timer_flag_persist
         pop     ebx
 
         cmp     [eax + TCP_SOCKET.t_rxtshift], TCP_max_rxtshift

kernel/trunk/network/tcp_timer.inc

@@ -111,13 +111,13 @@ proc tcp_timer_640ms
 
         DEBUGF  DEBUG_NETWORK_VERBOSE, "socket %x: Keepalive expired\n", eax
 
-        cmp     [eax + TCP_SOCKET.t_state], TCPS_ESTABLISHED
-        jae     .dont_kill
+        cmp     [eax + TCP_SOCKET.state], TCPS_ESTABLISHED
+        ja      .dont_kill
 
-        push    [eax + SOCKET.NextPtr]
+        push    eax
         call    tcp_disconnect
         pop     eax
-        jmp     .check_only
+        jmp     .loop
 
   .dont_kill:
         test    [eax + SOCKET.options], SO_KEEPALIVE

kernel/trunk/network/tcp_usreq.inc

@@ -180,8 +180,6 @@ tcp_connect:
 
   .nomem:
         pop     edx eax
-        lea     ecx, [eax + SOCKET.mutex]
-        call    mutex_unlock
         xor     eax, eax
         dec     eax
         mov     ebx, ENOMEM
@@ -196,8 +194,6 @@ tcp_connect:
   .enoroute:
         pop     eax
         popa
-        lea     ecx, [eax + SOCKET.mutex]
-        call    mutex_unlock
         xor     eax, eax
         dec     eax
         mov     ebx, EADDRNOTAVAIL

kernel/trunk/sound/playnote.inc

@@ -148,10 +148,9 @@ ReadNoteByte:
         push    esi
 
         mov     eax, [pidProcessNote]
-        call    pid_to_thread
+        call    pid_to_slot
         test    eax, eax
         jz      .failed
-
         lea     ecx, [esp+12]
         mov     edx, 1
         mov     esi, [memAdrNote]

programs/KOSfuncs.inc

@@ -125,7 +125,7 @@ SF_STYLE_SETTINGS=48
   SSF_SET_FONT_SIZE=12
 SF_APM=49
 SF_SET_WINDOW_SHAPE=50
-SF_THREAD_CONTROL=51
+SF_CREATE_THREAD=51
   SSF_CREATE_THREAD=1
   SSF_GET_CURR_THREAD_SLOT=2
   SSF_GET_THREAD_PRIORITY=3
@@ -281,14 +281,14 @@ SF_NETWORK_PROTOCOL=76
   SSF_ARP_DEL_ENTRY=50005h
   SSF_ARP_SEND_ANNOUNCE=50006h
   SSF_ARP_CONFLICTS_COUNT=50007h
-SF_POSIX=77
-  SSF_FUTEX_CREATE=0
-  SSF_FUTEX_DESTROY=1
-  SSF_FUTEX_WAIT=2
-  SSF_FUTEX_WAKE=3
-  SSF_FD_READ=10
-  SSF_FD_WRITE=11
-  SSF_FD_PIPE2=13
+SF_FUTEX=77
+  SSF_CREATE=0
+  SSF_DESTROY=1
+  SSF_WAIT=2
+  SSF_WAKE=3
+  SSF_FILE_READ=10
+  SSF_FILE_WRITE=11
+  SSF_PIPE_CREATE=13
 
 ; File system errors:
 FSERR_SUCCESS=0

programs/bcc32/include/kos_func.inc

@@ -1111,7 +1111,7 @@ end if
   mov  dword [edx+8],ebx
   mov  dword [edx+4],ecx
   mov  dword [edx],Kolibri_ThreadFinish
-  mov  eax,SF_THREAD_CONTROL
+  mov  eax,SF_CREATE_THREAD
   mov  ebx,1
   mov  ecx,@Kolibri@ThreadMain$qpvt1
   int  0x40

programs/demos/free3d04/build.bat

@@ -1,2 +0,0 @@
-@fasm free3d04.asm free3d04
-if not exist free3d04 ( @pause )

programs/demos/free3d04/build_en.bat

@@ -0,0 +1,5 @@
+@erase lang.inc
+@echo lang fix en_US >lang.inc
+@fasm free3d04.asm free3d04
+@erase lang.inc
+@pause

programs/demos/free3d04/build_ru.bat

@@ -0,0 +1,5 @@
+@erase lang.inc
+@echo lang fix ru_RU >lang.inc
+@fasm free3d04.asm free3d04
+@erase lang.inc
+@pause

programs/demos/free3d04/free3d04.asm

@@ -9,10 +9,9 @@
 ;
 ;   Compile with FASM for Menuet (requires .INC files - see DATA Section)
 ;
-;   Willow - greatly srinked code size by using packed texture and FPU to calculate sine table
+;   Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table
 ;
-;   Textures are stored as a single 64x512 PNG embedded into the binary and
-;   decoded at startup with libimg.
+;   !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!
 ;
 ;   Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)
 
@@ -39,17 +38,15 @@ use32
                dd     APP_MEM;0x100000        ; memory for app
                dd     APP_MEM;0x100000        ; esp
                dd     0x0 , 0x0               ; I_Param , I_Icon
+include 'lang.inc'
 include '..\..\macros.inc'
-include '..\..\proc32.inc'
-include '..\..\dll.inc'
-include '..\..\develop\libraries\libs-dev\libimg\libimg.inc'
+COLOR_ORDER equ OTHER
+include 'gif_lite.inc'
 
 START:                          ; start of execution
-		mcall 68,11                 ; init heap, libimg needs it
-		stdcall dll.Load,@IMPORT
-		test eax,eax
-		jnz  finish
-		call load_textures
+		mov  esi,textures
+		mov  edi,ceil-8
+		call ReadGIF
 		mov  esi,sinus
 		mov  ecx,360*10
 		fninit
@@ -294,34 +291,6 @@ m_right:                                  ; turn right
     mcall
 
 
-;   *********************************************
-;   *******        LOAD TEXTURES         ********
-;   *********************************************
-; Decodes the embedded 64x512 PNG (8 stacked 64x64 tiles) into the raw
-; 0x00RRGGBB texture bank at [ceil].
-
-load_textures:
-	invoke img.decode,textures,textures.size,0
-	test eax,eax
-	jz   finish
-	mov  ebx,eax
-	invoke img.convert,ebx,0,Image.bpp32,0,0
-	push eax
-	invoke img.destroy,ebx
-	pop  ebx
-	test ebx,ebx
-	jz   finish
-	mov  esi,[ebx+Image.Data]
-	mov  edi,ceil
-	mov  ecx,TEX_SIZE*8/4
-    .copy:
-	lodsd
-	and  eax,0x00FFFFFF     ; drop alpha, the renderer stores 32 bit dwords
-	stosd                   ; into a 24 bit image buffer
-	loop .copy
-	invoke img.destroy,ebx
-	ret
-
 ;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
@@ -1011,21 +980,13 @@ dd 0x0001FFFF ; initial player position * 0xFFFF
  vpy:
 dd 0x0001FFFF
 
-title    db   'Fisheye Raycasting Engine Etc. FREE3D',0
+title    db   'FISHEYE RAYCASTING ENGINE ETC. FREE3D',0
 
 sindegree dd 0.0
 sininc    dd 0.0017453292519943295769236907684886
 sindiv    dd 6553.5
 textures:
-	file 'texture.png'
-  .size = $ - textures
-
-align 16
-@IMPORT:
-
-library                       	libimg , 'libimg.obj'
-
-import	libimg                      , 	libimg.init  , 'lib_init'   , 	img.decode   , 'img_decode' , 	img.convert  , 'img_convert', 	img.destroy  , 'img_destroy'
+	file 'texture.gif'
 
 align 4
 

programs/demos/free3d04/gif_lite.inc

@@ -0,0 +1,487 @@
+; GIF LITE v3.0 by Willow
+; Written in pure assembler by Ivushkin Andrey aka Willow
+; Modified by Diamond
+;
+; This include file will contain functions to handle GIF image format
+;
+; Created: August 15, 2004
+; Last changed: June 24, 2007
+
+; Requires kglobals.inc (iglobal/uglobal macro)
+; (program must 'include "kglobals.inc"' and say 'IncludeUGlobal'
+; somewhere in uninitialized data area).
+
+; Configuration: [changed from program which includes this file]
+; 1. The constant COLOR_ORDER: must be one of
+;    PALETTE - for 8-bit image with palette (sysfunction 65)
+;    MENUETOS - for MenuetOS and KolibriOS color order (sysfunction 7)
+;    OTHER - for standard color order
+; 2. Define constant GIF_SUPPORT_INTERLACED if you want to support interlaced
+;    GIFs.
+; 3. Single image mode vs multiple image mode:
+;    if the program defines the variable 'gif_img_count' of type dword
+;    somewhere, ReadGIF will enter multiple image mode: gif_img_count
+;    will be initialized with image count, output format is GIF_list,
+;    the function GetGIFinfo retrieves Nth image info. Otherwise, ReadGIF
+;    uses single image mode: exit after end of first image, output is
+;    <dd width,height, times width*height[*3] db image>
+
+if ~ (COLOR_ORDER in <PALETTE,MENUETOS,OTHER>)
+; This message may not appear under MenuetOS, so watch...
+  display 'Please define COLOR_ORDER: PALETTE, MENUETOS or OTHER',13,10
+end if
+
+if defined gif_img_count
+; virtual structure, used internally
+
+struct GIF_list
+    NextImg rd 1
+    Left   rw 1
+    Top    rw 1
+    Width  rw 1
+    Height rw 1
+    Delay  rd 1
+    Displacement rd 1 ; 0 = not specified
+                       ; 1 = do not dispose
+                       ; 2 = restore to background color
+                       ; 3 = restore to previous
+if COLOR_ORDER eq PALETTE
+    Image rd 1
+end if
+ends
+
+struct GIF_info
+    Left   rw 1
+    Top    rw 1
+    Width  rw 1
+    Height rw 1
+    Delay  rd 1
+    Displacement rd 1
+if COLOR_ORDER eq PALETTE
+    Palette rd 1
+end if
+ends
+
+; ****************************************
+;   FUNCTION GetGIFinfo - retrieve Nth image info
+; ****************************************
+; in:
+;   esi - pointer to image list header
+;   ecx - image_index (0...img_count-1)
+;   edi - pointer to GIF_info structure to be filled
+
+; out:
+;   eax - pointer to RAW data, or 0, if error
+
+GetGIFinfo:
+    push  esi ecx edi
+    xor   eax,eax
+    jecxz .eloop
+  .lp:
+    mov   esi,[esi]
+    test  esi,esi
+    jz    .error
+    loop  .lp
+  .eloop:
+    lodsd
+    movsd
+    movsd
+    movsd
+    movsd
+if COLOR_ORDER eq PALETTE
+    lodsd
+    mov   [edi],esi
+else
+    mov   eax,esi
+end if
+  .error:
+    pop   edi ecx esi
+    ret
+
+end if
+
+_null fix 0x1000
+
+; ****************************************
+;   FUNCTION ReadGIF - unpacks GIF image
+; ****************************************
+; in:
+;   esi - pointer to GIF file in memory
+;   edi - pointer to output image list
+
+; out:
+;   eax - 0, all OK;
+;   eax - 1, invalid signature;
+;   eax >=8, unsupported image attributes
+;
+
+ReadGIF:
+    push esi edi
+    mov  [.cur_info],edi
+    xor  eax,eax
+    mov  [.globalColor],eax
+if defined gif_img_count
+    mov  [gif_img_count],eax
+    mov  [.anim_delay],eax
+    mov  [.anim_disp],eax
+end if
+    inc  eax
+    cmp  dword[esi],'GIF8'
+    jne  .ex            ; signature
+    mov  ecx,[esi+0xa]
+    add  esi,0xd
+    mov  edi,esi
+    test cl,cl
+    jns  .nextblock
+    mov  [.globalColor],esi
+    call .Gif_skipmap
+  .nextblock:
+    cmp  byte[edi],0x21
+    jne  .noextblock
+    inc  edi
+if defined gif_img_count
+    cmp  byte[edi],0xf9 ; Graphic Control Ext
+    jne  .no_gc
+    movzx eax,word [edi+3]
+    mov  [.anim_delay],eax
+    mov  al,[edi+2]
+    shr  al,2
+    and  eax,7
+    mov  [.anim_disp],eax
+    add  edi,7
+    jmp  .nextblock
+  .no_gc:
+end if
+    inc  edi
+  .block_skip:
+    movzx eax,byte[edi]
+    lea  edi,[edi+eax+1]
+    test eax,eax
+    jnz  .block_skip
+    jmp  .nextblock
+  .noextblock:
+    mov  al,8
+    cmp  byte[edi],0x2c    ; image beginning
+    jne  .ex
+if defined gif_img_count
+    inc  [gif_img_count]
+end if
+    inc  edi
+    mov  esi,[.cur_info]
+if defined gif_img_count
+    add  esi,4
+end if
+    xchg esi,edi
+if defined GIF_SUPPORT_INTERLACED
+    movzx ecx,word[esi+4]
+    mov  [.width],ecx
+    movzx eax,word[esi+6]
+    imul eax,ecx
+if ~(COLOR_ORDER eq PALETTE)
+    lea  eax,[eax*3]
+end if
+    mov  [.img_end],eax
+    inc  eax
+    mov  [.row_end],eax
+    and  [.pass],0
+    test byte[esi+8],40h
+    jz   @f
+if ~(COLOR_ORDER eq PALETTE)
+    lea  ecx,[ecx*3]
+end if
+    mov  [.row_end],ecx
+@@:
+end if
+if defined gif_img_count
+    movsd
+    movsd
+    mov  eax,[.anim_delay]
+    stosd
+    mov  eax,[.anim_disp]
+    stosd
+else
+    movzx eax,word[esi+4]
+    stosd
+    movzx eax,word[esi+6]
+    stosd
+    add   esi,8
+end if
+    push edi
+    mov  ecx,[esi]
+    inc  esi
+    test cl,cl
+    js   .uselocal
+    push [.globalColor]
+    mov  edi,esi
+    jmp  .setPal
+  .uselocal:
+    call .Gif_skipmap
+    push esi
+  .setPal:
+    movzx ecx,byte[edi]
+    inc  ecx
+    mov  [.codesize],ecx
+    dec  ecx
+if ~(COLOR_ORDER eq PALETTE)
+    pop  [.Palette]
+end if
+    lea  esi,[edi+1]
+    mov  edi,.gif_workarea
+    xor  eax,eax
+    lodsb               ; eax - block_count
+    add  eax,esi
+    mov  [.block_ofs],eax
+    mov  [.bit_count],8
+    mov  eax,1
+    shl  eax,cl
+    mov  [.CC],eax
+    mov  ecx,eax
+    inc  eax
+    mov  [.EOI],eax
+    mov  eax, _null shl 16
+  .filltable:
+    stosd
+    inc  eax
+    loop .filltable
+if COLOR_ORDER eq PALETTE
+    pop  eax
+    pop  edi
+    push edi
+    scasd
+    push esi
+    mov  esi,eax
+    mov  ecx,[.CC]
+@@:
+    lodsd
+    dec  esi
+    bswap eax
+    shr  eax,8
+    stosd
+    loop @b
+    pop  esi
+    pop  eax
+    mov  [eax],edi
+else
+    pop  edi
+end if
+if defined GIF_SUPPORT_INTERLACED
+    mov  [.img_start],edi
+    add  [.img_end],edi
+    add  [.row_end],edi
+end if
+  .reinit:
+    mov  edx,[.EOI]
+    inc  edx
+    push [.codesize]
+    pop  [.compsize]
+    call .Gif_get_sym
+    cmp  eax,[.CC]
+    je   .reinit
+    call .Gif_output
+  .cycle:
+    movzx ebx,ax
+    call .Gif_get_sym
+    cmp  eax,edx
+    jae  .notintable
+    cmp  eax,[.CC]
+    je   .reinit
+    cmp  eax,[.EOI]
+    je   .end
+    call .Gif_output
+  .add:
+    mov  dword [.gif_workarea+edx*4],ebx
+    cmp  edx,0xFFF
+    jae  .cycle
+    inc  edx
+    bsr  ebx,edx
+    cmp  ebx,[.compsize]
+    jne  .noinc
+    inc  [.compsize]
+  .noinc:
+    jmp  .cycle
+  .notintable:
+    push eax
+    mov  eax,ebx
+    call .Gif_output
+    push ebx
+    movzx eax,bx
+    call .Gif_output
+    pop  ebx eax
+    jmp  .add
+  .end:
+if defined GIF_SUPPORT_INTERLACED
+    mov  edi,[.img_end]
+end if
+if defined gif_img_count
+    mov  eax,[.cur_info]
+    mov  [eax],edi
+    mov  [.cur_info],edi
+    add  esi,2
+    xchg esi,edi
+  .nxt:
+    cmp  byte[edi],0
+    jnz  .continue
+    inc  edi
+    jmp  .nxt
+  .continue:
+    cmp  byte[edi],0x3b
+    jne  .nextblock
+    xchg esi,edi
+    and  dword [eax],0
+end if
+    xor  eax,eax
+  .ex:
+    pop  edi esi
+    ret
+
+.Gif_skipmap:
+; in: ecx - image descriptor, esi - pointer to colormap
+; out: edi - pointer to area after colormap
+
+    and  ecx,111b
+    inc  ecx            ; color map size
+    mov  ebx,1
+    shl  ebx,cl
+    lea  ebx,[ebx*2+ebx]
+    lea  edi,[esi+ebx]
+    ret
+
+.Gif_get_sym:
+    mov  ecx,[.compsize]
+    push ecx
+    xor  eax,eax
+  .shift:
+    ror  byte[esi],1
+    rcr  eax,1
+    dec  [.bit_count]
+    jnz  .loop1
+    inc  esi
+    cmp  esi,[.block_ofs]
+    jb   .noblock
+    push eax
+    xor  eax,eax
+    lodsb
+    test eax,eax
+    jnz  .nextbl
+    mov  eax,[.EOI]
+    sub  esi,2
+    add  esp,8
+    jmp  .exx
+  .nextbl:
+    add  eax,esi
+    mov  [.block_ofs],eax
+    pop  eax
+  .noblock:
+    mov  [.bit_count],8
+  .loop1:
+    loop .shift
+    pop  ecx
+    rol  eax,cl
+  .exx:
+    xor  ecx,ecx
+    ret
+
+.Gif_output:
+    push esi eax edx
+    mov  edx,.gif_workarea
+  .next:
+    push word[edx+eax*4]
+    mov  ax,word[edx+eax*4+2]
+    inc  ecx
+    cmp  ax,_null
+    jnz  .next
+    shl  ebx,16
+    mov  bx,[esp]
+  .loop2:
+    pop  ax
+
+    if COLOR_ORDER eq PALETTE
+        stosb
+    else
+        lea  esi,[eax+eax*2]
+        add  esi,[.Palette]
+
+    if COLOR_ORDER eq MENUETOS
+        mov  esi,[esi]
+        bswap esi
+        shr  esi,8
+        mov  [edi],esi
+        add  edi,3
+    else
+        movsb
+        movsb
+        movsb
+	mov  byte [edi],0
+	inc  edi
+    end if
+    end if
+
+if defined GIF_SUPPORT_INTERLACED
+    cmp  edi,[.row_end]
+    jb   .norowend
+    mov  eax,[.width]
+if ~(COLOR_ORDER eq PALETTE)
+    lea  eax,[eax*3]
+end if
+    push eax
+    sub  edi,eax
+    add  eax,eax
+    cmp  [.pass],3
+    jz   @f
+    add  eax,eax
+    cmp  [.pass],2
+    jz   @f
+    add  eax,eax
+@@:
+    add  edi,eax
+    pop  eax
+    cmp  edi,[.img_end]
+    jb   .nextrow
+    mov  edi,[.img_start]
+    inc  [.pass]
+    add  edi,eax
+    cmp  [.pass],3
+    jz   @f
+    add  edi,eax
+    cmp  [.pass],2
+    jz   @f
+    add  edi,eax
+    add  edi,eax
+@@:
+.nextrow:
+    add  eax,edi
+    mov  [.row_end],eax
+    xor  eax,eax
+.norowend:
+end if
+
+    loop .loop2
+    pop  edx eax esi
+    ret
+
+uglobal
+align 4
+    ReadGIF.globalColor rd 1
+    ReadGIF.cur_info rd 1        ; image table pointer
+    ReadGIF.codesize rd 1
+    ReadGIF.compsize rd 1
+    ReadGIF.bit_count rd 1
+    ReadGIF.CC rd 1
+    ReadGIF.EOI rd 1
+if ~(COLOR_ORDER eq PALETTE)
+    ReadGIF.Palette rd 1
+end if
+    ReadGIF.block_ofs rd 1
+if defined GIF_SUPPORT_INTERLACED
+    ReadGIF.row_end rd 1
+    ReadGIF.img_end rd 1
+    ReadGIF.img_start rd 1
+    ReadGIF.pass rd 1
+    ReadGIF.width rd 1
+end if
+if defined gif_img_count
+    ReadGIF.anim_delay rd 1
+    ReadGIF.anim_disp rd 1
+end if
+    ReadGIF.gif_workarea rb 16*1024
+endg

programs/demos/free3d04/readme.txt

@@ -10,11 +10,11 @@ By Dieter Marfurt
 
 --------------------------------------------
 
-Format of the texture file:
+Format of texture include files:
 
-texture.png - a 64*512 image holding the 8 textures of 64*64 pixels
-stacked vertically. It is embedded into the binary and decoded at
-startup with libimg.
+dd 0x00RRGGBB,0x00RRGGBB....
+
+for 64*64 pixels. 
 
 Have fun!
 

programs/demos/life2/include/kos_func.inc

@@ -1067,7 +1067,7 @@ end if
   mov  dword [edx+8],ebx
   mov  dword [edx+4],ecx
   mov  dword [edx],Kolibri_ThreadFinish
-  mov  eax,SF_THREAD_CONTROL
+  mov  eax,SF_CREATE_THREAD
   mov  ebx,1
   mov  ecx,@Kolibri@ThreadMain$qpvt1
   int  0x40

programs/develop/XDPascal/Readme.md

@@ -1,29 +0,0 @@
-Компилятор XD Pascal, [оригинал проекта](https://github.com/vtereshkov/xdpw), автор оригинала Василий Терешков.
-В [архиве](./release) компилятор и исходники для `xdpw_2026`(версия для Windows) и `xdpk`(версия для KolibriOS).
-Компилятор также компилирует сам себя из-под KolibriOS.
-Размер сжатого компилятора менее 30 килобайтов.
-
-В папке `xdpk/projects` находятся примеры, также там находится сам компилятор под KolibriOS(`xdpk/projects/Compiler`).
-Чтобы собрать какой-нибудь пример, нужно просто зайти из-под KolibriOS в папку с примером и запустить файл `MAKE.SH`.
-Скомпилированное приложение должно появиться в той же папке с примером(если нет, то нажмите "обновить"(F5) в файловом менеджере).
-А для сборки из-под Windows нужно запустить файл `make.bat`. 
-
-Компиляция:
-  * "xdpw_2026/xdpw.exe" — компилирует из-под Windows приложения для Windows
-  * "xdpk/xdpk.exe" — компилирует из-под Windows приложения для KolibriOS
-  * "xdpk/xdpk.kex" — компилирует из-под KolibriOS приложения для KolibriOS
-
-Компиляторы вырезают недостижимый код (smart linking): бинарники меньше в 1.5–5 раз.
-Ключ `-nosmart` отключает оптимизацию. В `xdpw_2020` лежит прежний компилятор без неё.
-
-Для KolibriOS реализованы модули:
-  * CRT
-  * LibImg
-  * LibINI
-  * Network
-  * OpenDlg
-  * ColorDlg
-  * TinyGL
-
-[Сайт проекта XD Pascal для KolibriOS: xdpk](https://gitflic.ru/project/kolibrios-programming/xd-pascal)
-[Архивная копия](https://web.archive.org/web/http://forum.cantor.systems/viewtopic.php?id=131) обсуждения на форуме.

programs/develop/XDPascal/license.md

@@ -1,25 +0,0 @@
-BSD 2-Clause License
-
-Copyright (c) 2009-2010, 2019-2020, Vasiliy Tereshkov
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
-1. Redistributions of source code must retain the above copyright notice, this
-   list of conditions and the following disclaimer.
-
-2. Redistributions in binary form must reproduce the above copyright notice,
-   this list of conditions and the following disclaimer in the documentation
-   and/or other materials provided with the distribution.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

programs/develop/XDPascal/xdpk/BuildCompiler.bat

@@ -1,3 +0,0 @@
-..\xdpw_2026\xdpw source\XDPK.pas
-move /y source\xdpk.exe xdpk.exe
-pause

programs/develop/XDPascal/xdpk/BuildCompilerDelphi.bat

@@ -1,6 +0,0 @@
-cd source
-dcc32 xdpk.pas
-copy xdpk.exe ..\xdpk.exe /y
-del xdpk.exe, *.dcu
-cd ..
-pause

programs/develop/XDPascal/xdpk/projects2025/ClrEOL_CRT.pas

@@ -1,24 +0,0 @@
-program ClrEolTest;
- 
-uses
-  CRT;
- 
-begin
-
-  CRT_initialization;
-  
-  WriteLn('Hello, this is a ClrEolTest!');
-  Delay(500);
-  ClrScr;
-  Writeln('The function CLREOL clears all characters from the');
-  Delay(500);
-  Writeln('cursor position to the end of the line within the');
-  Delay(500);
-  Writeln('current text window, without moving the cursor.');
-  Delay(500);
-  Writeln('Press any key to continue . . .');
-  GotoXY(14, 4);
-  ReadKey;
-  ClrEOL;
-  ReadKey;  
-end.

programs/develop/XDPascal/xdpk/projects2025/CmdLineArgs.pas

@@ -1,23 +0,0 @@
-{
-  launch this program with some
-  command line arguments
-  if argument has spaces then
-  need to quote them
-  for example:
-  CmdLineArgs.kex param1 param2 "p a r a m 3"
-  note that ParamStr(0) is always present
-  and contents full file path to CmdLineArgs.kex
-}
-
-{$APPTYPE CONSOLE}
-
-program CmdLineArgs;
-
-var
-  i: LongInt;
-
-begin
-  WriteLn('ParamCount = ', ParamCount);
-  for i := 0 to ParamCount do
-    WriteLn('ParamStr(', i, ') = ', ParamStr(i));
-end.

programs/develop/XDPascal/xdpk/projects2025/Compiler/Linker.pas

@@ -1,399 +0,0 @@
-// XD Pascal - a 32-bit compiler for KolibriOS
-// Copyright (c) 2009-2010, 2019-2020, Vasiliy Tereshkov
-
-{$I-}
-{$H-}
-
-unit Linker;
-
-
-interface
-
-
-uses Common, CodeGen;
-
-
-procedure InitializeLinker;
-procedure SetProgramEntryPoint;
-function AddImportFunc(const ImportLibName, ImportFuncName: TString): LongInt;
-procedure LinkAndWriteProgram(const ExeName: TString);
-
-
-
-implementation
-
- 
-const
-  IMGBASE           = $0;
-  SECTALIGN         = $20;
-  FILEALIGN         = SECTALIGN;
-  
-  MAXIMPORTLIBS     = 100;
-  MAXIMPORTS        = 2000;
-
-    
-type
-  TDOSStub = array [0..127] of Byte;
- 
-
-  TPEHeader = packed record
-    PE: array [0..3] of TCharacter;
-    Machine: Word;
-    NumberOfSections: Word;
-    TimeDateStamp: LongInt;
-    PointerToSymbolTable: LongInt;
-    NumberOfSymbols: LongInt;
-    SizeOfOptionalHeader: Word;
-    Characteristics: Word;
-  end;
-
-
-  TPEOptionalHeader = packed record
-    Magic: Word;
-    MajorLinkerVersion: Byte;
-    MinorLinkerVersion: Byte;
-    SizeOfCode: LongInt;
-    SizeOfInitializedData: LongInt;
-    SizeOfUninitializedData: LongInt;
-    AddressOfEntryPoint: LongInt;
-    BaseOfCode: LongInt;
-    BaseOfData: LongInt;
-    ImageBase: LongInt;
-    SectionAlignment: LongInt;
-    FileAlignment: LongInt;
-    MajorOperatingSystemVersion: Word;
-    MinorOperatingSystemVersion: Word;
-    MajorImageVersion: Word;
-    MinorImageVersion: Word;
-    MajorSubsystemVersion: Word;
-    MinorSubsystemVersion: Word;
-    Win32VersionValue: LongInt;
-    SizeOfImage: LongInt;
-    SizeOfHeaders: LongInt;
-    CheckSum: LongInt;
-    Subsystem: Word;
-    DllCharacteristics: Word;
-    SizeOfStackReserve: LongInt;
-    SizeOfStackCommit: LongInt;
-    SizeOfHeapReserve: LongInt;
-    SizeOfHeapCommit: LongInt;
-    LoaderFlags: LongInt;
-    NumberOfRvaAndSizes: LongInt;
-  end;
-  
-  
-  TDataDirectory = packed record
-    VirtualAddress: LongInt;
-    Size: LongInt;
-  end;  
-
-
-  TPESectionHeader = packed record
-    Name: array [0..7] of TCharacter;
-    VirtualSize: LongInt;
-    VirtualAddress: LongInt;
-    SizeOfRawData: LongInt;
-    PointerToRawData: LongInt;
-    PointerToRelocations: LongInt;
-    PointerToLinenumbers: LongInt;
-    NumberOfRelocations: Word;
-    NumberOfLinenumbers: Word;
-    Characteristics: LongInt;
-  end;
-  
-  
-  THeaders = packed record
-    Signature:  array [0..7] of TCharacter;
-    Version:    LongInt;
-    EntryPoint: LongInt;
-    EndImage:   LongInt;
-    Memory:     LongInt;
-    StackTop:   LongInt;
-    CmdLine:    LongInt;
-    FilePath:   LongInt;
-  end;
-  
-  
-  TImportLibName = array [0..15] of TCharacter;
-  TImportFuncName = array [0..31] of TCharacter;
-
-
-  TImportDirectoryTableEntry = packed record
-    Characteristics: LongInt;
-    TimeDateStamp: LongInt;
-    ForwarderChain: LongInt;
-    Name: LongInt;
-    FirstThunk: LongInt;
-  end; 
-
-
-  TImportNameTableEntry = packed record
-    Hint: Word;
-    Name: TImportFuncName;
-  end;
-  
-  
-  TImport = record
-    LibName, FuncName: TString;
-  end; 
-
-
-  TImportSectionData = record
-    DirectoryTable: array [1..MAXIMPORTLIBS + 1] of TImportDirectoryTableEntry;
-    LibraryNames: array [1..MAXIMPORTLIBS] of TImportLibName;
-    LookupTable: array [1..MAXIMPORTS + MAXIMPORTLIBS] of LongInt;
-    NameTable: array [1..MAXIMPORTS] of TImportNameTableEntry;   
-    NumImports, NumImportLibs: Integer;
-  end;
-
-
-
-var
-  Headers: THeaders; 
-  Import: array [1..MAXIMPORTS] of TImport;
-  ImportSectionData: TImportSectionData;
-  LastImportLibName: TString;
-  ProgramEntryPoint: LongInt;
-  
-  CodeSectionHeader_VirtualAddress:   LongInt;
-  DataSectionHeader_VirtualAddress:   LongInt;
-  BSSSectionHeader_VirtualAddress:    LongInt;
-  ImportSectionHeader_VirtualAddress: LongInt;  
-{  
-const
-  DOSStub: TDOSStub = 
-    (
-    $4D, $5A, $90, $00, $03, $00, $00, $00, $04, $00, $00, $00, $FF, $FF, $00, $00,
-    $B8, $00, $00, $00, $00, $00, $00, $00, $40, $00, $00, $00, $00, $00, $00, $00,
-    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
-    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $80, $00, $00, $00,
-    $0E, $1F, $BA, $0E, $00, $B4, $09, $CD, $21, $B8, $01, $4C, $CD, $21, $54, $68,
-    $69, $73, $20, $70, $72, $6F, $67, $72, $61, $6D, $20, $63, $61, $6E, $6E, $6F,
-    $74, $20, $62, $65, $20, $72, $75, $6E, $20, $69, $6E, $20, $44, $4F, $53, $20,
-    $6D, $6F, $64, $65, $2E, $0D, $0D, $0A, $24, $00, $00, $00, $00, $00, $00, $00
-    );
-}
- 
-
- 
-procedure Pad(var f: file; Size, Alignment: Integer);
-var
-  i: Integer;
-  b: Byte;
-begin
-b := 0;
-for i := 0 to Align(Size, Alignment) - Size - 1 do
-  BlockWrite(f, b, 1);
-end;
-
-
-
-  
-procedure FillHeaders(CodeSize, InitializedDataSize, UninitializedDataSize, ImportSize: Integer);
-const
-  PATH_SIZE   = 1024;
-  PARAMS_SIZE = 256;
-  STACK_SIZE  = 1024 * 1024;
-
-begin
-FillChar(Headers, SizeOf(Headers), #0);
-
-  CodeSectionHeader_VirtualAddress   := Align(SizeOf(Headers), SECTALIGN);
-  DataSectionHeader_VirtualAddress   := Align(SizeOf(Headers), SECTALIGN) + Align(CodeSize, SECTALIGN);
-  BSSSectionHeader_VirtualAddress    := Align(SizeOf(Headers), SECTALIGN) + Align(CodeSize, SECTALIGN) + Align(InitializedDataSize, SECTALIGN);
-  ImportSectionHeader_VirtualAddress := Align(SizeOf(Headers), SECTALIGN) + Align(CodeSize, SECTALIGN) + Align(InitializedDataSize, SECTALIGN) + Align(UninitializedDataSize, SECTALIGN);
-
-  with Headers do
-  begin
-    Signature[0] := 'M';
-    Signature[1] := 'E';
-    Signature[2] := 'N';
-    Signature[3] := 'U';
-    Signature[4] := 'E';
-    Signature[5] := 'T';
-    Signature[6] := '0';
-    Signature[7] := '1';
-    Version      := 1;
-    EntryPoint   := Align(SizeOf(Headers), SECTALIGN) + ProgramEntryPoint;  
-    EndImage     := Align(SizeOf(Headers), SECTALIGN) + Align(CodeSize, SECTALIGN) + Align(InitializedDataSize, SECTALIGN);
-    FilePath     := EndImage + Align(UninitializedDataSize, SECTALIGN);
-    Memory       := FilePath + PATH_SIZE + PARAMS_SIZE + STACK_SIZE;
-    StackTop     := FilePath + PATH_SIZE + PARAMS_SIZE + STACK_SIZE;
-    CmdLine      := FilePath + PATH_SIZE;  
-  end;  
-end;
-
-
-
-
-procedure InitializeLinker;
-begin
-FillChar(Import, SizeOf(Import), #0);
-FillChar(ImportSectionData, SizeOf(ImportSectionData), #0);
-LastImportLibName := '';
-ProgramEntryPoint := 0;
-end;
-
-
-
-
-procedure SetProgramEntryPoint;
-begin
-if ProgramEntryPoint <> 0 then
-  Error('Duplicate program entry point');
-  
-ProgramEntryPoint := GetCodeSize;
-end;
-
-
-    
-
-function AddImportFunc(const ImportLibName, ImportFuncName: TString): LongInt;
-begin
-with ImportSectionData do
-  begin  
-  Inc(NumImports);
-  if NumImports > MAXIMPORTS then
-    Error('Maximum number of import functions exceeded');
-
-  Import[NumImports].LibName := ImportLibName;
-  Import[NumImports].FuncName := ImportFuncName;
-  
-  if ImportLibName <> LastImportLibName then
-    begin
-    Inc(NumImportLibs);
-    if NumImportLibs > MAXIMPORTLIBS then
-      Error('Maximum number of import libraries exceeded');
-    LastImportLibName := ImportLibName;
-    end;
-    
-  Result := (NumImports - 1 + NumImportLibs - 1) * SizeOf(LongInt);  // Relocatable  
-  end;
-end;
-
-
-
-
-procedure FillImportSection(var ImportSize, LookupTableOffset: Integer);
-var
-  ImportIndex, ImportLibIndex, LookupIndex: Integer;
-  LibraryNamesOffset, NameTableOffset: Integer;
-
-begin
-with ImportSectionData do
-  begin
-  LibraryNamesOffset :=                      SizeOf(DirectoryTable[1]) * (NumImportLibs + 1);  
-  LookupTableOffset  := LibraryNamesOffset + SizeOf(LibraryNames[1])   *  NumImportLibs;
-  NameTableOffset    := LookupTableOffset  + SizeOf(LookupTable[1])    * (NumImports + NumImportLibs);
-  ImportSize         := NameTableOffset    + SizeOf(NameTable[1])      *  NumImports;  
-  
-  LastImportLibName := '';
-  ImportLibIndex := 0;
-  LookupIndex := 0;
-    
-  for ImportIndex := 1 to NumImports do
-    begin   
-    // Add new import library
-    if (ImportLibIndex = 0) or (Import[ImportIndex].LibName <> LastImportLibName) then
-      begin    
-      if ImportLibIndex <> 0 then Inc(LookupIndex);  // Add null entry before the first thunk of a new library    
-
-      Inc(ImportLibIndex);
-
-      DirectoryTable[ImportLibIndex].Name       := LibraryNamesOffset + SizeOf(LibraryNames[1]) * (ImportLibIndex - 1);                                                                             
-      DirectoryTable[ImportLibIndex].FirstThunk := LookupTableOffset  + SizeOf(LookupTable[1])  *  LookupIndex;
-
-      Move(Import[ImportIndex].LibName[1], LibraryNames[ImportLibIndex], Length(Import[ImportIndex].LibName));
-
-      LastImportLibName := Import[ImportIndex].LibName;   
-      end; // if
-
-    // Add new import function
-    Inc(LookupIndex);
-    if LookupIndex > MAXIMPORTS + MAXIMPORTLIBS then
-      Error('Maximum number of lookup entries exceeded');
-      
-    LookupTable[LookupIndex] := NameTableOffset + SizeOf(NameTable[1]) * (ImportIndex - 1);                                              
-
-    Move(Import[ImportIndex].FuncName[1], NameTable[ImportIndex].Name, Length(Import[ImportIndex].FuncName));
-    end;
-  end; 
-end;
-
-
-
-
-procedure FixupImportSection(VirtualAddress: LongInt);
-var
-  i: Integer;
-begin
-with ImportSectionData do
-  begin
-  for i := 1 to NumImportLibs do
-    with DirectoryTable[i] do
-      begin
-      Name := Name + VirtualAddress;
-      FirstThunk := FirstThunk + VirtualAddress;
-      end;
-      
-  for i := 1 to NumImports + NumImportLibs do
-    if LookupTable[i] <> 0 then 
-      LookupTable[i] := LookupTable[i] + VirtualAddress;
-  end;  
-end;
-
-
-
-
-procedure LinkAndWriteProgram(const ExeName: TString);
-var
-  OutFile: TOutFile;
-  CodeSize, ImportSize, LookupTableOffset: Integer;
-  
-begin
-if ProgramEntryPoint = 0 then 
-  Error('Program entry point not found');
-
-CodeSize := GetCodeSize;
-
-FillImportSection(ImportSize, LookupTableOffset);
-FillHeaders(CodeSize, InitializedGlobalDataSize, UninitializedGlobalDataSize, ImportSize);
-
-Relocate(IMGBASE + CodeSectionHeader_VirtualAddress,  
-         IMGBASE + DataSectionHeader_VirtualAddress,  
-         IMGBASE + BSSSectionHeader_VirtualAddress,   
-         IMGBASE + ImportSectionHeader_VirtualAddress + LookupTableOffset);
-
-//FixupImportSection(Headers.ImportSectionHeader.VirtualAddress);
-
-// Write output file
-Assign(OutFile, TGenericString(ExeName));
-Rewrite(OutFile, 1);
-
-if IOResult <> 0 then
-  Error('Unable to open output file ' + ExeName);
-  
-BlockWrite(OutFile, Headers, SizeOf(Headers));
-Pad(OutFile, SizeOf(Headers), FILEALIGN);
-
-BlockWrite(OutFile, Code, CodeSize);
-Pad(OutFile, CodeSize, FILEALIGN);
-
-BlockWrite(OutFile, InitializedGlobalData, InitializedGlobalDataSize);
-Pad(OutFile, InitializedGlobalDataSize, FILEALIGN);
-{
-with ImportSectionData do
-  begin
-  BlockWrite(OutFile, DirectoryTable, SizeOf(DirectoryTable[1]) * (NumImportLibs + 1));
-  BlockWrite(OutFile, LibraryNames,   SizeOf(LibraryNames[1])   *  NumImportLibs);
-  BlockWrite(OutFile, LookupTable,    SizeOf(LookupTable[1])    * (NumImports + NumImportLibs));
-  BlockWrite(OutFile, NameTable,      SizeOf(NameTable[1])      *  NumImports);
-  end;  
-Pad(OutFile, ImportSize, FILEALIGN);
-}
-Close(OutFile); 
-end;
-
-
-end. 
-

programs/develop/XDPascal/xdpk/projects2025/Compiler/MAKE.SH

@@ -1,4 +0,0 @@
-#SHS
-rm xdpk.kex
-../../xdpk.kex xdpk.pas
-exit

programs/develop/XDPascal/xdpk/projects2025/Compiler/Scanner.pas

@@ -1,698 +0,0 @@
-// XD Pascal - a 32-bit compiler for KolibriOS
-// Copyright (c) 2009-2010, 2019-2020, Vasiliy Tereshkov
-
-{$I-}
-{$H-}
-
-unit Scanner;
-
-
-interface
-
-
-uses Common;
-
-
-var
-  Tok: TToken;
-
-
-procedure InitializeScanner(const Name: TString);
-function SaveScanner: Boolean;
-function RestoreScanner: Boolean;
-procedure FinalizeScanner;
-procedure NextTok;
-procedure CheckTok(ExpectedTokKind: TTokenKind);
-procedure EatTok(ExpectedTokKind: TTokenKind);
-procedure AssertIdent;
-function ScannerFileName: TString;
-function ScannerLine: Integer;
-
-
-
-implementation
-
-
-
-type
-  TBuffer = record    
-    Ptr: PCharacter;
-    Size, Pos: Integer;
-  end;  
-  
-
-  TScannerState = record
-    Token: TToken;
-    FileName: TString;
-    Line: Integer;
-    Buffer: TBuffer;
-    ch, ch2: TCharacter;
-    EndOfUnit: Boolean;    
-  end;
-
-
-const
-  SCANNERSTACKSIZE = 10;
-
-
-var
-  ScannerState: TScannerState;
-  ScannerStack: array [1..SCANNERSTACKSIZE] of TScannerState;
-  ScannerStackTop: Integer = 0;
-  
-    
-const
-  Digits:    set of TCharacter = ['0'..'9'];
-  HexDigits: set of TCharacter = ['0'..'9', 'A'..'F'];
-  Spaces:    set of TCharacter = [#1..#31, ' '];
-  AlphaNums: set of TCharacter = ['A'..'Z', 'a'..'z', '0'..'9', '_'];
-  
-  
-
-  
-procedure InitializeScanner(const Name: TString);
-var
-  F: TInFile;
-  ActualSize: Integer;
-  FolderIndex: Integer;
-  
-begin
-ScannerState.Buffer.Ptr := nil;
-
-// First search the source folder, then the units folder, then the folders specified in $UNITPATH
-FolderIndex := 1;
-
-repeat
-  Assign(F, TGenericString(Folders[FolderIndex] + Name));
-  Reset(F, 1);
-  if IOResult = 0 then Break;
-  Inc(FolderIndex);
-until FolderIndex > NumFolders;
-
-if FolderIndex > NumFolders then
-  Error('Unable to open source file ' + Name);
-  
-with ScannerState do
-  begin
-  FileName := Name;
-  Line := 1;
-  
-  with Buffer do
-    begin
-    Size := FileSize(F);
-    Pos := 0;
-    
-    GetMem(Ptr, Size);
-    
-    ActualSize := 0;
-    BlockRead(F, Ptr^, Size, ActualSize);
-    Close(F);
-
-    if ActualSize <> Size then
-      Error('Unable to read source file ' + Name);
-    end;  
-
-  ch  := ' ';
-  ch2 := ' ';
-  EndOfUnit := FALSE;
-  end;  
-end;
-
-
-
-
-function SaveScanner: Boolean;
-begin
-Result := FALSE;
-if ScannerStackTop < SCANNERSTACKSIZE then
-  begin
-  Inc(ScannerStackTop);
-  ScannerStack[ScannerStackTop] := ScannerState;
-  Result := TRUE;
-  end; 
-end;
-
-
-
-
-function RestoreScanner: Boolean;
-begin
-Result := FALSE;
-if ScannerStackTop > 0 then
-  begin  
-  ScannerState := ScannerStack[ScannerStackTop];
-  Dec(ScannerStackTop);
-  Tok := ScannerState.Token;
-  Result := TRUE;
-  end;
-end;
-
-
-
-
-procedure FinalizeScanner;
-begin
-ScannerState.EndOfUnit := TRUE;
-with ScannerState.Buffer do
-  if Ptr <> nil then
-    begin
-    FreeMem(Ptr);
-    Ptr := nil;
-    end;
-end;
-
-
-
-
-procedure AppendStrSafe(var s: TString; ch: TCharacter);
-begin
-if Length(s) >= MAXSTRLENGTH - 1 then
-  Error('String is too long');
-s := s + ch;  
-end;
-
-
-
-
-procedure ReadChar(var ch: TCharacter);
-begin
-if ScannerState.ch = #10 then Inc(ScannerState.Line);  // End of line found
-
-ch := #0;
-with ScannerState.Buffer do
-  if Pos < Size then
-    begin
-    ch := PCharacter(Integer(Ptr) + Pos)^;
-    Inc(Pos);
-    end
-  else
-    ScannerState.EndOfUnit := TRUE; 
-end;
-
-
-
-
-procedure ReadUppercaseChar(var ch: TCharacter);
-begin
-ReadChar(ch);
-ch := UpCase(ch);
-end;
-
-
-
-
-procedure ReadLiteralChar(var ch: TCharacter);
-begin
-ReadChar(ch);
-if (ch = #0) or (ch = #10) then
-  Error('Unterminated string');
-end;
-
-
-
-
-procedure ReadSingleLineComment;
-begin
-with ScannerState do
-  while (ch <> #10) and not EndOfUnit do
-    ReadChar(ch);
-end;
-
-
-
-
-procedure ReadMultiLineComment;
-begin
-with ScannerState do
-  while (ch <> '}') and not EndOfUnit do
-    ReadChar(ch);
-end;
-
-
-
-
-procedure ReadDirective;
-var
-  Text: TString;
-begin
-with ScannerState do
-  begin
-  Text := '';
-  repeat
-    AppendStrSafe(Text, ch);
-    ReadUppercaseChar(ch);
-  until not (ch in AlphaNums);
-
-  if Text = '$APPTYPE' then             // Console/GUI application type directive
-    begin
-    Text := '';
-    ReadChar(ch);
-    while (ch <> '}') and not EndOfUnit do
-      begin
-      if (ch = #0) or (ch > ' ') then 
-        AppendStrSafe(Text, UpCase(ch));
-      ReadChar(ch);
-      end;
-      
-    if Text = 'CONSOLE' then
-      IsConsoleProgram := TRUE
-    else if Text = 'GUI' then
-      IsConsoleProgram := FALSE
-    else
-      Error('Unknown application type ' + Text);
-    end
-
-  else if Text = '$UNITPATH' then       // Unit path directive
-    begin
-    Text := '';
-    ReadChar(ch);
-    while (ch <> '}') and not EndOfUnit do
-      begin
-      if (ch = #0) or (ch > ' ') then 
-        AppendStrSafe(Text, UpCase(ch));
-      ReadChar(ch);
-      end;
-      
-    Inc(NumFolders);
-    if NumFolders > MAXFOLDERS then
-      Error('Maximum number of unit paths exceeded');
-    Folders[NumFolders] := Folders[1] + Text; 
-    end    
-    
-  else                                  // All other directives are ignored
-    ReadMultiLineComment;
-  end;  
-end;
-
-
-
-
-procedure ReadHexadecimalNumber;
-var
-  Num, Digit: Integer;
-  NumFound: Boolean;
-begin
-with ScannerState do
-  begin
-  Num := 0;
-
-  NumFound := FALSE;
-  while ch in HexDigits do
-    begin
-    if Num and $F0000000 <> 0 then
-      Error('Numeric constant is too large');
-    
-    if ch in Digits then
-      Digit := Ord(ch) - Ord('0')
-    else
-      Digit := Ord(ch) - Ord('A') + 10;
-      
-    Num := Num shl 4 or Digit;  
-    NumFound := TRUE;
-    ReadUppercaseChar(ch);
-    end;
-
-  if not NumFound then
-    Error('Hexadecimal constant is not found');
-
-  Token.Kind := INTNUMBERTOK;
-  Token.OrdValue := Num;
-  end;
-end;
-
-
-
-
-procedure ReadDecimalNumber;
-var
-  Num, Expon, Digit: Integer;
-  Frac, FracWeight: Double;
-  NegExpon, RangeFound, ExponFound: Boolean;
-begin
-with ScannerState do
-  begin
-  Num := 0;
-  Frac := 0;
-  Expon := 0;
-  NegExpon := FALSE;
-
-  while ch in Digits do
-    begin
-    Digit := Ord(ch) - Ord('0'); 
-   
-    if Num > (HighBound(INTEGERTYPEINDEX) - Digit) div 10 then
-      Error('Numeric constant is too large');
-      
-    Num := 10 * Num + Digit;
-    ReadUppercaseChar(ch);
-    end;
-
-  if (ch <> '.') and (ch <> 'E') then                                   // Integer number
-    begin
-    Token.Kind := INTNUMBERTOK;
-    Token.OrdValue := Num;
-    end
-  else
-    begin
-
-    // Check for '..' token
-    RangeFound := FALSE;
-    if ch = '.' then
-      begin
-      ReadUppercaseChar(ch2);
-      if ch2 = '.' then                                                 // Integer number followed by '..' token
-        begin
-        Token.Kind := INTNUMBERTOK;
-        Token.OrdValue := Num;
-        RangeFound := TRUE;
-        end;
-      if not EndOfUnit then Dec(Buffer.Pos);
-      end; // if ch = '.'
-      
-    if not RangeFound then                                              // Fractional number
-      begin
-
-      // Check for fractional part
-      if ch = '.' then
-        begin
-        FracWeight := 0.1;
-        ReadUppercaseChar(ch);
-
-        while ch in Digits do
-          begin
-          Digit := Ord(ch) - Ord('0');
-          Frac := Frac + FracWeight * Digit;
-          FracWeight := FracWeight / 10;
-          ReadUppercaseChar(ch);
-          end;
-        end; // if ch = '.'
-
-      // Check for exponent
-      if ch = 'E' then
-        begin
-        ReadUppercaseChar(ch);
-
-        // Check for exponent sign
-        if ch = '+' then
-          ReadUppercaseChar(ch)
-        else if ch = '-' then
-          begin
-          NegExpon := TRUE;
-          ReadUppercaseChar(ch);
-          end;
-
-        ExponFound := FALSE;
-        while ch in Digits do
-          begin
-          Digit := Ord(ch) - Ord('0');
-          Expon := 10 * Expon + Digit;
-          ReadUppercaseChar(ch);
-          ExponFound := TRUE;
-          end;
-
-        if not ExponFound then
-          Error('Exponent is not found');
-
-        if NegExpon then Expon := -Expon;
-        end; // if ch = 'E'
-
-      Token.Kind := REALNUMBERTOK;
-      Token.RealValue := (Num + Frac) * exp(Expon * ln(10));
-      end; // if not RangeFound
-    end; // else
-  end;  
-end;
-
-
-
-
-procedure ReadNumber;
-begin
-with ScannerState do
-  if ch = '$' then
-    begin
-    ReadUppercaseChar(ch);
-    ReadHexadecimalNumber;
-    end
-  else
-    ReadDecimalNumber;
-end;    
-
-
-
-
-procedure ReadCharCode;
-begin
-with ScannerState do
-  begin
-  ReadUppercaseChar(ch);
-
-  if not (ch in Digits + ['$']) then
-    Error('Character code is not found');
-
-  ReadNumber;
-
-  if (Token.Kind = REALNUMBERTOK) or (Token.OrdValue < 0) or (Token.OrdValue > 255) then
-    Error('Illegal character code');
-
-  Token.Kind := CHARLITERALTOK;
-  end;
-end;
-
-
-
-
-procedure ReadKeywordOrIdentifier;
-var
-  Text, NonUppercaseText: TString;
-  CurToken: TTokenKind;
-begin
-with ScannerState do
-  begin
-  Text := '';
-  NonUppercaseText := '';
-
-  repeat
-    AppendStrSafe(NonUppercaseText, ch);
-    ch := UpCase(ch);
-    AppendStrSafe(Text, ch);
-    ReadChar(ch);
-  until not (ch in AlphaNums);
-
-  CurToken := GetKeyword(Text);
-  if CurToken <> EMPTYTOK then        // Keyword found
-    Token.Kind := CurToken
-  else
-    begin                             // Identifier found
-    Token.Kind := IDENTTOK;
-    Token.Name := Text;
-    Token.NonUppercaseName := NonUppercaseText;
-    end;
-  end;  
-end;
-
-
-
-
-procedure ReadCharOrStringLiteral;
-var
-  Text: TString;
-  EndOfLiteral: Boolean;
-begin
-with ScannerState do
-  begin
-  Text := '';
-  EndOfLiteral := FALSE;
-
-  repeat
-    ReadLiteralChar(ch);
-    if ch <> '''' then
-      AppendStrSafe(Text, ch)
-    else
-      begin
-      ReadChar(ch2);
-      if ch2 = '''' then                                                   // Apostrophe character found
-        AppendStrSafe(Text, ch)
-      else
-        begin
-        if not EndOfUnit then Dec(Buffer.Pos);                             // Discard ch2
-        EndOfLiteral := TRUE;
-        end;
-      end;
-  until EndOfLiteral;
-
-  if Length(Text) = 1 then
-    begin
-    Token.Kind := CHARLITERALTOK;
-    Token.OrdValue := Ord(Text[1]);
-    end
-  else
-    begin
-    Token.Kind := STRINGLITERALTOK;
-    Token.Name := Text;
-    Token.StrLength := Length(Text);
-    DefineStaticString(Text, Token.StrAddress);
-    end;
-
-  ReadUppercaseChar(ch);
-  end;
-end;
-
-
-
-
-procedure NextTok;
-begin
-with ScannerState do
-  begin
-  Token.Kind := EMPTYTOK;
-
-  // Skip spaces, comments, directives
-  while (ch in Spaces) or (ch = '{') or (ch = '/') do
-    begin
-    if ch = '{' then                                                      // Multi-line comment or directive
-      begin
-      ReadUppercaseChar(ch);
-      if ch = '$' then ReadDirective else ReadMultiLineComment;
-      end
-    else if ch = '/' then
-      begin
-      ReadUppercaseChar(ch2);
-      if ch2 = '/' then
-        ReadSingleLineComment                                             // Double-line comment
-      else
-        begin
-        if not EndOfUnit then Dec(Buffer.Pos);                            // Discard ch2     
-        Break;
-        end;
-      end;
-    ReadChar(ch);
-    end;
-
-  // Read token
-  case ch of
-    '0'..'9', '$':
-      ReadNumber;
-    '#':
-      ReadCharCode;
-    'A'..'Z', 'a'..'z', '_':
-      ReadKeywordOrIdentifier;
-    '''':
-      ReadCharOrStringLiteral;
-    ':':                              // Single- or double-character tokens
-      begin
-      Token.Kind := COLONTOK;
-      ReadUppercaseChar(ch);
-      if ch = '=' then
-        begin
-        Token.Kind := ASSIGNTOK;
-        ReadUppercaseChar(ch);
-        end;
-      end;
-    '>':
-      begin
-      Token.Kind := GTTOK;
-      ReadUppercaseChar(ch);
-      if ch = '=' then
-        begin
-        Token.Kind := GETOK;
-        ReadUppercaseChar(ch);
-        end;
-      end;
-    '<':
-      begin
-      Token.Kind := LTTOK;
-      ReadUppercaseChar(ch);
-      if ch = '=' then
-        begin
-        Token.Kind := LETOK;
-        ReadUppercaseChar(ch);
-        end
-      else if ch = '>' then
-        begin
-        Token.Kind := NETOK;
-        ReadUppercaseChar(ch);
-        end;
-      end;
-    '.':
-      begin
-      Token.Kind := PERIODTOK;
-      ReadUppercaseChar(ch);
-      if ch = '.' then
-        begin
-        Token.Kind := RANGETOK;
-        ReadUppercaseChar(ch);
-        end;
-      end
-  else                                // Double-character tokens
-    case ch of
-      '=': Token.Kind := EQTOK;
-      ',': Token.Kind := COMMATOK;
-      ';': Token.Kind := SEMICOLONTOK;
-      '(': Token.Kind := OPARTOK;
-      ')': Token.Kind := CPARTOK;
-      '*': Token.Kind := MULTOK;
-      '/': Token.Kind := DIVTOK;
-      '+': Token.Kind := PLUSTOK;
-      '-': Token.Kind := MINUSTOK;
-      '^': Token.Kind := DEREFERENCETOK;
-      '@': Token.Kind := ADDRESSTOK;
-      '[': Token.Kind := OBRACKETTOK;
-      ']': Token.Kind := CBRACKETTOK
-    else
-      Error('Unexpected character or end of file');
-    end; // case
-
-    ReadChar(ch);
-  end; // case
-  end;
-  
-Tok := ScannerState.Token;  
-end; // NextTok
-
-
-
-
-procedure CheckTok(ExpectedTokKind: TTokenKind);
-begin
-with ScannerState do
-  if Token.Kind <> ExpectedTokKind then
-    Error(GetTokSpelling(ExpectedTokKind) + ' expected but ' + GetTokSpelling(Token.Kind) + ' found');
-end;
-
-
-
-
-procedure EatTok(ExpectedTokKind: TTokenKind);
-begin
-CheckTok(ExpectedTokKind);
-NextTok;
-end;
-
-
-
-
-procedure AssertIdent;
-begin
-with ScannerState do
-  if Token.Kind <> IDENTTOK then
-    Error('Identifier expected but ' + GetTokSpelling(Token.Kind) + ' found');
-end;
-
-
-
-
-function ScannerFileName: TString;
-begin
-Result := ScannerState.FileName;
-end;
-
-
-
-
-function ScannerLine: Integer;
-begin
-Result := ScannerState.Line;
-end;
-
-end.

programs/develop/XDPascal/xdpk/projects2025/Compiler/XDPK.pas

@@ -1,128 +0,0 @@
-// XD Pascal - a 32-bit compiler for KolibriOS
-// Copyright (c) 2009-2010, 2019-2020, Vasiliy Tereshkov
-
-{$APPTYPE CONSOLE}
-{$I-}
-{$H-}
-
-program XDPK;
-
-
-uses SysUtils, Common, Scanner, Parser, CodeGen, Linker;
-
-
-
-
-procedure SplitPath(const Path: TString; var Folder, Name, Ext: TString);
-var
-  DotPos, SlashPos, i: Integer;
-begin
-Folder := '';  
-Name := Path;  
-Ext := '';
-
-DotPos := 0;  
-SlashPos := 0;
-
-for i := Length(Path) downto 1 do
-  if (Path[i] = '.') and (DotPos = 0) then 
-    DotPos := i
-  else if (Path[i] = '/') and (SlashPos = 0) then
-    SlashPos := i; 
-
-if DotPos > 0 then
-  begin
-  Name := Copy(Path, 1, DotPos - 1);
-  Ext  := Copy(Path, DotPos, Length(Path) - DotPos + 1);
-  end;
-  
-if SlashPos > 0 then
-  begin
-  Folder := Copy(Path, 1, SlashPos);
-  Name   := Copy(Path, SlashPos + 1, Length(Name) - SlashPos);
-  end;  
-
-end;
-
-
-
-
-procedure NoticeProc(ClassInstance: Pointer; const Msg: TString);
-begin
-WriteLn(Msg);  
-end;
-
-
-
-
-procedure WarningProc(ClassInstance: Pointer; const Msg: TString);
-begin
-if NumUnits >= 1 then
-  Notice(ScannerFileName + ' (' + IntToStr(ScannerLine) + ') Warning: ' + Msg)
-else
-  Notice('Warning: ' + Msg);  
-end;
-
-
-
-
-procedure ErrorProc(ClassInstance: Pointer; const Msg: TString);
-begin
-if NumUnits >= 1 then
-  Notice(ScannerFileName + ' (' + IntToStr(ScannerLine) + ') Error: ' + Msg)
-else
-  Notice('Error: ' + Msg);  
-
-repeat FinalizeScanner until not RestoreScanner;
-FinalizeCommon;
-Halt(1);
-end;
-
-
-
-
-var
-  CompilerPath, CompilerFolder, CompilerName, CompilerExt,
-  PasPath, PasFolder, PasName, PasExt,
-  ExePath: TString;
-  
-
-
-begin
-SetWriteProcs(nil, @NoticeProc, @WarningProc, @ErrorProc);
-
-Notice('XD Pascal for KolibriOS ' + VERSION);
-Notice('Copyright (c) 2009-2010, 2019-2020, Vasiliy Tereshkov');
-
-if ParamCount < 1 then
-  begin
-  Notice('Usage: xdpk <file.pas>');
-  Halt(1);
-  end;
-  
-CompilerPath := TString(ParamStr(0));
-SplitPath(CompilerPath, CompilerFolder, CompilerName, CompilerExt);  
-
-PasPath := TString(ParamStr(1));
-SplitPath(PasPath, PasFolder, PasName, PasExt);
-
-InitializeCommon;
-InitializeLinker;
-InitializeCodeGen;
-
-Folders[1] := PasFolder;
-Folders[2] := CompilerFolder + 'units/';
-NumFolders := 2;
-   
-CompileProgramOrUnit('system.pas');
-CompileProgramOrUnit(PasName + PasExt);
-
-ExePath := PasFolder + PasName + '.kex';
-LinkAndWriteProgram(ExePath);
-
-Notice('Complete. Code size: ' + IntToStr(GetCodeSize) + ' bytes. Data size: ' + IntToStr(InitializedGlobalDataSize + UninitializedGlobalDataSize) + ' bytes');
-
-repeat FinalizeScanner until not RestoreScanner;
-FinalizeCommon;
-end.
-