Banc GSM émulé — dossier de run
/opt/GSM/c54x_exe
1 Synthèse
| run | élément | valeur |
|---|---|---|
| (pas de verdict.txt) |
| dossier de run | contenu | |
|---|---|---|
| Verdict et couverture | échelle des barreaux et tableau de couverture couche 1 | |
| Résultats des tests | captures VTY, diagnostics, rapports pytest, grafcets (.txt .md .mmd) | |
| Fichiers | sources, scripts, configs et docs du banc (tout fichier texte) | |
| Logs | journaux (.log), en dernier |
Méthode
Dossiers : /opt/GSM/grgsm_exe. Extensions : tous les fichiers texte (hors .git, caches, binaires, sauvegardes, LICENSE et sorties précédentes). Entrée 24 Ko, sortie 24 Ko.
Compactage sans perte : fichiers identiques cités une fois ; lignes consécutives identiques « ×N » ; lignes ne différant que par des nombres : gabarit avec ⟨k⟩ puis la liste ordonnée des valeurs (k-uplets), chaque ligne se reconstruit en remettant les valeurs dans l’ordre. Seuls les codes couleur, la négociation telnet des captures VTY et les caractères de commande sont retirés. Les .md sont inclus tels quels (titres rétrogradés) et les .mmd rendus en diagrammes Mermaid, sans compactage.
2 Resultats des tests
2.1 /opt/GSM/grgsm_exe/README.md
1525 octets, 42 lignes
2.1.1 grgsm_exe — la couche 1 gr-gsm sans QEMU
Pendant de c54x_exe, pour l’autre couche 1 : la démodulation par gr-gsm, sans QEMU, sans ARM, sans firmware.
make
./grgsm_exe --trames 5000
./grgsm_exe --verbeux2.1.1.1 Pourquoi c’est encore plus léger
Mesuré sur l’objet compilé, calypso_l1_grgsm.c demande 4 symboles à QEMU (cpu_physical_memory_rw, qemu_set_fd_handler, g_malloc, g_free) et 5 à la plateforme (calypso_api_ram, calypso_trx_get_fn, calypso_trx_autosync_fn, calypso_trf6151_arfcn, calypso_trf6151_apm_for_rf). Le binaire fait 118 Ko, contre 93 Mo pour le qemu-system-arm qui l’héberge d’habitude.
Il ouvre ses vraies entrées, vérifiable à l’exécution :
$ ss -ulnp | grep 473
127.0.0.1:4730 users:(("grgsm_exe",...)) # GSMTAP
127.0.0.1:4731 users:(("grgsm_exe",...)) # SCHPlus les segments /dev/shm/calypso_*. C’est là qu’on branche un rejeu de bursts enregistrés.
2.1.1.2 Ce que ça ne fait pas
Il n’y a pas de firmware osmocom-bb pour lire l’API RAM ni pour répondre : la L1 écrit dans le vide. C’est l’intérêt — on regarde ce qu’elle écrit, sans que trente variables se glissent entre la question et la réponse.
Sans rien qui publie sur 4731 ou dans /dev/shm, si_valid reste faux et le bilan le dit explicitement plutôt que d’afficher des zéros muets.
Les sources ne sont pas recopiées : ce binaire compile celles de /opt/GSM/qosmo, cales comprises (QOSMO=... make pour pointer ailleurs).
3 Fichiers
3.1 /opt/GSM/grgsm_exe/Makefile
759 octets, 26 lignes → 26 lignes
# grgsm_exe - la couche 1 gr-gsm du Calypso, hors QEMU.
# Les sources viennent de /opt/GSM/qosmo et ne sont PAS recopiees ici.
QOSMO ?= /opt/GSM/qosmo
CAL := $(QOSMO)/hw/arm/calypso
L1G := $(CAL)/l1-grgsm
HORS := $(QOSMO)/contrib/hors-qemu
CC ?= gcc
CFLAGS ?= -O2 -g -Wall -Wno-unused-function -Wno-unused-variable \
-Wno-unused-but-set-variable -Wno-sign-compare
CPPFLAGS := -D_GNU_SOURCE -I$(HORS)/doublures -I$(L1G) -I$(CAL) -I$(QOSMO)/include -I$(QOSMO)
LDLIBS := -lpthread -lm -lrt
SRC := src/main.c $(HORS)/cales-qemu.c \
$(L1G)/calypso_l1_grgsm.c \
$(CAL)/calypso_trf6151.c
all: grgsm_exe
grgsm_exe: $(SRC)
$(CC) $(CFLAGS) $(CPPFLAGS) -o $@ $(SRC) $(LDLIBS)
clean:
rm -f grgsm_exe
.PHONY: all clean3.2 /opt/GSM/grgsm_exe/tout-en-un.py
18668 octets, 377 lignes → 377 lignes
#!/usr/bin/env python3
"""tout-en-un.py — rassemble tous les fichiers texte (sources, scripts, configs,
docs, logs) d'un ou plusieurs dossiers dans UN fichier Markdown, raccourci SANS PERTE :
* fichiers identiques (meme contenu) : une seule copie, les autres renvoient
a la premiere ;
* lignes consecutives identiques : « ligne ×N » ;
* lignes consecutives qui ne different que par des nombres (horodatage,
compteur, fn...) : un gabarit ou les nombres constants restent en place et
les nombres variables deviennent ⟨1⟩ ⟨2⟩..., suivi de la liste ordonnee des
valeurs. On reconstruit chaque ligne en remettant les valeurs dans l'ordre.
* codes couleur ANSI et retours chariot retires (seule perte, volontaire).
./tout-en-un.py [dossier...] defaut : /opt/GSM/grgsm_exe et le dernier /root/grgsm_exe-*
SORTIE=/chemin.md EXT="sh py c" (restreint aux extensions ; defaut : tout fichier texte)
SEUIL=3 (taille mini d'un groupe)
Sont ecartes : .git et caches, binaires (ELF, images, .pyc, archives), sauvegardes
(.bak*, ~, .orig), LICENSE/COPYING et les sorties precedentes de ce script.
"""
import glob
import hashlib
import os
import re
import sys
import time
EXT = os.environ.get("EXT", "").split() # vide : tout fichier texte
SEUIL = int(os.environ.get("SEUIL", "3"))
FORMAT = os.environ.get("FORMAT", "qmd") # qmd (Quarto) ou md
SORTIE = os.environ.get("SORTIE") or "/root/grgsm_exe-%s.%s" % (time.strftime("%Y%m%d-%H%M%S"), FORMAT)
AUTEUR = os.environ.get("AUTEUR", "Banc GSM émulé — banc-max")
IGNORES = {".git", "__pycache__", ".pytest_cache", ".mypy_cache", ".ruff_cache", "node_modules", ".venv", "venv",
"rom", "roms"} # dumps de ROM (DSP Calypso) : pas a nous, pas dans le dossier
BINAIRES = set("png jpg jpeg gif bmp ico webp pdf zip gz tgz bz2 xz 7z tar bin elf o a so pyc pyo pyd "
"wav mp3 ogg mp4 sqlite db img iso woff woff2 ttf otf".split())
SAUVEGARDES = re.compile(r"(~|\.orig|\.rej|\.swp|\.bak(-\w+)?)$")
TITRE_SORTIE = "title: \"Banc GSM émulé — dossier de run\"".encode() # une sortie precedente de ce script
ANSI = re.compile(r"\x1b\[[0-9;]*[A-Za-z]")
TELNET = re.compile(rb"\xff[\xfb-\xfe].|\xff.") # negociation telnet (IAC) des captures VTY
CONTROLE = re.compile("[\x00-\x08\x0b\x0c\x0e-\x1f\x7f\ufffd]") # caracteres de commande, octets indecodables
NUM = re.compile(r"\d+")
# Preambule LaTeX du format pdf (xelatex). Sans lui : « Dimension too large » (framed
# mesure tout le bloc de code avant de le couper), lignes de code non repliees,
# diagrammes Mermaid plus larges que la page, glyphes manquants.
PDF_PREAMBULE = "".join(" %s\n" % l for l in r"""
% Code : police reduite, retour a la ligne (y compris dans les mots longs)
\usepackage{fvextra}
\fvset{fontsize=\small,breaklines,breakanywhere}
\RecustomVerbatimEnvironment{verbatim}{Verbatim}{fontsize=\small,breaklines,breakanywhere}
% Images (diagrammes Mermaid) : jamais plus larges que la ligne ni plus hautes que la page
\usepackage{adjustbox}
\usepackage{letltxmacro}
\LetLtxMacro\ORIGincludegraphics\includegraphics
\renewcommand{\includegraphics}[2][]{\adjustimage{#1,max width=\linewidth,max totalheight=.85\textheight}{#2}}
% Sans cadre : framed/snugshade mesure tout le bloc et plante ("Dimension too large")
\renewenvironment{Shaded}{\medskip}{\medskip}
% Glyphes absents de Latin Modern Roman -> DejaVu Sans
\usepackage{newunicodechar}
\newfontfamily\fallbackfont{DejaVu Sans}
\newunicodechar{↔}{{\fallbackfont ↔}}
\newunicodechar{⟨}{{\fallbackfont ⟨}}
\newunicodechar{⟩}{{\fallbackfont ⟩}}
\newunicodechar{≠}{{\fallbackfont ≠}}
\newunicodechar{∈}{{\fallbackfont ∈}}
\newunicodechar{ᵉ}{{\fallbackfont ᵉ}}
\newunicodechar{✓}{{\fallbackfont ✓}}
\newunicodechar{✗}{{\fallbackfont ✗}}
\newunicodechar{⚠}{{\fallbackfont ⚠}}
\newunicodechar{📱}{{\fallbackfont ☎}}
""".strip("\n").split("\n"))
LANG = {"sh": "bash", "bash": "bash", "py": "python", "md": "markdown", "qmd": "markdown", "mmd": "mermaid",
"txt": "text", "log": "text", "c": "c", "h": "c", "cpp": "cpp", "cc": "cpp", "hpp": "cpp",
"ini": "ini", "env": "ini", "service": "ini", "desktop": "ini", "toml": "toml", "yml": "yaml",
"yaml": "yaml", "json": "json", "patch": "diff", "diff": "diff", "mak": "makefile", "mk": "makefile",
"html": "html", "xml": "xml", "svg": "xml", "js": "javascript", "css": "css", "sql": "sql", "rs": "rust"}
NOMS_LANG = {"Makefile": "makefile", "GNUmakefile": "makefile", "Dockerfile": "dockerfile"}
def extension(nom):
return nom.rsplit(".", 1)[-1].lower() if "." in nom[1:] else ""
def langage(chemin):
"""Langage de coloration : extension, puis nom du fichier, puis shebang."""
nom = os.path.basename(chemin)
e = extension(nom)
if e in LANG:
return LANG[e]
if nom in NOMS_LANG:
return NOMS_LANG[nom]
try:
premiere = open(chemin, "rb").readline().decode("utf-8", "replace")
except OSError:
premiere = ""
if premiere.startswith("#!"):
if "python" in premiere:
return "python"
if re.search(r"\b(ba|z|da|k)?sh\b", premiere):
return "bash"
return "text"
def texte_legitime(chemin, nom):
"""Fichier texte a nous : ni binaire, ni sauvegarde, ni licence, ni sortie de ce script."""
if extension(nom) in BINAIRES or SAUVEGARDES.search(nom) or nom in ("LICENSE", "COPYING"):
return False
if nom.startswith("tout-en-un-"):
return False
try:
with open(chemin, "rb") as f:
debut = f.read(8192)
except OSError:
return False
if b"\0" in debut: # ELF, images, .pyc, archives...
return False
if TITRE_SORTIE in debut:
return False
return True
def dossiers_par_defaut():
runs = sorted(glob.glob("/root/grgsm_exe-*"), key=os.path.getmtime)
runs = [r for r in runs if os.path.isdir(r)]
return ["/opt/GSM/grgsm_exe"] + ([runs[-1]] if runs else [])
def fichiers(dossier):
for racine, dirs, noms in os.walk(dossier):
dirs[:] = sorted(d for d in dirs if d not in IGNORES)
for n in sorted(noms):
chemin = os.path.join(racine, n)
if EXT and extension(n) not in EXT:
continue
if texte_legitime(chemin, n):
yield chemin
def compacter(lignes):
"""Rend (lignes de sortie, nb de groupes compactes)."""
out, groupes, i, n = [], 0, 0, len(lignes)
while i < n:
cle = NUM.sub("\0", lignes[i])
j = i + 1
while j < n and NUM.sub("\0", lignes[j]) == cle:
j += 1
taille = j - i
if taille < SEUIL:
out.extend(lignes[i:j])
i = j
continue
groupes += 1
if "\0" not in cle: # repetition exacte
out.append("%s ×%d" % (lignes[i], taille))
i = j
continue
valeurs = [NUM.findall(l) for l in lignes[i:j]]
nb = len(valeurs[0])
varie = [len({v[k] for v in valeurs}) > 1 for k in range(nb)]
# gabarit : nombres constants remis en place, variables numerotes ⟨k⟩
morceaux, k, idx = cle.split("\0"), 0, 0
gab = morceaux[0]
for m in morceaux[1:]:
if varie[k]:
idx += 1
gab += "⟨%d⟩" % idx
else:
gab += valeurs[0][k]
gab += m
k += 1
out.append("%s ×%d" % (gab, taille))
if idx:
tuples = [",".join(v[k] for k in range(nb) if varie[k]) for v in valeurs]
# lignes de valeurs de ~100 colonnes
ligne, courant = [], " ⟨⟩ ="
for t in tuples:
if len(courant) + len(t) + 3 > 110:
ligne.append(courant)
courant = " "
courant += " (" + t + ")"
ligne.append(courant)
out.extend(ligne)
i = j
return out, groupes
def synthese(tous):
"""Run, echelle, echecs, bilan de couverture : lus dans verdict.txt / couverture.txt."""
lignes, vus = [], set()
for f in tous:
nom = os.path.basename(f)
if nom not in ("verdict.txt", "couverture.txt"):
continue
run = os.path.basename(os.path.dirname(f))
if (run, nom) in vus: # meme run copie a deux endroits
continue
vus.add((run, nom))
try:
txt = ANSI.sub("", open(f, "rb").read().decode("utf-8", "replace"))
except OSError:
continue
for l in txt.splitlines():
l = re.sub(r"\s+", " ", l.strip())
if l.startswith("ELEMENT MAX"):
lignes.append((0, "| %s | échelle | %s |" % (run, l)))
elif l.startswith("bilan :"):
lignes.append((2, "| %s | couverture | %s |" % (run, l[8:])))
elif l.startswith("couverture couche 1"):
lignes.append((1, "| %s | mode, date | %s |" % (run, l.split("—", 1)[-1].strip())))
else:
m = re.match(r"(\d+) (\S+) (ECHEC|SAUTE) ?(.*)", l)
if m:
lignes.append((3, "| %s | barreau %s %s | %s %s |" % (run, m.group(1), m.group(2), m.group(3), m.group(4))))
return [l for _, l in sorted(lignes, key=lambda x: x[0])]
MERMAID_OUVRE = "```{mermaid}" if FORMAT == "qmd" else "```mermaid"
def rendre_mmd(lignes):
return "%s\n%s\n```" % (MERMAID_OUVRE, "\n".join(lignes))
def rendre_md(lignes):
out, dans_bloc, cloture = [], False, ""
i = 0
if lignes and lignes[0].strip() == "---": # front matter YAML : montre en bloc, pas interprete
j = next((k for k in range(1, len(lignes)) if lignes[k].strip() in ("---", "...")), None)
if j:
out.append("```yaml"); out.extend(lignes[1:j]); out.append("```")
i = j + 1
while i < len(lignes):
l = lignes[i]; i += 1
m = re.match(r"^(\s*)(`{3,}|~{3,})(.*)$", l)
if m and not dans_bloc:
dans_bloc, cloture = True, m.group(2)
info = m.group(3).strip()
if info.startswith("{mermaid}") or info.startswith("mermaid"):
l = m.group(1) + MERMAID_OUVRE
elif info.startswith("{"): # ```{r ...} : jamais execute
l = m.group(1) + m.group(2) + info.strip("{}").split(" ")[0].split(",")[0]
out.append(l); continue
if m and dans_bloc and m.group(2)[0] == cloture[0] and len(m.group(2)) >= len(cloture) and not m.group(3).strip():
dans_bloc = False; out.append(l); continue
if not dans_bloc:
h = re.match(r"^(#{1,6})\s", l)
if h:
l = "#" * min(6, len(h.group(1)) + 3) + l[len(h.group(1)):]
elif l.strip() in ("---", "..."): # pas de bloc YAML ni de regle au milieu du dossier
l = "* * *"
out.append(l)
if dans_bloc:
out.append(cloture)
return "\n".join(out)
def main():
dossiers = sys.argv[1:] or dossiers_par_defaut()
vus, sections, table = {}, [], []
total_in = total_out = 0
# Ordre : les resultats des tests (.txt .md .mmd : verdicts, couverture, rapports, grafcets)
# d'abord, les fichiers du banc (sources, scripts, configs...) ensuite, les .log en dernier
CATEGORIES = (("Verdict et couverture", ()), ("Resultats des tests", ("txt", "md", "mmd", "tsv", "csv")),
("Fichiers", None), ("Logs", ("log",))) # Fichiers : tout le reste
EN_TETE = ("verdict.txt", "couverture.txt") # tout en haut, dans cet ordre
tous = []
for d in dossiers:
if not os.path.isdir(d):
table.append("| (absent) %s | | | | |" % d)
continue
tous.extend(fichiers(d))
def rang(f):
if os.path.basename(f) in EN_TETE:
return 0
e = extension(os.path.basename(f))
for i, (_, exts) in enumerate(CATEGORIES):
if exts and e in exts:
return i
return 2 # Fichiers
categorie_courante = None
def cle(f):
r = rang(f)
return (r, EN_TETE.index(os.path.basename(f)) if r == 0 else 0, tous.index(f))
for f in sorted(tous, key=cle):
if rang(f) != categorie_courante:
categorie_courante = rang(f)
nom = CATEGORIES[categorie_courante][0] if categorie_courante < len(CATEGORIES) else "Autres"
sections.append("## %s\n" % nom)
if True:
try:
brut = open(f, "rb").read()
except OSError as e:
table.append("| %s | | | | illisible : %s |" % (f, e))
continue
texte = ANSI.sub("", TELNET.sub(b"", brut).decode("utf-8", "replace")).replace("\r", "")
texte = CONTROLE.sub("", texte)
lignes = texte.split("\n")
if lignes and lignes[-1] == "":
lignes.pop()
h = hashlib.sha1(texte.encode()).hexdigest()
total_in += len(brut)
if h in vus:
sections.append("### %s\n\nidentique à %s\n" % (f, vus[h]))
continue
vus[h] = f
ext = extension(os.path.basename(f))
if ext in ("md", "qmd", "mmd"):
# Rendu, pas cite : les .mmd deviennent des diagrammes Mermaid, les .md
# sont inclus tels quels (titres retrogrades sous le titre du fichier,
# blocs mermaid rendus, blocs {r}/{python} neutralises). Pas de compactage.
total_out += len(texte) + 1
sections.append("### %s\n\n%d octets, %d lignes\n\n%s\n"
% (f, len(brut), len(lignes), rendre_md(lignes) if ext == "md" else rendre_mmd(lignes)))
continue
compact, groupes = compacter(lignes)
total_out += sum(len(l) + 1 for l in compact)
note = "%d groupes compactés" % groupes if groupes else ""
# cloture plus longue que toute suite de ` du contenu : un ``` dans un
# .py ou un .md ne referme plus le bloc (pandoc lisait alors la suite
# comme du Markdown : « Could not fetch resource »)
plus_long = max((len(m) for m in re.findall(r"`+", "\n".join(compact))), default=0)
cloture = "`" * max(3, plus_long + 1)
sections.append("### %s\n\n%d octets, %d lignes → %d lignes%s\n\n%s%s\n%s\n%s\n"
% (f, len(brut), len(lignes), len(compact), (" (%s)" % note) if note else "",
cloture, langage(f), "\n".join(compact), cloture))
runs = sorted({os.path.basename(os.path.dirname(f)) for f in tous if os.path.basename(f) == "verdict.txt"})
with open(SORTIE, "w") as o:
o.write("---\n")
o.write("title: \"Banc GSM émulé — dossier de run\"\n")
o.write("subtitle: \"%s\"\n" % (", ".join(runs) if runs else ", ".join(dossiers)))
o.write("author: \"%s\"\n" % AUTEUR)
o.write("date: \"%s\"\n" % time.strftime("%Y-%m-%d %H:%M"))
o.write("lang: fr\n")
if FORMAT == "qmd":
o.write("engine: markdown\n")
o.write("code-annotations: false\n") # un "<100>" dans un commentaire n'est pas une annotation # pandoc seul : knitr voyait des ```{r} dans les rapports inclus et s'arretait
if FORMAT == "qmd":
o.write("format:\n html:\n toc: true\n toc-depth: 3\n toc-location: left\n"
" number-sections: true\n embed-resources: true\n theme: cosmo\n"
" code-overflow: wrap\n fontsize: 0.9em\n")
o.write(" pdf:\n toc: true\n toc-depth: 3\n number-sections: true\n"
" shift-heading-level-by: -1\n" # ## Synthese = section 1, pas 0.1
" papersize: a4\n geometry: margin=2cm\n fontsize: 10pt\n"
" monofont: DejaVu Sans Mono\n" # trace de boites, ✓ ✗ ⟨⟩ ⚠ absents de Latin Modern Mono
" include-in-header:\n text: |\n" + PDF_PREAMBULE)
o.write("---\n\n")
o.write("## Synthèse\n\n")
o.write("| run | élément | valeur |\n|---|---|---|\n")
lignes_syn = synthese(tous)
o.write("\n".join(lignes_syn) + "\n\n" if lignes_syn else "| (pas de verdict.txt) | | |\n\n")
o.write("| dossier de run | contenu | |\n|---|---|---|\n")
o.write("| Verdict et couverture | échelle des barreaux et tableau de couverture couche 1 | |\n")
o.write("| Résultats des tests | captures VTY, diagnostics, rapports pytest, grafcets (.txt .md .mmd) | |\n")
o.write("| Fichiers | sources, scripts, configs et docs du banc (tout fichier texte) | |\n")
o.write("| Logs | journaux (.log), en dernier | |\n\n")
o.write("::: {.callout-note collapse=\"true\"}\n## Méthode\n\n" if FORMAT == "qmd" else "### Méthode\n\n")
o.write("Dossiers : %s. Extensions : %s. Entrée %d Ko, sortie %d Ko.\n\n"
% (", ".join(dossiers), " ".join(EXT) if EXT else "tous les fichiers texte (hors .git, caches, "
"binaires, sauvegardes, LICENSE et sorties précédentes)", total_in // 1024, total_out // 1024))
o.write("Compactage sans perte : fichiers identiques cités une fois ; lignes consécutives identiques "
"« ×N » ; lignes ne différant que par des nombres : gabarit avec ⟨k⟩ puis la liste ordonnée "
"des valeurs (k-uplets), chaque ligne se reconstruit en remettant les valeurs dans l'ordre. "
"Seuls les codes couleur, la négociation telnet des captures VTY et les caractères de commande "
"sont retirés. Les .md sont inclus tels quels (titres rétrogradés) et les .mmd rendus en "
"diagrammes Mermaid, sans compactage.\n")
o.write(":::\n\n" if FORMAT == "qmd" else "\n")
for t in table: # ne reste que les dossiers absents / fichiers illisibles
o.write(t.strip("| ").split(" |")[0] + "\n")
o.write("\n")
o.write("\n".join(sections))
print("%s : %d fichiers (%d uniques), %d Ko -> %d Ko" % (SORTIE, len(tous), len(vus), total_in // 1024,
os.path.getsize(SORTIE) // 1024))
if __name__ == "__main__":
main()3.3 /opt/GSM/grgsm_exe/src/main.c
3999 octets, 109 lignes → 109 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* grgsm_exe - la couche 1 gr-gsm du Calypso, sans QEMU et sans ARM.
*
* [2026-09-16] Pendant de c54x_exe, et encore plus leger : mesure faite sur
* l'objet compile, calypso_l1_grgsm.c ne demande que QUATRE symboles a QEMU
* (cpu_physical_memory_rw, qemu_set_fd_handler, g_malloc, g_free) et CINQ a la
* plateforme (calypso_api_ram, calypso_trx_get_fn, calypso_trx_autosync_fn,
* calypso_trf6151_arfcn, calypso_trf6151_apm_for_rf).
*
* Ce que ca permet : faire tourner la L1 contre ses entrees reelles - les
* segments /dev/shm/calypso_* et le flux SCH sur UDP 4731 - sans booter ARM
* ni firmware. Donc observer ce que la L1 fait d'un burst donne, en boucle.
*
* Ce que ca ne permet PAS : il n'y a pas de firmware osmocom-bb pour lire
* l'API RAM ni pour repondre. La L1 ecrit dans le vide, et c'est exactement
* l'interet - on regarde ce qu'elle ecrit.
*
* Les sources ne sont pas recopiees : ce binaire compile celles de
* /opt/GSM/qosmo.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stdbool.h>
#include <string.h>
#include <unistd.h>
#include "hw/arm/calypso/calypso_api.h"
void calypso_l1_init(const char *firmware_elf);
void calypso_l1_frame_tick(void);
bool calypso_l1_si_valid(void);
uint32_t calypso_l1s_fn(void);
bool calypso_l1_read_override(uint32_t off, uint16_t *out);
/* ── ce que la plateforme fournirait ───────────────────────────────────── */
static uint16_t g_api_ram[CALYPSO_API_WORDS];
static uint32_t g_fn;
static int64_t g_fn_offset;
uint16_t *calypso_api_ram(void) { return g_api_ram; }
uint32_t calypso_trx_get_fn(void) { return (uint32_t)((int64_t)g_fn + g_fn_offset); }
void calypso_trx_autosync_fn(uint32_t sch_fn)
{
g_fn_offset = (int64_t)sch_fn - (int64_t)g_fn;
printf(" [sync] SCH fn=%u -> decalage %+lld\n",
sch_fn, (long long)g_fn_offset);
}
/* Sans ARM il n'y a pas de memoire invitee : les lectures rendent zero. */
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{
(void)addr;
if (!wr) {
memset(buf, 0, len);
}
}
/* Le tap L1CTL sort par l'UART modem, qui n'existe pas ici. */
void calypso_l1ctl_tap_channel_released(void) { }
int main(int argc, char **argv)
{
long trames = 5000;
bool verbeux = false;
for (int i = 1; i < argc; i++) {
if (!strcmp(argv[i], "--trames") && i + 1 < argc) trames = atol(argv[++i]);
else if (!strcmp(argv[i], "--verbeux")) verbeux = true;
else {
fprintf(stderr, "usage: %s [--trames N] [--verbeux]\n", argv[0]);
return 2;
}
}
printf("couche 1 gr-gsm, hors QEMU\n");
printf(" entrees attendues : /dev/shm/calypso_* et SCH sur UDP 4731\n\n");
calypso_l1_init(NULL);
uint16_t *d_task_d = &g_api_ram[(API_R_PAGE(0) + RP_D_TASK_D) / 2];
unsigned si_ok = 0, taches = 0;
uint16_t prec = 0;
for (long t = 0; t < trames; t++) {
g_fn = (uint32_t)t;
calypso_l1_frame_tick();
if (calypso_l1_si_valid()) si_ok++;
if (*d_task_d != prec) { taches++; prec = *d_task_d; }
if (verbeux && (t % 100) == 0) {
printf(" trame %5ld fn=%u l1s_fn=%u d_task_d=0x%04x si=%d\n",
t, calypso_trx_get_fn(), calypso_l1s_fn(), *d_task_d,
calypso_l1_si_valid());
}
usleep(100); /* ~4.6 ms de trame TDMA, accelere */
}
printf("\n─── bilan sur %ld trames ───\n", trames);
printf(" si_valid vrai : %u trame(s)\n", si_ok);
printf(" d_task_d change : %u fois\n", taches);
if (!si_ok) {
printf("\n si_valid toujours faux : aucune entree ne parvient a la L1.\n"
" Normal si rien ne publie dans /dev/shm/calypso_* ni sur UDP 4731.\n"
" C'est la que se branche un rejeu de bursts enregistres.\n");
}
return 0;
}4 Synthèse
| run | élément | valeur |
|---|---|---|
| (pas de verdict.txt) |
| dossier de run | contenu | |
|---|---|---|
| Verdict et couverture | échelle des barreaux et tableau de couverture couche 1 | |
| Résultats des tests | captures VTY, diagnostics, rapports pytest, grafcets (.txt .md .mmd) | |
| Fichiers | sources, scripts, configs et docs du banc (tout fichier texte) | |
| Logs | journaux (.log), en dernier |
Méthode
Dossiers : /opt/GSM/c54x_exe. Extensions : tous les fichiers texte (hors .git, caches, binaires, sauvegardes, LICENSE et sorties précédentes). Entrée 857 Ko, sortie 855 Ko.
Compactage sans perte : fichiers identiques cités une fois ; lignes consécutives identiques « ×N » ; lignes ne différant que par des nombres : gabarit avec ⟨k⟩ puis la liste ordonnée des valeurs (k-uplets), chaque ligne se reconstruit en remettant les valeurs dans l’ordre. Seuls les codes couleur, la négociation telnet des captures VTY et les caractères de commande sont retirés. Les .md sont inclus tels quels (titres rétrogradés) et les .mmd rendus en diagrammes Mermaid, sans compactage.
5 Resultats des tests
5.1 /opt/GSM/c54x_exe/LAUNCH.md
11864 octets, 196 lignes
5.1.1 Lancer le côté mobile, processus par processus
Deux montages, cinq processus au plus, tous côté mobile. Le réseau (osmo-bts-trx, BSC, MSC, HLR…) n’est jamais lancé ici ; le pont l’attend s’il existe.
| montage | nom à taper | ce qui tourne |
|---|---|---|
| dsp | qosmo-dsp |
c54x_exe --arm → qosmo (QEMU, CALYPSO_DSP_EXTERN=1) → osmocon → mobile → pont_dsp.py --dsp-port 6702 |
| grgsm | qosmo-grgsm |
qosmo (QEMU, couche 1 gr-gsm intégrée) → osmocon → mobile → pont.py |
qosmo-dsp et qosmo-grgsm sans argument lancent tout dans l’ordre, chaque étape attendant la précédente sur un critère observable. --status, --logs, --stop, --step N. Journaux et pid dans /tmp/c54x-pont/. Les anciens lanceurs C du même nom sont conservés en qosmo-dsp-launch / qosmo-grgsm-launch (ils visaient un rootfs ISO disparu) et reçoivent les appels avec options QEMU (-k, -dsp, …).
[2026-09-22] Le tri des deux enveloppes (
/usr/local/bin/qosmo-dsp,/usr/local/bin/qosmo-grgsm, hors dépôt) oubliait--qemu,--cpuet--monitor, et ne regardait que le premier argument. Orqosmo-grgsm/run_modules/40-qemu.shappelleqosmo-grgsm --qemu <bin> -k <elf> --bin <bin> --cpu arm946 --gdb N --rundir <dir> --monitor <dir>/qemu-monitor.sock—--qemuen tête. Le motif ne matchait pas, l’appel partait donc surc54x_exe/run.sh, qui sortait aussitôt suroption inconnue : --qemu. QEMU ne démarrait jamais et le module échouait trente secondes plus tard sur « socket du moniteur QEMU : toujours pas prêt » — un message qui désigne le moniteur alors que rien n’avait été lancé. Les deux enveloppes balaient maintenant tous les arguments et connaissent les six options du lanceur C. Elles ne sont dans aucun dépôt : une réinstallation les écrasera.
Chaque processus se lance aussi seul, par son nom, dans cet ordre.
5.1.1.1 1. c54x_exe — le DSP (montage dsp seulement)
c54x_exe # = /opt/GSM/c54x_exe/c54x_exe --arm -v
c54x_exe --arm --iq cell # + une cellule GMSK synthétique (FCCH/SCH/factice)
c54x_exe --trames 50 # mode autonome, sans ARM : la mask-ROM seule- Rôle : la mask-ROM TI du TMS320C54x, exécutée hors QEMU (
/opt/GSM/qosmo/hw/arm/calypso/l1-dsp/). - Publie :
/dev/shm/calypso_api_ram(la fenêtre API, alias dedata[0x0800..]du C54x) et/tmp/calypso_dsp.sock(verrou trame par trame, protocolecalypso_dsp_pont.h). - Écoute : UDP 6702, les bursts descendants pour le BSP (
calypso_bsp.c). - Attendu :
pont : en attente de l'ARM sur /tmp/calypso_dsp.sock. - Vérifier :
ls -la /dev/shm/calypso_api_ram /tmp/calypso_dsp.sock. - Options :
--insns Nbudget par trame (200000 par défaut avec--arm, 80000 viarun.sh),--iq fcch|cell|tone:x|noise,--amp N,-và-vvvvvvpour les traces du cœur (sondes pures coupées par défaut :CALYPSO_SONDES=1ou-vvvvles rallume). - Environnement (2026-09-23) :
CALYPSO_BSP_ATTENTE_MS=40(posé parrun.sh),PONT_TCH_DEPOT_IDLE=0(ancien dépôt du burst TCH, avant l’IDLE),PONT_DONE_TOT=0(DONE rendu en fin de trame, ancien ordre).dsp.logimprime toutes les 1000 trames[chrono] ... qemu | A | go | B | apres DONE. Sondes :/dev/shm/calypso_bsp_dedie(magasin dédié du BSP : joués/manqués/perdues) ; sur canal dédié, enregistrement/dev/shm/calypso_rejeu_tch.binpourtools/rejeu_banc(CALYPSO_REJEU_ENREG=0coupe). - Lien montant : publie
/dev/shm/calypso_rach,calypso_sdcch_ul,calypso_tch_facch_ul,calypso_tch_sacch_ul,calypso_tch_ulen scrutant l’API RAM (src/montant.c) — c’est par là que le RACH du mobile atteint pont.py puis la BTS.MONTANT=0coupe,MONTANT_DEBUG=Nrègle les traces,MONTANT_CONSOMME_RACH=1rend le déclenchement exact. Depuis le 2026-09-23 :MONTANT_KC=0(Kc danscalypso_kc_l1),MONTANT_PAROLE_TI=0(parole montante brute, sans conversion TI -> FR),MONTANT_TCH_TACHE=0(bascule TCH à l’annonce du pont au lieu de la tâche du firmware),MONTANT_AFD=0/MONTANT_ADD=0(sondes[a_fd]/[a_dd]). Vérifier :./c54x_exeimprime[montant] RACH ra=0x.. bsic=..etpont.logpasse derach=0àrach=N. En appel :[montant] TCH : le firmware poste la tache 13 a fn=..., BSP bascule sur TS2, puisle firmware est revenu sur le SDCCH (tache ALLC)à la libération.
5.1.1.2 2. qosmo — l’ARM et la layer1 osmocom-bb
# montage dsp
CALYPSO_DSP_EXTERN=1 /opt/GSM/qosmo/build/qemu-system-arm -M calypso -cpu arm946 \
-display none -parallel none -serial pty -serial pty \
-monitor unix:/tmp/qemu-monitor-pont.sock,server,nowait \
-kernel /opt/GSM/firmware/board/compal_e88/layer1.highram.elf
# montage grgsm : la même ligne sans CALYPSO_DSP_EXTERNRôle : le Calypso (ARM946) qui exécute
layer1.highram.elf.-kernelest obligatoire : sans lui le CPU part à 0 et plante en0x840000, le romload d’osmocon ne charge rien.Avec
CALYPSO_DSP_EXTERN=1: la fenêtre API0xFFD00000est le segment partagé, la couche 1 gr-gsm est désactivée avant d’ouvrir ses ports, le registreCNTL_RSTrelaieRESET_DSPau DSP, un timer de boot cadence le DSP avant l’activation du TPU.Sans : la couche 1 gr-gsm (le shunt) écoute UDP 4730 (GSMTAP) et 4731 (SCH), nourris par le pont.
Attendu (stderr) :
char device redirected to /dev/pts/N (label serial0) <- le pty modem [trx] pont DSP : API RAM partagee ... + socket /tmp/calypso_dsp.sock (dsp) [trx] pont DSP : RESET_DSP relache par le firmware -> PONT_RESET (dsp) [trx] pont DSP : le TDMA du firmware prend le relais du timer de boot (dsp) [l1] backend gr-gsm : GSMTAP udp/4730, SCH udp/4731 (grgsm)et côté
c54x_exe:RESET #1 ... pc=0xff80puisDSP boote (premier IDLE).Vérifier :
printf 'xp /96bx 0x008305f0\n' | nc -U /tmp/qemu-monitor-pont.sockmontre le dernier printf du firmware (DSP API Version: 0x4e2a 0x491a).run.shécrit le pty dans/tmp/c54x-pont/modem.pty.Ce que
run.shajoute (2026-09-23) :-gdb tcp:127.0.0.1:1234et la consoletelnet 0 44444(qosmo-dsp/tools/gdb-telnet.py; Ctrl-C arrête l’ARM, « continue & » le relance ;GDB=0coupe) ;CALYPSO_PONT_RETRY_DIV=64et, enLOCKSTEP=1(défaut),CALYPSO_PONT_LOCKSTEP=1sur QEMU ;ASSEMBLY_LOGS=1donneqemu-asm.log.qemu.logs’écrit dans/run/user/0/osmo-nitb/logs/qemu.log, avec un lien dans/tmp/c54x-pont/.
5.1.1.3 3. osmocon — le chargeur et le relais L1CTL
osmocon # = osmocon -m romload -i 100 -p $(cat /tmp/c54x-pont/modem.pty) \
# -s /tmp/osmocom_l2 layer1.highram.bin- Rôle : joue le protocole romload avec le stub UART de QEMU, puis relaie le L1CTL entre le firmware (sercomm sur le pty) et la socket
/tmp/osmocom_l2. Affiche la console du firmware (FB0 (fn:att): TOA=… Power=… Angle=…). - Attendu :
Received ident ack,Progress: 100%,Received branch ack, your code is running now!. - Piège : un osmocon tué en plein téléchargement laisse le stub romload de l’UART à mi-bloc ; relancer QEMU (étape 2) puis osmocon.
5.1.1.4 4. mobile — les couches 2/3
mobile -c /opt/GSM/c54x_exe/mobile_pont.cfg # layer2-socket /tmp/osmocom_l2, VTY 4347Config (2026-09-23) :
layer2-socket /tmp/osmocom_l2,sap-socket /tmp/osmocom_sap(les mêmes que sans--dsp, plus de variantes_pont), VTY 4347 ;tch-voicegapkio-tch-format ti, ALSAgsm_out/gsm_in;tch-dataunix-sock/tmp/ms_data(CSD 9600).run.shposeL23_SYNC_RETRIES_SELECTION=8enMODE=dsp(binaire mobile partagé, défaut 1 ailleurs).Attendu dans les 5 s : côté osmocon
L1CTL_PM_REQ,L1CTL_RESET_REQ: FULL!,L1CTL_FBSB_REQ (arfcn=514 …); côté DSP le passage de 428 à ~570 insn/trame eta_sch=0100 …(la L1 ARM a poséd_task_md=5, recherche FB).Sans burst (pas de pont, ou pas de BTS) :
FBSB RESP: result=255en boucle, attendu.Vérifier :
telnet 127.0.0.1 4347puisshow ms. Le port 4347 est hors de la plage 42xx des composants réseau ;run.shrefuse de lancer si le port est pris.
5.1.1.5 5. grgsm_exe — le pont TRX (gr-gsm)
grgsm_exe # = python3 pont/pont_dsp.py --no-record --dsp-port 6702
PONT_DSP_PORT=0 grgsm_exe # montage grgsm : pont/pont.py, vers la L1 de QEMU seulement- Rôle : reçoit les bursts du BTS en TRXD (UDP 5700-5702 depuis osmo-bts-trx), les décode avec gr-gsm et alimente la couche 1 du mobile ; renvoie l’uplink au BTS.
- Vers la L1 gr-gsm (montage grgsm) : blocs L2 en GSMTAP sur 4730, FN de synchro sur 4731.
- Vers le DSP (montage dsp,
--dsp-port 6702, ajouté le 17/09) : chaque burst DL est ré-emballé au format du BSP, 8 octets[tn, fn BE32, att, 0, 0]+ 148 bits 0/1 ; le BSP les convertit en I/Q et les dépose en DARAM0x2a00, d’où le DSP les lit. - Par
run.sh(PONT=1, défaut 0) : le pont est lancé sans--no-record(PONT_AIRREC=1, pour la FFT du panneau), à la différence de l’enveloppegrgsm_exe. - Attendu :
pont TRX : ports 5700/5701/5702, ARFCN 514, BSIC 7puis des lignesSTATS fn=… | DL bursts=N.DL bursts=0tant qu’aucun BTS n’émet : normal sans réseau.
5.1.1.6 Ordre d’arrêt et nettoyage
qosmo-dsp --stop (ou run.sh --stop) arrête dans l’ordre inverse (pont, mobile, osmocon, gdb, QEMU, DSP) et efface /dev/shm/calypso_api_ram, /tmp/calypso_dsp.sock, /tmp/osmocom_l2, /tmp/qemu-monitor-pont.sock, /tmp/osmocom_sap, /tmp/ms_data, /dev/shm/calypso_horloge, les side-bands montants (calypso_rach, calypso_sdcch_ul, calypso_tch_*_ul) et, en montage dsp, calypso_tch_cfg. La session est rangée dans /tmp/c54x-pont/archives/<date>/ (JOURNAUX_GARDES=10).
5.1.1.7 Ce que ça donne aujourd’hui (23/09, runs du banc DSP de 20:22 et 20:32)
- Montage dsp avec la BTS (
PONT=1) : SCH et BCCH décodés, LU ACCEPT, SMS MO et MT dans les deux sens, appel MO vers l’écho 600 et appel MT depuis 100102 complets (ACTIVE, DISCONNECT, TCH fermé), A5/1 confirmé par la BTS sur les cinq établissements, parole audible dans les deux sens (run de 20:22). Aucune LOS, aucune ligne[garde-3d89]: le correctif MVKD/MVDK du cœurqosmotient sur ce run. Plus de SABM répétés depuispont/dsp/clock.py(aucune ligne SABM dans les journaux osmocom). - Ouvert, par ordre d’importance : B_BFI sur toute la parole (run de 20:32, sonde
[a_dd]étendue, non commitée :bfi=2200survues=2200,err0 sur 19 des 20 premières trames, puis 15 à 93) ; une LOS en TCH au run de 20:32 (premier appel, 20:32:45, SACCH/TF FIRE KO à chaque bloc, garde muette ; l’appel suivant reste en T3230, le troisième est sain) ; le SDCCH/8 (27 trames jetées à 20:22, dont 15 SACCH) ; la synchro SB qui ne passe qu’une fois sur trois à cinq ; la marge temps réel en TCH (4.3 à 4.6 ms de travail DSP pour 4.62 ms,[chrono]). Le détail :MAILBOX.md.
Historique (17/09) :
- Montage dsp, cellule synthétique (
IQ=cell qosmo-dsp) : le DSP détecte la FCCH (d_fb_det=1,FB0/FB1avec TOA/puissance/angle réels), grâce à deux bugs du décodeur corrigés ce jour (CALYPSO_FIX_NORM_SD,CALYPSO_FIX_F7_DELAYED). Le décodage du SCH reste ouvert (a_sch[3]=0xf8d8constant,DSP Error Status: 8), cf.qosmo-dsp/hw/arm/calypso/doc/RAPPORT_DFBDET.md§8. - Montage grgsm : la chaîne complète du banc, qui campe et fait des appels dès que le réseau et un BTS sont là.
5.2 /opt/GSM/c54x_exe/MAILBOX.md
177852 octets, 3151 lignes
5.2.1 Boîte aux lettres ARM <-> DSP (Calypso API RAM)
Deux vues de la MÊME mémoire : l’ARM l’adresse en octets depuis 0xFFD00000, le DSP en mots depuis 0x0800. Conversion : mot_dsp = 0x0800 + octet_arm/2.
Sources : qosmo/include/hw/arm/calypso/calypso_api.h et osmocom-bb/src/target/firmware/include/calypso/dsp_api.h — vérifiés concordants (#define DSP 36, branche a_serv_demod/a_pm/a_sch).
5.2.1.1 Plan général
zone ARM (octets) DSP (mots) taille
W page 0 0xFFD00000 0x0800 20 mots ARM -> DSP
W page 1 0xFFD00028 0x0814 20 mots
R page 0 0xFFD00050 0x0828 20 mots DSP -> ARM
R page 1 0xFFD00078 0x083C 20 mots
NDB 0xFFD001A8 0x08D4 268 mots partagé, non paginé5.2.1.2 Page W (ARM -> DSP), offsets en mots
+0 d_task_d 0x0800 / 0x0814
+1 d_burst_d
+2 d_task_u
+3 d_burst_u
+4 d_task_md 0x0804 / 0x0818 <- la mission : 5=FB 6=SB 8/9=TCH
+8 d_fn 0x0808 / 0x081C
+15 d_afc 0x080F / 0x0823 <- DAC AFC relayé au TWL3025
+16 d_ctrl_system 0x0810 / 0x08245.2.1.3 Page R (DSP -> ARM), offsets en mots
+0 d_task_d
+8 a_serv_demod[4] 0x0830 / 0x0844 TOA, PM, ANGLE, SNR
+12 a_pm[3] 0x0834 / 0x0848
+15 a_sch[5] 0x0837 / 0x084B <- en-tête + charge utile SB
a_sch[0] statut : bit15 B_BLUD (bloc présent), bit8 B_SCH_CRC (1=ERREUR)
a_sch[3..4] : le mot SB, sb = a_sch[3] | a_sch[4]<<16
BSIC = (sb>>2) & 0x3f5.2.1.4 NDB (partagé)
+0 d_dsp_page 0x08D4 0=reset, 2=armé page0, 3=armé page1
+14 d_dsp_state 0x08E2
+36 d_fb_det 0x08F8 non nul = FCCH trouvée
+37 d_fb_mode 0x08F9 0=recherche large, 1=étroite
+38 a_sync_demod[4] 0x08FA TOA / PM / ANGLE / SNR
0x08FA TOA, 0x08FB PM, 0x08FC ANGLE, 0x08FD SNR5.2.1.5 Qui écrit quoi — côté ARM (osmocom-bb, vérifié en source)
dsp_end_scenario() calypso/dsp.c:471
d_dsp_page = B_GSM_TASK | w_page ; puis w_page ^= 1
l1s_reset_hw() layer1/sync.c:158
d_dsp_page = 0 ; r_page = 0 ; db_r -> R page 0
appelé par prim_fbsb.c:254 et :429, donc à CHAQUE cycle FBSB raté
l1s_dsp_post() layer1/sync.c:263
memset de la page R, puis a_sch[0] = (1<<B_SCH_CRC) = 0x0100,
puis r_page ^= 1
-> l'ARM n'écrit a_sch[0] qu'avec 0x0100. Rien d'autre.5.2.1.6 Qui écrit quoi — côté DSP (ROM masque, PC relevés à l’adresse exacte)
0xb446 a_sch[0..4] <- 0 sur LES DEUX pages initialisation
0xaba2 a_sch[0] <- 0x1111 marqueur
précédé de 0xaba0 : LD #0x1111, A
encodage 80e2 000f = store *(AR2 + 0x0f), AR2 = base page R
0xb214 a_sch[0..4] <- statut + charge utile RÉSULTAT
statut observé : 0x8100 (BLUD + CRC faux) uniquement
0xb2cc d_fb_det <- 0 entrée de tâche FB : remise à zéro
0xb2cf a_sync[TOA] <- 0
0xb2d2 a_sync[PM] <- 0
0xb2d5 a_sync[ANGLE] <- 0
0xb2d8 a_sync[SNR] <- 0
0xb2c4 *(0x3fb5) <- 0x0cce pointeur du tampon d'entrée du corrélateur FB
0xb2c9 *(0x3fb5) <- 0x0d2e idem, second tampon
0x795a a_sync[TOA] <- valeur
0x798b a_sync[ANGLE] <- valeur
0x798d a_sync[SNR] <- 0x4000
0x79d4 a_sync[SNR] <- valeur
0x79de a_sync[PM] <- valeur5.2.1.7 Séquence d’une tâche SB
ARM : d_task_md = 6 sur la page W courante
ARM : d_dsp_page = 2|w_page (dsp_end_scenario)
DSP : 0xb446 met a_sch à zéro
DSP : 0xaba2 pose le marqueur 0x1111
DSP : 0xb214 écrit le résultat, a_sch[0] = 0x8100 (CRC faux)
ARM : lit db_r->a_sch, voit B_SCH_CRC=1, conclut « SB not found »
ARM : memset page R, a_sch[0] = 0x0100, r_page ^= 1
ARM : après 2 tentatives, L1CTL_RESET_REQ -> l1s_reset_hw -> d_dsp_page = 05.2.1.8 Pièges rencontrés
- Deux chemins d’écriture côté émulateur :
data_write()etdata_write_locked()(c54x_mem.c). Une sonde posée sur un seul en rate la moitié — a_sch passe par le second, a_sync_demod par le premier. - L’ARM et le DSP sont dans DEUX PROCESSUS qui partagent ce mapping. Une sonde qui compare avant/après une instruction DSP peut imputer au DSP une écriture de l’ARM. Toujours relever l’adresse passée en argument, jamais un delta.
- d_dsp_page annonce la page d’ÉCRITURE de la tâche. La page de LECTURE est
dsp_api.r_page, un compteur distinct côté ARM. Les deux ne sont pas liés.
5.2.1.9 Pourquoi le TOA ne vaut jamais 23 [2026-09-19]
Le firmware vise un ToA de 23 (prim_fbsb.c:207 last_fb->toa -= 23) et ne le voit jamais. Mesure sur 49 stores de a_sync[TOA] par la ROM en 0x795a, le mot stocké valant exactement B et T valant 48 sur tous :
AR2 = 0x0cce (tampon d'entree du correlateur FB) 26 stores
valeurs : 48 x10, 96 x8, 144 x4, 192 x2, 240, 384
multiples exacts de 48 : 26/26 = 100 %
AR2 = autre pointeur 23 stores
valeurs : 27, 31, 43, 47, 51, 55, 71, 79, 87, 91
multiples de 48 : 0/23 = 0 %Separation parfaite, aucun recouvrement. Et 48 echantillons complexes = 96 mots = UNE PAGE DMA (ALGTH=192 octets, mesure “en 4 page(s)” de 96 mots pour un burst de 296).
Quand le correlateur lit le tampon de burst, son pic tombe donc sur une frontiere de page DMA, a tous les coups. 23 est a l’interieur d’une page : il n’appartient pas a l’ensemble des valeurs atteignables. Ce n’est pas un probleme de seuil ni de rapport signal/bruit.
0x7953 : 770e 0030 store de la constante 48 -> T
0x795a : 81f8 08fa STH A, *(0x08fa) -> a_sync[TOA], vaut BA rapprocher de calypso_rhea_dma.c:490, qui decrit le mode defaillant du chainage de pages comme “corrupted FCCH, correlator peaking at the edge (TOA=39)”. Le correctif “pages contigues” a fait tomber la proportion de multiples de 48 de 86,6 % (CALYPSO_RHEA_DMA_PINGPONG=1) a 46,4 %, sans l’eliminer : il reste une couture a la granularite de la page.
5.2.1.10 Chaine complete : l’angle mort commande le doublement d’horloge [2026-09-19]
a_sync[ANGLE] rend ~0 quel que soit l'offset injecte (pente nulle sur +-2000 Hz)
-> prim_fbsb.c:312 freq_diff = ANGLE_TO_FREQ(angle) ~ 0
-> prim_fbsb.c:488 if (abs(freq_diff) < freq_err_thresh2 && snr > FB1_SNR_THRESH)
mesure a chaud : thresh2 = 800 Hz (0x008320b2),
FB1_SNR_THRESH = 0 (les seuils 2000/3000 sont sous #if 0),
SNR = 0x4000 ecrit par la ROM en 0x798d
-> 175/180 detections passent le garde, soit 97 %
-> prim_fbsb.c:492 synchronize_tdma() sur le chemin FB, rien ne repose
l'horloge derriere
-> prim_fbsb.c:345 fnr_delta = fnr_report - attempt, fnr_report etant une
COPIE de current_time.fn et attempt valant 1 ou 2
-> prim_fbsb.c:348 cinfo->fn_offset = fnr_delta (un ABSOLU)
-> sync.c:149 l1s_time_inc(current_time, fn_offset) -> horloge doublee
-> bursts normaux EMPTY -> L1CTL_RESET_REQ -> le cycle FBSB repartL’autre appel, prim_fbsb.c:231 (chemin SB), est inoffensif : gsm_fn2gsmtime() repose l’horloge en absolu trois lignes plus loin. D’ou l’echec du SB force : il repare une fois par cycle ce que le chemin FB casse a chaque detection.
Mesure a chaud confirmant le doublement, par le moniteur QEMU :
current_time.fn fn_offset rapport
64797 129070 1.992 fn_offset gele entre deux FB
65499 129070 1.971
65565 131012 1.998 rafraichi a ~2x l'horlogeAdresses de surveillance (xp/1wx sur /tmp/qemu-monitor-pont.sock) :
l1s.current_time.fn 0x0083762c
l1s.serving_cell.arfcn 0x00837644 = 514
l1s.serving_cell.bsic 0x00837646 = 42 avec PONT_CAN_SB
l1s.serving_cell.fn_offset 0x00837648 doit rester petit ; vaut ~2x l'horloge
fbs.req.band_arfcn 0x008320ac = 514
fbs.req.freq_err_thresh2 0x008320b2 = 8005.2.1.11 Le chemin SB lit d’AUTRES cellules que le chemin FB [2026-09-19]
read_fb_result() prim_fbsb.c:306 dsp_api.ndb->a_sync_demod[] NDB 0x08FA..0x08FD
read_sb_result() prim_fbsb.c:148 dsp_api.db_r->a_serv_demod[] page R 0x0830 / 0x0844Deux groupes distincts. Toute mesure faite sur l’un ne dit rien de l’autre.
Les quatre resultats du SB sont publies par la ROM en 0xb1e7..0xb1f5 depuis quatre cellules de travail, avec ANGLE et SNR CROISES par rapport a l’ordre des adresses :
0x3fa4 -> a_serv_demod[TOA] store 0xb1e9
0x3fa5 -> a_serv_demod[PM] store 0xb1ed
0x3fa7 -> a_serv_demod[ANGLE] store 0xb1f1
0x3fa6 -> a_serv_demod[SNR] store 0xb1f5
la cellule 0x3fa6 est elle-meme ecrite en PC=0x7e885.2.1.12 L’AFC est sous le seuil, pas morte
AFC_SNR_THRESHOLD = 2560 (afc.h:4)
AFC_PERIOD = 40 AFC_MIN_MUN_VALID = 8 (afc.c)
mesure sur 111 publications de a_serv_demod[SNR] :
SNR > 2560 : 17 = 15,3 % -> 6,1 mesures valides par fenetre de 40
il en faut 8. Distribution BINAIRE : 16384 (0x4000) ou un ou deux chiffres.
runavg_check_output (avg.c:34) ne remet PAS les compteurs a zero quand le
minimum n'est pas atteint, donc l'AFC finit par emettre -- vers 52 trames.
Or un cycle FBSB dure 53,6 trames en moyenne et afc_reset() remet le DAC a
-700 a chaque l1s_reset_hw(). Les deux echeances sont quasi identiques :
la correction arrive au moment ou elle est effacee.5.2.1.13 Ce qui est DISCULPE par la mesure
- Le tampon du correlateur 0x0cce : quand une vraie FCCH y est, le DSP la voit parfaitement – coherence 0.999, dphi +1.565 pour +1.571 theorique (mesure fn=2060, p51=20). Le signal arrive et l’estimateur le reconnait.
- Le chemin de resultat SB de bout en bout : avec PONT_CAN_SB, le firmware extrait BSIC=42 sur 14 acceptations sur 14, et le stocke en l1s.serving_cell.bsic (0x00837646). Ecriture des deux pages, handshake r_page, read_sb_result, desassemblage T1/T2/T3’ : tout fonctionne.
- L’AFC comme cause de l’echec SB : CALYPSO_TWL3025_AFC=0 ne change ni le verdict CRC ni la quantification du TOA.
5.2.1.14 Retractations de la session
- “le DSP n’ecrit jamais a_sch” : faux, sonde posee sur un seul des deux chemins d’ecriture (data_write vs data_write_locked).
- “le maximum du SNR est 864, 100 % des mesures AFC invalides” : faux, echantillon tronque. Le maximum est 16384 et 15,3 % passent le seuil.
- “l’estimateur d’angle est mort” : vrai pour le NDB (chemin FB), faux pour a_serv_demod (chemin SB) ou il prend des valeurs variees.
- “le doublement d’horloge est benin car ecrase par la pose absolue” : faux, l’ordre reel est inverse sur le chemin FB (prim_fbsb.c:492).
5.2.1.15 Pourquoi le TOA vaut 1251 en vivant et pas en rejeu [2026-09-20]
Rejeu (--rejouer) : le TOA du FB1 croit avec la distance de la FCCH dans la fenetre (6288, 7584, 8832, 9991, 11243 = 5 a 9 trames), ntdma est juste, la SB est decodee : 56 CRC OK sur 3000 trames, 56/56 avec le BSIC injecte, T3 valide et FN = trame du burst. Balayage BSIC 0/7/13/21/42/63 : BSIC=(sb>>2)&0x3f colle a chaque fois. La sortie depend de l’entree.
Vivant (run.sh) : TOA = 1251 (ou 1247, 1296) a CHAQUE detection, quelle que soit la distance de la FCCH. Cause, dans qemu.log :
[trx] pont DSP : DSP en retard, tick saute (fn=5548, 4340 sauts, 1202 trames jouees)Le C54x emule coute 6,7 ms par trame (mesure : 500 trames de rejeu en 3,35 s) contre 4,615 ms de temps reel GSM. QEMU cadence le TDMA a l’horloge murale et saute la trame quand le DONE du DSP n’est pas arrive : 3 trames sur 4 perdues, la ROM ne recoit qu’une trame sur 4 a 6 (transferts DMA en paquets de 13 paires aux fn 252, 258, 264, 270, 276…). Son compteur de blocs FB n’avance donc que d’une trame environ entre la commande et la FCCH : TOA ~ 1250 + quelques echantillons, ntdma = 0, fn_offset faux, la SB visee tombe 1 a 2 trames apres la trame SCH, CRC KO a tous les coups.
Correctif : CALYPSO_PONT_LOCKSTEP=1 (calypso_trx.c, existait deja) - QEMU n’avance la trame que quand le DSP a fini la precedente. run.sh l’exporte par defaut en montage dsp (LOCKSTEP=0 pour revenir a l’horloge murale). Mesure en pas-a-pas : plus aucun saut (trames=1953 a fn=1951), TOA = 11239 a 11243 (ntdma=8, delay=10, comme en rejeu), et dans osmocon.log :
SB1 (1089343:1): TOA= 24, Power= -52dBm, Angle= -152Hz
=> SB 0x001001a8: BSIC=42 fn=3826(2/ 4/ 1) qbits=4BSIC 42 = celui de la cellule synthetique, TOA 24 pour un attendu de 23 : la ROM a decode une vraie SB sur le chemin vivant, ARM reel + DSP reel.
5.2.1.16 Les SB « delirantes » : une page R lue a zero [2026-09-20]
Symptome (osmocon.log) :
SB1 (1649571:1): TOA= 0, Power=-138dBm, Angle= 0Hz
=> SB 0x00000000: BSIC=0 fn=52(0/ 0/ 1) qbits=4908Le mot SB vaut 0, TOA 0, puissance -138 dBm (a_serv_demod a zero aussi) : l’ARM a lu une page R que la ROM venait de remettre a zero en 0xb446 (init de tache, LES DEUX pages) et sur laquelle aucun resultat n’etait encore ecrit. l1s_sbdet_resp ne teste que B_SCH_CRC (bit 8) : 0x0000 passe pour un CRC OK et BSIC=0 / FN=52 sont pris pour argent comptant. Le firmware se cale alors sur un FN faux, lit les bursts normaux n’importe ou et le mobile jette tout (Dropping frame with 210 bit errors : ~46 % d’erreurs sur 456 bits, du hasard). Vu dans qemu.log comme page0 0100->0000 suivi d’une lecture ARM de la page 0.
Deux populations de CRC OK, a distinguer par le mot lui-meme :
sb = 0, TOA = 0, PM = -138 dBm -> page vide, faux positif
sb != 0, TOA ~ 23, PM ~ -52 dBm -> vraie SB (BSIC 42 ici)En rejeu le faux positif n’existe pas : l’ARM rejoue lit a la fin de la trame, apres l’ecriture du DSP. Il n’apparait qu’avec l’ARM QEMU, dont la lecture peut tomber entre la remise a zero et le resultat, ou sur l’autre page R quand les bascules r_page (ARM) et page du DSP se sont desynchronisees par des trames sautees. Le pas-a-pas reduit le second cas ; le premier reste a mesurer.
Le mobile apres une SB acceptee : avec PONT=0 la cellule synthetique n’a que FCCH, SCH et bursts factices ; les trames BCCH decodees sont donc du bruit (Dropping frame with N bit errors, N ~ 190-224) meme quand la SB est vraie. Pour aller au-dela il faut le BTS via pont.py (PONT=1) ou des bursts BCCH (SI1-4) dans cellule.c.
5.2.1.17 Etat du banc ISA [2026-09-20]
make isa_test && ./isa_test tools/isa_tests.txt : 208 exemples SPRU172C, 139 ok, 69 FAIL, 22 non assembles. Une partie des FAIL vient d’attendus mal extraits du PDF (ex. LD *AR4+, A attend un AR5 qui n’intervient pas), le reste sont de vrais ecarts (RETF, RPTB, SUBC, MVDP/MVPD, NEG/RND/SFTA sur les drapeaux). Aucun n’empeche le decodage SB observe ci-dessus.
5.2.1.18 Romload fige a 38-55 % en pas-a-pas [2026-09-20]
Symptome : osmocon reste sur Progress: 38% (ou 55 %), QEMU dit pourtant que le firmware charge par -kernel a deja lance son TDMA. Cause : c’est tdma_tick (calypso_trx.c) qui pompe le pty serie vers l’UART emulee (calypso_uart_poll_backend). Sous CALYPSO_PONT_LOCKSTEP=1, quand le DSP n’a pas fini la trame precedente, le tick sortait AVANT ce pompage et se rearmait : la serie n’avancait qu’au rythme du DSP (~7 ms par trame) et le romload, qui a un delai par bloc, decrochait. Les runs precedents passaient de justesse. Correctif (qosmo 77f61dd) : l’UART est pompee aussi sur le chemin d’attente du DSP. Mesure : 71 blocs, « your code is running now », puis FBSB_REQ dans la foulee.
5.2.1.19 L’interruption trame du DSP est un bit a usage unique [2026-09-20]
Etat de depart, en pas-a-pas : timing FB juste (TOA 11239/11243, delay=10), tache SB postee sur la trame SCH avec le burst S livre, et pourtant 1 SB en 130 cycles. Sondes :
D_TASK_MD-RD : la ROM lit d_task_md a CHAQUE trame (0xb011 -> 0xb554 ->
0xb0b4 -> 0xab7a pour FB, -> 0xaba4 pour SB) et relit la
MEME page avec la meme valeur 3 a 4 trames de suite.
PONT_PC_COUNT : aba4 (dispatch SB) 27 passages / 217 trames, b219 : 0.
DMA2 (PC ajoute aux journaux) : armements par 0xa5ef/0xa5f6, desarmement
0xa646 ; en vivant, flux continu FB rearme a CHAQUE FCCH
(trames 204, 214, 234, 244...), jamais de fenetre 764.
Rejeu : fenetre one-shot de 764 octets (382 mots) armee sur la trame de
la commande SB, et la FB1 (mode etroit) en une fenetre 764
a la trame predite, pas en flux continu.Pourquoi la ROM relit la page : sync.c l1_sync() efface la page W COURANTE a chaque trame (ligne 244) mais ne bascule w_page que si la trame porte un item DSP (dsp_end_scenario, ligne 276). La page remise au DSP garde donc sa tache tant qu’aucun nouveau scenario ne rebascule ; la ROM n’ecrit jamais d_task_md ni d_dsp_page (WATCH-WR : 0 ecriture). Le rejeu, lui, bascule w_page a chaque trame (rejouer.c l1_sync) : les pages y sont propres, d’ou le decodage.
Ce qui l’empeche sur silicium : dsp_end_scenario() appelle tpu_dsp_frameirq_enable() (TPU_CTRL_DSP_EN) a CHAQUE scenario et personne ne l’eteint jamais (tpu_frame_irq_en(1,1) seulement). Un bit qu’on rearme a chaque fois est un bit a usage unique : le TPU ne donne l’interruption trame au DSP que sur les trames ou l’ARM lui a remis une page. Le pont la levait a chaque tick. qosmo ne modelisait pas ce bit (le commentaire de calypso_c54x.c qui le pretend est perime : grep TPU_CTRL_DSP_EN ne donne que le #define).
Correctif : qosmo (calypso_trx.c) met dans TICK.b bit 16 « l’ARM a arme DSP_EN depuis le tick precedent » et consomme le bit ; pont.c ne leve vec 28 que sur ce bit (PONT_IRQ_TRAME=1 pour l’ancien comportement). Verifie d’abord en rejeu avec REJEU_IRQ_SCENARIO=1 : memes TOA, meme taux SB (27/76).
Mesure en vivant, 10 cycles FB1 :
SB acceptees : 5, toutes BSIC=42, TOA=24, -51 dBm (avant : 1/130)
fenetres one-shot 764 : 7 (380 mots), burst S (n_iq=380) sur p51 = 41/11/31
flux FB continu : plus rearme a chaque FCCHRestes : - FB1 lue vide : FB1 (5294:8): TOA=0 Power=-138dBm deux fois de suite, meme mecanisme que la SB delirante (a_sync pas encore ecrit), l’ARM retente. - FB0 a l’essai 1 avec TOA=1296 : la premiere paire de pages porte encore une FCCH du flux precedent (src=GRILLE), detection immediate et fausse distance. - Apres une SB vraie le mobile lit le BCCH et jette tout (Dropping frame with 208 bit errors, MM_EVENT_NO_CELL_FOUND) : la cellule synthetique n’a ni SI1-4 ni bursts normaux. Etape suivante : bursts BCCH dans cellule.c, ou PONT=1 avec le BTS.
5.2.1.20 Banc BTS reel (pont.py –dsp-port 6702) : ce qui manquait [2026-09-20]
- pont.py sans
--dsp-port 6702: rien ne part vers le DSP (defaut 0 = coupe). - Le BSP n’appariait les bursts que par FN (fenetre +-64) : le FN du firmware est arbitraire avant la SB et saute de centaines de milliers a chaque detection FB (prim_fbsb.c, l1s_time_inc absolu). Rien n’etait livre.
CALYPSO_BSP_STREAM=1livre dans l’ordre d’arrivee, c’est le chemin a utiliser des qu’une source temps reel alimente le DSP. - Le BSP ajoutait ses 7 timeslots de remplissage derriere chaque TS0 alors que pont.py envoie les 8 TS : 15 TS par trame (qosmo 6ad7003).
- Le DSP consomme ~100 trames/s contre 217 emises : la file de 128 bursts par TS debordait chaque seconde et jetait les plus anciens ; espacements FCCH mesures 4, 26, 18 trames au lieu de 10, 88 SB tentees / 0 decodee. File portee a 8192 (qosmo 54d8320) : flux coherent, seulement en retard.
- La livraison STREAM chargeait les bursts bruts (148 symboles) et rien pour les TS idle que le BTS n’envoie pas : trames de 1184 symboles ou moins, le compteur de la ROM derivait (offsets intra-trame du TOA FB : 264, 434, 632, 399). Assembleur de trame (qosmo 28e9989) : 8 TS a 156/157 symboles, burst factice pour les absents, fenetre SB = TS0 + 21 de marge.
Vitesse du coeur (qosmo d68baaf, 54d8320) : getenv memoise, chemin rapide sans sondes ni mutex par acces memoire. Rejeu 6,7 -> 2,5-3,0 ms/trame. Le vivant reste vers 10 ms (24-38 k instructions de ROM par trame, ~200 ns chacune, le corps de c54x_run porte encore des dizaines de comparaisons de sonde par instruction) : lockstep toujours necessaire, et la file profonde compense le retard sur le BTS.
5.2.1.21 Bursts BCCH dans la cellule, ordre ARM/DSP dans la trame [2026-09-21]
cellule.c porte maintenant les bursts normaux du TN0 : SI1-4 sur le bloc BCCH (p51 2..5, TC = (fn/51)%8 : SI1 0/4, SI2 1/5, SI3 2/6, SI4 3/7), paging vide sur les CCCH (6..9, 12..15, 16..19), factice ailleurs. Codage libosmocoding (gsm0503_xcch_encode) + assemblage sched_lchan_xcch.c d’osmo-bts, TSC = BCC, identite MCC 001 MNC 01 LAC 1 CI 6001 ARFCN 514 (CELLULE_MCC/MNC/LAC/CI/ARFCN). Verifie hors DSP : les 4 bursts reassembles redonnent les 23 octets exacts (xcch_decode). Fenetre NB de la ROM : 151 echantillons (ALGTH 604), burst a 3 de marge (tpu_window.c L1_NB_MARGIN_Q), trame remplie a la longueur exacte.
Premier symptome cote firmware : EMPTY, BURST ID 2!=1, 3!=2, 2!=0 avec un decalage qui derive. Cause : dans le tick QEMU, le TICK partait au DSP et l’IRQ trame a l’ARM en meme temps ; le DSP (un autre processus) ecrivait la page R du burst N pendant que l1_sync(N) lisait encore le burst N-2, avec un retard variable selon la charge de l’ARM. Ordre silicium mesure par sonde (PONT_NB_DEBUG, [pgA]/[pgG]/[pgB]) : la ROM copie d_task_d/d_burst_d dans la page R et arme la fenetre dans son ISR de trame, AVANT que l’ARM ne change d_dsp_page ; le resultat est ecrit apres le burst, dans la meme trame. Correctif (qosmo calypso_trx.c + calypso_inth.c, c54x_exe pont.c) : TICK en deux phases. QEMU envoie TICK(N) (bit 17 CALYPSO_PONT_TICK_DEUX_PHASES), le DSP joue l’ISR jusqu’a l’armement de la fenetre et repond DONE|PHASE_A ; QEMU leve alors l’IRQ trame, attend la fin de l1_sync(N) (ecriture IRQ_CTRL bit 0 par irq() apres le handler, comptee par l’INTH quand IRQ_NUM valait 4), puis envoie PONT_GO ; le DSP livre le burst et finit la trame. Cible EOI cumulative, resynchronisee sur timeout (256 x 290 us). Mesure : 0 EMPTY, 0 BURST ID sur des dizaines de blocs, aucun timeout. CALYPSO_PONT_ARM_FIRST=0 revient a l’ancien ordre.
Ce qui reste, et ce qui a ete mesure sur la demodulation NB de la ROM :
- Les bits demodules sont dans data[0x2be2..+148] (sonde [scan] : signe positif = 1, 146-147/148 sur un bon burst, le dernier bit toujours faux : la ROM lit 150 echantillons). Par bloc, 1 a 3 bursts sortent parfaits, les autres a ~45 % d’erreurs avec un motif CONSTANT sur la sequence d’apprentissage ; TOA=3 SNR>0 quand c’est bon, TOA=5 SNR=0 quand c’est mauvais. Deterministe : meme burst, meme resultat d’un run a l’autre.
- Le meme burst repete aux 4 positions donne 4 resultats differents : ce n’est pas le contenu seul, l’etat interne de la ROM entre en jeu.
- Sans effet sur le partage bon/mauvais : amplitude (30000 -> 6000), moyenne nulle forcee, phase porteuse (0/22.5/45), TSC 0..7 dans le burst (2 = BCC attendu), marge 0..7 (seule 3 donne quelque chose), fenetre exacte.
- Instant d’echantillonnage : SEUL 0.5 symbole marche (balayage 2.3 a 4.7 par pas de 0.1 : 3.4 et 3.6 echouent sur tous les bursts) ; MSK pur (diagonales exactes) echoue partout. Un egaliseur se degraderait en pente douce ; ici c’est un fil du rasoir.
- SNR rapporte par la ROM sur un burst PARFAIT : 91 a 600 (la SB rend 16384). L’estimateur voit un gros residu meme quand les decisions sont justes.
- Le tampon DARAM (AAD 0x0cce, 302 mots) est identique aux echantillons livres juste apres le DMA ; la ROM y recrit ensuite les mots 1..29.
- La capture reelle (IQ=reelle, BSIC 48) : TOA stable 1-2, SNR 500-660, ~200 erreurs sur 456 a chaque bloc, le motif 0x9999 dans a_cd aussi.
- Coeur C54x : histogramme d’opcodes de la phase B (PONT_NB_HIST) : 12-14 k instructions par burst, 39 k sur le 4e (decodage). La ROM bascule OVM 20 fois par burst, SAT 214 fois, NEG 720, SFTA 193, NORM 217. Le coeur n’implementait ni OVA/OVB ni la saturation OVM (le mot n’apparaissait qu’en commentaire) : ajoute en post-instruction (calypso_c54x.c, CALYPSO_C54X_OVM=0 pour revenir), plus RND src/dst, MIN/MAX (C=1 si egaux), SFTA (C = bit 32-SHIFT), SUBB (retenue inversee), retenue de ADD/SUB src,SHIFT,dst, OV efface une fois teste. Banc ISA : 139 -> 147 ok. Aucun effet sur le partage bon/mauvais des bursts.
Le decodage SB en rejeu (56 CRC OK / ~300 SCH) a le meme profil : une demodulation qui reussit sur une fraction des bursts selon le contenu. Cause commune probable, dans le coeur emule ou dans la forme du signal 1 ech/symbole que la ROM attend de la chaine analogique ; a chercher sur le chemin SB, mieux instrumente (rejouer.c), plutot que sur le NB.
Rejouer :IQ=cell PONT_NB_DEBUG=1 ./run.sh puis grep -a '\[scan\]\|\[nb\]\|\[pg' /tmp/c54x-pont/dsp.log ; balayages CELLULE_NB_DEC=auto|x, CELLULE_NB_PHASE, CELLULE_TSC=auto, PONT_NB_MARGE=auto, CELLULE_NB_FINE=1, CELLULE_NB_REPEAT=k, CELLULE_NB_AMP, CELLULE_NB_ZERO_DC, CELLULE_NB_MSK ; PONT_NB_HIST=
.
5.2.1.22 Phase porteuse = temps, et le TOA 24 de la SB [2026-09-21, suite]
- Kill-switch OVM (CALYPSO_C54X_OVM=0) : partage bon/mauvais identique, drapeaux OVA/OVB/C/TC tous a zero a l’entree de chaque burst (sonde [zones]). L’ajout OVM n’est ni la cause ni un remede. Pas de fuite de drapeaux entre bursts.
- Pas d’inversion I/Q demandee par le firmware en reception (trf6151_iq_swapped rend 0 hors TX 850) : d_task_d = 24, sans le bit 0x8000.
- Balayage de la phase porteuse par quadrants (CELLULE_NB_PHASE=quad) : 0 deg = le partage habituel ; 90 et 270 = tout mauvais ; 180 = le burst bon ressort INVERSE (143/148). Marge 2 + 270 deg reproduit exactement marge 3 + 0 deg, et marge 2 + 90 deg rend le bloc SI2 parfait mais inverse. Pour la ROM un echantillon de decalage vaut 90 deg (rotation j^n du MSK) : sa demodulation est COHERENTE sur une reference de phase fixe, l’estimation de canal sur le TSC ne resout ni le quadrant ni le signe.
- Pourquoi la SB converge a 24 et non 23 : notre burst S est place a 21 echantillons dans la fenetre, un de trop pour la geometrie que la ROM attend. IQ=cell:42:0.5:20 avec CELLULE_SB_PHASE=270 : TOA=23, qbits=0, 8/8 SB. Le NB n’en profite pas (marge 2 + 270 = marge 3 + 0).
- Traces d’execution (PONT_NB_HIST : trace_
.txt, watch_ .txt) : deux bursts 0 (bon 359, mauvais 410) suivent le MEME chemin jusqu’au pas 1698, une boucle argmax en 0x8551-0x8557 (MAX B, XC 1,NC, valeurs A ~0x3dc685d contre 0x3a0e498 : un profil PLAT a 6 % pres, pas un pic de correlation) ; c’est la que la position est choisie et qu’elle part a 5 au lieu de 3. Les « taps » ecrits en 0x2cd1.. (7 groupes) sont ensuite decales d’un mot dans le groupe pour les mauvais bursts. La reference 0x2b28+48 est lue depuis le tampon de burst a AR2 = 0x0d9f.. (mot 209, echantillon 104, un echantillon sur deux) — a comprendre en desassemblant 0x7ef4-0x8557 (PROM0).
Prochaine etape : desassembler la routine NB de la ROM autour de 0x8551 (argmax) et 0x81cd (lecture du tampon a un echantillon sur deux) pour savoir quel profil elle attend a cet endroit ; les traces de 8 bursts sont dans le repertoire donne a PONT_NB_HIST.
5.2.1.23 Le BCCH ne decode pas : le quantifieur des soft bits sort +1 partout [2026-09-21, soir]
Etat : les 4 bursts d’un bloc BCCH sont demodules sans erreur (147/148 en 0x2be2, le dernier bit hors fenetre) une fois le burst elargi (CELLULE_NB_SYM=0.3, cf. supra). Le bloc reste faux (Fire KO, a_cd = bruit). La chaine apres l’egaliseur, lue dans les traces (PONT_NB_HIST) :
0x75c9-0x75e2 division SUBC : ratio = (count << 15) / somme, count et
somme = statistiques du residu sur le TSC (0x7638-0x7697),
ex. 6 / 1523 -> 0x81 (129)
0x8154-0x815e echelle T = ((ratio << 10) >> 16) * 0x4eb8 << 2 >> 16 = 2
(ou 0 quand count = 0)
0x8166-0x8177 soft_scaled = (rnd(T * soft) << 4 >> 1) >> 16, soft = +-3000..6800
-> 0..3, signe perdu
0x82bd-0x82cd table de 129 mots lue en PROM (reada 0x7b9e..) en 0x2a8e
0x82d0-0x82dd index = soft_scaled >> 8, dest = table[0x2ace + index]
-> index 0 partout -> +1 partout
0x9a07/0x9a0a stockage 4 bits par soft bit, 29 mots par burst en
0x4200 + 29 x burst : mesure 0x1111 sur tous les mots
0x9a6a-0x9a76 desentrelacement par table + LUT (0x2c08) vers 0x2a00
0x9a78-0x9aad treillis 16 etats (dadst/dsadt/cmps), st TRN
0x9ab8-0x9ad1 traceback (bitt/roltc), puis compaction 0x9ac5.., a_cdLe treillis recoit donc des metriques (c0+c1, c0-c1) sans information et sort un chemin d’egalites, juste sur les suites de zeros et faux ailleurs (36 a 78 des 228 bits) : ce n’est PAS un defaut du desentrelaceur (test A du dossier tools/cch_ref impossible tant que le bloc ne porte pas de signe : aucun des trois candidats ne matche, 65-70 %).
Corriges au passage (isa_test 148 ok) : MPYR / MACR / MASR effacent les 16 bits bas apres l’arrondi (isa_test 132). Sans effet sur le bloc.
Bequille de diagnostic CALYPSO_HACK_SOFT_SCALE=k (c54x_exec.c, MPYR aux trois sites de l’echelle) : x256 fait apparaitre quelques -4 dans le bloc et change a_cd, sans decoder. Le facteur manquant est de l’ordre de 2^12 a 2^20 d’apres l’arithmetique ci-dessus, ce qui n’est pas plausible pour une seule instruction : une des semantiques de la chaine (sfta/sth ASM/norm/exp sur ces valeurs, ou le residu 0x7638 qui fixe count et somme) est lue de travers par le coeur ou par moi. Prochaine etape : rejouer cette chaine (entree 0x2be2 -> sortie 0x2a00) sur les valeurs des traces avec les semantiques du manuel, instruction par instruction, jusqu’au premier ecart.
5.2.1.24 Le BCCH decode : SI1-4, lai=001-01-1, le mobile campe [2026-09-21, apres-midi]
Le quantifieur n’etait pas en cause : quatre semantiques du coeur, toutes en aval de l’egaliseur, lues de travers. Trouvees en rejouant chaque etage en Python sur les traces (PONT_NB_HIST) jusqu’au premier ecart :
add Xmem,Ymem,B(0xA1xx) etait execute comme SQDST (qui est 0xE2xx) : A <- Ymem<<16, B += (AH-Xmem)^2. Site 0x8251 (fin du filtre 3 coefficients de l’egaliseur, 206 fois par burst) : la somme construite dans A etait remplacee par l’echantillon Q derotate. D’ou les “soft bits” propres mais inverses et decales d’un symbole (out[n] = -bit[n+2] au lieu de +bit[n+3]), la correlation TSC du residu nulle (count 6), l’echelle T=2 et les +1 partout. Aussi 0x8565, 0x81fa, 0x7f03, 0x7fab-0x80ec. (c54x_exec.c, blochi8 == 0xA1desactive.)*+ARx(lk)%(mode 14) utilisait encore la grille “base = AR - AR % BK” : au 4e passage du desentrelaceur (0x9a15/0x9a34/0x9a59, BK=456,mar *+AR4(57)%), AR4 = 0x2aab+57 donnait 0x291c au lieu de 0x2ae4 et la moitie impaire du bloc partait sous le tampon. (c54x_decode.c -> c54x_circ_ref, comme les modes 8-11.)sfta A,1posait C = bit 31 (regle SFTL) ; la LFSR du code de Fire (0xa168-0xa175, registre 40 bits dans A, generateur 0x04820009 viaxc C -> xor #0x0482,16,A ; xor @60(=9),A) veut le bit 39 : syndrome nul sur un bloc juste seulement avec C = src(40-SHIFT). Le manuel dit src(39-SHIFT) et son exemple (80AA001234<<5 -> C=1) ne colle a aucune des deux ; isa_test 188 echoue desormais, la ROM a raison. Avant : FIRE1 (a_cd[0]=0x8040) sur chaque bloc, “Dropping frame with N bit errors”.and/or/xor src,SHIFT,dstavec src=B (0xF2xx/0xF3xx) : operandes inverses (dst = src OP (dst<<SHIFT)) ; corrige en dst OP (src<<SHIFT) (audit qosmo-dsp vs l1-dsp). Sites 0x8ec7-0x8eca (repliement du CRC).
Verifications intermediaires (scratchpad repro.py / vit.py) : egaliseur Python avec les coefficients de la ROM = +bit[n+3] 142/142 et = la sortie ROM apres (1) ; nibbles 0x4200 = 456/456 via tools/cch_ref ; bloc 0x2a00 = 456/456 apres (2) ; mots TRN du treillis identiques au modele (228/228), traceback -> 0 erreur sur u224 ; mots 0x2c3c.. exacts.
Attention, la reference u228 de cellule_u228_attendu() etait fausse : les octets L2 se deplient LSB en premier (osmo_pbit2ubit_ext lsb_mode=1) avant le Fire et le convolutif ; en MSB d’abord la sonde [u228] annoncait “78 faux” sur un bloc juste. Corrige ; la sonde [u228]/[bloc] reste a revoir (elle lit 0x2d66, qui n’est pas la sortie).
Resultat (IQ=cell CELLULE_NB_SYM=0.3) : a_cd = 8000 06f9 0026 : 0631 001c 10f1 0100 4040 00e5 2b00 … = SI4 LAI 001-01-1 ; mobile.log : New SYSTEM INFORMATION 1/2/3/4, lai=001-01-1, 0 “Dropping frame”, “We are camping normally”. Reste : a_cd[2] (0x26/0x35 “erreurs de bits”) non nul sur un bloc parfait, sans effet (fire_crc=0) ; isa_test 147 ok / 61 FAIL.
5.2.1.25 Pas de LU ACCEPT : en montage DSP, le lien montant n’existait pas [2026-09-21, soir]
Symptome : le mobile campe (SI 1-4, lai=001-01-1, CGI=001-01-1-6001, cote pont DL bursts=2268 blocs=567 crc=0), demande sa mise a jour de position, puis tourne en rond :
mobile.log : CHANNEL REQUEST: 00 (Location Update with NECI)
RANDOM ACCESS (requests left 8..4), T3211 qui refire
osmocon.log : L1CTL_RACH_REQ (ra=0x01, offset=9, combined=1, uic=0xff) x5
pont.log : UL bursts=0 tard=0 rach=0 <- rien ne remonte
dsp.log : aucune occurrence de RACH ni de UL
/dev/shm/ : calypso_api_ram seul, pas de calypso_rachSans RACH, pas d’IMM ASS, donc pas de SDCCH, donc jamais de LU ACCEPT. La descente n’etait pas en cause.
Cause, en trois ruptures sur le meme chemin :
calypso_trx.c:325voit bien l’ecriture ded_rachet appellecalypso_l1_do_rach_written(), qui relaie al1->rach_written(calypso_l1_dispatch.c:102). Mais sousCALYPSO_DSP_EXTERN=1,calypso_l1_do_init()appellecalypso_l1_disable()(qemu.log : « couche 1 « grgsm » desactivee (DSP externe) ») :l1 == NULL, le hook est un no-op. Idem pour_page_written(d_task_u).- Cote
c54x_exe, le BSP contient tout le necessaire —calypso_bsp_tx_rach_burst()(calypso_bsp.c:2487),send_rach_ra()(:2541),send_ul()(:2344),tx_burst()(:2397) — mais personne ne les appelle : code mort. Dans les arbres precedents les appels etaient cote QEMU (qosmo-dsp/hw/arm/calypso/calypso_trx.c:1200sur ecriture de d_rach,:1945-1959poll de d_task_ra/d_task_u par trame) ; le refactor « couche 1 enregistree » les a perdus et ils n’ont pas ete reportes dans le processus DSP. pont.pyn’a qu’une entree montante : les side-bands/dev/shm(pont/uplink.py:13,134), ecrits uniquement par la couche 1 gr-gsm (qosmo-grgsm/.../calypso_l1_grgsm.c:738) — justement celle qui est desactivee.--dsp-port 6702est unidirectionnel (pont/trx.py:83-89).
Correctif : src/montant.c, appele une fois par trame depuis le PONT_TICK de src/pont.c. Il scrute l’API RAM partagee et alimente les memes side-bands qu’en montage grgsm (RACH, SDCCH UL, FACCH, SACCH, parole), avec les captures reprises telles quelles de la couche 1 gr-gsm (fenetre a_cu + 6 et son heuristique d’en-tete LAPDm, take_ul sur B_BLUD, anneau TCH). La page W est choisie sur le d_dsp_page frais du NDB (dsp_end_scenario ecrit B_GSM_TASK | w_page avant de basculer), pas sur celui echantillonne au TICK : l1_sync() tourne entre le TICK et le GO en mode deux phases.
Seul point ou la scrutation n’est pas equivalente au callback : le RACH. Le firmware ecrit d_rach (prim_rach.c:72) puis d_task_ra, et rien ne les efface (sync.c:307 ne le fait que sur ABORT). On declenche donc sur front de d_rach, avec une garde de 4 trames. Angle mort : deux tentatives de suite avec la meme RA (tiree au hasard par gsm48_rr, ~1/256) ; MONTANT_CONSOMME_RACH=1 remet d_rach a zero apres publication et rend le declenchement exact. MONTANT=0 coupe tout, MONTANT_DEBUG=N regle le nombre d’evenements imprimes (20 par defaut).
Pourquoi les side-bands et pas TRXD : calypso_bsp_send_ul() emet vers 127.0.0.1:5702, c’est-a-dire la socket descendante de pont.py, dont run_data() fait self.bts_data = addr sur tout paquet recu — le burst montant serait relu comme une descente et l’adresse de la BTS ecrasee. Une voie TRXD native demanderait d’abord un port montant dedie cote pont.
A cote, meme session : une SB annoncant BSIC=7 alors que le BSC est a 21 signifie que le QEMU lance n’a pas CALYPSO_DSP_EXTERN=1 (il ecoute alors sur udp/4730-4731). La SB est alors fabriquee par le shunt gr-gsm a partir du paquet SCH2 de pont/downlink.py:30, avec cfg.bsic = 7 par defaut (pont/config.py:45) : PONT_BSIC=21, ou le montage DSP.
5.2.1.26 Le RACH passe, l’IMM ASS revient, le mobile la jette : la reference de requete [2026-09-21, nuit]
Avec src/montant.c en place, la boucle complete se mesure sur le banc reel (sonde a 3 ms sur /dev/shm/calypso_api_ram et /dev/shm/calypso_rach) :
22:07:26 RACH publie seq=2 ra=0x0d bsic=21
22:07:29 >>> IMM ASS ra=0x0d ref T1'=3 T2=9 T3=35
brut = 2d 06 3f 03 41 a2 02 0d 1c 69 00 00 2b...
22:07:30 >>> IMM ASS ra=0x04 ref T1'=3 T2=17 T3=23
22:07:32 >>> IMM ASS ra=0x06 ref T1'=3 T2=2 T3=14Donc : le RACH part, la BTS l’entend, le BSC ouvre un SDCCH, l’IMMEDIATE ASSIGNMENT redescend sur l’AGCH, le DSP la decode et le bloc arrive dans a_cd avec la BONNE RA. Et pourtant le mobile reste en connection pending, /dev/shm/calypso_sdcch_ul n’est jamais cree (aucune tache d_task_u), et le BSC compte douze lchan allocation failed ... WAIT_RLL_RTP_ESTABLISH Timeout en quatre minutes.
Cause : gsm48_match_ra() (osmocom-bb gsm48_rr.c:3359) n’accepte une assignation que si la RA et T1’/T2/T3 correspondent a ce que sa propre couche 1 lui a confirme, et journalise sinon « request %02x matches but not frame number ». Or le banc n’emet pas l’access-burst a la trame ou le firmware a cru l’emettre : pont.py le programme sur SON horloge (pont/uplink.py:_poll_rach -> _next_fn(4, ...)), plusieurs trames plus tard, et la BTS horodate la reference avec cette trame-la.
Ce n’est pas une decouverte : la couche 1 gr-gsm contient deja le contournement (qosmo-grgsm/.../calypso_l1_grgsm.c:836-845, feed_agch() reecrit les octets 8-9 de tout IMM ASS avec le last_rach du firmware, lu par symbole ELF). Sous CALYPSO_DSP_EXTERN=1 cette couche 1 est desactivee, donc plus personne ne le faisait.
Correctif, cote QEMU cette fois (hw/arm/calypso/calypso_trx.c) :
calypso_l1_dispatch.cretient le chemin de l’ELF passe acalypso_l1_do_init()et exposecalypso_firmware_symbol()(table des symboles ELF32, reprise de la couche 1 gr-gsm).last_rachest GLOBAL a 0x00837624 danslayer1.highram.elf.api_writeretient la RA a chaque ecriture ded_rach, etpont_rach_suivi()relevelast_rach.fnune fois par trame (sur l’ecriture ded_dsp_page, quedsp_end_scenario()fait exactement une fois par trame) pour tenir un historique par RA. C’est necessaire : les assignations reviennent dans le desordre (mesure ci-dessus : 0x0d, puis 0x04, puis 0x06 alors que la derniere RA ecrite etait 0x0e).api_readintercepte la lecture ARM du seul mot concerne,API_NDB + NDB_A_CD + 14(octets 8-9 du bloc L2, la reference de requete), quand le bloc est bien06 3f, et rend la reference recalculee depuis la trame memorisee pour CETTE RA. Si aucune trame n’est connue pour elle, on ne corrige pas : fabriquer une correspondance serait pire que l’echec.MONTANT_REQREF=0coupe la correction.
Au passage, deux corrections sur le montant lui-meme :
- Le declencheur du RACH etait la valeur de
d_rach. Faux : ce mot du NDB est aussi de la memoire du C54x (data[0x0A3A]) et la ROM y laisse du residu. Echantillonnage a 4 ms pendant 90 s :d_rach = 0xfe00avecd_task_ra = 0sur les deux pages W dans 3219 relevés, contre trois vraies tentatives (0x0d54, 0x0954, 0x0c54) portant toutesd_task_ra = 0x000a. OrRACH_DSP_TASK = 10(firmwareinclude/calypso/l1_environment.h:49). Le declencheur est doncd_task_ra, et un access-burst bidon (ra=0xfe, bsic=0) partait vers la BTS a chaque demarrage.MONTANT_RACH_SUR_DRACH=1retablit l’ancien comportement. calypso_bsp.cimprimait une ligne[ts0] tick=... NB fenetre=151par trame livree : la conditionnwin > 0est vraie pour tout burst normal depuis la DMA one-shot. Repliee derriereCALYPSO_BSP_TS0_DEBUG=1.
5.2.1.27 Le mobile passe en mode dedie, sur un intervalle que le DSP ne recoit pas [2026-09-21, nuit, suite]
Avec la reference de requete corrigee, la suite se deroule : le mobile accepte l’assignation, passe en mode dedie et emet sa demande. Le bloc montant capture dans /dev/shm/calypso_sdcch_ul est exactement celui qu’on cherchait :
01 3f 49 | 05 08 70 00 f1 10 ff fe 30 08 09 10 10 00 10 00 00 10
│ │ └── L = 18
│ └───── SABM, P=1
└──────── SAPI 0
05 08 = MM / LOCATION UPDATING REQUEST, LAI 001-01
LAC=0xfffe (efface), classmark 30, IMSI 001010001000001Deux choses l’empechaient d’arriver a la BTS, toutes deux du meme genre que le reste : un point de branchement que calypso_l1_disable() avait neutralise.
1. Le canal dedie n’etait annonce a personne. pont.py ne lit pas les IMM ASS : sa classe Dedicated (pont/state.py) attend le canal dans /dev/shm/calypso_dcch_cfg, et tant qu’il manque, uplink.py:_poll_sdcch() jette tout le montant. Ce fichier etait ecrit par le tap L1CTL de la couche 1 gr-gsm (l1-grgsm/calypso_l1ctl_tap.c), branche par la vtable. Nouveau hw/arm/calypso/calypso_dcch_tap.c, qui ne depend d’aucune couche 1 : il renifle le flux sercomm du firmware, retient le chan_nr des L1CTL_DATA_CONF/DATA_IND et publie. calypso_l1_do_uart_tx_byte() l’appelle quand aucune L1 n’est enregistree ; d_dsp_page = 0 libere. Verifie sur le banc : [dcch] canal dedie arme : chan_nr=0x51 SDCCH/8 SS=2 TN=1.
2. Le DSP ne recevait que TS0. Le BSC alloue le SDCCH/8 sur TS1 ; sous CALYPSO_BSP_STREAM=1, calypso_bsp.c arretait TS1..TS7 a la reception et bsp_ts0_livrer() completait la trame avec du bourrage a zero. Le mobile n’entendait donc ni le UA ni le LU ACCEPT, d’ou le [dcch] canal dedie libere immediat et le retour en C1 normal cell selection. g_bsp_tpu_offset, la position de la fenetre RX relayee par QEMU, etait stockee et jamais lue - et de toute facon TPU_OFFSET est le decalage de synchro global, pas l’intervalle.
Correctif : QEMU sait desormais quel canal le mobile utilise (point 1), donc il l’annonce au DSP par un nouveau message du pont, PONT_DCCH (a = TN, b = genre, c = sous-voie), emis juste avant un TICK - jamais pendant l’attente d’un PONT_GO, que le DSP ignorerait. Le BSP garde alors les bursts de CET intervalle par numero de trame BTS (bsp_dedie_stocker, anneau de 2^16 trames parce que le DSP en pas-a-pas derive de plusieurs secondes) et bsp_ts0_livrer() les joue a la place de TS0. Un seul burst par tick, donc le cadencement en 1250 symboles par trame n’est pas touche.
Au passage, l’appariement RA -> trame. Premiere version : relever last_rach.fn une fois par trame et l’attribuer a la derniere RA ecrite. Mesure : trois IMM ASS ra=0x0c : aucune trame memorisee de suite. En rafale, le firmware ecrit le d_rach suivant avant que last_rach n’ait bouge pour le precedent. Deuxieme version, exacte : les RA sont mises en file a l’ecriture de d_rach et chaque L1CTL_RACH_CONF (lu par le meme tap sercomm) en depile une - c’est l’appariement que fait le mobile lui-meme dans cr_hist.
Et une mesure qui commande le reste. L’ecart entre la reference de la BTS et celle du mobile n’est pas constant, il grandit :
ra=0x08 BTS 7/14/45 = fn 9582 mobile fn 8074 1508 trames ~7,0 s
ra=0x0e BTS 8/5/33 = fn 10743 mobile fn 9464 1279 trames ~5,9 s
ra=0x0e BTS 8/0/14 = fn 11336 mobile fn 9464 1872 trames ~8,6 sC’est la derive du pas-a-pas : le C54x emule coute ~6,7 ms par trame contre 4,615 ms de temps reel, donc l’horloge du mobile prend du retard sur celle du reseau en continu. Toute comparaison de numero de trame entre les deux cotes doit donc passer par la valeur du mobile, jamais par celle du reseau.
5.2.1.28 Le LU va jusqu’a l’authentification, et meurt d’un SABM de trop [2026-09-21, nuit, fin]
Avec l’intervalle dedie livre au DSP, la procedure se deroule enfin :
IMMEDIATE ASSIGNMENT: (ta 0/0m ra 0x0b chan_nr 0x41 ARFCN 514 TS 1 SS 0 TSC 5)
request 0b matches (fn=4,6,23) <- la reference de requete colle
new state connection pending -> dedicated
New SYSTEM INFORMATION 6 / 5 (SACCH descendante decodee)
RR_EST_CNF -> location updating initiated
MT_MM_ID_REQ -> IDENTITY RESPONSE
MT_MM_AUTH_REQ -> AUTHENTICATION RESPONSE
MT_MM_LOC_UPD_REJECT <- et la, nonLe rejet n’est pas une affaire d’authentification (la Ki du test-sim et celle de auc_2g sont la meme, comp128v1) : c’est une consequence. Le BSC dit pourquoi, a la seconde pres :
22:30:54 lchan(0-0-1-SDCCH8-0){ESTABLISHED}: ERROR INDICATION
cause=SABM frame with information not allowed in this stateUn deuxieme SABM sur un lien deja etabli. La LAPDm du BTS casse le canal, le MSC se retrouve en MSC_A_ST_RELEASING et repond LOCATION UPDATING REJECT au milieu de la procedure (/var/log/osmocom/osmo-msc.log, gsm_04_08.c:112).
Coupable : l’anti-doublon repris de la couche 1 gr-gsm, qui republie un bloc identique passe 60 trames (SDCCH_UL_DEDUP_TICKS). Le firmware laisse son bloc dans a_cu ; nous le republiions, le pont le reemettait. Desormais un bloc n’est publie que si son CONTENU change, et la memoire de l’anti-doublon repart a zero a la liberation du canal (montant_canal_libere(), appele sur PONT_DCCH genre 0xFF) – sinon le SABM de la connexion suivante, octet pour octet identique, serait pris pour un doublon et ne partirait jamais. MONTANT_SDCCH_REPETE=N retablit une republication au bout de N trames. Compromis assume : une retransmission LAPDm du mobile porte les memes octets et sera avalee ; l’inverse casse le lien a coup sur.
A surveiller au prochain run : les « Dropping frame with 110 bit errors » de la descente dediee. 110 erreurs sur 456 bits, c’est la signature d’UN burst sur quatre manquant ou faux dans le bloc. Elles sont nombreuses au moment de l’etablissement (le canal n’est arme qu’au premier DATA_CONF/IND, donc les premiers blocs partent sans intervalle dedie), puis rares pendant la transaction (SI5, SI6, ID REQUEST, AUTH REQUEST passent tous), puis permanentes apres le rejet (le BTS n’emet plus rien sur TS1).
5.2.1.29 Le SABM ne partait plus du tout : la liberation lue au mauvais endroit [2026-09-21, nuit, suite]
Apres avoir mis « un seul SABM par connexion », le BSC ne dit plus ERROR INDICATION mais WAIT_RLL_RTP_ESTABLISH: Timeout : plus de doublon, et plus de SABM du tout. La trace QEMU montre le defaut en deux lignes :
[dcch] canal dedie arme : chan_nr=0x41 SDCCH/8 SS=0 TN=1
[dcch] canal dedie libere : chan_nr=0x00 SDCCH/4 SS=0 TN=0Armé puis libéré dans la seconde. Le tap publiait « libere » sur d_dsp_page == 0, condition reprise du l1_reset() de la couche 1 gr-gsm. Faux ici : le firmware fait justement un l1s_dsp_abort() (sync.c:308) au moment ou il bascule VERS le canal dedie – c’est le « resetting scheduler » du journal du mobile, juste apres l’IMMEDIATE ASSIGNMENT. pont.py voyait donc un canal libere et jetait le SABM.
Tant que le SABM etait republie toutes les secondes, le defaut etait masque : une republication finissait toujours par tomber dans une fenetre ou le canal etait arme. C’est ce qui explique que la session de 22:30 ait pu aller jusqu’a l’AUTHENTICATION RESPONSE malgre les doublons.
Deux corrections :
- La liberation se lit sur le retour aux voies communes, pas sur
d_dsp_page. UnL1CTL_DATA_IND/DATA_CONFportant unchan_nrnon dedie (BCCH, CCCH) veut dire que le mobile est revenu sur les voies communes ; en mode dedie il n’en lit aucun, donc ca ne peut pas arriver au milieu d’une connexion.calypso_l1_do_page_written()ne libere plus rien. - Le bloc montant attend son canal (
pont/uplink.py:_poll_sdcch). La couche 1 publie le SABM a l’instant ou elle l’emet, etDedicated.read()ne relit/dev/shm/calypso_dcch_cfgqu’une fois parDCCH_TTL(100 ms) : le premier bloc d’une connexion tombait regulierement dans cette fenetre et disparaissait. On force desormais une relecture des qu’un bloc arrive, et on garde le bloc jusqu’a une seconde si le canal n’est pas encore connu, au lieu de le jeter (SDCCH_ATTENTE).
5.2.1.30 Le canal dedie battait : arme/libere des dizaines de fois par seconde [2026-09-21, nuit, suite]
Deuxieme version de la liberation (« un bloc sur une voie commune veut dire que le mobile est revenu ») : pire que la premiere. Trace QEMU pendant une connexion :
[dcch] canal dedie arme : chan_nr=0x41 SDCCH/8 SS=0 TN=1
[dcch] canal dedie libere : chan_nr=0x00 SDCCH/4 SS=0 TN=0
[dcch] canal dedie arme : chan_nr=0x41 SDCCH/8 SS=0 TN=1
[dcch] canal dedie libere : chan_nr=0x00 ... (x N, en boucle)Le BSP basculait donc entre TS0 et TS1 a chaque bloc. Cote mobile : tous les blocs descendants a 110/98/87 erreurs, aucun UA, MDL-ERROR-IND cause 1 (T200/N200) et liberation – alors que l’IMMEDIATE ASSIGNMENT avait ete acceptee (request 07 matches (fn=2,13,26)).
Deux criteres ajoutes, tous deux necessaires pour liberer :
- Un vrai canal commun. 44.004 8.3 : 0x80 BCCH, 0x88 RACH, 0x90 PCH/AGCH, donc
(chan_nr & 0xE0) == 0x80. Ce qui declenchait la liberation portaitchan_nr = 0x00, qui n’est pas un canal. - Un ecart de trames. Le bloc commun doit etre au moins DCCH_LIBERE_APRES_TRAMES (100) trames apres le dernier bloc du canal dedie, d’apres le numero de trame que porte l’en-tete L1CTL. Un bloc CCCH en retard, delivre juste apres la bascule, porte un numero proche et ne libere donc rien.
Rappel de l’historique de ce seul point, parce qu’il resume la difficulte : la liberation a d’abord ete lue sur d_dsp_page == 0 (tire a l’entree en mode dedie, pas a la sortie), puis sur le premier bloc commun venu (tire en boucle pendant la connexion). Le bon signal est le retour durable sur les voies communes.
5.2.1.31 a_cu porte un drapeau : il n’y avait rien a deviner [2026-09-21, nuit, fin de l’histoire]
Trois versions successives de l’anti-doublon SDCCH montant, trois echecs :
- Fenetre heuristique + republication apres 60 trames (repris de la couche 1 gr-gsm) : le meme SABM repartait sur un lien etabli, le BTS repondait « SABM frame with information not allowed in this state » et cassait le canal en pleine procedure.
- Comparaison du contenu sur 23 octets : la friture apres la charge utile bouge d’une lecture a l’autre, 32 blocs « neufs » publies pour un seul SABM.
- Verrou « un seul SABM par connexion » : plus aucun SABM des que le verrou restait arme, et il ne retombait que sur un RACH publie ou une liberation annoncee – deux evenements qui peuvent ne jamais venir. Un verrou qui coince le banc definitivement.
Le firmware annonce pourtant chaque bloc, explicitement (layer1/prim_tx_nb.c:80-101) :
uint16_t *info_ptr = dsp_api.ndb->a_cu;
info_ptr[0] = (1 << B_BLUD); /* bloc present */
info_ptr[1] = 0; info_ptr[2] = 0;
dsp_memcpy_to_api(&info_ptr[3], data, 23, 0); /* les 23 octets L2 */C’est exactement la disposition que prendre_ul() lit deja pour le TCH, et le drapeau est a usage unique. Donc : on le teste, on prend les 23 octets du mot 3, on l’efface. Un bloc pose = une publication, sans fenetre, sans comparaison, sans temporisation, sans verrou.
MONTANT_SDCCH_FENETRE=1 force l’ancienne voie, et elle prend le relais toute seule si B_BLUD ne se leve jamais alors que le firmware pose des taches montantes (cas ou la ROM consommerait le drapeau avant la scrutation) : 400 taches sans drapeau, un message, et bascule.
Lecon : chercher le signal que le firmware pose deja, avant d’inventer une heuristique pour le reconstituer.
5.2.1.32 L’horloge du banc etait celle du mur, pas celle du DSP [2026-09-22]
Le run de 10:01 campait, lisait SI1-4 et faisait sa mise a jour de localisation… pendant dix secondes. Apres, plus rien : a 10:04 l’appel partait en T3126, a 10:06 le SMS n’obtenait meme plus d’IMMEDIATE ASSIGNMENT, et le canal dedie sortait des « Dropping frame with 110 bit errors » en continu.
La mesure qui tranche, deux compteurs lus au meme instant a 10:09 :
pont.py STATS fn=99674
[ts0] tick=81089 fn=80410 (offset ARM-tick fige a -679)19 000 trames, 87 secondes d’ecart, et l’ecart grandissait. Le C54x emule coute ~5,8 ms par trame contre 4,615 ms de temps reel ; bsp_ts0_service() joue la trame BTS tick + g_ts0_offset, l’offset est fixe une fois pour toutes sur la premiere SB, et rien ne rattrapait le reste. La BTS remplissait l’anneau 1,25 fois plus vite que le DSP ne le vidait : le mobile vivait une minute et demie dans le passe. Tout le reste en decoule –
T3126,T3101,T200sont des temporisations en secondes de MUR : une reponse qui met 87 s a revenir les a toutes epuisees ;- le canal dedie encore plus vite :
g_dediene commence a se remplir qu’a l’armement du canal, or le DSP lisait des trames d’AVANT cet instant. Releve dans/dev/shm/calypso_bsp_dedie:stockes=3202 joues=244 manques=150. 38 % des trames du canal partaient sans burst – un burst sur quatre absent d’un bloc, c’est exactement 110 erreurs sur 456.
Le DSP ne peut pas rattraper, il tourne deja a fond. C’est donc la BTS qui ralentit : calypso_bsp.c publie la trame que le BSP reclame (/dev/shm/calypso_horloge, 16 octets : seq, cale, fn_bts, tick) et pont/trx.py y asservit l’horloge qu’il envoie a osmo-bts-trx en IND CLOCK.
Asservir en FREQUENCE, pas par recalage. Premiere version : repousser t0 des qu’on devance le DSP de plus de 12 trames. Mesure immediate, UL bursts=11 tard=232 : Transmitter.run() jette tout burst dont la trame s’ecarte de plus de window_tol (1 trame) de l’horloge au moment de l’envoi, et une horloge qui avance par a-coups en sort a chaque fois. Plus un SABM n’arrivait a la BTS -> pas de UA -> MDL-ERROR-IND cause 1, plus aucune mise a jour. La version qui tient ne change que la VITESSE (self.dur, la duree effective d’une trame) : cadence du DSP mesuree toutes les 250 ms, correction proportionnelle de la phase sur ~400 trames, et t0 rebase a chaque changement pour que fn() reste continue.
Apres (run de 10:20, MSC) :
10:20:04 VLR: update ... TMSInew-0x46FB2C10
10:20:06 VLR: update ... TMSI-0x46FB2C10TMSInew- devenu TMSI-, donc le TMSI REALLOCATION COMPLETE est revenu et le VLR l’a confirme : le LU va au bout, sans LOCATION UPDATING REJECT, sans ERROR INDICATION cause=SABM frame with information not allowed in this state (le double SABM de 10:01 etait une retransmission T200 du mobile, pas un doublon du pont : le UA mettait plus de 700 ms a revenir). Cote pont, fn=26609 contre fn_bts=27045 : verrouille.
PONT_HORLOGE=0 revient a l’horloge murale, PONT_HORLOGE_AVANCE regle l’avance visee (12 trames), CALYPSO_BSP_HORLOGE=0 coupe la publication.
Reste ouvert : l’etablissement DESCENDANT. Le MSC tente un MT SMS, reste 10 s en MM_CONN_PENDING puis MMSMS-REL-IND – le paging ou la reponse du mobile ne passe pas. A regarder avec le filtre des pagings vides de pont/downlink.py (is_empty_paging, qui ne sert qu’au montage gr-gsm) et le groupe de paging que le firmware ecoute.
5.2.1.33 Le magasin du canal dedie commencait trop tard [2026-09-22, suite]
Le paging n’est PAS en cause : le mobile recoit bien le sien et repond (CHANNEL REQUEST: 80 (PAGING Any channel), 10:22:33). Ce qui le tue est la ligne d’apres, LOS during RACH request – la couche 3 avait deja declare la perte de couverture. Meme cause que tout le reste : le canal dedie.
Les compteurs de /dev/shm/calypso_bsp_dedie a la liberation :
tn=-1 ss=0 stockes=4311 joues=404 manques=138 libere138 trames du canal sur 542 jouees sans burst, une sur quatre. C’est exactement la signature observee cote mobile :
Dropping frame with 110 bit errors(110 sur 456 = un burst sur quatre) ;MON: f=514 lev=<=-110 snr=0 ... TS=1/0– rien du tout sur l’intervalle dedie pendant trois secondes ;Received frame for unsupported SAPI 2!etMDL-ERROR-IND cause 3, ce que LAPDm sort d’un bloc reconstitue a partir de trois bursts sur quatre.
Au meme instant, cote TS0 : 11 manques en tout. Ce n’est donc pas la BTS qui est en retard sur le DSP (l’horloge asservie tient), c’est ce magasin-ci qui ne couvre pas assez loin. g_dedie n’est alloue et rempli qu’a l’ARMEMENT du canal, or le BSP joue la trame BTS tick + g_ts0_offset, en retard sur celle qui arrive : toutes les trames du canal anterieures a l’armement sortaient vides.
Il n’y avait rien a stocker de plus. g_autres garde DEJA les sept intervalles de chaque trame, sans condition et des le premier burst (il sert a completer la trame continue) : g_dedie en est un doublon partiel. bsp_dedie_bits() retombe donc dessus quand son propre anneau n’a pas la trame, et compte ses replis. MONTANT_DEDIE_STRICT=1 retablit l’ancien comportement pour remesurer l’ecart.
A lire au prochain run, dans /dev/shm/calypso_bsp_dedie : manques doit tomber pres de zero et replis dire combien de trames le repli a rattrapees. S’il reste des manques, c’est que la BTS n’a vraiment rien emis sur ces trames-la, et il faudra le chercher cote osmo-bts-trx.
Lecon, la meme que pour a_cu : la donnee etait deja la, dans un autre magasin du meme fichier. Avant d’en remplir un nouveau, regarder qui garde deja ce qu’on cherche.
5.2.1.33.1 Correction : le compteur manques ne voulait pas dire ca [2026-09-22]
Le « une trame du canal sur quatre sans burst » ci-dessus s’appuyait sur manques=138 de /dev/shm/calypso_bsp_dedie. Ce compteur etait faux, dans les deux sens :
a_nousetait calcule parbsp_dedie_trame(fn)SANS verifier qu’un canal soit arme. Hors connexion,g_dedie_ssvaut 0, donc une trame sur huit etait declaree « du canal »,bsp_dedie_bits()rendait NULL sur sa gardeg_dedie_tn <= 0, etmanquesmontait – pendant tout le campement, ou jouer TS0 est justement la bonne chose ;manques(et le nouveaureplis) n’etaient pas remis a zero a l’armement, contrairement astockesetjoues: le fichier melangeait toutes les sessions depuis le demarrage.
Ce qui donnait des lectures impossibles, joues=72 manques=162 – plus de trames manquees que jouees sur un canal ouvert quelques secondes. C’est aussi pourquoi le repli sur g_autres affichait replis=0 : il est place APRES la garde g_dedie_tn <= 0, donc jamais atteint dans le cas qui gonflait le compteur.
Corrige : a_nous exige g_dedie_tn > 0, et les quatre compteurs repartent de zero a chaque armement. Le repli sur g_autres reste : il couvre le vrai trou, les trames du canal anterieures a l’armement. La mesure est donc A REFAIRE avant de conclure quoi que ce soit sur le canal dedie.
Lecon : un compteur qu’on n’a pas verifie n’est pas une mesure. Celui-ci a servi de preuve a un diagnostic chiffre, et le chiffre etait du bruit.
5.2.1.33.2 start-direct –dsp : appeler l’amorce qui marche, pas la reecrire
Rapport du banc : « ca marche avec run_real.sh et pas avec start-direct ». Les environnements des trois processus, releves dans /proc/<pid>/environ, sont pourtant identiques a deux variables pres, toutes deux sans effet (CALYPSO_BSP_DIRECT_FEED n’est plus dans le binaire – strings ne donne que CALYPSO_BSP_DIRECT_BRINT0 – et PONT_NB_DEBUG n’est qu’une trace). La difference etait donc dans l’AMORCE – et plus precisement dans ce qui n’etait PAS monte : le coeur reseau, la BTS, le side-car et tmux sont des run_modules du fork, et --dsp avait remplace le run.sh du fork par celui de c54x_exe, qui ne les connait pas. Deuxieme essai, delegation a run_real.sh --secondes 0 : meme trou, plus un « ECHEC : aucun SI lu » imprime apres zero seconde d’observation.
Version qui tient : --dsp ne change ni de fork ni de profil (l’hybride reste le defaut). Le plan du fork se joue en entier, avec --skip qemu,pty,osmocon,l2 – les quatre modules de la chaine Calypso – et --no-attach ; le banc DSP prend le relais juste apres avec ses cinq etapes. MOD_REQUIRED[bts]=0 et sa barriere porte sur la VTY, pas sur le transceiver : osmo-bts-trx peut donc demarrer avant pont.py, comme dans run_real.sh.
Deux details d’usage corriges au passage : --stop arrete le banc DSP meme sans --dsp sur la ligne de commande (sinon cinq processus survivaient en tenant 5700-5702, et la pile paraissait arretee), et les aides phonesim/RIL sont disownees – setsid detache la session mais pas le job, et bash annoncait leur mort par un « line NNNN:
5.2.1.33.3 Deux scripts, deux sens pour MODE [2026-09-22]
[ .. ] Arret de la pile via run.sh[run] ECHEC : MODE=faketrx-qemu inconnu (dsp|grgsm)start-direct.sh exporte son propre MODE (le profil : faketrx-qemu, ligne export CALYPSO_PROFILE MODE), et c54x_exe/run.sh lit la MEME variable pour choisir dsp|grgsm. Le banc heritait donc du profil et sortait avant d’avoir rien arrete – silencieusement, l’appelant ignorant son code de retour. Verifie des deux cotes :
$ MODE=faketrx-qemu bash run.sh --status
[run] ECHEC : MODE=faketrx-qemu inconnu (dsp|grgsm)
$ MODE=faketrx-qemu bash -c 'MODE=dsp bash run.sh --status'
dsp pid 147597 /tmp/c54x-pont/dsp.logCe que ca laissait derriere, releve juste apres un --stop : dsp encore vivant, qemu/osmocon/mobile/pont arretes – le teardown du fork connait ces quatre-la (ils sont dans ses patterns) mais pas c54x_exe, qui restait seul a tenir /tmp/calypso_dsp.sock et /dev/shm/calypso_api_ram.
On ne renomme pas le MODE du banc (run_real.sh et les habitudes s’en servent) : start-direct.sh passe desormais par un banc_dsp() qui pose MODE=dsp a chaque appel.
5.2.1.33.4 Ou en est le canal dedie [2026-09-22, 11:08]
Etabli, compteurs corriges a l’appui :
- les bursts sont tous la.
/dev/shm/calypso_bsp_dedie:stockes=4288 joues=416 manques=0 replis=5. Le repli surg_autresne rattrape que 5 trames (le retard d’armement) : la theorie du « un burst sur quatre manquant » est morte, c’etait le compteur qui mentait ; - TS0 n’est pas affame : 11 a 12
[ts0] pas de burst BTSpar run, tous au demarrage. L’horloge asservie tient ; - la signature a change : plus de
unsupported SAPI 2, plus deMDL-ERROR cause 3. Reste 89 blocs a exactement 96 erreurs sur 456, la meme valeur a chaque fois. Constant = corruption systematique, pas un trou. Pour comparaison, un bloc BCCH du meme run est a ber 46-50 et passe.
Cote reseau, la consequence se lit maintenant en une ligne : le VLR alloue le TMSI (TMSInew-0x1BCA53DE), donc le LOCATION UPDATING ACCEPT est parti, et cinq secondes plus tard MSC_A_ST_RELEASING: LOCATION UPDATING REJECT – le TMSI REALLOCATION COMPLETE n’est jamais revenu. Le side-car MS#2, lui, boucle son LU (TMSInew- puis TMSI-) : le coeur reseau est hors de cause.
Question ouverte : pourquoi 96, toujours 96 ? La geometrie de fenetre est la seule difference plausible entre un bloc SDCCH et un bloc BCCH dans ce chemin de livraison, et elle n’etait pas mesurable – la trace [ts0] est plafonnee a 20 lignes puis une sur 5000, donc on n’avait que le demarrage. Elle trace desormais TOUTE trame du canal dedie (300 au plus, sans CALYPSO_BSP_TS0_DEBUG) et dit si son burst vient bien de cet intervalle :
[ts0] tick=... fn=... p51=0 NB fenetre=151 marge=3 rif_avant=0 <- canal dedieA comparer avec un bloc BCCH (p51 = 2-5) du meme run. Avec PONT_NB_DEBUG=1 en plus, [nb] donne le TOA et l’en-tete a_cd (mot de Fire, erreurs) par burst : si le TOA des bursts dedies differe de celui des bursts BCCH, c’est le calage de la fenetre, et les 96 erreurs s’expliquent.
5.2.1.33.5 « Trop tot » etait compte comme « trop tard » [2026-09-22, 11:12]
UL bursts=116 tard=1813 % des bursts montants JETES. Un bloc en demande quatre : ~40 % des blocs montants n’arrivaient pas entiers a la BTS. C’est exactement ce qu’on lisait en bout de chaine – TMSI REALLOCATION COMPLETE absent (LU REJECT a 11:06), CP-ACK absent (MT SMS a 11:10, WAIT_CP_ACK puis abandon), SABM retransmis par T200.
Transmitter.schedule() calcule l’instant d’emission post a la MISE EN FILE, d’apres la cadence de l’horloge a ce moment-la. Depuis qu’elle suit le DSP, cette horloge n’avance plus au rythme du mur : quand le DSP marque le pas, elle aussi, et le reveil tombe AVANT que la trame visee ne soit arrivee. run() comparait alors abs(off) > window_tol et jetait – sans distinguer le burst en avance (qu’il suffit d’attendre) du burst en retard (perdu).
Corrige : en avance, on remet en file avec un post recalcule sur l’horloge courante, jusqu’a PONT_WINDOW_ESSAIS fois (12) ; seul off < -window_tol compte comme un retard. C’est une consequence directe de l’asservissement ([[horloge-banc-suit-dsp]]) : une file d’emission datee en temps mur ne peut pas servir une horloge qui ne l’est plus.
5.2.1.33.6 Deux pistes ecartees, une mesuree
- geometrie de fenetre : ecartee. La trace dit la meme chose des deux cotes,
fenetre=151 marge=3pour une trame du canal dedie comme pour un bloc BCCH. - bursts manquants : ecartee,
manques=0. - chiffrement :
ENCRYPTION="a5 0"arrive enfin jusqu’a/etc/osmocom/osmo-bsc.cfg(encryption a5 0) depuis que l’environnement gagne sur globals.conf, et c’est a partir de la que le LU passe en entier (TMSInew-0xA7CFD9FFpuisTMSI-0xA7CFD9FF, 11:09:45).
Reste, par ordre :
Received frame for unsupported SAPI 5!+MDL-ERROR-IND cause 3en rafale pendant la connexion dediee, avecMON: lev=<=-110 snr=0 ... TS=1/0. Des blocs qui passent le code de Fire mais dont l’adresse LAPDm est fausse : ce ne sont pas des blocs abimes, ce sont d’AUTRES blocs. Piste : un bloc SACCH rendu sur la liaison SDCCH. L’octet 0 d’un en-tete L1 SACCH est le niveau de puissance ordonne, et(0x08 >> 2) & 7 = 2comme(0x15 >> 2) & 7 = 5: les deux SAPI vus, 2 et 5, sont exactement ce que donne un en-tete L1 lu comme une adresse. A verifier sur le tap GSMTAP (udp/4729) en comparant ce que la BTS emet en TS1/p51=0-3 et en TS1/p51=32-35.FBSB RESP: result=255en rafale sur la cellule SERVANTE (281 demandes sur l’ARFCN 514 contre 5 sur 614, 228 echecs) ->MM_EVENT_LOST_COVERAGE-> « no cell available ». Toute transaction lancee dans cette fenetre meurt sur-le-champ : c’est ce qui tue l’appel de 11:12:17 (MMCC_EST_REQrecu en « no cell available »,MMCC_REL_INDdans la seconde) et ce qui produisait lesLOS during RACH request.
5.2.1.33.7 Le correctif montant, mesure sur le banc [2026-09-22, 11:16]
Avant / apres, meme banc, meme configuration :
UL bursts=116 tard=18 (13,4 % jetes)
UL bursts=185 tard=4 ( 2,1 % jetes)Six fois moins, et on retrouve le niveau d’avant l’asservissement de l’horloge (310/4, soit 1,3 %). Le reste tient a la gigue residuelle du DSP : un burst vraiment en retard reste perdu, c’est le comportement voulu.
Ce n’etait pas toute l’histoire pour autant : le LU de 11:15:46 echoue encore (TMSInew-0x2BC8C863 puis REJECT), et le canal dedie sort toujours ses blocs a 96 erreurs (87 dans ce run). Le montant n’etait qu’un des deux chemins.
5.2.1.33.8 FBSB mid-campement : le DSP ne detecte rien [2026-09-22, 11:16]
Sonde en lecture seule sur /dev/shm/calypso_api_ram (cf. [[sonde-api-ram-vivante]]), 3850 echantillons a 3 ms pendant que le mobile campait et que la couche 3 enchainait ses FBSB RESP: result=255 :
fb_det fb_mode TOA PM angle SNR vu
0 0 0 5424 -1 2539 3850d_fb_det reste a 0 sur TOUTE la fenetre : le DSP ne pose aucun resultat de detection FB. Ce n’est donc pas la porte FB0->FB1 de prim_fbsb.c qui rejette, c’est la tache FB qui ne rend rien du tout – alors que le meme DSP demodule sans peine les blocs BCCH de la meme cellule (SI1-4 en continu, ber 46-50). Sur ce run : 19 L1CTL_FBSB_REQ sur l’ARFCN 514, 16 result=255.
La consequence se lit trois lignes plus loin dans le journal du mobile : MM_EVENT_LOST_COVERAGE -> « no cell available », et toute transaction lancee dans cette fenetre meurt sur-le-champ (MMCC_EST_REQ recu en « no cell available », MMCC_REL_IND dans la seconde, appel de 11:12:17).
Piste a suivre : au demarrage la meme tache FB reussit. La difference est que g_ts0_offset vaut alors INT64_MIN et que bsp_ts0_service() joue les bursts DANS L’ORDRE D’ARRIVEE, un par tick – un flux continu. Une fois cale, il joue tick + offset et saute les ticks dont la trame manque. A verifier : ce que voit la tache FB quand elle est relancee en cours de campement, et si un retour au mode « ordre d’arrivee » pendant une recherche FB la debloque.
5.2.1.33.9 Ce n’est pas un bloc abime, c’est le meme bloc [2026-09-22, 11:18]
Le LU passe desormais en entier – LOCATION UPDATING ACCEPT (lai=001-01-1), got TMSI 0x0e67ce01, TMSI REALLOCATION COMPLETE emis. C’est APRES, en attente de la liberation, que le canal part en vrille, et la signature est enfin lisible :
N(S) sequence error: N(S)=1, V(R)=2 (x25, TOUJOURS la meme paire)
Received frame for unsupported SAPI 6! (2 le 11:11, 5 le 11:15, 6 ici)Deux faits qui tranchent :
N(S)=1repete alors que le mobile attendN(S)=2: LAPDm recoit encore et encore LE MEME I-frame. Un bloc abime ne repasse pas le code de Fire vingt fois de suite avec le meme N(S) ;- le SAPI illegal CHANGE d’un run a l’autre (2, 5, 6) mais reste CONSTANT dans un run. C’est le contenu fige d’un tampon, pas du bruit.
Ce qui disqualifie l’hypothese « bloc SACCH rendu sur la liaison SDCCH » avancee plus haut, et renvoie a deux choses deja ecrites ici : [[tpu-dsp-frame-irq-oneshot]] (la ROM re-dispatche une page perimee quand elle recoit une IRQ trame qu’elle n’attendait pas) et [[sb-delirant-page-zero]] (l’ARM relit une page R qui ne porte pas de nouveau resultat). Les deux ont ete diagnostiquees en mode FB/SB ; ici c’est le mode DEDIE.
Cote BSP le magasin est hors de cause : g_ts0, g_dedie et g_autres n’apparient que sur fn EXACT, aucun ne peut rejouer une trame. Et manques=0.
Prochaine mesure : PONT_NB_DEBUG=1 imprime l’en-tete a_cd (mot de Fire, erreurs) et les premiers octets decodes a chaque burst 3. Si le meme a_cd ressort trame apres trame pendant la connexion dediee, la boucle est cote ROM/page et non cote radio – et les 96 erreurs ne sont qu’un effet de bord du bloc fige.
5.2.1.33.10 Le chiffrement : personne ne dechiffrait le descendant [2026-09-22, 11:21]
Run avec ENCRYPTION="a5 1". La transaction va plus loin que jamais – SABM/UA, IDENTITY REQUEST/RESPONSE, puis AUTHENTICATION REQUEST/RESPONSE, tout en clair – et la tempete commence a la ligne EXACTE ou le chiffrement s’arme :
11:21:02 CIPHERING MODE COMMAND (sc=1, algo=A5/1 cr=1)
11:21:02 CIPHERING MODE COMPLETE (cr 1)
11:21:02 Dropping frame with 96 bit errors <- et sans interruption ensuiteEn « a5 0 » la meme transaction va au bout (LU complet du 11:18). La correlation est nette dans les deux sens.
Deux faits qui l’expliquent :
- il n’y a aucun A5 dans le modele Calypso.
d_a5moden’apparait que danshw/arm/calypso/l1-grgsm/calypso_l1_grgsm.c; rien dansl1-dsp/. En montage DSP, le mobile n’a donc rien pour dechiffrer ; - le pont est asymetrique.
Trx.send_ul()CHIFFRE le montant (self.cipher.apply(burst, fn, True)) : il tient la place de la voie d’emission du DSP. Maisrun_data()relayait le descendant BRUT vers le DSP. Lecipher.apply(..., False)deDownlink._decode()ne sert qu’au decodage L2 du pont lui-meme et ne touche pas ce que recoit le DSP.
Corrige : run_data() dechiffre le burst avant de l’envoyer au DSP, A5 etant symetrique. Seulement sur l’intervalle dedie (_tn_dedie(), lu via Dedicated deja mis en cache) : la BCCH et la CCCH ne sont jamais chiffrees, les toucher detruirait le campement. La condition est cipher.dl_active, que Downlink._decode() leve deja quand un bloc ne decode qu’une fois dechiffre – le meme signal que la BTS (osmo-bts l1sap.c check_for_first_ciphrd).
Effet de bord utile : stats.a5_dl cesse d’etre a zero, ce qui rend le dechiffrement visible dans la ligne STATS.
A noter pour la suite : dans ce meme run le MSC a lache a 11:21:00, soit DEUX SECONDES AVANT que le mobile ne recoive la commande de chiffrement. La fenetre morte de 11:20:58-11:21:01 (MON lev=<=-110 snr=0, MDL-ERROR cause 12) reste donc un defaut a part entiere, independant du chiffrement.
5.2.1.33.11 ./start-direct.sh sans –dsp : QEMU ne demarrait pas [2026-09-22, 11:23]
[FAIL] Calypso emulator (QEMU) (started but never ready:
socket du moniteur QEMU : toujours pas pret apres 30s)Le message designe le moniteur, mais rien n’avait ete lance. Les deux enveloppes /usr/local/bin/qosmo-dsp et /usr/local/bin/qosmo-grgsm (hors depot) trient ainsi :
case "${1:-}" in -k|-kernel|-r|--rundir|-M|-s|-p|--bin|--gdb|--bind|-o)
exec /usr/local/bin/qosmo-grgsm-launch "$@";; esac
exec env MODE=grgsm PONT=1 /opt/GSM/c54x_exe/run.sh "$@"--qemu, --cpu et --monitor manquent a la liste, et le test ne porte que sur le PREMIER argument. Or run_modules/40-qemu.sh appelle
qosmo-grgsm --qemu <bin> -k <elf> --bin <bin> --cpu arm946 \
--gdb N --rundir <dir> --monitor <dir>/qemu-monitor.socksoit --qemu en tete. Le motif ne matche pas, l’appel part sur c54x_exe/run.sh, qui sort immediatement :
$ qosmo-grgsm --qemu ... -k ... --monitor ...
[run] ECHEC : option inconnue : --qemu (voir --help)Le vrai lanceur C, lui, comprend les six (strings : --bin --cpu --gdb --monitor --qemu --rundir). Corrige dans les deux enveloppes : balayage de TOUS les arguments, et les trois options ajoutees. Sauvegardes dans /tmp/qosmo-{grgsm,dsp}.bak. Elles ne sont dans aucun depot – une reinstallation les ecrasera ; c’est note dans LAUNCH.md.
Defaut PRE-EXISTANT, sans rapport avec le montage DSP : --dsp ne passe pas par ce module (il est dans --skip qemu,pty,osmocon,l2), ce qui explique qu’on ne l’ait vu qu’en lancant start-direct SANS --dsp.
5.2.1.33.12 Le Kc n’etait publie par personne [2026-09-22, 11:29]
Le dechiffrement ajoute dans pont/trx.py n’a rien change au run de 11:26, et la raison est en amont :
$ ls /dev/shm/calypso_kc_l1
ls: cannot access '/dev/shm/calypso_kc_l1': No such file or directory
$ grep -rn calypso_kc_l1 qosmo/hw/arm/calypso/
l1-grgsm/calypso_l1_grgsm.c:36:#define SHM_KC "/dev/shm/calypso_kc_l1"Un seul ecrivain, et c’est la couche 1 gr-gsm – celle que calypso_l1_disable("DSP externe") desactive justement en montage DSP. Sans ce fichier, Cipher.current() rend None et cipher.apply() rend le burst INCHANGE dans les deux sens : ni dechiffrement de la descente, ni chiffrement de la montee. Le compteur le disait depuis le debut, on ne l’avait pas lu : A5 dl=0 ul=0 a chaque ligne STATS.
C’est exactement la cause qui a fait naitre ce fichier (montant.c) pour le RACH et le SDCCH : sous DSP_EXTERN, tout ce que publiait la couche 1 gr-gsm disparait, et il faut le republier par scrutation. Le Kc avait ete oublie.
montant.c publie donc maintenant /dev/shm/calypso_kc_l1 depuis d_a5mode et a_kc[4] du NDB, disposition reprise TELLE QUELLE de publish_kc() (seq(4) algo(1) longueur(1) Kc[8] 0xFF, mots de a_kc en gros-boutiste et a l’envers) pour que pont/cipher.py la lise sans changement. Meme grace de 5 scrutations avant d’annoncer un retour en clair, pour la meme raison : le firmware efface d_a5mode a chaque DM_REL_REQ, y compris quand le Kc revient juste apres, alors que la BTS ne cesse jamais de chiffrer. MONTANT_KC=0 coupe la publication.
A verifier au prochain run en A5/1 : [montant] chiffrement A5/1 : Kc publie dans dsp.log, puis A5 dl=... ul=... non nuls dans la ligne STATS du pont, et la transaction qui passe le CIPHERING MODE COMPLETE sans tomber a 96 erreurs.
5.2.1.33.13 CORRECTION : le DSP detecte bien la FB [2026-09-22, 11:30]
L’entree « FBSB mid-campement : le DSP ne detecte rien » ci-dessus est FAUSSE. Elle s’appuyait sur un echantillonnage de /dev/shm/calypso_api_ram a 3 ms pendant 12 s qui ne voyait jamais d_fb_det=1. Les jalons du meme run disent le contraire :
total jalons d_fb_det=1 : 196
[jalon] fn=17980 SB PLAUSIBLE page=1 BSIC=7 a_sch=8000 0707 061c 0191
SB decodees (osmocon) : 25 pour 147 L1CTL_FBSB_REQd_fb_det est TRANSITOIRE – leve puis efface dans la trame. L’echantillonner a 3 ms sur des trames de 5,8 ms le rate la plupart du temps, et ne pas le voir ne prouve rien. La sonde de [[sonde-api-ram-vivante]] vaut pour les valeurs qui DURENT (TOA, PM, SNR, d_fb_mode) ; pour un drapeau fugace, il faut les jalons de dsp.log, qui sont poses par le code au moment ou il le lit.
Ce que disent les vrais chiffres : 25 succes pour 147 demandes, soit 17 % – le meme taux que les 58/281 releves a 10:09. Le DSP detecte la FB et decode la SB ; c’est la PROCEDURE FBSB qui expire avant que la SB n’arrive. Le banc en pas-a-pas est plus lent que le budget de tentatives du firmware. C’est la qu’il faut chercher, pas dans la detection.
5.2.1.33.14 Le Kc est publie ; le blocage est maintenant AVANT le chiffrement [2026-09-22, 11:33]
Le side-band manquant est comble : /dev/shm/calypso_kc_l1 existe (32 octets, ecrit une seconde apres le demarrage de c54x_exe) et [montant] retour en clair (seq=1) est trace. Mais d_a5mode n’est jamais devenu non nul dans ce run : le CIPHERING MODE COMMAND n’est jamais arrive. La voie A5 n’est donc toujours pas exercee – ni le publieur de Kc de montant.c, ni le dechiffrement de pont/trx.py. Ne pas les compter comme valides.
Ce qui bloque avant, et c’est net dans le journal du mobile :
11:32:50 AUTHENTICATION RESPONSE <- la transaction va jusque-la
11:32:50 Unnumbered frame not allowed <- puis 4 s de
11:32:50 MDL-ERROR-IND cause 12 « fenetre morte »
11:32:52 MON: lev=<=-110 snr=0 ... TS=1/0
11:32:54 Dropping frame with 96 bit errors <- et la tempete s'installe
11:33:09 T3210 expireLe MSC, lui, avait lache a 11:32:53.
Et les compteurs du meme run disent que ce n’est PAS un probleme de livraison :
tn=-1 ss=0 stockes=4392 joues=428 manques=0 replis=6
trames du canal tracees : 300 dont « BURST MANQUANT » : 0
UL bursts=218 tard=3 (1,4 %)Chaque trame du canal a recu son burst, aucune n’a ete jouee vide, et le montant ne perd plus rien. Pendant que le mobile mesure lev=<=-110 snr=0 sur son intervalle dedie, le BSP lui a bel et bien remis un burst pour chacune de ses trames.
La perte est donc APRES la remise, dans la demodulation du burst dedie par le DSP – ni dans le pont, ni dans le magasin, ni dans l’horloge. Les trois premiers sont maintenant mesures et hors de cause. C’est la que doit porter la suite : PONT_NB_DEBUG=1 donne le TOA, le PM, le SNR et l’en-tete a_cd par burst ; comparer ceux d’un burst du canal dedie a ceux d’un burst BCCH de la meme seconde dira si le probleme est un calage (TOA) ou une amplitude (PM).
Et l’Unnumbered frame not allowed arrive sur un AUTRE datalink que les I-frames (dl=0x...b9e8 contre 0x...bda8 ailleurs) : c’est la liaison SAPI 3, restee IDLE. Une trame U qui atterrit sur SAPI 3 pendant une transaction SAPI 0, c’est encore une adresse LAPDm lue de travers – meme famille que les SAPI 2/5/6 deja vus.
5.2.1.33.15 A5/1 : la chaine fonctionne [2026-09-22, 11:49]
Premier run qui franchit le chiffrement. Les deux correctifs de 11:22 et 11:29 sont valides par la mesure :
[montant] chiffrement A5/1 : Kc publie vers /dev/shm/calypso_kc_l1 (seq=2)
[pont] chiffrement descendant confirme par la BTS (fn=1836)
[pont] A5 dl=904 ul=68
11:49:02 LOCATION UPDATING ACCEPT (lai=001-01-1)
11:49:02 got TMSI 0x9e61e668
11:49:02 TMSI REALLOCATION COMPLETELe mobile lit un LOCATION UPDATING ACCEPT chiffre : impossible une heure plus tot, ou la tempete de 96 erreurs commencait a la ligne du CIPHERING MODE COMPLETE. 904 bursts descendants dechiffres par le pont, et le drapeau dl_active leve par la BTS comme prevu.
Le blocage a donc encore avance d’un cran – il est maintenant sur le DERNIER bloc MONTANT. Cote MSC :
11:49:01 TMSInew-0x9E61E668
11:49:03 LOCATION UPDATING REJECT (reste « TMSInew », jamais « TMSI- »)Le mobile a emis son TMSI REALLOCATION COMPLETE, le MSC ne l’a pas recu.
Hypothese a verifier, encore une asymetrie de chiffrement : le pont chiffre le montant des que cipher.current() rend une cle, donc des que montant.c a publie le Kc. Or publier_kc() scrute toutes les 22 trames (~100 ms) et peut publier AVANT que le mobile n’ait bascule lui-meme – il ne chiffre qu’apres avoir emis son CIPHERING MODE COMPLETE. Dans cette fenetre le pont chiffrerait un bloc que le mobile a emis en clair, et la BTS ne le lirait pas. Ca corromprait exactement les blocs autour de la bascule.
Mesure a faire : comparer l’horodatage du seq=2 (publication du Kc) a celui du CIPHERING MODE COMPLETE. Si le premier precede le second, la fenetre existe. Le remede serait le symetrique de ce que fait deja la descente : ne chiffrer le montant qu’apres une preuve, pas des que la cle est connue.
5.2.1.33.16 Le Kc perime chiffrait la connexion suivante [2026-09-22, 11:57]
Bug introduit par le publieur de Kc, trouve et corrige dans la foulee. La grace KC_GRACE_CLAIR (5 scrutations avant d’annoncer un retour en clair), recopiee de publish_kc(), sert au cas INTRA-connexion : le firmware efface d_a5mode a chaque DM_REL_REQ, y compris pendant un Assignment Command ou le Kc revient juste apres. Mais entre DEUX connexions elle est nuisible : l’enregistrement algo=1 restait lisible cinq scrutations de plus, et pont.py – qui relache pourtant sa cle a chaque IMMEDIATE ASSIGNMENT (downlink.py, cipher.release) – la relisait aussitot dans le fichier et la restaurait.
Il chiffrait alors le montant de la connexion SUIVANTE des son premier bloc, pendant que le mobile emettait encore en clair. Mesure du run de 11:53 :
A5 dl=0 ul=200 <- tout le montant chiffre, rien de dechiffre
fn=2525 01 52 19 05 14 ... AUTHENTICATION RESPONSE
fn=2729 01 52 19 05 14 ... LE MEME, faute d'acquittementCorrige : montant_canal_libere() (deja appele sur PONT_DCCH genre 0xFF) leve un drapeau qui fait publier le retour en clair IMMEDIATEMENT, sans la grace. Au passage, d_a5mode est desormais lu a CHAQUE trame (deux acces memoire) et non plus une sur 22 : un changement de mode ne peut plus attendre 128 ms, ce qui laissait partir en clair le premier bloc chiffre du montant.
Effet mesure au run de 11:58, retour au bon profil :
A5 dl=905 ul=68 chiffrement descendant confirme par la BTS (fn=1836)
11:58:13 LOCATION UPDATING ACCEPT + got TMSI 0x9846D4155.2.1.33.17 Ce qui reste : l’acquittement LAPDm descendant
fn=2430 01 64 35 06 32 ... CIPHERING MODE COMPLETE
fn=2583 01 74 35 06 32 ... LE MEME, retransmis (bit P)
(aucun TMSI REALLOCATION COMPLETE n'est jamais publie)Le reseau a pourtant RECU le CIPHERING MODE COMPLETE – sans lui le MSC n’aurait pas envoye le LOCATION UPDATING ACCEPT. Ce qui manque est donc l’acquittement LAPDm DESCENDANT : le mobile ne le voit pas, reste en retransmission, et sa fenetre de 1 l’empeche d’emettre le bloc suivant.
Le montant est hors de cause (tard=0), le chiffrement aussi (correct dans les deux sens, mesure). Il reste la perte residuelle de blocs DESCENDANTS sur le canal dedie – la famille des « 96 erreurs », deja isolee comme etant apres la remise des bursts par le pont (manques=0, BURST MANQUANT=0) et donc dans la demodulation du burst dedie par le DSP.
CORRECTION : l’hypothese « le pont chiffre le montant trop TOT parce que le Kc est publie en avance » ecrite plus haut est fausse dans ce sens-la. publier_kc scrutait en RETARD (22 trames), pas en avance. Le vrai defaut etait le Kc PERIME d’une connexion precedente, ci-dessus.
5.2.1.33.18 Le burst dedie arrive au DSP a moitie puissance [2026-09-22, 12:12]
Mesure par la sonde [nb] (plafond porte de 400 a 20000 : les 400 etaient consommees par le campement avant toute connexion), bornee a la fenetre ou le canal etait REELLEMENT arme (ticks 2047..3529 du run de 12:04) :
bursts DEDIES n=176 TOA moy 1,9 PM 2310 SNR 232
bursts BCCH / CCCH n=2800 TOA moy 4,2 PM ~4500 SNR ~500Le burst du canal dedie arrive deux qbits trop tot dans la fenetre et a la moitie de la puissance, avec un SNR deux fois moindre. Ce n’est pas du bruit : 176 bursts, ecart systematique.
⚠️ Piege de lecture : le p51 imprime par [nb] est celui du TICK de l’ARM, pas celui de la trame BTS. Les deux different de g_ts0_offset (-670 sur ce run). Un premier regroupement fait sans cette conversion donnait des moyennes mixtes et ne montrait rien.
Trois causes possibles, toutes ECARTEES par la mesure :
- la geometrie de fenetre : identique,
fenetre=151 marge=3sur les 75 trames dediees jouees, comme pour un bloc BCCH ; - le dechiffrement A5 que j’ai ajoute :
gsm.a5_xor()n’XORe que les bits 3-59 et 88-144, les deux moities de donnees. La sequence d’apprentissage reste intacte, le correlateur du DSP n’est pas touche ; - la qualite des bursts eux-memes : le pont decode les MEMES bursts avec zero echec –
TS1/0:28/0 TS1/32:10/0,crc=0. Les bits sont bons.
Donc : le pont livre des bursts CORRECTS, TOUS (manques=0, BURST MANQUANT=0), dans la BONNE fenetre – et le DSP les demodule a moitie puissance et deux qbits trop tot. Le defaut est dans l’injection/demodulation cote DSP de l’intervalle dedie substitue, pas dans le pont.
C’est la cause directe des « 96 bit errors », de la perte de ~3 blocs descendants sur 4 (chaque aller-retour LAPDm coute 4 multitrames au lieu d’une, cf. la cadence du montant plus haut) et donc du LOCATION UPDATING REJECT : le MSC lache avant que le TMSI REALLOCATION COMPLETE ne puisse partir.
Ou chercher : bsp_ts0_livrer() module le burst dedie exactement comme un burst TS0 (gmsk_moduler(bits,148,30000,0,0.5,iq+2*marge) puis gmsk_elargir(..., CALYPSO_BSP_NB_SYM=0.3)), et pourtant le resultat differe. La difference doit etre en aval : ce que le RIF/DMA fait de ces echantillons quand la fenetre est armee sur TS1 et non sur TS0. CALYPSO_BSP_TS0_DEBUG=1 donne rif_avant= par trame ; le comparer entre trames dediees et trames TS0 est la prochaine mesure.
5.2.1.33.19 Deux pistes de plus ecartees, et une a creuser [2026-09-22, 12:20]
rif_avant: identique. 432 trames dediees af=151 m=3 rif=0, et 1297 trames NON dediees exactement pareil. Le niveau du RIF ne distingue pas les deux. Piste morte.CALYPSO_BSP_VERIF=1(compare la DARAM au burst remis au BSP, apres que le DSP a tourne) : 2849 « partiel » contre 8 « VALIDE ». Reparti par type de trame, avec la conversion tick -> trame BTS (offset -690) :TS0 n=3360 echantillons identiques : 14 % en moyenne, 2775 a 0 % DEDIE n=640 echantillons identiques : 1 % en moyenne, 626 a 0 %L’ecart va dans le bon sens mais la sonde est dominee par un effet attendu : elle compare APRES
jouer_trame, donc apres que le DSP a consomme et reecrit le tampon. Un « 0 % » ne prouve pas que la livraison a rate. A reprendre en comparant AVANT que le DSP ne tourne, ou en marquant le tampon.
Etat du diagnostic, tout ce qui est mesure :
le pont livre des bursts corrects (TS1/0:28/0, crc=0)
tous (manques=0, BURST MANQUANT=0)
dans la bonne fenetre (f=151 m=3, identique a TS0)
au bon niveau RIF (rif_avant=0, identique a TS0)
le DSP en tire TOA 1,9 PM 2310 SNR 232
alors que sur TS0 TOA 4,2 PM ~4500 SNR ~500Tout ce qui precede la demodulation est desormais mesure et identique entre les deux cas. Le defaut est dans ce que le DSP fait de ces echantillons quand la fenetre est armee sur l’intervalle dedie.
5.2.1.33.20 CALYPSO_BSP_PAGE_FOLLOW=1 : essai negatif [2026-09-22, 12:23]
L’experience laissee ouverte le 2026-09-19 a maintenant une reponse. Sa premisse est confirmee par une mesure independante d’aujourd’hui :
w_page=0 -> 0x0cce 1811x, 0x0e4e 41x
w_page=1 -> 0x0cce 2115x, 0x0e4e 33x98 % des bursts atterrissent a la MEME adresse quelle que soit la page que la tache DSP va lire, alors que d_dsp_page alterne bien (0x0002/0x0003). Le taux de correspondance DARAM suit : 12 % a 0x0cce contre 39-43 % a 0x0e4e.
Mais deposer a base + w_page*stride (PAGE_FOLLOW=1, pas 0x180) n’ameliore pas : la transaction meurt juste apres l’IDENTITY RESPONSE, deux LOCATION UPDATING REJECT sans meme un TMSInew cote VLR – alors que la reference atteignait le CIPHERING MODE COMPLETE et obtenait un TMSI. Un seul run, et la variance de ce banc est grande, mais le sens est clair : ce n’est pas la bonne correction. Defaut remis a 0.
Ce que ca apprend quand meme : l’adresse n’est pas le probleme, ou pas seule. La ROM programme son AAD, le BSP la suit (AAD_FOLLOW=1), et forcer une autre adresse casse. Le ping-pong manquant se joue ailleurs – peut-etre que la ROM ne reprogramme l’AAD qu’une fois sur N parce que son ISR de fin de DMA ne s’execute pas a chaque trame (cf. DSP Error Status 24 = DMA_PROG|DMA_TASK, permanent depuis le boot, files de requetes qui debordent).
C’est le fil a tirer : pourquoi la ROM ne reprogramme-t-elle pas son AAD a chaque trame, et pourquoi ses files DMA debordent-elles en permanence.
5.2.1.33.21 La ROM n’acquitte pas ses fins de DMA [2026-09-22, 12:47]
Chaine complete, chaque maillon mesure aujourd’hui :
la ROM ne lit jamais DMA2_CTRL avec IRQ_STATE
(0 trace « effaces a la lecture » sur un run de 2334 erreurs 24 ;
20 sur le run precedent, contre des milliers de transferts)
-> IRQ_STATE reste pose, ses files circulaires de 14 entrees debordent
(`DSP Error Status: 24` = DMA_PROG|DMA_TASK, permanent depuis le boot)
-> l'AAD n'est pas reprogrammee d'une trame a l'autre
(98 % des bursts a 0x0cce quelle que soit la page : w_page=0 -> 1811x,
w_page=1 -> 2115x, alors que d_dsp_page alterne bien)
-> le burst N ecrase le N-1 avant lecture
-> demodulation degradee sur l'intervalle dedie
(TOA 1,9 / PM 2310 / SNR 232 contre 4,2 / ~4500 / ~500 sur TS0)
-> ~3 blocs descendants perdus sur 4, chaque aller-retour LAPDm coute
4 multitrames au lieu d'une
-> le MSC lache avant le TMSI REALLOCATION COMPLETE : LU REJECT.C’est le premier enchainement qui relie TOUT ce qu’on observe depuis ce matin, et chaque maillon est chiffre.
L’interruption de fin de DMA est pourtant censee partir : calypso_rhea_dma.c la leve si CTRL_IRQ_MODE est pose, et la valeur observee (0x05ab) l’a bien (bit 7). Mais la trace « end-DMA -> INT10n » n’apparait PAS non plus.
⚠️ RESERVE SUR L’INSTRUMENT. Sur le dernier run, AUCUNE trace [rhea-dma] ne sort, y compris celles qui existaient avant mes modifications et qui sortaient la veille. Et le compteur que j’ai ajoute (« bilan : N transferts finis… ») n’imprime jamais alors que strings le trouve dans le binaire EN COURS et que la trace situee deux lignes plus bas, dans le meme bloc if, imprime. Cette contradiction n’est pas resolue : tant qu’elle ne l’est pas, « 0 acquittement » peut vouloir dire « la ROM n’acquitte pas » OU « la sortie de ce module est perdue ». A trancher AVANT d’en tirer un correctif – par exemple en verifiant que stderr de calypso_rhea_dma.c arrive bien dans dsp.log (un test avec un fprintf inconditionnel au premier appel suffit).
5.2.1.34 2026-09-22 16:00 — Le workflow refute deux de mes conclusions
Vingt agents relus contradictoirement. Deux de mes affirmations, que j’avais presentees comme etablies, ne tiennent pas.
1. « La ROM n’acquitte pas ses fins de DMA » : FAUX. Le code prouve le contraire sans meme lancer le banc. La trace d’acquittement n’avait pas disparu du run : elle avait disparu de la SORTIE. verbosite.c classe les lignes de stderr par mots-cles, dans l’ordre. En reformulant le message le 2026-09-22 j’en avais retire le mot qui le placait au niveau 0 ; ne restait que « DMA », donc niveau 3, donc invisible au -v par defaut. J’ai lu une absence d’instrument comme une absence de comportement.
2. « Le pont livre tout (manques=0), le defaut est dans la demodulation du DSP » : NON ETAYE, et la perte majoritaire est ailleurs. bsp_ts0_service() repart par un return des qu’il n’a pas de burst du BTS pour la trame reclamee — AVANT d’appeler bsp_ts0_livrer(). Or joues et manques ne sont touches que DANS bsp_ts0_livrer(). Une trame dediee sautee en entier n’est donc vue par aucun des deux. Mesure du workflow : 79 trames dediees sur 172 jamais livrees, les deux compteurs a 0. Mon « manques=0 » ne disait pas « rien ne se perd », il disait « je ne regarde pas la ou ca se perd ».
3. Et la cause amont, c’est ma propre horloge. La boucle d’asservissement posee ce matin (periode 0,25 s, rattrapage en 400 trames) tourne a ~0,07 Hz — SOUS la cadence a laquelle la vitesse du DSP varie. Elle ne suit plus : la phase part en cycle limite de +/- 100 trames, et a chaque demi-tour negatif le pont se retrouve derriere la trame reclamee. 12000 trames entierement sautees sur 120201 ticks, 10 %. J’avais releve « 11 a 12 par run » a 11:08 — je comptais les trames tardives, pas les trames sautees.
Enchainement reel : mon horloge saute des trames -> le burst dedie n’est pas la -> bsp_ts0_service() repart sans rien livrer -> aucun compteur ne bouge -> je conclus que le DSP demodule mal. Trois fausses pistes de la journee partaient de ce zero.
5.2.1.34.1 Correctifs poses (16:04, binaire reconstruit)
| # | Fichier | Correctif |
|---|---|---|
| 1 | pont/trx.py 41-43 |
HORLOGE_PERIODE 0,25 -> 0,05 ; HORLOGE_PHASE_N 400 -> 100. Boucle remontee a ~1,3 Hz, au-dessus de la perturbation. Ne PAS masquer ca avec PONT_HORLOGE_AVANCE. |
| 2 | pont/trx.py |
_tn_dedie() -> _burst_dedie(tn, fn). Le test portait sur l’INTERVALLE : en CCCH+SDCCH/4 le canal dedie vit sur TS0, celui qui porte aussi FCCH/SCH/BCCH/CCCH — jamais chiffrees. Des que A5 s’activait, tout TS0 partait XORe vers le DSP et le campement se defaisait. Meme tri que Downlink._signalling. TCH ouvert couvert aussi (necessaire pour un appel chiffre). |
| 3 | calypso_bsp.c |
Nouveau compteur g_dedie_perdues : les trames dediees sautees en entier. Publie dans /dev/shm/calypso_bsp_dedie. Ne plus jamais lire manques=0 sans lire perdues en meme temps. |
| 4 | montant.c 550 |
Le retour anticipe consomme g_kc_liberer. Sans ca la liberation restait armee, seq montait a chaque scrutation, et le pont rechargeait sans fin une cle inchangee. |
| 5 | calypso_rhea_dma.c |
Bilan finis/acquittes promu en WARN (niveau 1) quand il est mauvais seulement. Pas de « ERR » force sur une ligne saine. |
| 6 | calypso_rhea_dma.c 554 |
CTRL_IDLE rendu sur la sortie anticipee. Toutes les autres sorties le reposaient ; celle-la laissait le canal annoncer un transfert qui n’aurait pas lieu. |
| 7 | start-direct.sh |
OSMO_MOB_VTY_PORT passe a phonesim : il retombait sur 4247 alors qu’en --dsp le mobile lie 4347. Le modem oFono parlait a un port que personne n’ecoute — sans erreur. |
Onze constats forts du workflow n’ont pas ete verifies (plafond a 12) : un second passage les vaut.
5.2.1.35 2026-09-22 16:15 — La mecanique reelle, mesuree cette fois
Le correctif d’horloge pose a 16:04 n’a pas corrige la perte : premiere mesure apres coup, manques=2000 sur 10490 ticks, 19 % — soit pire que les 10 % que le workflow reprochait a l’ancien reglage. J’ai donc arrete de regler a l’aveugle : PONT_HORLOGE_PERIODE, _KP et _PHASE_N sont desormais lisibles dans l’environnement (valeurs par defaut inchangees), et j’ai instrumente le SIGNE de l’ecart au lieu de le supposer.
bsp_ts0_stocker() retient maintenant g_ts0_fn_max, la trame la plus recente recue du BTS. Sur un manque, la trace dit de quel cote vient l’ecart.
Resultat, sans ambiguite :
[ts0] tick=19316 : pas de burst BTS pour fn=18650 (manques=800/19316) ;
derniere trame recue fn=18635, soit +15 : le DSP COURT DEVANT le BTS
[ts0] tick=20323 : pas de burst BTS pour fn=19657 (manques=1200/20323) ;
derniere trame recue fn=19641, soit +16 : le DSP COURT DEVANT le BTSL’ecart est systematiquement positif, de +1 a +16, jamais negatif. Le DSP reclame des trames que le BTS n’a pas encore produites. Ce n’est pas un cycle limite symetrique autour de zero — c’est un BIAIS constant.
Ce que ca change. Le workflow concluait « cycle limite de +/- 100 trames » et recommandait explicitement de NE PAS augmenter PONT_HORLOGE_AVANCE, au motif que la marge masquerait l’oscillation sans la supprimer. Ce raisonnement vaut contre une oscillation ; il ne vaut pas contre un biais. Un biais systematique se corrige justement par un terme d’avance. La consigne du workflow reposait sur une hypothese que la mesure ne soutient pas.
Le taux en regime etabli reste ~20-25 % avec l’avance a 12 : de quoi expliquer que le canal dedie ne tienne pas quatre bursts de suite, donc pas de bloc LAPDm complet, donc pas de UA, donc pas de LU.
Balayage en cours de PONT_HORLOGE_AVANCE sur 12 / 30 / 60 / 120, 90 s de periode calibree par point, taux de manques + tard/UL + ecart median. Le reglage sera choisi sur la courbe, pas sur une intuition — la quatrieme de la journee aurait ete une de trop.
5.2.1.36 2026-09-22 16:20 — Asservir le pont au DSP est une erreur d’architecture
Trois mesures successives, chacune refutant la precedente, finissent par donner la mecanique. Dans l’ordre :
1. Le signe de l’ecart. Systematiquement positif, +1 a +16 : le DSP reclame des trames que le BTS n’a pas produites. Pas un cycle limite.
2. La perte n’est pas un taux, elle est bimodale. Entre checkpoints : 27 %, 25 %, puis 100 % sur 200 trames consecutives, en alternance. Des coupures totales d’environ une seconde, pas une gigue.
3. Le DSP ne sprinte pas — il traine. Sonde sur /dev/shm/calypso_horloge, 4591 echantillons a 5 ms :
temps reel GSM : 216.7 trames/s
cadence DSP mediane: 195.7 trames/s deficit 9.7 %
9e decile : 197.3
plus gros bond : 2 trames
part a plus de 2x le temps reel : 0.0 %Jamais d’emballement. Un deficit constant de 9,7 %. Et les « 12000 trames sautees sur 120201 ticks » du workflow, c’est 10,0 % : le meme nombre.
4. Le journal du BTS nomme le coupable.
DL1C NOTICE FN timer expire_count=7: We missed 6 timers (scheduler_trx.c:427)
DL1C ERROR No more clock from transceiver (scheduler_trx.c:435)5. Et les sources du BTS expliquent pourquoi c’est structurel. osmo-bts/src/osmo-bts-trx/scheduler_trx.c : les trames sont battues par un timerfd cale en dur sur GSM_TDMA_FN_DURATION_uS, 4615 us, temps reel. IND CLOCK ne sert qu’a CORRIGER ce timer :
elapsed_fn < 0-> « We were N FN faster than TRX, compensating », il retarde ;|elapsed_fn| > MAX_FN_SKEW(50) -> resynchronisation brutale ;fn_without_clock_ind == TRX_LOSS_FRAMES(400) -> il s’arrete.
Et surtout, ligne 571, un TODO du projet :
put this computed error_us_since_clk into some filter function and use that to adjust our regular timer interval to compensate for clock drift
Le filtre de derive n’existe pas. osmo-bts-trx ne SAIT PAS tourner a une cadence autre que le temps reel. Lui donner une horloge 9,7 % lente le laisse en permanence « plus rapide que le TRX » : il compense, il resynchronise, et entre deux son propre timer continue a battre au temps reel — produisant des trames que le DSP n’a pas encore atteintes, et en sautant d’autres.
5.2.1.36.1 Ce que ca dit de mon correctif du matin
Asservir l’horloge du pont au DSP prend le probleme a l’envers. Le BTS est le maitre temps reel par construction ; on ne peut pas le ralentir. C’est le DSP qui doit tenir la cadence. L’asservissement que j’ai pose ce matin a supprime la derive non bornee — ca, c’etait un vrai gain — mais il l’a remplacee par un desaccord permanent de 9,7 % que le BTS ne sait pas absorber.
Balayage en cours de INSNS (60000 / 54000 / 46000 / 38000) : cadence mediane obtenue, deficit, taux de manques, nombre de resynchronisations du BTS. Si la cadence suit bien 1/INSNS, le point qui annule le deficit annule la perte. Reserve a verifier au point retenu : INSNS est aussi un budget de FIDELITE — trop bas, la ROM n’a plus assez d’instructions pour finir son travail de trame, et c’est la detection FB/SB qui tombe.
5.2.1.37 2026-09-22 16:35 — La cause racine, trouvee et chiffree
Deux mesures decisives, chacune reproductible.
1. INSNS ne cadence rien. Balayage sur un facteur 2 :
INSNS=60000 -> 195.6 trames/s INSNS=40000 -> 195.8
INSNS=54000 -> 196.0 INSNS=30000 -> 195.7
INSNS=48000 -> 195.8Plat. Le budget d’instructions du DSP n’a aucun effet : le DSP n’est pas limite par son propre calcul.
2. Sans pas-a-pas, la machine vole. LOCKSTEP=0 : 588,9 trames/s median, jusqu’a 797 — 2,7 fois le temps reel. L’hote n’est pas sature (32 coeurs, charge 1,97).
Donc c’est l’echange de pas-a-pas lui-meme qui coute. Le TICK/GO en deux phases fait deux allers-retours de socket par trame entre QEMU et c54x_exe. Le gestionnaire de trame met ~5,11 ms la ou une trame GSM en fait 4,615 : il depasse le budget d’environ 0,5 ms.
Et tdma_pacer() transforme ce depassement en perte silencieuse. calypso_trx.c:1069 :
target += GSM_TDMA_NS;
while (target <= now) {
target += GSM_TDMA_NS; /* en retard : on saute une trame */
}Le stimulateur est juste — cible absolue, pas de derive accumulee — mais quand le gestionnaire depasse systematiquement le budget, target est toujours derriere now, la boucle avance d’une trame a chaque fois, et la cadence effective devient 1/(duree du gestionnaire) = 195,7 trames/s. s->fn, lui, n’avance que de 1 par tick : l’interface air emulee prend 9,7 % de retard sur le temps reel, en permanence.
5.2.1.37.1 Enchainement complet, du symptome a la cause
- Le pas-a-pas coute ~0,5 ms/trame -> le DSP tourne a 195,7 au lieu de 216,7.
- Mon horloge asservie repercute fidelement cette cadence lente au BTS.
osmo-bts-trxne sait pas suivre une horloge lente : son timerfd est cale en dur sur 4615 us et le filtre de derive est unTODOvide (scheduler_trx.c:571). Il se croit en permanence « plus rapide que le TRX », compense, puis resynchronise.- Pendant une resynchronisation il ne produit rien : coupures de ~200 trames consecutives, soit une seconde de silence.
- Le canal dedie n’obtient plus 4 bursts de suite -> pas de bloc LAPDm -> pas de UA -> pas de mise a jour de localisation.
Les 10 % de trames sautees que le workflow avait comptes, c’est exactement le deficit de cadence. Ce n’etait ni un cycle limite, ni la demodulation du DSP, ni l’acquittement DMA.
5.2.1.37.2 Trois voies possibles, aucune choisie sans arbitrage
| Voie | Ou | Portee |
|---|---|---|
| A. Reduire le cout du pas-a-pas | calypso_trx.c / pont.c |
2 allers-retours de socket par trame pour ~0,5 ms : c’est beaucoup trop pour un socket UNIX. Probablement une attente a timeout quelque part. Si on descend sous 4,615 ms, tout le reste tombe. La plus propre. |
| B. Implementer le filtre de derive du BTS | osmo-bts/src/osmo-bts-trx/scheduler_trx.c |
Le TODO du projet lui-meme. Rend le BTS capable de suivre n’importe quelle cadence. Mais touche un 3e depot et le binaire /usr/local/bin/osmo-bts-trx sert AUSSI au mode sans --dsp. |
| C. Rendre la perte uniforme au lieu de groupee | calypso_bsp.c + pont/trx.py |
Horloge du pont au temps reel (BTS content), DSP qui lit la trame la plus recente. On perd toujours 10 %, mais 1 sur 10 eparpillee au lieu de 200 d’affilee — un bloc LAPDm a 4 bursts et FEC survit a la premiere, pas a la seconde. Casse la continuite de FN vue par le firmware. |
5.2.1.38 2026-09-22 16:40 — Trois hypotheses de plus, trois refutations
J’ai teste, chacune par balayage sur le banc, les trois causes candidates du deficit de 9,7 %. Les trois sont fausses. Je les consigne pour qu’on ne les re-essaie pas.
| Hypothese | Balayage | Resultat |
|---|---|---|
Le budget d’instructions du DSP (INSNS) |
60000 / 54000 / 48000 / 40000 / 30000 | 195,6 / 196,0 / 195,8 / 195,8 / 195,7 — plat sur un facteur 2 |
| Le quantum de re-essai du pas-a-pas | GSM_TDMA_NS/16 (288 us) puis /64 (72 us) |
195,7 / 195,5 — aucun effet |
La periode du coup de pouce au CPU (CPU_KICK_NS) |
5,00 / 1,15 / 0,58 / 0,29 ms | 195,8 / 195,9 / 195,8 / 195,9 — plat sur un facteur 17 |
Sur la troisieme j’ai failli me faire avoir : dans ce banc les variables d’environnement ne vont pas toutes au meme processus (cf. la note env-calypso-quel-processus), donc un balayage sans effet peut simplement vouloir dire que la variable n’arrivait pas. Verification faite dans /proc/<qemu>/environ : CALYPSO_CPU_KICK_NS=288461 y etait bien. La refutation tient.
Les deux valeurs par defaut ont ete remises a l’original — je ne livre pas un changement de comportement que la mesure ne justifie pas. Les molettes (CALYPSO_PONT_RETRY_DIV, CALYPSO_CPU_KICK_NS) restent, elles servent a mesurer.
5.2.1.38.1 Ce qu’il reste, et pourquoi INSNS ne pouvait pas marcher
Les 5,11 ms par trame sont du travail, pas de l’attente :
- sans pas-a-pas, QEMU seul fait 588 trames/s, soit 1,70 ms par trame ;
- le pas-a-pas serialise l’ARM et le DSP au lieu de les laisser se recouvrir ; le reste, ~3,4 ms, c’est l’interpreteur C54x qui execute la trame.
Et INSNS ne pouvait rien y faire : c’est un plafond, pas une quantite de travail. La ROM finit son travail de trame et passe en idle bien avant de l’atteindre — baisser le plafond ne retire donc aucune instruction. C’est pour ca que le balayage est plat, et j’aurais du le prevoir avant de le lancer.
La piste suivante est la VITESSE de l’interpreteur, pas son budget : combien d’instructions la ROM execute reellement par trame, et a quel debit l’interpreteur les rend (~7 MIPS d’apres le calcul inverse). Les sondes de c54x_probes.c et les copies memoire par trame de PONT_NB_DEBUG sont les premieres choses a chiffrer.
5.2.1.39 2026-09-22 18:05 — SB : le TOA n’est pas la cause. La fenetre, peut-etre.
Refutation de ma propre these du jour. J’ai cru, et ecrit, que la SB echouait parce qu’elle atterrit a TOA 7 au lieu de 23. La mesure dit non :
[sb] fn=302 toa=11243 a_sch=0100 crc_ko
[sb] fn=333 toa=8743 a_sch=8000 CRC_OK <- 8743 % 156 = 7
[sb] fn=371 toa=8743 a_sch=0100 crc_ko <- meme 7
[sb] fn=402 toa=8743 a_sch=0100 crc_ko <- meme 7Le meme TOA donne CRC bon et CRC faux. Le TOA ne discrimine pas. Le correctif pose sur g_toa_bias perd donc sa justification (il est de toute facon inerte, voir plus bas).
Au passage, deux autres choses que j’avais dites et qui sont fausses : * « TOA=5 est une anomalie, le nominal est 23 » – non : calypso_bsp.c:1505 dit que 5 est la valeur attendue d’un burst NORMAL sur ce banc (marge de 3 echantillons). Les 23 ne concernent que la SB (marge de 21). * « La DMA est en mode continu quand le burst arrive » – non : one_shot=1 apparait 760 fois sur 3389.
5.2.1.39.1 Ce que la mesure etablit, en revanche
Longueurs de fenetre RIF reellement demandees sur un run de 2 min :
| fenetre | occurrences | nwin = len/2 |
|---|---|---|
| 302 mots | 3316 | 151 |
| 128 mots | 73 | 64 |
Aucune fenetre >= 190. Or le cadrage de calypso_bsp.c:1527 choisit sa marge ainsi : nwin >= 190 ? 21 : nwin >= 150 ? 3 : 0. La fenetre SB attendue – ALGTH 764, donc nwin 382 – n’existe jamais. La branche a 21 echantillons est inatteignable par construction, et la SB est demodulee dans une fenetre de burst normal.
C’est aussi pourquoi la sonde [cadre] compte 0 alors que one_shot=1 arrive 760 fois : le bloc est bien garde par one_shot, mais aucune fenetre n’atteint jamais le seuil SB.
5.2.1.39.2 Etat des deux correctifs du jour sur ce chemin
| Correctif | Verdict |
|---|---|
calypso_bsp.c : appliquer g_toa_bias a la marge SB |
INERTE – le bloc n’est jamais atteint ([cadre]=0), et sa justification est refutee (meme TOA, issues opposees). A retirer ou a garder en dormance documentee. |
gsm322.c : SYNC_RETRIES_CONN 8 |
tient jusqu’ici – 0 LOS during RACH sur 5 tentatives reparties sur deux runs, contre 4 sur 8 avant. Pas encore etabli, mais rien ne le contredit. |
5.2.1.39.3 La boucle TOA, defaut reel mais secondaire
calypso_bsp_toa_feedback() est appelee (pont.c:1357, en=1 verifie), elle integre dans g_toa_bias… que personne ne lisait avant aujourd’hui, malgre le commentaire « samples, applied to the DARAM placement ». Et son entree est instable : within = toa % 156 donne 60, puis 11, puis 48 d’un appel a l’autre – le signe de l’erreur alterne, l’integrateur fait +/-1 et revient a zero. Meme branchee, elle ne pourrait pas rattraper 16 echantillons. Deux defauts distincts, a traiter ensemble ou pas du tout.
5.2.1.39.4 La question suivante, et elle est nette
Pourquoi la ROM n’arme-t-elle jamais une fenetre de 764 mots pour la SB ? C’est elle qui programme ALGTH. Soit elle ne le fait pas, soit le modele RHEA ne le lui rend pas. C’est mesurable : tracer les ecritures de ALGTH par la ROM dans calypso_rhea_dma.c, et comparer a ce que calypso_rhea_dma_get_len_words() rend au moment de la SB.
5.2.1.40 2026-09-22 18:35 — Le recalage TS0 : mesure A/B, et refutation de mon predicteur
Hypothese : le DSP court devant le BTS (ecart toujours positif, +1 a +40) parce que l’offset tick->trame BTS est pose une seule fois et jamais revu ; quand le BTS s’arrete pour resynchroniser, le DSP reclame des trames inexistantes et le flux se troue. Or un bloc LAPDm, ce sont QUATRE bursts consecutifs. Correctif pose : reculer l’offset pour repartir de la trame la plus recente, en s’appuyant sur le contrat du mode STREAM (« only the ORDER matters »).
A/B, 2 x 6 min, meme banc, meme protocole :
| temoin | recalage | |
|---|---|---|
| perdues / joues | 20/132 | 0/161 |
| recalages (recul) | 0 | 433 (433) |
| MDL-ERROR | 18 | 4 |
| LU ACCEPT / REQUEST | 1/3 | 1/2 |
| trames jetees | 686 | 1409 |
| bits faux (mediane) | 95 | 96 |
Ca ne marche pas. perdues tombe a zero et MDL-ERROR est divise par quatre, mais les trames jetees DOUBLENT et la mediane de bits faux ne bouge pas. Le LU reste a 1 dans les deux bras.
Explication qui colle : en remplacant une trame absente par la plus recente disponible, on ne livre pas un trou mais le mauvais burst a la bonne place. Pour le desentrelaceur, une donnee fausse mais plausible est pire qu’une absence – il ne peut plus la traiter comme un effacement. J’ai converti des effacements en erreurs.
Corollaire, et c’est le point important : « perdues » n’est PAS un predicteur du succes. La correlation que j’avais tiree de trois runs (7 % -> LU accepte, 0 % -> accepte, 42 % -> rejete) ne survit pas au test controle. Trois points suffisaient a la suggerer, pas a l’etablir.
Defaut remis a OFF (CALYPSO_BSP_RECALE=1 pour le reessayer). Comme pour le quantum de re-essai et CPU_KICK_NS : on ne livre pas un changement de comportement que la mesure ne justifie pas.
Deux pistes si on y revient : ne recaler que HORS du canal dedie, ou marquer le burst rejoue comme peu fiable pour que le desentrelaceur l’efface au lieu de le croire.
Defaut de mesure a signaler : le chemin de recalage sort avant manques++, donc il aveugle ce compteur. Les deux bras n’etaient pas comparables sur cette metrique. C’est moi qui ai casse l’instrument en posant le correctif – exactement le genre de piege que g_dedie_perdues avait ete ajoute pour eviter ce matin.
5.2.1.40.1 Ce que la journee laisse debout
- LU : aboutit, chiffre A5/1, TMSI committe cote VLR. Repete de nombreuses fois. Quand le canal est propre, la transaction complete prend 4 secondes (assignation -> RR_EST_CNF -> IDENTITY -> LOC_UPD_ACCEPT -> TMSI REALLOC).
SYNC_RETRIES_CONN 8(gsm322.c) : 0LOS during RACHsur toutes les tentatives depuis qu’il est pose, contre 4 sur 8 avant. Le seul correctif du jour qui tienne.- Le SMS atteint desormais
MMSMS-EST-CNFpuisWAIT_CP_ACK, etSAPI 3 establisheda ete vu. Avant il mourait enMM_CONN_PENDING. - Une transaction Call Control a ete allouee pour la premiere fois (callref 0x138c), finie en
Timeout of T308. - Defaut restant : le descendant dedie se corrompt (69 a 99 bits faux sur 184). Observation non expliquee, relevee a 18:23 : le BER monte MONOTONEMENT de 43 a 95 en 17 s a
lev >= -47constant. Une rampe, pas des creneaux – ce qui ne ressemble pas a une perte de bursts par paquets et suggere un desalignement cumulatif. A creuser.
5.2.1.41 2026-09-22 19:00 — Deux correctifs de plus, et le SMS montant passe
5.2.1.41.1 1. Effacement au lieu de la page perimee (calypso_bsp.c)
Trouve par l’arbitrage du workflow wahnj19z5, qui a au passage REFUTE 3/3 ses propres trois voies (cout du pas-a-pas, filtre de derive du BTS, perte uniforme). Mecanisme verifie a la main, quatre points :
calypso_bsp_rx_burst()est le seul ecrivain de la DARAM des bursts, et n’est appelee que depuisbsp_ts0_livrer()– que le chemin de manque saute ;calypso_rif_drain()rend 0 sur FIFO vide ;- le transfert sort alors par
if (got <= 0) breakSANS rien ecrire : la page API garde le burst du tick precedent ; - sur le chemin DRR, le source dit lui-meme : « On an empty FIFO, DRR keeps its last value […] returning 0 would fabricate a sample ».
Donc une trame manquante n’est pas un trou : c’est la trame precedente rejouee, et le decodeur tourne dessus. Signature mesuree : les blocs rejetes ont un nombre d’erreurs IDENTIQUE, 17 rejets = 96 neuf fois, 105 cinq fois. Un canal bruite ne rend pas neuf fois le meme compte.
C’est aussi pourquoi mon A/B du recalage etait aveugle : ses deux bras substituaient un burst FAUX (le plus recent d’un cote, le precedent de l’autre), jamais un effacement.
Resultat, 2 min : MDL-ERROR 18 -> 0, LU accepte au PREMIER essai, trames jetees 114/min -> 66/min, perdues/joues 13 % -> 0,6 %. Reserve : l’histogramme des comptes d’erreurs reste concentre, donc la signature n’a pas disparu. Non explique.
5.2.1.41.2 2. Ne plus jeter la premiere FACCH montante (pont/uplink.py)
_poll_facch() faisait, au changement d’epoque TCH : skip_pending() + return. Or tch.seq est incremente par tch.arm(), appele quand le pont decode l’ASSIGNMENT COMMAND descendante – et l’ASSIGNMENT COMPLETE est LA PREMIERE chose que le mobile emet sur le nouveau TCH. Elle tombait dans cette fenetre et etait marquee « deja vue ».
Mesure, appel vers 600 a 18:55 : le mobile emet bien « ASSIGNMENT COMPLETE (cause #0) » ; le pont journalise « FACCH montante » SANS le suffixe « , ASSIGNMENT COMPLETE » ; le BSC conclut « Assignment failed in state WAIT_RR_ASS_COMPLETE, cause EQUIPMENT FAILURE: Timeout ».
La SACCH garde le saut (un rapport de mesure perime ne sert a rien), la FACCH est desormais traitee. PONT_FACCH_SKIP=1 retablit l’ancien comportement.
5.2.1.41.3 Ce que le banc fait maintenant
- LU accepte au premier essai, chiffre, TMSI committe cote VLR.
- SMS MONTANT ARRIVE AU RESEAU :
db.c:695 Stored SMS id=33 in DB. - SETUP d’appel recu par le MSC :
gsm_04_08_cc.c:704 SETUP to 600. - Restent : la livraison MT du SMS (pas de CP-ACK) et l’aboutissement de l’appel.
5.2.1.41.4 Deux erreurs de lecture a noter, meme cause qu’au matin
J’ai affirme (a) qu’aucun L1CTL_RACH_REQ n’existait, (b) que le pont ne suivait pas le mobile sur le TCH. Les deux etaient faux, demolis par le journal complet deux commandes plus tard : dans les deux cas un head -10 ou un tail -6 avait tronque la sortie. C’est exactement la faute du matin avec manques=0 : conclure d’une absence sans verifier que l’instrument regardait au bon endroit. A surveiller.
5.2.1.42 2026-09-22 19:47 — L’APPEL PASSE L’ASSIGNATION : le chainon manquant du TCH
5.2.1.42.1 Le defaut
pont.py publiait DEJA l’intervalle du canal de trafic dans /dev/shm/calypso_tch_cfg (pont/state.py, Tch._write_cfg : seq, tn, tsc, arfcn) des qu’il decodait l’ASSIGNMENT COMMAND descendante – verifie, le fichier contenait bien seq=1 tn=2 tsc=7 arfcn=514. Mais personne ne le lisait cote DSP : calypso_bsp_set_dedie() n’etait appelee que depuis la bande laterale SDCCH (montant.c:425). Le BSP continuait donc de substituer l’intervalle SDCCH (TS1) pendant que le mobile ecoutait le TCH (TS2).
5.2.1.42.2 La preuve, en croisant les deux journaux
Cote mobile :
19:42:05 MON: ... TS=2 ber=161 <- il EST sur le TCH
19:42:06 MON: no cell info rxlev-full=-110 <- le plancher : du SILENCE
19:42:07 MON: no cell info rxlev-full=-110
19:42:08 Channel type 64, subch 0, ts 1 <- il revient sur TS1
19:42:08 ASSIGNMENT FAILURE (cause #1)Cote DSP, sur toute la session : arme TS1 SDCCH/8, jamais TS2. Cote BSC : Assignment failed in state WAIT_RR_ASS_COMPLETE, cause EQUIPMENT FAILURE: Timeout.
Ce n’etait donc pas un defaut de qualite du lien – c’etait un chainon absent. Et ca invalide au passage ma lecture precedente : j’avais accuse la premiere FACCH montante jetee (correctif uplink.py), qui etait un vrai bug mais PAS celui-la.
5.2.1.42.3 Le correctif
calypso_bsp.c: genreBSP_DEDIE_TCH(=2).bsp_dedie_trame()retourne vrai pour TOUTES les trames de l’intervalle – sur un TCH/F la multitrame de 26 est entierement a la connexion (24 trafic + 1 SACCH + 1 libre), contrairement a un sous-canal SDCCH ou seuls 4 blocs sur 51 comptent.montant.c:scruter_tch(), pose a cote descruter_dcch(), lit/dev/shm/calypso_tch_cfget arme le BSP sur le bon intervalle.MONTANT_TCH=0coupe.
5.2.1.42.4 Le resultat
19:47:16 Sending 'SETUP'
19:47:17 ASSIGNMENT COMMAND
19:47:17 ASSIGNMENT COMPLETE (cause #0) <- recue par le BSC cette fois
19:47:20 received CALL PROCEEDING
19:47:20 INITIATED -> MO_CALL_PROC[montant] TCH (seq=1) : arme TS2 TSC=7 - toutes ses trames
[ts0] canal dedie arme : TCH TS2 (toutes les trames)
/dev/shm/calypso_bsp_dedie : tn=2 joues=1486 manques=0 perdues=0Plus aucun Assignment failed cote BSC. L’appel atteint MO_CALL_PROC.
5.2.1.42.5 Bilan des quatre correctifs de la journee
| # | Fichier | Defaut |
|---|---|---|
| 1 | gsm322.c |
sortie d’idle : ccch_state gele + un seul re-essai FBSB -> aucun burst RACH emis |
| 2 | calypso_bsp.c |
trame manquante = trame precedente REJOUEE (page API jamais reecrite) |
| 3 | pont/uplink.py |
premiere FACCH montante apres armement TCH jetee par skip_pending() |
| 4 | calypso_bsp.c + montant.c |
l’intervalle du TCH publie par le pont n’etait lu par personne |
Mesures : LU accepte (contre 1 sur 3), LOS during RACH 4/8 -> 0, MDL-ERROR 18 -> 0 sur 31 min, SMS montant arrive au reseau, appel jusqu’a CALL PROCEEDING.
5.2.1.43 2026-09-22 19:55 — LE VERROU RESTANT, mesure : la ROM n’arme presque jamais sa fenetre SB
Question posee par un contraste : le pont livre une BCCH parfaite (741 blocs, 0 echec de CRC) et le DSP, nourri par le meme chemin au meme instant, ne decode la SB qu’une fois sur cinq. Ce n’est donc ni le lien, ni le pont, ni la qualite des echantillons.
Sonde posee dans bsp_ts0_livrer(), sur les bursts que bsp_ts0_est_sb() reconnait comme des SCH :
[sbwin] SB #500 : one_shot=0 nwin=0 marge=0 -> cadree comme un burst normal
(dans une vraie fenetre SB : 12/500)12 bursts SCH sur 500 tombent dans une vraie fenetre SB : 2,4 %. Les 97,6 % restants arrivent avec one_shot=0, nwin=0, donc marge=0 : le burst est pose a l’offset ZERO, sans les 21 echantillons silencieux que le correlateur SB de la ROM attend (c’est eux qui donnent le TOA de 23).
Dans la meme fenetre de mesure : 1 CRC bon sur 16 jobs SB. Les deux taux sont du meme ordre. C’est la premiere explication de la journee qui a le BON ORDRE DE GRANDEUR.
5.2.1.43.1 Ce que ca corrige dans mes conclusions precedentes
J’avais accuse le TOA (7 au lieu de 23) puis conclu, mesure a l’appui, que le TOA ne discriminait pas – meme toa=8743 donnant CRC_OK et crc_ko. Les deux etaient vrais et je n’en tirais rien : le TOA n’est qu’une consequence du cadrage. Comme le cadrage est presque toujours le meme (mauvais), le TOA est presque toujours le meme aussi. Je cherchais la cause dans la consequence.
5.2.1.43.2 La question suivante, nette
Pourquoi la ROM n’arme-t-elle presque jamais une DMA one-shot pour son job SB ? Elle reste en mode continu (trame de 1250 symboles, TS0 sans marge). C’est elle qui programme ALGTH ; soit elle ne le fait pas, soit le modele RHEA ne le lui rend pas. A tracer dans calypso_rhea_dma.c (ecritures de ALGTH et de CTRL_ONE_SHOT par la ROM) en regard des jobs SB.
5.2.1.43.3 Pourquoi je n’ai PAS pose le correctif a chaud
Forcer marge = 21 quand le burst est une SCH decalerait de 21 echantillons une trame dont la longueur est contrainte a 1250 en mode continu, et casserait le compteur de symboles de la ROM. C’est exactement le genre de correctif applique avant d’etre compris qui a coute quatre fausses pistes aujourd’hui.
Ce verrou commande tout le reste : le taux de synchronisation, donc la re-acquisition apres chaque liberation de canal, donc la fiabilite du SMS et de l’appel.
5.2.1.44 2026-09-23 10:55 — LU ACCEPT puis LU REJECT : le temporisateur X1 du MSC, pas la radio
Symptome, reproduit deux fois (10:43, 10:45) : le mobile recoit LU ACCEPT, emet TMSI REALLOCATION COMPLETE, et deux secondes plus tard recoit LU REJECT (il repond MM STATUS #98). Le MSC le journalise en {MSC_A_ST_RELEASING}. Consequence : le VLR oublie l’abonne, le SMS MT est jete (« Freeing transaction that still contains an SMS »), le CM SERVICE suivant est rejete (cause 4) et tout repart par un nouveau LU.
Cause : timer geran X1 de osmo-msc (« Complete Layer 3, Authentication and Ciphering timeout »), 5 s par defaut. Il court de la COMPL_L3 jusqu’a la fin du LU, TMSI REALLOC COMPLETE compris. Chronologie du 10:45 : COMPL_L3 10:45:47, chiffrement 10:45:50, X1 echu 10:45:52, avant l’arrivee du TMSI REALLOC COMPLETE. Le banc, plus lent que le temps reel, ne tient pas 5 s.
Correctif : timer geran X1 30 sous msc dans /etc/osmocom/osmo-msc.cfg et dans le gabarit osmo-operator/configs/osmo-msc.cfg (pose aussi a chaud par la VTY 4254).
Ce qui reste, mesure juste apres : un LU a 10:50:33 meurt sur T3260 (12 s), le DTAP descendant (demande d’identite ou d’authentification) n’arrive jamais au mobile. Sur le SDCCH on voit « Dropping frame with 96 bit errors » (x3, toujours la meme signature 96) et des trames a « 0 bit errors » jetees quand meme (fire_crc >= 2). Le descendant dedie reste le verrou, avec la fenetre SB.
5.2.1.44.1 Les journaux du banc DSP dans le panneau
Le panneau (tmux calypso, osmo-fft-snap) suit /run/user/0/osmo-nitb/logs/{qemu,osmocon,mobile}.log et /dev/shm/pont.log. run.sh n’ecrivait que dans /tmp/c54x-pont : tous les volets restaient vides. Desormais le vrai fichier est pose au chemin du panneau, et $RUNDIR/tail -F ouvert refuse un fichier remplace par un lien. pont.py n’est plus lance avec --no-record : c’est ce drapeau qui laissait /tmp/iq_fft_ms.fifo, donc la FFT, sans producteur. PONT_AIRREC=0 et PANNEAU_LOGS=none retablissent l’ancien comportement. Au passage : la trace [trx] A_SCH de QEMU s’arrete apres 40 lignes (calypso_trx.c:1076), ce qui est voulu ; ce n’est pas un gel.
5.2.1.45 2026-09-23 10:58 — Run de 10:53 : LU accepte, SMS MT perdu sur le descendant dedie
- X1 a 30 s : le LU passe, TMSI 0x26861AD4 valide par le VLR.
- Le MSC livre aussitot un SMS MT en attente. La SAPI 3 s’etablit (10:53:42, « new SAPI 3 link state idle -> established »), mais le CP-DATA n’arrive jamais au mobile. Son T3240 expire a 10:53:48, il libere le canal, et le MSC abandonne le SMS (« dropping pending message »).
- Erreurs du descendant dedie sur tout le run : 80 a 114 bits faux sur 456, plus 16 trames a « 0 bit errors » jetees quand meme. 114 = un burst entier, donc c’est typiquement UN burst sur les quatre du bloc qui est faux.
- Cote BSP : tn=1 joues=464 manques=0 perdues=0. Chaque trame dediee recoit un burst du bon intervalle, et pourtant un burst sur quatre est faux.
- Piste suivante, deja instrumentee mais muette par defaut : « dedie : DESACCORD table=.. tpu=.. » (calypso_bsp.c, bsp_ts0_livrer). Il faut CALYPSO_DEBUG=BSP sur c54x_exe. Un decalage d’une trame entre la table 45.002 et la fenetre TPU programmee par l’ARM donnerait exactement un burst faux sur quatre.
- Lien montant : « UL bursts=66 tard=225 » dans les 40 premieres secondes, puis tard fige a 247. Les pertes se concentrent pendant le calage de l’horloge, qui tombe au moment du premier LU.
- Avertissements du build corriges : prototypes de calypso_trx_get_fn et de calypso_inth_arm_ack (appels implicites en int), -Waddress, et les if enchaines sur une ligne. Zero avertissement.
5.2.1.46 2026-09-23 11:06 — PREMIER SMS MT LIVRE DE BOUT EN BOUT ; le montant jetait 69 % de ses bursts
- 11:05:56 : le mobile recoit « test » (OA 777), repond CP-ACK puis RP-ACK. Cote MSC : CP-ACK 11:06:00, RP-ACK 11:06:03, transaction fermee proprement. Cote mobile : « % SMS from 777: ‘test’ ». Ce qui l’a debloque : le correctif SAPI 3 de pont/uplink.py, pose par une autre session le 2026-09-23. L’UA du SAPI 3 partait sur la SACCH montante, la BTS n’etablissait jamais le SAPI 3.
- Traces LAPDm du mobile (llapd debug, pose a chaud par la VTY 4347) : toutes les trames I montantes sont retransmises 2 a 5 fois (TIMER_RECOV) avant d’etre acquittees. Le descendant SDCCH, lui, decode une trame par multitrame sans trou.
- Cause : pont/trx.py Transmitter.run JETAIT tout burst montant reveille apres sa trame (off < -window_tol). Run de 11:04 : 141 emis, 314 jetes (69 %). Les runs sans enregistrement I/Q en jetaient 16 %. Le reveil du thread souffre du GIL partage avec record.py, que la FFT a reactive.
- Or osmo-bts-trx range un burst montant par son fn, compare au dernier fn traite du canal logique (common/scheduler.c, trx_sched_route_burst_ind). L’heure d’arrivee n’y entre pas : un vrai TRX livre toujours le montant apres coup. Correctif : envoyer le burst en retard tant qu’il reste dans PONT_UL_RETARD_MAX = 26 trames. Le compteur « tard » compte desormais les bursts en retard, envoyes ou pas. A mesurer au prochain run : les retransmissions T200 doivent disparaitre.
5.2.1.47 2026-09-23 11:20 — Appel : CONNECT jamais recu ; pont coupe en deux points d’entree
5.2.1.47.1 Appel vers 600, run de 11:10
SETUP (11:11:34), assignation TCH/F TS2 FR, ASSIGNMENT COMPLETE, puis CALL PROCEEDING recu par FACCH (11:11:38). Un SMS MT passe meme en pleine communication (SAPI 3 sur la SACCH). Le 600 decroche : le MSC passe en CONNECT_IND et envoie le CONNECT vers 11:11:37. Le mobile ne le recoit jamais, et T313 expire a 11:12:07. * Le firmware ne remonte un FACCH de TCH que si le DSP a pose B_BLUD dans a_fd[0] en fin de bloc (prim_tch.c:246). Sans detection des bits de vol, rien ne remonte : c’est le silence observe. * Le masque A5 du pont (gsm.a5_xor) laisse bien les bits de vol (60, 87) en clair. Ce n’est donc pas lui. * Le pont decode lui-meme le TCH descendant : facch 5 -> 39 entre 11:11:39 et 11:11:54 (les retransmissions du CONNECT), tch_dl fige a 219, puis tch_crc qui grimpe de 47 a 877. A partir d’environ 11:11:49, le pont n’arrive plus a decoder une seule trame TCH descendante, ni parole ni FACCH. A creuser en premier : le dechiffrement du TCH par le pont (cle, fn, dl_active), puis la detection FACCH du DSP une fois la parole lancee.
5.2.1.47.2 Decoupage du pont (demande operateur)
- pont/pont.py = montage DSP (c54x_exe/run.sh MODE=dsp, grgsm_exe sans argument).
- pont/pont_uncipher.py = montage grgsm (start-direct.sh, run.sh MODE=grgsm, PONT_DSP_PORT=0 grgsm_exe). Il refuse –dsp-port.
- Meme paquet et A5 dans le pont des deux cotes. Ce qui differe passe par des defauts poses avant l’import (os.environ.setdefault) : PONT_UL_RETARD_MAX vaut 0 pour grgsm (jeter le burst en retard, comme avant) et 26 pour le DSP. Le defaut du paquet est 0 : le chemin grgsm garde exactement son comportement d’avant.
- Motifs de processus mis a jour : 09-teardown.sh, rapport-run.sh, conky-osmo-status.sh, build-debs.sh. /usr/local/bin/grgsm_exe (hors depot) aussi, avec une copie de l’original dans le scratchpad de la session.
5.2.1.48 2026-09-23 11:27 — La boucle « no service » toutes les 5 a 6 s : la seconde synchro de la selection
Trace DCS (cs debug, pose par la VTY 4347), une boucle complete : 1. Balayage : « Sync to ARFCN=514 (No sysinfo yet) », « Channel synched », SI lues, « Cell found », C1 = 0. 2. « Cell ARFCN 514 selected », puis « Tune to frequency 514 » : une SECONDE acquisition FB+SB (gsm322_sync_to_cell, mode CCCH COMB). 3. Elle echoue : « Channel sync error, try again », puis a nouveau « Channel sync error ». SYNC_RETRIES vaut 1 : la cellule est desselectionnee (« Unselect cell due to sync error », « Loss of CCCH »), MM_EVENT_LOST_COVERAGE, et la boucle repart en 1. Sur ce run, 93 FBSB_REQ sur 514 et 4 sur le voisin 614. Il faut deux synchros reussies de suite, alors que le DSP n’en reussit qu’une sur trois a cinq : c’est le verrou de la fenetre SB (voir 2026-09-22 19:55).
Correctif cote mobile : gsm322.c, sync_retries_selection(). Le nombre d’essais du « Tune to frequency » se lit dans L23_SYNC_RETRIES_SELECTION. Le defaut reste SYNC_RETRIES (1) : le binaire /usr/local/bin/mobile est partage avec le montage grgsm et le mobile fake_trx. c54x_exe/run.sh pose 8 en MODE=dsp. L’ancien binaire est garde dans le scratchpad de la session.
A noter aussi : la mesure de puissance rend souvent « rxlev <=-110 (0) », le plancher, soit C1 = 0 tout juste. Avec un RXLEV_ACCESS_MIN plus haut, la cellule serait jugee inutilisable. A regarder dans calypso_bsp_rssi_apm.
5.2.1.49 2026-09-23 12:47 — Le pont DSP (pont/dsp/) : la bascule TCH suit le firmware
5.2.1.49.1 Ce qui cassait les appels du run de 12:22 (confirme dans le code)
- Appels 2 et 3 : le pont decode l’ASSIGNMENT COMMAND et ecrit aussitot /dev/shm/calypso_tch_cfg (Tch.arm). montant.c scruter_tch armait alors le BSP en TCH des la trame suivante. Pour un TCH, bsp_dedie_trame() est vrai sur TOUTES les trames : le BSP jouait TS2 a la place de TS0 et du SDCCH TS1 pour toutes les trames pas encore jouees. Or le DSP a 12 a ~200 trames de retard sur la BTS, et l’ASSIGNMENT COMMAND elle-meme en faisait partie. Dans dsp.log : « TCH (seq=2) : arme TS2 », un seul a_cd FIRE KO, puis plus aucun bloc SDCCH. Cote mobile : 80-100 bit errors, jamais d’ASSIGNMENT COMMAND, puis LOS.
- Appel 1, retour sur le SDCCH : rien ne rendait TS1 au BSP apres l’ASSIGNMENT FAILURE, parce que le tap QEMU ne republie dcch_cfg que si chan_nr change. D’ou 90-110 bit errors jusqu’a la liberation. En plus, l’ASSIGNMENT FAILURE, publiee sur calypso_sdcch_ul, partait en FACCH sur TS2 (uplink.py : is_open() suffisait).
- Le TS du TCH n’etait dechiffre vers le DSP qu’apres Tch.prove(), alors qu’osmo-bts le chiffre des l’activation. Les premiers blocs, dont l’UA, etaient perdus.
- Le Kc etait lache a la liberation lue dans dcch_cfg, donc a l’heure du DSP, alors que la BTS chiffrait encore. Blocs TS1 en echec cote pont.
5.2.1.49.2 Ce qui change
- pont/pont_dsp.py lance pont.dsp.main (nouveau sous-paquet pont/dsp/). C’est deja le PONT_PY de run.sh en MODE=dsp, donc aussi celui de start-direct.sh –dsp. Il refuse de demarrer sans –dsp-port. pont/init.py et pont.py (grgsm) ne l’importent pas. La seule retouche du code partage est l’extraction de methode Uplink._route_sdcch, sans effet : un harnais qui rejoue SABM, MEAS, UA SAPI3, ASSIGNMENT COMPLETE, arm et prove donne un resultat identique octet pour octet avant et apres.
- TchDsp : l’ecriture dans tch_cfg n’est plus qu’une ANNONCE (meme format, meme moment). abandon() ecrit seq+1 avec tn=0 : retour au SDCCH, Kc garde.
- montant.c : scruter_tch ne fait plus que memoriser l’annonce. La nouvelle fonction suivre_tache_tch lit d_task_d dans la page W fraiche. Sur TCHT, TCHA ou TCHD avec une annonce, le BSP bascule sur le TS du TCH. Sur ALLC (24, la tache de lecture de bloc SDCCH/SACCH, prim_rx_nb.c:200 ; pas DDL/ADL comme je le croyais), il revient au SDCCH memorise par scruter_dcch. Log : « [montant] TCH : le firmware poste la tache 13 a fn=…, BSP bascule sur TS2 » et « le firmware est revenu sur le SDCCH (tache ALLC) ». MONTANT_TCH_TACHE=0 retablit l’armement a l’annonce.
- Nouvelle sonde a_fd (NDB+0x21A), active seulement sur TCH : « [a_fd] fn= fn%13= etat= BLUD=1 FIRE= d_tch_mode= L2=… ». MONTANT_AFD=0 la coupe.
- TrxDsp : le TS du TCH est dechiffre des l’annonce, toujours sous cipher.dl_active.
- UplinkDsp : un bloc sdcch_ul n’est jamais une FACCH. S’il arrive pendant un TCH annonce, il declenche abandon() quand c’est une ASSIGNMENT FAILURE ou quand le mobile etait deja passe sur le TCH. _poll_release ne lache plus le Kc : il tombe a l’IMMEDIATE ASSIGNMENT suivante. PONT_KC_RETENTION=1 est pose par pont_dsp.py.
- FeederDsp et DownlinkDsp : plus de GSMTAP 4730/4731 ni de /dev/shm/calypso_tch_dl (lus seulement par la L1 gr-gsm). Le tap 4729 reste.
- run.sh : calypso_tch_cfg est efface avant l’etape 1 et, en MODE=dsp seulement, a l’arret. c54x_exe a ete reconstruit.
- build-debs.sh embarque pont/dsp/.
5.2.1.49.3 A mesurer au prochain run (banc non relance par cette etape)
- dsp.log : « TCH … annonce par le pont », puis « le firmware poste la tache 13|14 » plus tard, jamais avant. Entre les deux, les a_cd SDCCH doivent rester ok.
- mobile.log : ASSIGNMENT COMMAND recu a chaque appel, plus de rafale de 80-110 bit errors apres l’annonce. /dev/shm/calypso_bsp_dedie doit passer de tn=1 a tn=2 seulement a la tache TCH.
- FACCH DL sur TCH (T200 de l’appel 1) : si les lignes [a_fd] BLUD=1 arrivent, la plomberie est bonne. Si a_fd reste muet alors que le pont decode des FACCH, il faut chercher dans la ROM ou le coeur (SP-CORRUPT pc=0x0000 au tick 10253, watchpoint calypso_c54x.c:6226-6240).
- ASSIGNMENT FAILURE provoquee : « revenu sur le SDCCH », « TCH TN=2 abandonne » cote pont, SDCCH de nouveau decode par le mobile.
- Fin d’appel : pas de « Kc lache » a la liberation, plus d’echecs TS1/8 cote pont apres. Au RACH suivant : « Kc lache (IMMEDIATE ASSIGNMENT) ».
- Non-regression grgsm : MODE=grgsm, un appel MO, memes messages qu’avant.
5.2.1.50 2026-09-23 18:45 — SACCH en TCH : depot apres l’IDLE, enregistreur, et le coupable MVKD/MVDK
Journal reconstitue des commits de l’apres-midi (bbc66c4 16:24, d474b76 17:40, 05388d8 18:42, et qosmo f5c8110 16:24, 7f27ab7 17:40, 9e61950 18:42). Banc non relance par cette mise a jour de la doc.
5.2.1.50.1 1. Le burst TCH depose trop tot (bbc66c4)
- Pour une tache TCHA (SACCH/TF), la ROM arme la fenetre de N+1 PUIS demodule, au debut de N+1, le burst SACCH de N laisse en 0x0cce. Le pont deposait le burst des l’armement et l’ecrasait : a_cd FIRE KO a chaque bloc, 113-118 bits faux, LOS au 32e bloc.
src/pont.c: sur le TCH, la phase A va jusqu’a l’IDLE avant le depot (budget/2 au plus). Reproducteur tch_rejeu : SACCH FIRE=0 « 07 00 03 », FACCH 10/10 bonnes contre 6/12.PONT_TCH_DEPOT_IDLE=0= ancien depot ; trace[depot_tch](30 premieres trames). Hors TCH, arret a l’armement inchange.montant.c: le tap QEMU (calypso_dcch_tap.c, qosmo f5c8110) annonce maintenant le TCH (genre 2 = TCH/F, 3 = TCH/H). C’est un simple constat : le SDCCH memorise n’est PAS ecrase, c’est lui que l’ASSIGNMENT FAILURE retrouve.INSNS60000 -> 80000 dans run.sh : 60000 debordait en TCH (jusqu’a 87000 insn/trame).
5.2.1.50.2 2. Enregistrer le banc, le rejouer ailleurs (d474b76)
c54x_exeecrit, sur tout canal dedie, les ecritures ARM dans l’API RAM (par difference, avant le TICK et entre phase A et GO), les TICK, et les livraisons d’I/Q du BSP dans/dev/shm/calypso_rejeu_tch.bin(60000 livraisons au plus ;CALYPSO_REJEU_ENREG=0coupe).tools/rejeu_banc [fichier] [ticks]rejoue le tout dans l’ordre de pont.c et imprime chaque a_cd / a_fd.REJEU_SANS_D=1garde l’etat du boot local.tools/sacch_tf_decode [fichier] [TN] [Kc]decode hors DSP la SACCH/TF enregistree par le BSP (/dev/shm/calypso_sacch_tf.bin) avec le Kc decalypso_kc_l1. Mesure de la session : 63/63 blocs, 0 erreur. Les bursts que recoit le BSP sont bons ; le defaut est apres lui. (Chiffre de la note de session, non verifiable dans le code.)- Le rejeu reproduit l’echec du banc. Cause :
data[0x3d89], pointeur du tampon SACCH (normalement 0x4dxx), vaut deja 0x08xx au debut du TCH ; la copie de 28 mots depuis 0x0cce ecrase alors les pages W/R et le NDB, dontd_debug_ptr(DSP perdu). - L’ecrivain : la routine de mesure de puissance (autour de 0x76c0), a cause du coeur. MVKD (0x70) / MVDK (0x71) en adressage long lisaient dmad en pc+1 et lk en pc+2 ; le bon ordre est lk puis dmad (comme PORTW, ST et binutils).
70f8 0012 0014faisait AR4 <- AR2 au lieu de AR2 <- AR4, et la PM ecrivait en 0x3d0b..0x3d89. Corrige dans qosmoc54x_exec.cpar 9e61950 (18:42, livre avec 05388d8 ;CALYPSO_MVKD_DMAD_AVANT=1= ancien ordre, A/B). Garde permanente[garde-3d89]dansc54x_mem.c(7f27ab7) : les 12 premieres ecritures de 0x3d89 hors 0x4d00..0x4dff, avec PC, DP, ST0/ST1, SP, AR2, BK. - A5 :
calypso_a5.c(qosmo 7f27ab7), le coprocesseur XIO sur les ports 0x2800..0x2818, compile dans c54x_exe (Makefile, d474b76).CALYPSO_A5=0le coupe.
5.2.1.50.3 3. Le temps d’une trame (05388d8)
PONT_DONE_TOT(defaut 1) : DONE rendu des le burst depose, le DSP finit la trame pendant que QEMU repart.0= ancien ordre.[chrono]dans dsp.log toutes les 1000 trames :qemu | A | go | B | apres DONE | trameen ms, contre 4,62 ms de temps reel.- run.sh pose
CALYPSO_PONT_RETRY_DIV=64sur QEMU : relance vers le DSP toutes les trame/64 (0,07 ms) au lieu de trame/16 (0,29 ms), latence payee deux fois par trame (DONE de la phase A, GO).
5.2.1.50.4 4. La parole montante TI -> FR (05388d8)
mobile_pont.cfg dit io-tch-format ti : gapk rend la voix au format du DSP TI, le firmware la copie dans a_du, et le pont la passait a gsm0503_tch_fr_encode(..., net_order=1), qui attend du FR TS 101 318. La BTS recevait une parole melangee, l’echo la renvoyait en bruit sature. montant.c convertit (repris de fmt_ti.c puis fmt_gsm.c) ; MONTANT_PAROLE_TI=0 = passage brut.
5.2.1.50.5 5. Sondes et outillage (05388d8, sauf mention)
[a5-arm]: chaque changement de d_a5mode ou du Kc pose par l’ARM.[d_fn](bbc66c4) : la position que le firmware donne au DSP sur TCHA.- run.sh : gdbstub QEMU
tcp:127.0.0.1:1234et consoletelnet 0 44444(GDB=0coupe) ;ASSEMBLY_LOGS=1= trace asm ARM dans qemu-asm.log. - Makefile : cible
.PHONYet dependance aux en-tetes (d474b76),-O3 -march=native(05388d8).makereconstruit c54x_exe a chaque appel ; plus besoin demake clean.
5.2.1.50.6 A mesurer
- Correctif MVKD/MVDK sur le banc : plus aucune ligne
[garde-3d89], a_cd FIRE=0 sur la SACCH/TF, plus de LOS en appel, et l’appel suivant ne tombe plus sur une connexion SCCP restee ouverte. - SABM repetes / UA perdu (« SABM frame with information not allowed » au BSC, 19:06) : cote osmo-operator,
pont/dsp/clock.pymesurait l’avance de la BTS contre l’horloge reelle ; corrige a 20:14 (boucle fermee sur DSP + avance,PONT_AVANCE_MIN4 -> 10), apres le dernier commit de c54x_exe. Lire ensemble « marge DL reelle … moy » dans pont.log (doit rester ~>= 10) et la colonne B de[chrono](B >> 1 ms = le DSP attend la BTS). - Chiffre de vitesse du coeur avec les sondes coupees, a remesurer avant de l’ecrire dans le README.
5.2.1.51 2026-09-23 20:40 — Runs du banc DSP de 20:22 et 20:32 : tout passe a 20:22, mais chaque trame de parole est BFI
Sources : archives /tmp/c54x-pont/archives/20260923-202448 (run de 20:22) et 20260923-203413 (run de 20:32), journaux osmocom du run de 20:22 (20:22:09 -> 20:24:56 ; pas de journaux reseau pour 20:32). Mobile DSP = MS 1, MSISDN 100101 ; l’autre mobile = 100102. Banc relance par l’utilisateur, pas par cette mise a jour.
5.2.1.51.1 Ce qui marche (constate, run de 20:22)
- LU : IMMEDIATE ASSIGNMENT 20:22:41, U1_UPDATED 20:22:45, liberation 20:22:47.
- Appel MO 100101 -> 600 (echo Asterisk) : ASSIGNMENT COMPLETE 20:22:54 (TCH/F TN=2, bascule du BSP par la tache firmware), ACTIVE 20:22:55, DISCONNECT 20:23:27, TCH ferme 20:23:28. STATS du pont a 20:23:30 (cumuls de la session) : TCH dl=1607 ul=1601 perdus=11, FACCH ul=14, SACCH ul=87. Parole audible dans les deux sens ; GAPK monte la chaine au decrochage (FR, ti-fr).
- SMS : 100102 -> 100101 (MT 20:23:53-55) et 100101 -> 100102 (MO 20:24:05, SAPI 3 sur DCCH), CP-ACK et RP-ACK recus.
- Appel MT 100102 -> 100101 (osmo-sip-connector) : ASSIGNMENT COMPLETE 20:24:25, ACTIVE 20:24:28, release normal, TCH ferme 20:24:34.
- A5/1 : « chiffrement descendant confirme par la BTS » a 20:22:45, 20:22:53, 20:23:53, 20:24:04, 20:24:24 (LU, appel 600, SMS MT, SMS MO, appel MT).
- Correctif MVKD/MVDK (A mesurer 1 de l’entree de 18:45) : sur ce run, SACCH/TF
a_cdKO a fn=4746 et 4954 (bascule), puis ok jusqu’au dernier bloc journalise, fn=9426 (ok 9 -> 51, ko fige a 9) ; cote mobile, aucun bloc SACCH jete entre la bascule (20:22:55) et la liberation (20:23:28). Aucune LOS, aucune ligne[garde-3d89], et l’appel MT qui suit l’appel 600 aboutit. Confirme pour 20:22 (voir la LOS de 20:32 plus bas). - clock.py (A mesurer 2) : aucune ligne SABM dans les journaux osmocom. Marge DL reelle min +0 (20:22:47), +9 (20:22:57, 20:23:07), puis +13 a +15, moyenne 22.3 a 38.9. L’avance visee monte a 40 a 20:22:37 et 20:22:56 (38 a 20:23:02). BSC : aucune ERROR INDICATION « SABM frame with information not allowed ».
- BSP dedie :
stockes=1751 joues=1752 manques=0 perdues=0 recales=0 silences=0. - Temps reel : 29 513 trames, un seul tick saute, au boot (fn=0).
5.2.1.51.2 Anomalies ouvertes, par ordre d’importance
- B_BFI sur toute la parole descendante. Run de 20:22 : les 40 etats
[a_dd](21 x c214, 18 x c204, 1 x 8084) ont le bit 2 = B_BFI (l1_environment.h:272) ; leko=0d’alors comptait 0x0040 = B_FIRE1, sans objet sur la parole. Sonde etendue (src/montant.csonde_add:BFI=,err=a_dd_0[2], compteurbfi=; non commitee), passee au run de 20:32 :vues=2200 ko=376 bfi=2200. Sur les 42 lignes : 19 x c214 err=0 (19 des 20 premieres, fn 5839-5921, juste apres la bascule ; la 18e, fn=5912, est le 8084), 17 x c204 err=15..80, 5 x 80c4 err=81..93, 1 x 8084 err=58. On entend quand meme : prim_tch.c:327 ne teste que B_BLUD et ne remonte pas le BFI, GAPK decode les 33 octets tels quels. Ce n’est donc pas « bits bons, BFI faux » : la ROM compte 15 a 93 erreurs par trame. Reste a separer signal (BSP, IQ, egalisation) et coeur C54x (Viterbi, recomptage) : comparer bit a bit les 33 octets livres par la ROM aux trames de la BTS (RTP du MGW ou pont). Leko(B_FIRE1, 376/2200) n’a pas de sens defini sur la parole. - LOS en TCH au run de 20:32. Appel MO ACTIVE 20:32:30 ; SACCH/TF
a_cdok a fn=5991 puis FIRE KO a chaque bloc des fn=6095 (ko 8 -> 40) ; « LOSS counter for ACCH » descend de 31 a 0 et « LOS during dedicated mode » a 20:32:45. Aucune ligne[garde-3d89]: ce n’est pas l’ecrasement du pointeur 0x3d89 corrige. Appel suivant (20:32:57) : IMMEDIATE ASSIGNMENT puis T3230 a 20:33:13. Troisieme (20:33:35) : ASSIGNMENT COMPLETE 20:33:38, ACTIVE 20:33:39, DISCONNECT 20:34:06, SACCH/TF ok (ok 14 -> 54, ko fige a 46). Correlation :errde la parole 63 a 93 sur l’appel en LOS a partir de fn=6273 (jusqu’a 9306 ; ses 20 premieres trames, fn 5839-5921, a 0 sauf une a 58), 15 a 38 sur le troisieme (fn 21248-26881). Non localise. - SDCCH/8 descendant (run de 20:22) : 30 « Dropping frame with N bit errors » (l1ctl.c:278, toute trame a fire_crc >= 2), dont 18 precedees de « LOSS counter for ACCH » (l1ctl.c:268, SACCH seulement). Sur SDCCH/8 : 27 trames jetees (84 a 114 bit errors), 4 a 7 par session dediee, 7 sur le LU entre 20:22:42 et 20:22:47 ; 15 SACCH, 12 du canal principal. Sur TCH/F, une perte SACCH a la bascule (20:22:55, 54 bit errors) et une a chaque liberation (20:23:28, 20:24:33). Suspect : la table 45.002 du BSP pour la SACCH/8 (alternance sur 102 trames), mais le canal principal est touche aussi. Mesure a faire : fn % 102 des blocs jetes contre ceux acceptes.
- Marge temps reel en TCH :
[chrono]fn 5997-11997 (20:22) = A 0.33 + go 0.40 + B 0.16 + apres DONE 3.37-3.68 ms ; qemu 0.04-0.32 ms. Meme profil a 20:32 (fn 6997-8997, 21997-26997). Hors TCH, apres DONE 0.07-0.95 ms. Tenu, sans reserve. - UI SAPI 0 sur le TCH : BSC 20:22:54 lchan(0-0-2-TCH_F-0){WAIT_RLL_RTP_ESTABLISH} « SAPI=0 UNIT DATA INDICATION: unimplemented Abis RLL message type », juste apres l’ASSIGNMENT COMPLETE. Pas la trame de bourrage (UI de longueur 0, jetee par libosmocore). Hypothese : un MEASUREMENT REPORT sur le lien principal. Non bloquant.
- Mineures : MM_EVENT_NO_CELL_FOUND transitoire a 20:24:08 apres le SMS sortant ; MSC 20:24:26 « Duplicate DTAP » sur la reponse au paging, sans consequence.
5.2.1.51.3 Ce qui n’est PAS une anomalie
- Les echecs CRC du moniteur TCH descendant du pont : meme profil sur les deux appels, la BTS n’a rien a mettre sur le TCH tant que le RTP ne coule pas. Decodage du pont, independant du DSP.
- Le
kode[a_dd]sur la parole (B_FIRE1), voir 1. - Le tick saute au boot (fn=0), et l’arret de 20:24:52 (SIGINT volontaire).
5.2.1.51.4 A mesurer
- B_BFI : comparaison bit a bit ROM / BTS sur un appel sain, puis rejeu hors banc (
tools/rejeu_banc) pour isoler le coeur. - LOS de 20:32 : rejouer l’enregistrement TCH de cet appel si
/dev/shm/calypso_rejeu_tch.binle contient encore ; regarder ce qui change a fn=6095. - SACCH/8 : fn % 102 des blocs jetes.
5.2.1.52 2026-09-29 23:30 — Le verrou SB, mesure et correctif : le SCH n’etait jamais cadre pour la tache SB
Run dsp de 22:38 (banc-max), 600 tentatives SB dans dsp.log, 540 FBSB_REQ dans osmocon.log : 577 FB trouves, 130 SB. Cote mobile, chaque SB manquee est un « FBSB RESP: result=255 », une perte de cellule, 10 a 30 s de recherche PLMN ; l’appel de 23:06:35 est tombe dedans (« LOS during RACH request »), les SMS et l’USSD passent quand ils tombent dans une fenetre « normal service ».
5.2.1.52.1 Ce que les traces etablissent
- Le TOA du FB est IDENTIQUE a chaque tentative (8743, ou 9995 = une trame plus loin) : le cadencement est deterministe.
- La tache SB est postee a la bonne phase de multitrame dans 94 % des cas (
[cmd] tache SB postee, fn mod 51 = 6/17/27/37/47, toujours la meme famille). [a_sch]: a CHAQUE paire de tentatives, la page 0 recoit le meme resultat8100 0016 f85d 01fb(CRC faux, contenu constant = tampon sans burst) ; la page 1 recoit un contenu variable et decode 131 fois sur 600 (8000 xxxx 001c yyyy, BSIC 7).[sbwin]: 100 % des SCH sont livres avecone_shot=0 nwin=0 marge=0, donc a l’offset zero d’une trame de 1250 echantillons suivie de sept intervalles de bourrage – le cadrage de la recherche FB, pas celui d’une fenetre SB (burst a 23 symboles, tpu_window.c L1_SB_MARGIN_Q).
Donc : le temps est juste, c’est le CONTENU que la ROM lit qui varie – residu du RIF (4 mots par trame de recherche FB) et instant d’armement de la DMA par rapport au depot. Quand la DMA n’est pas armee au depot, calypso_rif_rx_burst() jette le burst (« n_muets ») et la tache SB lit du perime : la page 0.
5.2.1.52.2 Correctif (calypso_bsp.c, bsp_ts0_livrer ; pont.c)
Derriere CALYPSO_BSP_SB_FENETRE (1 par defaut) : * un SCH livre alors que la ROM a programme une page de tache (ALGTH/2 >= 150 echantillons) sans ONE_SHOT est cadre comme une fenetre SB : residu RIF vide, CALYPSO_BSP_SB_MARGE (21) echantillons de silence en tete, bloc de DEUX pages exactement (la pompe ne transfere qu’a deux pages pleines), sans bourrage ; * DMA non armee au depot : le bloc est garde et relivre des l’armement (calypso_bsp_sb_retenter(), appelee dans la boucle de pompe de pont.c et au tick suivant) ; * [sbwin] dit armee/one_shot/page_prog/rif_avant et l’action ; [a_sch] porte le TOA, PM, SNR de la page R (plafond 600). Un SB bien pose lit TOA=23. La recherche FB (page de 48 echantillons) et les fenetres ONE_SHOT ne changent pas. Non mesure : a lire sur le prochain run dans [sbwin] (page_prog reel de la tache SB) et [a_sch] (TOA, taux de CRC_OK sur la page 0 comme sur la 1).
A cote, banc-max : 87-ussd.sh est optionnel (un echec USSD ne saute plus appel et voix) ; 99-couverture.sh lit ses champs sur « ; » (les motifs « | » cassaient SMS, SDCCH descendant, SACCH en TCH, retour BSP), calcule son bilan hors du sous-shell (le verdict disait 0/0/0/0) et cherche des motifs que le mobile ecrit vraiment (MMSMS_EST_REQ, « new state dedicated -> release pending »).
5.2.1.53 2026-09-29 23:45 — Mesure du correctif SB (run de 23:33) : la fenetre SB existe, c’est l’ordre qui manque ; v2
[sbwin] avec les nouveaux champs :
[sbwin] SB #7 fn=327 p51=21 : armee=1 one_shot=1 page_prog=191 ... -> FENETRE SB (one-shot)
[a_sch] fn=994 page=1 : ... -> 8000 0720 001c 003d TOA=24 PM=5516 SNR=16384 CRC_OK
[sbwin] SB #8 fn=337 p51=31 : armee=0 one_shot=0 page_prog=191 ... -> DMA NON ARMEE
[a_sch] page 0 : 8100 0016 f85d 01fb TOA=0 PM=5521 SNR=12 (fenetre VIDE)
[a_sch] page 1 : 8100 xxxx xxxx xxxx TOA=24 PM=5516 SNR=16384 crc_ko (burst de la trame SUIVANTE)- La ROM arme bien une fenetre SB one-shot de 191 echantillons (ALGTH 764). Le MAILBOX du 22/09 (« la fenetre 382 mots n’existe jamais ») mesurait la longueur au moment du depot, pas celle de la tache SB. Quand elle est armee AVANT le depot, tout est natif : burst a 21, TOA 24, CRC OK.
- Le defaut est un defaut d’ORDRE dans le tick : la fenetre est le plus souvent armee APRES le depot du SCH ; calypso_rif_rx_burst() jette le burst (« n_muets »), la page 0 lit une fenetre vide (SNR=12, resultat constant), la page 1 lit le burst de la trame suivante a TOA 24 (SNR sature, CRC faux). Ce n’est ni le residu du RIF ni une « double page » (hypotheses du premier jet).
- Le premier jet regressait : la relivraison se faisait au premier armement venu, y compris les fenetres NB de la lecture BCCH (
RELIVRE ... one_shot=0 page=151 marge=3) ; le SCH remplacait le burst BCCH, plus aucune SI, mobile en « C6 any cell selection », pytest mobile/reseau en echec.
v2 (calypso_bsp.c) : le SCH depose sans DMA armee est garde UN tick et livre uniquement dans une fenetre SB one-shot (>= 190), cadre a 21, avec recalage de l’offset ARM-tick sur le tick de livraison (bsp_ts0_service saute alors sa trame, rejouee au tick suivant : flux contigu). Le chemin « deux pages » est retire. A lire au prochain run : RELIVRE au tick, CRC_OK sur la page 0 aussi, et le ratio => SB / L1CTL_FBSB_REQ d’osmocon.log (24/90 a 23:37).
5.2.1.54 2026-09-29 23:50 — v2 mesuree (run de 23:41) : le SCH part dans la fenetre PM ; v3 memorise toujours le dernier SCH
- Mobile campe (C3, normal service) : la regression de la v1 est levee.
- Mais SB 29/118 (osmocon),
[a_sch]page 0 : 0 CRC_OK sur 215 (fenetre VIDE, TOA=0 SNR=12), page 1 : 29 CRC_OK sur 214 (burst a TOA 24, le SCH une fois sur sept, sinon la trame suivante). Une seule relivraison sur tout le run. - Cause : au depot du SCH la DMA est le plus souvent ARMEE, mais pour autre chose – fenetre PM de 64 echantillons (
armee=1 one_shot=1 page_prog=64, SB #2010-2090 a p51=31) : le SCH y est consomme, puis la fenetre SB s’arme et ne trouve rien. La condition « DMA non armee » de la v2 ne voyait pas ce cas. - Ma trace
[sbwin]n’echantillonnait qu’un SCH sur dix apres le 200e : le depot exact autour des tentatives etait invisible.
v3 : le dernier SCH depose est TOUJOURS memorise (fn, tick, bits, livre-en- fenetre-SB ou non) ; si une fenetre SB one-shot (>= 190) s’arme dans le tick ou le suivant sans qu’il y soit alle, il y est livre (residu RIF vide, marge 21, offset ARM-tick recale). Trace [sbwin] complete (avec le tick) pendant 60 ticks apres chaque detection FB et 8 ticks apres chaque tache SB postee (calypso_bsp_sb_trace(), appelee par pont.c). A lire au prochain run : RELIVRE au tick, CRC_OK sur la page 0, ratio => SB/FBSB_REQ.
5.2.1.55 2026-09-30 00:15 — La fenetre SB etait bonne ; c’est la demodulation du SCH qui basculait. Mesure en rejeu, reglages portes au banc
Trace complete (v3, [sbwin] a chaque SCH pendant 60 ticks apres un FB) : * tentative 1 (page 0) tombe TOUJOURS sur la trame FCCH (p51 = SCH - 1, burst nul) : fenetre vide normale, pas un defaut ; * tentative 2 tombe sur le SCH, livre NATIVEMENT en fenetre SB one-shot 191 au bon TOA (23-24) ; aucune relivraison n’est necessaire (v2/v3 inutiles ici, gardees, inertes) ; * et pourtant : 129 fenetres SB natives comparees bit a bit au mot attendu (fn BTS connu) -> CRC OK sur la moitie ; sur la plupart des echecs seuls les bits 0-2 du mot sont faux (…1b/1f/1d au lieu de …1c). Les memes positions du burst basculent selon le contenu : le « fil du rasoir » deja vu sur les NB.
Mesure hors banc, c54x_exe --rejouer avec REJEU_CONTINUER=1 (8000 trames, deterministe, 785 FB / 12000 trames), SCH decodes / SCH presentes :
| reglage du SCH | decodes |
|---|---|
| tel quel (instant 0.5, sans elargir, sans bruit) | 34 % |
| elargissement 0.15 / 0.3 / 0.5 / 1.0 / 1.5 | 50 / 60 / 63 / 66 / 66 % |
| + instant 0.35 (0.3 : 71 %, 0.4 : 72 %, 0.5 : 66 %) | 76 % |
| + bruit sigma 3000 (300 : 77 %, 1000 : 79 %, 6000 : 73 %) | 82 % |
| phase porteuse 10/22/45, marge 19-23 | sans effet |
| amplitude 8000 / 15000 / 22000 | 0 FB / 2 SB / 82 % |
Zero faux positif dans tous les cas. Porte au banc : sb_moduler() dans calypso_bsp.c (trois sites : bsp_ts0_livrer, sb_cadrer, chemin deliver), defauts CALYPSO_BSP_SB_SYM=1.0, CALYPSO_BSP_SB_DEC=0.35, CALYPSO_BSP_SB_NOISE=3000 (0 / 0.5 / 0 = avant). Cote rejeu : CELLULE_SB_SYM, CELLULE_SB_NOISE (0 par defaut, le rejeu reste la reference). Attendu au prochain run : => SB / L1CTL_FBSB_REQ de ~25 % a ~80 %, donc des pertes de cellule rares, et un RACH d’appel qui ne tombe plus en LOS. Le reste (18 %) est encore dans la demod SB de la ROM emulee ; a chercher avec REJEU_DUMP_SOUPLES sur les SCH qui echouent a ces reglages.
5.2.1.56 2026-09-30 00:20 — Run banc-max de 00:07 (dsp, –restart) : l’appel s’etablit, 31 fonctions GERE sur 37
Avec sb_moduler() (instant 0.35, elargissement 1.0, bruit 3000) : SB 33/69 FBSB_REQ (etait 1/4), camp en 1 s, LU, SMS MO/MT, appel CC ACTIVE en 1 s (SETUP, CALL PROCEEDING, ASSIGNMENT COMMAND/COMPLETE, CONNECT), TCH/F decode (a_dd vues=3400 ko=0), FACCH/SACCH/parole montants vus par montant.c, liberation radio. Couverture : 31 gere, 1 degrade, 2 non gere, 3 non observe. Echelle 23/23, 2 echecs : * voix : le ton 1 kHz ne revient pas (raie 380 Hz, +0.3 dB) – coherent avec B_BFI=1 sur TOUTES les trames de parole descendantes (a_dd bfi=3400/3400, Viterbi ko=0) : le point ouvert n°1 du README, inchange. C’est le prochain verrou. * ussd : intermittent. Cause lue dans mobile.log : apres chaque liberation le mobile resynchronise (FB+SB), la synchro echoue encore une fois sur deux, le mobile passe 3-10 s « no cell », et le RACH lance pendant ce trou meurt en « LOS during RACH request » ; 87-ussd.sh enchainait #101# 2 s apres #100#. Correctif banc : attendre_service() (_lib.sh) avant chaque transaction (ussd, sms-mo, appel, voix). Le fond (18 % de SCH non decodes) reste cote ROM emulee. * garde MVKD/MVDK non observee = la garde n’a pas eu a jouer ; retour BSP sur le SDCCH non observe = la liberation s’est faite sur le TCH (FACCH), normal.
5.2.1.57 2026-09-30 00:45 — Voix : la boucle est coupee en deux hors banc, c’est le MONTANT qui casse ; le BFI n’y est pour rien
tools/comparer_parole.pysur l’appel de 00:14 : 1116 trames de parole descendantes sur 1117 identiques au bit pres entre a_dd (ROM) et libosmocoding sur les bursts livres ; 12 FACCH identiques. La ROM rapporte pourtant ~27 erreurs canal par trame (a_dd[2]) la ou le Viterbi de reference en voit 0, et B_BFI=1 partout, y compris sur les trames a err=0. Le BFI ne vient donc pas du decodage (compteur ou metrique de qualite, a voir en rejeu avec bruit/amplitude) ; et le firmware l’ignore (prim_tch.c ne teste que B_BLUD) : il ne casse pas la voix.- Les memes trames a_dd, decodees par libgsm (RFC 3551, independant de la ROM et du mobile) : RMS constant ~3300, raie 200-600 Hz mouvante, 0 % d’energie a 1 kHz sur 23 s. Or a_dd == ce que la BTS a emis == l’echo d’Asterisk. Ce qui est revenu du reseau etait deja du bruit : le montant envoie du bruit. Le descendant est sain jusqu’a a_dd ; pas besoin du test Playback().
- Verifie hors banc : parole_ti_vers_fr() est l’inverse exact de gapk (ti_fr_from_canon o gsm_to_canon, aller-retour identique) ; le firmware ecrit a_du avec dsp_memcpy_to_api(…, 1) = octet fort d’abord, comme prendre_ul. Restent : la capture GAPK (gsm_in -> gsm_mic.monitor), le firmware, le pont (codage, A5 montant).
- Pour trancher au prochain appel : montant.c note chaque trame montante dans /dev/shm/calypso_add_ul.bin (type 1 brute TI, type 0 convertie FR) ;
tools/decoder_add.py ul(etdl) decode avec libgsm et cherche le ton. Si le ton est dans add_ul : GAPK, firmware et montant.c sont bons, le defaut est au pont ou au-dela (capturer le RTP au MGW). S’il n’y est pas : capture GAPK ou firmware (a_du).
5.2.1.58 2026-09-30 00:50 — Pourquoi l’USSD (et tout RACH) passe une fois sur trois : la resynchro de gsm322 avant chaque RACH
Run de 00:36 : 10 CHANNEL REQUEST, 3 « LOS during RACH request » ; 7 liberations, 3 LOST_COVERAGE. Dans chaque cas rate, le RACH n’est pas emis : pas de ligne « RANDOM ACCESS », mais deux « FBSB RESP: result=255 » dans la seconde qui suit le CHANNEL REQUEST, puis le LOS.
Mecanisme, lu dans osmocom-bb gsm322.c : a chaque sortie de veille (GSM322_EVENT_LEAVE_IDLE -> gsm322_c_conn_mode_1/2), la selection de cellule refait une synchro FB+SB complete sur la cellule serveuse (gsm322_sync_to_cell(cs, NULL, 1)) AVANT le RACH, avec SYNC_RETRIES = 1 essai. Idem au retour en veille apres une liberation. Sur silicium c’est instantane et sur ; ici la ROM emulee decode le SB ~80 % du temps (apres sb_moduler), donc ~1 RACH sur 3 tombe en FBSB_ERR -> gsm48_rr_los -> « LOS during RACH », et ~1 liberation sur 2 laisse le mobile 3-10 s sans cellule. Le ber= 47-49 des lignes MON et le err~27/BFI de la parole sont le meme artefact de compteur d’erreurs de la ROM sur nos echantillons, sans lien avec ces pertes.
Decision : NE PAS toucher a osmocom-bb (un patch de SYNC_RETRIES par variable d’environnement a ete essaye puis retire, aucun binaire installe). Le levier est du cote emulation : les 18 % de SCH que la ROM ne decode toujours pas (REJEU_DUMP_SOUPLES sur les echecs a SYM=1.0 DEC=0.35 NOISE=3000). Cote banc, attendre_service() + le rejeu du barreau (–essais 2) absorbent l’intermittence tant qu’elle dure ; le run de 00:36 l’a montre (USSD OK au 2e essai).
5.2.1.59 2026-09-30 01:30 — Les 20 % de SCH restants : ce qui a ete mesure, ce qui ne marche pas, ou chercher
Outils ajoutes au rejeu (tous a 0 par defaut, le rejeu reste la reference) : SBresp imprime le mot decode meme en CRC faux + TOA/PM/ANGLE/SNR ; CELLULE_SB_GARDE (garde continue au lieu du silence), CELLULE_SB_ISI (traine causale), CELLULE_SB_AMP (amplitude du seul SCH), CELLULE_SB_FC (GMSK sur-echantillonnee + Butterworth ordre 3 + decimation, gmsk_moduler_filtre()). Analyse : scratchpad analyse_sb.py (a recopier dans tools/ si utile).
Ce que les traces etablissent (rejeu SYM 1.0, DEC 0.35, bruit 3000, 12000 trames) : * les tentatives « fenetre vide » (TOA 43, SNR ~10) sont les tentatives 1, sur la trame FCCH : normal ; * les vrais rates (20 %) ont TOA 23, SNR sature ; le mot lu est faux sur ses ~14 premiers bits d’information et juste ensuite : c’est la MOITIE AVANT la sequence d’apprentissage qui est demodulee en garbage, la seconde tient ; * l’ensemble des rates est fixe par le CONTENU (31/33 communs entre deux instants d’echantillonnage, 24/33 avec un autre elargissement) ; * ce qui discrimine : les bits codes qui BORDENT la sequence (c38 juste avant : P(KO)=10 % si 0, 32 % si 1 ; c40 juste apres : 11 % / 31 %). L’ISI aux bords contamine l’estimation de canal de la ROM, qui equalise la premiere moitie a reculons depuis la sequence ; * l’angle (frequence estimee par la ROM, +70 Hz sur un signal a 0 Hz) bouge avec les reglages (+82 a +4 Hz) sans que le taux suive : pas la cause.
Ce qui ne change RIEN (a +-3 %) : amplitude du SCH (3000 a 30000), inversion d’un bit code quelconque, garde continue (zeros / aleatoire / uns), instant 0.2-0.8, elargissement 0.3-2.0, traine causale. Le filtre « realiste » (Butterworth 60-220 kHz) fait MOINS bien (44-65 %) : la ROM prefere une ISI forte et nette a trois coefficients. Meilleurs jeux sur 12000 trames : SYM 0.3 + ISI 0.3,0.1 -> 81 % ; SYM 1.0 + ISI 0.8,0.4 -> 80 % ; SYM 1.0 seul -> 77 %. Au banc (run de 00:36), 77 CRC_OK / 104 fenetres SB natives = 74 %.
Ou chercher ensuite : (a) la RE de l’estimation de canal SB de la ROM (quelle portion de la sequence elle correlle, sur quels lags, comment elle choisit sa fenetre : meme mecanique que le NB, 0x8551) — c’est la ou le contenu decide ; (b) cote emulation, une seconde chance : la tentative 1 du firmware tombe sur la trame FCCH et ne sert a rien ; le BSP a deja le SCH de la trame suivante dans son anneau et pourrait le livrer dans cette fenetre-la aussi (l’offset ARM-tick se recale sur la trame ou le SB est reellement livre, comme le fait deja calypso_bsp_sb_retenter()) — deux essais par cycle au lieu d’un, si possible avec deux formes d’onde dont les ensembles de rates se recouvrent peu. REJEU_FN_DEBUT (demarrer a un fn realiste) a ete essaye et retire : la recherche FB du rejeu suppose fn depuis 0 (0 FB accepte a fn=100000).
5.2.1.60 2026-09-30 10:45 — « (MO) SMS rejected » : meme cause que l’USSD
Run de 10:33, essai 1 du SMS MO a 10:37:03 : CM SERVICE REQUEST, CHANNEL REQUEST, puis « LOS during RACH request », MM avorte (cause 47), le mobile affiche « SMS to 100102 failed: (MO) SMS rejected » ; rien n’atteint le MSC. Essai 2 a 10:38:30 : RACH, IMMEDIATE ASSIGNMENT, SMS remis. C’est la resynchro FB+SB de gsm322 avant chaque RACH (1 essai) qui echoue une fois sur cinq avec un SB a ~80 % : le SMS, l’USSD et l’appel y passent tous, le rejeu du barreau (–essais 2) l’absorbe. Le fond reste le taux SB (voir 01:30). 80-sms-mo.sh garde desormais la sortie VTY de chaque essai (>>).
5.2.1.61 2026-09-30 10:55 — Voix : le ton EST dans le montant, 10 s trop tard ; le test regardait 12 s
Run de 10:33, calypso_add_ul.bin decode par tools/decoder_add.py ul : silence (RMS 13-90) pendant 13 s, puis le ton 1 kHz propre (RMS ~13000, 100 % de l’energie a 1000 Hz) de t=13 a t=17 s de l’appel. Recale sur l’heure murale (pont STATS fn=103984 <-> 10:42:23), le ton monte vers 10:42:21-10:42:28 alors qu’il a ete joue de 10:42:11 a 10:42:15 et que l’enregistrement du retour s’arretait a 10:42:20 : l’echo ne pouvait pas y etre. Le descendant vu dans la fenetre etait l’echo du silence tamponne, reencode. Donc : capture GAPK, firmware, a_du, conversion TI -> FR, pont, BTS, echo : tous BONS. Le defaut est une LATENCE d’environ 10 s sur le montant : les trames de parole montantes ont des trous (ecarts fn de 9 et 13 au lieu de 4-5, ~20 % des trames non produites), le codeur consomme l’audio moins vite que le temps reel et le tampon de capture grossit. La MGW le voit aussi (« input timestamp alignment error » a 10:42:27). 92-voix.sh : enregistrement 30 s (VOIX_REC_S), recherche du ton sur toute la duree, latence dans le verdict. A chercher ensuite : pourquoi ~20 % des trames TCH montantes manquent (prendre_ul/a_du vs cadence du firmware, B_PLAY_UL).
5.2.1.62 2026-09-30 11:20 — Voix : la boucle marche, echo compris ; le test injectait le ton pendant l’annonce d’Asterisk
Appel de 10:54 (run 10:45), trois chronologies recalees sur l’heure murale (pont STATS fn=107288 <-> 10:55:00) : * descendant a_dd : 10:54:47 -> 10:55:09, RMS ~3300, raies 200-400 Hz = la VOIX de l’annonce demo-echotest (22 s, /usr/share/asterisk/sounds/en/demo-echotest.gsm), jouee par l’extension 600 (extensions.conf:291-294 : Answer, Playback, Echo(), Playback) ; puis silence quand le montant est silencieux ; puis ce que le micro a capte a 10:55:13-14 revient a 10:55:11-14 + 1-2 s (DL 24 s, 27 s) ; * montant a_du : ton 1 kHz propre 10:55:01 -> 10:55:05 pour un paplay 10:54:59 -> 10:55:03 : latence montant ~2 s sur ce run (2000 trames UL pour 1880 attendues, aucun trou). Les 10 s de 10:42 venaient des ~20 % de trames UL manquantes de ce run-la (file de capture qui grossit) : intermittent, a garder a l’oeil, pas bloquant ; * le « ton retrouve a t=8 s, 19 % » du verdict etait la voix de l’annonce. Donc micro, GAPK, firmware, montant.c, pont, BTS, MGW, Asterisk, echo, ROM, mobile, sortie audio : TOUS bons. Le banc tirait 19 s trop tot. 92-voix.sh : attend le silence descendant (fin d’annonce, VOIX_ATTENTE_ANNONCE_S, 30 s max) avant la reference et le ton ; enregistrement 15 s (VOIX_REC_S). Le BFI a 100 % reste un artefact de compteur (a_dd bit-exact, firmware ne le lit pas).
5.2.1.63 2026-09-30 11:05 — SB : deux formes d’onde, deux tentatives ; la « seconde chance » est codee
Rejeu, 8000 trames, 209 SCH, neuf variantes de forme d’onde comparees par l’ensemble de leurs SCH rates (SBresp, snr > 1000) : * A (SYM 1.0, DEC 0.35, bruit 3000) : 42 rates (20 %) ; D (A + traine causale 0.8, 0.4) : 35 (17 %) ; E (SYM 0.3 + traine 0.3, 0.1) : 35 ; * la meme forme A avec une autre graine de bruit : 61 et 57 rates, dont seulement 19-22 communs avec A -> les rates sont en bonne partie MARGINAUX ; * rates communs des meilleures paires : A+D 15 (7 %), C+D 16, A3+C 17 ; triplets : 8-10 (4-5 %). Le firmware poste deja deux taches SB sur deux trames consecutives, mais la premiere tombe sur la trame FCCH. calypso_bsp.c (bsp_ts0_service) : quand la trame a jouer est un FCCH et que la DMA est armee en one-shot >= 190 (fenetre SB de la tentative 1), on livre le SCH de la trame suivante (deja dans l’anneau) en forme D ; au tick suivant on lit a_sch dans l’API RAM (B_BLUD sans CRC, T2 <= 25, T3’ <= 4) : decode -> offset ARM-tick recale d’une trame (fn_sch - tick), flux contigu ; rate -> le SCH natif part en tentative 2 en forme A. Attendu : ~93 % de cycles FBSB reussis au lieu de ~80 %, donc des RACH qui ne tombent presque plus en LOS. CALYPSO_BSP_SB_DOUBLE=0 coupe. A lire au prochain run : lignes « [sbwin] SECONDE CHANCE … DECODE / rate », ratio « => SB » / FBSB_REQ dans osmocon.log, « LOS during RACH » dans mobile.log. Non teste hors banc : le rejeu ne passe pas par bsp_ts0_service.
5.2.1.64 2026-09-30 11:40 — Seconde chance, run de 11:34 : elle se declenche (43 fois, 30 decodes en tentative 1) mais ne gagnait rien
osmocon : 31 SB / 55 FBSB_REQ, comme avant ; SB1 27, SB2 4. Cause lue dans dsp.log : bsp_ts0_livrer() recale l’offset ARM-tick des qu’un SCH part dans une fenetre SB ; la livraison de seconde chance (SCH fn+1 au tick de la trame FCCH fn) le faisait donc avancer d’une trame AVANT le verdict de la ROM. Quand la forme D ratait (13 fois), le tick suivant livrait fn+2 et la tentative 2 voyait un burst normal (a_sch 8100 0172 86be 0060, TOA 23 SNR 427 = « pas de burst ») : D remplacait A au lieu de s’y ajouter. Correctif : offset sauve et restaure autour de la livraison de seconde chance ; le recalage n’a lieu qu’au tick suivant sur CRC OK lu dans l’API RAM (deja code). Attendu : ~30 + 13 x 0.8 = ~40 SB sur 43 cycles avec seconde chance.
5.2.1.65 2026-09-30 11:55 — Run de 11:37 : plus aucun LOS pendant le RACH ; un appel sur trois perd la FACCH descendante ; garde-fou de temps dans le banc
- Seconde chance corrigee (offset restaure) : 34 declenchements, 28 decodes en tentative 1, 6 replis ; osmocon SB1 25 / SB2 6 ; TOUS les CHANNEL REQUEST du run (SMS, paging, USSD x2, appels) ont eu leur IMMEDIATE ASSIGNMENT, zero « LOS during RACH request ». Le trou de resynchro avant RACH est ferme en pratique.
- Appel de 11:42:46 rate : SETUP recu par le MSC, ASSIGNMENT COMMAND vers TCH TS2, le mobile bascule et envoie SABM sur la FACCH (ASSIGNMENT COMPLETE en attente de l’etablissement) ; SABM repete 5 fois, jamais de UA : MDL-Error T200 a 11:42:55, ASSIGNMENT FAILURE, retour SDCCH, puis LOS dedie a 11:43:10. La BTS a bien repondu (le moniteur du pont decode 4 FACCH descendantes = les UA) ; la ROM n’a leve aucun a_fd pendant l’appel, alors que la SACCH du meme TCH passait a chaque bloc (donc fn et COUNT A5 justes : l’horloge n’est pas en cause). Les deux appels suivants (11:48, 11:49) passent : intermittent, c’est la FACCH descendante sur TCH du 23/09 20:40. A chercher dans le decodage TCH de la ROM (a_fd / stealing flags), pas dans la synchro.
- banc-max.sh : chaque barreau tourne sous surveillance (MOD_TIMEOUT, defaut 240 s, verdict ECHEC « timeout » au-dela) ; 90-appel.sh borne sa boucle en secondes (CALL_MAX) et non en tours de VTY.
5.2.1.66 2026-09-30 12:05 — Seconde chance : desactivee par defaut ; les appels de plus de 30 s tombaient
Run de 11:37 (binaire 11:36, seconde chance active) : zero « LOS during RACH » sur tout le run (SMS, paging, USSD x2, appels : tous les CHANNEL REQUEST servis), mais les deux appels de la voix tombent a ~30 s en « LOS during dedicated mode » (compteur SACCH 31 -> 0 en 15 s) avec un TCH descendant qui se degrade progressivement (a_dd err 19 -> 65 -> 91, FIRE=1, ko 0 -> 370). Le pont, lui, decode SACCH et TCH descendants et garde une marge DL >= 11 trames. Tous les appels des runs SANS seconde chance (00:14, 10:54) tenaient 40 s et plus avec le compteur a 31. Mecanisme suspecte : chaque decode en tentative 1 avance d’une trame l’index que le DSP reclame a la BTS (offset ARM-tick -673 -> -638 sur le run, 35 fois) ; la marge du pont ne se refait pas (la BTS ne va pas plus vite que le temps reel) et la boucle d’horloge pousse la BTS (avance visee 14 -> 27). Non prouve : a confirmer par A/B (CALYPSO_BSP_SB_DOUBLE=1). En attendant : defaut 0, et jamais en canal dedie (g_dedie_tn > 0). Le taux SB revient a ~74-80 % par SCH et le RACH retombe a ~1 echec sur 5, absorbe par –essais 2 et attendre_service(). L’echec de l’appel de 11:42 (FACCH descendante non decodee par la ROM, SABM repete, UA emis par la BTS) est independant : intermittent, point du 23/09.
5.2.1.67 2026-09-30 12:45 — Le ton casse le son : IT trame perdue, compteur TDMA du firmware decale d’une trame ; correctif dans qosmo (INTH + pont QEMU)
Symptome (appels de 12:09, run 11:57, et de 12:26, manuel) : des que le ton est injecte dans gsm_mic, la parole descendante devient du bruit (a_dd err 20-30 -> 70-95, FIRE), la ROM leve des FACCH a faux (a_fd BLUD=1 FIRE=1 a chaque bloc), la SACCH/TF ne passe plus (LOSS 31 -> 0), LOS ~15 s plus tard. Le montant s’effondre en meme temps (a_du une trame sur trois). Le pont, lui, garde sa marge DL (min +13) et le DSP tient 4,62 ms/trame. Preuve : la trace [a5] passe de « ecart +1 » (COUNT = dernier depot + 1, regime de tous les appels reussis) a « ecart 0 » exactement au moment de la bascule (#20500 fn=53467 le 12:26 ; #30500 fn=153420 le 12:09, avec alternance 0/+1 pendant ~1000 trames puis 0 pour de bon). Ecart 0 = la ROM lit une page W dont a_a5fn vaut fn-1 : le firmware est UNE TRAME EN RETARD sur l’interface radio. Il n’y a pas de correction possible de son cote : osmocom-bb ne detecte pas une IT trame manquee, l1s.next_time avance d’une unite par l1_sync(). Une IT trame perdue = glissement permanent jusqu’a la fin du canal. Comment on la perdait : calypso_trx.c leve l’IT trame TPU (IRQ 4) en impulsion de 1 ms (FRAME_IRQ_PULSE_NS) ; le firmware la configure sur FRONT (irq_config(IRQ_TPU_FRAME, 1, 1, 0)), mais le modele INTH (hw/intc/ calypso_inth.c) effacait le bit IT_REG a la retombee de la ligne, comme une source de niveau. Si l’ARM etait dans un traitement de plus d’1 ms sous IRQ masquees – la reception UART/L1CTL des TRAFFIC_REQ, en rafales quand paplay alimente le puits nul –, l’IT etait perdue ; au bout de 256 attentes (74 ms, la creux de -12 trames que le pont voit a 12:10:07) le GO etait envoye « quand meme » et la cible d’EOI recalee : le glissement s’installait sans une ligne de plus (le message n’etait imprime qu’une fois par run). Correctif (qosmo, l’ARM et la ROM ne bougent pas) : * calypso_inth.c : une source configuree sur front (ILR bit 1) parmi 4/5/15 reste memorisee jusqu’a la lecture d’IRQ_NUM. Plus d’IT trame perdue. Accesseur calypso_inth_irq_pending(). * calypso_trx.c : au-dela de 256 attentes, on n’envoie plus le GO avec une page perimee ; on attend l1_sync jusqu’a 32 x 256 essais (~2,4 s) en servant les UART, avec trace « on attend au lieu de forcer le GO » puis « finie apres N attentes » (20 premieres). Le temps mural perdu se paye en trames BTS trop tardives chez le BSP (perte radio, que le firmware sait absorber), pas en glissement TDMA. Le forcage ne reste que pour un ARM mort (message aux 20 premieres puis toutes les 2170). A verifier au prochain run (redemarrage de la pile : barreau 1) : [a5] ecart +1 sur tout l’appel voix, qemu.log sans « GO envoye quand meme », et le ton qui revient (92-voix). Si des « on attend » apparaissent dans qemu.log, leur duree dit combien l’ARM est en retard a l’injection du ton. Note : le modele INTH decode ILR a l’envers du firmware (FIQ lu au bit 8, prio aux bits 0-4, alors que le firmware ecrit prio<<2 | edge<<1 | fiq) : l’IT trame est servie comme IRQ et non comme FIQ, donc elle ne preempte pas le traitement UART – c’est ce qui rend le retard possible. Pas touche : la comptabilite EOI (frame_eoi sur IRQ_NUM) en depend. A reprendre si le retard reste visible.
Reponses aux points de couverture demandes : * « retour BSP sur le SDCCH : NON OBSERVE » : normal. montant.c ne rend le SDCCH au BSP que si le firmware reposte une tache ALLC pendant un TCH, ce qui n’arrive que sur ASSIGNMENT FAILURE (retour a l’ancien canal, 04.08 3.4.3.3, vu une fois le 11:42). Un appel normal finit par CHANNEL RELEASE. Ligne de 99-couverture.sh annotee « attendu absent ». * « TCH/F descendant : qualite (B_BFI) NON GERE » : la sonde [a_dd] montre BFI=1 sur 100 % des trames, y compris err=0, et err ~28 en regime normal (~6 % de 456, soit un burst sur huit a moitie faux ou 3-4 bits en bord de chaque burst) alors que les 260 bits sont exacts. Le BFI est donc une metrique de qualite de la ROM sur des bursts synthetiques trop propres ou mal bordes, pas une erreur de donnees. Outillage pose pour l’etudier hors banc : tools/rejeu_banc (recompile, sans cible Makefile : commande dans README) imprime desormais a_dd (BFI, erreurs ; REJEU_PAROLE=1 par trame) ; l’enregistrement /dev/shm/calypso_rejeu_tch.bin peut se limiter au TCH (CALYPSO_REJEU_ENREG=tch) et son plafond se regler (CALYPSO_REJEU_ENREG_MAX) – le run de 11:57 avait rempli ses 60000 livraisons avec les SDCCH du debut (fn 1376..34942), aucun TCH dedans. Le rejeu de cet enregistrement donne 23 SACCH/8 toutes Fire KO avec err 79-100 la ou le banc les decodait : le rejeu n’est pas encore fidele sur le SDCCH (Kc / etat ‘D’ ?), a regarder avant de s’en servir pour le BFI.
5.3 /opt/GSM/c54x_exe/README.md
5049 octets, 100 lignes
5.3.1 c54x_exe — the Calypso DSP, run as a native process
c54x_exe runs the original TI mask ROM of the TMS320C54x DSP found in Calypso GSM basebands (the chips behind OsmocomBB’s Motorola C1xx targets), on a C54x core emulator, as a plain Linux process. It can run alone, replaying recorded bursts in milliseconds, or serve as the DSP of a full phone: the unmodified OsmocomBB layer 1 firmware runs under QEMU and talks to this process through the real shared API RAM, frame by frame, exactly as the ARM talks to the DSP on silicon. No radio, no SDR, no license anywhere in the chain.
State on 2026-09-23 (runs recorded in docs/README.fr.md and MAILBOX.md): cell selection, location update, SMS in both directions, mobile-originated and mobile-terminated voice calls with A5/1 confirmed by the network, speech audible both ways. Open: the ROM flags every downlink speech frame as bad (BFI) although speech is intelligible, and the SB window is armed rarely enough that sync takes a few tries.
5.3.1.1 Architecture
osmo-bts-trx ── TRXD (UDP 5700-5702) ──▶ pont_dsp.py ── UDP 6702 ──▶ c54x_exe
+ Osmocom core (osmo-operator) │ BSP: bits → GMSK I/Q
│ C54x core + TI mask ROM
│ API RAM (/dev/shm/calypso_api_ram)
│ lockstep (/tmp/calypso_dsp.sock)
▼
osmocon ◀── serial ── qosmo (QEMU, Calypso machine, CALYPSO_DSP_EXTERN=1)
│ └─ OsmocomBB layer1.highram, unmodified
mobile (OsmocomBB layer 2/3)- Downlink: bursts leave the BTS as bits, the bridge forwards them, the BSP turns them into GMSK samples, and the ROM does what it does on a phone: FCCH/SCH detection, BCCH, TCH/F decoding, A5.
- ARM ↔︎ DSP: the ROM’s API RAM window is memory-mapped and shared with QEMU. Both sides advance one TDMA frame at a time over a Unix socket; the per-frame sequence mirrors
calypso_tdma_tick()of the in-QEMU DSP, so any divergence is localised (src/pont.c). - Uplink: reconstructed on the host by scanning the API RAM once per frame (
src/montant.c) — RACH, SDCCH, SACCH, FACCH and speech (TI format → FR) are published to/dev/shmand encoded by the bridge. This is the part the silicon does in the DSP and we do not, yet. - Every deliberate departure from silicon behaviour is an environment variable, listed at startup (
hacks_actifs()insrc/pont.c).
5.3.1.2 Building
The C54x core, the Calypso peripherals and the DSP glue live in qosmo (hw/arm/calypso/l1-dsp/) and are compiled from there — nothing is copied into this tree, on purpose.
# needs: qosmo checked out (default /opt/GSM/qosmo), libosmocore + libosmocoding, gcc
make # QOSMO=/path/to/qosmo make
./c54x_exe --trames 200 # the ROM alone, no ARM: does it boot, what does it write?
./c54x_exe --helpThe ROM images (rom/calypso_dsp.*.bin) are dumps of the TI mask ROM at their silicon addresses (src/main.c, ROMS[]).
5.3.1.3 Running a phone
./run.sh # DSP + QEMU + osmocon + mobile, in order; logs in /tmp/c54x-pont/
PONT=1 ./run.sh # + the TRX bridge, against a running osmo-bts-trx / core network
./run.sh --status | --logs | --stopProcess-by-process launch, expected log lines and checks: LAUNCH.md. The bridge and the network side are in osmo-operator.
5.3.1.4 Benches and tools
| what | where |
|---|---|
| Replay the ROM alone on a recorded FB/SB acquisition, deterministic, no QEMU | ./c54x_exe --rejouer, src/rejouer.c |
| Replay a recorded dedicated-channel session (TCH) through the ROM | tools/rejeu_banc.c |
| C54x instruction-level tests (the bugs they caught are listed in the source) | tools/isa_test.c, tools/isa_tests.txt |
| Bit-by-bit comparison: what the ROM decodes vs. libosmocoding on the same bursts | tools/comparer_parole.py |
| CCH interleaving reference vectors | tools/cch_ref/ |
Trace levels of the core, -v … -vvvvvv |
src/verbosite.c |
5.3.1.5 Repository layout
src/ main.c (ROM loading, CLI), pont.c (ARM/DSP bridge, per-frame sequence),
montant.c (uplink from API RAM), cellule.c (synthetic FCCH/SCH/BCCH),
rejouer.c (replay), verbosite.c (trace levels)
rom/ TI mask ROM dumps
tools/ benches, test vectors, analysis scripts
docs/ README.fr.md — the detailed, dated engineering notes (French)
LAUNCH.md process-by-process launch guide
MAILBOX.md dated log of hypotheses, refutations and measurements5.3.1.6 License
GPL-2.0-or-later, see LICENSE.
5.4 /opt/GSM/c54x_exe/balayage.tsv
1415 octets, 49 lignes → 13 lignes (2 groupes compactés)
decalage unique phase marge rx_avant daram_len vraies crc_ok sb_tentees fb_acceptees
-1 ⟨1⟩ 0.⟨2⟩ ⟨3⟩ 0 380 0 ⟨4⟩ ⟨5⟩ ⟨6⟩ ×24
⟨⟩ = (0,0,0,2,58,63) (0,0,21,1,57,60) (0,0,41,0,58,61) (0,25,0,5,56,61) (0,25,21,3,57,61)
(0,25,41,5,56,63) (0,5,0,7,54,62) (0,5,21,7,57,62) (0,5,41,3,57,60) (0,75,0,9,53,60) (0,75,21,1,58,61)
(0,75,41,11,51,60) (1,0,0,2,29,62) (1,0,21,2,29,62) (1,0,41,1,29,63) (1,25,0,1,30,62)
(1,25,21,2,29,60) (1,25,41,3,30,63) (1,5,0,2,30,62) (1,5,21,2,30,61) (1,5,41,1,29,61) (1,75,0,1,29,60)
(1,75,21,2,30,61) (1,75,41,8,30,63)
0 ⟨1⟩ 0.⟨2⟩ ⟨3⟩ 0 380 0 ⟨4⟩ ⟨5⟩ ⟨6⟩ ×24
⟨⟩ = (0,0,0,5,55,62) (0,0,21,1,57,63) (0,0,41,1,57,61) (0,25,0,2,57,61) (0,25,21,5,56,59)
(0,25,41,2,58,60) (0,5,0,1,57,60) (0,5,21,2,57,61) (0,5,41,2,56,62) (0,75,0,12,53,60)
(0,75,21,8,57,60) (0,75,41,3,57,60) (1,0,0,1,29,63) (1,0,21,1,29,60) (1,0,41,1,29,61) (1,25,0,1,29,61)
(1,25,21,3,29,61) (1,25,41,2,29,62) (1,5,0,2,29,61) (1,5,21,2,29,60) (1,5,41,2,29,60) (1,75,0,5,29,62)
(1,75,21,1,29,61) (1,75,41,5,29,60)5.5 /opt/GSM/c54x_exe/balayage_full.tsv
23719 octets, 851 lignes → 215 lignes (1 groupes compactés)
decalage unique phase marge rx_avant daram_len vraies crc_ok sb_tentees fb_acceptees
-⟨1⟩ ⟨2⟩ 0.⟨3⟩ ⟨4⟩ ⟨5⟩ ⟨6⟩ 0 ⟨7⟩ ⟨8⟩ ⟨9⟩ ×850
⟨⟩ = (3,0,0,0,0,296,0,64,66) (3,0,0,0,0,380,0,64,66) (3,0,0,0,1,296,0,58,60) (3,0,0,0,1,380,0,58,60)
(3,0,0,10,0,296,2,62,67) (3,0,0,10,0,380,2,62,67) (3,0,0,10,1,296,2,55,60) (3,0,0,10,1,380,2,55,60)
(3,0,0,21,0,296,1,64,67) (3,0,0,21,0,380,1,64,67) (3,0,0,21,1,296,0,58,60) (3,0,0,21,1,380,0,58,60)
(3,0,0,30,0,296,0,64,66) (3,0,0,30,0,380,0,64,66) (3,0,0,30,1,296,0,58,59) (3,0,0,30,1,380,0,58,59)
(3,0,0,41,0,296,1,67,71) (3,0,0,41,0,380,1,67,71) (3,0,0,41,1,296,3,57,59) (3,0,0,41,1,380,3,57,59)
(3,0,1,0,0,296,2,67,70) (3,0,1,0,0,380,2,67,70) (3,0,1,0,1,296,3,57,60) (3,0,1,0,1,380,3,57,60)
(3,0,1,10,0,296,2,61,66) (3,0,1,10,0,380,2,61,66) (3,0,1,10,1,296,0,58,62) (3,0,1,10,1,380,0,58,62)
(3,0,1,21,0,296,0,64,67) (3,0,1,21,0,380,0,64,67) (3,0,1,21,1,296,2,57,59) (3,0,1,21,1,380,2,57,59)
(3,0,1,30,0,296,4,65,70) (3,0,1,30,0,380,4,65,70) (3,0,1,30,1,296,1,57,59) (3,0,1,30,1,380,1,57,59)
(3,0,1,41,0,296,1,65,70) (3,0,1,41,0,380,1,65,70) (3,0,1,41,1,296,4,57,60) (3,0,1,41,1,380,4,57,60)
(3,0,2,0,0,296,2,62,64) (3,0,2,0,0,380,2,62,64) (3,0,2,0,1,296,0,58,61) (3,0,2,0,1,380,0,58,61)
(3,0,2,10,0,296,2,62,63) (3,0,2,10,0,380,2,62,63) (3,0,2,10,1,296,2,56,63) (3,0,2,10,1,380,2,56,63)
(3,0,2,21,0,296,0,64,65) (3,0,2,21,0,380,0,64,65) (3,0,2,21,1,296,5,57,60) (3,0,2,21,1,380,5,57,60)
(3,0,2,30,0,296,4,59,64) (3,0,2,30,0,380,4,59,64) (3,0,2,30,1,296,3,56,60) (3,0,2,30,1,380,3,56,60)
(3,0,2,41,0,296,8,62,70) (3,0,2,41,0,380,8,62,70) (3,0,2,41,1,296,0,58,62) (3,0,2,41,1,380,0,58,62)
(3,0,3,0,0,296,1,62,65) (3,0,3,0,0,380,1,62,65) (3,0,3,0,1,296,2,55,59) (3,0,3,0,1,380,2,55,59)
(3,0,3,10,0,296,1,67,71) (3,0,3,10,0,380,1,67,71) (3,0,3,10,1,296,2,57,59) (3,0,3,10,1,380,2,57,59)
(3,0,3,21,0,296,1,61,65) (3,0,3,21,0,380,1,61,65) (3,0,3,21,1,296,2,54,60) (3,0,3,21,1,380,2,54,60)
(3,0,3,30,0,296,2,65,69) (3,0,3,30,0,380,2,65,69) (3,0,3,30,1,296,0,58,61) (3,0,3,30,1,380,0,58,61)
(3,0,3,41,0,296,4,63,68) (3,0,3,41,0,380,4,63,68) (3,0,3,41,1,296,3,56,59) (3,0,3,41,1,380,3,56,59)
(3,0,4,0,0,296,3,66,68) (3,0,4,0,0,380,3,66,68) (3,0,4,0,1,296,2,58,59) (3,0,4,0,1,380,2,58,59)
(3,0,4,10,0,296,0,66,67) (3,0,4,10,0,380,0,66,67) (3,0,4,10,1,296,2,57,61) (3,0,4,10,1,380,2,57,61)
(3,0,4,21,0,296,3,65,67) (3,0,4,21,0,380,3,65,67) (3,0,4,21,1,296,1,57,59) (3,0,4,21,1,380,1,57,59)
(3,0,4,30,0,296,3,62,67) (3,0,4,30,0,380,3,62,67) (3,0,4,30,1,296,6,54,61) (3,0,4,30,1,380,6,54,61)
(3,0,4,41,0,296,4,61,67) (3,0,4,41,0,380,4,61,67) (3,0,4,41,1,296,1,57,59) (3,0,4,41,1,380,1,57,59)
(3,0,5,0,0,296,4,64,72) (3,0,5,0,0,380,4,64,72) (3,0,5,0,1,296,1,58,61) (3,0,5,0,1,380,1,58,61)
(3,0,5,10,0,296,2,64,67) (3,0,5,10,0,380,2,64,67) (3,0,5,10,1,296,3,56,60) (3,0,5,10,1,380,3,56,60)
(3,0,5,21,0,296,1,66,69) (3,0,5,21,0,380,1,66,69) (3,0,5,21,1,296,1,58,59) (3,0,5,21,1,380,1,58,59)
(3,0,5,30,0,296,0,64,65) (3,0,5,30,0,380,0,64,65) (3,0,5,30,1,296,1,56,60) (3,0,5,30,1,380,1,56,60)
(3,0,5,41,0,296,5,61,68) (3,0,5,41,0,380,5,61,68) (3,0,5,41,1,296,0,58,58) (3,0,5,41,1,380,0,58,58)
(3,0,6,0,0,296,3,65,69) (3,0,6,0,0,380,3,65,69) (3,0,6,0,1,296,0,58,59) (3,0,6,0,1,380,0,58,59)
(3,0,6,10,0,296,4,63,67) (3,0,6,10,0,380,4,63,67) (3,0,6,10,1,296,3,56,62) (3,0,6,10,1,380,3,56,62)
(3,0,6,21,0,296,1,64,68) (3,0,6,21,0,380,1,64,68) (3,0,6,21,1,296,1,57,59) (3,0,6,21,1,380,1,57,59)
(3,0,6,30,0,296,4,65,70) (3,0,6,30,0,380,4,65,70) (3,0,6,30,1,296,0,58,59) (3,0,6,30,1,380,0,58,59)
(3,0,6,41,0,296,2,63,66) (3,0,6,41,0,380,2,63,66) (3,0,6,41,1,296,1,57,60) (3,0,6,41,1,380,1,57,60)
(3,0,7,0,0,296,3,66,70) (3,0,7,0,0,380,3,66,70) (3,0,7,0,1,296,1,58,61) (3,0,7,0,1,380,1,58,61)
(3,0,7,10,0,296,6,63,70) (3,0,7,10,0,380,6,63,70) (3,0,7,10,1,296,1,57,61) (3,0,7,10,1,380,1,57,61)
(3,0,7,21,0,296,2,68,70) (3,0,7,21,0,380,2,68,70) (3,0,7,21,1,296,1,57,61) (3,0,7,21,1,380,1,57,61)
(3,0,7,30,0,296,0,66,69) (3,0,7,30,0,380,0,66,69) (3,0,7,30,1,296,0,58,61) (3,0,7,30,1,380,0,58,61)
(3,0,7,41,0,296,3,67,70) (3,0,7,41,0,380,3,67,70) (3,0,7,41,1,296,1,57,60) (3,0,7,41,1,380,1,57,60)
(3,0,8,0,0,296,6,65,69) (3,0,8,0,0,380,6,65,69) (3,0,8,0,1,296,1,58,58) (3,0,8,0,1,380,1,58,58)
(3,0,8,10,0,296,1,60,62) (3,0,8,10,0,380,1,60,62) (3,0,8,10,1,296,2,56,60) (3,0,8,10,1,380,2,56,60)
(3,0,8,21,0,296,3,62,67) (3,0,8,21,0,380,3,62,67) (3,0,8,21,1,296,2,58,59) (3,0,8,21,1,380,2,58,59)
(3,0,8,30,0,296,2,61,64) (3,0,8,30,0,380,2,61,64) (3,0,8,30,1,296,1,58,59) (3,0,8,30,1,380,1,58,59)
(3,0,8,41,0,296,2,61,66) (3,0,8,41,0,380,2,61,66) (3,0,8,41,1,296,2,57,61) (3,0,8,41,1,380,2,57,61)
(3,0,9,0,0,296,1,62,63) (3,0,9,0,0,380,1,62,63) (3,0,9,0,1,296,2,58,59) (3,0,9,0,1,380,2,58,59)
(3,0,9,10,0,296,1,63,66) (3,0,9,10,0,380,1,63,66) (3,0,9,10,1,296,1,57,59) (3,0,9,10,1,380,1,57,59)
(3,0,9,21,0,296,6,60,67) (3,0,9,21,0,380,6,60,67) (3,0,9,21,1,296,2,58,59) (3,0,9,21,1,380,2,58,59)
(3,0,9,30,0,296,3,60,65) (3,0,9,30,0,380,3,60,65) (3,0,9,30,1,296,0,58,60) (3,0,9,30,1,380,0,58,60)
(3,0,9,41,0,296,4,64,68) (3,0,9,41,0,380,4,64,68) (3,0,9,41,1,296,1,57,59) (3,0,9,41,1,380,1,57,59)
(3,1,0,0,0,296,1,37,78) (3,1,0,0,0,380,1,37,78) (3,1,0,0,1,296,1,29,60) (3,1,0,0,1,380,1,29,60)
(3,1,0,10,0,296,2,37,75) (3,1,0,10,0,380,2,37,75) (3,1,0,10,1,296,1,29,61) (3,1,0,10,1,380,1,29,61)
(3,1,0,21,0,296,2,37,77) (3,1,0,21,0,380,2,37,77) (3,1,0,21,1,296,1,29,59) (3,1,0,21,1,380,1,29,59)
(3,1,0,30,0,296,1,36,74) (3,1,0,30,0,380,1,36,74) (3,1,0,30,1,296,1,29,60) (3,1,0,30,1,380,1,29,60)
(3,1,0,41,0,296,2,36,74) (3,1,0,41,0,380,2,36,74) (3,1,0,41,1,296,1,29,61) (3,1,0,41,1,380,1,29,61)
(3,1,1,0,0,296,1,36,75) (3,1,1,0,0,380,1,36,75) (3,1,1,0,1,296,1,29,61) (3,1,1,0,1,380,1,29,61)
(3,1,1,10,0,296,1,37,76) (3,1,1,10,0,380,1,37,76) (3,1,1,10,1,296,2,29,60) (3,1,1,10,1,380,2,29,60)
(3,1,1,21,0,296,4,37,75) (3,1,1,21,0,380,4,37,75) (3,1,1,21,1,296,1,29,61) (3,1,1,21,1,380,1,29,61)
(3,1,1,30,0,296,1,38,79) (3,1,1,30,0,380,1,38,79) (3,1,1,30,1,296,1,29,59) (3,1,1,30,1,380,1,29,59)
(3,1,1,41,0,296,3,37,76) (3,1,1,41,0,380,3,37,76) (3,1,1,41,1,296,1,29,60) (3,1,1,41,1,380,1,29,60)
(3,1,2,0,0,296,1,37,77) (3,1,2,0,0,380,1,37,77) (3,1,2,0,1,296,1,30,62) (3,1,2,0,1,380,1,30,62)
(3,1,2,10,0,296,1,36,73) (3,1,2,10,0,380,1,36,73) (3,1,2,10,1,296,2,30,62) (3,1,2,10,1,380,2,30,62)
(3,1,2,21,0,296,2,36,73) (3,1,2,21,0,380,2,36,73) (3,1,2,21,1,296,1,29,62) (3,1,2,21,1,380,1,29,62)
(3,1,2,30,0,296,3,36,75) (3,1,2,30,0,380,3,36,75) (3,1,2,30,1,296,2,30,64) (3,1,2,30,1,380,2,30,64)
(3,1,2,41,0,296,1,36,74) (3,1,2,41,0,380,1,36,74) (3,1,2,41,1,296,1,29,60) (3,1,2,41,1,380,1,29,60)
(3,1,3,0,0,296,1,37,76) (3,1,3,0,0,380,1,37,76) (3,1,3,0,1,296,2,29,61) (3,1,3,0,1,380,2,29,61)
(3,1,3,10,0,296,2,36,77) (3,1,3,10,0,380,2,36,77) (3,1,3,10,1,296,1,29,59) (3,1,3,10,1,380,1,29,59)
(3,1,3,21,0,296,1,37,77) (3,1,3,21,0,380,1,37,77) (3,1,3,21,1,296,3,29,60) (3,1,3,21,1,380,3,29,60)
(3,1,3,30,0,296,2,38,77) (3,1,3,30,0,380,2,38,77) (3,1,3,30,1,296,2,29,60) (3,1,3,30,1,380,2,29,60)
(3,1,3,41,0,296,2,38,79) (3,1,3,41,0,380,2,38,79) (3,1,3,41,1,296,2,29,60) (3,1,3,41,1,380,2,29,60)
(3,1,4,0,0,296,1,37,76) (3,1,4,0,0,380,1,37,76) (3,1,4,0,1,296,1,29,61) (3,1,4,0,1,380,1,29,61)
(3,1,4,10,0,296,2,35,72) (3,1,4,10,0,380,2,35,72) (3,1,4,10,1,296,1,29,60) (3,1,4,10,1,380,1,29,60)
(3,1,4,21,0,296,2,37,76) (3,1,4,21,0,380,2,37,76) (3,1,4,21,1,296,3,30,63) (3,1,4,21,1,380,3,30,63)
(3,1,4,30,0,296,1,37,78) (3,1,4,30,0,380,1,37,78) (3,1,4,30,1,296,1,29,59) (3,1,4,30,1,380,1,29,59)
(3,1,4,41,0,296,2,37,75) (3,1,4,41,0,380,2,37,75) (3,1,4,41,1,296,2,29,58) (3,1,4,41,1,380,2,29,58)
(3,1,5,0,0,296,3,37,76) (3,1,5,0,0,380,3,37,76) (3,1,5,0,1,296,2,29,60) (3,1,5,0,1,380,2,29,60)
(3,1,5,10,0,296,2,36,74) (3,1,5,10,0,380,2,36,74) (3,1,5,10,1,296,1,28,60) (3,1,5,10,1,380,1,28,60)
(3,1,5,21,0,296,3,38,78) (3,1,5,21,0,380,3,38,78) (3,1,5,21,1,296,1,29,60) (3,1,5,21,1,380,1,29,60)
(3,1,5,30,0,296,1,37,77) (3,1,5,30,0,380,1,37,77) (3,1,5,30,1,296,1,29,60) (3,1,5,30,1,380,1,29,60)
(3,1,5,41,0,296,1,38,78) (3,1,5,41,0,380,1,38,78) (3,1,5,41,1,296,1,29,59) (3,1,5,41,1,380,1,29,59)
(3,1,6,0,0,296,1,38,77) (3,1,6,0,0,380,1,38,77) (3,1,6,0,1,296,1,29,61) (3,1,6,0,1,380,1,29,61)
(3,1,6,10,0,296,2,35,73) (3,1,6,10,0,380,2,35,73) (3,1,6,10,1,296,1,29,59) (3,1,6,10,1,380,1,29,59)
(3,1,6,21,0,296,1,37,76) (3,1,6,21,0,380,1,37,76) (3,1,6,21,1,296,1,28,59) (3,1,6,21,1,380,1,28,59)
(3,1,6,30,0,296,1,37,76) (3,1,6,30,0,380,1,37,76) (3,1,6,30,1,296,1,29,59) (3,1,6,30,1,380,1,29,59)
(3,1,6,41,0,296,1,36,76) (3,1,6,41,0,380,1,36,76) (3,1,6,41,1,296,1,29,59) (3,1,6,41,1,380,1,29,59)
(3,1,7,0,0,296,1,37,75) (3,1,7,0,0,380,1,37,75) (3,1,7,0,1,296,2,30,62) (3,1,7,0,1,380,2,30,62)
(3,1,7,10,0,296,1,38,78) (3,1,7,10,0,380,1,38,78) (3,1,7,10,1,296,2,30,61) (3,1,7,10,1,380,2,30,61)
(3,1,7,21,0,296,1,38,78) (3,1,7,21,0,380,1,38,78) (3,1,7,21,1,296,2,29,61) (3,1,7,21,1,380,2,29,61)
(3,1,7,30,0,296,1,41,83) (3,1,7,30,0,380,1,41,83) (3,1,7,30,1,296,1,30,61) (3,1,7,30,1,380,1,30,61)
(3,1,7,41,0,296,1,41,83) (3,1,7,41,0,380,1,41,83) (3,1,7,41,1,296,2,30,61) (3,1,7,41,1,380,2,30,61)
(3,1,8,0,0,296,2,37,77) (3,1,8,0,0,380,2,37,77) (3,1,8,0,1,296,1,29,60) (3,1,8,0,1,380,1,29,60)
(3,1,8,10,0,296,1,37,76) (3,1,8,10,0,380,1,37,76) (3,1,8,10,1,296,2,29,59) (3,1,8,10,1,380,2,29,59)
(3,1,8,21,0,296,1,38,78) (3,1,8,21,0,380,1,38,78) (3,1,8,21,1,296,2,29,60) (3,1,8,21,1,380,2,29,60)
(3,1,8,30,0,296,2,38,78) (3,1,8,30,0,380,2,38,78) (3,1,8,30,1,296,1,29,60) (3,1,8,30,1,380,1,29,60)
(3,1,8,41,0,296,5,37,76) (3,1,8,41,0,380,5,37,76) (3,1,8,41,1,296,3,29,60) (3,1,8,41,1,380,3,29,60)
(3,1,9,0,0,296,2,35,71) (3,1,9,0,0,380,2,35,71) (3,1,9,0,1,296,1,29,59) (3,1,9,0,1,380,1,29,59)
(3,1,9,10,0,296,2,37,77) (3,1,9,10,0,380,2,37,77) (3,1,9,10,1,296,1,29,60) (3,1,9,10,1,380,1,29,60)
(3,1,9,21,0,296,2,36,75) (3,1,9,21,0,380,2,36,75) (3,1,9,21,1,296,1,30,65) (3,1,9,21,1,380,1,30,65)
(3,1,9,30,0,296,1,37,76) (3,1,9,30,0,380,1,37,76) (3,1,9,30,1,296,1,29,59) (3,1,9,30,1,380,1,29,59)
(3,1,9,41,0,296,2,37,76) (3,1,9,41,0,380,2,37,76) (3,1,9,41,1,296,3,29,59) (3,1,9,41,1,380,3,29,59)
(2,0,0,0,0,296,1,58,62) (2,0,0,0,0,380,1,58,62) (2,0,0,0,1,296,2,58,60) (2,0,0,0,1,380,2,58,60)
(2,0,0,10,0,296,4,58,61) (2,0,0,10,0,380,4,58,61) (2,0,0,10,1,296,7,54,60) (2,0,0,10,1,380,7,54,60)
(2,0,0,21,0,296,1,59,63) (2,0,0,21,0,380,1,59,63) (2,0,0,21,1,296,2,57,60) (2,0,0,21,1,380,2,57,60)
(2,0,0,30,0,296,2,56,61) (2,0,0,30,0,380,2,56,61) (2,0,0,30,1,296,2,57,59) (2,0,0,30,1,380,2,57,59)
(2,0,0,41,0,296,0,58,63) (2,0,0,41,0,380,0,58,63) (2,0,0,41,1,296,3,57,61) (2,0,0,41,1,380,3,57,61)
(2,0,1,0,0,296,2,58,61) (2,0,1,0,0,380,2,58,61) (2,0,1,0,1,296,1,56,59) (2,0,1,0,1,380,1,56,59)
(2,0,1,10,0,296,2,57,63) (2,0,1,10,0,380,2,57,63) (2,0,1,10,1,296,4,55,58) (2,0,1,10,1,380,4,55,58)
(2,0,1,21,0,296,0,60,63) (2,0,1,21,0,380,0,60,63) (2,0,1,21,1,296,12,50,59) (2,0,1,21,1,380,12,50,59)
(2,0,1,30,0,296,2,58,62) (2,0,1,30,0,380,2,58,62) (2,0,1,30,1,296,6,52,59) (2,0,1,30,1,380,6,52,59)
(2,0,1,41,0,296,0,58,61) (2,0,1,41,0,380,0,58,61) (2,0,1,41,1,296,2,58,59) (2,0,1,41,1,380,2,58,59)
(2,0,2,0,0,296,5,56,60) (2,0,2,0,0,380,5,56,60) (2,0,2,0,1,296,8,54,61) (2,0,2,0,1,380,8,54,61)
(2,0,2,10,0,296,2,57,60) (2,0,2,10,0,380,2,57,60) (2,0,2,10,1,296,1,57,60) (2,0,2,10,1,380,1,57,60)
(2,0,2,21,0,296,3,59,63) (2,0,2,21,0,380,3,59,63) (2,0,2,21,1,296,0,58,61) (2,0,2,21,1,380,0,58,61)
(2,0,2,30,0,296,3,56,61) (2,0,2,30,0,380,3,56,61) (2,0,2,30,1,296,6,53,60) (2,0,2,30,1,380,6,53,60)
(2,0,2,41,0,296,2,58,62) (2,0,2,41,0,380,2,58,62) (2,0,2,41,1,296,1,57,60) (2,0,2,41,1,380,1,57,60)
(2,0,3,0,0,296,1,58,62) (2,0,3,0,0,380,1,58,62) (2,0,3,0,1,296,5,54,59) (2,0,3,0,1,380,5,54,59)
(2,0,3,10,0,296,1,58,61) (2,0,3,10,0,380,1,58,61) (2,0,3,10,1,296,3,54,60) (2,0,3,10,1,380,3,54,60)
(2,0,3,21,0,296,0,62,63) (2,0,3,21,0,380,0,62,63) (2,0,3,21,1,296,4,56,61) (2,0,3,21,1,380,4,56,61)
(2,0,3,30,0,296,4,59,64) (2,0,3,30,0,380,4,59,64) (2,0,3,30,1,296,2,54,59) (2,0,3,30,1,380,2,54,59)
(2,0,3,41,0,296,6,58,63) (2,0,3,41,0,380,6,58,63) (2,0,3,41,1,296,4,53,60) (2,0,3,41,1,380,4,53,60)
(2,0,4,0,0,296,0,60,61) (2,0,4,0,0,380,0,60,61) (2,0,4,0,1,296,2,57,60) (2,0,4,0,1,380,2,57,60)
(2,0,4,10,0,296,1,57,61) (2,0,4,10,0,380,1,57,61) (2,0,4,10,1,296,3,53,59) (2,0,4,10,1,380,3,53,59)
(2,0,4,21,0,296,1,59,64) (2,0,4,21,0,380,1,59,64) (2,0,4,21,1,296,1,56,61) (2,0,4,21,1,380,1,56,61)
(2,0,4,30,0,296,1,58,60) (2,0,4,30,0,380,1,58,60) (2,0,4,30,1,296,2,57,58) (2,0,4,30,1,380,2,57,58)
(2,0,4,41,0,296,1,58,60) (2,0,4,41,0,380,1,58,60) (2,0,4,41,1,296,0,58,59) (2,0,4,41,1,380,0,58,59)
(2,0,5,0,0,296,2,58,63) (2,0,5,0,0,380,2,58,63) (2,0,5,0,1,296,1,58,58) (2,0,5,0,1,380,1,58,58)
(2,0,5,10,0,296,1,58,61) (2,0,5,10,0,380,1,58,61) (2,0,5,10,1,296,4,53,58) (2,0,5,10,1,380,4,53,58)
(2,0,5,21,0,296,6,57,62) (2,0,5,21,0,380,6,57,62) (2,0,5,21,1,296,1,57,61) (2,0,5,21,1,380,1,57,61)
(2,0,5,30,0,296,0,60,65) (2,0,5,30,0,380,0,60,65) (2,0,5,30,1,296,1,58,61) (2,0,5,30,1,380,1,58,61)
(2,0,5,41,0,296,1,57,61) (2,0,5,41,0,380,1,57,61) (2,0,5,41,1,296,1,58,59) (2,0,5,41,1,380,1,58,59)
(2,0,6,0,0,296,1,60,63) (2,0,6,0,0,380,1,60,63) (2,0,6,0,1,296,5,56,58) (2,0,6,0,1,380,5,56,58)
(2,0,6,10,0,296,2,57,60) (2,0,6,10,0,380,2,57,60) (2,0,6,10,1,296,1,57,60) (2,0,6,10,1,380,1,57,60)
(2,0,6,21,0,296,4,59,62) (2,0,6,21,0,380,4,59,62) (2,0,6,21,1,296,2,57,61) (2,0,6,21,1,380,2,57,61)
(2,0,6,30,0,296,2,58,65) (2,0,6,30,0,380,2,58,65) (2,0,6,30,1,296,2,57,60) (2,0,6,30,1,380,2,57,60)
(2,0,6,41,0,296,0,60,62) (2,0,6,41,0,380,0,60,62) (2,0,6,41,1,296,3,56,59) (2,0,6,41,1,380,3,56,59)
(2,0,7,0,0,296,0,58,61) (2,0,7,0,0,380,0,58,61) (2,0,7,0,1,296,7,52,60) (2,0,7,0,1,380,7,52,60)
(2,0,7,10,0,296,2,58,60) (2,0,7,10,0,380,2,58,60) (2,0,7,10,1,296,7,52,60) (2,0,7,10,1,380,7,52,60)
(2,0,7,21,0,296,0,58,60) (2,0,7,21,0,380,0,58,60) (2,0,7,21,1,296,10,52,61) (2,0,7,21,1,380,10,52,61)
(2,0,7,30,0,296,0,58,60) (2,0,7,30,0,380,0,58,60) (2,0,7,30,1,296,3,56,60) (2,0,7,30,1,380,3,56,60)
(2,0,7,41,0,296,0,58,60) (2,0,7,41,0,380,0,58,60) (2,0,7,41,1,296,8,52,61) (2,0,7,41,1,380,8,52,61)
(2,0,8,0,0,296,2,56,60) (2,0,8,0,0,380,2,56,60) (2,0,8,0,1,296,0,58,59) (2,0,8,0,1,380,0,58,59)
(2,0,8,10,0,296,1,57,61) (2,0,8,10,0,380,1,57,61) (2,0,8,10,1,296,5,56,59) (2,0,8,10,1,380,5,56,59)
(2,0,8,21,0,296,4,59,61) (2,0,8,21,0,380,4,59,61) (2,0,8,21,1,296,7,54,59) (2,0,8,21,1,380,7,54,59)
(2,0,8,30,0,296,1,60,61) (2,0,8,30,0,380,1,60,61) (2,0,8,30,1,296,6,55,59) (2,0,8,30,1,380,6,55,59)
(2,0,8,41,0,296,1,59,62) (2,0,8,41,0,380,1,59,62) (2,0,8,41,1,296,4,54,59) (2,0,8,41,1,380,4,54,59)
(2,0,9,0,0,296,5,57,63) (2,0,9,0,0,380,5,57,63) (2,0,9,0,1,296,6,54,60) (2,0,9,0,1,380,6,54,60)
(2,0,9,10,0,296,2,56,60) (2,0,9,10,0,380,2,56,60) (2,0,9,10,1,296,8,54,61) (2,0,9,10,1,380,8,54,61)
(2,0,9,21,0,296,1,60,63) (2,0,9,21,0,380,1,60,63) (2,0,9,21,1,296,4,56,60) (2,0,9,21,1,380,4,56,60)
(2,0,9,30,0,296,3,57,62) (2,0,9,30,0,380,3,57,62) (2,0,9,30,1,296,3,57,59) (2,0,9,30,1,380,3,57,59)
(2,0,9,41,0,296,3,56,61) (2,0,9,41,0,380,3,56,61) (2,0,9,41,1,296,10,50,61) (2,0,9,41,1,380,10,50,61)
(2,1,0,0,0,296,2,33,68) (2,1,0,0,0,380,2,33,68) (2,1,0,0,1,296,1,29,60) (2,1,0,0,1,380,1,29,60)
(2,1,0,10,0,296,1,31,63) (2,1,0,10,0,380,1,31,63) (2,1,0,10,1,296,2,28,60) (2,1,0,10,1,380,2,28,60)
(2,1,0,21,0,296,1,32,67) (2,1,0,21,0,380,1,32,67) (2,1,0,21,1,296,1,29,60) (2,1,0,21,1,380,1,29,60)
(2,1,0,30,0,296,1,31,64) (2,1,0,30,0,380,1,31,64) (2,1,0,30,1,296,1,29,59) (2,1,0,30,1,380,1,29,59)
(2,1,0,41,0,296,2,31,65) (2,1,0,41,0,380,2,31,65) (2,1,0,41,1,296,2,29,59) (2,1,0,41,1,380,2,29,59)
(2,1,1,0,0,296,0,31,64) (2,1,1,0,0,380,0,31,64) (2,1,1,0,1,296,3,29,60) (2,1,1,0,1,380,3,29,60)
(2,1,1,10,0,296,0,32,67) (2,1,1,10,0,380,0,32,67) (2,1,1,10,1,296,1,29,61) (2,1,1,10,1,380,1,29,61)
(2,1,1,21,0,296,1,31,66) (2,1,1,21,0,380,1,31,66) (2,1,1,21,1,296,2,29,60) (2,1,1,21,1,380,2,29,60)
(2,1,1,30,0,296,2,30,66) (2,1,1,30,0,380,2,30,66) (2,1,1,30,1,296,1,29,61) (2,1,1,30,1,380,1,29,61)
(2,1,1,41,0,296,1,33,68) (2,1,1,41,0,380,1,33,68) (2,1,1,41,1,296,1,29,60) (2,1,1,41,1,380,1,29,60)
(2,1,2,0,0,296,1,33,68) (2,1,2,0,0,380,1,33,68) (2,1,2,0,1,296,2,29,62) (2,1,2,0,1,380,2,29,62)
(2,1,2,10,0,296,1,32,66) (2,1,2,10,0,380,1,32,66) (2,1,2,10,1,296,2,29,63) (2,1,2,10,1,380,2,29,63)
(2,1,2,21,0,296,1,33,71) (2,1,2,21,0,380,1,33,71) (2,1,2,21,1,296,0,29,61) (2,1,2,21,1,380,0,29,61)
(2,1,2,30,0,296,1,33,68) (2,1,2,30,0,380,1,33,68) (2,1,2,30,1,296,1,29,62) (2,1,2,30,1,380,1,29,62)
(2,1,2,41,0,296,2,31,66) (2,1,2,41,0,380,2,31,66) (2,1,2,41,1,296,1,29,60) (2,1,2,41,1,380,1,29,60)
(2,1,3,0,0,296,2,33,68) (2,1,3,0,0,380,2,33,68) (2,1,3,0,1,296,3,28,59) (2,1,3,0,1,380,3,28,59)
(2,1,3,10,0,296,1,30,63) (2,1,3,10,0,380,1,30,63) (2,1,3,10,1,296,2,29,59) (2,1,3,10,1,380,2,29,59)
(2,1,3,21,0,296,1,32,68) (2,1,3,21,0,380,1,32,68) (2,1,3,21,1,296,1,29,59) (2,1,3,21,1,380,1,29,59)
(2,1,3,30,0,296,1,32,68) (2,1,3,30,0,380,1,32,68) (2,1,3,30,1,296,2,29,61) (2,1,3,30,1,380,2,29,61)
(2,1,3,41,0,296,1,31,65) (2,1,3,41,0,380,1,31,65) (2,1,3,41,1,296,2,29,59) (2,1,3,41,1,380,2,29,59)
(2,1,4,0,0,296,2,34,71) (2,1,4,0,0,380,2,34,71) (2,1,4,0,1,296,2,29,59) (2,1,4,0,1,380,2,29,59)
(2,1,4,10,0,296,2,31,64) (2,1,4,10,0,380,2,31,64) (2,1,4,10,1,296,2,29,60) (2,1,4,10,1,380,2,29,60)
(2,1,4,21,0,296,1,31,64) (2,1,4,21,0,380,1,31,64) (2,1,4,21,1,296,1,29,59) (2,1,4,21,1,380,1,29,59)
(2,1,4,30,0,296,3,32,66) (2,1,4,30,0,380,3,32,66) (2,1,4,30,1,296,2,28,61) (2,1,4,30,1,380,2,28,61)
(2,1,4,41,0,296,0,33,69) (2,1,4,41,0,380,0,33,69) (2,1,4,41,1,296,3,29,60) (2,1,4,41,1,380,3,29,60)
(2,1,5,0,0,296,1,32,66) (2,1,5,0,0,380,1,32,66) (2,1,5,0,1,296,1,29,61) (2,1,5,0,1,380,1,29,61)
(2,1,5,10,0,296,1,31,63) (2,1,5,10,0,380,1,31,63) (2,1,5,10,1,296,2,29,60) (2,1,5,10,1,380,2,29,60)
(2,1,5,21,0,296,1,31,64) (2,1,5,21,0,380,1,31,64) (2,1,5,21,1,296,2,29,59) (2,1,5,21,1,380,2,29,59)
(2,1,5,30,0,296,1,31,65) (2,1,5,30,0,380,1,31,65) (2,1,5,30,1,296,2,28,60) (2,1,5,30,1,380,2,28,60)
(2,1,5,41,0,296,1,31,65) (2,1,5,41,0,380,1,31,65) (2,1,5,41,1,296,1,29,58) (2,1,5,41,1,380,1,29,58)
(2,1,6,0,0,296,1,32,68) (2,1,6,0,0,380,1,32,68) (2,1,6,0,1,296,1,29,59) (2,1,6,0,1,380,1,29,59)
(2,1,6,10,0,296,3,32,67) (2,1,6,10,0,380,3,32,67) (2,1,6,10,1,296,2,29,60) (2,1,6,10,1,380,2,29,60)
(2,1,6,21,0,296,2,33,68) (2,1,6,21,0,380,2,33,68) (2,1,6,21,1,296,1,29,59) (2,1,6,21,1,380,1,29,59)
(2,1,6,30,0,296,2,32,65) (2,1,6,30,0,380,2,32,65) (2,1,6,30,1,296,1,29,59) (2,1,6,30,1,380,1,29,59)
(2,1,6,41,0,296,5,32,65) (2,1,6,41,0,380,5,32,65) (2,1,6,41,1,296,1,29,60) (2,1,6,41,1,380,1,29,60)
(2,1,7,0,0,296,3,33,69) (2,1,7,0,0,380,3,33,69) (2,1,7,0,1,296,0,29,61) (2,1,7,0,1,380,0,29,61)
(2,1,7,10,0,296,3,33,67) (2,1,7,10,0,380,3,33,67) (2,1,7,10,1,296,0,29,60) (2,1,7,10,1,380,0,29,60)
(2,1,7,21,0,296,3,33,68) (2,1,7,21,0,380,3,33,68) (2,1,7,21,1,296,2,29,61) (2,1,7,21,1,380,2,29,61)
(2,1,7,30,0,296,1,34,70) (2,1,7,30,0,380,1,34,70) (2,1,7,30,1,296,0,29,60) (2,1,7,30,1,380,0,29,60)
(2,1,7,41,0,296,1,34,70) (2,1,7,41,0,380,1,34,70) (2,1,7,41,1,296,1,29,60) (2,1,7,41,1,380,1,29,60)
(2,1,8,0,0,296,2,32,68) (2,1,8,0,0,380,2,32,68) (2,1,8,0,1,296,2,29,58) (2,1,8,0,1,380,2,29,58)
(2,1,8,10,0,296,1,31,64) (2,1,8,10,0,380,1,31,64) (2,1,8,10,1,296,1,29,60) (2,1,8,10,1,380,1,29,60)
(2,1,8,21,0,296,0,31,65) (2,1,8,21,0,380,0,31,65) (2,1,8,21,1,296,2,29,59) (2,1,8,21,1,380,2,29,59)
(2,1,8,30,0,296,3,33,68) (2,1,8,30,0,380,3,33,68) (2,1,8,30,1,296,1,29,59) (2,1,8,30,1,380,1,29,59)
(2,1,8,41,0,296,2,31,65) (2,1,8,41,0,380,2,31,65) (2,1,8,41,1,296,1,29,59) (2,1,8,41,1,380,1,29,59)
(2,1,9,0,0,296,3,32,67) (2,1,9,0,0,380,3,32,67) (2,1,9,0,1,296,2,29,59) (2,1,9,0,1,380,2,29,59)
(2,1,9,10,0,296,1,32,67) (2,1,9,10,0,380,1,32,67) (2,1,9,10,1,296,1,29,61) (2,1,9,10,1,380,1,29,61)
(2,1,9,21,0,296,1,31,66) (2,1,9,21,0,380,1,31,66) (2,1,9,21,1,296,1,29,59) (2,1,9,21,1,380,1,29,59)
(2,1,9,30,0,296,0,31,64) (2,1,9,30,0,380,0,31,64) (2,1,9,30,1,296,1,29,60) (2,1,9,30,1,380,1,29,60)
(2,1,9,41,0,296,1,31,65) (2,1,9,41,0,380,1,31,65) (2,1,9,41,1,296,1,29,59) (2,1,9,41,1,380,1,29,59)
(1,0,0,0,0,296,2,58,63) (1,0,0,0,0,380,2,58,63) (1,0,0,0,1,296,3,55,59) (1,0,0,0,1,380,3,55,59)
(1,0,0,10,0,296,0,58,60) (1,0,0,10,0,380,0,58,60) (1,0,0,10,1,296,1,56,59) (1,0,0,10,1,380,1,56,59)
(1,0,0,21,0,296,1,57,60) (1,0,0,21,0,380,1,57,60) (1,0,0,21,1,296,6,55,59) (1,0,0,21,1,380,6,55,59)
(1,0,0,30,0,296,4,55,62) (1,0,0,30,0,380,4,55,62) (1,0,0,30,1,296,1,56,59) (1,0,0,30,1,380,1,56,59)
(1,0,0,41,0,296,0,58,61) (1,0,0,41,0,380,0,58,61) (1,0,0,41,1,296,7,53,59) (1,0,0,41,1,380,7,53,59)
(1,0,1,0,0,296,1,58,61) (1,0,1,0,0,380,1,58,61) (1,0,1,0,1,296,9,55,58) (1,0,1,0,1,380,9,55,58)
(1,0,1,10,0,296,2,56,60) (1,0,1,10,0,380,2,56,60) (1,0,1,10,1,296,2,54,60) (1,0,1,10,1,380,2,54,60)
(1,0,1,21,0,296,3,56,60) (1,0,1,21,0,380,3,56,60) (1,0,1,21,1,296,7,54,59) (1,0,1,21,1,380,7,54,59)
(1,0,1,30,0,296,0,58,62) (1,0,1,30,0,380,0,58,62) (1,0,1,30,1,296,2,55,59) (1,0,1,30,1,380,2,55,59)
(1,0,1,41,0,296,5,55,60) (1,0,1,41,0,380,5,55,60) (1,0,1,41,1,296,2,56,59) (1,0,1,41,1,380,2,56,59)
(1,0,2,0,0,296,2,57,60) (1,0,2,0,0,380,2,57,60) (1,0,2,0,1,296,7,55,60) (1,0,2,0,1,380,7,55,60)
(1,0,2,10,0,296,6,57,60) (1,0,2,10,0,380,6,57,60) (1,0,2,10,1,296,2,54,60) (1,0,2,10,1,380,2,54,60)
(1,0,2,21,0,296,1,58,60) (1,0,2,21,0,380,1,58,60)5.6 /opt/GSM/c54x_exe/balayage_v2.tsv
74343 octets, 2801 lignes → 703 lignes (2 groupes compactés)
decalage unique phase marge rx_avant daram_len vraies mots_distincts crc_ok sb_tentees
-⟨1⟩ ⟨2⟩ 0.⟨3⟩ ⟨4⟩ ⟨5⟩ ⟨6⟩ 0 ⟨7⟩ ⟨8⟩ ⟨9⟩ ×2000
⟨⟩ = (5,0,0,0,0,296,1,1,75) (5,0,0,0,0,380,1,1,75) (5,0,0,0,1,296,0,0,60) (5,0,0,0,1,380,0,0,60)
(5,0,0,10,0,296,0,0,78) (5,0,0,10,0,380,0,0,78) (5,0,0,10,1,296,0,0,60) (5,0,0,10,1,380,0,0,60)
(5,0,0,21,0,296,0,0,74) (5,0,0,21,0,380,0,0,74) (5,0,0,21,1,296,0,0,64) (5,0,0,21,1,380,0,0,64)
(5,0,0,30,0,296,1,2,75) (5,0,0,30,0,380,1,2,75) (5,0,0,30,1,296,0,0,62) (5,0,0,30,1,380,0,0,62)
(5,0,0,41,0,296,1,1,73) (5,0,0,41,0,380,1,1,73) (5,0,0,41,1,296,1,1,61) (5,0,0,41,1,380,1,1,61)
(5,0,1,0,0,296,4,4,75) (5,0,1,0,0,380,4,4,75) (5,0,1,0,1,296,1,1,63) (5,0,1,0,1,380,1,1,63)
(5,0,1,10,0,296,1,1,76) (5,0,1,10,0,380,1,1,76) (5,0,1,10,1,296,0,0,66) (5,0,1,10,1,380,0,0,66)
(5,0,1,21,0,296,0,0,74) (5,0,1,21,0,380,0,0,74) (5,0,1,21,1,296,0,0,64) (5,0,1,21,1,380,0,0,64)
(5,0,1,30,0,296,2,2,74) (5,0,1,30,0,380,2,2,74) (5,0,1,30,1,296,3,3,66) (5,0,1,30,1,380,3,3,66)
(5,0,1,41,0,296,0,0,74) (5,0,1,41,0,380,0,0,74) (5,0,1,41,1,296,2,2,63) (5,0,1,41,1,380,2,2,63)
(5,0,2,0,0,296,1,4,73) (5,0,2,0,0,380,1,4,73) (5,0,2,0,1,296,5,5,62) (5,0,2,0,1,380,5,5,62)
(5,0,2,10,0,296,1,1,77) (5,0,2,10,0,380,1,1,77) (5,0,2,10,1,296,1,3,63) (5,0,2,10,1,380,1,3,63)
(5,0,2,21,0,296,1,1,80) (5,0,2,21,0,380,1,1,80) (5,0,2,21,1,296,2,4,59) (5,0,2,21,1,380,2,4,59)
(5,0,2,30,0,296,2,2,74) (5,0,2,30,0,380,2,2,74) (5,0,2,30,1,296,4,9,61) (5,0,2,30,1,380,4,9,61)
(5,0,2,41,0,296,2,2,74) (5,0,2,41,0,380,2,2,74) (5,0,2,41,1,296,3,3,62) (5,0,2,41,1,380,3,3,62)
(5,0,3,0,0,296,4,4,75) (5,0,3,0,0,380,4,4,75) (5,0,3,0,1,296,3,3,62) (5,0,3,0,1,380,3,3,62)
(5,0,3,10,0,296,3,5,72) (5,0,3,10,0,380,3,5,72) (5,0,3,10,1,296,2,2,62) (5,0,3,10,1,380,2,2,62)
(5,0,3,21,0,296,1,1,74) (5,0,3,21,0,380,1,1,74) (5,0,3,21,1,296,3,3,62) (5,0,3,21,1,380,3,3,62)
(5,0,3,30,0,296,2,2,75) (5,0,3,30,0,380,2,2,75) (5,0,3,30,1,296,2,2,63) (5,0,3,30,1,380,2,2,63)
(5,0,3,41,0,296,5,6,72) (5,0,3,41,0,380,5,6,72) (5,0,3,41,1,296,3,3,60) (5,0,3,41,1,380,3,3,60)
(5,0,4,0,0,296,1,1,77) (5,0,4,0,0,380,1,1,77) (5,0,4,0,1,296,1,2,64) (5,0,4,0,1,380,1,2,64)
(5,0,4,10,0,296,6,6,78) (5,0,4,10,0,380,6,6,78) (5,0,4,10,1,296,0,0,60) (5,0,4,10,1,380,0,0,60)
(5,0,4,21,0,296,3,6,76) (5,0,4,21,0,380,3,6,76) (5,0,4,21,1,296,2,2,66) (5,0,4,21,1,380,2,2,66)
(5,0,4,30,0,296,2,4,75) (5,0,4,30,0,380,2,4,75) (5,0,4,30,1,296,1,1,68) (5,0,4,30,1,380,1,1,68)
(5,0,4,41,0,296,1,1,73) (5,0,4,41,0,380,1,1,73) (5,0,4,41,1,296,2,2,62) (5,0,4,41,1,380,2,2,62)
(5,0,5,0,0,296,2,2,75) (5,0,5,0,0,380,2,2,75) (5,0,5,0,1,296,1,1,65) (5,0,5,0,1,380,1,1,65)
(5,0,5,10,0,296,1,1,75) (5,0,5,10,0,380,1,1,75) (5,0,5,10,1,296,1,1,66) (5,0,5,10,1,380,1,1,66)
(5,0,5,21,0,296,1,3,76) (5,0,5,21,0,380,1,3,76) (5,0,5,21,1,296,1,1,66) (5,0,5,21,1,380,1,1,66)
(5,0,5,30,0,296,2,2,77) (5,0,5,30,0,380,2,2,77) (5,0,5,30,1,296,2,2,65) (5,0,5,30,1,380,2,2,65)
(5,0,5,41,0,296,2,2,75) (5,0,5,41,0,380,2,2,75) (5,0,5,41,1,296,1,1,65) (5,0,5,41,1,380,1,1,65)
(5,0,6,0,0,296,4,4,76) (5,0,6,0,0,380,4,4,76) (5,0,6,0,1,296,1,1,62) (5,0,6,0,1,380,1,1,62)
(5,0,6,10,0,296,2,2,76) (5,0,6,10,0,380,2,2,76) (5,0,6,10,1,296,1,1,62) (5,0,6,10,1,380,1,1,62)
(5,0,6,21,0,296,2,2,76) (5,0,6,21,0,380,2,2,76) (5,0,6,21,1,296,1,1,60) (5,0,6,21,1,380,1,1,60)
(5,0,6,30,0,296,1,1,75) (5,0,6,30,0,380,1,1,75) (5,0,6,30,1,296,2,2,61) (5,0,6,30,1,380,2,2,61)
(5,0,6,41,0,296,1,1,76) (5,0,6,41,0,380,1,1,76) (5,0,6,41,1,296,1,1,60) (5,0,6,41,1,380,1,1,60)
(5,0,7,0,0,296,2,2,79) (5,0,7,0,0,380,2,2,79) (5,0,7,0,1,296,0,0,72) (5,0,7,0,1,380,0,0,72)
(5,0,7,10,0,296,2,3,76) (5,0,7,10,0,380,2,3,76) (5,0,7,10,1,296,1,3,68) (5,0,7,10,1,380,1,3,68)
(5,0,7,21,0,296,1,2,77) (5,0,7,21,0,380,1,2,77) (5,0,7,21,1,296,1,3,64) (5,0,7,21,1,380,1,3,64)
(5,0,7,30,0,296,1,1,79) (5,0,7,30,0,380,1,1,79) (5,0,7,30,1,296,0,0,70) (5,0,7,30,1,380,0,0,70)
(5,0,7,41,0,296,1,1,77) (5,0,7,41,0,380,1,1,77) (5,0,7,41,1,296,1,4,66) (5,0,7,41,1,380,1,4,66)
(5,0,8,0,0,296,5,5,72) (5,0,8,0,0,380,5,5,72) (5,0,8,0,1,296,0,0,70) (5,0,8,0,1,380,0,0,70)
(5,0,8,10,0,296,3,4,74) (5,0,8,10,0,380,3,4,74) (5,0,8,10,1,296,5,5,59) (5,0,8,10,1,380,5,5,59)
(5,0,8,21,0,296,1,1,78) (5,0,8,21,0,380,1,1,78) (5,0,8,21,1,296,2,2,65) (5,0,8,21,1,380,2,2,65)
(5,0,8,30,0,296,3,3,76) (5,0,8,30,0,380,3,3,76) (5,0,8,30,1,296,2,2,60) (5,0,8,30,1,380,2,2,60)
(5,0,8,41,0,296,1,1,76) (5,0,8,41,0,380,1,1,76) (5,0,8,41,1,296,1,2,68) (5,0,8,41,1,380,1,2,68)
(5,0,9,0,0,296,3,3,77) (5,0,9,0,0,380,3,3,77) (5,0,9,0,1,296,0,0,60) (5,0,9,0,1,380,0,0,60)
(5,0,9,10,0,296,5,6,74) (5,0,9,10,0,380,5,6,74) (5,0,9,10,1,296,0,0,60) (5,0,9,10,1,380,0,0,60)
(5,0,9,21,0,296,1,1,75) (5,0,9,21,0,380,1,1,75) (5,0,9,21,1,296,0,0,64) (5,0,9,21,1,380,0,0,64)
(5,0,9,30,0,296,3,3,77) (5,0,9,30,0,380,3,3,77) (5,0,9,30,1,296,0,0,64) (5,0,9,30,1,380,0,0,64)
(5,0,9,41,0,296,3,3,73) (5,0,9,41,0,380,3,3,73) (5,0,9,41,1,296,1,1,59) (5,0,9,41,1,380,1,1,59)
(5,1,0,0,0,296,1,1,41) (5,1,0,0,0,380,1,1,41) (5,1,0,0,1,296,1,1,34) (5,1,0,0,1,380,1,1,34)
(5,1,0,10,0,296,1,1,42) (5,1,0,10,0,380,1,1,42) (5,1,0,10,1,296,2,2,36) (5,1,0,10,1,380,2,2,36)
(5,1,0,21,0,296,1,1,42) (5,1,0,21,0,380,1,1,42) (5,1,0,21,1,296,2,3,33) (5,1,0,21,1,380,2,3,33)
(5,1,0,30,0,296,1,1,42) (5,1,0,30,0,380,1,1,42) (5,1,0,30,1,296,1,1,33) (5,1,0,30,1,380,1,1,33)
(5,1,0,41,0,296,1,1,42) (5,1,0,41,0,380,1,1,42) (5,1,0,41,1,296,2,2,33) (5,1,0,41,1,380,2,2,33)
(5,1,1,0,0,296,2,2,43) (5,1,1,0,0,380,2,2,43) (5,1,1,0,1,296,2,2,35) (5,1,1,0,1,380,2,2,35)
(5,1,1,10,0,296,1,1,41) (5,1,1,10,0,380,1,1,41) (5,1,1,10,1,296,1,1,36) (5,1,1,10,1,380,1,1,36)
(5,1,1,21,0,296,1,1,42) (5,1,1,21,0,380,1,1,42) (5,1,1,21,1,296,1,1,36) (5,1,1,21,1,380,1,1,36)
(5,1,1,30,0,296,2,2,42) (5,1,1,30,0,380,2,2,42) (5,1,1,30,1,296,2,3,36) (5,1,1,30,1,380,2,3,36)
(5,1,1,41,0,296,3,3,42) (5,1,1,41,0,380,3,3,42) (5,1,1,41,1,296,1,1,36) (5,1,1,41,1,380,1,1,36)
(5,1,2,0,0,296,2,2,41) (5,1,2,0,0,380,2,2,41) (5,1,2,0,1,296,1,1,36) (5,1,2,0,1,380,1,1,36)
(5,1,2,10,0,296,1,1,42) (5,1,2,10,0,380,1,1,42) (5,1,2,10,1,296,2,3,37) (5,1,2,10,1,380,2,3,37)
(5,1,2,21,0,296,2,2,43) (5,1,2,21,0,380,2,2,43) (5,1,2,21,1,296,3,3,37) (5,1,2,21,1,380,3,3,37)
(5,1,2,30,0,296,2,2,43) (5,1,2,30,0,380,2,2,43) (5,1,2,30,1,296,4,4,35) (5,1,2,30,1,380,4,4,35)
(5,1,2,41,0,296,3,3,42) (5,1,2,41,0,380,3,3,42) (5,1,2,41,1,296,2,2,35) (5,1,2,41,1,380,2,2,35)
(5,1,3,0,0,296,2,2,41) (5,1,3,0,0,380,2,2,41) (5,1,3,0,1,296,2,2,37) (5,1,3,0,1,380,2,2,37)
(5,1,3,10,0,296,4,4,41) (5,1,3,10,0,380,4,4,41) (5,1,3,10,1,296,3,3,38) (5,1,3,10,1,380,3,3,38)
(5,1,3,21,0,296,2,2,42) (5,1,3,21,0,380,2,2,42) (5,1,3,21,1,296,1,1,35) (5,1,3,21,1,380,1,1,35)
(5,1,3,30,0,296,2,2,42) (5,1,3,30,0,380,2,2,42) (5,1,3,30,1,296,1,1,36) (5,1,3,30,1,380,1,1,36)
(5,1,3,41,0,296,2,2,40) (5,1,3,41,0,380,2,2,40) (5,1,3,41,1,296,2,2,36) (5,1,3,41,1,380,2,2,36)
(5,1,4,0,0,296,2,2,42) (5,1,4,0,0,380,2,2,42) (5,1,4,0,1,296,4,5,37) (5,1,4,0,1,380,4,5,37)
(5,1,4,10,0,296,2,2,43) (5,1,4,10,0,380,2,2,43) (5,1,4,10,1,296,1,1,37) (5,1,4,10,1,380,1,1,37)
(5,1,4,21,0,296,1,1,42) (5,1,4,21,0,380,1,1,42) (5,1,4,21,1,296,1,1,38) (5,1,4,21,1,380,1,1,38)
(5,1,4,30,0,296,2,2,40) (5,1,4,30,0,380,2,2,40) (5,1,4,30,1,296,1,1,36) (5,1,4,30,1,380,1,1,36)
(5,1,4,41,0,296,2,2,42) (5,1,4,41,0,380,2,2,42) (5,1,4,41,1,296,2,2,35) (5,1,4,41,1,380,2,2,35)
(5,1,5,0,0,296,3,3,42) (5,1,5,0,0,380,3,3,42) (5,1,5,0,1,296,3,3,36) (5,1,5,0,1,380,3,3,36)
(5,1,5,10,0,296,2,2,43) (5,1,5,10,0,380,2,2,43) (5,1,5,10,1,296,1,1,37) (5,1,5,10,1,380,1,1,37)
(5,1,5,21,0,296,5,5,42) (5,1,5,21,0,380,5,5,42) (5,1,5,21,1,296,5,8,37) (5,1,5,21,1,380,5,8,37)
(5,1,5,30,0,296,1,1,43) (5,1,5,30,0,380,1,1,43) (5,1,5,30,1,296,2,2,36) (5,1,5,30,1,380,2,2,36)
(5,1,5,41,0,296,2,2,43) (5,1,5,41,0,380,2,2,43) (5,1,5,41,1,296,1,1,36) (5,1,5,41,1,380,1,1,36)
(5,1,6,0,0,296,2,2,42) (5,1,6,0,0,380,2,2,42) (5,1,6,0,1,296,3,3,37) (5,1,6,0,1,380,3,3,37)
(5,1,6,10,0,296,3,3,43) (5,1,6,10,0,380,3,3,43) (5,1,6,10,1,296,3,4,37) (5,1,6,10,1,380,3,4,37)
(5,1,6,21,0,296,1,1,41) (5,1,6,21,0,380,1,1,41) (5,1,6,21,1,296,2,4,37) (5,1,6,21,1,380,2,4,37)
(5,1,6,30,0,296,1,1,43) (5,1,6,30,0,380,1,1,43) (5,1,6,30,1,296,1,1,37) (5,1,6,30,1,380,1,1,37)
(5,1,6,41,0,296,2,2,42) (5,1,6,41,0,380,2,2,42) (5,1,6,41,1,296,3,3,37) (5,1,6,41,1,380,3,3,37)
(5,1,7,0,0,296,1,1,44) (5,1,7,0,0,380,1,1,44) (5,1,7,0,1,296,1,1,37) (5,1,7,0,1,380,1,1,37)
(5,1,7,10,0,296,1,1,44) (5,1,7,10,0,380,1,1,44) (5,1,7,10,1,296,2,2,37) (5,1,7,10,1,380,2,2,37)
(5,1,7,21,0,296,4,4,42) (5,1,7,21,0,380,4,4,42) (5,1,7,21,1,296,2,2,37) (5,1,7,21,1,380,2,2,37)
(5,1,7,30,0,296,3,3,44) (5,1,7,30,0,380,3,3,44) (5,1,7,30,1,296,4,6,37) (5,1,7,30,1,380,4,6,37)
(5,1,7,41,0,296,1,1,43) (5,1,7,41,0,380,1,1,43) (5,1,7,41,1,296,3,4,36) (5,1,7,41,1,380,3,4,36)
(5,1,8,0,0,296,2,2,42) (5,1,8,0,0,380,2,2,42) (5,1,8,0,1,296,1,3,36) (5,1,8,0,1,380,1,3,36)
(5,1,8,10,0,296,1,1,43) (5,1,8,10,0,380,1,1,43) (5,1,8,10,1,296,2,2,37) (5,1,8,10,1,380,2,2,37)
(5,1,8,21,0,296,2,2,43) (5,1,8,21,0,380,2,2,43) (5,1,8,21,1,296,2,4,36) (5,1,8,21,1,380,2,4,36)
(5,1,8,30,0,296,1,1,42) (5,1,8,30,0,380,1,1,42) (5,1,8,30,1,296,1,1,38) (5,1,8,30,1,380,1,1,38)
(5,1,8,41,0,296,1,1,42) (5,1,8,41,0,380,1,1,42) (5,1,8,41,1,296,2,3,38) (5,1,8,41,1,380,2,3,38)
(5,1,9,0,0,296,2,2,42) (5,1,9,0,0,380,2,2,42) (5,1,9,0,1,296,3,5,35) (5,1,9,0,1,380,3,5,35)
(5,1,9,10,0,296,2,2,42) (5,1,9,10,0,380,2,2,42) (5,1,9,10,1,296,2,3,37) (5,1,9,10,1,380,2,3,37)
(5,1,9,21,0,296,2,2,43) (5,1,9,21,0,380,2,2,43) (5,1,9,21,1,296,1,1,36) (5,1,9,21,1,380,1,1,36)
(5,1,9,30,0,296,1,1,40) (5,1,9,30,0,380,1,1,40) (5,1,9,30,1,296,1,1,37) (5,1,9,30,1,380,1,1,37)
(5,1,9,41,0,296,1,1,42) (5,1,9,41,0,380,1,1,42) (5,1,9,41,1,296,3,4,37) (5,1,9,41,1,380,3,4,37)
(4,0,0,0,0,296,0,0,70) (4,0,0,0,0,380,0,0,70) (4,0,0,0,1,296,1,1,58) (4,0,0,0,1,380,1,1,58)
(4,0,0,10,0,296,2,2,73) (4,0,0,10,0,380,2,2,73) (4,0,0,10,1,296,1,1,58) (4,0,0,10,1,380,1,1,58)
(4,0,0,21,0,296,1,1,72) (4,0,0,21,0,380,1,1,72) (4,0,0,21,1,296,0,0,58) (4,0,0,21,1,380,0,0,58)
(4,0,0,30,0,296,1,1,69) (4,0,0,30,0,380,1,1,69) (4,0,0,30,1,296,0,0,58) (4,0,0,30,1,380,0,0,58)
(4,0,0,41,0,296,1,1,71) (4,0,0,41,0,380,1,1,71) (4,0,0,41,1,296,0,0,58) (4,0,0,41,1,380,0,0,58)
(4,0,1,0,0,296,3,3,72) (4,0,1,0,0,380,3,3,72) (4,0,1,0,1,296,0,0,58) (4,0,1,0,1,380,0,0,58)
(4,0,1,10,0,296,3,4,69) (4,0,1,10,0,380,3,4,69) (4,0,1,10,1,296,1,1,57) (4,0,1,10,1,380,1,1,57)
(4,0,1,21,0,296,2,2,71) (4,0,1,21,0,380,2,2,71) (4,0,1,21,1,296,1,1,58) (4,0,1,21,1,380,1,1,58)
(4,0,1,30,0,296,1,1,72) (4,0,1,30,0,380,1,1,72) (4,0,1,30,1,296,0,0,58) (4,0,1,30,1,380,0,0,58)
(4,0,1,41,0,296,0,0,72) (4,0,1,41,0,380,0,0,72) (4,0,1,41,1,296,1,1,58) (4,0,1,41,1,380,1,1,58)
(4,0,2,0,0,296,1,1,72) (4,0,2,0,0,380,1,1,72) (4,0,2,0,1,296,1,1,57) (4,0,2,0,1,380,1,1,57)
(4,0,2,10,0,296,3,4,70) (4,0,2,10,0,380,3,4,70) (4,0,2,10,1,296,2,2,59) (4,0,2,10,1,380,2,2,59)
(4,0,2,21,0,296,5,6,72) (4,0,2,21,0,380,5,6,72) (4,0,2,21,1,296,1,1,57) (4,0,2,21,1,380,1,1,57)
(4,0,2,30,0,296,1,4,71) (4,0,2,30,0,380,1,4,71) (4,0,2,30,1,296,1,1,59) (4,0,2,30,1,380,1,1,59)
(4,0,2,41,0,296,1,1,71) (4,0,2,41,0,380,1,1,71) (4,0,2,41,1,296,1,1,60) (4,0,2,41,1,380,1,1,60)
(4,0,3,0,0,296,2,2,71) (4,0,3,0,0,380,2,2,71) (4,0,3,0,1,296,2,4,56) (4,0,3,0,1,380,2,4,56)
(4,0,3,10,0,296,4,4,73) (4,0,3,10,0,380,4,4,73) (4,0,3,10,1,296,2,2,57) (4,0,3,10,1,380,2,2,57)
(4,0,3,21,0,296,2,2,72) (4,0,3,21,0,380,2,2,72) (4,0,3,21,1,296,6,6,55) (4,0,3,21,1,380,6,6,55)
(4,0,3,30,0,296,1,2,73) (4,0,3,30,0,380,1,2,73) (4,0,3,30,1,296,2,2,58) (4,0,3,30,1,380,2,2,58)
(4,0,3,41,0,296,4,5,74) (4,0,3,41,0,380,4,5,74) (4,0,3,41,1,296,4,4,57) (4,0,3,41,1,380,4,4,57)
(4,0,4,0,0,296,4,8,69) (4,0,4,0,0,380,4,8,69) (4,0,4,0,1,296,0,0,58) (4,0,4,0,1,380,0,0,58)
(4,0,4,10,0,296,0,0,74) (4,0,4,10,0,380,0,0,74) (4,0,4,10,1,296,3,3,58) (4,0,4,10,1,380,3,3,58)
(4,0,4,21,0,296,1,4,73) (4,0,4,21,0,380,1,4,73) (4,0,4,21,1,296,1,1,58) (4,0,4,21,1,380,1,1,58)
(4,0,4,30,0,296,1,1,69) (4,0,4,30,0,380,1,1,69) (4,0,4,30,1,296,1,1,57) (4,0,4,30,1,380,1,1,57)
(4,0,4,41,0,296,1,1,74) (4,0,4,41,0,380,1,1,74) (4,0,4,41,1,296,3,3,57) (4,0,4,41,1,380,3,3,57)
(4,0,5,0,0,296,3,4,72) (4,0,5,0,0,380,3,4,72) (4,0,5,0,1,296,1,1,59) (4,0,5,0,1,380,1,1,59)
(4,0,5,10,0,296,1,1,70) (4,0,5,10,0,380,1,1,70) (4,0,5,10,1,296,0,0,56) (4,0,5,10,1,380,0,0,56)
(4,0,5,21,0,296,2,3,72) (4,0,5,21,0,380,2,3,72) (4,0,5,21,1,296,1,1,58) (4,0,5,21,1,380,1,1,58)
(4,0,5,30,0,296,1,1,72) (4,0,5,30,0,380,1,1,72) (4,0,5,30,1,296,0,0,58) (4,0,5,30,1,380,0,0,58)
(4,0,5,41,0,296,1,1,72) (4,0,5,41,0,380,1,1,72) (4,0,5,41,1,296,0,0,58) (4,0,5,41,1,380,0,0,58)
(4,0,6,0,0,296,2,5,71) (4,0,6,0,0,380,2,5,71) (4,0,6,0,1,296,0,0,60) (4,0,6,0,1,380,0,0,60)
(4,0,6,10,0,296,4,4,70) (4,0,6,10,0,380,4,4,70) (4,0,6,10,1,296,3,3,56) (4,0,6,10,1,380,3,3,56)
(4,0,6,21,0,296,3,3,70) (4,0,6,21,0,380,3,3,70) (4,0,6,21,1,296,1,1,55) (4,0,6,21,1,380,1,1,55)
(4,0,6,30,0,296,3,3,68) (4,0,6,30,0,380,3,3,68) (4,0,6,30,1,296,2,2,57) (4,0,6,30,1,380,2,2,57)
(4,0,6,41,0,296,3,7,70) (4,0,6,41,0,380,3,7,70) (4,0,6,41,1,296,0,0,58) (4,0,6,41,1,380,0,0,58)
(4,0,7,0,0,296,1,1,73) (4,0,7,0,0,380,1,1,73) (4,0,7,0,1,296,2,2,58) (4,0,7,0,1,380,2,2,58)
(4,0,7,10,0,296,1,1,74) (4,0,7,10,0,380,1,1,74) (4,0,7,10,1,296,2,2,57) (4,0,7,10,1,380,2,2,57)
(4,0,7,21,0,296,2,2,71) (4,0,7,21,0,380,2,2,71) (4,0,7,21,1,296,2,2,59) (4,0,7,21,1,380,2,2,59)
(4,0,7,30,0,296,1,1,75) (4,0,7,30,0,380,1,1,75) (4,0,7,30,1,296,1,1,57) (4,0,7,30,1,380,1,1,57)
(4,0,7,41,0,296,3,4,71) (4,0,7,41,0,380,3,4,71) (4,0,7,41,1,296,1,1,59) (4,0,7,41,1,380,1,1,59)
(4,0,8,0,0,296,0,0,72) (4,0,8,0,0,380,0,0,72) (4,0,8,0,1,296,2,2,57) (4,0,8,0,1,380,2,2,57)
(4,0,8,10,0,296,5,5,69) (4,0,8,10,0,380,5,5,69) (4,0,8,10,1,296,1,1,57) (4,0,8,10,1,380,1,1,57)
(4,0,8,21,0,296,1,3,75) (4,0,8,21,0,380,1,3,75) (4,0,8,21,1,296,2,2,58) (4,0,8,21,1,380,2,2,58)
(4,0,8,30,0,296,3,4,72) (4,0,8,30,0,380,3,4,72) (4,0,8,30,1,296,0,0,58) (4,0,8,30,1,380,0,0,58)
(4,0,8,41,0,296,1,1,73) (4,0,8,41,0,380,1,1,73) (4,0,8,41,1,296,1,1,57) (4,0,8,41,1,380,1,1,57)
(4,0,9,0,0,296,1,1,72) (4,0,9,0,0,380,1,1,72) (4,0,9,0,1,296,0,0,58) (4,0,9,0,1,380,0,0,58)
(4,0,9,10,0,296,3,6,68) (4,0,9,10,0,380,3,6,68) (4,0,9,10,1,296,0,0,58) (4,0,9,10,1,380,0,0,58)
(4,0,9,21,0,296,3,4,71) (4,0,9,21,0,380,3,4,71) (4,0,9,21,1,296,2,2,59) (4,0,9,21,1,380,2,2,59)
(4,0,9,30,0,296,2,4,73) (4,0,9,30,0,380,2,4,73) (4,0,9,30,1,296,0,0,58) (4,0,9,30,1,380,0,0,58)
(4,0,9,41,0,296,2,7,71) (4,0,9,41,0,380,2,7,71) (4,0,9,41,1,296,2,2,57) (4,0,9,41,1,380,2,2,57)
(4,1,0,0,0,296,1,1,39) (4,1,0,0,0,380,1,1,39) (4,1,0,0,1,296,2,2,31) (4,1,0,0,1,380,2,2,31)
(4,1,0,10,0,296,1,1,40) (4,1,0,10,0,380,1,1,40) (4,1,0,10,1,296,1,1,33) (4,1,0,10,1,380,1,1,33)
(4,1,0,21,0,296,1,1,37) (4,1,0,21,0,380,1,1,37) (4,1,0,21,1,296,1,1,31) (4,1,0,21,1,380,1,1,31)
(4,1,0,30,0,296,1,1,41) (4,1,0,30,0,380,1,1,41) (4,1,0,30,1,296,1,1,30) (4,1,0,30,1,380,1,1,30)
(4,1,0,41,0,296,1,1,38) (4,1,0,41,0,380,1,1,38) (4,1,0,41,1,296,1,1,32) (4,1,0,41,1,380,1,1,32)
(4,1,1,0,0,296,1,1,40) (4,1,1,0,0,380,1,1,40) (4,1,1,0,1,296,2,2,32) (4,1,1,0,1,380,2,2,32)
(4,1,1,10,0,296,1,1,39) (4,1,1,10,0,380,1,1,39) (4,1,1,10,1,296,1,1,32) (4,1,1,10,1,380,1,1,32)
(4,1,1,21,0,296,2,2,39) (4,1,1,21,0,380,2,2,39) (4,1,1,21,1,296,2,2,32) (4,1,1,21,1,380,2,2,32)
(4,1,1,30,0,296,1,1,40) (4,1,1,30,0,380,1,1,40) (4,1,1,30,1,296,3,3,33) (4,1,1,30,1,380,3,3,33)
(4,1,1,41,0,296,2,2,40) (4,1,1,41,0,380,2,2,40) (4,1,1,41,1,296,4,4,33) (4,1,1,41,1,380,4,4,33)
(4,1,2,0,0,296,1,1,40) (4,1,2,0,0,380,1,1,40) (4,1,2,0,1,296,0,0,32) (4,1,2,0,1,380,0,0,32)
(4,1,2,10,0,296,2,2,39) (4,1,2,10,0,380,2,2,39) (4,1,2,10,1,296,1,2,31) (4,1,2,10,1,380,1,2,31)
(4,1,2,21,0,296,2,2,40) (4,1,2,21,0,380,2,2,40) (4,1,2,21,1,296,0,0,31) (4,1,2,21,1,380,0,0,31)
(4,1,2,30,0,296,2,2,40) (4,1,2,30,0,380,2,2,40) (4,1,2,30,1,296,1,2,31) (4,1,2,30,1,380,1,2,31)
(4,1,2,41,0,296,2,2,39) (4,1,2,41,0,380,2,2,39) (4,1,2,41,1,296,1,1,32) (4,1,2,41,1,380,1,1,32)
(4,1,3,0,0,296,2,2,39) (4,1,3,0,0,380,2,2,39) (4,1,3,0,1,296,1,1,31) (4,1,3,0,1,380,1,1,31)
(4,1,3,10,0,296,2,2,40) (4,1,3,10,0,380,2,2,40) (4,1,3,10,1,296,1,1,32) (4,1,3,10,1,380,1,1,32)
(4,1,3,21,0,296,1,1,38) (4,1,3,21,0,380,1,1,38) (4,1,3,21,1,296,3,4,32) (4,1,3,21,1,380,3,4,32)
(4,1,3,30,0,296,2,2,40) (4,1,3,30,0,380,2,2,40) (4,1,3,30,1,296,4,4,32) (4,1,3,30,1,380,4,4,32)
(4,1,3,41,0,296,2,2,38) (4,1,3,41,0,380,2,2,38) (4,1,3,41,1,296,2,2,30) (4,1,3,41,1,380,2,2,30)
(4,1,4,0,0,296,1,1,41) (4,1,4,0,0,380,1,1,41) (4,1,4,0,1,296,2,2,29) (4,1,4,0,1,380,2,2,29)
(4,1,4,10,0,296,1,1,40) (4,1,4,10,0,380,1,1,40) (4,1,4,10,1,296,2,2,32) (4,1,4,10,1,380,2,2,32)
(4,1,4,21,0,296,0,0,39) (4,1,4,21,0,380,0,0,39) (4,1,4,21,1,296,2,3,32) (4,1,4,21,1,380,2,3,32)
(4,1,4,30,0,296,2,2,38) (4,1,4,30,0,380,2,2,38) (4,1,4,30,1,296,2,2,31) (4,1,4,30,1,380,2,2,31)
(4,1,4,41,0,296,1,1,38) (4,1,4,41,0,380,1,1,38) (4,1,4,41,1,296,1,1,31) (4,1,4,41,1,380,1,1,31)
(4,1,5,0,0,296,1,1,42) (4,1,5,0,0,380,1,1,42) (4,1,5,0,1,296,2,2,32) (4,1,5,0,1,380,2,2,32)
(4,1,5,10,0,296,2,2,40) (4,1,5,10,0,380,2,2,40) (4,1,5,10,1,296,1,1,33) (4,1,5,10,1,380,1,1,33)
(4,1,5,21,0,296,1,1,40) (4,1,5,21,0,380,1,1,40) (4,1,5,21,1,296,2,2,33) (4,1,5,21,1,380,2,2,33)
(4,1,5,30,0,296,1,1,40) (4,1,5,30,0,380,1,1,40) (4,1,5,30,1,296,3,3,31) (4,1,5,30,1,380,3,3,31)
(4,1,5,41,0,296,1,1,40) (4,1,5,41,0,380,1,1,40) (4,1,5,41,1,296,2,2,32) (4,1,5,41,1,380,2,2,32)
(4,1,6,0,0,296,2,2,41) (4,1,6,0,0,380,2,2,41) (4,1,6,0,1,296,2,2,30) (4,1,6,0,1,380,2,2,30)
(4,1,6,10,0,296,2,2,40) (4,1,6,10,0,380,2,2,40) (4,1,6,10,1,296,2,2,31) (4,1,6,10,1,380,2,2,31)
(4,1,6,21,0,296,1,1,40) (4,1,6,21,0,380,1,1,40) (4,1,6,21,1,296,2,2,30) (4,1,6,21,1,380,2,2,30)
(4,1,6,30,0,296,0,0,40) (4,1,6,30,0,380,0,0,40) (4,1,6,30,1,296,4,4,32) (4,1,6,30,1,380,4,4,32)
(4,1,6,41,0,296,1,1,40) (4,1,6,41,0,380,1,1,40) (4,1,6,41,1,296,3,4,32) (4,1,6,41,1,380,3,4,32)
(4,1,7,0,0,296,3,3,41) (4,1,7,0,0,380,3,3,41) (4,1,7,0,1,296,0,0,33) (4,1,7,0,1,380,0,0,33)
(4,1,7,10,0,296,1,1,40) (4,1,7,10,0,380,1,1,40) (4,1,7,10,1,296,1,1,33) (4,1,7,10,1,380,1,1,33)
(4,1,7,21,0,296,1,1,42) (4,1,7,21,0,380,1,1,42) (4,1,7,21,1,296,2,3,32) (4,1,7,21,1,380,2,3,32)
(4,1,7,30,0,296,1,1,41) (4,1,7,30,0,380,1,1,41) (4,1,7,30,1,296,0,0,34) (4,1,7,30,1,380,0,0,34)
(4,1,7,41,0,296,1,1,43) (4,1,7,41,0,380,1,1,43) (4,1,7,41,1,296,1,3,34) (4,1,7,41,1,380,1,3,34)
(4,1,8,0,0,296,2,2,39) (4,1,8,0,0,380,2,2,39) (4,1,8,0,1,296,1,1,35) (4,1,8,0,1,380,1,1,35)
(4,1,8,10,0,296,1,1,40) (4,1,8,10,0,380,1,1,40) (4,1,8,10,1,296,5,6,32) (4,1,8,10,1,380,5,6,32)
(4,1,8,21,0,296,0,0,41) (4,1,8,21,0,380,0,0,41) (4,1,8,21,1,296,2,5,35) (4,1,8,21,1,380,2,5,35)
(4,1,8,30,0,296,1,1,39) (4,1,8,30,0,380,1,1,39) (4,1,8,30,1,296,2,3,35) (4,1,8,30,1,380,2,3,35)
(4,1,8,41,0,296,1,1,40) (4,1,8,41,0,380,1,1,40) (4,1,8,41,1,296,1,1,35) (4,1,8,41,1,380,1,1,35)
(4,1,9,0,0,296,1,1,41) (4,1,9,0,0,380,1,1,41) (4,1,9,0,1,296,2,3,31) (4,1,9,0,1,380,2,3,31)
(4,1,9,10,0,296,2,2,41) (4,1,9,10,0,380,2,2,41) (4,1,9,10,1,296,1,1,32) (4,1,9,10,1,380,1,1,32)
(4,1,9,21,0,296,1,1,41) (4,1,9,21,0,380,1,1,41) (4,1,9,21,1,296,1,1,33) (4,1,9,21,1,380,1,1,33)
(4,1,9,30,0,296,0,0,40) (4,1,9,30,0,380,0,0,40) (4,1,9,30,1,296,1,1,33) (4,1,9,30,1,380,1,1,33)
(4,1,9,41,0,296,0,0,40) (4,1,9,41,0,380,0,0,40) (4,1,9,41,1,296,1,1,32) (4,1,9,41,1,380,1,1,32)
(3,0,0,0,0,296,0,0,64) (3,0,0,0,0,380,0,0,64) (3,0,0,0,1,296,0,0,58) (3,0,0,0,1,380,0,0,58)
(3,0,0,10,0,296,1,2,62) (3,0,0,10,0,380,1,2,62) (3,0,0,10,1,296,2,2,55) (3,0,0,10,1,380,2,2,55)
(3,0,0,21,0,296,1,1,64) (3,0,0,21,0,380,1,1,64) (3,0,0,21,1,296,0,0,58) (3,0,0,21,1,380,0,0,58)
(3,0,0,30,0,296,0,0,64) (3,0,0,30,0,380,0,0,64) (3,0,0,30,1,296,0,0,58) (3,0,0,30,1,380,0,0,58)
(3,0,0,41,0,296,1,1,67) (3,0,0,41,0,380,1,1,67) (3,0,0,41,1,296,3,3,57) (3,0,0,41,1,380,3,3,57)
(3,0,1,0,0,296,2,2,67) (3,0,1,0,0,380,2,2,67) (3,0,1,0,1,296,3,3,57) (3,0,1,0,1,380,3,3,57)
(3,0,1,10,0,296,1,2,61) (3,0,1,10,0,380,1,2,61) (3,0,1,10,1,296,0,0,58) (3,0,1,10,1,380,0,0,58)
(3,0,1,21,0,296,0,0,64) (3,0,1,21,0,380,0,0,64) (3,0,1,21,1,296,2,2,57) (3,0,1,21,1,380,2,2,57)
(3,0,1,30,0,296,2,4,65) (3,0,1,30,0,380,2,4,65) (3,0,1,30,1,296,1,1,57) (3,0,1,30,1,380,1,1,57)
(3,0,1,41,0,296,1,1,65) (3,0,1,41,0,380,1,1,65) (3,0,1,41,1,296,4,4,57) (3,0,1,41,1,380,4,4,57)
(3,0,2,0,0,296,1,2,62) (3,0,2,0,0,380,1,2,62) (3,0,2,0,1,296,0,0,58) (3,0,2,0,1,380,0,0,58)
(3,0,2,10,0,296,1,2,62) (3,0,2,10,0,380,1,2,62) (3,0,2,10,1,296,2,2,56) (3,0,2,10,1,380,2,2,56)
(3,0,2,21,0,296,0,0,64) (3,0,2,21,0,380,0,0,64) (3,0,2,21,1,296,3,5,57) (3,0,2,21,1,380,3,5,57)
(3,0,2,30,0,296,3,4,59) (3,0,2,30,0,380,3,4,59) (3,0,2,30,1,296,3,3,56) (3,0,2,30,1,380,3,3,56)
(3,0,2,41,0,296,4,8,62) (3,0,2,41,0,380,4,8,62) (3,0,2,41,1,296,0,0,58) (3,0,2,41,1,380,0,0,58)
(3,0,3,0,0,296,1,1,62) (3,0,3,0,0,380,1,1,62) (3,0,3,0,1,296,2,2,55) (3,0,3,0,1,380,2,2,55)
(3,0,3,10,0,296,1,1,67) (3,0,3,10,0,380,1,1,67) (3,0,3,10,1,296,2,2,57) (3,0,3,10,1,380,2,2,57)
(3,0,3,21,0,296,1,1,61) (3,0,3,21,0,380,1,1,61) (3,0,3,21,1,296,2,2,54) (3,0,3,21,1,380,2,2,54)
(3,0,3,30,0,296,2,2,65) (3,0,3,30,0,380,2,2,65) (3,0,3,30,1,296,0,0,58) (3,0,3,30,1,380,0,0,58)
(3,0,3,41,0,296,4,4,63) (3,0,3,41,0,380,4,4,63) (3,0,3,41,1,296,3,3,56) (3,0,3,41,1,380,3,3,56)
(3,0,4,0,0,296,3,3,66) (3,0,4,0,0,380,3,3,66) (3,0,4,0,1,296,1,2,58) (3,0,4,0,1,380,1,2,58)
(3,0,4,10,0,296,0,0,66) (3,0,4,10,0,380,0,0,66) (3,0,4,10,1,296,2,2,57) (3,0,4,10,1,380,2,2,57)
(3,0,4,21,0,296,3,3,65) (3,0,4,21,0,380,3,3,65) (3,0,4,21,1,296,1,1,57) (3,0,4,21,1,380,1,1,57)
(3,0,4,30,0,296,3,3,62) (3,0,4,30,0,380,3,3,62) (3,0,4,30,1,296,2,6,54) (3,0,4,30,1,380,2,6,54)
(3,0,4,41,0,296,3,4,61) (3,0,4,41,0,380,3,4,61) (3,0,4,41,1,296,1,1,57) (3,0,4,41,1,380,1,1,57)
(3,0,5,0,0,296,4,4,64) (3,0,5,0,0,380,4,4,64) (3,0,5,0,1,296,1,1,58) (3,0,5,0,1,380,1,1,58)
(3,0,5,10,0,296,2,2,64) (3,0,5,10,0,380,2,2,64) (3,0,5,10,1,296,3,3,56) (3,0,5,10,1,380,3,3,56)
(3,0,5,21,0,296,1,1,66) (3,0,5,21,0,380,1,1,66) (3,0,5,21,1,296,1,1,58) (3,0,5,21,1,380,1,1,58)
(3,0,5,30,0,296,0,0,64) (3,0,5,30,0,380,0,0,64) (3,0,5,30,1,296,1,1,56) (3,0,5,30,1,380,1,1,56)
(3,0,5,41,0,296,4,5,61) (3,0,5,41,0,380,4,5,61) (3,0,5,41,1,296,0,0,58) (3,0,5,41,1,380,0,0,58)
(3,0,6,0,0,296,3,3,65) (3,0,6,0,0,380,3,3,65) (3,0,6,0,1,296,0,0,58) (3,0,6,0,1,380,0,0,58)
(3,0,6,10,0,296,3,4,63) (3,0,6,10,0,380,3,4,63) (3,0,6,10,1,296,3,3,56) (3,0,6,10,1,380,3,3,56)
(3,0,6,21,0,296,1,1,64) (3,0,6,21,0,380,1,1,64) (3,0,6,21,1,296,1,1,57) (3,0,6,21,1,380,1,1,57)
(3,0,6,30,0,296,4,4,65) (3,0,6,30,0,380,4,4,65) (3,0,6,30,1,296,0,0,58) (3,0,6,30,1,380,0,0,58)
(3,0,6,41,0,296,2,2,63) (3,0,6,41,0,380,2,2,63) (3,0,6,41,1,296,1,1,57) (3,0,6,41,1,380,1,1,57)
(3,0,7,0,0,296,3,3,66) (3,0,7,0,0,380,3,3,66) (3,0,7,0,1,296,1,1,58) (3,0,7,0,1,380,1,1,58)
(3,0,7,10,0,296,6,6,63) (3,0,7,10,0,380,6,6,63) (3,0,7,10,1,296,1,1,57) (3,0,7,10,1,380,1,1,57)
(3,0,7,21,0,296,2,2,68) (3,0,7,21,0,380,2,2,68) (3,0,7,21,1,296,1,1,57) (3,0,7,21,1,380,1,1,57)
(3,0,7,30,0,296,0,0,66) (3,0,7,30,0,380,0,0,66) (3,0,7,30,1,296,0,0,58) (3,0,7,30,1,380,0,0,58)
(3,0,7,41,0,296,1,3,67) (3,0,7,41,0,380,1,3,67) (3,0,7,41,1,296,1,1,57) (3,0,7,41,1,380,1,1,57)
(3,0,8,0,0,296,4,6,65) (3,0,8,0,0,380,4,6,65) (3,0,8,0,1,296,1,1,58) (3,0,8,0,1,380,1,1,58)
(3,0,8,10,0,296,1,1,60) (3,0,8,10,0,380,1,1,60) (3,0,8,10,1,296,2,2,56) (3,0,8,10,1,380,2,2,56)
(3,0,8,21,0,296,1,3,62) (3,0,8,21,0,380,1,3,62) (3,0,8,21,1,296,2,2,58) (3,0,8,21,1,380,2,2,58)
(3,0,8,30,0,296,2,2,61) (3,0,8,30,0,380,2,2,61) (3,0,8,30,1,296,1,1,58) (3,0,8,30,1,380,1,1,58)
(3,0,8,41,0,296,2,2,61) (3,0,8,41,0,380,2,2,61) (3,0,8,41,1,296,2,2,57) (3,0,8,41,1,380,2,2,57)
(3,0,9,0,0,296,1,1,62) (3,0,9,0,0,380,1,1,62) (3,0,9,0,1,296,2,2,58) (3,0,9,0,1,380,2,2,58)
(3,0,9,10,0,296,1,1,63) (3,0,9,10,0,380,1,1,63) (3,0,9,10,1,296,1,1,57) (3,0,9,10,1,380,1,1,57)
(3,0,9,21,0,296,4,6,60) (3,0,9,21,0,380,4,6,60) (3,0,9,21,1,296,1,2,58) (3,0,9,21,1,380,1,2,58)
(3,0,9,30,0,296,1,3,60) (3,0,9,30,0,380,1,3,60) (3,0,9,30,1,296,0,0,58) (3,0,9,30,1,380,0,0,58)
(3,0,9,41,0,296,1,4,64) (3,0,9,41,0,380,1,4,64) (3,0,9,41,1,296,1,1,57) (3,0,9,41,1,380,1,1,57)
(3,1,0,0,0,296,1,1,37) (3,1,0,0,0,380,1,1,37) (3,1,0,0,1,296,1,1,29) (3,1,0,0,1,380,1,1,29)
(3,1,0,10,0,296,2,2,37) (3,1,0,10,0,380,2,2,37) (3,1,0,10,1,296,1,1,29) (3,1,0,10,1,380,1,1,29)
(3,1,0,21,0,296,2,2,37) (3,1,0,21,0,380,2,2,37) (3,1,0,21,1,296,1,1,29) (3,1,0,21,1,380,1,1,29)
(3,1,0,30,0,296,1,1,36) (3,1,0,30,0,380,1,1,36) (3,1,0,30,1,296,1,1,29) (3,1,0,30,1,380,1,1,29)
(3,1,0,41,0,296,2,2,36) (3,1,0,41,0,380,2,2,36) (3,1,0,41,1,296,1,1,29) (3,1,0,41,1,380,1,1,29)
(3,1,1,0,0,296,1,1,36) (3,1,1,0,0,380,1,1,36) (3,1,1,0,1,296,1,1,29) (3,1,1,0,1,380,1,1,29)
(3,1,1,10,0,296,1,1,37) (3,1,1,10,0,380,1,1,37) (3,1,1,10,1,296,2,2,29) (3,1,1,10,1,380,2,2,29)
(3,1,1,21,0,296,3,4,37) (3,1,1,21,0,380,3,4,37) (3,1,1,21,1,296,1,1,29) (3,1,1,21,1,380,1,1,29)
(3,1,1,30,0,296,1,1,38) (3,1,1,30,0,380,1,1,38) (3,1,1,30,1,296,1,1,29) (3,1,1,30,1,380,1,1,29)
(3,1,1,41,0,296,3,3,37) (3,1,1,41,0,380,3,3,37) (3,1,1,41,1,296,1,1,29) (3,1,1,41,1,380,1,1,29)
(3,1,2,0,0,296,1,1,37) (3,1,2,0,0,380,1,1,37) (3,1,2,0,1,296,1,1,30) (3,1,2,0,1,380,1,1,30)
(3,1,2,10,0,296,1,1,36) (3,1,2,10,0,380,1,1,36) (3,1,2,10,1,296,2,2,30) (3,1,2,10,1,380,2,2,30)
(3,1,2,21,0,296,2,2,36) (3,1,2,21,0,380,2,2,36) (3,1,2,21,1,296,1,1,29) (3,1,2,21,1,380,1,1,29)
(3,1,2,30,0,296,2,3,36) (3,1,2,30,0,380,2,3,36) (3,1,2,30,1,296,2,2,30) (3,1,2,30,1,380,2,2,30)
(3,1,2,41,0,296,1,1,36) (3,1,2,41,0,380,1,1,36) (3,1,2,41,1,296,1,1,29) (3,1,2,41,1,380,1,1,29)
(3,1,3,0,0,296,1,1,37) (3,1,3,0,0,380,1,1,37) (3,1,3,0,1,296,2,2,29) (3,1,3,0,1,380,2,2,29)
(3,1,3,10,0,296,2,2,36) (3,1,3,10,0,380,2,2,36) (3,1,3,10,1,296,1,1,29) (3,1,3,10,1,380,1,1,29)
(3,1,3,21,0,296,1,1,37) (3,1,3,21,0,380,1,1,37) (3,1,3,21,1,296,3,3,29) (3,1,3,21,1,380,3,3,29)
(3,1,3,30,0,296,2,2,38) (3,1,3,30,0,380,2,2,38) (3,1,3,30,1,296,2,2,29) (3,1,3,30,1,380,2,2,29)
(3,1,3,41,0,296,2,2,38) (3,1,3,41,0,380,2,2,38) (3,1,3,41,1,296,2,2,29) (3,1,3,41,1,380,2,2,29)
(3,1,4,0,0,296,1,1,37) (3,1,4,0,0,380,1,1,37) (3,1,4,0,1,296,1,1,29) (3,1,4,0,1,380,1,1,29)
(3,1,4,10,0,296,2,2,35) (3,1,4,10,0,380,2,2,35) (3,1,4,10,1,296,1,1,29) (3,1,4,10,1,380,1,1,29)
(3,1,4,21,0,296,2,2,37) (3,1,4,21,0,380,2,2,37) (3,1,4,21,1,296,2,3,30) (3,1,4,21,1,380,2,3,30)
(3,1,4,30,0,296,1,1,37) (3,1,4,30,0,380,1,1,37) (3,1,4,30,1,296,1,1,29) (3,1,4,30,1,380,1,1,29)
(3,1,4,41,0,296,2,2,37) (3,1,4,41,0,380,2,2,37) (3,1,4,41,1,296,2,2,29) (3,1,4,41,1,380,2,2,29)
(3,1,5,0,0,296,3,3,37) (3,1,5,0,0,380,3,3,37) (3,1,5,0,1,296,2,2,29) (3,1,5,0,1,380,2,2,29)
(3,1,5,10,0,296,2,2,36) (3,1,5,10,0,380,2,2,36) (3,1,5,10,1,296,1,1,28) (3,1,5,10,1,380,1,1,28)
(3,1,5,21,0,296,3,3,38) (3,1,5,21,0,380,3,3,38) (3,1,5,21,1,296,1,1,29) (3,1,5,21,1,380,1,1,29)
(3,1,5,30,0,296,1,1,37) (3,1,5,30,0,380,1,1,37) (3,1,5,30,1,296,1,1,29) (3,1,5,30,1,380,1,1,29)
(3,1,5,41,0,296,1,1,38) (3,1,5,41,0,380,1,1,38) (3,1,5,41,1,296,1,1,29) (3,1,5,41,1,380,1,1,29)
(3,1,6,0,0,296,1,1,38) (3,1,6,0,0,380,1,1,38) (3,1,6,0,1,296,1,1,29) (3,1,6,0,1,380,1,1,29)
(3,1,6,10,0,296,2,2,35) (3,1,6,10,0,380,2,2,35) (3,1,6,10,1,296,1,1,29) (3,1,6,10,1,380,1,1,29)
(3,1,6,21,0,296,1,1,37) (3,1,6,21,0,380,1,1,37) (3,1,6,21,1,296,1,1,28) (3,1,6,21,1,380,1,1,28)
(3,1,6,30,0,296,1,1,37) (3,1,6,30,0,380,1,1,37) (3,1,6,30,1,296,1,1,29) (3,1,6,30,1,380,1,1,29)
(3,1,6,41,0,296,1,1,36) (3,1,6,41,0,380,1,1,36) (3,1,6,41,1,296,1,1,29) (3,1,6,41,1,380,1,1,29)
(3,1,7,0,0,296,1,1,37) (3,1,7,0,0,380,1,1,37) (3,1,7,0,1,296,2,2,30) (3,1,7,0,1,380,2,2,30)
(3,1,7,10,0,296,1,1,38) (3,1,7,10,0,380,1,1,38) (3,1,7,10,1,296,2,2,30) (3,1,7,10,1,380,2,2,30)
(3,1,7,21,0,296,1,1,38) (3,1,7,21,0,380,1,1,38) (3,1,7,21,1,296,2,2,29) (3,1,7,21,1,380,2,2,29)
(3,1,7,30,0,296,1,1,41) (3,1,7,30,0,380,1,1,41) (3,1,7,30,1,296,1,1,30) (3,1,7,30,1,380,1,1,30)
(3,1,7,41,0,296,1,1,41) (3,1,7,41,0,380,1,1,41) (3,1,7,41,1,296,2,2,30) (3,1,7,41,1,380,2,2,30)
(3,1,8,0,0,296,2,2,37) (3,1,8,0,0,380,2,2,37) (3,1,8,0,1,296,1,1,29) (3,1,8,0,1,380,1,1,29)
(3,1,8,10,0,296,1,1,37) (3,1,8,10,0,380,1,1,37) (3,1,8,10,1,296,2,2,29) (3,1,8,10,1,380,2,2,29)
(3,1,8,21,0,296,1,1,38) (3,1,8,21,0,380,1,1,38) (3,1,8,21,1,296,2,2,29) (3,1,8,21,1,380,2,2,29)
(3,1,8,30,0,296,2,2,38) (3,1,8,30,0,380,2,2,38) (3,1,8,30,1,296,1,1,29) (3,1,8,30,1,380,1,1,29)
(3,1,8,41,0,296,5,5,37) (3,1,8,41,0,380,5,5,37) (3,1,8,41,1,296,3,3,29) (3,1,8,41,1,380,3,3,29)
(3,1,9,0,0,296,2,2,35) (3,1,9,0,0,380,2,2,35) (3,1,9,0,1,296,1,1,29) (3,1,9,0,1,380,1,1,29)
(3,1,9,10,0,296,2,2,37) (3,1,9,10,0,380,2,2,37) (3,1,9,10,1,296,1,1,29) (3,1,9,10,1,380,1,1,29)
(3,1,9,21,0,296,2,2,36) (3,1,9,21,0,380,2,2,36) (3,1,9,21,1,296,1,1,30) (3,1,9,21,1,380,1,1,30)
(3,1,9,30,0,296,1,1,37) (3,1,9,30,0,380,1,1,37) (3,1,9,30,1,296,1,1,29) (3,1,9,30,1,380,1,1,29)
(3,1,9,41,0,296,2,2,37) (3,1,9,41,0,380,2,2,37) (3,1,9,41,1,296,3,3,29) (3,1,9,41,1,380,3,3,29)
(2,0,0,0,0,296,1,1,58) (2,0,0,0,0,380,1,1,58) (2,0,0,0,1,296,2,2,58) (2,0,0,0,1,380,2,2,58)
(2,0,0,10,0,296,4,4,58) (2,0,0,10,0,380,4,4,58) (2,0,0,10,1,296,4,7,54) (2,0,0,10,1,380,4,7,54)
(2,0,0,21,0,296,1,1,59) (2,0,0,21,0,380,1,1,59) (2,0,0,21,1,296,1,2,57) (2,0,0,21,1,380,1,2,57)
(2,0,0,30,0,296,1,2,56) (2,0,0,30,0,380,1,2,56) (2,0,0,30,1,296,2,2,57) (2,0,0,30,1,380,2,2,57)
(2,0,0,41,0,296,0,0,58) (2,0,0,41,0,380,0,0,58) (2,0,0,41,1,296,3,3,57) (2,0,0,41,1,380,3,3,57)
(2,0,1,0,0,296,2,2,58) (2,0,1,0,0,380,2,2,58) (2,0,1,0,1,296,1,1,56) (2,0,1,0,1,380,1,1,56)
(2,0,1,10,0,296,2,2,57) (2,0,1,10,0,380,2,2,57) (2,0,1,10,1,296,1,4,55) (2,0,1,10,1,380,1,4,55)
(2,0,1,21,0,296,0,0,60) (2,0,1,21,0,380,0,0,60) (2,0,1,21,1,296,1,12,50) (2,0,1,21,1,380,1,12,50)
(2,0,1,30,0,296,2,2,58) (2,0,1,30,0,380,2,2,58) (2,0,1,30,1,296,1,6,52) (2,0,1,30,1,380,1,6,52)
(2,0,1,41,0,296,0,0,58) (2,0,1,41,0,380,0,0,58) (2,0,1,41,1,296,2,2,58) (2,0,1,41,1,380,2,2,58)
(2,0,2,0,0,296,3,5,56) (2,0,2,0,0,380,3,5,56) (2,0,2,0,1,296,2,8,54) (2,0,2,0,1,380,2,8,54)
(2,0,2,10,0,296,2,2,57) (2,0,2,10,0,380,2,2,57) (2,0,2,10,1,296,1,1,57) (2,0,2,10,1,380,1,1,57)
(2,0,2,21,0,296,3,3,59) (2,0,2,21,0,380,3,3,59) (2,0,2,21,1,296,0,0,58) (2,0,2,21,1,380,0,0,58)
(2,0,2,30,0,296,3,3,56) (2,0,2,30,0,380,3,3,56) (2,0,2,30,1,296,2,6,53) (2,0,2,30,1,380,2,6,53)
(2,0,2,41,0,296,2,2,58) (2,0,2,41,0,380,2,2,58) (2,0,2,41,1,296,1,1,57) (2,0,2,41,1,380,1,1,57)
(2,0,3,0,0,296,1,1,58) (2,0,3,0,0,380,1,1,58) (2,0,3,0,1,296,3,5,54) (2,0,3,0,1,380,3,5,54)
(2,0,3,10,0,296,1,1,58) (2,0,3,10,0,380,1,1,58) (2,0,3,10,1,296,1,3,54) (2,0,3,10,1,380,1,3,54)
(2,0,3,21,0,296,0,0,62) (2,0,3,21,0,380,0,0,62) (2,0,3,21,1,296,4,4,56) (2,0,3,21,1,380,4,4,56)
(2,0,3,30,0,296,4,4,59) (2,0,3,30,0,380,4,4,59) (2,0,3,30,1,296,1,2,54) (2,0,3,30,1,380,1,2,54)
(2,0,3,41,0,296,5,6,58) (2,0,3,41,0,380,5,6,58) (2,0,3,41,1,296,3,4,53) (2,0,3,41,1,380,3,4,53)
(2,0,4,0,0,296,0,0,60) (2,0,4,0,0,380,0,0,60) (2,0,4,0,1,296,2,2,57) (2,0,4,0,1,380,2,2,57)
(2,0,4,10,0,296,1,1,57) (2,0,4,10,0,380,1,1,57) (2,0,4,10,1,296,2,3,53) (2,0,4,10,1,380,2,3,53)
(2,0,4,21,0,296,1,1,59) (2,0,4,21,0,380,1,1,59) (2,0,4,21,1,296,1,1,56) (2,0,4,21,1,380,1,1,56)
(2,0,4,30,0,296,1,1,58) (2,0,4,30,0,380,1,1,58) (2,0,4,30,1,296,2,2,57) (2,0,4,30,1,380,2,2,57)
(2,0,4,41,0,296,1,1,58) (2,0,4,41,0,380,1,1,58) (2,0,4,41,1,296,0,0,58) (2,0,4,41,1,380,0,0,58)
(2,0,5,0,0,296,2,2,58) (2,0,5,0,0,380,2,2,58) (2,0,5,0,1,296,1,1,58) (2,0,5,0,1,380,1,1,58)
(2,0,5,10,0,296,1,1,58) (2,0,5,10,0,380,1,1,58) (2,0,5,10,1,296,4,4,53) (2,0,5,10,1,380,4,4,53)
(2,0,5,21,0,296,6,6,57) (2,0,5,21,0,380,6,6,57) (2,0,5,21,1,296,1,1,57) (2,0,5,21,1,380,1,1,57)
(2,0,5,30,0,296,0,0,60) (2,0,5,30,0,380,0,0,60) (2,0,5,30,1,296,1,1,58) (2,0,5,30,1,380,1,1,58)
(2,0,5,41,0,296,1,1,57) (2,0,5,41,0,380,1,1,57) (2,0,5,41,1,296,1,1,58) (2,0,5,41,1,380,1,1,58)
(2,0,6,0,0,296,1,1,60) (2,0,6,0,0,380,1,1,60) (2,0,6,0,1,296,4,5,56) (2,0,6,0,1,380,4,5,56)
(2,0,6,10,0,296,2,2,57) (2,0,6,10,0,380,2,2,57) (2,0,6,10,1,296,1,1,57) (2,0,6,10,1,380,1,1,57)
(2,0,6,21,0,296,4,4,59) (2,0,6,21,0,380,4,4,59) (2,0,6,21,1,296,2,2,57) (2,0,6,21,1,380,2,2,57)
(2,0,6,30,0,296,2,2,58) (2,0,6,30,0,380,2,2,58) (2,0,6,30,1,296,2,2,57) (2,0,6,30,1,380,2,2,57)
(2,0,6,41,0,296,0,0,60) (2,0,6,41,0,380,0,0,60) (2,0,6,41,1,296,2,3,56) (2,0,6,41,1,380,2,3,56)
(2,0,7,0,0,296,0,0,58) (2,0,7,0,0,380,0,0,58) (2,0,7,0,1,296,1,7,52) (2,0,7,0,1,380,1,7,52)
(2,0,7,10,0,296,2,2,58) (2,0,7,10,0,380,2,2,58) (2,0,7,10,1,296,1,7,52) (2,0,7,10,1,380,1,7,52)
(2,0,7,21,0,296,0,0,58) (2,0,7,21,0,380,0,0,58) (2,0,7,21,1,296,2,10,52) (2,0,7,21,1,380,2,10,52)
(2,0,7,30,0,296,0,0,58) (2,0,7,30,0,380,0,0,58) (2,0,7,30,1,296,2,3,56) (2,0,7,30,1,380,2,3,56)
(2,0,7,41,0,296,0,0,58) (2,0,7,41,0,380,0,0,58) (2,0,7,41,1,296,2,8,52) (2,0,7,41,1,380,2,8,52)
(2,0,8,0,0,296,2,2,56) (2,0,8,0,0,380,2,2,56) (2,0,8,0,1,296,0,0,58) (2,0,8,0,1,380,0,0,58)
(2,0,8,10,0,296,1,1,57) (2,0,8,10,0,380,1,1,57) (2,0,8,10,1,296,1,5,56) (2,0,8,10,1,380,1,5,56)
(2,0,8,21,0,296,4,4,59) (2,0,8,21,0,380,4,4,59) (2,0,8,21,1,296,2,7,54) (2,0,8,21,1,380,2,7,54)
(2,0,8,30,0,296,1,1,60) (2,0,8,30,0,380,1,1,60) (2,0,8,30,1,296,2,6,55) (2,0,8,30,1,380,2,6,55)
(2,0,8,41,0,296,1,1,59) (2,0,8,41,0,380,1,1,59) (2,0,8,41,1,296,1,4,54) (2,0,8,41,1,380,1,4,54)
(2,0,9,0,0,296,4,5,57) (2,0,9,0,0,380,4,5,57) (2,0,9,0,1,296,4,6,54) (2,0,9,0,1,380,4,6,54)
(2,0,9,10,0,296,2,2,56) (2,0,9,10,0,380,2,2,56) (2,0,9,10,1,296,1,8,54) (2,0,9,10,1,380,1,8,54)
(2,0,9,21,0,296,1,1,60) (2,0,9,21,0,380,1,1,60) (2,0,9,21,1,296,1,4,56) (2,0,9,21,1,380,1,4,56)
(2,0,9,30,0,296,3,3,57) (2,0,9,30,0,380,3,3,57) (2,0,9,30,1,296,1,3,57) (2,0,9,30,1,380,1,3,57)
(2,0,9,41,0,296,3,3,56) (2,0,9,41,0,380,3,3,56) (2,0,9,41,1,296,2,10,50) (2,0,9,41,1,380,2,10,50)
(2,1,0,0,0,296,2,2,33) (2,1,0,0,0,380,2,2,33) (2,1,0,0,1,296,1,1,29) (2,1,0,0,1,380,1,1,29)
(2,1,0,10,0,296,1,1,31) (2,1,0,10,0,380,1,1,31) (2,1,0,10,1,296,2,2,28) (2,1,0,10,1,380,2,2,28)
(2,1,0,21,0,296,1,1,32) (2,1,0,21,0,380,1,1,32) (2,1,0,21,1,296,1,1,29) (2,1,0,21,1,380,1,1,29)
(2,1,0,30,0,296,1,1,31) (2,1,0,30,0,380,1,1,31) (2,1,0,30,1,296,1,1,29) (2,1,0,30,1,380,1,1,29)
(2,1,0,41,0,296,2,2,31) (2,1,0,41,0,380,2,2,31) (2,1,0,41,1,296,2,2,29) (2,1,0,41,1,380,2,2,29)
(2,1,1,0,0,296,0,0,31) (2,1,1,0,0,380,0,0,31) (2,1,1,0,1,296,3,3,29) (2,1,1,0,1,380,3,3,29)
(2,1,1,10,0,296,0,0,32) (2,1,1,10,0,380,0,0,32) (2,1,1,10,1,296,1,1,29) (2,1,1,10,1,380,1,1,29)
(2,1,1,21,0,296,1,1,31) (2,1,1,21,0,380,1,1,31) (2,1,1,21,1,296,2,2,29) (2,1,1,21,1,380,2,2,29)
(2,1,1,30,0,296,2,2,30) (2,1,1,30,0,380,2,2,30) (2,1,1,30,1,296,1,1,29) (2,1,1,30,1,380,1,1,29)
(2,1,1,41,0,296,1,1,33) (2,1,1,41,0,380,1,1,33) (2,1,1,41,1,296,1,1,29) (2,1,1,41,1,380,1,1,29)
(2,1,2,0,0,296,1,1,33) (2,1,2,0,0,380,1,1,33) (2,1,2,0,1,296,2,2,29) (2,1,2,0,1,380,2,2,29)
(2,1,2,10,0,296,1,1,32) (2,1,2,10,0,380,1,1,32) (2,1,2,10,1,296,2,2,29) (2,1,2,10,1,380,2,2,29)
(2,1,2,21,0,296,1,1,33) (2,1,2,21,0,380,1,1,33) (2,1,2,21,1,296,0,0,29) (2,1,2,21,1,380,0,0,29)
(2,1,2,30,0,296,1,1,33) (2,1,2,30,0,380,1,1,33) (2,1,2,30,1,296,1,1,29) (2,1,2,30,1,380,1,1,29)
(2,1,2,41,0,296,2,2,31) (2,1,2,41,0,380,2,2,31) (2,1,2,41,1,296,1,1,29) (2,1,2,41,1,380,1,1,29)
(2,1,3,0,0,296,2,2,33) (2,1,3,0,0,380,2,2,33) (2,1,3,0,1,296,3,3,28) (2,1,3,0,1,380,3,3,28)
(2,1,3,10,0,296,1,1,30) (2,1,3,10,0,380,1,1,30) (2,1,3,10,1,296,2,2,29) (2,1,3,10,1,380,2,2,29)
(2,1,3,21,0,296,1,1,32) (2,1,3,21,0,380,1,1,32) (2,1,3,21,1,296,1,1,29) (2,1,3,21,1,380,1,1,29)
(2,1,3,30,0,296,1,1,32) (2,1,3,30,0,380,1,1,32) (2,1,3,30,1,296,2,2,29) (2,1,3,30,1,380,2,2,29)
(2,1,3,41,0,296,1,1,31) (2,1,3,41,0,380,1,1,31) (2,1,3,41,1,296,2,2,29) (2,1,3,41,1,380,2,2,29)
(2,1,4,0,0,296,2,2,34) (2,1,4,0,0,380,2,2,34) (2,1,4,0,1,296,2,2,29) (2,1,4,0,1,380,2,2,29)
(2,1,4,10,0,296,2,2,31) (2,1,4,10,0,380,2,2,31) (2,1,4,10,1,296,2,2,29) (2,1,4,10,1,380,2,2,29)
(2,1,4,21,0,296,1,1,31) (2,1,4,21,0,380,1,1,31) (2,1,4,21,1,296,1,1,29) (2,1,4,21,1,380,1,1,29)
(2,1,4,30,0,296,3,3,32) (2,1,4,30,0,380,3,3,32) (2,1,4,30,1,296,2,2,28) (2,1,4,30,1,380,2,2,28)
(2,1,4,41,0,296,0,0,33) (2,1,4,41,0,380,0,0,33) (2,1,4,41,1,296,3,3,29) (2,1,4,41,1,380,3,3,29)
(2,1,5,0,0,296,1,1,32) (2,1,5,0,0,380,1,1,32) (2,1,5,0,1,296,1,1,29) (2,1,5,0,1,380,1,1,29)
(2,1,5,10,0,296,1,1,31) (2,1,5,10,0,380,1,1,31) (2,1,5,10,1,296,2,2,29) (2,1,5,10,1,380,2,2,29)
(2,1,5,21,0,296,1,1,31) (2,1,5,21,0,380,1,1,31) (2,1,5,21,1,296,2,2,29) (2,1,5,21,1,380,2,2,29)
(2,1,5,30,0,296,1,1,31) (2,1,5,30,0,380,1,1,31) (2,1,5,30,1,296,2,2,28) (2,1,5,30,1,380,2,2,28)
(2,1,5,41,0,296,1,1,31) (2,1,5,41,0,380,1,1,31) (2,1,5,41,1,296,1,1,29) (2,1,5,41,1,380,1,1,29)
(2,1,6,0,0,296,1,1,32) (2,1,6,0,0,380,1,1,32) (2,1,6,0,1,296,1,1,29) (2,1,6,0,1,380,1,1,29)
(2,1,6,10,0,296,3,3,32) (2,1,6,10,0,380,3,3,32) (2,1,6,10,1,296,2,2,29) (2,1,6,10,1,380,2,2,29)
(2,1,6,21,0,296,2,2,33) (2,1,6,21,0,380,2,2,33) (2,1,6,21,1,296,1,1,29) (2,1,6,21,1,380,1,1,29)
(2,1,6,30,0,296,1,2,32) (2,1,6,30,0,380,1,2,32) (2,1,6,30,1,296,1,1,29) (2,1,6,30,1,380,1,1,29)
(2,1,6,41,0,296,5,5,32) (2,1,6,41,0,380,5,5,32) (2,1,6,41,1,296,1,1,29) (2,1,6,41,1,380,1,1,29)
(2,1,7,0,0,296,2,3,33) (2,1,7,0,0,380,2,3,33) (2,1,7,0,1,296,0,0,29) (2,1,7,0,1,380,0,0,29)
(2,1,7,10,0,296,3,3,33) (2,1,7,10,0,380,3,3,33) (2,1,7,10,1,296,0,0,29) (2,1,7,10,1,380,0,0,29)
(2,1,7,21,0,296,3,3,33) (2,1,7,21,0,380,3,3,33) (2,1,7,21,1,296,2,2,29) (2,1,7,21,1,380,2,2,29)
(2,1,7,30,0,296,1,1,34) (2,1,7,30,0,380,1,1,34) (2,1,7,30,1,296,0,0,29) (2,1,7,30,1,380,0,0,29)
(2,1,7,41,0,296,1,1,34) (2,1,7,41,0,380,1,1,34) (2,1,7,41,1,296,1,1,29) (2,1,7,41,1,380,1,1,29)
(2,1,8,0,0,296,2,2,32) (2,1,8,0,0,380,2,2,32) (2,1,8,0,1,296,2,2,29) (2,1,8,0,1,380,2,2,29)
(2,1,8,10,0,296,1,1,31) (2,1,8,10,0,380,1,1,31) (2,1,8,10,1,296,1,1,29) (2,1,8,10,1,380,1,1,29)
(2,1,8,21,0,296,0,0,31) (2,1,8,21,0,380,0,0,31) (2,1,8,21,1,296,2,2,29) (2,1,8,21,1,380,2,2,29)
(2,1,8,30,0,296,3,3,33) (2,1,8,30,0,380,3,3,33) (2,1,8,30,1,296,1,1,29) (2,1,8,30,1,380,1,1,29)
(2,1,8,41,0,296,2,2,31) (2,1,8,41,0,380,2,2,31) (2,1,8,41,1,296,1,1,29) (2,1,8,41,1,380,1,1,29)
(2,1,9,0,0,296,3,3,32) (2,1,9,0,0,380,3,3,32) (2,1,9,0,1,296,2,2,29) (2,1,9,0,1,380,2,2,29)
(2,1,9,10,0,296,1,1,32) (2,1,9,10,0,380,1,1,32) (2,1,9,10,1,296,1,1,29) (2,1,9,10,1,380,1,1,29)
(2,1,9,21,0,296,1,1,31) (2,1,9,21,0,380,1,1,31) (2,1,9,21,1,296,1,1,29) (2,1,9,21,1,380,1,1,29)
(2,1,9,30,0,296,0,0,31) (2,1,9,30,0,380,0,0,31) (2,1,9,30,1,296,1,1,29) (2,1,9,30,1,380,1,1,29)
(2,1,9,41,0,296,1,1,31) (2,1,9,41,0,380,1,1,31) (2,1,9,41,1,296,1,1,29) (2,1,9,41,1,380,1,1,29)
(1,0,0,0,0,296,2,2,58) (1,0,0,0,0,380,2,2,58) (1,0,0,0,1,296,1,3,55) (1,0,0,0,1,380,1,3,55)
(1,0,0,10,0,296,0,0,58) (1,0,0,10,0,380,0,0,58) (1,0,0,10,1,296,1,1,56) (1,0,0,10,1,380,1,1,56)
(1,0,0,21,0,296,1,1,57) (1,0,0,21,0,380,1,1,57) (1,0,0,21,1,296,3,6,55) (1,0,0,21,1,380,3,6,55)
(1,0,0,30,0,296,3,4,55) (1,0,0,30,0,380,3,4,55) (1,0,0,30,1,296,1,1,56) (1,0,0,30,1,380,1,1,56)
(1,0,0,41,0,296,0,0,58) (1,0,0,41,0,380,0,0,58) (1,0,0,41,1,296,3,7,53) (1,0,0,41,1,380,3,7,53)
(1,0,1,0,0,296,1,1,58) (1,0,1,0,0,380,1,1,58) (1,0,1,0,1,296,1,9,55) (1,0,1,0,1,380,1,9,55)
(1,0,1,10,0,296,2,2,56) (1,0,1,10,0,380,2,2,56) (1,0,1,10,1,296,2,2,54) (1,0,1,10,1,380,2,2,54)
(1,0,1,21,0,296,2,3,56) (1,0,1,21,0,380,2,3,56) (1,0,1,21,1,296,2,7,54) (1,0,1,21,1,380,2,7,54)
(1,0,1,30,0,296,0,0,58) (1,0,1,30,0,380,0,0,58) (1,0,1,30,1,296,1,2,55) (1,0,1,30,1,380,1,2,55)
(1,0,1,41,0,296,2,5,55) (1,0,1,41,0,380,2,5,55) (1,0,1,41,1,296,2,2,56) (1,0,1,41,1,380,2,2,56)
(1,0,2,0,0,296,1,2,57) (1,0,2,0,0,380,1,2,57) (1,0,2,0,1,296,2,7,55) (1,0,2,0,1,380,2,7,55)
(1,0,2,10,0,296,2,6,57) (1,0,2,10,0,380,2,6,57) (1,0,2,10,1,296,1,2,54) (1,0,2,10,1,380,1,2,54)
(1,0,2,21,0,296,1,1,58) (1,0,2,21,0,380,1,1,58) (1,0,2,21,1,296,2,4,55) (1,0,2,21,1,380,2,4,55)
(1,0,2,30,0,296,1,1,57) (1,0,2,30,0,380,1,1,57) (1,0,2,30,1,296,2,6,53) (1,0,2,30,1,380,2,6,53)
(1,0,2,41,0,296,1,2,56) (1,0,2,41,0,380,1,2,56) (1,0,2,41,1,296,2,3,55) (1,0,2,41,1,380,2,3,55)
(1,0,3,0,0,296,2,3,56) (1,0,3,0,0,380,2,3,56) (1,0,3,0,1,296,2,2,54) (1,0,3,0,1,380,2,2,54)
(1,0,3,10,0,296,1,2,57) (1,0,3,10,0,380,1,2,57) (1,0,3,10,1,296,1,2,56) (1,0,3,10,1,380,1,2,56)
(1,0,3,21,0,296,3,7,56) (1,0,3,21,0,380,3,7,56) (1,0,3,21,1,296,3,4,54) (1,0,3,21,1,380,3,4,54)
(1,0,3,30,0,296,1,1,57) (1,0,3,30,0,380,1,1,57) (1,0,3,30,1,296,1,2,57) (1,0,3,30,1,380,1,2,57)
(1,0,3,41,0,296,3,4,56) (1,0,3,41,0,380,3,4,56) (1,0,3,41,1,296,2,3,54) (1,0,3,41,1,380,2,3,54)
(1,0,4,0,0,296,2,4,56) (1,0,4,0,0,380,2,4,56) (1,0,4,0,1,296,2,2,54) (1,0,4,0,1,380,2,2,54)
(1,0,4,10,0,296,3,4,56) (1,0,4,10,0,380,3,4,56) (1,0,4,10,1,296,1,1,56) (1,0,4,10,1,380,1,1,56)
(1,0,4,21,0,296,1,1,57) (1,0,4,21,0,380,1,1,57) (1,0,4,21,1,296,1,1,55) (1,0,4,21,1,380,1,1,55)
(1,0,4,30,0,296,1,1,58) (1,0,4,30,0,380,1,1,58) (1,0,4,30,1,296,0,0,56) (1,0,4,30,1,380,0,0,56)
(1,0,4,41,0,296,1,2,57) (1,0,4,41,0,380,1,2,57) (1,0,4,41,1,296,3,3,58) (1,0,4,41,1,380,3,3,58)
(1,0,5,0,0,296,5,7,54) (1,0,5,0,0,380,5,7,54) (1,0,5,0,1,296,0,0,56) (1,0,5,0,1,380,0,0,56)
(1,0,5,10,0,296,6,6,56) (1,0,5,10,0,380,6,6,56) (1,0,5,10,1,296,1,1,57) (1,0,5,10,1,380,1,1,57)
(1,0,5,21,0,296,5,7,57) (1,0,5,21,0,380,5,7,57) (1,0,5,21,1,296,2,2,56) (1,0,5,21,1,380,2,2,56)
(1,0,5,30,0,296,0,0,58) (1,0,5,30,0,380,0,0,58) (1,0,5,30,1,296,2,2,56) (1,0,5,30,1,380,2,2,56)
(1,0,5,41,0,296,2,3,57) (1,0,5,41,0,380,2,3,57) (1,0,5,41,1,296,0,0,56) (1,0,5,41,1,380,0,0,56)
(1,0,6,0,0,296,3,6,55) (1,0,6,0,0,380,3,6,55) (1,0,6,0,1,296,2,4,56) (1,0,6,0,1,380,2,4,56)
(1,0,6,10,0,296,0,0,58) (1,0,6,10,0,380,0,0,58) (1,0,6,10,1,296,1,6,52) (1,0,6,10,1,380,1,6,52)
(1,0,6,21,0,296,2,2,56) (1,0,6,21,0,380,2,2,56) (1,0,6,21,1,296,2,4,57) (1,0,6,21,1,380,2,4,57)
(1,0,6,30,0,296,1,1,57) (1,0,6,30,0,380,1,1,57) (1,0,6,30,1,296,2,2,56) (1,0,6,30,1,380,2,2,56)
(1,0,6,41,0,296,1,6,53) (1,0,6,41,0,380,1,6,53) (1,0,6,41,1,296,2,6,58) (1,0,6,41,1,380,2,6,58)
(1,0,7,0,0,296,2,9,51) (1,0,7,0,0,380,2,9,51) (1,0,7,0,1,296,1,2,57) (1,0,7,0,1,380,1,2,57)
(1,0,7,10,0,296,3,6,54) (1,0,7,10,0,380,3,6,54) (1,0,7,10,1,296,2,6,55) (1,0,7,10,1,380,2,6,55)
(1,0,7,21,0,296,1,1,58) (1,0,7,21,0,380,1,1,58) (1,0,7,21,1,296,1,6,56) (1,0,7,21,1,380,1,6,56)
(1,0,7,30,0,296,1,1,57) (1,0,7,30,0,380,1,1,57) (1,0,7,30,1,296,0,0,58) (1,0,7,30,1,380,0,0,58)
(1,0,7,41,0,296,2,6,55) (1,0,7,41,0,380,2,6,55) (1,0,7,41,1,296,1,5,54) (1,0,7,41,1,380,1,5,54)
(1,0,8,0,0,296,1,15,49) (1,0,8,0,0,380,1,15,49) (1,0,8,0,1,296,2,4,57) (1,0,8,0,1,380,2,4,57)
(1,0,8,10,0,296,2,3,57) (1,0,8,10,0,380,2,3,57) (1,0,8,10,1,296,1,12,46) (1,0,8,10,1,380,1,12,46)
(1,0,8,21,0,296,2,9,53) (1,0,8,21,0,380,2,9,53) (1,0,8,21,1,296,1,5,55) (1,0,8,21,1,380,1,5,55)
(1,0,8,30,0,296,0,0,58) (1,0,8,30,0,380,0,0,58) (1,0,8,30,1,296,3,3,56) (1,0,8,30,1,380,3,3,56)
(1,0,8,41,0,296,3,7,55) (1,0,8,41,0,380,3,7,55) (1,0,8,41,1,296,2,8,55) (1,0,8,41,1,380,2,8,55)
(1,0,9,0,0,296,2,9,53) (1,0,9,0,0,380,2,9,53) (1,0,9,0,1,296,1,2,55) (1,0,9,0,1,380,1,2,55)
(1,0,9,10,0,296,2,9,53) (1,0,9,10,0,380,2,9,53) (1,0,9,10,1,296,3,4,53) (1,0,9,10,1,380,3,4,53)
(1,0,9,21,0,296,1,2,57) (1,0,9,21,0,380,1,2,57) (1,0,9,21,1,296,1,5,55) (1,0,9,21,1,380,1,5,55)
(1,0,9,30,0,296,2,9,53) (1,0,9,30,0,380,2,9,53) (1,0,9,30,1,296,4,7,52) (1,0,9,30,1,380,4,7,52)
(1,0,9,41,0,296,2,15,51) (1,0,9,41,0,380,2,15,51) (1,0,9,41,1,296,1,9,50) (1,0,9,41,1,380,1,9,50)
(1,1,0,0,0,296,2,2,29) (1,1,0,0,0,380,2,2,29) (1,1,0,0,1,296,1,1,29) (1,1,0,0,1,380,1,1,29)
(1,1,0,10,0,296,1,1,29) (1,1,0,10,0,380,1,1,29) (1,1,0,10,1,296,2,3,28) (1,1,0,10,1,380,2,3,28)
(1,1,0,21,0,296,2,2,29) (1,1,0,21,0,380,2,2,29) (1,1,0,21,1,296,2,2,29) (1,1,0,21,1,380,2,2,29)
(1,1,0,30,0,296,2,2,29) (1,1,0,30,0,380,2,2,29) (1,1,0,30,1,296,2,2,29) (1,1,0,30,1,380,2,2,29)
(1,1,0,41,0,296,1,1,29) (1,1,0,41,0,380,1,1,29) (1,1,0,41,1,296,1,1,29) (1,1,0,41,1,380,1,1,29)
(1,1,1,0,0,296,1,1,29) (1,1,1,0,0,380,1,1,29) (1,1,1,0,1,296,1,1,28) (1,1,1,0,1,380,1,1,28)
(1,1,1,10,0,296,2,2,29) (1,1,1,10,0,380,2,2,29) (1,1,1,10,1,296,2,5,29) (1,1,1,10,1,380,2,5,29)
(1,1,1,21,0,296,1,1,30) (1,1,1,21,0,380,1,1,30) (1,1,1,21,1,296,2,9,29) (1,1,1,21,1,380,2,9,29)
(1,1,1,30,0,296,3,3,29) (1,1,1,30,0,380,3,3,29) (1,1,1,30,1,296,2,3,29) (1,1,1,30,1,380,2,3,29)
(1,1,1,41,0,296,1,1,29) (1,1,1,41,0,380,1,1,29) (1,1,1,41,1,296,1,1,29) (1,1,1,41,1,380,1,1,29)
(1,1,2,0,0,296,2,2,29) (1,1,2,0,0,380,2,2,29) (1,1,2,0,1,296,2,2,29) (1,1,2,0,1,380,2,2,29)
(1,1,2,10,0,296,2,2,29) (1,1,2,10,0,380,2,2,29) (1,1,2,10,1,296,2,2,29) (1,1,2,10,1,380,2,2,29)
(1,1,2,21,0,296,2,2,29) (1,1,2,21,0,380,2,2,29) (1,1,2,21,1,296,2,2,29) (1,1,2,21,1,380,2,2,29)
(1,1,2,30,0,296,2,2,29) (1,1,2,30,0,380,2,2,29) (1,1,2,30,1,296,2,4,29) (1,1,2,30,1,380,2,4,29)
(1,1,2,41,0,296,3,3,29) (1,1,2,41,0,380,3,3,29) (1,1,2,41,1,296,1,1,28) (1,1,2,41,1,380,1,1,28)
(1,1,3,0,0,296,2,2,29) (1,1,3,0,0,380,2,2,29) (1,1,3,0,1,296,2,5,29) (1,1,3,0,1,380,2,5,29)
(1,1,3,10,0,296,1,1,29) (1,1,3,10,0,380,1,1,29) (1,1,3,10,1,296,2,3,28) (1,1,3,10,1,380,2,3,28)
(1,1,3,21,0,296,1,1,30) (1,1,3,21,0,380,1,1,30) (1,1,3,21,1,296,1,1,28) (1,1,3,21,1,380,1,1,28)
(1,1,3,30,0,296,1,1,29) (1,1,3,30,0,380,1,1,29) (1,1,3,30,1,296,2,4,29) (1,1,3,30,1,380,2,4,29)
(1,1,3,41,0,296,2,2,30) (1,1,3,41,0,380,2,2,30) (1,1,3,41,1,296,2,4,29) (1,1,3,41,1,380,2,4,29)
(1,1,4,0,0,296,1,1,30) (1,1,4,0,0,380,1,1,30) (1,1,4,0,1,296,3,3,28) (1,1,4,0,1,380,3,3,28)
(1,1,4,10,0,296,2,2,30) (1,1,4,10,0,380,2,2,30) (1,1,4,10,1,296,2,2,29) (1,1,4,10,1,380,2,2,29)
(1,1,4,21,0,296,1,1,29) (1,1,4,21,0,380,1,1,29) (1,1,4,21,1,296,1,1,28) (1,1,4,21,1,380,1,1,28)
(1,1,4,30,0,296,2,2,29) (1,1,4,30,0,380,2,2,29) (1,1,4,30,1,296,2,2,29) (1,1,4,30,1,380,2,2,29)
(1,1,4,41,0,296,3,3,29) (1,1,4,41,0,380,3,3,29) (1,1,4,41,1,296,1,1,29) (1,1,4,41,1,380,1,1,29)
(1,1,5,0,0,296,2,2,30) (1,1,5,0,0,380,2,2,30) (1,1,5,0,1,296,1,1,29) (1,1,5,0,1,380,1,1,29)
(1,1,5,10,0,296,2,2,29) (1,1,5,10,0,380,2,2,29) (1,1,5,10,1,296,1,1,29) (1,1,5,10,1,380,1,1,29)
(1,1,5,21,0,296,2,2,30) (1,1,5,21,0,380,2,2,30) (1,1,5,21,1,296,1,1,28) (1,1,5,21,1,380,1,1,28)
(1,1,5,30,0,296,1,1,30) (1,1,5,30,0,380,1,1,30) (1,1,5,30,1,296,1,1,29) (1,1,5,30,1,380,1,1,29)
(1,1,5,41,0,296,1,1,29) (1,1,5,41,0,380,1,1,29) (1,1,5,41,1,296,1,1,29) (1,1,5,41,1,380,1,1,29)
(1,1,6,0,0,296,2,2,30) (1,1,6,0,0,380,2,2,30) (1,1,6,0,1,296,3,3,29) (1,1,6,0,1,380,3,3,29)
(1,1,6,10,0,296,1,1,30) (1,1,6,10,0,380,1,1,30) (1,1,6,10,1,296,3,4,28) (1,1,6,10,1,380,3,4,28)
(1,1,6,21,0,296,2,2,30) (1,1,6,21,0,380,2,2,30) (1,1,6,21,1,296,2,6,29) (1,1,6,21,1,380,2,6,29)
(1,1,6,30,0,296,1,1,30) (1,1,6,30,0,380,1,1,30) (1,1,6,30,1,296,2,2,29) (1,1,6,30,1,380,2,2,29)
(1,1,6,41,0,296,1,1,30) (1,1,6,41,0,380,1,1,30) (1,1,6,41,1,296,2,2,29) (1,1,6,41,1,380,2,2,29)
(1,1,7,0,0,296,1,1,29) (1,1,7,0,0,380,1,1,29) (1,1,7,0,1,296,2,6,29) (1,1,7,0,1,380,2,6,29)
(1,1,7,10,0,296,1,1,29) (1,1,7,10,0,380,1,1,29) (1,1,7,10,1,296,2,2,29) (1,1,7,10,1,380,2,2,29)
(1,1,7,21,0,296,1,1,29) (1,1,7,21,0,380,1,1,29) (1,1,7,21,1,296,2,5,29) (1,1,7,21,1,380,2,5,29)
(1,1,7,30,0,296,1,1,29) (1,1,7,30,0,380,1,1,29) (1,1,7,30,1,296,2,4,29) (1,1,7,30,1,380,2,4,29)
(1,1,7,41,0,296,1,1,29) (1,1,7,41,0,380,1,1,29) (1,1,7,41,1,296,2,3,29) (1,1,7,41,1,380,2,3,29)
(1,1,8,0,0,296,2,2,29) (1,1,8,0,0,380,2,2,29) (1,1,8,0,1,296,1,1,29) (1,1,8,0,1,380,1,1,29)
(1,1,8,10,0,296,2,2,29) (1,1,8,10,0,380,2,2,29) (1,1,8,10,1,296,2,5,28) (1,1,8,10,1,380,2,5,28)
(1,1,8,21,0,296,2,2,30) (1,1,8,21,0,380,2,2,30) (1,1,8,21,1,296,2,4,29) (1,1,8,21,1,380,2,4,29)
(1,1,8,30,0,296,1,1,29) (1,1,8,30,0,380,1,1,29) (1,1,8,30,1,296,2,6,28) (1,1,8,30,1,380,2,6,28)
(1,1,8,41,0,296,2,2,30) (1,1,8,41,0,380,2,2,30) (1,1,8,41,1,296,2,4,29) (1,1,8,41,1,380,2,4,29)
(1,1,9,0,0,296,2,2,29) (1,1,9,0,0,380,2,2,29) (1,1,9,0,1,296,2,8,29) (1,1,9,0,1,380,2,8,29)
(1,1,9,10,0,296,2,2,29) (1,1,9,10,0,380,2,2,29) (1,1,9,10,1,296,2,5,29) (1,1,9,10,1,380,2,5,29)
(1,1,9,21,0,296,1,1,30) (1,1,9,21,0,380,1,1,30) (1,1,9,21,1,296,2,2,28) (1,1,9,21,1,380,2,2,28)
(1,1,9,30,0,296,2,2,30) (1,1,9,30,0,380,2,2,30) (1,1,9,30,1,296,2,3,29) (1,1,9,30,1,380,2,3,29)
(1,1,9,41,0,296,1,1,29) (1,1,9,41,0,380,1,1,29) (1,1,9,41,1,296,2,7,28) (1,1,9,41,1,380,2,7,28)
⟨1⟩ ⟨2⟩ 0.⟨3⟩ ⟨4⟩ ⟨5⟩ ⟨6⟩ 0 ⟨7⟩ ⟨8⟩ ⟨9⟩ ×800
⟨⟩ = (0,0,0,0,0,296,2,5,55) (0,0,0,0,0,380,2,5,55) (0,0,0,0,1,296,2,4,54) (0,0,0,0,1,380,2,4,54)
(0,0,0,10,0,296,0,0,58) (0,0,0,10,0,380,0,0,58) (0,0,0,10,1,296,1,1,56) (0,0,0,10,1,380,1,1,56)
(0,0,0,21,0,296,1,1,57) (0,0,0,21,0,380,1,1,57) (0,0,0,21,1,296,0,0,56) (0,0,0,21,1,380,0,0,56)
(0,0,0,30,0,296,3,4,56) (0,0,0,30,0,380,3,4,56) (0,0,0,30,1,296,1,1,58) (0,0,0,30,1,380,1,1,58)
(0,0,0,41,0,296,1,1,57) (0,0,0,41,0,380,1,1,57) (0,0,0,41,1,296,1,1,58) (0,0,0,41,1,380,1,1,58)
(0,0,1,0,0,296,1,5,56) (0,0,1,0,0,380,1,5,56) (0,0,1,0,1,296,1,1,57) (0,0,1,0,1,380,1,1,57)
(0,0,1,10,0,296,2,7,53) (0,0,1,10,0,380,2,7,53) (0,0,1,10,1,296,1,2,58) (0,0,1,10,1,380,1,2,58)
(0,0,1,21,0,296,0,0,58) (0,0,1,21,0,380,0,0,58) (0,0,1,21,1,296,1,1,57) (0,0,1,21,1,380,1,1,57)
(0,0,1,30,0,296,3,3,57) (0,0,1,30,0,380,3,3,57) (0,0,1,30,1,296,1,1,55) (0,0,1,30,1,380,1,1,55)
(0,0,1,41,0,296,1,1,58) (0,0,1,41,0,380,1,1,58) (0,0,1,41,1,296,1,1,56) (0,0,1,41,1,380,1,1,56)
(0,0,2,0,0,296,1,2,56) (0,0,2,0,0,380,1,2,56) (0,0,2,0,1,296,0,0,58) (0,0,2,0,1,380,0,0,58)
(0,0,2,10,0,296,2,3,57) (0,0,2,10,0,380,2,3,57) (0,0,2,10,1,296,2,6,54) (0,0,2,10,1,380,2,6,54)
(0,0,2,21,0,296,4,8,53) (0,0,2,21,0,380,4,8,53) (0,0,2,21,1,296,2,2,57) (0,0,2,21,1,380,2,2,57)
(0,0,2,30,0,296,1,4,55) (0,0,2,30,0,380,1,4,55) (0,0,2,30,1,296,1,2,56) (0,0,2,30,1,380,1,2,56)
(0,0,2,41,0,296,0,0,58) (0,0,2,41,0,380,0,0,58) (0,0,2,41,1,296,3,3,56) (0,0,2,41,1,380,3,3,56)
(0,0,3,0,0,296,1,4,57) (0,0,3,0,0,380,1,4,57) (0,0,3,0,1,296,4,4,57) (0,0,3,0,1,380,4,4,57)
(0,0,3,10,0,296,0,0,56) (0,0,3,10,0,380,0,0,56) (0,0,3,10,1,296,1,1,56) (0,0,3,10,1,380,1,1,56)
(0,0,3,21,0,296,3,4,56) (0,0,3,21,0,380,3,4,56) (0,0,3,21,1,296,1,1,58) (0,0,3,21,1,380,1,1,58)
(0,0,3,30,0,296,2,2,56) (0,0,3,30,0,380,2,2,56) (0,0,3,30,1,296,2,3,55) (0,0,3,30,1,380,2,3,55)
(0,0,3,41,0,296,2,3,55) (0,0,3,41,0,380,2,3,55) (0,0,3,41,1,296,4,4,56) (0,0,3,41,1,380,4,4,56)
(0,0,4,0,0,296,1,3,57) (0,0,4,0,0,380,1,3,57) (0,0,4,0,1,296,1,1,55) (0,0,4,0,1,380,1,1,55)
(0,0,4,10,0,296,1,1,57) (0,0,4,10,0,380,1,1,57) (0,0,4,10,1,296,2,2,55) (0,0,4,10,1,380,2,2,55)
(0,0,4,21,0,296,1,1,57) (0,0,4,21,0,380,1,1,57) (0,0,4,21,1,296,0,0,56) (0,0,4,21,1,380,0,0,56)
(0,0,4,30,0,296,2,2,58) (0,0,4,30,0,380,2,2,58) (0,0,4,30,1,296,0,0,58) (0,0,4,30,1,380,0,0,58)
(0,0,4,41,0,296,3,4,54) (0,0,4,41,0,380,3,4,54) (0,0,4,41,1,296,0,0,58) (0,0,4,41,1,380,0,0,58)
(0,0,5,0,0,296,1,1,57) (0,0,5,0,0,380,1,1,57) (0,0,5,0,1,296,2,2,57) (0,0,5,0,1,380,2,2,57)
(0,0,5,10,0,296,2,2,57) (0,0,5,10,0,380,2,2,57) (0,0,5,10,1,296,4,5,56) (0,0,5,10,1,380,4,5,56)
(0,0,5,21,0,296,2,2,57) (0,0,5,21,0,380,2,2,57) (0,0,5,21,1,296,4,4,55) (0,0,5,21,1,380,4,4,55)
(0,0,5,30,0,296,2,3,58) (0,0,5,30,0,380,2,3,58) (0,0,5,30,1,296,4,4,55) (0,0,5,30,1,380,4,4,55)
(0,0,5,41,0,296,2,2,56) (0,0,5,41,0,380,2,2,56) (0,0,5,41,1,296,4,4,57) (0,0,5,41,1,380,4,4,57)
(0,0,6,0,0,296,2,7,57) (0,0,6,0,0,380,2,7,57) (0,0,6,0,1,296,3,3,57) (0,0,6,0,1,380,3,3,57)
(0,0,6,10,0,296,1,1,57) (0,0,6,10,0,380,1,1,57) (0,0,6,10,1,296,2,2,55) (0,0,6,10,1,380,2,2,55)
(0,0,6,21,0,296,0,0,58) (0,0,6,21,0,380,0,0,58) (0,0,6,21,1,296,3,4,58) (0,0,6,21,1,380,3,4,58)
(0,0,6,30,0,296,1,2,57) (0,0,6,30,0,380,1,2,57) (0,0,6,30,1,296,4,4,56) (0,0,6,30,1,380,4,4,56)
(0,0,6,41,0,296,0,0,58) (0,0,6,41,0,380,0,0,58) (0,0,6,41,1,296,2,2,55) (0,0,6,41,1,380,2,2,55)
(0,0,7,0,0,296,1,10,53) (0,0,7,0,0,380,1,10,53) (0,0,7,0,1,296,0,0,58) (0,0,7,0,1,380,0,0,58)
(0,0,7,10,0,296,1,2,57) (0,0,7,10,0,380,1,2,57) (0,0,7,10,1,296,0,0,58) (0,0,7,10,1,380,0,0,58)
(0,0,7,21,0,296,2,7,54) (0,0,7,21,0,380,2,7,54) (0,0,7,21,1,296,0,0,58) (0,0,7,21,1,380,0,0,58)
(0,0,7,30,0,296,0,0,58) (0,0,7,30,0,380,0,0,58) (0,0,7,30,1,296,2,2,57) (0,0,7,30,1,380,2,2,57)
(0,0,7,41,0,296,1,5,55) (0,0,7,41,0,380,1,5,55) (0,0,7,41,1,296,0,0,58) (0,0,7,41,1,380,0,0,58)
(0,0,8,0,0,296,2,9,53) (0,0,8,0,0,380,2,9,53) (0,0,8,0,1,296,0,0,56) (0,0,8,0,1,380,0,0,56)
(0,0,8,10,0,296,1,3,57) (0,0,8,10,0,380,1,3,57) (0,0,8,10,1,296,2,4,55) (0,0,8,10,1,380,2,4,55)
(0,0,8,21,0,296,1,7,56) (0,0,8,21,0,380,1,7,56) (0,0,8,21,1,296,0,0,56) (0,0,8,21,1,380,0,0,56)
(0,0,8,30,0,296,0,0,58) (0,0,8,30,0,380,0,0,58) (0,0,8,30,1,296,0,0,58) (0,0,8,30,1,380,0,0,58)
(0,0,8,41,0,296,2,6,55) (0,0,8,41,0,380,2,6,55) (0,0,8,41,1,296,0,0,58) (0,0,8,41,1,380,0,0,58)
(0,0,9,0,0,296,1,5,55) (0,0,9,0,0,380,1,5,55) (0,0,9,0,1,296,1,1,55) (0,0,9,0,1,380,1,1,55)
(0,0,9,10,0,296,3,3,57) (0,0,9,10,0,380,3,3,57) (0,0,9,10,1,296,1,1,55) (0,0,9,10,1,380,1,1,55)
(0,0,9,21,0,296,1,1,58) (0,0,9,21,0,380,1,1,58) (0,0,9,21,1,296,1,1,55) (0,0,9,21,1,380,1,1,55)
(0,0,9,30,0,296,1,1,58) (0,0,9,30,0,380,1,1,58) (0,0,9,30,1,296,1,1,55) (0,0,9,30,1,380,1,1,55)
(0,0,9,41,0,296,1,10,51) (0,0,9,41,0,380,1,10,51) (0,0,9,41,1,296,2,2,57) (0,0,9,41,1,380,2,2,57)
(0,1,0,0,0,296,1,1,29) (0,1,0,0,0,380,1,1,29) (0,1,0,0,1,296,1,1,29) (0,1,0,0,1,380,1,1,29)
(0,1,0,10,0,296,1,1,29) (0,1,0,10,0,380,1,1,29) (0,1,0,10,1,296,1,1,28) (0,1,0,10,1,380,1,1,28)
(0,1,0,21,0,296,1,1,29) (0,1,0,21,0,380,1,1,29) (0,1,0,21,1,296,1,1,28) (0,1,0,21,1,380,1,1,28)
(0,1,0,30,0,296,3,3,29) (0,1,0,30,0,380,3,3,29) (0,1,0,30,1,296,1,1,28) (0,1,0,30,1,380,1,1,28)
(0,1,0,41,0,296,1,1,29) (0,1,0,41,0,380,1,1,29) (0,1,0,41,1,296,1,1,29) (0,1,0,41,1,380,1,1,29)
(0,1,1,0,0,296,1,1,29) (0,1,1,0,0,380,1,1,29) (0,1,1,0,1,296,1,1,29) (0,1,1,0,1,380,1,1,29)
(0,1,1,10,0,296,3,3,29) (0,1,1,10,0,380,3,3,29) (0,1,1,10,1,296,2,2,28) (0,1,1,10,1,380,2,2,28)
(0,1,1,21,0,296,2,5,29) (0,1,1,21,0,380,2,5,29) (0,1,1,21,1,296,2,2,29) (0,1,1,21,1,380,2,2,29)
(0,1,1,30,0,296,1,1,29) (0,1,1,30,0,380,1,1,29) (0,1,1,30,1,296,1,1,29) (0,1,1,30,1,380,1,1,29)
(0,1,1,41,0,296,2,5,29) (0,1,1,41,0,380,2,5,29) (0,1,1,41,1,296,1,1,28) (0,1,1,41,1,380,1,1,28)
(0,1,2,0,0,296,2,4,29) (0,1,2,0,0,380,2,4,29) (0,1,2,0,1,296,2,2,29) (0,1,2,0,1,380,2,2,29)
(0,1,2,10,0,296,1,1,29) (0,1,2,10,0,380,1,1,29) (0,1,2,10,1,296,2,2,29) (0,1,2,10,1,380,2,2,29)
(0,1,2,21,0,296,1,1,29) (0,1,2,21,0,380,1,1,29) (0,1,2,21,1,296,3,4,28) (0,1,2,21,1,380,3,4,28)
(0,1,2,30,0,296,1,1,29) (0,1,2,30,0,380,1,1,29) (0,1,2,30,1,296,2,2,29) (0,1,2,30,1,380,2,2,29)
(0,1,2,41,0,296,2,3,29) (0,1,2,41,0,380,2,3,29) (0,1,2,41,1,296,3,3,29) (0,1,2,41,1,380,3,3,29)
(0,1,3,0,0,296,2,3,29) (0,1,3,0,0,380,2,3,29) (0,1,3,0,1,296,2,2,29) (0,1,3,0,1,380,2,2,29)
(0,1,3,10,0,296,2,3,29) (0,1,3,10,0,380,2,3,29) (0,1,3,10,1,296,1,1,28) (0,1,3,10,1,380,1,1,28)
(0,1,3,21,0,296,2,4,29) (0,1,3,21,0,380,2,4,29) (0,1,3,21,1,296,3,3,29) (0,1,3,21,1,380,3,3,29)
(0,1,3,30,0,296,1,1,29) (0,1,3,30,0,380,1,1,29) (0,1,3,30,1,296,2,2,29) (0,1,3,30,1,380,2,2,29)
(0,1,3,41,0,296,1,1,29) (0,1,3,41,0,380,1,1,29) (0,1,3,41,1,296,1,1,29) (0,1,3,41,1,380,1,1,29)
(0,1,4,0,0,296,2,2,29) (0,1,4,0,0,380,2,2,29) (0,1,4,0,1,296,1,1,29) (0,1,4,0,1,380,1,1,29)
(0,1,4,10,0,296,2,2,29) (0,1,4,10,0,380,2,2,29) (0,1,4,10,1,296,1,1,28) (0,1,4,10,1,380,1,1,28)
(0,1,4,21,0,296,1,1,29) (0,1,4,21,0,380,1,1,29) (0,1,4,21,1,296,2,2,28) (0,1,4,21,1,380,2,2,28)
(0,1,4,30,0,296,1,1,29) (0,1,4,30,0,380,1,1,29) (0,1,4,30,1,296,1,1,28) (0,1,4,30,1,380,1,1,28)
(0,1,4,41,0,296,2,3,29) (0,1,4,41,0,380,2,3,29) (0,1,4,41,1,296,1,1,29) (0,1,4,41,1,380,1,1,29)
(0,1,5,0,0,296,2,2,29) (0,1,5,0,0,380,2,2,29) (0,1,5,0,1,296,1,1,28) (0,1,5,0,1,380,1,1,28)
(0,1,5,10,0,296,2,2,29) (0,1,5,10,0,380,2,2,29) (0,1,5,10,1,296,1,1,28) (0,1,5,10,1,380,1,1,28)
(0,1,5,21,0,296,2,2,29) (0,1,5,21,0,380,2,2,29) (0,1,5,21,1,296,1,1,28) (0,1,5,21,1,380,1,1,28)
(0,1,5,30,0,296,1,1,29) (0,1,5,30,0,380,1,1,29) (0,1,5,30,1,296,2,2,29) (0,1,5,30,1,380,2,2,29)
(0,1,5,41,0,296,2,2,29) (0,1,5,41,0,380,2,2,29) (0,1,5,41,1,296,1,1,28) (0,1,5,41,1,380,1,1,28)
(0,1,6,0,0,296,2,3,29) (0,1,6,0,0,380,2,3,29) (0,1,6,0,1,296,1,1,28) (0,1,6,0,1,380,1,1,28)
(0,1,6,10,0,296,1,1,29) (0,1,6,10,0,380,1,1,29) (0,1,6,10,1,296,1,1,29) (0,1,6,10,1,380,1,1,29)
(0,1,6,21,0,296,2,2,29) (0,1,6,21,0,380,2,2,29) (0,1,6,21,1,296,1,1,29) (0,1,6,21,1,380,1,1,29)
(0,1,6,30,0,296,2,2,29) (0,1,6,30,0,380,2,2,29) (0,1,6,30,1,296,2,2,28) (0,1,6,30,1,380,2,2,28)
(0,1,6,41,0,296,2,9,29) (0,1,6,41,0,380,2,9,29) (0,1,6,41,1,296,1,1,29) (0,1,6,41,1,380,1,1,29)
(0,1,7,0,0,296,2,4,29) (0,1,7,0,0,380,2,4,29) (0,1,7,0,1,296,1,1,29) (0,1,7,0,1,380,1,1,29)
(0,1,7,10,0,296,2,2,29) (0,1,7,10,0,380,2,2,29) (0,1,7,10,1,296,1,1,29) (0,1,7,10,1,380,1,1,29)
(0,1,7,21,0,296,2,2,29) (0,1,7,21,0,380,2,2,29) (0,1,7,21,1,296,1,1,29) (0,1,7,21,1,380,1,1,29)
(0,1,7,30,0,296,1,1,29) (0,1,7,30,0,380,1,1,29) (0,1,7,30,1,296,1,1,29) (0,1,7,30,1,380,1,1,29)
(0,1,7,41,0,296,2,4,29) (0,1,7,41,0,380,2,4,29) (0,1,7,41,1,296,1,1,29) (0,1,7,41,1,380,1,1,29)
(0,1,8,0,0,296,2,5,29) (0,1,8,0,0,380,2,5,29) (0,1,8,0,1,296,2,2,28) (0,1,8,0,1,380,2,2,28)
(0,1,8,10,0,296,2,3,29) (0,1,8,10,0,380,2,3,29) (0,1,8,10,1,296,3,3,28) (0,1,8,10,1,380,3,3,28)
(0,1,8,21,0,296,2,9,29) (0,1,8,21,0,380,2,9,29) (0,1,8,21,1,296,2,4,29) (0,1,8,21,1,380,2,4,29)
(0,1,8,30,0,296,1,1,29) (0,1,8,30,0,380,1,1,29) (0,1,8,30,1,296,1,1,29) (0,1,8,30,1,380,1,1,29)
(0,1,8,41,0,296,2,4,29) (0,1,8,41,0,380,2,4,29) (0,1,8,41,1,296,2,2,29) (0,1,8,41,1,380,2,2,29)
(0,1,9,0,0,296,2,5,29) (0,1,9,0,0,380,2,5,29) (0,1,9,0,1,296,2,2,29) (0,1,9,0,1,380,2,2,29)
(0,1,9,10,0,296,2,2,29) (0,1,9,10,0,380,2,2,29) (0,1,9,10,1,296,1,1,29) (0,1,9,10,1,380,1,1,29)
(0,1,9,21,0,296,2,2,29) (0,1,9,21,0,380,2,2,29) (0,1,9,21,1,296,2,2,29) (0,1,9,21,1,380,2,2,29)
(0,1,9,30,0,296,2,4,29) (0,1,9,30,0,380,2,4,29) (0,1,9,30,1,296,1,1,29) (0,1,9,30,1,380,1,1,29)
(0,1,9,41,0,296,2,7,29) (0,1,9,41,0,380,2,7,29) (0,1,9,41,1,296,2,2,29) (0,1,9,41,1,380,2,2,29)
(1,0,0,0,0,296,1,3,58) (1,0,0,0,0,380,1,3,58) (1,0,0,0,1,296,1,2,57) (1,0,0,0,1,380,1,2,57)
(1,0,0,10,0,296,1,1,57) (1,0,0,10,0,380,1,1,57) (1,0,0,10,1,296,2,6,57) (1,0,0,10,1,380,2,6,57)
(1,0,0,21,0,296,1,1,57) (1,0,0,21,0,380,1,1,57) (1,0,0,21,1,296,2,2,57) (1,0,0,21,1,380,2,2,57)
(1,0,0,30,0,296,1,1,58) (1,0,0,30,0,380,1,1,58) (1,0,0,30,1,296,2,2,56) (1,0,0,30,1,380,2,2,56)
(1,0,0,41,0,296,0,0,58) (1,0,0,41,0,380,0,0,58) (1,0,0,41,1,296,3,3,54) (1,0,0,41,1,380,3,3,54)
(1,0,1,0,0,296,1,1,57) (1,0,1,0,0,380,1,1,57) (1,0,1,0,1,296,1,1,58) (1,0,1,0,1,380,1,1,58)
(1,0,1,10,0,296,1,1,58) (1,0,1,10,0,380,1,1,58) (1,0,1,10,1,296,1,3,56) (1,0,1,10,1,380,1,3,56)
(1,0,1,21,0,296,1,1,57) (1,0,1,21,0,380,1,1,57) (1,0,1,21,1,296,0,0,58) (1,0,1,21,1,380,0,0,58)
(1,0,1,30,0,296,2,2,58) (1,0,1,30,0,380,2,2,58) (1,0,1,30,1,296,2,5,56) (1,0,1,30,1,380,2,5,56)
(1,0,1,41,0,296,3,3,57) (1,0,1,41,0,380,3,3,57) (1,0,1,41,1,296,1,2,57) (1,0,1,41,1,380,1,2,57)
(1,0,2,0,0,296,0,0,58) (1,0,2,0,0,380,0,0,58) (1,0,2,0,1,296,3,3,54) (1,0,2,0,1,380,3,3,54)
(1,0,2,10,0,296,2,2,57) (1,0,2,10,0,380,2,2,57) (1,0,2,10,1,296,0,0,58) (1,0,2,10,1,380,0,0,58)
(1,0,2,21,0,296,1,1,57) (1,0,2,21,0,380,1,1,57) (1,0,2,21,1,296,1,1,58) (1,0,2,21,1,380,1,1,58)
(1,0,2,30,0,296,3,4,57) (1,0,2,30,0,380,3,4,57) (1,0,2,30,1,296,3,3,57) (1,0,2,30,1,380,3,3,57)
(1,0,2,41,0,296,2,2,57) (1,0,2,41,0,380,2,2,57) (1,0,2,41,1,296,3,3,57) (1,0,2,41,1,380,3,3,57)
(1,0,3,0,0,296,4,4,55) (1,0,3,0,0,380,4,4,55) (1,0,3,0,1,296,0,0,58) (1,0,3,0,1,380,0,0,58)
(1,0,3,10,0,296,2,2,58) (1,0,3,10,0,380,2,2,58) (1,0,3,10,1,296,0,0,58) (1,0,3,10,1,380,0,0,58)
(1,0,3,21,0,296,1,1,58) (1,0,3,21,0,380,1,1,58) (1,0,3,21,1,296,0,0,56) (1,0,3,21,1,380,0,0,56)
(1,0,3,30,0,296,3,3,55) (1,0,3,30,0,380,3,3,55) (1,0,3,30,1,296,0,0,58) (1,0,3,30,1,380,0,0,58)
(1,0,3,41,0,296,1,1,58) (1,0,3,41,0,380,1,1,58) (1,0,3,41,1,296,1,1,55) (1,0,3,41,1,380,1,1,55)
(1,0,4,0,0,296,3,4,55) (1,0,4,0,0,380,3,4,55) (1,0,4,0,1,296,0,0,58) (1,0,4,0,1,380,0,0,58)
(1,0,4,10,0,296,0,0,58) (1,0,4,10,0,380,0,0,58) (1,0,4,10,1,296,1,1,58) (1,0,4,10,1,380,1,1,58)
(1,0,4,21,0,296,4,4,56) (1,0,4,21,0,380,4,4,56) (1,0,4,21,1,296,0,0,56) (1,0,4,21,1,380,0,0,56)
(1,0,4,30,0,296,4,4,57) (1,0,4,30,0,380,4,4,57) (1,0,4,30,1,296,2,2,57) (1,0,4,30,1,380,2,2,57)
(1,0,4,41,0,296,0,0,58) (1,0,4,41,0,380,0,0,58) (1,0,4,41,1,296,1,1,55) (1,0,4,41,1,380,1,1,55)
(1,0,5,0,0,296,1,1,58) (1,0,5,0,0,380,1,1,58) (1,0,5,0,1,296,3,3,56) (1,0,5,0,1,380,3,3,56)
(1,0,5,10,0,296,0,0,58) (1,0,5,10,0,380,0,0,58) (1,0,5,10,1,296,1,1,57) (1,0,5,10,1,380,1,1,57)
(1,0,5,21,0,296,0,0,58) (1,0,5,21,0,380,0,0,58) (1,0,5,21,1,296,1,1,57) (1,0,5,21,1,380,1,1,57)
(1,0,5,30,0,296,3,3,55) (1,0,5,30,0,380,3,3,55) (1,0,5,30,1,296,3,3,54) (1,0,5,30,1,380,3,3,54)
(1,0,5,41,0,296,1,1,57) (1,0,5,41,0,380,1,1,57) (1,0,5,41,1,296,1,1,57) (1,0,5,41,1,380,1,1,57)
(1,0,6,0,0,296,4,4,57) (1,0,6,0,0,380,4,4,57) (1,0,6,0,1,296,3,3,58) (1,0,6,0,1,380,3,3,58)
(1,0,6,10,0,296,0,0,58) (1,0,6,10,0,380,0,0,58) (1,0,6,10,1,296,0,0,56) (1,0,6,10,1,380,0,0,56)
(1,0,6,21,0,296,0,0,58) (1,0,6,21,0,380,0,0,58) (1,0,6,21,1,296,0,0,58) (1,0,6,21,1,380,0,0,58)
(1,0,6,30,0,296,1,1,58) (1,0,6,30,0,380,1,1,58) (1,0,6,30,1,296,0,0,56) (1,0,6,30,1,380,0,0,56)
(1,0,6,41,0,296,2,2,57) (1,0,6,41,0,380,2,2,57) (1,0,6,41,1,296,1,1,58) (1,0,6,41,1,380,1,1,58)
(1,0,7,0,0,296,1,1,58) (1,0,7,0,0,380,1,1,58) (1,0,7,0,1,296,0,0,58) (1,0,7,0,1,380,0,0,58)
(1,0,7,10,0,296,0,0,58) (1,0,7,10,0,380,0,0,58) (1,0,7,10,1,296,0,0,58) (1,0,7,10,1,380,0,0,58)
(1,0,7,21,0,296,2,2,58) (1,0,7,21,0,380,2,2,58) (1,0,7,21,1,296,0,0,58) (1,0,7,21,1,380,0,0,58)
(1,0,7,30,0,296,0,0,58) (1,0,7,30,0,380,0,0,58) (1,0,7,30,1,296,0,0,58) (1,0,7,30,1,380,0,0,58)
(1,0,7,41,0,296,1,1,58) (1,0,7,41,0,380,1,1,58) (1,0,7,41,1,296,0,0,58) (1,0,7,41,1,380,0,0,58)
(1,0,8,0,0,296,3,4,55) (1,0,8,0,0,380,3,4,55) (1,0,8,0,1,296,2,2,56) (1,0,8,0,1,380,2,2,56)
(1,0,8,10,0,296,3,3,55) (1,0,8,10,0,380,3,3,55) (1,0,8,10,1,296,1,1,58) (1,0,8,10,1,380,1,1,58)
(1,0,8,21,0,296,0,0,58) (1,0,8,21,0,380,0,0,58) (1,0,8,21,1,296,0,0,58) (1,0,8,21,1,380,0,0,58)
(1,0,8,30,0,296,1,2,56) (1,0,8,30,0,380,1,2,56) (1,0,8,30,1,296,1,1,58) (1,0,8,30,1,380,1,1,58)
(1,0,8,41,0,296,1,3,55) (1,0,8,41,0,380,1,3,55) (1,0,8,41,1,296,1,1,58) (1,0,8,41,1,380,1,1,58)
(1,0,9,0,0,296,1,1,58) (1,0,9,0,0,380,1,1,58) (1,0,9,0,1,296,3,3,54) (1,0,9,0,1,380,3,3,54)
(1,0,9,10,0,296,2,2,57) (1,0,9,10,0,380,2,2,57) (1,0,9,10,1,296,3,3,56) (1,0,9,10,1,380,3,3,56)
(1,0,9,21,0,296,3,3,57) (1,0,9,21,0,380,3,3,57) (1,0,9,21,1,296,1,1,57) (1,0,9,21,1,380,1,1,57)
(1,0,9,30,0,296,1,1,58) (1,0,9,30,0,380,1,1,58) (1,0,9,30,1,296,2,2,54) (1,0,9,30,1,380,2,2,54)
(1,0,9,41,0,296,1,1,58) (1,0,9,41,0,380,1,1,58) (1,0,9,41,1,296,1,1,57) (1,0,9,41,1,380,1,1,57)
(1,1,0,0,0,296,1,1,29) (1,1,0,0,0,380,1,1,29) (1,1,0,0,1,296,3,3,29) (1,1,0,0,1,380,3,3,29)
(1,1,0,10,0,296,1,1,29) (1,1,0,10,0,380,1,1,29) (1,1,0,10,1,296,1,1,28) (1,1,0,10,1,380,1,1,28)
(1,1,0,21,0,296,1,1,29) (1,1,0,21,0,380,1,1,29) (1,1,0,21,1,296,1,1,28) (1,1,0,21,1,380,1,1,28)
(1,1,0,30,0,296,1,1,29) (1,1,0,30,0,380,1,1,29) (1,1,0,30,1,296,2,2,29) (1,1,0,30,1,380,2,2,29)
(1,1,0,41,0,296,1,1,29) (1,1,0,41,0,380,1,1,29) (1,1,0,41,1,296,1,1,29) (1,1,0,41,1,380,1,1,29)
(1,1,1,0,0,296,2,2,29) (1,1,1,0,0,380,2,2,29) (1,1,1,0,1,296,1,1,29) (1,1,1,0,1,380,1,1,29)
(1,1,1,10,0,296,2,2,29) (1,1,1,10,0,380,2,2,29) (1,1,1,10,1,296,1,1,29) (1,1,1,10,1,380,1,1,29)
(1,1,1,21,0,296,2,2,29) (1,1,1,21,0,380,2,2,29) (1,1,1,21,1,296,1,1,29) (1,1,1,21,1,380,1,1,29)
(1,1,1,30,0,296,2,2,29) (1,1,1,30,0,380,2,2,29) (1,1,1,30,1,296,1,1,28) (1,1,1,30,1,380,1,1,28)
(1,1,1,41,0,296,1,1,29) (1,1,1,41,0,380,1,1,29) (1,1,1,41,1,296,2,2,28) (1,1,1,41,1,380,2,2,28)
(1,1,2,0,0,296,2,2,29) (1,1,2,0,0,380,2,2,29) (1,1,2,0,1,296,1,1,29) (1,1,2,0,1,380,1,1,29)
(1,1,2,10,0,296,2,2,29) (1,1,2,10,0,380,2,2,29) (1,1,2,10,1,296,1,1,29) (1,1,2,10,1,380,1,1,29)
(1,1,2,21,0,296,1,1,29) (1,1,2,21,0,380,1,1,29) (1,1,2,21,1,296,2,2,29) (1,1,2,21,1,380,2,2,29)
(1,1,2,30,0,296,2,2,29) (1,1,2,30,0,380,2,2,29) (1,1,2,30,1,296,1,1,28) (1,1,2,30,1,380,1,1,28)
(1,1,2,41,0,296,1,1,29) (1,1,2,41,0,380,1,1,29) (1,1,2,41,1,296,3,3,29) (1,1,2,41,1,380,3,3,29)
(1,1,3,0,0,296,2,2,29) (1,1,3,0,0,380,2,2,29) (1,1,3,0,1,296,2,2,29) (1,1,3,0,1,380,2,2,29)
(1,1,3,10,0,296,2,2,28) (1,1,3,10,0,380,2,2,28) (1,1,3,10,1,296,1,1,28) (1,1,3,10,1,380,1,1,28)
(1,1,3,21,0,296,2,2,29) (1,1,3,21,0,380,2,2,29) (1,1,3,21,1,296,1,1,29) (1,1,3,21,1,380,1,1,29)
(1,1,3,30,0,296,1,1,29) (1,1,3,30,0,380,1,1,29) (1,1,3,30,1,296,1,1,28) (1,1,3,30,1,380,1,1,28)
(1,1,3,41,0,296,1,1,29) (1,1,3,41,0,380,1,1,29) (1,1,3,41,1,296,2,2,28) (1,1,3,41,1,380,2,2,28)
(1,1,4,0,0,296,2,2,29) (1,1,4,0,0,380,2,2,29) (1,1,4,0,1,296,3,3,28) (1,1,4,0,1,380,3,3,28)
(1,1,4,10,0,296,1,1,29) (1,1,4,10,0,380,1,1,29) (1,1,4,10,1,296,1,1,28) (1,1,4,10,1,380,1,1,28)
(1,1,4,21,0,296,1,1,29) (1,1,4,21,0,380,1,1,29) (1,1,4,21,1,296,1,1,28) (1,1,4,21,1,380,1,1,28)
(1,1,4,30,0,296,1,1,29) (1,1,4,30,0,380,1,1,29) (1,1,4,30,1,296,1,1,29) (1,1,4,30,1,380,1,1,29)
(1,1,4,41,0,296,1,1,29) (1,1,4,41,0,380,1,1,29) (1,1,4,41,1,296,1,1,29) (1,1,4,41,1,380,1,1,29)
(1,1,5,0,0,296,2,2,29) (1,1,5,0,0,380,2,2,29) (1,1,5,0,1,296,2,2,28) (1,1,5,0,1,380,2,2,28)
(1,1,5,10,0,296,1,1,29) (1,1,5,10,0,380,1,1,29) (1,1,5,10,1,296,2,2,28) (1,1,5,10,1,380,2,2,28)
(1,1,5,21,0,296,2,2,29) (1,1,5,21,0,380,2,2,29) (1,1,5,21,1,296,2,2,28) (1,1,5,21,1,380,2,2,28)
(1,1,5,30,0,296,1,1,29) (1,1,5,30,0,380,1,1,29) (1,1,5,30,1,296,2,2,28) (1,1,5,30,1,380,2,2,28)
(1,1,5,41,0,296,2,2,29) (1,1,5,41,0,380,2,2,29) (1,1,5,41,1,296,2,2,29) (1,1,5,41,1,380,2,2,29)
(1,1,6,0,0,296,2,2,29) (1,1,6,0,0,380,2,2,29) (1,1,6,0,1,296,3,3,29) (1,1,6,0,1,380,3,3,29)
(1,1,6,10,0,296,1,1,29) (1,1,6,10,0,380,1,1,29) (1,1,6,10,1,296,2,2,29) (1,1,6,10,1,380,2,2,29)
(1,1,6,21,0,296,1,1,29) (1,1,6,21,0,380,1,1,29) (1,1,6,21,1,296,3,3,29) (1,1,6,21,1,380,3,3,29)
(1,1,6,30,0,296,1,1,29) (1,1,6,30,0,380,1,1,29) (1,1,6,30,1,296,3,3,29) (1,1,6,30,1,380,3,3,29)
(1,1,6,41,0,296,2,2,29) (1,1,6,41,0,380,2,2,29) (1,1,6,41,1,296,1,1,28) (1,1,6,41,1,380,1,1,28)
(1,1,7,0,0,296,1,1,29) (1,1,7,0,0,380,1,1,29) (1,1,7,0,1,296,1,1,29) (1,1,7,0,1,380,1,1,29)
(1,1,7,10,0,296,1,1,29) (1,1,7,10,0,380,1,1,29) (1,1,7,10,1,296,1,1,29) (1,1,7,10,1,380,1,1,29)
(1,1,7,21,0,296,1,1,29) (1,1,7,21,0,380,1,1,29) (1,1,7,21,1,296,1,1,29) (1,1,7,21,1,380,1,1,29)
(1,1,7,30,0,296,1,1,29) (1,1,7,30,0,380,1,1,29) (1,1,7,30,1,296,1,1,29) (1,1,7,30,1,380,1,1,29)
(1,1,7,41,0,296,1,1,29) (1,1,7,41,0,380,1,1,29) (1,1,7,41,1,296,1,1,29) (1,1,7,41,1,380,1,1,29)
(1,1,8,0,0,296,1,1,29) (1,1,8,0,0,380,1,1,29) (1,1,8,0,1,296,1,1,28) (1,1,8,0,1,380,1,1,28)
(1,1,8,10,0,296,1,1,29) (1,1,8,10,0,380,1,1,29) (1,1,8,10,1,296,2,8,29) (1,1,8,10,1,380,2,8,29)
(1,1,8,21,0,296,1,1,29) (1,1,8,21,0,380,1,1,29) (1,1,8,21,1,296,1,1,28) (1,1,8,21,1,380,1,1,28)
(1,1,8,30,0,296,1,1,29) (1,1,8,30,0,380,1,1,29) (1,1,8,30,1,296,1,1,29) (1,1,8,30,1,380,1,1,29)
(1,1,8,41,0,296,2,3,29) (1,1,8,41,0,380,2,3,29) (1,1,8,41,1,296,1,1,29) (1,1,8,41,1,380,1,1,29)
(1,1,9,0,0,296,1,1,29) (1,1,9,0,0,380,1,1,29) (1,1,9,0,1,296,2,2,28) (1,1,9,0,1,380,2,2,28)
(1,1,9,10,0,296,1,1,29) (1,1,9,10,0,380,1,1,29) (1,1,9,10,1,296,2,2,28) (1,1,9,10,1,380,2,2,28)
(1,1,9,21,0,296,3,3,29) (1,1,9,21,0,380,3,3,29) (1,1,9,21,1,296,2,2,28) (1,1,9,21,1,380,2,2,28)
(1,1,9,30,0,296,1,1,29) (1,1,9,30,0,380,1,1,29) (1,1,9,30,1,296,2,2,28) (1,1,9,30,1,380,2,2,28)
(1,1,9,41,0,296,1,1,29) (1,1,9,41,0,380,1,1,29) (1,1,9,41,1,296,2,2,29) (1,1,9,41,1,380,2,2,29)5.7 /opt/GSM/c54x_exe/docs/README.fr.md
19966 octets, 373 lignes
5.7.1 c54x_exe — le DSP Calypso sans QEMU
Fait tourner la mask-ROM TI du TMS320C54x seule : pas de QEMU, pas d’ARM, pas de firmware osmocom-bb.
make
./c54x_exe --trames 200
./c54x_exe --trames 50 --verbeux # une ligne par trame
./c54x_exe -vv # traces du coeur : -v .. -vvvvvv, voir --helpPar defaut seules les erreurs du coeur C54x passent sur stderr ; le bilan dit combien de lignes ont ete masquees et avec quel -v les voir. -vvvvvv rend stderr brut. Le classement est par mots-clefs sur le nom de la sonde (src/verbosite.c), pas par liste : une sonde nouvelle tombe dans un niveau raisonnable sans declaration.
5.7.1.1 Lancer exe par exe : le cote mobile, sans le reseau
[2026-09-17] Quatre executables, dans cet ordre, chacun attendant le precedent. run.sh fait exactement ca ; ce qui suit est la version a la main, pour voir ce que chaque etape produit. Aucun element reseau (BTS, BSC, MSC, pont gr-gsm) : le mobile cherche une cellule et n’en trouve pas, c’est attendu tant qu’aucun burst n’est injecte dans le DSP. Avec la BTS et PONT=1, voir l’etat du 2026-09-23 plus bas.
./run.sh # tout, dans l'ordre ./run.sh --status qui tourne
./run.sh --logs # suivre les 4 journaux ./run.sh --stop tout arreter, nettoyer
./run.sh --step 3 # une seule etape (les precedentes doivent tourner)
INSNS=8000 VERB=-vv ./run.sh # budget DSP par trame (80000 par defaut), niveau de traces
MODE=grgsm ./run.sh # l'autre montage : couche 1 gr-gsm dans QEMU, sans c54x_exe
PONT=1 ./run.sh # avec l'etape 5 (le pont TRX) ; defaut PONT=0 : le mobile seul
IQ=cell ./run.sh # c54x_exe fabrique une cellule GMSK (FCCH/SCH) a chaque trame
LOCKSTEP=0 ./run.sh # horloge murale : QEMU n'attend pas le DSP et saute des trames (defaut 1)run.sh connait deux montages (MODE=dsp, le defaut, et MODE=grgsm) et une cinquieme etape, le pont TRX, qui relie le BTS osmo-bts-trx (TRXD 5700-5702) a la couche 1 du mobile : GSMTAP 4730/4731 pour gr-gsm, --dsp-port 6702 vers le BSP de c54x_exe pour le DSP. [2026-09-23] Le defaut est PONT=0 (depuis le 17/09) : PONT=1 ./run.sh ajoute l’etape 5. En MODE=dsp elle lance pont/pont_dsp.py (sous-paquet pont/dsp/, bascule TCH suivie par le firmware), en MODE=grgsm pont/pont.py ; PONT_PY force l’un ou l’autre. Le pont n’est plus lance avec --no-record (PONT_AIRREC=1 par defaut, pour la FFT du panneau ; PONT_AIRREC=0 le remet). Les memes chaines se lancent par leur nom : qosmo-dsp, qosmo-grgsm, et exe par exe c54x_exe, osmocon, grgsm_exe (/usr/local/bin). Le detail processus par processus, avec les lignes de journal attendues, est dans LAUNCH.md.
Journaux et pid dans /tmp/c54x-pont/. [2026-09-23] Le mobile de ce montage utilise maintenant les memes sockets que le run sans --dsp : /tmp/osmocom_l2 et /tmp/osmocom_sap (plus de variantes _pont) ; VTY mobile 4347 et moniteur QEMU /tmp/qemu-monitor-pont.sock inchanges. Lancer un banc grgsm et celui-ci en meme temps les fait se disputer : compromis assume, cf. l’en-tete de mobile_pont.cfg. --stop efface aussi /tmp/osmocom_sap, /tmp/ms_data, /dev/shm/calypso_horloge et, en MODE=dsp, /dev/shm/calypso_tch_cfg.
Autres variables de run.sh (2026-09-23) :
INSNS=80000: 60000 debordait en TCH (jusqu’a 87000 insn/trame).GDB=1: gdbstub QEMU entcp:127.0.0.1:1234et consoletelnet 0 44444(qosmo-dsp/tools/gdb-telnet.py, journalgdb.log) ;GDB=0coupe les deux.ASSEMBLY_LOGS=1: trace asm de l’ARM dansqemu-asm.log(ASSEMBLY_LOGS_FLAGS, defautin_asm,exec,nochain;ASSEMBLY_LOGS_FILTREpour-dfilter).- poses d’office :
CALYPSO_PONT_RETRY_DIV=64sur QEMU (relance vers le DSP toutes les trame/64 au lieu de trame/16),CALYPSO_BSP_ATTENTE_MS=40surc54x_exe(attendre une trame livree en retard par la BTS plutot que la jouer en effacement),L23_SYNC_RETRIES_SELECTION=8sur le mobile enMODE=dsp(defaut du binaire, 1, ailleurs). PANNEAU_LOGS:qemu.log,osmocon.logetmobile.logs’ecrivent dans/run/user/0/osmo-nitb/logs/,pont.logdans/dev/shm/pont.log, ceux que suit le panneau ;$RUNDIRn’en a que des liens (dsp.logy reste un vrai fichier).PANNEAU_LOGS=nonepour ne rien toucher.JOURNAUX_GARDES=10: au lancement et a--stop, la session precedente est rangee dans$RUNDIR/archives/<date>/, avecbsp_dedie.txt.
5.7.1.1.1 Le lien montant (RACH, SDCCH, SACCH, parole)
En montage dsp, la couche 1 gr-gsm de QEMU est desactivee (CALYPSO_DSP_EXTERN=1), donc les hooks qui publiaient le montant cote QEMU ne tirent plus. C’est src/montant.c qui s’en charge : une scrutation de l’API RAM partagee a chaque trame, qui alimente les memes side-bands que consomme pont.py (pont/uplink.py) :
/dev/shm/calypso_rach RACH (ra, bsic) lu dans NDB d_rach
/dev/shm/calypso_sdcch_ul bloc L2 montant (a_cu)
/dev/shm/calypso_tch_facch_ul FACCH montante
/dev/shm/calypso_tch_sacch_ul SACCH montante
/dev/shm/calypso_tch_ul anneau de trames de paroleSans lui : pont.log affiche UL bursts=0 rach=0, la BTS ne voit aucun acces aleatoire, le mobile epuise ses huit tentatives et il n’y a jamais de LOCATION UPDATING ACCEPT. Reglages : MONTANT=0 coupe la publication, MONTANT_DEBUG=N regle le nombre d’evenements imprimes (20 par defaut), MONTANT_RACH_SUR_DRACH=1 revient a l’ancien declencheur (transition de d_rach au lieu de d_task_ra).
[2026-09-23] Aussi dans montant.c : - le Kc, publie dans /dev/shm/calypso_kc_l1 (MONTANT_KC=0 coupe) ; - la parole montante, au format TI (io-tch-format ti), est convertie en FR TS 101 318 avant publication (MONTANT_PAROLE_TI=0 = passage brut ; c’etait l’ancien comportement, qui donnait un echo sature) ; - la bascule SDCCH <-> TCH du BSP suit la tache posee par le firmware dans la page W (d_task_d = TCHT 13, TCHA 14 ou TCHD 28 ; retour sur ALLC 24) ; calypso_tch_cfg ecrit par le pont n’est plus qu’une annonce (MONTANT_TCH_TACHE=0 = armement a l’annonce) ; - sondes [a_fd], [a_dd] (TCH seulement ; MONTANT_AFD=0, MONTANT_ADD=0), [a5-arm] et [d_fn].
Cote QEMU, MONTANT_REQREF=0 coupe la correction de la reference de requete des IMMEDIATE ASSIGNMENT (calypso_trx.c) : sans elle le mobile jette l’assignation, parce que pont.py emet l’access-burst sur sa propre horloge et que gsm48_match_ra() exige une correspondance exacte du numero de trame. Causes et mesures : MAILBOX.md, sections « Pas de LU ACCEPT » et « Le RACH passe, l’IMM ASS revient ».
5.7.1.1.2 1. Le DSP : c54x_exe --arm
cd /opt/GSM/c54x_exe && ./c54x_exe --arm -vCree /dev/shm/calypso_api_ram (la fenetre API, 16 Ko, qui EST data[0x0800..] du C54x) et /tmp/calypso_dsp.sock, charge les 7 sections de ROM, c54x_reset(), puis attend l’ARM. Attendu :
pont : en attente de l'ARM sur /tmp/calypso_dsp.sock (API RAM : /dev/shm/calypso_api_ram)--insns : budget d’instructions par trame TDMA. [2026-09-23] Defaut 200000 avec --arm (2300 sans), plancher 32000 en --rejouer ; run.sh passe 80000. Depuis le 2026-09-23 les sondes pures du coeur sont coupees par defaut (CALYPSO_SONDES=1, CALYPSO_DEBUG ou -vvvv pour les rallumer), pour accelerer le coeur (gain a remesurer). En pas-a-pas (LOCKSTEP=1, defaut de run.sh) QEMU attend le DSP au lieu de lui sauter des ticks ; le DSP rend PONT_DONE des le burst depose et finit la trame en parallele de l’ARM (PONT_DONE_TOT=1 par defaut, 0 = ancien ordre). La ligne [chrono] de dsp.log, toutes les 1000 trames, dit ou passe le temps (qemu | A | go | B | apres DONE, en ms par trame).
5.7.1.1.3 2. L’ARM : QEMU qosmo avec CALYPSO_DSP_EXTERN=1
cd /opt/GSM/qosmo && CALYPSO_DSP_EXTERN=1 build/qemu-system-arm -M calypso -cpu arm946 \
-display none -parallel none -serial pty -serial pty \
-monitor unix:/tmp/qemu-monitor-pont.sock,server,nowait \
-kernel /opt/GSM/firmware/board/compal_e88/layer1.highram.elfSans -kernel, le CPU part a 0 et plante a 0x840000 : l’ELF est obligatoire, le romload d’osmocon ne charge rien (le stub UART ne fait qu’acquitter). Attendu sur stderr :
char device redirected to /dev/pts/N (label serial0) <- le pty modem, pour osmocon
[trx] pont DSP : API RAM partagee (/calypso_api_ram) + socket /tmp/calypso_dsp.sock - ...
calypso: couche 1 « grgsm » desactivee (DSP externe, CALYPSO_DSP_EXTERN)
[trx] pont DSP : timer de boot lance (echange DSP seul, sans IRQ TPU, ...)
[trx] pont DSP : RESET_DSP relache par le firmware -> PONT_RESET (fn=0)
[trx] pont DSP : le TDMA du firmware prend le relais du timer de boot (N trames de boot)Et cote c54x_exe :
pont : ARM connecte, API RAM 32768 mots, 200000 insn/trame
pont : RESET #1 (DL_STATUS=0x0000) fn=0 pc=0xff80
pont : DSP boote (premier IDLE) fn=0 insn=5701
fn=1251 page=0 insn=428 IDLE d_fb_det=0 a_sch=0000 ...Le firmware a asserte puis relache RESET_DSP (registre CNTL_RST), la ROM est repartie de 0xff80, a pose IDLE, s’est parquee ; l’ARM a envoye COPY_BLOCK vers 0x7000 ; la ROM a saute dans sa L1 et ecrit sa version. Verifier depuis le moniteur QEMU :
printf 'xp /96bx 0x008305f0\n' | nc -U /tmp/qemu-monitor-pont.sock # printf_buffer du firmware :
# "DSP API Version: 0x4e2a 0x491a"
od -An -tx2 -j 0x01B4 -N 2 /dev/shm/calypso_api_ram # 3606 = version ecrite par la L1 DSP5.7.1.1.4 3. osmocon : le relais L1CTL
/opt/GSM/osmocom-bb/src/host/osmocon/osmocon -m romload -i 100 -p /dev/pts/N \
-s /tmp/osmocom_l2 /opt/GSM/firmware/board/compal_e88/layer1.highram.bin/dev/pts/N est le serial0 de l’etape 2. Attendu : Received ident ack, Progress: 100%, puis Received branch ack, your code is running now!. A partir de la, osmocon relaie le L1CTL entre le firmware et /tmp/osmocom_l2. Si le telechargement reste a starting download sans progres : un osmocon precedent a ete tue a mi-bloc et le stub romload de l’UART attend la fin de ce bloc - relancer QEMU (etape 2) puis osmocon.
5.7.1.1.5 4. Le mobile
mobile -c /opt/GSM/c54x_exe/mobile_pont.cfg # copie de ~/.osmocom/bb/mobile.cfg :
# layer2-socket /tmp/osmocom_l2, vty 4347Attendu dans les 5 s : L1CTL_PM_REQ, L1CTL_RESET_REQ: FULL!, L1CTL_FBSB_REQ (arfcn=514 ...) cote osmocon ; cote c54x_exe, le passage de 428 a ~570 insn par trame et a_sch=0100 ... : la L1 ARM a programme d_task_md=5 (recherche FB) et le DSP l’execute. Cote mobile, FBSB RESP: result=255 en boucle sans pont : calypso_bsp.c attend les bursts descendants en UDP sur le port 6702 et personne ne les envoie. Avec la BTS et PONT=1, c’est pont_dsp.py qui les envoie.
telnet 127.0.0.1 4347 # VTY du mobile ; « show ms »
od -An -tx2 -N 16 /dev/shm/calypso_api_ram # page d'ecriture : d_task_md au 5e mot5.7.1.1.6 Le pont, en une page
Protocole dans qosmo/include/hw/arm/calypso/calypso_dsp_pont.h, cote QEMU dans qosmo/hw/arm/calypso/calypso_trx.c (pont_*), calypso_soc.c (CNTL_RST -> RESET_DSP) et calypso_l1_dispatch.c (calypso_l1_disable) ; cote DSP dans src/pont.c. Il recopie section par section le tdma_tick de qosmo-dsp : DMA tick, boot jusqu’au premier IDLE, IRQ TPU-frame si l’IMR l’arme, un budget de c54x_run, front occupe -> IDLE = IRQ API cote ARM.
Quatre pieges rencontres, tous dans le pont et non dans le DSP : - la boucle principale de QEMU ne doit pas attendre le DSP : une trame de 64000 insn dure ~26 ms, l’ARM (qui a besoin du verrou global a chaque acces MMIO) etait affame et restait dans hwtimer_config. Le pont est en pipeline : DONE(N) releve au tick N+1, tick saute si le DSP est en retard. - le DSP doit tourner avant que le firmware n’active le TPU : un timer de boot cadence l’echange seul, sans IRQ TPU-frame (l’ARM n’a pas encore ses vecteurs), jusqu’a ce que le vrai tick prenne le relais. - le segment partage doit ETRE data[0x0800..] du C54x, pas une copie : le coeur ecrit sa fenetre API dans data[] et ne recopie api_ram que sur certains chemins. pont_allouer_dsp() aligne data[] sur une page et y pose le segment en MAP_FIXED ; api_ram en est l’alias. - [2026-09-23] sur le TCH, jouer la phase A jusqu’a l’IDLE (budget/2 au plus) avant de deposer le burst : pour une tache TCHA (SACCH/TF), la ROM demodule au debut de N+1 le burst SACCH de N qu’elle a laisse en 0x0cce. Deposer des l’armement de la fenetre l’ecrasait (a_cd FIRE KO a chaque bloc, LOS). PONT_TCH_DEPOT_IDLE=0 retablit l’ancien depot ; trace [depot_tch].
Et une chose a savoir sur qosmo : fw_console.c lit printf_buffer a une adresse codee en dur (0x831018) qui n’est pas celle de cet ELF (0x8305f0, nm layer1.highram.elf | grep printf_buffer), donc pas de [fw-console].
5.7.1.1.7 Outils de rejeu hors banc
[2026-09-23] Sur tout canal dedie, c54x_exe enregistre les ecritures de l’ARM dans l’API RAM, les TICK et les livraisons d’I/Q du BSP dans /dev/shm/calypso_rejeu_tch.bin (CALYPSO_REJEU_ENREG=0 coupe, 60000 livraisons au plus).
tools/rejeu_banc [fichier] [ticks] # rejoue hors banc, imprime chaque a_cd / a_fd
REJEU_SANS_D=1 tools/rejeu_banc # garde l'etat du boot local au lieu de 'D'
tools/sacch_tf_decode [fichier] [TN=2] [Kc] # decode hors DSP la SACCH/TF jouee par le BSP
make isa_test && ./isa_test tools/isa_tests.txt # conformite ISA (exemples SPRU172C)sacch_tf_decode lit /dev/shm/calypso_sacch_tf.bin (sonde [sacch_tf] du BSP) avec le Kc de calypso_kc_l1 : si la SACCH decode la et pas dans la ROM, le defaut est apres le BSP ; sinon, dans ce que le BSP recoit. Aucune cible Makefile pour ces deux outils : les binaires sont commites a cote des sources.
5.7.1.2 Pourquoi c’est possible
Mesure faite sur les objets compilés avant d’écrire une ligne : sur les 26 631 lignes de couche 1 C54x, l’accroche à QEMU tient en 14 symboles.
| fichier | symboles QEMU |
|---|---|
calypso_c54x.c (21 296 l.) |
2 — des mutex |
calypso_{arm2dsp,dma,fbsb,mailbox,rhea_dma,rif,twl3025}.c |
0 |
calypso_full_pcb.c, calypso_tint0.c |
8 — le câblage, pas le DSP |
Les cales sont dans qosmo/contrib/hors-qemu/ : ~120 lignes de doublures d’en-têtes (qemu/osdep.h, thread.h, timer.h…) et 73 lignes d’équivalents POSIX. Rien n’y modélise QEMU — le jour où une cale doit devenir autre chose qu’un pthread, c’est que le DSP s’est mis à dépendre de QEMU, et il faut le savoir.
Les sources ne sont pas recopiées. Ce binaire compile celles de /opt/GSM/qosmo (QOSMO=... make pour pointer ailleurs). [2026-09-23] make reconstruit c54x_exe a chaque appel (cible .PHONY, qui depend aussi des en-tetes), en -O3 -march=native : plus besoin de make clean. calypso_a5.c (le coprocesseur A5 sur les ports XIO 0x2800..0x2818, CALYPSO_A5=0 le coupe) est compile dedans. Recopier, c’était refaire la divergence que qosmo vient de supprimer. La seule copie est src/pcb-minimal.c, quatre helpers DARAM repris mot pour mot, et elle est signalée comme telle dans le fichier.
5.7.1.3 Ce que ça mesure, et ce que ça ne mesure pas encore
État au 2026-09-23 (runs du banc DSP de 20:22 et 20:32). En montage dsp avec la BTS (PONT=1), le DSP détecte FB et SB, décode les BCCH (SI1-4), le mobile obtient le LU ACCEPT, le premier SMS MT est livré de bout en bout (2026-09-23 11:06), l’appel passe l’ASSIGNMENT (2026-09-22 19:47) et la bascule TCH suit la tâche du firmware ; l’A5 est modélisé dans le DSP (calypso_a5.c), la parole montante est convertie TI -> FR. Run de 20:22, constaté dans les journaux : LU, appel MO vers l’écho 600 (ACTIVE 20:22:55, DISCONNECT 20:23:27), SMS MO et MT dans les deux sens, appel MT depuis 100102 (ACTIVE 20:24:28, release normal), A5/1 confirmé par la BTS sur les cinq établissements, parole audible dans les deux sens (décodage canal TCH/F descendant par la ROM TI, codec GAPK FR et codage montant sur l’hôte), 29 513 trames avec un seul tick sauté (au boot, fn=0). Restent ouverts, par ordre d’importance : - B_BFI sur toute la parole : la ROM marque chaque trame TCH/F comme mauvaise. Run de 20:32, sonde [a_dd] étendue (src/montant.c sonde_add, non commitée) : vues=2200 bfi=2200 ; err (a_dd_0[2], erreurs rapportées par la ROM) vaut 0 sur 19 des 20 premières trames après la bascule (c214 ; la 18e, fn=5912, est 8084 à 58), puis 15 à 93. Les trames sont réellement dégradées ; le FR reste intelligible parce que le firmware ne remonte pas le BFI (prim_tch.c:327 ne teste que B_BLUD). Signal (BSP, IQ, égalisation) ou cœur C54x (Viterbi, recomptage) : à trancher par comparaison bit à bit avec les trames de la BTS. Le ko de la sonde (B_FIRE1) ne dit rien sur la parole ; - la SACCH en TCH : le correctif MVKD/MVDK (qosmo c54x_exec.c, CALYPSO_MVKD_DMAD_AVANT=1 = ancien ordre ; garde [garde-3d89] dans c54x_mem.c) tient au run de 20:22 (deux appels complets, aucun bloc SACCH/TF jeté par le mobile hors bascule et libérations, aucune LOS, aucune ligne [garde-3d89]). Mais au run de 20:32 le premier appel tombe en LOS (20:32:45) : SACCH/TF FIRE KO à chaque bloc dès fn=6095, err de la parole 63 à 93 de fn=6273 à 9306 contre 15 à 38 sur le troisième appel, sain ; le deuxième reste bloqué en attente de la connexion MM (T3230). Garde muette : autre cause, non localisée ; - le SDCCH/8 descendant : au run de 20:22 le mobile jette 27 trames sur SDCCH/8 (4 à 7 par session dédiée), dont 15 SACCH (ligne « LOSS counter for ACCH ») et 12 du canal principal ; suspect, le BSP sur le SDCCH/8 (table 45.002) ; - la fenêtre SB, rarement armée par la ROM (d’où L23_SYNC_RETRIES_SELECTION=8) : une synchro sur trois à cinq ; - la marge temps réel : en TCH, [chrono] donne A 0.33 + go 0.40 + B 0.16 + après DONE 3.37-3.68 ms, soit 4.3 à 4.6 ms de travail DSP pour 4.62 ms.
Ne sont pas des anomalies : les échecs CRC du moniteur TCH du pont tant que le RTP ne coule pas (décodage du pont, indépendant du DSP), et l’UA / SABM répétés, disparus au run de 20:22 avec osmo-operator pont/dsp/clock.py (PONT_AVANCE_MIN=10) : aucune ligne SABM dans les journaux osmocom (ni ERROR INDICATION au BSC), marge DL réelle min +0 au premier relevé (20:22:47), +9 ensuite, +13 à +15 à partir de 20:23:17.
Le détail, jour par jour : MAILBOX.md.
Le cas particulier du mode autonome, sans ARM (./c54x_exe --trames N) : les 7 sections de ROM se chargent, c54x_reset() passe, et la mask-ROM exécute — les BRANCH-TRACE à PC=0xb41f sont du vrai code TI. Aucun burst n’est injecté : le DSP tourne sur une API RAM vierge, sans ARM ni TPU. Le binaire le dit lui-même dans son bilan. a_sch[3] y sort 0x771a et non le 0xf8d8 du README de qemu-calypso — les deux valeurs sont constantes, mais elles diffèrent parce que l’entrée diffère, ce qui est déjà une information.
L’intérêt visé est la question du README : « un décodeur dont la sortie ne dépend pas de l’entrée ne décode pas ». Y répondre demande d’injecter des bursts et de faire varier l’entrée — le montage dsp avec la BTS le fait depuis, et le rejeu hors banc (tools/rejeu_banc) le rend tenable, parce qu’un essai coûte des millisecondes au lieu d’un boot complet.
5.7.1.4 Dépendances
libosmocoding / libosmocore (pour calypso_bsp.c), pthread, libm. Les ROM : calypso_dsp.{PROM0..3,DROM,PDROM,Registers}.bin dans --rom-dir (défaut /opt/GSM).
5.8 /opt/GSM/c54x_exe/tools/isa_tests.txt
32143 octets, 2180 lignes → 2178 lignes (1 groupes compactés)
T 1 ABDST Xmem, Ymem | ABDST *AR3+, *AR4+
W e39a
B A ffabcd0000
B AR3 100
B AR4 200
B B 0
B FRCT 0
B M 0100 0055
B M 0200 00aa
A A ffffab0000
A AR3 101
A AR4 201
A B 5433
A FRCT 0
A M 0100 0055
A M 0200 00aa
E
T 2 ABS src [, dst ] | ABS A, B
W f585
B A ffffffffcb
B B fffffffc18
A A ffffffffcb
A B 35
E
T 3 ABS src [, dst ] | ABS A
W f485
B A 312345678
B OVM 1
A A 7fffffff
A OVM 1
E
T 4 ABS src [, dst ] | ABS A
W f485
B A 312345678
B OVM 0
A A 312345678
A OVM 0
E
T 5 6: Class 7 (see page 3-12) | ADD *AR3+, 14, A
W 909e
B A 1200
B AR3 100
B C 1
B SXM 1
B M 0100 1500
A A 5401200
A AR3 101
A C 0
A SXM 1
A M 0100 1500
E
T 6 6: Class 7 (see page 3-12) | ADD A, –8, B
W f518
B A 1200
B B 1800
B C 1
A A 1200
A B 1812
A C 0
E
T 7 6: Class 7 (see page 3-12) | ADD #4568, 8, A, B
W f108 11d8
B A 1200
B B 1800
B C 1
A A 1200
A B 457a00
A C 0
E
T 9 ADDC Smem, src | ADDC *+AR2(5), A
W 06ea 0005
B A 13
B AR2 100
B C 1
B M 0105 0004
A A 18
A AR2 105
A C 0
A M 0105 0004
E
T 10 ADDM #lk, Smem | ADDM 0123Bh, *AR4+
W 6b94 123b
B AR4 100
B M 0100 0004
A AR4 101
A M 0100 123f
E
T 11 ADDM #lk, Smem | ADDM 0FFF8h, *AR4+
W 6b94 fff8
B AR4 100
B OVM 1
B SXM 1
B M 0100 8007
A AR4 101
A OVM 1
A SXM 1
A M 0100 8000
E
T 12 ADDS Smem, src | ADDS *AR2–, B
W 038a
B AR2 100
B B 3
B M 0104 f006
A AR2 ff
A B f009
A C 0
A M 0104 f006
E
T 13 4: Class 1 (see page 3-3) | AND *AR3+, A
W 1893
B A ff1200
B AR3 100
B M 0100 1500
A A 1000
A AR3 101
A M 0100 1500
E
T 14 4: Class 1 (see page 3-3) | AND A, 3, B
W f183
B A 1200
B B 1800
A A 1200
A B 1000
E
T 15 ANDM #lk, Smem | ANDM #00FFh, *AR4+
W 6894 00ff
B AR4 100
B M 0100 0444
A AR4 101
A M 0100 0044
E
T 17 B[D] pmad | B 2000h
W f073 2000
B PC 1f45
A PC 2000
E
T 18 B[D] pmad | BD 1000h
W f273 1000
B PC 1f45
A PC 1000
E
T 19 BACC[D] src | BACC A
W f4e2
B A 3000
B PC 1f45
A A 3000
A PC 3000
E
T 20 BACC[D] src | BACCD B
W f7e2
B B 2000
B PC 1f45
A B 2000
A PC 2000
E
T 21 BANZ[D] pmad, Sind | BANZ 2000h, *AR3–
W 6c8b 2000
B AR3 5
B PC 1000
A AR3 4
A PC 2000
E
T 22 BANZ[D] pmad, Sind | BANZ 2000h, *AR3–
W 6c8b 2000
B AR3 0
B PC 1000
A AR3 ffff
A PC 1002
E
T 23 BANZ[D] pmad, Sind | BANZ 2000h, *AR3(–1)
W 6ce3 2000 ffff
B AR3 1
B PC 1000
A AR3 1
A PC 1003
E
T 24 BANZ[D] pmad, Sind | BANZD 2000h, *AR3–
W 6e8b 2000
B AR3 4
B PC 1000
A AR3 3
A PC 2000
E
T 25 BC[D] pmad, cond [, cond [, condĂ ]ā] | BC 2000h, AGT
W f846 2000
B A 53
B PC 1000
A A 53
A PC 2000
E
T 26 BC[D] pmad, cond [, cond [, condĂ ]ā] | BC 2000h, AGT
W f846 2000
B A ffffffffff
B PC 1000
A A ffffffffff
A PC 1002
E
T 27 BC[D] pmad, cond [, cond [, condĂ ]ā] | BCD 1000h, BOV
W fa78 1000
B OVB 1
B PC 3000
A OVB 1
A PC 1000
E
T 28 BC[D] pmad, cond [, cond [, condĂ ]ā] | BC 1000h, TC, NC, BIO
W f83b 1000
B C 1
B PC 3000
A C 1
A PC 3002
E
T 29 BIT Xmem, BITC | BIT *AR5+, 15-12; test bit 12
W 96b3
B AR5 100
B TC 0
B M 0100 7688
A AR5 101
A TC 1
A M 0100 7688
E
T 30 BITF Smem, #lk | BITF 5, 00FFh
W 6105 00ff
B DP 4
B M 0205 5400
A DP 4
A TC 0
A M 0205 5400
E
T 31 BITF Smem, #lk | BITF 5, 0800h
W 6105 0800
B DP 4
B M 0205 0f7f
A DP 4
A TC 1
A M 0205 0f7f
E
T 32 BITT Smem | BITT *AR7+0
W 34b7
B AR0 8
B AR7 100
B T c
B TC 0
B M 0100 0008
A AR0 8
A AR7 108
A T c
A TC 1
A M 0100 0008
E
T 33 CALA[D] src | CALA A
W f4e3
B A 3000
B PC 25
B SP 1111
B M 1110 4567
A A 3000
A PC 3000
A SP 1110
A M 1110 0026
E
T 34 CALA[D] src | CALAD B
W f7e3
B B 2000
B PC 25
B SP 1111
B M 1110 4567
A B 2000
A PC 2000
A SP 1110
A M 1110 0028
E
T 35 CALL[D] pmad | CALL 3333h
W f074 3333
B PC 25
B SP 1111
B M 1110 4567
A PC 3333
A SP 1110
A M 1110 0027
E
T 36 CALL[D] pmad | CALLD 1000h
W f274 1000
B PC 25
B SP 1111
B M 1110 4567
A PC 1000
A SP 1110
A M 1110 0029
E
T 37 CC[D] pmad, cond [, cond [, cond ] ] | CC 2222h, AGT
W f946 2222
B A 3000
B PC 25
B SP 1111
B M 1110 4567
A A 3000
A PC 2222
A SP 1110
A M 1110 0027
E
T 38 CC[D] pmad, cond [, cond [, cond ] ] | CCD 1000h, BOV
W fb78 1000
B OVB 1
B PC 25
B SP 1111
B M 1110 4567
A OVB 0
A PC 1000
A SP 1110
A M 1110 0029
E
T 39 CMPL src [, dst ] | CMPL A, B
W f593
B A fcdffaaeaa
B B 7899
A A fcdffaaeaa
A B 320055155
E
T 40 CMPM Smem, #lk | CMPM *AR4+, 0404h
W 6094 0404
B AR4 100
B TC 1
B M 0100 4444
A AR4 101
A TC 0
A M 0100 4444
E
S 41 CMPR CC, ARx | CMPR 2, AR4 | cmpr['OP_CC3', 'OP_ARX']: cond: '2'
T 42 CMPS src, Smem | CMPS A, *AR4+
W 8e94
B A 23457899
B AR4 100
B TC 0
B TRN 4444
B M 0100 0000
A A 23457899
A AR4 101
A TC 1
A TRN 8889
A M 0100 7899
E
T 43 DADD Lmem, src [, dst ] | DADD *AR3+, A, B
W 5193
B A 56788933
B AR3 100
B B 0
B C16 0
B M 0100 1534
B M 0101 3456
A A 56788933
A AR3 102
A B 6bacbd89
A C16 0
A M 0100 1534
A M 0101 3456
E
T 44 DADD Lmem, src [, dst ] | DADD *AR3–, A, B
W 518b
B A 56783933
B AR3 100
B B 0
B C16 1
B M 0100 1534
B M 0101 3456
A A 56783933
A AR3 fe
A B 6bac6d89
A C16 1
A M 0100 1534
A M 0101 3456
E
T 45 DADD Lmem, src [, dst ] | DADD *AR3–, A, B
W 518b
B A 56783933
B AR3 101
B B 0
B C16 0
B M 0100 1534
B M 0101 3456
A A 56783933
A AR3 ff
A B 8ace4e67
A C16 0
A M 0100 1534
A M 0101 3456
E
T 46 DADST Lmem, dst | DADST *AR3–, A
W 5a8b
B A 0
B AR3 100
B C16 1
B T 2345
B M 0100 1534
B M 0101 3456
A A 38791111
A AR3 fe
A C16 1
A T 2345
A M 0100 1534
A M 0101 3456
E
T 47 DADST Lmem, dst | DADST *AR3+, A
W 5a93
B A 0
B AR3 100
B C16 0
B T 2345
B M 0100 1534
B M 0101 3456
A A 3879579b
A AR3 102
A C16 0
A T 2345
A M 0100 1534
A M 0101 3456
E
T 48 DELAY Smem | DELAY *AR3
W 4d83
B AR3 100
B M 0100 6cac
B M 0101 0000
A AR3 100
A M 0100 6cac
A M 0101 6cac
E
T 49 DLD Lmem, dst | DLD *AR3+, B
W 5793
B AR3 100
B B 0
B M 0100 6cac
B M 0101 bd90
A AR3 102
A B 6cacbd90
A M 0100 6cac
A M 0101 bd90
E
T 50 DRSUB Lmem, src | DRSUB *AR3+, A
W 5893
B A 56788933
B AR3 100
B C16 0
B M 0100 1534
B M 0101 3456
A A ffbebbab23
A AR3 102
A C 0
A C16 0
A M 0100 1534
A M 0101 3456
E
T 51 DRSUB Lmem, src | DRSUB *AR3–, A
W 588b
B A 56783933
B AR3 100
B C 1
B C16 1
B M 0100 1534
B M 0101 3456
A A ffbebcfb23
A AR3 fe
A C 0
A C16 1
A M 0100 1534
A M 0101 3456
E
T 52 DSADT Lmem, dst | DSADT *AR3+, A
W 5e93
B A 0
B AR3 100
B C 0
B C16 0
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef1111
A AR3 102
A C 0
A C16 0
A T 2345
A M 0100 1534
A M 0101 3456
E
T 53 DSADT Lmem, dst | DSADT *AR3–, A
W 5e8b
B A 0
B AR3 100
B C 0
B C16 1
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef579b
A AR3 fe
A C 1
A C16 1
A T 2345
A M 0100 1534
A M 0101 3456
E
T 54 DST src, Lmem | DST B, *AR3+
W 4f93
B AR3 100
B B 6cacbd90
B M 0100 0000
B M 0101 0000
A AR3 102
A B 6cacbd90
A M 0100 6cac
A M 0101 bd90
E
T 55 DST src, Lmem | DST B, *AR3–
W 4f8b
B AR3 101
B B 6cacbd90
B M 0100 0000
B M 0101 0000
A AR3 ff
A B 6cacbd90
A M 0100 bd90
A M 0101 6cac
E
T 56 DSUB Lmem, src | DSUB *AR3+, A
W 5493
B A 56788933
B AR3 100
B C16 0
B M 0100 1534
B M 0101 3456
A A 414454dd
A AR3 102
A C16 0
A M 0100 1534
A M 0101 3456
E
T 57 DSUB Lmem, src | DSUB *AR3–, A
W 548b
B A 56783933
B AR3 100
B C 1
B C16 1
B M 0100 1534
B M 0101 3456
A A 414404dd
A AR3 fe
A C 1
A C16 1
A M 0100 1534
A M 0101 3456
E
T 58 DSUBT Lmem, dst | DSUBT *AR3+, A
W 5c93
B A 0
B AR3 100
B C16 0
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef1111
A AR3 102
A C16 0
A T 2345
A M 0100 1534
A M 0101 3456
E
T 59 DSUBT Lmem, dst | DSUBT *AR3–, A
W 5c8b
B A 0
B AR3 100
B C16 1
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef1111
A AR3 fe
A C16 1
A T 2345
A M 0100 1534
A M 0101 3456
E
T 60 EXP src | EXP A
W f48e
B A ffffffffcb
B T 0
A A ffffffffcb
A T 19
E
T 61 EXP src | EXP B
W f58e
B B 785432105
B T fffc
A B 785432105
A T fffc
E
T 62 FB[D] extpmad | FB 012000h
W f881 2000
B PC 1000
B XPC 0
A PC 2000
A XPC 1
E
T 63 FB[D] extpmad | FBD 7F1000h
W faff 1000
B PC 2000
B XPC 0
A PC 1000
A XPC 7f
E
T 64 FBACC[D] src | FBACC A
W f4e6
B A 13000
B PC 1000
B XPC 0
A A 13000
A PC 3000
A XPC 1
E
T 65 FBACC[D] src | FBACCD B
W f7e6
B B 7f2000
B XPC 1
A B 7f2000
A XPC 7f
E
T 66 FCALA[D] src | FCALA A
W f4e7
B A 7f3000
B PC 25
B SP 1111
B XPC 0
B M 110f 4567
B M 1110 4567
A A 7f3000
A PC 3000
A SP 110f
A XPC 7f
A M 110f 0000
A M 1110 0026
E
T 67 FCALA[D] src | FCALAD B
W f7e7
B B 202000
B PC 25
B SP 1111
B XPC 7f
B M 110f 4567
B M 1110 4567
A B 202000
A PC 2000
A SP 110f
A XPC 20
A M 110f 007f
A M 1110 0028
E
T 68 FCALL[D] extpmad | FCALL 013333h
W f981 3333
B PC 25
B SP 1111
B XPC 0
B M 110f 4567
B M 1110 4567
A PC 3333
A SP 110f
A XPC 1
A M 110f 0000
A M 1110 0027
E
T 69 FCALL[D] extpmad | FCALLD 301000h
W fbb0 1000
B PC 3001
B SP 1111
B XPC 7f
B M 110f 4567
B M 1110 4567
A PC 1000
A SP 110f
A XPC 30
A M 110f 007f
A M 1110 3005
E
S 70 FIRS Xmem, Ymem, pmad | FIRS *AR3+, *AR4+, COEFFS | firs['OP_Xmem', 'OP_Ymem', 'OP_pmad']: nombre: 'COEFFS'
T 71 FRAME K | FRAME 10h
W ee10
B SP 1000
A SP 1010
E
T 72 FRET[D] | FRET
W f4e4
B PC 2112
B SP 300
B XPC 1
B M 0300 0005
B M 0301 1000
A PC 1000
A SP 302
A XPC 5
A M 0300 0005
A M 0301 1000
E
T 73 FRETE[D] | FRETE
W f4e5
B PC 2112
B SP 300
B XPC 5
B M 0300 006e
B M 0301 0110
A PC 110
A SP 302
A XPC 6e
A M 0300 006e
A M 0301 0110
# valeur: ['xCxx']
E
T 77 INTR K | INTR 3
W f7c3
B INTM 0
B PC 25
B SP 1000
B M 0fff 9653
A INTM 1
A PC ff8c
A SP fff
A M 0fff 0026
E
T 78 4: Class 4B (see page 3-8) | LD *AR1, A
W 1081
B A 0
B AR1 200
B SXM 0
B M 0200 fedc
A A fedc
A AR1 200
A SXM 0
A M 0200 fedc
E
T 79 4: Class 4B (see page 3-8) | LD *AR1, A
W 1081
B A 0
B AR1 200
B SXM 1
B M 0200 fedc
A A fffffffedc
A AR1 200
A SXM 1
A M 0200 fedc
E
T 80 4: Class 4B (see page 3-8) | LD *AR1, TS, B
W 1581
B AR1 200
B B 0
B SXM 1
B T 8
B M 0200 fedc
A AR1 200
A B fffffedc00
A SXM 1
A T 8
A M 0200 fedc
E
T 81 4: Class 4B (see page 3-8) | LD *AR3+, 16, A
W 4493
B A 0
B SXM 1
B M 0300 fedc
A A fffedc0000
A SXM 1
A M 0300 fedc
# ligne registre incomplete: AR3 0300 AR1 0301
E
T 82 4: Class 4B (see page 3-8) | LD #248, B
W e9f8
B B 0
B SXM 1
A B f8
A SXM 1
E
T 83 4: Class 4B (see page 3-8) | LD A, 8, B
W f548
B A 7ffd0040
B B ffff
B OVB 0
B SXM 1
B M 0200 fedc
A A 7ff00040
A B 7ffd004000
A OVB 1
A SXM 1
A M 0200 fedc
E
T 84 2: Class 5B (see page 3-9) | LD *AR3+, T
W 3093
B AR3 300
B T 0
B M 0300 fedc
A AR3 301
A T fedc
A M 0300 fedc
E
T 85 2: Class 5B (see page 3-9) | LD *AR4, DP
W 4684
B AR4 200
B DP 1ff
B M 0200 fedc
A AR4 200
A DP dc
A M 0200 fedc
E
T 86 2: Class 5B (see page 3-9) | LD #23, DP
W ea17
B DP 1ff
A DP 17
E
T 87 2: Class 5B (see page 3-9) | LD 15, ASM
W ed0f
B ASM 0
A ASM f
E
T 88 2: Class 5B (see page 3-9) | LD 3, ARP
W f4a3
B ARP 0
A ARP 3
E
T 89 2: Class 5B (see page 3-9) | LD 0, ASM
W ed00
B ASM 0
B DP 4
B M 0200 fedc
A ASM 1c
A DP 4
A M 0200 fedc
E
T 90 LDM MMR, dst | LDM AR4, A
W 4814
B A 1111
B AR4 ffff
A A ffff
A AR4 ffff
E
T 91 LDM MMR, dst | LDM 060h, B
W 4960
B B 0
B M 0060 1234
A B 1234
A M 0060 1234
E
T 92 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B 10c9511
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 93 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B 10d0000
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 94 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B fffef38d11
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 95 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B fffef40000
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 96 LDR Smem, dst | LDR *AR1, A
W 1681
B A 0
B AR1 200
B SXM 0
B M 0200 fedc
A A fedc8000
A AR1 200
A SXM 0
A M 0200 fedc
E
T 97 LDU Smem, dst | LDU *AR1, A
W 1281
B A 0
B AR1 200
B M 0200 fedc
A A fedc
A AR1 200
A M 0200 fedc
E
T 98 LMS Xmem, Ymem | LMS *AR3+, *AR4+
W e19a
B A 77778888
B AR3 100
B AR4 200
B B 100
B FRCT 0
B M 0100 0055
B M 0200 00aa
A A 77cd0888
A AR3 101
A AR4 201
A B 3972
A FRCT 0
A M 0100 0055
A M 0200 00aa
E
T 99 LTD Smem | LTD *AR3
W 4c83
B AR3 100
B T 0
B M 0100 6cac
B M 0101 6cac
A AR3 100
A T 6cac
A M 0100 6cac
E
T 100 4: Class 6B (see page 3-11) | MAC *AR5+, A
W 2895
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A 48e000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 101 4: Class 6B (see page 3-11) | MAC #345h, A, B
W f167 0345
B A 1000
B B 0
B FRCT 1
B T 400
A A 1000
A B 1a3800
A FRCT 1
A T 400
E
T 102 4: Class 6B (see page 3-11) | MAC *AR5+, #1234h, A
W 6495 1234
B A 1000
B AR5 100
B FRCT 0
B T 0
B M 0100 5678
A A 6261060
A AR5 101
A FRCT 0
A T 5678
A M 0100 5678
E
T 103 4: Class 6B (see page 3-11) | MAC *AR5+, *AR4+,A, B ;(AR6->AR4)
W b1ba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B c4c10c0
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 104 4: Class 6B (see page 3-11) | MACR *AR5+, A
W 2a95
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A 490000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 105 4: Class 6B (see page 3-11) | MACR *AR5+, *AR4+,A, B ;(AR6->AR4)
W b5ba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B c4c0000
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 106 MACA[R] Smem [, B ] | MACA *AR5+
W 3595
B A 12340000
B AR5 100
B B 0
B FRCT 0
B T 400
B M 0100 5678
A A 12340000
A AR5 101
A B 6260060
A FRCT 0
A T 5678
A M 0100 5678
E
T 107 MACA[R] Smem [, B ] | MACA T, B, B
W f788
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B 9d4ba0
A FRCT 1
A T 444
E
T 108 MACA[R] Smem [, B ] | MACAR *AR5+, B
W 3795
B A 12340000
B AR5 100
B B 0
B FRCT 0
B T 400
B M 0100 5678
A A 12340000
A AR5 101
A B 6260000
A FRCT 0
A T 5678
A M 0100 5678
E
T 109 MACA[R] Smem [, B ] | MACAR T, B, B
W f789
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B 9d0000
A FRCT 1
A T 444
E
S 110 MACD Smem, pmad, src | MACD *AR3–, COEFFS, A | macd['OP_Smem', 'OP_pmad', 'OP_SRC1']: nombre: 'COEFFS'
S 111 MACP Smem, pmad, src | MACP *AR3–, COEFFS, A | macp['OP_Smem', 'OP_pmad', 'OP_SRC1']: nombre: 'COEFFS'
T 112 MACSU Xmem, Ymem, src | MACSU *AR4+, *AR5+, A
W a6ab
B A 1000
B AR4 100
B AR5 200
B FRCT 0
B T 8
B M 0100 8765
B M 0200 1234
A A 9a0aa84
A AR4 101
A AR5 201
A FRCT 0
A T 8765
A M 0100 8765
A M 0200 1234
E
T 113 MAR Smem | MAR *AR3+
W 6d93
B AR3 100
B ARP 0
B CMPT 0
A AR3 101
A ARP 0
A CMPT 0
E
T 114 MAR Smem | MAR *AR0–
W 6d88
B AR4 100
B ARP 4
B CMPT 1
A AR4 ff
A ARP 4
A CMPT 1
E
T 115 MAR Smem | MAR *AR3
W 6d83
B AR0 8
B AR3 100
B ARP 0
B CMPT 1
A AR0 8
A AR3 100
A ARP 3
A CMPT 1
E
T 116 MAR Smem | MAR *+AR3
W 6d9b
B AR3 100
B ARP 0
B CMPT 1
A AR3 101
A ARP 3
A CMPT 1
E
T 117 MAR Smem | MAR *AR3–
W 6d8b
B AR3 100
B ARP 0
B CMPT 1
A AR3 ff
A ARP 3
A CMPT 1
E
T 118 2: Class 7 (see page 3-12) | MAS *AR5+, A
W 2c95
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A ffffb74000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 119 2: Class 7 (see page 3-12) | MAS *AR5+, *AR4+, A, B ;(AR6->AR4)
W b9ba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B fff9da0fa0
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 120 2: Class 7 (see page 3-12) | MASR *AR5+, A
W 2e95
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A ffffb70000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 121 2: Class 7 (see page 3-12) | MASR *AR5+, *AR4+, A, B ;(AR6->AR4)
W bdba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B fff9da0000
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 122 2: Class 1 (see page 3-3) | MASA *AR5+
W 3395
B A 12340000
B AR5 100
B B 20000
B FRCT 0
B T 400
B M 0100 5678
A A 12340000
A AR5 101
A B fff9dbffa0
A FRCT 0
A T 5678
A M 0100 5678
E
T 123 2: Class 1 (see page 3-3) | MASA T, B
W f78a
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B ffff66b460
A FRCT 1
A T 444
E
T 124 2: Class 1 (see page 3-3) | MASAR T, B
W f78b
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B ffff670000
A FRCT 1
A T 444
E
T 125 MAX dst | MAX A
W f486
B A fff6
B B ffcb
B C 1
A A fff6
A B ffcb
A C 0
E
T 126 MAX dst | MAX A
W f486
B A 55
B B 1234
B C 0
A A 1234
A B 1234
A C 1
E
T 127 MIN dst | MIN A
W f487
B A ffcb
B B fff6
B C 1
A A ffcb
A B fff6
A C 0
E
T 128 MIN dst | MIN A
W f487
B A 1234
B B 1234
B C 0
A A 1234
A B 1234
A C 1
E
T 129 4: Class 2 (see page 3-4) | MPY 13, A
W 200d
B A 36
B DP 8
B FRCT 1
B T 6
B M 040d 0007
A A 54
A DP 8
A FRCT 1
A T 6
A M 040d 0007
E
T 130 4: Class 2 (see page 3-4) | MPY *AR2–, *AR4+0%, B;
W a54e
B AR0 1
B AR2 1ff
B AR4 300
B B ffffffffe0
B FRCT 0
B M 01ff 0010
B M 0300 0002
A AR0 1
A AR2 1fe
A AR4 301
A B 20
A FRCT 0
A M 01ff 0010
A M 0300 0002
E
T 131 4: Class 2 (see page 3-4) | MPY #0FFFEh, A
W f066 fffe
B A 0
B FRCT 0
B T 2000
A A ffffffc000
A FRCT 0
A T 2000
E
T 132 4: Class 2 (see page 3-4) | MPYR 0, B
W 2300
B B fffe000001
B DP 4
B FRCT 0
B T 1234
B M 0200 5678
A B 6260000
A DP 4
A FRCT 0
A T 1234
A M 0200 5678
E
T 133 2: Class 1 (see page 3-3) | MPYA *AR2
W 3182
B A ff87651111
B AR2 200
B B 320
B FRCT 0
B T 1234
B M 0200 5678
A A ff87651111
A AR2 200
A B ffd7436558
A FRCT 0
A T 5678
A M 0200 5678
E
T 134 2: Class 1 (see page 3-3) | MPYA B
W f58c
B A ff87651111
B B 320
B FRCT 0
B T 4567
A A ff87651111
A B ffdf4db2a3
A FRCT 0
A T 4567
E
T 135 MPYU Smem, dst | MPYU *AR0–, A
W 2488
B A ff80000000
B AR0 1000
B FRCT 0
B T 4000
B M 1000 fe00
A A 3f800000
A AR0 fff
A FRCT 0
A T 4000
A M 1000 fe00
E
T 136 MVDD Xmem, Ymem | MVDD *AR3+, *AR5+
W e59b
B AR3 8000
B AR5 200
B M 0200 abcd
B M 8000 1234
A AR3 8001
A AR5 201
A M 0200 1234
A M 8000 1234
E
T 137 MVDK Smem, dmad | MVDK 10, 8000h
W 710a 8000
B DP 4
B M 020a 1234
B M 8000 abcd
A DP 4
A M 020a 1234
A M 8000 1234
E
T 138 MVDK Smem, dmad | MVDK *AR3–, 1000h
W 718b 1000
B AR3 1ff
B M 01ff 1234
B M 1000 abcd
A AR3 1fe
A M 01ff 1234
A M 1000 1234
E
T 139 MVDM dmad, MMR | MVDM 300h, BK
W 7219 0300
B BK abcd
B M 0300 1234
A BK 1234
A M 0300 1234
E
T 140 MVDP Smem, pmad | MVDP 0, 0FE00h
W 7d00 fe00
B DP 4
B M 0200 0123
B P fe00 ffff
A DP 4
A M 0200 0123
E
T 141 MVKD dmad, Smem | MVKD 300h, 0
W 7000 0300
B DP 4
B M 0200 abcd
B M 0300 1234
A DP 4
A M 0200 1234
A M 0300 1234
E
T 142 MVKD dmad, Smem | MVKD 1000h, *+AR5
W 709d 1000
B AR5 1ff
B M 0200 abcd
B M 1000 1234
A AR5 200
A M 0200 1234
A M 1000 1234
E
T 143 MVMD MMR, dmad | MVMD AR7, 8000h
W 7317 8000
B AR7 1234
B M 8000 abcd
A AR7 1234
A M 8000 1234
E
T 144 MVMM MMRx, MMRy | MVMM SP, AR1
W e781
B AR1 3eff
B SP 200
A AR1 200
A SP 200
E
T 145 MVPD pmad, Smem | MVPD 0FE00h, 5
W 7c05 fe00
B DP 6
B M 0305 ffff
B P fe00 8a55
A DP 6
A M 0305 8a55
E
T 146 MVPD pmad, Smem | MVPD 2000h, *AR7–0
W 7caf 2000
B AR0 2
B AR7 ffe
B M 0ffe abcd
B P 2000 1234
A AR0 2
A AR7 ffc
A M 0ffe 1234
E
T 147 NEG src [, dst ] | NEG A, B
W f584
B A fffffff228
B B 1234
B OVA 0
A A fffffff228
A B dd8
A OVA 0
E
T 148 NEG src [, dst ] | NEG B, A
W f684
B A 1234
B B 80000000
B OVB 0
A A ff80000000
A B 80000000
A OVB 0
E
T 149 NEG src [, dst ] | NEG A
W f484
B A 8000000000
B OVA 0
B OVM 0
A A 8000000000
A OVA 1
A OVM 0
E
T 150 NEG src [, dst ] | NEG A
W f484
B A 8000000000
B OVA 0
B OVM 1
A A 7fffffff
A OVA 1
A OVM 1
E
T 152 NORM src [, dst ] | NORM A
W f48f
B A fffffff001
B T 13
A A ff80080000
A T 13
E
T 153 NORM src [, dst ] | NORM B, A
W f68f
B A fffffff001
B B 210a0a0a0a
B T ff9
A A 42141414
A B 210a0a0a0a
A T ff9
E
T 154 4: Class 1 (see page 3-3) | OR *AR3+, A
W 1a93
B A ff1200
B AR3 100
B M 0100 1500
A A ff1700
A AR3 101
A M 0100 1500
E
T 155 4: Class 1 (see page 3-3) | OR A, +3, B
W f1a3
B A 1200
B B 1800
A A 1200
A B 9800
E
T 156 ORM #lk, Smem | ORM 0404h, *AR4+
W 6994 0404
B AR4 100
B M 0100 4444
A AR4 101
A M 0100 4444
E
T 157 POLY Smem | POLY *AR3+%
W 36d3
B A 12340000
B AR3 200
B B 10000
B T 5678
B M 0200 2000
A A 6270000
A AR3 201
A B 20000000
A T 5678
A M 0200 2000
E
T 158 POPD Smem | POPD 10
W 8b0a
B DP 8
B SP 300
B M 0300 0092
B M 040a 0055
A DP 8
A SP 301
A M 0300 0092
A M 040a 0092
E
T 159 POPM MMR | POPM AR5
W 8a15
B AR5 55
B SP 3f0
B M 03f0 0060
A AR5 60
A SP 3f1
A M 03f0 0060
E
S 160 PORTR PA, Smem | PORTR 05, INDAT ; INDAT .equ 60h | portr['OP_PA', 'OP_Smem']: nombre: 'INDAT'
S 161 PORTW Smem, PA | PORTW OUTDAT, 5h ; OUTDAT .equ 07h | portw['OP_Smem', 'OP_PA']: nombre: 'OUTDAT'
T 162 PSHD Smem | PSHD *AR3+
W 4b93
B AR3 200
B SP 8000
B M 0200 07ff
B M 7fff 0092
A AR3 201
A SP 7fff
A M 0200 07ff
A M 7fff 07ff
E
T 163 PSHM MMR | PSHM BRC
W 4a1a
B BRC 1234
B SP 2000
B M 1fff 07ff
A BRC 1234
A SP 1fff
A M 1fff 1234
E
T 164 RC[D] cond [, cond [, condĂ] ] | RC AGEQ, ANOV ; return is executed if the accumulator A
W fc62
B OVA 0
B PC 807
B SP 308
B M 0308 2002
A OVA 0
A PC 2002
A SP 309
A M 0308 2002
E
T 165 READA Smem | READA 6
W 7e06
B A 23
B DP 4
B M 0206 0075
B P 0023 0306
A A 23
A DP 4
A M 0206 0306
E
T 166 RESET | RESET
W f7e0
B INTM 0
B PC 25
A INTM 1
A PC 80
E
T 167 RET[D] | RET
W fc00
B PC 2112
B SP 300
B M 0300 1000
A PC 1000
A SP 301
A M 0300 1000
E
T 168 RETE[D] | RETE
W f4eb
B PC 1c3
B SP 2001
B M 2001 0110
A PC 110
A SP 2002
A M 2001 0110
# valeur: ['xCxx']
E
T 169 RETF[D] | RETF
W f49b
B PC 1c3
B SP 2001
B M 2001 0110
A PC 110
A SP 2002
A M 2001 0110
# valeur: ['xCxx']
E
T 170 RND src [, dst ] | RND A, B
W f59f
B A ffffffffff
B B 1
B OVM 0
A A ffffffffff
A B 7fff
A OVM 0
E
T 171 RND src [, dst ] | RND A
W f49f
B A 7fffffff
B OVM 1
A A 7fffffff
A OVM 1
E
T 172 ROL src | ROL A
W f491
B A 5fb0001234
B C 0
A A 60002468
A C 1
E
T 173 ROLTC src | ROLTC A
W f492
B A 81c0005555
B TC 1
A A 8000aaab
A C 1
A TC 1
E
T 174 ROR src | ROR A
W f490
B A 7fb0001235
B C 0
A A 5800091a
A C 1
E
S 175 3: Class 2 (see page 3-4) | RPT DAT127 ; DAT127 .EQU 0FFF | rpt['OP_Smem']: nombre: 'DAT127'; rpt['OP_k8u']: nombre: 'DAT127'; rpt['OP_lku']: nombre: 'DAT127'
T 178 RPTB[D] pmad | ST #99, BRC
W 761a 0063
B BRC 1234
B PC 1000
B RSA 5678
A BRC 63
A PC 1002
A RSA 1002
# valeur: ['end_block', '-', '1']
E
T 179 RPTB[D] pmad | ST #99, BRC ;execute the block 100 times
W 761a 0063
B BRC 1234
B PC 1000
B RSA 5678
A BRC 63
A PC 1004
A RSA 1004
# valeur: ['end_block', '-', '1']
E
T 180 RPTZ dst, #lk | RPTZ A, 1023 ; Repeat the next instruction 1024 times
W f071 03ff
B A ffe008000
A A 0
E
T 181 RSBX N, SBIT | RSBX SXM ; SXM means: n=1 and SBIT=8
W f6b8
B ST1 35cd
A ST1 34cd
E
T 182 RSBX N, SBIT | RSBX 1,8
W f6b8
B ST1 35cd
A ST1 34cd
E
T 183 SACCD src, Xmem, cond | SACCD A, *AR3+0%, ALT
W 9ed3
B A fffe004321
B AR0 2
B AR3 202
B ASM 1
B M 0202 0101
A A fffe004321
A AR0 2
A AR3 204
A ASM 1
A M 0202 fc00
E
T 184 SAT src | SAT B
W f583
B B 7123456789
A B 7fffffff
A OVB 1
E
T 185 SAT src | SAT A
W f483
B A f812345678
A A ff80000000
A OVA 1
E
T 186 SAT src | SAT B
W f583
B B 123456
A B 123456
A OVB 0
E
T 187 SFTA src, SHIFT [, dst ] | SFTA A, –5, B
W f57b
B A ff87650055
B B 43211234
B SXM 1
A A ff87650055
A B fffc3b2802
A C 1
A SXM 1
E
T 188 SFTA src, SHIFT [, dst ] | SFTA B, +5
W f765
B B 80aa001234
B C 0
B OVM 0
B SXM 0
A B 1540024680
A C 1
A OVM 0
A SXM 0
E
T 189 SFTC src | SFTC A
W f494
B A fffffff001
A A ffffffe002
A TC 0
E
T 190 SFTL src, SHIFT [, dst ] | SFTL A, –5, B
W f1fb
B A ff87650055
B B ff80000000
B C 0
A A ff87650055
A B 43b2802
A C 1
E
T 191 SFTL src, SHIFT [, dst ] | SFTL B, +5
W f3e5
B B 80aa001234
B C 0
A B 40024680
A C 1
E
S 192 SQDST Xmem, Ymem | SQDST *AR3+, AR4+ | sqdst['OP_Xmem', 'OP_Ymem']: Xmem: 'AR4+'
T 193 2: Class 1 (see page 3-3) | SQUR 30, B
W 271e
B B 1f4
B DP 6
B FRCT 0
B T 3
B M 031e 000f
A B e1
A DP 6
A FRCT 0
A T f
A M 031e 000f
E
T 194 2: Class 1 (see page 3-3) | SQUR A, B
W f58d
B A f0000
B B 1010101
B FRCT 1
A A f0000
A B 1c2
A FRCT 1
E
T 195 SQURA Smem, src | SQURA 30, B
W 391e
B B 3200000
B DP 6
B FRCT 0
B T 3
B M 031e 000f
A B 32000e1
A DP 6
A FRCT 0
A T f
A M 031e 000f
E
T 196 SQURA Smem, src | SQURA *AR3+, A
W 3893
B A 1f4
B AR3 31e
B FRCT 0
B T 3
B M 031e 000f
A A 2d5
A AR3 31f
A FRCT 0
A T f
A M 031e 000f
E
T 197 SQURS Smem, src | SQURS 9, A
W 3a09
B A 14b5db0
B DP 6
B FRCT 0
B T 8765
B M 0309 1234
A A 320
A DP 6
A FRCT 0
A T 1234
A M 0309 1234
E
T 198 SQURS Smem, src | SQURS *AR3, B
W 3b83
B AR3 309
B B 14b5db0
B FRCT 0
B T 8765
B M 0309 1234
A AR3 309
A B 320
A FRCT 0
A T 1234
A M 0309 1234
E
T 199 SRCCD Xmem, cond | SRCCD *AR5–, AGT
W 9d76
B A 70ffffff
B AR5 202
B BRC 4321
B M 0202 1234
A A 70ffffff
A AR5 201
A BRC 4321
A M 0202 4321
E
T 200 SSBX N, SBIT | SSBX SXM ; SXM means: N=1, SBIT=8
W f7b8
B ST1 34cd
A ST1 35cd
E
T 201 SSBX N, SBIT | SSBX 1,8
W f7b8
B ST1 34cd
A ST1 35cd
E
T 202 3: Class 12B (see page 3-27) | ST FFFFh, 0
W 7600 ffff
B DP 4
B M 0200 0101
A DP 4
A M 0200 ffff
E
T 203 3: Class 12B (see page 3-27) | ST TRN, 5
W 8d05
B DP 4
B TRN 1234
B M 0205 0030
A DP 4
A TRN 1234
A M 0205 1234
E
T 204 3: Class 12B (see page 3-27) | ST T, *AR7–
W 8c8f
B AR7 321
B T 4210
B M 0321 1200
A AR7 320
A T 4210
A M 0321 4210
E
T 205 4: Class 11B (see page 3-25) | STH A, 10
W 820a
B A ff87654321
B DP 4
B M 020a 1234
A A ff87654321
A DP 4
A M 020a 8765
E
S 206 4: Class 11B (see page 3-25) | STH B, –8, *AR7– | sth['OP_SRC1', 'OP_Smem']: Smem direct hors 0..7F: '-8'; sth['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; sth['OP_SRC1'
S 207 4: Class 11B (see page 3-25) | STH A, –4, 10 | sth['OP_SRC1', 'OP_Smem']: Smem direct hors 0..7F: '-4'; sth['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; sth['OP_SRC1'
T 208 4: Class 11B (see page 3-25) | STL A, 11
W 800b
B A ff87654321
B DP 4
B M 020b 1234
A A ff87654321
A DP 4
A M 020b 4321
E
S 209 4: Class 11B (see page 3-25) | STL B, –8, *AR7– | stl['OP_SRC1', 'OP_Smem']: Smem direct hors 0..7F: '-8'; stl['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; stl['OP_SRC1'
S 210 4: Class 11B (see page 3-25) | STL A, 7, 11 | stl['OP_SRC1', 'OP_Smem']: operandes en trop: ['11']; stl['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; stl['OP_SRC1', '
T 211 STLM src, MMR | STLM A, BRC
W 881a
B A ff87654321
A A ff87654321
E
T 212 STLM src, MMR | STLM B, *AR1–
W 8989
B AR1 3f17
B B ff84211234
A AR1 16
A B ff84211234
E
T 213 STM #lk, MMR | STM 0FFFFh, IMR
W 7700 ffff
B IMR ff01
A IMR ffff
E
T 214 STM #lk, MMR | STM 8765h, *AR7+
W 7797 8765
B AR0 0
B AR7 8010
A AR0 8765
A AR7 11
E
S 215 ST src, Ymem | ST A, *AR3 | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
S 216 ST src, Ymem | ST B, *AR2– | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'B'
S 217 ST src, Ymem | ST A, *AR3 | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
S 219 ST src, Ymem | ST A, *AR4– | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
S ⟨1⟩ ST src, Ymem | ST A, *AR⟨2⟩+ | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A' ×4
⟨⟩ = (220,4) (221,4) (222,4) (223,3)
S 224 ST src, Ymem | ST A, *AR3– | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
T 225 STRCD Xmem, cond | STRCD *AR5–, AGT
W 9c76
B A 70ffffff
B AR5 202
B T 4321
B M 0202 1234
A A 70ffffff
A AR5 201
A T 4321
A M 0202 4321
E
S 226 6: Class 7 (see page 3-12) | SUB *AR1+, 14, A | sub['OP_SRC', 'OPT|OP_SHIFT', 'OPT|OP_DST']: src attendu, '*AR1+'; sub['OP_SRC', 'OP_ASM', 'OPT|OP_DST']: src attendu, '
T 227 6: Class 7 (see page 3-12) | SUB A, –8, B
W f538
B A 1200
B B 1800
B SXM 1
A A 1200
A B 17ee
A C 1
A SXM 1
E
T 228 6: Class 7 (see page 3-12) | SUB #12345, 8, A, B
W f118 3039
B A 1200
B B 1800
B SXM 1
A A 1200
A B ffffcfd900
A C 0
A SXM 1
E
T 229 SUBB Smem, src | SUBB 5, A
W 0e05
B A 6
B C 0
B DP 8
B M 0405 0006
A A ffffffffff
A C 0
A DP 8
A M 0405 0006
E
T 230 SUBB Smem, src | SUBB *AR1+, B
W 0f91
B AR1 405
B B ff80000006
B C 1
B OVM 1
B M 0405 0006
A AR1 406
A B ff80000000
A C 1
A OVM 1
A M 0405 0006
E
T 231 SUBC Smem, src | SUBC 2, A
W 1e02
B A 4
B DP 6
B M 0302 0001
A A 8
A C 0
A DP 6
A M 0302 0001
E
T 232 SUBC Smem, src | RPT #15
W 470f
B AR1 1000
B B 41
B M 1000 0007
A AR1 1000
A B 20009
A C 1
A M 1000 0007
E
T 233 SUBS Smem, src | SUBS *AR2–, B
W 0b8a
B AR2 100
B B 2
B M 0100 f006
A AR2 ff
A B ffffff0ffc
A C 0
A M 0100 f006
E
T 234 TRAP K | TRAP 10h
W f4d0
B PC 1233
B SP 3ff
B M 03fe 9653
A PC ffc0
A SP 3fe
A M 03fe 1234
E
T 235 WRITA Smem | WRITA 5
W 7f05
B A 257
B DP 32
B M 1005 4339
B P 0257 0306
A A 257
A DP 32
A M 1005 4339
E
T 236 n Opcode N | XC 1, ALEQ
W fd47
B A ffffffffff
B AR1 32
A A ffffffffff
A AR1 33
E
T 237 4: Class 1 (see page 3-3) | XOR *AR3+, A
W 1c93
B A ff1200
B AR3 100
B M 0100 1500
A A ff0700
A AR3 101
A M 0100 1500
E
T 238 4: Class 1 (see page 3-3) | XOR A, +3, B
W f1c3
B A 1200
B B 1800
A A 1200
A B 8800
E
T 239 XORM #lk, Smem | XORM 0404h, *AR4–
W 6a8c 0404
B AR4 100
B M 0100 4444
A AR4 ff
A M 0100 4040
# ligne registre incomplete: C†
# ligne registre incomplete: TC†
# ligne registre incomplete: TC = 1
# ligne registre incomplete: TC = 0
# ligne registre incomplete: ST0 and ST1 contain the status of various conditions and modes; PMST con-
# ligne registre incomplete: ARP Auxiliary register pointer
# ligne registre incomplete: ASM Accumulator shift mode
# ligne registre incomplete: BRAF Block repeat active flag
# ligne registre incomplete: C Carry
# ligne registre incomplete: CMPT Compatibility mode
# ligne registre incomplete: CPL Compiler mode
# ligne registre incomplete: C16 Dual 16-bit/double-precision arithmetic mode
# ligne registre incomplete: DP Data page pointer
# ligne registre incomplete: FRCT Fractional mode
# ligne registre incomplete: HM Hold mode
# ligne registre incomplete: INTM Interrupt mode
# ligne registre incomplete: OVA Overflow flag A
# ligne registre incomplete: OVB Overflow flag B
# ligne registre incomplete: OVM Overflow mode
# ligne registre incomplete: SXM Sign-extension mode
# ligne registre incomplete: TC Test/control flag
# ligne registre incomplete: XF External flag status
# ligne registre incomplete: ARP TC C OVA OVB DP
# ligne registre incomplete: BRAF CPL XF HM INTM 0 OVM SXM C16 FRCT CMPT ASM
# ligne registre incomplete: A
# ligne registre incomplete: B
# ligne registre incomplete: C
# ligne registre incomplete: a single instruction is executed.
# ligne registre incomplete: T
# ligne registre incomplete: XF pin.
# ligne registre incomplete: a 0.
# ligne registre incomplete: a 0.
# ligne registre incomplete: A subtract instructions 2-3 to 2-4
# ligne registre incomplete: B instruction 4-14
# ligne registre incomplete: C DELAY instruction 4-41
# ligne registre incomplete: C address bus (CAB) C-3 direct memory address, definition C-4
# ligne registre incomplete: C bus (CB), definition C-3 DLD instruction 4-42
# ligne registre incomplete: C16 C-3 double (32-bit operand) instructions 2-6
# ligne registre incomplete: T zero detect bit A (ZA), definition C-10
E5.9 /opt/GSM/c54x_exe/tools/cch_ref/cch_deinterleave_inverse_ref.csv
7138 octets, 457 lignes → 80 lignes (1 groupes compactés)
iB_index,burst_B,pos_j,source_coded_k,lane_G
⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩ ×456
⟨⟩ = (0,0,0,0,0) (1,0,1,228,0) (2,0,2,64,0) (3,0,3,292,0) (4,0,4,128,0) (5,0,5,356,0) (6,0,6,192,0)
(7,0,7,420,0) (8,0,8,256,0) (9,0,9,28,0) (10,0,10,320,0) (11,0,11,92,0) (12,0,12,384,0)
(13,0,13,156,0) (14,0,14,448,0) (15,0,15,220,0) (16,0,16,56,0) (17,0,17,284,0) (18,0,18,120,0)
(19,0,19,348,0) (20,0,20,184,0) (21,0,21,412,0) (22,0,22,248,0) (23,0,23,20,0) (24,0,24,312,0)
(25,0,25,84,0) (26,0,26,376,0) (27,0,27,148,0) (28,0,28,440,0) (29,0,29,212,0) (30,0,30,48,0)
(31,0,31,276,0) (32,0,32,112,0) (33,0,33,340,0) (34,0,34,176,0) (35,0,35,404,0) (36,0,36,240,0)
(37,0,37,12,0) (38,0,38,304,0) (39,0,39,76,0) (40,0,40,368,0) (41,0,41,140,0) (42,0,42,432,0)
(43,0,43,204,0) (44,0,44,40,0) (45,0,45,268,0) (46,0,46,104,0) (47,0,47,332,0) (48,0,48,168,0)
(49,0,49,396,0) (50,0,50,232,0) (51,0,51,4,0) (52,0,52,296,0) (53,0,53,68,0) (54,0,54,360,0)
(55,0,55,132,0) (56,0,56,424,0) (57,0,57,196,0) (58,0,58,32,0) (59,0,59,260,0) (60,0,60,96,0)
(61,0,61,324,0) (62,0,62,160,0) (63,0,63,388,0) (64,0,64,224,0) (65,0,65,452,0) (66,0,66,288,0)
(67,0,67,60,0) (68,0,68,352,0) (69,0,69,124,0) (70,0,70,416,0) (71,0,71,188,0) (72,0,72,24,0)
(73,0,73,252,0) (74,0,74,88,0) (75,0,75,316,0) (76,0,76,152,0) (77,0,77,380,0) (78,0,78,216,0)
(79,0,79,444,0) (80,0,80,280,0) (81,0,81,52,0) (82,0,82,344,0) (83,0,83,116,0) (84,0,84,408,0)
(85,0,85,180,0) (86,0,86,16,0) (87,0,87,244,0) (88,0,88,80,0) (89,0,89,308,0) (90,0,90,144,0)
(91,0,91,372,0) (92,0,92,208,0) (93,0,93,436,0) (94,0,94,272,0) (95,0,95,44,0) (96,0,96,336,0)
(97,0,97,108,0) (98,0,98,400,0) (99,0,99,172,0) (100,0,100,8,0) (101,0,101,236,0) (102,0,102,72,0)
(103,0,103,300,0) (104,0,104,136,0) (105,0,105,364,0) (106,0,106,200,0) (107,0,107,428,0)
(108,0,108,264,0) (109,0,109,36,0) (110,0,110,328,0) (111,0,111,100,0) (112,0,112,392,0)
(113,0,113,164,0) (114,1,0,57,1) (115,1,1,285,1) (116,1,2,121,1) (117,1,3,349,1) (118,1,4,185,1)
(119,1,5,413,1) (120,1,6,249,1) (121,1,7,21,1) (122,1,8,313,1) (123,1,9,85,1) (124,1,10,377,1)
(125,1,11,149,1) (126,1,12,441,1) (127,1,13,213,1) (128,1,14,49,1) (129,1,15,277,1) (130,1,16,113,1)
(131,1,17,341,1) (132,1,18,177,1) (133,1,19,405,1) (134,1,20,241,1) (135,1,21,13,1) (136,1,22,305,1)
(137,1,23,77,1) (138,1,24,369,1) (139,1,25,141,1) (140,1,26,433,1) (141,1,27,205,1) (142,1,28,41,1)
(143,1,29,269,1) (144,1,30,105,1) (145,1,31,333,1) (146,1,32,169,1) (147,1,33,397,1) (148,1,34,233,1)
(149,1,35,5,1) (150,1,36,297,1) (151,1,37,69,1) (152,1,38,361,1) (153,1,39,133,1) (154,1,40,425,1)
(155,1,41,197,1) (156,1,42,33,1) (157,1,43,261,1) (158,1,44,97,1) (159,1,45,325,1) (160,1,46,161,1)
(161,1,47,389,1) (162,1,48,225,1) (163,1,49,453,1) (164,1,50,289,1) (165,1,51,61,1) (166,1,52,353,1)
(167,1,53,125,1) (168,1,54,417,1) (169,1,55,189,1) (170,1,56,25,1) (171,1,57,253,1) (172,1,58,89,1)
(173,1,59,317,1) (174,1,60,153,1) (175,1,61,381,1) (176,1,62,217,1) (177,1,63,445,1) (178,1,64,281,1)
(179,1,65,53,1) (180,1,66,345,1) (181,1,67,117,1) (182,1,68,409,1) (183,1,69,181,1) (184,1,70,17,1)
(185,1,71,245,1) (186,1,72,81,1) (187,1,73,309,1) (188,1,74,145,1) (189,1,75,373,1) (190,1,76,209,1)
(191,1,77,437,1) (192,1,78,273,1) (193,1,79,45,1) (194,1,80,337,1) (195,1,81,109,1) (196,1,82,401,1)
(197,1,83,173,1) (198,1,84,9,1) (199,1,85,237,1) (200,1,86,73,1) (201,1,87,301,1) (202,1,88,137,1)
(203,1,89,365,1) (204,1,90,201,1) (205,1,91,429,1) (206,1,92,265,1) (207,1,93,37,1) (208,1,94,329,1)
(209,1,95,101,1) (210,1,96,393,1) (211,1,97,165,1) (212,1,98,1,1) (213,1,99,229,1) (214,1,100,65,1)
(215,1,101,293,1) (216,1,102,129,1) (217,1,103,357,1) (218,1,104,193,1) (219,1,105,421,1)
(220,1,106,257,1) (221,1,107,29,1) (222,1,108,321,1) (223,1,109,93,1) (224,1,110,385,1)
(225,1,111,157,1) (226,1,112,449,1) (227,1,113,221,1) (228,2,0,114,0) (229,2,1,342,0) (230,2,2,178,0)
(231,2,3,406,0) (232,2,4,242,0) (233,2,5,14,0) (234,2,6,306,0) (235,2,7,78,0) (236,2,8,370,0)
(237,2,9,142,0) (238,2,10,434,0) (239,2,11,206,0) (240,2,12,42,0) (241,2,13,270,0) (242,2,14,106,0)
(243,2,15,334,0) (244,2,16,170,0) (245,2,17,398,0) (246,2,18,234,0) (247,2,19,6,0) (248,2,20,298,0)
(249,2,21,70,0) (250,2,22,362,0) (251,2,23,134,0) (252,2,24,426,0) (253,2,25,198,0) (254,2,26,34,0)
(255,2,27,262,0) (256,2,28,98,0) (257,2,29,326,0) (258,2,30,162,0) (259,2,31,390,0) (260,2,32,226,0)
(261,2,33,454,0) (262,2,34,290,0) (263,2,35,62,0) (264,2,36,354,0) (265,2,37,126,0) (266,2,38,418,0)
(267,2,39,190,0) (268,2,40,26,0) (269,2,41,254,0) (270,2,42,90,0) (271,2,43,318,0) (272,2,44,154,0)
(273,2,45,382,0) (274,2,46,218,0) (275,2,47,446,0) (276,2,48,282,0) (277,2,49,54,0) (278,2,50,346,0)
(279,2,51,118,0) (280,2,52,410,0) (281,2,53,182,0) (282,2,54,18,0) (283,2,55,246,0) (284,2,56,82,0)
(285,2,57,310,0) (286,2,58,146,0) (287,2,59,374,0) (288,2,60,210,0) (289,2,61,438,0) (290,2,62,274,0)
(291,2,63,46,0) (292,2,64,338,0) (293,2,65,110,0) (294,2,66,402,0) (295,2,67,174,0) (296,2,68,10,0)
(297,2,69,238,0) (298,2,70,74,0) (299,2,71,302,0) (300,2,72,138,0) (301,2,73,366,0) (302,2,74,202,0)
(303,2,75,430,0) (304,2,76,266,0) (305,2,77,38,0) (306,2,78,330,0) (307,2,79,102,0) (308,2,80,394,0)
(309,2,81,166,0) (310,2,82,2,0) (311,2,83,230,0) (312,2,84,66,0) (313,2,85,294,0) (314,2,86,130,0)
(315,2,87,358,0) (316,2,88,194,0) (317,2,89,422,0) (318,2,90,258,0) (319,2,91,30,0) (320,2,92,322,0)
(321,2,93,94,0) (322,2,94,386,0) (323,2,95,158,0) (324,2,96,450,0) (325,2,97,222,0) (326,2,98,58,0)
(327,2,99,286,0) (328,2,100,122,0) (329,2,101,350,0) (330,2,102,186,0) (331,2,103,414,0)
(332,2,104,250,0) (333,2,105,22,0) (334,2,106,314,0) (335,2,107,86,0) (336,2,108,378,0)
(337,2,109,150,0) (338,2,110,442,0) (339,2,111,214,0) (340,2,112,50,0) (341,2,113,278,0)
(342,3,0,171,1) (343,3,1,399,1) (344,3,2,235,1) (345,3,3,7,1) (346,3,4,299,1) (347,3,5,71,1)
(348,3,6,363,1) (349,3,7,135,1) (350,3,8,427,1) (351,3,9,199,1) (352,3,10,35,1) (353,3,11,263,1)
(354,3,12,99,1) (355,3,13,327,1) (356,3,14,163,1) (357,3,15,391,1) (358,3,16,227,1) (359,3,17,455,1)
(360,3,18,291,1) (361,3,19,63,1) (362,3,20,355,1) (363,3,21,127,1) (364,3,22,419,1) (365,3,23,191,1)
(366,3,24,27,1) (367,3,25,255,1) (368,3,26,91,1) (369,3,27,319,1) (370,3,28,155,1) (371,3,29,383,1)
(372,3,30,219,1) (373,3,31,447,1) (374,3,32,283,1) (375,3,33,55,1) (376,3,34,347,1) (377,3,35,119,1)
(378,3,36,411,1) (379,3,37,183,1) (380,3,38,19,1) (381,3,39,247,1) (382,3,40,83,1) (383,3,41,311,1)
(384,3,42,147,1) (385,3,43,375,1) (386,3,44,211,1) (387,3,45,439,1) (388,3,46,275,1) (389,3,47,47,1)
(390,3,48,339,1) (391,3,49,111,1) (392,3,50,403,1) (393,3,51,175,1) (394,3,52,11,1) (395,3,53,239,1)
(396,3,54,75,1) (397,3,55,303,1) (398,3,56,139,1) (399,3,57,367,1) (400,3,58,203,1) (401,3,59,431,1)
(402,3,60,267,1) (403,3,61,39,1) (404,3,62,331,1) (405,3,63,103,1) (406,3,64,395,1) (407,3,65,167,1)
(408,3,66,3,1) (409,3,67,231,1) (410,3,68,67,1) (411,3,69,295,1) (412,3,70,131,1) (413,3,71,359,1)
(414,3,72,195,1) (415,3,73,423,1) (416,3,74,259,1) (417,3,75,31,1) (418,3,76,323,1) (419,3,77,95,1)
(420,3,78,387,1) (421,3,79,159,1) (422,3,80,451,1) (423,3,81,223,1) (424,3,82,59,1) (425,3,83,287,1)
(426,3,84,123,1) (427,3,85,351,1) (428,3,86,187,1) (429,3,87,415,1) (430,3,88,251,1) (431,3,89,23,1)
(432,3,90,315,1) (433,3,91,87,1) (434,3,92,379,1) (435,3,93,151,1) (436,3,94,443,1) (437,3,95,215,1)
(438,3,96,51,1) (439,3,97,279,1) (440,3,98,115,1) (441,3,99,343,1) (442,3,100,179,1) (443,3,101,407,1)
(444,3,102,243,1) (445,3,103,15,1) (446,3,104,307,1) (447,3,105,79,1) (448,3,106,371,1)
(449,3,107,143,1) (450,3,108,435,1) (451,3,109,207,1) (452,3,110,43,1) (453,3,111,271,1)
(454,3,112,107,1) (455,3,113,335,1)5.10 /opt/GSM/c54x_exe/tools/cch_ref/cch_interleave_ref.csv
11686 octets, 457 lignes → 143 lignes (1 groupes compactés)
k,"lane_G(0=G0/c0,1=G1/c1)",burst_B,pos_j,iB_index,j_if_LSB_dropped,j_if_LSB_inverted,iB_index_if_LSB_inverted
⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩,⟨6⟩,⟨7⟩,⟨8⟩ ×456
⟨⟩ = (0,0,0,0,0,0,1,1) (1,1,1,98,212,98,99,213) (2,0,2,82,310,82,83,311) (3,1,3,66,408,66,67,409)
(4,0,0,51,51,50,50,50) (5,1,1,35,149,34,34,148) (6,0,2,19,247,18,18,246) (7,1,3,3,345,2,2,344)
(8,0,0,100,100,100,101,101) (9,1,1,84,198,84,85,199) (10,0,2,68,296,68,69,297)
(11,1,3,52,394,52,53,395) (12,0,0,37,37,36,36,36) (13,1,1,21,135,20,20,134) (14,0,2,5,233,4,4,232)
(15,1,3,103,445,102,102,444) (16,0,0,86,86,86,87,87) (17,1,1,70,184,70,71,185)
(18,0,2,54,282,54,55,283) (19,1,3,38,380,38,39,381) (20,0,0,23,23,22,22,22) (21,1,1,7,121,6,6,120)
(22,0,2,105,333,104,104,332) (23,1,3,89,431,88,88,430) (24,0,0,72,72,72,73,73)
(25,1,1,56,170,56,57,171) (26,0,2,40,268,40,41,269) (27,1,3,24,366,24,25,367) (28,0,0,9,9,8,8,8)
(29,1,1,107,221,106,106,220) (30,0,2,91,319,90,90,318) (31,1,3,75,417,74,74,416)
(32,0,0,58,58,58,59,59) (33,1,1,42,156,42,43,157) (34,0,2,26,254,26,27,255) (35,1,3,10,352,10,11,353)
(36,0,0,109,109,108,108,108) (37,1,1,93,207,92,92,206) (38,0,2,77,305,76,76,304)
(39,1,3,61,403,60,60,402) (40,0,0,44,44,44,45,45) (41,1,1,28,142,28,29,143) (42,0,2,12,240,12,13,241)
(43,1,3,110,452,110,111,453) (44,0,0,95,95,94,94,94) (45,1,1,79,193,78,78,192)
(46,0,2,63,291,62,62,290) (47,1,3,47,389,46,46,388) (48,0,0,30,30,30,31,31) (49,1,1,14,128,14,15,129)
(50,0,2,112,340,112,113,341) (51,1,3,96,438,96,97,439) (52,0,0,81,81,80,80,80)
(53,1,1,65,179,64,64,178) (54,0,2,49,277,48,48,276) (55,1,3,33,375,32,32,374) (56,0,0,16,16,16,17,17)
(57,1,1,0,114,0,1,115) (58,0,2,98,326,98,99,327) (59,1,3,82,424,82,83,425) (60,0,0,67,67,66,66,66)
(61,1,1,51,165,50,50,164) (62,0,2,35,263,34,34,262) (63,1,3,19,361,18,18,360) (64,0,0,2,2,2,3,3)
(65,1,1,100,214,100,101,215) (66,0,2,84,312,84,85,313) (67,1,3,68,410,68,69,411)
(68,0,0,53,53,52,52,52) (69,1,1,37,151,36,36,150) (70,0,2,21,249,20,20,248) (71,1,3,5,347,4,4,346)
(72,0,0,102,102,102,103,103) (73,1,1,86,200,86,87,201) (74,0,2,70,298,70,71,299)
(75,1,3,54,396,54,55,397) (76,0,0,39,39,38,38,38) (77,1,1,23,137,22,22,136) (78,0,2,7,235,6,6,234)
(79,1,3,105,447,104,104,446) (80,0,0,88,88,88,89,89) (81,1,1,72,186,72,73,187)
(82,0,2,56,284,56,57,285) (83,1,3,40,382,40,41,383) (84,0,0,25,25,24,24,24) (85,1,1,9,123,8,8,122)
(86,0,2,107,335,106,106,334) (87,1,3,91,433,90,90,432) (88,0,0,74,74,74,75,75)
(89,1,1,58,172,58,59,173) (90,0,2,42,270,42,43,271) (91,1,3,26,368,26,27,369) (92,0,0,11,11,10,10,10)
(93,1,1,109,223,108,108,222) (94,0,2,93,321,92,92,320) (95,1,3,77,419,76,76,418)
(96,0,0,60,60,60,61,61) (97,1,1,44,158,44,45,159) (98,0,2,28,256,28,29,257) (99,1,3,12,354,12,13,355)
(100,0,0,111,111,110,110,110) (101,1,1,95,209,94,94,208) (102,0,2,79,307,78,78,306)
(103,1,3,63,405,62,62,404) (104,0,0,46,46,46,47,47) (105,1,1,30,144,30,31,145)
(106,0,2,14,242,14,15,243) (107,1,3,112,454,112,113,455) (108,0,0,97,97,96,96,96)
(109,1,1,81,195,80,80,194) (110,0,2,65,293,64,64,292) (111,1,3,49,391,48,48,390)
(112,0,0,32,32,32,33,33) (113,1,1,16,130,16,17,131) (114,0,2,0,228,0,1,229) (115,1,3,98,440,98,99,441)
(116,0,0,83,83,82,82,82) (117,1,1,67,181,66,66,180) (118,0,2,51,279,50,50,278)
(119,1,3,35,377,34,34,376) (120,0,0,18,18,18,19,19) (121,1,1,2,116,2,3,117)
(122,0,2,100,328,100,101,329) (123,1,3,84,426,84,85,427) (124,0,0,69,69,68,68,68)
(125,1,1,53,167,52,52,166) (126,0,2,37,265,36,36,264) (127,1,3,21,363,20,20,362) (128,0,0,4,4,4,5,5)
(129,1,1,102,216,102,103,217) (130,0,2,86,314,86,87,315) (131,1,3,70,412,70,71,413)
(132,0,0,55,55,54,54,54) (133,1,1,39,153,38,38,152) (134,0,2,23,251,22,22,250) (135,1,3,7,349,6,6,348)
(136,0,0,104,104,104,105,105) (137,1,1,88,202,88,89,203) (138,0,2,72,300,72,73,301)
(139,1,3,56,398,56,57,399) (140,0,0,41,41,40,40,40) (141,1,1,25,139,24,24,138) (142,0,2,9,237,8,8,236)
(143,1,3,107,449,106,106,448) (144,0,0,90,90,90,91,91) (145,1,1,74,188,74,75,189)
(146,0,2,58,286,58,59,287) (147,1,3,42,384,42,43,385) (148,0,0,27,27,26,26,26)
(149,1,1,11,125,10,10,124) (150,0,2,109,337,108,108,336) (151,1,3,93,435,92,92,434)
(152,0,0,76,76,76,77,77) (153,1,1,60,174,60,61,175) (154,0,2,44,272,44,45,273)
(155,1,3,28,370,28,29,371) (156,0,0,13,13,12,12,12) (157,1,1,111,225,110,110,224)
(158,0,2,95,323,94,94,322) (159,1,3,79,421,78,78,420) (160,0,0,62,62,62,63,63)
(161,1,1,46,160,46,47,161) (162,0,2,30,258,30,31,259) (163,1,3,14,356,14,15,357)
(164,0,0,113,113,112,112,112) (165,1,1,97,211,96,96,210) (166,0,2,81,309,80,80,308)
(167,1,3,65,407,64,64,406) (168,0,0,48,48,48,49,49) (169,1,1,32,146,32,33,147)
(170,0,2,16,244,16,17,245) (171,1,3,0,342,0,1,343) (172,0,0,99,99,98,98,98) (173,1,1,83,197,82,82,196)
(174,0,2,67,295,66,66,294) (175,1,3,51,393,50,50,392) (176,0,0,34,34,34,35,35)
(177,1,1,18,132,18,19,133) (178,0,2,2,230,2,3,231) (179,1,3,100,442,100,101,443)
(180,0,0,85,85,84,84,84) (181,1,1,69,183,68,68,182) (182,0,2,53,281,52,52,280)
(183,1,3,37,379,36,36,378) (184,0,0,20,20,20,21,21) (185,1,1,4,118,4,5,119)
(186,0,2,102,330,102,103,331) (187,1,3,86,428,86,87,429) (188,0,0,71,71,70,70,70)
(189,1,1,55,169,54,54,168) (190,0,2,39,267,38,38,266) (191,1,3,23,365,22,22,364) (192,0,0,6,6,6,7,7)
(193,1,1,104,218,104,105,219) (194,0,2,88,316,88,89,317) (195,1,3,72,414,72,73,415)
(196,0,0,57,57,56,56,56) (197,1,1,41,155,40,40,154) (198,0,2,25,253,24,24,252) (199,1,3,9,351,8,8,350)
(200,0,0,106,106,106,107,107) (201,1,1,90,204,90,91,205) (202,0,2,74,302,74,75,303)
(203,1,3,58,400,58,59,401) (204,0,0,43,43,42,42,42) (205,1,1,27,141,26,26,140)
(206,0,2,11,239,10,10,238) (207,1,3,109,451,108,108,450) (208,0,0,92,92,92,93,93)
(209,1,1,76,190,76,77,191) (210,0,2,60,288,60,61,289) (211,1,3,44,386,44,45,387)
(212,0,0,29,29,28,28,28) (213,1,1,13,127,12,12,126) (214,0,2,111,339,110,110,338)
(215,1,3,95,437,94,94,436) (216,0,0,78,78,78,79,79) (217,1,1,62,176,62,63,177)
(218,0,2,46,274,46,47,275) (219,1,3,30,372,30,31,373) (220,0,0,15,15,14,14,14)
(221,1,1,113,227,112,112,226) (222,0,2,97,325,96,96,324) (223,1,3,81,423,80,80,422)
(224,0,0,64,64,64,65,65) (225,1,1,48,162,48,49,163) (226,0,2,32,260,32,33,261)
(227,1,3,16,358,16,17,359) (228,0,0,1,1,0,0,0) (229,1,1,99,213,98,98,212) (230,0,2,83,311,82,82,310)
(231,1,3,67,409,66,66,408) (232,0,0,50,50,50,51,51) (233,1,1,34,148,34,35,149)
(234,0,2,18,246,18,19,247) (235,1,3,2,344,2,3,345) (236,0,0,101,101,100,100,100)
(237,1,1,85,199,84,84,198) (238,0,2,69,297,68,68,296) (239,1,3,53,395,52,52,394)
(240,0,0,36,36,36,37,37) (241,1,1,20,134,20,21,135) (242,0,2,4,232,4,5,233)
(243,1,3,102,444,102,103,445) (244,0,0,87,87,86,86,86) (245,1,1,71,185,70,70,184)
(246,0,2,55,283,54,54,282) (247,1,3,39,381,38,38,380) (248,0,0,22,22,22,23,23) (249,1,1,6,120,6,7,121)
(250,0,2,104,332,104,105,333) (251,1,3,88,430,88,89,431) (252,0,0,73,73,72,72,72)
(253,1,1,57,171,56,56,170) (254,0,2,41,269,40,40,268) (255,1,3,25,367,24,24,366) (256,0,0,8,8,8,9,9)
(257,1,1,106,220,106,107,221) (258,0,2,90,318,90,91,319) (259,1,3,74,416,74,75,417)
(260,0,0,59,59,58,58,58) (261,1,1,43,157,42,42,156) (262,0,2,27,255,26,26,254)
(263,1,3,11,353,10,10,352) (264,0,0,108,108,108,109,109) (265,1,1,92,206,92,93,207)
(266,0,2,76,304,76,77,305) (267,1,3,60,402,60,61,403) (268,0,0,45,45,44,44,44)
(269,1,1,29,143,28,28,142) (270,0,2,13,241,12,12,240) (271,1,3,111,453,110,110,452)
(272,0,0,94,94,94,95,95) (273,1,1,78,192,78,79,193) (274,0,2,62,290,62,63,291)
(275,1,3,46,388,46,47,389) (276,0,0,31,31,30,30,30) (277,1,1,15,129,14,14,128)
(278,0,2,113,341,112,112,340) (279,1,3,97,439,96,96,438) (280,0,0,80,80,80,81,81)
(281,1,1,64,178,64,65,179) (282,0,2,48,276,48,49,277) (283,1,3,32,374,32,33,375)
(284,0,0,17,17,16,16,16) (285,1,1,1,115,0,0,114) (286,0,2,99,327,98,98,326) (287,1,3,83,425,82,82,424)
(288,0,0,66,66,66,67,67) (289,1,1,50,164,50,51,165) (290,0,2,34,262,34,35,263)
(291,1,3,18,360,18,19,361) (292,0,0,3,3,2,2,2) (293,1,1,101,215,100,100,214)
(294,0,2,85,313,84,84,312) (295,1,3,69,411,68,68,410) (296,0,0,52,52,52,53,53)
(297,1,1,36,150,36,37,151) (298,0,2,20,248,20,21,249) (299,1,3,4,346,4,5,347)
(300,0,0,103,103,102,102,102) (301,1,1,87,201,86,86,200) (302,0,2,71,299,70,70,298)
(303,1,3,55,397,54,54,396) (304,0,0,38,38,38,39,39) (305,1,1,22,136,22,23,137) (306,0,2,6,234,6,7,235)
(307,1,3,104,446,104,105,447) (308,0,0,89,89,88,88,88) (309,1,1,73,187,72,72,186)
(310,0,2,57,285,56,56,284) (311,1,3,41,383,40,40,382) (312,0,0,24,24,24,25,25) (313,1,1,8,122,8,9,123)
(314,0,2,106,334,106,107,335) (315,1,3,90,432,90,91,433) (316,0,0,75,75,74,74,74)
(317,1,1,59,173,58,58,172) (318,0,2,43,271,42,42,270) (319,1,3,27,369,26,26,368)
(320,0,0,10,10,10,11,11) (321,1,1,108,222,108,109,223) (322,0,2,92,320,92,93,321)
(323,1,3,76,418,76,77,419) (324,0,0,61,61,60,60,60) (325,1,1,45,159,44,44,158)
(326,0,2,29,257,28,28,256) (327,1,3,13,355,12,12,354) (328,0,0,110,110,110,111,111)
(329,1,1,94,208,94,95,209) (330,0,2,78,306,78,79,307) (331,1,3,62,404,62,63,405)
(332,0,0,47,47,46,46,46) (333,1,1,31,145,30,30,144) (334,0,2,15,243,14,14,242)
(335,1,3,113,455,112,112,454) (336,0,0,96,96,96,97,97) (337,1,1,80,194,80,81,195)
(338,0,2,64,292,64,65,293) (339,1,3,48,390,48,49,391) (340,0,0,33,33,32,32,32)
(341,1,1,17,131,16,16,130) (342,0,2,1,229,0,0,228) (343,1,3,99,441,98,98,440) (344,0,0,82,82,82,83,83)
(345,1,1,66,180,66,67,181) (346,0,2,50,278,50,51,279) (347,1,3,34,376,34,35,377)
(348,0,0,19,19,18,18,18) (349,1,1,3,117,2,2,116) (350,0,2,101,329,100,100,328)
(351,1,3,85,427,84,84,426) (352,0,0,68,68,68,69,69) (353,1,1,52,166,52,53,167)
(354,0,2,36,264,36,37,265) (355,1,3,20,362,20,21,363) (356,0,0,5,5,4,4,4)
(357,1,1,103,217,102,102,216) (358,0,2,87,315,86,86,314) (359,1,3,71,413,70,70,412)
(360,0,0,54,54,54,55,55) (361,1,1,38,152,38,39,153) (362,0,2,22,250,22,23,251) (363,1,3,6,348,6,7,349)
(364,0,0,105,105,104,104,104) (365,1,1,89,203,88,88,202) (366,0,2,73,301,72,72,300)
(367,1,3,57,399,56,56,398) (368,0,0,40,40,40,41,41) (369,1,1,24,138,24,25,139) (370,0,2,8,236,8,9,237)
(371,1,3,106,448,106,107,449) (372,0,0,91,91,90,90,90) (373,1,1,75,189,74,74,188)
(374,0,2,59,287,58,58,286) (375,1,3,43,385,42,42,384) (376,0,0,26,26,26,27,27)
(377,1,1,10,124,10,11,125) (378,0,2,108,336,108,109,337) (379,1,3,92,434,92,93,435)
(380,0,0,77,77,76,76,76) (381,1,1,61,175,60,60,174) (382,0,2,45,273,44,44,272)
(383,1,3,29,371,28,28,370) (384,0,0,12,12,12,13,13) (385,1,1,110,224,110,111,225)
(386,0,2,94,322,94,95,323) (387,1,3,78,420,78,79,421) (388,0,0,63,63,62,62,62)
(389,1,1,47,161,46,46,160) (390,0,2,31,259,30,30,258) (391,1,3,15,357,14,14,356)
(392,0,0,112,112,112,113,113) (393,1,1,96,210,96,97,211) (394,0,2,80,308,80,81,309)
(395,1,3,64,406,64,65,407) (396,0,0,49,49,48,48,48) (397,1,1,33,147,32,32,146)
(398,0,2,17,245,16,16,244) (399,1,3,1,343,0,0,342) (400,0,0,98,98,98,99,99) (401,1,1,82,196,82,83,197)
(402,0,2,66,294,66,67,295) (403,1,3,50,392,50,51,393) (404,0,0,35,35,34,34,34)
(405,1,1,19,133,18,18,132) (406,0,2,3,231,2,2,230) (407,1,3,101,443,100,100,442)
(408,0,0,84,84,84,85,85) (409,1,1,68,182,68,69,183) (410,0,2,52,280,52,53,281)
(411,1,3,36,378,36,37,379) (412,0,0,21,21,20,20,20) (413,1,1,5,119,4,4,118)
(414,0,2,103,331,102,102,330) (415,1,3,87,429,86,86,428) (416,0,0,70,70,70,71,71)
(417,1,1,54,168,54,55,169) (418,0,2,38,266,38,39,267) (419,1,3,22,364,22,23,365) (420,0,0,7,7,6,6,6)
(421,1,1,105,219,104,104,218) (422,0,2,89,317,88,88,316) (423,1,3,73,415,72,72,414)
(424,0,0,56,56,56,57,57) (425,1,1,40,154,40,41,155) (426,0,2,24,252,24,25,253) (427,1,3,8,350,8,9,351)
(428,0,0,107,107,106,106,106) (429,1,1,91,205,90,90,204) (430,0,2,75,303,74,74,302)
(431,1,3,59,401,58,58,400) (432,0,0,42,42,42,43,43) (433,1,1,26,140,26,27,141)
(434,0,2,10,238,10,11,239) (435,1,3,108,450,108,109,451) (436,0,0,93,93,92,92,92)
(437,1,1,77,191,76,76,190) (438,0,2,61,289,60,60,288) (439,1,3,45,387,44,44,386)
(440,0,0,28,28,28,29,29) (441,1,1,12,126,12,13,127) (442,0,2,110,338,110,111,339)
(443,1,3,94,436,94,95,437) (444,0,0,79,79,78,78,78) (445,1,1,63,177,62,62,176)
(446,0,2,47,275,46,46,274) (447,1,3,31,373,30,30,372) (448,0,0,14,14,14,15,15)
(449,1,1,112,226,112,113,227) (450,0,2,96,324,96,97,325) (451,1,3,80,422,80,81,423)
(452,0,0,65,65,64,64,64) (453,1,1,49,163,48,48,162) (454,0,2,33,261,32,32,260)
(455,1,3,17,359,16,16,358)5.11 /opt/GSM/c54x_exe/tools/cch_ref/cch_testvectors.txt
2882 octets, 24 lignes → 26 lignes (1 groupes compactés)
# GSM 05.03 xCCH stage-isolation test vector
# Fixed pseudo-random 228-bit u (u[224:228]=tail=0).
# TEST A (interleaver): feed burst0..3 into YOUR deinterleaver,
# compare the 456-bit result against the three candidates below:
# == cB_correct -> interleaver OK, bug is downstream
# == cB_lsb_dropped -> you never apply the ((k%8)>>2) term
# == cB_lsb_inverted -> that term is inverted / off-by-one
# == none of them -> different bug (burst order? half swap?)
# TEST B (Viterbi/lane): feed cB_correct into YOUR Viterbi,
# compare the 228-bit result against u. Mismatch with cB correct
# => c0/c1 swap, wrong polynomials, or tail handling.
u_228 = 001011110010110110010000101001101001101001011011110101101101001110101100000011111010010110111110110000010000101010011000101111110011110101010001000110100111010001001101100001001010010101110111000101101011100000000111111010100000
burst⟨1⟩_114 = ⟨2⟩ ×4
⟨⟩ =
(0,010111100110111111000001111011110100001011001000100111110111001001000011110011101111000110000101100111000101110001)
(1,111110110000111001100110001001111111011100011100011100101011101001101011110110110100111000000101110101011010100011)
(2,101000000111010001000000111000001000100001111001111011000110000111010000011101011000001110000100110010000111100100)
(3,001110011101101000010101100101101010000100110101001110111110111111001000000000011000101010111011100001110101010100)
cB_correct = 000011011101010101001110110110001010111110001111110111101100010100011100010100011100101101100010010101110100011000101000011100011010110100011011001100001110100110011101110010110110001001011001111010110011001101001111110111100010110001011100000111010101101001001101100101110100100010111100010011001001000111000110101101111100010000010100101011001111010000101110110010111000010110111001100000000111011000010001011000001100000000111010011010011101001011111100
cB_lsb_dropped = 000001011101000101000101110101001010100110000100110110111100010000011001010111001100101101101100010100010100101000101111011100101010110000011000001110111110100010010111110000010110011001011100111000110011011001001101110111110010000001011101000101000101110101001010100110000100110110111100010000011001010111001100101101101100010100010100101000101111011100101010110000011000001110111110100010010111110000010110011001011100111000110011011001001101110111110010
cB_lsb_inverted = 1100010111000001110101011010010011011001011101001000101111000100110010010001110001101011011111000100000101001010110011110100001011101100101110000101101110011000000001110110000100010110000011000000001110100110100111010010111111000000110111010101010011101101100010101111100011111101111011000101000111000101000111001011011000100101011101000110001010000111000110101101000110110011000011101001100111011100101101100010010110011110101100110011010011111101111000106 Fichiers
6.1 /opt/GSM/c54x_exe/.gitignore
165 octets, 11 lignes → 11 lignes
# build products (make) — never commit binaries
/c54x_exe
/isa_test
/tch_now
/tools/rejeu_banc
/tools/sacch_tf_decode
*.o
__pycache__/
*.pyc
# run artefacts
/tmp/6.2 /opt/GSM/c54x_exe/Makefile
2626 octets, 66 lignes → 66 lignes
# c54x_exe - le DSP Calypso hors QEMU.
#
# Les sources viennent de /opt/GSM/qosmo et ne sont PAS recopiees ici.
QOSMO ?= /opt/GSM/qosmo
CAL := $(QOSMO)/hw/arm/calypso
L1DSP := $(CAL)/l1-dsp
HORS := $(QOSMO)/contrib/hors-qemu
CC ?= gcc
CFLAGS ?= -O3 -march=native -g -Wall -Werror=format -Werror=format-extra-args -Wno-unused-function -Wno-unused-variable \
-Wno-unused-but-set-variable -Wno-sign-compare
CPPFLAGS := -D_GNU_SOURCE -I$(HORS)/doublures -I$(L1DSP) -I$(CAL) -I$(QOSMO)/include -I$(QOSMO)
# calypso_bsp.c encode les bursts RACH/NB : gsm0503_rach_ext_encode
OSMO := $(shell pkg-config --cflags --libs libosmocoding libosmocore 2>/dev/null)
LDLIBS := -lpthread -lm $(OSMO)
SRC := src/main.c src/rejouer.c src/pcb-minimal.c src/verbosite.c src/pont.c src/cellule.c src/montant.c $(HORS)/cales-qemu.c \
$(L1DSP)/calypso_gmsk.c \
$(L1DSP)/calypso_c54x.c \
$(L1DSP)/c54x_exec.c \
$(L1DSP)/c54x_decode.c \
$(L1DSP)/c54x_mem.c \
$(L1DSP)/c54x_irq.c \
$(L1DSP)/c54x_probes.c \
$(L1DSP)/calypso_bsp.c \
$(L1DSP)/calypso_arm2dsp.c \
$(L1DSP)/calypso_mailbox.c \
$(L1DSP)/calypso_fbsb.c \
$(L1DSP)/calypso_dma.c \
$(L1DSP)/calypso_rhea_dma.c \
$(L1DSP)/calypso_rif.c \
$(L1DSP)/calypso_a5.c \
$(L1DSP)/calypso_twl3025.c \
$(CAL)/calypso_xio.c \
$(CAL)/calypso_iota.c \
$(CAL)/calypso_trf6151.c \
$(CAL)/calypso_debug.c \
$(CAL)/calypso_invariants.c
all: c54x_exe
# [2026-09-23] Les en-tetes aussi : sans eux, une modification d un .h seul
# (calypso_c54x.h, calypso_bsp.h...) laissait un binaire perime.
HDR := $(wildcard src/*.h $(L1DSP)/*.h $(CAL)/*.h $(QOSMO)/include/hw/arm/calypso/*.h)
# [2026-09-23] RECOMPILATION A CHAQUE make. Les sources viennent d un autre
# depot (qosmo) et « make: Nothing to be done » laissait douter du binaire
# lance : c54x_exe est reconstruit a chaque appel, comme apres un make clean.
# Une seule commande cc, pas de .o : rien d autre a nettoyer.
.PHONY: c54x_exe
c54x_exe: $(SRC) $(HDR)
$(CC) $(CFLAGS) $(CPPFLAGS) -o $@ $(SRC) $(LDLIBS)
# ISA conformance: the SPRU172C worked examples replayed on the core.
# make isa_test && ./isa_test tools/isa_tests.txt 2>/dev/null
COEUR := $(filter-out src/%,$(SRC))
tools/isa_tests.txt: tools/isa_examples.py
python3 tools/isa_examples.py > $@
isa_test: tools/isa_test.c src/pcb-minimal.c $(COEUR) tools/isa_tests.txt
$(CC) $(CFLAGS) $(CPPFLAGS) -o $@ tools/isa_test.c src/pcb-minimal.c $(COEUR) $(LDLIBS)
clean:
rm -f c54x_exe isa_test
.PHONY: all clean6.3 /opt/GSM/c54x_exe/balayage.sh
3968 octets, 76 lignes → 76 lignes
#!/usr/bin/env bash
# balayage.sh - explore les parametres du rejeu dont on n'est PAS sur, et classe
# les combinaisons par le seul critere qui compte : le nombre de SB VRAIES
# (CRC OK ET BSIC = celui injecte ET T3 valide ET FN = la trame).
#
# [2026-09-18] NE PAS CLASSER SUR crc_ok. Le CRC de la SCH fait 10 bits : une
# entree aleatoire passerait ~0,1 % du temps, or on mesurait 20 %. Un tel taux
# ne vient pas du hasard mais d'une entree DEGENERee (quasi constante) sur
# laquelle le Viterbi converge toujours vers le meme mot. Classer sur crc_ok
# recompense donc le figement : c'est ainsi qu'une phase de 0,75 est sortie en
# tete alors qu'elle produisait 12 CRC OK pour UN SEUL mot distinct. Le critere
# secondaire est le nombre de mots DISTINCTS decodes : lui mesure si la sortie
# depend de l'entree.
#
# Pourquoi : plusieurs boutons du banc sont des hypotheses non verifiees --
# la phase d'echantillonnage (0,5 = centre du symbole), la marge de tete, le
# calage de la commande SB (le DSP demodule le burst de la DERNIERE trame de
# commande, mesure du 18/09), le nombre de commandes, l'ordre RX, la longueur
# de fenetre DMA. Les regler un par un fait rater les interactions.
#
# ./balayage.sh balayage complet, resultats dans balayage.tsv
# ./balayage.sh --rapide grille reduite
# TRAMES=1200 ./balayage.sh plus de trames par essai (defaut 600)
# sort -t$'\t' -k6,6nr -k5,5nr balayage.tsv | head relire le classement
set -uo pipefail
HERE="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
EXE="$HERE/c54x_exe"
OUT="${OUT:-$HERE/balayage.tsv}"
TRAMES="${TRAMES:-600}"
[ -x "$EXE" ] || { echo "binaire absent : $EXE" >&2; exit 1; }
if [ "${1:-}" = "--rapide" ]; then
DECALAGES="-1 0"; UNIQUES="0 1"
PHASES="0.0 0.25 0.5 0.75"; MARGES="0 21 41"
RXAVANT="0"; LENS="380"
else
DECALAGES="-5 -4 -3 -2 -1 0 1"; UNIQUES="0 1"
PHASES="0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9"
MARGES="0 10 21 30 41"; RXAVANT="0 1"
LENS="296 380"
fi
total=0
for a in $DECALAGES; do for b in $UNIQUES; do for c in $PHASES; do
for d in $MARGES; do for e in $RXAVANT; do for f in $LENS; do
total=$((total+1)); done; done; done; done; done; done
printf 'decalage\tunique\tphase\tmarge\trx_avant\tdaram_len\tvraies\tmots_distincts\tcrc_ok\tsb_tentees\n' > "$OUT"
echo "[balayage] $total combinaisons, $TRAMES trames chacune -> $OUT"
n=0; t0=$(date +%s)
for a in $DECALAGES; do
for b in $UNIQUES; do
for c in $PHASES; do
for d in $MARGES; do
for e in $RXAVANT; do
for f in $LENS; do
n=$((n+1))
res=$(REJEU_SB_FORCE=1 \
REJEU_SB_DECALAGE="$a" REJEU_SB_UNIQUE="$b" \
REJEU_DECALAGE_SYMB="$c" REJEU_MARGE="$d" \
REJEU_RX_AVANT="$e" CALYPSO_BSP_DARAM_LEN="$f" \
timeout 180 "$EXE" --rejouer --verbeux --trames "$TRAMES" 2>/dev/null)
vraies=$(printf '%s' "$res" | sed -n 's/.*VRAIES ([^)]*): \([0-9]*\).*/\1/p' | head -1)
crc=$( printf '%s' "$res" | sed -n 's/.*CRC OK: \([0-9]*\).*/\1/p' | head -1)
tent=$( printf '%s' "$res" | sed -n 's#.*SB tentees / CRC KO: \([0-9]*\) /.*#\1#p' | head -1)
mots=$( printf '%s' "$res" | grep -oE '^ SB[0-9] fn=[0-9]+ : sb=0x[0-9a-f]+' | grep -oE '0x[0-9a-f]+' | sort -u | wc -l)
printf '%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\n' \
"$a" "$b" "$c" "$d" "$e" "$f" "${vraies:-0}" "${mots:-0}" "${crc:-0}" "${tent:-0}" >> "$OUT"
if [ $((n % 25)) -eq 0 ]; then
dt=$(( $(date +%s) - t0 ))
echo "[balayage] $n/$total ${dt}s meilleur vraies=$(tail -n +2 "$OUT" | cut -f7 | sort -nr | head -1) mots_distincts=$(tail -n +2 "$OUT" | cut -f8 | sort -nr | head -1)"
fi
done; done; done; done; done; done
echo "[balayage] termine, $n essais."
echo "--- 15 meilleures combinaisons (vraies, puis mots distincts) ---"
{ head -1 "$OUT"; tail -n +2 "$OUT" | sort -t$'\t' -k7,7nr -k8,8nr | head -15; } | column -t -s$'\t'6.4 /opt/GSM/c54x_exe/mobile_pont.cfg
4224 octets, 167 lignes → 167 lignes
# mobile.cfg.template — avec placeholders
# KI : "ki comp128 XX XX XX ... XX" 16 octets, octet 15=ms_idx, 16=op_id
#
# AUDIO [2026-09-22] : comme le run sans --dsp (/root/.osmocom/bb/mobile.cfg)
# sauf le format de trame TCH, plus la voie donnees.
# tch-voice io-handler gapk, io-tch-format ti (le DSP vocode ; c'est
# « rtp » sans --dsp, ou c'est pont.py qui code), ALSA
# gsm_out/gsm_in.
# tch-data io-handler unix-sock, /tmp/ms_data (CSD 9600 async, 8N1).
# L'ordre tch-voice puis tch-data est celui que le mobile lui-meme ecrit.
# `io-tch-format` n'est valide que derriere gapk ou unix-sock : sous l1phy le
# mobile la refuse (« This parameter is only valid for GAPK ») et abandonne
# tout le fichier.
#
# SOCKETS : les memes que le run sans --dsp (/tmp/osmocom_l2, /tmp/osmocom_sap)
# et non plus les variantes « _pont ». En montage DSP le module `l2` du fork
# n'est pas joue, donc aucun autre mobile ne les prend. Lancer a la main un
# banc grgsm ET ce banc-ci en meme temps les ferait se disputer : c'est le
# compromis assume pour n'avoir qu'un seul jeu de noms.
!
line vty
no login
bind 127.0.0.1 4347
!
gps device /dev/ttyACM0
gps baudrate default
no gps enable
!
no hide-default
!
!
log stderr
logging filter all 1
logging color 1
logging timestamp 1
logging print category 1
logging level mm debug
logging level rr debug
logging level cc debug
logging level sms debug
!
log gsmtap 172.20.0.1
logging filter all 1
logging color 0
logging timestamp 0
logging print category 1
logging level mm debug
logging level rr debug
logging level cc debug
logging level sms debug
!
ms 1
layer2-socket /tmp/osmocom_l2
sap-socket /tmp/osmocom_sap
sim test
network-selection-mode auto
imei 358925008967594 0
imei-fixed
no emergency-imsi
sms-service-center +3366612340001
no call-waiting
no auto-answer
no force-rekey
no clip
no clir
tx-power auto
no simulated-delay
stick 514
location-updating
neighbour-measurement
codec full-speed prefer
codec half-speed
no abbrev
support
sms
a5/1
a5/2
no p-gsm
no e-gsm
no r-gsm
no gsm-850
dcs
no pcs
class-900 4
class-850 4
class-dcs 1
class-pcs 1
channel-capability sdcch+tchf+tchh
full-speech-v1
full-speech-v2
half-speech-v1
min-rxlev -106
dsc-max 90
no skip-max-per-band
test-sim
imsi 001010001000001
ki comp128 00 11 22 33 44 55 66 77 88 99 aa bb cc dd 01 01
no barred-access
rplmn 001 01
tch-voice
io-handler gapk
! [2026-09-22] FORMAT DE TRAME TCH : « ti » ICI, « rtp » SANS --dsp.
! Ce n'est pas une preference, c'est QUI fait le vocodage. Sur ce banc-ci le
! vrai DSP tourne (c54x_exe, mask-ROM TI) et rend ses trames dans SA
! disposition, celle des telephones Calypso : « ti ».
! Le montage gr-gsm, lui, n'a pas de DSP — c'est pont.py qui code avec
! libosmocoding (gsm0503_tch_fr_encode/decode), laquelle parle RTP/RFC3551,
! 33 octets ouverts par la signature 0xD. D'ou le « rtp » de
! /root/.osmocom/bb/mobile.cfg et sa note du 2026-08-27 : elle vaut pour CE
! montage-la, pas pour celui-ci. Se tromper de cote ne leve aucun compteur,
! les trames passent — elles sont simplement lues avec le mauvais plan, et le
! son sort robotise.
io-tch-format ti
alsa-output-dev gsm_out
alsa-input-dev gsm_in
tch-data
io-handler unix-sock
io-tch-format ti
unix-socket /tmp/ms_data
call-params type-rate 71
call-params ce transparent
call-params async
call-params async nr-stop-bits 1
call-params async nr-data-bits 8
call-params async parity none
no shutdown
!
! GSMTAP configuration
!
gsmtap
remote-host 172.20.0.1
no local-host
lchan sacch
lchan lsacch
lchan sacch/4
lchan sacch/8
lchan sacch/f
lchan sacch/h
lchan unknown
lchan bcch
lchan ccch
lchan rach
lchan agch
lchan pch
lchan sdcch
lchan sdcch/4
lchan sdcch/8
lchan facch/f
lchan facch/h
lchan pacch
lchan cbch
lchan pdch
lchan pttch
lchan tch/f
lchan tch/h
category gprs dl-unknown
category gprs dl-dummy
category gprs dl-ctrl
category gprs dl-data-gprs
category gprs dl-data-egprs
category gprs ul-unknown
category gprs ul-dummy
category gprs ul-ctrl
category gprs ul-data-gprs
category gprs ul-data-egprs
end
6.5 /opt/GSM/c54x_exe/run.sh
17070 octets, 285 lignes → 285 lignes
#!/usr/bin/env bash
# run.sh - le cote MOBILE du banc Calypso, processus par processus, sans le reseau.
#
# Deux montages (MODE) :
# dsp (defaut) 1. c54x_exe --arm le DSP TMS320C54x, mask-ROM TI, hors QEMU
# 2. qosmo l'ARM + layer1 osmocom-bb (CALYPSO_DSP_EXTERN=1)
# 3. osmocon romload sur le pty serial0, relais L1CTL
# 4. mobile couche 2/3 osmocom-bb
# 5. pont_dsp.py (PONT=1) bursts du BTS -> DSP (--dsp-port 6702) ;
# le pont DSP (pont/dsp/), bascule TCH suivie par le firmware
# grgsm 2. qosmo l'ARM + layer1 avec la couche 1 gr-gsm (shunt)
# 3. osmocon 4. mobile 5. pont.py (PONT=1) bursts du BTS -> L1 gr-gsm
# Le pont a besoin du BTS (osmo-bts-trx, TRXD 5700) : sans reseau il demarre et attend.
#
# ./run.sh tout lancer ./run.sh --status qui tourne
# MODE=grgsm ./run.sh montage gr-gsm ./run.sh --logs suivre les journaux
# PONT=1 ./run.sh avec le pont ./run.sh --stop tout arreter, nettoyer
# ./run.sh --step N une seule etape (les precedentes doivent tourner)
# Variables : MODE, PONT, LOCKSTEP (1 : QEMU attend le DSP a chaque trame), INSNS (80000),
# VERB (-v), IQ (none|fcch|cell|...), AMP (30000),
# QOSMO, FIRMWARE_ELF, FIRMWARE_BIN, OSMOCON, MOBILE, MOBILE_CFG, PONT_PY, RUNDIR, L2_SOCK.
# Details, attendus et verifications : LAUNCH.md a cote.
set -uo pipefail
HERE="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
MODE="${MODE:-dsp}"
PONT="${PONT:-0}"
QOSMO="${QOSMO:-/opt/GSM/qosmo}"
QEMU="${QEMU:-$QOSMO/build/qemu-system-arm}"
FIRMWARE_ELF="${FIRMWARE_ELF:-/opt/GSM/firmware/board/compal_e88/layer1.highram.elf}"
FIRMWARE_BIN="${FIRMWARE_BIN:-${FIRMWARE_ELF%.elf}.bin}"
OSMOCON="${OSMOCON:-/opt/GSM/osmocom-bb/src/host/osmocon/osmocon}"
MOBILE="${MOBILE:-$(command -v mobile || echo /usr/local/bin/mobile)}"
MOBILE_CFG="${MOBILE_CFG:-$HERE/mobile_pont.cfg}"
# [2026-09-23] Deux points d'entree pour le meme paquet pont/ : pont_dsp.py pour le
# montage dsp (--dsp-port 6702), pont.py pour le montage grgsm, qui
# garde ses defauts d'avant le decoupage. PONT_PY force l'un ou l'autre.
if [ "$MODE" = grgsm ]; then
PONT_PY="${PONT_PY:-/opt/GSM/osmo-operator/pont/pont.py}"
else
PONT_PY="${PONT_PY:-/opt/GSM/osmo-operator/pont/pont_dsp.py}"
fi
RUNDIR="${RUNDIR:-/tmp/c54x-pont}"
L2_SOCK="${L2_SOCK:-/tmp/osmocom_l2}"
MONITOR="${MONITOR:-/tmp/qemu-monitor-pont.sock}"
GDB="${GDB:-1}" # gdbstub QEMU + console telnet (etape 2)
GDB_STUB="${GDB_STUB:-1234}"
GDB_TELNET="${GDB_TELNET:-44444}"
GDB_TELNET_PY="${GDB_TELNET_PY:-/opt/GSM/qosmo-dsp/tools/gdb-telnet.py}"
INSNS="${INSNS:-16000}" # [2026-09-23] 60000 debordait en TCH (jusqu a 87000 insn/trame), voir start-direct.sh
# [2026-09-20] Pas-a-pas DSP/QEMU par defaut (LOCKSTEP=0 pour le mode horloge murale) :
# le C54x emule coute ~6,7 ms par trame contre 4,615 ms de temps reel, QEMU sautait
# donc 3 trames sur 4 (« DSP en retard, tick saute »), la ROM ne voyait qu'une trame
# sur 4 a 6, son compteur de blocs FB n'avancait pas et le TOA valait 1251 quelle que
# soit la distance de la FCCH. En pas-a-pas QEMU n'avance la trame que quand le DSP
# a fini la precedente : TOA = 23 + n x 1250, delay=10, SB decodable.
LOCKSTEP="${LOCKSTEP:-1}"
[ "$MODE" = dsp ] && [ "$LOCKSTEP" = 1 ] && export CALYPSO_PONT_LOCKSTEP=1
VERB="${VERB:--v}"
IQ="${IQ:-none}"
AMP="${AMP:-30000}"
DSP_SOCK=/tmp/calypso_dsp.sock
DSP_SHM=/dev/shm/calypso_api_ram
# [2026-09-23] LA VITRINE : LES MEMES JOURNAUX QU'EN MODE SHUNT. Le panneau
# (tmux calypso, osmo-fft-snap) suit /run/user/0/osmo-nitb/logs/{qemu,osmocon,
# mobile}.log et /dev/shm/pont.log, ceux qu'ecrit le montage grgsm. Ce banc-ci
# n'ecrivait que dans $RUNDIR : les volets restaient a 0 octet. Le VRAI fichier
# est donc pose au chemin du panneau et $RUNDIR/<nom>.log devient un lien vers
# lui -- pas l'inverse : un `tail -F` deja ouvert refuse un fichier remplace par
# un lien (« untailable symbolic link »). PANNEAU_LOGS=none pour ne rien toucher.
PANNEAU_LOGS="${PANNEAU_LOGS:-/run/user/0/osmo-nitb/logs}"
# La FFT du panneau lit /tmp/iq_fft_ms.fifo, que pont.py ne remplit que si
# l'enregistrement est actif : --no-record la rendait muette. PONT_AIRREC=0 le coupe.
PONT_AIRREC="${PONT_AIRREC:-1}"
vitrine() { # vitrine <nom> : a appeler AVANT le lancement qui ecrit $RUNDIR/<nom>.log
rm -f "$RUNDIR/$1.log"
[ "$PANNEAU_LOGS" = none ] && return 0
local cible="$PANNEAU_LOGS/$1.log"
[ "$1" = pont ] && cible=/dev/shm/pont.log
[ -d "$(dirname "$cible")" ] || return 0
rm -f "$cible" && : > "$cible" && ln -s "$cible" "$RUNDIR/$1.log"
return 0
}
dire() { printf '\033[1m[run %s]\033[0m %s\n' "$MODE" "$*"; }
rater() { printf '\033[1;31m[run] ECHEC :\033[0m %s\n' "$*" >&2; exit 1; }
pid_de() { [ -f "$RUNDIR/$1.pid" ] && cat "$RUNDIR/$1.pid"; }
vivant() { local p; p="$(pid_de "$1")"; [ -n "$p" ] && kill -0 "$p" 2>/dev/null; }
attendre() { local n=$(( $1 * 10 )); shift; while [ "$n" -gt 0 ]; do "$@" && return 0; sleep 0.1; n=$((n - 1)); done; return 1; }
[ "$MODE" = dsp ] || [ "$MODE" = grgsm ] || rater "MODE=$MODE inconnu (dsp|grgsm)"
etape1() { # le DSP (montage dsp seulement)
[ "$MODE" = dsp ] || { dire "1. (montage grgsm : pas de c54x_exe, la couche 1 est dans QEMU)"; return; }
vivant dsp && { dire "1. c54x_exe deja lance (pid $(pid_de dsp))"; return; }
[ -x "$HERE/c54x_exe" ] || make -C "$HERE" >/dev/null || rater "make c54x_exe"
rm -f "$DSP_SHM" "$DSP_SOCK"
# [2026-09-23] L'annonce TCH d'une session morte (pont/dsp/tch.py) ne doit
# pas etre relue par montant.c au demarrage.
rm -f /dev/shm/calypso_tch_cfg
# [2026-09-23] Attendre (au plus 40 ms) une trame que la BTS livre en
# retard plutot que la jouer en effacement (calypso_bsp.c, bsp_attendre_trame).
( cd "$HERE" && CALYPSO_IQDUMP_FCCH=1 CALYPSO_BSP_ATTENTE_MS="${CALYPSO_BSP_ATTENTE_MS:-40}" exec ./c54x_exe --arm --insns "$INSNS" --iq "$IQ" --amp "$AMP" $VERB ) > "$RUNDIR/dsp.log" 2>&1 &
echo $! > "$RUNDIR/dsp.pid"
attendre 5 test -S "$DSP_SOCK" || rater "c54x_exe n'a pas ouvert $DSP_SOCK (voir $RUNDIR/dsp.log)"
dire "1. c54x_exe --arm pid $(pid_de dsp) ($INSNS insn/trame, iq=$IQ, $DSP_SHM, $DSP_SOCK)"
}
etape2() { # l'ARM
vivant qemu && { dire "2. QEMU deja lance (pid $(pid_de qemu))"; return; }
[ -x "$QEMU" ] || rater "QEMU absent : $QEMU (ninja -C $QOSMO/build)"
[ -r "$FIRMWARE_ELF" ] || rater "firmware absent : $FIRMWARE_ELF"
local extern=""
if [ "$MODE" = dsp ]; then [ -S "$DSP_SOCK" ] || rater "le DSP ne tourne pas (etape 1 d'abord)"; extern=1; fi
rm -f "$MONITOR"
vitrine qemu
# [2026-09-23] gdb sur l'ARM : gdbstub QEMU en tcp::$GDB_STUB, et la console
# telnet de qosmo-dsp (tools/gdb-telnet.py) sur le port $GDB_TELNET :
# telnet 0 44444 (Ctrl-C arrete l'ARM, « continue & » le relance)
# Tant que personne n'est connecte, gdb ne tourne pas et l'ARM n'est pas
# touche. GDB=0 : ni stub ni console.
local gdb_opt=()
[ "$GDB" = 1 ] && gdb_opt=(-gdb "tcp:127.0.0.1:$GDB_STUB")
# [2026-09-23] ASSEMBLY_LOGS=1 (start-direct.sh --assembly-logs) : trace asm
# de l'ARM, chaque bloc traduit et chaque bloc execute, dans qemu-asm.log.
# nochain sinon les blocs chaines ne sont journalises qu'une fois.
if [ "${ASSEMBLY_LOGS:-0}" = 1 ]; then
gdb_opt+=(-d "${ASSEMBLY_LOGS_FLAGS:-in_asm,exec,nochain}" -D "$RUNDIR/qemu-asm.log")
[ -n "${ASSEMBLY_LOGS_FILTRE:-}" ] && gdb_opt+=(-dfilter "$ASSEMBLY_LOGS_FILTRE")
fi
# [2026-09-23] Relance de QEMU vers le DSP toutes les trame/64 (0,07 ms) au
# lieu de trame/16 (0,29 ms) : la partie en serie d'une trame (DONE de la
# phase A, GO) payait deux fois cette latence -- mesure [chrono] en TCH.
CALYPSO_PONT_RETRY_DIV="${CALYPSO_PONT_RETRY_DIV:-64}" \
CALYPSO_DSP_EXTERN="$extern" "$QEMU" -M calypso -cpu arm946 -display none -parallel none \
-serial pty -serial pty -monitor "unix:$MONITOR,server,nowait" "${gdb_opt[@]}" \
-kernel "$FIRMWARE_ELF" > "$RUNDIR/qemu.log" 2>&1 &
echo $! > "$RUNDIR/qemu.pid"
if [ "$GDB" = 1 ] && [ -f "$GDB_TELNET_PY" ] && ! vivant gdb; then
python3 "$GDB_TELNET_PY" --port "$GDB_TELNET" --stub "$GDB_STUB" --elf "$FIRMWARE_ELF" \
> "$RUNDIR/gdb.log" 2>&1 &
echo $! > "$RUNDIR/gdb.pid"
fi
attendre 10 grep -aq "label serial0" "$RUNDIR/qemu.log" || rater "QEMU n'a pas publie son pty (voir $RUNDIR/qemu.log)"
if [ "$MODE" = dsp ]; then
grep -aq "pont DSP : API RAM partagee" "$RUNDIR/qemu.log" || rater "QEMU n'a pas rejoint le DSP (voir $RUNDIR/qemu.log)"
else
attendre 5 grep -aq "backend gr-gsm" "$RUNDIR/qemu.log" || rater "la couche 1 gr-gsm ne s'est pas annoncee (voir $RUNDIR/qemu.log)"
fi
sed -n 's/.*redirected to \(\/dev\/pts\/[0-9]*\) (label serial0).*/\1/p' "$RUNDIR/qemu.log" | head -1 > "$RUNDIR/modem.pty"
dire "2. qemu-system-arm pid $(pid_de qemu) pty modem $(cat "$RUNDIR/modem.pty") moniteur $MONITOR L1=$([ "$MODE" = dsp ] && echo "DSP externe" || echo "gr-gsm (udp 4730/4731)")"
[ "$GDB" = 1 ] && dire " gdb ARM : telnet 0 $GDB_TELNET (stub tcp::$GDB_STUB, journal $RUNDIR/gdb.log)"
[ "${ASSEMBLY_LOGS:-0}" = 1 ] && dire " trace asm ARM : $RUNDIR/qemu-asm.log (-d ${ASSEMBLY_LOGS_FLAGS:-in_asm,exec,nochain}${ASSEMBLY_LOGS_FILTRE:+, -dfilter $ASSEMBLY_LOGS_FILTRE})"
}
etape3() { # osmocon
vivant osmocon && { dire "3. osmocon deja lance (pid $(pid_de osmocon))"; return; }
vivant qemu || rater "QEMU ne tourne pas (etape 2 d'abord)"
[ -x "$OSMOCON" ] || rater "osmocon absent : $OSMOCON"
[ -r "$FIRMWARE_BIN" ] || rater "image .bin absente : $FIRMWARE_BIN"
local pty; pty="$(cat "$RUNDIR/modem.pty")"
rm -f "$L2_SOCK"
vitrine osmocon
stdbuf -oL -eL "$OSMOCON" -m romload -i 100 -p "$pty" -s "$L2_SOCK" "$FIRMWARE_BIN" > "$RUNDIR/osmocon.log" 2>&1 &
echo $! > "$RUNDIR/osmocon.pid"
if ! attendre 30 grep -aq "your code is running now" "$RUNDIR/osmocon.log"; then
rater "osmocon n'a pas fini le romload (voir $RUNDIR/osmocon.log). Un osmocon tue a mi-bloc laisse
le stub romload de l'UART en attente : ./run.sh --stop puis ./run.sh"
fi
dire "3. osmocon pid $(pid_de osmocon) L1CTL sur $L2_SOCK"
}
etape4() { # le mobile
vivant mobile && { dire "4. mobile deja lance (pid $(pid_de mobile))"; return; }
[ -S "$L2_SOCK" ] || rater "pas de socket L1CTL $L2_SOCK (etape 3 d'abord)"
[ -x "$MOBILE" ] || rater "mobile absent : $MOBILE"
[ -r "$MOBILE_CFG" ] || rater "config mobile absente : $MOBILE_CFG"
local vty; vty="$(sed -n 's/^ *bind 127.0.0.1 \([0-9]*\).*/\1/p' "$MOBILE_CFG" | head -1)"
if [ -n "$vty" ] && ss -ltn 2>/dev/null | grep -q ":$vty "; then
rater "le port VTY $vty de $MOBILE_CFG est deja pris par : $(ss -ltnp 2>/dev/null | grep ":$vty " | grep -o 'users:.*' | head -1)
changez la ligne « bind 127.0.0.1 $vty » de la config (les 42xx sont ceux du reseau du banc)"
fi
vitrine mobile
# [2026-09-23] Resynchro sur la cellule choisie : 8 essais au lieu de 1
# (gsm322.c, sync_retries_selection). Le DSP ne passe le SB qu'une fois sur
# trois a cinq, et deux echecs suffisaient a la boucle « no service ».
# Montage grgsm : defaut du binaire, inchange.
local retries=""
[ "$MODE" = dsp ] && retries="${L23_SYNC_RETRIES_SELECTION:-8}"
L23_SYNC_RETRIES_SELECTION="$retries" \
stdbuf -oL "$MOBILE" -c "$MOBILE_CFG" > "$RUNDIR/mobile.log" 2>&1 &
echo $! > "$RUNDIR/mobile.pid"
sleep 2
vivant mobile || rater "mobile s'est arrete : $(sed 's/\x1b\[[0-9;]*m//g' "$RUNDIR/mobile.log" | grep -iE 'cannot|error|unable' | tail -1)"
dire "4. mobile pid $(pid_de mobile) config $MOBILE_CFG vty telnet 127.0.0.1 ${vty:-?}"
}
etape5() { # le pont TRX (PONT=1) : bursts du BTS vers la couche 1
[ "$PONT" = 1 ] || { dire "5. (PONT=0 : pas de pont.py, aucun burst du BTS n'arrive)"; return; }
vivant pont && { dire "5. pont.py deja lance (pid $(pid_de pont))"; return; }
[ -r "$PONT_PY" ] || rater "pont.py absent : $PONT_PY"
local extra=""; [ "$MODE" = dsp ] && extra="--dsp-port 6702"
[ "$PONT_AIRREC" = 0 ] && extra="$extra --no-record"
vitrine pont
( cd "$(dirname "$PONT_PY")/.." && exec python3 "$PONT_PY" $extra ) > "$RUNDIR/pont.log" 2>&1 &
echo $! > "$RUNDIR/pont.pid"
attendre 10 grep -aq "pont TRX : ports" "$RUNDIR/pont.log" || rater "pont.py ne s'est pas annonce (voir $RUNDIR/pont.log)"
dire "5. pont.py pid $(pid_de pont) TRXD 5700-5702 <- BTS ; vers $([ "$MODE" = dsp ] && echo "le DSP (udp 6702)" || echo "la L1 gr-gsm (udp 4730/4731)")"
}
arreter() {
local n
for n in pont mobile osmocon gdb qemu dsp; do
if vivant "$n"; then kill "$(pid_de "$n")" 2>/dev/null; dire "arret $n (pid $(pid_de "$n"))"; fi
rm -f "$RUNDIR/$n.pid"
done
sleep 1
rm -f "$DSP_SHM" "$DSP_SOCK" "$L2_SOCK" "$MONITOR" "$RUNDIR/modem.pty"
# [2026-09-22] Sockets du mobile : elles ne disparaissent pas avec lui. Le
# « sap » etait deja oublie, et « ms_data » (tch-data, mobile_pont.cfg)
# arrive avec la meme faiblesse : un fichier reste fait echouer le bind du
# run suivant sur EADDRINUSE, et le mobile demarre sans sa voie donnees
# sans le dire.
rm -f /tmp/osmocom_sap /tmp/ms_data
# [2026-09-22] Horloge du banc (calypso_bsp.c -> pont/trx.py) : laissee en
# place, pont.py asservirait sa premiere seconde sur la trame d'une session
# morte et la BTS resterait figee en attendant un DSP qui n'existe plus.
rm -f /dev/shm/calypso_horloge
# Side-bands du lien montant (src/montant.c) : sinon pont.py relit le
# dernier enregistrement d'une session precedente au demarrage.
rm -f /dev/shm/calypso_rach /dev/shm/calypso_sdcch_ul \
/dev/shm/calypso_tch_facch_ul /dev/shm/calypso_tch_sacch_ul \
/dev/shm/calypso_tch_ul
# [2026-09-23] Annonce du TCH par le pont DSP (pont/dsp/tch.py -> montant.c
# scruter_tch). Montage dsp seulement : en grgsm ce fichier est celui de la
# L1 gr-gsm de QEMU, on n'y touche pas.
[ "$MODE" = dsp ] && rm -f /dev/shm/calypso_tch_cfg
}
statut() {
local n
for n in dsp qemu osmocon mobile pont; do
if vivant "$n"; then printf ' %-8s pid %-7s %s\n' "$n" "$(pid_de "$n")" "$RUNDIR/$n.log"
else printf ' %-8s arrete\n' "$n"; fi
done
[ -f "$RUNDIR/dsp.log" ] && grep -a "fn=" "$RUNDIR/dsp.log" | tail -1
[ -f "$RUNDIR/osmocon.log" ] && grep -a "FB0\|FB1\|SB\|BSIC" "$RUNDIR/osmocon.log" | tail -1
}
# [2026-09-23] GARDER LES JOURNAUX DU DSP ET DU PONT. dsp.log est ecrase a
# chaque lancement et pont.log est vide par vitrine ; aucun des deux n'est dans
# les archives du panneau (osmo-nitb/archives). Deux appels de suite ont ete
# perdus ainsi (13:11 et 13:21 : SP-CORRUPT et FACCH ko sans trace). On range
# la session precedente dans $RUNDIR/archives/<date de dsp.log>/ et on en garde
# JOURNAUX_GARDES (10). JOURNAUX_GARDES=0 ne garde rien.
JOURNAUX_GARDES="${JOURNAUX_GARDES:-10}"
garder_journaux() {
[ "$JOURNAUX_GARDES" -gt 0 ] 2>/dev/null || return 0
[ -s "$RUNDIR/dsp.log" ] || [ -s /dev/shm/pont.log ] || return 0
local d="$RUNDIR/archives/$(date -r "$RUNDIR/dsp.log" +%Y%m%d-%H%M%S 2>/dev/null || date +%Y%m%d-%H%M%S)"
[ -d "$d" ] && return 0 # deja range (--stop puis relance)
mkdir -p "$d" || return 0
local n
for n in dsp pont mobile qemu osmocon; do
[ -s "$RUNDIR/$n.log" ] && cp -L "$RUNDIR/$n.log" "$d/" 2>/dev/null
done
# etat du magasin dedie du BSP (stockes/joues/manques/replis/perdues)
[ -s /dev/shm/calypso_bsp_dedie ] && cp /dev/shm/calypso_bsp_dedie "$d/bsp_dedie.txt" 2>/dev/null
ls -1dt "$RUNDIR"/archives/*/ 2>/dev/null | tail -n +$((JOURNAUX_GARDES + 1)) | xargs -r rm -rf
dire "journaux de la session precedente ranges dans $d"
}
mkdir -p "$RUNDIR"
case "${1:-}" in
--stop) arreter; garder_journaux
# vides une fois ranges : le lancement suivant ne les range pas deux fois
[ -f "$RUNDIR/dsp.log" ] && : > "$RUNDIR/dsp.log"
[ -f /dev/shm/pont.log ] && : > /dev/shm/pont.log ;;
--status) statut ;;
--logs) exec tail -n 5 -F "$RUNDIR"/dsp.log "$RUNDIR"/qemu.log "$RUNDIR"/osmocon.log "$RUNDIR"/mobile.log "$RUNDIR"/pont.log 2>/dev/null ;;
--step) case "${2:-}" in 1) etape1;; 2) etape2;; 3) etape3;; 4) etape4;; 5) etape5;; *) rater "--step 1|2|3|4|5";; esac ;;
-h|--help) sed -n '2,22p' "$0" ;;
"") garder_journaux; etape1; etape2; etape3; etape4; etape5
dire "tout tourne. Journaux : $RUNDIR/*.log suivre : ./run.sh --logs arreter : ./run.sh --stop" ;;
*) rater "option inconnue : $1 (voir --help)" ;;
esac6.6 /opt/GSM/c54x_exe/run_real.sh
3888 octets, 57 lignes → 57 lignes
#!/usr/bin/env bash
# run_real.sh - le banc REEL : BTS virtuelle (osmo-bts-trx + coeur osmocom) ->
# pont.py (TRX) -> DSP c54x_exe (--iq none, bursts UDP 6702) -> QEMU/ARM ->
# osmocon -> mobile. Memes executables que run.sh, sans aucune bequille
# (pas de CAN_TOA / CAN_SB / AFC forcee) : FB, SB et BCCH natifs.
#
# ./run_real.sh lance tout, observe 120 s, verdict SI / LAI
# ./run_real.sh --secondes N duree d'observation
# ./run_real.sh --logs suivre les journaux ./run_real.sh --stop tout arreter
#
# Reglages (mesures 2026-09-21) : INSNS=60000 (cadence DSP proche du temps reel
# du BTS), CALYPSO_BSP_STREAM=1 (un burst TS0 par trame, ordre FN),
# CALYPSO_RHEA_DMA_XFER=1 CALYPSO_BSP_DIRECT_FEED=1 (livraison DMA/RIF),
# CALYPSO_BSP_NB_SYM=0.3 (elargissement des bursts normaux, calypso_bsp.c).
set -u
HERE="$(cd "$(dirname "$0")" && pwd)"
RUNDIR=/tmp/c54x-pont
SECS=120
case "${1:-}" in
--stop) "$HERE/run.sh" --stop; systemctl stop osmo-bts-trx 2>/dev/null; exit 0 ;;
--logs) exec "$HERE/run.sh" --logs ;;
--secondes) SECS="$2" ;;
-h|--help) sed -n '2,14p' "$0"; exit 0 ;;
esac
E_MCC="$(grep -m1 -oE 'network country code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_MNC="$(grep -m1 -oE 'mobile network code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_LAC="$(grep -m1 -oE 'location_area_code 0x[0-9a-fA-F]+' /etc/osmocom/osmo-bsc.cfg | grep -oE '0x[0-9a-fA-F]+')"
E_LAC=$((E_LAC)); E_MCC=$((10#$E_MCC)); E_MNC=$((10#$E_MNC))
BSIC="$(grep -m1 -oE 'base_station_id_code [0-9]+' /etc/osmocom/osmo-bsc.cfg | grep -oE '[0-9]+$')"
echo "== run_real : LAI attendu MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC (BSIC=${BSIC:-?}), aucune bequille"
"$HERE/run.sh" --stop >/dev/null 2>&1; sleep 1
for u in osmo-hlr osmo-stp osmo-msc osmo-mgw osmo-bsc; do systemctl is-active --quiet "$u" || systemctl start "$u"; done
systemctl restart osmo-bts-trx; sleep 3
mkdir -p "$RUNDIR"; : > "$RUNDIR/mobile.log"; : > "$RUNDIR/osmocon.log"; : > "$RUNDIR/pont.log"
export MODE=dsp PONT=1 IQ=none INSNS="${INSNS:-60000}" LOCKSTEP="${LOCKSTEP:-1}"
export CALYPSO_RHEA_DMA_XFER=1 CALYPSO_BSP_DIRECT_FEED=1 CALYPSO_BSP_STREAM=1
export PONT_NB_DEBUG="${PONT_NB_DEBUG:-1}"
"$HERE/run.sh" || { echo "== run.sh a echoue"; exit 1; }
echo "== observation ${SECS}s ..."
sleep "$SECS"
M="$RUNDIR/mobile.log"; O="$RUNDIR/osmocon.log"
echo "== SB decodees (osmocon) : $(sed 's/\x1b\[[0-9;]*m//g' "$O" | grep -ac '=> SB') FBSB sans SB : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'result=255')"
echo "== blocs BCCH jetes (fire) : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'Dropping frame')"
echo "== System Information vus :"
sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "New SYSTEM INFORMATION [0-9a-z]+" | sort | uniq -c || echo " (aucun)"
echo "== montant : RACH publies par le DSP : $(sed 's/\x1b\[[0-9;]*m//g' "$RUNDIR/dsp.log" | grep -ac '\[montant\] RACH') compteurs du pont : $(grep -ao 'UL bursts=[0-9]* tard=[0-9]* rach=[0-9]*' "$RUNDIR/pont.log" | tail -1)"
echo "== IMM ASS : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'IMMEDIATE ASSIGNMENT') LU ACCEPT : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'LOCATION UPDATING ACCEPT')"
LAI="$(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "lai=[0-9]+-[0-9]+-[0-9]+" | tail -1)"
echo "== VERDICT :"
if [ -z "$LAI" ]; then echo " ECHEC : aucun SI lu"; else
D_MCC="$(echo "$LAI" | cut -d= -f2 | cut -d- -f1)"; D_MNC="$(echo "$LAI" | cut -d- -f2)"; D_LAC="$(echo "$LAI" | cut -d- -f3)"
if [ "$((10#$D_MCC))" = "$E_MCC" ] && [ "$((10#$D_MNC))" = "$E_MNC" ] && [ "$D_LAC" = "$E_LAC" ]; then
echo " VRAI : $LAI = la config du reseau, le mobile a lu la BCCH du BTS"
else echo " FAUX POSITIF : $LAI ne correspond pas a MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC"; fi
sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aq "camping normally" && echo " et il campe (MM IDLE)"
fi
echo "== arret : ./run_real.sh --stop"6.7 /opt/GSM/c54x_exe/run_si.sh
3846 octets, 72 lignes → 72 lignes
#!/usr/bin/env bash
# run_si.sh — amener le mobile (pile DSP c54x_exe) jusqu'à décoder la BCCH du
# VRAI réseau et lire un System Information, PUIS vérifier que le LAI décodé
# correspond à la config du réseau. Sinon = FAUX POSITIF, dit tel quel.
#
# C'est un banc SOUS ÉCHAFAUDAGE (« canning »), PAS un fonctionnement natif :
# - PONT_CAN_TOA=23 TOA FB figée (le corrélateur natif ne verrouille pas)
# - PONT_CAN_SB=<bsic> résultat SB fabriqué (BSIC + FN du BTS), comme qemu-src
# - CALYPSO_TWL3025_AFC_HZ rotation AFC forcée (annule l'offset de fréquence)
# - CALYPSO_PONT_LOCKSTEP=1 trame QEMU cadencée sur le DSP
# Chaque hack actif est imprimé. Un SI lu avec des hacks n'est pas une preuve du
# DSP natif ; c'est un test d'intégration de l'aval (sync -> BCCH -> L2/L3).
#
# ./run_si.sh # chaîne réelle (BTS + pont), échafaudage complet
# ./run_si.sh --secondes N # durée d'observation (défaut 90)
# ./run_si.sh --stop # tout arrêter
set -u
HERE="$(cd "$(dirname "$0")" && pwd)"
RUNDIR=/tmp/c54x-pont
SECS=90
BSIC="$(grep -m1 -oE 'base_station_id_code [0-9]+' /etc/osmocom/osmo-bsc.cfg 2>/dev/null | grep -oE '[0-9]+$')"; BSIC="${BSIC:-7}"
# LAI attendu, lu depuis la config (MCC/MNC/LAC)
E_MCC="$(grep -m1 -oE 'network country code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_MNC="$(grep -m1 -oE 'mobile network code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_LAC="$(grep -m1 -oE 'location_area_code 0x[0-9a-fA-F]+' /etc/osmocom/osmo-bsc.cfg | grep -oE '0x[0-9a-fA-F]+')"
E_LAC=$((E_LAC)); E_MCC=$((10#$E_MCC)); E_MNC=$((10#$E_MNC))
case "${1:-}" in
--stop) "$HERE/run.sh" --stop; systemctl stop osmo-bts-trx 2>/dev/null; exit 0 ;;
--secondes) SECS="$2" ;;
-h|--help) sed -n '2,25p' "$0"; exit 0 ;;
esac
echo "== run_si : cible LAI attendu MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC (BSIC=$BSIC, ARFCN 514)"
"$HERE/run.sh" --stop >/dev/null 2>&1; sleep 1
systemctl start osmo-bts-trx 2>/dev/null; sleep 3
: > "$RUNDIR/mobile.log" 2>/dev/null; : > "$RUNDIR/osmocon.log" 2>/dev/null
# chaîne réelle + échafaudage complet
export MODE=dsp PONT=1 IQ=none
export CALYPSO_RHEA_DMA_XFER=1 CALYPSO_BSP_DIRECT_FEED=1 CALYPSO_PONT_LOCKSTEP=1
export CALYPSO_TWL3025_AFC_HZ=1927
export PONT_CAN_TOA=23 PONT_CAN_SB="$BSIC"
echo "== hacks actifs : CAN_TOA=23, CAN_SB=$BSIC, AFC_HZ=1927, LOCKSTEP, DIRECT_FEED, RHEA_DMA"
"$HERE/run.sh" >/dev/null 2>&1 &
sleep 12
grep -aq "code is running" "$RUNDIR/osmocon.log" && echo "== firmware lancé" || echo "== firmware PAS lancé (voir $RUNDIR/osmocon.log)"
echo "== observation ${SECS}s ..."
sleep "$SECS"
M="$RUNDIR/mobile.log"
echo "== System Information vus (BCCH) :"
sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "New SYSTEM INFORMATION [0-9a-z]+" | sort | uniq -c || echo " (aucun)"
LAI="$(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "lai=[0-9]+-[0-9]+-[0-9]+" | tail -1)"
echo "== [can-sb] premières lignes :"; grep -a "\[can-sb\]" "$RUNDIR/dsp.log" 2>/dev/null | head -3 | cut -c1-120
echo "== VERDICT :"
if [ -z "$LAI" ]; then
echo " ÉCHEC : aucun SI lu -> pas de camp. (attendu tant que le démod NB/BCCH natif n'est pas bon)"
else
D_MCC="$(echo "$LAI" | cut -d= -f2 | cut -d- -f1)"
D_MNC="$(echo "$LAI" | cut -d- -f2)"
D_LAC="$(echo "$LAI" | cut -d- -f3)"
echo " LAI décodé : MCC=$D_MCC MNC=$D_MNC LAC=$D_LAC"
if [ "$D_MCC" = "$E_MCC" ] && [ "$D_MNC" = "$E_MNC" ] && [ "$D_LAC" = "$E_LAC" ]; then
echo " ✓ VRAI : le LAI correspond à la config -> le mobile a réellement lu la BCCH du réseau."
else
echo " ✗ FAUX POSITIF : le LAI ne correspond pas (config MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC)."
echo " Un bloc décodé qui ne porte pas l'identité du réseau n'est pas un camp, c'est du bruit qui a passé un CRC."
fi
fi
echo "== arrêt : ./run_si.sh --stop"6.8 /opt/GSM/c54x_exe/tout-en-un.py
18664 octets, 377 lignes → 377 lignes
#!/usr/bin/env python3
"""tout-en-un.py — rassemble tous les fichiers texte (sources, scripts, configs,
docs, logs) d'un ou plusieurs dossiers dans UN fichier Markdown, raccourci SANS PERTE :
* fichiers identiques (meme contenu) : une seule copie, les autres renvoient
a la premiere ;
* lignes consecutives identiques : « ligne ×N » ;
* lignes consecutives qui ne different que par des nombres (horodatage,
compteur, fn...) : un gabarit ou les nombres constants restent en place et
les nombres variables deviennent ⟨1⟩ ⟨2⟩..., suivi de la liste ordonnee des
valeurs. On reconstruit chaque ligne en remettant les valeurs dans l'ordre.
* codes couleur ANSI et retours chariot retires (seule perte, volontaire).
./tout-en-un.py [dossier...] defaut : /opt/GSM/c54x_exe et le dernier /root/c54x_exe-*
SORTIE=/chemin.md EXT="sh py c" (restreint aux extensions ; defaut : tout fichier texte)
SEUIL=3 (taille mini d'un groupe)
Sont ecartes : .git et caches, binaires (ELF, images, .pyc, archives), sauvegardes
(.bak*, ~, .orig), LICENSE/COPYING et les sorties precedentes de ce script.
"""
import glob
import hashlib
import os
import re
import sys
import time
EXT = os.environ.get("EXT", "").split() # vide : tout fichier texte
SEUIL = int(os.environ.get("SEUIL", "3"))
FORMAT = os.environ.get("FORMAT", "qmd") # qmd (Quarto) ou md
SORTIE = os.environ.get("SORTIE") or "/root/c54x_exe-%s.%s" % (time.strftime("%Y%m%d-%H%M%S"), FORMAT)
AUTEUR = os.environ.get("AUTEUR", "Banc GSM émulé — banc-max")
IGNORES = {".git", "__pycache__", ".pytest_cache", ".mypy_cache", ".ruff_cache", "node_modules", ".venv", "venv",
"rom", "roms"} # dumps de ROM (DSP Calypso) : pas a nous, pas dans le dossier
BINAIRES = set("png jpg jpeg gif bmp ico webp pdf zip gz tgz bz2 xz 7z tar bin elf o a so pyc pyo pyd "
"wav mp3 ogg mp4 sqlite db img iso woff woff2 ttf otf".split())
SAUVEGARDES = re.compile(r"(~|\.orig|\.rej|\.swp|\.bak(-\w+)?)$")
TITRE_SORTIE = "title: \"Banc GSM émulé — dossier de run\"".encode() # une sortie precedente de ce script
ANSI = re.compile(r"\x1b\[[0-9;]*[A-Za-z]")
TELNET = re.compile(rb"\xff[\xfb-\xfe].|\xff.") # negociation telnet (IAC) des captures VTY
CONTROLE = re.compile("[\x00-\x08\x0b\x0c\x0e-\x1f\x7f\ufffd]") # caracteres de commande, octets indecodables
NUM = re.compile(r"\d+")
# Preambule LaTeX du format pdf (xelatex). Sans lui : « Dimension too large » (framed
# mesure tout le bloc de code avant de le couper), lignes de code non repliees,
# diagrammes Mermaid plus larges que la page, glyphes manquants.
PDF_PREAMBULE = "".join(" %s\n" % l for l in r"""
% Code : police reduite, retour a la ligne (y compris dans les mots longs)
\usepackage{fvextra}
\fvset{fontsize=\small,breaklines,breakanywhere}
\RecustomVerbatimEnvironment{verbatim}{Verbatim}{fontsize=\small,breaklines,breakanywhere}
% Images (diagrammes Mermaid) : jamais plus larges que la ligne ni plus hautes que la page
\usepackage{adjustbox}
\usepackage{letltxmacro}
\LetLtxMacro\ORIGincludegraphics\includegraphics
\renewcommand{\includegraphics}[2][]{\adjustimage{#1,max width=\linewidth,max totalheight=.85\textheight}{#2}}
% Sans cadre : framed/snugshade mesure tout le bloc et plante ("Dimension too large")
\renewenvironment{Shaded}{\medskip}{\medskip}
% Glyphes absents de Latin Modern Roman -> DejaVu Sans
\usepackage{newunicodechar}
\newfontfamily\fallbackfont{DejaVu Sans}
\newunicodechar{↔}{{\fallbackfont ↔}}
\newunicodechar{⟨}{{\fallbackfont ⟨}}
\newunicodechar{⟩}{{\fallbackfont ⟩}}
\newunicodechar{≠}{{\fallbackfont ≠}}
\newunicodechar{∈}{{\fallbackfont ∈}}
\newunicodechar{ᵉ}{{\fallbackfont ᵉ}}
\newunicodechar{✓}{{\fallbackfont ✓}}
\newunicodechar{✗}{{\fallbackfont ✗}}
\newunicodechar{⚠}{{\fallbackfont ⚠}}
\newunicodechar{📱}{{\fallbackfont ☎}}
""".strip("\n").split("\n"))
LANG = {"sh": "bash", "bash": "bash", "py": "python", "md": "markdown", "qmd": "markdown", "mmd": "mermaid",
"txt": "text", "log": "text", "c": "c", "h": "c", "cpp": "cpp", "cc": "cpp", "hpp": "cpp",
"ini": "ini", "env": "ini", "service": "ini", "desktop": "ini", "toml": "toml", "yml": "yaml",
"yaml": "yaml", "json": "json", "patch": "diff", "diff": "diff", "mak": "makefile", "mk": "makefile",
"html": "html", "xml": "xml", "svg": "xml", "js": "javascript", "css": "css", "sql": "sql", "rs": "rust"}
NOMS_LANG = {"Makefile": "makefile", "GNUmakefile": "makefile", "Dockerfile": "dockerfile"}
def extension(nom):
return nom.rsplit(".", 1)[-1].lower() if "." in nom[1:] else ""
def langage(chemin):
"""Langage de coloration : extension, puis nom du fichier, puis shebang."""
nom = os.path.basename(chemin)
e = extension(nom)
if e in LANG:
return LANG[e]
if nom in NOMS_LANG:
return NOMS_LANG[nom]
try:
premiere = open(chemin, "rb").readline().decode("utf-8", "replace")
except OSError:
premiere = ""
if premiere.startswith("#!"):
if "python" in premiere:
return "python"
if re.search(r"\b(ba|z|da|k)?sh\b", premiere):
return "bash"
return "text"
def texte_legitime(chemin, nom):
"""Fichier texte a nous : ni binaire, ni sauvegarde, ni licence, ni sortie de ce script."""
if extension(nom) in BINAIRES or SAUVEGARDES.search(nom) or nom in ("LICENSE", "COPYING"):
return False
if nom.startswith("tout-en-un-"):
return False
try:
with open(chemin, "rb") as f:
debut = f.read(8192)
except OSError:
return False
if b"\0" in debut: # ELF, images, .pyc, archives...
return False
if TITRE_SORTIE in debut:
return False
return True
def dossiers_par_defaut():
runs = sorted(glob.glob("/root/grgsm_exe-*"), key=os.path.getmtime)
runs = [r for r in runs if os.path.isdir(r)]
return ["/opt/GSM/c54x_exe"] + ([runs[-1]] if runs else [])
def fichiers(dossier):
for racine, dirs, noms in os.walk(dossier):
dirs[:] = sorted(d for d in dirs if d not in IGNORES)
for n in sorted(noms):
chemin = os.path.join(racine, n)
if EXT and extension(n) not in EXT:
continue
if texte_legitime(chemin, n):
yield chemin
def compacter(lignes):
"""Rend (lignes de sortie, nb de groupes compactes)."""
out, groupes, i, n = [], 0, 0, len(lignes)
while i < n:
cle = NUM.sub("\0", lignes[i])
j = i + 1
while j < n and NUM.sub("\0", lignes[j]) == cle:
j += 1
taille = j - i
if taille < SEUIL:
out.extend(lignes[i:j])
i = j
continue
groupes += 1
if "\0" not in cle: # repetition exacte
out.append("%s ×%d" % (lignes[i], taille))
i = j
continue
valeurs = [NUM.findall(l) for l in lignes[i:j]]
nb = len(valeurs[0])
varie = [len({v[k] for v in valeurs}) > 1 for k in range(nb)]
# gabarit : nombres constants remis en place, variables numerotes ⟨k⟩
morceaux, k, idx = cle.split("\0"), 0, 0
gab = morceaux[0]
for m in morceaux[1:]:
if varie[k]:
idx += 1
gab += "⟨%d⟩" % idx
else:
gab += valeurs[0][k]
gab += m
k += 1
out.append("%s ×%d" % (gab, taille))
if idx:
tuples = [",".join(v[k] for k in range(nb) if varie[k]) for v in valeurs]
# lignes de valeurs de ~100 colonnes
ligne, courant = [], " ⟨⟩ ="
for t in tuples:
if len(courant) + len(t) + 3 > 110:
ligne.append(courant)
courant = " "
courant += " (" + t + ")"
ligne.append(courant)
out.extend(ligne)
i = j
return out, groupes
def synthese(tous):
"""Run, echelle, echecs, bilan de couverture : lus dans verdict.txt / couverture.txt."""
lignes, vus = [], set()
for f in tous:
nom = os.path.basename(f)
if nom not in ("verdict.txt", "couverture.txt"):
continue
run = os.path.basename(os.path.dirname(f))
if (run, nom) in vus: # meme run copie a deux endroits
continue
vus.add((run, nom))
try:
txt = ANSI.sub("", open(f, "rb").read().decode("utf-8", "replace"))
except OSError:
continue
for l in txt.splitlines():
l = re.sub(r"\s+", " ", l.strip())
if l.startswith("ELEMENT MAX"):
lignes.append((0, "| %s | échelle | %s |" % (run, l)))
elif l.startswith("bilan :"):
lignes.append((2, "| %s | couverture | %s |" % (run, l[8:])))
elif l.startswith("couverture couche 1"):
lignes.append((1, "| %s | mode, date | %s |" % (run, l.split("—", 1)[-1].strip())))
else:
m = re.match(r"(\d+) (\S+) (ECHEC|SAUTE) ?(.*)", l)
if m:
lignes.append((3, "| %s | barreau %s %s | %s %s |" % (run, m.group(1), m.group(2), m.group(3), m.group(4))))
return [l for _, l in sorted(lignes, key=lambda x: x[0])]
MERMAID_OUVRE = "```{mermaid}" if FORMAT == "qmd" else "```mermaid"
def rendre_mmd(lignes):
return "%s\n%s\n```" % (MERMAID_OUVRE, "\n".join(lignes))
def rendre_md(lignes):
out, dans_bloc, cloture = [], False, ""
i = 0
if lignes and lignes[0].strip() == "---": # front matter YAML : montre en bloc, pas interprete
j = next((k for k in range(1, len(lignes)) if lignes[k].strip() in ("---", "...")), None)
if j:
out.append("```yaml"); out.extend(lignes[1:j]); out.append("```")
i = j + 1
while i < len(lignes):
l = lignes[i]; i += 1
m = re.match(r"^(\s*)(`{3,}|~{3,})(.*)$", l)
if m and not dans_bloc:
dans_bloc, cloture = True, m.group(2)
info = m.group(3).strip()
if info.startswith("{mermaid}") or info.startswith("mermaid"):
l = m.group(1) + MERMAID_OUVRE
elif info.startswith("{"): # ```{r ...} : jamais execute
l = m.group(1) + m.group(2) + info.strip("{}").split(" ")[0].split(",")[0]
out.append(l); continue
if m and dans_bloc and m.group(2)[0] == cloture[0] and len(m.group(2)) >= len(cloture) and not m.group(3).strip():
dans_bloc = False; out.append(l); continue
if not dans_bloc:
h = re.match(r"^(#{1,6})\s", l)
if h:
l = "#" * min(6, len(h.group(1)) + 3) + l[len(h.group(1)):]
elif l.strip() in ("---", "..."): # pas de bloc YAML ni de regle au milieu du dossier
l = "* * *"
out.append(l)
if dans_bloc:
out.append(cloture)
return "\n".join(out)
def main():
dossiers = sys.argv[1:] or dossiers_par_defaut()
vus, sections, table = {}, [], []
total_in = total_out = 0
# Ordre : les resultats des tests (.txt .md .mmd : verdicts, couverture, rapports, grafcets)
# d'abord, les fichiers du banc (sources, scripts, configs...) ensuite, les .log en dernier
CATEGORIES = (("Verdict et couverture", ()), ("Resultats des tests", ("txt", "md", "mmd", "tsv", "csv")),
("Fichiers", None), ("Logs", ("log",))) # Fichiers : tout le reste
EN_TETE = ("verdict.txt", "couverture.txt") # tout en haut, dans cet ordre
tous = []
for d in dossiers:
if not os.path.isdir(d):
table.append("| (absent) %s | | | | |" % d)
continue
tous.extend(fichiers(d))
def rang(f):
if os.path.basename(f) in EN_TETE:
return 0
e = extension(os.path.basename(f))
for i, (_, exts) in enumerate(CATEGORIES):
if exts and e in exts:
return i
return 2 # Fichiers
categorie_courante = None
def cle(f):
r = rang(f)
return (r, EN_TETE.index(os.path.basename(f)) if r == 0 else 0, tous.index(f))
for f in sorted(tous, key=cle):
if rang(f) != categorie_courante:
categorie_courante = rang(f)
nom = CATEGORIES[categorie_courante][0] if categorie_courante < len(CATEGORIES) else "Autres"
sections.append("## %s\n" % nom)
if True:
try:
brut = open(f, "rb").read()
except OSError as e:
table.append("| %s | | | | illisible : %s |" % (f, e))
continue
texte = ANSI.sub("", TELNET.sub(b"", brut).decode("utf-8", "replace")).replace("\r", "")
texte = CONTROLE.sub("", texte)
lignes = texte.split("\n")
if lignes and lignes[-1] == "":
lignes.pop()
h = hashlib.sha1(texte.encode()).hexdigest()
total_in += len(brut)
if h in vus:
sections.append("### %s\n\nidentique à %s\n" % (f, vus[h]))
continue
vus[h] = f
ext = extension(os.path.basename(f))
if ext in ("md", "qmd", "mmd"):
# Rendu, pas cite : les .mmd deviennent des diagrammes Mermaid, les .md
# sont inclus tels quels (titres retrogrades sous le titre du fichier,
# blocs mermaid rendus, blocs {r}/{python} neutralises). Pas de compactage.
total_out += len(texte) + 1
sections.append("### %s\n\n%d octets, %d lignes\n\n%s\n"
% (f, len(brut), len(lignes), rendre_md(lignes) if ext == "md" else rendre_mmd(lignes)))
continue
compact, groupes = compacter(lignes)
total_out += sum(len(l) + 1 for l in compact)
note = "%d groupes compactés" % groupes if groupes else ""
# cloture plus longue que toute suite de ` du contenu : un ``` dans un
# .py ou un .md ne referme plus le bloc (pandoc lisait alors la suite
# comme du Markdown : « Could not fetch resource »)
plus_long = max((len(m) for m in re.findall(r"`+", "\n".join(compact))), default=0)
cloture = "`" * max(3, plus_long + 1)
sections.append("### %s\n\n%d octets, %d lignes → %d lignes%s\n\n%s%s\n%s\n%s\n"
% (f, len(brut), len(lignes), len(compact), (" (%s)" % note) if note else "",
cloture, langage(f), "\n".join(compact), cloture))
runs = sorted({os.path.basename(os.path.dirname(f)) for f in tous if os.path.basename(f) == "verdict.txt"})
with open(SORTIE, "w") as o:
o.write("---\n")
o.write("title: \"Banc GSM émulé — dossier de run\"\n")
o.write("subtitle: \"%s\"\n" % (", ".join(runs) if runs else ", ".join(dossiers)))
o.write("author: \"%s\"\n" % AUTEUR)
o.write("date: \"%s\"\n" % time.strftime("%Y-%m-%d %H:%M"))
o.write("lang: fr\n")
if FORMAT == "qmd":
o.write("engine: markdown\n")
o.write("code-annotations: false\n") # un "<100>" dans un commentaire n'est pas une annotation # pandoc seul : knitr voyait des ```{r} dans les rapports inclus et s'arretait
if FORMAT == "qmd":
o.write("format:\n html:\n toc: true\n toc-depth: 3\n toc-location: left\n"
" number-sections: true\n embed-resources: true\n theme: cosmo\n"
" code-overflow: wrap\n fontsize: 0.9em\n")
o.write(" pdf:\n toc: true\n toc-depth: 3\n number-sections: true\n"
" shift-heading-level-by: -1\n" # ## Synthese = section 1, pas 0.1
" papersize: a4\n geometry: margin=2cm\n fontsize: 10pt\n"
" monofont: DejaVu Sans Mono\n" # trace de boites, ✓ ✗ ⟨⟩ ⚠ absents de Latin Modern Mono
" include-in-header:\n text: |\n" + PDF_PREAMBULE)
o.write("---\n\n")
o.write("## Synthèse\n\n")
o.write("| run | élément | valeur |\n|---|---|---|\n")
lignes_syn = synthese(tous)
o.write("\n".join(lignes_syn) + "\n\n" if lignes_syn else "| (pas de verdict.txt) | | |\n\n")
o.write("| dossier de run | contenu | |\n|---|---|---|\n")
o.write("| Verdict et couverture | échelle des barreaux et tableau de couverture couche 1 | |\n")
o.write("| Résultats des tests | captures VTY, diagnostics, rapports pytest, grafcets (.txt .md .mmd) | |\n")
o.write("| Fichiers | sources, scripts, configs et docs du banc (tout fichier texte) | |\n")
o.write("| Logs | journaux (.log), en dernier | |\n\n")
o.write("::: {.callout-note collapse=\"true\"}\n## Méthode\n\n" if FORMAT == "qmd" else "### Méthode\n\n")
o.write("Dossiers : %s. Extensions : %s. Entrée %d Ko, sortie %d Ko.\n\n"
% (", ".join(dossiers), " ".join(EXT) if EXT else "tous les fichiers texte (hors .git, caches, "
"binaires, sauvegardes, LICENSE et sorties précédentes)", total_in // 1024, total_out // 1024))
o.write("Compactage sans perte : fichiers identiques cités une fois ; lignes consécutives identiques "
"« ×N » ; lignes ne différant que par des nombres : gabarit avec ⟨k⟩ puis la liste ordonnée "
"des valeurs (k-uplets), chaque ligne se reconstruit en remettant les valeurs dans l'ordre. "
"Seuls les codes couleur, la négociation telnet des captures VTY et les caractères de commande "
"sont retirés. Les .md sont inclus tels quels (titres rétrogradés) et les .mmd rendus en "
"diagrammes Mermaid, sans compactage.\n")
o.write(":::\n\n" if FORMAT == "qmd" else "\n")
for t in table: # ne reste que les dossiers absents / fichiers illisibles
o.write(t.strip("| ").split(" |")[0] + "\n")
o.write("\n")
o.write("\n".join(sections))
print("%s : %d fichiers (%d uniques), %d Ko -> %d Ko" % (SORTIE, len(tous), len(vus), total_in // 1024,
os.path.getsize(SORTIE) // 1024))
if __name__ == "__main__":
main()6.9 /opt/GSM/c54x_exe/src/cellule.c
38011 octets, 698 lignes → 700 lignes (2 groupes compactés)
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* cellule.c - cell synchronisation bursts for the DSP.
*
* FCCH = 148 zero bits (45.002 5.2.4). SCH = 3 tail + 39 + 64 extended training
* sequence (45.002 5.2.5) + 39 + 3 tail; the 78 coded bits come from
* gsm0503_sch_encode() of libosmocoding fed with sb_info (BSIC + T1'/T2/T3',
* 44.018 9.1.30). Dummy burst: the fixed pattern of 45.002 5.2.6. Burst
* assembly follows osmo-bts sched_lchan_fcch_sch.c and scheduler.c.
*/
#include <string.h>
#include <math.h>
#include "hw/arm/calypso/calypso_debug.h"
#include <stdlib.h>
#include <osmocom/core/bits.h>
#include <osmocom/coding/gsm0503_coding.h>
#include "calypso_gmsk.h"
#include "cellule.h"
static const uint8_t train_sb[64] = {
1,0,1,1,1,0,0,1,0,1,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,
0,0,1,0,1,1,0,1,0,1,0,0,0,1,0,1,0,1,1,1,0,1,1,0,0,0,0,1,1,0,1,1,
};
static const uint8_t factice[148] = {
0,0,0,
⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩,⟨6⟩,⟨7⟩,⟨8⟩,0,⟨9⟩,⟨10⟩,1,⟨11⟩,⟨12⟩,⟨13⟩,⟨14⟩,⟨15⟩,⟨16⟩,⟨17⟩,⟨18⟩,⟨19⟩,⟨20⟩,⟨21⟩,⟨22⟩,⟨23⟩,⟨24⟩,⟨25⟩,⟨26⟩,⟨27⟩,⟨28⟩,⟨29⟩,⟨30⟩, ×4
⟨⟩ = (1,1,1,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,0,1,0,0,1,0,0,1,1,1,0)
(0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0,0)
(0,1,0,1,1,1,0,0,1,0,1,1,0,0,0,1,0,1,0,1,1,1,0,1,0,0,1,0,1,0)
(0,0,1,1,0,0,1,1,0,1,1,0,0,1,1,1,1,0,1,0,0,1,1,1,1,1,0,0,0,1)
0,0,1,0,1,1,1,1,1,0,1,0,1,0,
0,0,0,
};
int cellule_sch_partout; /* diagnostic: emit SCH on every non-FCCH frame */
/* ---- BCCH / CCCH : normal bursts of the synthetic cell [2026-09-20] ----
*
* Downlink TN0 of a combined CCCH+SDCCH/4 cell (44.018 6.3.1.3, 45.002 clause
* 7 table 3): BCCH norm on p51 2..5, CCCH on 6..9, 12..15, 16..19, SDCCH/4
* elsewhere (left as dummy bursts). The BCCH block of 51-multiframe TC =
* (fn / 51) % 8 carries SI1 (TC 0, 4), SI2 (1, 5), SI3 (2, 6), SI4 (3, 7);
* the CCCH blocks carry an empty PAGING REQUEST TYPE 1. Coding is the one of
* osmo-bts sched_lchan_xcch.c: gsm0503_xcch_encode() (Fire CRC, r=1/2
* convolutional code, 4-burst diagonal interleaving) then 3 tail, 57 data,
* hl, 26-bit training sequence BCC of the BSIC (45.002 5.2.3 set 1), hu, 57
* data, 3 tail. The ROM demodulates with the TSC the ARM hands it in
* dsp_load_rx_task(ALLC_DSP_TASK, burst_id, tsc), decodes the four bursts and
* leaves 23 octets in a_cd[3..] with the Fire result in a_cd[0]; prim_rx_nb.c
* copies them into an L1CTL_DATA_IND and mobile's rr reads the SI.
*
* Identity: MCC 001 MNC 01 LAC 1 CI 6001, ARFCN 514, the bench network of
* /etc/osmocom (run_si.sh checks the decoded LAI against it). Override with
* CELLULE_MCC / CELLULE_MNC / CELLULE_LAC / CELLULE_CI / CELLULE_ARFCN. */
#include <arpa/inet.h>
#include <osmocom/gsm/gsm48.h>
#include <osmocom/gsm/gsm48_ie.h>
#include <osmocom/gsm/gsm23003.h>
#include <osmocom/gsm/protocol/gsm_04_08.h>
#include <osmocom/gsm/sysinfo.h>
static const uint8_t train_nb[8][26] = { /* 45.002 table 5.2.3a */
{ ⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩,⟨6⟩,⟨7⟩,⟨8⟩,⟨9⟩,⟨10⟩,⟨11⟩,⟨12⟩,⟨13⟩,⟨14⟩,⟨15⟩,0,⟨16⟩,⟨17⟩,⟨18⟩,⟨19⟩,⟨20⟩,⟨21⟩,⟨22⟩,⟨23⟩,⟨24⟩,⟨25⟩ }, ×8
⟨⟩ = (0,0,1,0,0,1,0,1,1,1,0,0,0,0,1,0,0,1,0,0,1,0,1,1,1)
(0,0,1,0,1,1,0,1,1,1,0,1,1,1,1,0,0,1,0,1,1,0,1,1,1)
(0,1,0,0,0,0,1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,1,1,1,0)
(0,1,0,0,0,1,1,1,1,0,1,1,0,1,0,0,1,0,0,0,1,1,1,1,0)
(0,0,0,1,1,0,1,0,1,1,1,0,0,1,0,0,0,0,1,1,0,1,0,1,1)
(0,1,0,0,1,1,1,0,1,0,1,1,0,0,0,0,1,0,0,1,1,1,0,1,0)
(1,0,1,0,0,1,1,1,1,1,0,1,1,0,0,1,0,1,0,0,1,1,1,1,1)
(1,1,1,0,1,1,1,1,0,0,0,1,0,0,1,1,1,1,0,1,1,1,1,0,0)
};
int cellule_marge_nb = -1; /* head margin of a normal burst; < 0: bare 148 samples */
int cellule_tsc_force = -1; /* training sequence of the normal bursts; < 0: BCC of the BSIC */
double cellule_dec_nb = -1;
double cellule_phase_nb = 0; /* carrier phase (deg) of the last normal burst (probe) */ /* sampling instant used for the last normal burst (probe) */
int cellule_fenetre_nb = 0; /* one-shot NB window length in samples (0: 148 + 2 x margin) */
int cellule_sans_bcch; /* 1: dummy bursts on BCCH/CCCH, the old cell */
static int env_int(const char *nom, int defaut)
{
const char *e = calypso_getenv(nom);
return (e && *e) ? (int)strtol(e, NULL, 0) : defaut;
}
/* The 23 octets of the L2 frame carried by BCCH block TC (0..7), or by a CCCH
* block (tc < 0). Buffers are static, the caller copies. */
static const uint8_t *cellule_l2(int tc)
{
static uint8_t si1[23], si2[23], si3[23], si4[23], pag[23];
static int pret;
if (!pret) {
pret = 1;
struct osmo_location_area_id lai = {
.plmn = { .mcc = (uint16_t)env_int("CELLULE_MCC", 1),
.mnc = (uint16_t)env_int("CELLULE_MNC", 1), .mnc_3_digits = false },
.lac = (uint16_t)env_int("CELLULE_LAC", 1) };
uint16_t ci = (uint16_t)env_int("CELLULE_CI", 6001);
int arfcn = env_int("CELLULE_ARFCN", 514) & 0x3ff;
struct gsm48_rach_control rach = { .re = 1, .cell_bar = 0, .tx_integer = 9, .max_trans = 3,
.t2 = 0x00, .t3 = 0x00 };
struct gsm48_cell_sel_par csp = { .ms_txpwr_max_ccch = 0, .cell_resel_hyst = 2,
.rxlev_acc_min = 0, .neci = 1, .acs = 0 };
memset(si1, GSM_MACBLOCK_PADDING, 23); memset(si2, GSM_MACBLOCK_PADDING, 23);
memset(si3, GSM_MACBLOCK_PADDING, 23); memset(si4, GSM_MACBLOCK_PADDING, 23);
memset(pag, GSM_MACBLOCK_PADDING, 23);
/* SI1: cell channel description in variable bitmap format (44.018
* 10.5.2.13.7, the layout gsm48_decode_freq_list() reads): ORIG-ARFCN
* = our carrier, no further bit set. Rest octet 0x2b: L, no NCH; L,
* band indicator 1800. */
struct gsm48_system_information_type_1 *s1 = (void *)si1;
s1->header.l2_plen = (uint8_t)((21 << 2) | 1);
s1->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s1->header.skip_indicator = 0;
s1->header.system_information = GSM48_MT_RR_SYSINFO_1;
memset(s1->cell_channel_description, 0, 16);
s1->cell_channel_description[0] = (uint8_t)(0x8e | ((arfcn >> 9) & 1));
s1->cell_channel_description[1] = (uint8_t)((arfcn >> 1) & 0xff);
s1->cell_channel_description[2] = (uint8_t)((arfcn & 1) << 7);
s1->rach_control = rach;
{ /* self-check: decode what we encoded */
static struct gsm_sysinfo_freq f[1024];
memset(f, 0, sizeof f);
gsm48_decode_freq_list(f, s1->cell_channel_description, 16, 0xce, 1);
int n = 0, ok = 0;
for (int i = 0; i < 1024; i++) if (f[i].mask) { n++; if (i == arfcn) ok = 1; }
if (!ok || n != 1)
printf("cellule : SI1 cell channel description FAUSSE (%d ARFCN decodes, %d attendu %s)\n",
n, arfcn, ok ? "present" : "ABSENT");
}
/* SI2: no neighbour (bitmap 0 all clear), all NCC permitted */
struct gsm48_system_information_type_2 *s2 = (void *)si2;
s2->header.l2_plen = (uint8_t)((22 << 2) | 1);
s2->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s2->header.skip_indicator = 0;
s2->header.system_information = GSM48_MT_RR_SYSINFO_2;
memset(s2->bcch_frequency_list, 0, 16);
s2->ncc_permitted = 0xff;
s2->rach_control = rach;
/* SI3: identity, combined CCCH, IMSI attach, no periodic LU. Rest
* octets 0x2b: every optional element absent (all L). */
struct gsm48_system_information_type_3 *s3 = (void *)si3;
s3->header.l2_plen = (uint8_t)((18 << 2) | 1);
s3->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s3->header.skip_indicator = 0;
s3->header.system_information = GSM48_MT_RR_SYSINFO_3;
s3->cell_identity = htons(ci);
gsm48_generate_lai2(&s3->lai, &lai);
s3->control_channel_desc.ccch_conf = 1; /* 1 CCCH combined with SDCCH/4 */
s3->control_channel_desc.bs_ag_blks_res = 1;
s3->control_channel_desc.att = 1;
s3->control_channel_desc.bs_pa_mfrms = 0; /* 2 multiframes */
s3->control_channel_desc.t3212 = 0;
s3->cell_options.radio_link_timeout = 7; /* 32 */
s3->cell_options.dtx = 2;
s3->cell_options.pwrc = 0;
s3->cell_sel_par = csp;
s3->rach_control = rach;
/* SI4: identity again, no CBCH; rest octets all L */
struct gsm48_system_information_type_4 *s4 = (void *)si4;
s4->header.l2_plen = (uint8_t)((12 << 2) | 1);
s4->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s4->header.skip_indicator = 0;
s4->header.system_information = GSM48_MT_RR_SYSINFO_4;
gsm48_generate_lai2(&s4->lai, &lai);
s4->cell_sel_par = csp;
s4->rach_control = rach;
/* CCCH: PAGING REQUEST TYPE 1, page mode normal, no identity (the
* fill osmo-bts sends on an idle paging block) */
static const uint8_t vide[] = { 0x15, 0x06, 0x21, 0x00, 0x01, 0xf0 };
memcpy(pag, vide, sizeof vide);
printf("cellule : BCCH SI1-4 MCC=%03u MNC=%02u LAC=%u CI=%u ARFCN=%d, CCCH = paging vide\n",
lai.plmn.mcc, lai.plmn.mnc, lai.lac, ci, arfcn);
}
if (tc < 0) return pag;
switch (tc & 3) { case 0: return si1; case 1: return si2; case 2: return si3; default: return si4; }
}
/* Normal burst bid (0..3) of the block starting at fn0, or -1 if no block
* starts there. The four bursts of one block are cached. */
static int cellule_nb(uint32_t fn0, int bid, uint8_t bsic, uint8_t bits[148])
{
static uint32_t fn_cache = 0xffffffffu;
static ubit_t bursts[4 * 116];
if (fn0 != fn_cache) {
uint32_t p51 = fn0 % 51;
const uint8_t *l2;
if (p51 == 2) l2 = cellule_l2((int)((fn0 / 51) % 8));
else if (p51 == 6 || p51 == 12 || p51 == 16) l2 = cellule_l2(-1);
else return -1;
gsm0503_xcch_encode(bursts, l2);
fn_cache = fn0;
}
/* CELLULE_NB_REPEAT=<k>: burst k of the block in all four positions, to
* hand the ROM's decoder four bursts it is known to demodulate. */
{ static int rep = -2; if (rep == -2) rep = env_int("CELLULE_NB_REPEAT", -1); if (rep >= 0 && rep < 4) bid = rep; }
const ubit_t *b = bursts + bid * 116;
memset(bits, 0, 3);
memcpy(bits + 3, b, 58); /* 57 data + hl */
memcpy(bits + 61, train_nb[cellule_tsc_force >= 0 ? cellule_tsc_force & 7 : bsic & 7], 26);
memcpy(bits + 87, b + 58, 58); /* hu + 57 data */
memset(bits + 145, 0, 3);
return 0;
}
/* sb_info of 44.018 9.1.30 for frame fn, byte layout of osmo-bts
* sched_lchan_fcch_sch.c. T3' = (T3 - 1) / 10: the SCH sits on T3 in
* {1,11,21,31,41}, so T3' in 0..4. Previously computed as T3 / 10 here and as
* (T3 - 1) / 10 in pont.c: identical on real SCH frames, different at T3 = 50
* under cellule_sch_partout. One encoder now, shared by cellule_burst() and
* cellule_code_attendu(). */
static void sb_info_de_fn(uint32_t fn, uint8_t bsic, uint8_t sb_info[4])
{
uint32_t t1 = fn / 1326, t2 = fn % 26, t3 = fn % 51;
uint32_t t3p = t3 ? (t3 - 1) / 10 : 0;
sb_info[0] = (uint8_t)(((bsic & 0x3f) << 2) | ((t1 & 0x600) >> 9));
sb_info[1] = (uint8_t)((t1 & 0x1fe) >> 1);
sb_info[2] = (uint8_t)(((t1 & 0x001) << 7) | ((t2 & 0x1f) << 2) | ((t3p & 0x6) >> 1));
sb_info[3] = (uint8_t)(t3p & 0x1);
}
/* Caller sets the head margin; the tail margin is trimmed to keep 190 complex
* samples in total. Sliding the burst inside that fixed-size buffer separates an
* influence window that is an ABSOLUTE buffer index (late bits lose influence,
* early ones gain it) from one RELATIVE to the burst start (the profile moves
* with the burst and keeps its shape). */
int cellule_marge_fin = -1;
char cellule_burst(uint32_t fn, uint8_t bsic, int amp, double decalage, int marge, int16_t *iq, int *n_iq)
{
uint8_t bits[148];
uint32_t p51 = fn % 51;
char type;
if (p51 % 10 == 0 && p51 <= 40) {
memset(bits, 0, sizeof(bits));
type = 'F';
} else if ((p51 % 10 == 1 && p51 <= 41) || cellule_sch_partout) {
uint8_t sb_info[4];
sb_info_de_fn(fn, bsic, sb_info);
ubit_t code[78];
gsm0503_sch_encode(code, sb_info);
/* Demodulator impulse response: flip exactly ONE of the 78 coded bits and
* watch which soft-bit positions at 0x2c72 move.
* 1 position -> pure permutation, 78 runs give the whole table
* 3 or 4 around one -> normal ISI, the chain is sound there
* all of them -> global, wrong traceback (on C54x: CMPS/TRN) */
{
/* The flip must stay inside ONE frame: otherwise it perturbs the whole
* run history (scheduling, AFC) and the differential measurement then
* compares two histories instead of two bursts.
* REJEU_INVERSER_FN=<f> restricts the flip to frame f. */
static int inv = -2; static long invfn = -2;
if (inv == -2) { const char *e = calypso_getenv("REJEU_INVERSER_BIT"); inv = e ? atoi(e) : -1; }
if (invfn == -2) { const char *e = calypso_getenv("REJEU_INVERSER_FN"); invfn = e ? atol(e) : -1; }
if (inv >= 0 && inv < 78 && (invfn < 0 || (long)fn == invfn)) code[inv] ^= 1;
}
memset(bits, 0, 3);
memcpy(bits + 3, code, 39);
memcpy(bits + 42, train_sb, 64);
memcpy(bits + 106, code + 39, 39);
memset(bits + 145, 0, 3);
/* Midamble probe: the 78 coded bits cannot reach the training sequence, yet
* that sequence is what channel estimation is supposed to use. If flipping
* one midamble bit leaves the soft bits untouched, the demodulator ignores
* the known sequence and equalises against an estimate built elsewhere. */
{
/* Same one-frame confinement as the coded-bit flip; without it every SCH
* burst of the run is hit. REJEU_INVERSER_FN is shared with
* REJEU_INVERSER_BIT, so only one thing is probed at a time. */
static int im = -2; static long imfn = -2;
if (im == -2) { const char *e = calypso_getenv("REJEU_INVERSER_MIDAMBULE");
im = e ? atoi(e) : -1; }
if (imfn == -2) { const char *e = calypso_getenv("REJEU_INVERSER_FN");
imfn = e ? atol(e) : -1; }
if (im >= 0 && im < 64 && (imfn < 0 || (long)fn == imfn)) bits[42 + im] ^= 1;
}
type = 'S';
} else if (!cellule_sans_bcch && p51 >= 2 && p51 <= 49 && p51 % 10 >= 2 &&
cellule_nb(fn - ((p51 % 10 - 2) & 3), (int)((p51 % 10 - 2) & 3), bsic, bits) == 0) {
type = (p51 <= 5) ? 'B' : 'C';
} else {
memcpy(bits, factice, 148);
type = '.';
}
/* CELLULE_NB_FINE=1 : burst position swept from 2.3 to 4.7 samples in 0.1
* steps by multiframe (head margin + sampling instant together) */
if (type == 'B' || type == 'C') {
static int fine = -2; if (fine == -2) fine = env_int("CELLULE_NB_FINE", 0);
if (fine && cellule_marge_nb >= 0) {
double total = 2.3 + 0.1 * (double)((fn / 51u) % 25u);
cellule_marge_nb = (int)total; decalage = total - (double)cellule_marge_nb;
cellule_dec_nb = decalage;
}
}
int m_tete = -1, m_fin = 0;
if (type == 'S' && marge > 0) {
m_tete = marge;
m_fin = (cellule_marge_fin >= 0) ? cellule_marge_fin : marge;
} else if ((type == 'B' || type == 'C') && cellule_marge_nb >= 0) {
/* the ROM takes 151 samples for an NB window (ALGTH 604): 3 + 148 */
/* exactly the window: a frame longer than the DMA window leaves
* samples in the RIF and the next burst starts on them */
m_tete = cellule_marge_nb;
m_fin = cellule_fenetre_nb > m_tete + 148 ? cellule_fenetre_nb - m_tete - 148 : 0;
}
/* CELLULE_NB_AMP=<n>: amplitude of the normal bursts alone (FCCH/SCH keep
* amp), to probe the ROM's fixed-point headroom on the NB path. */
if (type == 'B' || type == 'C') { static int nb_amp = -2; if (nb_amp == -2) nb_amp = env_int("CELLULE_NB_AMP", -1); if (nb_amp > 0) amp = nb_amp; }
/* CELLULE_NB_DEC=<x>|auto : sampling instant of the normal bursts alone
* (FCCH/SCH keep decalage); auto sweeps 0, 0.25, 0.5, 0.75 by multiframe */
if (type == 'B' || type == 'C') {
static int mode = -2; static double d = 0;
if (mode == -2) { const char *e = calypso_getenv("CELLULE_NB_DEC"); mode = 0;
if (e && !strcmp(e, "auto")) mode = 2; else if (e && *e) { mode = 1; d = atof(e); } }
if (mode == 1) decalage = d; else if (mode == 2) decalage = 0.25 * (double)((fn / 51u) % 4u);
cellule_dec_nb = decalage;
}
/* CELLULE_NB_SHIFT=<n> (experiment): transmit the normal burst with its
* bits shifted n positions earlier (bit i+n at position i, zeros at the
* end). Why: the ROM reads the training sequence of its equaliser output
* at index 58 of the decision buffer (bit 61 with 3 tail bits skipped),
* but the emulated equaliser puts bit i at index i-2, so the 26 TSC
* decisions agree with TSC2 at 12/26 as read and 26/26 shifted by one:
* the residual estimate then sees no signal, the soft-bit scale collapses
* to 2 and every quantised soft bit is +1. Shifting the bits by one is the
* test of that reading; it is not a fix. */
if (type == 'B' || type == 'C') {
static int nsh = -2; if (nsh == -2) nsh = env_int("CELLULE_NB_SHIFT", 0);
if (nsh > 0) { for (int i = 0; i < 148; i++) bits[i] = (i + nsh < 148) ? bits[i + nsh] : 0; }
else if (nsh < 0) { for (int i = 147; i >= 0; i--) bits[i] = (i + nsh >= 0) ? bits[i + nsh] : 0; }
}
/* CELLULE_NB_PHASE=<deg>|auto : carrier phase of the normal bursts (auto:
* 0, 22.5, 45, 67.5 degrees by multiframe). Samples exactly on the I/Q
* axes (decalage 0, phase 0) or exactly on the diagonals (decalage 0.5)
* are what a synthetic GMSK gives and what no radio ever gives. */
double phase0 = 0.0;
if (type == 'B' || type == 'C') {
static int pm = -2; static double pd = 0;
if (pm == -2) { const char *e = calypso_getenv("CELLULE_NB_PHASE"); pm = 0;
if (e && !strcmp(e, "auto")) pm = 2; else if (e && *e) { pm = 1; pd = atof(e); } }
if (pm == 1) phase0 = pd * M_PI / 180.0; else if (pm == 2) phase0 = 22.5 * (double)((fn / 51u) % 4u) * M_PI / 180.0;
/* CELLULE_NB_PHASE=quad : 0, 90, 180, 270 degrees by multiframe */
{ static int q = -1; if (q < 0) { const char *e = calypso_getenv("CELLULE_NB_PHASE"); q = (e && !strcmp(e, "quad")) ? 1 : 0; }
if (q) phase0 = 90.0 * (double)((fn / 51u) % 4u) * M_PI / 180.0; }
cellule_phase_nb = phase0 * 180.0 / M_PI;
}
/* CELLULE_NB_MSK=1 (experiment): pure MSK for the normal bursts, no
* Gaussian filter: the phase advances linearly by +-90 degrees per bit,
* so a sample taken at decalage 0.5 sits EXACTLY on a diagonal, with
* |I| = |Q|. Tests whether the ROM's NB demodulator hard-decides on the
* signs of I and Q (measured: only decalage 0.5 ever works, 0.4 and 0.6
* fail on every burst, an equaliser would degrade smoothly). */
static int nb_msk = -2; if (nb_msk == -2) nb_msk = env_int("CELLULE_NB_MSK", 0);
if (nb_msk && (type == 'B' || type == 'C')) {
int16_t *o = iq + 2 * (m_tete >= 0 ? m_tete : 0);
double ph = phase0; int prev = 1;
for (int k = 0; k < 148; k++) {
int d = (bits[k] & 1) ^ prev; prev = bits[k] & 1;
double al = 1.0 - 2.0 * d;
double pk = ph + al * (M_PI / 2.0) * decalage; /* phase at the sampling instant */
o[2*k] = (int16_t)lrint(amp * cos(pk)); o[2*k+1] = (int16_t)lrint(amp * sin(pk));
ph += al * (M_PI / 2.0);
}
if (m_tete >= 0) {
memset(iq, 0, (size_t)m_tete * 2 * sizeof(int16_t));
memset(iq + 2 * (m_tete + 148), 0, (size_t)m_fin * 2 * sizeof(int16_t));
*n_iq = 2 * (148 + m_tete + m_fin);
} else *n_iq = 2 * 148;
return type;
}
/* [2026-09-30] CELLULE_SB_AMP=<n> : amplitude du seul SCH (FCCH et NB gardent
* amp). Le SNR de la ROM sur le SCH sature a 16384 ; le seul cas de banc a
* SNR non sature (6974) avait decode. A mesurer. */
if (type == 'S') { static int sba = -2; if (sba == -2) sba = env_int("CELLULE_SB_AMP", -1); if (sba > 0) amp = sba; }
/* CELLULE_SB_PHASE=<deg> : carrier phase of the SCH burst */
if (type == 'S') { static int sp = -2; if (sp == -2) sp = env_int("CELLULE_SB_PHASE", 0); phase0 = sp * M_PI / 180.0; }
int16_t *burst_iq = iq;
int fen_n = 148; /* echantillons sur lesquels portent elargissement et bruit du SCH */
/* [2026-09-30] CELLULE_SB_GARDE=<mode> : LA GARDE N'EST PAS DU SILENCE. En
* descendant GSM la BTS emet en continu : le SCH est precede du signal de TS7
* et suivi de TS1, pas de 21 echantillons nuls. Mesure en rejeu (SYM 1.0, DEC
* 0.35, bruit 3000) : les 20 % de SCH que la ROM rate le sont a burst bien
* place (TOA 23, SNR sature), et les bits faux se concentrent sur les
* PREMIERS bits d'information (bits 5-15 du mot, 65-84 %), c'est-a-dire le
* debut du burst : l'egaliseur demarre sur un front silence -> signal qu'il
* ne voit jamais sur silicium. Ici la fenetre entiere (marge, burst, marge)
* est modulee d'un seul trait, les marges portant des bits de garde :
* 1 = zeros, 2 = pseudo-aleatoires (graine = fn), 3 = uns. 0 = comme avant. */
if (m_tete >= 0) {
static int garde = -2; if (garde == -2) garde = env_int("CELLULE_SB_GARDE", 0);
int tot = m_tete + 148 + m_fin;
if (type == 'S' && garde > 0 && tot <= 512) {
uint8_t ext[512]; uint32_t seed = fn * 2654435761u + 99u;
for (int k = 0; k < tot; k++) {
int i = k - m_tete;
if (i >= 0 && i < 148) ext[k] = bits[i];
else if (garde == 1) ext[k] = 0;
else if (garde == 3) ext[k] = 1;
else { seed = seed * 1103515245u + 12345u; ext[k] = (uint8_t)((seed >> 16) & 1); }
}
{ static double fc = -2; if (fc == -2) { const char *e = calypso_getenv("CELLULE_SB_FC"); fc = (e && *e) ? atof(e) : 0; }
if (fc > 0) gmsk_moduler_filtre(ext, tot, amp, phase0, decalage, fc, iq);
else gmsk_moduler(ext, tot, amp, phase0, decalage, iq); }
*n_iq = 2 * tot;
burst_iq = iq; /* elargissement et bruit sur toute la fenetre */
fen_n = tot;
} else {
memset(iq, 0, (size_t)m_tete * 2 * sizeof(int16_t));
{ static double fc = -2; if (fc == -2) { const char *e = calypso_getenv("CELLULE_SB_FC"); fc = (e && *e) ? atof(e) : 0; }
/* [2026-09-30] CELLULE_SB_FC=<kHz> : chaine de reception modelisee (voir gmsk_moduler_filtre) */
if (type == 'S' && fc > 0) gmsk_moduler_filtre(bits, 148, amp, phase0, decalage, fc, iq + 2 * m_tete);
else gmsk_moduler(bits, 148, amp, phase0, decalage, iq + 2 * m_tete); }
memset(iq + 2 * (m_tete + 148), 0, (size_t)m_fin * 2 * sizeof(int16_t));
*n_iq = 2 * (148 + m_tete + m_fin);
burst_iq = iq + 2 * m_tete;
}
} else {
gmsk_moduler(bits, 148, amp, phase0, decalage, iq);
*n_iq = 2 * 148;
}
/* [2026-09-21] CELLULE_NB_ISI=<h1>[,<h2>[,<h3>]] : causal tail on the normal
* bursts, y[n] = x[n] + h1 x[n-1] + h2 x[n-2] + h3 x[n-3]. Why: the ROM
* correlates the 16 central TSC bits over 10 lags, then picks the 7-lag
* window of maximum energy (0x8551, sliding sum) and cuts its 5-tap
* channel estimate from it. Our GMSK at 1 sample/symbol has energy on 3
* lags only (main + the +-1 ISI), so three of the four windows tie to 0.1 %
* and the choice is decided by e[lag 8] against e[lag 1] = the GMSK +-2
* tap (912) against the data leakage: measured over 9 bursts, the window
* was right (s=2) exactly when e[8] > e[1]. A receiver's analogue filter
* spreads energy over the following lags and settles it; this tail does
* the same for the synthetic cell. */
if (type == 'B' || type == 'C') {
static int isi_n = -2; static double h[4];
if (isi_n == -2) { isi_n = 0; const char *e = calypso_getenv("CELLULE_NB_ISI");
if (e && *e) { char tmp[64]; strncpy(tmp, e, sizeof tmp - 1); tmp[sizeof tmp - 1] = 0;
for (char *t = strtok(tmp, ","); t && isi_n < 3; t = strtok(NULL, ",")) h[++isi_n] = atof(t); } }
if (isi_n > 0) {
double xi[148], xq[148];
for (int k = 0; k < 148; k++) { xi[k] = burst_iq[2*k]; xq[k] = burst_iq[2*k+1]; }
for (int k = 0; k < 148; k++) {
double yi = xi[k], yq = xq[k];
for (int d = 1; d <= isi_n; d++) if (k - d >= 0) { yi += h[d] * xi[k-d]; yq += h[d] * xq[k-d]; }
if (yi > 32767) yi = 32767;
if (yi < -32768) yi = -32768;
if (yq > 32767) yq = 32767;
if (yq < -32768) yq = -32768;
burst_iq[2*k] = (int16_t)lrint(yi); burst_iq[2*k+1] = (int16_t)lrint(yq);
}
}
}
/* [2026-09-21] CELLULE_NB_SYM=<a> : symmetric spread y[n] = x[n] + a (x[n-1]
* + x[n+1]) on the normal bursts, timing unchanged. Why: the ROM zeroes
* every channel tap whose energy is below 1/16 of the window energy
* (0x7f0c-0x7f1c, threshold = total >> 4, i.e. 25 % in amplitude). The
* +-1 taps of our GMSK at 1 sample/symbol are 25 % (6467..7189 against a
* main tap of 27000): measured, the pre-cursor tap was kept (e = 4.70e7 >
* 4.50e7) on the bursts that decoded and zeroed (4.18e7 < 4.25e7) on the
* ones that did not, and a 5-tap model without its 25 % pre-cursor gives
* 45 % errors. A receiver's channel filter widens the pulse; a = 0.3 puts
* the +-1 taps near 55 % and the +-2 taps near 10 %, both far from the
* threshold, whatever the data. */
if (type == 'B' || type == 'C') {
/* default 0.3 since 2026-09-21 (the value that decodes SI1-4); 0 disables */
static double a = -2; if (a == -2) { const char *e = calypso_getenv("CELLULE_NB_SYM"); a = (e && *e) ? atof(e) : 0.3; }
gmsk_elargir(burst_iq, 148, a);
}
/* [2026-09-29] CELLULE_SB_SYM=<a> : le meme elargissement sur le SCH. Mesure
* du banc (run de 23:50, 129 fenetres SB natives, TOA 23-24) : la ROM rend
* CRC OK sur la moitie des SCH et, sur la plupart des echecs, seuls les
* bits 0-2 du mot SB sont faux (...1b/1f/1d au lieu de ...1c) : les memes
* positions du burst basculent selon le contenu, le profil « fil du
* rasoir » des NB avant CELLULE_NB_SYM. 0 par defaut tant que le rejeu ne
* l'a pas mesure. */
if (type == 'S') {
static double a = -2; if (a == -2) { const char *e = calypso_getenv("CELLULE_SB_SYM"); a = (e && *e) ? atof(e) : 0.0; }
if (a != 0.0) gmsk_elargir(burst_iq, fen_n, a);
}
/* [2026-09-30] CELLULE_SB_ISI=<h1>[,<h2>[,<h3>]] : la traine CAUSALE de
* CELLULE_NB_ISI, sur le SCH. Mesure : les 20 % de SCH rates le sont sur
* la moitie AVANT la sequence d'apprentissage, et l'ensemble des rates est
* fixe par le contenu (31/33 communs entre deux instants d'echantillonnage).
* C'est le mecanisme decrit pour les NB : la ROM choisit la fenetre de son
* estimation de canal au maximum d'energie sur des lags, notre GMSK a
* 1 ech/symbole met les fenetres a egalite et les donnees voisines
* tranchent. Une traine causale (comme le filtre analogique d'un vrai
* recepteur) leve l'egalite. Normalisee par 1+sum(h) pour rester en 16 bits. */
if (type == 'S') {
static int isi_n = -2; static double h[4];
if (isi_n == -2) { isi_n = 0; const char *e = calypso_getenv("CELLULE_SB_ISI");
if (e && *e) { char tmp[64]; strncpy(tmp, e, sizeof tmp - 1); tmp[sizeof tmp - 1] = 0;
for (char *t = strtok(tmp, ","); t && isi_n < 3; t = strtok(NULL, ",")) h[++isi_n] = atof(t); } }
if (isi_n > 0) {
double norm = 1.0; for (int d = 1; d <= isi_n; d++) norm += fabs(h[d]);
double xi[512], xq[512];
for (int k = 0; k < fen_n; k++) { xi[k] = burst_iq[2*k]; xq[k] = burst_iq[2*k+1]; }
for (int k = 0; k < fen_n; k++) {
double yi = xi[k], yq = xq[k];
for (int d = 1; d <= isi_n; d++) if (k - d >= 0) { yi += h[d] * xi[k-d]; yq += h[d] * xq[k-d]; }
burst_iq[2*k] = (int16_t)lrint(yi / norm); burst_iq[2*k+1] = (int16_t)lrint(yq / norm);
}
}
}
/* [2026-09-30] CELLULE_SB_NOISE=<sigma> : le meme bruit gaussien sur le SCH
* (voir CELLULE_NB_NOISE ci-dessous : sans bruit, l'echelle des bits
* souples de la ROM s'effondre). 0 = inchange. */
if (type == 'S') {
static double sigma = -2; if (sigma == -2) { const char *e = calypso_getenv("CELLULE_SB_NOISE"); sigma = (e && *e) ? atof(e) : 0.0; }
if (sigma > 0) {
static uint32_t graine = 0xffffffffu; /* CELLULE_SB_NOISE_SEED : autre realisation du bruit */
if (graine == 0xffffffffu) graine = (uint32_t)env_int("CELLULE_SB_NOISE_SEED", 0);
uint32_t seed = fn * 2654435761u + 777u + graine * 7919u;
for (int k = 0; k < 2 * fen_n; k++) {
seed = seed * 1103515245u + 12345u; double u1 = ((seed >> 8) & 0xffff) / 65536.0 + 1e-6;
seed = seed * 1103515245u + 12345u; double u2 = ((seed >> 8) & 0xffff) / 65536.0;
double g = sqrt(-2.0 * log(u1)) * cos(2.0 * M_PI * u2);
double v = burst_iq[k] + sigma * g;
if (v > 32767) v = 32767;
if (v < -32768) v = -32768;
burst_iq[k] = (int16_t)lrint(v);
}
}
}
/* [2026-09-21] CELLULE_NB_NOISE=<sigma> : Gaussian noise on the normal
* bursts (deterministic seed per frame). Why: the ROM scales its soft bits
* by a noise estimate before the 4-bit quantiser (0x8168 -> 0x82d0, a
* 129-entry table indexed by soft >> 8); with a noiseless burst the scaled
* values are 2..5 instead of thousands, every index is 0 and all 116
* quantised soft bits come out +1 (measured in the storage at 0x4200 +
* 29 x burst): the sign is lost before the deinterleaver. A radio always
* carries noise; the cell now does too. */
if (type == 'B' || type == 'C') {
static double sigma = -2; if (sigma == -2) { const char *e = calypso_getenv("CELLULE_NB_NOISE"); sigma = (e && *e) ? atof(e) : 0.0; }
if (sigma > 0) {
uint32_t seed = fn * 2654435761u + 12345u;
for (int k = 0; k < 296; k++) {
/* Box-Muller on a small LCG */
seed = seed * 1103515245u + 12345u; double u1 = ((seed >> 8) & 0xffff) / 65536.0 + 1e-6;
seed = seed * 1103515245u + 12345u; double u2 = ((seed >> 8) & 0xffff) / 65536.0;
double g = sqrt(-2.0 * log(u1)) * cos(2.0 * M_PI * u2);
double v = burst_iq[k] + sigma * g;
if (v > 32767) v = 32767;
if (v < -32768) v = -32768;
burst_iq[k] = (int16_t)lrint(v);
}
}
}
/* [2026-09-21] CELLULE_NB_ZERO_DC=1 (experiment): remove the mean of the
* 148 samples of a normal burst. Measured: the ROM demodulates a normal
* burst perfectly when the data-induced mean of its samples is below ~7 %
* of the amplitude and loses it entirely above ~10 % (16 bursts of SI1-4,
* no exception), the SCH being immune. */
if (type == 'B' || type == 'C') {
static int zdc = -2; if (zdc == -2) zdc = env_int("CELLULE_NB_ZERO_DC", 0);
if (zdc) {
long si = 0, sq = 0;
for (int k = 0; k < 148; k++) { si += burst_iq[2*k]; sq += burst_iq[2*k+1]; }
int mi = (int)(si / 148), mq = (int)(sq / 148);
for (int k = 0; k < 148; k++) { burst_iq[2*k] = (int16_t)(burst_iq[2*k] - mi); burst_iq[2*k+1] = (int16_t)(burst_iq[2*k+1] - mq); }
}
}
return type;
}
/* Expected 78 coded bits for a frame, to compare sign by sign with the soft bits
* the DSP produces. */
void cellule_code_attendu(uint32_t fn, uint8_t bsic, unsigned char *code78)
{
uint8_t sb_info[4];
sb_info_de_fn(fn, bsic, sb_info);
ubit_t code[78];
gsm0503_sch_encode(code, sb_info);
for (int i = 0; i < 78; i++) code78[i] = (unsigned char)code[i];
}
/* Reference demodulator, in C, to prove the samples handed to the DSP do carry the
* message. GMSK at 1 sample/symbol: the phase advances by (pi/2)*alpha_n per symbol,
* so alpha_n = sign(arg(x[n] * conj(x[n-1]))). Recover the alpha sequence, correlate
* it with the midamble to find the offset, then read the data bits from there. */
#include <math.h>
int cellule_demod_reference(const int16_t *x, int n_ech, unsigned char *bits148, int *offset)
{
static double alpha[512];
if (n_ech > 512) n_ech = 512;
for (int n = 1; n < n_ech; n++) {
double i0 = x[2*(n-1)], q0 = x[2*(n-1)+1];
double i1 = x[2*n], q1 = x[2*n+1];
/* x[n] * conj(x[n-1]) */
double re = i1*i0 + q1*q0, im = q1*i0 - i1*q0;
alpha[n] = atan2(im, re);
}
alpha[0] = 0;
/* reference alpha of the midamble: d_j = t_j XOR t_{j-1}, burst positions 43..105 */
double ref[63];
for (int j = 1; j < 64; j++) ref[j-1] = (train_sb[j] ^ train_sb[j-1]) ? -1.0 : 1.0;
int best = -1; double bestv = -1e30;
for (int k = 0; k + 63 < n_ech; k++) {
double acc = 0;
for (int j = 0; j < 63; j++) acc += ref[j] * alpha[k + j];
if (acc > bestv) { bestv = acc; best = k; }
}
if (best < 0) return -1;
/* the midamble starts 43 symbols into the burst */
int b0 = best - 43;
*offset = b0;
if (b0 < 0 || b0 + 148 > n_ech) return -1;
int prev = 1;
for (int i = 0; i < 148; i++) {
int d = (alpha[b0 + i] < 0) ? 1 : 0; /* alpha = 1-2d */
bits148[i] = (unsigned char)(d ^ prev);
prev = bits148[i];
}
return 0;
}
/* Raw DIFFERENTIAL bits d_i, with no differential decoding: an isolated error does
* not propagate here, unlike in b_i = d_i XOR b_{i-1}. This is the honest measure of
* demodulator quality. */
int cellule_demod_d(const int16_t *x, int n_ech, int b0, unsigned char *d148)
{
if (b0 < 1 || b0 + 148 > n_ech) return -1;
for (int i = 0; i < 148; i++) {
int n = b0 + i;
double i0 = x[2*(n-1)], q0 = x[2*(n-1)+1];
double i1 = x[2*n], q1 = x[2*n+1];
double im = q1*i0 - i1*q0, re = i1*i0 + q1*q0;
d148[i] = (unsigned char)(atan2(im, re) < 0 ? 1 : 0);
}
return 0;
}
int cellule_train_sb(int i) { return (i >= 0 && i < 64) ? train_sb[i] : -1; }
/* The dummy burst (45.002 5.2.6) as 148 GMSK samples: what the BCCH carrier
* transmits on every timeslot that carries nothing else. The FB search of the
* ROM receives the whole frame, so the seven other timeslots must look like a
* real C0 carrier, not like silence. */
void cellule_factice(int amp, double decalage, int16_t *iq)
{
gmsk_moduler(factice, 148, amp, 0.0, decalage, iq);
}
/* The 148 bits of the TN0 burst of frame fn as cellule_burst() sends them, for
* probes that look for them inside the DSP memory. 0 if it is a normal burst. */
int cellule_bits_attendus(uint32_t fn, uint8_t bsic, uint8_t bits[148])
{
uint32_t p51 = fn % 51;
if (cellule_sans_bcch || p51 < 2 || p51 > 49 || p51 % 10 < 2) return -1;
return cellule_nb(fn - ((p51 % 10 - 2) & 3), (int)((p51 % 10 - 2) & 3), bsic, bits);
}
/* Expected decoder-side vectors for the block that ends at frame fn (burst 3):
* the 456 convolutionally coded bits in deinterleaved order (45.003 4.1.4:
* bit k of the coded block sits in burst k mod 4 at position 2*((49k) mod 57)
* + ((k mod 8) div 4) of the 114 data bits) and the 184 information bits +
* 40 parity + 4 tail (the 23 octets as sent, MSB first, then the Fire parity
* as gsm0503 computes it: we only need the 184 here). */
int cellule_bloc_attendu(uint32_t fn, uint8_t bsic, uint8_t code456[456], uint8_t info184[184])
{
uint32_t p51 = fn % 51;
if (cellule_sans_bcch || p51 < 2 || p51 > 49 || p51 % 10 < 2) return -1;
uint32_t fn0 = fn - ((p51 % 10 - 2) & 3);
uint8_t bits[148]; uint8_t data[4][114];
for (int b = 0; b < 4; b++) {
if (cellule_nb(fn0, b, bsic, bits) < 0) return -1;
memcpy(data[b], bits + 3, 57); memcpy(data[b] + 57, bits + 88, 57);
}
for (int k = 0; k < 456; k++) {
int b = k & 3, j = 2 * ((49 * k) % 57) + ((k % 8) / 4);
code456[k] = data[b][j];
}
uint32_t tc = (fn0 / 51) % 8;
const uint8_t *l2 = (p51 <= 5) ? cellule_l2((int)tc) : cellule_l2(-1);
/* [2026-09-21] LSB first within each octet: that is how gsm0503_xcch_encode
* unpacks the L2 frame before the Fire parity and the convolutional code
* (osmo_pbit2ubit_ext(..., lsb_mode=1)), so it is the bit order the ROM's
* Viterbi has to reproduce. MSB first gave a false "78 faux" on a correct
* block. */
for (int i = 0; i < 184; i++) info184[i] = (l2[i / 8] >> (i % 8)) & 1;
return 0;
}
/* The 228 bits the Viterbi decoder must output: 184 information bits, 40 Fire
* parity bits, 4 tail bits (45.003 4.1.1-4.1.2). */
#include <osmocom/core/crc64gen.h>
#include <osmocom/coding/gsm0503_parity.h>
int cellule_u228_attendu(uint32_t fn, uint8_t bsic, uint8_t u228[228])
{
uint8_t code[456], info[184];
if (cellule_bloc_attendu(fn, bsic, code, info) < 0) return -1;
memcpy(u228, info, 184);
osmo_crc64gen_set_bits(&gsm0503_fire_crc40, info, 184, u228 + 184);
memset(u228 + 224, 0, 4);
return 0;
}6.10 /opt/GSM/c54x_exe/src/cellule.h
1880 octets, 29 lignes → 29 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef CELLULE_H
#define CELLULE_H
#include <stdint.h>
/* Downlink TN0 burst of a GSM cell for frame fn (51-multiframe: FCCH on
* 0/10/20/30/40, SCH on 1/11/21/31/41, dummy burst elsewhere), GMSK modulated,
* 148 int16 I/Q samples. Returns the burst type: 'F', 'S', 'B' (BCCH, SI1-4),
* 'C' (CCCH, empty paging) or '.' (dummy).
* marge = silence samples prepended and appended to an SCH burst: the ROM SB
* decoder reads a 190-sample window, 148 + 2 x 21 (BSP_IQ_MAX_I16 in
* calypso_bsp.c, "SB en demande 190"). *n_iq gets the number of int16 written. */
extern int cellule_sch_partout;
extern int cellule_marge_fin;
extern int cellule_marge_nb; /* head/tail margin of BCCH/CCCH normal bursts, < 0 = none (pont.c sets it per frame) */
extern int cellule_sans_bcch;
extern double cellule_dec_nb;
extern double cellule_phase_nb;
extern int cellule_fenetre_nb; /* NB window length in samples, the frame is padded to it exactly */
extern int cellule_tsc_force; /* TSC of the normal bursts, < 0 = BCC (CELLULE_TSC, pont.c) */ /* 1: the old cell, dummy bursts on BCCH/CCCH */
int cellule_train_sb(int i);
int cellule_demod_d(const int16_t *x, int n_ech, int b0, unsigned char *d148);
int cellule_demod_reference(const int16_t *x, int n_ech, unsigned char *bits148, int *offset);
void cellule_code_attendu(uint32_t fn, uint8_t bsic, unsigned char *code78);
char cellule_burst(uint32_t fn, uint8_t bsic, int amp, double decalage, int marge, int16_t *iq, int *n_iq);
int cellule_u228_attendu(uint32_t fn, uint8_t bsic, uint8_t u228[228]);
int cellule_bloc_attendu(uint32_t fn, uint8_t bsic, uint8_t code456[456], uint8_t info184[184]);
int cellule_bits_attendus(uint32_t fn, uint8_t bsic, uint8_t bits[148]);
void cellule_factice(int amp, double decalage, int16_t *iq); /* 148 GMSK samples of the dummy burst */
#endif6.11 /opt/GSM/c54x_exe/src/main.c
12822 octets, 278 lignes → 278 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* c54x_exe - the Calypso TMS320C54x DSP, run without QEMU and without the ARM.
*
* Bench for the symptom recorded in the qemu-calypso README [2026-09-16]:
* a_sch[0] = 0x8100 (B_BLUD | B_SCH_CRC), and a_sch[3] = 0xf8d8 CONSTANT over
* 21/21 writes while 10 distinct burst contents were presented. A decoder
* whose output does not depend on its input is not decoding.
*
* Reaching that point used to mean booting QEMU, the ARM and the osmocom-bb
* firmware: seconds per run. The DSP needs almost none of it - out of 26631
* lines of C54x L1, 14 symbols come from QEMU (two of them mutexes in the
* core), and calypso_{arm2dsp,dma,fbsb,mailbox}.c need none. Here the TI mask
* ROM runs alone in milliseconds and we watch what the DSP writes into API
* RAM, which makes the question "does the output depend on the input?"
* answerable in a loop, hence in CI.
*
* The sources are NOT copied here: this binary compiles those of
* /opt/GSM/qosmo. Copying them would recreate the divergence this bench exists
* to remove.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stdbool.h>
#include <string.h>
#include "qemu/thread.h"
#include "calypso_c54x.h"
#include "hw/arm/calypso/calypso_api.h"
#include "hw/arm/calypso/calypso_dsp_pont.h"
#include "calypso_dma.h"
#include "calypso_bsp.h"
#include "verbosite.h"
#include "rejouer.h"
#include "pont.h"
/* ── what the platform would otherwise provide ─────────────────────────── */
extern int c54x_rapide; /* calypso_c54x.h : fast path of the core */
extern int c54x_sondes; /* c54x_internal.h : sondes pures, coupees par defaut */
uint32_t g_c54x_exe_fn; /* non-static: pont.c updates it on every TICK */
uint32_t calypso_trx_get_fn(void) { return g_c54x_exe_fn; }
/* No interrupt controller here, so the ack the DSP raises has nowhere to go.
* If DSP behaviour ever turns out to depend on that ack, this binary diverges
* from QEMU at exactly this point. */
void calypso_inth_arm_ack(void) { }
/* The DARAM lock normally lives in l1-dsp/calypso_full_pcb.c, excluded from
* this binary because it includes hw/core/cpu.h - all of QEMU behind it. Same
* pthread_mutex: the DSP really locks. */
QemuMutex calypso_pcb_daram_lock;
/* Guest memory: with no ARM nobody writes into it, but shared sources
* reference it. */
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{
(void)addr;
if (!wr) {
memset(buf, 0, len);
}
}
/* ── ROMs at their silicon addresses (cf. calypso_trx.c of qosmo-dsp) ───── */
static const struct { const char *suffixe; uint32_t adresse; bool programme; }
ROMS[] = {
{ "PROM0", 0x07000, true },
{ "PROM1", 0x18000, true }, /* page 1, reached with XPC=1 */
{ "PROM2", 0x28000, true },
{ "PROM3", 0x38000, true },
{ "DROM", 0x09000, false },
{ "PDROM", 0x0E000, false }, /* mapped on the DATA side ... */
{ "PDROM", 0x0E000, true }, /* ... AND on the PROGRAM side (IT vectors) */
};
static void usage(const char *prog)
{
fprintf(stderr,
"usage: %s [options]\n"
" --rom-dir DIR ou sont calypso_dsp.*.bin (defaut /opt/GSM)\n"
" --trames N nombre de trames TDMA (defaut 100, 4000 avec --rejouer)\n"
" --insns N instructions par trame (defaut 2300, 200000 avec --arm)\n"
" --verbeux une ligne par trame\n"
" --iq MODE avec --arm : injecter un burst I/Q a chaque trame :\n"
" fcch (rotation +pi/2/ech.), noise, tone:<dphi>, none,\n"
" cell[:bsic[:decalage]] = FCCH+SCH+factice GMSK (multitrame 51)\n"
" --amp N amplitude int16 des echantillons injectes (defaut 30000)\n"
" --rejouer rejeu DETERMINISTE de l'acquisition FB/SB (sans QEMU)\n"
" --bsic N BSIC de la cellule injectee en rejeu (defaut 7)\n"
" --arm [SOCKET] servir l'ARM de QEMU (qosmo, CALYPSO_DSP_EXTERN=1) :\n"
" API RAM partagee dans /dev/shm%s, trame verrouillee\n"
" sur %s\n"
" -v .. -vvvvvv traces du coeur C54x (stderr), par niveau :\n"
" (rien) erreurs seulement\n"
" -v + avertissements\n"
" -vv + cycle de vie : boot, reset, gates ACTIF/INACTIVE\n"
" -vvv + taches, API RAM, interruptions, chemins FB/SB\n"
" -vvvv + sondes memoire : WATCH, DUMP, SCAN, MAP, SP-*\n"
" -vvvvv + pas a pas : BRANCH-TRACE, LOOPTRACE, TERM, CYCLE\n"
" -vvvvvv tout, stderr brut\n",
prog, CALYPSO_PONT_SHM, CALYPSO_PONT_SOCK);
}
int main(int argc, char **argv)
{
const char *rom_dir = "/opt/GSM";
const char *arm_sock = NULL;
int rejeu = 0, bsic_rej = 7;
const char *iq_mode = "none";
int amp = 30000;
long trames = -1, insns = -1;
bool verbeux = false;
int niveau = 0;
for (int i = 1; i < argc; i++) {
const char *a = argv[i];
if (!strcmp(a, "--rom-dir") && i + 1 < argc) rom_dir = argv[++i];
else if (!strcmp(a, "--trames") && i + 1 < argc) trames = atol(argv[++i]);
else if (!strcmp(a, "--insns") && i + 1 < argc) insns = atol(argv[++i]);
else if (!strcmp(a, "--verbeux")) verbeux = true;
else if (!strcmp(a, "--iq") && i + 1 < argc) iq_mode = argv[++i];
else if (!strcmp(a, "--amp") && i + 1 < argc) amp = atoi(argv[++i]);
else if (!strcmp(a, "--rejouer")) { rejeu = 1; }
else if (!strcmp(a, "--bsic") && i + 1 < argc) bsic_rej = atoi(argv[++i]);
else if (!strcmp(a, "--arm")) {
arm_sock = (i + 1 < argc && argv[i + 1][0] != '-') ? argv[++i] : CALYPSO_PONT_SOCK;
}
else if (a[0] == '-' && a[1] == 'v' && strspn(a + 1, "v") == strlen(a + 1)) {
niveau = (int)strlen(a + 1);
}
else if (!strcmp(a, "-h") || !strcmp(a, "--help")) { usage(argv[0]); return 0; }
else { usage(argv[0]); return 2; }
}
if (insns < 0) {
/* [2026-09-20] 200000 under --arm: the FB search over whole 1250-symbol
* frames costs the ROM 24-36k instructions per frame, and a frame cut
* short by the budget leaves the ARM reading half-written results (a
* zeroed a_sch read as a CRC-OK SB). Silicon has ~360k cycles per frame
* at 78 MHz; 32000 was a bench constant, not a hardware one. */
insns = arm_sock ? 200000 : 2300;
}
if (trames < 0) {
trames = rejeu ? 4000 : 100; /* an explicit --trames is honoured as is */
}
verbosite_installer(niveau);
/* Fast path of the core (calypso_c54x.h): on unless a probe is armed. */
{ const char *d = getenv("CALYPSO_DEBUG"), *r = getenv("CALYPSO_C54X_RAPIDE");
c54x_rapide = (r && *r) ? (*r != '0') : !(d && *d); }
/* [2026-09-23] Sondes pures du coeur (c54x_internal.h) : coupees par defaut ;
* -vvvv et plus les allument, puisque c'est a ce niveau qu'on les lit.
* Sinon le coeur resout CALYPSO_SONDES / CALYPSO_DEBUG au premier c54x_init. */
if (niveau >= 4) c54x_sondes = 1;
qemu_mutex_init(&calypso_pcb_daram_lock);
/* API RAM: private, or shared with the QEMU ARM. It must be installed
* BEFORE the ROMs, since the loader copies into it whatever falls inside
* the 0x0800 window. Under --arm the shared segment IS data[0x0800..] and
* api_ram aliases it, so every core write reaches the ARM by either
* path. */
static uint16_t api_ram_privee[CALYPSO_API_WORDS];
uint16_t *api_ram = api_ram_privee;
C54xState *dsp;
if (arm_sock || rejeu) {
/* A pending interrupt (IFR&IMR) is taken as soon as INTM drops: real
* C54x behaviour (SPRU131 ch.6), not a workaround. The core gates it
* behind CALYPSO_C54X_IRQ_LEVEL; turn it on here unless explicitly
* overridden (empty CALYPSO_C54X_IRQ_LEVEL turns it off). Applied to
* BOTH benches: the replay used to run the core without it and could
* not reproduce the bridge. */
const char *e = getenv("CALYPSO_C54X_IRQ_LEVEL");
if (!e) setenv("CALYPSO_C54X_IRQ_LEVEL", "1", 1);
else if (!*e) unsetenv("CALYPSO_C54X_IRQ_LEVEL");
}
if (arm_sock) {
dsp = pont_allouer_dsp();
if (!dsp) { return 1; }
api_ram = &dsp->data[C54X_API_BASE];
} else {
dsp = c54x_init();
if (!dsp) { fprintf(stderr, "c54x_init a echoue\n"); return 1; }
}
c54x_set_api_ram(dsp, api_ram);
int charges = 0;
for (unsigned i = 0; i < sizeof(ROMS) / sizeof(ROMS[0]); i++) {
char chemin[512];
snprintf(chemin, sizeof(chemin), "%s/calypso_dsp.%s.bin", rom_dir, ROMS[i].suffixe);
int n = c54x_load_section(dsp, chemin, ROMS[i].adresse, ROMS[i].programme);
if (n < 0) {
fprintf(stderr, "ROM manquante : %s\n", chemin);
return 1;
}
printf(" %-6s %-5s 0x%05x %6d mots\n", ROMS[i].suffixe,
ROMS[i].programme ? "prog" : "data", ROMS[i].adresse, n);
charges++;
}
{ char chemin[512];
snprintf(chemin, sizeof(chemin), "%s/calypso_dsp.Registers.bin", rom_dir);
int n = c54x_load_registers(dsp, chemin);
printf(" %-6s %-5s %-7s %6d mots\n", "Regs", "mmr", "", n); }
printf("%d sections chargees, reset...\n", charges);
c54x_reset(dsp);
if (rejeu) {
calypso_dma_init();
calypso_bsp_init(dsp);
if (insns < 32000) insns = 32000;
if (!iq_mode || !*iq_mode || !strcmp(iq_mode, "none")) iq_mode = "cell";
int rc = rejouer(dsp, api_ram, trames, insns, iq_mode, amp, bsic_rej, verbeux);
verbosite_retirer();
verbosite_bilan(stdout);
return rc;
}
if (arm_sock) {
/* Same sequence as calypso_trx_init() of qosmo-dsp after reset. */
calypso_dma_init();
calypso_bsp_init(dsp);
int rc = pont_serveur(dsp, api_ram, arm_sock, insns, verbeux, iq_mode, amp);
verbosite_retirer();
verbosite_bilan(stdout);
return rc;
}
/* The README observables, sampled once per frame. */
uint16_t *d_fb_det = &api_ram[(API_NDB + NDB_D_FB_DET) / 2];
uint16_t *a_sch0 = &api_ram[(API_R_PAGE(0) + RP_A_SCH) / 2];
unsigned fb_vus = 0, sch_ecrits = 0;
uint16_t fb_precedent = 0, sch_sig_prec = 0xFFFF;
uint16_t sch3_premier = 0; bool sch3_varie = false, sch3_vu = false;
if (verbeux) {
printf("\n trame d_fb_det a_sch[0] a_sch[1] a_sch[2] a_sch[3]\n");
}
for (long t = 0; t < trames; t++) {
g_c54x_exe_fn = (uint32_t)t;
c54x_run(dsp, (int)insns);
/* Count TRANSITIONS, not frames where the value is non-zero: the bit
* stays raised, so counting per frame reported "50 out of 50", which
* only measured how long the run lasted. */
if (*d_fb_det && !fb_precedent) fb_vus++;
fb_precedent = *d_fb_det;
uint16_t sch_sig = (uint16_t)(a_sch0[0] ^ a_sch0[3]);
if ((a_sch0[0] || a_sch0[3]) && sch_sig != sch_sig_prec) {
sch_ecrits++;
if (!sch3_vu) { sch3_premier = a_sch0[3]; sch3_vu = true; }
else if (a_sch0[3] != sch3_premier) sch3_varie = true;
sch_sig_prec = sch_sig;
}
if (verbeux) {
printf(" %5ld %6u 0x%04x 0x%04x 0x%04x 0x%04x\n",
t, *d_fb_det, a_sch0[0], a_sch0[1], a_sch0[2], a_sch0[3]);
}
}
verbosite_retirer();
printf("\n─── bilan sur %ld trames ───\n", trames);
printf(" AUCUN burst injecte : le DSP tourne sur une API RAM vierge, sans\n"
" ARM ni TPU. Les valeurs ci-dessous disent que la mask-ROM EXECUTE,\n"
" pas encore qu'elle decode. Injecter des bursts est l'etape suivante.\n\n");
printf(" d_fb_det leve : %u transition(s) 0 -> 1\n", fb_vus);
printf(" a_sch change : %u fois\n", sch_ecrits);
if (sch3_vu) {
printf(" a_sch[3] : 0x%04x%s\n", sch3_premier,
sch3_varie ? " puis VARIE" : " CONSTANT sur toutes les ecritures");
if (!sch3_varie) {
printf("\n ^ c'est le symptome du README : une sortie qui ne depend\n"
" pas de l'entree. Ici l'entree est vide, donc attendu.\n");
}
} else {
printf(" a_sch : jamais ecrit (la tache SB n'a pas tourne)\n");
}
verbosite_bilan(stdout);
return 0;
}6.12 /opt/GSM/c54x_exe/src/montant.c
54125 octets, 1260 lignes → 1260 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* montant.c - le lien montant du montage DSP : RACH, SDCCH, SACCH, FACCH, parole.
*
* POURQUOI CE FICHIER EXISTE
* --------------------------
* Sous CALYPSO_DSP_EXTERN=1, calypso_l1_do_init() appelle calypso_l1_disable()
* (« couche 1 « grgsm » desactivee (DSP externe) ») : plus aucune couche 1
* n'est enregistree dans QEMU, donc calypso_l1_do_rach_written() et
* calypso_l1_do_page_written() (calypso_l1_dispatch.c) sont des no-op. Or
* c'etaient eux qui, en montage grgsm, publiaient le montant dans les
* side-bands /dev/shm que pont.py consomme (pont/uplink.py) :
*
* /dev/shm/calypso_rach RACH (ra, bsic)
* /dev/shm/calypso_sdcch_ul SDCCH UL (bloc L2 de 23 octets)
* /dev/shm/calypso_tch_facch_ul FACCH UL
* /dev/shm/calypso_tch_sacch_ul SACCH UL
* /dev/shm/calypso_tch_ul parole (anneau de trames FR)
*
* Resultat mesure le 2026-09-21 : le firmware emettait bien ses
* L1CTL_RACH_REQ, le mobile comptait ses « RANDOM ACCESS (requests left 8..4) »,
* mais pont.py affichait « UL bursts=0 rach=0 » et /dev/shm/calypso_rach
* n'existait meme pas. Sans RACH il n'y a pas d'IMM ASS, donc pas de SDCCH,
* donc jamais de LOCATION UPDATING ACCEPT.
*
* COMMENT
* -------
* Ce processus tient l'API RAM partagee : on reprend donc, a l'identique, les
* captures de qosmo-grgsm/hw/arm/calypso/calypso_l1_grgsm.c, mais declenchees
* par SCRUTATION une fois par trame au lieu des callbacks d'ecriture de QEMU.
* Le point d'appel (pont.c, fin du PONT_TICK) correspond a la fin du scenario
* de l'ARM : dsp_end_scenario() vient d'ecrire d_dsp_page = B_GSM_TASK | page,
* et les mots de tache de cette page W sont a jour.
*
* Le RACH est le seul cas ou la scrutation n'est pas equivalente a un
* callback : le firmware ecrit d_rach (prim_rach.c:72) puis d_task_ra, et
* personne ne les efface ensuite (sync.c:307 ne les remet a zero que sur
* ABORT). On declenche donc sur FRONT : premiere valeur non nulle, ou valeur
* differente de la precedente. Angle mort assume : deux tentatives de suite
* avec le meme (RA, BSIC), soit ~1/256 puisque la RA est tiree au hasard par
* gsm48_rr ; la tentative suivante passe. MONTANT_CONSOMME_RACH=1 remet d_rach
* a zero apres publication, ce qui rend le declenchement exact — au prix d'une
* ecriture dans la fenetre API que la ROM pourrait lire.
*
* Ce module ne parle pas TRXD : calypso_bsp_send_rach_ra() existe (code mort
* depuis le refactor « couche 1 enregistree ») mais enverrait l'access-burst
* sur 127.0.0.1:5702, c'est-a-dire la socket DESCENDANTE de pont.py, dont
* run_data() fait « self.bts_data = addr » sur tout paquet recu : le burst
* serait relu comme une descente et l'adresse de la BTS ecrasee. La voie des
* side-bands passe par la machinerie montante de pont.py, celle qui est deja
* eprouvee en montage grgsm.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <unistd.h>
#include <fcntl.h>
#include "hw/arm/calypso/calypso_api.h"
#include "hw/arm/calypso/calypso_debug.h"
#include "calypso_bsp.h"
#include "montant.h"
#define SHM_RACH "/dev/shm/calypso_rach"
#define SHM_SDCCH_UL "/dev/shm/calypso_sdcch_ul"
#define SHM_FACCH_UL "/dev/shm/calypso_tch_facch_ul"
#define SHM_SACCH_UL "/dev/shm/calypso_tch_sacch_ul"
#define SHM_TCH_UL "/dev/shm/calypso_tch_ul"
#define SHM_KC "/dev/shm/calypso_kc_l1"
/* Tailles et dispositions : pont/uplink.py. */
#define REC_RACH 16 /* lu 12 : seq(4) ra(1) bsic(1) ..(2) fn(4) */
#define REC_L2 48 /* lu 39 : seq(4) l1s(4) fn(4) task(2) . p51(1) . l2(23) */
#define TCH_UL_SLOTS 16
#define TCH_UL_SLOT_SZ 64 /* TCH_UL_SLOT */
#define TCH_UL_FR_OFS 16 /* TCH_UL_FR_OFS */
#define FR_BYTES 33
/* Fenetre de recherche de l'en-tete L2 dans a_cu (SDCCH_UL_WINDOW_OFS de
* calypso_l1_grgsm.c). */
#define SDCCH_UL_WINDOW_OFS 6
/* Anti-doublon SDCCH montant.
*
* [2026-09-21, mesure] La couche 1 gr-gsm republiait un bloc identique passe
* 60 trames (SDCCH_UL_DEDUP_TICKS). Repris tel quel ici, ca tuait la
* connexion : le firmware laisse son bloc dans a_cu, on le republiait, le
* pont le reemettait, et le BSC repondait
*
* lchan(0-0-1-SDCCH8-0){ESTABLISHED}: ERROR INDICATION
* cause=SABM frame with information not allowed in this state
*
* -- un deuxieme SABM sur un lien deja etabli. Le canal tombait, le MSC
* passait en MSC_A_ST_RELEASING et repondait LOCATION UPDATING REJECT au
* milieu de la procedure, apres avoir pourtant mene l'IDENTITY REQUEST et
* l'AUTHENTICATION REQUEST a bien.
*
* Donc : un bloc n'est publie QUE si son contenu change. MONTANT_SDCCH_REPETE
* = N retablit une republication du meme bloc au bout de N trames (0 = jamais,
* le defaut). Une retransmission LAPDm du mobile porte les memes octets et
* serait donc avalee ; c'est le compromis assume, l'inverse casse le lien a
* coup sur. */
#define SDCCH_UL_REPETE_DEFAUT 0
/* Nombre de trames minimum entre deux RACH publies : une tentative du mobile
* dure plusieurs trames et le meme d_rach reste lisible entre-temps. */
#define RACH_GARDE_TRAMES 4
static struct {
unsigned long rach, sdcch, facch, sacch, parole;
uint16_t prev_rach;
uint32_t fn_rach;
bool rach_vu; /* au moins un RACH publie */
bool base_rach; /* la valeur de reference a ete prise */
/* Dernier bloc SDCCH montant publie, pour l'anti-doublon. */
uint8_t sdcch_dernier[23];
uint32_t sdcch_trame;
bool sdcch_a_dernier;
bool blud_vu; /* a_cu a deja annonce un bloc par B_BLUD */
unsigned sans_blud; /* taches montantes vues sans B_BLUD */
bool dedie_arme;
/* [2026-09-23] Bascule SDCCH <-> TCH suivie par le firmware (voir
* suivre_tache_tch). Le dernier SDCCH lu dans calypso_dcch_cfg est garde
* pour y revenir ; l'annonce du TCH vient du pont (calypso_tch_cfg). */
int sd_tn, sd_genre, sd_ss;
bool sd_valide; /* un SDCCH est connu (dcch_cfg arme) */
int tch_tn, tch_tsc; /* annonce du pont : 0 = pas de TCH annonce */
bool sur_tch; /* le BSP joue l'intervalle du TCH */
} g;
/* Taches de lecture que l'ARM pose dans d_task_d de la page W
* (osmocom-bb firmware, include/calypso/l1_environment.h:45-52). La lecture
* d'un bloc SDCCH/SACCH passe par ALLC (prim_rx_nb.c:200), comme la BCCH et
* la CCCH ; DDL/ADL sont gardees par prudence. */
#ifndef DDL_DSP_TASK
#define DDL_DSP_TASK 26
#endif
#ifndef ADL_DSP_TASK
#define ADL_DSP_TASK 27
#endif
/* d_tch_mode : quatrieme mot du NDB (dsp_api.h:121, rejouer.c:623). */
#define NDB_D_TCH_MODE 0x006u
static int journal(void)
{
static int n = -1;
if (n < 0) {
const char *e = calypso_getenv("MONTANT_DEBUG");
n = (e && *e) ? atoi(e) : 20; /* les 20 premiers evenements, par defaut */
}
return n;
}
static int sb_ouvrir(const char *chemin, off_t taille)
{
int fd = open(chemin, O_CREAT | O_RDWR, 0644);
if (fd >= 0 && ftruncate(fd, taille) < 0) {
close(fd);
return -1;
}
return fd;
}
static void sb_ecrire(int fd, const void *buf, size_t n, off_t off)
{
if (fd >= 0 && pwrite(fd, buf, n, off) < 0) {
return;
}
}
static void publier_l2(int *fdp, const char *chemin, uint32_t *seq,
const uint8_t *l2, uint16_t task_u, uint32_t fn)
{
if (*fdp == -2) {
*fdp = sb_ouvrir(chemin, REC_L2);
}
uint8_t buf[REC_L2];
memset(buf, 0, sizeof(buf));
(*seq)++;
memcpy(buf + 0, seq, 4);
memcpy(buf + 4, &fn, 4);
memcpy(buf + 8, &fn, 4);
memcpy(buf + 12, &task_u, 2);
buf[14] = (uint8_t)(fn % 51u);
memcpy(buf + 16, l2, 23);
sb_ecrire(*fdp, buf, sizeof(buf), 0);
}
/* [2026-09-30] LA PAROLE MONTANTE, ENREGISTREE. Run banc-max de 00:07 : l'appel
* s'etablit, mais le ton 1 kHz injecte au micro ne revient pas ; les trames
* descendantes a_dd, bit-exactes avec ce que la BTS a emis
* (tools/comparer_parole.py, 1116/1117), decodees par libgsm ne le contiennent
* pas non plus : ce qu'Asterisk a renvoye etait deja du bruit, le defaut est
* MONTANT. La conversion TI -> FR ci-dessous est l'inverse exact de gapk
* (aller-retour identique au bit pres, verifie) et le firmware ecrit a_du en
* octet fort d'abord comme prendre_ul le lit. Reste : la capture GAPK, le
* firmware, ou le pont (codage, A5 montant). Pour trancher au prochain appel,
* chaque trame montante est notee ici, brute TI (type 1) et convertie FR
* (type 0), meme format de 48 octets que noter_dl : tools/decoder_add.py les
* decode avec libgsm et cherche le ton. */
static void noter_ul(uint32_t fn, uint8_t type, uint16_t etat, const uint8_t *data, int n)
{
static FILE *f;
static unsigned nrec;
static uint32_t fn_prec;
if (!f || (uint32_t)(fn - fn_prec) > 500u) {
if (f) fclose(f);
f = fopen("/dev/shm/calypso_add_ul.bin", "wb");
nrec = 0;
}
fn_prec = fn;
if (!f || nrec >= 16000) return;
uint8_t r[48];
memset(r, 0, sizeof r);
memcpy(r, &fn, 4);
r[4] = type; r[5] = (uint8_t)n;
memcpy(r + 6, &etat, 2);
memcpy(r + 12, data, n > 36 ? 36 : n);
fwrite(r, 1, sizeof r, f);
if ((++nrec % 32) == 0) fflush(f);
}
static void publier_parole(const uint8_t *fr, uint32_t fn)
{
static int fd = -2;
static uint32_t seq;
if (fd == -2) {
fd = sb_ouvrir(SHM_TCH_UL, 8 + TCH_UL_SLOTS * TCH_UL_SLOT_SZ);
uint32_t hdr[2] = { 0, TCH_UL_SLOTS };
sb_ecrire(fd, hdr, sizeof(hdr), 0);
}
uint8_t buf[TCH_UL_SLOT_SZ];
memset(buf, 0, sizeof(buf));
seq++;
memcpy(buf + 0, &seq, 4);
memcpy(buf + 4, &fn, 4);
memcpy(buf + 8, &fn, 4);
memcpy(buf + TCH_UL_FR_OFS, fr, FR_BYTES);
/* L'entete (le compteur d'ecriture) en dernier : pont.py lit d'abord
* l'entete, puis la case ; l'inverse lui livrerait une case a moitie ecrite. */
sb_ecrire(fd, buf, sizeof(buf), 8 + (off_t)((seq - 1) % TCH_UL_SLOTS) * TCH_UL_SLOT_SZ);
sb_ecrire(fd, &seq, 4, 0);
}
/* Bloc montant depose par le firmware dans le NDB : mot 0 = en-tete (B_BLUD
* signale « bloc pret »), donnees a partir du mot 3. Les 33 octets de parole
* sont ranges octet fort d'abord, les 23 octets L2 octet faible d'abord. */
static bool prendre_ul(uint16_t *api_ram, unsigned off, uint8_t *out, int n)
{
uint16_t *w = &api_ram[(API_NDB + off) / 2];
if (!(w[0] & B_BLUD)) {
return false;
}
for (int i = 0; i < n; i += 2) {
uint16_t v = w[3 + i / 2];
uint8_t premier = (n == FR_BYTES) ? (uint8_t)(v >> 8) : (uint8_t)(v & 0xff);
uint8_t second = (n == FR_BYTES) ? (uint8_t)(v & 0xff) : (uint8_t)(v >> 8);
out[i] = premier;
if (i + 1 < n) {
out[i + 1] = second;
}
}
w[0] &= (uint16_t)~B_BLUD; /* consomme, comme le ferait le DSP */
return true;
}
/* [2026-09-23] LA PAROLE MONTANTE EST AU FORMAT TI, LE PONT ATTEND DU FR STANDARD.
* mobile_pont.cfg : io-tch-format ti. gapk convertit donc la voix du micro
* au format du DSP TI (osmo-gapk fmt_ti.c, ti_fr_from_canon), le firmware la
* copie telle quelle dans a_du, et le pont la passait a
* gsm0503_tch_fr_encode(..., net_order=1), qui attend du FR TS 101 318 (le
* format RTP « gsm », nibble 0xd en tete). L'ordre des 260 bits n'est pas le
* meme : la BTS recevait une parole melangee, l'echo test la renvoyait et le
* decodeur du mobile la rendait en bruit sature (descendant colle a +-12882).
* Le descendant, lui, reste TI de bout en bout : il etait propre tant qu'il ne
* portait pas la voix de l'operateur. Conversion reprise de fmt_ti.c
* (ti_fr_to_canon) puis fmt_gsm.c (gsm_from_canon). MONTANT_PAROLE_TI=0 :
* passage brut, comme avant. */
#include <osmocom/codec/codec.h>
static int bit_msb(const uint8_t *b, int i) { return (b[i >> 3] >> (7 - (i & 7))) & 1; }
static void mettre_bit_msb(uint8_t *b, int i, int v)
{
if (v) b[i >> 3] |= (uint8_t)(0x80 >> (i & 7));
else b[i >> 3] &= (uint8_t)~(0x80 >> (i & 7));
}
static void parole_ti_vers_fr(uint8_t fr[FR_BYTES])
{
static int conv = -1;
if (conv < 0) { const char *e = calypso_getenv("MONTANT_PAROLE_TI"); conv = !(e && *e == '0'); }
if (!conv) return;
uint8_t canon[FR_BYTES];
memset(canon, 0, sizeof canon);
for (int i = 0; i < 260; i++) { /* ti_fr_to_canon */
int si = i >= 182 ? i + 4 : i;
mettre_bit_msb(canon, gsm610_bitorder[i], bit_msb(fr, si));
}
fr[0] = (uint8_t)(0xd0 | (canon[0] >> 4)); /* gsm_from_canon : 0xd + 260 bits */
for (int i = 1; i < FR_BYTES; i++)
fr[i] = (uint8_t)((canon[i - 1] << 4) | (canon[i] >> 4));
}
static bool capture_tch_ul(uint16_t *api_ram, uint16_t task_u, uint32_t fn)
{
static int fd_facch = -2, fd_sacch = -2;
static uint32_t seq_facch, seq_sacch;
uint8_t l2[23], fr[FR_BYTES];
switch (task_u & 0x7FFF) {
case TCHT_DSP_TASK:
if (prendre_ul(api_ram, NDB_A_FU, l2, 23)) {
publier_l2(&fd_facch, SHM_FACCH_UL, &seq_facch, l2, task_u, fn);
if (g.facch++ < (unsigned long)journal())
printf(" [montant] FACCH UL fn=%u task=0x%04x\n", fn, task_u);
}
if (prendre_ul(api_ram, NDB_A_DU_1, fr, FR_BYTES)) {
noter_ul(fn, 1, task_u, fr, FR_BYTES); /* brute, format TI (a_du) */
parole_ti_vers_fr(fr);
noter_ul(fn, 0, task_u, fr, FR_BYTES); /* convertie FR, ce que recoit le pont */
publier_parole(fr, fn);
if (g.parole++ < (unsigned long)journal())
printf(" [montant] parole UL fn=%u\n", fn);
}
return true;
case TCHA_DSP_TASK:
if (prendre_ul(api_ram, NDB_A_CU, l2, 23)) {
publier_l2(&fd_sacch, SHM_SACCH_UL, &seq_sacch, l2, task_u, fn);
if (g.sacch++ < (unsigned long)journal())
printf(" [montant] SACCH UL fn=%u task=0x%04x\n", fn, task_u);
}
return true;
case TCHD_DSP_TASK:
return true;
default:
return false;
}
}
/* SDCCH / SACCH montant.
*
* [2026-09-21] Le firmware ANNONCE son bloc, il n'y a rien a deviner :
* prim_tx_nb.c:80-101 ecrit dans a_cu l'en-tete `(1 << B_BLUD)`, deux mots a
* zero, puis les 23 octets L2 a partir du mot 3 -- la disposition exacte que
* prendre_ul() sait lire. Le drapeau est a usage unique : on le consomme, et
* un bloc = une publication.
*
* Avant d'avoir lu ce code, cette fonction reprenait la fenetre heuristique de
* la couche 1 gr-gsm (balayage d'en-tete LAPDm dans a_cu+6) avec un anti-
* doublon sur le contenu. Trois echecs de suite en sont sortis : republication
* du meme SABM toutes les 60 trames -> « SABM frame with information not
* allowed in this state » et canal casse en pleine procedure ; puis
* comparaison sur 23 octets dont la friture de fin bouge -> 32 blocs
* « neufs » ; puis verrou « un seul SABM par connexion » -> plus aucun SABM
* des que le verrou restait arme. Le drapeau du firmware rend tout ca inutile.
*
* MONTANT_SDCCH_FENETRE=1 force l'ancienne voie heuristique, et elle prend le
* relais toute seule si B_BLUD ne se leve jamais alors que le firmware pose
* des taches montantes (le cas ou la ROM consommerait le drapeau avant nous).
*/
/* PEREMPTION DE L'ANTI-DOUBLON (voie heuristique seulement).
*
* [2026-09-21] La couche 1 gr-gsm republie un bloc identique passe 60 ticks
* (calypso_l1_grgsm.c:673). Ce n'est PAS un moteur de renvoi : dans ce
* montage-la, QEMU efface d_task_u a chaque tick (calypso_trx.c, branche non
* pont), donc la couche 1 ne voit une tache montante que sur les trames ou le
* firmware vient de la poser. Les 60 ticks ne font qu'empecher de publier
* quatre fois le meme bloc (un par burst) tout en laissant passer une VRAIE
* retransmission du mobile, quand son T200 le fait re-poster.
*
* Sur la voie B_BLUD ce probleme n'existe pas : le drapeau est a usage unique,
* une pose = une publication, et une retransmission du mobile repose le
* drapeau. Rien a temporiser.
*
* Avoir lu ces 60 ticks comme un renvoi a coute un banc : le SABM repartait
* apres l'etablissement du lien, et le BTS repondait « SABM frame with
* information not allowed in this state » -- 4 ERROR INDICATION pour 4
* ESTABLISHED. */
#define SDCCH_TTL_DEFAUT 60 /* trames, comme SDCCH_UL_DEDUP_TICKS */
static int sabm_ttl(void)
{
static int v = -1;
if (v < 0) {
const char *e = calypso_getenv("MONTANT_SDCCH_TTL");
if (!e || !*e) {
e = calypso_getenv("MONTANT_SDCCH_REPETE"); /* ancien nom */
}
v = (e && *e) ? atoi(e) : SDCCH_TTL_DEFAUT;
}
return v;
}
static void publier_sdcch(uint16_t task_u, uint32_t fn, const uint8_t *l2)
{
static int fd = -2;
static uint32_t seq;
if (l2[1] == 0x03) { /* trame vide (UI sans donnee) */
return;
}
publier_l2(&fd, SHM_SDCCH_UL, &seq, l2, task_u, fn);
if (g.sdcch++ < (unsigned long)journal()) {
printf(" [montant] SDCCH UL fn=%u task=0x%04x L2=", fn, task_u);
for (int k = 0; k < 23; k++) printf("%02x%s", l2[k], k == 22 ? "" : " ");
printf("\n");
}
}
/* L'ancienne voie : balayage de la fenetre, anti-doublon sur le contenu
* utile, republication apres MONTANT_SDCCH_REPETE trames (0 = jamais). */
static void capture_sdcch_fenetre(uint16_t *api_ram, uint16_t task_u, uint32_t fn)
{
uint8_t fen[30];
const uint8_t *src = (const uint8_t *)api_ram + API_NDB + NDB_A_CU + SDCCH_UL_WINDOW_OFS;
memcpy(fen, src, sizeof(fen));
int kk = 0;
for (int j = 0; j <= 6; j++) {
uint8_t a = fen[j], c = fen[j + 1], l = fen[j + 2];
int sapi = (a >> 2) & 7;
bool addr_ok = (a & 0x01) && ((a & 0x60) == 0) && (sapi == 0 || sapi == 3);
bool ctrl_ok = (c != 0x2b) && (c != 0xff);
bool len_ok = (l & 0x01) && ((l >> 2) <= 20);
if (addr_ok && ctrl_ok && len_ok) {
kk = j;
break;
}
}
const uint8_t *l2 = fen + kk;
int repete = sabm_ttl();
unsigned utile = 3u + (unsigned)(l2[2] >> 2);
if (utile > 23u) {
utile = 23u;
}
if (g.sdcch_a_dernier && !memcmp(g.sdcch_dernier, l2, utile) &&
(repete <= 0 || (uint32_t)(fn - g.sdcch_trame) < (uint32_t)repete)) {
return;
}
memcpy(g.sdcch_dernier, l2, 23);
g.sdcch_trame = fn;
g.sdcch_a_dernier = true;
publier_sdcch(task_u, fn, l2);
}
static void capture_sdcch_ul(uint16_t *api_ram, uint16_t task_u, uint32_t fn)
{
static int fenetre = -1;
if (fenetre < 0) {
const char *e = calypso_getenv("MONTANT_SDCCH_FENETRE");
fenetre = (e && *e == '1') ? 1 : 0;
}
if (!fenetre) {
uint8_t l2[23];
if (prendre_ul(api_ram, NDB_A_CU, l2, 23)) {
g.blud_vu = true;
publier_sdcch(task_u, fn, l2);
return;
}
if (g.blud_vu) {
return; /* le drapeau fonctionne : rien a publier */
}
/* Jamais vu B_BLUD alors que le firmware pose des taches montantes :
* la ROM le consomme peut-etre avant nous. On bascule sur la fenetre. */
if (++g.sans_blud == 400) {
printf(" [montant] a_cu : B_BLUD jamais vu en %u taches montantes, "
"bascule sur la fenetre heuristique\n", g.sans_blud);
}
if (g.sans_blud < 400) {
return;
}
}
capture_sdcch_fenetre(api_ram, task_u, fn);
}
/* Le canal dedie, lu directement dans le side-band que le tap L1CTL de QEMU
* ecrit (calypso_dcch_tap.c) et que pont.py lit deja.
*
* [2026-09-21, mesure] Le canal etait annonce au DSP par un message du pont,
* PONT_DCCH. Trace du banc : QEMU imprime bien « [dcch] canal dedie arme :
* chan_nr=0x51 SDCCH/8 SS=2 TN=1 », et cote DSP, RIEN -- ni « pont : canal
* dedie », ni « [BSP] canal dedie arme », ni message inconnu. Le message se
* perd dans le pas-a-pas en deux phases (la boucle d'attente du PONT_GO jette
* tout ce qui n'est pas un GO). Resultat : le BSP continuait de livrer TS0
* pendant que l'ARM ecoutait TS1, et TOUS les blocs de la descente dediee
* echouaient au code de Fire.
*
* Le fichier, lui, ne depend d'aucun protocole : une lecture de 8 octets par
* trame, et le meme numero de sequence que pont.py utilise pour savoir s'il a
* change. */
static void scruter_dcch(uint32_t fn)
{
static int fd = -2;
static uint32_t seq;
static uint32_t prochain_essai;
if (fd < 0) {
if (fn < prochain_essai) {
return;
}
/* [2026-09-23] A CHAQUE TRAME, plus toutes les 200. run.sh efface les
* side-bands au demarrage : le fichier n'apparait qu'a la premiere
* ecriture (tap QEMU ici, pont pour calypso_tch_cfg), et on le voyait
* jusqu'a 200 trames trop tard. Pour calypso_tch_cfg c'etait fatal au
* premier appel apres chaque relance : le firmware posait sa tache TCH
* 113 a 164 trames avant que l'annonce soit lue (« sans annonce du
* pont »), l'UA de l'assignation se perdait, ASSIGNMENT FAILURE. Un
* open() qui echoue coute une microseconde. */
prochain_essai = fn + 1;
fd = open("/dev/shm/calypso_dcch_cfg", O_RDONLY);
if (fd < 0) {
return;
}
}
uint8_t b[16];
if (pread(fd, b, sizeof(b), 0) != (ssize_t)sizeof(b)) {
return;
}
uint32_t s2;
memcpy(&s2, b, 4);
if (!s2 || s2 == seq) {
return;
}
seq = s2;
int genre = b[4], ss = b[5], tn = b[6];
/* [2026-09-23] Genre 2/3 : le tap QEMU (calypso_dcch_tap.c) annonce
* desormais le TCH (TCH/F, TCH/H) au lieu de laisser le SDCCH perime
* pendant tout l'appel. Simple constat ici : la bascule du BSP suit la
* tache du firmware (suivre_tache_tch), l'intervalle et le TSC viennent
* du pont (scruter_tch), et le SDCCH memorise ne doit PAS etre ecrase --
* c'est lui que l'ASSIGNMENT FAILURE retrouve (le tap le republie quand
* le firmware y revient). */
if (genre == 2 || genre == 3) {
printf(" [montant] canal dedie (side-band seq=%u) : TCH/%c TS%d SS=%d, firmware sur le TCH "
"(%s%s)\n", seq, genre == 2 ? 'F' : 'H', tn, ss,
g.sur_tch ? "BSP deja sur le TCH" : "BSP pas encore bascule",
g.sd_valide ? ", SDCCH memorise" : "");
fflush(stdout);
return;
}
printf(" [montant] canal dedie (side-band seq=%u) : %s TS%d SDCCH/%d SS=%d%s\n",
seq, genre == 0xFF ? "libere" : "arme", tn, genre == 1 ? 8 : 4, ss,
(genre != 0xFF && g.sur_tch) ? " (memorise : le firmware est sur le TCH)" : "");
if (genre == 0xFF) {
calypso_bsp_set_dedie(0, 0xFF, 0);
g.dedie_arme = false;
g.sd_valide = false;
g.sur_tch = false;
montant_canal_libere();
return;
}
/* [2026-09-23] Le SDCCH est MEMORISE : c'est lui que le BSP retrouve quand
* le firmware quitte le TCH (ASSIGNMENT FAILURE). Tant que le firmware est
* sur le TCH, on ne touche pas au BSP. */
g.sd_tn = tn;
g.sd_genre = genre;
g.sd_ss = ss;
g.sd_valide = true;
if (g.sur_tch) {
return;
}
calypso_bsp_set_dedie(tn, genre, ss);
g.dedie_arme = true;
}
/* Rendre au BSP le SDCCH memorise (ou le liberer s'il n'y en a pas). */
static void revenir_sdcch(const char *raison, uint32_t fn)
{
g.sur_tch = false;
if (g.sd_valide) {
printf(" [montant] %s a fn=%u : BSP rendu au SDCCH TS%d SS=%d\n",
raison, fn, g.sd_tn, g.sd_ss);
calypso_bsp_set_dedie(g.sd_tn, g.sd_genre, g.sd_ss);
g.dedie_arme = true;
} else {
printf(" [montant] %s a fn=%u : aucun SDCCH connu, canal dedie libere\n",
raison, fn);
calypso_bsp_set_dedie(0, 0xFF, 0);
g.dedie_arme = false;
}
fflush(stdout);
}
/* [2026-09-23] 0 : armer le BSP des l'annonce du pont (comportement du
* 2026-09-22). Voir scruter_tch. */
static bool tch_sur_tache(void)
{
static int v = -1;
if (v < 0) {
const char *e = calypso_getenv("MONTANT_TCH_TACHE");
v = (e && *e == '0') ? 0 : 1;
}
return v != 0;
}
/* [2026-09-22] L'INTERVALLE DU TCH, CHAINON QUI MANQUAIT.
*
* pont.py publie deja l'intervalle du canal de trafic dans
* /dev/shm/calypso_tch_cfg (pont/state.py, Tch._write_cfg : seq, tn, tsc,
* arfcn) des qu'il decode l'ASSIGNMENT COMMAND descendante. Mais PERSONNE ne
* lisait ce fichier cote DSP : `calypso_bsp_set_dedie()` n'etait appelee que
* depuis la bande laterale SDCCH ci-dessus. Le BSP continuait donc de servir
* l'intervalle SDCCH pendant que le mobile ecoutait le TCH.
*
* Mesure du 2026-09-22, appel vers 600 : le BSC assigne un TCH/F sur TS2, le
* mobile y bascule (« MON: ... TS=2 »), n'y entend RIEN -- trois secondes de
* « MON: no cell info » avec rxlev-full=-110, le plancher -- revient sur TS1
* et repond « ASSIGNMENT FAILURE (cause #1) » (gsm48_rr.c:4750). Cote BSC :
* « Assignment failed in state WAIT_RR_ASS_COMPLETE, cause EQUIPMENT FAILURE:
* Timeout ». La trace DSP ne montrait que « arme TS1 SDCCH/8 », jamais TS2.
*
* Ce n'etait donc pas un defaut de qualite du lien mais un chainon manquant.
* MONTANT_TCH=0 coupe cette lecture.
*
* [2026-09-23] L'ANNONCE N'EST PAS LA BASCULE.
* Le pont ecrit ce fichier au DECODAGE de l'ASSIGNMENT COMMAND, donc a
* l'heure de la BTS, alors que le BSP joue les trames a l'heure du DSP -- en
* retard de 12 a ~200 trames (decalage tick/fn BTS de 681 au run de 12:22).
* Armer le BSP ici remplacait par des bursts TS2 TOUTES les trames pas
* encore jouees (bsp_dedie_trame est vrai partout pour un TCH), l'ASSIGNMENT
* COMMAND comprise, et TS0 avec. Releve du run de 12:22, appels 2 et 3 :
* « TCH (seq=2) : arme TS2 » puis un seul a_cd « FIRE KO » et plus aucun
* bloc SDCCH ; cote mobile 80-100 bit errors, jamais d'ASSIGNMENT COMMAND,
* LOS apres ~20 s. Et apres une ASSIGNMENT FAILURE (appel 1) rien ne rendait
* TS1 au BSP : 90-110 bit errors sur le SDCCH jusqu'a la liberation.
*
* Desormais ce fichier n'est plus qu'une ANNONCE (intervalle, TSC). La
* bascule vient du firmware lui-meme : suivre_tache_tch() arme le TCH a la
* premiere tache TCHT/TCHA/TCHD qu'il pose, et rend le SDCCH des qu'il repose
* une tache de lecture de bloc (ALLC). Un seq non nul avec tn=0 est l'abandon
* du pont (pont/dsp/tch.py, TchDsp.abandon) : retour au SDCCH sans lacher le
* Kc. seq=0 reste la liberation complete.
* MONTANT_TCH_TACHE=0 retablit l'armement a l'annonce. */
static void scruter_tch(uint32_t fn)
{
static int fd = -1, coupe = -1;
static uint32_t seq, prochain_essai;
if (coupe < 0) {
const char *e = calypso_getenv("MONTANT_TCH");
coupe = (e && *e == '0') ? 1 : 0;
}
if (coupe) {
return;
}
if (fd < 0) {
if (fn < prochain_essai) {
return;
}
prochain_essai = fn + 1; /* voir scruter_dcch */
fd = open("/dev/shm/calypso_tch_cfg", O_RDONLY);
if (fd < 0) {
return;
}
}
uint8_t b[16];
if (pread(fd, b, sizeof(b), 0) != (ssize_t)sizeof(b)) {
return;
}
uint32_t s2;
memcpy(&s2, b, 4);
if (s2 == seq) {
return;
}
seq = s2;
int tn = b[4], tsc = b[5];
if (!s2) {
/* Liberation complete (Tch.close) : comme avant le 2026-09-23. */
int etait = g.tch_tn;
g.tch_tn = 0;
if (g.sur_tch) {
printf(" [montant] TCH (seq=0) : libere TS%d\n", etait);
calypso_bsp_set_dedie(0, 0xFF, 0);
g.sur_tch = false;
g.dedie_arme = false;
montant_canal_libere();
} else if (etait) {
printf(" [montant] TCH (seq=0) : annonce TS%d retiree (le firmware n'y etait pas)\n", etait);
}
return;
}
if (tn <= 0 || tn > 7) {
/* Abandon par le pont (ASSIGNMENT FAILURE, retour du mobile sur le
* SDCCH) : le SDCCH vit encore, le Kc aussi. */
int etait = g.tch_tn;
g.tch_tn = 0;
printf(" [montant] TCH (seq=%u) : annonce TS%d abandonnee par le pont\n", seq, etait);
if (g.sur_tch) {
revenir_sdcch("abandon du TCH", fn);
}
return;
}
g.tch_tn = tn;
g.tch_tsc = tsc;
if (!tch_sur_tache()) {
printf(" [montant] TCH (seq=%u) : arme TS%d TSC=%d - toutes ses trames (MONTANT_TCH_TACHE=0)\n",
seq, tn, tsc);
calypso_bsp_set_dedie(tn, 2 /* BSP_DEDIE_TCH */, 0);
g.sur_tch = true;
g.dedie_arme = true;
return;
}
printf(" [montant] TCH (seq=%u) : TS%d TSC=%d annonce par le pont, "
"bascule du BSP a la premiere tache TCH du firmware\n", seq, tn, tsc);
fflush(stdout);
}
/* [2026-09-23] LA BASCULE SDCCH <-> TCH SUIT LE FIRMWARE.
*
* d_task_d de la page W que l'ARM vient d'ecrire dit ce qu'il ecoute a la
* trame suivante : TCHT (13, trafic et FACCH), TCHA (14, SACCH/T) ou TCHD
* (28) sur un TCH (prim_tch.c:520-585, 791-802), ALLC (24) pour un bloc
* SDCCH/SACCH (prim_rx_nb.c:200). Cette tache est posee au rythme du DSP :
* le BSP change donc d'intervalle sur la trame que l'ARM lit vraiment, quel
* que soit le retard du DSP sur la BTS. Les autres trames (PM des voisines,
* trame libre) ne changent rien. */
/* [2026-09-23] SONDE d_fn : la position que le firmware donne au DSP dans la
* 104-multitrame (dsp.c:537, d_fn = fn_report | (fn%104) << 8), sur les taches
* TCH. A comparer au fn BTS que le BSP joue au meme tick ([sacch_tf]) : un
* ecart multiple de 26 laisse passer parole et FACCH mais desentrelace la
* SACCH dans le desordre (a_cd FIRE KO a chaque bloc, LOS). 24 lignes. */
static void sonde_dfn(uint16_t *api_ram, unsigned pg, bool taches, uint32_t fn)
{
static unsigned n;
if (!taches || !g.sur_tch || n >= 24) {
return;
}
uint16_t t = api_ram[(API_W_PAGE(pg) + WP_D_TASK_D) / 2] & 0x7fffu;
uint16_t dfn = api_ram[(API_W_PAGE(pg) + WP_D_FN) / 2];
if (t != TCHA_DSP_TASK) {
return;
}
n++;
printf(" [d_fn] tick=%u tache=%u fn_report=%u fn%%104=%u\n",
fn, t, dfn & 0xffu, (dfn >> 8) & 0xffu);
}
static void suivre_tache_tch(uint16_t *api_ram, unsigned pg, bool taches, uint32_t fn)
{
static bool sans_annonce_dit;
if (!taches || !tch_sur_tache()) {
return;
}
uint16_t t = api_ram[(API_W_PAGE(pg) + WP_D_TASK_D) / 2] & 0x7fffu;
bool tache_tch = (t == TCHT_DSP_TASK || t == TCHA_DSP_TASK || t == TCHD_DSP_TASK);
bool tache_bloc = (t == ALLC_DSP_TASK || t == DDL_DSP_TASK || t == ADL_DSP_TASK);
if (tache_tch && !g.sur_tch) {
if (!g.tch_tn) {
if (!sans_annonce_dit) {
sans_annonce_dit = true;
printf(" [montant] TCH : tache %u postee a fn=%u sans annonce du pont "
"(calypso_tch_cfg) : intervalle inconnu, BSP inchange\n", t, fn);
}
return;
}
sans_annonce_dit = false;
printf(" [montant] TCH : le firmware poste la tache %u a fn=%u, BSP bascule sur TS%d (TSC=%d)\n",
t, fn, g.tch_tn, g.tch_tsc);
fflush(stdout);
calypso_bsp_set_dedie(g.tch_tn, 2 /* BSP_DEDIE_TCH */, 0);
g.sur_tch = true;
g.dedie_arme = true;
return;
}
if (tache_bloc && g.sur_tch) {
revenir_sdcch("le firmware est revenu sur le SDCCH (tache ALLC)", fn);
}
}
/* [2026-09-23] SONDE a_fd : LA FACCH DESCENDANTE SUR TCH.
* Le firmware ne remonte une FACCH que si ((fn%13)%4)==3 ET a_fd[0] porte
* B_BLUD (prim_tch.c:235-246), puis remet a_fd[0] = B_FIRE1 : seul le DSP
* pose B_BLUD. Sur l'appel 1 du run de 12:22 le pont decodait 6 FACCH de la
* BTS (UA) et le mobile n'en recevait aucune (T200, MDL-ERROR cause 1). Cette
* sonde tranche entre ROM (B_BLUD jamais pose) et plomberie (pose mais
* FIRE). MONTANT_AFD=0 la coupe. */
/* [2026-09-23] TRAMES DESCENDANTES LIVREES PAR LA ROM, POUR LA COMPARAISON.
* Chaque parole (a_dd_0, convertie du format TI au FR standard comme le
* montant) et chaque FACCH (a_fd) vue avec B_BLUD, avec le tick, le mot
* d'etat et le nombre d'erreurs rapporte (mot 2). Enregistrements de 48
* octets : fn LE32, type (0 parole, 1 FACCH), n, etat LE16, err LE16, 2 octets
* de bourrage, 36 octets de donnees. Fichier remis a zero a chaque appel (plus
* de 500 trames sans rien), 8000 enregistrements au plus.
* tools/comparer_parole.py le met en regard de /dev/shm/calypso_tch_dl.bin
* (bursts du BSP) et de /dev/shm/pont_tch_dl.bin (decodage du pont). */
static void noter_dl(uint32_t fn, uint8_t type, uint16_t etat, uint16_t err,
const uint8_t *data, int n)
{
static FILE *f;
static unsigned nrec;
static uint32_t fn_prec;
if (!f || (uint32_t)(fn - fn_prec) > 500u) {
if (f) fclose(f);
f = fopen("/dev/shm/calypso_add_dl.bin", "wb");
nrec = 0;
}
fn_prec = fn;
if (!f || nrec >= 8000) return;
uint8_t r[48];
memset(r, 0, sizeof r);
memcpy(r, &fn, 4);
r[4] = type; r[5] = (uint8_t)n;
memcpy(r + 6, &etat, 2);
memcpy(r + 8, &err, 2);
memcpy(r + 12, data, n > 36 ? 36 : n);
fwrite(r, 1, sizeof r, f);
if ((++nrec % 32) == 0) fflush(f);
}
static void sonde_afd(uint16_t *api_ram, uint32_t fn)
{
static int sonde = -1;
static uint16_t prec;
static unsigned long ok, ko;
if (sonde < 0) {
const char *e = calypso_getenv("MONTANT_AFD");
sonde = (e && *e == '0') ? 0 : 1;
}
if (!sonde || !g.sur_tch) {
return;
}
uint16_t etat = api_ram[(API_NDB + NDB_A_FD) / 2];
if ((etat & B_BLUD) && etat != prec) {
const uint8_t *d = (const uint8_t *)api_ram + API_NDB + NDB_A_FD + 6;
uint16_t mode = api_ram[(API_NDB + NDB_D_TCH_MODE) / 2];
bool fire = (etat & 0x0040) != 0; /* B_FIRE1 */
if (fire) ko++; else ok++;
noter_dl(fn, 1, etat, api_ram[(API_NDB + NDB_A_FD) / 2 + 2], d, 23);
if ((ok + ko) <= 60 || ((ok + ko) % 50) == 0) {
printf(" [a_fd] fn=%u fn%%13=%u etat=%04x BLUD=1 FIRE=%d d_tch_mode=%04x "
"L2=%02x %02x %02x %02x | ok=%lu ko=%lu\n",
fn, fn % 13u, etat, fire ? 1 : 0, mode, d[0], d[1], d[2], d[3], ok, ko);
}
}
prec = etat;
}
/* [2026-09-23] SONDE a_dd : LA PAROLE DESCENDANTE SUR TCH.
* Le firmware ne remonte une trame de parole au mobile (L1CTL_TRAFFIC_IND) que
* si a_dd_0[0] porte B_BLUD (prim_tch.c:322-327) ; GAPK ne code le montant
* qu'en reponse. Appel de 15:02 : 19 trames « parole UL » puis plus rien, alors
* que le pont decodait la parole de la BTS. Cette sonde dit si le DSP livre
* encore la parole descendante. Une ligne pour les 20 premieres, puis toutes
* les 100. MONTANT_ADD=0 la coupe.
*
* [2026-09-23] ko ne voyait rien sur la parole : 0x0040 est B_FIRE1, et le code
* de Fire ne protege que les canaux de controle. Run de 20:22 : 40 etats releves
* (c214, c204, 8084), ko=0, mais tous avec le bit 2 = B_BFI (l1_environment.h:272).
* Le firmware ne teste que B_BLUD (prim_tch.c:327) et ne remonte pas le BFI :
* GAPK decode les 33 octets tels quels. La sonde compte donc aussi le BFI et
* affiche a_dd_0[2], le nombre d'erreurs que la ROM rapporte (num_biterr cote
* firmware). */
static void sonde_add(uint16_t *api_ram, uint32_t fn)
{
static int sonde = -1;
static uint16_t prec;
static unsigned long vues, ko, bfi;
static uint32_t fn_dernier;
if (sonde < 0) {
const char *e = calypso_getenv("MONTANT_ADD");
sonde = (e && *e == '0') ? 0 : 1;
}
if (!sonde || !g.sur_tch) {
return;
}
uint16_t etat = api_ram[(API_NDB + NDB_A_DD_0) / 2];
if ((etat & B_BLUD) && etat != prec) {
bool fire = (etat & 0x0040) != 0;
bool mauvaise = (etat & 0x0004) != 0; /* B_BFI */
uint16_t erreurs = api_ram[(API_NDB + NDB_A_DD_0) / 2 + 2];
{
const uint16_t *w = &api_ram[(API_NDB + NDB_A_DD_0) / 2];
uint8_t fr[FR_BYTES];
for (int k = 0; k < FR_BYTES; k += 2) { /* octet fort d'abord, comme prendre_ul */
fr[k] = (uint8_t)(w[3 + k / 2] >> 8);
if (k + 1 < FR_BYTES) fr[k + 1] = (uint8_t)(w[3 + k / 2] & 0xff);
}
parole_ti_vers_fr(fr);
noter_dl(fn, 0, etat, erreurs, fr, FR_BYTES);
}
vues++;
if (fire) ko++;
if (mauvaise) bfi++;
if (vues <= 20 || vues % 100 == 0) {
printf(" [a_dd] fn=%u etat=%04x FIRE=%d BFI=%d err=%u (ecart %u trames) | vues=%lu ko=%lu bfi=%lu\n",
fn, etat, fire ? 1 : 0, mauvaise ? 1 : 0, erreurs, fn - fn_dernier, vues, ko, bfi);
}
fn_dernier = fn;
}
prec = etat;
}
bool montant_sur_tch(void)
{
return g.sur_tch;
}
static void publier_rach(uint8_t ra, uint8_t bsic, uint32_t fn)
{
static int fd = -2;
static uint32_t seq;
if (fd == -2) {
fd = sb_ouvrir(SHM_RACH, REC_RACH);
}
uint8_t buf[REC_RACH];
memset(buf, 0, sizeof(buf));
seq++;
memcpy(buf + 0, &seq, 4);
buf[4] = ra;
buf[5] = bsic;
memcpy(buf + 8, &fn, 4);
sb_ecrire(fd, buf, sizeof(buf), 0);
/* Une tentative d'acces, c'est une nouvelle connexion : la memoire de
* l'anti-doublon de la voie heuristique repart (sans effet sur la voie
* B_BLUD, qui n'en a pas besoin). */
g.sdcch_a_dernier = false;
if (g.rach++ < (unsigned long)journal())
printf(" [montant] RACH ra=0x%02x bsic=%u fn=%u -> %s\n", ra, bsic, fn, SHM_RACH);
}
/* ── LE Kc : LE PONT NE PEUT NI CHIFFRER NI DECHIFFRER SANS LUI ────────────
*
* [2026-09-22] Meme cause que tout ce fichier : sous CALYPSO_DSP_EXTERN=1 la
* couche 1 gr-gsm est desactivee, et c'etait ELLE qui publiait
* /dev/shm/calypso_kc_l1 (calypso_l1_grgsm.c, publish_kc). En montage DSP le
* fichier n'existait donc pas, `Cipher.current()` de pont.py rendait None, et
* `cipher.apply()` rendait le burst INCHANGE dans les deux sens -- releve sur
* le banc : « A5 dl=0 ul=0 » a chaque STATS.
*
* Ce que ca coutait, mesure du 2026-09-22 avec ENCRYPTION="a5 1" : la
* transaction allait jusqu'au bout de l'authentification en clair, puis
*
* 11:26:51 CIPHERING MODE COMMAND (sc=1, algo=A5/1 cr=1)
* 11:26:51 CIPHERING MODE COMPLETE (cr 1)
* 11:26:53 Dropping frame with 96 bit errors (et sans fin ensuite)
*
* -- la descente chiffree par la BTS que personne ne dechiffre, et la montee
* que personne ne chiffre. En « a5 0 » la meme transaction va au bout. Il n'y
* a pas non plus d'A5 dans le modele Calypso (`d_a5mode` n'existe que dans
* l1-grgsm/, rien dans l1-dsp/) : c'est bien au pont de le faire, comme il
* fait deja le codage de canal.
*
* Disposition reprise telle quelle de publish_kc() pour que pont/cipher.py
* (KC_RECLEN=32) la lise sans changement : seq(4) algo(1) longueur(1)
* Kc[8] 0xFF. Les quatre mots de a_kc sortent en gros-boutiste ET a l'envers,
* comme dans l'original -- on ne "corrige" pas une disposition que le lecteur
* attend.
*
* MONTANT_KC=0 coupe la publication. */
#define KC_RECLEN 32
#define KC_PUBLIER_TOUTES 22 /* trames entre deux scrutations, comme grgsm */
#define KC_GRACE_CLAIR 5 /* cf. publish_kc : le firmware efface d_a5mode
* a chaque DM_REL_REQ, y compris quand le Kc
* revient juste apres (Assignment Command),
* alors que la BTS, elle, chiffre toujours. */
/* Leve par montant_canal_libere() : la prochaine scrutation doit publier le
* retour en clair SANS attendre la grace. Voir publier_kc(). */
static bool g_kc_liberer;
static void publier_kc(uint16_t *api_ram)
{
static int actif = -1, fd = -1, tick, clair_en_attente;
static uint32_t seq;
static uint8_t dernier[KC_RECLEN];
static bool a_dernier;
if (actif < 0) {
const char *e = calypso_getenv("MONTANT_KC");
actif = (e && *e == '0') ? 0 : 1;
}
if (!actif) {
return;
}
/* [2026-09-22] LE CHANGEMENT DE MODE NE PEUT PAS ATTENDRE LA SCRUTATION.
* Version precedente : on ne lisait d_a5mode qu'une trame sur 22 (~128 ms).
* Or le mobile bascule des qu'il traite le CIPHERING MODE COMMAND et emet
* son CIPHERING MODE COMPLETE dans la foulee ; un bloc SDCCH montant tombe
* toutes les 51 trames. Ce bloc-la -- le PREMIER message chiffre du montant
* -- pouvait donc partir en clair alors que la BTS le dechiffrait deja.
* Releve du 2026-09-22, run de 11:49 :
* fn=2438 01 64 35 06 32 17 ... CIPHERING MODE COMPLETE
* fn=2591 01 74 35 06 32 17 ... LE MEME, retransmis (bit P)
* la BTS ne l'acquittait pas, LAPDm (fenetre de 1) restait bloque dessus,
* le TMSI REALLOCATION COMPLETE n'etait jamais emis et le MSC repondait
* LOCATION UPDATING REJECT alors que le mobile se croyait a jour.
* On lit donc d_a5mode a CHAQUE trame -- deux acces memoire -- et la
* scrutation complete n'est differee que tant que le mode ne change pas. */
uint16_t mode = api_ram[(API_NDB + NDB_D_A5MODE) / 2];
uint8_t mode_algo = (mode >= 1 && mode <= 3) ? (uint8_t)mode : 0;
bool bascule = (a_dernier && mode_algo != dernier[4]) || g_kc_liberer;
if (!bascule && ++tick < KC_PUBLIER_TOUTES) {
return;
}
tick = 0;
const uint16_t *kw = &api_ram[(API_NDB + NDB_A_KC) / 2];
uint8_t rec[KC_RECLEN] = {0};
bool nul = true;
for (int i = 0; i < 4; i++) {
rec[6 + 6 - 2 * i] = (uint8_t)(kw[i] >> 8);
rec[6 + 7 - 2 * i] = (uint8_t)(kw[i] & 0xFF);
}
for (int i = 6; i < 14; i++) {
if (rec[i]) {
nul = false;
}
}
uint8_t algo = (mode >= 1 && mode <= 3 && !nul) ? (uint8_t)mode : 0;
if (!algo) {
memset(rec + 6, 0, 8);
}
rec[4] = algo;
rec[5] = algo ? 8 : 0;
rec[14] = 0xFF;
if (a_dernier && !memcmp(dernier + 4, rec + 4, KC_RECLEN - 4)) {
clair_en_attente = 0;
/* [2026-09-22] Ce retour anticipe doit CONSOMMER g_kc_liberer, sinon la
* liberation reste armee indefiniment : chaque scrutation suivante
* calcule bascule=vrai, republie le meme enregistrement et incremente
* `seq`. Cote pont.py, un `seq` qui bouge veut dire « nouvelle cle » :
* il rechargeait sans fin une cle inchangee. */
g_kc_liberer = false;
return;
}
/* [2026-09-22] LA GRACE NE DOIT PAS SURVIVRE A LA LIBERATION DU CANAL.
* Elle vient de publish_kc() et sert au cas INTRA-connexion : le firmware
* efface d_a5mode a chaque DM_REL_REQ, y compris pendant un Assignment
* Command ou le Kc revient juste apres, alors que la BTS chiffre toujours.
* Mais entre DEUX connexions elle est nuisible : l'enregistrement algo=1
* restait lisible cinq scrutations de plus, et pont.py -- qui relache
* pourtant sa cle a chaque IMMEDIATE ASSIGNMENT (downlink.py) -- la
* relisait aussitot dans le fichier et la restaurait. Il chiffrait alors
* le montant de la connexion SUIVANTE des son premier bloc, pendant que le
* mobile emettait encore en clair.
* Mesure du 2026-09-22, run de 11:53 : « A5 dl=0 ul=200 » -- tout le
* montant chiffre, rien de descendant dechiffre -- et l'AUTHENTICATION
* RESPONSE (fn=2525, `05 14`) retransmise a fn=2729 faute d'acquittement.
* La liberation du canal est le bon signal, et il existe deja :
* montant_canal_libere(), appele sur PONT_DCCH genre 0xFF. */
if (!algo && a_dernier && dernier[4] && !g_kc_liberer &&
++clair_en_attente < KC_GRACE_CLAIR) {
return; /* chiffre -> clair : on attend, le Kc revient peut-etre */
}
clair_en_attente = 0;
g_kc_liberer = false;
if (fd < 0 && (fd = open(SHM_KC, O_WRONLY | O_CREAT, 0644)) < 0) {
actif = 0;
return;
}
seq++;
memcpy(rec, &seq, 4);
if (pwrite(fd, rec, sizeof rec, 0) != (ssize_t)sizeof rec) {
close(fd); fd = -1; seq--;
return;
}
memcpy(dernier, rec, sizeof rec);
a_dernier = true;
if (algo) {
printf(" [montant] chiffrement A5/%u : Kc publie vers %s (seq=%u)\n",
algo, SHM_KC, seq);
} else {
printf(" [montant] retour en clair (seq=%u)\n", seq);
}
fflush(stdout);
}
void montant_scruter(uint16_t *api_ram, uint32_t fn, unsigned page)
{
static int coupe = -1;
if (coupe < 0) {
const char *e = calypso_getenv("MONTANT");
coupe = (e && *e == '0') ? 1 : 0;
}
if (coupe || !api_ram) {
return;
}
/* Quelle page W porte les taches ? dsp_end_scenario() (firmware,
* calypso/dsp.c:471) ecrit d_dsp_page = B_GSM_TASK | w_page AVANT de
* basculer w_page : le mot du NDB est donc la source fraiche, y compris
* quand l1_sync() a tourne entre le TICK et le GO. L'argument `page` (le
* d_dsp_page que QEMU avait echantillonne au TICK) ne sert que de repli. */
uint16_t v_page = api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2];
bool taches = (v_page & B_GSM_TASK) != 0;
unsigned pg = taches ? ((v_page & B_GSM_PAGE) ? 1u : 0u) : (page & 1u);
{ /* [2026-09-23] SONDE CHIFFREMENT : chaque changement de d_a5mode ou de
* a_kc tel que l'ARM les laisse (NDB 0x1ce / 0x2ce), avec le tick. Le
* DSP chiffre et dechiffre lui-meme (calypso_a5.c) d'apres ces deux
* champs ; une remise a zero sur le TCH arrete le dechiffrement alors
* que la BTS chiffre toujours. */
static uint16_t a5_prec = 0xffff, kc_prec[4];
uint16_t a5 = api_ram[(API_NDB + 0x1ce) / 2];
const uint16_t *kc = &api_ram[(API_NDB + 0x2ce) / 2];
if (a5 != a5_prec || memcmp(kc, kc_prec, sizeof kc_prec)) {
printf(" [a5-arm] tick=%u d_a5mode=%u a_kc=%04x %04x %04x %04x%s\n", fn, a5, kc[0], kc[1], kc[2], kc[3],
g.sur_tch ? " (BSP sur le TCH)" : "");
fflush(stdout);
a5_prec = a5; memcpy(kc_prec, kc, sizeof kc_prec);
}
}
scruter_dcch(fn);
scruter_tch(fn); /* l'annonce du TCH par le pont */
suivre_tache_tch(api_ram, pg, taches, fn); /* la bascule, par le firmware */
sonde_dfn(api_ram, pg, taches, fn);
/* [2026-09-21] LE CANAL DEDIE SE LIBERE AUSSI QUAND L'ARM RECHERCHE LA
* SYNCHRO. Le tap L1CTL de QEMU n'annonce pas toujours la liberation ;
* mesure : /dev/shm/calypso_bsp_dedie a garde « tn=1 ss=0 » bien apres la
* fin de la communication. Le BSP continuait donc de remplacer TS0 sur les
* trames du canal -- et pour SS=0 ce sont fn%%51 = 0..3, or fn%%51=0 porte
* la FCCH et fn%%51=1 la SCH. Le mobile perdait sa synchro pour de bon :
* « FBSB RESP: result=255 » en boucle, d_fb_det=0, DSP parque.
*
* Une tache FB (5) ou SB (6) postee par l'ARM veut dire qu'il cherche la
* synchro sur TS0 : il n'est plus en mode dedie, quoi qu'en dise le tap.
* Ce signal-la vient du firmware lui-meme. */
{
uint16_t md0 = api_ram[(API_W_PAGE(0) + WP_D_TASK_MD) / 2] & 0xff;
uint16_t md1 = api_ram[(API_W_PAGE(1) + WP_D_TASK_MD) / 2] & 0xff;
bool cherche_synchro = (md0 == FB_DSP_TASK || md0 == SB_DSP_TASK ||
md1 == FB_DSP_TASK || md1 == SB_DSP_TASK);
if (g.dedie_arme && cherche_synchro) {
printf(" [montant] tache %s postee : le mobile cherche la synchro, "
"canal dedie libere (TS0 rendu au FCCH/SCH)\n",
(md0 == FB_DSP_TASK || md1 == FB_DSP_TASK) ? "FB" : "SB");
g.dedie_arme = false;
g.sur_tch = false;
g.sd_valide = false;
calypso_bsp_set_dedie(0, 0xFF, 0);
montant_canal_libere();
}
}
sonde_afd(api_ram, fn);
sonde_add(api_ram, fn);
/* [2026-09-21] QUI RATE, ET QUAND. La descente dediee perd environ un bloc
* sur deux (« Dropping frame with 110 bit errors », fire_crc >= 2 cote
* layer23) alors que pont decode les MEMES blocs sans une seule erreur
* (TS1/0:38/0 TS1/32:14/0) et que le BSP livre tous les bursts
* (manques=0). C'est donc la demodulation dans la ROM qui flanche, pas la
* plomberie. Cette sonde donne le verdict bloc par bloc : le mot d'etat de
* a_cd (bit 15 = bloc present, bit 6 = erreur de Fire) avec la trame et sa
* position dans la multitrame, de quoi voir si l'echec suit le SDCCH, la
* SACCH, ou une position particuliere. MONTANT_ACD=0 la coupe. */
{
static int sonde = -1;
if (sonde < 0) { const char *e = calypso_getenv("MONTANT_ACD"); sonde = (e && *e == '0') ? 0 : 1; }
if (sonde && g.dedie_arme) {
static uint16_t prec;
static unsigned long ok, ko;
uint16_t etat = api_ram[(API_NDB + NDB_A_CD) / 2];
if ((etat & B_BLUD) && etat != prec) {
const uint8_t *d = (const uint8_t *)api_ram + API_NDB + NDB_A_CD + 6;
bool fire = (etat & 0x0040) != 0;
if (fire) ko++; else ok++;
if ((ok + ko) <= 60 || ((ok + ko) % 50) == 0) {
printf(" [a_cd] fn=%u p51=%u p102=%u etat=%04x %s "
"L2=%02x %02x %02x %02x | ok=%lu ko=%lu\n",
fn, fn % 51u, fn % 102u, etat, fire ? "FIRE KO" : "ok",
d[0], d[1], d[2], d[3], ok, ko);
}
}
prec = etat;
}
}
uint16_t *wp = &api_ram[API_W_PAGE(pg) / 2];
uint16_t task_u = taches ? wp[WP_D_TASK_U / 2] : 0;
uint16_t task_ra = wp[WP_D_TASK_RA / 2];
uint16_t d_rach = api_ram[(API_NDB + NDB_D_RACH) / 2];
/* RACH : la tache, pas la valeur.
*
* [2026-09-21, mesure sur le banc reel] Le mot NDB d_rach (octet 0x474
* cote ARM) est AUSSI de la memoire du C54x (data[0x0A3A]) : la ROM y
* laisse du residu. Echantillonnage a 4 ms pendant 90 s, une ligne par
* changement :
*
* d_rach W0.task_ra W1.task_ra occurrences
* 0xfe00 0x0000 0x0000 3219 <- residu de la ROM
* 0x0d54 0x000a 0x0000 1 <- vraie tentative
* 0x0954 0x0000 0x000a 1 <- vraie tentative
* 0x0c54 0x0000 0x000a 1 <- vraie tentative
*
* Declencher sur la valeur de d_rach publiait donc un access-burst bidon
* (ra=0xfe, bsic=0) a chaque demarrage. Le signal juste est d_task_ra :
* prim_rach.c:77 y ecrit dsp_task_iq_swap(RACH_DSP_TASK=10, arfcn, 1) au
* moment ou il pose la RA, et rien d'autre ne vaut 10. On efface le mot
* apres publication (comme qosmo-dsp/calypso_trx.c:1955) : le firmware ne
* le relit jamais (seuls prim_rach.c:77 et sync.c:307 l'ecrivent) et c'est
* ce qui donne un front propre a la tentative suivante.
*
* MONTANT_RACH_SUR_DRACH=1 retablit l'ancien declencheur (transition de
* d_rach, premiere valeur prise comme reference) pour le cas ou quelque
* chose consommerait d_task_ra avant cette scrutation. */
static int sur_drach = -1;
if (sur_drach < 0) {
const char *e = calypso_getenv("MONTANT_RACH_SUR_DRACH");
sur_drach = (e && *e == '1') ? 1 : 0;
}
bool tache_rach = ((task_ra & 0x7fffu) == RACH_DSP_TASK);
bool front_valeur = false;
if (!g.base_rach) {
g.base_rach = true;
g.prev_rach = d_rach;
} else if (d_rach != g.prev_rach) {
front_valeur = (d_rach != 0);
g.prev_rach = d_rach;
}
if (d_rach != 0 && (tache_rach || (sur_drach && front_valeur)) &&
(!g.rach_vu || (uint32_t)(fn - g.fn_rach) >= RACH_GARDE_TRAMES)) {
publier_rach((uint8_t)(d_rach >> 8), (uint8_t)((d_rach & 0xff) >> 2), fn);
g.prev_rach = d_rach;
g.fn_rach = fn;
g.rach_vu = true;
if (g.rach <= (unsigned long)journal())
printf(" [montant] declencheur : %s (task_ra=0x%04x d_rach=0x%04x)\n",
tache_rach ? "d_task_ra=RACH_DSP_TASK" : "transition de d_rach",
task_ra, d_rach);
static int consomme = -1;
if (consomme < 0) {
const char *e = calypso_getenv("MONTANT_CONSOMME_RACH");
consomme = (e && *e == '1') ? 1 : 0;
}
if (consomme) {
api_ram[(API_NDB + NDB_D_RACH) / 2] = 0;
g.prev_rach = 0;
}
if (task_ra) {
wp[WP_D_TASK_RA / 2] = 0; /* comme qosmo-dsp/calypso_trx.c:1955 */
}
}
/* SDCCH / SACCH / FACCH / parole : meme aiguillage que la couche 1 gr-gsm. */
if (task_u != 0 && !capture_tch_ul(api_ram, task_u, fn)) {
capture_sdcch_ul(api_ram, task_u, fn);
}
publier_kc(api_ram);
}
/* Le canal dedie vient d'etre libere (PONT_DCCH, genre 0xFF) : la memoire de
* l'anti-doublon doit repartir a zero, sinon le SABM de la connexion SUIVANTE,
* octet pour octet identique au precedent, serait pris pour un doublon et ne
* partirait jamais. */
void montant_canal_libere(void)
{
g.sdcch_a_dernier = false;
g_kc_liberer = true; /* le Kc de CETTE connexion ne vaut plus rien */
}
void montant_bilan(void)
{
if (g.rach || g.sdcch || g.facch || g.sacch || g.parole) {
printf(" montant publie : RACH %lu, SDCCH %lu, FACCH %lu, SACCH %lu, parole %lu\n",
g.rach, g.sdcch, g.facch, g.sacch, g.parole);
} else {
printf(" montant : rien publie (aucun d_rach ni d_task_u vu dans l'API RAM)\n");
}
}6.13 /opt/GSM/c54x_exe/src/montant.h
832 octets, 25 lignes → 25 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* montant.h - le lien montant du montage DSP (RACH, SDCCH, SACCH, FACCH, parole).
*/
#ifndef C54X_EXE_MONTANT_H
#define C54X_EXE_MONTANT_H
#include <stdint.h>
#include <stdbool.h>
/* A appeler une fois par trame, apres que l'ARM a rendu la main (fin de
* scenario : d_dsp_page ecrit, taches posees dans la page W). `page` est le
* bit 0 de d_dsp_page, celui que QEMU transporte deja dans PONT_TICK.m.b. */
void montant_scruter(uint16_t *api_ram, uint32_t fn, unsigned page);
/* Le canal dedie est libere : oublier le dernier bloc SDCCH publie. */
void montant_canal_libere(void);
/* Une ligne de bilan en fin de session. */
void montant_bilan(void);
/* Vrai tant que le BSP joue l'intervalle du TCH (bascule suivie par le firmware). */
bool montant_sur_tch(void);
#endif6.14 /opt/GSM/c54x_exe/src/pcb-minimal.c
1380 octets, 44 lignes → 44 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* The four DARAM helpers of calypso_full_pcb.c, copied verbatim.
*
* calypso_full_pcb.c as a whole does not build outside QEMU: it includes
* hw/core/cpu.h and all of QEMU behind it. The helpers the DSP needs do not
* depend on any of that - one mutex and two array accesses - so they are copied
* word for word from qosmo-dsp/hw/arm/calypso/calypso_full_pcb.c.
*
* This is the only copy in this binary: if the original changes, this file lies.
* It goes away once calypso_full_pcb.c is decoupled from C54xState.
*/
#include "qemu/osdep.h"
#include "qemu/thread.h"
#include "calypso_c54x.h"
extern QemuMutex calypso_pcb_daram_lock;
uint16_t calypso_dsp_daram_read(void *dsp_void, uint16_t addr)
{
C54xState *dsp = (C54xState *)dsp_void;
qemu_mutex_lock(&calypso_pcb_daram_lock);
uint16_t v = dsp->data[addr];
qemu_mutex_unlock(&calypso_pcb_daram_lock);
return v;
}
void calypso_dsp_daram_write(void *dsp_void, uint16_t addr, uint16_t val)
{
C54xState *dsp = (C54xState *)dsp_void;
qemu_mutex_lock(&calypso_pcb_daram_lock);
dsp->data[addr] = val;
qemu_mutex_unlock(&calypso_pcb_daram_lock);
}
void calypso_pcb_daram_lock_acquire(void)
{
qemu_mutex_lock(&calypso_pcb_daram_lock);
}
void calypso_pcb_daram_lock_release(void)
{
qemu_mutex_unlock(&calypso_pcb_daram_lock);
}6.15 /opt/GSM/c54x_exe/src/pont.c
103475 octets, 1741 lignes → 1739 lignes (2 groupes compactés)
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* pont.c - server side of the ARM/DSP bridge.
*
* The ARM (osmocom-bb layer1) runs under QEMU (qosmo, CALYPSO_DSP_EXTERN=1);
* the C54x runs in this process. Both share the API RAM through
* /dev/shm/calypso_api_ram and lock step frame by frame over
* /tmp/calypso_dsp.sock. The per-frame sequence below mirrors, section by
* section, what qosmo-dsp/hw/arm/calypso/calypso_trx.c:calypso_tdma_tick()
* does with its internal DSP; divergences between the two originate here.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <stdint.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include <fcntl.h>
#include <poll.h>
#include <signal.h>
#include <sys/mman.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <math.h>
#include <sys/stat.h>
#include "calypso_c54x.h"
#include "calypso_dma.h"
#include "calypso_bsp.h"
#include "calypso_twl3025.h"
#include "calypso_rhea_dma.h"
#include "calypso_rif.h"
#include "hw/arm/calypso/calypso_api.h"
#include "hw/arm/calypso/calypso_dsp_pont.h"
#include "pont.h"
#include "calypso_gmsk.h"
#include "cellule.h"
#include "montant.h"
#include "hw/arm/calypso/calypso_debug.h"
extern int g_toa_grille, g_toa_valeur; /* c54x_mem.c : provenance du TOA */
extern uint32_t g_c54x_exe_fn; /* main.c: value returned by calypso_trx_get_fn() */
static volatile sig_atomic_t g_stop;
static void sur_signal(int sig) { (void)sig; g_stop = 1; }
C54xState *pont_allouer_dsp(void)
{
/* Shift the start of the struct so that data[] lands on a page boundary,
* and therefore data[C54X_API_BASE] too: the API window must be mmap-able
* with MAP_FIXED. */
size_t off = offsetof(C54xState, data) % 4096;
size_t decal = off ? 4096 - off : 0;
void *brut = NULL;
if (posix_memalign(&brut, 4096, sizeof(C54xState) + 4096) != 0) {
fprintf(stderr, "pont : posix_memalign\n");
return NULL;
}
memset(brut, 0, sizeof(C54xState) + 4096);
C54xState *s = (C54xState *)((char *)brut + decal);
uint16_t *fenetre = &s->data[C54X_API_BASE];
if (((uintptr_t)fenetre & 4095) != 0) {
fprintf(stderr, "pont : fenetre API non alignee (%p)\n", (void *)fenetre);
return NULL;
}
int fd = shm_open(CALYPSO_PONT_SHM, O_RDWR | O_CREAT, 0666);
if (fd < 0) {
fprintf(stderr, "pont : shm_open(%s) : %s\n", CALYPSO_PONT_SHM, strerror(errno));
return NULL;
}
if (ftruncate(fd, CALYPSO_PONT_SHM_BYTES) < 0) {
fprintf(stderr, "pont : ftruncate : %s\n", strerror(errno));
close(fd);
return NULL;
}
void *map = mmap(fenetre, CALYPSO_PONT_SHM_BYTES, PROT_READ | PROT_WRITE,
MAP_SHARED | MAP_FIXED, fd, 0);
close(fd);
if (map == MAP_FAILED || map != (void *)fenetre) {
fprintf(stderr, "pont : mmap MAP_FIXED : %s\n", strerror(errno));
return NULL;
}
memset(fenetre, 0, CALYPSO_PONT_SHM_BYTES);
return s;
}
static bool envoyer(int fd, uint32_t type, uint32_t a, uint32_t b)
{
CalypsoPontMsg m = { type, a, b };
return send(fd, &m, sizeof(m), MSG_NOSIGNAL) == (ssize_t)sizeof(m);
}
/* PC profile: c54x_run is driven in slices of 64 instructions and the PC
* sampled between two slices is charged to a 64-word bucket. No sampling
* thread, no cost. Published every 217 frames. */
#define PROFIL_SEAU 64
static unsigned long g_profil[0x10000 / PROFIL_SEAU];
static uint32_t g_profil_hw; /* high-water mark: highest PC seen (boot excluded) */
/* Trace window: PONT_TRACE_FB=N logs the next N instructions (pc, opcode, A,
* AR3, DP, INTM, IMR/IFR) to /tmp/c54x-pont/trace-fb.txt, starting at the
* first frame whose write page carries d_task_md=5 (FB_DSP_TASK). Exact
* single-stepping (c54x_run with n=1). */
static long g_trace_reste = -1;
static FILE *g_trace_f;
static bool g_trace_ouverte;
static uint32_t g_trace_pc_lo, g_trace_pc_hi; /* PONT_TRACE_PC=lo-hi: open the trace when PC enters [lo,hi] */
static void trace_armer(void)
{
static bool fait;
if (fait) return;
fait = true;
const char *e = calypso_getenv("PONT_TRACE_FB");
const char *r = calypso_getenv("PONT_TRACE_PC");
if (e && *e) { g_trace_reste = atol(e); g_trace_f = fopen("/tmp/c54x-pont/trace-fb.txt", "w"); }
if (r && *r) {
char *fin = NULL; g_trace_pc_lo = (uint32_t)strtoul(r, &fin, 0);
g_trace_pc_hi = (fin && *fin == '-') ? (uint32_t)strtoul(fin + 1, NULL, 0) : g_trace_pc_lo;
if (g_trace_reste <= 0) g_trace_reste = 4000;
if (!g_trace_f) g_trace_f = fopen("/tmp/c54x-pont/trace-fb.txt", "w");
}
}
/* DARAM cells watched during the trace: every change is logged with the PC of
* the instruction that made it (before/after diff on each step). */
/* Cells watched during the trace. Rebuilt [2026-09-19]: the previous list had
* accreted 13 addresses (0x3fc1 0x3fde 0x3fd3 0x0c3f 0x0906 0x058a 0x0e60
* 0x435b 0x0e4f 0x2a01 ...) that appear NOWHERE else in the tree and whose
* introducing commit (812c343) says only "commit". An address whose meaning
* cannot be restated is not evidence: when it moves, nothing follows. Every
* entry below carries where its meaning comes from.
*
* API window cells are derived from calypso_api.h rather than written raw, so
* they cannot drift from the map: API base = C54X_API_BASE = 0x0800 words, and
* the API_* offsets are in BYTES (hence the /2). */
#define CEL_W(p, off) (uint16_t)(C54X_API_BASE + (API_W_PAGE(p) + (off)) / 2)
#define CEL_R(p, off) (uint16_t)(C54X_API_BASE + (API_R_PAGE(p) + (off)) / 2)
#define CEL_NDB(off) (uint16_t)(C54X_API_BASE + (API_NDB + (off)) / 2)
static const uint16_t g_cellules[] = {
/* --- ARM -> DSP pages (calypso_api.h) ------------------------------- */
CEL_W(0, WP_D_TASK_MD), CEL_W(1, WP_D_TASK_MD), /* 0x0804/0x0818 the posted task */
CEL_W(0, WP_D_TASK_D), CEL_W(1, WP_D_TASK_D), /* 0x0800/0x0814 */
CEL_W(0, WP_D_FN), CEL_W(1, WP_D_FN), /* 0x0808/0x081c */
/* --- NDB (calypso_api.h + calypso_fbsb.h) --------------------------- */
CEL_NDB(NDB_D_DSP_PAGE), /* 0x08d4 page toggle */
CEL_NDB(NDB_D_FB_DET), /* 0x08f8 FB found flag */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_TOA), /* 0x08fa */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_PM), /* 0x08fb */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_ANGLE), /* 0x08fc <- was MISSING */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_SNR), /* 0x08fd <- was MISSING */
/* --- DSP -> ARM pages: a_sch[0,1,3,4], BOTH pages -------------------- */
CEL_R(0, RP_A_SCH + 0), CEL_R(0, RP_A_SCH + 2),
CEL_R(0, RP_A_SCH + 6), CEL_R(0, RP_A_SCH + 8), /* 0x0837 38 3a 3b */
CEL_R(1, RP_A_SCH + 0), CEL_R(1, RP_A_SCH + 2),
CEL_R(1, RP_A_SCH + 6), CEL_R(1, RP_A_SCH + 8), /* 0x084b 4c 4e 4f */
/* --- FB correlator input, read out of the mask ROM [2026-09-19] ------ */
0x3fb5, /* pointer to the input buffer; PROM0 0xb2c4 ST #0x0cce,*(0x3fb5)
* and 0xb2c9 ST #0x0d2e,*(0x3fb5) */
0x0cce, /* buffer A, same two instructions; also the AAD the DMA uses */
0x0d2e, /* buffer B, idem */
0x0e4e, /* second DARAM target seen in the rhea-dma RX transfers */
0x2a00, /* CALYPSO_BSP_DARAM_ADDR env default, before AAD_FOLLOW */
/* --- cells whose meaning is stated elsewhere in the tree ------------- */
0x3f92, /* calypso_dma.h:9 source of d_error_status (0x08d5) */
0x43d8, /* calypso_bsp.c:1567 poked per burst on the FB/SB mission */
0x43d5, /* c54x_mem.c:2229 PROM 0xb4be stm #0x43d5 ; reada *AR1+ */
0x098c, /* calypso_mailbox.c:46 mailbox poll (0xde86 ld *(0x098c)) */
0x435e, /* calypso_c54x.c:4574 bit13 = DMA config lock */
0x4368, /* c54x_mem.c:1835 DISPATCH-CELL-RESEED */
0x3fb0, /* c54x_probes.c:505 BSP read window 0x3fb0..0x3fbf */
0x0000 };
#define N_CELLULES (sizeof(g_cellules) / sizeof(g_cellules[0]))
static uint16_t g_cell_prev[N_CELLULES];
static uint16_t g_trace_pc_prev;
static void trace_cellules(C54xState *dsp, bool init)
{
for (unsigned i = 0; i < N_CELLULES; i++) {
uint16_t v = dsp->data[g_cellules[i]];
if (!init && v != g_cell_prev[i] && g_trace_f)
fprintf(g_trace_f, " W data[%04x] %04x -> %04x (par pc=%04x)\n",
g_cellules[i], g_cell_prev[i], v, g_trace_pc_prev);
g_cell_prev[i] = v;
}
}
static inline void trace_pas(C54xState *dsp)
{
if (g_trace_reste <= 0 || !g_trace_f || !g_trace_ouverte) return;
trace_cellules(dsp, false);
g_trace_pc_prev = dsp->pc & 0xffff;
uint16_t op = dsp->prog[dsp->pc & 0x3ffff];
uint16_t op2 = dsp->prog[(dsp->pc + 1) & 0x3ffff];
fprintf(g_trace_f, "%04x %04x %04x A=%010llx B=%010llx AR1=%04x AR2=%04x AR3=%04x AR4=%04x DP=%03x INTM=%d IMR=%04x IFR=%04x SP=%04x T=%04x BRC=%04x RSA=%04x REA=%04x ST0=%04x ST1=%04x insn=%u\n",
dsp->pc & 0xffff, op, op2,
(unsigned long long)(dsp->a & 0xffffffffffULL), (unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->ar[1], dsp->ar[2], dsp->ar[3], dsp->ar[4], dsp->st0 & 0x1ff, !!(dsp->st1 & 0x800),
dsp->imr, dsp->ifr, dsp->sp, dsp->t, dsp->brc, dsp->rsa, dsp->rea, dsp->st0, dsp->st1, dsp->insn_count);
if (--g_trace_reste == 0) { fclose(g_trace_f); g_trace_f = NULL; printf("pont : trace FB terminee (/tmp/c54x-pont/trace-fb.txt)\n"); }
}
/* PONT_PC_COUNT=pc1,pc2,... : exact hit counters, published with the profile.
* Forces single-stepping, about 3x slower; diagnostic use only. */
static uint16_t g_pcc[16]; static unsigned long g_pcc_n[16]; static int g_pcc_k = -1;
static void pcc_armer(void)
{
if (g_pcc_k >= 0) return;
g_pcc_k = 0;
const char *e = calypso_getenv("PONT_PC_COUNT");
while (e && *e && g_pcc_k < 16) {
char *fin = NULL; long v = strtol(e, &fin, 0);
if (fin == e) break;
g_pcc[g_pcc_k++] = (uint16_t)v;
e = (*fin == ',') ? fin + 1 : fin;
}
}
/* PONT_DUMP_DATA=addr:n,addr:n : DARAM words printed along with the profile. */
static void dump_publier(C54xState *dsp)
{
const char *e = calypso_getenv("PONT_DUMP_DATA");
while (e && *e) {
char *fin = NULL; long a = strtol(e, &fin, 0); long n = 8;
if (fin == e) break;
if (*fin == ':') n = strtol(fin + 1, &fin, 0);
printf(" data[%04lx..] :", a);
for (long i = 0; i < n && i < 32; i++) printf(" %04x", dsp->data[(a + i) & 0xffff]);
printf("\n");
e = (*fin == ',') ? fin + 1 : fin;
}
}
static void pcc_publier(void)
{
if (g_pcc_k <= 0) return;
printf(" passages exacts :");
for (int i = 0; i < g_pcc_k; i++) { printf(" %04x:%lu", g_pcc[i], g_pcc_n[i]); g_pcc_n[i] = 0; }
printf("\n");
}
static int c54x_run_profile(C54xState *dsp, int budget)
{
int fait = 0;
pcc_armer();
while (fait < budget && !dsp->idle && dsp->running) {
int n = budget - fait < PROFIL_SEAU ? budget - fait : PROFIL_SEAU;
static long minfn = -1;
if (minfn < 0) { const char *e = calypso_getenv("PONT_TRACE_MINFN"); minfn = (e && *e) ? atol(e) : 0; }
if (g_trace_reste > 0 && !g_trace_ouverte && g_trace_pc_hi && (long)g_c54x_exe_fn >= minfn &&
(dsp->pc & 0xffff) >= g_trace_pc_lo && (dsp->pc & 0xffff) <= g_trace_pc_hi && g_trace_f) {
g_trace_ouverte = true;
trace_cellules(dsp, true);
fprintf(g_trace_f, "# PC=%04x dans [%04x,%04x] a fn=%u ; IMR=%04x IFR=%04x\n",
dsp->pc & 0xffff, g_trace_pc_lo, g_trace_pc_hi, g_c54x_exe_fn, dsp->imr, dsp->ifr);
printf("pont : trace ouverte sur PC=%04x fn=%u\n", dsp->pc & 0xffff, g_c54x_exe_fn);
}
if (g_trace_reste > 0 && g_trace_ouverte) n = 1;
if (g_pcc_k > 0) {
n = 1;
uint16_t pc = dsp->pc & 0xffff;
for (int i = 0; i < g_pcc_k; i++) if (g_pcc[i] == pc) g_pcc_n[i]++;
}
if (n == 1) trace_pas(dsp);
/* Budget accounting uses the count c54x_run returns, not the insn_count
* delta: RPT iterations do not bump insn_count, so a step or a whole
* bucket landing inside a several-hundred-iteration "rpt *(lk); nop"
* reads as a stalled DSP and aborts the frame mid-ISR. */
int ex = c54x_run(dsp, n);
fait += ex;
g_profil[(dsp->pc & 0xffff) / PROFIL_SEAU]++;
if ((dsp->pc & 0xffff) > g_profil_hw) g_profil_hw = dsp->pc & 0xffff;
if (ex <= 0) break;
}
return fait;
}
static void profil_publier(void)
{
unsigned long tot = 0; unsigned n = 0;
for (unsigned i = 0; i < 0x10000 / PROFIL_SEAU; i++) tot += g_profil[i];
if (!tot) return;
printf(" profil PC (%lu tranches, high-water 0x%04x) :", tot, g_profil_hw);
/* the 12 hottest buckets, in decreasing order */
for (int k = 0; k < 12; k++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 0x10000 / PROFIL_SEAU; i++)
if (g_profil[i] > bv) { bv = g_profil[i]; best = i; }
if (!bv) break;
printf(" %04x:%lu%%", best * PROFIL_SEAU, bv * 100 / tot);
g_profil[best] = 0; n++;
}
printf("\n");
memset(g_profil, 0, sizeof(g_profil)); g_profil_hw = 0;
}
/* One TDMA frame, in the order calypso_tdma_tick() uses: DMA tick, then boot
* (run to the first IDLE) while init is pending, then the TPU-frame interrupt
* if IMR arms it followed by one run budget. Returns the PONT_DONE flags and
* the executed instruction count in *insns. */
/* [2026-09-20] MID-FRAME INJECTION (PONT_RX_MODE=milieu, the default). The ROM
* arms DMA2 in its frame ISR and the receiver only keeps samples while a
* window is open (calypso_rif: no window, no sample). Delivering the burst
* AFTER the frame's run (the old PONT_RX_APRES=1) found the channel closed on
* most frames: measured 13 transfers on one frame in six, the FB block counter
* starved, TOA = 1251 for an FCCH four frames away. The replay bench delivers
* after a short slice of the frame, once the ISR has armed; the bridge now does
* the same: budget/8, inject (synthetic cell and UDP bursts), then the rest. */
static bool g_tick_irq_trame = true; /* TICK.b bit 16 : l'ARM a arme l'interruption trame du DSP */
static struct { bool actif; const char *iq_mode; int amp; uint32_t fn; unsigned long *injectes; bool udp; char dernier_type; int dernier_n_iq; } g_inj;
static void injecter_burst(C54xState *dsp, const char *iq_mode, int amp, uint32_t fn, unsigned long *injectes);
uint16_t prog_fetch(C54xState *s, uint16_t pc);
static unsigned g_flags_entree; static uint16_t g_data_avant_b[C54X_DATA_SIZE];
static uint16_t g_snap_2be2[148]; static int g_snap_ok;
static uint16_t g_snap_2a00[456]; static int g_snap_2a00_ok;
#define s_or_dsp_st0(d) ((d)->st0)
static int16_t g_dernier_iq[2 * 256]; static int g_dernier_n_iq;
static uint16_t g_daram_apres_dma[384]; static uint16_t g_daram_aad;
/* phase : 0 = whole frame ; 1 = frame ISR only, up to the arming of the RX
* window (then DONE|PHASE_A and wait for PONT_GO) ; 2 = burst delivery and
* the rest of the frame. See CALYPSO_PONT_TICK_DEUX_PHASES. */
/* [2026-09-23] ENREGISTREUR DU TCH (cote ARM). Les ecritures de l ARM dans
* l API RAM, par difference avec l instantane pris quand le DSP a rendu la
* main : 'A', tick BE32, fenetre (0 = avant le TICK, 1 = entre phase A et GO),
* nombre BE16, puis (mot BE16, valeur BE16). Et a chaque TICK : 'T', tick BE32,
* drapeaux (bit0 irq trame, bit1 deux phases), budget BE32. Meme fichier que
* les livraisons d I/Q du BSP (calypso_bsp_enreg_fichier), meme garde : TCH
* actif, CALYPSO_REJEU_ENREG=0 coupe. Rejoue par tools/rejeu_banc.c. */
static uint16_t g_enreg_api[CALYPSO_API_WORDS];
static bool g_enreg_api_ok;
static void enreg_api_prendre(const uint16_t *api_ram)
{
memcpy(g_enreg_api, api_ram, sizeof g_enreg_api);
g_enreg_api_ok = true;
}
static void enreg_api_diff(const uint16_t *api_ram, uint32_t tick, int fenetre)
{
FILE *f = calypso_bsp_enreg_fichier();
if (!f || !g_enreg_api_ok) return;
static uint8_t buf[8 + 4 * CALYPSO_API_WORDS];
unsigned n = 0;
for (unsigned i = 0; i < CALYPSO_API_WORDS; i++) {
if (api_ram[i] == g_enreg_api[i]) continue;
uint8_t *q = buf + 8 + 4 * n++;
q[0] = i >> 8; q[1] = i; q[2] = api_ram[i] >> 8; q[3] = api_ram[i];
}
buf[0] = 'A'; buf[1] = tick >> 24; buf[2] = tick >> 16; buf[3] = tick >> 8; buf[4] = tick;
buf[5] = (uint8_t)fenetre; buf[6] = n >> 8; buf[7] = n;
fwrite(buf, 1, 8 + 4 * n, f);
fflush(f);
}
/* Etat de depart, une fois, au premier TICK enregistre (DSP rendu, au repos) :
* 'S' API RAM complete, 'D' registres puis memoire de donnees du C54x. */
typedef struct {
int64_t a, b; uint16_t ar[8], t, trn, sp, bk, brc, rsa, rea, st0, st1, pmst, imr, ifr, xpc;
uint32_t pc; uint8_t idle, running;
} EnregRegs;
static void enreg_base(FILE *f, const C54xState *dsp, const uint16_t *api_ram, uint32_t tick)
{
uint8_t h[5] = { 'S', tick >> 24, tick >> 16, tick >> 8, tick };
fwrite(h, 1, 5, f);
fwrite(api_ram, sizeof(uint16_t), CALYPSO_API_WORDS, f);
EnregRegs r = { .a = dsp->a, .b = dsp->b, .t = dsp->t, .trn = dsp->trn, .sp = dsp->sp, .bk = dsp->bk,
.brc = dsp->brc, .rsa = dsp->rsa, .rea = dsp->rea, .st0 = dsp->st0, .st1 = dsp->st1,
.pmst = dsp->pmst, .imr = dsp->imr, .ifr = dsp->ifr, .xpc = dsp->xpc, .pc = dsp->pc,
.idle = dsp->idle, .running = dsp->running };
memcpy(r.ar, dsp->ar, sizeof r.ar);
h[0] = 'D';
fwrite(h, 1, 5, f);
fwrite(&r, sizeof r, 1, f);
fwrite(dsp->data, sizeof(uint16_t), C54X_DATA_SIZE, f);
}
static void enreg_tick(const C54xState *dsp, const uint16_t *api_ram, uint32_t tick, bool irq, bool deux, long budget)
{
FILE *f = calypso_bsp_enreg_fichier();
if (!f) return;
static bool base;
if (!base) { base = true; enreg_base(f, dsp, g_enreg_api_ok ? g_enreg_api : api_ram, tick); }
uint8_t h[10] = { 'T', tick >> 24, tick >> 16, tick >> 8, tick, (uint8_t)((irq ? 1 : 0) | (deux ? 2 : 0)),
(uint8_t)(budget >> 24), (uint8_t)(budget >> 16), (uint8_t)(budget >> 8), (uint8_t)budget };
fwrite(h, 1, sizeof h, f);
}
/* [2026-09-23] LE DSP ET L'ARM EN PARALLELE (PONT_DONE_TOT, 1 par defaut).
* En pas-a-pas, une trame coutait la SOMME de QEMU (l'ARM) et du C54x : sur un
* TCH le DSP monte a ~4 ms par trame (demodulation, Viterbi, parole), QEMU en
* prend ~2, et le banc tombait a 174 trames/s au lieu de 216,7 -- la parole
* arrivait a 40 trames/s pour un ALSA a 50 : echo test qui « part en live ».
* Sur silicium l'ARM et le DSP tournent en meme temps et l'ARM ne relit les
* resultats qu'a la trame suivante. On renvoie donc PONT_DONE des le burst
* depose, et on finit la trame (reste du budget, pompe DMA, montant, sondes)
* pendant que QEMU avance ; le TICK suivant attend dans la socket. Une trame
* coute alors le plus long des deux, pas leur somme. Seul effet de bord :
* PONT_DONE_API_IRQ n'est plus connu au moment du DONE (jamais leve sur ce
* banc : irq=0 dans tous les bilans). PONT_DONE_TOT=0 retablit l'ancien ordre. */
static int g_done_tot = -1;
static int g_reste_b;
/* [2026-09-23] CHRONO PAR TRAME : ou passe une trame du banc, en ms moyennes,
* imprime toutes les 1000 trames (« [chrono] »). qemu = attente du TICK apres
* le DONE (l'ARM), A = phase A DSP, go = attente du GO (l1_sync de l'ARM),
* B = phase B jusqu'au DONE, apres = fin de trame DSP apres le DONE. */
#include <time.h>
static double chrono_ms(void) { struct timespec t; clock_gettime(CLOCK_MONOTONIC, &t); return t.tv_sec * 1e3 + t.tv_nsec / 1e6; }
static struct { double t_fin, qemu, a, go, b, apres; unsigned n; } g_chrono;
static void chrono_trame(double t_tick, double t_done_a, double t_go, double t_done, double t_fin, uint32_t fn)
{
if (g_chrono.t_fin > 0) g_chrono.qemu += t_tick - g_chrono.t_fin;
g_chrono.a += t_done_a - t_tick; g_chrono.go += t_go - t_done_a;
g_chrono.b += t_done - t_go; g_chrono.apres += t_fin - t_done;
g_chrono.t_fin = t_fin;
if (++g_chrono.n == 1000) {
double k = 1.0 / g_chrono.n;
printf(" [chrono] fn=%u sur 1000 trames (ms) : qemu %.2f | A %.2f | go %.2f | B %.2f | apres DONE %.2f "
"| trame %.2f (temps reel 4.62)\n", fn, g_chrono.qemu * k, g_chrono.a * k, g_chrono.go * k,
g_chrono.b * k, g_chrono.apres * k,
(g_chrono.qemu + g_chrono.a + g_chrono.go + g_chrono.b + g_chrono.apres) * k);
fflush(stdout);
double tf = g_chrono.t_fin; memset(&g_chrono, 0, sizeof g_chrono); g_chrono.t_fin = tf;
}
}
static uint32_t jouer_trame(C54xState *dsp, long budget, bool *init_done, uint32_t *insns, int phase)
{
uint32_t drapeaux = 0;
uint32_t avant = dsp->insn_count;
static int fait_a; /* phase A instructions, charged to phase B's budget */
static bool etait_idle_a; /* idle state at the frame start, for PONT_DONE_API_IRQ */
if (phase == 2) goto phase_b;
calypso_dma_tick(dsp);
if (dsp->running && !*init_done) {
if (!dsp->idle) {
c54x_run(dsp, (int)budget);
}
if (dsp->idle) {
*init_done = true;
drapeaux |= PONT_DONE_INIT;
}
}
if (dsp->running) {
etait_idle_a = dsp->idle;
/* Wake on a level-held or pending interrupt. The core only vectors a
* pending interrupt (IFR&IMR, INTM=0) on the next instruction
* (c54x_irq_level_check, CALYPSO_C54X_IRQ_LEVEL=1), and an idle DSP
* executes none; on silicon the interrupt itself wakes it (SPRU131).
* INT10n (RHEA DMA completion, bit 14) is a level line: it stays
* asserted while a channel holds IRQ_STATE, so present it on wake. */
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) &&
!(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800))
dsp->idle = false;
/* [2026-09-20] The DSP frame interrupt is TPU_CTRL_DSP_EN, a bit the
* firmware sets in dsp_end_scenario() on EVERY scenario and that the
* TPU consumes: the ROM gets a frame interrupt only on frames where
* the ARM handed it a page. Raising it on every tick made the ROM
* re-read the same page for 10+ frames (the firmware only flips the
* write page on frames with a DSP item and the ROM never clears
* d_task_md): the FB task restarted at each FCCH and the SB job never
* ran (0xaba4 dispatched every frame, no 764-byte window armed).
* QEMU now says in TICK.b bit 16 whether the ARM armed it.
* PONT_IRQ_TRAME=1 restores the interrupt on every tick (A/B). */
static int irq_chaque = -1;
if (irq_chaque < 0) { const char *e = calypso_getenv("PONT_IRQ_TRAME"); irq_chaque = (e && *e == '1') ? 1 : 0; }
if ((dsp->imr & (1u << C54X_IT_TPU_FRAME_BIT)) && (irq_chaque || g_tick_irq_trame)) {
c54x_interrupt_ex(dsp, C54X_IT_TPU_FRAME_VEC, C54X_IT_TPU_FRAME_BIT);
}
if (calypso_getenv("PONT_IRQ_DEBUG") && g_c54x_exe_fn > 5000 && g_c54x_exe_fn < 5012)
printf(" [irq] fn=%u APRES vec28 : idle=%d pc=%04x INTM=%d IMR=%04x IFR=%04x\n",
g_c54x_exe_fn, dsp->idle, dsp->pc & 0xffff, !!(dsp->st1 & 0x800), dsp->imr, dsp->ifr);
if (g_inj.actif || phase == 1) {
int fait = 0;
if (!dsp->idle) fait = c54x_run_profile(dsp, (int)budget / 8); /* the ISR arms DMA2 */
/* [2026-09-20] Deliver only once the receive window is armed. On a
* frame where the ROM first finishes the previous burst's demod
* (20-30k instructions of Viterbi) before it programs the one-shot
* NB window, the fixed budget/8 slice delivered the frame BEFORE the
* arming, the RIF discarded it (no window) and the result page stayed
* empty: measured on the BTS bench, one normal-burst result in four
* missing (b0 absent in 23 of 97 BCCH blocks), read by the firmware
* as EMPTY / BURST ID n!=m. Keep running, in slices, until DMA2 is
* armed or the DSP idles, half the budget at most. */
/* [2026-09-23] SUR LE TCH, ALLER JUSQU'A L'IDLE AVANT LE DEPOT.
* Pour une tache TCHA (SACCH/TF), la ROM arme la fenetre de la trame
* N+1 PUIS demodule, au debut de N+1, le burst SACCH de N qu'elle
* a laisse dans 0x0cce ; sur silicium le burst de N+1 n'arrive qu'au
* passage de TS2, plus tard. Deposer des l'armement l'ecrasait : la
* SACCH se decodait sur un burst de trafic (a_cd FIRE KO a chaque
* bloc, 113-118 bits faux, LOS au 32e bloc). Reproducteur
* tch_rejeu (scratchpad 2026-09-23) : depot apres l'IDLE -> SACCH
* FIRE=0 « 07 00 03 », FACCH 10/10 bonnes (contre 6/12). Hors TCH
* (FB, SB, SDCCH) on garde l'arret a l'armement.
* PONT_TCH_DEPOT_IDLE=0 retablit l'ancien comportement. */
static int tch_idle = -1;
if (tch_idle < 0) { const char *e = calypso_getenv("PONT_TCH_DEPOT_IDLE"); tch_idle = (e && *e == '0') ? 0 : 1; }
bool jusqua_idle = tch_idle && montant_sur_tch();
while (!dsp->idle && (jusqua_idle || !calypso_rhea_dma_rx_armed()) && fait < (int)budget / 2)
fait += c54x_run_profile(dsp, 256);
if (jusqua_idle) {
static unsigned n_tch;
if (n_tch++ < 30)
printf(" [depot_tch] fn=%u phase A : %d insn, idle=%d, fenetre armee=%d%s\n",
g_c54x_exe_fn, fait, dsp->idle, calypso_rhea_dma_rx_armed(),
dsp->idle ? "" : " <- BUDGET/2 ATTEINT, depot avant la fin");
}
fait_a = fait;
if (phase == 1) {
/* ISR played, R page written, window armed: the ARM may run
* l1_sync now. The burst comes with PONT_GO. */
if (dsp->idle) drapeaux |= PONT_DONE_IDLE;
if (dsp->running) drapeaux |= PONT_DONE_RUNNING;
if (*init_done) drapeaux |= PONT_DONE_INIT;
*insns = dsp->insn_count - avant;
return drapeaux | PONT_DONE_PHASE_A;
}
phase_b:
fait = fait_a;
/* PONT_NB_DEBUG: flags at the burst's entry, and a snapshot of the
* data memory to list what the demod writes (regions), see
* sonde_bits(). */
{ static int on = -1; if (on < 0) on = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
if (on) { g_flags_entree = ((s_or_dsp_st0(dsp) & ST0_OVA) ? 1 : 0) | ((dsp->st0 & ST0_OVB) ? 2 : 0) | ((dsp->st0 & ST0_C) ? 4 : 0) | ((dsp->st0 & ST0_TC) ? 8 : 0) | ((dsp->st1 & ST1_OVM) ? 16 : 0) | ((dsp->st1 & ST1_FRCT) ? 32 : 0) | ((dsp->st1 & ST1_SXM) ? 64 : 0);
memcpy(g_data_avant_b, dsp->data, sizeof g_data_avant_b); } }
if (g_inj.udp) calypso_bsp_service(g_inj.fn);
if (g_inj.iq_mode) injecter_burst(dsp, g_inj.iq_mode, g_inj.amp, g_inj.fn, g_inj.injectes);
{ uint16_t aad = calypso_rhea_dma_get_daram();
memcpy(g_daram_apres_dma, &dsp->data[aad], sizeof g_daram_apres_dma); g_daram_aad = aad; }
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) && !(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
/* PONT_NB_HIST=<dir>: opcode histogram of phase B (the burst's demod)
* for the first 12 normal bursts, one file per frame, to name the
* instructions the NB path leans on and cross them with the ISA
* scorecard (isa_test). Single-stepped: prog_fetch() before each. */
static const char *hist_dir = NULL; static int hist_init = 0; static unsigned hist_n;
if (!hist_init) { hist_init = 1; hist_dir = calypso_getenv("PONT_NB_HIST"); }
/* PONT_NB_HIST_SB=1 : trace the SCH bursts (SB task, d_task_md = 6) instead */
static int hist_sb = -1; if (hist_sb < 0) hist_sb = calypso_getenv("PONT_NB_HIST_SB") ? 1 : 0;
bool tache_nb = dsp->api_ram && (dsp->api_ram[API_R_PAGE(0) / 2] == 24 || dsp->api_ram[API_R_PAGE(1) / 2] == 24);
bool tache_sb = dsp->api_ram && ((dsp->api_ram[API_W_PAGE(0) / 2 + 4] & 0xff) == 6 || (dsp->api_ram[API_W_PAGE(1) / 2 + 4] & 0xff) == 6);
if (hist_dir && hist_n < 12 && !dsp->idle && dsp->api_ram &&
((!hist_sb && g_inj.dernier_type == 'B' && tache_nb) || (hist_sb && g_inj.dernier_type == 'S' && tache_sb))) {
static unsigned hist[65536]; memset(hist, 0, sizeof hist);
int reste = (int)budget - fait, k = 0;
/* data watch: every write into the demod's working cells, with
* the PC of the instruction (taps 0x2cbb.., tracker 0x5aaa..,
* result cells 0x3fa4.., reference 0x2b28..) */
static const struct { uint16_t lo, hi; } W[] = { {0x2cbb, 0x2d04}, {0x5aaa, 0x5ac8}, {0x3fa4, 0x3fa8}, {0x2b28, 0x2b58}, {0x2f00, 0x2f2c}, {0x2a00, 0x2bc8}, {0x2be0, 0x2c80} };
#define NW 7
static uint16_t prev[0x600]; int nw = 0;
for (unsigned r = 0; r < NW; r++) for (unsigned a = W[r].lo; a < W[r].hi; a++) prev[nw++] = dsp->data[a];
char nomw[256]; snprintf(nomw, sizeof nomw, "%s/watch_%u.txt", hist_dir, g_inj.fn);
FILE *fw = fopen(nomw, "w");
char nomt[256]; snprintf(nomt, sizeof nomt, "%s/trace_%u.txt", hist_dir, g_inj.fn);
FILE *ft = fopen(nomt, "w");
while (!dsp->idle && k < reste) {
uint16_t w = prog_fetch(dsp, (uint16_t)dsp->pc);
uint16_t pc0 = (uint16_t)dsp->pc; uint16_t ar2 = dsp->ar[2], ar3 = dsp->ar[3];
hist[w]++;
if (k == 12800) { memcpy(g_snap_2be2, &dsp->data[0x2be2], sizeof g_snap_2be2); g_snap_ok = 1; }
if (pc0 == 0x9a78 && !g_snap_2a00_ok) { memcpy(g_snap_2a00, &dsp->data[0x2a00], sizeof g_snap_2a00); g_snap_2a00_ok = 1;
char nm[256]; snprintf(nm, sizeof nm, "%s/mem_%u_9a78.bin", hist_dir, g_inj.fn); FILE *fm = fopen(nm, "wb"); if (fm) { fwrite(dsp->data, 2, C54X_DATA_SIZE, fm); fclose(fm); } }
if (ft) fprintf(ft, "%04x %04x %010llx %010llx %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x\n", pc0, w,
(unsigned long long)(dsp->a & 0xFFFFFFFFFFULL), (unsigned long long)(dsp->b & 0xFFFFFFFFFFULL),
dsp->t, dsp->st0, dsp->st1, dsp->ar[1], ar2, ar3, dsp->ar[4], dsp->ar[5], dsp->ar[0],
dsp->data[ar2], dsp->data[ar3], dsp->data[dsp->ar[4]], dsp->data[dsp->ar[5]], dsp->ar[6]);
c54x_run(dsp, 1); k++;
if (fw) { int i = 0;
for (unsigned r = 0; r < NW; r++) for (unsigned a = W[r].lo; a < W[r].hi; a++, i++)
if (dsp->data[a] != prev[i]) { fprintf(fw, "%d pc=%04x op=%04x %04x: %04x -> %04x (%d) AR2=%04x AR3=%04x\n", k, pc0, w, a, prev[i], dsp->data[a], (int16_t)dsp->data[a], ar2, ar3); prev[i] = dsp->data[a]; } }
}
if (fw) fclose(fw);
if (ft) fclose(ft);
{ char nm[256]; snprintf(nm, sizeof nm, "%s/mem_%u_fin.bin", hist_dir, g_inj.fn); FILE *fm = fopen(nm, "wb"); if (fm) { fwrite(dsp->data, 2, C54X_DATA_SIZE, fm); fclose(fm); } }
char nom[256]; snprintf(nom, sizeof nom, "%s/hist_%u.txt", hist_dir, g_inj.fn);
FILE *f = fopen(nom, "w");
if (f) { for (unsigned w = 0; w < 65536; w++) if (hist[w]) fprintf(f, "%04x %u\n", w, hist[w]); fclose(f); }
hist_n++;
}
/* [2026-09-23] PONT_DONE_TOT : le reste de la trame (phase B) est joue
* APRES le PONT_DONE, pendant que QEMU fait tourner l'ARM -- voir
* servir(). */
if (g_done_tot && phase == 2) g_reste_b = (int)budget - fait;
else if (!dsp->idle) c54x_run_profile(dsp, (int)budget - fait);
} else if (!dsp->idle) {
c54x_run_profile(dsp, (int)budget);
}
if (!etait_idle_a && dsp->idle) {
drapeaux |= PONT_DONE_API_IRQ;
}
}
if (dsp->idle) drapeaux |= PONT_DONE_IDLE;
if (dsp->running) drapeaux |= PONT_DONE_RUNNING;
if (*init_done) drapeaux |= PONT_DONE_INIT;
*insns = dsp->insn_count - avant;
return drapeaux;
}
/* Synthetic I/Q injection.
*
* On silicon the DSP gets 148 complex int16 samples per burst, one per symbol,
* written to DARAM 0x2a00 (296 words) by the BSP DMA and followed by the RX
* interrupt; calypso_bsp_rx_burst() reproduces that sequence. An FCCH burst is
* GMSK over 148 zero bits, i.e. a tone at +1625/24 kHz, which is +pi/2 of
* phase per symbol at 270.833 ksym/s (GSM 45.004). */
#define IQ_N 148
static void iq_synthese(const char *mode, int amp, uint32_t fn, int16_t *iq)
{
static unsigned seed = 12345;
double dphi = 0;
bool bruit = false;
if (!strcmp(mode, "fcch")) {
dphi = M_PI / 2;
} else if (!strcmp(mode, "noise")) {
bruit = true;
} else if (!strncmp(mode, "tone:", 5)) {
dphi = atof(mode + 5);
}
for (int k = 0; k < IQ_N; k++) {
if (bruit) {
seed = seed * 1103515245u + 12345u; int a = (int)((seed >> 16) % (2 * amp + 1)) - amp;
seed = seed * 1103515245u + 12345u; int b = (int)((seed >> 16) % (2 * amp + 1)) - amp;
iq[2 * k] = (int16_t)a; iq[2 * k + 1] = (int16_t)b;
} else {
double ph = dphi * k;
iq[2 * k] = (int16_t)lrint(amp * cos(ph));
iq[2 * k + 1] = (int16_t)lrint(amp * sin(ph));
}
}
(void)fn;
}
/* Recorded-cell replay, paced by the DSP frame clock.
*
* /opt/GSM/cellule_reelle.bin holds the TS0 of 311 CONSECUTIVE frames captured
* off the air at 4 samples/symbol, each tagged with its real frame number, so
* the 51-multiframe is intact: FCCH at fn%51 in {0,10,20,30,40}, SCH at
* {1,11,21,31,41}.
*
* Why it is fed from here and not over UDP: the source and the DSP have
* independent clocks. Measured on this bench, the DSP runs between 72 and 160
* frames/s depending on load while rejouer_cellule.py streams at a rate of its
* own, so the DSP swallowed about four cell frames per frame of its own. The
* FB task survives that — it only ever correlates ONE window — but the SB task
* needs the burst of the frame IMMEDIATELY AFTER the FCCH, and that frame was
* never the SCH. Pulled from here, one burst per frame, the multiframe reaches
* the DSP intact whatever the emulated clock does. */
typedef struct { uint32_t fn; int16_t *iq; int fcch; } ReelBurst;
static ReelBurst *g_reel;
static unsigned g_reel_n, g_reel_util;
static int g_reel_nsym;
static unsigned g_reel_base;
/* Decimate a stored burst to the 1 sample/symbol the correlator works at. The
* same decimation the UDP path applies through CALYPSO_BSP_IQ_DECIM, and the
* same one reelle_injecter delivers: what is measured here is what the DSP
* gets. Returns the number of int16 written. */
static int reelle_decimer(const ReelBurst *b, int16_t *iq, int max_i16)
{
int decim = g_reel_nsym / 148;
if (decim < 1) decim = 1;
int n = 0;
for (int k = 0; k * decim < g_reel_nsym && n <= max_i16 - 2; k++) {
iq[n++] = b->iq[2 * (k * decim)];
iq[n++] = b->iq[2 * (k * decim) + 1];
}
return n;
}
/* Is this burst an FCCH? At 1 sample/symbol an all-zeros GMSK burst is a pure
* tone rotating by exactly +pi/2 per sample — the criterion calypso_bsp.c's
* FCCH-PROBE already uses (coh ~ 1, dphi ~ +1.571). Nothing else on TS0 comes
* close, so this labels the multiframe without decoding anything. */
static int reelle_est_fcch(const ReelBurst *b)
{
int16_t iq[2 * 256];
int n = reelle_decimer(b, iq, (int)(sizeof(iq) / sizeof(iq[0])));
int ns = n / 2;
if (ns < 32) return 0;
double accr = 0, acci = 0, den = 0;
for (int k = 1; k < ns; k++) {
double i0 = iq[2*(k-1)], q0 = iq[2*(k-1)+1];
double i1 = iq[2*k], q1 = iq[2*k+1];
accr += i1*i0 + q1*q0;
acci += q1*i0 - i1*q0;
den += sqrt((i0*i0 + q0*q0) * (i1*i1 + q1*q1));
}
if (den <= 0) return 0;
double coh = sqrt(accr*accr + acci*acci) / den;
double dphi = atan2(acci, accr);
return coh > 0.90 && fabs(dphi - M_PI_2) < 0.30;
}
/* Where does the recording sit in the 51-multiframe?
*
* The frame numbers stored in the file cannot be trusted for this: measured on
* cellule_reelle.bin, the FCCH bursts carry tags whose residues are
* {0,10,20,31,41} where GSM 05.02 puts the FCCH at fn%51 in {0,10,20,30,40} —
* a constant offset of 31. So the phase is taken from the SIGNAL instead: the
* FCCH bursts are located by reelle_est_fcch(), and the one followed by a gap
* of 11 frames is the last of its multiframe, i.e. true phase 40 (the sequence
* of gaps is 10,10,10,10,11). g_reel_base then satisfies
*
* entry_index == (arm_fn - g_reel_base) (mod 51)
*
* which is what reelle_injecter uses to pick a burst BY FRAME NUMBER. */
static void reelle_caler(void)
{
unsigned fcch[64], nf = 0;
for (unsigned i = 0; i < g_reel_n && nf < 64; i++)
if (g_reel[i].fcch) fcch[nf++] = i;
unsigned i40 = 0; int trouve = 0;
for (unsigned k = 0; k + 1 < nf; k++)
if (fcch[k + 1] - fcch[k] == 11) { i40 = fcch[k]; trouve = 1; break; }
if (!trouve) {
g_reel_base = 0;
printf("pont : ATTENTION — phase de multitrame indeterminee (%u FCCH reperees, "
"aucun ecart de 11) ; calage a 0, la lecture reste cadencee par fn\n", nf);
return;
}
g_reel_base = (40u + 51u - (i40 % 51u)) % 51u; /* i40 == 40 - base (mod 51) */
unsigned ecart_tag = (g_reel[0].fn + 51u - g_reel_base) % 51u;
printf("pont : %u FCCH reperees dans la capture (ecarts 10/11), phase calee sur le signal : "
"base=%u ; les tags fn du fichier sont decales de +%u mod 51\n",
nf, g_reel_base, ecart_tag);
}
/* Recorded-cell replay, addressed by the ARM frame number.
*
* /opt/GSM/cellule_reelle.bin holds the TS0 of 311 CONSECUTIVE frames captured
* off the air at 4 samples/symbol, each tagged with its real frame number.
*
* Why it is fed from here and not over UDP: the source and the DSP have
* independent clocks. Measured on this bench, the DSP runs between 72 and 160
* frames/s depending on load while rejouer_cellule.py streams at a rate of its
* own, so the DSP swallowed about four cell frames per frame of its own. The
* FB task survives that — it only ever correlates ONE window — but the SB task
* needs the burst of the frame IMMEDIATELY AFTER the FCCH, and that frame was
* never the SCH.
*
* [2026-09-19] Why it is addressed by fn and no longer by a running index:
* calypso_trx.c:pont_echange() SKIPS a tick whenever the DSP has not returned
* its DONE — about 3% of frames once the traces are off, 85% with -vvv on a
* terminal. A running index does not advance on a skipped tick while the ARM
* clock does, so every skip shifted the recording against the ARM by one frame,
* FOR GOOD: measured 4202 frames of accumulated drift over a 5-minute run, i.e.
* a multiframe phase wandering without bound. The ARM then armed its SB one
* frame after an FCCH and got a burst from somewhere else entirely (11 SB CRC
* OK in 68000 frames), and the deinterleaver assembled BCCH blocks out of
* unrelated bursts (205-221 bit errors per block, every block dropped).
* Indexing by fn makes a skipped tick skip a RECORDING burst too: the phase is
* held whatever the emulated clock does. */
static void reelle_injecter(C54xState *dsp, uint32_t fn, unsigned long *injectes)
{
if (!g_reel_util) return;
unsigned idx = (fn + g_reel_util - (g_reel_base % g_reel_util)) % g_reel_util;
const ReelBurst *b = &g_reel[idx];
int16_t iq[2 * 256];
int n_iq = reelle_decimer(b, iq, (int)(sizeof(iq) / sizeof(iq[0])));
/* The burst keeps its OWN frame number: it is the provenance of the samples,
* and calypso_bsp_rx_burst only ever logs it. */
calypso_bsp_rx_burst(0, b->fn, iq, n_iq);
(*injectes)++;
}
static int reelle_charger(const char *chemin)
{
FILE *f = fopen(chemin, "rb");
if (!f) { fprintf(stderr, "pont : cellule reelle introuvable : %s\n", chemin); return 0; }
uint32_t hdr[4];
if (fread(hdr, sizeof(hdr), 1, f) != 1) { fclose(f); return 0; }
unsigned n = hdr[0], nsym = hdr[1], bsic = hdr[2];
if (!n || !nsym || nsym > 4096) { fclose(f); return 0; }
g_reel = calloc(n, sizeof(*g_reel));
if (!g_reel) { fclose(f); return 0; }
for (unsigned i = 0; i < n; i++) {
uint32_t e[2];
if (fread(e, sizeof(e), 1, f) != 1) { n = i; break; }
int16_t *iq = malloc((size_t)nsym * 2 * sizeof(int16_t));
if (!iq || fread(iq, sizeof(int16_t) * 2, nsym, f) != nsym) { free(iq); n = i; break; }
g_reel[i].fn = e[0];
g_reel[i].iq = iq;
}
fclose(f);
g_reel_n = n; g_reel_nsym = (int)nsym;
/* Only a WHOLE number of 51-multiframes may be looped: 311 = 6*51 + 5, so
* wrapping on all 311 shifted the phase by 5 at every turn. */
g_reel_util = (n / 51u) * 51u;
for (unsigned i = 0; i < g_reel_n; i++)
g_reel[i].fcch = reelle_est_fcch(&g_reel[i]);
printf("pont : cellule REELLE %s — %u trames consecutives a %d ech/symbole, BSIC=%u, "
"fn %u..%u, %u trames jouees (%u multitrames de 51, %u ecartees), adressage par fn\n",
chemin, n, nsym / 148, bsic, n ? g_reel[0].fn : 0, n ? g_reel[n - 1].fn : 0,
g_reel_util, g_reel_util / 51u, n - g_reel_util);
reelle_caler();
return (int)g_reel_util;
}
/* Inject one burst (synthetic cell or plain signal) into the RIF/BSP path. */
static int g_verif_sonde = -1;
static void injecter_burst(C54xState *dsp, const char *iq_mode, int amp, uint32_t fn,
unsigned long *injectes)
{
int16_t iq[2 * 256];
int n_iq = 2 * IQ_N;
char t_dbg = '?';
if (!strncmp(iq_mode, "reelle", 6)) {
static int charge = 0;
if (!charge) { const char *p = strchr(iq_mode, ':');
charge = reelle_charger(p ? p + 1 : "/opt/GSM/cellule_reelle.bin"); if (!charge) charge = -1; }
if (charge > 0) reelle_injecter(dsp, fn, injectes);
return;
}
if (!strncmp(iq_mode, "cell", 4)) {
/* cell[:bsic[:offset[:margin]]] : full cell, FCCH/SCH/dummy bursts */
static int bsic = -1; static double dec = 0.5; static int marge = 21;
if (bsic < 0) { bsic = 42; const char *p = strchr(iq_mode, ':');
if (p) { bsic = atoi(p + 1) & 0x3f; p = strchr(p + 1, ':');
if (p) { dec = atof(p + 1); p = strchr(p + 1, ':'); if (p) marge = atoi(p + 1); } }
if (marge > 50) marge = 50;
if (strstr(iq_mode, "all")) cellule_sch_partout = 1;
printf("pont : cellule BSIC=%d (NCC=%d BCC=%d), echantillonnage a %.2f symbole, "
"SCH dans une fenetre de %d echantillons (DARAM len=%u mots)%s\n",
bsic, bsic >> 3, bsic & 7, dec, 148 + 2 * marge, calypso_bsp_get_daram_len(),
cellule_sch_partout ? ", SCH sur toutes les trames non-FCCH" : ""); }
/* the SCH burst is delivered as the 190-sample window block only when
* the DSP has its one-shot SB window armed; otherwise it is a frame of
* the FB stream like any other (same rule as rejouer.c) */
int marge_eff = calypso_rhea_dma_one_shot() ? marge : 0;
/* [2026-09-20] BCCH/CCCH normal bursts: framed like the BSP stream
* assembler (bsp_livrer_trame), 3 silent samples ahead when the
* one-shot window is the 151-sample NB one (tpu_window.c
* L1_NB_MARGIN_Q), bare 148 samples in the continuous FB stream. */
{ int nwin = calypso_rhea_dma_one_shot() ? calypso_rhea_dma_get_len_words() / 2 : 0;
/* PONT_NB_MARGE=<n> overrides the 3-sample head margin of a normal
* burst; "auto" sweeps 0..7 by 51-multiframe (the [scan] probe
* prints it), one run to find where the ROM's TSC search lands. */
static int mnb = -2; static int mauto = 0;
if (mnb == -2) { const char *e = calypso_getenv("PONT_NB_MARGE"); mnb = 3;
if (e && !strcmp(e, "auto")) mauto = 1; else if (e && *e) mnb = atoi(e); }
int m_nb = mauto ? (int)((fn / 51u) % 8u) : mnb;
/* CELLULE_TSC=<k>|auto : training sequence written in the bursts
* (the ARM still tells the ROM tsc = BCC); auto sweeps 0..7 */
static int tsc = -2; static int tauto = 0;
if (tsc == -2) { const char *e = calypso_getenv("CELLULE_TSC"); tsc = -1;
if (e && !strcmp(e, "auto")) tauto = 1; else if (e && *e) tsc = atoi(e) & 7; }
cellule_tsc_force = tauto ? (int)((fn / 51u) % 8u) : tsc;
cellule_marge_nb = (nwin >= 150 && nwin < 190) ? m_nb : (nwin >= 190 ? marge : -1);
cellule_fenetre_nb = nwin; }
char t = cellule_burst(fn, (uint8_t)bsic, amp, dec, marge_eff, iq, &n_iq);
t_dbg = t; g_inj.dernier_type = t; g_inj.dernier_n_iq = n_iq;
static unsigned nS, nF, nB, nC, tot;
if (t == 'S') nS++; else if (t == 'F') nF++; else if (t == 'B') nB++; else if (t == 'C') nC++;
if (++tot % 5000 == 1) printf("pont : bursts injectes FCCH=%u SCH=%u BCCH=%u CCCH=%u (fn=%u)\n", nF, nS, nB, nC, fn);
} else {
iq_synthese(iq_mode, amp, fn, iq);
}
static int irqdbg = -1; static unsigned irqdbg_n;
if (irqdbg < 0) irqdbg = calypso_getenv("PONT_IRQ_DEBUG") ? 1 : 0;
bool dbg = irqdbg && fn > 5000 && irqdbg_n < 12;
if (dbg) printf(" [irq] fn=%u AVANT rx_burst : idle=%d pc=%04x INTM=%d IMR=%04x IFR=%04x PMST=%04x SP=%04x\n",
fn, dsp->idle, dsp->pc & 0xffff, !!(dsp->st1 & 0x800), dsp->imr, dsp->ifr, dsp->pmst, dsp->sp);
{ static int dj = -1; if (dj < 0) dj = calypso_getenv("PONT_DEBUG_INJ") ? 1 : 0;
int md0 = dsp->api_ram ? (dsp->api_ram[4] & 0xff) : 0, md1 = dsp->api_ram ? (dsp->api_ram[0x18] & 0xff) : 0;
if (dj && (calypso_rhea_dma_one_shot() || md0 == 6 || md1 == 6 || (fn >= 300 && fn <= 312)))
printf(" [inj] fn=%u p51=%u AVANT : type=%c n_iq=%d dma armee=%d one_shot=%d task_md=%d/%d rif=%d mots idle=%d pc=%04x"
" | W0=%04x %04x %04x %04x %04x ..%04x %04x W1=%04x %04x %04x %04x %04x ..%04x %04x NDB page=%04x fb_mode=%04x fb_det=%04x\n",
fn, fn % 51u, t_dbg, n_iq, calypso_rhea_dma_rx_armed(), calypso_rhea_dma_one_shot(), md0, md1, calypso_rif_level(), dsp->idle, dsp->pc & 0xffff,
dsp->api_ram[0], dsp->api_ram[1], dsp->api_ram[2], dsp->api_ram[3], dsp->api_ram[4], dsp->api_ram[15], dsp->api_ram[16],
dsp->api_ram[0x14], dsp->api_ram[0x15], dsp->api_ram[0x16], dsp->api_ram[0x17], dsp->api_ram[0x18], dsp->api_ram[0x14+15], dsp->api_ram[0x14+16],
dsp->api_ram[0xd4], dsp->api_ram[0xd4+37], dsp->api_ram[0xd4+36]); }
memcpy(g_dernier_iq, iq, (size_t)n_iq * sizeof(int16_t)); g_dernier_n_iq = n_iq;
calypso_bsp_rx_burst(0, fn, iq, n_iq);
{ static int dj2 = -1; if (dj2 < 0) dj2 = calypso_getenv("PONT_DEBUG_INJ") ? 1 : 0;
if (dj2 && fn >= 300 && fn <= 312)
printf(" [inj] fn=%u APRES : rif=%d mots idle=%d IFR=%04x\n", fn, calypso_rif_level(), dsp->idle, dsp->ifr); }
if (dbg) { printf(" [irq] fn=%u APRES rx_burst : idle=%d pc=%04x INTM=%d IMR=%04x IFR=%04x SP=%04x\n",
fn, dsp->idle, dsp->pc & 0xffff, !!(dsp->st1 & 0x800), dsp->imr, dsp->ifr, dsp->sp); irqdbg_n++; }
(*injectes)++;
}
/* Register of active hacks. Every departure from native behaviour (canned TOA,
* forced AFC rotation, direct feed, locks, ...) is listed by hacks_actifs() and
* printed on every milestone line: a milestone reached with a non-empty list is
* not a native milestone. The stimulus (synthetic cell) is reported separately,
* being test input rather than a crutch. */
/* SB encoder: exact inverse of l1s_decode_sb (prim_fbsb.c), identical to
* shunt_encode_sb in qemu-calypso. Maps {bsic, T1, T2, T3} to the 25-bit sb
* word; the firmware reads sb = a_sch[3] | a_sch[4]<<16, then bsic = (sb>>2)
* & 0x3f, and so on (GSM 45.002 SCH layout). */
static uint32_t pont_encode_sb(uint8_t bsic, uint16_t t1, uint8_t t2, uint8_t t3)
{
uint8_t t3p = (t3 == 0) ? 0 : (uint8_t)((t3 - 1) / 10);
uint32_t sb = 0;
sb |= ((uint32_t)(bsic & 0x3f)) << 2;
sb |= ((uint32_t)(t1 & 0x001)) << 23;
sb |= ((uint32_t)(t1 & 0x1fe)) << 7;
sb |= ((uint32_t)(t1 & 0x600)) >> 9;
sb |= ((uint32_t)(t2 & 0x1f)) << 18;
sb |= ((uint32_t)(t3p & 1)) << 24;
sb |= ((uint32_t)(t3p & 6)) << 15;
return sb;
}
/* [2026-09-21] CADENCEMENT, PAS BEQUILLE.
*
* STREAM et LOCKSTEP figuraient parmi les bequilles ; ils n'y ont pas leur
* place. Aucun des deux ne falsifie une mesure : ils font cohabiter un DSP
* emule, qui coute ~6,7 ms par trame, avec une BTS en temps reel dont la trame
* dure 4,615 ms.
* - sans LOCKSTEP, QEMU avance a l'horloge murale et saute les trames que le
* DSP n'a pas finies : releve du 2026-09-21, « 2170 sauts, 3440 trames
* jouees », soit 39 % de perte ;
* - sans STREAM, chaque burst part vers le RIF des son arrivee : 217 bursts
* par seconde pour ~89 ticks, la ROM compte ~1526 symboles par trame au
* lieu de 1250, son TOA ne se stabilise jamais (2967, 3735, 4215, 48,
* 13536 sur un meme run) et le pipeline se desaligne (« BURST ID 3!=2 »,
* « EMPTY »).
* La vraie bequille etait ailleurs : le mode cadence ne livrait que TS0 et
* bourrait les sept autres intervalles a zero. C'est corrige (calypso_bsp.c,
* bsp_autres_stocker/bsp_autres_bits) : la trame remise au DSP porte
* maintenant ce que la BTS a reellement emis sur les huit intervalles.
*
* Ils restent affiches, mais sur leur propre ligne. */
static const char *cadencement_actif(void)
{
static char buf[128]; buf[0] = 0;
const char *s1 = calypso_getenv("CALYPSO_BSP_STREAM");
const char *s2 = calypso_getenv("CALYPSO_PONT_LOCKSTEP");
if (s1 && *s1 == '1') strcat(buf, "STREAM ");
if (s2 && *s2 == '1') strcat(buf, "LOCKSTEP ");
return buf[0] ? buf : "aucun (le DSP ne suivra pas le temps reel)";
}
static const char *hacks_actifs(void)
{
static char buf[512]; buf[0] = 0;
struct { const char *env, *tag; int mode; } t[] = { /* mode 0: set and non-empty; 1: =="1"; 2: =="0"; 3: integer != 0; 4: integer >= 0 */
{"PONT_CAN_TOA","CAN_TOA",4}, {"PONT_CAN_SB_TOA","CAN_SB_TOA",4}, {"PONT_CAN_SB","CAN_SB_FULL",0},
{"CALYPSO_TWL3025_AFC_HZ","AFC_HZ",3}, {"CALYPSO_TWL3025_AFC","AFC_OFF",2},
{"CALYPSO_TWL3025_AFC_SIGN_OLD","AFC_SIGN_OLD",0},
{"CALYPSO_BSP_VEC30","VEC30",1},
{"CALYPSO_BSP_RX_LEAD","RX_LEAD",3}, {"CALYPSO_BSP_TPU_TRACK","TPU_TRACK",1},
{"CALYPSO_BSP_TOA_LOCK","TOA_LOCK",1},
{"CALYPSO_BSP_IQ_PASSTHROUGH","IQ_SYNTH",2},
{"CALYPSO_RHEA_DMA_XFER","RHEA_DMA",1}, {"CALYPSO_BSP_RX_VEC","RX_VEC",0},
{"CELLULE_SCH_ONLY","SCH_ONLY",1}, {"CELLULE_SCH_AMPDIV","SCH_AMPDIV",3},
{"CALYPSO_FIXES","FIXES",0},
};
for (unsigned i = 0; i < sizeof t / sizeof t[0]; i++) {
const char *v = calypso_getenv(t[i].env); if (!v || !*v) continue;
int on = 0; long n = atol(v);
switch (t[i].mode) { case 0: on = 1; break; case 1: on = (*v=='1'); break; case 2: on = (*v=='0'); break;
case 3: on = (n != 0); break; case 4: on = (n >= 0); break; }
if (!on) continue;
size_t l = strlen(buf);
if (t[i].mode == 3 || t[i].mode == 4) snprintf(buf + l, sizeof buf - l, "%s%s=%ld", l ? "," : "", t[i].tag, n);
else snprintf(buf + l, sizeof buf - l, "%s%s", l ? "," : "", t[i].tag);
}
/* a decoder fix turned off is a departure from native too */
static const char *fx[] = {"NORM_SD","F7_DELAYED","MPY_MAC_LK","MACP_MACD","PAR_ST_DSTBAR","STL_STH_SHFT","XCCD","ADDSUB_XSHFT","FIRS_RPT","RPT_COUNT"};
for (unsigned i = 0; i < sizeof fx / sizeof fx[0]; i++) {
char e[64]; snprintf(e, sizeof e, "CALYPSO_FIX_%s", fx[i]); const char *v = calypso_getenv(e);
if (v && *v == '0') { size_t l = strlen(buf); snprintf(buf + l, sizeof buf - l, "%sFIX_%s=0", l ? "," : "", fx[i]); }
}
return buf[0] ? buf : "aucun";
}
/* PONT_NB_DEBUG=1: pages as seen at one instant of the frame (A = end of the
* ROM's frame ISR, G = PONT_GO received i.e. after the ARM's l1_sync, B = end
* of the frame). Who reads which W page and who writes which R page, when. */
static void sonde_pages(const char *quand, uint32_t fn, C54xState *dsp, const uint16_t *api_ram)
{
static int on = -1; static unsigned n;
if (on < 0) on = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
if (!on || n >= 240) return;
const uint16_t *w0 = &api_ram[API_W_PAGE(0) / 2], *w1 = &api_ram[API_W_PAGE(1) / 2];
const uint16_t *r0 = &api_ram[API_R_PAGE(0) / 2], *r1 = &api_ram[API_R_PAGE(1) / 2];
if (!(w0[0] == 24 || w1[0] == 24 || r0[0] == 24 || r1[0] == 24)) return;
n++;
printf(" [pg%s] fn=%u p51=%u W0=%u/%u W1=%u/%u R0=%u/%u R1=%u/%u dsp_page=%04x idle=%d pc=%04x IFR=%04x IMR=%04x INTM=%d irq_trame=%d dma_armee=%d\n",
quand, fn, fn % 51u, w0[0], w0[1], w1[0], w1[1], r0[0], r0[1], r1[0], r1[1],
api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2], dsp->idle, dsp->pc & 0xffff, dsp->ifr, dsp->imr,
!!(dsp->st1 & 0x800), g_tick_irq_trame, calypso_rhea_dma_rx_armed());
}
/* PONT_NB_DEBUG=1, after a normal burst: look for the demodulated bits in the
* DSP data memory. Two templates, the 116 data bits (57+hl, hu+57) and the
* whole 148-bit burst, matched against the sign of each int16 word (soft bits,
* both polarities) and against hard 0/1 words. Reports the best run. */
static uint32_t g_insn_a, g_insn_b;
static void sonde_bits(uint32_t fn, C54xState *dsp, uint8_t bsic)
{
static int on = -1; static unsigned n;
if (on < 0) on = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
if (!on || n >= 40) return;
uint8_t bits[148];
if (cellule_bits_attendus(fn, bsic, bits) < 0) return;
uint8_t t116[116]; memcpy(t116, bits + 3, 58); memcpy(t116 + 58, bits + 87, 58);
const struct { const uint8_t *t; int len; const char *nom; } tpl[2] = { { t116, 116, "116 data" }, { bits, 148, "148 burst" } };
n++;
printf(" [scan] fn=%u p51=%u burst %d :", fn, fn % 51u, (int)((fn % 51u % 10 - 2) & 3));
for (int k = 0; k < 2; k++) {
int best[3] = {0,0,0}; unsigned bad[3] = {0,0,0};
for (unsigned a = 0x60; a + tpl[k].len < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0, m2 = 0;
for (int i = 0; i < tpl[k].len; i++) {
int16_t v = (int16_t)dsp->data[a + i];
int neg = v < 0, one = (v == 1), zero = (v == 0);
if ((v < 0) == (tpl[k].t[i] != 0)) m0++;
if ((v > 0) == (tpl[k].t[i] != 0)) m1++;
if ((one && tpl[k].t[i]) || (zero && !tpl[k].t[i])) m2++;
}
if (m⟨1⟩ > best[⟨2⟩]) { best[⟨3⟩] = m⟨4⟩; bad[⟨5⟩] = a; } ×3
⟨⟩ = (0,0,0,0,0) (1,1,1,1,1) (2,2,2,2,2)
}
printf(" %s: neg=1 %d/%d @%04x pos=1 %d/%d @%04x hard %d/%d @%04x |", tpl[k].nom,
best[0], tpl[k].len, bad[0], best[1], tpl[k].len, bad[1], best[2], tpl[k].len, bad[2]);
}
/* the ROM's burst buffer at 0x2be2 (found by this scan: 146/148 on good
* bursts): mismatch map, one char per bit, '.' ok, 'x' wrong, '|' at the
* data/TSC boundaries */
{ char map[160]; int k = 0, err = 0;
for (int i = 0; i < 148; i++) {
if (i == 3 || i == 61 || i == 87 || i == 145) map[k++] = '|';
int16_t v = (int16_t)dsp->data[0x2be2 + i];
int ok = ((v > 0) == (bits[i] != 0)); if (!ok) err++;
map[k++] = ok ? '.' : 'x';
}
map[k] = 0;
/* the same buffer against the two previous bursts: a demod deferred to
* the next frame's ISR would leave burst N-1 here at the end of frame N */
int e1 = -1, e2 = -1; uint8_t pb[148];
if (cellule_bits_attendus(fn - 1, bsic, pb) == 0) { e1 = 0; for (int i = 0; i < 148; i++) if ((((int16_t)dsp->data[0x2be2 + i]) > 0) != (pb[i] != 0)) e1++; }
if (cellule_bits_attendus(fn - 2, bsic, pb) == 0) { e2 = 0; for (int i = 0; i < 148; i++) if ((((int16_t)dsp->data[0x2be2 + i]) > 0) != (pb[i] != 0)) e2++; }
/* regions of the data memory the demod wrote during phase B (beyond the
* DARAM burst buffer and the API pages), with a few values each */
{ char z[900]; int k = 0; unsigned a = 0x60;
while (a < C54X_DATA_SIZE && k < 800) {
if (dsp->data[a] != g_data_avant_b[a]) {
unsigned b = a; while (b < C54X_DATA_SIZE && b - a < 4096 && (dsp->data[b] != g_data_avant_b[b] || (b + 1 < C54X_DATA_SIZE && dsp->data[b+1] != g_data_avant_b[b+1]))) b++;
k += snprintf(z + k, sizeof z - k, " %04x+%u", a, b - a); a = b;
} else a++;
}
{ const char *d = calypso_getenv("PONT_NB_HIST"); static unsigned nz;
if (d && nz < 12) { char nom[256]; snprintf(nom, sizeof nom, "%s/zones_%u.txt", d, fn); FILE *f = fopen(nom, "w");
if (f) { for (unsigned q = 0x60; q < C54X_DATA_SIZE; q++) if (dsp->data[q] != g_data_avant_b[q]) fprintf(f, "%04x %04x %04x\n", q, g_data_avant_b[q], dsp->data[q]); fclose(f); nz++; } } }
printf(" [zones] fn=%u flags(OVA=%d OVB=%d C=%d TC=%d OVM=%d FRCT=%d SXM=%d) ecrites:%s\n", fn,
g_flags_entree & 1, !!(g_flags_entree & 2), !!(g_flags_entree & 4), !!(g_flags_entree & 8), !!(g_flags_entree & 16), !!(g_flags_entree & 32), !!(g_flags_entree & 64), z); }
if (g_snap_ok) { int es = 0; for (int i = 0; i < 148; i++) if ((((int16_t)g_snap_2be2[i]) > 0) != (bits[i] != 0)) es++;
printf(" [scan] fn=%u 2be2 au pas 12800 (avant le decodeur) : erreurs=%d\n", fn, es); g_snap_ok = 0; }
printf(" [scan] fn=%u marge=%d tsc=%d dec=%.2f phase=%.1f rif=%d 2be2 erreurs=%d (vs N-1: %d, N-2: %d) insnA=%u insnB=%u %s v[0..3]=%d %d %d %d\n", fn, cellule_marge_nb, cellule_tsc_force, cellule_dec_nb, cellule_phase_nb, calypso_rif_level(), err, e1, e2, g_insn_a, g_insn_b, map,
(int16_t)dsp->data[0x2be2], (int16_t)dsp->data[0x2be3], (int16_t)dsp->data[0x2be4], (int16_t)dsp->data[0x2be5]); }
/* after burst 3: the decoder's vectors. Search the whole data memory for
* the 456 coded bits in deinterleaved order and for the 184 information
* bits, as signs of int16 words and as hard 0/1 words. */
{ uint8_t code[456], info[184];
if (((fn % 51u) % 10u - 2) % 4 == 3 && cellule_bloc_attendu(fn, bsic, code, info) == 0) {
const struct { const uint8_t *t; int len; const char *nom; } tp[2] = { { code, 456, "456 codes" }, { info, 184, "184 info" } };
printf(" [bloc] fn=%u :", fn);
for (int k = 0; k < 2; k++) {
int best[3] = {0,0,0}; unsigned bad[3] = {0,0,0};
for (unsigned a = 0x60; a + tp[k].len < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0, m2 = 0;
for (int i = 0; i < tp[k].len; i++) {
int16_t v = (int16_t)dsp->data[a + i];
if ((v < 0) == (tp[k].t[i] != 0)) m0++;
if ((v > 0) == (tp[k].t[i] != 0)) m1++;
if ((v == 1 && tp[k].t[i]) || (v == 0 && !tp[k].t[i])) m2++;
}
if (m⟨1⟩ > best[⟨2⟩]) { best[⟨3⟩] = m⟨4⟩; bad[⟨5⟩] = a; } ×3
⟨⟩ = (0,0,0,0,0) (1,1,1,1,1) (2,2,2,2,2)
}
printf(" %s: neg=1 %d/%d @%04x pos=1 %d/%d @%04x hard %d/%d @%04x |", tp[k].nom,
best[0], tp[k].len, bad[0], best[1], tp[k].len, bad[1], best[2], tp[k].len, bad[2]);
}
/* also the coded bits packed 16 per word (MSB first) */
{ int bestp = 0; unsigned badp = 0;
for (unsigned a = 0x60; a + 29 < C54X_DATA_SIZE; a++) {
int m = 0;
for (int i = 0; i < 456; i++) { int bit = (dsp->data[a + i / 16] >> (15 - i % 16)) & 1; if (bit == code[i]) m++; }
if (m > bestp) { bestp = m; badp = a; } }
printf(" packed %d/456 @%04x", bestp, badp);
int pb[4] = {0,0,0,0};
for (int i = 0; i < 456; i++) { int bit = (dsp->data[badp + i / 16] >> (15 - i % 16)) & 1; if (bit == code[i]) pb[i & 3]++; }
printf(" par burst %d %d %d %d /114", pb[0], pb[1], pb[2], pb[3]); }
printf("\n");
/* the decoder input at 0x2a00 (the trellis loop reads pairs from AR1 = 0x2a00) */
if (g_snap_2a00_ok) { const char *d = calypso_getenv("PONT_NB_HIST"); if (d) { char nom[256]; snprintf(nom, sizeof nom, "%s/entree_%u.txt", d, fn); FILE *f = fopen(nom, "w"); if (f) { for (int i = 0; i < 456; i++) fprintf(f, "%d\n", (int16_t)g_snap_2a00[i]); fclose(f); } } }
if (g_snap_2a00_ok) { int mp = 0, mn = 0, m1 = 0, nz = 0; g_snap_2a00_ok = 0;
for (int i = 0; i < 456; i++) { int16_t v = (int16_t)g_snap_2a00[i]; if (v) nz++;
if ((v > 0) == (code[i] != 0)) mp++;
if ((v < 0) == (code[i] != 0)) mn++;
if ((v == 1) == (code[i] != 0)) m1++; }
printf(" [entree] fn=%u 0x2a00..+456 : nonzero=%d pos=1 %d/456 neg=1 %d/456 one=1 %d/456 | premiers:", fn, nz, mp, mn, m1);
for (int i = 0; i < 48; i++) printf(" %d", (int16_t)g_snap_2a00[i]);
printf("\n [entree] attendu :"); for (int i = 0; i < 48; i++) printf(" %d", code[i]); printf("\n");
/* per-burst view: bits k with k%4==b */
for (int b = 0; b < 4; b++) { int m = 0, n = 0; for (int i = b; i < 456; i += 4) { int16_t v = (int16_t)g_snap_2a00[i]; if (v) { n++; if ((v < 0) == (code[i] != 0)) m++; } }
printf(" [entree] burst %d : neg=1 %d/%d\n", b, m, n); } }
/* the 228 decoder output bits: best match over memory, hard words and LSB */
{ uint8_t u[228];
if (cellule_u228_attendu(fn, bsic, u) == 0) {
int best[2] = {0,0}; unsigned bad[2] = {0,0};
for (unsigned a = 0x60; a + 228 < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0;
for (int i = 0; i < 228; i++) { uint16_t v = dsp->data[a + i];
if ((v == 1 && u[i]) || (v == 0 && !u[i])) m0++;
if ((v & 1) == u[i]) m1++; }
if (m0 > best[0]) { best[0] = m0; bad[0] = a; } if (m1 > best[1]) { best[1] = m1; bad[1] = a; } }
printf(" [u228] fn=%u hard %d/228 @%04x lsb %d/228 @%04x | ", fn, best[0], bad[0], best[1], bad[1]);
/* mismatch map at 0x2d66 (hard) */
unsigned a = 0x2d66; int e = 0; char map[240]; int k = 0;
for (int i = 0; i < 228; i++) { uint16_t v = dsp->data[a + i]; int ok = (v == u[i]); if (!ok) e++; if (i == 184 || i == 224) map[k++] = '|'; map[k++] = ok ? '.' : (v > 1 ? '?' : 'x'); }
map[k] = 0; printf("2d66: %d faux %s\n", e, map);
/* packed forms of the 228 bits anywhere in memory: 16 per word MSB
* first, LSB first, and the same with each word bit-reversed */
{ const char *nm[4] = { "msb", "lsb", "msb-rev", "lsb-rev" }; printf(" [u228] fn=%u packed:", fn);
for (int f = 0; f < 4; f++) { int best = 0; unsigned bad = 0;
for (unsigned a = 0x60; a + 15 < C54X_DATA_SIZE; a++) { int m = 0;
for (int i = 0; i < 228; i++) { uint16_t w = dsp->data[a + i / 16]; int bi = i % 16;
int bit = (f == 0) ? (w >> (15 - bi)) & 1 : (f == 1) ? (w >> bi) & 1 : (f == 2) ? (w >> bi) & 1 : (w >> (15 - bi)) & 1;
if (bit == u[i]) m++; }
if (m > best) { best = m; bad = a; } }
printf(" %s %d/228 @%04x", nm[f], best, bad); }
printf(" | 2c3c:"); for (int i = 0; i < 16; i++) printf(" %04x", dsp->data[0x2c3c + i]); printf("\n"); } } }
} }
/* where did the delivered samples land in DARAM (AAD)? offset in words at
* which the ROM's buffer equals our frame, and how many words match */
{ uint16_t aad = calypso_rhea_dma_get_daram(); int best = 0, boff = 0;
for (int off = -8; off <= 8; off++) {
int m = 0;
for (int i = 0; i < g_dernier_n_iq; i++) {
int a = (int)aad + off + i; if (a < 0 || a >= C54X_DATA_SIZE) continue;
if ((int16_t)dsp->data[a] == g_dernier_iq[i]) m++;
}
if (m > best) { best = m; boff = off; }
}
int p0 = -1; for (int i = 0; i < 40; i++) if ((int16_t)dsp->data[aad + i] != 0) { p0 = i; break; }
{ /* runs of words that differ from what was delivered, at offset 0 */
char runs[256]; int k = 0, i = 0;
while (i < g_dernier_n_iq && k < 200) {
if ((int16_t)dsp->data[aad + i] != g_dernier_iq[i]) {
int j = i; while (j < g_dernier_n_iq && (int16_t)dsp->data[aad + j] != g_dernier_iq[j]) j++;
k += snprintf(runs + k, sizeof runs - k, " %d+%d(%d)", i, j - i, (int16_t)dsp->data[aad + i]); i = j;
} else i++;
}
runs[k] = 0;
int d_dma = 0; for (int q = 0; q < g_dernier_n_iq && q < 384; q++) if ((int16_t)g_daram_apres_dma[q] != g_dernier_iq[q]) d_dma++;
printf(" [daram] fn=%u differences apres la trame (mot+longueur(valeur)):%s | juste apres le DMA, avant la ROM : %d mots differents (aad=%04x)\n", fn, runs, d_dma, g_daram_aad); }
printf(" [daram] fn=%u aad=%04x livres=%d mots, identiques=%d a l'offset %d, premier mot non nul a +%d, mots 0..7: %d %d %d %d %d %d %d %d\n",
fn, aad, g_dernier_n_iq, best, boff, p0,
(int16_t)dsp->data[aad], (int16_t)dsp->data[aad+1], (int16_t)dsp->data[aad+2], (int16_t)dsp->data[aad+3],
(int16_t)dsp->data[aad+4], (int16_t)dsp->data[aad+5], (int16_t)dsp->data[aad+6], (int16_t)dsp->data[aad+7]); }
printf("\n");
}
static void servir(int fd, C54xState *dsp, uint16_t *api_ram, long insns, bool verbeux,
const char *iq_mode, int amp)
{
bool injecter = iq_mode && *iq_mode && strcmp(iq_mode, "none") != 0;
unsigned long injectes = 0;
const uint16_t *a_sync = &api_ram[(API_NDB + NDB_A_SYNC_DEMOD) / 2];
bool init_done = false;
if (g_verif_sonde < 0) g_verif_sonde = calypso_getenv("CALYPSO_BSP_VERIF") ? 1 : 0;
unsigned long trames = 0, irqs = 0, resets = 0;
uint64_t insns_total = 0;
const uint16_t *d_fb_det = &api_ram[(API_NDB + NDB_D_FB_DET) / 2];
/* [2026-09-19] a_sch was read from R page 0 ONLY, hardcoded, while the DSP
* writes its result to the page d_dsp_page designates, alternating. Stale
* page-0 content read as a result is exactly what produces SB decodes that
* are wrong yet REPEATABLE (measured: BSIC 44 six times, 22 five times out
* of 17, never the 32 the capture carries). The PONT_CAN_SB hack in this
* same file already writes BOTH pages, so the page was known to matter.
* Both are kept here and the live one is picked per frame. */
const uint16_t *a_sch_pg[2] = {
&api_ram[(API_R_PAGE(0) + RP_A_SCH) / 2],
&api_ram[(API_R_PAGE(1) + RP_A_SCH) / 2] };
const uint16_t *a_sch0 = a_sch_pg[0];
CalypsoPontMsg m;
if (recv(fd, &m, sizeof(m), 0) != (ssize_t)sizeof(m) || m.type != PONT_HELLO ||
m.a != CALYPSO_API_WORDS || m.b != CALYPSO_PONT_MAGIC) {
fprintf(stderr, "pont : poignee de main invalide (type=%u a=%u)\n", m.type, m.a);
return;
}
envoyer(fd, PONT_HELLO_OK, CALYPSO_API_WORDS, CALYPSO_PONT_MAGIC);
printf("pont : ARM connecte, API RAM %u mots, %ld insn/trame\n", CALYPSO_API_WORDS, insns);
fflush(stdout);
while (!g_stop) {
struct pollfd pfd = { .fd = fd, .events = POLLIN };
if (poll(&pfd, 1, 200) <= 0) {
continue;
}
ssize_t n = recv(fd, &m, sizeof(m), 0);
if (n != (ssize_t)sizeof(m)) {
printf("pont : ARM deconnecte (%zd)\n", n);
break;
}
switch (m.type) {
case PONT_RESET:
/* Same as qosmo-dsp: c54x_reset, running, boot driven by the ticks, d_dsp_page=0 */
c54x_reset(dsp);
dsp->running = true;
init_done = false;
api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2] = 0;
resets++;
printf("pont : RESET #%lu (DL_STATUS=0x%04x) fn=%u pc=0x%04x\n",
resets, m.a, g_c54x_exe_fn, dsp->pc);
break;
case PONT_TICK: {
g_c54x_exe_fn = m.a;
g_tick_irq_trame = (m.b & CALYPSO_PONT_TICK_IRQ_TRAME) != 0;
bool deux_phases = (m.b & CALYPSO_PONT_TICK_DEUX_PHASES) != 0;
bool done_envoye = false;
double t_tick = chrono_ms(), t_done_a = t_tick, t_go = t_tick, t_done = 0;
m.b &= 1u;
enreg_tick(dsp, api_ram, m.a, g_tick_irq_trame, deux_phases, insns);
enreg_api_diff(api_ram, m.a, 0);
calypso_bsp_set_tpu_offset((int)m.c); /* firmware RX window */
/* AFC relay, closing the loop. The ARM writes d_afc (word 15 of the W
* page) into the shared API RAM; on silicon the DSP serialises it to
* the TWL3025 over the TSP. Without this relay the sample rotation
* stays frozen and the frequency error never converges below the SB
* threshold. m.b carries d_dsp_page, bit 0 selecting the W page. */
{ unsigned wp = m.b & 1u;
int16_t dac = (int16_t)api_ram[(wp ? 0x14u : 0x00u) + 15u];
static int16_t prev; static int first = 1;
/* [2026-09-19] Measurement before any fix: the AFC DAC never settles,
* every correction is followed by a write of exactly -700
* (afc_initial_dac_value). The suspicion is the dual-page write the
* set_afc_dac filter already documents — page A holding the inherited
* init while page B carries the correction — with the filter guarding
* only against 0, not against -700. Print BOTH pages so the claim can
* be checked instead of assumed. */
{ static unsigned na;
int16_t d0 = (int16_t)api_ram[0x00u + 15u], d1 = (int16_t)api_ram[0x14u + 15u];
static int16_t p0 = 0x7fff, p1 = 0x7fff;
if ((d0 != p0 || d1 != p1) && na++ < 40)
printf(" [afc] fn=%u w_page=%u relaye=%d | page0=%d page1=%d\n",
m.a, wp, dac, d0, d1);
p0 = d0; p1 = d1; }
if (first || dac != prev) { calypso_twl3025_set_afc_dac(dac); prev = dac; first = 0; } }
{ static unsigned _to=0; if (calypso_getenv("PONT_TPU_DEBUG") && (_to<5 || _to%2000==0)) printf(" [tpu] fn=%u tpu_offset=%u\n", m.a, m.c); _to++; }
trace_armer();
if (g_trace_reste > 0 && g_trace_f && !g_trace_ouverte && !g_trace_pc_hi) {
/* wait for the first FB task posted by the ARM (W page 0 or 1) */
static int md_cible = -1;
if (md_cible < 0) { const char *e = calypso_getenv("PONT_TRACE_MD"); md_cible = (e && *e) ? atoi(e) : 5; }
if (api_ram[(API_W_PAGE(0) + WP_D_TASK_MD) / 2] == md_cible ||
api_ram[(API_W_PAGE(1) + WP_D_TASK_MD) / 2] == md_cible) {
g_trace_ouverte = true;
trace_cellules(dsp, true);
fprintf(g_trace_f, "# d_task_md=%d vu a fn=%u page=%u ; IMR=%04x IFR=%04x pc=%04x\n",
md_cible, m.a, m.b, dsp->imr, dsp->ifr, dsp->pc & 0xffff);
printf("pont : trace FB ouverte a fn=%u\n", m.a);
}
}
/* PONT_RX_APRES (default 1): deliver the burst AFTER the frame
* interrupt, as on silicon, where the TPU programs the RX window
* within the frame, the DSP arms DMA2 in the frame ISR, and the
* samples land afterwards. Injecting before the interrupt instead
* leaves DMA2 with ENABLE=0 when the RIF issues its RX request, and
* the SB job then decodes the previous tick's window. */
/* PONT_RX_MODE : milieu (default, see jouer_trame) | apres | avant.
* PONT_RX_APRES=0/1 is still honoured as avant/apres. */
static int rx_mode = -1; /* 0 = milieu, 1 = apres, 2 = avant */
if (rx_mode < 0) { const char *e = calypso_getenv("PONT_RX_MODE"); const char *a = calypso_getenv("PONT_RX_APRES");
rx_mode = (e && !strcmp(e, "apres")) ? 1 : (e && !strcmp(e, "avant")) ? 2
: (a && *a == '1') ? 1 : (a && *a == '0') ? 2 : 0; }
bool rx_apres = (rx_mode == 1);
if (rx_mode == 2 && injecter && init_done) injecter_burst(dsp, iq_mode, amp, m.a, &injectes);
/* Real chain: drain UDP socket 6702 (bursts from the bridge/BTS) and
* hand them to the DSP. This is the only source when synthetic
* injection is off, and a no-op when the socket is empty. */
if (init_done && rx_mode != 0) calypso_bsp_service(m.a);
g_inj.actif = (rx_mode == 0 && init_done);
g_inj.iq_mode = (rx_mode == 0 && injecter) ? iq_mode : NULL;
g_inj.amp = amp; g_inj.fn = m.a; g_inj.injectes = &injectes; g_inj.udp = (rx_mode == 0 && init_done);
uint32_t ninsn = 0;
bool init_avant = init_done;
uint32_t drapeaux = jouer_trame(dsp, insns, &init_done, &ninsn, deux_phases ? 1 : 0);
if (deux_phases) {
/* [2026-09-21] Phase A done: the ROM's frame ISR has written the
* R page (previous burst) and armed the window. Tell QEMU, which
* raises the ARM frame IRQ, waits for the end of l1_sync() and
* sends PONT_GO; only then is the burst of this frame delivered.
* That is the silicon order, and what keeps "BURST ID n!=m" and
* "EMPTY" (prim_rx_nb.c) away. */
sonde_pages("A", m.a, dsp, api_ram);
enreg_api_prendre(api_ram);
envoyer(fd, PONT_DONE, drapeaux & ~PONT_DONE_API_IRQ, ninsn);
t_done_a = chrono_ms();
bool go = false;
while (!g_stop && !go) {
struct pollfd pg = { .fd = fd, .events = POLLIN };
if (poll(&pg, 1, 2000) <= 0) { static unsigned nt; if (nt++ < 3) printf("pont : PONT_GO attendu (fn=%u)\n", m.a); continue; }
CalypsoPontMsg g;
ssize_t ng = recv(fd, &g, sizeof(g), 0);
if (ng != (ssize_t)sizeof(g)) { printf("pont : ARM deconnecte en attente de GO (%zd)\n", ng); g_stop = 1; break; }
if (g.type == PONT_GO) { go = true; t_go = chrono_ms(); }
else { static unsigned nx; if (nx++ < 3) printf("pont : message %u recu en attente de GO, ignore\n", g.type); }
}
if (!go) break;
sonde_pages("G", m.a, dsp, api_ram);
enreg_api_diff(api_ram, m.a, 1);
if (calypso_getenv("PONT_NB_DEBUG") && ((m.a % 51u) % 10u - 2) % 4 == 3 && m.a % 51u <= 5 &&
(api_ram[API_R_PAGE(0) / 2] == 24 || api_ram[API_R_PAGE(1) / 2] == 24)) {
static unsigned nq;
if (nq++ < 8) {
printf(" [garde] fn=%u avant le burst 3, bursts precedents en memoire :", m.a);
for (int b = 1; b <= 3; b++) {
uint8_t bits[148]; if (cellule_bits_attendus(m.a - b, 42, bits) < 0) continue;
uint8_t t116[116]; memcpy(t116, bits + 3, 58); memcpy(t116 + 58, bits + 87, 58);
int best[3] = {0,0,0}; unsigned bad[3] = {0,0,0};
for (unsigned a = 0x60; a + 116 < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0, m2 = 0;
for (int i = 0; i < 116; i++) { int16_t v = (int16_t)dsp->data[a + i];
if ((v < 0) == (t116[i] != 0)) m0++;
if ((v > 0) == (t116[i] != 0)) m1++;
if ((v == 1 && t116[i]) || (v == 0 && !t116[i])) m2++; }
if (m0 > best[0]) { best[0] = m0; bad[0] = a; } if (m1 > best[1]) { best[1] = m1; bad[1] = a; } if (m2 > best[2]) { best[2] = m2; bad[2] = a; }
}
/* packed 16 per word too */
int bestp = 0; unsigned badp = 0;
for (unsigned a = 0x60; a + 8 < C54X_DATA_SIZE; a++) { int mm = 0;
for (int i = 0; i < 116; i++) { int bit = (dsp->data[a + i / 16] >> (15 - i % 16)) & 1; if (bit == t116[i]) mm++; }
if (mm > bestp) { bestp = mm; badp = a; } }
printf(" b%d(fn %u): neg %d@%04x pos %d@%04x hard %d@%04x packed %d@%04x |", 3 - b, m.a - b, best[0], bad[0], best[1], bad[1], best[2], bad[2], bestp, badp);
}
printf("\n");
}
}
uint32_t n2 = 0;
g_insn_a = ninsn;
if (g_done_tot < 0) { const char *e = calypso_getenv("PONT_DONE_TOT"); g_done_tot = !(e && *e == '0'); }
g_reste_b = 0;
drapeaux = jouer_trame(dsp, insns, &init_done, &n2, 2);
ninsn += n2; g_insn_b = n2;
if (g_done_tot) {
/* DONE tout de suite : QEMU repart, le DSP finit la trame ici. */
envoyer(fd, PONT_DONE, drapeaux & ~PONT_DONE_API_IRQ, ninsn);
done_envoye = true;
t_done = chrono_ms();
if (g_reste_b > 0 && !dsp->idle && dsp->running) {
uint32_t av = dsp->insn_count;
c54x_run_profile(dsp, g_reste_b);
ninsn += dsp->insn_count - av;
}
g_reste_b = 0;
}
}
g_inj.actif = false;
sonde_pages("B", m.a, dsp, api_ram);
if (g_inj.dernier_type == 'B' && (api_ram[API_R_PAGE(0) / 2] == 24 || api_ram[API_R_PAGE(1) / 2] == 24)) sonde_bits(m.a, dsp, 42);
/* Reference probe (CALYPSO_BSP_VERIF=1): compare DARAM against the
* burst the BSP was handed, AFTER the DSP has run — the samples
* only reach DARAM through the DSP's own DMA draining the RIF, so
* there is nothing to compare before jouer_trame. */
if (g_verif_sonde) {
uint32_t vfn = 0; uint16_t vad = 0; int vn = 0, vage = 0;
int ident = calypso_bsp_verif_compare(&vfn, &vad, &vn, &vage);
if (ident >= 0 && vn > 0) {
static unsigned nv;
if (nv++ < 4000) {
uint16_t vpg = calypso_bsp_verif_last_page();
printf(" [verif] fn=%u p51=%u age=%d page=0x%04x w_page=%d : "
"%d/%d en 0x%04x %s\n",
vfn, vfn % 51u, vage, vpg, (int)(vpg & 1u),
ident, vn, vad, ident == vn ? "VALIDE" : "partiel");
}
}
}
if (rx_apres && injecter && init_done && dsp->running) {
injecter_burst(dsp, iq_mode, amp, m.a, &injectes);
/* DMA completion inside the same frame: wake on the held INT10n
* line, then let the DSP run the completion ISR and background
* work through to IDLE. */
uint32_t avant = dsp->insn_count;
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) &&
!(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
if (!dsp->idle) c54x_run_profile(dsp, (int)insns);
ninsn += dsp->insn_count - avant;
}
/* [2026-09-20] STREAM PUMP (same as rejouer.c). DMA2 now fills its
* double buffer with full pages and interrupts once per pair; the
* ROM's ISR consumes both halves and the DSP idles. Then the next
* pair is handed over, until the receiver holds less than a pair. A
* 156.25-symbol frame is 3.25 pages, so this runs 1 or 2 times. */
for (int k = 0; k < 40 && dsp->running; k++) { /* 13 page pairs per 1250-symbol frame */
/* [2026-09-29] un SCH garde parce que la DMA n'etait pas armee au
* depot est relivre ici, des que la ROM (phase B) l'a armee. */
calypso_bsp_sb_retenter();
if (!calypso_rhea_dma_pump(dsp)) break;
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
uint32_t av2 = dsp->insn_count;
if (!dsp->idle) c54x_run_profile(dsp, (int)insns / 4);
ninsn += dsp->insn_count - av2;
drapeaux = (drapeaux & ~PONT_DONE_IDLE) | (dsp->idle ? PONT_DONE_IDLE : 0);
}
drapeaux = (drapeaux & ~PONT_DONE_IDLE) | (dsp->idle ? PONT_DONE_IDLE : 0);
/* [2026-09-20] NB probe (PONT_NB_DEBUG=1): what the ROM leaves in the
* R pages for a normal-burst task (ALLC/BCCH), per burst: d_task_d,
* d_burst_d, a_serv_demod (TOA, PM, ANGLE, SNR) and, on burst 3,
* the a_cd header of the NDB (Fire/CRC word, bit errors) plus the
* first decoded octets. Read alongside mobile's "Dropping frame
* with N bit errors". */
{
static int nbdbg = -1; static unsigned nbn;
if (nbdbg < 0) nbdbg = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
/* [2026-09-22] Plafond porte de 400 a 20000 : les 400 etaient
* consommees par le campement avant toute connexion dediee,
* et la sonde etait donc muette quand on en avait besoin. */
if (nbdbg && nbn < 20000) {
static uint16_t prev[2][4];
for (int pg = 0; pg < 2; pg++) {
const uint16_t *r = &api_ram[API_R_PAGE(pg) / 2];
uint16_t cur[4] = { r[RP_D_TASK_D/2], r[RP_D_BURST_D/2], r[RP_A_SERV_DEMOD/2 + D_TOA], r[RP_A_SERV_DEMOD/2 + D_PM] };
if (r[RP_D_TASK_D/2] && memcmp(cur, prev[pg], sizeof cur)) {
const uint16_t *w0 = &api_ram[API_W_PAGE(0) / 2], *w1 = &api_ram[API_W_PAGE(1) / 2];
printf(" [nb] fn=%u p51=%u R%d task_d=%u burst_d=%u TOA=%d PM=%d ANGLE=%d SNR=%u | W0 task_d=%u burst=%u W1 task_d=%u burst=%u | livre=%c n_iq=%d one_shot=%d len=%u mots",
m.a, m.a % 51u, pg, r[RP_D_TASK_D/2], r[RP_D_BURST_D/2],
(int16_t)r[RP_A_SERV_DEMOD/2 + D_TOA], (int16_t)r[RP_A_SERV_DEMOD/2 + D_PM],
(int16_t)r[RP_A_SERV_DEMOD/2 + D_ANGLE], r[RP_A_SERV_DEMOD/2 + D_SNR],
w0[0], w0[1], w1[0], w1[1], g_inj.dernier_type, g_inj.dernier_n_iq,
calypso_rhea_dma_one_shot(), calypso_rhea_dma_get_len_words());
if (r[RP_D_BURST_D/2] == 3) {
const uint16_t *cd = &api_ram[(API_NDB + NDB_A_CD) / 2];
printf(" | a_cd=%04x %04x %04x :", cd[0], cd[1], cd[2]);
for (int k = 3; k < 15; k++) printf(" %04x", cd[k]);
}
printf("\n"); nbn++;
}
memcpy(prev[pg], cur, sizeof cur);
}
}
}
/* Canned results: scaffolding to prove the pipeline through to the
* LU, not an end state. PONT_CAN_TOA=23 forces the reported TOA
* (a_sync_demod[D_TOA]) to the on-time value the firmware expects
* (prim_fbsb.c subtracts 23). Drop it once the correlator's native
* TOA is correct. -1, the default, disables canning. */
{
static int can_toa = -2;
if (can_toa == -2) { const char *e = calypso_getenv("PONT_CAN_TOA"); can_toa = (e && *e) ? atoi(e) : -1; }
if (can_toa >= 0 && *d_fb_det)
api_ram[(API_NDB + NDB_A_SYNC_DEMOD) / 2 + D_TOA] = (uint16_t)can_toa;
/* SB: the firmware reads a_serv_demod[D_TOA] from the read page
* and expects about 4. PONT_CAN_SB_TOA=4 pins it on both R
* pages, which frames the SCH correctly. */
static int can_sb = -2;
if (can_sb == -2) { const char *e = calypso_getenv("PONT_CAN_SB_TOA"); can_sb = (e && *e) ? atoi(e) : -1; }
if (can_sb >= 0) {
api_ram[(API_R_PAGE(0) + RP_A_SERV_DEMOD) / 2 + D_TOA] = (uint16_t)can_sb;
api_ram[(API_R_PAGE(1) + RP_A_SERV_DEMOD) / 2 + D_TOA] = (uint16_t)can_sb;
}
/* Full SB canning (PONT_CAN_SB=<bsic>): write the SB result
* (a_sch) with CRC OK, the BSIC and the real frame number, the
* way qemu-calypso's shunt_encode_sb does. The frame number comes
* from the last delivered burst (real BTS, via
* calypso_bsp_get_last_fn) or from m.a. Applies only when the ARM
* asks for SB (d_task_md=6 on a W page) and on an SCH frame,
* fn%51 in {1,11,21,31,41}. */
static int can_sb_full = -2, can_sb_bsic = 7;
if (can_sb_full == -2) { const char *e = calypso_getenv("PONT_CAN_SB"); can_sb_full = (e && *e) ? 1 : 0; if (e && *e) can_sb_bsic = atoi(e) & 0x3f; }
if (can_sb_full) {
int md0 = api_ram[4] & 0xff, md1 = api_ram[0x18] & 0xff; /* d_task_md on W pages 0 and 1 */
if (md0 == 6 || md1 == 6) {
/* [2026-09-19] The frame MUST be the tick's own (m.a), not
* calypso_bsp_get_last_fn(): measured, the two diverged badly
* (the canned SB announced fn=5662 while the firmware sat at
* 11261), and Synchronize_TDMA then locked the ARM onto a frame
* number unrelated to what the injector delivers — every burst
* after the sync misaligned. A canned SB has to carry the clock
* the cell is actually generated from, or it proves nothing. */
uint32_t bfn = m.a;
uint32_t p51 = bfn % 51;
if (!(p51 % 10 == 1 && p51 <= 41)) bfn += (51 + 1 - (int)p51) % 51; /* snap to an SCH frame */
uint32_t sb = pont_encode_sb((uint8_t)can_sb_bsic, bfn / 1326, bfn % 26, bfn % 51);
for (int pg = 0; pg < 2; pg++) {
uint16_t *a = &api_ram[(API_R_PAGE(pg) + RP_A_SCH) / 2];
a[0] = 0x8000; /* B_SCH_CRC clear = CRC OK */
a[1] = 0x2034; /* echo value, as the DSP writes it */
a[3] = (uint16_t)(sb & 0xffff);
a[4] = (uint16_t)(sb >> 16);
}
static int nlog = 0;
if (nlog < 8) { printf(" [can-sb] fn=%u -> sb=0x%08x BSIC=%d (T1=%u T2=%u T3=%u) hacks=%s\n",
bfn, sb, can_sb_bsic, bfn/1326, bfn%26, bfn%51, hacks_actifs()); nlog++; }
}
}
}
if (*d_fb_det) calypso_bsp_toa_feedback((int)(int16_t)a_sync[0]); /* native TOA tracking loop */
/* [2026-09-21] LIEN MONTANT. Sous CALYPSO_DSP_EXTERN=1 la couche 1
* gr-gsm est desactivee, donc les hooks qui publiaient le montant
* (calypso_l1_do_rach_written / _page_written) sont des no-op et le
* RACH du mobile ne quittait jamais l'API RAM : pont.py comptait
* « UL bursts=0 rach=0 », aucune IMM ASS, aucun LU ACCEPT. On
* scrute ici la page W que l'ARM vient de remplir (m.b = d_dsp_page)
* et on alimente les memes side-bands /dev/shm qu'en montage grgsm. */
montant_scruter(api_ram, m.a, m.b & 1u);
trames++;
insns_total += ninsn;
if (drapeaux & PONT_DONE_API_IRQ) irqs++;
enreg_api_prendre(api_ram);
if (!done_envoye) envoyer(fd, PONT_DONE, drapeaux, ninsn);
{ double t_fin = chrono_ms(); chrono_trame(t_tick, t_done_a, t_go, t_done > 0 ? t_done : t_fin, t_fin, m.a); }
if (!init_avant && init_done) {
printf("pont : DSP boote (premier IDLE) fn=%u insn=%u\n", m.a, dsp->insn_count);
}
/* frame at which the ARM posts the FB/SB task (W0 word 4, W1 word 0x18) */
{ static int prev5 = -1, prev6 = -1, ncmd = 0;
int md0 = api_ram[4] & 0xff, md1 = api_ram[0x18] & 0xff;
int has5 = (md0 == 5 || md1 == 5), has6 = (md0 == 6 || md1 == 6);
if (has5 && prev5 != 1 && ncmd < 24) { printf(" [cmd] fn=%u tache FB postee par l'ARM\n", m.a); ncmd++; }
{ static int ncmd6; if (has6 && prev6 != 1 && ncmd6 < 60) { printf(" [cmd] fn=%u tache SB postee par l'ARM (W0 md=%d W1 md=%d)\n", m.a, md0, md1); ncmd6++; } }
if (has6 && prev6 != 1 && ncmd < 24) { printf(" [cmd] fn=%u tache SB postee par l'ARM\n", m.a); ncmd++; }
if (has6 && prev6 != 1) calypso_bsp_sb_trace(8); /* [2026-09-29] et autour de chaque tache SB */
prev5 = has5; prev6 = has6; }
{ static int fb_prev = 0; if (*d_fb_det && !fb_prev) { printf(" [jalon] fn=%u d_fb_det=1 hacks=%s\n", m.a, hacks_actifs());
calypso_bsp_sb_trace(60); } /* [2026-09-29] chaque SCH trace jusqu'aux tentatives SB */
fb_prev = *d_fb_det != 0; }
/* [2026-09-19] ONE LINE PER SB ATTEMPT. Everything upstream of the SB
* task is now measured correct — right frame, right window, right
* sample offset — yet the CRC passes in 0.4% of attempts. A decode
* that were simply broken would give 0%, so something DISCRIMINATES
* the rare successes. This logs, for every frame the ARM has an SB
* task posted, the TOA the FB left behind (a_sync[0], the value the
* firmware positions the window from) next to the CRC outcome, so
* the two populations can be compared directly. */
/* The a_sync cells are already cleared by the time the SB task is
* posted (measured: toa=pm=ang=0 on every attempt), so the FB result
* has to be LATCHED when d_fb_det rises and carried to the attempt. */
static int lat_toa, lat_pm, lat_ang; static uint32_t lat_fn;
{ static int fbl = 0;
if (*d_fb_det && !fbl) {
lat_toa = (int)(int16_t)a_sync[0]; lat_pm = a_sync[1];
lat_ang = (int)(int16_t)a_sync[2]; lat_fn = m.a;
}
fbl = *d_fb_det != 0; }
{ static int sb_prev = 0;
int md_0 = api_ram[4] & 0xff, md_1 = api_ram[0x18] & 0xff;
int sb_now = (md_0 == 6 || md_1 == 6);
if (sb_now && !sb_prev) {
static unsigned nsb;
if (nsb++ < 4000)
printf(" [sb] fn=%u p51=%u | FB a fn=%u toa=%d pm=%u ang=%d "
"| TOA-ROM=%d src=%s "
"| a_sch=%04x %s\n",
m.a, m.a % 51u, lat_fn, lat_toa, lat_pm, lat_ang,
g_toa_valeur,
g_toa_grille < 0 ? "?" : (g_toa_grille ? "GRILLE(0x0cce)" : "fine"),
a_sch0[0],
((a_sch0[0] & 0x8100) == 0x8000) ? "CRC_OK" : "crc_ko");
}
sb_prev = sb_now; }
/* CRC watched on BOTH R pages, and the page reported: reading page 0
* alone cannot tell a real decode from stale content. A genuine SCH
* gives the SAME BSIC every time (32 for cellule_reelle.bin); a
* value that changes at each hit is a 10-bit CRC passing by chance
* (1/1024) or a stale cell. */
/* [2026-09-19] Who writes a_sch at all? The DSP never does: the
* A_SCH-WR probe in c54x_mem.c (live, its ANGLE-WR neighbour fires)
* counted ZERO stores by the ROM to 0x0837..0x083b / 0x084b..0x084f.
* The only host writer is the PONT_CAN_SB block below, which is off.
* Yet the cells change. The remaining writer is the ARM, through the
* shared mapping, which no DSP-side probe can see -- so watch the
* VALUES from here and name the frame. */
/* [2026-09-19] Who maintains d_dsp_page? calypso_api.h: an armed page
* is B_GSM_TASK|page = 0x0002 or 0x0003; 0x0000 is the reset state
* l1s_reset_hw() writes (sync.c:165), and it also puts the firmware
* back on R page 0. Measured at 0x0000 on 39% of samples, because
* the FBSB loop restarts ~12000 times. On silicon the DSP re-arms
* the page itself; this names every transition and its writer. */
{ static uint16_t dpp; static int dfirst = 1; static unsigned ndp;
uint16_t dp = api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2];
if (!dfirst && dp != dpp && ndp < 40) {
printf(" [page] fn=%u d_dsp_page %04x -> %04x (%s)\n", m.a, dpp, dp,
(dp & 0x0002) ? ((dp & 1) ? "arme page 1" : "arme page 0")
: "NON ARME (etat de reset)");
ndp++;
}
dpp = dp; dfirst = 0; }
{ static uint16_t prev[2][5]; static int first = 1; static unsigned nch;
for (int pg = 0; pg < 2; pg++) {
const uint16_t *a = a_sch_pg[pg];
/* [2026-09-29] plafond 60 -> 600 et TOA de la page R : c'est la
* mesure du cadrage SB (un SCH bien pose lit TOA=23). */
if (!first && nch < 600 &&
(a[0] != prev[pg][0] || a[3] != prev[pg][3] || a[4] != prev[pg][4])) {
const uint16_t *rp = &api_ram[API_R_PAGE(pg) / 2];
printf(" [a_sch] fn=%u page=%d : %04x %04x %04x %04x -> "
"%04x %04x %04x %04x (d_dsp_page=%04x) TOA=%d PM=%d SNR=%u %s\n",
m.a, pg, prev[pg][0], prev[pg][1], prev[pg][3], prev[pg][4],
a[0], a[1], a[3], a[4],
api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2],
(int16_t)rp[RP_A_SERV_DEMOD/2 + D_TOA], (int16_t)rp[RP_A_SERV_DEMOD/2 + D_PM],
rp[RP_A_SERV_DEMOD/2 + D_SNR],
((a[0] & 0x8100) == 0x8000) ? "CRC_OK" : (a[0] & 0x0100) ? "crc_ko" : "");
nch++;
}
prev[pg][0]=a[0]; prev[pg][1]=a[1]; prev[pg][3]=a[3]; prev[pg][4]=a[4];
}
first = 0; }
{ static int crc_prev[2] = {1, 1};
for (int pg = 0; pg < 2; pg++) {
const uint16_t *a = a_sch_pg[pg];
/* [2026-09-19] The criterion (a[0] & 0x8100) == 0x8000 counts
* SATURATED ACCUMULATORS as CRC OK: a_sch[0] has been seen
* carrying plain numbers, and 0x8000 is exactly what a
* saturated accumulator stores (rejouer.c:923). Every "SB CRC
* OK" of this session rested on it, so it is replaced by a
* test the arithmetic cannot pass by accident: GSM 04.08
* bounds T2 <= 25 and T3' <= 4, so 6 of 32 T2 values and 3 of
* 8 T3' values are IMPOSSIBLE in a real SCH. */
uint32_t _sb = (uint32_t)a[3] | ((uint32_t)a[4] << 16);
unsigned _t2 = (_sb >> 18) & 0x1f;
unsigned _t3p = ((_sb >> 24) & 1) | ((_sb >> 15) & 6);
int _plausible = (_t2 <= 25) && (_t3p <= 4);
int crc_ok = ((a[0] & 0x8100) == 0x8000) && _plausible;
if (crc_ok && !crc_prev[pg]) {
uint32_t sb = (uint32_t)a[3] | ((uint32_t)a[4] << 16);
printf(" [jalon] fn=%u SB PLAUSIBLE page=%d BSIC=%u "
"a_sch=%04x %04x %04x %04x hacks=%s\n",
m.a, pg, (unsigned)((sb >> 2) & 0x3f),
a[0], a[1], a[3], a[4], hacks_actifs());
}
crc_prev[pg] = crc_ok;
} }
if ((trames % 217) == 0) {
profil_publier();
pcc_publier();
dump_publier(dsp);
}
if (verbeux || (trames % 217) == 0) {
printf(" fn=%-7u page=%u insn=%-7u %s%s%s d_fb_det=%-5u a_sch=%04x %04x %04x %04x"
" sync=%04x %04x %04x | trames=%lu irq=%lu iq=%lu\n",
m.a, m.b, ninsn,
(drapeaux & PONT_DONE_IDLE) ? "IDLE " : "occupe ",
(drapeaux & PONT_DONE_API_IRQ) ? "IRQ-API " : "",
(drapeaux & PONT_DONE_INIT) ? "" : "boot ",
*d_fb_det, a_sch0[0], a_sch0[1], a_sch0[2], a_sch0[3],
a_sync[0], a_sync[1], a_sync[2], trames, irqs, injectes);
if ((trames % (217*8)) == 0) printf(" hacks actifs : %s ; cadencement : %s ; stimulus : %s\n",
hacks_actifs(), cadencement_actif(), iq_mode ? iq_mode : "none");
}
fflush(stdout);
break;
}
case PONT_DCCH:
/* [2026-09-21] QEMU a lu le canal dedie dans le flux L1CTL du
* firmware (calypso_dcch_tap.c) : a = TN, b = genre, c = sous-voie.
* Le BSP en a besoin pour savoir quel intervalle de temps livrer :
* le pont lui envoie les huit, il n'en joue qu'un par tick, et sans
* ca c'est toujours TS0 - donc rien du SDCCH du mobile. */
printf("pont : canal dedie %s : TS%u SDCCH/%s SS=%u\n",
m.b == 0xFF ? "libere" : "arme", m.a, m.b ? "8" : "4", m.c);
calypso_bsp_set_dedie((int)m.a, (int)m.b, (int)m.c);
if (m.b == 0xFF || (int)m.a <= 0) {
montant_canal_libere();
}
break;
case PONT_BYE:
printf("pont : BYE\n");
return;
default:
fprintf(stderr, "pont : message inconnu type=%u\n", m.type);
break;
}
}
printf("pont : bilan de la session : %lu trames, %lu IRQ API, %lu reset, %llu insn\n",
trames, irqs, resets, (unsigned long long)insns_total);
montant_bilan();
}
int pont_serveur(C54xState *dsp, uint16_t *api_ram, const char *socket_path,
long insns, bool verbeux, const char *iq_mode, int amp)
{
signal(SIGINT, sur_signal);
signal(SIGTERM, sur_signal);
{ static int16_t rempl[2 * 148]; /* TS1..TS7 of the C0 carrier: dummy bursts */
cellule_factice(amp, 0.5, rempl);
calypso_bsp_set_remplissage(rempl, 2 * 148); }
int srv = socket(AF_UNIX, SOCK_SEQPACKET, 0);
if (srv < 0) {
fprintf(stderr, "pont : socket : %s\n", strerror(errno));
return 1;
}
struct sockaddr_un sa = { .sun_family = AF_UNIX };
snprintf(sa.sun_path, sizeof(sa.sun_path), "%s", socket_path);
unlink(socket_path);
if (bind(srv, (struct sockaddr *)&sa, sizeof(sa)) < 0 || listen(srv, 1) < 0) {
fprintf(stderr, "pont : bind/listen(%s) : %s\n", socket_path, strerror(errno));
close(srv);
return 1;
}
chmod(socket_path, 0666);
if (iq_mode && *iq_mode && strcmp(iq_mode, "none") != 0)
printf("pont : injection I/Q « %s » amplitude %d a chaque trame (DARAM 0x%04x, %u mots)\n",
iq_mode, amp, calypso_bsp_get_daram_addr(), calypso_bsp_get_daram_len());
printf("pont : en attente de l'ARM sur %s (API RAM : /dev/shm%s)\n"
" cote QEMU : CALYPSO_DSP_EXTERN=1 qemu-system-arm -M calypso ...\n",
socket_path, CALYPSO_PONT_SHM);
fflush(stdout);
while (!g_stop) {
struct pollfd pfd = { .fd = srv, .events = POLLIN };
if (poll(&pfd, 1, 200) <= 0) {
continue;
}
int fd = accept(srv, NULL, NULL);
if (fd < 0) {
continue;
}
servir(fd, dsp, api_ram, insns, verbeux, iq_mode, amp);
close(fd);
fflush(stdout);
}
close(srv);
unlink(socket_path);
return 0;
}6.16 /opt/GSM/c54x_exe/src/pont.h
1062 octets, 23 lignes → 23 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef PONT_H
#define PONT_H
#include <stdint.h>
#include <stdbool.h>
#include "calypso_c54x.h"
/* Allocates the C54xState with data[] page-aligned, then maps the shared segment
* OVER data[0x0800..0x27FF] (protocol in calypso_dsp_pont.h). Replaces
* c54x_init() in --arm mode; api_ram must then be &dsp->data[C54X_API_BASE]. */
C54xState *pont_allouer_dsp(void);
/* Serves QEMU's ARM: one connection after another, runs one frame per TICK,
* answers DONE. Returns only on SIGINT/SIGTERM.
* iq_mode: NULL/"none" = nothing, "fcch" = synthetic FCCH burst (+pi/2 rotation
* per sample, 1 sample/symbol), "noise" = noise, "tone:<dphi>" = dphi radians
* per sample, "cell[:bsic[:decalage[:marge]]]" = full 51-multiframe cell.
* amp = int16 amplitude (real FCCH bursts run at ~32500 rms). Injected on every
* frame through calypso_bsp_rx_burst(). */
int pont_serveur(C54xState *dsp, uint16_t *api_ram, const char *socket_path,
long insns, bool verbeux, const char *iq_mode, int amp);
#endif6.17 /opt/GSM/c54x_exe/src/rejouer.c
161845 octets, 2596 lignes → 2593 lignes (2 groupes compactés)
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* rejouer.c - deterministic replay of FB/SB acquisition on the real DSP.
*
* Two identical runs of the full bench (QEMU + osmocon + mobile) diverged: the
* ARM (TCG) advances at host speed between frame interrupts, so the frame on
* which it posts the FB task changes from run to run. Here the ARM is NOT
* emulated: its layer 1 is replayed in C (l1_sync + fb_sched_set/sb_sched_set
* from prim_fbsb.c/sync.c), injection is locked to the frame counter, and
* nothing reads the host clock. Same input => same output, always.
*
* This is not an operating mode: it is a DSP measurement bench (FB then SB)
* driven by the same command sequence as the real firmware.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <math.h>
#include "calypso_c54x.h"
#include "calypso_bsp.h"
#include "hw/arm/calypso/calypso_api.h"
#include "cellule.h"
#include "calypso_twl3025.h"
#include "calypso_rhea_dma.h"
#include "rejouer.h"
#include <osmocom/core/bits.h>
#include <osmocom/core/crcgen.h>
#include <osmocom/coding/gsm0503_parity.h>
#include "hw/arm/calypso/calypso_debug.h"
/* ---- API offsets in WORDS from the API base (= DSP 0x800) --------------- */
#define W_PAGE(p) ((p) ? 0x14u : 0x00u) /* T_DB_MCU_TO_DSP, 17 words */
#define R_PAGE(p) ((p) ? 0x3Cu : 0x28u) /* T_DB_DSP_TO_MCU, 20 words */
#define W_SIZE 17u
#define R_SIZE 20u
#define W_TASK_D 0u
#define W_TASK_MD 4u
#define W_CTRL_ABB 11u
#define W_AFC 15u
#define W_CTRL_SYS 16u
#define NDB 0xD4u
#define NDB_PAGE (NDB + 0u)
#define NDB_ERRSTAT (NDB + 1u)
#define NDB_FB_DET (NDB + 36u)
#define NDB_FB_MODE (NDB + 37u)
#define NDB_SYNC (NDB + 38u) /* a_sync_demod[TOA,PM,ANGLE,SNR] */
#define R_SERV 8u /* a_serv_demod[4] */
/* [2026-09-18] SYMBOL SAMPLING OFFSET. Replay sampled the GMSK at 0.0, i.e. on
* the symbol BOUNDARY, while the bridge uses 0.5, the CENTER. With the gaussian
* pulse of gmsk.c (BT=0.3), the weight of the target symbol in the phase
* difference between two consecutive samples is:
*
* offset target symbol previous neighbour next neighbour
* 0.0 0.454 0.023 0.492
* 0.25 0.590 0.069 0.333
* 0.5 0.653 0.158 0.189
*
* At 0.0 the NEXT neighbour outweighs the symbol being read: the offset is not
* noisy, it is UNDETERMINED, and the demodulator may latch onto either one. That
* accounts for offset=22 at margin=21, midamble at 56/63, data at 71-73/78 with
* otherwise perfect samples, and the correlation peak jumping between adjacent
* lags. */
/* Tunable for sweeps: 0.5 (symbol center) is argued above, but it is a
* hypothesis and the bench must be able to test it.
* REJEU_DECALAGE_SYMB=<x>, default 0.5. */
static double decalage_symb(void)
{
static double d = -1.0;
if (d < 0) { const char *e = calypso_getenv("REJEU_DECALAGE_SYMB");
d = (e && *e) ? atof(e) : 0.5;
if (d < 0 || d >= 1.0) d = 0.5; }
return d;
}
#define DECALAGE_SYMB decalage_symb()
/* Tunable head margin (REJEU_MARGE, default 21); the tail fills out to 190 complex samples */
static int marge_tete(void)
{
static int m = -1;
if (m < 0) { const char *e = calypso_getenv("REJEU_MARGE"); m = e ? atoi(e) : 21;
if (m < 0 || m > 41) m = 21;
cellule_marge_fin = 190 - 148 - m; }
return m;
}
#define R_SCH 15u /* a_sch[5] */
#define B_SCH_CRC 8
/* B_GSM_TASK comes from calypso_api.h (bit mask, (1u << 1)) */
#define B_AFC 4
#define FB_DSP_TASK 5
#define SB_DSP_TASK 6
#define BITS_PER_TDMA 1250 /* tpu.h: a TDMA frame is 8 x 156.25 = 1250 bit periods */
/* firmware thresholds (prim_fbsb.c: SNR not gating, #else FB*_SNR_THRESH=0) */
#define THRESH1 (11000 - 1000)
#define THRESH2 (1000 - 200)
#define AFC_RETRY_MAX 30
#define FB0_RETRY_MAX 3
/* sync.h: ANGLE_TO_FREQ(a) = a * BITFREQ_DIV_PI / ANG2FREQ_SCALING */
#ifndef BITFREQ_DIV_PI
#define BITFREQ_DIV_PI 86208 /* sync.h:203: 270kHz/pi */
#endif
#ifndef ANG2FREQ_SCALING
#define ANG2FREQ_SCALING (2<<15) /* sync.h:204: fx1.15 */
#endif
#define ANGLE2FREQ(a) ((int)(int16_t)(a) * BITFREQ_DIV_PI / ANG2FREQ_SCALING)
/* ---- replayed ARM state ------------------------------------------------- */
typedef void (*cb_t)(int attempt);
struct item { int frame; cb_t cb; int attempt; };
static uint16_t *api;
static C54xState *dsp;
static unsigned w_page, r_page, r_page_used;
static uint32_t fn_cur; /* l1s.current_time.fn */
static unsigned long histo_pc[64];
static unsigned long insn_total;
static unsigned char *vu_sb, *vu_hors;
static int16_t g_livre_iq[2*256]; static int g_livre_niq;
static char g_livre_type; static uint32_t g_livre_fn; static int g_livre_n;
static int afc_dac = -700; /* afc_initial_dac_value (compal) */
static int fb_mode, afc_retries, fb0_retries;
static struct item sched[32]; static int n_sched;
static struct { int toa, pm, angle, snr, freq_diff, attempt; uint32_t fnr; } fb;
static int verdict; /* 0 running, 1 SB OK, -1 gave up */
static uint32_t sb_word; static int sb_bsic; static uint32_t sb_fn;
static int n_fb_ok, n_sb_try, n_sb_crcfail, n_crc_ok, n_sb_vraies;
static int n_err_dsp, n_err8;
static long n_cmps_sb, n_cmps_hors, n_e0_sb, n_sttrn_sb;
static long n_e0x_sb[4];
static int n_firs_vus;
static long n_cmps_reg[64];
static long n_xc_reg[64];
static int n_xc_vus;
static int n_bal;
static int n_sat_vus;
static int n_ecr;
static int n_2a0;
static int g_bsic_injecte; /* BSIC actually transmitted by the cell */
static int trace;
static unsigned long hit_7c31, hit_9841, hit_84a1, hit_770a, hit_b219, hit_7a16;
static unsigned long hit_8478, hit_8492, hit_8493, hit_8497;
static unsigned long hit_7d1c, hit_7d1d, hit_7d1e, hit_81e4;
/* [2026-09-19] SB PATH OPCODE INVENTORY. The fault is confined to the window
* 0x84a1..0x8497, but which instruction is mis-emulated is unknown. Record the
* distinct opcodes executed inside the SB demod with their pass count and one
* witness PC: that gives a finite list to audit against SPRU172C instead of an
* intuition. REJEU_OPCODES=1. */
/* Environment flags read ONCE in rejouer(): calypso_getenv() inside the per-instruction
* loop was a linear scan of environ per emulated instruction. */
static int env_div, env_softs_continu, env_firs, env_probe_t, env_decodeur;
static uint16_t g_ad_avant;
static uint32_t g_vie_fn; static uint16_t g_vie_ad;
static int g_dans_sb; /* true between 0x7c31 (demod) and 0x9841 (decoder) */
static unsigned long g_op_n[65536];
static unsigned long g_op_dec[65536]; /* DECODER opcodes, region 0x9800-0x9bff */
static unsigned long g_op_eq[65536]; /* EQUALIZER opcodes, region 0x8400-0x84ff */
static unsigned long g_n_dec; /* number of decodes (passes at 0x9841) */
static uint16_t g_op_pc[65536];
static unsigned long g_op_tous[65536]; /* every executed opcode word, both paths */
/* [2026-09-18] REAL SCH BURSTS. Until now the DSP only ever saw our own
* fixture, a synthetic GMSK SCH at 1 sample/symbol, so "is the ROM sound, or is
* the fixture too poor for a coherent equalizer?" stayed open. Inject SCH bursts
* extracted from a REAL capture (ptrkrysik/test_data, ARFCN 725, USRP decimation
* 174 -> 574712.6 Hz) whose answer is known: BSIC=32, Viterbi decode with 0
* errors, valid CRC. REJEU_SCH_REEL=<file>. The framing is unchanged -- same
* margins, same timing -- ONLY the burst content differs. */
static int16_t (*g_reels)[296];
static uint8_t (*g_reels_code)[78]; /* the 78 bits actually transmitted */
static uint32_t *g_reels_fn; static uint16_t *g_reels_bsic;
static unsigned g_n_reels, g_reel_i;
static int g_reel_pour_fn[64]; /* which frame received which burst */
static int reels_charger(const char *chemin)
{
FILE *f = fopen(chemin, "rb");
if (!f) { fprintf(stderr, "SCH reels : %s illisible\n", chemin); return -1; }
uint32_t n = 0, nsym = 0, ncode = 0;
if (fread(&n, 4, 1, f) != 1 || fread(&nsym, 4, 1, f) != 1 ||
fread(&ncode, 4, 1, f) != 1 || nsym != 148 || ncode != 78 || !n) {
fprintf(stderr, "SCH reels : entete invalide\n"); fclose(f); return -1; }
g_reels = calloc(n, sizeof *g_reels);
g_reels_code = calloc(n, sizeof *g_reels_code);
g_reels_fn = calloc(n, sizeof *g_reels_fn);
g_reels_bsic = calloc(n, sizeof *g_reels_bsic);
if (!g_reels || !g_reels_code || !g_reels_fn || !g_reels_bsic) { fclose(f); return -1; }
for (uint32_t i = 0; i < n; i++) {
uint32_t fn; uint16_t bsic; uint8_t pad[2];
if (fread(&fn,4,1,f)!=1 || fread(&bsic,2,1,f)!=1 || fread(pad,1,2,f)!=2 ||
fread(g_reels[i], sizeof(int16_t), 296, f) != 296 ||
fread(g_reels_code[i], 1, 78, f) != 78) { n = i; break; }
g_reels_fn[i] = fn; g_reels_bsic[i] = bsic;
}
fclose(f); g_n_reels = n;
for (int i = 0; i < 64; i++) g_reel_pour_fn[i] = -1;
printf("SCH reels : %u bursts charges depuis %s (BSIC attendu %u)\n",
n, chemin, n ? g_reels_bsic[0] : 0);
return n ? 0 : -1;
}
/* Read PROGRAM space the way the core does: with OVLY set, DARAM 0x0060..0x27FF
* is aliased into program space, so reading dsp->prog[] directly misses the
* alias -- exactly the trap the FIRS probe must avoid. */
static uint16_t prog_ovly(C54xState *d, uint16_t a)
{
if ((d->pmst & (1u << 5)) && a >= 0x0060 && a < 0x2800) return d->data[a];
return d->prog[a];
}
static void plan(int delay, cb_t cb, int attempt)
{
if (n_sched >= 32) return;
sched[n_sched].frame = (int)fn_cur + delay;
sched[n_sched].cb = cb; sched[n_sched].attempt = attempt; n_sched++;
}
static void sched_reset(void) { n_sched = 0; }
static uint16_t *dbw(void) { return &api[W_PAGE(w_page)]; }
static uint16_t *dbr(void) { return &api[R_PAGE(r_page)]; }
/* ---- callbacks: faithful copy of prim_fbsb.c ---------------------------- */
static void fbdet_cmd(int unused);
static void fbdet_resp(int attempt);
static void sbdet_cmd(int attempt);
/* calypso_getenv("X") alone is TRUE even for X=0, so a line written
* `REJEU_SCH_PARTOUT=0 REJEU_SB_FORCE=0` enabled every hack instead of cutting
* them. Here "0", "", "non", "no" and "off" are false. */
static int drapeau_env(const char *nom)
{
const char *e = calypso_getenv(nom);
if (!e || !*e) return 0;
if (e[0] == '0' && e[1] == 0) return 0;
if (!strcmp(e, "non") || !strcmp(e, "no") || !strcmp(e, "off")) return 0;
return 1;
}
static void plan_sb_annule(void) { }
static void sbdet_resp(int attempt);
static void plan_fb_set(int delay, int mode)
{
fb_mode = mode;
plan(delay + 0, fbdet_cmd, 0);
for (int a = 1; a <= 12; a++) plan(delay + 1 + a, fbdet_resp, a);
}
static int sb_uniq(void)
{
static int u = -1;
if (u < 0) u = drapeau_env("REJEU_SB_UNIQUE") ? 1 : 0;
return u;
}
/* Last scheduled SB attempt: that one must restart an acquisition. Hardcoding
* it to "attempt == 2" leaves the bench silent under a single command, where
* that attempt does not exist. */
static int sb_dernier_essai(void) { return sb_uniq() ? 1 : 2; }
static void plan_sb_set(int delay)
{
/* [2026-09-18] The DSP demodulates the burst of the frame FOLLOWING the command
* (measured by perturbation: command at fn=11 -> only a perturbation at fn=12
* changes the softs). Posting on TWO consecutive frames therefore consumes f and
* f+1; SCH frames are 10 apart, so the second attempt always reads a DUMMY
* burst, which is half the measurements taken on a constant input.
* REJEU_SB_UNIQUE=1 posts a single command so every attempt sees a real SCH. */
plan(delay + 0, sbdet_cmd, 1);
if (!sb_uniq()) plan(delay + 1, sbdet_cmd, 2);
plan(delay + 3, sbdet_resp, 1);
if (!sb_uniq()) plan(delay + 4, sbdet_resp, 2);
}
static uint32_t g_sb_cmd_fn; /* frame of the LAST SB command = the one the DSP demodulates */
static uint32_t fb_cmd_fn; /* frame on which the ARM posted the FB task */
static void fbdet_cmd(int unused)
{
(void)unused;
fb_cmd_fn = fn_cur;
dbw()[W_TASK_MD] = FB_DSP_TASK;
api[NDB_FB_MODE] = (uint16_t)fb_mode;
}
static void fbdet_resp(int attempt)
{
if (!api[NDB_FB_DET]) {
if (attempt < 12) return;
sched_reset();
if (fb0_retries < FB0_RETRY_MAX) { fb0_retries++; plan_fb_set(1, 0); }
else verdict = -1;
return;
}
/* read_fb_result */
fb.toa = (int16_t)api[NDB_SYNC + 0];
fb.pm = (int16_t)api[NDB_SYNC + 1] >> 3;
fb.angle = (int16_t)api[NDB_SYNC + 2];
fb.snr = (int16_t)api[NDB_SYNC + 3];
fb.freq_diff = ANGLE2FREQ(fb.angle);
fb.fnr = fn_cur; fb.attempt = attempt;
api[NDB_FB_DET] = 0; api[NDB_SYNC + 0] = 0;
n_fb_ok++;
if (trace) {
/* real FCCH = first frame >= cmd with p51 in {0,10,20,30,40} */
uint32_t f = fb_cmd_fn; while ((f % 51) % 10 != 0 || (f % 51) > 40) f++;
int dframe = (int)(f - fb_cmd_fn); /* FCCH frame inside the window */
int toa_attendu = dframe * BITS_PER_TDMA + 23; /* what the firmware can read */
int ntdma_lu = (fb.toa - 23) / BITS_PER_TDMA;
printf(" FB%d att=%d fn=%u TOA=%d (df=%d) | cmd=%u FCCH reelle=%u (+%d trames) "
"=> TOA attendu ~%d, ntdma lu=%d au lieu de %d\n",
fb_mode, attempt, fn_cur, fb.toa, fb.freq_diff,
fb_cmd_fn, f, dframe, toa_attendu, ntdma_lu, dframe);
}
/* afc_correct: delta = (norm * err)/slope; slope compal_e88 = 287 */
afc_dac += (int)(((32768 / 947) * (long)fb.freq_diff) / 287);
if (afc_dac > 4095) afc_dac = 4095;
if (afc_dac < -4096) afc_dac = -4096;
sched_reset();
if (fb_mode == 0) {
if (abs(fb.freq_diff) < THRESH1) plan_fb_set(1, 1);
else if (afc_retries < AFC_RETRY_MAX) { afc_retries++; plan_fb_set(1, 0); }
else verdict = -1;
} else {
int toa = fb.toa - 23, ntdma, qbits;
if (toa < 0) { qbits = (toa + BITS_PER_TDMA) * 4; ntdma = -1; }
else { ntdma = toa / BITS_PER_TDMA; qbits = (toa - ntdma * BITS_PER_TDMA) * 4; }
int fn_offset = (int)fn_cur - attempt + ntdma;
int delay = fn_offset + 11 - (int)fn_cur - 1;
if (trace) printf(" -> toa-23=%d ntdma=%d qbits=%d delay=%d\n", toa, ntdma, qbits, delay);
if (abs(fb.freq_diff) < THRESH2) {
if (delay < 0) delay = 0;
if (delay > 20) delay = 20;
/* REJEU_SB_FORCE=1: aim at the NEXT SCH frame (p51 in {1,11,21,31,41})
* instead of the computed delay. Separates the DEMODULATOR from the
* TIMING: a CRC passing here means only the timing (ntdma) is at
* fault; a failure means the SB demodulation really is wrong. */
static int force = -1;
if (force < 0) force = drapeau_env("REJEU_SB_FORCE") ? 1 : 0;
if (force) {
uint32_t f = fn_cur + 1;
while (!((f % 51) % 10 == 1 && (f % 51) <= 41)) f++;
delay = (int)(f - fn_cur);
/* [2026-09-18] THE CONSUMED FRAME IS NOT THE FIRST COMMAND.
* plan_sb_set posts the task on TWO frames (delay+0 and delay+1) and the
* DSP demodulates the SECOND: measured by perturbing one raw sample,
* frame by frame, over fn 9..15 -- only fn=12 changes the soft bits read
* at fn=14/15, while [force] aimed at fn=11. The SCH was thus placed on
* frame 11 while the DSP demodulated frame 12, which carries a DUMMY
* burst (fixed pattern, 45.002 5.2.6), hence a CONSTANT input: frozen
* softs, identical range from frame to frame, and CRC OKs all returning
* the same word tens of frames apart. Stepping back one frame aligns the
* CONSUMED frame with the SCH. REJEU_SB_DECALAGE=<n> (default -1). */
{ static int d = -2; if (d == -2) { const char *e = calypso_getenv("REJEU_SB_DECALAGE");
d = e ? atoi(e) : -1; }
delay += d; if (delay < 0) delay = 0; }
if (trace) printf(" [force] SB vise fn=%u (p51=%u), delay=%d\n", f, f % 51, delay);
}
plan_sb_set(delay);
} else plan_fb_set(1, 1);
}
}
static void sbdet_cmd(int attempt)
{
g_sb_cmd_fn = fn_cur;
if (trace) { unsigned p = fn_cur % 51;
printf(" SBcmd att=%d fn=%u p51=%u %s\n", attempt, fn_cur, p,
(p % 10 == 1 && p <= 41) ? "<- trame SCH (bon)" : "<- PAS une trame SCH"); }
dbw()[W_TASK_MD] = SB_DSP_TASK;
api[NDB_FB_MODE] = 0;
if (trace) printf(" [SBcmd W] page=%u W=%04x %04x %04x %04x %04x ..%04x %04x NDB page=%04x fb_mode=%04x fb_det=%04x\n",
w_page, dbw()[0], dbw()[1], dbw()[2], dbw()[3], dbw()[4], dbw()[15], dbw()[16], api[NDB_PAGE], api[NDB_FB_MODE], api[NDB_FB_DET]);
}
static void sbdet_resp(int attempt)
{
n_sb_try++;
r_page_used = 1;
if (trace) {
/* SB demodulator internals (RE 9.4 and 9.19):
* 0x2f06 = correlation peak index
* 0x2bf8 = internal CRC flag
* 0x2c72 = THE 78 SOFT BITS. 0x2a00 is the 296-word FB correlator buffer, so
* reading it there yields only 0x0000 and 0xffff; the real softs at 0x2c72
* have varied magnitudes. Their range is printed too. */
{
int16_t mn = 32767, mx = -32768, nnul = 0;
for (int k = 0; k < 78; k++) {
int16_t v = (int16_t)dsp->data[0x2c72 + k];
if (v) nnul++;
if (v < mn) mn = v;
if (v > mx) mx = v;
}
/* THE FEED. Does the buffer the DSP demodulates really hold the
* delivered samples, and at which shift? Compare the BSP drop word by word
* with the last delivered burst and look for the best alignment: a maximum
* away from 0 means the burst is shifted; low everywhere means it is not
* our burst at all. */
if (calypso_getenv("REJEU_FEED")) {
uint16_t ad = calypso_bsp_get_daram_addr();
int nl = g_livre_niq;
int best = 0, bestn = -1, n0 = 0;
for (int sh = -80; sh <= 80; sh++) {
int m = 0;
for (int k = 0; k < nl; k++) {
int j = k + sh; if (j < 0 || j >= 2048) continue;
if ((int16_t)dsp->data[(ad + j) & 0x3fff] == g_livre_iq[k]) m++;
}
if (sh == 0) n0 = m;
if (m > bestn) { bestn = m; best = sh; }
}
printf(" [feed] fn=%u (livre fn=%u type=%c) addr=0x%04x len=%u nl=%d"
" identiques a shift0=%d/%d meilleur shift=%d avec %d/%d\n",
fn_cur, g_livre_fn, g_livre_type ? g_livre_type : '?', ad,
calypso_bsp_get_daram_len(), nl, n0, nl, best, bestn, nl);
}
/* [2026-09-18] PER-POSITION ERROR PROFILE. An aggregate percentage hides
* what discriminates: WHERE the errors fall. The 78 coded bits occupy
* symbols [3..41] and [106..144], the midamble sits at [42..105]. Errors at
* the EDGES = channel estimate right at the midamble and drifting away from
* it (phase ramp / too short an estimate). Uniform errors = wrong equalizer.
* ~0 errors under one polarity = good softs and a bug downstream. Compared
* against the frame ACTUALLY demodulated (last SB command), not the current
* frame. */
/* [2026-09-19] FIRS reads its input at 0x2a8e..0x2a9a (zone 0x2a00) while
* the BSP drops the burst at 0x0cce. Is that intermediate zone filled, and
* does it carry our burst? */
if (calypso_getenv("REJEU_ZONE2A")) {
uint16_t ad = calypso_bsp_get_daram_addr();
int nz0 = 0, nz2 = 0;
for (int k = 0; k < 296; k++) {
if (dsp->data[(ad + k) & 0x3fff]) nz0++;
if (dsp->data[(0x2a00 + k) & 0x3fff]) nz2++;
}
printf(" [zone] depot 0x%04x : %d/296 non nuls | zone 0x2a00 : %d/296 non nuls\n",
ad, nz0, nz2);
printf(" 0x%04x : %04x %04x %04x %04x %04x %04x\n", ad,
dsp->data[ad&0x3fff], dsp->data[(ad+1)&0x3fff], dsp->data[(ad+2)&0x3fff],
dsp->data[(ad+3)&0x3fff], dsp->data[(ad+4)&0x3fff], dsp->data[(ad+5)&0x3fff]);
printf(" 0x2a8e : %04x %04x %04x %04x %04x %04x (entree lue par FIRS)\n",
dsp->data[0x2a8e], dsp->data[0x2a8f], dsp->data[0x2a90],
dsp->data[0x2a91], dsp->data[0x2a92], dsp->data[0x2a93]);
}
if (calypso_getenv("REJEU_PROFIL")) {
unsigned char att78[78];
int ri = g_n_reels ? g_reel_pour_fn[g_sb_cmd_fn & 63] : -1;
if (ri >= 0) memcpy(att78, g_reels_code[ri], 78); /* real ground truth */
else cellule_code_attendu(g_sb_cmd_fn, (uint8_t)g_bsic_injecte, att78);
int acc[2] = {0, 0};
char map[2][79];
for (int pol = 0; pol < 2; pol++) {
for (int k = 0; k < 78; k++) {
int16_t v = (int16_t)dsp->data[0x2c72 + k];
int bit = pol ? (v > 0) : (v < 0); /* both sign conventions */
int ok = (bit == (att78[k] & 1));
map[pol][k] = ok ? '.' : 'X';
acc[pol] += ok;
}
map[pol][78] = 0;
}
/* [2026-09-18] ALIGNMENT SWEEP. The peak moves from frame to frame
* (23, 20, 19...): if it places the read window, comparing at the
* canonical alignment compares good softs against a wrong framing, and
* "uncorrelated" would be a false conclusion. Rebuild the full expected
* burst (3 tail + 39 + 64 TSC + 39 + 3 tail) and find the shift s that
* maximizes agreement. An s reaching ~78/78 means the softs are GOOD and
* only the framing is wrong. */
{
unsigned char burst[148];
memset(burst, 0, 3);
for (int k = 0; k < 39; k++) burst[3 + k] = att78[k];
for (int k = 0; k < 64; k++) burst[42 + k] = (unsigned char)cellule_train_sb(k);
for (int k = 0; k < 39; k++) burst[106 + k] = att78[39 + k];
memset(burst + 145, 0, 3);
int bs = 0, bp = 0, bv = -1;
for (int sh = -40; sh <= 40; sh++) {
for (int pol = 0; pol < 2; pol++) {
int m = 0, n = 0;
for (int k = 0; k < 78; k++) {
int pos = (k < 39 ? 3 + k : 106 + (k - 39)) + sh;
if (pos < 0 || pos >= 148) continue;
int16_t v = (int16_t)dsp->data[0x2c72 + k];
int bit = pol ? (v > 0) : (v < 0);
if (bit == (burst[pos] & 1)) m++;
n++;
}
if (n >= 60 && m > bv) { bv = m; bs = sh; bp = pol; }
}
}
printf(" [align] meilleur decalage=%+d polarite=%d -> %d/78\n", bs, bp, bv);
}
int best = acc[1] > acc[0] ? 1 : 0;
printf(" [profil] fn_demod=%u (p51=%u) pic=%u : concordance pol0=%d/78 pol1=%d/78\n"
" premiers39 |%.39s|\n"
" derniers39 |%s|\n",
g_sb_cmd_fn, g_sb_cmd_fn % 51, dsp->data[0x2f06],
acc[0], acc[1], map[best], map[best] + 39);
}
if (calypso_getenv("REJEU_DUMP_SOUPLES")) {
printf(" [souples] fn=%u pic=%u :", fn_cur, dsp->data[0x2f06]);
for (int k = 0; k < 78; k++) printf(" %04x", dsp->data[0x2c72 + k]);
printf("\n");
}
printf(" [sb-int] pic(2f06)=%u crc(2bf8)=%u souples(2c72)[0..5]=%04x %04x %04x %04x %04x %04x"
" non nuls=%d/78 etendue=[%d..%d]\n",
dsp->data[0x2f06], dsp->data[0x2bf8],
dsp->data[0x2c72], dsp->data[0x2c73], dsp->data[0x2c74],
dsp->data[0x2c75], dsp->data[0x2c76], dsp->data[0x2c77], nnul, mn, mx);
}
}
if (trace) { unsigned p = fn_cur % 51;
/* [2026-09-30] mot decode MEME en CRC faux, et les mesures de la ROM sur le
* burst (a_serv_demod : TOA, PM, ANGLE, SNR) : c'est la matiere pour
* comparer les SCH decodes aux rates (voir MAILBOX 2026-09-30). */
printf(" SBresp att=%d fn=%u p51=%u crc=%s a_sch=%04x %04x %04x %04x %04x toa=%d pm=%d angle=%d snr=%d sb_cmd_fn=%u\n", attempt, fn_cur, p,
(dbr()[R_SCH + 0] & (1 << B_SCH_CRC)) ? "FAUX" : "OK",
dbr()[R_SCH + 0], dbr()[R_SCH + 1], dbr()[R_SCH + 2], dbr()[R_SCH + 3], dbr()[R_SCH + 4],
(int16_t)dbr()[R_SERV + 0], (int16_t)dbr()[R_SERV + 1], (int16_t)dbr()[R_SERV + 2], (int16_t)dbr()[R_SERV + 3], g_sb_cmd_fn); }
if (dbr()[R_SCH + 0] & (1 << B_SCH_CRC)) {
n_sb_crcfail++;
if (attempt == sb_dernier_essai()) { sched_reset(); plan_fb_set(1, 0); }
return;
}
sb_word = dbr()[R_SCH + 3] | ((uint32_t)dbr()[R_SCH + 4] << 16);
sb_bsic = (sb_word >> 2) & 0x3f;
unsigned t1 = ((sb_word >> 23) & 1) | ((sb_word >> 7) & 0x1fe) | ((sb_word << 9) & 0x600);
unsigned t2 = (sb_word >> 18) & 0x1f;
unsigned t3p = ((sb_word >> 24) & 1) | ((sb_word >> 15) & 6);
unsigned t3 = t3p * 10 + 1;
sb_fn = 51u * ((t3 - t2 + 26u) % 26u) + t3 + 26u * 51u * t1;
/* A CRC OK is a decode only if it yields the INJECTED BSIC, a valid T3 (T3 <= 50
* by construction) and a reconstructed FN equal to the current frame. Each pass
* is qualified and the run continues instead of stopping on the first.
* REJEU_ARRET_1ER=1 restores stopping.
*
* REJEU_SCH_PARTOUT=1 CORRUPTS THE REFERENCE TRUTH: T3' has three bits, so
* a SCH emitted on p51=45 encodes T3'=4, which the decoder turns back into
* T3=41 and sb_fn != fn_cur even for a PERFECT decode. FN can only be
* validated without that flag. */
int t3_ok = (t3 <= 50), bsic_ok = (sb_bsic == (unsigned)g_bsic_injecte);
/* [2026-09-20] The SB word carries the frame number of the BURST that was
* demodulated, i.e. the frame of the last SB command (g_sb_cmd_fn), not the
* frame on which the ARM reads the result (fn_cur, 2-3 frames later). The
* first genuine decodes (BSIC 7, FN 31 read at fn 34; FN 62 read at fn 64)
* were being counted as false positives by the old fn_cur comparison. */
int fn_ok = (sb_fn == g_sb_cmd_fn);
n_crc_ok++;
if (bsic_ok && t3_ok && fn_ok) n_sb_vraies++;
printf(" SB%d fn=%u : sb=0x%08x BSIC=%d (injecte %d) T1=%u T2=%u T3=%u -> FN=%u (burst demodule fn=%u) %s%s\n",
attempt, fn_cur, sb_word, sb_bsic, g_bsic_injecte, t1, t2, t3, sb_fn, g_sb_cmd_fn,
(bsic_ok && t3_ok && fn_ok) ? "** VRAIE **"
: !bsic_ok ? "FAUX POSITIF (BSIC ne colle pas)"
: !t3_ok ? "FAUX POSITIF (T3 > 50, impossible)"
: "FAUX POSITIF (FN != trame du burst demodule)",
cellule_sch_partout ? " [FN non qualifiable sous SCH_PARTOUT]" : "");
if (drapeau_env("REJEU_ARRET_1ER") || ((bsic_ok && t3_ok && fn_ok) && !drapeau_env("REJEU_CONTINUER"))) { verdict = 1; return; }
if (bsic_ok && t3_ok && fn_ok) { sched_reset(); plan_fb_set(1, 0); return; } /* REJEU_CONTINUER: restart the acquisition */
/* [2026-09-18] An unqualified CRC OK (false positive) must reschedule, or the
* bench freezes and the freeze reads as a result: the item queue drains, no
* command is posted again, and the replay crosses the remaining thousands of
* frames asking the DSP nothing. The summary was then IDENTICAL at 1200 and at
* 12000 frames -- not because the DSP stalled, but because the replayed ARM had
* gone silent. The CRC failure branch already restarted (plan_fb_set on attempt
* 2); only the "CRC OK but false positive" exit was a dead end. */
sched_reset(); plan_fb_set(1, 0);
}
/* ---- ARM-side DSP init: what the firmware's dsp_power_on() does ---------
* Without it the DSP runs on a blank API RAM: the FB detection thresholds
* (d_fb_thr_det_iacq/track) and the margins (d_fb_margin_beg/end, which feed the
* TOA formula at 0x794b/0x7956) are 0, and FB detection diverges from the first
* frame. Values from dsp_params.c / dsp_ndb_init(). */
#define PARAM 0x431u /* BASE_API_PARAM (API 0x862) in words */
#define A_SCH26 (NDB + 42u)
/* DSP bootloader: API offsets in WORDS (dsp.c: BASE_API_RAM + 0x0ff8..0x0ffe) */
#define BL_ADDR_HI_W 0x7FCu
#define BL_SIZE_W 0x7FDu
#define BL_ADDR_LO_W 0x7FEu
#define BL_STATUS_W 0x7FFu
#define DSP_START 0x7000u
static long pump(long max, int stop_on_idle)
{
long b = 0;
while (b < max && dsp->running) {
int ex = c54x_run(dsp, 256);
if (ex <= 0) break;
b += ex;
if (stop_on_idle && dsp->idle) break;
}
return b;
}
static void arm_dsp_init(void)
{
memset(api, 0, 0x2000u * sizeof(uint16_t)); /* dsp_api_memset(API) */
/* dsp_pre_boot(): the DSP has just been reset; wait for BL_STATUS_IDLE */
long b = 0;
while (api[BL_STATUS_W] != 1 && b < 8000000) {
int ex = c54x_run(dsp, 256); if (ex <= 0) break; b += ex;
}
printf(" bootloader DSP : BL_STATUS=%u apres %ld insn\n", api[BL_STATUS_W], b);
/* dsp_set_params(): NDB first */
api[NDB + 8] = 0x0074; api[NDB + 9] = 0x0001;
api[NDB + 10] = 0x0154; api[NDB + 11] = 0x17ff;
api[NDB + 12] = 7; api[NDB + 13] = 0;
api[NDB + 14] = 3; /* d_dsp_state = IDLE3 */
/* then the parameter table (dsp_params.c). The first four FB fields feed the
* TOA formula (0x794b/0x7956) and the detection thresholds. */
static const int16_t P[] = {
0x6666, 15, 12, 5, 4, 0x7002, 1, 0xE, 0, 0, 0, 0,
24, 22, 296, 30, /* margin_beg/end, nsubb_idle/dedic */
0x3333, (int16_t)0x28f6, /* fb_thr_det_iacq / _track */
0x7fff, 17408, 26624, 20152,
7872, -4, 7872, 5772, 7872, 53, -892, 208,
};
for (unsigned i = 0; i < sizeof P / sizeof P[0]; i++) api[PARAM + i] = (uint16_t)P[i];
/* dsp_bl_start_at(DSP_START) */
api[BL_ADDR_HI_W] = 0; api[BL_ADDR_LO_W] = DSP_START; api[BL_SIZE_W] = 0;
api[BL_STATUS_W] = 2; /* BL_CMD_COPY_BLOCK */
b = pump(4000000, 1);
printf(" DSP demarre : %ld insn, idle=%d, version=0x%04x%04x\n",
b, dsp->idle, api[NDB + 6], api[NDB + 7]);
/* dsp_ndb_init(): what matters for FB/SB */
api[NDB + 2] = 0x0179; /* d_spcx_rif */
api[NDB + 3] = 0x0800 | ((8 - 4) << 7); /* d_tch_mode */
api[NDB_FB_MODE] = 1;
api[NDB_FB_DET] = 0;
api[A_SCH26] = (1u << B_SCH_CRC);
/* dsp_db_init() */
memset(&api[W_PAGE(0)], 0, W_SIZE * sizeof(uint16_t));
memset(&api[W_PAGE(1)], 0, W_SIZE * sizeof(uint16_t));
memset(&api[R_PAGE(0)], 0, R_SIZE * sizeof(uint16_t));
memset(&api[R_PAGE(1)], 0, R_SIZE * sizeof(uint16_t));
/* [2026-09-20] REJEU_DUMP_PARAM=1: the first eight parameter words after
* the DSP has started, to compare with the live bench's shared API RAM
* (od on /dev/shm/calypso_api_ram at word 0x431). */
if (drapeau_env("REJEU_DUMP_PARAM"))
printf(" PARAM apres demarrage : %04x %04x %04x %04x %04x %04x %04x %04x (attendu 6666 000f 000c 0005 0004 7002 0001 000e)\n",
api[PARAM], api[PARAM+1], api[PARAM+2], api[PARAM+3], api[PARAM+4], api[PARAM+5], api[PARAM+6], api[PARAM+7]);
}
/* ---- one frame: l1_sync() then the DSP --------------------------------- */
static void l1_sync(void)
{
r_page_used = 0;
memset(dbw(), 0, W_SIZE * sizeof(uint16_t)); /* memset db_w */
dbw()[W_AFC] = (uint16_t)(int16_t)afc_dac; /* afc_load_dsp */
dbw()[W_CTRL_ABB] |= (1u << B_AFC);
/* [2026-09-17] CLOSED AFC LOOP. qemu-src relays the d_afc write to the TWL3025
* model (calypso_trx.c, offsets 0x001E/0x0046); qosmo does it NOWHERE
* (set_afc_dac is never called there), so the loop stayed open, sample rotation
* never moved, and the frequency error never converged below the SB threshold
* (800 Hz). */
calypso_twl3025_set_afc_dac((int16_t)afc_dac);
if (api[NDB_ERRSTAT]) { /* as in sync.c:249 */
static int n; if (trace && n < 6) { printf(" DSP Error Status: %u\n", api[NDB_ERRSTAT]); n++; }
api[NDB_ERRSTAT] = 0;
}
/* Run the items of THIS frame. A callback may schedule a new one for the
* CURRENT frame (delay=0, which is what the firmware computes after FB1), so
* rescan until exhaustion or that item is silently lost -- and it is precisely
* the SB command aiming at the right SCH frame. */
for (int tour = 0; tour < 8; tour++) {
int fait = 0;
for (int i = 0; i < n_sched; i++) {
if (sched[i].frame == (int)fn_cur && sched[i].cb) {
cb_t cb = sched[i].cb; int at = sched[i].attempt;
sched[i].cb = NULL;
cb(at); fait = 1;
if (verdict) return;
}
}
if (!fait) break;
}
if (r_page_used) {
memset(dbr(), 0, R_SIZE * sizeof(uint16_t));
dbr()[R_SCH + 0] = (1u << B_SCH_CRC);
r_page ^= 1;
}
api[NDB_PAGE] = (uint16_t)(B_GSM_TASK | w_page); /* dsp_end_scenario() */
w_page ^= 1;
}
int rejouer(C54xState *d, uint16_t *api_ram, long trames, long insns,
const char *iq_mode, int amp, int bsic, int verbeux)
{
dsp = d; api = api_ram; trace = verbeux;
env_div = calypso_getenv("REJEU_DIV") != NULL;
env_softs_continu = calypso_getenv("REJEU_SOFTS_CONTINU") != NULL;
env_firs = calypso_getenv("REJEU_FIRS") != NULL;
env_probe_t = drapeau_env("REJEU_PROBE_T");
env_decodeur = calypso_getenv("REJEU_DECODEUR") != NULL;
w_page = r_page = r_page_used = 0; fn_cur = 0; afc_dac = -700;
fb_mode = 0; afc_retries = fb0_retries = 0; n_sched = 0; verdict = 0;
n_fb_ok = n_sb_try = n_sb_crcfail = n_crc_ok = n_sb_vraies = 0;
n_err_dsp = n_err8 = 0;
g_bsic_injecte = bsic;
{ const char *r = calypso_getenv("REJEU_SCH_REEL");
if (r && *r && reels_charger(r) == 0) g_bsic_injecte = g_reels_bsic[0]; }
memset(&fb, 0, sizeof fb);
if (drapeau_env("REJEU_SCH_PARTOUT")) { cellule_sch_partout = 1; printf(" [stimulus] SCH sur toutes les trames non-FCCH (masque le cadencage)\n"
" [stimulus] ATTENTION : t3p = p51/10 n'est juste que sur p51 in {1,11,21,31,41},\n"
" donc la FN reconstruite ne peut PAS etre validee sous ce drapeau.\n"); }
printf("rejeu deterministe : %ld trames max, %ld insn/trame, cellule BSIC=%d, iq=%s\n",
trames, insns, bsic, iq_mode ? iq_mode : "cell");
/* firmware dsp_power_on(): bootloader boot + parameters + NDB */
arm_dsp_init();
{ static int16_t rempl[2 * 148]; /* TS1..TS7 of the C0 carrier: dummy bursts */
cellule_factice(amp, DECALAGE_SYMB, rempl);
calypso_bsp_set_remplissage(rempl, 2 * 148); }
plan_fb_set(1, 0); /* first FBSB_REQ */
int16_t iq[2 * 256]; int n_iq;
for (long t = 0; t < trames && !verdict; t++) {
fn_cur = (uint32_t)t;
g_c54x_exe_fn = fn_cur;
uint32_t insn_debut_trame = dsp->insn_count;
l1_sync();
/* [2026-09-18] The firmware (sync.c) reads d_error_status every frame, prints
* it and clears it; replay ignored it entirely, hence its silence about the
* "DSP Error Status: 8" seen on the firmware side. 8 = DSP_ERR_DMA_PROG:
* overflow of the DMA job ring at 0x4330 (orm *(0x3f92),#8 at 0xaa83). */
if (api[NDB_ERRSTAT]) {
unsigned e = api[NDB_ERRSTAT];
n_err_dsp++;
if (e & 8) n_err8++;
if (n_err_dsp <= 8)
printf(" [erreur DSP] status=%u%s a fn=%u\n", e,
(e & 8) ? " (bit 3 = DSP_ERR_DMA_PROG, anneau DMA 0x4330 sature)" : "",
fn_cur);
api[NDB_ERRSTAT] = 0;
}
if (verdict) break;
/* [2026-09-17] HARDWARE ORDER. On silicon: the ARM posts the task -> the DSP
* reads it on the frame interrupt and ARMS its RX window (DMA) -> the samples
* arrive -> the DSP processes them. Injecting BEFORE the DSP has armed makes
* the transfer use the PREVIOUS task's DMA programming (the FB one), so the SB
* receives the wrong burst. REJEU_RX_AVANT=1 restores the old order for
* comparison. */
static int rx_avant = -1;
if (rx_avant < 0) rx_avant = drapeau_env("REJEU_RX_AVANT") ? 1 : 0;
n_iq = 2 * 148;
int injecter = (!iq_mode || strcmp(iq_mode, "none") != 0);
if (injecter && rx_avant) {
g_livre_type = cellule_burst(fn_cur, (uint8_t)g_bsic_injecte, amp, DECALAGE_SYMB, marge_tete(), iq, &n_iq);
g_livre_fn = fn_cur; g_livre_n = n_iq;
g_ad_avant = calypso_bsp_get_daram_addr();
{ static int da = -1; static unsigned nd;
if (da < 0) da = calypso_getenv("REJEU_ADR") ? 1 : 0;
if (da && nd < 14) { nd++;
printf(" [adr] fn=%-4u type=%c n_iq=%-4d -> depot 0x%04x len=%u\n",
fn_cur, g_livre_type ? g_livre_type : '?', n_iq,
calypso_bsp_get_daram_addr(), calypso_bsp_get_daram_len()); } }
calypso_bsp_rx_burst(0, fn_cur, iq, n_iq);
}
/* frame interrupt: the DSP reads the task and arms its RX window.
* [2026-09-20] REJEU_IRQ_SCENARIO=1: raise it only on frames where the
* replayed ARM ended a DSP scenario (a task on the page just handed
* over), as dsp_end_scenario() does with tpu_dsp_frameirq_enable(),
* a bit the firmware sets again on every scenario. Every other frame
* the ROM gets no frame interrupt and does not re-read the page. */
{ static int irq_sc = -1;
if (irq_sc < 0) irq_sc = drapeau_env("REJEU_IRQ_SCENARIO") ? 1 : 0;
unsigned wp_donnee = (api[NDB_PAGE] & 1u);
bool scenario = api[W_PAGE(wp_donnee) + W_TASK_MD] != 0 || api[W_PAGE(wp_donnee) + 0] != 0;
if ((dsp->imr & (1u << 12)) && (!irq_sc || scenario)) c54x_interrupt_ex(dsp, 28, 12); }
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
if (injecter && !rx_avant) {
/* let the DSP arm (short budget), THEN deliver the samples */
long arm = 0;
while (arm < insns / 4 && dsp->running && !dsp->idle) {
int ex = c54x_run(dsp, 64); if (ex <= 0) break; arm += ex;
}
g_livre_type = cellule_burst(fn_cur, (uint8_t)g_bsic_injecte, amp, DECALAGE_SYMB, marge_tete(), iq, &n_iq);
/* [2026-09-20] FULL FRAME for the FB search. On silicon the FB task
* streams 156.25 symbols per TDMA frame (148 burst + 8.25 guard); the
* TOA it reports counts frames in those units and the firmware turns
* it back into frames with BITS_PER_TDMA = 1250. Delivering 148
* samples per frame made a 9-frame distance read as 5. Pad every
* non-SCH burst with silence to 156 samples (157 on one frame in four,
* so the average is 156.25). REJEU_TRAME_PLEINE=0 restores 148. */
/* The SCH frame is delivered as the 190-sample WINDOW block (margins
* 21/21) only while the DSP has its one-shot SB window armed; inside
* an FB search (continuous DMA) it is a plain frame of the stream like
* any other, or the stream would gain 34 symbols on every SCH frame.
* The TOA origin (the firmware's "23") is not set here but by the DMA
* model at arm time (CALYPSO_RHEA_DMA_ARM_SKIP): the burst position
* inside the frame can only move within the 8.25 idle symbols. */
{ static int pleine = -1;
if (pleine < 0) { const char *e = calypso_getenv("REJEU_TRAME_PLEINE"); pleine = (e && *e == '0') ? 0 : 1; }
bool fenetre_sb = calypso_rhea_dma_one_shot();
if (pleine && !(g_livre_type == 'S' && fenetre_sb)) {
if (g_livre_type == 'S') { /* drop the window margins: burst only */
int m = marge_tete();
memmove(iq, iq + 2 * m, 2 * 148 * sizeof(int16_t));
n_iq = 2 * 148;
}
int cible = 156 + ((fn_cur & 3) == 3 ? 1 : 0);
if (n_iq < 2 * cible) { memset(iq + n_iq, 0, (size_t)(2 * cible - n_iq) * sizeof(int16_t)); n_iq = 2 * cible; }
} }
g_livre_fn = fn_cur; g_livre_n = n_iq;
/* Replace the SCH CONTENT with a real burst, without touching the framing. */
if (g_n_reels && g_livre_type == 'S') {
int m = marge_tete();
unsigned r = g_reel_i % g_n_reels;
{ static double gn = -1;
if (gn < 0) { const char *e = calypso_getenv("REJEU_REEL_GAIN"); gn = e ? atof(e) : 1.0;
if (gn <= 0) gn = 1.0; }
if (gn == 1.0) memcpy(iq + 2 * m, g_reels[r], 296 * sizeof(int16_t));
else for (int q = 0; q < 296; q++) {
long v = lrint(g_reels[r][q] * gn);
iq[2 * m + q] = (int16_t)(v > 32767 ? 32767 : v < -32768 ? -32768 : v); } }
/* Check: is the burst dropped really the REAL one? */
static unsigned nv;
if (nv < 4) { nv++;
printf(" [reel] trame %u <- burst #%u (fn reelle %u, BSIC %u) I/Q %d %d %d %d\n",
fn_cur, r, g_reels_fn[r], g_reels_bsic[r],
iq[2*m], iq[2*m+1], iq[2*m+2], iq[2*m+3]); }
g_reel_pour_fn[fn_cur & 63] = (int)r;
g_reel_i++;
}
/* [2026-09-18] Perturb ONE raw sample rather than a bit: this maps
* influence index by index, with no confusion from burst packing nor from
* the scheduling change a coded-bit flip causes. REJEU_PERTURBER_ECH=<n>
* adds a delta to complex sample n of the delivered buffer. */
{ static int pe = -2; static long pf = -2;
if (pe == -2) { const char *e = calypso_getenv("REJEU_PERTURBER_ECH"); pe = e ? atoi(e) : -1; }
if (pf == -2) { const char *e = calypso_getenv("REJEU_PERTURBER_FN"); pf = e ? atol(e) : -1; }
if (pe >= 0 && 2 * pe + 1 < n_iq && (pf < 0 || (long)fn_cur == pf)) {
iq[2 * pe] = (int16_t)(iq[2 * pe] + 3000);
iq[2 * pe + 1] = (int16_t)(iq[2 * pe + 1] - 3000);
} }
/* [2026-09-18] DELIVERED SAMPLE CONVENTION. Transport is exact ([feed]
* probe: 380/380 identical at shift 0), so if the feed is at fault it is the
* CONVENTION, not the routing. Four mutually exclusive hypotheses:
* derot- : the DSP expects a signal DEROTATED by -pi/2 per symbol
* derot+ : ... by +pi/2
* swap : I and Q swapped
* conj : Q negated (conjugate)
* REJEU_FEED_XFORM=derot-|derot+|swap|conj|none (default none). */
{ static const char *xf = NULL; static int init = 0;
if (!init) { xf = calypso_getenv("REJEU_FEED_XFORM"); init = 1; }
if (xf && *xf && strcmp(xf, "none")) {
int ns = n_iq / 2;
if (!strcmp(xf, "swap")) {
for (int k = 0; k < ns; k++) { int16_t t = iq[2*k]; iq[2*k] = iq[2*k+1]; iq[2*k+1] = t; }
} else if (!strcmp(xf, "conj")) {
for (int k = 0; k < ns; k++) iq[2*k+1] = (int16_t)(-iq[2*k+1]);
} else if (!strcmp(xf, "derot-") || !strcmp(xf, "derot+")) {
double sgn = (xf[5] == '-') ? -1.0 : 1.0;
for (int k = 0; k < ns; k++) {
double ph = sgn * (M_PI / 2.0) * k;
double c = cos(ph), sn = sin(ph);
double i0 = iq[2*k], q0 = iq[2*k+1];
iq[2*k] = (int16_t)lrint(i0 * c - q0 * sn);
iq[2*k+1] = (int16_t)lrint(i0 * sn + q0 * c);
}
}
} }
memcpy(g_livre_iq, iq, (size_t)n_iq * sizeof(int16_t)); g_livre_niq = n_iq;
{ static int da = -1; static unsigned nd;
if (da < 0) da = calypso_getenv("REJEU_ADR") ? 1 : 0;
if (da && nd < 14) { nd++;
printf(" [adr] fn=%-4u type=%c n_iq=%-4d -> depot 0x%04x len=%u\n",
fn_cur, g_livre_type ? g_livre_type : '?', n_iq,
calypso_bsp_get_daram_addr(), calypso_bsp_get_daram_len()); } }
/* [2026-09-20] PAGE-BY-PAGE DELIVERY (REJEU_PAGES=<words>, e.g. 96).
* On silicon the RIF streams continuously and DMA2 completes one
* 96-word page at a time, each completion interrupting the DSP; the
* FB correlator runs per page. Handing the whole frame in one call
* drains 3-4 pages in one pass with ONE interrupt, so the ROM
* processes one page per frame and its TOA advanced by 96 per frame
* instead of 156 symbols. Here the frame's samples are delivered in
* chunks, the DSP running a slice after each, so every page gets its
* own completion. */
{ static long pages_mots = -1;
if (pages_mots < 0) { const char *e = calypso_getenv("REJEU_PAGES"); pages_mots = (e && *e) ? atol(e) : 0; }
if (pages_mots > 0) {
int pos = 0, npage = 0;
while (pos < n_iq) {
int m = n_iq - pos < pages_mots ? n_iq - pos : (int)pages_mots;
uint16_t b34 = dsp->data[0x3fb4], b35 = dsp->data[0x3fb5];
calypso_bsp_rx_burst(0, fn_cur, iq + pos, m);
pos += m; npage++;
{ static unsigned nb; if (nb < 40 && fn_cur >= 2 && fn_cur <= 14) { nb++;
printf(" [bloc] fn=%u page %d (%d mots) : 0x3fb4=%04x 0x3fb5=%04x avant", fn_cur, npage, m, b34, b35); } }
/* completion interrupt already pending: let the DSP serve it */
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
long slice = 0;
while (slice < insns / 8 && dsp->running && !dsp->idle) {
int ex = c54x_run(dsp, 64); if (ex <= 0) break; slice += ex;
}
{ static unsigned nb2; if (nb2 < 40 && fn_cur >= 2 && fn_cur <= 14) { nb2++;
printf(" -> apres 0x3fb4=%04x 0x3fb5=%04x (idle=%d, %ld insn)\n", dsp->data[0x3fb4], dsp->data[0x3fb5], dsp->idle, slice); } }
}
{ static unsigned np; if (np < 3) { np++;
printf(" [pages] fn=%u : %d mots livres en %d pages de %ld\n", fn_cur, n_iq, npage, pages_mots); } }
} else
calypso_bsp_rx_burst(0, fn_cur, iq, n_iq);
}
/* [2026-09-20] STREAM PUMP. The DMA now fills its double buffer with
* full pages only and interrupts once per pair; the ROM's ISR consumes
* both halves and the DSP goes idle. Then the next pair is handed
* over, as the hardware would once the ISR is out of the way. A frame
* carries 3.25 pages, so this runs 1 or 2 times per frame. */
for (int k = 0; k < 40; k++) { /* a 1250-symbol frame is 26 pages = 13 pairs */
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
long sl = 0;
while (sl < insns / 4 && dsp->running && !dsp->idle) {
int ex = c54x_run(dsp, 64); if (ex <= 0) break; sl += ex;
}
if (!calypso_rhea_dma_pump(dsp)) break;
}
if (calypso_getenv("CALYPSO_BSP_VERIF")) {
static int dit;
if (!dit) { dit = 1;
printf(" [mem] api est-il un alias de data[0x0800] ? %s\n",
(void *)api == (void *)&dsp->data[0x0800] ? "OUI" : "NON — deux memoires distinctes");
printf(" api[0x0cce-0x0800]=%04x data[0x0cce]=%04x\n",
api[0x0cce - 0x0800], dsp->data[0x0cce]); }
static unsigned nvr;
uint32_t vfn; uint16_t vad; int vn, vage;
int id = calypso_bsp_verif_compare(&vfn, &vad, &vn, &vage);
if (id >= 0 && nvr < 8) { nvr++;
printf(" [ref] fn=%-4u type=%c age=%d : %d/%d identiques en 0x%04x%s\n",
vfn, g_livre_type ? g_livre_type : '?', vage, id, vn, vad,
id == vn ? " VALIDE" : " <<< ECRITURE FAUSSE"); }
}
{ static int vv = -1; static unsigned nv;
if (vv < 0) vv = calypso_getenv("REJEU_VIE") ? 1 : 0;
if (vv && g_livre_type == 'S' && nv < 6) { nv++;
uint16_t ad = calypso_bsp_get_daram_addr();
printf(" [vie] fn=%-4u adresse APRES l'appel : 0x%04x (avant : 0x%04x)\n",
fn_cur, ad, g_ad_avant);
int ex = 0, best = 0, bex = -1;
for (int sh = -8; sh <= 44; sh++) {
int e = 0;
for (int k = 0; k < 280; k++) {
int j = k + sh; if (j < 0 || j >= n_iq) continue;
if ((int16_t)dsp->data[(ad + k) & 0x3fff] == iq[j]) e++;
}
if (e > bex) { bex = e; best = sh; }
if (sh == 0) ex = e;
}
printf(" [vie] fn=%-4u APRES depot en 0x%04x : shift0=%d/280 meilleur shift=%+d avec %d/280\n",
fn_cur, ad, ex, best, bex);
if (bex < 200) { /* pas trouve la : ou est le burst ? */
int ba = -1, bn = 0;
for (unsigned a = 0; a + 280 < 0x4000; a++) {
int e = 0;
for (int k = 0; k < 64; k++)
if ((int16_t)dsp->data[a + k] == iq[k]) e++;
if (e > bn) { bn = e; ba = (int)a; }
}
if (bn >= 60) {
int tot = 0;
for (int k = 0; k < 280; k++)
if ((int16_t)dsp->data[(ba + k) & 0x3fff] == iq[k]) tot++;
printf(" -> burst TROUVE en 0x%04x : %d/280 identiques\n", ba, tot);
} else printf(" -> burst introuvable en DARAM (meilleur %d/64 en 0x%04x)\n", bn, ba);
}
g_vie_fn = fn_cur; g_vie_ad = ad; } }
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
}
{ static int tf = -1; if (tf < 0) tf = calypso_getenv("REJEU_TRACE_FB") ? 1 : 0;
if (tf && fn_cur < 60)
printf(" [fb] fn=%-3u apres pompe : 0x3fb4=%04x 0x3fb3=%04x d_fb_det=%u fb_mode=%u task_md=%u/%u idle=%d insn_trame=%u sync=%04x %04x %04x %04x\n",
fn_cur, dsp->data[0x3fb4], dsp->data[0x3fb3], api[NDB_FB_DET], api[NDB_FB_MODE],
api[W_PAGE(0) + W_TASK_MD], api[W_PAGE(1) + W_TASK_MD], dsp->idle, dsp->insn_count - insn_debut_trame,
api[NDB_SYNC], api[NDB_SYNC+1], api[NDB_SYNC+2], api[NDB_SYNC+3]); }
long done = 0;
static int probe = -1;
if (probe < 0) probe = drapeau_env("REJEU_PROBE_TOA") ? 1 : 0;
if (!probe) {
/* Always count, step by step: running 256 instructions at a time without
* looking at a single PC left hit_b219/7c31/84a1/9841/770a at zero while the
* summary still printed them, so "job b219=0 ... corr FB 770a=0" only meant
* that nobody was counting. The PC histogram says what the DSP really
* executes. */
while (done < insns && dsp->running && !dsp->idle) {
uint16_t pc = dsp->pc & 0xffff;
histo_pc[pc >> 10]++;
switch (pc) {
case 0x7c31: hit_7c31++; break;
case 0x9841: hit_9841++; break;
case 0x84a1: hit_84a1++; break;
case 0x770a: hit_770a++; break;
case 0xb219: hit_b219++; break;
case 0x7a16: hit_7a16++; break;
/* The two FIRS sites of the SB. The one at 0x8493 is followed by
* `sth *AR6+,B` at 0x8497: THAT is what writes the soft bits. If it does
* not run, the softs come out of a stale B. */
case 0x⟨1⟩: hit_⟨2⟩++; break; ×4
⟨⟩ = (8478,8478) (8492,8492) (8493,8493) (8497,8497)
/* [2026-09-19] THE 16-STEP DIVISION. 0x7d1c RPT #15; 0x7d1d SUBC
* *(0x0b),A; 0x7d1e STL A,*(0x0a) = the quotient. A null divisor gives a
* degenerate quotient and the whole cascade follows. */
/* [2026-09-19] The dividend is born here. It should be 1 shifted
* (ld #1,A; sfta A,<n>) and it arrives NULL at the division. Trace A over
* the whole prologue to see which instruction zeroes it. */
case 0x7d10: case 0x7d11: case 0x7d12: case 0x7d13:
case 0x7d14: case 0x7d15: case 0x7d16: case 0x7d17:
case 0x7d18: case 0x7d19: case 0x7d1a: case 0x7d1b:
if (env_div) {
static int dumpe;
if (!dumpe) { dumpe = 1;
printf(" [rom] 0x7d10-0x7d20 :");
for (unsigned a = 0x7d10; a <= 0x7d20; a++)
printf(" %04x", prog_ovly(dsp, (uint16_t)a));
printf("\n"); }
static unsigned np;
if (np < 26) { np++;
printf(" [pro] pc=%04x op=%04x A=%010llx T=%04x ST0=%04x ST1=%04x\n",
pc, prog_ovly(dsp, pc),
(unsigned long long)(dsp->a & 0xffffffffffULL),
dsp->t, dsp->st0, dsp->st1); }
}
break;
case 0x7d1c: hit_7d1c++;
if (env_div) {
unsigned dp = dsp->st0 & 0x1FF;
uint16_t dv = dsp->data[(uint16_t)((dp << 7) | 0x0B)];
static unsigned nd;
if (nd < 12) { nd++;
printf(" [div] avant : dividende A=%010llx diviseur=0x%04x (%d)%s\n",
(unsigned long long)(dsp->a & 0xffffffffffULL), dv, (int16_t)dv,
dv == 0 ? " <<< DIVISEUR NUL" : ""); }
}
break;
case 0x7d1d: hit_7d1d++; break;
case 0x7d1e: hit_7d1e++;
if (env_div) {
static unsigned nq;
if (nq < 12) { nq++;
printf(" [div] apres : quotient A=%010llx (mot bas = %d)\n",
(unsigned long long)(dsp->a & 0xffffffffffULL),
(int16_t)(dsp->a & 0xffff)); }
}
break;
case 0x81e4: hit_81e4++; break;
default: break; }
/* [2026-09-19] WHO WRITES a_sch? The status word a_sch[0] sometimes
* receives plain numbers (0x1111, 0x1388=5000, 0x142e) where only B_BLUD
* (bit15) and B_SCH_CRC (bit8) have a meaning -- and the 0x8000 read as
* "CRC OK" is more likely a saturated accumulator. a_sch[0..4] =
* R_PAGE+15.., i.e. data[0x0837..0x083b] (page 0) and
* data[0x084b..0x084f] (page 1). Record the PC of each write.
* REJEU_QUI_ASCH=1. */
{ static int qa = -1; static uint16_t sh[10]; static int ini; static unsigned nqa;
if (qa < 0) qa = calypso_getenv("REJEU_QUI_ASCH") ? 1 : 0;
if (qa) {
static const uint16_t adr[10] = {0x0837,0x0838,0x0839,0x083a,0x083b,
0x084b,0x084c,0x084d,0x084e,0x084f};
if (!ini) { for (int k=0;k<10;k++) sh[k]=dsp->data[adr[k]]; ini=1; }
for (int k=0;k<10;k++) {
uint16_t v = dsp->data[adr[k]];
if (v != sh[k]) {
/* On a CRC OK, print the FULL word: eight events
* carrying the same word are not eight independent
* draws but one attractor reached eight times, which
* changes the statistics completely. */
if (k % 5 == 0 && v == 0x8000) {
const uint16_t *b = &dsp->data[adr[k]];
printf(" [crcok] fn=%u a_sch = %04x %04x %04x %04x %04x"
" -> mot 0x%04x%04x crc_interne(2bf8)=%u\n",
fn_cur, b[0], b[1], b[2], b[3], b[4],
b[4], b[3], dsp->data[0x2bf8]);
}
if (nqa < 4000) { nqa++;
int j = k % 5;
printf(" [asch] a_sch[%d] (page %d, 0x%04x) : %04x -> %04x"
" ecrit juste avant pc=%04x fn=%u%s\n",
j, k/5, adr[k], sh[k], v, pc, fn_cur,
(j==0 && v && v!=0x0100 && v!=0x8000 && v!=0x8100)
? " <<< PAS UN DRAPEAU" : ""); }
sh[k] = v;
}
}
} }
/* [2026-09-19] WHICH PC PINS A AT +-0x40000000 (A_high = +-16384)?
* Everything else follows from it: the clipping at 0x2ac0, B zeroed by
* the ADD at 0x8389, the degenerate softs. Record the PC of each
* transition to that value. REJEU_QUI_A=1. */
{ static int qA = -1; static int64_t aprec; static unsigned long parpc[0x10000];
static unsigned long tA; static int armA;
if (qA < 0) qA = calypso_getenv("REJEU_QUI_A") ? 1 : 0;
if (qA) {
int64_t a40 = dsp->a & 0xffffffffffLL;
int pin = (a40 == 0x0040000000LL || a40 == 0xffc0000000LL);
int pin0 = (aprec == 0x0040000000LL || aprec == 0xffc0000000LL);
static uint16_t pcp;
if (pin && !pin0 && armA) parpc[pcp]++;
aprec = a40; pcp = pc; armA = 1;
if (++tA % 400000 == 0) {
printf(" [quiA] PC qui amenent A a +-0x40000000 :\n");
for (int rang=0; rang<8; rang++) {
unsigned best=0; unsigned long bv=0;
for (unsigned i=0;i<0x10000;i++) if (parpc[i]>bv){bv=parpc[i];best=i;}
if (!bv) break;
printf(" pc=%04x op=%04x : %lu fois\n", best,
prog_ovly(dsp,(uint16_t)best), bv);
parpc[best]=0;
}
tA = 1;
}
} }
/* [2026-09-19] WHO WRITES THE +-16384 INTO 0x2ac0? Watch the buffer
* word by word and record the PC of each write, separating clipped
* values from the rest. REJEU_QUI2AC0=1. */
{ static int qc = -1; static uint16_t sh2[64]; static int ini3;
static unsigned long par_pc_butee[0x10000], par_pc_autre[0x10000];
static unsigned long tot2;
if (qc < 0) qc = calypso_getenv("REJEU_QUI2AC0") ? 1 : 0;
if (qc) {
if (!ini3) { for (int k=0;k<64;k++) sh2[k]=dsp->data[0x2ac0+k]; ini3=1; }
for (int k=0;k<64;k++) {
uint16_t v = dsp->data[0x2ac0+k];
if (v != sh2[k]) {
int16_t sv = (int16_t)v;
if (sv == 16384 || sv == -16384) par_pc_butee[pc]++;
else par_pc_autre[pc]++;
sh2[k] = v;
}
}
if (++tot2 % 300000 == 0) {
printf(" [2ac0] PC ecrivains (butee +-16384 | autres) :\n");
for (int rang=0; rang<8; rang++) {
unsigned best=0; unsigned long bv=0;
for (unsigned i=0;i<0x10000;i++)
if (par_pc_butee[i]+par_pc_autre[i] > bv) { bv=par_pc_butee[i]+par_pc_autre[i]; best=i; }
if (!bv) break;
printf(" pc=%04x op=%04x : butee=%lu autres=%lu\n",
best, prog_ovly(dsp,(uint16_t)best),
par_pc_butee[best], par_pc_autre[best]);
par_pc_butee[best]=0; par_pc_autre[best]=0;
}
tot2 = 1;
}
} }
/* [2026-09-19] DOES THE WORKING BUFFER HOLD THE BURST? The injected
* samples are known (g_livre_iq); after the copy, 0x2a00 and 0x2ac0
* should carry the I and Q channels. Compare instead of assuming.
* REJEU_CMP2A=1: at the first pass at 0x84a0 (correlator entry, so the
* copy is done) on an SCH frame. */
{ static int cm = -1; static int fait2;
if (cm < 0) cm = calypso_getenv("REJEU_CMP2A") ? 1 : 0;
if (cm && fait2 < 3 && pc == 0x84a0 && g_n_reels &&
g_reel_pour_fn[g_sb_cmd_fn & 63] >= 0) {
fait2++;
int ri = g_reel_pour_fn[g_sb_cmd_fn & 63];
const int16_t *bi = g_reels[ri];
int m = 0;
printf(" [cmp] burst reel #%d (fn %u, BSIC %u) vs tampons de travail\n", ri, g_reels_fn[ri], g_reels_bsic[ri]);
printf(" I injecte : "); for (int k=0;k<10;k++) printf(" %6d", bi[2*(m+k)]);
printf("\n 0x2a00 : "); for (int k=0;k<10;k++) printf(" %6d", (int16_t)dsp->data[0x2a00+k]);
printf("\n 0x2ac0 : "); for (int k=0;k<10;k++) printf(" %6d", (int16_t)dsp->data[0x2ac0+k]);
printf("\n Q injecte : "); for (int k=0;k<10;k++) printf(" %6d", bi[2*(m+k)+1]);
printf("\n");
/* normalized correlation between each buffer and each channel */
/* how far the constancy goes: how many words are identical? */
for (int buf=0; buf<2; buf++) {
uint16_t base = buf ? 0x2ac0 : 0x2a00;
int16_t v0 = (int16_t)dsp->data[base];
int same = 0, n = 0; int16_t mn=32767, mx=-32768;
for (int k=0;k<190;k++) { int16_t v=(int16_t)dsp->data[base+k];
if (v==v0) same++;
if(v<mn)mn=v;
if(v>mx)mx=v;
n++; }
printf(" 0x%04x : %d/%d mots egaux au premier (%d) ; etendue [%d..%d]\n",
base, same, n, v0, mn, mx);
}
for (int buf=0; buf<2; buf++) {
uint16_t base = buf ? 0x2ac0 : 0x2a00;
for (int voie=0; voie<2; voie++) {
double sxy=0, sxx=0, syy=0;
for (int k=0;k<128;k++) {
double x=(int16_t)dsp->data[base+k], y=bi[2*(m+k)+voie];
sxy+=x*y; sxx+=x*x; syy+=y*y; }
printf(" correlation 0x%04x vs %c : %+.3f\n", base, voie?'Q':'I',
(sxx>0&&syy>0)? sxy/sqrt(sxx*syy) : 0.0);
}
}
} }
/* [2026-09-19] THE burst -> working buffer COPY, the last link never
* examined: the burst arrives exact at 0x0cce and buffer 0x2a80 is
* filled by 0x81d0..0x81da. What does that loop READ? */
{ static int rc = -1; static unsigned n;
if (rc < 0) rc = calypso_getenv("REJEU_RECOPIE") ? 1 : 0;
if (rc && pc >= 0x81c8 && pc <= 0x81e0) {
/* Does AR5 sweep a table, or stay on two cells? */
static unsigned lo = 0xffff, hi = 0, vus[64], nv;
if (dsp->ar[5] < lo) lo = dsp->ar[5];
if (dsp->ar[5] > hi) hi = dsp->ar[5];
{ int trouve = 0; for (unsigned q = 0; q < nv; q++) if (vus[q] == dsp->ar[5]) trouve = 1;
if (!trouve && nv < 64) vus[nv++] = dsp->ar[5]; }
/* Does the multiplicand change? A phasor kept in place would
* change value at every step; a constant would not. */
{ static unsigned long nval; static uint16_t vu_v[32]; static unsigned nvv;
uint16_t v = dsp->data[dsp->ar[5] & 0x3fff];
int t2 = 0; for (unsigned q = 0; q < nvv; q++) if (vu_v[q] == v) t2 = 1;
if (!t2 && nvv < 32) vu_v[nvv++] = v;
if (++nval % 4000 == 0) {
printf(" [mul] %u valeurs distinctes lues via AR5 :", nvv);
for (unsigned q = 0; q < nvv && q < 12; q++) printf(" %04x", vu_v[q]);
printf("\n"); } }
static unsigned long tot;
if (++tot % 4000 == 0)
printf(" [ar5] apres %lu pas : plage 0x%04x..0x%04x, %u cellules distinctes\n",
tot, lo, hi, nv);
}
if (rc && n < 16 && pc >= 0x81c8 && pc <= 0x81e0) {
n++;
printf(" [cp] pc=%04x op=%04x A=%010llx B=%010llx"
" AR2=%04x->%04x AR3=%04x->%04x AR4=%04x->%04x AR5=%04x->%04x\n",
pc, prog_ovly(dsp, pc),
(unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->ar[⟨1⟩], dsp->data[dsp->ar[⟨2⟩] & 0x3fff], ×3
⟨⟩ = (2,2) (3,3) (4,4)
dsp->ar[5], dsp->data[dsp->ar[5] & 0x3fff]);
} }
/* [2026-09-19] THE BLOCK THAT OVERWRITES THE LOWER HALF OF THE FIRS
* WINDOW. 0x832b..0x8330 writes 0000 x4 then 4000 x2 there. Boundary
* conditions, or clobbering? Print the program words of the area and the
* registers on entry, once. REJEU_DUMP832=1. */
{ static int d8 = -1; static int fait;
if (d8 < 0) d8 = calypso_getenv("REJEU_DUMP832") ? 1 : 0;
if (d8 && !fait && pc == 0x8320) {
fait = 1;
printf(" [832] programme 0x8318-0x8340 (alias OVLY compris) :\n");
for (unsigned a = 0x8318; a <= 0x8340; a += 8) {
printf(" %04x:", a);
for (int k = 0; k < 8 && a + k <= 0x8340; k++)
printf(" %04x", prog_ovly(dsp, (uint16_t)(a + k)));
printf("\n");
}
printf(" registres : A=%010llx B=%010llx T=%04x\n",
(unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL), dsp->t);
printf(" AR0=%04x AR1=%04x AR2=%04x AR3=%04x AR4=%04x AR5=%04x AR6=%04x AR7=%04x\n",
dsp->ar[0],dsp->ar[1],dsp->ar[2],dsp->ar[3],
dsp->ar[4],dsp->ar[5],dsp->ar[6],dsp->ar[7]);
} }
/* [2026-09-19] THE CORRELATOR BLOCK, PC BY PC, OVER A SINGLE DECODE.
* 3100 MACs per decode reads either as "50 x 62" or "31 x 100"; only a
* per-pass count decides. Count each PC in 0x84a0..0x84d0 during the
* FIRST decode, then print. REJEU_BLOC=1. */
{ static int bl = -1; static unsigned long cnt[0x40]; static int fini, vu_dec;
if (bl < 0) bl = calypso_getenv("REJEU_BLOC") ? 1 : 0;
if (bl && !fini) {
if (pc >= 0x84a0 && pc <= 0x84df) cnt[pc - 0x84a0]++;
if (pc == 0x9841) {
if (!vu_dec) { vu_dec = 1; }
else {
fini = 1;
printf(" [bloc] correlateur 0x84a0-0x84df sur UN decodage :\n");
for (int k = 0; k < 0x40; k++)
if (cnt[k]) printf(" pc=%04x op=%04x %6lu fois\n",
0x84a0 + k, prog_ovly(dsp, 0x84a0 + k), cnt[k]);
}
}
} }
/* [2026-09-19] IMPULSE RESPONSE OF 0x2c72. Force ONE position to an
* extreme value, held over the whole window, and compare the output
* between +v and -v. How many decoded bits move:
* 1 position -> a permutation, 0x2c72 really is one soft per bit
* 3 or 4 adjacent -> normal ISI, the chain is sound here
* all / none -> these are not per-bit softs
* REJEU_IMPULSION=<k> REJEU_IMPULSION_VAL=<v>. */
{ static int ik = -2, iv;
if (ik == -2) { const char *e = calypso_getenv("REJEU_IMPULSION");
ik = e ? atoi(e) : -1;
const char *w = calypso_getenv("REJEU_IMPULSION_VAL");
iv = w ? atoi(w) : 20000; }
if (ik >= 0 && ik < 78 && g_dans_sb)
dsp->data[0x2c72 + ik] = (uint16_t)(int16_t)iv; }
/* [2026-09-19] IS THE PEAK USED AT ALL? The addresses FIRS reads do
* not move when the burst moves, while the peak does follow. Force the
* peak to an arbitrary value over the whole demodulation window: if
* nothing downstream changes, it is not consumed and the equalizer is
* aligned on nothing. REJEU_FORCER_PIC=<n>. */
{ static int fp = -2;
if (fp == -2) { const char *e = calypso_getenv("REJEU_FORCER_PIC"); fp = e ? atoi(e) : -1; }
if (fp >= 0 && g_dans_sb) dsp->data[0x2f06] = (uint16_t)fp; }
/* [2026-09-19] PERFECT SOFTS. The fault lies somewhere between the
* correlator (sound) and the soft-bit write. Split the space in two:
* just before the decoder (0x9841) reads 0x2c72, write the ideal soft
* bits there ourselves, derived from the 78 bits the injected burst
* REALLY carries. If the DSP then returns BSIC=32, everything downstream
* (Viterbi, CRC, a_sch packing) is proven and the fault is strictly in
* soft PRODUCTION; otherwise it is downstream.
* REJEU_SOFTS_PARFAITS=<amplitude>, sign tested both ways via
* REJEU_SOFTS_POLARITE=0|1. REJEU_SOFTS_CONTINU=1 holds the ideal softs
* at EVERY step of the demodulation window, not only at the decoder
* entry -- otherwise a read before 0x9841 escapes the injection and "no
* effect" means nothing. */
if (pc == 0x9841 || (env_softs_continu && g_dans_sb)) {
static int amp = -2, pol = -1;
if (amp == -2) { const char *e = calypso_getenv("REJEU_SOFTS_PARFAITS");
amp = e ? atoi(e) : -1;
const char *q = calypso_getenv("REJEU_SOFTS_POLARITE");
pol = q ? atoi(q) : 0; }
if (amp > 0) {
int ri = g_n_reels ? g_reel_pour_fn[g_sb_cmd_fn & 63] : -1;
unsigned char att[78];
if (ri >= 0) memcpy(att, g_reels_code[ri], 78);
else cellule_code_attendu(g_sb_cmd_fn, (uint8_t)g_bsic_injecte, att);
/* REJEU_SOFTS_PERM: the order of the 78 values is a hypothesis.
* none = as is; swap = the two halves of 39 exchanged;
* rev = reversed order; entrelace = even/odd separated. */
static const char *perm; static int perm_lu;
if (!perm_lu) { perm = calypso_getenv("REJEU_SOFTS_PERM"); perm_lu = 1; }
/* [2026-09-20] The decoder reads its 78 softs at 0x2a00
* (ROM 0x984a `stm #0x2a00,AR1`; packing 0x7e65-0x7e7a),
* NOT at 0x2c72. Writing 0x2c72 tested nothing.
* REJEU_SOFTS_ADDR overrides (default 0x2a00). */
static long sa = -1;
if (sa < 0) { const char *e = calypso_getenv("REJEU_SOFTS_ADDR");
sa = (e && *e) ? strtol(e, NULL, 0) : 0x2a00; }
for (int k = 0; k < 78; k++) {
int j = k;
if (perm && !strcmp(perm, "swap")) j = (k < 39) ? k + 39 : k - 39;
else if (perm && !strcmp(perm, "rev")) j = 77 - k;
else if (perm && !strcmp(perm, "entrelace")) j = (k < 39) ? 2*k : 2*(k-39)+1;
int bit = att[j] & 1;
int v = (pol ? bit : !bit) ? amp : -amp;
dsp->data[(uint16_t)(sa + k)] = (uint16_t)(int16_t)v;
}
static unsigned ns; if (ns < 3) { ns++;
printf(" [softs] fn_demod=%u : 78 souples IDEAUX ecrits en 0x%04lx "
"(amp=%d pol=%d, source=%s)\n", g_sb_cmd_fn, sa, amp, pol,
ri >= 0 ? "burst reel" : "fixture"); }
}
}
/* [2026-09-19] WHO WRITES THE EQUALIZER INPUT WINDOW? FIRS reads
* 0x2a8e..0x2a9a and its lower half is zero or 0x4000. Watch the area
* word by word and record the PC of each write: that says who fills it,
* in what order, and where the filling stops. REJEU_QUI2A=1. */
{ static int q2 = -1; static uint16_t shadow[0x30]; static int init2;
static unsigned nq;
if (q2 < 0) q2 = calypso_getenv("REJEU_QUI2A") ? 1 : 0;
if (q2) {
if (!init2) { for (int k = 0; k < 0x30; k++) shadow[k] = dsp->data[0x2a80 + k]; init2 = 1; }
for (int k = 0; k < 0x30; k++) {
uint16_t v = dsp->data[0x2a80 + k];
if (v != shadow[k]) {
if (nq < 4000) { nq++;
printf(" [qui] 0x%04x : %04x -> %04x ecrit juste avant pc=%04x (fn=%u)\n",
0x2a80 + k, shadow[k], v, pc, fn_cur); }
shadow[k] = v;
}
}
} }
/* [2026-09-19] WHO FILLS B? The correlator is sound (the peak follows
* the margin), FIRS carries nothing, and yet `sth *AR6+,B` at 0x8497 is
* what writes the soft bits. Trace A and B over the whole window
* 0x8470..0x84a0 to see where B takes its value. REJEU_TRACE_B=1. */
/* 0x847c / 0x8498 : op=0x4485 = LD Smem,16,A per tic54x-opc.c
* (0x4400/0xFE00). No handler matches this mask in c54x_exec.c,
* yet A changes across it. Dump A before/after and every AR with
* the word it points at, to find where the value comes from. */
/* Dump the DSP work buffers at the correlator entry, together with
* the real burst that was fed, so an external model can identify what
* each buffer holds instead of guessing. REJEU_DUMP_BUF=<path>. */
/* Who writes the BSP deposit window 0x0cce, and when? At correlator
* entry the window holds none of the injected bursts and its content
* does not change between frames. Shadow the window, log each change
* with the PC that made it. REJEU_QUI_CCE=1. */
/* Timeline of the deposit window on one SB frame: every change with
* the PC and the instruction count, plus the correlator entry. Tells
* whether the burst is destroyed before or after the SB reads it.
* REJEU_CHRONO=<fn>. */
{ static long cf = -2; static uint16_t sh2[380]; static int ini2; static unsigned nl;
if (cf == -2) { const char *e = calypso_getenv("REJEU_CHRONO"); cf = e ? atol(e) : -1; }
if (cf >= 0 && (long)fn_cur == cf) {
if (!ini2) { for (int k=0;k<380;k++) sh2[k]=dsp->data[0x0cce + k]; ini2=1;
printf(" [chrono] trame %ld\n", cf); }
unsigned chg=0;
for (int k=0;k<380;k++) { uint16_t v=dsp->data[0x0cce + k];
if (v!=sh2[k]) { chg++; sh2[k]=v; } }
if (chg && nl < 24) { nl++;
printf(" insn=%-8u pc=%04x %4u mots changes\n",
dsp->insn_count, pc, chg); }
if (pc == 0x84a0 && nl < 30) { nl++;
printf(" insn=%-8u pc=84a0 <== ENTREE DU CORRELATEUR SB\n",
dsp->insn_count); }
if (pc == 0x7c31 && nl < 30) { nl++;
printf(" insn=%-8u pc=7c31 <== entree du demodulateur SB\n",
dsp->insn_count); }
} }
{ static int qc = -1; static uint16_t sh[380]; static int ini;
static unsigned long par_pc[0x10000], tot; static unsigned long nfr[64];
if (qc < 0) qc = calypso_getenv("REJEU_QUI_CCE") ? 1 : 0;
if (qc) {
if (!ini) { for (int k=0;k<380;k++) sh[k]=dsp->data[0x0cce + k]; ini=1; }
unsigned chg = 0;
for (int k=0;k<380;k++) {
uint16_t v = dsp->data[0x0cce + k];
if (v != sh[k]) { chg++; sh[k]=v; }
}
if (chg) { par_pc[pc] += chg; nfr[fn_cur & 63] += chg; }
if (++tot % 500000 == 0) {
printf(" [cce] ecrivains de 0x0cce (mots modifies) :\n");
for (int r=0;r<6;r++) {
unsigned best=0; unsigned long bv=0;
for (unsigned i=0;i<0x10000;i++) if (par_pc[i]>bv){bv=par_pc[i];best=i;}
if (!bv) break;
printf(" pc=%04x op=%04x : %lu mots\n", best,
prog_ovly(dsp,(uint16_t)best), bv);
par_pc[best]=0;
}
tot=1;
}
} }
{ static int vv2 = -1; static unsigned nv2;
if (vv2 < 0) vv2 = calypso_getenv("REJEU_VIE") ? 1 : 0;
if (vv2 && pc == 0x84a0 && g_vie_ad && nv2 < 5) { nv2++;
int ex = 0;
for (int k = 0; k < 296; k++)
if ((int16_t)dsp->data[(g_vie_ad + k) & 0x3fff] == g_livre_iq[2*marge_tete() + k]) ex++;
printf(" [vie] fn=%-4u ENTREE CORRELATEUR (depot de fn=%u) : %d/296 identiques\n",
fn_cur, g_vie_fn, ex); } }
{ static int db = -1; static FILE *fb;
if (db < 0) { const char *e = calypso_getenv("REJEU_DUMP_BUF");
db = e ? 1 : 0; if (db) fb = fopen(e, "wb"); }
if (db && fb && pc == 0x84a0 && g_n_reels) {
int ri = g_reel_pour_fn[g_sb_cmd_fn & 63];
if (ri >= 0) {
static int nb;
if (nb < 8) { nb++;
uint32_t hdr[4] = { g_sb_cmd_fn, (uint32_t)ri,
g_reels_fn[ri], g_reels_bsic[ri] };
fwrite(hdr, 4, 4, fb);
fwrite(g_reels[ri], 2, 296, fb); /* le burst injecte */
fwrite(&dsp->data[0x0cce], 2, 380, fb); /* depot BSP */
fwrite(&dsp->data[0x2a00], 2, 256, fb); /* tampon 1 */
fwrite(&dsp->data[0x2ac0], 2, 256, fb); /* tampon 2 */
fwrite(&dsp->data[0x2c72], 2, 78, fb); /* bits souples */
fwrite(g_reels_code[ri], 1, 78, fb); /* bits emis */
fflush(fb);
}
}
} }
{ static int q4 = -1; static unsigned n4; static int64_t avant; static int arme;
if (q4 < 0) q4 = calypso_getenv("REJEU_Q4485") ? 1 : 0;
if (q4) {
if (arme) { arme = 0;
printf(" -> A apres = %010llx\n",
(unsigned long long)(dsp->a & 0xffffffffffULL)); }
if ((pc == 0x847c || pc == 0x8498) && n4 < 6) {
n4++; avant = dsp->a; arme = 1;
printf(" [4485] pc=%04x op=%04x A avant = %010llx\n",
pc, prog_ovly(dsp, pc), (unsigned long long)(avant & 0xffffffffffULL));
for (int k = 0; k < 8; k++)
printf(" AR%d=%04x -> %04x\n", k, dsp->ar[k],
dsp->data[dsp->ar[k] & 0x3fff]);
}
} }
{ static int tb = -1; static unsigned ntb;
if (tb < 0) tb = calypso_getenv("REJEU_TRACE_B") ? 1 : 0;
if (tb && ntb < 70 && pc >= 0x8470 && pc <= 0x84a0) {
ntb++;
printf(" [B] pc=%04x op=%04x A=%010llx B=%010llx AR2=%04x->%04x AR3=%04x->%04x\n",
pc, prog_ovly(dsp, pc),
(unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->ar[2], dsp->data[dsp->ar[2] & 0x3fff],
dsp->ar[3], dsp->data[dsp->ar[3] & 0x3fff]);
} }
{ uint16_t o = prog_ovly(dsp, pc); uint8_t h = o >> 8;
static int dans_sb2;
if (pc == 0x7c31) dans_sb2 = 1;
if (pc == 0x9841) dans_sb2 = 0;
g_dans_sb = dans_sb2;
/* [2026-09-18] WHAT FIRS MULTIPLIES. FIRS (0xE0, 2 words) takes its
* pmad from the following word and reads its coefficients in PROGRAM
* space. Print pmad, the coefficients as the core sees them (OVLY alias
* included) and data[] at the same address: null or constant
* coefficients mean the equalizer output CANNOT depend on its input,
* which would be the root cause. */
if (env_firs && dans_sb2 && h == 0xE0) {
static unsigned nf;
if (nf < 10) {
uint16_t pmad = prog_ovly(dsp, (uint16_t)(pc + 1));
printf(" [firs] #%u pc=%04x pmad=%04x coef(prog+ovly)=", ++nf, pc, pmad);
for (int k = 0; k < 6; k++) printf(" %04x", prog_ovly(dsp, (uint16_t)(pmad + k)));
printf(" data[pmad..]=");
for (int k = 0; k < 6; k++) printf(" %04x", dsp->data[(pmad + k) & 0x3fff]);
printf("\n");
}
}
if (pc >= 0x9800 && pc <= 0x9bff) g_op_dec[o]++;
if (pc >= 0x8400 && pc <= 0x84ff) g_op_eq[o]++;
if (pc == 0x9841) g_n_dec++;
if (dans_sb2) {
if (g_op_n[o]++ == 0) g_op_pc[o] = pc;
if (h == 0x8E || h == 0x8F) n_cmps_sb++;
if (h >= 0xE0 && h <= 0xE3) { n_e0_sb++; n_e0x_sb[h - 0xE0]++; }
/* [2026-09-18] FIRS reads its coefficients at Pmem[pmad], with
* pmad ~ 0x0061. But 0x0060-0x007F is the C54x DARAM SCRATCH-PAD
* and the core's OVLY window only starts at 0x0080, so
* prog_read(0x61) falls back on prog[] where nothing is loaded
* below 0x7000. If the coefficients only live in data[], FIRS
* multiplies by nothing and its output cannot depend on its input.
* Read BOTH spaces at the FIRS. */
if (h == 0xE0 && n_firs_vus < 6) {
uint16_t pmad = dsp->prog[(pc + 1) & 0xffff];
int nzp = 0, nzd = 0;
for (int k = 0; k < 6; k++) {
if (dsp->prog[(pmad + k) & 0xffff]) nzp++;
if (dsp->data[(pmad + k) & 0x3fff]) nzd++;
}
/* [2026-09-18] Reading prog[] RAW is misleading: with
* PMST_OVLY set and the alias floor at 0x0060 (gate
* CALYPSO_OVLY_SCRATCH, default 1), a PROGRAM read in
* 0x0060-0x27FF is redirected to data[]. Reproduce the core's
* translation to know what FIRS REALLY reads, rather than what
* the prog[] array holds. */
int ovly = (dsp->pmst & 0x0020) != 0;
int alias = ovly && pmad >= 0x0060 && pmad < 0x2800;
printf(" [firs] pc=%04x pmad=%04x PMST=%04x OVLY=%d alias=%s"
" -> FIRS lit", pc, pmad, dsp->pmst, ovly,
alias ? "data[] (scratch-pad visible)" : "prog[] (PAS d'alias)");
for (int k = 0; k < 6; k++)
printf(" %04x", alias ? dsp->data[(pmad + k) & 0x3fff]
: dsp->prog[(pmad + k) & 0xffff]);
printf("\n");
printf(" [firs] pc=%04x pmad=%04x | prog[pmad..+5]=", pc, pmad);
for (int k = 0; k < 6; k++) printf(" %04x", dsp->prog[(pmad + k) & 0xffff]);
printf(" (%d non nuls)\n | data[pmad..+5]=", nzp);
for (int k = 0; k < 6; k++) printf(" %04x", dsp->data[(pmad + k) & 0x3fff]);
printf(" (%d non nuls)\n", nzd);
n_firs_vus++;
}
} else if (h == 0x8E || h == 0x8F) n_cmps_hors++;
/* [2026-09-18] The dans_sb window closes at 0x9841, so it EXCLUDES
* the SCH decoder and its Viterbi (0x9a78): "0 CMPS in the SB demod"
* said nothing about the Viterbi. CMPS is therefore also counted per PC
* region, with no window, which is unambiguous. */
if (h == 0x8E || h == 0x8F) n_cmps_reg[pc >> 10]++;
/* [2026-09-18] WHO WRITES 0x2a00? The decoder reads 78 words at
* 0x2a00 and finds them ALL NULL on entry: either the equalization
* stage never writes them, or something erases them first. Watch
* 0x2a00..0x2a8d over the WHOLE SB job (not just the demod), recording
* the PC of each change and its direction (to a value, or to zero). */
/* [2026-09-18] 0x8389 = 0x4594 = `ADD *AR4+,16,A,B` (0x4400/0xFC00,
* bit9=src, bit8=dst). The core has NO handler for 0x4400-0x47FF: the
* only one in the area is (op & 0xFC00) == 0x4000, which covers SUB
* alone. Check that B really changes across that instruction. */
{ static int nav; static int64_t bavant;
if (pc == 0x8389) { bavant = dsp->b; nav = 1; }
else if (nav == 1 && pc == 0x838a) {
static int n=0;
if (n < 4) {
printf(" [add-4594] B avant=%010llx B apres=%010llx A=%010llx %s\n",
(unsigned long long)(bavant & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
(unsigned long long)(dsp->a & 0xffffffffffULL),
(dsp->b == bavant) ? "B INCHANGE => instruction NON EXECUTEE" : "B modifie");
n++;
}
nav = 0;
} }
{ static int nb838d;
if (pc == 0x838e && nb838d < 6) {
printf(" [B@838d] B=%010llx A=%010llx AR6=%04x BRC=%u ST1=%04x\n",
(unsigned long long)(dsp->b & 0xffffffffffULL),
(unsigned long long)(dsp->a & 0xffffffffffULL),
dsp->ar[6], dsp->brc, dsp->st1);
nb838d++;
} }
{ static uint16_t omb2[142]; static int arme6; static long ecr[64], vers0[64];
static uint16_t pmin[64], pmax[64];
static struct { uint16_t pc; long v, z; } parpc2[12];
if (pc == 0xb219) {
for (int k = 0; k < 142; k++) omb2[k] = dsp->data[0x2a00 + k];
arme6 = 1;
for (int b = 0; b < 64; b++) { ecr[b] = 0; vers0[b] = 0; }
for (int t = 0; t < 12; t++) { parpc2[t].pc = 0; parpc2[t].v = 0; parpc2[t].z = 0; }
}
if (arme6) {
for (int k = 0; k < 142; k++) {
if (dsp->data[0x2a00 + k] != omb2[k]) {
/* [2026-09-18] Bucket by EXACT PC, and separate value
* writes from zeroing: 284 changes of which 142 to zero
* means something writes the 142 soft bits then ERASES
* them all, and both instructions must be named. The PC
* printed is that of the FOLLOWING instruction. */
{ int z = (dsp->data[0x2a00 + k] == 0);
for (int t = 0; t < 12; t++) {
if (parpc2[t].pc == 0 || parpc2[t].pc == pc) {
parpc2[t].pc = pc;
if (z) parpc2[t].z++; else parpc2[t].v++;
break;
}
} }
int b = pc >> 10;
if (!ecr[b]) { pmin[b] = pc; pmax[b] = pc; }
if (pc < pmin[b]) pmin[b] = pc;
if (pc > pmax[b]) pmax[b] = pc;
ecr[b]++;
if (dsp->data[0x2a00 + k] == 0) vers0[b]++;
omb2[k] = dsp->data[0x2a00 + k];
}
}
}
if (pc == 0x9841 && arme6 && n_2a0 < 3) {
printf(" [qui-2a00] modifications de 0x2a00..0x2a8d pendant le job SB :\n");
long tot = 0;
for (int b = 0; b < 64; b++)
if (ecr[b]) {
printf(" region 0x%04x : %ld modifs (dont %ld vers zero), PC 0x%04x a 0x%04x\n",
b << 10, ecr[b], vers0[b], pmin[b], pmax[b]);
tot += ecr[b];
}
if (!tot) printf(" AUCUNE : rien n'ecrit jamais dans 0x2a00\n");
printf(" par PC exact (PC imprime = instruction SUIVANTE) :\n");
for (int t = 0; t < 12; t++)
if (parpc2[t].pc)
printf(" pc=%04x (donc ecrivain %04x) : %ld valeurs, %ld mises a ZERO\n",
parpc2[t].pc, parpc2[t].pc - 1, parpc2[t].v, parpc2[t].z);
n_2a0++;
} }
/* [2026-09-18] WHO WRITES THE 78 SOFT BITS, AND AT WHICH ADDRESS?
* Sweeping the 78 coded bits shows the first half landing at position b+3
* and the second at TWO positions 51 apart (b-38 and b+13), i.e. the two
* data blocks OVERLAP instead of concatenating. Shadow the area and
* record the PC as soon as its content changes. */
{ static uint16_t ombre[78]; static int arme5; static long parpc[64];
static uint16_t pcmin[64], pcmax[64]; static long seq;
if (dans_sb2) {
if (!arme5) { for (int k = 0; k < 78; k++) ombre[k] = dsp->data[0x2c72 + k]; arme5 = 1; seq = 0; }
for (int k = 0; k < 78; k++) {
if (dsp->data[0x2c72 + k] != ombre[k]) {
int b = pc >> 10;
if (!parpc[b]) { pcmin[b] = pc; pcmax[b] = pc; }
if (pc < pcmin[b]) pcmin[b] = pc;
if (pc > pcmax[b]) pcmax[b] = pc;
parpc[b]++;
/* [2026-09-18] EXACT CHRONOLOGY: sequence number, PC,
* index touched, old and new value. Tells (a) in which
* ORDER the two passes write, hence which destroys which,
* and (b) whether two writes at the same index carry the
* SAME value (mis-addressed copy) or DIFFERENT ones (two
* halves of a sum that should have landed together). */
if (n_ecr == 0 && seq < 100)
printf(" [w] %3ld pc=%04x k=%2d %04x -> %04x "
"AR0=%04x AR1=%04x AR2=%04x AR3=%04x AR4=%04x AR5=%04x AR6=%04x AR7=%04x BRC=%u\n",
seq, pc, k, ombre[k], dsp->data[0x2c72 + k],
dsp->ar[0], dsp->ar[1], dsp->ar[2], dsp->ar[3],
dsp->ar[4], dsp->ar[5], dsp->ar[6], dsp->ar[7], dsp->brc);
seq++;
ombre[k] = dsp->data[0x2c72 + k];
}
}
} else if (arme5 && n_ecr < 2) {
printf(" [ecrit-2c72] sites qui modifient les 78 bits souples :\n");
for (int b = 0; b < 64; b++)
if (parpc[b])
printf(" region 0x%04x : %ld ecritures, PC de 0x%04x a 0x%04x\n",
b << 10, parpc[b], pcmin[b], pcmax[b]);
n_ecr++; arme5 = 0;
for (int b = 0; b < 64; b++) parpc[b] = 0;
} }
/* [2026-09-18] WHY THE EDGES ARE LOST. The max|delta| profile shows
* three orders of magnitude between the middle of the burst (13452,
* 19534, extreme values REPEATED) and its edges (2 to 30). Identical
* extremes coming back means SATURATION. In a fixed-point MLSE the path
* metrics MUST be renormalized at every step; without that they grow,
* saturate, and the relative contribution of edge symbols collapses.
* Count accumulator saturations and flag state during the SB demod. */
{ static long nsat, nova, novb; static int ovm_vu;
if (dans_sb2) {
int64_t a = dsp->a, b = dsp->b;
if (a > 0x7FFFFFFFLL || a < -0x80000000LL) nsat++;
if (b > 0x7FFFFFFFLL || b < -0x80000000LL) nsat++;
if (dsp->st0 & 0x0400) nova++; /* OVA */
if (dsp->st0 & 0x0200) novb++; /* OVB */
if (dsp->st1 & 0x0200) ovm_vu = 1; /* OVM: saturation mode */
} else if ((nsat || nova || novb) && n_sat_vus < 3) {
printf(" [saturation] demod SB : %ld depassements 32 bits,"
" OVA pose %ld fois, OVB %ld fois, mode OVM %s\n",
nsat, nova, novb, ovm_vu ? "ACTIF" : "inactif");
n_sat_vus++; nsat = nova = novb = 0;
} }
/* [2026-09-18] WHERE DOES THE FIXED WINDOW ADDRESS COME FROM? Watch
* the address registers that SWEEP the input buffer 0x0cce during the SB
* demod and print, per register, the sample index range covered and the
* PC that set it. If that range does NOT move by 10 when the margin goes
* from 21 to 31, the address is computed once and reused as is. BK is
* printed too: a mis-emulated circular block size would loop the access
* over a fixed window of the right length with a correct base. */
{ static uint16_t amin[8], amax[8], apc[8]; static long an[8];
static int arme4;
if (dans_sb2) {
if (!arme4) { for (int k = 0; k < 8; k++) { amin[k] = 0xffff; amax[k] = 0; an[k] = 0; } arme4 = 1; }
for (int k = 0; k < 8; k++) {
uint16_t v = dsp->ar[k];
if (v >= 0x0cce && v < 0x0cce + 380) {
uint16_t idx = (uint16_t)((v - 0x0cce) / 2);
if (idx < amin[k]) { amin[k] = idx; apc[k] = pc; }
if (idx > amax[k]) amax[k] = idx;
an[k]++;
}
}
} else if (arme4 && n_bal < 3) {
printf(" [tampon-AR] parcours de 0x0cce pendant le demod SB (BK=%u) :\n", dsp->bk);
for (int k = 0; k < 8; k++)
if (an[k])
printf(" AR%d : echantillons %u..%u (%u larges), %ld acces, 1er a pc=%04x\n",
k, amin[k], amax[k], amax[k] - amin[k] + 1, an[k], apc[k]);
n_bal++; arme4 = 0;
} }
/* [2026-09-18] XC PIPELINE HAZARD. On the C54x the XC condition is
* sampled two cycles before execution, so an instruction setting the
* flag just before the XC is not yet visible; the core evaluates at
* execution time. The hazard therefore only bites if the ROM places the
* flag setter within two slots of the XC (code written for real silicon
* normally does not). Measure the real DISTANCE instead of assuming it:
* keep the last 4 PCs and the ST0 before each. */
{ static uint16_t ring_pc[4], ring_op[4], ring_st0[4]; static int ri;
if ((h == 0xFD || h == 0xFF) && pc >= 0x8400 && pc < 0x8800 && n_xc_vus < 10) {
printf(" [xc] pc=%04x op=%04x cc=%02x | 3 precedentes :", pc, o, o & 0xff);
for (int k = 3; k >= 1; k--) {
int q = (ri - k) & 3;
printf(" %04x:%04x(ST0=%04x)", ring_pc[q], ring_op[q], ring_st0[q]);
}
printf(" | ST0 au XC=%04x\n", dsp->st0);
n_xc_vus++;
}
ring_pc[ri] = pc; ring_op[ri] = o; ring_st0[ri] = dsp->st0;
ri = (ri + 1) & 3;
if (h == 0xFD || h == 0xFF) n_xc_reg[pc >> 10]++; } }
/* [2026-09-20] DECODER ORACLE (REJEU_DECODEUR=1). Ideal softs at
* 0x2a00 still give no CRC OK, so the fault is inside 0x9841..: ACS
* (0x9a78), traceback (0x9aaf) or CRC (0x9887). Dump each stage's
* output next to what libosmocoding says it should be: u[0..34] =
* 25 info bits of sb_info + 10 parity bits (gsm0503_sch_crc10). */
if (env_decodeur) {
static unsigned nd;
{ static unsigned nt;
if (pc == 0x9a7f && nt < 6) { nt++;
printf(" [dec] apres `sth @0x0e,B` (pc=9a7e) : T=%04x B=%010llx (hi=%04x) DP=%03x CPL=%d ST0=%04x ST1=%04x AR1=%04x\n",
dsp->t, (unsigned long long)(dsp->b & 0xffffffffffULL), (unsigned)((dsp->b >> 16) & 0xffff),
dsp->st0 & 0x1ff, !!(dsp->st1 & 0x4000), dsp->st0, dsp->st1, dsp->ar[1]); } }
{ static int cpl_prev = -1; static uint16_t pc_prev; static unsigned ncpl;
int cpl = !!(dsp->st1 & 0x4000);
if (cpl_prev >= 0 && cpl != cpl_prev && ncpl < 16) { ncpl++;
printf(" [cpl] CPL %d -> %d apres l'instruction pc=%04x op=%04x (fn=%u ST1=%04x SP=%04x)\n",
cpl_prev, cpl, pc_prev, prog_ovly(dsp, pc_prev), fn_cur, dsp->st1, dsp->sp); }
cpl_prev = cpl; pc_prev = pc; }
if (pc == 0x9866 && nd < 3) {
printf(" [dec] fn_demod=%u ACS termine : TRN[0..38] @0x2c82 =", g_sb_cmd_fn);
for (int k = 0; k < 39; k++) printf(" %04x", dsp->data[0x2c82 + k]);
printf("\n metriques @0x2c00..0x2c1f =");
for (int k = 0; k < 32; k++) printf(" %04x", dsp->data[0x2c00 + k]);
printf("\n softs @0x2a00[0..7] = %04x %04x %04x %04x %04x %04x %04x %04x BK=%04x AR0=%04x ST1=%04x\n",
dsp->data[0x2a00], dsp->data[0x2a01], dsp->data[0x2a02], dsp->data[0x2a03],
dsp->data[0x2a04], dsp->data[0x2a05], dsp->data[0x2a06], dsp->data[0x2a07],
dsp->bk, dsp->ar[0], dsp->st1);
}
if (pc == 0x987b && nd < 3) {
int ri = g_n_reels ? g_reel_pour_fn[g_sb_cmd_fn & 63] : -1;
unsigned char u[35];
if (ri >= 0) { /* decode the real codeword back to u: not available, print softs only */
memset(u, 9, sizeof u);
} else {
uint32_t fn = g_sb_cmd_fn;
uint32_t t1 = fn / 1326, t2 = fn % 26, t3 = fn % 51, t3p = t3 ? (t3 - 1) / 10 : 0;
uint8_t sb_info[4] = {
(uint8_t)(((g_bsic_injecte & 0x3f) << 2) | ((t1 & 0x600) >> 9)),
(uint8_t)((t1 & 0x1fe) >> 1),
(uint8_t)(((t1 & 0x001) << 7) | ((t2 & 0x1f) << 2) | ((t3p & 0x6) >> 1)),
(uint8_t)(t3p & 0x1) };
ubit_t ub[35];
osmo_pbit2ubit_ext(ub, 0, sb_info, 0, 25, 1);
osmo_crc16gen_set_bits(&gsm0503_sch_crc10, ub, 25, ub + 25);
for (int k = 0; k < 35; k++) u[k] = ub[k];
}
unsigned long long um = 0, ul = 0;
for (int k = 0; k < 35; k++) { um = (um << 1) | u[k]; ul |= (unsigned long long)u[k] << k; }
printf(" [dec] traceback termine : mots @0x2c00 = %04x %04x %04x %04x | attendu u[0..34] MSB-first=0x%09llx LSB-first=0x%09llx\n",
dsp->data[0x2c00], dsp->data[0x2c01], dsp->data[0x2c02], dsp->data[0x2c03], um, ul);
printf(" u = "); for (int k = 0; k < 35; k++) printf("%d", u[k]); printf("\n");
}
if (pc == 0x98a2 && nd < 3) {
printf(" [dec] CRC : drapeau 0x2bf8=%u A=%010llx mots @0x2c00 = %04x %04x %04x\n",
dsp->data[0x2bf8], (unsigned long long)(dsp->a & 0xffffffffffULL),
dsp->data[0x2c00], dsp->data[0x2c01], dsp->data[0x2c02]);
nd++;
}
}
g_op_tous[prog_ovly(dsp, pc)]++;
int ex = c54x_run(dsp, 1);
if (ex <= 0) break;
done += ex;
insn_total++;
}
} else {
/* single-step around the TOA computation (0x7940..0x795c): A, B, T, 0x3fb4 */
static int nlog;
while (done < insns && dsp->running && !dsp->idle) {
uint16_t pc = dsp->pc & 0xffff;
/* The SB demod writes 78 soft bits at 0x2a00 (repack at 0x7e94) and
* the decoder at 0x9841 reads them back. The FB correlator uses THE SAME
* buffer. Compare both instants to prove the overwrite. */
{ static uint16_t apres_demod[8]; static int arme, np;
if (pc == 0x7e94 && !arme) {
for (int k = 0; k < 8; k++) apres_demod[k] = dsp->data[0x2a00 + k];
arme = 1;
} else if (pc == 0x9841 && arme && np < 6) {
int diff = 0;
for (int k = 0; k < 8; k++) if (dsp->data[0x2a00 + k] != apres_demod[k]) diff = 1;
printf(" [2a00] apres demod: %04x %04x %04x %04x | a l'entree du decodeur: %04x %04x %04x %04x => %s\n",
apres_demod[0], apres_demod[1], apres_demod[2], apres_demod[3],
dsp->data[0x2a00], dsp->data[0x2a01], dsp->data[0x2a02], dsp->data[0x2a03],
diff ? "ECRASE" : "intact");
np++; arme = 0;
} }
/* [2026-09-17] Proof that the samples carry the message: demodulate
* the SAME buffer 0x0cce the DSP reads, with a reference demodulator
* written in C. If it recovers the code word and the DSP does not, the
* signal is good and the fault is entirely in the emulated DSP. */
/* Does the buffer hold EXACTLY the samples delivered for this frame,
* or a mix of several bursts? The midamble is identical in every SCH: a
* mix would reinforce it while drowning the data, which is precisely the
* symptom observed. */
{ static int nx;
if (pc == 0x9841 && nx < 4 && g_livre_niq) {
int ident = 0, n = g_livre_niq < 380 ? g_livre_niq : 380;
int prem_diff = -1;
for (int k = 0; k < n; k++) {
if ((int16_t)dsp->data[0x0cce + k] == g_livre_iq[k]) ident++;
else if (prem_diff < 0) prem_diff = k;
}
printf(" [tampon] identique aux echantillons livres : %d/%d mots"
" (1re difference au mot %d)\n", ident, n, prem_diff);
nx++;
} }
/* [2026-09-18] At the decoder entry, measure what it actually READS,
* job by job: the signs of the 78 words packed at 0x2a00 against the
* expected code word, with the best frame searched as in [ref] (under
* REJEU_SCH_PARTOUT the delivered FN is not reliable). Both polarities
* are printed: on differential GMSK the sign convention is not known a
* priori. Links "the stage rewriting 0x2a00 outputs values" to "the
* decoder has something to work on". */
{ static int nb2;
if (pc == 0x9841 && nb2 < 20) {
int16_t sb[78]; int nz = 0, mn = 32767, mx = -32768;
for (int k = 0; k < 78; k++) {
sb[k] = (int16_t)dsp->data[0x2a00 + k];
if (!sb[k]) nz++;
if (sb[k] < mn) mn = sb[k];
if (sb[k] > mx) mx = sb[k];
}
int meil_f = -1, meil_s = -1, s0 = -1;
for (int df = -12; df <= 3; df++) {
long f = (long)g_livre_fn + df; if (f < 0) continue;
unsigned char a2[78]; cellule_code_attendu((uint32_t)f, (uint8_t)g_bsic_injecte, a2);
int ok = 0;
for (int k = 0; k < 78; k++) { int bit = sb[k] < 0 ? 1 : 0; if (bit == a2[k]) ok++; }
int meilleur = ok > 78 - ok ? ok : 78 - ok;
if (meilleur > meil_s) { meil_s = meilleur; meil_f = (int)f; }
if (df == 0) s0 = ok;
}
printf(" [2a00-lu] job %d : zeros=%d/78 etendue=[%d..%d] |"
" signes trame livree %d/78 | meilleure trame %d avec %d/78\n",
nb2 + 1, nz, mn, mx, s0, meil_f, meil_s);
nb2++;
} }
{ static int nr;
if (pc == 0x9841 && nr < 4) {
int16_t ech[2 * 190];
for (int k = 0; k < 380; k++) ech[k] = (int16_t)dsp->data[0x0cce + k];
unsigned char b148[148]; int off = 0;
unsigned char att[78];
cellule_code_attendu(g_livre_fn, (uint8_t)g_bsic_injecte, att);
if (cellule_demod_reference(ech, 190, b148, &off) == 0) {
/* sanity of the reference demod: the midamble must come back out */
int okm = 0;
for (int i = 0; i < 64; i++) if (b148[42 + i] == cellule_train_sb(i)) okm++;
/* raw differential bits: no error propagation */
unsigned char d148[148]; int okd = 0, okdd = 0;
if (cellule_demod_d(ech, 190, off, d148) == 0) {
for (int i = 1; i < 64; i++) {
int att_d = cellule_train_sb(i) ^ cellule_train_sb(i - 1);
if (d148[42 + i] == att_d) okd++;
}
/* same bits, opposite polarity */
for (int i = 1; i < 64; i++) {
int att_d = cellule_train_sb(i) ^ cellule_train_sb(i - 1);
if (d148[42 + i] != att_d) okdd++;
}
}
/* The DATA too, as raw differential bits, against the full
* expected burst (3 tail + 39 + midamble + 39 + 3 tail).
* Comparing on b148 is meaningless: differential decoding
* propagates any single error over the rest of the burst. */
int okdat = 0, ndat = 0, meil_f = -1, meil_s = -1;
for (int df = -12; df <= 3; df++) {
long f = (long)g_livre_fn + df; if (f < 0) continue;
unsigned char a2[78]; cellule_code_attendu((uint32_t)f, (uint8_t)g_bsic_injecte, a2);
unsigned char burst[148];
memset(burst, 0, 3);
memcpy(burst + 3, a2, 39);
for (int i = 0; i < 64; i++) burst[42 + i] = (unsigned char)cellule_train_sb(i);
memcpy(burst + 106, a2 + 39, 39);
memset(burst + 145, 0, 3);
int ok2 = 0, n2 = 0, prev2 = 1;
for (int i = 0; i < 148; i++) {
int att_d = burst[i] ^ prev2; prev2 = burst[i];
int est_donnee = (i >= 3 && i < 42) || (i >= 106 && i < 145);
if (!est_donnee) continue;
n2++; if (d148[i] == att_d) ok2++;
}
if (ok2 > meil_s) { meil_s = ok2; meil_f = (int)f; }
if (df == 0) { okdat = ok2; ndat = n2; }
}
printf(" [d-brut] midambule %d/63 (inverse %d) | DONNEES trame livree %d/%d"
" | meilleure trame %d avec %d/%d\n",
okd, okdd, okdat, ndat, meil_f, meil_s, ndat);
/* the midamble is IDENTICAL for every SCH frame: if it locks
* but the data does not, the buffer holds the burst of ANOTHER
* frame. Find out which. */
int meilleure = -1, meilleur_score = -1;
for (int df = -12; df <= 3; df++) {
long f = (long)g_livre_fn + df; if (f < 0) continue;
unsigned char a2[78]; cellule_code_attendu((uint32_t)f, (uint8_t)g_bsic_injecte, a2);
int ok2 = 0;
for (int i = 0; i < 39; i++) if (b148[3 + i] == a2[i]) ok2++;
for (int i = 0; i < 39; i++) if (b148[106 + i] == a2[39 + i]) ok2++;
if (ok2 > meilleur_score) { meilleur_score = ok2; meilleure = (int)f; }
}
int ok = 0;
for (int i = 0; i < 39; i++) if (b148[3 + i] == att[i]) ok++;
for (int i = 0; i < 39; i++) if (b148[106 + i] == att[39 + i]) ok++;
printf(" [ref] fn livree=%u offset=%d | midambule %d/64 |"
" mot de code de la trame livree %d/78 |"
" MEILLEURE trame = %d avec %d/78\n",
g_livre_fn, off, okm, ok, meilleure, meilleur_score);
} else {
printf(" [ref] fn=%u demod de reference : pas de pic exploitable\n", g_livre_fn);
}
nr++;
} }
/* [2026-09-17] Hunting the next ISA bug. The FB path works, so every
* opcode it executes is valid by construction. List the opcodes only the
* SB demodulator executes: the one family never validated, hence the pool
* of suspects. */
{ static int dans_sb;
if (!vu_sb) { vu_sb = calloc(65536, 1); vu_hors = calloc(65536, 1); }
if (pc == 0x7c31) dans_sb = 1;
if (pc == 0x9841) dans_sb = 0;
/* [2026-09-18] Flipping ONE coded bit moves 78 positions out of 78
* in 0x2c72: the traceback is global. On the C54x that points at CMPS
* (0x8E/0x8F) and the TRN register. So count what really executes in
* the SB path: the true CMPS, or the 0xE0 family (FIRS/LMS/SQDST/ABDST)
* whose variant still carries pseudo-CMPS semantics in the core. */
{ uint16_t o = dsp->prog[pc]; uint8_t h = o >> 8;
if (dans_sb) {
if (h == 0x8E || h == 0x8F) n_cmps_sb++;
if (h >= 0xE0 && h <= 0xE3) { n_e0_sb++; n_e0x_sb[h - 0xE0]++; }
if (o == 0x8D00 || (o & 0xFF00) == 0x8D00) n_sttrn_sb++;
} else {
if (h == 0x8E || h == 0x8F) n_cmps_hors++;
} }
{ uint16_t o = dsp->prog[pc];
if (dans_sb) vu_sb[o] = 1; else vu_hors[o] = 1; }
}
/* [2026-09-17] The 78 soft bits are at 0x2c72 (NOT 0x2a00, which is
* the 296-word FB correlator buffer). Compare the SIGN of each with the
* bit actually transmitted: matching signs mean the demodulator is sound
* and the fault is in the decoder; matching with a shift means the
* correlator offset is wrong. */
{ static int nb;
if (pc == 0x9841 && nb < 400) {
unsigned char att[78];
cellule_code_attendu(g_livre_fn, (uint8_t)g_bsic_injecte, att);
/* Try the plausible conventions: polarity, halves swapped (the
* DSP may return 39+39 in the other order), and a shift. A
* combination clearly above chance means the demodulator is sound
* and it is a matter of convention. */
/* [2026-09-18] The family tested did NOT include even/odd
* de-interleaving. The SCH convolutional code emits its 78 bits
* in the order C(2k), C(2k+1) per trellis step, and the burst
* stores them as two halves of 39. If the DSP stores its softs
* in the INTERNAL order (all evens then all odds), no cyclic
* shift, polarity or half swap recovers it: every combination
* lands exactly at chance, which is precisely the plateau
* observed. Add the permutation and its inverse.
* 0 identity 1 halves swapped
* 2 evens first 3 odds first */
int best = -99, bestd = 0, bestv = 0;
for (int v = 0; v < 8; v++) {
int inv = v & 1, perm = v >> 1;
for (int d = -8; d <= 8; d++) {
int ok = 0, tot = 0;
for (int i = 0; i < 78; i++) {
int src;
switch (perm) {
case 1: src = (i + 39) % 78; break;
case 2: src = (i % 2 == 0) ? (i / 2) : (39 + (i - 1) / 2); break;
case 3: src = (i % 2 == 1) ? ((i - 1) / 2) : (39 + i / 2); break;
default: src = i; break;
}
int j = src + d; if (j < 0 || j >= 78) continue;
int16_t sv = (int16_t)dsp->data[0x2c72 + j];
if (!sv) continue;
tot++;
int bit = att[i] != 0; if (inv) bit = !bit;
if ((sv < 0) == bit) ok++;
}
if (tot >= 40) { int pc2 = ok * 100 / tot;
if (pc2 > best) { best = pc2; bestd = d; bestv = v; } }
}
}
int nznb = 0; for (int i = 0; i < 78; i++) if (dsp->data[0x2c72 + i]) nznb++;
/* Is the DSP output a SLICE of the burst at some arbitrary
* offset? Correlate the 78 signs against the differential
* sequence of the 148 burst bits, at every shift, in both
* polarities. */
{ unsigned char burst[148]; int prev3 = 1; unsigned char dref[148];
memset(burst, 0, 3); memcpy(burst + 3, att, 39);
for (int i = 0; i < 64; i++) burst[42 + i] = (unsigned char)cellule_train_sb(i);
memcpy(burst + 106, att + 39, 39); memset(burst + 145, 0, 3);
for (int i = 0; i < 148; i++) { dref[i] = burst[i] ^ prev3; prev3 = burst[i]; }
int bs = -1, bo = 0, bp = 0;
for (int o = -78; o <= 148; o++) {
for (int pol = 0; pol < 2; pol++) {
int ok = 0, tot = 0;
for (int i = 0; i < 78; i++) {
int j = o + i; if (j < 0 || j >= 148) continue;
int16_t sv = (int16_t)dsp->data[0x2c72 + i];
if (!sv) continue;
tot++; int b = dref[j]; if (pol) b = !b;
if ((sv < 0) == b) ok++;
}
if (tot >= 50 && ok * 100 / tot > bs) { bs = ok * 100 / tot; bo = o; bp = pol; }
}
}
printf(" [tranche] sortie DSP vs burst complet : max %d%% a l'offset %d (polarite %d)\n",
bs, bo, bp); }
/* [2026-09-18] Peak and agreement on the SAME line, so they can
* be correlated frame by frame: if the frames whose peak is 21 (the
* real burst start) agree better, peak PRECISION is still a problem
* and the channel estimate sits beside the burst, which is enough
* to ruin an MLSE equalizer on GMSK whose ISI spans three symbols.
* A flat agreement whatever the peak clears the correlator. */
/* fingerprint of the 78 soft bits, to diff two runs */
{ static int nemq; static long cible = -2;
if (cible == -2) { const char *e = calypso_getenv("REJEU_EMPREINTE_FN");
cible = e ? atol(e) : -1; }
/* [2026-09-18] THE FRAME MUST BE LOCKED. Taking whichever
* occurrence comes first does not compare the same thing across
* runs: the frame the SB attempt lands on depends on FB
* scheduling, and under SCH_PARTOUT a different frame means a
* different T1/T2/T3, hence an entirely different code word --
* 190/380 samples differing and 38 signs out of 78 flipping,
* i.e. chance. REJEU_EMPREINTE_FN=<n> prints frame n only. */
if (nemq < 1 && (cible < 0 || (long)g_livre_fn == cible)) {
/* [2026-09-18] Check the MODULATOR before blaming the
* demodulator. Flipping coded bit 0 touches burst bit 3, so
* alpha_3 and alpha_4 both change sign and their SUM is
* preserved: the phase realigns after two symbols, and only
* ~6 complex samples around index 24 should differ out of
* 380. If all 380 differ, the modulator is at fault. */
printf(" [empreinte-iq] fn=%u :", g_livre_fn);
for (int k = 0; k < 380; k++) printf(" %04x", dsp->data[0x0cce + k]);
printf("\n"); nemq++;
} }
{ static int nemp; static long cible2 = -2;
if (cible2 == -2) { const char *e = calypso_getenv("REJEU_EMPREINTE_FN");
cible2 = e ? atol(e) : -1; }
if (nemp < 3 && (cible2 < 0 || (long)g_livre_fn == cible2)) {
printf(" [empreinte] fn=%u (trame courante %u%s) pic=%u :", g_livre_fn, fn_cur,
g_livre_fn == fn_cur ? "" : " DESALIGNE", dsp->data[0x2f06]);
for (int k = 0; k < 78; k++) printf(" %04x", dsp->data[0x2c72 + k]);
printf("\n"); nemp++;
} }
/* [2026-09-18] Four independent decodings of the block
* 0x84a0-0x84d8 show it is NOT the soft-bit writer but the MIDAMBLE
* CORRELATOR: 50 lags, 64 taps of a fixed reference at 0x2cea
* (64 = midamble length), Re output at 0x2c56 and Im at 0x2c88,
* then |corr|^2 at 0x2be4 for the argmax. Its index is the LAG, not
* a coded-bit rank, so there is nothing to look for there. They
* point at 0x2a00 as the real buffer (loop 0x848d-0x849f, BRC=141
* hence 142 iterations, `sth B,*AR6+` at 0x8497). 142 is close to
* the 148 burst bits, hence the hypothesis "0x2a00 indexed by
* POSITION IN THE BURST", where coded bit b is at 3+b for b<39 and
* at 106+(b-39) beyond. */
/* [2026-09-18] SEARCH RATHER THAN GUESS. At the decoder entry,
* sweep ALL of data memory for a zone whose SIGNS match the
* transmitted code word, under two layouts: 78 contiguous words
* indexed by coded-bit rank, and indexing by burst position (3+b
* then 106+b-39). Print the best bases. If none stands clearly
* above chance, the soft bits are not in data memory in either
* form. */
/* [2026-09-18] INPUT / OUTPUT DISCRIMINANT for the 0x2ad5
* candidate. Agreement does not separate the two: the derotated
* input and the demodulator output are both indexed by burst
* position and would answer a bit flip alike. What separates them
* is CHANNEL dependence: a demodulator output depends on the
* channel estimate, hence on the peak; an input representation does
* not. So perturb the MIDAMBLE alone (which moves the peak without
* touching the data) and see whether 0x2ad5 moves AT THE DATA
* POSITIONS. Invariant => input. Moving => output, buffer found. */
/* [2026-09-18] THE REAL BUFFER, found in ROM: 0x2a00.
* Two successive stages, both at 0x2a00:
* - equalizer output, 142 words, index = burst position - 3
* (`sth B,*AR6+`, AR6 init 0x2a00, BRC=0x8d hence 142 turns);
* - PACKED codeword, 78 contiguous words, index = coded-bit rank,
* produced by 0x7e65-0x7e7a: 39 copies, then
* `mar *+AR2(0x0040)` at 0x7e76 which SKIPS THE 64 MIDAMBLE
* BITS, then 39 copies. The +64 is literal in ROM.
* The decoder confirms it: 0x984a `stm #0x2a00,AR1`, BRC=0x26, and
* the body at 0x9a78 advances AR1 by 2 per trellis step, 39 steps =
* 78 words.
*
* Zeros must NOT be discarded here: these soft bits take the values
* 0x0000 and 0xffff, so an `if (!v) continue;` plus a `n >= 60`
* requirement threw away half the samples and eliminated 0x2a00
* before it could be scored. */
{ static int n2a0;
if (n2a0 < 4) {
int meil_c = -1, pol_c = 0, meil_b = -1, pol_b = 0;
for (int pol = 0; pol < 2; pol++) {
int ok = 0;
for (int b = 0; b < 78; b++) {
int16_t v = (int16_t)dsp->data[0x2a00 + b];
int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (ok * 100 / 78 > meil_c) { meil_c = ok * 100 / 78; pol_c = pol; }
ok = 0;
for (int b = 0; b < 78; b++) {
int j = (b < 39) ? b : (64 + b);
int16_t v = (int16_t)dsp->data[0x2a00 + j];
int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (ok * 100 / 78 > meil_b) { meil_b = ok * 100 / 78; pol_b = pol; }
}
int nz = 0, nff = 0, naut = 0;
for (int k = 0; k < 142; k++) {
uint16_t v = dsp->data[0x2a00 + k];
if (v == 0) nz++; else if (v == 0xffff) nff++; else naut++;
}
printf(" [2a00] COMPACTE (0x2a00+b) : %d%% (polarite %d) | "
"BRUT (saut de 64) : %d%% (polarite %d)\n",
meil_c, pol_c, meil_b, pol_b);
printf(" [2a00] contenu sur 142 mots : %d nuls, %d a 0xffff, %d autres |",
nz, nff, naut);
for (int k = 0; k < 10; k++) printf(" %04x", dsp->data[0x2a00 + k]);
printf("\n");
n2a0++;
} }
{ static int n2d;
if (n2d < 1) {
printf(" [2ad5] pic=%u valeurs aux positions de burst 0..147 :\n ",
dsp->data[0x2f06]);
for (int k = 0; k < 148; k++) {
printf(" %04x", dsp->data[0x2ad5 + k]);
if (k % 12 == 11) printf("\n ");
}
printf("\n");
n2d++;
} }
{ static int nch;
if (nch < 1) {
struct { int sc, base, disp, pol; } top[6];
for (int t = 0; t < 6; t++) { top[t].sc = -1; top[t].base = 0; }
for (int base = 0; base < 0x3f00; base++)
for (int disp = 0; disp < 2; disp++)
for (int pol = 0; pol < 2; pol++) {
int ok = 0, n = 0;
for (int b = 0; b < 78; b++) {
int j = disp ? ((b < 39) ? (3 + b) : (106 + b - 39)) : b;
int16_t v = (int16_t)dsp->data[(base + j) & 0x3fff];
if (!v) continue;
n++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (n < 60) continue;
int sc = ok * 100 / n;
for (int t = 0; t < 6; t++)
if (sc > top[t].sc) {
for (int u = 5; u > t; u--) top[u] = top[u-1];
top[t].sc = sc; top[t].base = base; top[t].disp = disp; top[t].pol = pol;
break;
}
}
printf(" [chasse] meilleure zone : base 0x%04x %s pol %d -> %d%%"
" (2e: 0x%04x %d%%, 3e: 0x%04x %d%%)\n",
top[0].base, top[0].disp ? "burst" : "contigu", top[0].pol, top[0].sc,
top[1].base, top[1].sc, top[2].base, top[2].sc);
nch++;
} }
{ static int n2a;
if (n2a < 3) {
int meil = -1, mo = 0, mp = 0;
for (int o = -8; o <= 8; o++)
for (int pol = 0; pol < 2; pol++) {
int ok = 0, n = 0;
for (int b = 0; b < 78; b++) {
int bp = (b < 39) ? (3 + b) : (106 + b - 39);
int j = bp + o; if (j < 0 || j >= 148) continue;
int16_t v = (int16_t)dsp->data[0x2a00 + j]; if (!v) continue;
n++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (n >= 50) { int pc2 = ok * 100 / n;
if (pc2 > meil) { meil = pc2; mo = o; mp = pol; } }
}
int nz = 0; for (int k = 0; k < 148; k++) if (dsp->data[0x2a00 + k]) nz++;
printf(" [2a00] indexe par position de burst : concordance max %d%%"
" (decalage %d, polarite %d) | %d/148 mots non nuls\n",
meil, mo, mp, nz);
printf(" [2a00] valeurs :");
for (int k = 0; k < 14; k++) printf(" %04x", dsp->data[0x2a00 + k]);
printf("\n");
n2a++;
} }
{ static int nv;
if (nv < 3) {
int m1b = -1, m1o = 0, m1s = 0, m2b = -1, m2o = 0, m2s = 0;
for (int o = 0; o < 100; o++)
for (int sens = -1; sens <= 1; sens += 2)
for (int pol = 0; pol < 2; pol++) {
int ok1 = 0, n1 = 0, ok2 = 0, n2 = 0;
for (int b = 0; b < 39; b++) {
int j = o + sens * b; if (j < 0 || j >= 100) continue;
int16_t v = (int16_t)dsp->data[0x2c56 + j]; if (!v) continue;
n1++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok1++;
}
for (int b = 39; b < 78; b++) {
int j = o + sens * (b - 39); if (j < 0 || j >= 100) continue;
int16_t v = (int16_t)dsp->data[0x2c56 + j]; if (!v) continue;
n2++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok2++;
}
if (n1 >= 30) { int pc1 = ok1 * 100 / n1;
if (pc1 > m1b) { m1b = pc1; m1o = o; m1s = sens * (pol ? -2 : 1); } }
if (n2 >= 30) { int pc2 = ok2 * 100 / n2;
if (pc2 > m2b) { m2b = pc2; m2o = o; m2s = sens * (pol ? -2 : 1); } }
}
printf(" [2c56] moitie 1 : meilleur %d%% a l'offset %d (code %d) | "
"moitie 2 : meilleur %d%% a l'offset %d (code %d)\n",
m1b, m1o, m1s, m2b, m2o, m2s);
int nz = 0; for (int k = 0; k < 100; k++) if (dsp->data[0x2c56 + k]) nz++;
printf(" [2c56] %d/100 mots non nuls, carte des nuls (. = nul, X = non nul) :\n ", nz);
for (int k = 0; k < 100; k++) {
printf("%c", dsp->data[0x2c56 + k] ? 'X' : '.');
if (k % 50 == 49) printf("\n ");
}
printf("\n");
for (int lig = 0; lig < 10; lig++) {
printf(" +%2d :", lig * 10);
for (int k = lig * 10; k < lig * 10 + 10; k++) printf(" %04x", dsp->data[0x2c56 + k]);
printf("\n");
}
nv++;
} }
printf(" [pic-conc] pic=%u concordance=%d%%\n", dsp->data[0x2f06], best);
printf(" [bits] fn=%u 0x2c72 non-nuls=%d/78 : %04x %04x %04x %04x %04x %04x\n"
" concordance max = %d%% (decalage %d, polarite %d, ordre %s)\n",
g_livre_fn, nznb, dsp->data[0x2c72], dsp->data[0x2c73], dsp->data[0x2c74],
dsp->data[0x2c75], dsp->data[0x2c76], dsp->data[0x2c77],
best, bestd, bestv & 1,
(bestv >> 1) == 1 ? "moities echangees"
: (bestv >> 1) == 2 ? "pairs d'abord"
: (bestv >> 1) == 3 ? "impairs d'abord" : "identite");
nb++;
} }
/* [2026-09-18] The `sb` word returned is IDENTICAL for BSIC 7, 14 and
* 49, while the soft bits at 0x2c72 do follow the payload: the word the
* ARM reads back does NOT come from the decoder. Does the DSP ever write
* the a_sch words of the R page? API at 0x0800, R_PAGE0=0x28 and
* R_PAGE1=0x3C, a_sch at word +15. */
{ static uint16_t vu0[10], vu1[10]; static int arme3, nw;
const uint16_t A0 = 0x800 + 0x28 + 15, A1 = 0x800 + 0x3C + 15;
if (!arme3) {
for (int k = 0; k < 10; k++) { vu0[k] = dsp->data[A0 + k]; vu1[k] = dsp->data[A1 + k]; }
arme3 = 1;
} else if (nw < 12) {
for (int k = 0; k < 5; k++) {
if (dsp->data[A0 + k] != vu0[k]) {
printf(" [a_sch] page0 mot %d : %04x -> %04x ecrit par pc=%04x\n",
k, vu0[k], dsp->data[A0 + k], pc);
vu0[k] = dsp->data[A0 + k]; nw++;
}
if (dsp->data[A1 + k] != vu1[k]) {
printf(" [a_sch] page1 mot %d : %04x -> %04x ecrit par pc=%04x\n",
k, vu1[k], dsp->data[A1 + k], pc);
vu1[k] = dsp->data[A1 + k]; nw++;
}
}
} }
/* [2026-09-18] The magnitudes are present and the argmax is still
* wrong. Next question: WHICH zone does it sweep? Follow the span of the
* address registers during peak selection (0x84c8..0x84ef) and compare it
* with the magnitude zones. */
{ static uint16_t armin[8], armax[8]; static int arme2;
if (pc >= 0x84c8 && pc <= 0x84ef) {
if (!arme2) { for (int k = 0; k < 8; k++) { armin[k] = 0xffff; armax[k] = 0; } arme2 = 1; }
for (int k = 0; k < 8; k++) {
uint16_t v = dsp->ar[k];
if (v < armin[k]) armin[k] = v;
if (v > armax[k]) armax[k] = v;
}
}
{ static int nq;
if (pc == 0x84ef && nq < 5) {
printf(" [balayage] registres d'adresse pendant 0x84c8-0x84ef :");
for (int k = 0; k < 8; k++)
if (armax[k] >= armin[k] && armax[k] > armin[k])
printf(" AR%d=[0x%04x..0x%04x]", k, armin[k], armax[k]);
printf("\n");
arme2 = 0;
printf(" [magn@84ef] plages non nulles entre 0x2b00 et 0x2d00 :\n");
int deb = -1, fin = -1;
for (int a = 0x2b00; a <= 0x2d00; a++) {
int nz = (a <= 0x2cff) && dsp->data[a] != 0;
if (nz && deb < 0) deb = a;
if (nz) fin = a;
if (!nz && deb >= 0) {
/* [2026-09-18] Compare as int16_t, not uint16_t: the
* reported "maxima" (65502, 65104, 65318) were in fact
* -34, -432, -218, so the probe reported the value closest
* to -1 and the rank with it was noise. The maximum in
* absolute value is printed too: if 0x2be4 carries a SIGNED
* correlation, |v| (or v*v) must decide, not v. The two
* ranks side by side say which. */
int n = fin - deb + 1;
int16_t vmax = -32768; int imax = -1;
int amax = -1, iamax = -1;
for (int k = deb; k <= fin; k++) {
int16_t v = (int16_t)dsp->data[k];
int a = v < 0 ? -(int)v : (int)v;
if (v > vmax) { vmax = v; imax = k - deb; }
if (a > amax) { amax = a; iamax = k - deb; }
}
printf(" 0x%04x-0x%04x : %3d mots, max signe=%d au rang %d,"
" max |v|=%d au rang %d\n",
deb, fin, n, vmax, imax, amax, iamax);
deb = -1;
}
}
printf(" argmax DSP 0x2f06=%u\n", dsp->data[0x2f06]);
nq++;
} } }
/* [2026-09-17] Where does the correlator ACTUALLY write? Snapshot
* data RAM on entry to 0x84a1 and list what changed on exit, rather than
* guessing the address of the energy buffer. */
{ static uint16_t *snap; static int armec, ns;
if (pc == 0x84a1 && !armec && ns < 3) {
if (!snap) snap = malloc(0x4000 * sizeof(uint16_t));
memcpy(snap, dsp->data, 0x4000 * sizeof(uint16_t));
armec = 1;
} else if (pc == 0x7e94 && armec) {
int deb = -1, fin = -1, nch = 0;
printf(" [ecrit] plages modifiees par le correlateur SB :\n");
for (int k = 0; k < 0x4000; k++) {
int d = (dsp->data[k] != snap[k]);
if (d && deb < 0) deb = k;
if (d) { fin = k; nch++; }
if (!d && deb >= 0 && k > fin + 8) {
printf(" 0x%04x-0x%04x (%d mots) ex: %04x->%04x\n",
deb, fin, fin - deb + 1, snap[deb], dsp->data[deb]);
deb = -1;
}
}
if (deb >= 0) printf(" 0x%04x-0x%04x\n", deb, fin);
printf(" total %d mots changes\n", nch);
armec = 0; ns++;
} }
/* [2026-09-17] With a REAL SCH burst on the input, the soft bits at
* 0x2a00 come out null. Look at the middle link: the midamble
* correlation energy (0x2be4) and the argmax (0x2f06). */
{ static int nc;
if (pc == 0x84ef && nc < 8) {
/* same type fix as above: int16_t, plus |v| */
int nzc = 0, emax = -1, iemax = -1, samax = -32768, isamax = -1;
for (int k = 0; k < 64; k++) {
int16_t v = (int16_t)dsp->data[0x2be4 + k];
int a = v < 0 ? -(int)v : (int)v;
if (v) nzc++;
if (a > emax) { emax = a; iemax = k; }
if (v > samax) { samax = v; isamax = k; }
}
int nzin = 0; for (int k = 0; k < 380; k++) if (dsp->data[0x0cce + k]) nzin++;
printf(" [corr] entree 0x0cce non-nuls=%d/380 | 0x2be4 non-nuls=%d/64"
" | max |v|=%d au rang %d, max signe=%d au rang %d"
" | argmax 0x2f06=%u | 0x2be4: %04x %04x %04x %04x %04x %04x\n",
nzin, nzc, emax, iemax, samax, isamax, dsp->data[0x2f06],
dsp->data[0x2be4], dsp->data[0x2be5], dsp->data[0x2be6],
dsp->data[0x2be7], dsp->data[0x2be8], dsp->data[0x2be9]);
nc++;
} }
/* SB demod input: the DMA must have dropped 190 complex samples at 0x0cce */
{ static int ne;
if (pc == 0x7c31 && ne < 6) {
int nz = 0; for (int k = 0; k < 380; k++) if (dsp->data[0x0cce + k]) nz++;
int z0 = 0; while (z0 < 380 && !dsp->data[0x0cce + z0]) z0++;
printf(" [in-sb] fn=%u p51=%u DERNIER BURST LIVRE: type=%c fn=%u n=%d\n"
" 0x0cce non-nuls=%d/380 zeros_tete=%d : %04x %04x %04x %04x %04x %04x\n",
fn_cur, fn_cur % 51, g_livre_type ? g_livre_type : '?', g_livre_fn, g_livre_n,
nz, z0, dsp->data[0x0cce], dsp->data[0x0ccf], dsp->data[0x0cd0],
dsp->data[0x0cd1], dsp->data[0x0cd2], dsp->data[0x0cd3]);
ne++;
} }
switch (pc) { /* SB chain (RE 9.4) */
case 0x7c31: hit_7c31++; break; /* SB demodulator */
/* Counters must be fed in BOTH execution paths: one that stays at zero
* under REJEU_PROBE_TOA while the code runs reads as a measurement. */
case 0x7d1c: hit_7d1c++; break; /* rpt #15, the division */
case 0x7d1d: hit_7d1d++; break; /* subc */
case 0x7d1e: hit_7d1e++; break; /* the quotient */
case 0x81e4: hit_81e4++; break; /* the mpy that depends on T */
case 0x8478: hit_8478++; break; /* FIRS site 1 */
case 0x8492: hit_8492++; break; /* rpt of FIRS site 2 */
case 0x8493: hit_8493++; break; /* FIRS site 2 */
case 0x8497: hit_8497++; break; /* sth B -> soft bits */
case 0x9841: hit_9841++; break; /* SCH decoder */
case 0x84a1: hit_84a1++; break; /* midamble correlator */
case 0x770a: hit_770a++; break; /* FB correlator */
case 0xb219: hit_b219++; break; /* SB job (arms the DMA) */
case 0x7a16: hit_7a16++; break; /* fcall into the SB demod */
default: break; }
histo_pc[pc >> 10]++; insn_total++;
{ static uint16_t tprev, tpc, ppc; static int tn;
if (dsp->t != tprev) { tpc = ppc; tprev = dsp->t; }
ppc = pc;
if (pc == 0x7947 && tn < 10 && env_probe_t) {
printf(" [T] au mpya (0x7947) : T=%04x (%u), dernier ecrit par pc=%04x\n",
dsp->t, dsp->t, tpc); tn++; } }
if (!env_probe_t && pc >= 0x7940 && pc <= 0x795c && nlog < 60) {
printf(" [toa] pc=%04x A=%010llx B=%010llx T=%04x 3fb4=%04x AR4=%04x\n",
pc, (unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->t, dsp->data[0x3fb4], dsp->ar[4]);
nlog++;
}
g_op_tous[prog_ovly(dsp, pc)]++;
int ex = c54x_run(dsp, 1);
if (ex <= 0) break;
done += ex;
}
}
}
{ /* [2026-09-18] Raw dump of the program words around the soft-bit writer,
* to read the ADDRESS COMPUTATION of both passes. */
printf(" mots programme 0x8378-0x8396 (l'ecrivain 0x838d qui met 142 zeros) :\n");
for (uint16_t a = 0x8378; a <= 0x8396; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x8378) % 8 == 7) ? "\n" : "");
printf("\n mots programme 0x81c8-0x81e0 (les ecrivains des 142 valeurs) :\n");
for (uint16_t a = 0x81c8; a <= 0x81e0; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x81c8) % 8 == 7) ? "\n" : "");
printf("\n");
printf(" mots programme 0x84a0-0x84d8 (correlateur de midambule) :\n");
for (uint16_t a = 0x84a0; a <= 0x84d8; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x84a0) % 8 == 7) ? "\n" : "");
printf("\n mots programme 0x7cb0-0x7cc0 (site qui remet a zero) :\n");
for (uint16_t a = 0x7cb0; a <= 0x7cc0; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x7cb0) % 8 == 7) ? "\n" : "");
printf("\n");
}
{ const char *e = calypso_getenv("REJEU_OPCODES_TOUS");
if (e && *e) { FILE *fo = fopen(e, "w");
if (fo) { for (unsigned o = 0; o < 65536; o++) if (g_op_tous[o]) fprintf(fo, "%04x %lu\n", o, g_op_tous[o]);
fclose(fo); printf(" opcodes executes ecrits dans %s\n", e); } } }
printf("\n─── bilan rejeu (deterministe) ───\n");
{
printf(" instructions DSP executees : %lu\n", insn_total);
printf(" histogramme des PC (plages de 1024 mots, non vides) :\n");
for (int b = 0; b < 64; b++)
if (histo_pc[b])
printf(" 0x%04x-0x%04x : %10lu (%4.1f%%)\n",
b << 10, ((b + 1) << 10) - 1, histo_pc[b],
insn_total ? 100.0 * histo_pc[b] / insn_total : 0.0);
}
if (vu_sb && vu_hors) {
int n = 0;
printf(" opcodes executes UNIQUEMENT par le demodulateur SB (suspects d'ISA,\n"
" jamais valides par le chemin FB qui, lui, fonctionne) :\n ");
int fam[256] = {0}, famt[256] = {0};
for (int o = 0; o < 65536; o++) {
if (vu_sb[o]) famt[o >> 8]++;
if (vu_sb[o] && !vu_hors[o]) { fam[o >> 8]++; n++; }
}
printf("\n");
for (int f = 0; f < 256; f++)
if (fam[f]) printf(" famille %02x.. : %3d opcodes exclusifs SB / %3d executes en SB\n",
f, fam[f], famt[f]);
printf(" (%d opcodes distincts exclusifs au demodulateur SB)\n", n);
}
/* [2026-09-19] WHERE DOES 0x01dbf46a COME FROM? The same word is returned by
* the synthetic fixture, by the real capture in replay and by the bridge: three
* inputs with nothing in common. A constant word looks like a CONSTANT, not a
* computation. Sweep data space AND program space for the pattern. */
if (calypso_getenv("REJEU_CHERCHER_MOT")) {
unsigned long v = strtoul(calypso_getenv("REJEU_CHERCHER_MOT"), NULL, 0);
uint16_t lo = (uint16_t)(v & 0xffff), hi = (uint16_t)(v >> 16);
printf(" recherche de 0x%04x%04x (lo=%04x hi=%04x) :\n", hi, lo, lo, hi);
int n = 0;
for (unsigned a = 0; a + 1 < 0x4000; a++) {
if (dsp->data[a] == lo && dsp->data[a+1] == hi && n < 12) {
printf(" data[0x%04x] = %04x %04x (lo puis hi)\n", a, lo, hi); n++; }
if (dsp->data[a] == hi && dsp->data[a+1] == lo && n < 12) {
printf(" data[0x%04x] = %04x %04x (hi puis lo)\n", a, hi, lo); n++; }
}
for (unsigned a = 0; a + 1 < 0x10000; a++) {
if (dsp->prog[a] == lo && dsp->prog[a+1] == hi && n < 24) {
printf(" prog[0x%04x] = %04x %04x\n", a, lo, hi); n++; }
}
int nlo = 0, nhi = 0;
for (unsigned a = 0; a < 0x4000; a++) { if (dsp->data[a]==lo) nlo++; if (dsp->data[a]==hi) nhi++; }
printf(" occurrences isolees en data : lo(%04x) x%d, hi(%04x) x%d\n", lo, nlo, hi, nhi);
if (!n) printf(" motif absent de la memoire : le mot est CALCULE, pas stocke\n");
}
if (calypso_getenv("REJEU_OPCODES")) {
printf(" %lu decodages\n", g_n_dec);
printf(" opcodes de l'EGALISEUR (0x8400-0x84ff), par decodage :\n");
for (int rang = 0; rang < 16; rang++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 65536; i++) if (g_op_eq[i] > bv) { bv = g_op_eq[i]; best = i; }
if (!bv) break;
double q = g_n_dec ? (double)bv / g_n_dec : 0;
printf(" op=%04x %8lu /dec = %8.2f %s\n", best, bv, q,
(g_n_dec && bv % g_n_dec == 0) ? " (entier)" : " <<< NON ENTIER");
g_op_eq[best] = 0;
}
printf("\n");
printf(" opcodes du DECODEUR (0x9800-0x9bff) :\n");
{ unsigned long st_trn = 0, cmps = 0;
for (unsigned i = 0; i < 65536; i++) {
if ((i & 0xFF00) == 0x8D00) st_trn += g_op_dec[i];
if ((i >> 8) == 0x8E || (i >> 8) == 0x8F) cmps += g_op_dec[i];
}
printf(" CMPS (0x8E/0x8F) : %lu ST TRN (0x8D00) : %lu\n", cmps, st_trn); }
for (int rang = 0; rang < 14; rang++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 65536; i++) if (g_op_dec[i] > bv) { bv = g_op_dec[i]; best = i; }
if (!bv) break;
printf(" op=%04x %8lu fois\n", best, bv);
g_op_dec[best] = 0;
}
printf(" opcodes du demod SB, par nombre de passages :\n");
for (int rang = 0; rang < 26; rang++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 65536; i++) if (g_op_n[i] > bv) { bv = g_op_n[i]; best = i; }
if (!bv) break;
printf(" op=%04x %8lu fois vu en pc=%04x\n", best, bv, g_op_pc[best]);
g_op_n[best] = 0;
}
}
printf(" division 16 pas : rpt(7d1c)=%lu subc(7d1d)=%lu quotient(7d1e)=%lu mpy(81e4)=%lu\n",
hit_7d1c, hit_7d1d, hit_7d1e, hit_81e4);
printf(" sites FIRS du SB : 0x8478=%lu 0x8492(rpt)=%lu 0x8493=%lu 0x8497(sth B->softs)=%lu\n",
hit_8478, hit_8492, hit_8493, hit_8497);
printf(" trames jouees : %u\n", fn_cur + 1);
printf(" chaine SB (pas-a-pas) : job b219=%lu fcall 7a16=%lu demod 7c31=%lu corr 84a1=%lu decodeur 9841=%lu | corr FB 770a=%lu\n",
hit_b219, hit_7a16, hit_7c31, hit_84a1, hit_9841, hit_770a);
printf(" FB acceptes (ARM) : %d\n", n_fb_ok);
printf(" SB tentees / CRC KO: %d / %d\n", n_sb_try, n_sb_crcfail);
printf(" CMPS (0x8E/0x8F) : %ld fois dans le demod SB, %ld hors | famille 0xE0-0xE3 en SB : %ld | ST TRN : %ld\n",
n_cmps_sb, n_cmps_hors, n_e0_sb, n_sttrn_sb);
{
printf(" XC (0xFD/0xFF) par region de PC :");
for (int b = 0; b < 64; b++) if (n_xc_reg[b]) printf(" 0x%04x=%ld", b << 10, n_xc_reg[b]);
printf("\n");
printf(" CMPS (0x8E/0x8F) par region de PC :");
for (int b = 0; b < 64; b++)
if (n_cmps_reg[b]) printf(" 0x%04x=%ld", b << 10, n_cmps_reg[b]);
printf("\n");
}
printf(" detail : FIRS(E0)=%ld LMS(E1)=%ld SQDST(E2)=%ld ABDST(E3)=%ld"
" <- inertes si CALYPSO_ISA_E0_FAM=1\n",
n_e0x_sb[0], n_e0x_sb[1], n_e0x_sb[2], n_e0x_sb[3]);
printf(" erreurs DSP signalees: %d, dont erreur 8 (anneau DMA): %d\n", n_err_dsp, n_err8);
printf(" CRC OK: %d, dont VRAIES (BSIC injecte + T3 valide + FN = trame): %d%s\n",
n_crc_ok, n_sb_vraies,
cellule_sch_partout ? " [FN non qualifiable : SCH_PARTOUT actif]" : "");
if (verdict == 1) printf(" VERDICT : SB DECODEE BSIC=%d FN=%u (sb=0x%08x)\n", sb_bsic, sb_fn, sb_word);
else if (verdict == -1) printf(" VERDICT : ABANDON (le firmware a renonce)\n");
else printf(" VERDICT : AUCUNE SB (ni decodee ni abandon) en %ld trames\n", trames);
return verdict == 1 ? 0 : 1;
}6.18 /opt/GSM/c54x_exe/src/rejouer.h
306 octets, 9 lignes → 9 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef REJOUER_H
#define REJOUER_H
#include <stdint.h>
#include "calypso_c54x.h"
extern uint32_t g_c54x_exe_fn;
int rejouer(C54xState *dsp, uint16_t *api_ram, long trames, long insns,
const char *iq_mode, int amp, int bsic, int verbeux);
#endif6.19 /opt/GSM/c54x_exe/src/verbosite.c
5631 octets, 153 lignes → 153 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* verbosite.c - the -v levels of c54x_exe.
*
* The C54x core (qosmo/hw/arm/calypso/l1-dsp/calypso_c54x.c) carries about a
* hundred "[c54x] NAME ..." probes on stderr, some of them unconditional
* (BRANCH-TRACE alone emits 700 lines at boot) [2026-09-16]. They serve QEMU
* as much as this binary, so gating them one by one through environment
* variables would mean touching the shared sources for every new probe.
*
* Instead the core is left alone: stderr is redirected into a pipe and a
* thread re-reads the lines, passing through only those whose level is <= the
* requested one. Classification is by keyword on the probe NAME rather than an
* exhaustive table, so a new probe lands at a sensible level without being
* declared. The summary reports how many lines each level hid, so the caller
* knows what to ask for.
*/
#include <stdio.h>
#include <stdbool.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <pthread.h>
#include "verbosite.h"
static int g_niveau = 0;
static int g_stderr_reel = -1; /* dup(2) of the original */
static int g_tube_lecture = -1;
static pthread_t g_fil;
static bool g_actif = false;
static unsigned long g_masquees[VERBOSITE_MAX + 1];
static pthread_mutex_t g_mu = PTHREAD_MUTEX_INITIALIZER;
static bool contient(const char *l, const char *mot) { return strstr(l, mot) != NULL; }
/* Lowest -v level at which a line is shown. */
static int niveau_ligne(const char *l)
{
/* memory probes whose NAME contains an error keyword: classify first */
if (contient(l, "ERRWATCH"))
return 4;
/* 0: what breaks */
if (contient(l, "FATAL") || contient(l, "ERR") || contient(l, "abort") ||
contient(l, "CORRUPT") || contient(l, "TRAP") || contient(l, "manquante") ||
contient(l, "cannot") || contient(l, "impossible") || contient(l, "a echoue"))
return 0;
/* 1: what is worrying */
if (contient(l, "WARN") || contient(l, "echou") || contient(l, "failed") ||
contient(l, "pas parque") || contient(l, "perdue"))
return 1;
/* 5: single-stepping */
if (contient(l, "TRACE") || contient(l, "LOOP") || contient(l, "CYCLE") ||
contient(l, "HIST") || contient(l, "RING") || contient(l, "-STACK"))
return 5;
/* 4: memory probes */
if (contient(l, "WATCH") || contient(l, "DUMP") || contient(l, "SCAN") ||
contient(l, "PROBE") || contient(l, "MAP") || contient(l, "SP-") ||
contient(l, "FLOW") || contient(l, "HOT-OPS") || contient(l, "FIRST"))
return 4;
/* 3: tasks, API RAM, interrupts, FB/SB paths */
if (contient(l, "TASK") || contient(l, "DISPATCH") || contient(l, "] FB") ||
contient(l, "-FB") || contient(l, "FBDET") || contient(l, "FBWATCH") ||
contient(l, "FBSB") || contient(l, "FBCALL") || contient(l, "FBROUTE") ||
contient(l, "FBENTRY") || contient(l, "FBGATE") || contient(l, "FBMODE") ||
contient(l, "SYNC") || contient(l, "FEED") || contient(l, "VEC") ||
contient(l, "INTM") || contient(l, "IFR") || contient(l, "IMR") ||
contient(l, "PMST") || contient(l, "MMR") || contient(l, "AFC") ||
contient(l, "IRQ") || contient(l, "ACK") || contient(l, "IDLE") ||
contient(l, "DMA") || contient(l, "RIF") || contient(l, "bsp") ||
contient(l, "BSP") || contient(l, "TPU") || contient(l, "API"))
return 3;
/* 2: the rest - gate banners (ACTIF/INACTIVE), CALYPSO_* reads, boot,
* reset, [calypso-debug], and anything not coming from the core */
return 2;
}
static void *fil_filtre(void *arg)
{
(void)arg;
FILE *in = fdopen(g_tube_lecture, "r");
FILE *out = fdopen(g_stderr_reel, "w");
if (!in || !out) {
return NULL;
}
setvbuf(out, NULL, _IOLBF, 0);
char ligne[4096];
while (fgets(ligne, sizeof(ligne), in)) {
int n = niveau_ligne(ligne);
if (n <= g_niveau) {
fputs(ligne, out);
} else {
pthread_mutex_lock(&g_mu);
g_masquees[n]++;
pthread_mutex_unlock(&g_mu);
}
}
fflush(out);
return NULL;
}
void verbosite_installer(int niveau)
{
if (niveau < 0) niveau = 0;
if (niveau > VERBOSITE_MAX) niveau = VERBOSITE_MAX;
g_niveau = niveau;
if (niveau >= VERBOSITE_MAX) {
return; /* raw: nothing to install */
}
int tube[2];
if (pipe(tube) < 0) {
return;
}
fflush(stderr);
g_stderr_reel = dup(STDERR_FILENO);
g_tube_lecture = tube[0];
dup2(tube[1], STDERR_FILENO);
close(tube[1]);
if (pthread_create(&g_fil, NULL, fil_filtre, NULL) != 0) {
dup2(g_stderr_reel, STDERR_FILENO);
return;
}
g_actif = true;
}
void verbosite_retirer(void)
{
if (!g_actif) {
return;
}
fflush(stderr);
/* restore fd 2: the pipe write end closes, the thread sees EOF */
dup2(g_stderr_reel, STDERR_FILENO);
pthread_join(g_fil, NULL);
g_actif = false;
}
void verbosite_bilan(FILE *out)
{
unsigned long total = 0;
for (int i = 0; i <= VERBOSITE_MAX; i++) total += g_masquees[i];
if (!total) {
return;
}
fprintf(out, " traces DSP masquees : %lu (", total);
const char *nom[] = { "erreurs", "-v", "-vv", "-vvv", "-vvvv", "-vvvvv", "brut" };
bool premier = true;
for (int i = 1; i <= 5; i++) {
if (!g_masquees[i]) continue;
fprintf(out, "%s%lu avec %s", premier ? "" : ", ", g_masquees[i], nom[i]);
premier = false;
}
fprintf(out, ")\n");
}6.20 /opt/GSM/c54x_exe/src/verbosite.h
749 octets, 18 lignes → 18 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef VERBOSITE_H
#define VERBOSITE_H
#include <stdio.h>
/* Levels: 0 = errors only (default) -v = + warnings
* -vv = + lifecycle (boot, reset, gate banner)
* -vvv = + tasks, API RAM, interrupts
* -vvvv = + memory probes (WATCH, DUMP, SCAN, MAP, SP-*)
* -vvvvv = + per-instruction traces (BRANCH, LOOP, TERM, CYCLE)
* -vvvvvv = everything, raw stderr, unfiltered */
#define VERBOSITE_MAX 6
void verbosite_installer(int niveau); /* call before any DSP call */
void verbosite_retirer(void); /* drain the pipe, restore stderr */
void verbosite_bilan(FILE *out); /* count of suppressed lines, per level */
#endif6.21 /opt/GSM/c54x_exe/tools/analyse_sb.py
1097 octets, 14 lignes → 14 lignes
#!/usr/bin/env python3
# analyse_sb.py - resume des tentatives SB d un rejeu verbeux (c54x_exe --rejouer --verbeux) :
# SCH presents (burst dans la fenetre), taux CRC OK, angle moyen OK/KO, TOA.
# Usage : tools/analyse_sb.py rejeu.log "etiquette"
import re,sys,collections
L=open(sys.argv[1],errors='replace').read().split('\n')
att=[]
for l in L:
m=re.search(r'SBresp att=(\d) fn=(\d+) p51=(\d+) crc=(\w+) a_sch=(\w+) (\w+) (\w+) (\w+) (\w+) toa=(-?\d+) pm=(-?\d+) angle=(-?\d+) snr=(-?\d+) sb_cmd_fn=(\d+)',l)
if m: att.append(dict(att=int(m.group(1)),crc=m.group(4),toa=int(m.group(10)),angle=int(m.group(12)),snr=int(m.group(13))))
pres=[a for a in att if a['snr']>1000] # burst present dans la fenetre
ok=[a for a in pres if a['crc']=='OK']; ko=[a for a in pres if a['crc']!='OK']
ma=lambda g: (sum(a['angle'] for a in g)/len(g)) if g else float('nan')
print(f"{sys.argv[2]:28s} SCH presents={len(pres):3d} OK={len(ok):3d} ({100*len(ok)/max(1,len(pres)):3.0f}%) angle OK={ma(ok):5.0f} KO={ma(ko):5.0f} toa OK={collections.Counter(a['toa'] for a in ok).most_common(2)}")6.22 /opt/GSM/c54x_exe/tools/comparer_parole.py
7942 octets, 200 lignes → 200 lignes
#!/usr/bin/env python3
# comparer_parole.py - la parole et la FACCH descendantes : ROM contre reference.
#
# [2026-09-23] Toutes les trames de parole que la ROM livre dans a_dd portent
# B_BFI, avec 15 a 90 erreurs rapportees par trame ; et au raccroche de 21:29
# elle a rate toutes les FACCH que le pont, lui, decodait. Ce script tranche
# entre « les bursts livres au DSP sont mauvais » et « le DSP decode mal » :
#
# /dev/shm/calypso_tch_dl.bin bursts TCH que le BSP a livres au DSP
# (tick BE32, fn BTS BE32, 148 bits 0/1)
# /dev/shm/calypso_add_dl.bin trames que la ROM a rendues (montant.c,
# noter_dl : parole convertie TI -> FR, FACCH)
#
# Les bursts sont dechiffres avec le Kc de la session (lignes [a5] de dsp.log)
# et le COUNT de leur propre fn, puis decodes par gsm0503_tch_fr_decode, comme
# le fait le pont. Chaque bloc est apparie a la trame que la ROM a livree juste
# apres ; pour la parole on compte les bits faux par classe (Ia 50, Ib 132,
# II 78), pour la FACCH on compare les 23 octets.
#
# Usage : tools/comparer_parole.py [--dsp-log /tmp/c54x-pont/dsp.log] [--kc HEX]
import argparse
import collections
import ctypes
import re
import struct
import sys
sys.path.insert(0, "/opt/GSM/osmo-operator")
from pont import gsm # noqa: E402
FR = gsm.FR_BYTES
MAC = gsm.MACBLOCK_LEN
def lire_bursts(path):
raw = open(path, "rb").read()
out = []
for o in range(0, len(raw) - 155, 156):
tick, fn = struct.unpack(">II", raw[o:o + 8])
out.append((tick, fn, bytes(raw[o + 8:o + 156])))
return out
def lire_rom(path):
raw = open(path, "rb").read()
out = []
for o in range(0, len(raw) - 47, 48):
fn, typ, n, etat, err = struct.unpack_from("<IBBHH", raw, o)
out.append((fn, typ, etat, err, bytes(raw[o + 12:o + 12 + n])))
return out
def lire_kc(dsp_log):
"""(fn, Kc) de chaque nouveau Kc vu par le coprocesseur A5."""
kcs = []
for line in open(dsp_log, errors="replace"):
m = re.search(r"\[a5\] #\d+ A5/\d fn=(\d+) .*Kc=([0-9a-f]{16})", line)
if m:
fn, kc = int(m.group(1)), bytes.fromhex(m.group(2))
if not kcs or kcs[-1][1] != kc:
kcs.append((fn, kc))
return kcs
def kc_pour(kcs, fn):
best = None
for f, kc in kcs:
if f <= fn + 2:
best = kc
return best
def classes_fr():
"""classe (0 Ia, 1 Ib, 2 II) de chaque bit du format FR standard (260 bits
apres l'entete 0xd), d'apres gsm610_bitorder : d[k] = s[bitorder[k]]."""
lib = ctypes.CDLL("libosmocodec.so")
order = (ctypes.c_uint16 * 260).in_dll(lib, "gsm610_bitorder")
cl = [0] * 260
for k in range(260):
cl[order[k]] = 0 if k < 50 else (1 if k < 182 else 2)
return cl
def bits260(fr):
v = int.from_bytes(fr[:FR], "big")
s = bin(v)[2:].zfill(8 * FR)
return s[4:4 + 260]
def main():
ap = argparse.ArgumentParser()
ap.add_argument("--dsp-log", default="/tmp/c54x-pont/dsp.log")
ap.add_argument("--bursts", default="/dev/shm/calypso_tch_dl.bin")
ap.add_argument("--rom", default="/dev/shm/calypso_add_dl.bin")
ap.add_argument("--kc", help="Kc en hexa (sinon lu dans dsp.log)")
ap.add_argument("-v", action="store_true", help="une ligne par trame")
a = ap.parse_args()
bursts = lire_bursts(a.bursts)
rom = lire_rom(a.rom)
if not bursts or not rom:
sys.exit("rien a comparer : %d bursts, %d trames ROM" % (len(bursts), len(rom)))
kcs = [(0, bytes.fromhex(a.kc))] if a.kc else lire_kc(a.dsp_log)
offs = collections.Counter(t - f for t, f, _ in bursts)
off = offs.most_common(1)[0][0]
print("bursts : %d (fn BTS %d..%d, tick - fn = %s)" % (
len(bursts), bursts[0][1], bursts[-1][1], dict(offs.most_common(3))))
print("trames ROM : %d (parole %d, FACCH %d) ; Kc connus : %s" % (
len(rom), sum(1 for r in rom if r[1] == 0), sum(1 for r in rom if r[1] == 1),
[k.hex() for _, k in kcs]))
# Decodage de reference : un bloc se termine sur le 4e burst d'un demi-bloc.
par_fn = {fn: b for _, fn, b in bursts}
blocs = {} # fn de fin -> (rc, donnees, erreurs)
for fn in sorted(par_fn):
if not gsm.is_tch_carrier(fn) or gsm.tch_burst_index(fn) % 4 != 3:
continue
seq, f = [fn], fn
while len(seq) < 8:
f -= 1
while not gsm.is_tch_carrier(f):
f -= 1
seq.append(f)
seq.reverse()
if any(x not in par_fn for x in seq):
continue
kc = kc_pour(kcs, fn)
coded = []
for x in seq:
b = par_fn[x]
if kc:
ks, _ = gsm.a5_keystream(1, kc, x)
b = gsm.a5_xor(b, ks)
coded.append(gsm.coded_from_burst(b))
buf = (gsm.sbit * (8 * 116)).from_buffer_copy(gsm._soft(coded))
out = (ctypes.c_uint8 * FR)()
ne, nb = ctypes.c_int(), ctypes.c_int()
rc = gsm._cod.gsm0503_tch_fr_decode(out, buf, 1, 0, ctypes.byref(ne), ctypes.byref(nb))
blocs[fn] = (rc, bytes(out), ne.value)
n_fr = sum(1 for r in blocs.values() if r[0] == FR)
n_fa = sum(1 for r in blocs.values() if r[0] == MAC)
print("reference : %d blocs, %d parole, %d FACCH, %d en echec" % (
len(blocs), n_fr, n_fa, len(blocs) - n_fr - n_fa))
cl = classes_fr()
fins = sorted(blocs)
stats = collections.defaultdict(list)
facch = collections.Counter()
for fn_rom, typ, etat, err, data in rom:
cible = fn_rom - off
cand = [f for f in fins if cible - 8 <= f <= cible]
if not cand:
stats["sans_reference"].append(0)
continue
f = cand[-1]
rc, ref, ne = blocs[f]
if typ == 0:
if rc != FR:
stats["parole_ref_pas_parole"].append(rc)
continue
b1, b2 = bits260(ref), bits260(data)
diff = [i for i in range(260) if b1[i] != b2[i]]
par = [sum(1 for i in diff if cl[i] == c) for c in range(3)]
stats["parole"].append((len(diff), par, err, ne, etat))
if a.v:
print(" parole fn=%d ref_fin=%d etat=%04x err_rom=%d err_ref=%d faux=%d (Ia %d, Ib %d, II %d)"
% (fn_rom, f, etat, err, ne, len(diff), *par))
else:
fire = bool(etat & 0x0040)
if rc == MAC:
facch["ref FACCH, ROM %s" % ("FIRE KO" if fire else
("identique" if data[:MAC] == ref[:MAC] else "DIFFERENTE"))] += 1
else:
facch["ref pas FACCH (rc=%d), ROM %s" % (rc, "FIRE KO" if fire else "ok")] += 1
if a.v:
print(" facch fn=%d ref_fin=%d etat=%04x rc_ref=%d ROM=%s REF=%s" % (
fn_rom, f, etat, rc, data[:6].hex(" "), ref[:6].hex(" ")))
p = stats["parole"]
if p:
tot = [x[0] for x in p]
print("\nPAROLE : %d trames appariees" % len(p))
print(" identiques aux bits pres : %d" % sum(1 for x in tot if x == 0))
print(" bits faux par trame : moyenne %.1f, max %d (sur 260)" % (sum(tot) / len(tot), max(tot)))
for c, nom in enumerate(("Ia (50)", "Ib (132)", "II (78)")):
v = [x[1][c] for x in p]
print(" classe %-8s : moyenne %.2f, trames touchees %d" % (nom, sum(v) / len(v), sum(1 for x in v if x)))
print(" erreurs canal : ROM (a_dd[2]) moy %.1f | reference (Viterbi) moy %.1f" % (
sum(x[2] for x in p) / len(p), sum(x[3] for x in p) / len(p)))
for k in ("parole_ref_pas_parole", "sans_reference"):
if stats[k]:
print(" %s : %d" % (k, len(stats[k])))
if facch:
print("\nFACCH (trames a_fd vues par la ROM) :")
for k, v in facch.most_common():
print(" %-40s %d" % (k, v))
if __name__ == "__main__":
main()6.23 /opt/GSM/c54x_exe/tools/decoder_add.py
2430 octets, 46 lignes → 46 lignes
#!/usr/bin/env python3
# decoder_add.py - decode avec libgsm les trames FR notees par montant.c et cherche un ton.
#
# /dev/shm/calypso_add_dl.bin parole descendante rendue par la ROM (a_dd), convertie TI -> FR
# /dev/shm/calypso_add_ul.bin parole montante (a_du) : type 1 = brute TI, type 0 = convertie FR
#
# Enregistrements de 48 octets : fn u32, type u8, n u8, etat u16, err u16, [12..12+n] donnees.
# Le descendant a_dd est bit-exact avec ce que la BTS emet (comparer_parole.py) : s'il ne
# porte pas le ton injecte au micro, c'est le montant (ou l'echo) qui l'a perdu.
#
# Usage : tools/decoder_add.py [dl|ul] [--ton 1000] [--out fichier.raw]
import argparse, ctypes, math, struct, sys
import numpy as np
ap = argparse.ArgumentParser()
ap.add_argument("sens", nargs="?", default="dl", choices=["dl", "ul"])
ap.add_argument("--ton", type=float, default=1000.0, help="frequence cherchee (Hz)")
ap.add_argument("--out", help="PCM s16le 8 kHz decode")
a = ap.parse_args()
path = "/dev/shm/calypso_add_%s.bin" % a.sens
raw = open(path, "rb").read()
recs = []
for o in range(0, len(raw) - 47, 48):
fn, typ, n, etat, err = struct.unpack_from("<IBBHH", raw, o)
recs.append((fn, typ, n, etat, err, raw[o + 12:o + 12 + n]))
fr = [r for r in recs if r[1] == 0 and r[2] == 33]
print("%s : %d enregistrements, %d trames FR (fn %d..%d), nibble de tete %s" % (
path, len(recs), len(fr), fr[0][0] if fr else 0, fr[-1][0] if fr else 0,
sorted({hex(x[5][0] >> 4) for x in fr})))
g = ctypes.CDLL("libgsm.so.1"); g.gsm_create.restype = ctypes.c_void_p
g.gsm_decode.argtypes = [ctypes.c_void_p, ctypes.POINTER(ctypes.c_ubyte), ctypes.POINTER(ctypes.c_short)]
h = g.gsm_create()
pcm = []
for _, _, _, _, _, d in fr:
out = (ctypes.c_short * 160)()
g.gsm_decode(h, (ctypes.c_ubyte * 33)(*d), out)
pcm.extend(out)
x = np.array(pcm, dtype=float); sr = 8000
if a.out:
open(a.out, "wb").write(np.array(pcm, dtype="<i2").tobytes())
print(" sec rms raie(Hz) %%dans %.0f+-50 fn" % a.ton)
for s in range(int(len(x) // sr)):
v = x[s * sr:(s + 1) * sr]
rms = math.sqrt(np.mean(v * v)) + 1e-9
f = np.fft.rfftfreq(len(v), 1 / sr); sp = np.abs(np.fft.rfft(v * np.hanning(len(v)))) ** 2
k = int(np.argmax(sp[1:])) + 1; band = (f >= a.ton - 50) & (f <= a.ton + 50)
print("%4d %6.0f %9.0f %12.0f %d" % (s, rms, f[k], 100 * sp[band].sum() / (sp[1:].sum() + 1e-9), fr[min(s * 50, len(fr) - 1)][0]))6.24 /opt/GSM/c54x_exe/tools/isa_examples.py
19204 octets, 448 lignes → 448 lignes
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
"""isa_examples.py - turn the SPRU172C worked examples into ISA test vectors.
WHY. The C54x core (qosmo l1-dsp) has been fixed one instruction at a time,
each time a probe on the ROM's FB/SB path pointed at one. The manual carries
about 240 "Before Instruction / After Instruction" examples, one oracle per
instruction. This script reads them out of hw/arm/calypso/doc/spru172c.md,
assembles each example with the binutils opcode table (the same table the
disassembler uses, so encoding and decoding agree) and writes a flat test file
that tools/isa_test.c replays against the core.
tools/isa_examples.py > tools/isa_tests.txt
make isa_test && ./isa_test tools/isa_tests.txt
Test file format (one record per example):
T <n> <section> | <instruction as printed>
W <word> [<word> [<word>]] assembled instruction
B <REG> <hex> B M <addr> <hex> state before (registers, data memory)
A <REG> <hex> A M <addr> <hex> state after
E
Examples that cannot be assembled (labels, far calls, ports) are written as
S <n> <section> | <instruction> | <reason>
so the count of what is NOT covered stays visible.
"""
import io, os, re, sys
DOC = "/opt/GSM/qosmo-dsp/hw/arm/calypso/doc/spru172c.md"
TABLE = "/opt/GSM/qosmo-dsp/hw/arm/calypso/doc/opcodes/tic54x-opc.c"
# ---------------------------------------------------------------- the table --
ENTREE = re.compile(
r'\{\s*"([^"]+)"\s*,\s*(\d+)\s*,[^,]*,[^,]*,\s*(0x[0-9A-Fa-f]+)\s*,\s*(0x[0-9A-Fa-f]+)\s*,\s*\{([^}]*)\}')
def charger_table(chemin):
src = io.open(chemin, encoding="utf-8", errors="replace").read()
fin = src.find("tic54x_paroptab")
if fin > 0:
src = src[:fin]
tab = []
for m in ENTREE.finditer(src):
nom, mots, op, masque, ops = m.group(1), int(m.group(2)), \
int(m.group(3), 16), int(m.group(4), 16), m.group(5).strip()
if nom == "???":
continue
ops = [o.strip() for o in ops.split(",") if o.strip()]
tab.append((nom, mots, op, masque, ops))
return tab
# ---------------------------------------------------------------- operands ---
MMR = {"IMR": 0, "IFR": 1, "ST0": 6, "ST1": 7, "AL": 8, "AH": 9, "AG": 10, "BL": 11,
"BH": 12, "BG": 13, "T": 14, "TREG": 14, "TRN": 15, "SP": 0x18, "BK": 0x19,
"BRC": 0x1A, "RSA": 0x1B, "REA": 0x1C, "PMST": 0x1D, "XPC": 0x1E}
for _i in range(8):
MMR["AR%d" % _i] = 0x10 + _i
COND = {"UNC": 0x00, "AEQ": 0x45, "ANEQ": 0x44, "ALT": 0x43, "ALEQ": 0x47, "AGT": 0x46,
"AGEQ": 0x42, "BEQ": 0x4D, "BNEQ": 0x4C, "BLT": 0x4B, "BLEQ": 0x4F, "BGT": 0x4E,
"BGEQ": 0x4A, "AOV": 0x70, "ANOV": 0x60, "BOV": 0x78, "BNOV": 0x68,
"TC": 0x30, "NTC": 0x20, "C": 0x0C, "NC": 0x08, "BIO": 0x03, "NBIO": 0x02}
SBITS = {"BRAF": (1, 15), "CPL": (1, 14), "XF": (1, 13), "HM": (1, 12), "INTM": (1, 11),
"OVM": (1, 9), "SXM": (1, 8), "C16": (1, 7), "FRCT": (1, 6), "CMPT": (1, 5),
"TC": (0, 12), "C": (0, 11), "OVA": (0, 10), "OVB": (0, 9)}
# indirect Smem modifiers -> MOD nibble (SPRU172C table 3-?; binutils tic54x-dis.c)
SMOD = {"": 0x0, "-": 0x1, "+": 0x2, "-0B": 0x4, "-0": 0x5, "+0": 0x6, "+0B": 0x7,
"-%": 0x8, "-0%": 0x9, "+%": 0xA, "+0%": 0xB}
XMOD = {"": 0, "-": 1, "+": 2, "+0%": 3}
def norm(t):
return t.replace("–", "-").replace("−", "-").replace("—", "-").strip()
def nombre(t):
"""TI numbers: 0FFFEh, 1234h, 10h, 248, -8, +3, #..., 15-12 (bit expression)."""
t = norm(t).lstrip("#").strip()
if re.fullmatch(r'[+-]?[0-9A-Fa-f]+[hH]', t):
return int(t[:-1], 16)
if re.fullmatch(r'[+-]?\d+', t):
return int(t, 10)
if re.fullmatch(r'0[xX][0-9A-Fa-f]+', t):
return int(t, 16)
m = re.fullmatch(r'(\d+)\s*-\s*(\d+)', t)
if m:
return int(m.group(1)) - int(m.group(2))
raise ValueError("nombre: %r" % t)
class Smem:
"""Parsed single data-memory operand."""
def __init__(self, txt):
t = norm(txt)
self.lk = None
if t.startswith("*"):
m = re.fullmatch(r'\*\(\s*([^)]+)\)', t)
if m: # *(lk) absolute
self.code = 0x80 | (0xF << 3); self.lk = nombre(m.group(1)); return
m = re.fullmatch(r'\*\+AR(\d)\(([^)]+)\)(%?)', t)
if m: # *+ARn(lk) [%]
self.code = 0x80 | ((0xE if m.group(3) else 0xD) << 3) | int(m.group(1))
self.lk = nombre(m.group(2)); return
m = re.fullmatch(r'\*AR(\d)\(([^)]+)\)', t)
if m: # *ARn(lk)
self.code = 0x80 | (0xC << 3) | int(m.group(1)); self.lk = nombre(m.group(2)); return
m = re.fullmatch(r'\*\+AR(\d)', t)
if m:
self.code = 0x80 | (0x3 << 3) | int(m.group(1)); return
m = re.fullmatch(r'\*AR(\d)(.*)', t)
if m and m.group(2) in SMOD:
self.code = 0x80 | (SMOD[m.group(2)] << 3) | int(m.group(1)); return
raise ValueError("Smem: %r" % txt)
if t.startswith("@"):
t = t[1:]
if t.upper() in MMR: # MMR by name = direct address
self.code = MMR[t.upper()]; return
v = nombre(t)
if not 0 <= v <= 0x7F:
raise ValueError("Smem direct hors 0..7F: %r" % txt)
self.code = v
def xmem(txt):
t = norm(txt)
m = re.fullmatch(r'\*AR(\d)(.*)', t)
if not m or m.group(2) not in XMOD:
raise ValueError("Xmem: %r" % txt)
n = int(m.group(1))
if not 2 <= n <= 5:
raise ValueError("Xmem AR%d hors AR2..AR5" % n)
return (XMOD[m.group(2)] << 2) | (n - 2)
def conds(tokens):
v = 0
for c in tokens:
c = norm(c).upper()
if c not in COND:
raise ValueError("cond: %r" % c)
v |= COND[c]
return v
# --------------------------------------------------------------- assembler ---
def split_operands(s):
out, cur, depth = [], "", 0
for ch in s:
if ch == "(":
depth += 1
elif ch == ")":
depth -= 1
if ch == "," and depth == 0:
out.append(cur.strip()); cur = ""
else:
cur += ch
if cur.strip():
out.append(cur.strip())
return out
def est_acc(t):
return norm(t).upper() in ("A", "B")
def assembler(tab, texte):
"""Returns list of words or raises ValueError."""
texte = norm(texte.split(";")[0])
m = re.match(r'([A-Za-z][A-Za-z0-9]*)\s*(.*)$', texte)
if not m:
raise ValueError("syntaxe")
nom, reste = m.group(1).lower(), m.group(2)
ops = split_operands(reste) if reste else []
erreurs = []
for (tnom, mots, opc, masque, types) in tab:
if tnom != nom:
continue
try:
return encoder(tnom, mots, opc, masque, types, list(ops))
except ValueError as e:
erreurs.append("%s%s: %s" % (tnom, types, e))
raise ValueError("; ".join(erreurs) if erreurs else "mnemonique inconnu %s" % nom)
def encoder(nom, mots, opc, masque, types, ops):
word = opc
extra = []
src = dst = None
types = list(types)
# optional operands are flagged OPT| in binutils; strip the flag but remember
optional = [t.startswith("OPT|") for t in types]
types = [t.replace("OPT|", "") for t in types]
# implicit-operand types consume nothing from the text
IMPLICIT = {"OP_None"}
ti = 0
for k, ty in enumerate(types):
if ty in IMPLICIT:
continue
if ti >= len(ops):
if optional[k]:
continue
raise ValueError("operande manquant pour %s" % ty)
o = ops[ti]
if ty in ("OP_Smem", "OP_Sind", "OP_Lmem", "OP_MMR"):
if ty == "OP_MMR" and norm(o).upper() in MMR:
word |= MMR[norm(o).upper()]
else:
sm = Smem(o)
word |= sm.code
if sm.lk is not None:
extra.append(sm.lk & 0xFFFF)
elif ty == "OP_Xmem":
word |= xmem(o) << 4
elif ty == "OP_Ymem":
word |= xmem(o)
elif ty == "OP_SRC":
if not est_acc(o): raise ValueError("src attendu, %r" % o)
src = 1 if norm(o).upper() == "B" else 0
word |= src << 9
elif ty == "OP_SRC1":
if not est_acc(o): raise ValueError("src attendu, %r" % o)
word |= (1 if norm(o).upper() == "B" else 0) << 8
elif ty == "OP_DST":
if not est_acc(o): raise ValueError("dst attendu, %r" % o)
dst = 1 if norm(o).upper() == "B" else 0
word |= dst << 8
elif ty in ("OP_lk", "OP_lku", "OP_pmad", "OP_dmad", "OP_PA"):
extra.append(nombre(o) & 0xFFFF)
elif ty == "OP_xpmad":
v = nombre(o)
word |= (v >> 16) & 0x7F
extra.append(v & 0xFFFF)
elif ty in ("OP_k8u", "OP_k8"):
word |= nombre(o) & 0xFF
elif ty == "OP_k9":
word |= nombre(o) & 0x1FF
elif ty == "OP_k5":
word |= nombre(o) & 0x1F
elif ty == "OP_k3":
word |= nombre(o) & 0x7
elif ty == "OP_SHIFT":
v = nombre(o)
if not -16 <= v <= 15: raise ValueError("SHIFT hors -16..15")
word |= v & 0x1F
elif ty == "OP_SHFT":
v = nombre(o)
if not 0 <= v <= 15: raise ValueError("SHFT hors 0..15")
word |= v & 0xF
elif ty == "OP_031":
v = nombre(o)
if not 0 <= v <= 31: raise ValueError("0..31")
word |= v & 0x1F
elif ty == "OP_16":
if norm(o) != "16": raise ValueError("16 attendu")
elif ty in ("OP_T", "OP_TS", "OP_ASM", "OP_DP", "OP_ARP", "OP_TRN", "OP_A", "OP_B"):
attendu = {"OP_T": "T", "OP_TS": "TS", "OP_ASM": "ASM", "OP_DP": "DP", "OP_ARP": "ARP",
"OP_TRN": "TRN", "OP_A": "A", "OP_B": "B"}[ty]
if norm(o).upper() != attendu: raise ValueError("%s attendu" % attendu)
elif ty == "OP_RND":
raise ValueError("OP_RND non gere")
elif ty in ("OP_CC", "OP_CC3"):
# remaining operands are all conditions
word |= conds(ops[ti:])
ti = len(ops)
continue
elif ty == "OP_CC2":
u = norm(o).upper()
if nom in ("saccd", "srccd", "strcd"): # 4-bit accumulator condition, bits 3-0
if u not in COND or not (COND[u] & 0x40): raise ValueError("cond acc attendue")
word |= COND[u] & 0x0F
else: # CMPR CC, ARx : cc in bits 9-8
v = nombre(o) if not u.isalpha() else {"EQ": 0, "LT": 1, "GT": 2, "NEQ": 3}[u]
word |= (v & 3) << 8
elif ty == "OP_ARX":
m = re.fullmatch(r'AR(\d)', norm(o).upper())
if not m: raise ValueError("ARx attendu")
word |= int(m.group(1)) & 7
elif ty in ("OP_MMRX", "OP_MMRY"): # AR0..AR7 = 0..7, SP = 8 ; X bits 7-4, Y bits 3-0
u = norm(o).upper()
m = re.fullmatch(r'AR(\d)', u)
v = int(m.group(1)) if m else (8 if u == "SP" else None)
if v is None: raise ValueError("ARx/SP attendu")
word |= v << (4 if ty == "OP_MMRX" else 0)
elif ty == "OP_N":
u = norm(o).upper()
if u in SBITS: # RSBX SXM : N and SBIT from the name
n, b = SBITS[u]; word |= (n << 9) | b
ti += 1
if ti < len(ops): raise ValueError("SBIT apres nom")
return [word] + extra
word |= (nombre(o) & 1) << 9
elif ty == "OP_SBIT":
u = norm(o).upper()
word |= (SBITS[u][1] if u in SBITS else nombre(o)) & 0xF
elif ty == "OP_BITC":
word |= nombre(o) & 0xF
elif ty == "OP_123":
word |= ((nombre(o) - 1) & 3) << 8
elif ty == "OP_12":
word |= ((nombre(o) - 1) & 1) << 9
else:
raise ValueError("type %s non gere" % ty)
ti += 1
if ti != len(ops):
raise ValueError("operandes en trop: %r" % ops[ti:])
# optional dst omitted: dst = src
if "OP_DST" in types and dst is None and src is not None:
word |= src << 8
if len(extra) + 1 != mots and not (len(extra) + 1 == mots + 1):
# the table's word count does not include the Smem lk word
raise ValueError("longueur %d != %d" % (len(extra) + 1, mots))
return [word & 0xFFFF] + extra
# -------------------------------------------------------- example parsing ----
REG_OK = {"A", "B", "T", "TRN", "ASM", "C", "TC", "OVA", "OVB", "OVM", "SXM", "FRCT", "C16",
"CMPT", "DP", "SP", "ARP", "BK", "BRC", "RSA", "REA", "PC", "XPC", "PMST", "ST0",
"ST1", "IMR", "IFR", "INTM", "BRAF", "CPL", "XF", "HM", "AR0", "AR1", "AR2", "AR3",
"AR4", "AR5", "AR6", "AR7", "TS"}
HEX = re.compile(r'^[0-9A-Fa-f]+$')
def valeur(tokens):
"""Value from the tokens following a register name. Returns (int, nbits)."""
toks = [norm(t) for t in tokens]
if len(toks) >= 3 and all(HEX.match(t) for t in toks[:3]) and len(toks[0]) == 2 \
and len(toks[1]) == 4 and len(toks[2]) == 4:
return int("".join(toks[:3]), 16), 40
if toks and HEX.match(toks[0]) and len(toks[0]) == 4:
return int(toks[0], 16), 16
if toks and toks[0] in ("0", "1"):
return int(toks[0]), 1
if toks and toks[0].lower() == "x":
return None, 1
if toks and HEX.match(toks[0]) and len(toks[0]) in (1, 2, 3):
return int(toks[0], 16), 16
raise ValueError("valeur: %r" % toks)
def nettoyer_nom(t):
return re.sub(r'[†‡†‡*]+$', '', norm(t)).upper()
def parser(doc):
L = io.open(doc, encoding="utf-8", errors="replace").read().split("\n")
tests, section = [], "?"
i = 0
while i < len(L):
l = L[i]
m = re.match(r'^Syntax\s+(?:\d+:\s*)?(\S.*)$', l)
if m:
section = norm(m.group(1)); i += 1; continue
m = re.match(r'^\s*(?:\d+:\s*)?Syntax\s+(\S.*)$', l)
if m:
section = norm(m.group(1)); i += 1; continue
m = re.match(r'^Example(?:\s+\d+)?\s+([A-Z][A-Za-z0-9]*(?:\s.*)?)$', l)
if not m:
i += 1; continue
instr = m.group(1).strip()
t = {"section": section, "instr": instr, "before": {}, "after": {},
"mem_b": {}, "mem_a": {}, "pmem_b": {}, "pmem_a": {}, "warn": []}
zone = "reg"
j = i + 1
while j < len(L):
lj = L[j]
if re.match(r'^Example', lj) or re.match(r'^\s*(?:\d+:\s*)?Syntax\s', lj) \
or re.match(r'^Syntax', lj) or re.match(r'^[A-Z][a-z]+\s{2,}', lj) and "Instruction" not in lj:
break
if "Data Memory" in lj:
zone = "mem"; j += 1; continue
if "Program Memory" in lj:
zone = "pmem"; j += 1; continue
if "Before Instruction" in lj:
j += 1; continue
toks = lj.split()
if not toks:
j += 1; continue
if zone in ("mem", "pmem"):
mm = re.findall(r'([0-9A-Fa-f]+)h\s+([0-9A-Fa-f]{4})', lj)
if len(mm) >= 1:
tgt_b = t["mem_b"] if zone == "mem" else t["pmem_b"]
tgt_a = t["mem_a"] if zone == "mem" else t["pmem_a"]
tgt_b[int(mm[0][0], 16)] = int(mm[0][1], 16)
if len(mm) >= 2:
tgt_a[int(mm[1][0], 16)] = int(mm[1][1], 16)
j += 1; continue
# a register row can follow memory rows on some pages
name = nettoyer_nom(toks[0])
if name in REG_OK:
# split at the second occurrence of the name
idx = [k for k, tk in enumerate(toks) if nettoyer_nom(tk) == name]
try:
if len(idx) >= 2:
vb, _ = valeur(toks[idx[0] + 1:idx[1]])
va, _ = valeur(toks[idx[1] + 1:])
if vb is not None: t["before"][name] = vb
if va is not None: t["after"][name] = va
else:
t["warn"].append("ligne registre incomplete: %s" % lj.strip())
except ValueError as e:
t["warn"].append(str(e))
j += 1
tests.append(t)
i = j
return tests
def main():
tab = charger_table(TABLE)
tests = parser(DOC)
n_ok = n_skip = 0
for k, t in enumerate(tests):
instr = t["instr"]
if not t["before"] and not t["after"] and not t["mem_a"]:
continue # prose caught by the regex
# symbolic pmad/dmad (COEFFS, DAT127...) : take the first Program Memory address
if t["pmem_b"]:
instr = re.sub(r'\b(COEFFS|DAT\d+)\b', "%04Xh" % min(t["pmem_b"]), instr)
try:
words = assembler(tab, instr)
except ValueError as e:
# dual-operand examples written with AR6/AR7: only AR2..AR5 can be encoded.
# Rename AR6->AR4 and AR7->AR5 in the instruction AND the register rows.
ren = {}
if "AR6" in instr and "AR4" not in instr and "AR4" not in t["before"]: ren["AR6"] = "AR4"
if "AR7" in instr and "AR5" not in instr and "AR5" not in t["before"]: ren["AR7"] = "AR5"
if ren:
instr2 = instr
for a, b in ren.items(): instr2 = instr2.replace(a, b)
try:
words = assembler(tab, instr2)
for a, b in ren.items():
for d in (t["before"], t["after"]):
if a in d: d[b] = d.pop(a)
instr = instr2 + " ;(" + ",".join("%s->%s" % kv for kv in ren.items()) + ")"
e = None
except ValueError as e2:
e = e2
if e is not None:
print("S %d %s | %s | %s" % (k, t["section"], instr, str(e)[:120]))
n_skip += 1
continue
print("T %d %s | %s" % (k, t["section"], instr))
print("W " + " ".join("%04x" % w for w in words))
for r, v in sorted(t["before"].items()):
print("B %s %x" % (r, v))
for a, v in sorted(t["mem_b"].items()):
print("B M %04x %04x" % (a, v))
for a, v in sorted(t["pmem_b"].items()):
print("B P %04x %04x" % (a, v))
for r, v in sorted(t["after"].items()):
print("A %s %x" % (r, v))
for a, v in sorted(t["mem_a"].items()):
print("A M %04x %04x" % (a, v))
for w in t["warn"]:
print("# %s" % w)
print("E")
n_ok += 1
sys.stderr.write("%d exemples assembles, %d non assembles\n" % (n_ok, n_skip))
if __name__ == "__main__":
main()6.25 /opt/GSM/c54x_exe/tools/isa_test.c
10352 octets, 202 lignes → 202 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* isa_test.c - replay the SPRU172C worked examples against the C54x core.
*
* Reads tools/isa_tests.txt (written by tools/isa_examples.py): for every
* example the assembled words, the state before and the state after. Each
* test runs on a fresh C54xState: registers and memory are set, the words are
* placed at PC, ONE c54x_run(s, 1) executes the instruction, and every
* register/memory word the manual lists in "After Instruction" is compared.
*
* make isa_test && ./isa_test tools/isa_tests.txt 2>/dev/null
* ./isa_test tools/isa_tests.txt -v 2>/dev/null # print every test
*
* The verdict is a scorecard per instruction, not a debugging aid: a FAIL
* names the register that differs and both values, then the core's handler is
* read against the manual page. Registers the manual does not list are not
* compared, so a handler that corrupts an unlisted register can still pass.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <stdbool.h>
#include "qemu/thread.h"
#include "calypso_c54x.h"
/* what main.c normally provides */
uint32_t g_c54x_exe_fn;
uint32_t calypso_trx_get_fn(void) { return g_c54x_exe_fn; }
void calypso_inth_arm_ack(void) { }
QemuMutex calypso_pcb_daram_lock;
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{ (void)addr; if (!wr) memset(buf, 0, len); }
extern uint16_t data_read(C54xState *s, uint16_t addr);
extern void data_write(C54xState *s, uint16_t addr, uint16_t val);
#define ST0_TC_B (1u << 12)
#define ST0_C_B (1u << 11)
#define ST0_OVA_B (1u << 10)
#define ST0_OVB_B (1u << 9)
static struct { const char *nom; int reg; uint16_t bit; } BITS[] = {
{ "TC", 0, ST0_TC_B }, { "C", 0, ST0_C_B }, { "OVA", 0, ST0_OVA_B }, { "OVB", 0, ST0_OVB_B },
{ "BRAF", 1, 1u << 15 }, { "CPL", 1, 1u << 14 }, { "XF", 1, 1u << 13 }, { "HM", 1, 1u << 12 },
{ "INTM", 1, 1u << 11 }, { "OVM", 1, 1u << 9 }, { "SXM", 1, 1u << 8 }, { "C16", 1, 1u << 7 },
{ "FRCT", 1, 1u << 6 }, { "CMPT", 1, 1u << 5 },
};
static bool set_reg(C54xState *s, const char *r, uint64_t v)
{
if (!strcmp(r, "A")) { s->a = (int64_t)(v & 0xFFFFFFFFFFULL); if (s->a & 0x8000000000LL) s->a |= ~0xFFFFFFFFFFLL; return true; }
if (!strcmp(r, "B")) { s->b = (int64_t)(v & 0xFFFFFFFFFFULL); if (s->b & 0x8000000000LL) s->b |= ~0xFFFFFFFFFFLL; return true; }
if (!strcmp(r, "T")) { s->t = v; return true; }
if (!strcmp(r, "TS")) { s->t = v; return true; }
if (!strcmp(r, "TRN")) { s->trn = v; return true; }
if (!strcmp(r, "SP")) { s->sp = v; return true; }
if (!strcmp(r, "BK")) { s->bk = v; return true; }
if (!strcmp(r, "BRC")) { s->brc = v; return true; }
if (!strcmp(r, "RSA")) { s->rsa = v; return true; }
if (!strcmp(r, "REA")) { s->rea = v; return true; }
if (!strcmp(r, "PC")) { s->pc = v; return true; }
if (!strcmp(r, "XPC")) { s->xpc = v; return true; }
if (!strcmp(r, "PMST")) { s->pmst = v; return true; }
if (!strcmp(r, "ST0")) { s->st0 = v; return true; }
if (!strcmp(r, "ST1")) { s->st1 = v; return true; }
if (!strcmp(r, "IMR")) { s->imr = v; return true; }
if (!strcmp(r, "IFR")) { s->ifr = v; return true; }
if (!strcmp(r, "ASM")) { s->st1 = (s->st1 & ~0x1F) | (v & 0x1F); return true; }
if (!strcmp(r, "DP")) { s->st0 = (s->st0 & ~0x1FF) | (v & 0x1FF); return true; }
if (!strcmp(r, "ARP")) { s->st0 = (s->st0 & ~0xE000) | ((v & 7) << 13); return true; }
if (r[0] == 'A' && r[1] == 'R' && r[2] >= '0' && r[2] <= '7' && !r[3]) { s->ar[r[2] - '0'] = v; return true; }
for (unsigned i = 0; i < sizeof BITS / sizeof BITS[0]; i++)
if (!strcmp(r, BITS[i].nom)) {
uint16_t *st = BITS[i].reg ? &s->st1 : &s->st0;
if (v) *st |= BITS[i].bit; else *st &= ~BITS[i].bit;
return true;
}
return false;
}
static bool get_reg(C54xState *s, const char *r, uint64_t *v)
{
if (!strcmp(r, "A")) { *v = (uint64_t)s->a & 0xFFFFFFFFFFULL; return true; }
if (!strcmp(r, "B")) { *v = (uint64_t)s->b & 0xFFFFFFFFFFULL; return true; }
if (!strcmp(r, "T") || !strcmp(r, "TS")) { *v = s->t; return true; }
if (!strcmp(r, "TRN")) { *v = s->trn; return true; }
if (!strcmp(r, "SP")) { *v = s->sp; return true; }
if (!strcmp(r, "BK")) { *v = s->bk; return true; }
if (!strcmp(r, "BRC")) { *v = s->brc; return true; }
if (!strcmp(r, "RSA")) { *v = s->rsa; return true; }
if (!strcmp(r, "REA")) { *v = s->rea; return true; }
if (!strcmp(r, "PC")) { *v = s->pc & 0xFFFF; return true; }
if (!strcmp(r, "XPC")) { *v = s->xpc; return true; }
if (!strcmp(r, "PMST")) { *v = s->pmst; return true; }
if (!strcmp(r, "ST0")) { *v = s->st0; return true; }
if (!strcmp(r, "ST1")) { *v = s->st1; return true; }
if (!strcmp(r, "IMR")) { *v = s->imr; return true; }
if (!strcmp(r, "IFR")) { *v = s->ifr; return true; }
if (!strcmp(r, "ASM")) { *v = s->st1 & 0x1F; return true; }
if (!strcmp(r, "DP")) { *v = s->st0 & 0x1FF; return true; }
if (!strcmp(r, "ARP")) { *v = (s->st0 >> 13) & 7; return true; }
if (r[0] == 'A' && r[1] == 'R' && r[2] >= '0' && r[2] <= '7' && !r[3]) { *v = s->ar[r[2] - '0']; return true; }
for (unsigned i = 0; i < sizeof BITS / sizeof BITS[0]; i++)
if (!strcmp(r, BITS[i].nom)) {
uint16_t st = BITS[i].reg ? s->st1 : s->st0;
*v = (st & BITS[i].bit) ? 1 : 0;
return true;
}
return false;
}
typedef struct { char reg[8]; uint64_t val; int mem; uint16_t addr; } Item;
int main(int argc, char **argv)
{
if (argc < 2) { fprintf(stderr, "usage: %s tools/isa_tests.txt [-v] [-k MOT]\n", argv[0]); return 2; }
bool verbeux = false; const char *filtre = NULL;
for (int i = 2; i < argc; i++) {
if (!strcmp(argv[i], "-v")) verbeux = true;
else if (!strcmp(argv[i], "-k") && i + 1 < argc) filtre = argv[++i];
}
FILE *f = fopen(argv[1], "r");
if (!f) { perror(argv[1]); return 2; }
qemu_mutex_init(&calypso_pcb_daram_lock);
char ligne[1024], titre[1024] = "";
uint16_t mots[4]; int nmots = 0;
Item avant[64], apres[64]; int na = 0, np = 0;
int total = 0, ok = 0, ko = 0, ignores = 0;
char bilan_ko[65536] = "";
while (fgets(ligne, sizeof ligne, f)) {
ligne[strcspn(ligne, "\n")] = 0;
if (ligne[0] == 'T') {
snprintf(titre, sizeof titre, "%s", ligne + 2);
nmots = na = np = 0;
} else if (ligne[0] == 'W') {
char *p = ligne + 2; nmots = 0;
while (*p && nmots < 4) { mots[nmots++] = (uint16_t)strtoul(p, &p, 16); while (*p == ' ') p++; }
} else if (ligne[0] == 'B' || ligne[0] == 'A') {
Item *it = ligne[0] == 'B' ? &avant[na] : &apres[np];
int *n = ligne[0] == 'B' ? &na : &np;
if (*n >= 64) continue;
char k[8], r[8]; unsigned long long a, v;
if (sscanf(ligne + 2, "%7s %llx %llx", k, &a, &v) == 3 && (k[0] == 'M' || k[0] == 'P') && !k[1]) {
it->mem = k[0] == 'M' ? 1 : 2; it->addr = (uint16_t)a; it->val = v; it->reg[0] = 0; (*n)++;
} else if (sscanf(ligne + 2, "%7s %llx", r, &v) == 2) {
it->mem = 0; snprintf(it->reg, sizeof it->reg, "%s", r); it->val = v; (*n)++;
}
} else if (ligne[0] == 'E') {
if (filtre && !strstr(titre, filtre)) continue;
total++;
C54xState *s = c54x_init();
s->running = true;
s->pc = 0x9000;
bool prob = false;
for (int i = 0; i < na; i++) {
if (avant[i].mem == 1) { if (avant[i].addr < 0x60) data_write(s, avant[i].addr, (uint16_t)avant[i].val); else s->data[avant[i].addr] = (uint16_t)avant[i].val; }
else if (avant[i].mem == 2) s->prog[avant[i].addr] = (uint16_t)avant[i].val;
else if (!set_reg(s, avant[i].reg, avant[i].val)) prob = true;
}
uint16_t pc0 = (uint16_t)s->pc;
for (int i = 0; i < nmots; i++) s->prog[(uint16_t)(pc0 + i)] = mots[i];
/* the instruction after, so a delayed branch has something to execute */
s->prog[(uint16_t)(pc0 + nmots)] = 0xF495; s->prog[(uint16_t)(pc0 + nmots + 1)] = 0xF495;
c54x_run(s, 1);
/* RPT arms a counter and returns 0 executed words: run the repeated
* instruction as well so the example's "After" is observable. */
if (s->rpt_active) c54x_run(s, 1);
char detail[2048] = ""; int d = 0; bool echec = false;
for (int i = 0; i < np; i++) {
uint64_t got;
if (apres[i].mem == 1) got = apres[i].addr < 0x60 ? data_read(s, apres[i].addr) : s->data[apres[i].addr];
else if (apres[i].mem == 2) got = s->prog[apres[i].addr];
else if (!get_reg(s, apres[i].reg, &got)) { prob = true; continue; }
if (got != apres[i].val) {
echec = true;
if (apres[i].mem) d += snprintf(detail + d, sizeof detail - d, " %s[%04x]: attendu %04llx, obtenu %04llx",
apres[i].mem == 1 ? "data" : "prog", apres[i].addr,
(unsigned long long)apres[i].val, (unsigned long long)got);
else d += snprintf(detail + d, sizeof detail - d, " %s: attendu %llx, obtenu %llx",
apres[i].reg, (unsigned long long)apres[i].val, (unsigned long long)got);
}
}
if (echec) {
ko++;
printf("FAIL %-60.60s [%04x%s%04x%s]%s\n", titre, mots[0], nmots > 1 ? " " : "", nmots > 1 ? mots[1] : 0, prob ? " ?" : "", detail);
size_t l = strlen(bilan_ko);
snprintf(bilan_ko + l, sizeof bilan_ko - l, " %s\n", titre);
} else {
ok++;
if (verbeux) printf("ok %-60.60s [%04x]\n", titre, mots[0]);
}
free(s);
} else if (ligne[0] == 'S') {
ignores++;
}
}
printf("\n%d exemples : %d ok, %d FAIL, %d non assembles (S)\n", total, ok, ko, ignores);
return ko ? 1 : 0;
}6.26 /opt/GSM/c54x_exe/tools/rejeu_banc.c
21051 octets, 418 lignes → 418 lignes
/* rejeu_banc.c - rejoue hors banc un TCH enregistre par c54x_exe.
*
* Entree : /dev/shm/calypso_rejeu_tch.bin (calypso_bsp.c + pont.c,
* CALYPSO_REJEU_ENREG). Enregistrements :
* 'S' tick, API RAM complete 'D' tick, registres, memoire de donnees
* 'T' tick, drapeaux, budget 'A' tick, fenetre, n x (mot, valeur)
* 'B' tick, tn, fn, one_shot, nwin, n, I/Q
* On boote le DSP comme tools/tch_rejeu, on pose l'etat 'S'/'D', puis chaque
* tick dans l'ordre de pont.c : ecritures ARM d'avant le TICK, interruption
* trame, phase A jusqu'a l'IDLE (TCH), ecritures ARM d'entre A et GO,
* livraisons d'I/Q, reste du budget, pompe DMA. On imprime chaque resultat
* SACCH (a_cd) et FACCH (a_fd).
*
* Si le rejeu reproduit le Fire KO du banc, on peut iterer ici sans relancer
* le banc ; REJEU_SANS_D=1 garde l'etat du boot local au lieu de 'D'.
*
* ./rejeu_banc [fichier] [ticks max]
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <stdbool.h>
#include "qemu/thread.h"
#include "calypso_c54x.h"
#include "calypso_dma.h"
#include "calypso_bsp.h"
#include "calypso_rhea_dma.h"
#include "hw/arm/calypso/calypso_api.h"
#include <math.h>
#include <osmocom/core/bits.h>
#include <osmocom/gsm/a5.h>
uint32_t g_c54x_exe_fn;
uint32_t calypso_trx_get_fn(void) { return g_c54x_exe_fn; }
void calypso_inth_arm_ack(void) { }
QemuMutex calypso_pcb_daram_lock;
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{ (void)addr; if (!wr) memset(buf, 0, len); }
#define API_WORDS 0x2000u /* fenetre API vue du DSP : data 0x0800..0x27ff */
#define ENREG_API_WORDS CALYPSO_API_WORDS /* taille de l'API RAM enregistree par pont.c */
#define NDB 0xD4u
#define PARAM 0x431u
#define BL_ADDR_HI_W 0x7FCu
#define BL_SIZE_W 0x7FDu
#define BL_ADDR_LO_W 0x7FEu
#define BL_STATUS_W 0x7FFu
typedef struct {
int64_t a, b; uint16_t ar[8], t, trn, sp, bk, brc, rsa, rea, st0, st1, pmst, imr, ifr, xpc;
uint32_t pc; uint8_t idle, running;
} EnregRegs;
static C54xState *dsp;
static uint16_t *api;
static uint8_t *fichier;
static size_t taille;
static uint32_t be32(const uint8_t *p) { return (uint32_t)p[0] << 24 | p[1] << 16 | p[2] << 8 | p[3]; }
static uint16_t be16(const uint8_t *p) { return (uint16_t)(p[0] << 8 | p[1]); }
static long pump(long max, int stop_idle)
{
long b = 0;
while (b < max && dsp->running) {
int ex = c54x_run(dsp, 256); if (ex <= 0) break; b += ex;
if (stop_idle && dsp->idle) break;
}
return b;
}
static void reveil(void)
{
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) && !(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
}
static void boot(void)
{
memset(api, 0, API_WORDS * 2);
long b = 0;
while (api[BL_STATUS_W] != 1 && b < 8000000) { int ex = c54x_run(dsp, 256); if (ex <= 0) break; b += ex; }
api[BL_ADDR_HI_W] = 0; api[BL_ADDR_LO_W] = 0x7000; api[BL_SIZE_W] = 0; api[BL_STATUS_W] = 2;
b = pump(4000000, 1);
printf("boot local : %ld insn, idle=%d\n", b, dsp->idle);
}
/* SONDE (REJEU_SONDE=1) : ou la ROM range-t-elle les bursts SACCH ?
* Pour chaque burst du canal (slot 0 livre par le BSP), on retrouve les bits
* par demodulation GMSK differentielle (polarite calee sur la TSC7), on les
* dechiffre (Kc et d_a5mode pris dans l'API RAM), puis au tick ou a_cd change
* on cherche dans la memoire du DSP ou sont les 116 bits de chacun des quatre
* bursts du bloc (bits souples : signe negatif ou positif = 1). */
static const uint8_t TSC7[26] = {1,1,1,0,1,1,1,1,0,0,0,1,0,0,1,0,1,1,1,0,1,1,1,1,0,0};
static struct { uint32_t fn; uint8_t b[148]; } memo[4096];
static int nmemo;
static void memo_burst(uint32_t fn, const int16_t *iq, int n, int marge)
{
if (n / 2 < marge + 148) return;
uint8_t d[148], b[2][148];
for (int k = 0; k < 148; k++) {
int i0 = 2 * (marge + k), i1 = i0 - 2;
double ph1 = atan2(iq[i0 + 1], iq[i0]);
double ph0 = k ? atan2(iq[i1 + 1], iq[i1]) : 0;
double dp = ph1 - ph0;
while (dp > M_PI) dp -= 2 * M_PI;
while (dp < -M_PI) dp += 2 * M_PI;
d[k] = dp > 0;
}
int best = -1, bs = -1;
for (int pol = 0; pol < 2; pol++) {
uint8_t prev = 0;
for (int k = 0; k < 148; k++) { uint8_t dd = d[k] ^ pol; b[pol][k] = dd ^ prev; prev = b[pol][k]; }
int sc = 0; for (int k = 0; k < 26; k++) sc += b[pol][61 + k] == TSC7[k];
if (sc > bs) { bs = sc; best = pol; }
}
int slot = nmemo % 4096; nmemo++;
memo[slot].fn = fn; memcpy(memo[slot].b, b[best], 148);
static int nlog; if (nlog++ < 3) printf(" [sonde] burst fn=%u : TSC %d/26 (differentielle, pol=%d)\n", fn, bs, best);
}
static const uint8_t *memo_trouver(uint32_t fn)
{
/* Bits exacts de la sonde du BSP (calypso_sacch_tf.bin), s'il y en a. */
static uint8_t (*vrai)[156]; static int nvrai = -1;
if (nvrai < 0) {
nvrai = 0;
const char *nom = getenv("REJEU_BITS");
FILE *f = nom ? fopen(nom, "rb") : NULL;
if (f) { vrai = malloc(4096 * 156); while (nvrai < 4096 && fread(vrai[nvrai], 1, 156, f) == 156) nvrai++; fclose(f); }
if (nom) printf(" [sonde] %d bursts exacts lus dans %s\n", nvrai, nom);
}
for (int i = 0; i < nvrai; i++) if (be32(vrai[i] + 4) == fn) return vrai[i] + 8;
if (getenv("REJEU_BITS")) return NULL;
for (int i = 0; i < 4096 && i < nmemo; i++) if (memo[i].fn == fn) return memo[i].b;
return NULL;
}
static void sonde_bloc(uint32_t fn_dernier)
{
uint8_t kc[8]; uint16_t *akc = &api[NDB + 0x2CE / 2]; int algo = api[NDB + 0x1CE / 2];
for (int i = 0; i < 4; i++) { kc[7 - 2 * i] = akc[i] & 0xff; kc[6 - 2 * i] = akc[i] >> 8; }
for (int k = 0; k < 4; k++) {
uint32_t fn = fn_dernier - 26 * (3 - k);
const uint8_t *b0 = memo_trouver(fn);
if (!b0) { printf(" burst %d fn=%u : non enregistre\n", k, fn); continue; }
uint8_t b[148]; memcpy(b, b0, 148);
if (algo) { ubit_t dl[114], ul[114]; osmo_a5(algo, kc, fn, dl, ul);
for (int j = 0; j < 57; j++) { b[3 + j] ^= dl[j]; b[88 + j] ^= dl[57 + j]; } }
uint8_t t[116]; memcpy(t, b + 3, 58); memcpy(t + 58, b + 87, 58);
int best[2] = {0, 0}; unsigned ad[2] = {0, 0};
for (unsigned a = 0x60; a + 116 < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0;
for (int i = 0; i < 116; i++) { int16_t v = (int16_t)dsp->data[a + i];
if (v != 0) { if ((v < 0) == (t[i] != 0)) m0++; if ((v > 0) == (t[i] != 0)) m1++; } }
if (m0 > best[0]) { best[0] = m0; ad[0] = a; }
if (m1 > best[1]) { best[1] = m1; ad[1] = a; }
}
/* aussi en 57+57 sans les bits de vol (e[] seuls) */
uint8_t e[114]; memcpy(e, b + 3, 57); memcpy(e + 57, b + 88, 57);
int be = 0; unsigned ae = 0;
for (unsigned a = 0x60; a + 114 < C54X_DATA_SIZE; a++) {
int m = 0; for (int i = 0; i < 114; i++) { int16_t v = (int16_t)dsp->data[a + i]; if (v != 0 && (v < 0) == (e[i] != 0)) m++; }
if (m > be) { be = m; ae = a; }
}
printf(" burst %d fn=%u (fn%%104=%u) : 116b neg %d@%04x pos %d@%04x | 114b neg %d@%04x\n",
k, fn, fn % 104, best[0], ad[0], best[1], ad[1], be, ae);
}
}
/* REJEU_TRACE=1 : pas a pas, anneau des dernieres instructions, arret des que
* SP sort de la pile ou que PC tombe en DARAM basse (< 0x0800, hors OVLY). */
uint16_t prog_fetch(C54xState *s, uint16_t pc);
#define ANNEAU 4096
static struct { uint16_t pc, op, op2, sp, st0, st1, ar[8]; uint32_t tick; int64_t a, b; } anneau[ANNEAU];
static unsigned apos;
static int trace_on = -1, plante;
static long courir(long n)
{
if (trace_on < 0) trace_on = getenv("REJEU_TRACE") != NULL;
if (!trace_on) return c54x_run(dsp, (int)n);
long k = 0;
for (; k < n && dsp->running && !dsp->idle && !plante; k++) {
unsigned i = apos++ & (ANNEAU - 1);
uint16_t pc = dsp->pc & 0xffff;
anneau[i].pc = pc; anneau[i].op = prog_fetch(dsp, pc); anneau[i].op2 = prog_fetch(dsp, pc + 1);
anneau[i].sp = dsp->sp; anneau[i].st0 = dsp->st0; anneau[i].st1 = dsp->st1; anneau[i].tick = g_c54x_exe_fn;
memcpy(anneau[i].ar, dsp->ar, sizeof dsp->ar); anneau[i].a = dsp->a; anneau[i].b = dsp->b;
static int wa = -2; static uint16_t wv;
if (wa == -2) { const char *e = getenv("REJEU_STOP_W"); wa = e ? (int)strtoul(e, NULL, 16) : -1; }
if (wa >= 0) wv = dsp->data[wa];
c54x_run(dsp, 1);
uint16_t npc = dsp->pc & 0xffff;
if (wa >= 0 && dsp->data[wa] != wv) {
printf("ECRITURE data[%04x] %04x -> %04x par pc=%04x tick=%u : AR0=%04x AR2=%04x AR3=%04x AR4=%04x BK=%04x "
"[4bcc]=%04x d_task_md(W0/W1)=%04x/%04x d_task_d=%04x/%04x\n",
wa, wv, dsp->data[wa], pc, g_c54x_exe_fn, dsp->ar[0], dsp->ar[2], dsp->ar[3], dsp->ar[4], dsp->bk,
dsp->data[0x4bcc], api[4], api[0x14 + 4], api[0], api[0x14]);
if (getenv("REJEU_ANNEAU_W")) {
int m = atoi(getenv("REJEU_ANNEAU_W"));
for (int j = m; j > 0; j--) {
unsigned q = (apos - j) & (ANNEAU - 1);
printf(" %4d pc=%04x op=%04x %04x ar0=%04x ar2=%04x ar3=%04x ar4=%04x ar5=%04x sp=%04x\n", -j, anneau[q].pc,
anneau[q].op, anneau[q].op2, anneau[q].ar[0], anneau[q].ar[2], anneau[q].ar[3], anneau[q].ar[4], anneau[q].ar[5], anneau[q].sp);
}
exit(4);
}
static int nw; if (++nw >= 6) exit(4);
}
if (dsp->sp < 0x5900 || dsp->sp > 0x5c00 || (getenv("REJEU_STOP_PC") && npc == (uint16_t)strtoul(getenv("REJEU_STOP_PC"), NULL, 16)) || (getenv("REJEU_STOP_DEBUG") && dsp->data[0x08dc] != 0x0074 && g_c54x_exe_fn > 6200)) {
plante = 1;
printf("PLANTAGE tick=%u pc=%04x sp=%04x xpc=%d\n", g_c54x_exe_fn, npc, dsp->sp, dsp->xpc);
int m = getenv("REJEU_ANNEAU") ? atoi(getenv("REJEU_ANNEAU")) : 120;
for (int j = m; j > 0; j--) {
unsigned q = (apos - j) & (ANNEAU - 1);
printf(" %4d t=%u pc=%04x op=%04x %04x sp=%04x st0=%04x st1=%04x ar=%04x %04x %04x %04x %04x %04x %04x %04x a=%010llx b=%010llx\n",
-j, anneau[q].tick, anneau[q].pc, anneau[q].op, anneau[q].op2, anneau[q].sp, anneau[q].st0, anneau[q].st1,
anneau[q].ar[0], anneau[q].ar[1], anneau[q].ar[2], anneau[q].ar[3], anneau[q].ar[4], anneau[q].ar[5],
anneau[q].ar[6], anneau[q].ar[7], (unsigned long long)(anneau[q].a & 0xFFFFFFFFFFULL),
(unsigned long long)(anneau[q].b & 0xFFFFFFFFFFULL));
}
exit(3);
}
}
return k;
}
/* Un tick = les enregistrements entre deux 'T'. */
typedef struct { size_t debut, fin; uint32_t tick; uint8_t drap; long budget; } Tick;
int main(int argc, char **argv)
{
const char *nom = argc > 1 ? argv[1] : "/dev/shm/calypso_rejeu_tch.bin";
long max_ticks = argc > 2 ? atol(argv[2]) : 100000;
FILE *f = fopen(nom, "rb");
if (!f) { perror(nom); return 1; }
fseek(f, 0, SEEK_END); taille = (size_t)ftell(f); fseek(f, 0, SEEK_SET);
fichier = malloc(taille);
if (fread(fichier, 1, taille, f) != taille) { printf("lecture courte\n"); return 1; }
fclose(f);
setenv("CALYPSO_BSP_PORT", "16703", 1);
setenv("CALYPSO_BSP_BIND_ADDR", "127.0.0.1", 1);
setenv("CALYPSO_BSP_HORLOGE", "0", 1);
setenv("CALYPSO_C54X_IRQ_LEVEL", "1", 0);
setenv("CALYPSO_BSP_STREAM", "1", 0);
setenv("CALYPSO_RHEA_DMA_XFER", "1", 0);
setenv("CALYPSO_REJEU_ENREG", "0", 1);
qemu_mutex_init(&calypso_pcb_daram_lock);
dsp = c54x_init();
api = &dsp->data[0x800];
c54x_set_api_ram(dsp, api);
static const struct { const char *s; uint32_t a; bool p; } R[] = {
{ "PROM0", 0x07000, true }, { "PROM1", 0x18000, true }, { "PROM2", 0x28000, true },
{ "PROM3", 0x38000, true }, { "DROM", 0x09000, false }, { "PDROM", 0x0E000, false }, { "PDROM", 0x0E000, true } };
for (unsigned i = 0; i < 7; i++) {
char c[256]; snprintf(c, sizeof c, "/opt/GSM/calypso_dsp.%s.bin", R[i].s);
if (c54x_load_section(dsp, c, R[i].a, R[i].p) < 0) { printf("ROM %s\n", c); return 1; }
}
c54x_load_registers(dsp, "/opt/GSM/calypso_dsp.Registers.bin");
c54x_reset(dsp);
calypso_dma_init();
calypso_bsp_init(dsp);
boot();
/* Premiere passe : l'etat de depart et le decoupage en ticks. */
static Tick ticks[40000]; int nt = 0;
size_t p = 0;
while (p < taille) {
uint8_t k = fichier[p];
size_t l;
switch (k) {
case 'S': l = 5 + (size_t)ENREG_API_WORDS * 2; break;
case 'D': l = 5 + sizeof(EnregRegs) + C54X_DATA_SIZE * 2; break;
case 'T': l = 10; break;
case 'A': l = 8 + 4 * (size_t)be16(fichier + p + 6); break;
case 'B': l = 15 + 2 * (size_t)be16(fichier + p + 13); break;
default: printf("enregistrement inconnu 0x%02x a %zu\n", k, p); goto fini;
}
if (p + l > taille) break;
if (k == 'S') {
memcpy(api, fichier + p + 5, API_WORDS * 2);
printf("etat 'S' pose (tick %u)\n", be32(fichier + p + 1));
} else if (k == 'D' && !getenv("REJEU_SANS_D")) {
EnregRegs r; memcpy(&r, fichier + p + 5, sizeof r);
uint16_t sauve_api[API_WORDS]; memcpy(sauve_api, api, sizeof sauve_api);
memcpy(dsp->data, fichier + p + 5 + sizeof r, C54X_DATA_SIZE * 2);
memcpy(api, sauve_api, sizeof sauve_api); /* 'S' fait foi pour l'API RAM */
dsp->a = r.a; dsp->b = r.b; memcpy(dsp->ar, r.ar, sizeof r.ar); dsp->t = r.t; dsp->trn = r.trn;
dsp->sp = r.sp; dsp->bk = r.bk; dsp->brc = r.brc; dsp->rsa = r.rsa; dsp->rea = r.rea;
dsp->st0 = r.st0; dsp->st1 = r.st1; dsp->pmst = r.pmst; dsp->imr = r.imr; dsp->ifr = r.ifr;
dsp->xpc = r.xpc; dsp->pc = r.pc; dsp->idle = r.idle; dsp->running = r.running;
printf("etat 'D' pose : pc=%04x sp=%04x idle=%d imr=%04x\n", r.pc & 0xffff, r.sp, r.idle, r.imr);
{ /* REJEU_POKE=adr=val[,adr=val...] : corriger l'etat de depart */
const char *e = getenv("REJEU_POKE");
while (e && *e) {
unsigned a, v; if (sscanf(e, "%x=%x", &a, &v) != 2) break;
printf("poke data[%04x] = %04x (etait %04x)\n", a, v, dsp->data[a & 0xffff]);
dsp->data[a & 0xffff] = (uint16_t)v;
e = strchr(e, ','); if (e) e++;
}
}
} else if (k == 'T') {
if (nt > 0) ticks[nt - 1].fin = p;
if (nt < 40000) {
ticks[nt].debut = p; ticks[nt].tick = be32(fichier + p + 1);
ticks[nt].drap = fichier[p + 5]; ticks[nt].budget = (long)be32(fichier + p + 6);
nt++;
}
}
p += l;
}
fini:
if (nt > 0) ticks[nt - 1].fin = p;
printf("%d ticks enregistres (%u..%u)\n", nt, nt ? ticks[0].tick : 0, nt ? ticks[nt - 1].tick : 0);
uint16_t prec_cd = 0xffff, prec_fd = 0xffff;
int sacch_ok = 0, sacch_ko = 0;
uint16_t prec_dd = 0; unsigned long parole_n = 0, parole_bfi = 0, parole_err = 0;
for (int it = 0; it < nt && it < max_ticks; it++) {
Tick *t = &ticks[it];
g_c54x_exe_fn = t->tick;
long budget = t->budget;
uint32_t dernier_livre = 0xffffffffu;
/* ecritures ARM, fenetre 0 */
for (size_t q = t->debut; q < t->fin;) {
uint8_t k = fichier[q];
size_t l = k == 'T' ? 10 : k == 'A' ? 8 + 4 * (size_t)be16(fichier + q + 6)
: k == 'B' ? 15 + 2 * (size_t)be16(fichier + q + 13) : 0;
if (!l) break;
if (k == 'A' && fichier[q + 5] == 0)
for (unsigned i = 0, n = be16(fichier + q + 6); i < n; i++) {
unsigned a = be16(fichier + q + 8 + 4 * i);
if (a < API_WORDS) api[a] = be16(fichier + q + 10 + 4 * i);
}
q += l;
}
/* phase A : comme jouer_trame(phase 1) */
calypso_dma_tick(dsp);
reveil();
if ((dsp->imr & (1u << C54X_IT_TPU_FRAME_BIT)) && (t->drap & 1))
c54x_interrupt_ex(dsp, C54X_IT_TPU_FRAME_VEC, C54X_IT_TPU_FRAME_BIT);
long fait = 0;
if (!dsp->idle) fait = courir(budget / 8);
while (!dsp->idle && fait < budget / 2) fait += courir(256);
/* ecritures ARM, fenetre 1, puis livraisons I/Q dans l'ordre */
for (size_t q = t->debut; q < t->fin;) {
uint8_t k = fichier[q];
size_t l = k == 'T' ? 10 : k == 'A' ? 8 + 4 * (size_t)be16(fichier + q + 6)
: k == 'B' ? 15 + 2 * (size_t)be16(fichier + q + 13) : 0;
if (!l) break;
if (k == 'A' && fichier[q + 5] == 1)
for (unsigned i = 0, n = be16(fichier + q + 6); i < n; i++) {
unsigned a = be16(fichier + q + 8 + 4 * i);
if (a < API_WORDS) api[a] = be16(fichier + q + 10 + 4 * i);
}
if (k == 'B') {
int n = be16(fichier + q + 13);
static int16_t iq[1024];
memcpy(iq, fichier + q + 15, 2 * (size_t)(n > 1024 ? 1024 : n));
calypso_bsp_rx_burst(fichier[q + 5], be32(fichier + q + 6), iq, n);
if (fichier[q + 5] == 0) dernier_livre = be32(fichier + q + 6);
if (fichier[q + 5] == 0 && getenv("REJEU_SONDE")) {
int nwin = be16(fichier + q + 11) / 2, marge = nwin >= 190 ? 21 : nwin >= 150 ? 3 : 0;
memo_burst(be32(fichier + q + 6), iq, n, marge);
}
}
q += l;
}
/* phase B : reste du budget, puis la pompe DMA de pont.c */
reveil();
if (!dsp->idle && budget - fait > 0) courir(budget - fait);
for (int k = 0; k < 40 && dsp->running; k++) {
if (!calypso_rhea_dma_pump(dsp)) break;
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
if (!dsp->idle) courir(budget / 4);
}
uint16_t *cd = &api[NDB + 0x1FC / 2], *fd = &api[NDB + 0x21A / 2];
uint16_t *dd = &api[NDB + 0x238 / 2]; /* a_dd_0 : parole descendante */
{ static int dit;
if (!dsp->idle && dit < 5) { dit++; printf("tick=%u : DSP PAS A L'IDLE en fin de tick, pc=%04x sp=%04x\n", t->tick, dsp->pc & 0xffff, dsp->sp); } }
{ /* REJEU_DUMP=t1-t2,dossier : memoire de donnees du DSP en fin de tick */
const char *e = getenv("REJEU_DUMP");
unsigned t1, t2; char dos[512];
if (e && sscanf(e, "%u-%u,%511s", &t1, &t2, dos) == 3 && t->tick >= t1 && t->tick <= t2) {
char nm[600]; snprintf(nm, sizeof nm, "%s/mem_%u.bin", dos, t->tick);
FILE *fm = fopen(nm, "wb"); if (fm) { fwrite(dsp->data, 2, C54X_DATA_SIZE, fm); fclose(fm); }
}
}
if (getenv("REJEU_SONDE") && dernier_livre != 0xffffffffu && dernier_livre % 104 == 12) {
printf("tick=%u fn=%u (4e burst SACCH TS2) : a_cd0=%04x %s err=%u\n", t->tick, dernier_livre, cd[0],
(cd[0] & 0x8000) ? ((cd[0] & 0x40) ? "FIRE KO" : "ok") : "pas de BLUD", cd[2]);
sonde_bloc(dernier_livre);
}
if (cd[0] != prec_cd && (cd[0] & 0x8000)) {
bool ko = cd[0] & (1u << 6);
ko ? sacch_ko++ : sacch_ok++;
printf("tick=%u SACCH a_cd0=%04x %s err=%u L2=%02x %02x %02x %02x\n", t->tick, cd[0],
ko ? "FIRE KO" : "ok", cd[2], cd[3] & 0xff, cd[3] >> 8, cd[4] & 0xff, cd[4] >> 8);
}
if (fd[0] != prec_fd && (fd[0] & 0x8000))
printf("tick=%u FACCH a_fd0=%04x %s L2=%02x %02x %02x\n", t->tick, fd[0],
(fd[0] & (1u << 6)) ? "FIRE KO" : "ok", fd[3] & 0xff, fd[3] >> 8, fd[4] & 0xff);
/* [2026-09-30] a_dd_0 : B_BLUD (bit 15), B_BFI (bit 2), mot 2 = erreurs
* rapportees par la ROM. Une ligne par trame de parole (REJEU_PAROLE=1)
* et un bilan ; sert a etudier le B_BFI hors banc. */
if (dd[0] != prec_dd && (dd[0] & 0x8000)) {
parole_n++; if (dd[0] & 0x4) parole_bfi++; parole_err += dd[2];
if (getenv("REJEU_PAROLE"))
printf("tick=%u PAROLE a_dd0=%04x BFI=%d err=%u\n", t->tick, dd[0], (dd[0] & 0x4) ? 1 : 0, dd[2]);
}
prec_cd = cd[0]; prec_fd = fd[0]; prec_dd = dd[0];
}
printf("SACCH : %d bonnes, %d Fire KO\n", sacch_ok, sacch_ko);
if (parole_n) printf("PAROLE : %lu trames, %lu BFI, %.1f erreurs/trame\n", parole_n, parole_bfi, (double)parole_err / parole_n);
return 0;
}6.27 /opt/GSM/c54x_exe/tools/sacch_tf_decode.c
4059 octets, 109 lignes → 109 lignes
/* sacch_tf_decode.c - decode hors DSP la SACCH/TF jouee par le BSP.
*
* Lit /dev/shm/calypso_sacch_tf.bin (calypso_bsp.c, sonde [sacch_tf] :
* enregistrements de 156 octets = tick BE32, fn BE32, 148 bits 0/1), regroupe
* les bursts en blocs selon 45.002 (TCH/F, bloc du TN a fn%104 = 12 + 26*TN/2
* modulo 104, puis +26, +52, +78) et les passe a gsm0503_xcch_decode, en clair
* et dechiffres avec le Kc de /dev/shm/calypso_kc_l1.
*
* Si la SACCH decode ici et pas dans la ROM, le defaut est dans le chemin
* BSP -> ROM ; si elle ne decode pas ici non plus, dans ce que le BSP recoit.
*
* ./sacch_tf_decode [fichier] [TN=2] [Kc en hexa, A5/1 ; defaut : calypso_kc_l1]
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <osmocom/core/bits.h>
#include <osmocom/gsm/a5.h>
#include <osmocom/coding/gsm0503_coding.h>
#define MAXB 1024
static struct { uint32_t tick, fn; uint8_t b[148]; } r[MAXB];
static int kc_lire(uint8_t *algo, uint8_t kc[8])
{
FILE *f = fopen("/dev/shm/calypso_kc_l1", "rb");
uint8_t b[32];
if (!f) return -1;
size_t n = fread(b, 1, sizeof b, f);
fclose(f);
if (n < 14) return -1;
*algo = b[4];
memcpy(kc, b + 6, 8);
return (*algo >= 1 && *algo <= 3) ? 0 : -1;
}
static int trouver(int n, uint32_t fn)
{
for (int i = 0; i < n; i++) if (r[i].fn == fn) return i;
return -1;
}
int main(int argc, char **argv)
{
const char *nom = argc > 1 ? argv[1] : "/dev/shm/calypso_sacch_tf.bin";
int tn = argc > 2 ? atoi(argv[2]) : 2;
FILE *f = fopen(nom, "rb");
if (!f) { perror(nom); return 1; }
int n = 0;
uint8_t rec[156];
while (n < MAXB && fread(rec, 1, 156, f) == 156) {
r[n].tick = (uint32_t)rec[0] << 24 | rec[1] << 16 | rec[2] << 8 | rec[3];
r[n].fn = (uint32_t)rec[4] << 24 | rec[5] << 16 | rec[6] << 8 | rec[7];
memcpy(r[n].b, rec + 8, 148);
n++;
}
fclose(f);
uint8_t algo = 0, kc[8] = { 0 };
int a_kc = kc_lire(&algo, kc) == 0;
if (argc > 3 && strlen(argv[3]) == 16) {
for (int i = 0; i < 8; i++) sscanf(argv[3] + 2 * i, "%2hhx", &kc[i]);
algo = 1; a_kc = 1;
}
printf("%d bursts, Kc %s", n, a_kc ? "" : "absent");
if (a_kc) printf("A5/%u %02x%02x%02x%02x%02x%02x%02x%02x", algo, kc[0], kc[1], kc[2], kc[3], kc[4], kc[5], kc[6], kc[7]);
printf("\n");
unsigned debut = (12 + 26 * (tn / 2)) % 104; /* TN2 : 38 */
int ok[2] = { 0, 0 }, vus = 0;
for (int i = 0; i < n; i++) {
if (r[i].fn % 104 != debut) continue;
int idx[4];
int complet = 1;
for (int k = 0; k < 4; k++) {
idx[k] = trouver(n, r[i].fn + 26 * k);
if (idx[k] < 0) complet = 0;
}
if (!complet) continue;
vus++;
printf("bloc fn=%u tick=%u :", r[i].fn, r[i].tick);
for (int chiffre = 0; chiffre < 2; chiffre++) {
if (chiffre && !a_kc) break;
sbit_t sb[464];
for (int k = 0; k < 4; k++) {
uint8_t b[148];
memcpy(b, r[idx[k]].b, 148);
if (chiffre) {
ubit_t dl[114], ul[114];
osmo_a5(algo, kc, r[idx[k]].fn, dl, ul);
for (int j = 0; j < 57; j++) { b[3 + j] ^= dl[j]; b[88 + j] ^= dl[57 + j]; }
}
for (int j = 0; j < 58; j++) {
sb[k * 116 + j] = b[3 + j] ? -127 : 127;
sb[k * 116 + 58 + j] = b[87 + j] ? -127 : 127;
}
}
uint8_t l2[23];
int nerr = 0, nbits = 0;
int rc = gsm0503_xcch_decode(l2, sb, &nerr, &nbits);
if (rc == 0) ok[chiffre]++;
printf(" %s rc=%d err=%d/%d L2=%02x %02x %02x %02x %02x %02x", chiffre ? "dechiffre" : "tel-quel",
rc, nerr, nbits, l2[0], l2[1], l2[2], l2[3], l2[4], l2[5]);
}
printf("\n");
}
printf("blocs complets=%d bons tel-quel=%d bons dechiffres=%d\n", vus, ok[0], ok[1]);
return 0;
}6.28 /opt/GSM/c54x_exe/tools/cch_ref/cch_interleave_ref.py
7736 octets, 171 lignes → 170 lignes (1 groupes compactés)
#!/usr/bin/env python3
# =====================================================================
# GSM 05.03 xCCH block interleaving — REFERENCE
# Applies to BCCH / CCCH (PCH/AGCH) / SDCCH / SACCH.
# One 456-bit coded block -> 4 normal bursts of 114 data bits each,
# NO cross-block overlap (block-rectangular, unlike the 8-burst TCH).
#
# Byte-for-byte identical to libosmocore:
# gsm0503_xcch_interleave() / gsm0503_xcch_deinterleave()
# B = k & 3
# j = 2*((49*k) % 57) + ((k % 8) >> 2)
# iB[B*114 + j] = cB[k] (deinterleave: cB[k] = iB[B*114+j])
#
# Burst data layout for j:
# j = 0..56 -> first 57-bit half (before the 26-bit midamble)
# j = 57..113 -> second 57-bit half (after the midamble)
# The 2 stealing flags are NOT part of these 114 bits.
# =====================================================================
import csv
import random
from collections import Counter
N = 456
def fwd_map():
"""k -> (k, B, j, iB_index)."""
rows = []
for k in range(N):
B = k & 3 # burst 0..3 (k mod 4)
j = 2 * ((49 * k) % 57) + ((k % 8) >> 2) # position 0..113
rows.append((k, B, j, B * 114 + j))
return rows
# ---- verify the map is a real interleaver (bijection + full coverage) ----
def verify(rows):
idx = [r[3] for r in rows]
assert sorted(idx) == list(range(N)), "iB index is NOT a bijection"
pairs = Counter((r[1], r[2]) for r in rows)
assert len(pairs) == N and all(v == 1 for v in pairs.values()), "duplicate (B,j)"
for B in range(4):
js = sorted(r[2] for r in rows if r[1] == B)
assert js == list(range(114)), f"burst {B}: j not full 0..113"
return True
# ---- rate-1/2 K=5 convolutional code (GSM 05.03 4.1.3) --------------------
# G0 = 1 + D^3 + D^4 (0b10011 = 0x13) -> even coded index c(2k)
# G1 = 1 + D + D^3 + D^4 (0b11011 = 0x1B) -> odd coded index c(2k+1)
def conv_encode(u):
assert len(u) == 228 # 184 info + 40 Fire parity + 4 tail(=0)
U = lambda i: u[i] if 0 <= i < 228 else 0
c = [0] * N
for k in range(228):
c[2*k] = U(k) ^ U(k-3) ^ U(k-4)
c[2*k+1] = U(k) ^ U(k-1) ^ U(k-3) ^ U(k-4)
return c
def interleave(c):
iB = [0] * N
for (k, B, j, idx) in fwd_map():
iB[idx] = c[k]
return iB
def deinterleave(iB):
c = [0] * N
for (k, B, j, idx) in fwd_map():
c[k] = iB[idx]
return c
# =========================================================================
if __name__ == "__main__":
rows = fwd_map()
verify(rows)
# round-trip proof: u -> encode -> interleave -> deinterleave == c
random.seed(0)
u = [random.randint(0, 1) for _ in range(224)] + [0, 0, 0, 0]
c = conv_encode(u)
assert deinterleave(interleave(c)) == c
print("OK interleaver is a bijection over 0..455")
print("OK per-burst j fully covers 0..113")
print("OK conv-encode -> interleave -> deinterleave round-trip exact\n")
# ---- main table: k -> (burst, pos), plus the two bug variants ----
with open("cch_interleave_ref.csv", "w", newline="") as f:
w = csv.writer(f)
w.writerow(["k", "lane_G(0=G0/c0,1=G1/c1)", "burst_B", "pos_j",
"iB_index", "j_if_LSB_dropped", "j_if_LSB_inverted",
"iB_index_if_LSB_inverted"])
for (k, B, j, idx) in rows:
base = 2 * ((49 * k) % 57)
j_drop = base
j_inv = base + (1 - ((k % 8) >> 2))
w.writerow([k, k & 1, B, j, idx, j_drop, j_inv, B * 114 + j_inv])
# ---- inverse table: what a deinterleaver actually indexes ----
inv = [0] * N
for (k, B, j, idx) in rows:
inv[idx] = k
with open("cch_deinterleave_inverse_ref.csv", "w", newline="") as f:
w = csv.writer(f)
w.writerow(["iB_index", "burst_B", "pos_j", "source_coded_k", "lane_G"])
for idx in range(N):
k = inv[idx]
w.writerow([idx, idx // 114, idx % 114, k, k & 1])
# ---- deinterleave with a deliberate bug, for stage isolation ----
def deinterleave_mode(iB, mode):
c = [0] * N
for k in range(N):
B = k & 3
base = 2 * ((49 * k) % 57)
if mode == "correct":
j = base + ((k % 8) >> 2)
elif mode == "lsb_dropped": # ((k%8)>>2) forced to 0
j = base
elif mode == "lsb_inverted": # 0<->1 on the LSB term
j = base + (1 - ((k % 8) >> 2))
c[k] = iB[B * 114 + j]
return c
# Known test vector. u is pseudo-random (dense in 1s) on purpose:
# any interleaver error then shows up massively at the cB level.
# Fire is NOT needed here - this isolates interleaver + conv-decoder only.
random.seed(1)
u_tv = [random.randint(0, 1) for _ in range(224)] + [0, 0, 0, 0]
c_tv = conv_encode(u_tv) # 456 coded bits, correct order
iB_tv = interleave(c_tv) # 4 x 114, from the CORRECT interleaver
cB_correct = deinterleave_mode(iB_tv, "correct") # == c_tv (Viterbi(cB)->u)
cB_drop = deinterleave_mode(iB_tv, "lsb_dropped")
cB_inv = deinterleave_mode(iB_tv, "lsb_inverted")
assert cB_correct == c_tv
s = lambda bits: "".join(map(str, bits))
with open("cch_testvectors.txt", "w") as f:
f.write("# GSM 05.03 xCCH stage-isolation test vector\n")
f.write("# Fixed pseudo-random 228-bit u (u[224:228]=tail=0).\n")
f.write("# TEST A (interleaver): feed burst0..3 into YOUR deinterleaver,\n")
f.write("# compare the 456-bit result against the three candidates below:\n")
f.write("# == cB_correct -> interleaver OK, bug is downstream\n")
f.write("# == cB_lsb_dropped -> you never apply the ((k%8)>>2) term\n")
f.write("# == cB_lsb_inverted -> that term is inverted / off-by-one\n")
f.write("# == none of them -> different bug (burst order? half swap?)\n")
f.write("# TEST B (Viterbi/lane): feed cB_correct into YOUR Viterbi,\n")
f.write("# compare the 228-bit result against u. Mismatch with cB correct\n")
f.write("# => c0/c1 swap, wrong polynomials, or tail handling.\n\n")
f.write("u_228 = " + s(u_tv) + "\n\n")
f.write("burst⟨1⟩_114 = " + s(iB_tv[⟨2⟩:⟨3⟩]) + "\n") ×3
⟨⟩ = (0,0,114) (1,114,228) (2,228,342)
f.write("burst3_114 = " + s(iB_tv[342:456]) + "\n\n")
f.write("cB_correct = " + s(cB_correct) + "\n\n")
f.write("cB_lsb_dropped = " + s(cB_drop) + "\n\n")
f.write("cB_lsb_inverted = " + s(cB_inv) + "\n")
dd = sum(a != b for a, b in zip(cB_correct, cB_drop))
di = sum(a != b for a, b in zip(cB_correct, cB_inv))
print(f"test vector written: cB differs from correct in "
f"{dd}/456 (dropped) and {di}/456 (inverted) positions\n")
# ---- how big / what shape is the LSB bug ----
diff = [k for (k, B, j, idx) in rows
if (B * 114 + j) != (B * 114 + 2 * ((49 * k) % 57) + (1 - ((k % 8) >> 2)))]
print(f"LSB-inverted bug moves {len(diff)}/456 coded bits to a wrong burst slot")
print(" -> every k is displaced by exactly +/-1 in j (even<->odd swap),")
print(" within its own burst, so the burst assignment (k&3) stays right.\n")
print("spot check (k : burst, pos):")
for k in [0, 1, 2, 3, 4, 5, 6, 7, 8, 57, 114, 228, 455]:
B = k & 3
j = 2 * ((49 * k) % 57) + ((k % 8) >> 2)
print(f" k={k:3d} -> burst {B}, pos {j:3d} (lane {'G1/c1' if k & 1 else 'G0/c0'})")7 Synthèse
| run | élément | valeur |
|---|---|---|
| (pas de verdict.txt) |
| dossier de run | contenu | |
|---|---|---|
| Verdict et couverture | échelle des barreaux et tableau de couverture couche 1 | |
| Résultats des tests | captures VTY, diagnostics, rapports pytest, grafcets (.txt .md .mmd) | |
| Fichiers | sources, scripts, configs et docs du banc (tout fichier texte) | |
| Logs | journaux (.log), en dernier |
Méthode
Dossiers : /opt/GSM/c54x_exe. Extensions : tous les fichiers texte (hors .git, caches, binaires, sauvegardes, LICENSE et sorties précédentes). Entrée 857 Ko, sortie 855 Ko.
Compactage sans perte : fichiers identiques cités une fois ; lignes consécutives identiques « ×N » ; lignes ne différant que par des nombres : gabarit avec ⟨k⟩ puis la liste ordonnée des valeurs (k-uplets), chaque ligne se reconstruit en remettant les valeurs dans l’ordre. Seuls les codes couleur, la négociation telnet des captures VTY et les caractères de commande sont retirés. Les .md sont inclus tels quels (titres rétrogradés) et les .mmd rendus en diagrammes Mermaid, sans compactage.
8 Resultats des tests
8.1 /opt/GSM/c54x_exe/LAUNCH.md
11864 octets, 196 lignes
8.1.1 Lancer le côté mobile, processus par processus
Deux montages, cinq processus au plus, tous côté mobile. Le réseau (osmo-bts-trx, BSC, MSC, HLR…) n’est jamais lancé ici ; le pont l’attend s’il existe.
| montage | nom à taper | ce qui tourne |
|---|---|---|
| dsp | qosmo-dsp |
c54x_exe --arm → qosmo (QEMU, CALYPSO_DSP_EXTERN=1) → osmocon → mobile → pont_dsp.py --dsp-port 6702 |
| grgsm | qosmo-grgsm |
qosmo (QEMU, couche 1 gr-gsm intégrée) → osmocon → mobile → pont.py |
qosmo-dsp et qosmo-grgsm sans argument lancent tout dans l’ordre, chaque étape attendant la précédente sur un critère observable. --status, --logs, --stop, --step N. Journaux et pid dans /tmp/c54x-pont/. Les anciens lanceurs C du même nom sont conservés en qosmo-dsp-launch / qosmo-grgsm-launch (ils visaient un rootfs ISO disparu) et reçoivent les appels avec options QEMU (-k, -dsp, …).
[2026-09-22] Le tri des deux enveloppes (
/usr/local/bin/qosmo-dsp,/usr/local/bin/qosmo-grgsm, hors dépôt) oubliait--qemu,--cpuet--monitor, et ne regardait que le premier argument. Orqosmo-grgsm/run_modules/40-qemu.shappelleqosmo-grgsm --qemu <bin> -k <elf> --bin <bin> --cpu arm946 --gdb N --rundir <dir> --monitor <dir>/qemu-monitor.sock—--qemuen tête. Le motif ne matchait pas, l’appel partait donc surc54x_exe/run.sh, qui sortait aussitôt suroption inconnue : --qemu. QEMU ne démarrait jamais et le module échouait trente secondes plus tard sur « socket du moniteur QEMU : toujours pas prêt » — un message qui désigne le moniteur alors que rien n’avait été lancé. Les deux enveloppes balaient maintenant tous les arguments et connaissent les six options du lanceur C. Elles ne sont dans aucun dépôt : une réinstallation les écrasera.
Chaque processus se lance aussi seul, par son nom, dans cet ordre.
8.1.1.1 1. c54x_exe — le DSP (montage dsp seulement)
c54x_exe # = /opt/GSM/c54x_exe/c54x_exe --arm -v
c54x_exe --arm --iq cell # + une cellule GMSK synthétique (FCCH/SCH/factice)
c54x_exe --trames 50 # mode autonome, sans ARM : la mask-ROM seule- Rôle : la mask-ROM TI du TMS320C54x, exécutée hors QEMU (
/opt/GSM/qosmo/hw/arm/calypso/l1-dsp/). - Publie :
/dev/shm/calypso_api_ram(la fenêtre API, alias dedata[0x0800..]du C54x) et/tmp/calypso_dsp.sock(verrou trame par trame, protocolecalypso_dsp_pont.h). - Écoute : UDP 6702, les bursts descendants pour le BSP (
calypso_bsp.c). - Attendu :
pont : en attente de l'ARM sur /tmp/calypso_dsp.sock. - Vérifier :
ls -la /dev/shm/calypso_api_ram /tmp/calypso_dsp.sock. - Options :
--insns Nbudget par trame (200000 par défaut avec--arm, 80000 viarun.sh),--iq fcch|cell|tone:x|noise,--amp N,-và-vvvvvvpour les traces du cœur (sondes pures coupées par défaut :CALYPSO_SONDES=1ou-vvvvles rallume). - Environnement (2026-09-23) :
CALYPSO_BSP_ATTENTE_MS=40(posé parrun.sh),PONT_TCH_DEPOT_IDLE=0(ancien dépôt du burst TCH, avant l’IDLE),PONT_DONE_TOT=0(DONE rendu en fin de trame, ancien ordre).dsp.logimprime toutes les 1000 trames[chrono] ... qemu | A | go | B | apres DONE. Sondes :/dev/shm/calypso_bsp_dedie(magasin dédié du BSP : joués/manqués/perdues) ; sur canal dédié, enregistrement/dev/shm/calypso_rejeu_tch.binpourtools/rejeu_banc(CALYPSO_REJEU_ENREG=0coupe). - Lien montant : publie
/dev/shm/calypso_rach,calypso_sdcch_ul,calypso_tch_facch_ul,calypso_tch_sacch_ul,calypso_tch_ulen scrutant l’API RAM (src/montant.c) — c’est par là que le RACH du mobile atteint pont.py puis la BTS.MONTANT=0coupe,MONTANT_DEBUG=Nrègle les traces,MONTANT_CONSOMME_RACH=1rend le déclenchement exact. Depuis le 2026-09-23 :MONTANT_KC=0(Kc danscalypso_kc_l1),MONTANT_PAROLE_TI=0(parole montante brute, sans conversion TI -> FR),MONTANT_TCH_TACHE=0(bascule TCH à l’annonce du pont au lieu de la tâche du firmware),MONTANT_AFD=0/MONTANT_ADD=0(sondes[a_fd]/[a_dd]). Vérifier :./c54x_exeimprime[montant] RACH ra=0x.. bsic=..etpont.logpasse derach=0àrach=N. En appel :[montant] TCH : le firmware poste la tache 13 a fn=..., BSP bascule sur TS2, puisle firmware est revenu sur le SDCCH (tache ALLC)à la libération.
8.1.1.2 2. qosmo — l’ARM et la layer1 osmocom-bb
# montage dsp
CALYPSO_DSP_EXTERN=1 /opt/GSM/qosmo/build/qemu-system-arm -M calypso -cpu arm946 \
-display none -parallel none -serial pty -serial pty \
-monitor unix:/tmp/qemu-monitor-pont.sock,server,nowait \
-kernel /opt/GSM/firmware/board/compal_e88/layer1.highram.elf
# montage grgsm : la même ligne sans CALYPSO_DSP_EXTERNRôle : le Calypso (ARM946) qui exécute
layer1.highram.elf.-kernelest obligatoire : sans lui le CPU part à 0 et plante en0x840000, le romload d’osmocon ne charge rien.Avec
CALYPSO_DSP_EXTERN=1: la fenêtre API0xFFD00000est le segment partagé, la couche 1 gr-gsm est désactivée avant d’ouvrir ses ports, le registreCNTL_RSTrelaieRESET_DSPau DSP, un timer de boot cadence le DSP avant l’activation du TPU.Sans : la couche 1 gr-gsm (le shunt) écoute UDP 4730 (GSMTAP) et 4731 (SCH), nourris par le pont.
Attendu (stderr) :
char device redirected to /dev/pts/N (label serial0) <- le pty modem [trx] pont DSP : API RAM partagee ... + socket /tmp/calypso_dsp.sock (dsp) [trx] pont DSP : RESET_DSP relache par le firmware -> PONT_RESET (dsp) [trx] pont DSP : le TDMA du firmware prend le relais du timer de boot (dsp) [l1] backend gr-gsm : GSMTAP udp/4730, SCH udp/4731 (grgsm)et côté
c54x_exe:RESET #1 ... pc=0xff80puisDSP boote (premier IDLE).Vérifier :
printf 'xp /96bx 0x008305f0\n' | nc -U /tmp/qemu-monitor-pont.sockmontre le dernier printf du firmware (DSP API Version: 0x4e2a 0x491a).run.shécrit le pty dans/tmp/c54x-pont/modem.pty.Ce que
run.shajoute (2026-09-23) :-gdb tcp:127.0.0.1:1234et la consoletelnet 0 44444(qosmo-dsp/tools/gdb-telnet.py; Ctrl-C arrête l’ARM, « continue & » le relance ;GDB=0coupe) ;CALYPSO_PONT_RETRY_DIV=64et, enLOCKSTEP=1(défaut),CALYPSO_PONT_LOCKSTEP=1sur QEMU ;ASSEMBLY_LOGS=1donneqemu-asm.log.qemu.logs’écrit dans/run/user/0/osmo-nitb/logs/qemu.log, avec un lien dans/tmp/c54x-pont/.
8.1.1.3 3. osmocon — le chargeur et le relais L1CTL
osmocon # = osmocon -m romload -i 100 -p $(cat /tmp/c54x-pont/modem.pty) \
# -s /tmp/osmocom_l2 layer1.highram.bin- Rôle : joue le protocole romload avec le stub UART de QEMU, puis relaie le L1CTL entre le firmware (sercomm sur le pty) et la socket
/tmp/osmocom_l2. Affiche la console du firmware (FB0 (fn:att): TOA=… Power=… Angle=…). - Attendu :
Received ident ack,Progress: 100%,Received branch ack, your code is running now!. - Piège : un osmocon tué en plein téléchargement laisse le stub romload de l’UART à mi-bloc ; relancer QEMU (étape 2) puis osmocon.
8.1.1.4 4. mobile — les couches 2/3
mobile -c /opt/GSM/c54x_exe/mobile_pont.cfg # layer2-socket /tmp/osmocom_l2, VTY 4347Config (2026-09-23) :
layer2-socket /tmp/osmocom_l2,sap-socket /tmp/osmocom_sap(les mêmes que sans--dsp, plus de variantes_pont), VTY 4347 ;tch-voicegapkio-tch-format ti, ALSAgsm_out/gsm_in;tch-dataunix-sock/tmp/ms_data(CSD 9600).run.shposeL23_SYNC_RETRIES_SELECTION=8enMODE=dsp(binaire mobile partagé, défaut 1 ailleurs).Attendu dans les 5 s : côté osmocon
L1CTL_PM_REQ,L1CTL_RESET_REQ: FULL!,L1CTL_FBSB_REQ (arfcn=514 …); côté DSP le passage de 428 à ~570 insn/trame eta_sch=0100 …(la L1 ARM a poséd_task_md=5, recherche FB).Sans burst (pas de pont, ou pas de BTS) :
FBSB RESP: result=255en boucle, attendu.Vérifier :
telnet 127.0.0.1 4347puisshow ms. Le port 4347 est hors de la plage 42xx des composants réseau ;run.shrefuse de lancer si le port est pris.
8.1.1.5 5. grgsm_exe — le pont TRX (gr-gsm)
grgsm_exe # = python3 pont/pont_dsp.py --no-record --dsp-port 6702
PONT_DSP_PORT=0 grgsm_exe # montage grgsm : pont/pont.py, vers la L1 de QEMU seulement- Rôle : reçoit les bursts du BTS en TRXD (UDP 5700-5702 depuis osmo-bts-trx), les décode avec gr-gsm et alimente la couche 1 du mobile ; renvoie l’uplink au BTS.
- Vers la L1 gr-gsm (montage grgsm) : blocs L2 en GSMTAP sur 4730, FN de synchro sur 4731.
- Vers le DSP (montage dsp,
--dsp-port 6702, ajouté le 17/09) : chaque burst DL est ré-emballé au format du BSP, 8 octets[tn, fn BE32, att, 0, 0]+ 148 bits 0/1 ; le BSP les convertit en I/Q et les dépose en DARAM0x2a00, d’où le DSP les lit. - Par
run.sh(PONT=1, défaut 0) : le pont est lancé sans--no-record(PONT_AIRREC=1, pour la FFT du panneau), à la différence de l’enveloppegrgsm_exe. - Attendu :
pont TRX : ports 5700/5701/5702, ARFCN 514, BSIC 7puis des lignesSTATS fn=… | DL bursts=N.DL bursts=0tant qu’aucun BTS n’émet : normal sans réseau.
8.1.1.6 Ordre d’arrêt et nettoyage
qosmo-dsp --stop (ou run.sh --stop) arrête dans l’ordre inverse (pont, mobile, osmocon, gdb, QEMU, DSP) et efface /dev/shm/calypso_api_ram, /tmp/calypso_dsp.sock, /tmp/osmocom_l2, /tmp/qemu-monitor-pont.sock, /tmp/osmocom_sap, /tmp/ms_data, /dev/shm/calypso_horloge, les side-bands montants (calypso_rach, calypso_sdcch_ul, calypso_tch_*_ul) et, en montage dsp, calypso_tch_cfg. La session est rangée dans /tmp/c54x-pont/archives/<date>/ (JOURNAUX_GARDES=10).
8.1.1.7 Ce que ça donne aujourd’hui (23/09, runs du banc DSP de 20:22 et 20:32)
- Montage dsp avec la BTS (
PONT=1) : SCH et BCCH décodés, LU ACCEPT, SMS MO et MT dans les deux sens, appel MO vers l’écho 600 et appel MT depuis 100102 complets (ACTIVE, DISCONNECT, TCH fermé), A5/1 confirmé par la BTS sur les cinq établissements, parole audible dans les deux sens (run de 20:22). Aucune LOS, aucune ligne[garde-3d89]: le correctif MVKD/MVDK du cœurqosmotient sur ce run. Plus de SABM répétés depuispont/dsp/clock.py(aucune ligne SABM dans les journaux osmocom). - Ouvert, par ordre d’importance : B_BFI sur toute la parole (run de 20:32, sonde
[a_dd]étendue, non commitée :bfi=2200survues=2200,err0 sur 19 des 20 premières trames, puis 15 à 93) ; une LOS en TCH au run de 20:32 (premier appel, 20:32:45, SACCH/TF FIRE KO à chaque bloc, garde muette ; l’appel suivant reste en T3230, le troisième est sain) ; le SDCCH/8 (27 trames jetées à 20:22, dont 15 SACCH) ; la synchro SB qui ne passe qu’une fois sur trois à cinq ; la marge temps réel en TCH (4.3 à 4.6 ms de travail DSP pour 4.62 ms,[chrono]). Le détail :MAILBOX.md.
Historique (17/09) :
- Montage dsp, cellule synthétique (
IQ=cell qosmo-dsp) : le DSP détecte la FCCH (d_fb_det=1,FB0/FB1avec TOA/puissance/angle réels), grâce à deux bugs du décodeur corrigés ce jour (CALYPSO_FIX_NORM_SD,CALYPSO_FIX_F7_DELAYED). Le décodage du SCH reste ouvert (a_sch[3]=0xf8d8constant,DSP Error Status: 8), cf.qosmo-dsp/hw/arm/calypso/doc/RAPPORT_DFBDET.md§8. - Montage grgsm : la chaîne complète du banc, qui campe et fait des appels dès que le réseau et un BTS sont là.
8.2 /opt/GSM/c54x_exe/MAILBOX.md
177852 octets, 3151 lignes
8.2.1 Boîte aux lettres ARM <-> DSP (Calypso API RAM)
Deux vues de la MÊME mémoire : l’ARM l’adresse en octets depuis 0xFFD00000, le DSP en mots depuis 0x0800. Conversion : mot_dsp = 0x0800 + octet_arm/2.
Sources : qosmo/include/hw/arm/calypso/calypso_api.h et osmocom-bb/src/target/firmware/include/calypso/dsp_api.h — vérifiés concordants (#define DSP 36, branche a_serv_demod/a_pm/a_sch).
8.2.1.1 Plan général
zone ARM (octets) DSP (mots) taille
W page 0 0xFFD00000 0x0800 20 mots ARM -> DSP
W page 1 0xFFD00028 0x0814 20 mots
R page 0 0xFFD00050 0x0828 20 mots DSP -> ARM
R page 1 0xFFD00078 0x083C 20 mots
NDB 0xFFD001A8 0x08D4 268 mots partagé, non paginé8.2.1.2 Page W (ARM -> DSP), offsets en mots
+0 d_task_d 0x0800 / 0x0814
+1 d_burst_d
+2 d_task_u
+3 d_burst_u
+4 d_task_md 0x0804 / 0x0818 <- la mission : 5=FB 6=SB 8/9=TCH
+8 d_fn 0x0808 / 0x081C
+15 d_afc 0x080F / 0x0823 <- DAC AFC relayé au TWL3025
+16 d_ctrl_system 0x0810 / 0x08248.2.1.3 Page R (DSP -> ARM), offsets en mots
+0 d_task_d
+8 a_serv_demod[4] 0x0830 / 0x0844 TOA, PM, ANGLE, SNR
+12 a_pm[3] 0x0834 / 0x0848
+15 a_sch[5] 0x0837 / 0x084B <- en-tête + charge utile SB
a_sch[0] statut : bit15 B_BLUD (bloc présent), bit8 B_SCH_CRC (1=ERREUR)
a_sch[3..4] : le mot SB, sb = a_sch[3] | a_sch[4]<<16
BSIC = (sb>>2) & 0x3f8.2.1.4 NDB (partagé)
+0 d_dsp_page 0x08D4 0=reset, 2=armé page0, 3=armé page1
+14 d_dsp_state 0x08E2
+36 d_fb_det 0x08F8 non nul = FCCH trouvée
+37 d_fb_mode 0x08F9 0=recherche large, 1=étroite
+38 a_sync_demod[4] 0x08FA TOA / PM / ANGLE / SNR
0x08FA TOA, 0x08FB PM, 0x08FC ANGLE, 0x08FD SNR8.2.1.5 Qui écrit quoi — côté ARM (osmocom-bb, vérifié en source)
dsp_end_scenario() calypso/dsp.c:471
d_dsp_page = B_GSM_TASK | w_page ; puis w_page ^= 1
l1s_reset_hw() layer1/sync.c:158
d_dsp_page = 0 ; r_page = 0 ; db_r -> R page 0
appelé par prim_fbsb.c:254 et :429, donc à CHAQUE cycle FBSB raté
l1s_dsp_post() layer1/sync.c:263
memset de la page R, puis a_sch[0] = (1<<B_SCH_CRC) = 0x0100,
puis r_page ^= 1
-> l'ARM n'écrit a_sch[0] qu'avec 0x0100. Rien d'autre.8.2.1.6 Qui écrit quoi — côté DSP (ROM masque, PC relevés à l’adresse exacte)
0xb446 a_sch[0..4] <- 0 sur LES DEUX pages initialisation
0xaba2 a_sch[0] <- 0x1111 marqueur
précédé de 0xaba0 : LD #0x1111, A
encodage 80e2 000f = store *(AR2 + 0x0f), AR2 = base page R
0xb214 a_sch[0..4] <- statut + charge utile RÉSULTAT
statut observé : 0x8100 (BLUD + CRC faux) uniquement
0xb2cc d_fb_det <- 0 entrée de tâche FB : remise à zéro
0xb2cf a_sync[TOA] <- 0
0xb2d2 a_sync[PM] <- 0
0xb2d5 a_sync[ANGLE] <- 0
0xb2d8 a_sync[SNR] <- 0
0xb2c4 *(0x3fb5) <- 0x0cce pointeur du tampon d'entrée du corrélateur FB
0xb2c9 *(0x3fb5) <- 0x0d2e idem, second tampon
0x795a a_sync[TOA] <- valeur
0x798b a_sync[ANGLE] <- valeur
0x798d a_sync[SNR] <- 0x4000
0x79d4 a_sync[SNR] <- valeur
0x79de a_sync[PM] <- valeur8.2.1.7 Séquence d’une tâche SB
ARM : d_task_md = 6 sur la page W courante
ARM : d_dsp_page = 2|w_page (dsp_end_scenario)
DSP : 0xb446 met a_sch à zéro
DSP : 0xaba2 pose le marqueur 0x1111
DSP : 0xb214 écrit le résultat, a_sch[0] = 0x8100 (CRC faux)
ARM : lit db_r->a_sch, voit B_SCH_CRC=1, conclut « SB not found »
ARM : memset page R, a_sch[0] = 0x0100, r_page ^= 1
ARM : après 2 tentatives, L1CTL_RESET_REQ -> l1s_reset_hw -> d_dsp_page = 08.2.1.8 Pièges rencontrés
- Deux chemins d’écriture côté émulateur :
data_write()etdata_write_locked()(c54x_mem.c). Une sonde posée sur un seul en rate la moitié — a_sch passe par le second, a_sync_demod par le premier. - L’ARM et le DSP sont dans DEUX PROCESSUS qui partagent ce mapping. Une sonde qui compare avant/après une instruction DSP peut imputer au DSP une écriture de l’ARM. Toujours relever l’adresse passée en argument, jamais un delta.
- d_dsp_page annonce la page d’ÉCRITURE de la tâche. La page de LECTURE est
dsp_api.r_page, un compteur distinct côté ARM. Les deux ne sont pas liés.
8.2.1.9 Pourquoi le TOA ne vaut jamais 23 [2026-09-19]
Le firmware vise un ToA de 23 (prim_fbsb.c:207 last_fb->toa -= 23) et ne le voit jamais. Mesure sur 49 stores de a_sync[TOA] par la ROM en 0x795a, le mot stocké valant exactement B et T valant 48 sur tous :
AR2 = 0x0cce (tampon d'entree du correlateur FB) 26 stores
valeurs : 48 x10, 96 x8, 144 x4, 192 x2, 240, 384
multiples exacts de 48 : 26/26 = 100 %
AR2 = autre pointeur 23 stores
valeurs : 27, 31, 43, 47, 51, 55, 71, 79, 87, 91
multiples de 48 : 0/23 = 0 %Separation parfaite, aucun recouvrement. Et 48 echantillons complexes = 96 mots = UNE PAGE DMA (ALGTH=192 octets, mesure “en 4 page(s)” de 96 mots pour un burst de 296).
Quand le correlateur lit le tampon de burst, son pic tombe donc sur une frontiere de page DMA, a tous les coups. 23 est a l’interieur d’une page : il n’appartient pas a l’ensemble des valeurs atteignables. Ce n’est pas un probleme de seuil ni de rapport signal/bruit.
0x7953 : 770e 0030 store de la constante 48 -> T
0x795a : 81f8 08fa STH A, *(0x08fa) -> a_sync[TOA], vaut BA rapprocher de calypso_rhea_dma.c:490, qui decrit le mode defaillant du chainage de pages comme “corrupted FCCH, correlator peaking at the edge (TOA=39)”. Le correctif “pages contigues” a fait tomber la proportion de multiples de 48 de 86,6 % (CALYPSO_RHEA_DMA_PINGPONG=1) a 46,4 %, sans l’eliminer : il reste une couture a la granularite de la page.
8.2.1.10 Chaine complete : l’angle mort commande le doublement d’horloge [2026-09-19]
a_sync[ANGLE] rend ~0 quel que soit l'offset injecte (pente nulle sur +-2000 Hz)
-> prim_fbsb.c:312 freq_diff = ANGLE_TO_FREQ(angle) ~ 0
-> prim_fbsb.c:488 if (abs(freq_diff) < freq_err_thresh2 && snr > FB1_SNR_THRESH)
mesure a chaud : thresh2 = 800 Hz (0x008320b2),
FB1_SNR_THRESH = 0 (les seuils 2000/3000 sont sous #if 0),
SNR = 0x4000 ecrit par la ROM en 0x798d
-> 175/180 detections passent le garde, soit 97 %
-> prim_fbsb.c:492 synchronize_tdma() sur le chemin FB, rien ne repose
l'horloge derriere
-> prim_fbsb.c:345 fnr_delta = fnr_report - attempt, fnr_report etant une
COPIE de current_time.fn et attempt valant 1 ou 2
-> prim_fbsb.c:348 cinfo->fn_offset = fnr_delta (un ABSOLU)
-> sync.c:149 l1s_time_inc(current_time, fn_offset) -> horloge doublee
-> bursts normaux EMPTY -> L1CTL_RESET_REQ -> le cycle FBSB repartL’autre appel, prim_fbsb.c:231 (chemin SB), est inoffensif : gsm_fn2gsmtime() repose l’horloge en absolu trois lignes plus loin. D’ou l’echec du SB force : il repare une fois par cycle ce que le chemin FB casse a chaque detection.
Mesure a chaud confirmant le doublement, par le moniteur QEMU :
current_time.fn fn_offset rapport
64797 129070 1.992 fn_offset gele entre deux FB
65499 129070 1.971
65565 131012 1.998 rafraichi a ~2x l'horlogeAdresses de surveillance (xp/1wx sur /tmp/qemu-monitor-pont.sock) :
l1s.current_time.fn 0x0083762c
l1s.serving_cell.arfcn 0x00837644 = 514
l1s.serving_cell.bsic 0x00837646 = 42 avec PONT_CAN_SB
l1s.serving_cell.fn_offset 0x00837648 doit rester petit ; vaut ~2x l'horloge
fbs.req.band_arfcn 0x008320ac = 514
fbs.req.freq_err_thresh2 0x008320b2 = 8008.2.1.11 Le chemin SB lit d’AUTRES cellules que le chemin FB [2026-09-19]
read_fb_result() prim_fbsb.c:306 dsp_api.ndb->a_sync_demod[] NDB 0x08FA..0x08FD
read_sb_result() prim_fbsb.c:148 dsp_api.db_r->a_serv_demod[] page R 0x0830 / 0x0844Deux groupes distincts. Toute mesure faite sur l’un ne dit rien de l’autre.
Les quatre resultats du SB sont publies par la ROM en 0xb1e7..0xb1f5 depuis quatre cellules de travail, avec ANGLE et SNR CROISES par rapport a l’ordre des adresses :
0x3fa4 -> a_serv_demod[TOA] store 0xb1e9
0x3fa5 -> a_serv_demod[PM] store 0xb1ed
0x3fa7 -> a_serv_demod[ANGLE] store 0xb1f1
0x3fa6 -> a_serv_demod[SNR] store 0xb1f5
la cellule 0x3fa6 est elle-meme ecrite en PC=0x7e888.2.1.12 L’AFC est sous le seuil, pas morte
AFC_SNR_THRESHOLD = 2560 (afc.h:4)
AFC_PERIOD = 40 AFC_MIN_MUN_VALID = 8 (afc.c)
mesure sur 111 publications de a_serv_demod[SNR] :
SNR > 2560 : 17 = 15,3 % -> 6,1 mesures valides par fenetre de 40
il en faut 8. Distribution BINAIRE : 16384 (0x4000) ou un ou deux chiffres.
runavg_check_output (avg.c:34) ne remet PAS les compteurs a zero quand le
minimum n'est pas atteint, donc l'AFC finit par emettre -- vers 52 trames.
Or un cycle FBSB dure 53,6 trames en moyenne et afc_reset() remet le DAC a
-700 a chaque l1s_reset_hw(). Les deux echeances sont quasi identiques :
la correction arrive au moment ou elle est effacee.8.2.1.13 Ce qui est DISCULPE par la mesure
- Le tampon du correlateur 0x0cce : quand une vraie FCCH y est, le DSP la voit parfaitement – coherence 0.999, dphi +1.565 pour +1.571 theorique (mesure fn=2060, p51=20). Le signal arrive et l’estimateur le reconnait.
- Le chemin de resultat SB de bout en bout : avec PONT_CAN_SB, le firmware extrait BSIC=42 sur 14 acceptations sur 14, et le stocke en l1s.serving_cell.bsic (0x00837646). Ecriture des deux pages, handshake r_page, read_sb_result, desassemblage T1/T2/T3’ : tout fonctionne.
- L’AFC comme cause de l’echec SB : CALYPSO_TWL3025_AFC=0 ne change ni le verdict CRC ni la quantification du TOA.
8.2.1.14 Retractations de la session
- “le DSP n’ecrit jamais a_sch” : faux, sonde posee sur un seul des deux chemins d’ecriture (data_write vs data_write_locked).
- “le maximum du SNR est 864, 100 % des mesures AFC invalides” : faux, echantillon tronque. Le maximum est 16384 et 15,3 % passent le seuil.
- “l’estimateur d’angle est mort” : vrai pour le NDB (chemin FB), faux pour a_serv_demod (chemin SB) ou il prend des valeurs variees.
- “le doublement d’horloge est benin car ecrase par la pose absolue” : faux, l’ordre reel est inverse sur le chemin FB (prim_fbsb.c:492).
8.2.1.15 Pourquoi le TOA vaut 1251 en vivant et pas en rejeu [2026-09-20]
Rejeu (--rejouer) : le TOA du FB1 croit avec la distance de la FCCH dans la fenetre (6288, 7584, 8832, 9991, 11243 = 5 a 9 trames), ntdma est juste, la SB est decodee : 56 CRC OK sur 3000 trames, 56/56 avec le BSIC injecte, T3 valide et FN = trame du burst. Balayage BSIC 0/7/13/21/42/63 : BSIC=(sb>>2)&0x3f colle a chaque fois. La sortie depend de l’entree.
Vivant (run.sh) : TOA = 1251 (ou 1247, 1296) a CHAQUE detection, quelle que soit la distance de la FCCH. Cause, dans qemu.log :
[trx] pont DSP : DSP en retard, tick saute (fn=5548, 4340 sauts, 1202 trames jouees)Le C54x emule coute 6,7 ms par trame (mesure : 500 trames de rejeu en 3,35 s) contre 4,615 ms de temps reel GSM. QEMU cadence le TDMA a l’horloge murale et saute la trame quand le DONE du DSP n’est pas arrive : 3 trames sur 4 perdues, la ROM ne recoit qu’une trame sur 4 a 6 (transferts DMA en paquets de 13 paires aux fn 252, 258, 264, 270, 276…). Son compteur de blocs FB n’avance donc que d’une trame environ entre la commande et la FCCH : TOA ~ 1250 + quelques echantillons, ntdma = 0, fn_offset faux, la SB visee tombe 1 a 2 trames apres la trame SCH, CRC KO a tous les coups.
Correctif : CALYPSO_PONT_LOCKSTEP=1 (calypso_trx.c, existait deja) - QEMU n’avance la trame que quand le DSP a fini la precedente. run.sh l’exporte par defaut en montage dsp (LOCKSTEP=0 pour revenir a l’horloge murale). Mesure en pas-a-pas : plus aucun saut (trames=1953 a fn=1951), TOA = 11239 a 11243 (ntdma=8, delay=10, comme en rejeu), et dans osmocon.log :
SB1 (1089343:1): TOA= 24, Power= -52dBm, Angle= -152Hz
=> SB 0x001001a8: BSIC=42 fn=3826(2/ 4/ 1) qbits=4BSIC 42 = celui de la cellule synthetique, TOA 24 pour un attendu de 23 : la ROM a decode une vraie SB sur le chemin vivant, ARM reel + DSP reel.
8.2.1.16 Les SB « delirantes » : une page R lue a zero [2026-09-20]
Symptome (osmocon.log) :
SB1 (1649571:1): TOA= 0, Power=-138dBm, Angle= 0Hz
=> SB 0x00000000: BSIC=0 fn=52(0/ 0/ 1) qbits=4908Le mot SB vaut 0, TOA 0, puissance -138 dBm (a_serv_demod a zero aussi) : l’ARM a lu une page R que la ROM venait de remettre a zero en 0xb446 (init de tache, LES DEUX pages) et sur laquelle aucun resultat n’etait encore ecrit. l1s_sbdet_resp ne teste que B_SCH_CRC (bit 8) : 0x0000 passe pour un CRC OK et BSIC=0 / FN=52 sont pris pour argent comptant. Le firmware se cale alors sur un FN faux, lit les bursts normaux n’importe ou et le mobile jette tout (Dropping frame with 210 bit errors : ~46 % d’erreurs sur 456 bits, du hasard). Vu dans qemu.log comme page0 0100->0000 suivi d’une lecture ARM de la page 0.
Deux populations de CRC OK, a distinguer par le mot lui-meme :
sb = 0, TOA = 0, PM = -138 dBm -> page vide, faux positif
sb != 0, TOA ~ 23, PM ~ -52 dBm -> vraie SB (BSIC 42 ici)En rejeu le faux positif n’existe pas : l’ARM rejoue lit a la fin de la trame, apres l’ecriture du DSP. Il n’apparait qu’avec l’ARM QEMU, dont la lecture peut tomber entre la remise a zero et le resultat, ou sur l’autre page R quand les bascules r_page (ARM) et page du DSP se sont desynchronisees par des trames sautees. Le pas-a-pas reduit le second cas ; le premier reste a mesurer.
Le mobile apres une SB acceptee : avec PONT=0 la cellule synthetique n’a que FCCH, SCH et bursts factices ; les trames BCCH decodees sont donc du bruit (Dropping frame with N bit errors, N ~ 190-224) meme quand la SB est vraie. Pour aller au-dela il faut le BTS via pont.py (PONT=1) ou des bursts BCCH (SI1-4) dans cellule.c.
8.2.1.17 Etat du banc ISA [2026-09-20]
make isa_test && ./isa_test tools/isa_tests.txt : 208 exemples SPRU172C, 139 ok, 69 FAIL, 22 non assembles. Une partie des FAIL vient d’attendus mal extraits du PDF (ex. LD *AR4+, A attend un AR5 qui n’intervient pas), le reste sont de vrais ecarts (RETF, RPTB, SUBC, MVDP/MVPD, NEG/RND/SFTA sur les drapeaux). Aucun n’empeche le decodage SB observe ci-dessus.
8.2.1.18 Romload fige a 38-55 % en pas-a-pas [2026-09-20]
Symptome : osmocon reste sur Progress: 38% (ou 55 %), QEMU dit pourtant que le firmware charge par -kernel a deja lance son TDMA. Cause : c’est tdma_tick (calypso_trx.c) qui pompe le pty serie vers l’UART emulee (calypso_uart_poll_backend). Sous CALYPSO_PONT_LOCKSTEP=1, quand le DSP n’a pas fini la trame precedente, le tick sortait AVANT ce pompage et se rearmait : la serie n’avancait qu’au rythme du DSP (~7 ms par trame) et le romload, qui a un delai par bloc, decrochait. Les runs precedents passaient de justesse. Correctif (qosmo 77f61dd) : l’UART est pompee aussi sur le chemin d’attente du DSP. Mesure : 71 blocs, « your code is running now », puis FBSB_REQ dans la foulee.
8.2.1.19 L’interruption trame du DSP est un bit a usage unique [2026-09-20]
Etat de depart, en pas-a-pas : timing FB juste (TOA 11239/11243, delay=10), tache SB postee sur la trame SCH avec le burst S livre, et pourtant 1 SB en 130 cycles. Sondes :
D_TASK_MD-RD : la ROM lit d_task_md a CHAQUE trame (0xb011 -> 0xb554 ->
0xb0b4 -> 0xab7a pour FB, -> 0xaba4 pour SB) et relit la
MEME page avec la meme valeur 3 a 4 trames de suite.
PONT_PC_COUNT : aba4 (dispatch SB) 27 passages / 217 trames, b219 : 0.
DMA2 (PC ajoute aux journaux) : armements par 0xa5ef/0xa5f6, desarmement
0xa646 ; en vivant, flux continu FB rearme a CHAQUE FCCH
(trames 204, 214, 234, 244...), jamais de fenetre 764.
Rejeu : fenetre one-shot de 764 octets (382 mots) armee sur la trame de
la commande SB, et la FB1 (mode etroit) en une fenetre 764
a la trame predite, pas en flux continu.Pourquoi la ROM relit la page : sync.c l1_sync() efface la page W COURANTE a chaque trame (ligne 244) mais ne bascule w_page que si la trame porte un item DSP (dsp_end_scenario, ligne 276). La page remise au DSP garde donc sa tache tant qu’aucun nouveau scenario ne rebascule ; la ROM n’ecrit jamais d_task_md ni d_dsp_page (WATCH-WR : 0 ecriture). Le rejeu, lui, bascule w_page a chaque trame (rejouer.c l1_sync) : les pages y sont propres, d’ou le decodage.
Ce qui l’empeche sur silicium : dsp_end_scenario() appelle tpu_dsp_frameirq_enable() (TPU_CTRL_DSP_EN) a CHAQUE scenario et personne ne l’eteint jamais (tpu_frame_irq_en(1,1) seulement). Un bit qu’on rearme a chaque fois est un bit a usage unique : le TPU ne donne l’interruption trame au DSP que sur les trames ou l’ARM lui a remis une page. Le pont la levait a chaque tick. qosmo ne modelisait pas ce bit (le commentaire de calypso_c54x.c qui le pretend est perime : grep TPU_CTRL_DSP_EN ne donne que le #define).
Correctif : qosmo (calypso_trx.c) met dans TICK.b bit 16 « l’ARM a arme DSP_EN depuis le tick precedent » et consomme le bit ; pont.c ne leve vec 28 que sur ce bit (PONT_IRQ_TRAME=1 pour l’ancien comportement). Verifie d’abord en rejeu avec REJEU_IRQ_SCENARIO=1 : memes TOA, meme taux SB (27/76).
Mesure en vivant, 10 cycles FB1 :
SB acceptees : 5, toutes BSIC=42, TOA=24, -51 dBm (avant : 1/130)
fenetres one-shot 764 : 7 (380 mots), burst S (n_iq=380) sur p51 = 41/11/31
flux FB continu : plus rearme a chaque FCCHRestes : - FB1 lue vide : FB1 (5294:8): TOA=0 Power=-138dBm deux fois de suite, meme mecanisme que la SB delirante (a_sync pas encore ecrit), l’ARM retente. - FB0 a l’essai 1 avec TOA=1296 : la premiere paire de pages porte encore une FCCH du flux precedent (src=GRILLE), detection immediate et fausse distance. - Apres une SB vraie le mobile lit le BCCH et jette tout (Dropping frame with 208 bit errors, MM_EVENT_NO_CELL_FOUND) : la cellule synthetique n’a ni SI1-4 ni bursts normaux. Etape suivante : bursts BCCH dans cellule.c, ou PONT=1 avec le BTS.
8.2.1.20 Banc BTS reel (pont.py –dsp-port 6702) : ce qui manquait [2026-09-20]
- pont.py sans
--dsp-port 6702: rien ne part vers le DSP (defaut 0 = coupe). - Le BSP n’appariait les bursts que par FN (fenetre +-64) : le FN du firmware est arbitraire avant la SB et saute de centaines de milliers a chaque detection FB (prim_fbsb.c, l1s_time_inc absolu). Rien n’etait livre.
CALYPSO_BSP_STREAM=1livre dans l’ordre d’arrivee, c’est le chemin a utiliser des qu’une source temps reel alimente le DSP. - Le BSP ajoutait ses 7 timeslots de remplissage derriere chaque TS0 alors que pont.py envoie les 8 TS : 15 TS par trame (qosmo 6ad7003).
- Le DSP consomme ~100 trames/s contre 217 emises : la file de 128 bursts par TS debordait chaque seconde et jetait les plus anciens ; espacements FCCH mesures 4, 26, 18 trames au lieu de 10, 88 SB tentees / 0 decodee. File portee a 8192 (qosmo 54d8320) : flux coherent, seulement en retard.
- La livraison STREAM chargeait les bursts bruts (148 symboles) et rien pour les TS idle que le BTS n’envoie pas : trames de 1184 symboles ou moins, le compteur de la ROM derivait (offsets intra-trame du TOA FB : 264, 434, 632, 399). Assembleur de trame (qosmo 28e9989) : 8 TS a 156/157 symboles, burst factice pour les absents, fenetre SB = TS0 + 21 de marge.
Vitesse du coeur (qosmo d68baaf, 54d8320) : getenv memoise, chemin rapide sans sondes ni mutex par acces memoire. Rejeu 6,7 -> 2,5-3,0 ms/trame. Le vivant reste vers 10 ms (24-38 k instructions de ROM par trame, ~200 ns chacune, le corps de c54x_run porte encore des dizaines de comparaisons de sonde par instruction) : lockstep toujours necessaire, et la file profonde compense le retard sur le BTS.
8.2.1.21 Bursts BCCH dans la cellule, ordre ARM/DSP dans la trame [2026-09-21]
cellule.c porte maintenant les bursts normaux du TN0 : SI1-4 sur le bloc BCCH (p51 2..5, TC = (fn/51)%8 : SI1 0/4, SI2 1/5, SI3 2/6, SI4 3/7), paging vide sur les CCCH (6..9, 12..15, 16..19), factice ailleurs. Codage libosmocoding (gsm0503_xcch_encode) + assemblage sched_lchan_xcch.c d’osmo-bts, TSC = BCC, identite MCC 001 MNC 01 LAC 1 CI 6001 ARFCN 514 (CELLULE_MCC/MNC/LAC/CI/ARFCN). Verifie hors DSP : les 4 bursts reassembles redonnent les 23 octets exacts (xcch_decode). Fenetre NB de la ROM : 151 echantillons (ALGTH 604), burst a 3 de marge (tpu_window.c L1_NB_MARGIN_Q), trame remplie a la longueur exacte.
Premier symptome cote firmware : EMPTY, BURST ID 2!=1, 3!=2, 2!=0 avec un decalage qui derive. Cause : dans le tick QEMU, le TICK partait au DSP et l’IRQ trame a l’ARM en meme temps ; le DSP (un autre processus) ecrivait la page R du burst N pendant que l1_sync(N) lisait encore le burst N-2, avec un retard variable selon la charge de l’ARM. Ordre silicium mesure par sonde (PONT_NB_DEBUG, [pgA]/[pgG]/[pgB]) : la ROM copie d_task_d/d_burst_d dans la page R et arme la fenetre dans son ISR de trame, AVANT que l’ARM ne change d_dsp_page ; le resultat est ecrit apres le burst, dans la meme trame. Correctif (qosmo calypso_trx.c + calypso_inth.c, c54x_exe pont.c) : TICK en deux phases. QEMU envoie TICK(N) (bit 17 CALYPSO_PONT_TICK_DEUX_PHASES), le DSP joue l’ISR jusqu’a l’armement de la fenetre et repond DONE|PHASE_A ; QEMU leve alors l’IRQ trame, attend la fin de l1_sync(N) (ecriture IRQ_CTRL bit 0 par irq() apres le handler, comptee par l’INTH quand IRQ_NUM valait 4), puis envoie PONT_GO ; le DSP livre le burst et finit la trame. Cible EOI cumulative, resynchronisee sur timeout (256 x 290 us). Mesure : 0 EMPTY, 0 BURST ID sur des dizaines de blocs, aucun timeout. CALYPSO_PONT_ARM_FIRST=0 revient a l’ancien ordre.
Ce qui reste, et ce qui a ete mesure sur la demodulation NB de la ROM :
- Les bits demodules sont dans data[0x2be2..+148] (sonde [scan] : signe positif = 1, 146-147/148 sur un bon burst, le dernier bit toujours faux : la ROM lit 150 echantillons). Par bloc, 1 a 3 bursts sortent parfaits, les autres a ~45 % d’erreurs avec un motif CONSTANT sur la sequence d’apprentissage ; TOA=3 SNR>0 quand c’est bon, TOA=5 SNR=0 quand c’est mauvais. Deterministe : meme burst, meme resultat d’un run a l’autre.
- Le meme burst repete aux 4 positions donne 4 resultats differents : ce n’est pas le contenu seul, l’etat interne de la ROM entre en jeu.
- Sans effet sur le partage bon/mauvais : amplitude (30000 -> 6000), moyenne nulle forcee, phase porteuse (0/22.5/45), TSC 0..7 dans le burst (2 = BCC attendu), marge 0..7 (seule 3 donne quelque chose), fenetre exacte.
- Instant d’echantillonnage : SEUL 0.5 symbole marche (balayage 2.3 a 4.7 par pas de 0.1 : 3.4 et 3.6 echouent sur tous les bursts) ; MSK pur (diagonales exactes) echoue partout. Un egaliseur se degraderait en pente douce ; ici c’est un fil du rasoir.
- SNR rapporte par la ROM sur un burst PARFAIT : 91 a 600 (la SB rend 16384). L’estimateur voit un gros residu meme quand les decisions sont justes.
- Le tampon DARAM (AAD 0x0cce, 302 mots) est identique aux echantillons livres juste apres le DMA ; la ROM y recrit ensuite les mots 1..29.
- La capture reelle (IQ=reelle, BSIC 48) : TOA stable 1-2, SNR 500-660, ~200 erreurs sur 456 a chaque bloc, le motif 0x9999 dans a_cd aussi.
- Coeur C54x : histogramme d’opcodes de la phase B (PONT_NB_HIST) : 12-14 k instructions par burst, 39 k sur le 4e (decodage). La ROM bascule OVM 20 fois par burst, SAT 214 fois, NEG 720, SFTA 193, NORM 217. Le coeur n’implementait ni OVA/OVB ni la saturation OVM (le mot n’apparaissait qu’en commentaire) : ajoute en post-instruction (calypso_c54x.c, CALYPSO_C54X_OVM=0 pour revenir), plus RND src/dst, MIN/MAX (C=1 si egaux), SFTA (C = bit 32-SHIFT), SUBB (retenue inversee), retenue de ADD/SUB src,SHIFT,dst, OV efface une fois teste. Banc ISA : 139 -> 147 ok. Aucun effet sur le partage bon/mauvais des bursts.
Le decodage SB en rejeu (56 CRC OK / ~300 SCH) a le meme profil : une demodulation qui reussit sur une fraction des bursts selon le contenu. Cause commune probable, dans le coeur emule ou dans la forme du signal 1 ech/symbole que la ROM attend de la chaine analogique ; a chercher sur le chemin SB, mieux instrumente (rejouer.c), plutot que sur le NB.
Rejouer :IQ=cell PONT_NB_DEBUG=1 ./run.sh puis grep -a '\[scan\]\|\[nb\]\|\[pg' /tmp/c54x-pont/dsp.log ; balayages CELLULE_NB_DEC=auto|x, CELLULE_NB_PHASE, CELLULE_TSC=auto, PONT_NB_MARGE=auto, CELLULE_NB_FINE=1, CELLULE_NB_REPEAT=k, CELLULE_NB_AMP, CELLULE_NB_ZERO_DC, CELLULE_NB_MSK ; PONT_NB_HIST=
.
8.2.1.22 Phase porteuse = temps, et le TOA 24 de la SB [2026-09-21, suite]
- Kill-switch OVM (CALYPSO_C54X_OVM=0) : partage bon/mauvais identique, drapeaux OVA/OVB/C/TC tous a zero a l’entree de chaque burst (sonde [zones]). L’ajout OVM n’est ni la cause ni un remede. Pas de fuite de drapeaux entre bursts.
- Pas d’inversion I/Q demandee par le firmware en reception (trf6151_iq_swapped rend 0 hors TX 850) : d_task_d = 24, sans le bit 0x8000.
- Balayage de la phase porteuse par quadrants (CELLULE_NB_PHASE=quad) : 0 deg = le partage habituel ; 90 et 270 = tout mauvais ; 180 = le burst bon ressort INVERSE (143/148). Marge 2 + 270 deg reproduit exactement marge 3 + 0 deg, et marge 2 + 90 deg rend le bloc SI2 parfait mais inverse. Pour la ROM un echantillon de decalage vaut 90 deg (rotation j^n du MSK) : sa demodulation est COHERENTE sur une reference de phase fixe, l’estimation de canal sur le TSC ne resout ni le quadrant ni le signe.
- Pourquoi la SB converge a 24 et non 23 : notre burst S est place a 21 echantillons dans la fenetre, un de trop pour la geometrie que la ROM attend. IQ=cell:42:0.5:20 avec CELLULE_SB_PHASE=270 : TOA=23, qbits=0, 8/8 SB. Le NB n’en profite pas (marge 2 + 270 = marge 3 + 0).
- Traces d’execution (PONT_NB_HIST : trace_
.txt, watch_ .txt) : deux bursts 0 (bon 359, mauvais 410) suivent le MEME chemin jusqu’au pas 1698, une boucle argmax en 0x8551-0x8557 (MAX B, XC 1,NC, valeurs A ~0x3dc685d contre 0x3a0e498 : un profil PLAT a 6 % pres, pas un pic de correlation) ; c’est la que la position est choisie et qu’elle part a 5 au lieu de 3. Les « taps » ecrits en 0x2cd1.. (7 groupes) sont ensuite decales d’un mot dans le groupe pour les mauvais bursts. La reference 0x2b28+48 est lue depuis le tampon de burst a AR2 = 0x0d9f.. (mot 209, echantillon 104, un echantillon sur deux) — a comprendre en desassemblant 0x7ef4-0x8557 (PROM0).
Prochaine etape : desassembler la routine NB de la ROM autour de 0x8551 (argmax) et 0x81cd (lecture du tampon a un echantillon sur deux) pour savoir quel profil elle attend a cet endroit ; les traces de 8 bursts sont dans le repertoire donne a PONT_NB_HIST.
8.2.1.23 Le BCCH ne decode pas : le quantifieur des soft bits sort +1 partout [2026-09-21, soir]
Etat : les 4 bursts d’un bloc BCCH sont demodules sans erreur (147/148 en 0x2be2, le dernier bit hors fenetre) une fois le burst elargi (CELLULE_NB_SYM=0.3, cf. supra). Le bloc reste faux (Fire KO, a_cd = bruit). La chaine apres l’egaliseur, lue dans les traces (PONT_NB_HIST) :
0x75c9-0x75e2 division SUBC : ratio = (count << 15) / somme, count et
somme = statistiques du residu sur le TSC (0x7638-0x7697),
ex. 6 / 1523 -> 0x81 (129)
0x8154-0x815e echelle T = ((ratio << 10) >> 16) * 0x4eb8 << 2 >> 16 = 2
(ou 0 quand count = 0)
0x8166-0x8177 soft_scaled = (rnd(T * soft) << 4 >> 1) >> 16, soft = +-3000..6800
-> 0..3, signe perdu
0x82bd-0x82cd table de 129 mots lue en PROM (reada 0x7b9e..) en 0x2a8e
0x82d0-0x82dd index = soft_scaled >> 8, dest = table[0x2ace + index]
-> index 0 partout -> +1 partout
0x9a07/0x9a0a stockage 4 bits par soft bit, 29 mots par burst en
0x4200 + 29 x burst : mesure 0x1111 sur tous les mots
0x9a6a-0x9a76 desentrelacement par table + LUT (0x2c08) vers 0x2a00
0x9a78-0x9aad treillis 16 etats (dadst/dsadt/cmps), st TRN
0x9ab8-0x9ad1 traceback (bitt/roltc), puis compaction 0x9ac5.., a_cdLe treillis recoit donc des metriques (c0+c1, c0-c1) sans information et sort un chemin d’egalites, juste sur les suites de zeros et faux ailleurs (36 a 78 des 228 bits) : ce n’est PAS un defaut du desentrelaceur (test A du dossier tools/cch_ref impossible tant que le bloc ne porte pas de signe : aucun des trois candidats ne matche, 65-70 %).
Corriges au passage (isa_test 148 ok) : MPYR / MACR / MASR effacent les 16 bits bas apres l’arrondi (isa_test 132). Sans effet sur le bloc.
Bequille de diagnostic CALYPSO_HACK_SOFT_SCALE=k (c54x_exec.c, MPYR aux trois sites de l’echelle) : x256 fait apparaitre quelques -4 dans le bloc et change a_cd, sans decoder. Le facteur manquant est de l’ordre de 2^12 a 2^20 d’apres l’arithmetique ci-dessus, ce qui n’est pas plausible pour une seule instruction : une des semantiques de la chaine (sfta/sth ASM/norm/exp sur ces valeurs, ou le residu 0x7638 qui fixe count et somme) est lue de travers par le coeur ou par moi. Prochaine etape : rejouer cette chaine (entree 0x2be2 -> sortie 0x2a00) sur les valeurs des traces avec les semantiques du manuel, instruction par instruction, jusqu’au premier ecart.
8.2.1.24 Le BCCH decode : SI1-4, lai=001-01-1, le mobile campe [2026-09-21, apres-midi]
Le quantifieur n’etait pas en cause : quatre semantiques du coeur, toutes en aval de l’egaliseur, lues de travers. Trouvees en rejouant chaque etage en Python sur les traces (PONT_NB_HIST) jusqu’au premier ecart :
add Xmem,Ymem,B(0xA1xx) etait execute comme SQDST (qui est 0xE2xx) : A <- Ymem<<16, B += (AH-Xmem)^2. Site 0x8251 (fin du filtre 3 coefficients de l’egaliseur, 206 fois par burst) : la somme construite dans A etait remplacee par l’echantillon Q derotate. D’ou les “soft bits” propres mais inverses et decales d’un symbole (out[n] = -bit[n+2] au lieu de +bit[n+3]), la correlation TSC du residu nulle (count 6), l’echelle T=2 et les +1 partout. Aussi 0x8565, 0x81fa, 0x7f03, 0x7fab-0x80ec. (c54x_exec.c, blochi8 == 0xA1desactive.)*+ARx(lk)%(mode 14) utilisait encore la grille “base = AR - AR % BK” : au 4e passage du desentrelaceur (0x9a15/0x9a34/0x9a59, BK=456,mar *+AR4(57)%), AR4 = 0x2aab+57 donnait 0x291c au lieu de 0x2ae4 et la moitie impaire du bloc partait sous le tampon. (c54x_decode.c -> c54x_circ_ref, comme les modes 8-11.)sfta A,1posait C = bit 31 (regle SFTL) ; la LFSR du code de Fire (0xa168-0xa175, registre 40 bits dans A, generateur 0x04820009 viaxc C -> xor #0x0482,16,A ; xor @60(=9),A) veut le bit 39 : syndrome nul sur un bloc juste seulement avec C = src(40-SHIFT). Le manuel dit src(39-SHIFT) et son exemple (80AA001234<<5 -> C=1) ne colle a aucune des deux ; isa_test 188 echoue desormais, la ROM a raison. Avant : FIRE1 (a_cd[0]=0x8040) sur chaque bloc, “Dropping frame with N bit errors”.and/or/xor src,SHIFT,dstavec src=B (0xF2xx/0xF3xx) : operandes inverses (dst = src OP (dst<<SHIFT)) ; corrige en dst OP (src<<SHIFT) (audit qosmo-dsp vs l1-dsp). Sites 0x8ec7-0x8eca (repliement du CRC).
Verifications intermediaires (scratchpad repro.py / vit.py) : egaliseur Python avec les coefficients de la ROM = +bit[n+3] 142/142 et = la sortie ROM apres (1) ; nibbles 0x4200 = 456/456 via tools/cch_ref ; bloc 0x2a00 = 456/456 apres (2) ; mots TRN du treillis identiques au modele (228/228), traceback -> 0 erreur sur u224 ; mots 0x2c3c.. exacts.
Attention, la reference u228 de cellule_u228_attendu() etait fausse : les octets L2 se deplient LSB en premier (osmo_pbit2ubit_ext lsb_mode=1) avant le Fire et le convolutif ; en MSB d’abord la sonde [u228] annoncait “78 faux” sur un bloc juste. Corrige ; la sonde [u228]/[bloc] reste a revoir (elle lit 0x2d66, qui n’est pas la sortie).
Resultat (IQ=cell CELLULE_NB_SYM=0.3) : a_cd = 8000 06f9 0026 : 0631 001c 10f1 0100 4040 00e5 2b00 … = SI4 LAI 001-01-1 ; mobile.log : New SYSTEM INFORMATION 1/2/3/4, lai=001-01-1, 0 “Dropping frame”, “We are camping normally”. Reste : a_cd[2] (0x26/0x35 “erreurs de bits”) non nul sur un bloc parfait, sans effet (fire_crc=0) ; isa_test 147 ok / 61 FAIL.
8.2.1.25 Pas de LU ACCEPT : en montage DSP, le lien montant n’existait pas [2026-09-21, soir]
Symptome : le mobile campe (SI 1-4, lai=001-01-1, CGI=001-01-1-6001, cote pont DL bursts=2268 blocs=567 crc=0), demande sa mise a jour de position, puis tourne en rond :
mobile.log : CHANNEL REQUEST: 00 (Location Update with NECI)
RANDOM ACCESS (requests left 8..4), T3211 qui refire
osmocon.log : L1CTL_RACH_REQ (ra=0x01, offset=9, combined=1, uic=0xff) x5
pont.log : UL bursts=0 tard=0 rach=0 <- rien ne remonte
dsp.log : aucune occurrence de RACH ni de UL
/dev/shm/ : calypso_api_ram seul, pas de calypso_rachSans RACH, pas d’IMM ASS, donc pas de SDCCH, donc jamais de LU ACCEPT. La descente n’etait pas en cause.
Cause, en trois ruptures sur le meme chemin :
calypso_trx.c:325voit bien l’ecriture ded_rachet appellecalypso_l1_do_rach_written(), qui relaie al1->rach_written(calypso_l1_dispatch.c:102). Mais sousCALYPSO_DSP_EXTERN=1,calypso_l1_do_init()appellecalypso_l1_disable()(qemu.log : « couche 1 « grgsm » desactivee (DSP externe) ») :l1 == NULL, le hook est un no-op. Idem pour_page_written(d_task_u).- Cote
c54x_exe, le BSP contient tout le necessaire —calypso_bsp_tx_rach_burst()(calypso_bsp.c:2487),send_rach_ra()(:2541),send_ul()(:2344),tx_burst()(:2397) — mais personne ne les appelle : code mort. Dans les arbres precedents les appels etaient cote QEMU (qosmo-dsp/hw/arm/calypso/calypso_trx.c:1200sur ecriture de d_rach,:1945-1959poll de d_task_ra/d_task_u par trame) ; le refactor « couche 1 enregistree » les a perdus et ils n’ont pas ete reportes dans le processus DSP. pont.pyn’a qu’une entree montante : les side-bands/dev/shm(pont/uplink.py:13,134), ecrits uniquement par la couche 1 gr-gsm (qosmo-grgsm/.../calypso_l1_grgsm.c:738) — justement celle qui est desactivee.--dsp-port 6702est unidirectionnel (pont/trx.py:83-89).
Correctif : src/montant.c, appele une fois par trame depuis le PONT_TICK de src/pont.c. Il scrute l’API RAM partagee et alimente les memes side-bands qu’en montage grgsm (RACH, SDCCH UL, FACCH, SACCH, parole), avec les captures reprises telles quelles de la couche 1 gr-gsm (fenetre a_cu + 6 et son heuristique d’en-tete LAPDm, take_ul sur B_BLUD, anneau TCH). La page W est choisie sur le d_dsp_page frais du NDB (dsp_end_scenario ecrit B_GSM_TASK | w_page avant de basculer), pas sur celui echantillonne au TICK : l1_sync() tourne entre le TICK et le GO en mode deux phases.
Seul point ou la scrutation n’est pas equivalente au callback : le RACH. Le firmware ecrit d_rach (prim_rach.c:72) puis d_task_ra, et rien ne les efface (sync.c:307 ne le fait que sur ABORT). On declenche donc sur front de d_rach, avec une garde de 4 trames. Angle mort : deux tentatives de suite avec la meme RA (tiree au hasard par gsm48_rr, ~1/256) ; MONTANT_CONSOMME_RACH=1 remet d_rach a zero apres publication et rend le declenchement exact. MONTANT=0 coupe tout, MONTANT_DEBUG=N regle le nombre d’evenements imprimes (20 par defaut).
Pourquoi les side-bands et pas TRXD : calypso_bsp_send_ul() emet vers 127.0.0.1:5702, c’est-a-dire la socket descendante de pont.py, dont run_data() fait self.bts_data = addr sur tout paquet recu — le burst montant serait relu comme une descente et l’adresse de la BTS ecrasee. Une voie TRXD native demanderait d’abord un port montant dedie cote pont.
A cote, meme session : une SB annoncant BSIC=7 alors que le BSC est a 21 signifie que le QEMU lance n’a pas CALYPSO_DSP_EXTERN=1 (il ecoute alors sur udp/4730-4731). La SB est alors fabriquee par le shunt gr-gsm a partir du paquet SCH2 de pont/downlink.py:30, avec cfg.bsic = 7 par defaut (pont/config.py:45) : PONT_BSIC=21, ou le montage DSP.
8.2.1.26 Le RACH passe, l’IMM ASS revient, le mobile la jette : la reference de requete [2026-09-21, nuit]
Avec src/montant.c en place, la boucle complete se mesure sur le banc reel (sonde a 3 ms sur /dev/shm/calypso_api_ram et /dev/shm/calypso_rach) :
22:07:26 RACH publie seq=2 ra=0x0d bsic=21
22:07:29 >>> IMM ASS ra=0x0d ref T1'=3 T2=9 T3=35
brut = 2d 06 3f 03 41 a2 02 0d 1c 69 00 00 2b...
22:07:30 >>> IMM ASS ra=0x04 ref T1'=3 T2=17 T3=23
22:07:32 >>> IMM ASS ra=0x06 ref T1'=3 T2=2 T3=14Donc : le RACH part, la BTS l’entend, le BSC ouvre un SDCCH, l’IMMEDIATE ASSIGNMENT redescend sur l’AGCH, le DSP la decode et le bloc arrive dans a_cd avec la BONNE RA. Et pourtant le mobile reste en connection pending, /dev/shm/calypso_sdcch_ul n’est jamais cree (aucune tache d_task_u), et le BSC compte douze lchan allocation failed ... WAIT_RLL_RTP_ESTABLISH Timeout en quatre minutes.
Cause : gsm48_match_ra() (osmocom-bb gsm48_rr.c:3359) n’accepte une assignation que si la RA et T1’/T2/T3 correspondent a ce que sa propre couche 1 lui a confirme, et journalise sinon « request %02x matches but not frame number ». Or le banc n’emet pas l’access-burst a la trame ou le firmware a cru l’emettre : pont.py le programme sur SON horloge (pont/uplink.py:_poll_rach -> _next_fn(4, ...)), plusieurs trames plus tard, et la BTS horodate la reference avec cette trame-la.
Ce n’est pas une decouverte : la couche 1 gr-gsm contient deja le contournement (qosmo-grgsm/.../calypso_l1_grgsm.c:836-845, feed_agch() reecrit les octets 8-9 de tout IMM ASS avec le last_rach du firmware, lu par symbole ELF). Sous CALYPSO_DSP_EXTERN=1 cette couche 1 est desactivee, donc plus personne ne le faisait.
Correctif, cote QEMU cette fois (hw/arm/calypso/calypso_trx.c) :
calypso_l1_dispatch.cretient le chemin de l’ELF passe acalypso_l1_do_init()et exposecalypso_firmware_symbol()(table des symboles ELF32, reprise de la couche 1 gr-gsm).last_rachest GLOBAL a 0x00837624 danslayer1.highram.elf.api_writeretient la RA a chaque ecriture ded_rach, etpont_rach_suivi()relevelast_rach.fnune fois par trame (sur l’ecriture ded_dsp_page, quedsp_end_scenario()fait exactement une fois par trame) pour tenir un historique par RA. C’est necessaire : les assignations reviennent dans le desordre (mesure ci-dessus : 0x0d, puis 0x04, puis 0x06 alors que la derniere RA ecrite etait 0x0e).api_readintercepte la lecture ARM du seul mot concerne,API_NDB + NDB_A_CD + 14(octets 8-9 du bloc L2, la reference de requete), quand le bloc est bien06 3f, et rend la reference recalculee depuis la trame memorisee pour CETTE RA. Si aucune trame n’est connue pour elle, on ne corrige pas : fabriquer une correspondance serait pire que l’echec.MONTANT_REQREF=0coupe la correction.
Au passage, deux corrections sur le montant lui-meme :
- Le declencheur du RACH etait la valeur de
d_rach. Faux : ce mot du NDB est aussi de la memoire du C54x (data[0x0A3A]) et la ROM y laisse du residu. Echantillonnage a 4 ms pendant 90 s :d_rach = 0xfe00avecd_task_ra = 0sur les deux pages W dans 3219 relevés, contre trois vraies tentatives (0x0d54, 0x0954, 0x0c54) portant toutesd_task_ra = 0x000a. OrRACH_DSP_TASK = 10(firmwareinclude/calypso/l1_environment.h:49). Le declencheur est doncd_task_ra, et un access-burst bidon (ra=0xfe, bsic=0) partait vers la BTS a chaque demarrage.MONTANT_RACH_SUR_DRACH=1retablit l’ancien comportement. calypso_bsp.cimprimait une ligne[ts0] tick=... NB fenetre=151par trame livree : la conditionnwin > 0est vraie pour tout burst normal depuis la DMA one-shot. Repliee derriereCALYPSO_BSP_TS0_DEBUG=1.
8.2.1.27 Le mobile passe en mode dedie, sur un intervalle que le DSP ne recoit pas [2026-09-21, nuit, suite]
Avec la reference de requete corrigee, la suite se deroule : le mobile accepte l’assignation, passe en mode dedie et emet sa demande. Le bloc montant capture dans /dev/shm/calypso_sdcch_ul est exactement celui qu’on cherchait :
01 3f 49 | 05 08 70 00 f1 10 ff fe 30 08 09 10 10 00 10 00 00 10
│ │ └── L = 18
│ └───── SABM, P=1
└──────── SAPI 0
05 08 = MM / LOCATION UPDATING REQUEST, LAI 001-01
LAC=0xfffe (efface), classmark 30, IMSI 001010001000001Deux choses l’empechaient d’arriver a la BTS, toutes deux du meme genre que le reste : un point de branchement que calypso_l1_disable() avait neutralise.
1. Le canal dedie n’etait annonce a personne. pont.py ne lit pas les IMM ASS : sa classe Dedicated (pont/state.py) attend le canal dans /dev/shm/calypso_dcch_cfg, et tant qu’il manque, uplink.py:_poll_sdcch() jette tout le montant. Ce fichier etait ecrit par le tap L1CTL de la couche 1 gr-gsm (l1-grgsm/calypso_l1ctl_tap.c), branche par la vtable. Nouveau hw/arm/calypso/calypso_dcch_tap.c, qui ne depend d’aucune couche 1 : il renifle le flux sercomm du firmware, retient le chan_nr des L1CTL_DATA_CONF/DATA_IND et publie. calypso_l1_do_uart_tx_byte() l’appelle quand aucune L1 n’est enregistree ; d_dsp_page = 0 libere. Verifie sur le banc : [dcch] canal dedie arme : chan_nr=0x51 SDCCH/8 SS=2 TN=1.
2. Le DSP ne recevait que TS0. Le BSC alloue le SDCCH/8 sur TS1 ; sous CALYPSO_BSP_STREAM=1, calypso_bsp.c arretait TS1..TS7 a la reception et bsp_ts0_livrer() completait la trame avec du bourrage a zero. Le mobile n’entendait donc ni le UA ni le LU ACCEPT, d’ou le [dcch] canal dedie libere immediat et le retour en C1 normal cell selection. g_bsp_tpu_offset, la position de la fenetre RX relayee par QEMU, etait stockee et jamais lue - et de toute facon TPU_OFFSET est le decalage de synchro global, pas l’intervalle.
Correctif : QEMU sait desormais quel canal le mobile utilise (point 1), donc il l’annonce au DSP par un nouveau message du pont, PONT_DCCH (a = TN, b = genre, c = sous-voie), emis juste avant un TICK - jamais pendant l’attente d’un PONT_GO, que le DSP ignorerait. Le BSP garde alors les bursts de CET intervalle par numero de trame BTS (bsp_dedie_stocker, anneau de 2^16 trames parce que le DSP en pas-a-pas derive de plusieurs secondes) et bsp_ts0_livrer() les joue a la place de TS0. Un seul burst par tick, donc le cadencement en 1250 symboles par trame n’est pas touche.
Au passage, l’appariement RA -> trame. Premiere version : relever last_rach.fn une fois par trame et l’attribuer a la derniere RA ecrite. Mesure : trois IMM ASS ra=0x0c : aucune trame memorisee de suite. En rafale, le firmware ecrit le d_rach suivant avant que last_rach n’ait bouge pour le precedent. Deuxieme version, exacte : les RA sont mises en file a l’ecriture de d_rach et chaque L1CTL_RACH_CONF (lu par le meme tap sercomm) en depile une - c’est l’appariement que fait le mobile lui-meme dans cr_hist.
Et une mesure qui commande le reste. L’ecart entre la reference de la BTS et celle du mobile n’est pas constant, il grandit :
ra=0x08 BTS 7/14/45 = fn 9582 mobile fn 8074 1508 trames ~7,0 s
ra=0x0e BTS 8/5/33 = fn 10743 mobile fn 9464 1279 trames ~5,9 s
ra=0x0e BTS 8/0/14 = fn 11336 mobile fn 9464 1872 trames ~8,6 sC’est la derive du pas-a-pas : le C54x emule coute ~6,7 ms par trame contre 4,615 ms de temps reel, donc l’horloge du mobile prend du retard sur celle du reseau en continu. Toute comparaison de numero de trame entre les deux cotes doit donc passer par la valeur du mobile, jamais par celle du reseau.
8.2.1.28 Le LU va jusqu’a l’authentification, et meurt d’un SABM de trop [2026-09-21, nuit, fin]
Avec l’intervalle dedie livre au DSP, la procedure se deroule enfin :
IMMEDIATE ASSIGNMENT: (ta 0/0m ra 0x0b chan_nr 0x41 ARFCN 514 TS 1 SS 0 TSC 5)
request 0b matches (fn=4,6,23) <- la reference de requete colle
new state connection pending -> dedicated
New SYSTEM INFORMATION 6 / 5 (SACCH descendante decodee)
RR_EST_CNF -> location updating initiated
MT_MM_ID_REQ -> IDENTITY RESPONSE
MT_MM_AUTH_REQ -> AUTHENTICATION RESPONSE
MT_MM_LOC_UPD_REJECT <- et la, nonLe rejet n’est pas une affaire d’authentification (la Ki du test-sim et celle de auc_2g sont la meme, comp128v1) : c’est une consequence. Le BSC dit pourquoi, a la seconde pres :
22:30:54 lchan(0-0-1-SDCCH8-0){ESTABLISHED}: ERROR INDICATION
cause=SABM frame with information not allowed in this stateUn deuxieme SABM sur un lien deja etabli. La LAPDm du BTS casse le canal, le MSC se retrouve en MSC_A_ST_RELEASING et repond LOCATION UPDATING REJECT au milieu de la procedure (/var/log/osmocom/osmo-msc.log, gsm_04_08.c:112).
Coupable : l’anti-doublon repris de la couche 1 gr-gsm, qui republie un bloc identique passe 60 trames (SDCCH_UL_DEDUP_TICKS). Le firmware laisse son bloc dans a_cu ; nous le republiions, le pont le reemettait. Desormais un bloc n’est publie que si son CONTENU change, et la memoire de l’anti-doublon repart a zero a la liberation du canal (montant_canal_libere(), appele sur PONT_DCCH genre 0xFF) – sinon le SABM de la connexion suivante, octet pour octet identique, serait pris pour un doublon et ne partirait jamais. MONTANT_SDCCH_REPETE=N retablit une republication au bout de N trames. Compromis assume : une retransmission LAPDm du mobile porte les memes octets et sera avalee ; l’inverse casse le lien a coup sur.
A surveiller au prochain run : les « Dropping frame with 110 bit errors » de la descente dediee. 110 erreurs sur 456 bits, c’est la signature d’UN burst sur quatre manquant ou faux dans le bloc. Elles sont nombreuses au moment de l’etablissement (le canal n’est arme qu’au premier DATA_CONF/IND, donc les premiers blocs partent sans intervalle dedie), puis rares pendant la transaction (SI5, SI6, ID REQUEST, AUTH REQUEST passent tous), puis permanentes apres le rejet (le BTS n’emet plus rien sur TS1).
8.2.1.29 Le SABM ne partait plus du tout : la liberation lue au mauvais endroit [2026-09-21, nuit, suite]
Apres avoir mis « un seul SABM par connexion », le BSC ne dit plus ERROR INDICATION mais WAIT_RLL_RTP_ESTABLISH: Timeout : plus de doublon, et plus de SABM du tout. La trace QEMU montre le defaut en deux lignes :
[dcch] canal dedie arme : chan_nr=0x41 SDCCH/8 SS=0 TN=1
[dcch] canal dedie libere : chan_nr=0x00 SDCCH/4 SS=0 TN=0Armé puis libéré dans la seconde. Le tap publiait « libere » sur d_dsp_page == 0, condition reprise du l1_reset() de la couche 1 gr-gsm. Faux ici : le firmware fait justement un l1s_dsp_abort() (sync.c:308) au moment ou il bascule VERS le canal dedie – c’est le « resetting scheduler » du journal du mobile, juste apres l’IMMEDIATE ASSIGNMENT. pont.py voyait donc un canal libere et jetait le SABM.
Tant que le SABM etait republie toutes les secondes, le defaut etait masque : une republication finissait toujours par tomber dans une fenetre ou le canal etait arme. C’est ce qui explique que la session de 22:30 ait pu aller jusqu’a l’AUTHENTICATION RESPONSE malgre les doublons.
Deux corrections :
- La liberation se lit sur le retour aux voies communes, pas sur
d_dsp_page. UnL1CTL_DATA_IND/DATA_CONFportant unchan_nrnon dedie (BCCH, CCCH) veut dire que le mobile est revenu sur les voies communes ; en mode dedie il n’en lit aucun, donc ca ne peut pas arriver au milieu d’une connexion.calypso_l1_do_page_written()ne libere plus rien. - Le bloc montant attend son canal (
pont/uplink.py:_poll_sdcch). La couche 1 publie le SABM a l’instant ou elle l’emet, etDedicated.read()ne relit/dev/shm/calypso_dcch_cfgqu’une fois parDCCH_TTL(100 ms) : le premier bloc d’une connexion tombait regulierement dans cette fenetre et disparaissait. On force desormais une relecture des qu’un bloc arrive, et on garde le bloc jusqu’a une seconde si le canal n’est pas encore connu, au lieu de le jeter (SDCCH_ATTENTE).
8.2.1.30 Le canal dedie battait : arme/libere des dizaines de fois par seconde [2026-09-21, nuit, suite]
Deuxieme version de la liberation (« un bloc sur une voie commune veut dire que le mobile est revenu ») : pire que la premiere. Trace QEMU pendant une connexion :
[dcch] canal dedie arme : chan_nr=0x41 SDCCH/8 SS=0 TN=1
[dcch] canal dedie libere : chan_nr=0x00 SDCCH/4 SS=0 TN=0
[dcch] canal dedie arme : chan_nr=0x41 SDCCH/8 SS=0 TN=1
[dcch] canal dedie libere : chan_nr=0x00 ... (x N, en boucle)Le BSP basculait donc entre TS0 et TS1 a chaque bloc. Cote mobile : tous les blocs descendants a 110/98/87 erreurs, aucun UA, MDL-ERROR-IND cause 1 (T200/N200) et liberation – alors que l’IMMEDIATE ASSIGNMENT avait ete acceptee (request 07 matches (fn=2,13,26)).
Deux criteres ajoutes, tous deux necessaires pour liberer :
- Un vrai canal commun. 44.004 8.3 : 0x80 BCCH, 0x88 RACH, 0x90 PCH/AGCH, donc
(chan_nr & 0xE0) == 0x80. Ce qui declenchait la liberation portaitchan_nr = 0x00, qui n’est pas un canal. - Un ecart de trames. Le bloc commun doit etre au moins DCCH_LIBERE_APRES_TRAMES (100) trames apres le dernier bloc du canal dedie, d’apres le numero de trame que porte l’en-tete L1CTL. Un bloc CCCH en retard, delivre juste apres la bascule, porte un numero proche et ne libere donc rien.
Rappel de l’historique de ce seul point, parce qu’il resume la difficulte : la liberation a d’abord ete lue sur d_dsp_page == 0 (tire a l’entree en mode dedie, pas a la sortie), puis sur le premier bloc commun venu (tire en boucle pendant la connexion). Le bon signal est le retour durable sur les voies communes.
8.2.1.31 a_cu porte un drapeau : il n’y avait rien a deviner [2026-09-21, nuit, fin de l’histoire]
Trois versions successives de l’anti-doublon SDCCH montant, trois echecs :
- Fenetre heuristique + republication apres 60 trames (repris de la couche 1 gr-gsm) : le meme SABM repartait sur un lien etabli, le BTS repondait « SABM frame with information not allowed in this state » et cassait le canal en pleine procedure.
- Comparaison du contenu sur 23 octets : la friture apres la charge utile bouge d’une lecture a l’autre, 32 blocs « neufs » publies pour un seul SABM.
- Verrou « un seul SABM par connexion » : plus aucun SABM des que le verrou restait arme, et il ne retombait que sur un RACH publie ou une liberation annoncee – deux evenements qui peuvent ne jamais venir. Un verrou qui coince le banc definitivement.
Le firmware annonce pourtant chaque bloc, explicitement (layer1/prim_tx_nb.c:80-101) :
uint16_t *info_ptr = dsp_api.ndb->a_cu;
info_ptr[0] = (1 << B_BLUD); /* bloc present */
info_ptr[1] = 0; info_ptr[2] = 0;
dsp_memcpy_to_api(&info_ptr[3], data, 23, 0); /* les 23 octets L2 */C’est exactement la disposition que prendre_ul() lit deja pour le TCH, et le drapeau est a usage unique. Donc : on le teste, on prend les 23 octets du mot 3, on l’efface. Un bloc pose = une publication, sans fenetre, sans comparaison, sans temporisation, sans verrou.
MONTANT_SDCCH_FENETRE=1 force l’ancienne voie, et elle prend le relais toute seule si B_BLUD ne se leve jamais alors que le firmware pose des taches montantes (cas ou la ROM consommerait le drapeau avant la scrutation) : 400 taches sans drapeau, un message, et bascule.
Lecon : chercher le signal que le firmware pose deja, avant d’inventer une heuristique pour le reconstituer.
8.2.1.32 L’horloge du banc etait celle du mur, pas celle du DSP [2026-09-22]
Le run de 10:01 campait, lisait SI1-4 et faisait sa mise a jour de localisation… pendant dix secondes. Apres, plus rien : a 10:04 l’appel partait en T3126, a 10:06 le SMS n’obtenait meme plus d’IMMEDIATE ASSIGNMENT, et le canal dedie sortait des « Dropping frame with 110 bit errors » en continu.
La mesure qui tranche, deux compteurs lus au meme instant a 10:09 :
pont.py STATS fn=99674
[ts0] tick=81089 fn=80410 (offset ARM-tick fige a -679)19 000 trames, 87 secondes d’ecart, et l’ecart grandissait. Le C54x emule coute ~5,8 ms par trame contre 4,615 ms de temps reel ; bsp_ts0_service() joue la trame BTS tick + g_ts0_offset, l’offset est fixe une fois pour toutes sur la premiere SB, et rien ne rattrapait le reste. La BTS remplissait l’anneau 1,25 fois plus vite que le DSP ne le vidait : le mobile vivait une minute et demie dans le passe. Tout le reste en decoule –
T3126,T3101,T200sont des temporisations en secondes de MUR : une reponse qui met 87 s a revenir les a toutes epuisees ;- le canal dedie encore plus vite :
g_dediene commence a se remplir qu’a l’armement du canal, or le DSP lisait des trames d’AVANT cet instant. Releve dans/dev/shm/calypso_bsp_dedie:stockes=3202 joues=244 manques=150. 38 % des trames du canal partaient sans burst – un burst sur quatre absent d’un bloc, c’est exactement 110 erreurs sur 456.
Le DSP ne peut pas rattraper, il tourne deja a fond. C’est donc la BTS qui ralentit : calypso_bsp.c publie la trame que le BSP reclame (/dev/shm/calypso_horloge, 16 octets : seq, cale, fn_bts, tick) et pont/trx.py y asservit l’horloge qu’il envoie a osmo-bts-trx en IND CLOCK.
Asservir en FREQUENCE, pas par recalage. Premiere version : repousser t0 des qu’on devance le DSP de plus de 12 trames. Mesure immediate, UL bursts=11 tard=232 : Transmitter.run() jette tout burst dont la trame s’ecarte de plus de window_tol (1 trame) de l’horloge au moment de l’envoi, et une horloge qui avance par a-coups en sort a chaque fois. Plus un SABM n’arrivait a la BTS -> pas de UA -> MDL-ERROR-IND cause 1, plus aucune mise a jour. La version qui tient ne change que la VITESSE (self.dur, la duree effective d’une trame) : cadence du DSP mesuree toutes les 250 ms, correction proportionnelle de la phase sur ~400 trames, et t0 rebase a chaque changement pour que fn() reste continue.
Apres (run de 10:20, MSC) :
10:20:04 VLR: update ... TMSInew-0x46FB2C10
10:20:06 VLR: update ... TMSI-0x46FB2C10TMSInew- devenu TMSI-, donc le TMSI REALLOCATION COMPLETE est revenu et le VLR l’a confirme : le LU va au bout, sans LOCATION UPDATING REJECT, sans ERROR INDICATION cause=SABM frame with information not allowed in this state (le double SABM de 10:01 etait une retransmission T200 du mobile, pas un doublon du pont : le UA mettait plus de 700 ms a revenir). Cote pont, fn=26609 contre fn_bts=27045 : verrouille.
PONT_HORLOGE=0 revient a l’horloge murale, PONT_HORLOGE_AVANCE regle l’avance visee (12 trames), CALYPSO_BSP_HORLOGE=0 coupe la publication.
Reste ouvert : l’etablissement DESCENDANT. Le MSC tente un MT SMS, reste 10 s en MM_CONN_PENDING puis MMSMS-REL-IND – le paging ou la reponse du mobile ne passe pas. A regarder avec le filtre des pagings vides de pont/downlink.py (is_empty_paging, qui ne sert qu’au montage gr-gsm) et le groupe de paging que le firmware ecoute.
8.2.1.33 Le magasin du canal dedie commencait trop tard [2026-09-22, suite]
Le paging n’est PAS en cause : le mobile recoit bien le sien et repond (CHANNEL REQUEST: 80 (PAGING Any channel), 10:22:33). Ce qui le tue est la ligne d’apres, LOS during RACH request – la couche 3 avait deja declare la perte de couverture. Meme cause que tout le reste : le canal dedie.
Les compteurs de /dev/shm/calypso_bsp_dedie a la liberation :
tn=-1 ss=0 stockes=4311 joues=404 manques=138 libere138 trames du canal sur 542 jouees sans burst, une sur quatre. C’est exactement la signature observee cote mobile :
Dropping frame with 110 bit errors(110 sur 456 = un burst sur quatre) ;MON: f=514 lev=<=-110 snr=0 ... TS=1/0– rien du tout sur l’intervalle dedie pendant trois secondes ;Received frame for unsupported SAPI 2!etMDL-ERROR-IND cause 3, ce que LAPDm sort d’un bloc reconstitue a partir de trois bursts sur quatre.
Au meme instant, cote TS0 : 11 manques en tout. Ce n’est donc pas la BTS qui est en retard sur le DSP (l’horloge asservie tient), c’est ce magasin-ci qui ne couvre pas assez loin. g_dedie n’est alloue et rempli qu’a l’ARMEMENT du canal, or le BSP joue la trame BTS tick + g_ts0_offset, en retard sur celle qui arrive : toutes les trames du canal anterieures a l’armement sortaient vides.
Il n’y avait rien a stocker de plus. g_autres garde DEJA les sept intervalles de chaque trame, sans condition et des le premier burst (il sert a completer la trame continue) : g_dedie en est un doublon partiel. bsp_dedie_bits() retombe donc dessus quand son propre anneau n’a pas la trame, et compte ses replis. MONTANT_DEDIE_STRICT=1 retablit l’ancien comportement pour remesurer l’ecart.
A lire au prochain run, dans /dev/shm/calypso_bsp_dedie : manques doit tomber pres de zero et replis dire combien de trames le repli a rattrapees. S’il reste des manques, c’est que la BTS n’a vraiment rien emis sur ces trames-la, et il faudra le chercher cote osmo-bts-trx.
Lecon, la meme que pour a_cu : la donnee etait deja la, dans un autre magasin du meme fichier. Avant d’en remplir un nouveau, regarder qui garde deja ce qu’on cherche.
8.2.1.33.1 Correction : le compteur manques ne voulait pas dire ca [2026-09-22]
Le « une trame du canal sur quatre sans burst » ci-dessus s’appuyait sur manques=138 de /dev/shm/calypso_bsp_dedie. Ce compteur etait faux, dans les deux sens :
a_nousetait calcule parbsp_dedie_trame(fn)SANS verifier qu’un canal soit arme. Hors connexion,g_dedie_ssvaut 0, donc une trame sur huit etait declaree « du canal »,bsp_dedie_bits()rendait NULL sur sa gardeg_dedie_tn <= 0, etmanquesmontait – pendant tout le campement, ou jouer TS0 est justement la bonne chose ;manques(et le nouveaureplis) n’etaient pas remis a zero a l’armement, contrairement astockesetjoues: le fichier melangeait toutes les sessions depuis le demarrage.
Ce qui donnait des lectures impossibles, joues=72 manques=162 – plus de trames manquees que jouees sur un canal ouvert quelques secondes. C’est aussi pourquoi le repli sur g_autres affichait replis=0 : il est place APRES la garde g_dedie_tn <= 0, donc jamais atteint dans le cas qui gonflait le compteur.
Corrige : a_nous exige g_dedie_tn > 0, et les quatre compteurs repartent de zero a chaque armement. Le repli sur g_autres reste : il couvre le vrai trou, les trames du canal anterieures a l’armement. La mesure est donc A REFAIRE avant de conclure quoi que ce soit sur le canal dedie.
Lecon : un compteur qu’on n’a pas verifie n’est pas une mesure. Celui-ci a servi de preuve a un diagnostic chiffre, et le chiffre etait du bruit.
8.2.1.33.2 start-direct –dsp : appeler l’amorce qui marche, pas la reecrire
Rapport du banc : « ca marche avec run_real.sh et pas avec start-direct ». Les environnements des trois processus, releves dans /proc/<pid>/environ, sont pourtant identiques a deux variables pres, toutes deux sans effet (CALYPSO_BSP_DIRECT_FEED n’est plus dans le binaire – strings ne donne que CALYPSO_BSP_DIRECT_BRINT0 – et PONT_NB_DEBUG n’est qu’une trace). La difference etait donc dans l’AMORCE – et plus precisement dans ce qui n’etait PAS monte : le coeur reseau, la BTS, le side-car et tmux sont des run_modules du fork, et --dsp avait remplace le run.sh du fork par celui de c54x_exe, qui ne les connait pas. Deuxieme essai, delegation a run_real.sh --secondes 0 : meme trou, plus un « ECHEC : aucun SI lu » imprime apres zero seconde d’observation.
Version qui tient : --dsp ne change ni de fork ni de profil (l’hybride reste le defaut). Le plan du fork se joue en entier, avec --skip qemu,pty,osmocon,l2 – les quatre modules de la chaine Calypso – et --no-attach ; le banc DSP prend le relais juste apres avec ses cinq etapes. MOD_REQUIRED[bts]=0 et sa barriere porte sur la VTY, pas sur le transceiver : osmo-bts-trx peut donc demarrer avant pont.py, comme dans run_real.sh.
Deux details d’usage corriges au passage : --stop arrete le banc DSP meme sans --dsp sur la ligne de commande (sinon cinq processus survivaient en tenant 5700-5702, et la pile paraissait arretee), et les aides phonesim/RIL sont disownees – setsid detache la session mais pas le job, et bash annoncait leur mort par un « line NNNN:
8.2.1.33.3 Deux scripts, deux sens pour MODE [2026-09-22]
[ .. ] Arret de la pile via run.sh[run] ECHEC : MODE=faketrx-qemu inconnu (dsp|grgsm)start-direct.sh exporte son propre MODE (le profil : faketrx-qemu, ligne export CALYPSO_PROFILE MODE), et c54x_exe/run.sh lit la MEME variable pour choisir dsp|grgsm. Le banc heritait donc du profil et sortait avant d’avoir rien arrete – silencieusement, l’appelant ignorant son code de retour. Verifie des deux cotes :
$ MODE=faketrx-qemu bash run.sh --status
[run] ECHEC : MODE=faketrx-qemu inconnu (dsp|grgsm)
$ MODE=faketrx-qemu bash -c 'MODE=dsp bash run.sh --status'
dsp pid 147597 /tmp/c54x-pont/dsp.logCe que ca laissait derriere, releve juste apres un --stop : dsp encore vivant, qemu/osmocon/mobile/pont arretes – le teardown du fork connait ces quatre-la (ils sont dans ses patterns) mais pas c54x_exe, qui restait seul a tenir /tmp/calypso_dsp.sock et /dev/shm/calypso_api_ram.
On ne renomme pas le MODE du banc (run_real.sh et les habitudes s’en servent) : start-direct.sh passe desormais par un banc_dsp() qui pose MODE=dsp a chaque appel.
8.2.1.33.4 Ou en est le canal dedie [2026-09-22, 11:08]
Etabli, compteurs corriges a l’appui :
- les bursts sont tous la.
/dev/shm/calypso_bsp_dedie:stockes=4288 joues=416 manques=0 replis=5. Le repli surg_autresne rattrape que 5 trames (le retard d’armement) : la theorie du « un burst sur quatre manquant » est morte, c’etait le compteur qui mentait ; - TS0 n’est pas affame : 11 a 12
[ts0] pas de burst BTSpar run, tous au demarrage. L’horloge asservie tient ; - la signature a change : plus de
unsupported SAPI 2, plus deMDL-ERROR cause 3. Reste 89 blocs a exactement 96 erreurs sur 456, la meme valeur a chaque fois. Constant = corruption systematique, pas un trou. Pour comparaison, un bloc BCCH du meme run est a ber 46-50 et passe.
Cote reseau, la consequence se lit maintenant en une ligne : le VLR alloue le TMSI (TMSInew-0x1BCA53DE), donc le LOCATION UPDATING ACCEPT est parti, et cinq secondes plus tard MSC_A_ST_RELEASING: LOCATION UPDATING REJECT – le TMSI REALLOCATION COMPLETE n’est jamais revenu. Le side-car MS#2, lui, boucle son LU (TMSInew- puis TMSI-) : le coeur reseau est hors de cause.
Question ouverte : pourquoi 96, toujours 96 ? La geometrie de fenetre est la seule difference plausible entre un bloc SDCCH et un bloc BCCH dans ce chemin de livraison, et elle n’etait pas mesurable – la trace [ts0] est plafonnee a 20 lignes puis une sur 5000, donc on n’avait que le demarrage. Elle trace desormais TOUTE trame du canal dedie (300 au plus, sans CALYPSO_BSP_TS0_DEBUG) et dit si son burst vient bien de cet intervalle :
[ts0] tick=... fn=... p51=0 NB fenetre=151 marge=3 rif_avant=0 <- canal dedieA comparer avec un bloc BCCH (p51 = 2-5) du meme run. Avec PONT_NB_DEBUG=1 en plus, [nb] donne le TOA et l’en-tete a_cd (mot de Fire, erreurs) par burst : si le TOA des bursts dedies differe de celui des bursts BCCH, c’est le calage de la fenetre, et les 96 erreurs s’expliquent.
8.2.1.33.5 « Trop tot » etait compte comme « trop tard » [2026-09-22, 11:12]
UL bursts=116 tard=1813 % des bursts montants JETES. Un bloc en demande quatre : ~40 % des blocs montants n’arrivaient pas entiers a la BTS. C’est exactement ce qu’on lisait en bout de chaine – TMSI REALLOCATION COMPLETE absent (LU REJECT a 11:06), CP-ACK absent (MT SMS a 11:10, WAIT_CP_ACK puis abandon), SABM retransmis par T200.
Transmitter.schedule() calcule l’instant d’emission post a la MISE EN FILE, d’apres la cadence de l’horloge a ce moment-la. Depuis qu’elle suit le DSP, cette horloge n’avance plus au rythme du mur : quand le DSP marque le pas, elle aussi, et le reveil tombe AVANT que la trame visee ne soit arrivee. run() comparait alors abs(off) > window_tol et jetait – sans distinguer le burst en avance (qu’il suffit d’attendre) du burst en retard (perdu).
Corrige : en avance, on remet en file avec un post recalcule sur l’horloge courante, jusqu’a PONT_WINDOW_ESSAIS fois (12) ; seul off < -window_tol compte comme un retard. C’est une consequence directe de l’asservissement ([[horloge-banc-suit-dsp]]) : une file d’emission datee en temps mur ne peut pas servir une horloge qui ne l’est plus.
8.2.1.33.6 Deux pistes ecartees, une mesuree
- geometrie de fenetre : ecartee. La trace dit la meme chose des deux cotes,
fenetre=151 marge=3pour une trame du canal dedie comme pour un bloc BCCH. - bursts manquants : ecartee,
manques=0. - chiffrement :
ENCRYPTION="a5 0"arrive enfin jusqu’a/etc/osmocom/osmo-bsc.cfg(encryption a5 0) depuis que l’environnement gagne sur globals.conf, et c’est a partir de la que le LU passe en entier (TMSInew-0xA7CFD9FFpuisTMSI-0xA7CFD9FF, 11:09:45).
Reste, par ordre :
Received frame for unsupported SAPI 5!+MDL-ERROR-IND cause 3en rafale pendant la connexion dediee, avecMON: lev=<=-110 snr=0 ... TS=1/0. Des blocs qui passent le code de Fire mais dont l’adresse LAPDm est fausse : ce ne sont pas des blocs abimes, ce sont d’AUTRES blocs. Piste : un bloc SACCH rendu sur la liaison SDCCH. L’octet 0 d’un en-tete L1 SACCH est le niveau de puissance ordonne, et(0x08 >> 2) & 7 = 2comme(0x15 >> 2) & 7 = 5: les deux SAPI vus, 2 et 5, sont exactement ce que donne un en-tete L1 lu comme une adresse. A verifier sur le tap GSMTAP (udp/4729) en comparant ce que la BTS emet en TS1/p51=0-3 et en TS1/p51=32-35.FBSB RESP: result=255en rafale sur la cellule SERVANTE (281 demandes sur l’ARFCN 514 contre 5 sur 614, 228 echecs) ->MM_EVENT_LOST_COVERAGE-> « no cell available ». Toute transaction lancee dans cette fenetre meurt sur-le-champ : c’est ce qui tue l’appel de 11:12:17 (MMCC_EST_REQrecu en « no cell available »,MMCC_REL_INDdans la seconde) et ce qui produisait lesLOS during RACH request.
8.2.1.33.7 Le correctif montant, mesure sur le banc [2026-09-22, 11:16]
Avant / apres, meme banc, meme configuration :
UL bursts=116 tard=18 (13,4 % jetes)
UL bursts=185 tard=4 ( 2,1 % jetes)Six fois moins, et on retrouve le niveau d’avant l’asservissement de l’horloge (310/4, soit 1,3 %). Le reste tient a la gigue residuelle du DSP : un burst vraiment en retard reste perdu, c’est le comportement voulu.
Ce n’etait pas toute l’histoire pour autant : le LU de 11:15:46 echoue encore (TMSInew-0x2BC8C863 puis REJECT), et le canal dedie sort toujours ses blocs a 96 erreurs (87 dans ce run). Le montant n’etait qu’un des deux chemins.
8.2.1.33.8 FBSB mid-campement : le DSP ne detecte rien [2026-09-22, 11:16]
Sonde en lecture seule sur /dev/shm/calypso_api_ram (cf. [[sonde-api-ram-vivante]]), 3850 echantillons a 3 ms pendant que le mobile campait et que la couche 3 enchainait ses FBSB RESP: result=255 :
fb_det fb_mode TOA PM angle SNR vu
0 0 0 5424 -1 2539 3850d_fb_det reste a 0 sur TOUTE la fenetre : le DSP ne pose aucun resultat de detection FB. Ce n’est donc pas la porte FB0->FB1 de prim_fbsb.c qui rejette, c’est la tache FB qui ne rend rien du tout – alors que le meme DSP demodule sans peine les blocs BCCH de la meme cellule (SI1-4 en continu, ber 46-50). Sur ce run : 19 L1CTL_FBSB_REQ sur l’ARFCN 514, 16 result=255.
La consequence se lit trois lignes plus loin dans le journal du mobile : MM_EVENT_LOST_COVERAGE -> « no cell available », et toute transaction lancee dans cette fenetre meurt sur-le-champ (MMCC_EST_REQ recu en « no cell available », MMCC_REL_IND dans la seconde, appel de 11:12:17).
Piste a suivre : au demarrage la meme tache FB reussit. La difference est que g_ts0_offset vaut alors INT64_MIN et que bsp_ts0_service() joue les bursts DANS L’ORDRE D’ARRIVEE, un par tick – un flux continu. Une fois cale, il joue tick + offset et saute les ticks dont la trame manque. A verifier : ce que voit la tache FB quand elle est relancee en cours de campement, et si un retour au mode « ordre d’arrivee » pendant une recherche FB la debloque.
8.2.1.33.9 Ce n’est pas un bloc abime, c’est le meme bloc [2026-09-22, 11:18]
Le LU passe desormais en entier – LOCATION UPDATING ACCEPT (lai=001-01-1), got TMSI 0x0e67ce01, TMSI REALLOCATION COMPLETE emis. C’est APRES, en attente de la liberation, que le canal part en vrille, et la signature est enfin lisible :
N(S) sequence error: N(S)=1, V(R)=2 (x25, TOUJOURS la meme paire)
Received frame for unsupported SAPI 6! (2 le 11:11, 5 le 11:15, 6 ici)Deux faits qui tranchent :
N(S)=1repete alors que le mobile attendN(S)=2: LAPDm recoit encore et encore LE MEME I-frame. Un bloc abime ne repasse pas le code de Fire vingt fois de suite avec le meme N(S) ;- le SAPI illegal CHANGE d’un run a l’autre (2, 5, 6) mais reste CONSTANT dans un run. C’est le contenu fige d’un tampon, pas du bruit.
Ce qui disqualifie l’hypothese « bloc SACCH rendu sur la liaison SDCCH » avancee plus haut, et renvoie a deux choses deja ecrites ici : [[tpu-dsp-frame-irq-oneshot]] (la ROM re-dispatche une page perimee quand elle recoit une IRQ trame qu’elle n’attendait pas) et [[sb-delirant-page-zero]] (l’ARM relit une page R qui ne porte pas de nouveau resultat). Les deux ont ete diagnostiquees en mode FB/SB ; ici c’est le mode DEDIE.
Cote BSP le magasin est hors de cause : g_ts0, g_dedie et g_autres n’apparient que sur fn EXACT, aucun ne peut rejouer une trame. Et manques=0.
Prochaine mesure : PONT_NB_DEBUG=1 imprime l’en-tete a_cd (mot de Fire, erreurs) et les premiers octets decodes a chaque burst 3. Si le meme a_cd ressort trame apres trame pendant la connexion dediee, la boucle est cote ROM/page et non cote radio – et les 96 erreurs ne sont qu’un effet de bord du bloc fige.
8.2.1.33.10 Le chiffrement : personne ne dechiffrait le descendant [2026-09-22, 11:21]
Run avec ENCRYPTION="a5 1". La transaction va plus loin que jamais – SABM/UA, IDENTITY REQUEST/RESPONSE, puis AUTHENTICATION REQUEST/RESPONSE, tout en clair – et la tempete commence a la ligne EXACTE ou le chiffrement s’arme :
11:21:02 CIPHERING MODE COMMAND (sc=1, algo=A5/1 cr=1)
11:21:02 CIPHERING MODE COMPLETE (cr 1)
11:21:02 Dropping frame with 96 bit errors <- et sans interruption ensuiteEn « a5 0 » la meme transaction va au bout (LU complet du 11:18). La correlation est nette dans les deux sens.
Deux faits qui l’expliquent :
- il n’y a aucun A5 dans le modele Calypso.
d_a5moden’apparait que danshw/arm/calypso/l1-grgsm/calypso_l1_grgsm.c; rien dansl1-dsp/. En montage DSP, le mobile n’a donc rien pour dechiffrer ; - le pont est asymetrique.
Trx.send_ul()CHIFFRE le montant (self.cipher.apply(burst, fn, True)) : il tient la place de la voie d’emission du DSP. Maisrun_data()relayait le descendant BRUT vers le DSP. Lecipher.apply(..., False)deDownlink._decode()ne sert qu’au decodage L2 du pont lui-meme et ne touche pas ce que recoit le DSP.
Corrige : run_data() dechiffre le burst avant de l’envoyer au DSP, A5 etant symetrique. Seulement sur l’intervalle dedie (_tn_dedie(), lu via Dedicated deja mis en cache) : la BCCH et la CCCH ne sont jamais chiffrees, les toucher detruirait le campement. La condition est cipher.dl_active, que Downlink._decode() leve deja quand un bloc ne decode qu’une fois dechiffre – le meme signal que la BTS (osmo-bts l1sap.c check_for_first_ciphrd).
Effet de bord utile : stats.a5_dl cesse d’etre a zero, ce qui rend le dechiffrement visible dans la ligne STATS.
A noter pour la suite : dans ce meme run le MSC a lache a 11:21:00, soit DEUX SECONDES AVANT que le mobile ne recoive la commande de chiffrement. La fenetre morte de 11:20:58-11:21:01 (MON lev=<=-110 snr=0, MDL-ERROR cause 12) reste donc un defaut a part entiere, independant du chiffrement.
8.2.1.33.11 ./start-direct.sh sans –dsp : QEMU ne demarrait pas [2026-09-22, 11:23]
[FAIL] Calypso emulator (QEMU) (started but never ready:
socket du moniteur QEMU : toujours pas pret apres 30s)Le message designe le moniteur, mais rien n’avait ete lance. Les deux enveloppes /usr/local/bin/qosmo-dsp et /usr/local/bin/qosmo-grgsm (hors depot) trient ainsi :
case "${1:-}" in -k|-kernel|-r|--rundir|-M|-s|-p|--bin|--gdb|--bind|-o)
exec /usr/local/bin/qosmo-grgsm-launch "$@";; esac
exec env MODE=grgsm PONT=1 /opt/GSM/c54x_exe/run.sh "$@"--qemu, --cpu et --monitor manquent a la liste, et le test ne porte que sur le PREMIER argument. Or run_modules/40-qemu.sh appelle
qosmo-grgsm --qemu <bin> -k <elf> --bin <bin> --cpu arm946 \
--gdb N --rundir <dir> --monitor <dir>/qemu-monitor.socksoit --qemu en tete. Le motif ne matche pas, l’appel part sur c54x_exe/run.sh, qui sort immediatement :
$ qosmo-grgsm --qemu ... -k ... --monitor ...
[run] ECHEC : option inconnue : --qemu (voir --help)Le vrai lanceur C, lui, comprend les six (strings : --bin --cpu --gdb --monitor --qemu --rundir). Corrige dans les deux enveloppes : balayage de TOUS les arguments, et les trois options ajoutees. Sauvegardes dans /tmp/qosmo-{grgsm,dsp}.bak. Elles ne sont dans aucun depot – une reinstallation les ecrasera ; c’est note dans LAUNCH.md.
Defaut PRE-EXISTANT, sans rapport avec le montage DSP : --dsp ne passe pas par ce module (il est dans --skip qemu,pty,osmocon,l2), ce qui explique qu’on ne l’ait vu qu’en lancant start-direct SANS --dsp.
8.2.1.33.12 Le Kc n’etait publie par personne [2026-09-22, 11:29]
Le dechiffrement ajoute dans pont/trx.py n’a rien change au run de 11:26, et la raison est en amont :
$ ls /dev/shm/calypso_kc_l1
ls: cannot access '/dev/shm/calypso_kc_l1': No such file or directory
$ grep -rn calypso_kc_l1 qosmo/hw/arm/calypso/
l1-grgsm/calypso_l1_grgsm.c:36:#define SHM_KC "/dev/shm/calypso_kc_l1"Un seul ecrivain, et c’est la couche 1 gr-gsm – celle que calypso_l1_disable("DSP externe") desactive justement en montage DSP. Sans ce fichier, Cipher.current() rend None et cipher.apply() rend le burst INCHANGE dans les deux sens : ni dechiffrement de la descente, ni chiffrement de la montee. Le compteur le disait depuis le debut, on ne l’avait pas lu : A5 dl=0 ul=0 a chaque ligne STATS.
C’est exactement la cause qui a fait naitre ce fichier (montant.c) pour le RACH et le SDCCH : sous DSP_EXTERN, tout ce que publiait la couche 1 gr-gsm disparait, et il faut le republier par scrutation. Le Kc avait ete oublie.
montant.c publie donc maintenant /dev/shm/calypso_kc_l1 depuis d_a5mode et a_kc[4] du NDB, disposition reprise TELLE QUELLE de publish_kc() (seq(4) algo(1) longueur(1) Kc[8] 0xFF, mots de a_kc en gros-boutiste et a l’envers) pour que pont/cipher.py la lise sans changement. Meme grace de 5 scrutations avant d’annoncer un retour en clair, pour la meme raison : le firmware efface d_a5mode a chaque DM_REL_REQ, y compris quand le Kc revient juste apres, alors que la BTS ne cesse jamais de chiffrer. MONTANT_KC=0 coupe la publication.
A verifier au prochain run en A5/1 : [montant] chiffrement A5/1 : Kc publie dans dsp.log, puis A5 dl=... ul=... non nuls dans la ligne STATS du pont, et la transaction qui passe le CIPHERING MODE COMPLETE sans tomber a 96 erreurs.
8.2.1.33.13 CORRECTION : le DSP detecte bien la FB [2026-09-22, 11:30]
L’entree « FBSB mid-campement : le DSP ne detecte rien » ci-dessus est FAUSSE. Elle s’appuyait sur un echantillonnage de /dev/shm/calypso_api_ram a 3 ms pendant 12 s qui ne voyait jamais d_fb_det=1. Les jalons du meme run disent le contraire :
total jalons d_fb_det=1 : 196
[jalon] fn=17980 SB PLAUSIBLE page=1 BSIC=7 a_sch=8000 0707 061c 0191
SB decodees (osmocon) : 25 pour 147 L1CTL_FBSB_REQd_fb_det est TRANSITOIRE – leve puis efface dans la trame. L’echantillonner a 3 ms sur des trames de 5,8 ms le rate la plupart du temps, et ne pas le voir ne prouve rien. La sonde de [[sonde-api-ram-vivante]] vaut pour les valeurs qui DURENT (TOA, PM, SNR, d_fb_mode) ; pour un drapeau fugace, il faut les jalons de dsp.log, qui sont poses par le code au moment ou il le lit.
Ce que disent les vrais chiffres : 25 succes pour 147 demandes, soit 17 % – le meme taux que les 58/281 releves a 10:09. Le DSP detecte la FB et decode la SB ; c’est la PROCEDURE FBSB qui expire avant que la SB n’arrive. Le banc en pas-a-pas est plus lent que le budget de tentatives du firmware. C’est la qu’il faut chercher, pas dans la detection.
8.2.1.33.14 Le Kc est publie ; le blocage est maintenant AVANT le chiffrement [2026-09-22, 11:33]
Le side-band manquant est comble : /dev/shm/calypso_kc_l1 existe (32 octets, ecrit une seconde apres le demarrage de c54x_exe) et [montant] retour en clair (seq=1) est trace. Mais d_a5mode n’est jamais devenu non nul dans ce run : le CIPHERING MODE COMMAND n’est jamais arrive. La voie A5 n’est donc toujours pas exercee – ni le publieur de Kc de montant.c, ni le dechiffrement de pont/trx.py. Ne pas les compter comme valides.
Ce qui bloque avant, et c’est net dans le journal du mobile :
11:32:50 AUTHENTICATION RESPONSE <- la transaction va jusque-la
11:32:50 Unnumbered frame not allowed <- puis 4 s de
11:32:50 MDL-ERROR-IND cause 12 « fenetre morte »
11:32:52 MON: lev=<=-110 snr=0 ... TS=1/0
11:32:54 Dropping frame with 96 bit errors <- et la tempete s'installe
11:33:09 T3210 expireLe MSC, lui, avait lache a 11:32:53.
Et les compteurs du meme run disent que ce n’est PAS un probleme de livraison :
tn=-1 ss=0 stockes=4392 joues=428 manques=0 replis=6
trames du canal tracees : 300 dont « BURST MANQUANT » : 0
UL bursts=218 tard=3 (1,4 %)Chaque trame du canal a recu son burst, aucune n’a ete jouee vide, et le montant ne perd plus rien. Pendant que le mobile mesure lev=<=-110 snr=0 sur son intervalle dedie, le BSP lui a bel et bien remis un burst pour chacune de ses trames.
La perte est donc APRES la remise, dans la demodulation du burst dedie par le DSP – ni dans le pont, ni dans le magasin, ni dans l’horloge. Les trois premiers sont maintenant mesures et hors de cause. C’est la que doit porter la suite : PONT_NB_DEBUG=1 donne le TOA, le PM, le SNR et l’en-tete a_cd par burst ; comparer ceux d’un burst du canal dedie a ceux d’un burst BCCH de la meme seconde dira si le probleme est un calage (TOA) ou une amplitude (PM).
Et l’Unnumbered frame not allowed arrive sur un AUTRE datalink que les I-frames (dl=0x...b9e8 contre 0x...bda8 ailleurs) : c’est la liaison SAPI 3, restee IDLE. Une trame U qui atterrit sur SAPI 3 pendant une transaction SAPI 0, c’est encore une adresse LAPDm lue de travers – meme famille que les SAPI 2/5/6 deja vus.
8.2.1.33.15 A5/1 : la chaine fonctionne [2026-09-22, 11:49]
Premier run qui franchit le chiffrement. Les deux correctifs de 11:22 et 11:29 sont valides par la mesure :
[montant] chiffrement A5/1 : Kc publie vers /dev/shm/calypso_kc_l1 (seq=2)
[pont] chiffrement descendant confirme par la BTS (fn=1836)
[pont] A5 dl=904 ul=68
11:49:02 LOCATION UPDATING ACCEPT (lai=001-01-1)
11:49:02 got TMSI 0x9e61e668
11:49:02 TMSI REALLOCATION COMPLETELe mobile lit un LOCATION UPDATING ACCEPT chiffre : impossible une heure plus tot, ou la tempete de 96 erreurs commencait a la ligne du CIPHERING MODE COMPLETE. 904 bursts descendants dechiffres par le pont, et le drapeau dl_active leve par la BTS comme prevu.
Le blocage a donc encore avance d’un cran – il est maintenant sur le DERNIER bloc MONTANT. Cote MSC :
11:49:01 TMSInew-0x9E61E668
11:49:03 LOCATION UPDATING REJECT (reste « TMSInew », jamais « TMSI- »)Le mobile a emis son TMSI REALLOCATION COMPLETE, le MSC ne l’a pas recu.
Hypothese a verifier, encore une asymetrie de chiffrement : le pont chiffre le montant des que cipher.current() rend une cle, donc des que montant.c a publie le Kc. Or publier_kc() scrute toutes les 22 trames (~100 ms) et peut publier AVANT que le mobile n’ait bascule lui-meme – il ne chiffre qu’apres avoir emis son CIPHERING MODE COMPLETE. Dans cette fenetre le pont chiffrerait un bloc que le mobile a emis en clair, et la BTS ne le lirait pas. Ca corromprait exactement les blocs autour de la bascule.
Mesure a faire : comparer l’horodatage du seq=2 (publication du Kc) a celui du CIPHERING MODE COMPLETE. Si le premier precede le second, la fenetre existe. Le remede serait le symetrique de ce que fait deja la descente : ne chiffrer le montant qu’apres une preuve, pas des que la cle est connue.
8.2.1.33.16 Le Kc perime chiffrait la connexion suivante [2026-09-22, 11:57]
Bug introduit par le publieur de Kc, trouve et corrige dans la foulee. La grace KC_GRACE_CLAIR (5 scrutations avant d’annoncer un retour en clair), recopiee de publish_kc(), sert au cas INTRA-connexion : le firmware efface d_a5mode a chaque DM_REL_REQ, y compris pendant un Assignment Command ou le Kc revient juste apres. Mais entre DEUX connexions elle est nuisible : l’enregistrement algo=1 restait lisible cinq scrutations de plus, et pont.py – qui relache pourtant sa cle a chaque IMMEDIATE ASSIGNMENT (downlink.py, cipher.release) – la relisait aussitot dans le fichier et la restaurait.
Il chiffrait alors le montant de la connexion SUIVANTE des son premier bloc, pendant que le mobile emettait encore en clair. Mesure du run de 11:53 :
A5 dl=0 ul=200 <- tout le montant chiffre, rien de dechiffre
fn=2525 01 52 19 05 14 ... AUTHENTICATION RESPONSE
fn=2729 01 52 19 05 14 ... LE MEME, faute d'acquittementCorrige : montant_canal_libere() (deja appele sur PONT_DCCH genre 0xFF) leve un drapeau qui fait publier le retour en clair IMMEDIATEMENT, sans la grace. Au passage, d_a5mode est desormais lu a CHAQUE trame (deux acces memoire) et non plus une sur 22 : un changement de mode ne peut plus attendre 128 ms, ce qui laissait partir en clair le premier bloc chiffre du montant.
Effet mesure au run de 11:58, retour au bon profil :
A5 dl=905 ul=68 chiffrement descendant confirme par la BTS (fn=1836)
11:58:13 LOCATION UPDATING ACCEPT + got TMSI 0x9846D4158.2.1.33.17 Ce qui reste : l’acquittement LAPDm descendant
fn=2430 01 64 35 06 32 ... CIPHERING MODE COMPLETE
fn=2583 01 74 35 06 32 ... LE MEME, retransmis (bit P)
(aucun TMSI REALLOCATION COMPLETE n'est jamais publie)Le reseau a pourtant RECU le CIPHERING MODE COMPLETE – sans lui le MSC n’aurait pas envoye le LOCATION UPDATING ACCEPT. Ce qui manque est donc l’acquittement LAPDm DESCENDANT : le mobile ne le voit pas, reste en retransmission, et sa fenetre de 1 l’empeche d’emettre le bloc suivant.
Le montant est hors de cause (tard=0), le chiffrement aussi (correct dans les deux sens, mesure). Il reste la perte residuelle de blocs DESCENDANTS sur le canal dedie – la famille des « 96 erreurs », deja isolee comme etant apres la remise des bursts par le pont (manques=0, BURST MANQUANT=0) et donc dans la demodulation du burst dedie par le DSP.
CORRECTION : l’hypothese « le pont chiffre le montant trop TOT parce que le Kc est publie en avance » ecrite plus haut est fausse dans ce sens-la. publier_kc scrutait en RETARD (22 trames), pas en avance. Le vrai defaut etait le Kc PERIME d’une connexion precedente, ci-dessus.
8.2.1.33.18 Le burst dedie arrive au DSP a moitie puissance [2026-09-22, 12:12]
Mesure par la sonde [nb] (plafond porte de 400 a 20000 : les 400 etaient consommees par le campement avant toute connexion), bornee a la fenetre ou le canal etait REELLEMENT arme (ticks 2047..3529 du run de 12:04) :
bursts DEDIES n=176 TOA moy 1,9 PM 2310 SNR 232
bursts BCCH / CCCH n=2800 TOA moy 4,2 PM ~4500 SNR ~500Le burst du canal dedie arrive deux qbits trop tot dans la fenetre et a la moitie de la puissance, avec un SNR deux fois moindre. Ce n’est pas du bruit : 176 bursts, ecart systematique.
⚠️ Piege de lecture : le p51 imprime par [nb] est celui du TICK de l’ARM, pas celui de la trame BTS. Les deux different de g_ts0_offset (-670 sur ce run). Un premier regroupement fait sans cette conversion donnait des moyennes mixtes et ne montrait rien.
Trois causes possibles, toutes ECARTEES par la mesure :
- la geometrie de fenetre : identique,
fenetre=151 marge=3sur les 75 trames dediees jouees, comme pour un bloc BCCH ; - le dechiffrement A5 que j’ai ajoute :
gsm.a5_xor()n’XORe que les bits 3-59 et 88-144, les deux moities de donnees. La sequence d’apprentissage reste intacte, le correlateur du DSP n’est pas touche ; - la qualite des bursts eux-memes : le pont decode les MEMES bursts avec zero echec –
TS1/0:28/0 TS1/32:10/0,crc=0. Les bits sont bons.
Donc : le pont livre des bursts CORRECTS, TOUS (manques=0, BURST MANQUANT=0), dans la BONNE fenetre – et le DSP les demodule a moitie puissance et deux qbits trop tot. Le defaut est dans l’injection/demodulation cote DSP de l’intervalle dedie substitue, pas dans le pont.
C’est la cause directe des « 96 bit errors », de la perte de ~3 blocs descendants sur 4 (chaque aller-retour LAPDm coute 4 multitrames au lieu d’une, cf. la cadence du montant plus haut) et donc du LOCATION UPDATING REJECT : le MSC lache avant que le TMSI REALLOCATION COMPLETE ne puisse partir.
Ou chercher : bsp_ts0_livrer() module le burst dedie exactement comme un burst TS0 (gmsk_moduler(bits,148,30000,0,0.5,iq+2*marge) puis gmsk_elargir(..., CALYPSO_BSP_NB_SYM=0.3)), et pourtant le resultat differe. La difference doit etre en aval : ce que le RIF/DMA fait de ces echantillons quand la fenetre est armee sur TS1 et non sur TS0. CALYPSO_BSP_TS0_DEBUG=1 donne rif_avant= par trame ; le comparer entre trames dediees et trames TS0 est la prochaine mesure.
8.2.1.33.19 Deux pistes de plus ecartees, et une a creuser [2026-09-22, 12:20]
rif_avant: identique. 432 trames dediees af=151 m=3 rif=0, et 1297 trames NON dediees exactement pareil. Le niveau du RIF ne distingue pas les deux. Piste morte.CALYPSO_BSP_VERIF=1(compare la DARAM au burst remis au BSP, apres que le DSP a tourne) : 2849 « partiel » contre 8 « VALIDE ». Reparti par type de trame, avec la conversion tick -> trame BTS (offset -690) :TS0 n=3360 echantillons identiques : 14 % en moyenne, 2775 a 0 % DEDIE n=640 echantillons identiques : 1 % en moyenne, 626 a 0 %L’ecart va dans le bon sens mais la sonde est dominee par un effet attendu : elle compare APRES
jouer_trame, donc apres que le DSP a consomme et reecrit le tampon. Un « 0 % » ne prouve pas que la livraison a rate. A reprendre en comparant AVANT que le DSP ne tourne, ou en marquant le tampon.
Etat du diagnostic, tout ce qui est mesure :
le pont livre des bursts corrects (TS1/0:28/0, crc=0)
tous (manques=0, BURST MANQUANT=0)
dans la bonne fenetre (f=151 m=3, identique a TS0)
au bon niveau RIF (rif_avant=0, identique a TS0)
le DSP en tire TOA 1,9 PM 2310 SNR 232
alors que sur TS0 TOA 4,2 PM ~4500 SNR ~500Tout ce qui precede la demodulation est desormais mesure et identique entre les deux cas. Le defaut est dans ce que le DSP fait de ces echantillons quand la fenetre est armee sur l’intervalle dedie.
8.2.1.33.20 CALYPSO_BSP_PAGE_FOLLOW=1 : essai negatif [2026-09-22, 12:23]
L’experience laissee ouverte le 2026-09-19 a maintenant une reponse. Sa premisse est confirmee par une mesure independante d’aujourd’hui :
w_page=0 -> 0x0cce 1811x, 0x0e4e 41x
w_page=1 -> 0x0cce 2115x, 0x0e4e 33x98 % des bursts atterrissent a la MEME adresse quelle que soit la page que la tache DSP va lire, alors que d_dsp_page alterne bien (0x0002/0x0003). Le taux de correspondance DARAM suit : 12 % a 0x0cce contre 39-43 % a 0x0e4e.
Mais deposer a base + w_page*stride (PAGE_FOLLOW=1, pas 0x180) n’ameliore pas : la transaction meurt juste apres l’IDENTITY RESPONSE, deux LOCATION UPDATING REJECT sans meme un TMSInew cote VLR – alors que la reference atteignait le CIPHERING MODE COMPLETE et obtenait un TMSI. Un seul run, et la variance de ce banc est grande, mais le sens est clair : ce n’est pas la bonne correction. Defaut remis a 0.
Ce que ca apprend quand meme : l’adresse n’est pas le probleme, ou pas seule. La ROM programme son AAD, le BSP la suit (AAD_FOLLOW=1), et forcer une autre adresse casse. Le ping-pong manquant se joue ailleurs – peut-etre que la ROM ne reprogramme l’AAD qu’une fois sur N parce que son ISR de fin de DMA ne s’execute pas a chaque trame (cf. DSP Error Status 24 = DMA_PROG|DMA_TASK, permanent depuis le boot, files de requetes qui debordent).
C’est le fil a tirer : pourquoi la ROM ne reprogramme-t-elle pas son AAD a chaque trame, et pourquoi ses files DMA debordent-elles en permanence.
8.2.1.33.21 La ROM n’acquitte pas ses fins de DMA [2026-09-22, 12:47]
Chaine complete, chaque maillon mesure aujourd’hui :
la ROM ne lit jamais DMA2_CTRL avec IRQ_STATE
(0 trace « effaces a la lecture » sur un run de 2334 erreurs 24 ;
20 sur le run precedent, contre des milliers de transferts)
-> IRQ_STATE reste pose, ses files circulaires de 14 entrees debordent
(`DSP Error Status: 24` = DMA_PROG|DMA_TASK, permanent depuis le boot)
-> l'AAD n'est pas reprogrammee d'une trame a l'autre
(98 % des bursts a 0x0cce quelle que soit la page : w_page=0 -> 1811x,
w_page=1 -> 2115x, alors que d_dsp_page alterne bien)
-> le burst N ecrase le N-1 avant lecture
-> demodulation degradee sur l'intervalle dedie
(TOA 1,9 / PM 2310 / SNR 232 contre 4,2 / ~4500 / ~500 sur TS0)
-> ~3 blocs descendants perdus sur 4, chaque aller-retour LAPDm coute
4 multitrames au lieu d'une
-> le MSC lache avant le TMSI REALLOCATION COMPLETE : LU REJECT.C’est le premier enchainement qui relie TOUT ce qu’on observe depuis ce matin, et chaque maillon est chiffre.
L’interruption de fin de DMA est pourtant censee partir : calypso_rhea_dma.c la leve si CTRL_IRQ_MODE est pose, et la valeur observee (0x05ab) l’a bien (bit 7). Mais la trace « end-DMA -> INT10n » n’apparait PAS non plus.
⚠️ RESERVE SUR L’INSTRUMENT. Sur le dernier run, AUCUNE trace [rhea-dma] ne sort, y compris celles qui existaient avant mes modifications et qui sortaient la veille. Et le compteur que j’ai ajoute (« bilan : N transferts finis… ») n’imprime jamais alors que strings le trouve dans le binaire EN COURS et que la trace situee deux lignes plus bas, dans le meme bloc if, imprime. Cette contradiction n’est pas resolue : tant qu’elle ne l’est pas, « 0 acquittement » peut vouloir dire « la ROM n’acquitte pas » OU « la sortie de ce module est perdue ». A trancher AVANT d’en tirer un correctif – par exemple en verifiant que stderr de calypso_rhea_dma.c arrive bien dans dsp.log (un test avec un fprintf inconditionnel au premier appel suffit).
8.2.1.34 2026-09-22 16:00 — Le workflow refute deux de mes conclusions
Vingt agents relus contradictoirement. Deux de mes affirmations, que j’avais presentees comme etablies, ne tiennent pas.
1. « La ROM n’acquitte pas ses fins de DMA » : FAUX. Le code prouve le contraire sans meme lancer le banc. La trace d’acquittement n’avait pas disparu du run : elle avait disparu de la SORTIE. verbosite.c classe les lignes de stderr par mots-cles, dans l’ordre. En reformulant le message le 2026-09-22 j’en avais retire le mot qui le placait au niveau 0 ; ne restait que « DMA », donc niveau 3, donc invisible au -v par defaut. J’ai lu une absence d’instrument comme une absence de comportement.
2. « Le pont livre tout (manques=0), le defaut est dans la demodulation du DSP » : NON ETAYE, et la perte majoritaire est ailleurs. bsp_ts0_service() repart par un return des qu’il n’a pas de burst du BTS pour la trame reclamee — AVANT d’appeler bsp_ts0_livrer(). Or joues et manques ne sont touches que DANS bsp_ts0_livrer(). Une trame dediee sautee en entier n’est donc vue par aucun des deux. Mesure du workflow : 79 trames dediees sur 172 jamais livrees, les deux compteurs a 0. Mon « manques=0 » ne disait pas « rien ne se perd », il disait « je ne regarde pas la ou ca se perd ».
3. Et la cause amont, c’est ma propre horloge. La boucle d’asservissement posee ce matin (periode 0,25 s, rattrapage en 400 trames) tourne a ~0,07 Hz — SOUS la cadence a laquelle la vitesse du DSP varie. Elle ne suit plus : la phase part en cycle limite de +/- 100 trames, et a chaque demi-tour negatif le pont se retrouve derriere la trame reclamee. 12000 trames entierement sautees sur 120201 ticks, 10 %. J’avais releve « 11 a 12 par run » a 11:08 — je comptais les trames tardives, pas les trames sautees.
Enchainement reel : mon horloge saute des trames -> le burst dedie n’est pas la -> bsp_ts0_service() repart sans rien livrer -> aucun compteur ne bouge -> je conclus que le DSP demodule mal. Trois fausses pistes de la journee partaient de ce zero.
8.2.1.34.1 Correctifs poses (16:04, binaire reconstruit)
| # | Fichier | Correctif |
|---|---|---|
| 1 | pont/trx.py 41-43 |
HORLOGE_PERIODE 0,25 -> 0,05 ; HORLOGE_PHASE_N 400 -> 100. Boucle remontee a ~1,3 Hz, au-dessus de la perturbation. Ne PAS masquer ca avec PONT_HORLOGE_AVANCE. |
| 2 | pont/trx.py |
_tn_dedie() -> _burst_dedie(tn, fn). Le test portait sur l’INTERVALLE : en CCCH+SDCCH/4 le canal dedie vit sur TS0, celui qui porte aussi FCCH/SCH/BCCH/CCCH — jamais chiffrees. Des que A5 s’activait, tout TS0 partait XORe vers le DSP et le campement se defaisait. Meme tri que Downlink._signalling. TCH ouvert couvert aussi (necessaire pour un appel chiffre). |
| 3 | calypso_bsp.c |
Nouveau compteur g_dedie_perdues : les trames dediees sautees en entier. Publie dans /dev/shm/calypso_bsp_dedie. Ne plus jamais lire manques=0 sans lire perdues en meme temps. |
| 4 | montant.c 550 |
Le retour anticipe consomme g_kc_liberer. Sans ca la liberation restait armee, seq montait a chaque scrutation, et le pont rechargeait sans fin une cle inchangee. |
| 5 | calypso_rhea_dma.c |
Bilan finis/acquittes promu en WARN (niveau 1) quand il est mauvais seulement. Pas de « ERR » force sur une ligne saine. |
| 6 | calypso_rhea_dma.c 554 |
CTRL_IDLE rendu sur la sortie anticipee. Toutes les autres sorties le reposaient ; celle-la laissait le canal annoncer un transfert qui n’aurait pas lieu. |
| 7 | start-direct.sh |
OSMO_MOB_VTY_PORT passe a phonesim : il retombait sur 4247 alors qu’en --dsp le mobile lie 4347. Le modem oFono parlait a un port que personne n’ecoute — sans erreur. |
Onze constats forts du workflow n’ont pas ete verifies (plafond a 12) : un second passage les vaut.
8.2.1.35 2026-09-22 16:15 — La mecanique reelle, mesuree cette fois
Le correctif d’horloge pose a 16:04 n’a pas corrige la perte : premiere mesure apres coup, manques=2000 sur 10490 ticks, 19 % — soit pire que les 10 % que le workflow reprochait a l’ancien reglage. J’ai donc arrete de regler a l’aveugle : PONT_HORLOGE_PERIODE, _KP et _PHASE_N sont desormais lisibles dans l’environnement (valeurs par defaut inchangees), et j’ai instrumente le SIGNE de l’ecart au lieu de le supposer.
bsp_ts0_stocker() retient maintenant g_ts0_fn_max, la trame la plus recente recue du BTS. Sur un manque, la trace dit de quel cote vient l’ecart.
Resultat, sans ambiguite :
[ts0] tick=19316 : pas de burst BTS pour fn=18650 (manques=800/19316) ;
derniere trame recue fn=18635, soit +15 : le DSP COURT DEVANT le BTS
[ts0] tick=20323 : pas de burst BTS pour fn=19657 (manques=1200/20323) ;
derniere trame recue fn=19641, soit +16 : le DSP COURT DEVANT le BTSL’ecart est systematiquement positif, de +1 a +16, jamais negatif. Le DSP reclame des trames que le BTS n’a pas encore produites. Ce n’est pas un cycle limite symetrique autour de zero — c’est un BIAIS constant.
Ce que ca change. Le workflow concluait « cycle limite de +/- 100 trames » et recommandait explicitement de NE PAS augmenter PONT_HORLOGE_AVANCE, au motif que la marge masquerait l’oscillation sans la supprimer. Ce raisonnement vaut contre une oscillation ; il ne vaut pas contre un biais. Un biais systematique se corrige justement par un terme d’avance. La consigne du workflow reposait sur une hypothese que la mesure ne soutient pas.
Le taux en regime etabli reste ~20-25 % avec l’avance a 12 : de quoi expliquer que le canal dedie ne tienne pas quatre bursts de suite, donc pas de bloc LAPDm complet, donc pas de UA, donc pas de LU.
Balayage en cours de PONT_HORLOGE_AVANCE sur 12 / 30 / 60 / 120, 90 s de periode calibree par point, taux de manques + tard/UL + ecart median. Le reglage sera choisi sur la courbe, pas sur une intuition — la quatrieme de la journee aurait ete une de trop.
8.2.1.36 2026-09-22 16:20 — Asservir le pont au DSP est une erreur d’architecture
Trois mesures successives, chacune refutant la precedente, finissent par donner la mecanique. Dans l’ordre :
1. Le signe de l’ecart. Systematiquement positif, +1 a +16 : le DSP reclame des trames que le BTS n’a pas produites. Pas un cycle limite.
2. La perte n’est pas un taux, elle est bimodale. Entre checkpoints : 27 %, 25 %, puis 100 % sur 200 trames consecutives, en alternance. Des coupures totales d’environ une seconde, pas une gigue.
3. Le DSP ne sprinte pas — il traine. Sonde sur /dev/shm/calypso_horloge, 4591 echantillons a 5 ms :
temps reel GSM : 216.7 trames/s
cadence DSP mediane: 195.7 trames/s deficit 9.7 %
9e decile : 197.3
plus gros bond : 2 trames
part a plus de 2x le temps reel : 0.0 %Jamais d’emballement. Un deficit constant de 9,7 %. Et les « 12000 trames sautees sur 120201 ticks » du workflow, c’est 10,0 % : le meme nombre.
4. Le journal du BTS nomme le coupable.
DL1C NOTICE FN timer expire_count=7: We missed 6 timers (scheduler_trx.c:427)
DL1C ERROR No more clock from transceiver (scheduler_trx.c:435)5. Et les sources du BTS expliquent pourquoi c’est structurel. osmo-bts/src/osmo-bts-trx/scheduler_trx.c : les trames sont battues par un timerfd cale en dur sur GSM_TDMA_FN_DURATION_uS, 4615 us, temps reel. IND CLOCK ne sert qu’a CORRIGER ce timer :
elapsed_fn < 0-> « We were N FN faster than TRX, compensating », il retarde ;|elapsed_fn| > MAX_FN_SKEW(50) -> resynchronisation brutale ;fn_without_clock_ind == TRX_LOSS_FRAMES(400) -> il s’arrete.
Et surtout, ligne 571, un TODO du projet :
put this computed error_us_since_clk into some filter function and use that to adjust our regular timer interval to compensate for clock drift
Le filtre de derive n’existe pas. osmo-bts-trx ne SAIT PAS tourner a une cadence autre que le temps reel. Lui donner une horloge 9,7 % lente le laisse en permanence « plus rapide que le TRX » : il compense, il resynchronise, et entre deux son propre timer continue a battre au temps reel — produisant des trames que le DSP n’a pas encore atteintes, et en sautant d’autres.
8.2.1.36.1 Ce que ca dit de mon correctif du matin
Asservir l’horloge du pont au DSP prend le probleme a l’envers. Le BTS est le maitre temps reel par construction ; on ne peut pas le ralentir. C’est le DSP qui doit tenir la cadence. L’asservissement que j’ai pose ce matin a supprime la derive non bornee — ca, c’etait un vrai gain — mais il l’a remplacee par un desaccord permanent de 9,7 % que le BTS ne sait pas absorber.
Balayage en cours de INSNS (60000 / 54000 / 46000 / 38000) : cadence mediane obtenue, deficit, taux de manques, nombre de resynchronisations du BTS. Si la cadence suit bien 1/INSNS, le point qui annule le deficit annule la perte. Reserve a verifier au point retenu : INSNS est aussi un budget de FIDELITE — trop bas, la ROM n’a plus assez d’instructions pour finir son travail de trame, et c’est la detection FB/SB qui tombe.
8.2.1.37 2026-09-22 16:35 — La cause racine, trouvee et chiffree
Deux mesures decisives, chacune reproductible.
1. INSNS ne cadence rien. Balayage sur un facteur 2 :
INSNS=60000 -> 195.6 trames/s INSNS=40000 -> 195.8
INSNS=54000 -> 196.0 INSNS=30000 -> 195.7
INSNS=48000 -> 195.8Plat. Le budget d’instructions du DSP n’a aucun effet : le DSP n’est pas limite par son propre calcul.
2. Sans pas-a-pas, la machine vole. LOCKSTEP=0 : 588,9 trames/s median, jusqu’a 797 — 2,7 fois le temps reel. L’hote n’est pas sature (32 coeurs, charge 1,97).
Donc c’est l’echange de pas-a-pas lui-meme qui coute. Le TICK/GO en deux phases fait deux allers-retours de socket par trame entre QEMU et c54x_exe. Le gestionnaire de trame met ~5,11 ms la ou une trame GSM en fait 4,615 : il depasse le budget d’environ 0,5 ms.
Et tdma_pacer() transforme ce depassement en perte silencieuse. calypso_trx.c:1069 :
target += GSM_TDMA_NS;
while (target <= now) {
target += GSM_TDMA_NS; /* en retard : on saute une trame */
}Le stimulateur est juste — cible absolue, pas de derive accumulee — mais quand le gestionnaire depasse systematiquement le budget, target est toujours derriere now, la boucle avance d’une trame a chaque fois, et la cadence effective devient 1/(duree du gestionnaire) = 195,7 trames/s. s->fn, lui, n’avance que de 1 par tick : l’interface air emulee prend 9,7 % de retard sur le temps reel, en permanence.
8.2.1.37.1 Enchainement complet, du symptome a la cause
- Le pas-a-pas coute ~0,5 ms/trame -> le DSP tourne a 195,7 au lieu de 216,7.
- Mon horloge asservie repercute fidelement cette cadence lente au BTS.
osmo-bts-trxne sait pas suivre une horloge lente : son timerfd est cale en dur sur 4615 us et le filtre de derive est unTODOvide (scheduler_trx.c:571). Il se croit en permanence « plus rapide que le TRX », compense, puis resynchronise.- Pendant une resynchronisation il ne produit rien : coupures de ~200 trames consecutives, soit une seconde de silence.
- Le canal dedie n’obtient plus 4 bursts de suite -> pas de bloc LAPDm -> pas de UA -> pas de mise a jour de localisation.
Les 10 % de trames sautees que le workflow avait comptes, c’est exactement le deficit de cadence. Ce n’etait ni un cycle limite, ni la demodulation du DSP, ni l’acquittement DMA.
8.2.1.37.2 Trois voies possibles, aucune choisie sans arbitrage
| Voie | Ou | Portee |
|---|---|---|
| A. Reduire le cout du pas-a-pas | calypso_trx.c / pont.c |
2 allers-retours de socket par trame pour ~0,5 ms : c’est beaucoup trop pour un socket UNIX. Probablement une attente a timeout quelque part. Si on descend sous 4,615 ms, tout le reste tombe. La plus propre. |
| B. Implementer le filtre de derive du BTS | osmo-bts/src/osmo-bts-trx/scheduler_trx.c |
Le TODO du projet lui-meme. Rend le BTS capable de suivre n’importe quelle cadence. Mais touche un 3e depot et le binaire /usr/local/bin/osmo-bts-trx sert AUSSI au mode sans --dsp. |
| C. Rendre la perte uniforme au lieu de groupee | calypso_bsp.c + pont/trx.py |
Horloge du pont au temps reel (BTS content), DSP qui lit la trame la plus recente. On perd toujours 10 %, mais 1 sur 10 eparpillee au lieu de 200 d’affilee — un bloc LAPDm a 4 bursts et FEC survit a la premiere, pas a la seconde. Casse la continuite de FN vue par le firmware. |
8.2.1.38 2026-09-22 16:40 — Trois hypotheses de plus, trois refutations
J’ai teste, chacune par balayage sur le banc, les trois causes candidates du deficit de 9,7 %. Les trois sont fausses. Je les consigne pour qu’on ne les re-essaie pas.
| Hypothese | Balayage | Resultat |
|---|---|---|
Le budget d’instructions du DSP (INSNS) |
60000 / 54000 / 48000 / 40000 / 30000 | 195,6 / 196,0 / 195,8 / 195,8 / 195,7 — plat sur un facteur 2 |
| Le quantum de re-essai du pas-a-pas | GSM_TDMA_NS/16 (288 us) puis /64 (72 us) |
195,7 / 195,5 — aucun effet |
La periode du coup de pouce au CPU (CPU_KICK_NS) |
5,00 / 1,15 / 0,58 / 0,29 ms | 195,8 / 195,9 / 195,8 / 195,9 — plat sur un facteur 17 |
Sur la troisieme j’ai failli me faire avoir : dans ce banc les variables d’environnement ne vont pas toutes au meme processus (cf. la note env-calypso-quel-processus), donc un balayage sans effet peut simplement vouloir dire que la variable n’arrivait pas. Verification faite dans /proc/<qemu>/environ : CALYPSO_CPU_KICK_NS=288461 y etait bien. La refutation tient.
Les deux valeurs par defaut ont ete remises a l’original — je ne livre pas un changement de comportement que la mesure ne justifie pas. Les molettes (CALYPSO_PONT_RETRY_DIV, CALYPSO_CPU_KICK_NS) restent, elles servent a mesurer.
8.2.1.38.1 Ce qu’il reste, et pourquoi INSNS ne pouvait pas marcher
Les 5,11 ms par trame sont du travail, pas de l’attente :
- sans pas-a-pas, QEMU seul fait 588 trames/s, soit 1,70 ms par trame ;
- le pas-a-pas serialise l’ARM et le DSP au lieu de les laisser se recouvrir ; le reste, ~3,4 ms, c’est l’interpreteur C54x qui execute la trame.
Et INSNS ne pouvait rien y faire : c’est un plafond, pas une quantite de travail. La ROM finit son travail de trame et passe en idle bien avant de l’atteindre — baisser le plafond ne retire donc aucune instruction. C’est pour ca que le balayage est plat, et j’aurais du le prevoir avant de le lancer.
La piste suivante est la VITESSE de l’interpreteur, pas son budget : combien d’instructions la ROM execute reellement par trame, et a quel debit l’interpreteur les rend (~7 MIPS d’apres le calcul inverse). Les sondes de c54x_probes.c et les copies memoire par trame de PONT_NB_DEBUG sont les premieres choses a chiffrer.
8.2.1.39 2026-09-22 18:05 — SB : le TOA n’est pas la cause. La fenetre, peut-etre.
Refutation de ma propre these du jour. J’ai cru, et ecrit, que la SB echouait parce qu’elle atterrit a TOA 7 au lieu de 23. La mesure dit non :
[sb] fn=302 toa=11243 a_sch=0100 crc_ko
[sb] fn=333 toa=8743 a_sch=8000 CRC_OK <- 8743 % 156 = 7
[sb] fn=371 toa=8743 a_sch=0100 crc_ko <- meme 7
[sb] fn=402 toa=8743 a_sch=0100 crc_ko <- meme 7Le meme TOA donne CRC bon et CRC faux. Le TOA ne discrimine pas. Le correctif pose sur g_toa_bias perd donc sa justification (il est de toute facon inerte, voir plus bas).
Au passage, deux autres choses que j’avais dites et qui sont fausses : * « TOA=5 est une anomalie, le nominal est 23 » – non : calypso_bsp.c:1505 dit que 5 est la valeur attendue d’un burst NORMAL sur ce banc (marge de 3 echantillons). Les 23 ne concernent que la SB (marge de 21). * « La DMA est en mode continu quand le burst arrive » – non : one_shot=1 apparait 760 fois sur 3389.
8.2.1.39.1 Ce que la mesure etablit, en revanche
Longueurs de fenetre RIF reellement demandees sur un run de 2 min :
| fenetre | occurrences | nwin = len/2 |
|---|---|---|
| 302 mots | 3316 | 151 |
| 128 mots | 73 | 64 |
Aucune fenetre >= 190. Or le cadrage de calypso_bsp.c:1527 choisit sa marge ainsi : nwin >= 190 ? 21 : nwin >= 150 ? 3 : 0. La fenetre SB attendue – ALGTH 764, donc nwin 382 – n’existe jamais. La branche a 21 echantillons est inatteignable par construction, et la SB est demodulee dans une fenetre de burst normal.
C’est aussi pourquoi la sonde [cadre] compte 0 alors que one_shot=1 arrive 760 fois : le bloc est bien garde par one_shot, mais aucune fenetre n’atteint jamais le seuil SB.
8.2.1.39.2 Etat des deux correctifs du jour sur ce chemin
| Correctif | Verdict |
|---|---|
calypso_bsp.c : appliquer g_toa_bias a la marge SB |
INERTE – le bloc n’est jamais atteint ([cadre]=0), et sa justification est refutee (meme TOA, issues opposees). A retirer ou a garder en dormance documentee. |
gsm322.c : SYNC_RETRIES_CONN 8 |
tient jusqu’ici – 0 LOS during RACH sur 5 tentatives reparties sur deux runs, contre 4 sur 8 avant. Pas encore etabli, mais rien ne le contredit. |
8.2.1.39.3 La boucle TOA, defaut reel mais secondaire
calypso_bsp_toa_feedback() est appelee (pont.c:1357, en=1 verifie), elle integre dans g_toa_bias… que personne ne lisait avant aujourd’hui, malgre le commentaire « samples, applied to the DARAM placement ». Et son entree est instable : within = toa % 156 donne 60, puis 11, puis 48 d’un appel a l’autre – le signe de l’erreur alterne, l’integrateur fait +/-1 et revient a zero. Meme branchee, elle ne pourrait pas rattraper 16 echantillons. Deux defauts distincts, a traiter ensemble ou pas du tout.
8.2.1.39.4 La question suivante, et elle est nette
Pourquoi la ROM n’arme-t-elle jamais une fenetre de 764 mots pour la SB ? C’est elle qui programme ALGTH. Soit elle ne le fait pas, soit le modele RHEA ne le lui rend pas. C’est mesurable : tracer les ecritures de ALGTH par la ROM dans calypso_rhea_dma.c, et comparer a ce que calypso_rhea_dma_get_len_words() rend au moment de la SB.
8.2.1.40 2026-09-22 18:35 — Le recalage TS0 : mesure A/B, et refutation de mon predicteur
Hypothese : le DSP court devant le BTS (ecart toujours positif, +1 a +40) parce que l’offset tick->trame BTS est pose une seule fois et jamais revu ; quand le BTS s’arrete pour resynchroniser, le DSP reclame des trames inexistantes et le flux se troue. Or un bloc LAPDm, ce sont QUATRE bursts consecutifs. Correctif pose : reculer l’offset pour repartir de la trame la plus recente, en s’appuyant sur le contrat du mode STREAM (« only the ORDER matters »).
A/B, 2 x 6 min, meme banc, meme protocole :
| temoin | recalage | |
|---|---|---|
| perdues / joues | 20/132 | 0/161 |
| recalages (recul) | 0 | 433 (433) |
| MDL-ERROR | 18 | 4 |
| LU ACCEPT / REQUEST | 1/3 | 1/2 |
| trames jetees | 686 | 1409 |
| bits faux (mediane) | 95 | 96 |
Ca ne marche pas. perdues tombe a zero et MDL-ERROR est divise par quatre, mais les trames jetees DOUBLENT et la mediane de bits faux ne bouge pas. Le LU reste a 1 dans les deux bras.
Explication qui colle : en remplacant une trame absente par la plus recente disponible, on ne livre pas un trou mais le mauvais burst a la bonne place. Pour le desentrelaceur, une donnee fausse mais plausible est pire qu’une absence – il ne peut plus la traiter comme un effacement. J’ai converti des effacements en erreurs.
Corollaire, et c’est le point important : « perdues » n’est PAS un predicteur du succes. La correlation que j’avais tiree de trois runs (7 % -> LU accepte, 0 % -> accepte, 42 % -> rejete) ne survit pas au test controle. Trois points suffisaient a la suggerer, pas a l’etablir.
Defaut remis a OFF (CALYPSO_BSP_RECALE=1 pour le reessayer). Comme pour le quantum de re-essai et CPU_KICK_NS : on ne livre pas un changement de comportement que la mesure ne justifie pas.
Deux pistes si on y revient : ne recaler que HORS du canal dedie, ou marquer le burst rejoue comme peu fiable pour que le desentrelaceur l’efface au lieu de le croire.
Defaut de mesure a signaler : le chemin de recalage sort avant manques++, donc il aveugle ce compteur. Les deux bras n’etaient pas comparables sur cette metrique. C’est moi qui ai casse l’instrument en posant le correctif – exactement le genre de piege que g_dedie_perdues avait ete ajoute pour eviter ce matin.
8.2.1.40.1 Ce que la journee laisse debout
- LU : aboutit, chiffre A5/1, TMSI committe cote VLR. Repete de nombreuses fois. Quand le canal est propre, la transaction complete prend 4 secondes (assignation -> RR_EST_CNF -> IDENTITY -> LOC_UPD_ACCEPT -> TMSI REALLOC).
SYNC_RETRIES_CONN 8(gsm322.c) : 0LOS during RACHsur toutes les tentatives depuis qu’il est pose, contre 4 sur 8 avant. Le seul correctif du jour qui tienne.- Le SMS atteint desormais
MMSMS-EST-CNFpuisWAIT_CP_ACK, etSAPI 3 establisheda ete vu. Avant il mourait enMM_CONN_PENDING. - Une transaction Call Control a ete allouee pour la premiere fois (callref 0x138c), finie en
Timeout of T308. - Defaut restant : le descendant dedie se corrompt (69 a 99 bits faux sur 184). Observation non expliquee, relevee a 18:23 : le BER monte MONOTONEMENT de 43 a 95 en 17 s a
lev >= -47constant. Une rampe, pas des creneaux – ce qui ne ressemble pas a une perte de bursts par paquets et suggere un desalignement cumulatif. A creuser.
8.2.1.41 2026-09-22 19:00 — Deux correctifs de plus, et le SMS montant passe
8.2.1.41.1 1. Effacement au lieu de la page perimee (calypso_bsp.c)
Trouve par l’arbitrage du workflow wahnj19z5, qui a au passage REFUTE 3/3 ses propres trois voies (cout du pas-a-pas, filtre de derive du BTS, perte uniforme). Mecanisme verifie a la main, quatre points :
calypso_bsp_rx_burst()est le seul ecrivain de la DARAM des bursts, et n’est appelee que depuisbsp_ts0_livrer()– que le chemin de manque saute ;calypso_rif_drain()rend 0 sur FIFO vide ;- le transfert sort alors par
if (got <= 0) breakSANS rien ecrire : la page API garde le burst du tick precedent ; - sur le chemin DRR, le source dit lui-meme : « On an empty FIFO, DRR keeps its last value […] returning 0 would fabricate a sample ».
Donc une trame manquante n’est pas un trou : c’est la trame precedente rejouee, et le decodeur tourne dessus. Signature mesuree : les blocs rejetes ont un nombre d’erreurs IDENTIQUE, 17 rejets = 96 neuf fois, 105 cinq fois. Un canal bruite ne rend pas neuf fois le meme compte.
C’est aussi pourquoi mon A/B du recalage etait aveugle : ses deux bras substituaient un burst FAUX (le plus recent d’un cote, le precedent de l’autre), jamais un effacement.
Resultat, 2 min : MDL-ERROR 18 -> 0, LU accepte au PREMIER essai, trames jetees 114/min -> 66/min, perdues/joues 13 % -> 0,6 %. Reserve : l’histogramme des comptes d’erreurs reste concentre, donc la signature n’a pas disparu. Non explique.
8.2.1.41.2 2. Ne plus jeter la premiere FACCH montante (pont/uplink.py)
_poll_facch() faisait, au changement d’epoque TCH : skip_pending() + return. Or tch.seq est incremente par tch.arm(), appele quand le pont decode l’ASSIGNMENT COMMAND descendante – et l’ASSIGNMENT COMPLETE est LA PREMIERE chose que le mobile emet sur le nouveau TCH. Elle tombait dans cette fenetre et etait marquee « deja vue ».
Mesure, appel vers 600 a 18:55 : le mobile emet bien « ASSIGNMENT COMPLETE (cause #0) » ; le pont journalise « FACCH montante » SANS le suffixe « , ASSIGNMENT COMPLETE » ; le BSC conclut « Assignment failed in state WAIT_RR_ASS_COMPLETE, cause EQUIPMENT FAILURE: Timeout ».
La SACCH garde le saut (un rapport de mesure perime ne sert a rien), la FACCH est desormais traitee. PONT_FACCH_SKIP=1 retablit l’ancien comportement.
8.2.1.41.3 Ce que le banc fait maintenant
- LU accepte au premier essai, chiffre, TMSI committe cote VLR.
- SMS MONTANT ARRIVE AU RESEAU :
db.c:695 Stored SMS id=33 in DB. - SETUP d’appel recu par le MSC :
gsm_04_08_cc.c:704 SETUP to 600. - Restent : la livraison MT du SMS (pas de CP-ACK) et l’aboutissement de l’appel.
8.2.1.41.4 Deux erreurs de lecture a noter, meme cause qu’au matin
J’ai affirme (a) qu’aucun L1CTL_RACH_REQ n’existait, (b) que le pont ne suivait pas le mobile sur le TCH. Les deux etaient faux, demolis par le journal complet deux commandes plus tard : dans les deux cas un head -10 ou un tail -6 avait tronque la sortie. C’est exactement la faute du matin avec manques=0 : conclure d’une absence sans verifier que l’instrument regardait au bon endroit. A surveiller.
8.2.1.42 2026-09-22 19:47 — L’APPEL PASSE L’ASSIGNATION : le chainon manquant du TCH
8.2.1.42.1 Le defaut
pont.py publiait DEJA l’intervalle du canal de trafic dans /dev/shm/calypso_tch_cfg (pont/state.py, Tch._write_cfg : seq, tn, tsc, arfcn) des qu’il decodait l’ASSIGNMENT COMMAND descendante – verifie, le fichier contenait bien seq=1 tn=2 tsc=7 arfcn=514. Mais personne ne le lisait cote DSP : calypso_bsp_set_dedie() n’etait appelee que depuis la bande laterale SDCCH (montant.c:425). Le BSP continuait donc de substituer l’intervalle SDCCH (TS1) pendant que le mobile ecoutait le TCH (TS2).
8.2.1.42.2 La preuve, en croisant les deux journaux
Cote mobile :
19:42:05 MON: ... TS=2 ber=161 <- il EST sur le TCH
19:42:06 MON: no cell info rxlev-full=-110 <- le plancher : du SILENCE
19:42:07 MON: no cell info rxlev-full=-110
19:42:08 Channel type 64, subch 0, ts 1 <- il revient sur TS1
19:42:08 ASSIGNMENT FAILURE (cause #1)Cote DSP, sur toute la session : arme TS1 SDCCH/8, jamais TS2. Cote BSC : Assignment failed in state WAIT_RR_ASS_COMPLETE, cause EQUIPMENT FAILURE: Timeout.
Ce n’etait donc pas un defaut de qualite du lien – c’etait un chainon absent. Et ca invalide au passage ma lecture precedente : j’avais accuse la premiere FACCH montante jetee (correctif uplink.py), qui etait un vrai bug mais PAS celui-la.
8.2.1.42.3 Le correctif
calypso_bsp.c: genreBSP_DEDIE_TCH(=2).bsp_dedie_trame()retourne vrai pour TOUTES les trames de l’intervalle – sur un TCH/F la multitrame de 26 est entierement a la connexion (24 trafic + 1 SACCH + 1 libre), contrairement a un sous-canal SDCCH ou seuls 4 blocs sur 51 comptent.montant.c:scruter_tch(), pose a cote descruter_dcch(), lit/dev/shm/calypso_tch_cfget arme le BSP sur le bon intervalle.MONTANT_TCH=0coupe.
8.2.1.42.4 Le resultat
19:47:16 Sending 'SETUP'
19:47:17 ASSIGNMENT COMMAND
19:47:17 ASSIGNMENT COMPLETE (cause #0) <- recue par le BSC cette fois
19:47:20 received CALL PROCEEDING
19:47:20 INITIATED -> MO_CALL_PROC[montant] TCH (seq=1) : arme TS2 TSC=7 - toutes ses trames
[ts0] canal dedie arme : TCH TS2 (toutes les trames)
/dev/shm/calypso_bsp_dedie : tn=2 joues=1486 manques=0 perdues=0Plus aucun Assignment failed cote BSC. L’appel atteint MO_CALL_PROC.
8.2.1.42.5 Bilan des quatre correctifs de la journee
| # | Fichier | Defaut |
|---|---|---|
| 1 | gsm322.c |
sortie d’idle : ccch_state gele + un seul re-essai FBSB -> aucun burst RACH emis |
| 2 | calypso_bsp.c |
trame manquante = trame precedente REJOUEE (page API jamais reecrite) |
| 3 | pont/uplink.py |
premiere FACCH montante apres armement TCH jetee par skip_pending() |
| 4 | calypso_bsp.c + montant.c |
l’intervalle du TCH publie par le pont n’etait lu par personne |
Mesures : LU accepte (contre 1 sur 3), LOS during RACH 4/8 -> 0, MDL-ERROR 18 -> 0 sur 31 min, SMS montant arrive au reseau, appel jusqu’a CALL PROCEEDING.
8.2.1.43 2026-09-22 19:55 — LE VERROU RESTANT, mesure : la ROM n’arme presque jamais sa fenetre SB
Question posee par un contraste : le pont livre une BCCH parfaite (741 blocs, 0 echec de CRC) et le DSP, nourri par le meme chemin au meme instant, ne decode la SB qu’une fois sur cinq. Ce n’est donc ni le lien, ni le pont, ni la qualite des echantillons.
Sonde posee dans bsp_ts0_livrer(), sur les bursts que bsp_ts0_est_sb() reconnait comme des SCH :
[sbwin] SB #500 : one_shot=0 nwin=0 marge=0 -> cadree comme un burst normal
(dans une vraie fenetre SB : 12/500)12 bursts SCH sur 500 tombent dans une vraie fenetre SB : 2,4 %. Les 97,6 % restants arrivent avec one_shot=0, nwin=0, donc marge=0 : le burst est pose a l’offset ZERO, sans les 21 echantillons silencieux que le correlateur SB de la ROM attend (c’est eux qui donnent le TOA de 23).
Dans la meme fenetre de mesure : 1 CRC bon sur 16 jobs SB. Les deux taux sont du meme ordre. C’est la premiere explication de la journee qui a le BON ORDRE DE GRANDEUR.
8.2.1.43.1 Ce que ca corrige dans mes conclusions precedentes
J’avais accuse le TOA (7 au lieu de 23) puis conclu, mesure a l’appui, que le TOA ne discriminait pas – meme toa=8743 donnant CRC_OK et crc_ko. Les deux etaient vrais et je n’en tirais rien : le TOA n’est qu’une consequence du cadrage. Comme le cadrage est presque toujours le meme (mauvais), le TOA est presque toujours le meme aussi. Je cherchais la cause dans la consequence.
8.2.1.43.2 La question suivante, nette
Pourquoi la ROM n’arme-t-elle presque jamais une DMA one-shot pour son job SB ? Elle reste en mode continu (trame de 1250 symboles, TS0 sans marge). C’est elle qui programme ALGTH ; soit elle ne le fait pas, soit le modele RHEA ne le lui rend pas. A tracer dans calypso_rhea_dma.c (ecritures de ALGTH et de CTRL_ONE_SHOT par la ROM) en regard des jobs SB.
8.2.1.43.3 Pourquoi je n’ai PAS pose le correctif a chaud
Forcer marge = 21 quand le burst est une SCH decalerait de 21 echantillons une trame dont la longueur est contrainte a 1250 en mode continu, et casserait le compteur de symboles de la ROM. C’est exactement le genre de correctif applique avant d’etre compris qui a coute quatre fausses pistes aujourd’hui.
Ce verrou commande tout le reste : le taux de synchronisation, donc la re-acquisition apres chaque liberation de canal, donc la fiabilite du SMS et de l’appel.
8.2.1.44 2026-09-23 10:55 — LU ACCEPT puis LU REJECT : le temporisateur X1 du MSC, pas la radio
Symptome, reproduit deux fois (10:43, 10:45) : le mobile recoit LU ACCEPT, emet TMSI REALLOCATION COMPLETE, et deux secondes plus tard recoit LU REJECT (il repond MM STATUS #98). Le MSC le journalise en {MSC_A_ST_RELEASING}. Consequence : le VLR oublie l’abonne, le SMS MT est jete (« Freeing transaction that still contains an SMS »), le CM SERVICE suivant est rejete (cause 4) et tout repart par un nouveau LU.
Cause : timer geran X1 de osmo-msc (« Complete Layer 3, Authentication and Ciphering timeout »), 5 s par defaut. Il court de la COMPL_L3 jusqu’a la fin du LU, TMSI REALLOC COMPLETE compris. Chronologie du 10:45 : COMPL_L3 10:45:47, chiffrement 10:45:50, X1 echu 10:45:52, avant l’arrivee du TMSI REALLOC COMPLETE. Le banc, plus lent que le temps reel, ne tient pas 5 s.
Correctif : timer geran X1 30 sous msc dans /etc/osmocom/osmo-msc.cfg et dans le gabarit osmo-operator/configs/osmo-msc.cfg (pose aussi a chaud par la VTY 4254).
Ce qui reste, mesure juste apres : un LU a 10:50:33 meurt sur T3260 (12 s), le DTAP descendant (demande d’identite ou d’authentification) n’arrive jamais au mobile. Sur le SDCCH on voit « Dropping frame with 96 bit errors » (x3, toujours la meme signature 96) et des trames a « 0 bit errors » jetees quand meme (fire_crc >= 2). Le descendant dedie reste le verrou, avec la fenetre SB.
8.2.1.44.1 Les journaux du banc DSP dans le panneau
Le panneau (tmux calypso, osmo-fft-snap) suit /run/user/0/osmo-nitb/logs/{qemu,osmocon,mobile}.log et /dev/shm/pont.log. run.sh n’ecrivait que dans /tmp/c54x-pont : tous les volets restaient vides. Desormais le vrai fichier est pose au chemin du panneau, et $RUNDIR/tail -F ouvert refuse un fichier remplace par un lien. pont.py n’est plus lance avec --no-record : c’est ce drapeau qui laissait /tmp/iq_fft_ms.fifo, donc la FFT, sans producteur. PONT_AIRREC=0 et PANNEAU_LOGS=none retablissent l’ancien comportement. Au passage : la trace [trx] A_SCH de QEMU s’arrete apres 40 lignes (calypso_trx.c:1076), ce qui est voulu ; ce n’est pas un gel.
8.2.1.45 2026-09-23 10:58 — Run de 10:53 : LU accepte, SMS MT perdu sur le descendant dedie
- X1 a 30 s : le LU passe, TMSI 0x26861AD4 valide par le VLR.
- Le MSC livre aussitot un SMS MT en attente. La SAPI 3 s’etablit (10:53:42, « new SAPI 3 link state idle -> established »), mais le CP-DATA n’arrive jamais au mobile. Son T3240 expire a 10:53:48, il libere le canal, et le MSC abandonne le SMS (« dropping pending message »).
- Erreurs du descendant dedie sur tout le run : 80 a 114 bits faux sur 456, plus 16 trames a « 0 bit errors » jetees quand meme. 114 = un burst entier, donc c’est typiquement UN burst sur les quatre du bloc qui est faux.
- Cote BSP : tn=1 joues=464 manques=0 perdues=0. Chaque trame dediee recoit un burst du bon intervalle, et pourtant un burst sur quatre est faux.
- Piste suivante, deja instrumentee mais muette par defaut : « dedie : DESACCORD table=.. tpu=.. » (calypso_bsp.c, bsp_ts0_livrer). Il faut CALYPSO_DEBUG=BSP sur c54x_exe. Un decalage d’une trame entre la table 45.002 et la fenetre TPU programmee par l’ARM donnerait exactement un burst faux sur quatre.
- Lien montant : « UL bursts=66 tard=225 » dans les 40 premieres secondes, puis tard fige a 247. Les pertes se concentrent pendant le calage de l’horloge, qui tombe au moment du premier LU.
- Avertissements du build corriges : prototypes de calypso_trx_get_fn et de calypso_inth_arm_ack (appels implicites en int), -Waddress, et les if enchaines sur une ligne. Zero avertissement.
8.2.1.46 2026-09-23 11:06 — PREMIER SMS MT LIVRE DE BOUT EN BOUT ; le montant jetait 69 % de ses bursts
- 11:05:56 : le mobile recoit « test » (OA 777), repond CP-ACK puis RP-ACK. Cote MSC : CP-ACK 11:06:00, RP-ACK 11:06:03, transaction fermee proprement. Cote mobile : « % SMS from 777: ‘test’ ». Ce qui l’a debloque : le correctif SAPI 3 de pont/uplink.py, pose par une autre session le 2026-09-23. L’UA du SAPI 3 partait sur la SACCH montante, la BTS n’etablissait jamais le SAPI 3.
- Traces LAPDm du mobile (llapd debug, pose a chaud par la VTY 4347) : toutes les trames I montantes sont retransmises 2 a 5 fois (TIMER_RECOV) avant d’etre acquittees. Le descendant SDCCH, lui, decode une trame par multitrame sans trou.
- Cause : pont/trx.py Transmitter.run JETAIT tout burst montant reveille apres sa trame (off < -window_tol). Run de 11:04 : 141 emis, 314 jetes (69 %). Les runs sans enregistrement I/Q en jetaient 16 %. Le reveil du thread souffre du GIL partage avec record.py, que la FFT a reactive.
- Or osmo-bts-trx range un burst montant par son fn, compare au dernier fn traite du canal logique (common/scheduler.c, trx_sched_route_burst_ind). L’heure d’arrivee n’y entre pas : un vrai TRX livre toujours le montant apres coup. Correctif : envoyer le burst en retard tant qu’il reste dans PONT_UL_RETARD_MAX = 26 trames. Le compteur « tard » compte desormais les bursts en retard, envoyes ou pas. A mesurer au prochain run : les retransmissions T200 doivent disparaitre.
8.2.1.47 2026-09-23 11:20 — Appel : CONNECT jamais recu ; pont coupe en deux points d’entree
8.2.1.47.1 Appel vers 600, run de 11:10
SETUP (11:11:34), assignation TCH/F TS2 FR, ASSIGNMENT COMPLETE, puis CALL PROCEEDING recu par FACCH (11:11:38). Un SMS MT passe meme en pleine communication (SAPI 3 sur la SACCH). Le 600 decroche : le MSC passe en CONNECT_IND et envoie le CONNECT vers 11:11:37. Le mobile ne le recoit jamais, et T313 expire a 11:12:07. * Le firmware ne remonte un FACCH de TCH que si le DSP a pose B_BLUD dans a_fd[0] en fin de bloc (prim_tch.c:246). Sans detection des bits de vol, rien ne remonte : c’est le silence observe. * Le masque A5 du pont (gsm.a5_xor) laisse bien les bits de vol (60, 87) en clair. Ce n’est donc pas lui. * Le pont decode lui-meme le TCH descendant : facch 5 -> 39 entre 11:11:39 et 11:11:54 (les retransmissions du CONNECT), tch_dl fige a 219, puis tch_crc qui grimpe de 47 a 877. A partir d’environ 11:11:49, le pont n’arrive plus a decoder une seule trame TCH descendante, ni parole ni FACCH. A creuser en premier : le dechiffrement du TCH par le pont (cle, fn, dl_active), puis la detection FACCH du DSP une fois la parole lancee.
8.2.1.47.2 Decoupage du pont (demande operateur)
- pont/pont.py = montage DSP (c54x_exe/run.sh MODE=dsp, grgsm_exe sans argument).
- pont/pont_uncipher.py = montage grgsm (start-direct.sh, run.sh MODE=grgsm, PONT_DSP_PORT=0 grgsm_exe). Il refuse –dsp-port.
- Meme paquet et A5 dans le pont des deux cotes. Ce qui differe passe par des defauts poses avant l’import (os.environ.setdefault) : PONT_UL_RETARD_MAX vaut 0 pour grgsm (jeter le burst en retard, comme avant) et 26 pour le DSP. Le defaut du paquet est 0 : le chemin grgsm garde exactement son comportement d’avant.
- Motifs de processus mis a jour : 09-teardown.sh, rapport-run.sh, conky-osmo-status.sh, build-debs.sh. /usr/local/bin/grgsm_exe (hors depot) aussi, avec une copie de l’original dans le scratchpad de la session.
8.2.1.48 2026-09-23 11:27 — La boucle « no service » toutes les 5 a 6 s : la seconde synchro de la selection
Trace DCS (cs debug, pose par la VTY 4347), une boucle complete : 1. Balayage : « Sync to ARFCN=514 (No sysinfo yet) », « Channel synched », SI lues, « Cell found », C1 = 0. 2. « Cell ARFCN 514 selected », puis « Tune to frequency 514 » : une SECONDE acquisition FB+SB (gsm322_sync_to_cell, mode CCCH COMB). 3. Elle echoue : « Channel sync error, try again », puis a nouveau « Channel sync error ». SYNC_RETRIES vaut 1 : la cellule est desselectionnee (« Unselect cell due to sync error », « Loss of CCCH »), MM_EVENT_LOST_COVERAGE, et la boucle repart en 1. Sur ce run, 93 FBSB_REQ sur 514 et 4 sur le voisin 614. Il faut deux synchros reussies de suite, alors que le DSP n’en reussit qu’une sur trois a cinq : c’est le verrou de la fenetre SB (voir 2026-09-22 19:55).
Correctif cote mobile : gsm322.c, sync_retries_selection(). Le nombre d’essais du « Tune to frequency » se lit dans L23_SYNC_RETRIES_SELECTION. Le defaut reste SYNC_RETRIES (1) : le binaire /usr/local/bin/mobile est partage avec le montage grgsm et le mobile fake_trx. c54x_exe/run.sh pose 8 en MODE=dsp. L’ancien binaire est garde dans le scratchpad de la session.
A noter aussi : la mesure de puissance rend souvent « rxlev <=-110 (0) », le plancher, soit C1 = 0 tout juste. Avec un RXLEV_ACCESS_MIN plus haut, la cellule serait jugee inutilisable. A regarder dans calypso_bsp_rssi_apm.
8.2.1.49 2026-09-23 12:47 — Le pont DSP (pont/dsp/) : la bascule TCH suit le firmware
8.2.1.49.1 Ce qui cassait les appels du run de 12:22 (confirme dans le code)
- Appels 2 et 3 : le pont decode l’ASSIGNMENT COMMAND et ecrit aussitot /dev/shm/calypso_tch_cfg (Tch.arm). montant.c scruter_tch armait alors le BSP en TCH des la trame suivante. Pour un TCH, bsp_dedie_trame() est vrai sur TOUTES les trames : le BSP jouait TS2 a la place de TS0 et du SDCCH TS1 pour toutes les trames pas encore jouees. Or le DSP a 12 a ~200 trames de retard sur la BTS, et l’ASSIGNMENT COMMAND elle-meme en faisait partie. Dans dsp.log : « TCH (seq=2) : arme TS2 », un seul a_cd FIRE KO, puis plus aucun bloc SDCCH. Cote mobile : 80-100 bit errors, jamais d’ASSIGNMENT COMMAND, puis LOS.
- Appel 1, retour sur le SDCCH : rien ne rendait TS1 au BSP apres l’ASSIGNMENT FAILURE, parce que le tap QEMU ne republie dcch_cfg que si chan_nr change. D’ou 90-110 bit errors jusqu’a la liberation. En plus, l’ASSIGNMENT FAILURE, publiee sur calypso_sdcch_ul, partait en FACCH sur TS2 (uplink.py : is_open() suffisait).
- Le TS du TCH n’etait dechiffre vers le DSP qu’apres Tch.prove(), alors qu’osmo-bts le chiffre des l’activation. Les premiers blocs, dont l’UA, etaient perdus.
- Le Kc etait lache a la liberation lue dans dcch_cfg, donc a l’heure du DSP, alors que la BTS chiffrait encore. Blocs TS1 en echec cote pont.
8.2.1.49.2 Ce qui change
- pont/pont_dsp.py lance pont.dsp.main (nouveau sous-paquet pont/dsp/). C’est deja le PONT_PY de run.sh en MODE=dsp, donc aussi celui de start-direct.sh –dsp. Il refuse de demarrer sans –dsp-port. pont/init.py et pont.py (grgsm) ne l’importent pas. La seule retouche du code partage est l’extraction de methode Uplink._route_sdcch, sans effet : un harnais qui rejoue SABM, MEAS, UA SAPI3, ASSIGNMENT COMPLETE, arm et prove donne un resultat identique octet pour octet avant et apres.
- TchDsp : l’ecriture dans tch_cfg n’est plus qu’une ANNONCE (meme format, meme moment). abandon() ecrit seq+1 avec tn=0 : retour au SDCCH, Kc garde.
- montant.c : scruter_tch ne fait plus que memoriser l’annonce. La nouvelle fonction suivre_tache_tch lit d_task_d dans la page W fraiche. Sur TCHT, TCHA ou TCHD avec une annonce, le BSP bascule sur le TS du TCH. Sur ALLC (24, la tache de lecture de bloc SDCCH/SACCH, prim_rx_nb.c:200 ; pas DDL/ADL comme je le croyais), il revient au SDCCH memorise par scruter_dcch. Log : « [montant] TCH : le firmware poste la tache 13 a fn=…, BSP bascule sur TS2 » et « le firmware est revenu sur le SDCCH (tache ALLC) ». MONTANT_TCH_TACHE=0 retablit l’armement a l’annonce.
- Nouvelle sonde a_fd (NDB+0x21A), active seulement sur TCH : « [a_fd] fn= fn%13= etat= BLUD=1 FIRE= d_tch_mode= L2=… ». MONTANT_AFD=0 la coupe.
- TrxDsp : le TS du TCH est dechiffre des l’annonce, toujours sous cipher.dl_active.
- UplinkDsp : un bloc sdcch_ul n’est jamais une FACCH. S’il arrive pendant un TCH annonce, il declenche abandon() quand c’est une ASSIGNMENT FAILURE ou quand le mobile etait deja passe sur le TCH. _poll_release ne lache plus le Kc : il tombe a l’IMMEDIATE ASSIGNMENT suivante. PONT_KC_RETENTION=1 est pose par pont_dsp.py.
- FeederDsp et DownlinkDsp : plus de GSMTAP 4730/4731 ni de /dev/shm/calypso_tch_dl (lus seulement par la L1 gr-gsm). Le tap 4729 reste.
- run.sh : calypso_tch_cfg est efface avant l’etape 1 et, en MODE=dsp seulement, a l’arret. c54x_exe a ete reconstruit.
- build-debs.sh embarque pont/dsp/.
8.2.1.49.3 A mesurer au prochain run (banc non relance par cette etape)
- dsp.log : « TCH … annonce par le pont », puis « le firmware poste la tache 13|14 » plus tard, jamais avant. Entre les deux, les a_cd SDCCH doivent rester ok.
- mobile.log : ASSIGNMENT COMMAND recu a chaque appel, plus de rafale de 80-110 bit errors apres l’annonce. /dev/shm/calypso_bsp_dedie doit passer de tn=1 a tn=2 seulement a la tache TCH.
- FACCH DL sur TCH (T200 de l’appel 1) : si les lignes [a_fd] BLUD=1 arrivent, la plomberie est bonne. Si a_fd reste muet alors que le pont decode des FACCH, il faut chercher dans la ROM ou le coeur (SP-CORRUPT pc=0x0000 au tick 10253, watchpoint calypso_c54x.c:6226-6240).
- ASSIGNMENT FAILURE provoquee : « revenu sur le SDCCH », « TCH TN=2 abandonne » cote pont, SDCCH de nouveau decode par le mobile.
- Fin d’appel : pas de « Kc lache » a la liberation, plus d’echecs TS1/8 cote pont apres. Au RACH suivant : « Kc lache (IMMEDIATE ASSIGNMENT) ».
- Non-regression grgsm : MODE=grgsm, un appel MO, memes messages qu’avant.
8.2.1.50 2026-09-23 18:45 — SACCH en TCH : depot apres l’IDLE, enregistreur, et le coupable MVKD/MVDK
Journal reconstitue des commits de l’apres-midi (bbc66c4 16:24, d474b76 17:40, 05388d8 18:42, et qosmo f5c8110 16:24, 7f27ab7 17:40, 9e61950 18:42). Banc non relance par cette mise a jour de la doc.
8.2.1.50.1 1. Le burst TCH depose trop tot (bbc66c4)
- Pour une tache TCHA (SACCH/TF), la ROM arme la fenetre de N+1 PUIS demodule, au debut de N+1, le burst SACCH de N laisse en 0x0cce. Le pont deposait le burst des l’armement et l’ecrasait : a_cd FIRE KO a chaque bloc, 113-118 bits faux, LOS au 32e bloc.
src/pont.c: sur le TCH, la phase A va jusqu’a l’IDLE avant le depot (budget/2 au plus). Reproducteur tch_rejeu : SACCH FIRE=0 « 07 00 03 », FACCH 10/10 bonnes contre 6/12.PONT_TCH_DEPOT_IDLE=0= ancien depot ; trace[depot_tch](30 premieres trames). Hors TCH, arret a l’armement inchange.montant.c: le tap QEMU (calypso_dcch_tap.c, qosmo f5c8110) annonce maintenant le TCH (genre 2 = TCH/F, 3 = TCH/H). C’est un simple constat : le SDCCH memorise n’est PAS ecrase, c’est lui que l’ASSIGNMENT FAILURE retrouve.INSNS60000 -> 80000 dans run.sh : 60000 debordait en TCH (jusqu’a 87000 insn/trame).
8.2.1.50.2 2. Enregistrer le banc, le rejouer ailleurs (d474b76)
c54x_exeecrit, sur tout canal dedie, les ecritures ARM dans l’API RAM (par difference, avant le TICK et entre phase A et GO), les TICK, et les livraisons d’I/Q du BSP dans/dev/shm/calypso_rejeu_tch.bin(60000 livraisons au plus ;CALYPSO_REJEU_ENREG=0coupe).tools/rejeu_banc [fichier] [ticks]rejoue le tout dans l’ordre de pont.c et imprime chaque a_cd / a_fd.REJEU_SANS_D=1garde l’etat du boot local.tools/sacch_tf_decode [fichier] [TN] [Kc]decode hors DSP la SACCH/TF enregistree par le BSP (/dev/shm/calypso_sacch_tf.bin) avec le Kc decalypso_kc_l1. Mesure de la session : 63/63 blocs, 0 erreur. Les bursts que recoit le BSP sont bons ; le defaut est apres lui. (Chiffre de la note de session, non verifiable dans le code.)- Le rejeu reproduit l’echec du banc. Cause :
data[0x3d89], pointeur du tampon SACCH (normalement 0x4dxx), vaut deja 0x08xx au debut du TCH ; la copie de 28 mots depuis 0x0cce ecrase alors les pages W/R et le NDB, dontd_debug_ptr(DSP perdu). - L’ecrivain : la routine de mesure de puissance (autour de 0x76c0), a cause du coeur. MVKD (0x70) / MVDK (0x71) en adressage long lisaient dmad en pc+1 et lk en pc+2 ; le bon ordre est lk puis dmad (comme PORTW, ST et binutils).
70f8 0012 0014faisait AR4 <- AR2 au lieu de AR2 <- AR4, et la PM ecrivait en 0x3d0b..0x3d89. Corrige dans qosmoc54x_exec.cpar 9e61950 (18:42, livre avec 05388d8 ;CALYPSO_MVKD_DMAD_AVANT=1= ancien ordre, A/B). Garde permanente[garde-3d89]dansc54x_mem.c(7f27ab7) : les 12 premieres ecritures de 0x3d89 hors 0x4d00..0x4dff, avec PC, DP, ST0/ST1, SP, AR2, BK. - A5 :
calypso_a5.c(qosmo 7f27ab7), le coprocesseur XIO sur les ports 0x2800..0x2818, compile dans c54x_exe (Makefile, d474b76).CALYPSO_A5=0le coupe.
8.2.1.50.3 3. Le temps d’une trame (05388d8)
PONT_DONE_TOT(defaut 1) : DONE rendu des le burst depose, le DSP finit la trame pendant que QEMU repart.0= ancien ordre.[chrono]dans dsp.log toutes les 1000 trames :qemu | A | go | B | apres DONE | trameen ms, contre 4,62 ms de temps reel.- run.sh pose
CALYPSO_PONT_RETRY_DIV=64sur QEMU : relance vers le DSP toutes les trame/64 (0,07 ms) au lieu de trame/16 (0,29 ms), latence payee deux fois par trame (DONE de la phase A, GO).
8.2.1.50.4 4. La parole montante TI -> FR (05388d8)
mobile_pont.cfg dit io-tch-format ti : gapk rend la voix au format du DSP TI, le firmware la copie dans a_du, et le pont la passait a gsm0503_tch_fr_encode(..., net_order=1), qui attend du FR TS 101 318. La BTS recevait une parole melangee, l’echo la renvoyait en bruit sature. montant.c convertit (repris de fmt_ti.c puis fmt_gsm.c) ; MONTANT_PAROLE_TI=0 = passage brut.
8.2.1.50.5 5. Sondes et outillage (05388d8, sauf mention)
[a5-arm]: chaque changement de d_a5mode ou du Kc pose par l’ARM.[d_fn](bbc66c4) : la position que le firmware donne au DSP sur TCHA.- run.sh : gdbstub QEMU
tcp:127.0.0.1:1234et consoletelnet 0 44444(GDB=0coupe) ;ASSEMBLY_LOGS=1= trace asm ARM dans qemu-asm.log. - Makefile : cible
.PHONYet dependance aux en-tetes (d474b76),-O3 -march=native(05388d8).makereconstruit c54x_exe a chaque appel ; plus besoin demake clean.
8.2.1.50.6 A mesurer
- Correctif MVKD/MVDK sur le banc : plus aucune ligne
[garde-3d89], a_cd FIRE=0 sur la SACCH/TF, plus de LOS en appel, et l’appel suivant ne tombe plus sur une connexion SCCP restee ouverte. - SABM repetes / UA perdu (« SABM frame with information not allowed » au BSC, 19:06) : cote osmo-operator,
pont/dsp/clock.pymesurait l’avance de la BTS contre l’horloge reelle ; corrige a 20:14 (boucle fermee sur DSP + avance,PONT_AVANCE_MIN4 -> 10), apres le dernier commit de c54x_exe. Lire ensemble « marge DL reelle … moy » dans pont.log (doit rester ~>= 10) et la colonne B de[chrono](B >> 1 ms = le DSP attend la BTS). - Chiffre de vitesse du coeur avec les sondes coupees, a remesurer avant de l’ecrire dans le README.
8.2.1.51 2026-09-23 20:40 — Runs du banc DSP de 20:22 et 20:32 : tout passe a 20:22, mais chaque trame de parole est BFI
Sources : archives /tmp/c54x-pont/archives/20260923-202448 (run de 20:22) et 20260923-203413 (run de 20:32), journaux osmocom du run de 20:22 (20:22:09 -> 20:24:56 ; pas de journaux reseau pour 20:32). Mobile DSP = MS 1, MSISDN 100101 ; l’autre mobile = 100102. Banc relance par l’utilisateur, pas par cette mise a jour.
8.2.1.51.1 Ce qui marche (constate, run de 20:22)
- LU : IMMEDIATE ASSIGNMENT 20:22:41, U1_UPDATED 20:22:45, liberation 20:22:47.
- Appel MO 100101 -> 600 (echo Asterisk) : ASSIGNMENT COMPLETE 20:22:54 (TCH/F TN=2, bascule du BSP par la tache firmware), ACTIVE 20:22:55, DISCONNECT 20:23:27, TCH ferme 20:23:28. STATS du pont a 20:23:30 (cumuls de la session) : TCH dl=1607 ul=1601 perdus=11, FACCH ul=14, SACCH ul=87. Parole audible dans les deux sens ; GAPK monte la chaine au decrochage (FR, ti-fr).
- SMS : 100102 -> 100101 (MT 20:23:53-55) et 100101 -> 100102 (MO 20:24:05, SAPI 3 sur DCCH), CP-ACK et RP-ACK recus.
- Appel MT 100102 -> 100101 (osmo-sip-connector) : ASSIGNMENT COMPLETE 20:24:25, ACTIVE 20:24:28, release normal, TCH ferme 20:24:34.
- A5/1 : « chiffrement descendant confirme par la BTS » a 20:22:45, 20:22:53, 20:23:53, 20:24:04, 20:24:24 (LU, appel 600, SMS MT, SMS MO, appel MT).
- Correctif MVKD/MVDK (A mesurer 1 de l’entree de 18:45) : sur ce run, SACCH/TF
a_cdKO a fn=4746 et 4954 (bascule), puis ok jusqu’au dernier bloc journalise, fn=9426 (ok 9 -> 51, ko fige a 9) ; cote mobile, aucun bloc SACCH jete entre la bascule (20:22:55) et la liberation (20:23:28). Aucune LOS, aucune ligne[garde-3d89], et l’appel MT qui suit l’appel 600 aboutit. Confirme pour 20:22 (voir la LOS de 20:32 plus bas). - clock.py (A mesurer 2) : aucune ligne SABM dans les journaux osmocom. Marge DL reelle min +0 (20:22:47), +9 (20:22:57, 20:23:07), puis +13 a +15, moyenne 22.3 a 38.9. L’avance visee monte a 40 a 20:22:37 et 20:22:56 (38 a 20:23:02). BSC : aucune ERROR INDICATION « SABM frame with information not allowed ».
- BSP dedie :
stockes=1751 joues=1752 manques=0 perdues=0 recales=0 silences=0. - Temps reel : 29 513 trames, un seul tick saute, au boot (fn=0).
8.2.1.51.2 Anomalies ouvertes, par ordre d’importance
- B_BFI sur toute la parole descendante. Run de 20:22 : les 40 etats
[a_dd](21 x c214, 18 x c204, 1 x 8084) ont le bit 2 = B_BFI (l1_environment.h:272) ; leko=0d’alors comptait 0x0040 = B_FIRE1, sans objet sur la parole. Sonde etendue (src/montant.csonde_add:BFI=,err=a_dd_0[2], compteurbfi=; non commitee), passee au run de 20:32 :vues=2200 ko=376 bfi=2200. Sur les 42 lignes : 19 x c214 err=0 (19 des 20 premieres, fn 5839-5921, juste apres la bascule ; la 18e, fn=5912, est le 8084), 17 x c204 err=15..80, 5 x 80c4 err=81..93, 1 x 8084 err=58. On entend quand meme : prim_tch.c:327 ne teste que B_BLUD et ne remonte pas le BFI, GAPK decode les 33 octets tels quels. Ce n’est donc pas « bits bons, BFI faux » : la ROM compte 15 a 93 erreurs par trame. Reste a separer signal (BSP, IQ, egalisation) et coeur C54x (Viterbi, recomptage) : comparer bit a bit les 33 octets livres par la ROM aux trames de la BTS (RTP du MGW ou pont). Leko(B_FIRE1, 376/2200) n’a pas de sens defini sur la parole. - LOS en TCH au run de 20:32. Appel MO ACTIVE 20:32:30 ; SACCH/TF
a_cdok a fn=5991 puis FIRE KO a chaque bloc des fn=6095 (ko 8 -> 40) ; « LOSS counter for ACCH » descend de 31 a 0 et « LOS during dedicated mode » a 20:32:45. Aucune ligne[garde-3d89]: ce n’est pas l’ecrasement du pointeur 0x3d89 corrige. Appel suivant (20:32:57) : IMMEDIATE ASSIGNMENT puis T3230 a 20:33:13. Troisieme (20:33:35) : ASSIGNMENT COMPLETE 20:33:38, ACTIVE 20:33:39, DISCONNECT 20:34:06, SACCH/TF ok (ok 14 -> 54, ko fige a 46). Correlation :errde la parole 63 a 93 sur l’appel en LOS a partir de fn=6273 (jusqu’a 9306 ; ses 20 premieres trames, fn 5839-5921, a 0 sauf une a 58), 15 a 38 sur le troisieme (fn 21248-26881). Non localise. - SDCCH/8 descendant (run de 20:22) : 30 « Dropping frame with N bit errors » (l1ctl.c:278, toute trame a fire_crc >= 2), dont 18 precedees de « LOSS counter for ACCH » (l1ctl.c:268, SACCH seulement). Sur SDCCH/8 : 27 trames jetees (84 a 114 bit errors), 4 a 7 par session dediee, 7 sur le LU entre 20:22:42 et 20:22:47 ; 15 SACCH, 12 du canal principal. Sur TCH/F, une perte SACCH a la bascule (20:22:55, 54 bit errors) et une a chaque liberation (20:23:28, 20:24:33). Suspect : la table 45.002 du BSP pour la SACCH/8 (alternance sur 102 trames), mais le canal principal est touche aussi. Mesure a faire : fn % 102 des blocs jetes contre ceux acceptes.
- Marge temps reel en TCH :
[chrono]fn 5997-11997 (20:22) = A 0.33 + go 0.40 + B 0.16 + apres DONE 3.37-3.68 ms ; qemu 0.04-0.32 ms. Meme profil a 20:32 (fn 6997-8997, 21997-26997). Hors TCH, apres DONE 0.07-0.95 ms. Tenu, sans reserve. - UI SAPI 0 sur le TCH : BSC 20:22:54 lchan(0-0-2-TCH_F-0){WAIT_RLL_RTP_ESTABLISH} « SAPI=0 UNIT DATA INDICATION: unimplemented Abis RLL message type », juste apres l’ASSIGNMENT COMPLETE. Pas la trame de bourrage (UI de longueur 0, jetee par libosmocore). Hypothese : un MEASUREMENT REPORT sur le lien principal. Non bloquant.
- Mineures : MM_EVENT_NO_CELL_FOUND transitoire a 20:24:08 apres le SMS sortant ; MSC 20:24:26 « Duplicate DTAP » sur la reponse au paging, sans consequence.
8.2.1.51.3 Ce qui n’est PAS une anomalie
- Les echecs CRC du moniteur TCH descendant du pont : meme profil sur les deux appels, la BTS n’a rien a mettre sur le TCH tant que le RTP ne coule pas. Decodage du pont, independant du DSP.
- Le
kode[a_dd]sur la parole (B_FIRE1), voir 1. - Le tick saute au boot (fn=0), et l’arret de 20:24:52 (SIGINT volontaire).
8.2.1.51.4 A mesurer
- B_BFI : comparaison bit a bit ROM / BTS sur un appel sain, puis rejeu hors banc (
tools/rejeu_banc) pour isoler le coeur. - LOS de 20:32 : rejouer l’enregistrement TCH de cet appel si
/dev/shm/calypso_rejeu_tch.binle contient encore ; regarder ce qui change a fn=6095. - SACCH/8 : fn % 102 des blocs jetes.
8.2.1.52 2026-09-29 23:30 — Le verrou SB, mesure et correctif : le SCH n’etait jamais cadre pour la tache SB
Run dsp de 22:38 (banc-max), 600 tentatives SB dans dsp.log, 540 FBSB_REQ dans osmocon.log : 577 FB trouves, 130 SB. Cote mobile, chaque SB manquee est un « FBSB RESP: result=255 », une perte de cellule, 10 a 30 s de recherche PLMN ; l’appel de 23:06:35 est tombe dedans (« LOS during RACH request »), les SMS et l’USSD passent quand ils tombent dans une fenetre « normal service ».
8.2.1.52.1 Ce que les traces etablissent
- Le TOA du FB est IDENTIQUE a chaque tentative (8743, ou 9995 = une trame plus loin) : le cadencement est deterministe.
- La tache SB est postee a la bonne phase de multitrame dans 94 % des cas (
[cmd] tache SB postee, fn mod 51 = 6/17/27/37/47, toujours la meme famille). [a_sch]: a CHAQUE paire de tentatives, la page 0 recoit le meme resultat8100 0016 f85d 01fb(CRC faux, contenu constant = tampon sans burst) ; la page 1 recoit un contenu variable et decode 131 fois sur 600 (8000 xxxx 001c yyyy, BSIC 7).[sbwin]: 100 % des SCH sont livres avecone_shot=0 nwin=0 marge=0, donc a l’offset zero d’une trame de 1250 echantillons suivie de sept intervalles de bourrage – le cadrage de la recherche FB, pas celui d’une fenetre SB (burst a 23 symboles, tpu_window.c L1_SB_MARGIN_Q).
Donc : le temps est juste, c’est le CONTENU que la ROM lit qui varie – residu du RIF (4 mots par trame de recherche FB) et instant d’armement de la DMA par rapport au depot. Quand la DMA n’est pas armee au depot, calypso_rif_rx_burst() jette le burst (« n_muets ») et la tache SB lit du perime : la page 0.
8.2.1.52.2 Correctif (calypso_bsp.c, bsp_ts0_livrer ; pont.c)
Derriere CALYPSO_BSP_SB_FENETRE (1 par defaut) : * un SCH livre alors que la ROM a programme une page de tache (ALGTH/2 >= 150 echantillons) sans ONE_SHOT est cadre comme une fenetre SB : residu RIF vide, CALYPSO_BSP_SB_MARGE (21) echantillons de silence en tete, bloc de DEUX pages exactement (la pompe ne transfere qu’a deux pages pleines), sans bourrage ; * DMA non armee au depot : le bloc est garde et relivre des l’armement (calypso_bsp_sb_retenter(), appelee dans la boucle de pompe de pont.c et au tick suivant) ; * [sbwin] dit armee/one_shot/page_prog/rif_avant et l’action ; [a_sch] porte le TOA, PM, SNR de la page R (plafond 600). Un SB bien pose lit TOA=23. La recherche FB (page de 48 echantillons) et les fenetres ONE_SHOT ne changent pas. Non mesure : a lire sur le prochain run dans [sbwin] (page_prog reel de la tache SB) et [a_sch] (TOA, taux de CRC_OK sur la page 0 comme sur la 1).
A cote, banc-max : 87-ussd.sh est optionnel (un echec USSD ne saute plus appel et voix) ; 99-couverture.sh lit ses champs sur « ; » (les motifs « | » cassaient SMS, SDCCH descendant, SACCH en TCH, retour BSP), calcule son bilan hors du sous-shell (le verdict disait 0/0/0/0) et cherche des motifs que le mobile ecrit vraiment (MMSMS_EST_REQ, « new state dedicated -> release pending »).
8.2.1.53 2026-09-29 23:45 — Mesure du correctif SB (run de 23:33) : la fenetre SB existe, c’est l’ordre qui manque ; v2
[sbwin] avec les nouveaux champs :
[sbwin] SB #7 fn=327 p51=21 : armee=1 one_shot=1 page_prog=191 ... -> FENETRE SB (one-shot)
[a_sch] fn=994 page=1 : ... -> 8000 0720 001c 003d TOA=24 PM=5516 SNR=16384 CRC_OK
[sbwin] SB #8 fn=337 p51=31 : armee=0 one_shot=0 page_prog=191 ... -> DMA NON ARMEE
[a_sch] page 0 : 8100 0016 f85d 01fb TOA=0 PM=5521 SNR=12 (fenetre VIDE)
[a_sch] page 1 : 8100 xxxx xxxx xxxx TOA=24 PM=5516 SNR=16384 crc_ko (burst de la trame SUIVANTE)- La ROM arme bien une fenetre SB one-shot de 191 echantillons (ALGTH 764). Le MAILBOX du 22/09 (« la fenetre 382 mots n’existe jamais ») mesurait la longueur au moment du depot, pas celle de la tache SB. Quand elle est armee AVANT le depot, tout est natif : burst a 21, TOA 24, CRC OK.
- Le defaut est un defaut d’ORDRE dans le tick : la fenetre est le plus souvent armee APRES le depot du SCH ; calypso_rif_rx_burst() jette le burst (« n_muets »), la page 0 lit une fenetre vide (SNR=12, resultat constant), la page 1 lit le burst de la trame suivante a TOA 24 (SNR sature, CRC faux). Ce n’est ni le residu du RIF ni une « double page » (hypotheses du premier jet).
- Le premier jet regressait : la relivraison se faisait au premier armement venu, y compris les fenetres NB de la lecture BCCH (
RELIVRE ... one_shot=0 page=151 marge=3) ; le SCH remplacait le burst BCCH, plus aucune SI, mobile en « C6 any cell selection », pytest mobile/reseau en echec.
v2 (calypso_bsp.c) : le SCH depose sans DMA armee est garde UN tick et livre uniquement dans une fenetre SB one-shot (>= 190), cadre a 21, avec recalage de l’offset ARM-tick sur le tick de livraison (bsp_ts0_service saute alors sa trame, rejouee au tick suivant : flux contigu). Le chemin « deux pages » est retire. A lire au prochain run : RELIVRE au tick, CRC_OK sur la page 0 aussi, et le ratio => SB / L1CTL_FBSB_REQ d’osmocon.log (24/90 a 23:37).
8.2.1.54 2026-09-29 23:50 — v2 mesuree (run de 23:41) : le SCH part dans la fenetre PM ; v3 memorise toujours le dernier SCH
- Mobile campe (C3, normal service) : la regression de la v1 est levee.
- Mais SB 29/118 (osmocon),
[a_sch]page 0 : 0 CRC_OK sur 215 (fenetre VIDE, TOA=0 SNR=12), page 1 : 29 CRC_OK sur 214 (burst a TOA 24, le SCH une fois sur sept, sinon la trame suivante). Une seule relivraison sur tout le run. - Cause : au depot du SCH la DMA est le plus souvent ARMEE, mais pour autre chose – fenetre PM de 64 echantillons (
armee=1 one_shot=1 page_prog=64, SB #2010-2090 a p51=31) : le SCH y est consomme, puis la fenetre SB s’arme et ne trouve rien. La condition « DMA non armee » de la v2 ne voyait pas ce cas. - Ma trace
[sbwin]n’echantillonnait qu’un SCH sur dix apres le 200e : le depot exact autour des tentatives etait invisible.
v3 : le dernier SCH depose est TOUJOURS memorise (fn, tick, bits, livre-en- fenetre-SB ou non) ; si une fenetre SB one-shot (>= 190) s’arme dans le tick ou le suivant sans qu’il y soit alle, il y est livre (residu RIF vide, marge 21, offset ARM-tick recale). Trace [sbwin] complete (avec le tick) pendant 60 ticks apres chaque detection FB et 8 ticks apres chaque tache SB postee (calypso_bsp_sb_trace(), appelee par pont.c). A lire au prochain run : RELIVRE au tick, CRC_OK sur la page 0, ratio => SB/FBSB_REQ.
8.2.1.55 2026-09-30 00:15 — La fenetre SB etait bonne ; c’est la demodulation du SCH qui basculait. Mesure en rejeu, reglages portes au banc
Trace complete (v3, [sbwin] a chaque SCH pendant 60 ticks apres un FB) : * tentative 1 (page 0) tombe TOUJOURS sur la trame FCCH (p51 = SCH - 1, burst nul) : fenetre vide normale, pas un defaut ; * tentative 2 tombe sur le SCH, livre NATIVEMENT en fenetre SB one-shot 191 au bon TOA (23-24) ; aucune relivraison n’est necessaire (v2/v3 inutiles ici, gardees, inertes) ; * et pourtant : 129 fenetres SB natives comparees bit a bit au mot attendu (fn BTS connu) -> CRC OK sur la moitie ; sur la plupart des echecs seuls les bits 0-2 du mot sont faux (…1b/1f/1d au lieu de …1c). Les memes positions du burst basculent selon le contenu : le « fil du rasoir » deja vu sur les NB.
Mesure hors banc, c54x_exe --rejouer avec REJEU_CONTINUER=1 (8000 trames, deterministe, 785 FB / 12000 trames), SCH decodes / SCH presentes :
| reglage du SCH | decodes |
|---|---|
| tel quel (instant 0.5, sans elargir, sans bruit) | 34 % |
| elargissement 0.15 / 0.3 / 0.5 / 1.0 / 1.5 | 50 / 60 / 63 / 66 / 66 % |
| + instant 0.35 (0.3 : 71 %, 0.4 : 72 %, 0.5 : 66 %) | 76 % |
| + bruit sigma 3000 (300 : 77 %, 1000 : 79 %, 6000 : 73 %) | 82 % |
| phase porteuse 10/22/45, marge 19-23 | sans effet |
| amplitude 8000 / 15000 / 22000 | 0 FB / 2 SB / 82 % |
Zero faux positif dans tous les cas. Porte au banc : sb_moduler() dans calypso_bsp.c (trois sites : bsp_ts0_livrer, sb_cadrer, chemin deliver), defauts CALYPSO_BSP_SB_SYM=1.0, CALYPSO_BSP_SB_DEC=0.35, CALYPSO_BSP_SB_NOISE=3000 (0 / 0.5 / 0 = avant). Cote rejeu : CELLULE_SB_SYM, CELLULE_SB_NOISE (0 par defaut, le rejeu reste la reference). Attendu au prochain run : => SB / L1CTL_FBSB_REQ de ~25 % a ~80 %, donc des pertes de cellule rares, et un RACH d’appel qui ne tombe plus en LOS. Le reste (18 %) est encore dans la demod SB de la ROM emulee ; a chercher avec REJEU_DUMP_SOUPLES sur les SCH qui echouent a ces reglages.
8.2.1.56 2026-09-30 00:20 — Run banc-max de 00:07 (dsp, –restart) : l’appel s’etablit, 31 fonctions GERE sur 37
Avec sb_moduler() (instant 0.35, elargissement 1.0, bruit 3000) : SB 33/69 FBSB_REQ (etait 1/4), camp en 1 s, LU, SMS MO/MT, appel CC ACTIVE en 1 s (SETUP, CALL PROCEEDING, ASSIGNMENT COMMAND/COMPLETE, CONNECT), TCH/F decode (a_dd vues=3400 ko=0), FACCH/SACCH/parole montants vus par montant.c, liberation radio. Couverture : 31 gere, 1 degrade, 2 non gere, 3 non observe. Echelle 23/23, 2 echecs : * voix : le ton 1 kHz ne revient pas (raie 380 Hz, +0.3 dB) – coherent avec B_BFI=1 sur TOUTES les trames de parole descendantes (a_dd bfi=3400/3400, Viterbi ko=0) : le point ouvert n°1 du README, inchange. C’est le prochain verrou. * ussd : intermittent. Cause lue dans mobile.log : apres chaque liberation le mobile resynchronise (FB+SB), la synchro echoue encore une fois sur deux, le mobile passe 3-10 s « no cell », et le RACH lance pendant ce trou meurt en « LOS during RACH request » ; 87-ussd.sh enchainait #101# 2 s apres #100#. Correctif banc : attendre_service() (_lib.sh) avant chaque transaction (ussd, sms-mo, appel, voix). Le fond (18 % de SCH non decodes) reste cote ROM emulee. * garde MVKD/MVDK non observee = la garde n’a pas eu a jouer ; retour BSP sur le SDCCH non observe = la liberation s’est faite sur le TCH (FACCH), normal.
8.2.1.57 2026-09-30 00:45 — Voix : la boucle est coupee en deux hors banc, c’est le MONTANT qui casse ; le BFI n’y est pour rien
tools/comparer_parole.pysur l’appel de 00:14 : 1116 trames de parole descendantes sur 1117 identiques au bit pres entre a_dd (ROM) et libosmocoding sur les bursts livres ; 12 FACCH identiques. La ROM rapporte pourtant ~27 erreurs canal par trame (a_dd[2]) la ou le Viterbi de reference en voit 0, et B_BFI=1 partout, y compris sur les trames a err=0. Le BFI ne vient donc pas du decodage (compteur ou metrique de qualite, a voir en rejeu avec bruit/amplitude) ; et le firmware l’ignore (prim_tch.c ne teste que B_BLUD) : il ne casse pas la voix.- Les memes trames a_dd, decodees par libgsm (RFC 3551, independant de la ROM et du mobile) : RMS constant ~3300, raie 200-600 Hz mouvante, 0 % d’energie a 1 kHz sur 23 s. Or a_dd == ce que la BTS a emis == l’echo d’Asterisk. Ce qui est revenu du reseau etait deja du bruit : le montant envoie du bruit. Le descendant est sain jusqu’a a_dd ; pas besoin du test Playback().
- Verifie hors banc : parole_ti_vers_fr() est l’inverse exact de gapk (ti_fr_from_canon o gsm_to_canon, aller-retour identique) ; le firmware ecrit a_du avec dsp_memcpy_to_api(…, 1) = octet fort d’abord, comme prendre_ul. Restent : la capture GAPK (gsm_in -> gsm_mic.monitor), le firmware, le pont (codage, A5 montant).
- Pour trancher au prochain appel : montant.c note chaque trame montante dans /dev/shm/calypso_add_ul.bin (type 1 brute TI, type 0 convertie FR) ;
tools/decoder_add.py ul(etdl) decode avec libgsm et cherche le ton. Si le ton est dans add_ul : GAPK, firmware et montant.c sont bons, le defaut est au pont ou au-dela (capturer le RTP au MGW). S’il n’y est pas : capture GAPK ou firmware (a_du).
8.2.1.58 2026-09-30 00:50 — Pourquoi l’USSD (et tout RACH) passe une fois sur trois : la resynchro de gsm322 avant chaque RACH
Run de 00:36 : 10 CHANNEL REQUEST, 3 « LOS during RACH request » ; 7 liberations, 3 LOST_COVERAGE. Dans chaque cas rate, le RACH n’est pas emis : pas de ligne « RANDOM ACCESS », mais deux « FBSB RESP: result=255 » dans la seconde qui suit le CHANNEL REQUEST, puis le LOS.
Mecanisme, lu dans osmocom-bb gsm322.c : a chaque sortie de veille (GSM322_EVENT_LEAVE_IDLE -> gsm322_c_conn_mode_1/2), la selection de cellule refait une synchro FB+SB complete sur la cellule serveuse (gsm322_sync_to_cell(cs, NULL, 1)) AVANT le RACH, avec SYNC_RETRIES = 1 essai. Idem au retour en veille apres une liberation. Sur silicium c’est instantane et sur ; ici la ROM emulee decode le SB ~80 % du temps (apres sb_moduler), donc ~1 RACH sur 3 tombe en FBSB_ERR -> gsm48_rr_los -> « LOS during RACH », et ~1 liberation sur 2 laisse le mobile 3-10 s sans cellule. Le ber= 47-49 des lignes MON et le err~27/BFI de la parole sont le meme artefact de compteur d’erreurs de la ROM sur nos echantillons, sans lien avec ces pertes.
Decision : NE PAS toucher a osmocom-bb (un patch de SYNC_RETRIES par variable d’environnement a ete essaye puis retire, aucun binaire installe). Le levier est du cote emulation : les 18 % de SCH que la ROM ne decode toujours pas (REJEU_DUMP_SOUPLES sur les echecs a SYM=1.0 DEC=0.35 NOISE=3000). Cote banc, attendre_service() + le rejeu du barreau (–essais 2) absorbent l’intermittence tant qu’elle dure ; le run de 00:36 l’a montre (USSD OK au 2e essai).
8.2.1.59 2026-09-30 01:30 — Les 20 % de SCH restants : ce qui a ete mesure, ce qui ne marche pas, ou chercher
Outils ajoutes au rejeu (tous a 0 par defaut, le rejeu reste la reference) : SBresp imprime le mot decode meme en CRC faux + TOA/PM/ANGLE/SNR ; CELLULE_SB_GARDE (garde continue au lieu du silence), CELLULE_SB_ISI (traine causale), CELLULE_SB_AMP (amplitude du seul SCH), CELLULE_SB_FC (GMSK sur-echantillonnee + Butterworth ordre 3 + decimation, gmsk_moduler_filtre()). Analyse : scratchpad analyse_sb.py (a recopier dans tools/ si utile).
Ce que les traces etablissent (rejeu SYM 1.0, DEC 0.35, bruit 3000, 12000 trames) : * les tentatives « fenetre vide » (TOA 43, SNR ~10) sont les tentatives 1, sur la trame FCCH : normal ; * les vrais rates (20 %) ont TOA 23, SNR sature ; le mot lu est faux sur ses ~14 premiers bits d’information et juste ensuite : c’est la MOITIE AVANT la sequence d’apprentissage qui est demodulee en garbage, la seconde tient ; * l’ensemble des rates est fixe par le CONTENU (31/33 communs entre deux instants d’echantillonnage, 24/33 avec un autre elargissement) ; * ce qui discrimine : les bits codes qui BORDENT la sequence (c38 juste avant : P(KO)=10 % si 0, 32 % si 1 ; c40 juste apres : 11 % / 31 %). L’ISI aux bords contamine l’estimation de canal de la ROM, qui equalise la premiere moitie a reculons depuis la sequence ; * l’angle (frequence estimee par la ROM, +70 Hz sur un signal a 0 Hz) bouge avec les reglages (+82 a +4 Hz) sans que le taux suive : pas la cause.
Ce qui ne change RIEN (a +-3 %) : amplitude du SCH (3000 a 30000), inversion d’un bit code quelconque, garde continue (zeros / aleatoire / uns), instant 0.2-0.8, elargissement 0.3-2.0, traine causale. Le filtre « realiste » (Butterworth 60-220 kHz) fait MOINS bien (44-65 %) : la ROM prefere une ISI forte et nette a trois coefficients. Meilleurs jeux sur 12000 trames : SYM 0.3 + ISI 0.3,0.1 -> 81 % ; SYM 1.0 + ISI 0.8,0.4 -> 80 % ; SYM 1.0 seul -> 77 %. Au banc (run de 00:36), 77 CRC_OK / 104 fenetres SB natives = 74 %.
Ou chercher ensuite : (a) la RE de l’estimation de canal SB de la ROM (quelle portion de la sequence elle correlle, sur quels lags, comment elle choisit sa fenetre : meme mecanique que le NB, 0x8551) — c’est la ou le contenu decide ; (b) cote emulation, une seconde chance : la tentative 1 du firmware tombe sur la trame FCCH et ne sert a rien ; le BSP a deja le SCH de la trame suivante dans son anneau et pourrait le livrer dans cette fenetre-la aussi (l’offset ARM-tick se recale sur la trame ou le SB est reellement livre, comme le fait deja calypso_bsp_sb_retenter()) — deux essais par cycle au lieu d’un, si possible avec deux formes d’onde dont les ensembles de rates se recouvrent peu. REJEU_FN_DEBUT (demarrer a un fn realiste) a ete essaye et retire : la recherche FB du rejeu suppose fn depuis 0 (0 FB accepte a fn=100000).
8.2.1.60 2026-09-30 10:45 — « (MO) SMS rejected » : meme cause que l’USSD
Run de 10:33, essai 1 du SMS MO a 10:37:03 : CM SERVICE REQUEST, CHANNEL REQUEST, puis « LOS during RACH request », MM avorte (cause 47), le mobile affiche « SMS to 100102 failed: (MO) SMS rejected » ; rien n’atteint le MSC. Essai 2 a 10:38:30 : RACH, IMMEDIATE ASSIGNMENT, SMS remis. C’est la resynchro FB+SB de gsm322 avant chaque RACH (1 essai) qui echoue une fois sur cinq avec un SB a ~80 % : le SMS, l’USSD et l’appel y passent tous, le rejeu du barreau (–essais 2) l’absorbe. Le fond reste le taux SB (voir 01:30). 80-sms-mo.sh garde desormais la sortie VTY de chaque essai (>>).
8.2.1.61 2026-09-30 10:55 — Voix : le ton EST dans le montant, 10 s trop tard ; le test regardait 12 s
Run de 10:33, calypso_add_ul.bin decode par tools/decoder_add.py ul : silence (RMS 13-90) pendant 13 s, puis le ton 1 kHz propre (RMS ~13000, 100 % de l’energie a 1000 Hz) de t=13 a t=17 s de l’appel. Recale sur l’heure murale (pont STATS fn=103984 <-> 10:42:23), le ton monte vers 10:42:21-10:42:28 alors qu’il a ete joue de 10:42:11 a 10:42:15 et que l’enregistrement du retour s’arretait a 10:42:20 : l’echo ne pouvait pas y etre. Le descendant vu dans la fenetre etait l’echo du silence tamponne, reencode. Donc : capture GAPK, firmware, a_du, conversion TI -> FR, pont, BTS, echo : tous BONS. Le defaut est une LATENCE d’environ 10 s sur le montant : les trames de parole montantes ont des trous (ecarts fn de 9 et 13 au lieu de 4-5, ~20 % des trames non produites), le codeur consomme l’audio moins vite que le temps reel et le tampon de capture grossit. La MGW le voit aussi (« input timestamp alignment error » a 10:42:27). 92-voix.sh : enregistrement 30 s (VOIX_REC_S), recherche du ton sur toute la duree, latence dans le verdict. A chercher ensuite : pourquoi ~20 % des trames TCH montantes manquent (prendre_ul/a_du vs cadence du firmware, B_PLAY_UL).
8.2.1.62 2026-09-30 11:20 — Voix : la boucle marche, echo compris ; le test injectait le ton pendant l’annonce d’Asterisk
Appel de 10:54 (run 10:45), trois chronologies recalees sur l’heure murale (pont STATS fn=107288 <-> 10:55:00) : * descendant a_dd : 10:54:47 -> 10:55:09, RMS ~3300, raies 200-400 Hz = la VOIX de l’annonce demo-echotest (22 s, /usr/share/asterisk/sounds/en/demo-echotest.gsm), jouee par l’extension 600 (extensions.conf:291-294 : Answer, Playback, Echo(), Playback) ; puis silence quand le montant est silencieux ; puis ce que le micro a capte a 10:55:13-14 revient a 10:55:11-14 + 1-2 s (DL 24 s, 27 s) ; * montant a_du : ton 1 kHz propre 10:55:01 -> 10:55:05 pour un paplay 10:54:59 -> 10:55:03 : latence montant ~2 s sur ce run (2000 trames UL pour 1880 attendues, aucun trou). Les 10 s de 10:42 venaient des ~20 % de trames UL manquantes de ce run-la (file de capture qui grossit) : intermittent, a garder a l’oeil, pas bloquant ; * le « ton retrouve a t=8 s, 19 % » du verdict etait la voix de l’annonce. Donc micro, GAPK, firmware, montant.c, pont, BTS, MGW, Asterisk, echo, ROM, mobile, sortie audio : TOUS bons. Le banc tirait 19 s trop tot. 92-voix.sh : attend le silence descendant (fin d’annonce, VOIX_ATTENTE_ANNONCE_S, 30 s max) avant la reference et le ton ; enregistrement 15 s (VOIX_REC_S). Le BFI a 100 % reste un artefact de compteur (a_dd bit-exact, firmware ne le lit pas).
8.2.1.63 2026-09-30 11:05 — SB : deux formes d’onde, deux tentatives ; la « seconde chance » est codee
Rejeu, 8000 trames, 209 SCH, neuf variantes de forme d’onde comparees par l’ensemble de leurs SCH rates (SBresp, snr > 1000) : * A (SYM 1.0, DEC 0.35, bruit 3000) : 42 rates (20 %) ; D (A + traine causale 0.8, 0.4) : 35 (17 %) ; E (SYM 0.3 + traine 0.3, 0.1) : 35 ; * la meme forme A avec une autre graine de bruit : 61 et 57 rates, dont seulement 19-22 communs avec A -> les rates sont en bonne partie MARGINAUX ; * rates communs des meilleures paires : A+D 15 (7 %), C+D 16, A3+C 17 ; triplets : 8-10 (4-5 %). Le firmware poste deja deux taches SB sur deux trames consecutives, mais la premiere tombe sur la trame FCCH. calypso_bsp.c (bsp_ts0_service) : quand la trame a jouer est un FCCH et que la DMA est armee en one-shot >= 190 (fenetre SB de la tentative 1), on livre le SCH de la trame suivante (deja dans l’anneau) en forme D ; au tick suivant on lit a_sch dans l’API RAM (B_BLUD sans CRC, T2 <= 25, T3’ <= 4) : decode -> offset ARM-tick recale d’une trame (fn_sch - tick), flux contigu ; rate -> le SCH natif part en tentative 2 en forme A. Attendu : ~93 % de cycles FBSB reussis au lieu de ~80 %, donc des RACH qui ne tombent presque plus en LOS. CALYPSO_BSP_SB_DOUBLE=0 coupe. A lire au prochain run : lignes « [sbwin] SECONDE CHANCE … DECODE / rate », ratio « => SB » / FBSB_REQ dans osmocon.log, « LOS during RACH » dans mobile.log. Non teste hors banc : le rejeu ne passe pas par bsp_ts0_service.
8.2.1.64 2026-09-30 11:40 — Seconde chance, run de 11:34 : elle se declenche (43 fois, 30 decodes en tentative 1) mais ne gagnait rien
osmocon : 31 SB / 55 FBSB_REQ, comme avant ; SB1 27, SB2 4. Cause lue dans dsp.log : bsp_ts0_livrer() recale l’offset ARM-tick des qu’un SCH part dans une fenetre SB ; la livraison de seconde chance (SCH fn+1 au tick de la trame FCCH fn) le faisait donc avancer d’une trame AVANT le verdict de la ROM. Quand la forme D ratait (13 fois), le tick suivant livrait fn+2 et la tentative 2 voyait un burst normal (a_sch 8100 0172 86be 0060, TOA 23 SNR 427 = « pas de burst ») : D remplacait A au lieu de s’y ajouter. Correctif : offset sauve et restaure autour de la livraison de seconde chance ; le recalage n’a lieu qu’au tick suivant sur CRC OK lu dans l’API RAM (deja code). Attendu : ~30 + 13 x 0.8 = ~40 SB sur 43 cycles avec seconde chance.
8.2.1.65 2026-09-30 11:55 — Run de 11:37 : plus aucun LOS pendant le RACH ; un appel sur trois perd la FACCH descendante ; garde-fou de temps dans le banc
- Seconde chance corrigee (offset restaure) : 34 declenchements, 28 decodes en tentative 1, 6 replis ; osmocon SB1 25 / SB2 6 ; TOUS les CHANNEL REQUEST du run (SMS, paging, USSD x2, appels) ont eu leur IMMEDIATE ASSIGNMENT, zero « LOS during RACH request ». Le trou de resynchro avant RACH est ferme en pratique.
- Appel de 11:42:46 rate : SETUP recu par le MSC, ASSIGNMENT COMMAND vers TCH TS2, le mobile bascule et envoie SABM sur la FACCH (ASSIGNMENT COMPLETE en attente de l’etablissement) ; SABM repete 5 fois, jamais de UA : MDL-Error T200 a 11:42:55, ASSIGNMENT FAILURE, retour SDCCH, puis LOS dedie a 11:43:10. La BTS a bien repondu (le moniteur du pont decode 4 FACCH descendantes = les UA) ; la ROM n’a leve aucun a_fd pendant l’appel, alors que la SACCH du meme TCH passait a chaque bloc (donc fn et COUNT A5 justes : l’horloge n’est pas en cause). Les deux appels suivants (11:48, 11:49) passent : intermittent, c’est la FACCH descendante sur TCH du 23/09 20:40. A chercher dans le decodage TCH de la ROM (a_fd / stealing flags), pas dans la synchro.
- banc-max.sh : chaque barreau tourne sous surveillance (MOD_TIMEOUT, defaut 240 s, verdict ECHEC « timeout » au-dela) ; 90-appel.sh borne sa boucle en secondes (CALL_MAX) et non en tours de VTY.
8.2.1.66 2026-09-30 12:05 — Seconde chance : desactivee par defaut ; les appels de plus de 30 s tombaient
Run de 11:37 (binaire 11:36, seconde chance active) : zero « LOS during RACH » sur tout le run (SMS, paging, USSD x2, appels : tous les CHANNEL REQUEST servis), mais les deux appels de la voix tombent a ~30 s en « LOS during dedicated mode » (compteur SACCH 31 -> 0 en 15 s) avec un TCH descendant qui se degrade progressivement (a_dd err 19 -> 65 -> 91, FIRE=1, ko 0 -> 370). Le pont, lui, decode SACCH et TCH descendants et garde une marge DL >= 11 trames. Tous les appels des runs SANS seconde chance (00:14, 10:54) tenaient 40 s et plus avec le compteur a 31. Mecanisme suspecte : chaque decode en tentative 1 avance d’une trame l’index que le DSP reclame a la BTS (offset ARM-tick -673 -> -638 sur le run, 35 fois) ; la marge du pont ne se refait pas (la BTS ne va pas plus vite que le temps reel) et la boucle d’horloge pousse la BTS (avance visee 14 -> 27). Non prouve : a confirmer par A/B (CALYPSO_BSP_SB_DOUBLE=1). En attendant : defaut 0, et jamais en canal dedie (g_dedie_tn > 0). Le taux SB revient a ~74-80 % par SCH et le RACH retombe a ~1 echec sur 5, absorbe par –essais 2 et attendre_service(). L’echec de l’appel de 11:42 (FACCH descendante non decodee par la ROM, SABM repete, UA emis par la BTS) est independant : intermittent, point du 23/09.
8.2.1.67 2026-09-30 12:45 — Le ton casse le son : IT trame perdue, compteur TDMA du firmware decale d’une trame ; correctif dans qosmo (INTH + pont QEMU)
Symptome (appels de 12:09, run 11:57, et de 12:26, manuel) : des que le ton est injecte dans gsm_mic, la parole descendante devient du bruit (a_dd err 20-30 -> 70-95, FIRE), la ROM leve des FACCH a faux (a_fd BLUD=1 FIRE=1 a chaque bloc), la SACCH/TF ne passe plus (LOSS 31 -> 0), LOS ~15 s plus tard. Le montant s’effondre en meme temps (a_du une trame sur trois). Le pont, lui, garde sa marge DL (min +13) et le DSP tient 4,62 ms/trame. Preuve : la trace [a5] passe de « ecart +1 » (COUNT = dernier depot + 1, regime de tous les appels reussis) a « ecart 0 » exactement au moment de la bascule (#20500 fn=53467 le 12:26 ; #30500 fn=153420 le 12:09, avec alternance 0/+1 pendant ~1000 trames puis 0 pour de bon). Ecart 0 = la ROM lit une page W dont a_a5fn vaut fn-1 : le firmware est UNE TRAME EN RETARD sur l’interface radio. Il n’y a pas de correction possible de son cote : osmocom-bb ne detecte pas une IT trame manquee, l1s.next_time avance d’une unite par l1_sync(). Une IT trame perdue = glissement permanent jusqu’a la fin du canal. Comment on la perdait : calypso_trx.c leve l’IT trame TPU (IRQ 4) en impulsion de 1 ms (FRAME_IRQ_PULSE_NS) ; le firmware la configure sur FRONT (irq_config(IRQ_TPU_FRAME, 1, 1, 0)), mais le modele INTH (hw/intc/ calypso_inth.c) effacait le bit IT_REG a la retombee de la ligne, comme une source de niveau. Si l’ARM etait dans un traitement de plus d’1 ms sous IRQ masquees – la reception UART/L1CTL des TRAFFIC_REQ, en rafales quand paplay alimente le puits nul –, l’IT etait perdue ; au bout de 256 attentes (74 ms, la creux de -12 trames que le pont voit a 12:10:07) le GO etait envoye « quand meme » et la cible d’EOI recalee : le glissement s’installait sans une ligne de plus (le message n’etait imprime qu’une fois par run). Correctif (qosmo, l’ARM et la ROM ne bougent pas) : * calypso_inth.c : une source configuree sur front (ILR bit 1) parmi 4/5/15 reste memorisee jusqu’a la lecture d’IRQ_NUM. Plus d’IT trame perdue. Accesseur calypso_inth_irq_pending(). * calypso_trx.c : au-dela de 256 attentes, on n’envoie plus le GO avec une page perimee ; on attend l1_sync jusqu’a 32 x 256 essais (~2,4 s) en servant les UART, avec trace « on attend au lieu de forcer le GO » puis « finie apres N attentes » (20 premieres). Le temps mural perdu se paye en trames BTS trop tardives chez le BSP (perte radio, que le firmware sait absorber), pas en glissement TDMA. Le forcage ne reste que pour un ARM mort (message aux 20 premieres puis toutes les 2170). A verifier au prochain run (redemarrage de la pile : barreau 1) : [a5] ecart +1 sur tout l’appel voix, qemu.log sans « GO envoye quand meme », et le ton qui revient (92-voix). Si des « on attend » apparaissent dans qemu.log, leur duree dit combien l’ARM est en retard a l’injection du ton. Note : le modele INTH decode ILR a l’envers du firmware (FIQ lu au bit 8, prio aux bits 0-4, alors que le firmware ecrit prio<<2 | edge<<1 | fiq) : l’IT trame est servie comme IRQ et non comme FIQ, donc elle ne preempte pas le traitement UART – c’est ce qui rend le retard possible. Pas touche : la comptabilite EOI (frame_eoi sur IRQ_NUM) en depend. A reprendre si le retard reste visible.
Reponses aux points de couverture demandes : * « retour BSP sur le SDCCH : NON OBSERVE » : normal. montant.c ne rend le SDCCH au BSP que si le firmware reposte une tache ALLC pendant un TCH, ce qui n’arrive que sur ASSIGNMENT FAILURE (retour a l’ancien canal, 04.08 3.4.3.3, vu une fois le 11:42). Un appel normal finit par CHANNEL RELEASE. Ligne de 99-couverture.sh annotee « attendu absent ». * « TCH/F descendant : qualite (B_BFI) NON GERE » : la sonde [a_dd] montre BFI=1 sur 100 % des trames, y compris err=0, et err ~28 en regime normal (~6 % de 456, soit un burst sur huit a moitie faux ou 3-4 bits en bord de chaque burst) alors que les 260 bits sont exacts. Le BFI est donc une metrique de qualite de la ROM sur des bursts synthetiques trop propres ou mal bordes, pas une erreur de donnees. Outillage pose pour l’etudier hors banc : tools/rejeu_banc (recompile, sans cible Makefile : commande dans README) imprime desormais a_dd (BFI, erreurs ; REJEU_PAROLE=1 par trame) ; l’enregistrement /dev/shm/calypso_rejeu_tch.bin peut se limiter au TCH (CALYPSO_REJEU_ENREG=tch) et son plafond se regler (CALYPSO_REJEU_ENREG_MAX) – le run de 11:57 avait rempli ses 60000 livraisons avec les SDCCH du debut (fn 1376..34942), aucun TCH dedans. Le rejeu de cet enregistrement donne 23 SACCH/8 toutes Fire KO avec err 79-100 la ou le banc les decodait : le rejeu n’est pas encore fidele sur le SDCCH (Kc / etat ‘D’ ?), a regarder avant de s’en servir pour le BFI.
8.3 /opt/GSM/c54x_exe/README.md
5049 octets, 100 lignes
8.3.1 c54x_exe — the Calypso DSP, run as a native process
c54x_exe runs the original TI mask ROM of the TMS320C54x DSP found in Calypso GSM basebands (the chips behind OsmocomBB’s Motorola C1xx targets), on a C54x core emulator, as a plain Linux process. It can run alone, replaying recorded bursts in milliseconds, or serve as the DSP of a full phone: the unmodified OsmocomBB layer 1 firmware runs under QEMU and talks to this process through the real shared API RAM, frame by frame, exactly as the ARM talks to the DSP on silicon. No radio, no SDR, no license anywhere in the chain.
State on 2026-09-23 (runs recorded in docs/README.fr.md and MAILBOX.md): cell selection, location update, SMS in both directions, mobile-originated and mobile-terminated voice calls with A5/1 confirmed by the network, speech audible both ways. Open: the ROM flags every downlink speech frame as bad (BFI) although speech is intelligible, and the SB window is armed rarely enough that sync takes a few tries.
8.3.1.1 Architecture
osmo-bts-trx ── TRXD (UDP 5700-5702) ──▶ pont_dsp.py ── UDP 6702 ──▶ c54x_exe
+ Osmocom core (osmo-operator) │ BSP: bits → GMSK I/Q
│ C54x core + TI mask ROM
│ API RAM (/dev/shm/calypso_api_ram)
│ lockstep (/tmp/calypso_dsp.sock)
▼
osmocon ◀── serial ── qosmo (QEMU, Calypso machine, CALYPSO_DSP_EXTERN=1)
│ └─ OsmocomBB layer1.highram, unmodified
mobile (OsmocomBB layer 2/3)- Downlink: bursts leave the BTS as bits, the bridge forwards them, the BSP turns them into GMSK samples, and the ROM does what it does on a phone: FCCH/SCH detection, BCCH, TCH/F decoding, A5.
- ARM ↔︎ DSP: the ROM’s API RAM window is memory-mapped and shared with QEMU. Both sides advance one TDMA frame at a time over a Unix socket; the per-frame sequence mirrors
calypso_tdma_tick()of the in-QEMU DSP, so any divergence is localised (src/pont.c). - Uplink: reconstructed on the host by scanning the API RAM once per frame (
src/montant.c) — RACH, SDCCH, SACCH, FACCH and speech (TI format → FR) are published to/dev/shmand encoded by the bridge. This is the part the silicon does in the DSP and we do not, yet. - Every deliberate departure from silicon behaviour is an environment variable, listed at startup (
hacks_actifs()insrc/pont.c).
8.3.1.2 Building
The C54x core, the Calypso peripherals and the DSP glue live in qosmo (hw/arm/calypso/l1-dsp/) and are compiled from there — nothing is copied into this tree, on purpose.
# needs: qosmo checked out (default /opt/GSM/qosmo), libosmocore + libosmocoding, gcc
make # QOSMO=/path/to/qosmo make
./c54x_exe --trames 200 # the ROM alone, no ARM: does it boot, what does it write?
./c54x_exe --helpThe ROM images (rom/calypso_dsp.*.bin) are dumps of the TI mask ROM at their silicon addresses (src/main.c, ROMS[]).
8.3.1.3 Running a phone
./run.sh # DSP + QEMU + osmocon + mobile, in order; logs in /tmp/c54x-pont/
PONT=1 ./run.sh # + the TRX bridge, against a running osmo-bts-trx / core network
./run.sh --status | --logs | --stopProcess-by-process launch, expected log lines and checks: LAUNCH.md. The bridge and the network side are in osmo-operator.
8.3.1.4 Benches and tools
| what | where |
|---|---|
| Replay the ROM alone on a recorded FB/SB acquisition, deterministic, no QEMU | ./c54x_exe --rejouer, src/rejouer.c |
| Replay a recorded dedicated-channel session (TCH) through the ROM | tools/rejeu_banc.c |
| C54x instruction-level tests (the bugs they caught are listed in the source) | tools/isa_test.c, tools/isa_tests.txt |
| Bit-by-bit comparison: what the ROM decodes vs. libosmocoding on the same bursts | tools/comparer_parole.py |
| CCH interleaving reference vectors | tools/cch_ref/ |
Trace levels of the core, -v … -vvvvvv |
src/verbosite.c |
8.3.1.5 Repository layout
src/ main.c (ROM loading, CLI), pont.c (ARM/DSP bridge, per-frame sequence),
montant.c (uplink from API RAM), cellule.c (synthetic FCCH/SCH/BCCH),
rejouer.c (replay), verbosite.c (trace levels)
rom/ TI mask ROM dumps
tools/ benches, test vectors, analysis scripts
docs/ README.fr.md — the detailed, dated engineering notes (French)
LAUNCH.md process-by-process launch guide
MAILBOX.md dated log of hypotheses, refutations and measurements8.3.1.6 License
GPL-2.0-or-later, see LICENSE.
8.4 /opt/GSM/c54x_exe/balayage.tsv
1415 octets, 49 lignes → 13 lignes (2 groupes compactés)
decalage unique phase marge rx_avant daram_len vraies crc_ok sb_tentees fb_acceptees
-1 ⟨1⟩ 0.⟨2⟩ ⟨3⟩ 0 380 0 ⟨4⟩ ⟨5⟩ ⟨6⟩ ×24
⟨⟩ = (0,0,0,2,58,63) (0,0,21,1,57,60) (0,0,41,0,58,61) (0,25,0,5,56,61) (0,25,21,3,57,61)
(0,25,41,5,56,63) (0,5,0,7,54,62) (0,5,21,7,57,62) (0,5,41,3,57,60) (0,75,0,9,53,60) (0,75,21,1,58,61)
(0,75,41,11,51,60) (1,0,0,2,29,62) (1,0,21,2,29,62) (1,0,41,1,29,63) (1,25,0,1,30,62)
(1,25,21,2,29,60) (1,25,41,3,30,63) (1,5,0,2,30,62) (1,5,21,2,30,61) (1,5,41,1,29,61) (1,75,0,1,29,60)
(1,75,21,2,30,61) (1,75,41,8,30,63)
0 ⟨1⟩ 0.⟨2⟩ ⟨3⟩ 0 380 0 ⟨4⟩ ⟨5⟩ ⟨6⟩ ×24
⟨⟩ = (0,0,0,5,55,62) (0,0,21,1,57,63) (0,0,41,1,57,61) (0,25,0,2,57,61) (0,25,21,5,56,59)
(0,25,41,2,58,60) (0,5,0,1,57,60) (0,5,21,2,57,61) (0,5,41,2,56,62) (0,75,0,12,53,60)
(0,75,21,8,57,60) (0,75,41,3,57,60) (1,0,0,1,29,63) (1,0,21,1,29,60) (1,0,41,1,29,61) (1,25,0,1,29,61)
(1,25,21,3,29,61) (1,25,41,2,29,62) (1,5,0,2,29,61) (1,5,21,2,29,60) (1,5,41,2,29,60) (1,75,0,5,29,62)
(1,75,21,1,29,61) (1,75,41,5,29,60)8.5 /opt/GSM/c54x_exe/balayage_full.tsv
23719 octets, 851 lignes → 215 lignes (1 groupes compactés)
decalage unique phase marge rx_avant daram_len vraies crc_ok sb_tentees fb_acceptees
-⟨1⟩ ⟨2⟩ 0.⟨3⟩ ⟨4⟩ ⟨5⟩ ⟨6⟩ 0 ⟨7⟩ ⟨8⟩ ⟨9⟩ ×850
⟨⟩ = (3,0,0,0,0,296,0,64,66) (3,0,0,0,0,380,0,64,66) (3,0,0,0,1,296,0,58,60) (3,0,0,0,1,380,0,58,60)
(3,0,0,10,0,296,2,62,67) (3,0,0,10,0,380,2,62,67) (3,0,0,10,1,296,2,55,60) (3,0,0,10,1,380,2,55,60)
(3,0,0,21,0,296,1,64,67) (3,0,0,21,0,380,1,64,67) (3,0,0,21,1,296,0,58,60) (3,0,0,21,1,380,0,58,60)
(3,0,0,30,0,296,0,64,66) (3,0,0,30,0,380,0,64,66) (3,0,0,30,1,296,0,58,59) (3,0,0,30,1,380,0,58,59)
(3,0,0,41,0,296,1,67,71) (3,0,0,41,0,380,1,67,71) (3,0,0,41,1,296,3,57,59) (3,0,0,41,1,380,3,57,59)
(3,0,1,0,0,296,2,67,70) (3,0,1,0,0,380,2,67,70) (3,0,1,0,1,296,3,57,60) (3,0,1,0,1,380,3,57,60)
(3,0,1,10,0,296,2,61,66) (3,0,1,10,0,380,2,61,66) (3,0,1,10,1,296,0,58,62) (3,0,1,10,1,380,0,58,62)
(3,0,1,21,0,296,0,64,67) (3,0,1,21,0,380,0,64,67) (3,0,1,21,1,296,2,57,59) (3,0,1,21,1,380,2,57,59)
(3,0,1,30,0,296,4,65,70) (3,0,1,30,0,380,4,65,70) (3,0,1,30,1,296,1,57,59) (3,0,1,30,1,380,1,57,59)
(3,0,1,41,0,296,1,65,70) (3,0,1,41,0,380,1,65,70) (3,0,1,41,1,296,4,57,60) (3,0,1,41,1,380,4,57,60)
(3,0,2,0,0,296,2,62,64) (3,0,2,0,0,380,2,62,64) (3,0,2,0,1,296,0,58,61) (3,0,2,0,1,380,0,58,61)
(3,0,2,10,0,296,2,62,63) (3,0,2,10,0,380,2,62,63) (3,0,2,10,1,296,2,56,63) (3,0,2,10,1,380,2,56,63)
(3,0,2,21,0,296,0,64,65) (3,0,2,21,0,380,0,64,65) (3,0,2,21,1,296,5,57,60) (3,0,2,21,1,380,5,57,60)
(3,0,2,30,0,296,4,59,64) (3,0,2,30,0,380,4,59,64) (3,0,2,30,1,296,3,56,60) (3,0,2,30,1,380,3,56,60)
(3,0,2,41,0,296,8,62,70) (3,0,2,41,0,380,8,62,70) (3,0,2,41,1,296,0,58,62) (3,0,2,41,1,380,0,58,62)
(3,0,3,0,0,296,1,62,65) (3,0,3,0,0,380,1,62,65) (3,0,3,0,1,296,2,55,59) (3,0,3,0,1,380,2,55,59)
(3,0,3,10,0,296,1,67,71) (3,0,3,10,0,380,1,67,71) (3,0,3,10,1,296,2,57,59) (3,0,3,10,1,380,2,57,59)
(3,0,3,21,0,296,1,61,65) (3,0,3,21,0,380,1,61,65) (3,0,3,21,1,296,2,54,60) (3,0,3,21,1,380,2,54,60)
(3,0,3,30,0,296,2,65,69) (3,0,3,30,0,380,2,65,69) (3,0,3,30,1,296,0,58,61) (3,0,3,30,1,380,0,58,61)
(3,0,3,41,0,296,4,63,68) (3,0,3,41,0,380,4,63,68) (3,0,3,41,1,296,3,56,59) (3,0,3,41,1,380,3,56,59)
(3,0,4,0,0,296,3,66,68) (3,0,4,0,0,380,3,66,68) (3,0,4,0,1,296,2,58,59) (3,0,4,0,1,380,2,58,59)
(3,0,4,10,0,296,0,66,67) (3,0,4,10,0,380,0,66,67) (3,0,4,10,1,296,2,57,61) (3,0,4,10,1,380,2,57,61)
(3,0,4,21,0,296,3,65,67) (3,0,4,21,0,380,3,65,67) (3,0,4,21,1,296,1,57,59) (3,0,4,21,1,380,1,57,59)
(3,0,4,30,0,296,3,62,67) (3,0,4,30,0,380,3,62,67) (3,0,4,30,1,296,6,54,61) (3,0,4,30,1,380,6,54,61)
(3,0,4,41,0,296,4,61,67) (3,0,4,41,0,380,4,61,67) (3,0,4,41,1,296,1,57,59) (3,0,4,41,1,380,1,57,59)
(3,0,5,0,0,296,4,64,72) (3,0,5,0,0,380,4,64,72) (3,0,5,0,1,296,1,58,61) (3,0,5,0,1,380,1,58,61)
(3,0,5,10,0,296,2,64,67) (3,0,5,10,0,380,2,64,67) (3,0,5,10,1,296,3,56,60) (3,0,5,10,1,380,3,56,60)
(3,0,5,21,0,296,1,66,69) (3,0,5,21,0,380,1,66,69) (3,0,5,21,1,296,1,58,59) (3,0,5,21,1,380,1,58,59)
(3,0,5,30,0,296,0,64,65) (3,0,5,30,0,380,0,64,65) (3,0,5,30,1,296,1,56,60) (3,0,5,30,1,380,1,56,60)
(3,0,5,41,0,296,5,61,68) (3,0,5,41,0,380,5,61,68) (3,0,5,41,1,296,0,58,58) (3,0,5,41,1,380,0,58,58)
(3,0,6,0,0,296,3,65,69) (3,0,6,0,0,380,3,65,69) (3,0,6,0,1,296,0,58,59) (3,0,6,0,1,380,0,58,59)
(3,0,6,10,0,296,4,63,67) (3,0,6,10,0,380,4,63,67) (3,0,6,10,1,296,3,56,62) (3,0,6,10,1,380,3,56,62)
(3,0,6,21,0,296,1,64,68) (3,0,6,21,0,380,1,64,68) (3,0,6,21,1,296,1,57,59) (3,0,6,21,1,380,1,57,59)
(3,0,6,30,0,296,4,65,70) (3,0,6,30,0,380,4,65,70) (3,0,6,30,1,296,0,58,59) (3,0,6,30,1,380,0,58,59)
(3,0,6,41,0,296,2,63,66) (3,0,6,41,0,380,2,63,66) (3,0,6,41,1,296,1,57,60) (3,0,6,41,1,380,1,57,60)
(3,0,7,0,0,296,3,66,70) (3,0,7,0,0,380,3,66,70) (3,0,7,0,1,296,1,58,61) (3,0,7,0,1,380,1,58,61)
(3,0,7,10,0,296,6,63,70) (3,0,7,10,0,380,6,63,70) (3,0,7,10,1,296,1,57,61) (3,0,7,10,1,380,1,57,61)
(3,0,7,21,0,296,2,68,70) (3,0,7,21,0,380,2,68,70) (3,0,7,21,1,296,1,57,61) (3,0,7,21,1,380,1,57,61)
(3,0,7,30,0,296,0,66,69) (3,0,7,30,0,380,0,66,69) (3,0,7,30,1,296,0,58,61) (3,0,7,30,1,380,0,58,61)
(3,0,7,41,0,296,3,67,70) (3,0,7,41,0,380,3,67,70) (3,0,7,41,1,296,1,57,60) (3,0,7,41,1,380,1,57,60)
(3,0,8,0,0,296,6,65,69) (3,0,8,0,0,380,6,65,69) (3,0,8,0,1,296,1,58,58) (3,0,8,0,1,380,1,58,58)
(3,0,8,10,0,296,1,60,62) (3,0,8,10,0,380,1,60,62) (3,0,8,10,1,296,2,56,60) (3,0,8,10,1,380,2,56,60)
(3,0,8,21,0,296,3,62,67) (3,0,8,21,0,380,3,62,67) (3,0,8,21,1,296,2,58,59) (3,0,8,21,1,380,2,58,59)
(3,0,8,30,0,296,2,61,64) (3,0,8,30,0,380,2,61,64) (3,0,8,30,1,296,1,58,59) (3,0,8,30,1,380,1,58,59)
(3,0,8,41,0,296,2,61,66) (3,0,8,41,0,380,2,61,66) (3,0,8,41,1,296,2,57,61) (3,0,8,41,1,380,2,57,61)
(3,0,9,0,0,296,1,62,63) (3,0,9,0,0,380,1,62,63) (3,0,9,0,1,296,2,58,59) (3,0,9,0,1,380,2,58,59)
(3,0,9,10,0,296,1,63,66) (3,0,9,10,0,380,1,63,66) (3,0,9,10,1,296,1,57,59) (3,0,9,10,1,380,1,57,59)
(3,0,9,21,0,296,6,60,67) (3,0,9,21,0,380,6,60,67) (3,0,9,21,1,296,2,58,59) (3,0,9,21,1,380,2,58,59)
(3,0,9,30,0,296,3,60,65) (3,0,9,30,0,380,3,60,65) (3,0,9,30,1,296,0,58,60) (3,0,9,30,1,380,0,58,60)
(3,0,9,41,0,296,4,64,68) (3,0,9,41,0,380,4,64,68) (3,0,9,41,1,296,1,57,59) (3,0,9,41,1,380,1,57,59)
(3,1,0,0,0,296,1,37,78) (3,1,0,0,0,380,1,37,78) (3,1,0,0,1,296,1,29,60) (3,1,0,0,1,380,1,29,60)
(3,1,0,10,0,296,2,37,75) (3,1,0,10,0,380,2,37,75) (3,1,0,10,1,296,1,29,61) (3,1,0,10,1,380,1,29,61)
(3,1,0,21,0,296,2,37,77) (3,1,0,21,0,380,2,37,77) (3,1,0,21,1,296,1,29,59) (3,1,0,21,1,380,1,29,59)
(3,1,0,30,0,296,1,36,74) (3,1,0,30,0,380,1,36,74) (3,1,0,30,1,296,1,29,60) (3,1,0,30,1,380,1,29,60)
(3,1,0,41,0,296,2,36,74) (3,1,0,41,0,380,2,36,74) (3,1,0,41,1,296,1,29,61) (3,1,0,41,1,380,1,29,61)
(3,1,1,0,0,296,1,36,75) (3,1,1,0,0,380,1,36,75) (3,1,1,0,1,296,1,29,61) (3,1,1,0,1,380,1,29,61)
(3,1,1,10,0,296,1,37,76) (3,1,1,10,0,380,1,37,76) (3,1,1,10,1,296,2,29,60) (3,1,1,10,1,380,2,29,60)
(3,1,1,21,0,296,4,37,75) (3,1,1,21,0,380,4,37,75) (3,1,1,21,1,296,1,29,61) (3,1,1,21,1,380,1,29,61)
(3,1,1,30,0,296,1,38,79) (3,1,1,30,0,380,1,38,79) (3,1,1,30,1,296,1,29,59) (3,1,1,30,1,380,1,29,59)
(3,1,1,41,0,296,3,37,76) (3,1,1,41,0,380,3,37,76) (3,1,1,41,1,296,1,29,60) (3,1,1,41,1,380,1,29,60)
(3,1,2,0,0,296,1,37,77) (3,1,2,0,0,380,1,37,77) (3,1,2,0,1,296,1,30,62) (3,1,2,0,1,380,1,30,62)
(3,1,2,10,0,296,1,36,73) (3,1,2,10,0,380,1,36,73) (3,1,2,10,1,296,2,30,62) (3,1,2,10,1,380,2,30,62)
(3,1,2,21,0,296,2,36,73) (3,1,2,21,0,380,2,36,73) (3,1,2,21,1,296,1,29,62) (3,1,2,21,1,380,1,29,62)
(3,1,2,30,0,296,3,36,75) (3,1,2,30,0,380,3,36,75) (3,1,2,30,1,296,2,30,64) (3,1,2,30,1,380,2,30,64)
(3,1,2,41,0,296,1,36,74) (3,1,2,41,0,380,1,36,74) (3,1,2,41,1,296,1,29,60) (3,1,2,41,1,380,1,29,60)
(3,1,3,0,0,296,1,37,76) (3,1,3,0,0,380,1,37,76) (3,1,3,0,1,296,2,29,61) (3,1,3,0,1,380,2,29,61)
(3,1,3,10,0,296,2,36,77) (3,1,3,10,0,380,2,36,77) (3,1,3,10,1,296,1,29,59) (3,1,3,10,1,380,1,29,59)
(3,1,3,21,0,296,1,37,77) (3,1,3,21,0,380,1,37,77) (3,1,3,21,1,296,3,29,60) (3,1,3,21,1,380,3,29,60)
(3,1,3,30,0,296,2,38,77) (3,1,3,30,0,380,2,38,77) (3,1,3,30,1,296,2,29,60) (3,1,3,30,1,380,2,29,60)
(3,1,3,41,0,296,2,38,79) (3,1,3,41,0,380,2,38,79) (3,1,3,41,1,296,2,29,60) (3,1,3,41,1,380,2,29,60)
(3,1,4,0,0,296,1,37,76) (3,1,4,0,0,380,1,37,76) (3,1,4,0,1,296,1,29,61) (3,1,4,0,1,380,1,29,61)
(3,1,4,10,0,296,2,35,72) (3,1,4,10,0,380,2,35,72) (3,1,4,10,1,296,1,29,60) (3,1,4,10,1,380,1,29,60)
(3,1,4,21,0,296,2,37,76) (3,1,4,21,0,380,2,37,76) (3,1,4,21,1,296,3,30,63) (3,1,4,21,1,380,3,30,63)
(3,1,4,30,0,296,1,37,78) (3,1,4,30,0,380,1,37,78) (3,1,4,30,1,296,1,29,59) (3,1,4,30,1,380,1,29,59)
(3,1,4,41,0,296,2,37,75) (3,1,4,41,0,380,2,37,75) (3,1,4,41,1,296,2,29,58) (3,1,4,41,1,380,2,29,58)
(3,1,5,0,0,296,3,37,76) (3,1,5,0,0,380,3,37,76) (3,1,5,0,1,296,2,29,60) (3,1,5,0,1,380,2,29,60)
(3,1,5,10,0,296,2,36,74) (3,1,5,10,0,380,2,36,74) (3,1,5,10,1,296,1,28,60) (3,1,5,10,1,380,1,28,60)
(3,1,5,21,0,296,3,38,78) (3,1,5,21,0,380,3,38,78) (3,1,5,21,1,296,1,29,60) (3,1,5,21,1,380,1,29,60)
(3,1,5,30,0,296,1,37,77) (3,1,5,30,0,380,1,37,77) (3,1,5,30,1,296,1,29,60) (3,1,5,30,1,380,1,29,60)
(3,1,5,41,0,296,1,38,78) (3,1,5,41,0,380,1,38,78) (3,1,5,41,1,296,1,29,59) (3,1,5,41,1,380,1,29,59)
(3,1,6,0,0,296,1,38,77) (3,1,6,0,0,380,1,38,77) (3,1,6,0,1,296,1,29,61) (3,1,6,0,1,380,1,29,61)
(3,1,6,10,0,296,2,35,73) (3,1,6,10,0,380,2,35,73) (3,1,6,10,1,296,1,29,59) (3,1,6,10,1,380,1,29,59)
(3,1,6,21,0,296,1,37,76) (3,1,6,21,0,380,1,37,76) (3,1,6,21,1,296,1,28,59) (3,1,6,21,1,380,1,28,59)
(3,1,6,30,0,296,1,37,76) (3,1,6,30,0,380,1,37,76) (3,1,6,30,1,296,1,29,59) (3,1,6,30,1,380,1,29,59)
(3,1,6,41,0,296,1,36,76) (3,1,6,41,0,380,1,36,76) (3,1,6,41,1,296,1,29,59) (3,1,6,41,1,380,1,29,59)
(3,1,7,0,0,296,1,37,75) (3,1,7,0,0,380,1,37,75) (3,1,7,0,1,296,2,30,62) (3,1,7,0,1,380,2,30,62)
(3,1,7,10,0,296,1,38,78) (3,1,7,10,0,380,1,38,78) (3,1,7,10,1,296,2,30,61) (3,1,7,10,1,380,2,30,61)
(3,1,7,21,0,296,1,38,78) (3,1,7,21,0,380,1,38,78) (3,1,7,21,1,296,2,29,61) (3,1,7,21,1,380,2,29,61)
(3,1,7,30,0,296,1,41,83) (3,1,7,30,0,380,1,41,83) (3,1,7,30,1,296,1,30,61) (3,1,7,30,1,380,1,30,61)
(3,1,7,41,0,296,1,41,83) (3,1,7,41,0,380,1,41,83) (3,1,7,41,1,296,2,30,61) (3,1,7,41,1,380,2,30,61)
(3,1,8,0,0,296,2,37,77) (3,1,8,0,0,380,2,37,77) (3,1,8,0,1,296,1,29,60) (3,1,8,0,1,380,1,29,60)
(3,1,8,10,0,296,1,37,76) (3,1,8,10,0,380,1,37,76) (3,1,8,10,1,296,2,29,59) (3,1,8,10,1,380,2,29,59)
(3,1,8,21,0,296,1,38,78) (3,1,8,21,0,380,1,38,78) (3,1,8,21,1,296,2,29,60) (3,1,8,21,1,380,2,29,60)
(3,1,8,30,0,296,2,38,78) (3,1,8,30,0,380,2,38,78) (3,1,8,30,1,296,1,29,60) (3,1,8,30,1,380,1,29,60)
(3,1,8,41,0,296,5,37,76) (3,1,8,41,0,380,5,37,76) (3,1,8,41,1,296,3,29,60) (3,1,8,41,1,380,3,29,60)
(3,1,9,0,0,296,2,35,71) (3,1,9,0,0,380,2,35,71) (3,1,9,0,1,296,1,29,59) (3,1,9,0,1,380,1,29,59)
(3,1,9,10,0,296,2,37,77) (3,1,9,10,0,380,2,37,77) (3,1,9,10,1,296,1,29,60) (3,1,9,10,1,380,1,29,60)
(3,1,9,21,0,296,2,36,75) (3,1,9,21,0,380,2,36,75) (3,1,9,21,1,296,1,30,65) (3,1,9,21,1,380,1,30,65)
(3,1,9,30,0,296,1,37,76) (3,1,9,30,0,380,1,37,76) (3,1,9,30,1,296,1,29,59) (3,1,9,30,1,380,1,29,59)
(3,1,9,41,0,296,2,37,76) (3,1,9,41,0,380,2,37,76) (3,1,9,41,1,296,3,29,59) (3,1,9,41,1,380,3,29,59)
(2,0,0,0,0,296,1,58,62) (2,0,0,0,0,380,1,58,62) (2,0,0,0,1,296,2,58,60) (2,0,0,0,1,380,2,58,60)
(2,0,0,10,0,296,4,58,61) (2,0,0,10,0,380,4,58,61) (2,0,0,10,1,296,7,54,60) (2,0,0,10,1,380,7,54,60)
(2,0,0,21,0,296,1,59,63) (2,0,0,21,0,380,1,59,63) (2,0,0,21,1,296,2,57,60) (2,0,0,21,1,380,2,57,60)
(2,0,0,30,0,296,2,56,61) (2,0,0,30,0,380,2,56,61) (2,0,0,30,1,296,2,57,59) (2,0,0,30,1,380,2,57,59)
(2,0,0,41,0,296,0,58,63) (2,0,0,41,0,380,0,58,63) (2,0,0,41,1,296,3,57,61) (2,0,0,41,1,380,3,57,61)
(2,0,1,0,0,296,2,58,61) (2,0,1,0,0,380,2,58,61) (2,0,1,0,1,296,1,56,59) (2,0,1,0,1,380,1,56,59)
(2,0,1,10,0,296,2,57,63) (2,0,1,10,0,380,2,57,63) (2,0,1,10,1,296,4,55,58) (2,0,1,10,1,380,4,55,58)
(2,0,1,21,0,296,0,60,63) (2,0,1,21,0,380,0,60,63) (2,0,1,21,1,296,12,50,59) (2,0,1,21,1,380,12,50,59)
(2,0,1,30,0,296,2,58,62) (2,0,1,30,0,380,2,58,62) (2,0,1,30,1,296,6,52,59) (2,0,1,30,1,380,6,52,59)
(2,0,1,41,0,296,0,58,61) (2,0,1,41,0,380,0,58,61) (2,0,1,41,1,296,2,58,59) (2,0,1,41,1,380,2,58,59)
(2,0,2,0,0,296,5,56,60) (2,0,2,0,0,380,5,56,60) (2,0,2,0,1,296,8,54,61) (2,0,2,0,1,380,8,54,61)
(2,0,2,10,0,296,2,57,60) (2,0,2,10,0,380,2,57,60) (2,0,2,10,1,296,1,57,60) (2,0,2,10,1,380,1,57,60)
(2,0,2,21,0,296,3,59,63) (2,0,2,21,0,380,3,59,63) (2,0,2,21,1,296,0,58,61) (2,0,2,21,1,380,0,58,61)
(2,0,2,30,0,296,3,56,61) (2,0,2,30,0,380,3,56,61) (2,0,2,30,1,296,6,53,60) (2,0,2,30,1,380,6,53,60)
(2,0,2,41,0,296,2,58,62) (2,0,2,41,0,380,2,58,62) (2,0,2,41,1,296,1,57,60) (2,0,2,41,1,380,1,57,60)
(2,0,3,0,0,296,1,58,62) (2,0,3,0,0,380,1,58,62) (2,0,3,0,1,296,5,54,59) (2,0,3,0,1,380,5,54,59)
(2,0,3,10,0,296,1,58,61) (2,0,3,10,0,380,1,58,61) (2,0,3,10,1,296,3,54,60) (2,0,3,10,1,380,3,54,60)
(2,0,3,21,0,296,0,62,63) (2,0,3,21,0,380,0,62,63) (2,0,3,21,1,296,4,56,61) (2,0,3,21,1,380,4,56,61)
(2,0,3,30,0,296,4,59,64) (2,0,3,30,0,380,4,59,64) (2,0,3,30,1,296,2,54,59) (2,0,3,30,1,380,2,54,59)
(2,0,3,41,0,296,6,58,63) (2,0,3,41,0,380,6,58,63) (2,0,3,41,1,296,4,53,60) (2,0,3,41,1,380,4,53,60)
(2,0,4,0,0,296,0,60,61) (2,0,4,0,0,380,0,60,61) (2,0,4,0,1,296,2,57,60) (2,0,4,0,1,380,2,57,60)
(2,0,4,10,0,296,1,57,61) (2,0,4,10,0,380,1,57,61) (2,0,4,10,1,296,3,53,59) (2,0,4,10,1,380,3,53,59)
(2,0,4,21,0,296,1,59,64) (2,0,4,21,0,380,1,59,64) (2,0,4,21,1,296,1,56,61) (2,0,4,21,1,380,1,56,61)
(2,0,4,30,0,296,1,58,60) (2,0,4,30,0,380,1,58,60) (2,0,4,30,1,296,2,57,58) (2,0,4,30,1,380,2,57,58)
(2,0,4,41,0,296,1,58,60) (2,0,4,41,0,380,1,58,60) (2,0,4,41,1,296,0,58,59) (2,0,4,41,1,380,0,58,59)
(2,0,5,0,0,296,2,58,63) (2,0,5,0,0,380,2,58,63) (2,0,5,0,1,296,1,58,58) (2,0,5,0,1,380,1,58,58)
(2,0,5,10,0,296,1,58,61) (2,0,5,10,0,380,1,58,61) (2,0,5,10,1,296,4,53,58) (2,0,5,10,1,380,4,53,58)
(2,0,5,21,0,296,6,57,62) (2,0,5,21,0,380,6,57,62) (2,0,5,21,1,296,1,57,61) (2,0,5,21,1,380,1,57,61)
(2,0,5,30,0,296,0,60,65) (2,0,5,30,0,380,0,60,65) (2,0,5,30,1,296,1,58,61) (2,0,5,30,1,380,1,58,61)
(2,0,5,41,0,296,1,57,61) (2,0,5,41,0,380,1,57,61) (2,0,5,41,1,296,1,58,59) (2,0,5,41,1,380,1,58,59)
(2,0,6,0,0,296,1,60,63) (2,0,6,0,0,380,1,60,63) (2,0,6,0,1,296,5,56,58) (2,0,6,0,1,380,5,56,58)
(2,0,6,10,0,296,2,57,60) (2,0,6,10,0,380,2,57,60) (2,0,6,10,1,296,1,57,60) (2,0,6,10,1,380,1,57,60)
(2,0,6,21,0,296,4,59,62) (2,0,6,21,0,380,4,59,62) (2,0,6,21,1,296,2,57,61) (2,0,6,21,1,380,2,57,61)
(2,0,6,30,0,296,2,58,65) (2,0,6,30,0,380,2,58,65) (2,0,6,30,1,296,2,57,60) (2,0,6,30,1,380,2,57,60)
(2,0,6,41,0,296,0,60,62) (2,0,6,41,0,380,0,60,62) (2,0,6,41,1,296,3,56,59) (2,0,6,41,1,380,3,56,59)
(2,0,7,0,0,296,0,58,61) (2,0,7,0,0,380,0,58,61) (2,0,7,0,1,296,7,52,60) (2,0,7,0,1,380,7,52,60)
(2,0,7,10,0,296,2,58,60) (2,0,7,10,0,380,2,58,60) (2,0,7,10,1,296,7,52,60) (2,0,7,10,1,380,7,52,60)
(2,0,7,21,0,296,0,58,60) (2,0,7,21,0,380,0,58,60) (2,0,7,21,1,296,10,52,61) (2,0,7,21,1,380,10,52,61)
(2,0,7,30,0,296,0,58,60) (2,0,7,30,0,380,0,58,60) (2,0,7,30,1,296,3,56,60) (2,0,7,30,1,380,3,56,60)
(2,0,7,41,0,296,0,58,60) (2,0,7,41,0,380,0,58,60) (2,0,7,41,1,296,8,52,61) (2,0,7,41,1,380,8,52,61)
(2,0,8,0,0,296,2,56,60) (2,0,8,0,0,380,2,56,60) (2,0,8,0,1,296,0,58,59) (2,0,8,0,1,380,0,58,59)
(2,0,8,10,0,296,1,57,61) (2,0,8,10,0,380,1,57,61) (2,0,8,10,1,296,5,56,59) (2,0,8,10,1,380,5,56,59)
(2,0,8,21,0,296,4,59,61) (2,0,8,21,0,380,4,59,61) (2,0,8,21,1,296,7,54,59) (2,0,8,21,1,380,7,54,59)
(2,0,8,30,0,296,1,60,61) (2,0,8,30,0,380,1,60,61) (2,0,8,30,1,296,6,55,59) (2,0,8,30,1,380,6,55,59)
(2,0,8,41,0,296,1,59,62) (2,0,8,41,0,380,1,59,62) (2,0,8,41,1,296,4,54,59) (2,0,8,41,1,380,4,54,59)
(2,0,9,0,0,296,5,57,63) (2,0,9,0,0,380,5,57,63) (2,0,9,0,1,296,6,54,60) (2,0,9,0,1,380,6,54,60)
(2,0,9,10,0,296,2,56,60) (2,0,9,10,0,380,2,56,60) (2,0,9,10,1,296,8,54,61) (2,0,9,10,1,380,8,54,61)
(2,0,9,21,0,296,1,60,63) (2,0,9,21,0,380,1,60,63) (2,0,9,21,1,296,4,56,60) (2,0,9,21,1,380,4,56,60)
(2,0,9,30,0,296,3,57,62) (2,0,9,30,0,380,3,57,62) (2,0,9,30,1,296,3,57,59) (2,0,9,30,1,380,3,57,59)
(2,0,9,41,0,296,3,56,61) (2,0,9,41,0,380,3,56,61) (2,0,9,41,1,296,10,50,61) (2,0,9,41,1,380,10,50,61)
(2,1,0,0,0,296,2,33,68) (2,1,0,0,0,380,2,33,68) (2,1,0,0,1,296,1,29,60) (2,1,0,0,1,380,1,29,60)
(2,1,0,10,0,296,1,31,63) (2,1,0,10,0,380,1,31,63) (2,1,0,10,1,296,2,28,60) (2,1,0,10,1,380,2,28,60)
(2,1,0,21,0,296,1,32,67) (2,1,0,21,0,380,1,32,67) (2,1,0,21,1,296,1,29,60) (2,1,0,21,1,380,1,29,60)
(2,1,0,30,0,296,1,31,64) (2,1,0,30,0,380,1,31,64) (2,1,0,30,1,296,1,29,59) (2,1,0,30,1,380,1,29,59)
(2,1,0,41,0,296,2,31,65) (2,1,0,41,0,380,2,31,65) (2,1,0,41,1,296,2,29,59) (2,1,0,41,1,380,2,29,59)
(2,1,1,0,0,296,0,31,64) (2,1,1,0,0,380,0,31,64) (2,1,1,0,1,296,3,29,60) (2,1,1,0,1,380,3,29,60)
(2,1,1,10,0,296,0,32,67) (2,1,1,10,0,380,0,32,67) (2,1,1,10,1,296,1,29,61) (2,1,1,10,1,380,1,29,61)
(2,1,1,21,0,296,1,31,66) (2,1,1,21,0,380,1,31,66) (2,1,1,21,1,296,2,29,60) (2,1,1,21,1,380,2,29,60)
(2,1,1,30,0,296,2,30,66) (2,1,1,30,0,380,2,30,66) (2,1,1,30,1,296,1,29,61) (2,1,1,30,1,380,1,29,61)
(2,1,1,41,0,296,1,33,68) (2,1,1,41,0,380,1,33,68) (2,1,1,41,1,296,1,29,60) (2,1,1,41,1,380,1,29,60)
(2,1,2,0,0,296,1,33,68) (2,1,2,0,0,380,1,33,68) (2,1,2,0,1,296,2,29,62) (2,1,2,0,1,380,2,29,62)
(2,1,2,10,0,296,1,32,66) (2,1,2,10,0,380,1,32,66) (2,1,2,10,1,296,2,29,63) (2,1,2,10,1,380,2,29,63)
(2,1,2,21,0,296,1,33,71) (2,1,2,21,0,380,1,33,71) (2,1,2,21,1,296,0,29,61) (2,1,2,21,1,380,0,29,61)
(2,1,2,30,0,296,1,33,68) (2,1,2,30,0,380,1,33,68) (2,1,2,30,1,296,1,29,62) (2,1,2,30,1,380,1,29,62)
(2,1,2,41,0,296,2,31,66) (2,1,2,41,0,380,2,31,66) (2,1,2,41,1,296,1,29,60) (2,1,2,41,1,380,1,29,60)
(2,1,3,0,0,296,2,33,68) (2,1,3,0,0,380,2,33,68) (2,1,3,0,1,296,3,28,59) (2,1,3,0,1,380,3,28,59)
(2,1,3,10,0,296,1,30,63) (2,1,3,10,0,380,1,30,63) (2,1,3,10,1,296,2,29,59) (2,1,3,10,1,380,2,29,59)
(2,1,3,21,0,296,1,32,68) (2,1,3,21,0,380,1,32,68) (2,1,3,21,1,296,1,29,59) (2,1,3,21,1,380,1,29,59)
(2,1,3,30,0,296,1,32,68) (2,1,3,30,0,380,1,32,68) (2,1,3,30,1,296,2,29,61) (2,1,3,30,1,380,2,29,61)
(2,1,3,41,0,296,1,31,65) (2,1,3,41,0,380,1,31,65) (2,1,3,41,1,296,2,29,59) (2,1,3,41,1,380,2,29,59)
(2,1,4,0,0,296,2,34,71) (2,1,4,0,0,380,2,34,71) (2,1,4,0,1,296,2,29,59) (2,1,4,0,1,380,2,29,59)
(2,1,4,10,0,296,2,31,64) (2,1,4,10,0,380,2,31,64) (2,1,4,10,1,296,2,29,60) (2,1,4,10,1,380,2,29,60)
(2,1,4,21,0,296,1,31,64) (2,1,4,21,0,380,1,31,64) (2,1,4,21,1,296,1,29,59) (2,1,4,21,1,380,1,29,59)
(2,1,4,30,0,296,3,32,66) (2,1,4,30,0,380,3,32,66) (2,1,4,30,1,296,2,28,61) (2,1,4,30,1,380,2,28,61)
(2,1,4,41,0,296,0,33,69) (2,1,4,41,0,380,0,33,69) (2,1,4,41,1,296,3,29,60) (2,1,4,41,1,380,3,29,60)
(2,1,5,0,0,296,1,32,66) (2,1,5,0,0,380,1,32,66) (2,1,5,0,1,296,1,29,61) (2,1,5,0,1,380,1,29,61)
(2,1,5,10,0,296,1,31,63) (2,1,5,10,0,380,1,31,63) (2,1,5,10,1,296,2,29,60) (2,1,5,10,1,380,2,29,60)
(2,1,5,21,0,296,1,31,64) (2,1,5,21,0,380,1,31,64) (2,1,5,21,1,296,2,29,59) (2,1,5,21,1,380,2,29,59)
(2,1,5,30,0,296,1,31,65) (2,1,5,30,0,380,1,31,65) (2,1,5,30,1,296,2,28,60) (2,1,5,30,1,380,2,28,60)
(2,1,5,41,0,296,1,31,65) (2,1,5,41,0,380,1,31,65) (2,1,5,41,1,296,1,29,58) (2,1,5,41,1,380,1,29,58)
(2,1,6,0,0,296,1,32,68) (2,1,6,0,0,380,1,32,68) (2,1,6,0,1,296,1,29,59) (2,1,6,0,1,380,1,29,59)
(2,1,6,10,0,296,3,32,67) (2,1,6,10,0,380,3,32,67) (2,1,6,10,1,296,2,29,60) (2,1,6,10,1,380,2,29,60)
(2,1,6,21,0,296,2,33,68) (2,1,6,21,0,380,2,33,68) (2,1,6,21,1,296,1,29,59) (2,1,6,21,1,380,1,29,59)
(2,1,6,30,0,296,2,32,65) (2,1,6,30,0,380,2,32,65) (2,1,6,30,1,296,1,29,59) (2,1,6,30,1,380,1,29,59)
(2,1,6,41,0,296,5,32,65) (2,1,6,41,0,380,5,32,65) (2,1,6,41,1,296,1,29,60) (2,1,6,41,1,380,1,29,60)
(2,1,7,0,0,296,3,33,69) (2,1,7,0,0,380,3,33,69) (2,1,7,0,1,296,0,29,61) (2,1,7,0,1,380,0,29,61)
(2,1,7,10,0,296,3,33,67) (2,1,7,10,0,380,3,33,67) (2,1,7,10,1,296,0,29,60) (2,1,7,10,1,380,0,29,60)
(2,1,7,21,0,296,3,33,68) (2,1,7,21,0,380,3,33,68) (2,1,7,21,1,296,2,29,61) (2,1,7,21,1,380,2,29,61)
(2,1,7,30,0,296,1,34,70) (2,1,7,30,0,380,1,34,70) (2,1,7,30,1,296,0,29,60) (2,1,7,30,1,380,0,29,60)
(2,1,7,41,0,296,1,34,70) (2,1,7,41,0,380,1,34,70) (2,1,7,41,1,296,1,29,60) (2,1,7,41,1,380,1,29,60)
(2,1,8,0,0,296,2,32,68) (2,1,8,0,0,380,2,32,68) (2,1,8,0,1,296,2,29,58) (2,1,8,0,1,380,2,29,58)
(2,1,8,10,0,296,1,31,64) (2,1,8,10,0,380,1,31,64) (2,1,8,10,1,296,1,29,60) (2,1,8,10,1,380,1,29,60)
(2,1,8,21,0,296,0,31,65) (2,1,8,21,0,380,0,31,65) (2,1,8,21,1,296,2,29,59) (2,1,8,21,1,380,2,29,59)
(2,1,8,30,0,296,3,33,68) (2,1,8,30,0,380,3,33,68) (2,1,8,30,1,296,1,29,59) (2,1,8,30,1,380,1,29,59)
(2,1,8,41,0,296,2,31,65) (2,1,8,41,0,380,2,31,65) (2,1,8,41,1,296,1,29,59) (2,1,8,41,1,380,1,29,59)
(2,1,9,0,0,296,3,32,67) (2,1,9,0,0,380,3,32,67) (2,1,9,0,1,296,2,29,59) (2,1,9,0,1,380,2,29,59)
(2,1,9,10,0,296,1,32,67) (2,1,9,10,0,380,1,32,67) (2,1,9,10,1,296,1,29,61) (2,1,9,10,1,380,1,29,61)
(2,1,9,21,0,296,1,31,66) (2,1,9,21,0,380,1,31,66) (2,1,9,21,1,296,1,29,59) (2,1,9,21,1,380,1,29,59)
(2,1,9,30,0,296,0,31,64) (2,1,9,30,0,380,0,31,64) (2,1,9,30,1,296,1,29,60) (2,1,9,30,1,380,1,29,60)
(2,1,9,41,0,296,1,31,65) (2,1,9,41,0,380,1,31,65) (2,1,9,41,1,296,1,29,59) (2,1,9,41,1,380,1,29,59)
(1,0,0,0,0,296,2,58,63) (1,0,0,0,0,380,2,58,63) (1,0,0,0,1,296,3,55,59) (1,0,0,0,1,380,3,55,59)
(1,0,0,10,0,296,0,58,60) (1,0,0,10,0,380,0,58,60) (1,0,0,10,1,296,1,56,59) (1,0,0,10,1,380,1,56,59)
(1,0,0,21,0,296,1,57,60) (1,0,0,21,0,380,1,57,60) (1,0,0,21,1,296,6,55,59) (1,0,0,21,1,380,6,55,59)
(1,0,0,30,0,296,4,55,62) (1,0,0,30,0,380,4,55,62) (1,0,0,30,1,296,1,56,59) (1,0,0,30,1,380,1,56,59)
(1,0,0,41,0,296,0,58,61) (1,0,0,41,0,380,0,58,61) (1,0,0,41,1,296,7,53,59) (1,0,0,41,1,380,7,53,59)
(1,0,1,0,0,296,1,58,61) (1,0,1,0,0,380,1,58,61) (1,0,1,0,1,296,9,55,58) (1,0,1,0,1,380,9,55,58)
(1,0,1,10,0,296,2,56,60) (1,0,1,10,0,380,2,56,60) (1,0,1,10,1,296,2,54,60) (1,0,1,10,1,380,2,54,60)
(1,0,1,21,0,296,3,56,60) (1,0,1,21,0,380,3,56,60) (1,0,1,21,1,296,7,54,59) (1,0,1,21,1,380,7,54,59)
(1,0,1,30,0,296,0,58,62) (1,0,1,30,0,380,0,58,62) (1,0,1,30,1,296,2,55,59) (1,0,1,30,1,380,2,55,59)
(1,0,1,41,0,296,5,55,60) (1,0,1,41,0,380,5,55,60) (1,0,1,41,1,296,2,56,59) (1,0,1,41,1,380,2,56,59)
(1,0,2,0,0,296,2,57,60) (1,0,2,0,0,380,2,57,60) (1,0,2,0,1,296,7,55,60) (1,0,2,0,1,380,7,55,60)
(1,0,2,10,0,296,6,57,60) (1,0,2,10,0,380,6,57,60) (1,0,2,10,1,296,2,54,60) (1,0,2,10,1,380,2,54,60)
(1,0,2,21,0,296,1,58,60) (1,0,2,21,0,380,1,58,60)8.6 /opt/GSM/c54x_exe/balayage_v2.tsv
74343 octets, 2801 lignes → 703 lignes (2 groupes compactés)
decalage unique phase marge rx_avant daram_len vraies mots_distincts crc_ok sb_tentees
-⟨1⟩ ⟨2⟩ 0.⟨3⟩ ⟨4⟩ ⟨5⟩ ⟨6⟩ 0 ⟨7⟩ ⟨8⟩ ⟨9⟩ ×2000
⟨⟩ = (5,0,0,0,0,296,1,1,75) (5,0,0,0,0,380,1,1,75) (5,0,0,0,1,296,0,0,60) (5,0,0,0,1,380,0,0,60)
(5,0,0,10,0,296,0,0,78) (5,0,0,10,0,380,0,0,78) (5,0,0,10,1,296,0,0,60) (5,0,0,10,1,380,0,0,60)
(5,0,0,21,0,296,0,0,74) (5,0,0,21,0,380,0,0,74) (5,0,0,21,1,296,0,0,64) (5,0,0,21,1,380,0,0,64)
(5,0,0,30,0,296,1,2,75) (5,0,0,30,0,380,1,2,75) (5,0,0,30,1,296,0,0,62) (5,0,0,30,1,380,0,0,62)
(5,0,0,41,0,296,1,1,73) (5,0,0,41,0,380,1,1,73) (5,0,0,41,1,296,1,1,61) (5,0,0,41,1,380,1,1,61)
(5,0,1,0,0,296,4,4,75) (5,0,1,0,0,380,4,4,75) (5,0,1,0,1,296,1,1,63) (5,0,1,0,1,380,1,1,63)
(5,0,1,10,0,296,1,1,76) (5,0,1,10,0,380,1,1,76) (5,0,1,10,1,296,0,0,66) (5,0,1,10,1,380,0,0,66)
(5,0,1,21,0,296,0,0,74) (5,0,1,21,0,380,0,0,74) (5,0,1,21,1,296,0,0,64) (5,0,1,21,1,380,0,0,64)
(5,0,1,30,0,296,2,2,74) (5,0,1,30,0,380,2,2,74) (5,0,1,30,1,296,3,3,66) (5,0,1,30,1,380,3,3,66)
(5,0,1,41,0,296,0,0,74) (5,0,1,41,0,380,0,0,74) (5,0,1,41,1,296,2,2,63) (5,0,1,41,1,380,2,2,63)
(5,0,2,0,0,296,1,4,73) (5,0,2,0,0,380,1,4,73) (5,0,2,0,1,296,5,5,62) (5,0,2,0,1,380,5,5,62)
(5,0,2,10,0,296,1,1,77) (5,0,2,10,0,380,1,1,77) (5,0,2,10,1,296,1,3,63) (5,0,2,10,1,380,1,3,63)
(5,0,2,21,0,296,1,1,80) (5,0,2,21,0,380,1,1,80) (5,0,2,21,1,296,2,4,59) (5,0,2,21,1,380,2,4,59)
(5,0,2,30,0,296,2,2,74) (5,0,2,30,0,380,2,2,74) (5,0,2,30,1,296,4,9,61) (5,0,2,30,1,380,4,9,61)
(5,0,2,41,0,296,2,2,74) (5,0,2,41,0,380,2,2,74) (5,0,2,41,1,296,3,3,62) (5,0,2,41,1,380,3,3,62)
(5,0,3,0,0,296,4,4,75) (5,0,3,0,0,380,4,4,75) (5,0,3,0,1,296,3,3,62) (5,0,3,0,1,380,3,3,62)
(5,0,3,10,0,296,3,5,72) (5,0,3,10,0,380,3,5,72) (5,0,3,10,1,296,2,2,62) (5,0,3,10,1,380,2,2,62)
(5,0,3,21,0,296,1,1,74) (5,0,3,21,0,380,1,1,74) (5,0,3,21,1,296,3,3,62) (5,0,3,21,1,380,3,3,62)
(5,0,3,30,0,296,2,2,75) (5,0,3,30,0,380,2,2,75) (5,0,3,30,1,296,2,2,63) (5,0,3,30,1,380,2,2,63)
(5,0,3,41,0,296,5,6,72) (5,0,3,41,0,380,5,6,72) (5,0,3,41,1,296,3,3,60) (5,0,3,41,1,380,3,3,60)
(5,0,4,0,0,296,1,1,77) (5,0,4,0,0,380,1,1,77) (5,0,4,0,1,296,1,2,64) (5,0,4,0,1,380,1,2,64)
(5,0,4,10,0,296,6,6,78) (5,0,4,10,0,380,6,6,78) (5,0,4,10,1,296,0,0,60) (5,0,4,10,1,380,0,0,60)
(5,0,4,21,0,296,3,6,76) (5,0,4,21,0,380,3,6,76) (5,0,4,21,1,296,2,2,66) (5,0,4,21,1,380,2,2,66)
(5,0,4,30,0,296,2,4,75) (5,0,4,30,0,380,2,4,75) (5,0,4,30,1,296,1,1,68) (5,0,4,30,1,380,1,1,68)
(5,0,4,41,0,296,1,1,73) (5,0,4,41,0,380,1,1,73) (5,0,4,41,1,296,2,2,62) (5,0,4,41,1,380,2,2,62)
(5,0,5,0,0,296,2,2,75) (5,0,5,0,0,380,2,2,75) (5,0,5,0,1,296,1,1,65) (5,0,5,0,1,380,1,1,65)
(5,0,5,10,0,296,1,1,75) (5,0,5,10,0,380,1,1,75) (5,0,5,10,1,296,1,1,66) (5,0,5,10,1,380,1,1,66)
(5,0,5,21,0,296,1,3,76) (5,0,5,21,0,380,1,3,76) (5,0,5,21,1,296,1,1,66) (5,0,5,21,1,380,1,1,66)
(5,0,5,30,0,296,2,2,77) (5,0,5,30,0,380,2,2,77) (5,0,5,30,1,296,2,2,65) (5,0,5,30,1,380,2,2,65)
(5,0,5,41,0,296,2,2,75) (5,0,5,41,0,380,2,2,75) (5,0,5,41,1,296,1,1,65) (5,0,5,41,1,380,1,1,65)
(5,0,6,0,0,296,4,4,76) (5,0,6,0,0,380,4,4,76) (5,0,6,0,1,296,1,1,62) (5,0,6,0,1,380,1,1,62)
(5,0,6,10,0,296,2,2,76) (5,0,6,10,0,380,2,2,76) (5,0,6,10,1,296,1,1,62) (5,0,6,10,1,380,1,1,62)
(5,0,6,21,0,296,2,2,76) (5,0,6,21,0,380,2,2,76) (5,0,6,21,1,296,1,1,60) (5,0,6,21,1,380,1,1,60)
(5,0,6,30,0,296,1,1,75) (5,0,6,30,0,380,1,1,75) (5,0,6,30,1,296,2,2,61) (5,0,6,30,1,380,2,2,61)
(5,0,6,41,0,296,1,1,76) (5,0,6,41,0,380,1,1,76) (5,0,6,41,1,296,1,1,60) (5,0,6,41,1,380,1,1,60)
(5,0,7,0,0,296,2,2,79) (5,0,7,0,0,380,2,2,79) (5,0,7,0,1,296,0,0,72) (5,0,7,0,1,380,0,0,72)
(5,0,7,10,0,296,2,3,76) (5,0,7,10,0,380,2,3,76) (5,0,7,10,1,296,1,3,68) (5,0,7,10,1,380,1,3,68)
(5,0,7,21,0,296,1,2,77) (5,0,7,21,0,380,1,2,77) (5,0,7,21,1,296,1,3,64) (5,0,7,21,1,380,1,3,64)
(5,0,7,30,0,296,1,1,79) (5,0,7,30,0,380,1,1,79) (5,0,7,30,1,296,0,0,70) (5,0,7,30,1,380,0,0,70)
(5,0,7,41,0,296,1,1,77) (5,0,7,41,0,380,1,1,77) (5,0,7,41,1,296,1,4,66) (5,0,7,41,1,380,1,4,66)
(5,0,8,0,0,296,5,5,72) (5,0,8,0,0,380,5,5,72) (5,0,8,0,1,296,0,0,70) (5,0,8,0,1,380,0,0,70)
(5,0,8,10,0,296,3,4,74) (5,0,8,10,0,380,3,4,74) (5,0,8,10,1,296,5,5,59) (5,0,8,10,1,380,5,5,59)
(5,0,8,21,0,296,1,1,78) (5,0,8,21,0,380,1,1,78) (5,0,8,21,1,296,2,2,65) (5,0,8,21,1,380,2,2,65)
(5,0,8,30,0,296,3,3,76) (5,0,8,30,0,380,3,3,76) (5,0,8,30,1,296,2,2,60) (5,0,8,30,1,380,2,2,60)
(5,0,8,41,0,296,1,1,76) (5,0,8,41,0,380,1,1,76) (5,0,8,41,1,296,1,2,68) (5,0,8,41,1,380,1,2,68)
(5,0,9,0,0,296,3,3,77) (5,0,9,0,0,380,3,3,77) (5,0,9,0,1,296,0,0,60) (5,0,9,0,1,380,0,0,60)
(5,0,9,10,0,296,5,6,74) (5,0,9,10,0,380,5,6,74) (5,0,9,10,1,296,0,0,60) (5,0,9,10,1,380,0,0,60)
(5,0,9,21,0,296,1,1,75) (5,0,9,21,0,380,1,1,75) (5,0,9,21,1,296,0,0,64) (5,0,9,21,1,380,0,0,64)
(5,0,9,30,0,296,3,3,77) (5,0,9,30,0,380,3,3,77) (5,0,9,30,1,296,0,0,64) (5,0,9,30,1,380,0,0,64)
(5,0,9,41,0,296,3,3,73) (5,0,9,41,0,380,3,3,73) (5,0,9,41,1,296,1,1,59) (5,0,9,41,1,380,1,1,59)
(5,1,0,0,0,296,1,1,41) (5,1,0,0,0,380,1,1,41) (5,1,0,0,1,296,1,1,34) (5,1,0,0,1,380,1,1,34)
(5,1,0,10,0,296,1,1,42) (5,1,0,10,0,380,1,1,42) (5,1,0,10,1,296,2,2,36) (5,1,0,10,1,380,2,2,36)
(5,1,0,21,0,296,1,1,42) (5,1,0,21,0,380,1,1,42) (5,1,0,21,1,296,2,3,33) (5,1,0,21,1,380,2,3,33)
(5,1,0,30,0,296,1,1,42) (5,1,0,30,0,380,1,1,42) (5,1,0,30,1,296,1,1,33) (5,1,0,30,1,380,1,1,33)
(5,1,0,41,0,296,1,1,42) (5,1,0,41,0,380,1,1,42) (5,1,0,41,1,296,2,2,33) (5,1,0,41,1,380,2,2,33)
(5,1,1,0,0,296,2,2,43) (5,1,1,0,0,380,2,2,43) (5,1,1,0,1,296,2,2,35) (5,1,1,0,1,380,2,2,35)
(5,1,1,10,0,296,1,1,41) (5,1,1,10,0,380,1,1,41) (5,1,1,10,1,296,1,1,36) (5,1,1,10,1,380,1,1,36)
(5,1,1,21,0,296,1,1,42) (5,1,1,21,0,380,1,1,42) (5,1,1,21,1,296,1,1,36) (5,1,1,21,1,380,1,1,36)
(5,1,1,30,0,296,2,2,42) (5,1,1,30,0,380,2,2,42) (5,1,1,30,1,296,2,3,36) (5,1,1,30,1,380,2,3,36)
(5,1,1,41,0,296,3,3,42) (5,1,1,41,0,380,3,3,42) (5,1,1,41,1,296,1,1,36) (5,1,1,41,1,380,1,1,36)
(5,1,2,0,0,296,2,2,41) (5,1,2,0,0,380,2,2,41) (5,1,2,0,1,296,1,1,36) (5,1,2,0,1,380,1,1,36)
(5,1,2,10,0,296,1,1,42) (5,1,2,10,0,380,1,1,42) (5,1,2,10,1,296,2,3,37) (5,1,2,10,1,380,2,3,37)
(5,1,2,21,0,296,2,2,43) (5,1,2,21,0,380,2,2,43) (5,1,2,21,1,296,3,3,37) (5,1,2,21,1,380,3,3,37)
(5,1,2,30,0,296,2,2,43) (5,1,2,30,0,380,2,2,43) (5,1,2,30,1,296,4,4,35) (5,1,2,30,1,380,4,4,35)
(5,1,2,41,0,296,3,3,42) (5,1,2,41,0,380,3,3,42) (5,1,2,41,1,296,2,2,35) (5,1,2,41,1,380,2,2,35)
(5,1,3,0,0,296,2,2,41) (5,1,3,0,0,380,2,2,41) (5,1,3,0,1,296,2,2,37) (5,1,3,0,1,380,2,2,37)
(5,1,3,10,0,296,4,4,41) (5,1,3,10,0,380,4,4,41) (5,1,3,10,1,296,3,3,38) (5,1,3,10,1,380,3,3,38)
(5,1,3,21,0,296,2,2,42) (5,1,3,21,0,380,2,2,42) (5,1,3,21,1,296,1,1,35) (5,1,3,21,1,380,1,1,35)
(5,1,3,30,0,296,2,2,42) (5,1,3,30,0,380,2,2,42) (5,1,3,30,1,296,1,1,36) (5,1,3,30,1,380,1,1,36)
(5,1,3,41,0,296,2,2,40) (5,1,3,41,0,380,2,2,40) (5,1,3,41,1,296,2,2,36) (5,1,3,41,1,380,2,2,36)
(5,1,4,0,0,296,2,2,42) (5,1,4,0,0,380,2,2,42) (5,1,4,0,1,296,4,5,37) (5,1,4,0,1,380,4,5,37)
(5,1,4,10,0,296,2,2,43) (5,1,4,10,0,380,2,2,43) (5,1,4,10,1,296,1,1,37) (5,1,4,10,1,380,1,1,37)
(5,1,4,21,0,296,1,1,42) (5,1,4,21,0,380,1,1,42) (5,1,4,21,1,296,1,1,38) (5,1,4,21,1,380,1,1,38)
(5,1,4,30,0,296,2,2,40) (5,1,4,30,0,380,2,2,40) (5,1,4,30,1,296,1,1,36) (5,1,4,30,1,380,1,1,36)
(5,1,4,41,0,296,2,2,42) (5,1,4,41,0,380,2,2,42) (5,1,4,41,1,296,2,2,35) (5,1,4,41,1,380,2,2,35)
(5,1,5,0,0,296,3,3,42) (5,1,5,0,0,380,3,3,42) (5,1,5,0,1,296,3,3,36) (5,1,5,0,1,380,3,3,36)
(5,1,5,10,0,296,2,2,43) (5,1,5,10,0,380,2,2,43) (5,1,5,10,1,296,1,1,37) (5,1,5,10,1,380,1,1,37)
(5,1,5,21,0,296,5,5,42) (5,1,5,21,0,380,5,5,42) (5,1,5,21,1,296,5,8,37) (5,1,5,21,1,380,5,8,37)
(5,1,5,30,0,296,1,1,43) (5,1,5,30,0,380,1,1,43) (5,1,5,30,1,296,2,2,36) (5,1,5,30,1,380,2,2,36)
(5,1,5,41,0,296,2,2,43) (5,1,5,41,0,380,2,2,43) (5,1,5,41,1,296,1,1,36) (5,1,5,41,1,380,1,1,36)
(5,1,6,0,0,296,2,2,42) (5,1,6,0,0,380,2,2,42) (5,1,6,0,1,296,3,3,37) (5,1,6,0,1,380,3,3,37)
(5,1,6,10,0,296,3,3,43) (5,1,6,10,0,380,3,3,43) (5,1,6,10,1,296,3,4,37) (5,1,6,10,1,380,3,4,37)
(5,1,6,21,0,296,1,1,41) (5,1,6,21,0,380,1,1,41) (5,1,6,21,1,296,2,4,37) (5,1,6,21,1,380,2,4,37)
(5,1,6,30,0,296,1,1,43) (5,1,6,30,0,380,1,1,43) (5,1,6,30,1,296,1,1,37) (5,1,6,30,1,380,1,1,37)
(5,1,6,41,0,296,2,2,42) (5,1,6,41,0,380,2,2,42) (5,1,6,41,1,296,3,3,37) (5,1,6,41,1,380,3,3,37)
(5,1,7,0,0,296,1,1,44) (5,1,7,0,0,380,1,1,44) (5,1,7,0,1,296,1,1,37) (5,1,7,0,1,380,1,1,37)
(5,1,7,10,0,296,1,1,44) (5,1,7,10,0,380,1,1,44) (5,1,7,10,1,296,2,2,37) (5,1,7,10,1,380,2,2,37)
(5,1,7,21,0,296,4,4,42) (5,1,7,21,0,380,4,4,42) (5,1,7,21,1,296,2,2,37) (5,1,7,21,1,380,2,2,37)
(5,1,7,30,0,296,3,3,44) (5,1,7,30,0,380,3,3,44) (5,1,7,30,1,296,4,6,37) (5,1,7,30,1,380,4,6,37)
(5,1,7,41,0,296,1,1,43) (5,1,7,41,0,380,1,1,43) (5,1,7,41,1,296,3,4,36) (5,1,7,41,1,380,3,4,36)
(5,1,8,0,0,296,2,2,42) (5,1,8,0,0,380,2,2,42) (5,1,8,0,1,296,1,3,36) (5,1,8,0,1,380,1,3,36)
(5,1,8,10,0,296,1,1,43) (5,1,8,10,0,380,1,1,43) (5,1,8,10,1,296,2,2,37) (5,1,8,10,1,380,2,2,37)
(5,1,8,21,0,296,2,2,43) (5,1,8,21,0,380,2,2,43) (5,1,8,21,1,296,2,4,36) (5,1,8,21,1,380,2,4,36)
(5,1,8,30,0,296,1,1,42) (5,1,8,30,0,380,1,1,42) (5,1,8,30,1,296,1,1,38) (5,1,8,30,1,380,1,1,38)
(5,1,8,41,0,296,1,1,42) (5,1,8,41,0,380,1,1,42) (5,1,8,41,1,296,2,3,38) (5,1,8,41,1,380,2,3,38)
(5,1,9,0,0,296,2,2,42) (5,1,9,0,0,380,2,2,42) (5,1,9,0,1,296,3,5,35) (5,1,9,0,1,380,3,5,35)
(5,1,9,10,0,296,2,2,42) (5,1,9,10,0,380,2,2,42) (5,1,9,10,1,296,2,3,37) (5,1,9,10,1,380,2,3,37)
(5,1,9,21,0,296,2,2,43) (5,1,9,21,0,380,2,2,43) (5,1,9,21,1,296,1,1,36) (5,1,9,21,1,380,1,1,36)
(5,1,9,30,0,296,1,1,40) (5,1,9,30,0,380,1,1,40) (5,1,9,30,1,296,1,1,37) (5,1,9,30,1,380,1,1,37)
(5,1,9,41,0,296,1,1,42) (5,1,9,41,0,380,1,1,42) (5,1,9,41,1,296,3,4,37) (5,1,9,41,1,380,3,4,37)
(4,0,0,0,0,296,0,0,70) (4,0,0,0,0,380,0,0,70) (4,0,0,0,1,296,1,1,58) (4,0,0,0,1,380,1,1,58)
(4,0,0,10,0,296,2,2,73) (4,0,0,10,0,380,2,2,73) (4,0,0,10,1,296,1,1,58) (4,0,0,10,1,380,1,1,58)
(4,0,0,21,0,296,1,1,72) (4,0,0,21,0,380,1,1,72) (4,0,0,21,1,296,0,0,58) (4,0,0,21,1,380,0,0,58)
(4,0,0,30,0,296,1,1,69) (4,0,0,30,0,380,1,1,69) (4,0,0,30,1,296,0,0,58) (4,0,0,30,1,380,0,0,58)
(4,0,0,41,0,296,1,1,71) (4,0,0,41,0,380,1,1,71) (4,0,0,41,1,296,0,0,58) (4,0,0,41,1,380,0,0,58)
(4,0,1,0,0,296,3,3,72) (4,0,1,0,0,380,3,3,72) (4,0,1,0,1,296,0,0,58) (4,0,1,0,1,380,0,0,58)
(4,0,1,10,0,296,3,4,69) (4,0,1,10,0,380,3,4,69) (4,0,1,10,1,296,1,1,57) (4,0,1,10,1,380,1,1,57)
(4,0,1,21,0,296,2,2,71) (4,0,1,21,0,380,2,2,71) (4,0,1,21,1,296,1,1,58) (4,0,1,21,1,380,1,1,58)
(4,0,1,30,0,296,1,1,72) (4,0,1,30,0,380,1,1,72) (4,0,1,30,1,296,0,0,58) (4,0,1,30,1,380,0,0,58)
(4,0,1,41,0,296,0,0,72) (4,0,1,41,0,380,0,0,72) (4,0,1,41,1,296,1,1,58) (4,0,1,41,1,380,1,1,58)
(4,0,2,0,0,296,1,1,72) (4,0,2,0,0,380,1,1,72) (4,0,2,0,1,296,1,1,57) (4,0,2,0,1,380,1,1,57)
(4,0,2,10,0,296,3,4,70) (4,0,2,10,0,380,3,4,70) (4,0,2,10,1,296,2,2,59) (4,0,2,10,1,380,2,2,59)
(4,0,2,21,0,296,5,6,72) (4,0,2,21,0,380,5,6,72) (4,0,2,21,1,296,1,1,57) (4,0,2,21,1,380,1,1,57)
(4,0,2,30,0,296,1,4,71) (4,0,2,30,0,380,1,4,71) (4,0,2,30,1,296,1,1,59) (4,0,2,30,1,380,1,1,59)
(4,0,2,41,0,296,1,1,71) (4,0,2,41,0,380,1,1,71) (4,0,2,41,1,296,1,1,60) (4,0,2,41,1,380,1,1,60)
(4,0,3,0,0,296,2,2,71) (4,0,3,0,0,380,2,2,71) (4,0,3,0,1,296,2,4,56) (4,0,3,0,1,380,2,4,56)
(4,0,3,10,0,296,4,4,73) (4,0,3,10,0,380,4,4,73) (4,0,3,10,1,296,2,2,57) (4,0,3,10,1,380,2,2,57)
(4,0,3,21,0,296,2,2,72) (4,0,3,21,0,380,2,2,72) (4,0,3,21,1,296,6,6,55) (4,0,3,21,1,380,6,6,55)
(4,0,3,30,0,296,1,2,73) (4,0,3,30,0,380,1,2,73) (4,0,3,30,1,296,2,2,58) (4,0,3,30,1,380,2,2,58)
(4,0,3,41,0,296,4,5,74) (4,0,3,41,0,380,4,5,74) (4,0,3,41,1,296,4,4,57) (4,0,3,41,1,380,4,4,57)
(4,0,4,0,0,296,4,8,69) (4,0,4,0,0,380,4,8,69) (4,0,4,0,1,296,0,0,58) (4,0,4,0,1,380,0,0,58)
(4,0,4,10,0,296,0,0,74) (4,0,4,10,0,380,0,0,74) (4,0,4,10,1,296,3,3,58) (4,0,4,10,1,380,3,3,58)
(4,0,4,21,0,296,1,4,73) (4,0,4,21,0,380,1,4,73) (4,0,4,21,1,296,1,1,58) (4,0,4,21,1,380,1,1,58)
(4,0,4,30,0,296,1,1,69) (4,0,4,30,0,380,1,1,69) (4,0,4,30,1,296,1,1,57) (4,0,4,30,1,380,1,1,57)
(4,0,4,41,0,296,1,1,74) (4,0,4,41,0,380,1,1,74) (4,0,4,41,1,296,3,3,57) (4,0,4,41,1,380,3,3,57)
(4,0,5,0,0,296,3,4,72) (4,0,5,0,0,380,3,4,72) (4,0,5,0,1,296,1,1,59) (4,0,5,0,1,380,1,1,59)
(4,0,5,10,0,296,1,1,70) (4,0,5,10,0,380,1,1,70) (4,0,5,10,1,296,0,0,56) (4,0,5,10,1,380,0,0,56)
(4,0,5,21,0,296,2,3,72) (4,0,5,21,0,380,2,3,72) (4,0,5,21,1,296,1,1,58) (4,0,5,21,1,380,1,1,58)
(4,0,5,30,0,296,1,1,72) (4,0,5,30,0,380,1,1,72) (4,0,5,30,1,296,0,0,58) (4,0,5,30,1,380,0,0,58)
(4,0,5,41,0,296,1,1,72) (4,0,5,41,0,380,1,1,72) (4,0,5,41,1,296,0,0,58) (4,0,5,41,1,380,0,0,58)
(4,0,6,0,0,296,2,5,71) (4,0,6,0,0,380,2,5,71) (4,0,6,0,1,296,0,0,60) (4,0,6,0,1,380,0,0,60)
(4,0,6,10,0,296,4,4,70) (4,0,6,10,0,380,4,4,70) (4,0,6,10,1,296,3,3,56) (4,0,6,10,1,380,3,3,56)
(4,0,6,21,0,296,3,3,70) (4,0,6,21,0,380,3,3,70) (4,0,6,21,1,296,1,1,55) (4,0,6,21,1,380,1,1,55)
(4,0,6,30,0,296,3,3,68) (4,0,6,30,0,380,3,3,68) (4,0,6,30,1,296,2,2,57) (4,0,6,30,1,380,2,2,57)
(4,0,6,41,0,296,3,7,70) (4,0,6,41,0,380,3,7,70) (4,0,6,41,1,296,0,0,58) (4,0,6,41,1,380,0,0,58)
(4,0,7,0,0,296,1,1,73) (4,0,7,0,0,380,1,1,73) (4,0,7,0,1,296,2,2,58) (4,0,7,0,1,380,2,2,58)
(4,0,7,10,0,296,1,1,74) (4,0,7,10,0,380,1,1,74) (4,0,7,10,1,296,2,2,57) (4,0,7,10,1,380,2,2,57)
(4,0,7,21,0,296,2,2,71) (4,0,7,21,0,380,2,2,71) (4,0,7,21,1,296,2,2,59) (4,0,7,21,1,380,2,2,59)
(4,0,7,30,0,296,1,1,75) (4,0,7,30,0,380,1,1,75) (4,0,7,30,1,296,1,1,57) (4,0,7,30,1,380,1,1,57)
(4,0,7,41,0,296,3,4,71) (4,0,7,41,0,380,3,4,71) (4,0,7,41,1,296,1,1,59) (4,0,7,41,1,380,1,1,59)
(4,0,8,0,0,296,0,0,72) (4,0,8,0,0,380,0,0,72) (4,0,8,0,1,296,2,2,57) (4,0,8,0,1,380,2,2,57)
(4,0,8,10,0,296,5,5,69) (4,0,8,10,0,380,5,5,69) (4,0,8,10,1,296,1,1,57) (4,0,8,10,1,380,1,1,57)
(4,0,8,21,0,296,1,3,75) (4,0,8,21,0,380,1,3,75) (4,0,8,21,1,296,2,2,58) (4,0,8,21,1,380,2,2,58)
(4,0,8,30,0,296,3,4,72) (4,0,8,30,0,380,3,4,72) (4,0,8,30,1,296,0,0,58) (4,0,8,30,1,380,0,0,58)
(4,0,8,41,0,296,1,1,73) (4,0,8,41,0,380,1,1,73) (4,0,8,41,1,296,1,1,57) (4,0,8,41,1,380,1,1,57)
(4,0,9,0,0,296,1,1,72) (4,0,9,0,0,380,1,1,72) (4,0,9,0,1,296,0,0,58) (4,0,9,0,1,380,0,0,58)
(4,0,9,10,0,296,3,6,68) (4,0,9,10,0,380,3,6,68) (4,0,9,10,1,296,0,0,58) (4,0,9,10,1,380,0,0,58)
(4,0,9,21,0,296,3,4,71) (4,0,9,21,0,380,3,4,71) (4,0,9,21,1,296,2,2,59) (4,0,9,21,1,380,2,2,59)
(4,0,9,30,0,296,2,4,73) (4,0,9,30,0,380,2,4,73) (4,0,9,30,1,296,0,0,58) (4,0,9,30,1,380,0,0,58)
(4,0,9,41,0,296,2,7,71) (4,0,9,41,0,380,2,7,71) (4,0,9,41,1,296,2,2,57) (4,0,9,41,1,380,2,2,57)
(4,1,0,0,0,296,1,1,39) (4,1,0,0,0,380,1,1,39) (4,1,0,0,1,296,2,2,31) (4,1,0,0,1,380,2,2,31)
(4,1,0,10,0,296,1,1,40) (4,1,0,10,0,380,1,1,40) (4,1,0,10,1,296,1,1,33) (4,1,0,10,1,380,1,1,33)
(4,1,0,21,0,296,1,1,37) (4,1,0,21,0,380,1,1,37) (4,1,0,21,1,296,1,1,31) (4,1,0,21,1,380,1,1,31)
(4,1,0,30,0,296,1,1,41) (4,1,0,30,0,380,1,1,41) (4,1,0,30,1,296,1,1,30) (4,1,0,30,1,380,1,1,30)
(4,1,0,41,0,296,1,1,38) (4,1,0,41,0,380,1,1,38) (4,1,0,41,1,296,1,1,32) (4,1,0,41,1,380,1,1,32)
(4,1,1,0,0,296,1,1,40) (4,1,1,0,0,380,1,1,40) (4,1,1,0,1,296,2,2,32) (4,1,1,0,1,380,2,2,32)
(4,1,1,10,0,296,1,1,39) (4,1,1,10,0,380,1,1,39) (4,1,1,10,1,296,1,1,32) (4,1,1,10,1,380,1,1,32)
(4,1,1,21,0,296,2,2,39) (4,1,1,21,0,380,2,2,39) (4,1,1,21,1,296,2,2,32) (4,1,1,21,1,380,2,2,32)
(4,1,1,30,0,296,1,1,40) (4,1,1,30,0,380,1,1,40) (4,1,1,30,1,296,3,3,33) (4,1,1,30,1,380,3,3,33)
(4,1,1,41,0,296,2,2,40) (4,1,1,41,0,380,2,2,40) (4,1,1,41,1,296,4,4,33) (4,1,1,41,1,380,4,4,33)
(4,1,2,0,0,296,1,1,40) (4,1,2,0,0,380,1,1,40) (4,1,2,0,1,296,0,0,32) (4,1,2,0,1,380,0,0,32)
(4,1,2,10,0,296,2,2,39) (4,1,2,10,0,380,2,2,39) (4,1,2,10,1,296,1,2,31) (4,1,2,10,1,380,1,2,31)
(4,1,2,21,0,296,2,2,40) (4,1,2,21,0,380,2,2,40) (4,1,2,21,1,296,0,0,31) (4,1,2,21,1,380,0,0,31)
(4,1,2,30,0,296,2,2,40) (4,1,2,30,0,380,2,2,40) (4,1,2,30,1,296,1,2,31) (4,1,2,30,1,380,1,2,31)
(4,1,2,41,0,296,2,2,39) (4,1,2,41,0,380,2,2,39) (4,1,2,41,1,296,1,1,32) (4,1,2,41,1,380,1,1,32)
(4,1,3,0,0,296,2,2,39) (4,1,3,0,0,380,2,2,39) (4,1,3,0,1,296,1,1,31) (4,1,3,0,1,380,1,1,31)
(4,1,3,10,0,296,2,2,40) (4,1,3,10,0,380,2,2,40) (4,1,3,10,1,296,1,1,32) (4,1,3,10,1,380,1,1,32)
(4,1,3,21,0,296,1,1,38) (4,1,3,21,0,380,1,1,38) (4,1,3,21,1,296,3,4,32) (4,1,3,21,1,380,3,4,32)
(4,1,3,30,0,296,2,2,40) (4,1,3,30,0,380,2,2,40) (4,1,3,30,1,296,4,4,32) (4,1,3,30,1,380,4,4,32)
(4,1,3,41,0,296,2,2,38) (4,1,3,41,0,380,2,2,38) (4,1,3,41,1,296,2,2,30) (4,1,3,41,1,380,2,2,30)
(4,1,4,0,0,296,1,1,41) (4,1,4,0,0,380,1,1,41) (4,1,4,0,1,296,2,2,29) (4,1,4,0,1,380,2,2,29)
(4,1,4,10,0,296,1,1,40) (4,1,4,10,0,380,1,1,40) (4,1,4,10,1,296,2,2,32) (4,1,4,10,1,380,2,2,32)
(4,1,4,21,0,296,0,0,39) (4,1,4,21,0,380,0,0,39) (4,1,4,21,1,296,2,3,32) (4,1,4,21,1,380,2,3,32)
(4,1,4,30,0,296,2,2,38) (4,1,4,30,0,380,2,2,38) (4,1,4,30,1,296,2,2,31) (4,1,4,30,1,380,2,2,31)
(4,1,4,41,0,296,1,1,38) (4,1,4,41,0,380,1,1,38) (4,1,4,41,1,296,1,1,31) (4,1,4,41,1,380,1,1,31)
(4,1,5,0,0,296,1,1,42) (4,1,5,0,0,380,1,1,42) (4,1,5,0,1,296,2,2,32) (4,1,5,0,1,380,2,2,32)
(4,1,5,10,0,296,2,2,40) (4,1,5,10,0,380,2,2,40) (4,1,5,10,1,296,1,1,33) (4,1,5,10,1,380,1,1,33)
(4,1,5,21,0,296,1,1,40) (4,1,5,21,0,380,1,1,40) (4,1,5,21,1,296,2,2,33) (4,1,5,21,1,380,2,2,33)
(4,1,5,30,0,296,1,1,40) (4,1,5,30,0,380,1,1,40) (4,1,5,30,1,296,3,3,31) (4,1,5,30,1,380,3,3,31)
(4,1,5,41,0,296,1,1,40) (4,1,5,41,0,380,1,1,40) (4,1,5,41,1,296,2,2,32) (4,1,5,41,1,380,2,2,32)
(4,1,6,0,0,296,2,2,41) (4,1,6,0,0,380,2,2,41) (4,1,6,0,1,296,2,2,30) (4,1,6,0,1,380,2,2,30)
(4,1,6,10,0,296,2,2,40) (4,1,6,10,0,380,2,2,40) (4,1,6,10,1,296,2,2,31) (4,1,6,10,1,380,2,2,31)
(4,1,6,21,0,296,1,1,40) (4,1,6,21,0,380,1,1,40) (4,1,6,21,1,296,2,2,30) (4,1,6,21,1,380,2,2,30)
(4,1,6,30,0,296,0,0,40) (4,1,6,30,0,380,0,0,40) (4,1,6,30,1,296,4,4,32) (4,1,6,30,1,380,4,4,32)
(4,1,6,41,0,296,1,1,40) (4,1,6,41,0,380,1,1,40) (4,1,6,41,1,296,3,4,32) (4,1,6,41,1,380,3,4,32)
(4,1,7,0,0,296,3,3,41) (4,1,7,0,0,380,3,3,41) (4,1,7,0,1,296,0,0,33) (4,1,7,0,1,380,0,0,33)
(4,1,7,10,0,296,1,1,40) (4,1,7,10,0,380,1,1,40) (4,1,7,10,1,296,1,1,33) (4,1,7,10,1,380,1,1,33)
(4,1,7,21,0,296,1,1,42) (4,1,7,21,0,380,1,1,42) (4,1,7,21,1,296,2,3,32) (4,1,7,21,1,380,2,3,32)
(4,1,7,30,0,296,1,1,41) (4,1,7,30,0,380,1,1,41) (4,1,7,30,1,296,0,0,34) (4,1,7,30,1,380,0,0,34)
(4,1,7,41,0,296,1,1,43) (4,1,7,41,0,380,1,1,43) (4,1,7,41,1,296,1,3,34) (4,1,7,41,1,380,1,3,34)
(4,1,8,0,0,296,2,2,39) (4,1,8,0,0,380,2,2,39) (4,1,8,0,1,296,1,1,35) (4,1,8,0,1,380,1,1,35)
(4,1,8,10,0,296,1,1,40) (4,1,8,10,0,380,1,1,40) (4,1,8,10,1,296,5,6,32) (4,1,8,10,1,380,5,6,32)
(4,1,8,21,0,296,0,0,41) (4,1,8,21,0,380,0,0,41) (4,1,8,21,1,296,2,5,35) (4,1,8,21,1,380,2,5,35)
(4,1,8,30,0,296,1,1,39) (4,1,8,30,0,380,1,1,39) (4,1,8,30,1,296,2,3,35) (4,1,8,30,1,380,2,3,35)
(4,1,8,41,0,296,1,1,40) (4,1,8,41,0,380,1,1,40) (4,1,8,41,1,296,1,1,35) (4,1,8,41,1,380,1,1,35)
(4,1,9,0,0,296,1,1,41) (4,1,9,0,0,380,1,1,41) (4,1,9,0,1,296,2,3,31) (4,1,9,0,1,380,2,3,31)
(4,1,9,10,0,296,2,2,41) (4,1,9,10,0,380,2,2,41) (4,1,9,10,1,296,1,1,32) (4,1,9,10,1,380,1,1,32)
(4,1,9,21,0,296,1,1,41) (4,1,9,21,0,380,1,1,41) (4,1,9,21,1,296,1,1,33) (4,1,9,21,1,380,1,1,33)
(4,1,9,30,0,296,0,0,40) (4,1,9,30,0,380,0,0,40) (4,1,9,30,1,296,1,1,33) (4,1,9,30,1,380,1,1,33)
(4,1,9,41,0,296,0,0,40) (4,1,9,41,0,380,0,0,40) (4,1,9,41,1,296,1,1,32) (4,1,9,41,1,380,1,1,32)
(3,0,0,0,0,296,0,0,64) (3,0,0,0,0,380,0,0,64) (3,0,0,0,1,296,0,0,58) (3,0,0,0,1,380,0,0,58)
(3,0,0,10,0,296,1,2,62) (3,0,0,10,0,380,1,2,62) (3,0,0,10,1,296,2,2,55) (3,0,0,10,1,380,2,2,55)
(3,0,0,21,0,296,1,1,64) (3,0,0,21,0,380,1,1,64) (3,0,0,21,1,296,0,0,58) (3,0,0,21,1,380,0,0,58)
(3,0,0,30,0,296,0,0,64) (3,0,0,30,0,380,0,0,64) (3,0,0,30,1,296,0,0,58) (3,0,0,30,1,380,0,0,58)
(3,0,0,41,0,296,1,1,67) (3,0,0,41,0,380,1,1,67) (3,0,0,41,1,296,3,3,57) (3,0,0,41,1,380,3,3,57)
(3,0,1,0,0,296,2,2,67) (3,0,1,0,0,380,2,2,67) (3,0,1,0,1,296,3,3,57) (3,0,1,0,1,380,3,3,57)
(3,0,1,10,0,296,1,2,61) (3,0,1,10,0,380,1,2,61) (3,0,1,10,1,296,0,0,58) (3,0,1,10,1,380,0,0,58)
(3,0,1,21,0,296,0,0,64) (3,0,1,21,0,380,0,0,64) (3,0,1,21,1,296,2,2,57) (3,0,1,21,1,380,2,2,57)
(3,0,1,30,0,296,2,4,65) (3,0,1,30,0,380,2,4,65) (3,0,1,30,1,296,1,1,57) (3,0,1,30,1,380,1,1,57)
(3,0,1,41,0,296,1,1,65) (3,0,1,41,0,380,1,1,65) (3,0,1,41,1,296,4,4,57) (3,0,1,41,1,380,4,4,57)
(3,0,2,0,0,296,1,2,62) (3,0,2,0,0,380,1,2,62) (3,0,2,0,1,296,0,0,58) (3,0,2,0,1,380,0,0,58)
(3,0,2,10,0,296,1,2,62) (3,0,2,10,0,380,1,2,62) (3,0,2,10,1,296,2,2,56) (3,0,2,10,1,380,2,2,56)
(3,0,2,21,0,296,0,0,64) (3,0,2,21,0,380,0,0,64) (3,0,2,21,1,296,3,5,57) (3,0,2,21,1,380,3,5,57)
(3,0,2,30,0,296,3,4,59) (3,0,2,30,0,380,3,4,59) (3,0,2,30,1,296,3,3,56) (3,0,2,30,1,380,3,3,56)
(3,0,2,41,0,296,4,8,62) (3,0,2,41,0,380,4,8,62) (3,0,2,41,1,296,0,0,58) (3,0,2,41,1,380,0,0,58)
(3,0,3,0,0,296,1,1,62) (3,0,3,0,0,380,1,1,62) (3,0,3,0,1,296,2,2,55) (3,0,3,0,1,380,2,2,55)
(3,0,3,10,0,296,1,1,67) (3,0,3,10,0,380,1,1,67) (3,0,3,10,1,296,2,2,57) (3,0,3,10,1,380,2,2,57)
(3,0,3,21,0,296,1,1,61) (3,0,3,21,0,380,1,1,61) (3,0,3,21,1,296,2,2,54) (3,0,3,21,1,380,2,2,54)
(3,0,3,30,0,296,2,2,65) (3,0,3,30,0,380,2,2,65) (3,0,3,30,1,296,0,0,58) (3,0,3,30,1,380,0,0,58)
(3,0,3,41,0,296,4,4,63) (3,0,3,41,0,380,4,4,63) (3,0,3,41,1,296,3,3,56) (3,0,3,41,1,380,3,3,56)
(3,0,4,0,0,296,3,3,66) (3,0,4,0,0,380,3,3,66) (3,0,4,0,1,296,1,2,58) (3,0,4,0,1,380,1,2,58)
(3,0,4,10,0,296,0,0,66) (3,0,4,10,0,380,0,0,66) (3,0,4,10,1,296,2,2,57) (3,0,4,10,1,380,2,2,57)
(3,0,4,21,0,296,3,3,65) (3,0,4,21,0,380,3,3,65) (3,0,4,21,1,296,1,1,57) (3,0,4,21,1,380,1,1,57)
(3,0,4,30,0,296,3,3,62) (3,0,4,30,0,380,3,3,62) (3,0,4,30,1,296,2,6,54) (3,0,4,30,1,380,2,6,54)
(3,0,4,41,0,296,3,4,61) (3,0,4,41,0,380,3,4,61) (3,0,4,41,1,296,1,1,57) (3,0,4,41,1,380,1,1,57)
(3,0,5,0,0,296,4,4,64) (3,0,5,0,0,380,4,4,64) (3,0,5,0,1,296,1,1,58) (3,0,5,0,1,380,1,1,58)
(3,0,5,10,0,296,2,2,64) (3,0,5,10,0,380,2,2,64) (3,0,5,10,1,296,3,3,56) (3,0,5,10,1,380,3,3,56)
(3,0,5,21,0,296,1,1,66) (3,0,5,21,0,380,1,1,66) (3,0,5,21,1,296,1,1,58) (3,0,5,21,1,380,1,1,58)
(3,0,5,30,0,296,0,0,64) (3,0,5,30,0,380,0,0,64) (3,0,5,30,1,296,1,1,56) (3,0,5,30,1,380,1,1,56)
(3,0,5,41,0,296,4,5,61) (3,0,5,41,0,380,4,5,61) (3,0,5,41,1,296,0,0,58) (3,0,5,41,1,380,0,0,58)
(3,0,6,0,0,296,3,3,65) (3,0,6,0,0,380,3,3,65) (3,0,6,0,1,296,0,0,58) (3,0,6,0,1,380,0,0,58)
(3,0,6,10,0,296,3,4,63) (3,0,6,10,0,380,3,4,63) (3,0,6,10,1,296,3,3,56) (3,0,6,10,1,380,3,3,56)
(3,0,6,21,0,296,1,1,64) (3,0,6,21,0,380,1,1,64) (3,0,6,21,1,296,1,1,57) (3,0,6,21,1,380,1,1,57)
(3,0,6,30,0,296,4,4,65) (3,0,6,30,0,380,4,4,65) (3,0,6,30,1,296,0,0,58) (3,0,6,30,1,380,0,0,58)
(3,0,6,41,0,296,2,2,63) (3,0,6,41,0,380,2,2,63) (3,0,6,41,1,296,1,1,57) (3,0,6,41,1,380,1,1,57)
(3,0,7,0,0,296,3,3,66) (3,0,7,0,0,380,3,3,66) (3,0,7,0,1,296,1,1,58) (3,0,7,0,1,380,1,1,58)
(3,0,7,10,0,296,6,6,63) (3,0,7,10,0,380,6,6,63) (3,0,7,10,1,296,1,1,57) (3,0,7,10,1,380,1,1,57)
(3,0,7,21,0,296,2,2,68) (3,0,7,21,0,380,2,2,68) (3,0,7,21,1,296,1,1,57) (3,0,7,21,1,380,1,1,57)
(3,0,7,30,0,296,0,0,66) (3,0,7,30,0,380,0,0,66) (3,0,7,30,1,296,0,0,58) (3,0,7,30,1,380,0,0,58)
(3,0,7,41,0,296,1,3,67) (3,0,7,41,0,380,1,3,67) (3,0,7,41,1,296,1,1,57) (3,0,7,41,1,380,1,1,57)
(3,0,8,0,0,296,4,6,65) (3,0,8,0,0,380,4,6,65) (3,0,8,0,1,296,1,1,58) (3,0,8,0,1,380,1,1,58)
(3,0,8,10,0,296,1,1,60) (3,0,8,10,0,380,1,1,60) (3,0,8,10,1,296,2,2,56) (3,0,8,10,1,380,2,2,56)
(3,0,8,21,0,296,1,3,62) (3,0,8,21,0,380,1,3,62) (3,0,8,21,1,296,2,2,58) (3,0,8,21,1,380,2,2,58)
(3,0,8,30,0,296,2,2,61) (3,0,8,30,0,380,2,2,61) (3,0,8,30,1,296,1,1,58) (3,0,8,30,1,380,1,1,58)
(3,0,8,41,0,296,2,2,61) (3,0,8,41,0,380,2,2,61) (3,0,8,41,1,296,2,2,57) (3,0,8,41,1,380,2,2,57)
(3,0,9,0,0,296,1,1,62) (3,0,9,0,0,380,1,1,62) (3,0,9,0,1,296,2,2,58) (3,0,9,0,1,380,2,2,58)
(3,0,9,10,0,296,1,1,63) (3,0,9,10,0,380,1,1,63) (3,0,9,10,1,296,1,1,57) (3,0,9,10,1,380,1,1,57)
(3,0,9,21,0,296,4,6,60) (3,0,9,21,0,380,4,6,60) (3,0,9,21,1,296,1,2,58) (3,0,9,21,1,380,1,2,58)
(3,0,9,30,0,296,1,3,60) (3,0,9,30,0,380,1,3,60) (3,0,9,30,1,296,0,0,58) (3,0,9,30,1,380,0,0,58)
(3,0,9,41,0,296,1,4,64) (3,0,9,41,0,380,1,4,64) (3,0,9,41,1,296,1,1,57) (3,0,9,41,1,380,1,1,57)
(3,1,0,0,0,296,1,1,37) (3,1,0,0,0,380,1,1,37) (3,1,0,0,1,296,1,1,29) (3,1,0,0,1,380,1,1,29)
(3,1,0,10,0,296,2,2,37) (3,1,0,10,0,380,2,2,37) (3,1,0,10,1,296,1,1,29) (3,1,0,10,1,380,1,1,29)
(3,1,0,21,0,296,2,2,37) (3,1,0,21,0,380,2,2,37) (3,1,0,21,1,296,1,1,29) (3,1,0,21,1,380,1,1,29)
(3,1,0,30,0,296,1,1,36) (3,1,0,30,0,380,1,1,36) (3,1,0,30,1,296,1,1,29) (3,1,0,30,1,380,1,1,29)
(3,1,0,41,0,296,2,2,36) (3,1,0,41,0,380,2,2,36) (3,1,0,41,1,296,1,1,29) (3,1,0,41,1,380,1,1,29)
(3,1,1,0,0,296,1,1,36) (3,1,1,0,0,380,1,1,36) (3,1,1,0,1,296,1,1,29) (3,1,1,0,1,380,1,1,29)
(3,1,1,10,0,296,1,1,37) (3,1,1,10,0,380,1,1,37) (3,1,1,10,1,296,2,2,29) (3,1,1,10,1,380,2,2,29)
(3,1,1,21,0,296,3,4,37) (3,1,1,21,0,380,3,4,37) (3,1,1,21,1,296,1,1,29) (3,1,1,21,1,380,1,1,29)
(3,1,1,30,0,296,1,1,38) (3,1,1,30,0,380,1,1,38) (3,1,1,30,1,296,1,1,29) (3,1,1,30,1,380,1,1,29)
(3,1,1,41,0,296,3,3,37) (3,1,1,41,0,380,3,3,37) (3,1,1,41,1,296,1,1,29) (3,1,1,41,1,380,1,1,29)
(3,1,2,0,0,296,1,1,37) (3,1,2,0,0,380,1,1,37) (3,1,2,0,1,296,1,1,30) (3,1,2,0,1,380,1,1,30)
(3,1,2,10,0,296,1,1,36) (3,1,2,10,0,380,1,1,36) (3,1,2,10,1,296,2,2,30) (3,1,2,10,1,380,2,2,30)
(3,1,2,21,0,296,2,2,36) (3,1,2,21,0,380,2,2,36) (3,1,2,21,1,296,1,1,29) (3,1,2,21,1,380,1,1,29)
(3,1,2,30,0,296,2,3,36) (3,1,2,30,0,380,2,3,36) (3,1,2,30,1,296,2,2,30) (3,1,2,30,1,380,2,2,30)
(3,1,2,41,0,296,1,1,36) (3,1,2,41,0,380,1,1,36) (3,1,2,41,1,296,1,1,29) (3,1,2,41,1,380,1,1,29)
(3,1,3,0,0,296,1,1,37) (3,1,3,0,0,380,1,1,37) (3,1,3,0,1,296,2,2,29) (3,1,3,0,1,380,2,2,29)
(3,1,3,10,0,296,2,2,36) (3,1,3,10,0,380,2,2,36) (3,1,3,10,1,296,1,1,29) (3,1,3,10,1,380,1,1,29)
(3,1,3,21,0,296,1,1,37) (3,1,3,21,0,380,1,1,37) (3,1,3,21,1,296,3,3,29) (3,1,3,21,1,380,3,3,29)
(3,1,3,30,0,296,2,2,38) (3,1,3,30,0,380,2,2,38) (3,1,3,30,1,296,2,2,29) (3,1,3,30,1,380,2,2,29)
(3,1,3,41,0,296,2,2,38) (3,1,3,41,0,380,2,2,38) (3,1,3,41,1,296,2,2,29) (3,1,3,41,1,380,2,2,29)
(3,1,4,0,0,296,1,1,37) (3,1,4,0,0,380,1,1,37) (3,1,4,0,1,296,1,1,29) (3,1,4,0,1,380,1,1,29)
(3,1,4,10,0,296,2,2,35) (3,1,4,10,0,380,2,2,35) (3,1,4,10,1,296,1,1,29) (3,1,4,10,1,380,1,1,29)
(3,1,4,21,0,296,2,2,37) (3,1,4,21,0,380,2,2,37) (3,1,4,21,1,296,2,3,30) (3,1,4,21,1,380,2,3,30)
(3,1,4,30,0,296,1,1,37) (3,1,4,30,0,380,1,1,37) (3,1,4,30,1,296,1,1,29) (3,1,4,30,1,380,1,1,29)
(3,1,4,41,0,296,2,2,37) (3,1,4,41,0,380,2,2,37) (3,1,4,41,1,296,2,2,29) (3,1,4,41,1,380,2,2,29)
(3,1,5,0,0,296,3,3,37) (3,1,5,0,0,380,3,3,37) (3,1,5,0,1,296,2,2,29) (3,1,5,0,1,380,2,2,29)
(3,1,5,10,0,296,2,2,36) (3,1,5,10,0,380,2,2,36) (3,1,5,10,1,296,1,1,28) (3,1,5,10,1,380,1,1,28)
(3,1,5,21,0,296,3,3,38) (3,1,5,21,0,380,3,3,38) (3,1,5,21,1,296,1,1,29) (3,1,5,21,1,380,1,1,29)
(3,1,5,30,0,296,1,1,37) (3,1,5,30,0,380,1,1,37) (3,1,5,30,1,296,1,1,29) (3,1,5,30,1,380,1,1,29)
(3,1,5,41,0,296,1,1,38) (3,1,5,41,0,380,1,1,38) (3,1,5,41,1,296,1,1,29) (3,1,5,41,1,380,1,1,29)
(3,1,6,0,0,296,1,1,38) (3,1,6,0,0,380,1,1,38) (3,1,6,0,1,296,1,1,29) (3,1,6,0,1,380,1,1,29)
(3,1,6,10,0,296,2,2,35) (3,1,6,10,0,380,2,2,35) (3,1,6,10,1,296,1,1,29) (3,1,6,10,1,380,1,1,29)
(3,1,6,21,0,296,1,1,37) (3,1,6,21,0,380,1,1,37) (3,1,6,21,1,296,1,1,28) (3,1,6,21,1,380,1,1,28)
(3,1,6,30,0,296,1,1,37) (3,1,6,30,0,380,1,1,37) (3,1,6,30,1,296,1,1,29) (3,1,6,30,1,380,1,1,29)
(3,1,6,41,0,296,1,1,36) (3,1,6,41,0,380,1,1,36) (3,1,6,41,1,296,1,1,29) (3,1,6,41,1,380,1,1,29)
(3,1,7,0,0,296,1,1,37) (3,1,7,0,0,380,1,1,37) (3,1,7,0,1,296,2,2,30) (3,1,7,0,1,380,2,2,30)
(3,1,7,10,0,296,1,1,38) (3,1,7,10,0,380,1,1,38) (3,1,7,10,1,296,2,2,30) (3,1,7,10,1,380,2,2,30)
(3,1,7,21,0,296,1,1,38) (3,1,7,21,0,380,1,1,38) (3,1,7,21,1,296,2,2,29) (3,1,7,21,1,380,2,2,29)
(3,1,7,30,0,296,1,1,41) (3,1,7,30,0,380,1,1,41) (3,1,7,30,1,296,1,1,30) (3,1,7,30,1,380,1,1,30)
(3,1,7,41,0,296,1,1,41) (3,1,7,41,0,380,1,1,41) (3,1,7,41,1,296,2,2,30) (3,1,7,41,1,380,2,2,30)
(3,1,8,0,0,296,2,2,37) (3,1,8,0,0,380,2,2,37) (3,1,8,0,1,296,1,1,29) (3,1,8,0,1,380,1,1,29)
(3,1,8,10,0,296,1,1,37) (3,1,8,10,0,380,1,1,37) (3,1,8,10,1,296,2,2,29) (3,1,8,10,1,380,2,2,29)
(3,1,8,21,0,296,1,1,38) (3,1,8,21,0,380,1,1,38) (3,1,8,21,1,296,2,2,29) (3,1,8,21,1,380,2,2,29)
(3,1,8,30,0,296,2,2,38) (3,1,8,30,0,380,2,2,38) (3,1,8,30,1,296,1,1,29) (3,1,8,30,1,380,1,1,29)
(3,1,8,41,0,296,5,5,37) (3,1,8,41,0,380,5,5,37) (3,1,8,41,1,296,3,3,29) (3,1,8,41,1,380,3,3,29)
(3,1,9,0,0,296,2,2,35) (3,1,9,0,0,380,2,2,35) (3,1,9,0,1,296,1,1,29) (3,1,9,0,1,380,1,1,29)
(3,1,9,10,0,296,2,2,37) (3,1,9,10,0,380,2,2,37) (3,1,9,10,1,296,1,1,29) (3,1,9,10,1,380,1,1,29)
(3,1,9,21,0,296,2,2,36) (3,1,9,21,0,380,2,2,36) (3,1,9,21,1,296,1,1,30) (3,1,9,21,1,380,1,1,30)
(3,1,9,30,0,296,1,1,37) (3,1,9,30,0,380,1,1,37) (3,1,9,30,1,296,1,1,29) (3,1,9,30,1,380,1,1,29)
(3,1,9,41,0,296,2,2,37) (3,1,9,41,0,380,2,2,37) (3,1,9,41,1,296,3,3,29) (3,1,9,41,1,380,3,3,29)
(2,0,0,0,0,296,1,1,58) (2,0,0,0,0,380,1,1,58) (2,0,0,0,1,296,2,2,58) (2,0,0,0,1,380,2,2,58)
(2,0,0,10,0,296,4,4,58) (2,0,0,10,0,380,4,4,58) (2,0,0,10,1,296,4,7,54) (2,0,0,10,1,380,4,7,54)
(2,0,0,21,0,296,1,1,59) (2,0,0,21,0,380,1,1,59) (2,0,0,21,1,296,1,2,57) (2,0,0,21,1,380,1,2,57)
(2,0,0,30,0,296,1,2,56) (2,0,0,30,0,380,1,2,56) (2,0,0,30,1,296,2,2,57) (2,0,0,30,1,380,2,2,57)
(2,0,0,41,0,296,0,0,58) (2,0,0,41,0,380,0,0,58) (2,0,0,41,1,296,3,3,57) (2,0,0,41,1,380,3,3,57)
(2,0,1,0,0,296,2,2,58) (2,0,1,0,0,380,2,2,58) (2,0,1,0,1,296,1,1,56) (2,0,1,0,1,380,1,1,56)
(2,0,1,10,0,296,2,2,57) (2,0,1,10,0,380,2,2,57) (2,0,1,10,1,296,1,4,55) (2,0,1,10,1,380,1,4,55)
(2,0,1,21,0,296,0,0,60) (2,0,1,21,0,380,0,0,60) (2,0,1,21,1,296,1,12,50) (2,0,1,21,1,380,1,12,50)
(2,0,1,30,0,296,2,2,58) (2,0,1,30,0,380,2,2,58) (2,0,1,30,1,296,1,6,52) (2,0,1,30,1,380,1,6,52)
(2,0,1,41,0,296,0,0,58) (2,0,1,41,0,380,0,0,58) (2,0,1,41,1,296,2,2,58) (2,0,1,41,1,380,2,2,58)
(2,0,2,0,0,296,3,5,56) (2,0,2,0,0,380,3,5,56) (2,0,2,0,1,296,2,8,54) (2,0,2,0,1,380,2,8,54)
(2,0,2,10,0,296,2,2,57) (2,0,2,10,0,380,2,2,57) (2,0,2,10,1,296,1,1,57) (2,0,2,10,1,380,1,1,57)
(2,0,2,21,0,296,3,3,59) (2,0,2,21,0,380,3,3,59) (2,0,2,21,1,296,0,0,58) (2,0,2,21,1,380,0,0,58)
(2,0,2,30,0,296,3,3,56) (2,0,2,30,0,380,3,3,56) (2,0,2,30,1,296,2,6,53) (2,0,2,30,1,380,2,6,53)
(2,0,2,41,0,296,2,2,58) (2,0,2,41,0,380,2,2,58) (2,0,2,41,1,296,1,1,57) (2,0,2,41,1,380,1,1,57)
(2,0,3,0,0,296,1,1,58) (2,0,3,0,0,380,1,1,58) (2,0,3,0,1,296,3,5,54) (2,0,3,0,1,380,3,5,54)
(2,0,3,10,0,296,1,1,58) (2,0,3,10,0,380,1,1,58) (2,0,3,10,1,296,1,3,54) (2,0,3,10,1,380,1,3,54)
(2,0,3,21,0,296,0,0,62) (2,0,3,21,0,380,0,0,62) (2,0,3,21,1,296,4,4,56) (2,0,3,21,1,380,4,4,56)
(2,0,3,30,0,296,4,4,59) (2,0,3,30,0,380,4,4,59) (2,0,3,30,1,296,1,2,54) (2,0,3,30,1,380,1,2,54)
(2,0,3,41,0,296,5,6,58) (2,0,3,41,0,380,5,6,58) (2,0,3,41,1,296,3,4,53) (2,0,3,41,1,380,3,4,53)
(2,0,4,0,0,296,0,0,60) (2,0,4,0,0,380,0,0,60) (2,0,4,0,1,296,2,2,57) (2,0,4,0,1,380,2,2,57)
(2,0,4,10,0,296,1,1,57) (2,0,4,10,0,380,1,1,57) (2,0,4,10,1,296,2,3,53) (2,0,4,10,1,380,2,3,53)
(2,0,4,21,0,296,1,1,59) (2,0,4,21,0,380,1,1,59) (2,0,4,21,1,296,1,1,56) (2,0,4,21,1,380,1,1,56)
(2,0,4,30,0,296,1,1,58) (2,0,4,30,0,380,1,1,58) (2,0,4,30,1,296,2,2,57) (2,0,4,30,1,380,2,2,57)
(2,0,4,41,0,296,1,1,58) (2,0,4,41,0,380,1,1,58) (2,0,4,41,1,296,0,0,58) (2,0,4,41,1,380,0,0,58)
(2,0,5,0,0,296,2,2,58) (2,0,5,0,0,380,2,2,58) (2,0,5,0,1,296,1,1,58) (2,0,5,0,1,380,1,1,58)
(2,0,5,10,0,296,1,1,58) (2,0,5,10,0,380,1,1,58) (2,0,5,10,1,296,4,4,53) (2,0,5,10,1,380,4,4,53)
(2,0,5,21,0,296,6,6,57) (2,0,5,21,0,380,6,6,57) (2,0,5,21,1,296,1,1,57) (2,0,5,21,1,380,1,1,57)
(2,0,5,30,0,296,0,0,60) (2,0,5,30,0,380,0,0,60) (2,0,5,30,1,296,1,1,58) (2,0,5,30,1,380,1,1,58)
(2,0,5,41,0,296,1,1,57) (2,0,5,41,0,380,1,1,57) (2,0,5,41,1,296,1,1,58) (2,0,5,41,1,380,1,1,58)
(2,0,6,0,0,296,1,1,60) (2,0,6,0,0,380,1,1,60) (2,0,6,0,1,296,4,5,56) (2,0,6,0,1,380,4,5,56)
(2,0,6,10,0,296,2,2,57) (2,0,6,10,0,380,2,2,57) (2,0,6,10,1,296,1,1,57) (2,0,6,10,1,380,1,1,57)
(2,0,6,21,0,296,4,4,59) (2,0,6,21,0,380,4,4,59) (2,0,6,21,1,296,2,2,57) (2,0,6,21,1,380,2,2,57)
(2,0,6,30,0,296,2,2,58) (2,0,6,30,0,380,2,2,58) (2,0,6,30,1,296,2,2,57) (2,0,6,30,1,380,2,2,57)
(2,0,6,41,0,296,0,0,60) (2,0,6,41,0,380,0,0,60) (2,0,6,41,1,296,2,3,56) (2,0,6,41,1,380,2,3,56)
(2,0,7,0,0,296,0,0,58) (2,0,7,0,0,380,0,0,58) (2,0,7,0,1,296,1,7,52) (2,0,7,0,1,380,1,7,52)
(2,0,7,10,0,296,2,2,58) (2,0,7,10,0,380,2,2,58) (2,0,7,10,1,296,1,7,52) (2,0,7,10,1,380,1,7,52)
(2,0,7,21,0,296,0,0,58) (2,0,7,21,0,380,0,0,58) (2,0,7,21,1,296,2,10,52) (2,0,7,21,1,380,2,10,52)
(2,0,7,30,0,296,0,0,58) (2,0,7,30,0,380,0,0,58) (2,0,7,30,1,296,2,3,56) (2,0,7,30,1,380,2,3,56)
(2,0,7,41,0,296,0,0,58) (2,0,7,41,0,380,0,0,58) (2,0,7,41,1,296,2,8,52) (2,0,7,41,1,380,2,8,52)
(2,0,8,0,0,296,2,2,56) (2,0,8,0,0,380,2,2,56) (2,0,8,0,1,296,0,0,58) (2,0,8,0,1,380,0,0,58)
(2,0,8,10,0,296,1,1,57) (2,0,8,10,0,380,1,1,57) (2,0,8,10,1,296,1,5,56) (2,0,8,10,1,380,1,5,56)
(2,0,8,21,0,296,4,4,59) (2,0,8,21,0,380,4,4,59) (2,0,8,21,1,296,2,7,54) (2,0,8,21,1,380,2,7,54)
(2,0,8,30,0,296,1,1,60) (2,0,8,30,0,380,1,1,60) (2,0,8,30,1,296,2,6,55) (2,0,8,30,1,380,2,6,55)
(2,0,8,41,0,296,1,1,59) (2,0,8,41,0,380,1,1,59) (2,0,8,41,1,296,1,4,54) (2,0,8,41,1,380,1,4,54)
(2,0,9,0,0,296,4,5,57) (2,0,9,0,0,380,4,5,57) (2,0,9,0,1,296,4,6,54) (2,0,9,0,1,380,4,6,54)
(2,0,9,10,0,296,2,2,56) (2,0,9,10,0,380,2,2,56) (2,0,9,10,1,296,1,8,54) (2,0,9,10,1,380,1,8,54)
(2,0,9,21,0,296,1,1,60) (2,0,9,21,0,380,1,1,60) (2,0,9,21,1,296,1,4,56) (2,0,9,21,1,380,1,4,56)
(2,0,9,30,0,296,3,3,57) (2,0,9,30,0,380,3,3,57) (2,0,9,30,1,296,1,3,57) (2,0,9,30,1,380,1,3,57)
(2,0,9,41,0,296,3,3,56) (2,0,9,41,0,380,3,3,56) (2,0,9,41,1,296,2,10,50) (2,0,9,41,1,380,2,10,50)
(2,1,0,0,0,296,2,2,33) (2,1,0,0,0,380,2,2,33) (2,1,0,0,1,296,1,1,29) (2,1,0,0,1,380,1,1,29)
(2,1,0,10,0,296,1,1,31) (2,1,0,10,0,380,1,1,31) (2,1,0,10,1,296,2,2,28) (2,1,0,10,1,380,2,2,28)
(2,1,0,21,0,296,1,1,32) (2,1,0,21,0,380,1,1,32) (2,1,0,21,1,296,1,1,29) (2,1,0,21,1,380,1,1,29)
(2,1,0,30,0,296,1,1,31) (2,1,0,30,0,380,1,1,31) (2,1,0,30,1,296,1,1,29) (2,1,0,30,1,380,1,1,29)
(2,1,0,41,0,296,2,2,31) (2,1,0,41,0,380,2,2,31) (2,1,0,41,1,296,2,2,29) (2,1,0,41,1,380,2,2,29)
(2,1,1,0,0,296,0,0,31) (2,1,1,0,0,380,0,0,31) (2,1,1,0,1,296,3,3,29) (2,1,1,0,1,380,3,3,29)
(2,1,1,10,0,296,0,0,32) (2,1,1,10,0,380,0,0,32) (2,1,1,10,1,296,1,1,29) (2,1,1,10,1,380,1,1,29)
(2,1,1,21,0,296,1,1,31) (2,1,1,21,0,380,1,1,31) (2,1,1,21,1,296,2,2,29) (2,1,1,21,1,380,2,2,29)
(2,1,1,30,0,296,2,2,30) (2,1,1,30,0,380,2,2,30) (2,1,1,30,1,296,1,1,29) (2,1,1,30,1,380,1,1,29)
(2,1,1,41,0,296,1,1,33) (2,1,1,41,0,380,1,1,33) (2,1,1,41,1,296,1,1,29) (2,1,1,41,1,380,1,1,29)
(2,1,2,0,0,296,1,1,33) (2,1,2,0,0,380,1,1,33) (2,1,2,0,1,296,2,2,29) (2,1,2,0,1,380,2,2,29)
(2,1,2,10,0,296,1,1,32) (2,1,2,10,0,380,1,1,32) (2,1,2,10,1,296,2,2,29) (2,1,2,10,1,380,2,2,29)
(2,1,2,21,0,296,1,1,33) (2,1,2,21,0,380,1,1,33) (2,1,2,21,1,296,0,0,29) (2,1,2,21,1,380,0,0,29)
(2,1,2,30,0,296,1,1,33) (2,1,2,30,0,380,1,1,33) (2,1,2,30,1,296,1,1,29) (2,1,2,30,1,380,1,1,29)
(2,1,2,41,0,296,2,2,31) (2,1,2,41,0,380,2,2,31) (2,1,2,41,1,296,1,1,29) (2,1,2,41,1,380,1,1,29)
(2,1,3,0,0,296,2,2,33) (2,1,3,0,0,380,2,2,33) (2,1,3,0,1,296,3,3,28) (2,1,3,0,1,380,3,3,28)
(2,1,3,10,0,296,1,1,30) (2,1,3,10,0,380,1,1,30) (2,1,3,10,1,296,2,2,29) (2,1,3,10,1,380,2,2,29)
(2,1,3,21,0,296,1,1,32) (2,1,3,21,0,380,1,1,32) (2,1,3,21,1,296,1,1,29) (2,1,3,21,1,380,1,1,29)
(2,1,3,30,0,296,1,1,32) (2,1,3,30,0,380,1,1,32) (2,1,3,30,1,296,2,2,29) (2,1,3,30,1,380,2,2,29)
(2,1,3,41,0,296,1,1,31) (2,1,3,41,0,380,1,1,31) (2,1,3,41,1,296,2,2,29) (2,1,3,41,1,380,2,2,29)
(2,1,4,0,0,296,2,2,34) (2,1,4,0,0,380,2,2,34) (2,1,4,0,1,296,2,2,29) (2,1,4,0,1,380,2,2,29)
(2,1,4,10,0,296,2,2,31) (2,1,4,10,0,380,2,2,31) (2,1,4,10,1,296,2,2,29) (2,1,4,10,1,380,2,2,29)
(2,1,4,21,0,296,1,1,31) (2,1,4,21,0,380,1,1,31) (2,1,4,21,1,296,1,1,29) (2,1,4,21,1,380,1,1,29)
(2,1,4,30,0,296,3,3,32) (2,1,4,30,0,380,3,3,32) (2,1,4,30,1,296,2,2,28) (2,1,4,30,1,380,2,2,28)
(2,1,4,41,0,296,0,0,33) (2,1,4,41,0,380,0,0,33) (2,1,4,41,1,296,3,3,29) (2,1,4,41,1,380,3,3,29)
(2,1,5,0,0,296,1,1,32) (2,1,5,0,0,380,1,1,32) (2,1,5,0,1,296,1,1,29) (2,1,5,0,1,380,1,1,29)
(2,1,5,10,0,296,1,1,31) (2,1,5,10,0,380,1,1,31) (2,1,5,10,1,296,2,2,29) (2,1,5,10,1,380,2,2,29)
(2,1,5,21,0,296,1,1,31) (2,1,5,21,0,380,1,1,31) (2,1,5,21,1,296,2,2,29) (2,1,5,21,1,380,2,2,29)
(2,1,5,30,0,296,1,1,31) (2,1,5,30,0,380,1,1,31) (2,1,5,30,1,296,2,2,28) (2,1,5,30,1,380,2,2,28)
(2,1,5,41,0,296,1,1,31) (2,1,5,41,0,380,1,1,31) (2,1,5,41,1,296,1,1,29) (2,1,5,41,1,380,1,1,29)
(2,1,6,0,0,296,1,1,32) (2,1,6,0,0,380,1,1,32) (2,1,6,0,1,296,1,1,29) (2,1,6,0,1,380,1,1,29)
(2,1,6,10,0,296,3,3,32) (2,1,6,10,0,380,3,3,32) (2,1,6,10,1,296,2,2,29) (2,1,6,10,1,380,2,2,29)
(2,1,6,21,0,296,2,2,33) (2,1,6,21,0,380,2,2,33) (2,1,6,21,1,296,1,1,29) (2,1,6,21,1,380,1,1,29)
(2,1,6,30,0,296,1,2,32) (2,1,6,30,0,380,1,2,32) (2,1,6,30,1,296,1,1,29) (2,1,6,30,1,380,1,1,29)
(2,1,6,41,0,296,5,5,32) (2,1,6,41,0,380,5,5,32) (2,1,6,41,1,296,1,1,29) (2,1,6,41,1,380,1,1,29)
(2,1,7,0,0,296,2,3,33) (2,1,7,0,0,380,2,3,33) (2,1,7,0,1,296,0,0,29) (2,1,7,0,1,380,0,0,29)
(2,1,7,10,0,296,3,3,33) (2,1,7,10,0,380,3,3,33) (2,1,7,10,1,296,0,0,29) (2,1,7,10,1,380,0,0,29)
(2,1,7,21,0,296,3,3,33) (2,1,7,21,0,380,3,3,33) (2,1,7,21,1,296,2,2,29) (2,1,7,21,1,380,2,2,29)
(2,1,7,30,0,296,1,1,34) (2,1,7,30,0,380,1,1,34) (2,1,7,30,1,296,0,0,29) (2,1,7,30,1,380,0,0,29)
(2,1,7,41,0,296,1,1,34) (2,1,7,41,0,380,1,1,34) (2,1,7,41,1,296,1,1,29) (2,1,7,41,1,380,1,1,29)
(2,1,8,0,0,296,2,2,32) (2,1,8,0,0,380,2,2,32) (2,1,8,0,1,296,2,2,29) (2,1,8,0,1,380,2,2,29)
(2,1,8,10,0,296,1,1,31) (2,1,8,10,0,380,1,1,31) (2,1,8,10,1,296,1,1,29) (2,1,8,10,1,380,1,1,29)
(2,1,8,21,0,296,0,0,31) (2,1,8,21,0,380,0,0,31) (2,1,8,21,1,296,2,2,29) (2,1,8,21,1,380,2,2,29)
(2,1,8,30,0,296,3,3,33) (2,1,8,30,0,380,3,3,33) (2,1,8,30,1,296,1,1,29) (2,1,8,30,1,380,1,1,29)
(2,1,8,41,0,296,2,2,31) (2,1,8,41,0,380,2,2,31) (2,1,8,41,1,296,1,1,29) (2,1,8,41,1,380,1,1,29)
(2,1,9,0,0,296,3,3,32) (2,1,9,0,0,380,3,3,32) (2,1,9,0,1,296,2,2,29) (2,1,9,0,1,380,2,2,29)
(2,1,9,10,0,296,1,1,32) (2,1,9,10,0,380,1,1,32) (2,1,9,10,1,296,1,1,29) (2,1,9,10,1,380,1,1,29)
(2,1,9,21,0,296,1,1,31) (2,1,9,21,0,380,1,1,31) (2,1,9,21,1,296,1,1,29) (2,1,9,21,1,380,1,1,29)
(2,1,9,30,0,296,0,0,31) (2,1,9,30,0,380,0,0,31) (2,1,9,30,1,296,1,1,29) (2,1,9,30,1,380,1,1,29)
(2,1,9,41,0,296,1,1,31) (2,1,9,41,0,380,1,1,31) (2,1,9,41,1,296,1,1,29) (2,1,9,41,1,380,1,1,29)
(1,0,0,0,0,296,2,2,58) (1,0,0,0,0,380,2,2,58) (1,0,0,0,1,296,1,3,55) (1,0,0,0,1,380,1,3,55)
(1,0,0,10,0,296,0,0,58) (1,0,0,10,0,380,0,0,58) (1,0,0,10,1,296,1,1,56) (1,0,0,10,1,380,1,1,56)
(1,0,0,21,0,296,1,1,57) (1,0,0,21,0,380,1,1,57) (1,0,0,21,1,296,3,6,55) (1,0,0,21,1,380,3,6,55)
(1,0,0,30,0,296,3,4,55) (1,0,0,30,0,380,3,4,55) (1,0,0,30,1,296,1,1,56) (1,0,0,30,1,380,1,1,56)
(1,0,0,41,0,296,0,0,58) (1,0,0,41,0,380,0,0,58) (1,0,0,41,1,296,3,7,53) (1,0,0,41,1,380,3,7,53)
(1,0,1,0,0,296,1,1,58) (1,0,1,0,0,380,1,1,58) (1,0,1,0,1,296,1,9,55) (1,0,1,0,1,380,1,9,55)
(1,0,1,10,0,296,2,2,56) (1,0,1,10,0,380,2,2,56) (1,0,1,10,1,296,2,2,54) (1,0,1,10,1,380,2,2,54)
(1,0,1,21,0,296,2,3,56) (1,0,1,21,0,380,2,3,56) (1,0,1,21,1,296,2,7,54) (1,0,1,21,1,380,2,7,54)
(1,0,1,30,0,296,0,0,58) (1,0,1,30,0,380,0,0,58) (1,0,1,30,1,296,1,2,55) (1,0,1,30,1,380,1,2,55)
(1,0,1,41,0,296,2,5,55) (1,0,1,41,0,380,2,5,55) (1,0,1,41,1,296,2,2,56) (1,0,1,41,1,380,2,2,56)
(1,0,2,0,0,296,1,2,57) (1,0,2,0,0,380,1,2,57) (1,0,2,0,1,296,2,7,55) (1,0,2,0,1,380,2,7,55)
(1,0,2,10,0,296,2,6,57) (1,0,2,10,0,380,2,6,57) (1,0,2,10,1,296,1,2,54) (1,0,2,10,1,380,1,2,54)
(1,0,2,21,0,296,1,1,58) (1,0,2,21,0,380,1,1,58) (1,0,2,21,1,296,2,4,55) (1,0,2,21,1,380,2,4,55)
(1,0,2,30,0,296,1,1,57) (1,0,2,30,0,380,1,1,57) (1,0,2,30,1,296,2,6,53) (1,0,2,30,1,380,2,6,53)
(1,0,2,41,0,296,1,2,56) (1,0,2,41,0,380,1,2,56) (1,0,2,41,1,296,2,3,55) (1,0,2,41,1,380,2,3,55)
(1,0,3,0,0,296,2,3,56) (1,0,3,0,0,380,2,3,56) (1,0,3,0,1,296,2,2,54) (1,0,3,0,1,380,2,2,54)
(1,0,3,10,0,296,1,2,57) (1,0,3,10,0,380,1,2,57) (1,0,3,10,1,296,1,2,56) (1,0,3,10,1,380,1,2,56)
(1,0,3,21,0,296,3,7,56) (1,0,3,21,0,380,3,7,56) (1,0,3,21,1,296,3,4,54) (1,0,3,21,1,380,3,4,54)
(1,0,3,30,0,296,1,1,57) (1,0,3,30,0,380,1,1,57) (1,0,3,30,1,296,1,2,57) (1,0,3,30,1,380,1,2,57)
(1,0,3,41,0,296,3,4,56) (1,0,3,41,0,380,3,4,56) (1,0,3,41,1,296,2,3,54) (1,0,3,41,1,380,2,3,54)
(1,0,4,0,0,296,2,4,56) (1,0,4,0,0,380,2,4,56) (1,0,4,0,1,296,2,2,54) (1,0,4,0,1,380,2,2,54)
(1,0,4,10,0,296,3,4,56) (1,0,4,10,0,380,3,4,56) (1,0,4,10,1,296,1,1,56) (1,0,4,10,1,380,1,1,56)
(1,0,4,21,0,296,1,1,57) (1,0,4,21,0,380,1,1,57) (1,0,4,21,1,296,1,1,55) (1,0,4,21,1,380,1,1,55)
(1,0,4,30,0,296,1,1,58) (1,0,4,30,0,380,1,1,58) (1,0,4,30,1,296,0,0,56) (1,0,4,30,1,380,0,0,56)
(1,0,4,41,0,296,1,2,57) (1,0,4,41,0,380,1,2,57) (1,0,4,41,1,296,3,3,58) (1,0,4,41,1,380,3,3,58)
(1,0,5,0,0,296,5,7,54) (1,0,5,0,0,380,5,7,54) (1,0,5,0,1,296,0,0,56) (1,0,5,0,1,380,0,0,56)
(1,0,5,10,0,296,6,6,56) (1,0,5,10,0,380,6,6,56) (1,0,5,10,1,296,1,1,57) (1,0,5,10,1,380,1,1,57)
(1,0,5,21,0,296,5,7,57) (1,0,5,21,0,380,5,7,57) (1,0,5,21,1,296,2,2,56) (1,0,5,21,1,380,2,2,56)
(1,0,5,30,0,296,0,0,58) (1,0,5,30,0,380,0,0,58) (1,0,5,30,1,296,2,2,56) (1,0,5,30,1,380,2,2,56)
(1,0,5,41,0,296,2,3,57) (1,0,5,41,0,380,2,3,57) (1,0,5,41,1,296,0,0,56) (1,0,5,41,1,380,0,0,56)
(1,0,6,0,0,296,3,6,55) (1,0,6,0,0,380,3,6,55) (1,0,6,0,1,296,2,4,56) (1,0,6,0,1,380,2,4,56)
(1,0,6,10,0,296,0,0,58) (1,0,6,10,0,380,0,0,58) (1,0,6,10,1,296,1,6,52) (1,0,6,10,1,380,1,6,52)
(1,0,6,21,0,296,2,2,56) (1,0,6,21,0,380,2,2,56) (1,0,6,21,1,296,2,4,57) (1,0,6,21,1,380,2,4,57)
(1,0,6,30,0,296,1,1,57) (1,0,6,30,0,380,1,1,57) (1,0,6,30,1,296,2,2,56) (1,0,6,30,1,380,2,2,56)
(1,0,6,41,0,296,1,6,53) (1,0,6,41,0,380,1,6,53) (1,0,6,41,1,296,2,6,58) (1,0,6,41,1,380,2,6,58)
(1,0,7,0,0,296,2,9,51) (1,0,7,0,0,380,2,9,51) (1,0,7,0,1,296,1,2,57) (1,0,7,0,1,380,1,2,57)
(1,0,7,10,0,296,3,6,54) (1,0,7,10,0,380,3,6,54) (1,0,7,10,1,296,2,6,55) (1,0,7,10,1,380,2,6,55)
(1,0,7,21,0,296,1,1,58) (1,0,7,21,0,380,1,1,58) (1,0,7,21,1,296,1,6,56) (1,0,7,21,1,380,1,6,56)
(1,0,7,30,0,296,1,1,57) (1,0,7,30,0,380,1,1,57) (1,0,7,30,1,296,0,0,58) (1,0,7,30,1,380,0,0,58)
(1,0,7,41,0,296,2,6,55) (1,0,7,41,0,380,2,6,55) (1,0,7,41,1,296,1,5,54) (1,0,7,41,1,380,1,5,54)
(1,0,8,0,0,296,1,15,49) (1,0,8,0,0,380,1,15,49) (1,0,8,0,1,296,2,4,57) (1,0,8,0,1,380,2,4,57)
(1,0,8,10,0,296,2,3,57) (1,0,8,10,0,380,2,3,57) (1,0,8,10,1,296,1,12,46) (1,0,8,10,1,380,1,12,46)
(1,0,8,21,0,296,2,9,53) (1,0,8,21,0,380,2,9,53) (1,0,8,21,1,296,1,5,55) (1,0,8,21,1,380,1,5,55)
(1,0,8,30,0,296,0,0,58) (1,0,8,30,0,380,0,0,58) (1,0,8,30,1,296,3,3,56) (1,0,8,30,1,380,3,3,56)
(1,0,8,41,0,296,3,7,55) (1,0,8,41,0,380,3,7,55) (1,0,8,41,1,296,2,8,55) (1,0,8,41,1,380,2,8,55)
(1,0,9,0,0,296,2,9,53) (1,0,9,0,0,380,2,9,53) (1,0,9,0,1,296,1,2,55) (1,0,9,0,1,380,1,2,55)
(1,0,9,10,0,296,2,9,53) (1,0,9,10,0,380,2,9,53) (1,0,9,10,1,296,3,4,53) (1,0,9,10,1,380,3,4,53)
(1,0,9,21,0,296,1,2,57) (1,0,9,21,0,380,1,2,57) (1,0,9,21,1,296,1,5,55) (1,0,9,21,1,380,1,5,55)
(1,0,9,30,0,296,2,9,53) (1,0,9,30,0,380,2,9,53) (1,0,9,30,1,296,4,7,52) (1,0,9,30,1,380,4,7,52)
(1,0,9,41,0,296,2,15,51) (1,0,9,41,0,380,2,15,51) (1,0,9,41,1,296,1,9,50) (1,0,9,41,1,380,1,9,50)
(1,1,0,0,0,296,2,2,29) (1,1,0,0,0,380,2,2,29) (1,1,0,0,1,296,1,1,29) (1,1,0,0,1,380,1,1,29)
(1,1,0,10,0,296,1,1,29) (1,1,0,10,0,380,1,1,29) (1,1,0,10,1,296,2,3,28) (1,1,0,10,1,380,2,3,28)
(1,1,0,21,0,296,2,2,29) (1,1,0,21,0,380,2,2,29) (1,1,0,21,1,296,2,2,29) (1,1,0,21,1,380,2,2,29)
(1,1,0,30,0,296,2,2,29) (1,1,0,30,0,380,2,2,29) (1,1,0,30,1,296,2,2,29) (1,1,0,30,1,380,2,2,29)
(1,1,0,41,0,296,1,1,29) (1,1,0,41,0,380,1,1,29) (1,1,0,41,1,296,1,1,29) (1,1,0,41,1,380,1,1,29)
(1,1,1,0,0,296,1,1,29) (1,1,1,0,0,380,1,1,29) (1,1,1,0,1,296,1,1,28) (1,1,1,0,1,380,1,1,28)
(1,1,1,10,0,296,2,2,29) (1,1,1,10,0,380,2,2,29) (1,1,1,10,1,296,2,5,29) (1,1,1,10,1,380,2,5,29)
(1,1,1,21,0,296,1,1,30) (1,1,1,21,0,380,1,1,30) (1,1,1,21,1,296,2,9,29) (1,1,1,21,1,380,2,9,29)
(1,1,1,30,0,296,3,3,29) (1,1,1,30,0,380,3,3,29) (1,1,1,30,1,296,2,3,29) (1,1,1,30,1,380,2,3,29)
(1,1,1,41,0,296,1,1,29) (1,1,1,41,0,380,1,1,29) (1,1,1,41,1,296,1,1,29) (1,1,1,41,1,380,1,1,29)
(1,1,2,0,0,296,2,2,29) (1,1,2,0,0,380,2,2,29) (1,1,2,0,1,296,2,2,29) (1,1,2,0,1,380,2,2,29)
(1,1,2,10,0,296,2,2,29) (1,1,2,10,0,380,2,2,29) (1,1,2,10,1,296,2,2,29) (1,1,2,10,1,380,2,2,29)
(1,1,2,21,0,296,2,2,29) (1,1,2,21,0,380,2,2,29) (1,1,2,21,1,296,2,2,29) (1,1,2,21,1,380,2,2,29)
(1,1,2,30,0,296,2,2,29) (1,1,2,30,0,380,2,2,29) (1,1,2,30,1,296,2,4,29) (1,1,2,30,1,380,2,4,29)
(1,1,2,41,0,296,3,3,29) (1,1,2,41,0,380,3,3,29) (1,1,2,41,1,296,1,1,28) (1,1,2,41,1,380,1,1,28)
(1,1,3,0,0,296,2,2,29) (1,1,3,0,0,380,2,2,29) (1,1,3,0,1,296,2,5,29) (1,1,3,0,1,380,2,5,29)
(1,1,3,10,0,296,1,1,29) (1,1,3,10,0,380,1,1,29) (1,1,3,10,1,296,2,3,28) (1,1,3,10,1,380,2,3,28)
(1,1,3,21,0,296,1,1,30) (1,1,3,21,0,380,1,1,30) (1,1,3,21,1,296,1,1,28) (1,1,3,21,1,380,1,1,28)
(1,1,3,30,0,296,1,1,29) (1,1,3,30,0,380,1,1,29) (1,1,3,30,1,296,2,4,29) (1,1,3,30,1,380,2,4,29)
(1,1,3,41,0,296,2,2,30) (1,1,3,41,0,380,2,2,30) (1,1,3,41,1,296,2,4,29) (1,1,3,41,1,380,2,4,29)
(1,1,4,0,0,296,1,1,30) (1,1,4,0,0,380,1,1,30) (1,1,4,0,1,296,3,3,28) (1,1,4,0,1,380,3,3,28)
(1,1,4,10,0,296,2,2,30) (1,1,4,10,0,380,2,2,30) (1,1,4,10,1,296,2,2,29) (1,1,4,10,1,380,2,2,29)
(1,1,4,21,0,296,1,1,29) (1,1,4,21,0,380,1,1,29) (1,1,4,21,1,296,1,1,28) (1,1,4,21,1,380,1,1,28)
(1,1,4,30,0,296,2,2,29) (1,1,4,30,0,380,2,2,29) (1,1,4,30,1,296,2,2,29) (1,1,4,30,1,380,2,2,29)
(1,1,4,41,0,296,3,3,29) (1,1,4,41,0,380,3,3,29) (1,1,4,41,1,296,1,1,29) (1,1,4,41,1,380,1,1,29)
(1,1,5,0,0,296,2,2,30) (1,1,5,0,0,380,2,2,30) (1,1,5,0,1,296,1,1,29) (1,1,5,0,1,380,1,1,29)
(1,1,5,10,0,296,2,2,29) (1,1,5,10,0,380,2,2,29) (1,1,5,10,1,296,1,1,29) (1,1,5,10,1,380,1,1,29)
(1,1,5,21,0,296,2,2,30) (1,1,5,21,0,380,2,2,30) (1,1,5,21,1,296,1,1,28) (1,1,5,21,1,380,1,1,28)
(1,1,5,30,0,296,1,1,30) (1,1,5,30,0,380,1,1,30) (1,1,5,30,1,296,1,1,29) (1,1,5,30,1,380,1,1,29)
(1,1,5,41,0,296,1,1,29) (1,1,5,41,0,380,1,1,29) (1,1,5,41,1,296,1,1,29) (1,1,5,41,1,380,1,1,29)
(1,1,6,0,0,296,2,2,30) (1,1,6,0,0,380,2,2,30) (1,1,6,0,1,296,3,3,29) (1,1,6,0,1,380,3,3,29)
(1,1,6,10,0,296,1,1,30) (1,1,6,10,0,380,1,1,30) (1,1,6,10,1,296,3,4,28) (1,1,6,10,1,380,3,4,28)
(1,1,6,21,0,296,2,2,30) (1,1,6,21,0,380,2,2,30) (1,1,6,21,1,296,2,6,29) (1,1,6,21,1,380,2,6,29)
(1,1,6,30,0,296,1,1,30) (1,1,6,30,0,380,1,1,30) (1,1,6,30,1,296,2,2,29) (1,1,6,30,1,380,2,2,29)
(1,1,6,41,0,296,1,1,30) (1,1,6,41,0,380,1,1,30) (1,1,6,41,1,296,2,2,29) (1,1,6,41,1,380,2,2,29)
(1,1,7,0,0,296,1,1,29) (1,1,7,0,0,380,1,1,29) (1,1,7,0,1,296,2,6,29) (1,1,7,0,1,380,2,6,29)
(1,1,7,10,0,296,1,1,29) (1,1,7,10,0,380,1,1,29) (1,1,7,10,1,296,2,2,29) (1,1,7,10,1,380,2,2,29)
(1,1,7,21,0,296,1,1,29) (1,1,7,21,0,380,1,1,29) (1,1,7,21,1,296,2,5,29) (1,1,7,21,1,380,2,5,29)
(1,1,7,30,0,296,1,1,29) (1,1,7,30,0,380,1,1,29) (1,1,7,30,1,296,2,4,29) (1,1,7,30,1,380,2,4,29)
(1,1,7,41,0,296,1,1,29) (1,1,7,41,0,380,1,1,29) (1,1,7,41,1,296,2,3,29) (1,1,7,41,1,380,2,3,29)
(1,1,8,0,0,296,2,2,29) (1,1,8,0,0,380,2,2,29) (1,1,8,0,1,296,1,1,29) (1,1,8,0,1,380,1,1,29)
(1,1,8,10,0,296,2,2,29) (1,1,8,10,0,380,2,2,29) (1,1,8,10,1,296,2,5,28) (1,1,8,10,1,380,2,5,28)
(1,1,8,21,0,296,2,2,30) (1,1,8,21,0,380,2,2,30) (1,1,8,21,1,296,2,4,29) (1,1,8,21,1,380,2,4,29)
(1,1,8,30,0,296,1,1,29) (1,1,8,30,0,380,1,1,29) (1,1,8,30,1,296,2,6,28) (1,1,8,30,1,380,2,6,28)
(1,1,8,41,0,296,2,2,30) (1,1,8,41,0,380,2,2,30) (1,1,8,41,1,296,2,4,29) (1,1,8,41,1,380,2,4,29)
(1,1,9,0,0,296,2,2,29) (1,1,9,0,0,380,2,2,29) (1,1,9,0,1,296,2,8,29) (1,1,9,0,1,380,2,8,29)
(1,1,9,10,0,296,2,2,29) (1,1,9,10,0,380,2,2,29) (1,1,9,10,1,296,2,5,29) (1,1,9,10,1,380,2,5,29)
(1,1,9,21,0,296,1,1,30) (1,1,9,21,0,380,1,1,30) (1,1,9,21,1,296,2,2,28) (1,1,9,21,1,380,2,2,28)
(1,1,9,30,0,296,2,2,30) (1,1,9,30,0,380,2,2,30) (1,1,9,30,1,296,2,3,29) (1,1,9,30,1,380,2,3,29)
(1,1,9,41,0,296,1,1,29) (1,1,9,41,0,380,1,1,29) (1,1,9,41,1,296,2,7,28) (1,1,9,41,1,380,2,7,28)
⟨1⟩ ⟨2⟩ 0.⟨3⟩ ⟨4⟩ ⟨5⟩ ⟨6⟩ 0 ⟨7⟩ ⟨8⟩ ⟨9⟩ ×800
⟨⟩ = (0,0,0,0,0,296,2,5,55) (0,0,0,0,0,380,2,5,55) (0,0,0,0,1,296,2,4,54) (0,0,0,0,1,380,2,4,54)
(0,0,0,10,0,296,0,0,58) (0,0,0,10,0,380,0,0,58) (0,0,0,10,1,296,1,1,56) (0,0,0,10,1,380,1,1,56)
(0,0,0,21,0,296,1,1,57) (0,0,0,21,0,380,1,1,57) (0,0,0,21,1,296,0,0,56) (0,0,0,21,1,380,0,0,56)
(0,0,0,30,0,296,3,4,56) (0,0,0,30,0,380,3,4,56) (0,0,0,30,1,296,1,1,58) (0,0,0,30,1,380,1,1,58)
(0,0,0,41,0,296,1,1,57) (0,0,0,41,0,380,1,1,57) (0,0,0,41,1,296,1,1,58) (0,0,0,41,1,380,1,1,58)
(0,0,1,0,0,296,1,5,56) (0,0,1,0,0,380,1,5,56) (0,0,1,0,1,296,1,1,57) (0,0,1,0,1,380,1,1,57)
(0,0,1,10,0,296,2,7,53) (0,0,1,10,0,380,2,7,53) (0,0,1,10,1,296,1,2,58) (0,0,1,10,1,380,1,2,58)
(0,0,1,21,0,296,0,0,58) (0,0,1,21,0,380,0,0,58) (0,0,1,21,1,296,1,1,57) (0,0,1,21,1,380,1,1,57)
(0,0,1,30,0,296,3,3,57) (0,0,1,30,0,380,3,3,57) (0,0,1,30,1,296,1,1,55) (0,0,1,30,1,380,1,1,55)
(0,0,1,41,0,296,1,1,58) (0,0,1,41,0,380,1,1,58) (0,0,1,41,1,296,1,1,56) (0,0,1,41,1,380,1,1,56)
(0,0,2,0,0,296,1,2,56) (0,0,2,0,0,380,1,2,56) (0,0,2,0,1,296,0,0,58) (0,0,2,0,1,380,0,0,58)
(0,0,2,10,0,296,2,3,57) (0,0,2,10,0,380,2,3,57) (0,0,2,10,1,296,2,6,54) (0,0,2,10,1,380,2,6,54)
(0,0,2,21,0,296,4,8,53) (0,0,2,21,0,380,4,8,53) (0,0,2,21,1,296,2,2,57) (0,0,2,21,1,380,2,2,57)
(0,0,2,30,0,296,1,4,55) (0,0,2,30,0,380,1,4,55) (0,0,2,30,1,296,1,2,56) (0,0,2,30,1,380,1,2,56)
(0,0,2,41,0,296,0,0,58) (0,0,2,41,0,380,0,0,58) (0,0,2,41,1,296,3,3,56) (0,0,2,41,1,380,3,3,56)
(0,0,3,0,0,296,1,4,57) (0,0,3,0,0,380,1,4,57) (0,0,3,0,1,296,4,4,57) (0,0,3,0,1,380,4,4,57)
(0,0,3,10,0,296,0,0,56) (0,0,3,10,0,380,0,0,56) (0,0,3,10,1,296,1,1,56) (0,0,3,10,1,380,1,1,56)
(0,0,3,21,0,296,3,4,56) (0,0,3,21,0,380,3,4,56) (0,0,3,21,1,296,1,1,58) (0,0,3,21,1,380,1,1,58)
(0,0,3,30,0,296,2,2,56) (0,0,3,30,0,380,2,2,56) (0,0,3,30,1,296,2,3,55) (0,0,3,30,1,380,2,3,55)
(0,0,3,41,0,296,2,3,55) (0,0,3,41,0,380,2,3,55) (0,0,3,41,1,296,4,4,56) (0,0,3,41,1,380,4,4,56)
(0,0,4,0,0,296,1,3,57) (0,0,4,0,0,380,1,3,57) (0,0,4,0,1,296,1,1,55) (0,0,4,0,1,380,1,1,55)
(0,0,4,10,0,296,1,1,57) (0,0,4,10,0,380,1,1,57) (0,0,4,10,1,296,2,2,55) (0,0,4,10,1,380,2,2,55)
(0,0,4,21,0,296,1,1,57) (0,0,4,21,0,380,1,1,57) (0,0,4,21,1,296,0,0,56) (0,0,4,21,1,380,0,0,56)
(0,0,4,30,0,296,2,2,58) (0,0,4,30,0,380,2,2,58) (0,0,4,30,1,296,0,0,58) (0,0,4,30,1,380,0,0,58)
(0,0,4,41,0,296,3,4,54) (0,0,4,41,0,380,3,4,54) (0,0,4,41,1,296,0,0,58) (0,0,4,41,1,380,0,0,58)
(0,0,5,0,0,296,1,1,57) (0,0,5,0,0,380,1,1,57) (0,0,5,0,1,296,2,2,57) (0,0,5,0,1,380,2,2,57)
(0,0,5,10,0,296,2,2,57) (0,0,5,10,0,380,2,2,57) (0,0,5,10,1,296,4,5,56) (0,0,5,10,1,380,4,5,56)
(0,0,5,21,0,296,2,2,57) (0,0,5,21,0,380,2,2,57) (0,0,5,21,1,296,4,4,55) (0,0,5,21,1,380,4,4,55)
(0,0,5,30,0,296,2,3,58) (0,0,5,30,0,380,2,3,58) (0,0,5,30,1,296,4,4,55) (0,0,5,30,1,380,4,4,55)
(0,0,5,41,0,296,2,2,56) (0,0,5,41,0,380,2,2,56) (0,0,5,41,1,296,4,4,57) (0,0,5,41,1,380,4,4,57)
(0,0,6,0,0,296,2,7,57) (0,0,6,0,0,380,2,7,57) (0,0,6,0,1,296,3,3,57) (0,0,6,0,1,380,3,3,57)
(0,0,6,10,0,296,1,1,57) (0,0,6,10,0,380,1,1,57) (0,0,6,10,1,296,2,2,55) (0,0,6,10,1,380,2,2,55)
(0,0,6,21,0,296,0,0,58) (0,0,6,21,0,380,0,0,58) (0,0,6,21,1,296,3,4,58) (0,0,6,21,1,380,3,4,58)
(0,0,6,30,0,296,1,2,57) (0,0,6,30,0,380,1,2,57) (0,0,6,30,1,296,4,4,56) (0,0,6,30,1,380,4,4,56)
(0,0,6,41,0,296,0,0,58) (0,0,6,41,0,380,0,0,58) (0,0,6,41,1,296,2,2,55) (0,0,6,41,1,380,2,2,55)
(0,0,7,0,0,296,1,10,53) (0,0,7,0,0,380,1,10,53) (0,0,7,0,1,296,0,0,58) (0,0,7,0,1,380,0,0,58)
(0,0,7,10,0,296,1,2,57) (0,0,7,10,0,380,1,2,57) (0,0,7,10,1,296,0,0,58) (0,0,7,10,1,380,0,0,58)
(0,0,7,21,0,296,2,7,54) (0,0,7,21,0,380,2,7,54) (0,0,7,21,1,296,0,0,58) (0,0,7,21,1,380,0,0,58)
(0,0,7,30,0,296,0,0,58) (0,0,7,30,0,380,0,0,58) (0,0,7,30,1,296,2,2,57) (0,0,7,30,1,380,2,2,57)
(0,0,7,41,0,296,1,5,55) (0,0,7,41,0,380,1,5,55) (0,0,7,41,1,296,0,0,58) (0,0,7,41,1,380,0,0,58)
(0,0,8,0,0,296,2,9,53) (0,0,8,0,0,380,2,9,53) (0,0,8,0,1,296,0,0,56) (0,0,8,0,1,380,0,0,56)
(0,0,8,10,0,296,1,3,57) (0,0,8,10,0,380,1,3,57) (0,0,8,10,1,296,2,4,55) (0,0,8,10,1,380,2,4,55)
(0,0,8,21,0,296,1,7,56) (0,0,8,21,0,380,1,7,56) (0,0,8,21,1,296,0,0,56) (0,0,8,21,1,380,0,0,56)
(0,0,8,30,0,296,0,0,58) (0,0,8,30,0,380,0,0,58) (0,0,8,30,1,296,0,0,58) (0,0,8,30,1,380,0,0,58)
(0,0,8,41,0,296,2,6,55) (0,0,8,41,0,380,2,6,55) (0,0,8,41,1,296,0,0,58) (0,0,8,41,1,380,0,0,58)
(0,0,9,0,0,296,1,5,55) (0,0,9,0,0,380,1,5,55) (0,0,9,0,1,296,1,1,55) (0,0,9,0,1,380,1,1,55)
(0,0,9,10,0,296,3,3,57) (0,0,9,10,0,380,3,3,57) (0,0,9,10,1,296,1,1,55) (0,0,9,10,1,380,1,1,55)
(0,0,9,21,0,296,1,1,58) (0,0,9,21,0,380,1,1,58) (0,0,9,21,1,296,1,1,55) (0,0,9,21,1,380,1,1,55)
(0,0,9,30,0,296,1,1,58) (0,0,9,30,0,380,1,1,58) (0,0,9,30,1,296,1,1,55) (0,0,9,30,1,380,1,1,55)
(0,0,9,41,0,296,1,10,51) (0,0,9,41,0,380,1,10,51) (0,0,9,41,1,296,2,2,57) (0,0,9,41,1,380,2,2,57)
(0,1,0,0,0,296,1,1,29) (0,1,0,0,0,380,1,1,29) (0,1,0,0,1,296,1,1,29) (0,1,0,0,1,380,1,1,29)
(0,1,0,10,0,296,1,1,29) (0,1,0,10,0,380,1,1,29) (0,1,0,10,1,296,1,1,28) (0,1,0,10,1,380,1,1,28)
(0,1,0,21,0,296,1,1,29) (0,1,0,21,0,380,1,1,29) (0,1,0,21,1,296,1,1,28) (0,1,0,21,1,380,1,1,28)
(0,1,0,30,0,296,3,3,29) (0,1,0,30,0,380,3,3,29) (0,1,0,30,1,296,1,1,28) (0,1,0,30,1,380,1,1,28)
(0,1,0,41,0,296,1,1,29) (0,1,0,41,0,380,1,1,29) (0,1,0,41,1,296,1,1,29) (0,1,0,41,1,380,1,1,29)
(0,1,1,0,0,296,1,1,29) (0,1,1,0,0,380,1,1,29) (0,1,1,0,1,296,1,1,29) (0,1,1,0,1,380,1,1,29)
(0,1,1,10,0,296,3,3,29) (0,1,1,10,0,380,3,3,29) (0,1,1,10,1,296,2,2,28) (0,1,1,10,1,380,2,2,28)
(0,1,1,21,0,296,2,5,29) (0,1,1,21,0,380,2,5,29) (0,1,1,21,1,296,2,2,29) (0,1,1,21,1,380,2,2,29)
(0,1,1,30,0,296,1,1,29) (0,1,1,30,0,380,1,1,29) (0,1,1,30,1,296,1,1,29) (0,1,1,30,1,380,1,1,29)
(0,1,1,41,0,296,2,5,29) (0,1,1,41,0,380,2,5,29) (0,1,1,41,1,296,1,1,28) (0,1,1,41,1,380,1,1,28)
(0,1,2,0,0,296,2,4,29) (0,1,2,0,0,380,2,4,29) (0,1,2,0,1,296,2,2,29) (0,1,2,0,1,380,2,2,29)
(0,1,2,10,0,296,1,1,29) (0,1,2,10,0,380,1,1,29) (0,1,2,10,1,296,2,2,29) (0,1,2,10,1,380,2,2,29)
(0,1,2,21,0,296,1,1,29) (0,1,2,21,0,380,1,1,29) (0,1,2,21,1,296,3,4,28) (0,1,2,21,1,380,3,4,28)
(0,1,2,30,0,296,1,1,29) (0,1,2,30,0,380,1,1,29) (0,1,2,30,1,296,2,2,29) (0,1,2,30,1,380,2,2,29)
(0,1,2,41,0,296,2,3,29) (0,1,2,41,0,380,2,3,29) (0,1,2,41,1,296,3,3,29) (0,1,2,41,1,380,3,3,29)
(0,1,3,0,0,296,2,3,29) (0,1,3,0,0,380,2,3,29) (0,1,3,0,1,296,2,2,29) (0,1,3,0,1,380,2,2,29)
(0,1,3,10,0,296,2,3,29) (0,1,3,10,0,380,2,3,29) (0,1,3,10,1,296,1,1,28) (0,1,3,10,1,380,1,1,28)
(0,1,3,21,0,296,2,4,29) (0,1,3,21,0,380,2,4,29) (0,1,3,21,1,296,3,3,29) (0,1,3,21,1,380,3,3,29)
(0,1,3,30,0,296,1,1,29) (0,1,3,30,0,380,1,1,29) (0,1,3,30,1,296,2,2,29) (0,1,3,30,1,380,2,2,29)
(0,1,3,41,0,296,1,1,29) (0,1,3,41,0,380,1,1,29) (0,1,3,41,1,296,1,1,29) (0,1,3,41,1,380,1,1,29)
(0,1,4,0,0,296,2,2,29) (0,1,4,0,0,380,2,2,29) (0,1,4,0,1,296,1,1,29) (0,1,4,0,1,380,1,1,29)
(0,1,4,10,0,296,2,2,29) (0,1,4,10,0,380,2,2,29) (0,1,4,10,1,296,1,1,28) (0,1,4,10,1,380,1,1,28)
(0,1,4,21,0,296,1,1,29) (0,1,4,21,0,380,1,1,29) (0,1,4,21,1,296,2,2,28) (0,1,4,21,1,380,2,2,28)
(0,1,4,30,0,296,1,1,29) (0,1,4,30,0,380,1,1,29) (0,1,4,30,1,296,1,1,28) (0,1,4,30,1,380,1,1,28)
(0,1,4,41,0,296,2,3,29) (0,1,4,41,0,380,2,3,29) (0,1,4,41,1,296,1,1,29) (0,1,4,41,1,380,1,1,29)
(0,1,5,0,0,296,2,2,29) (0,1,5,0,0,380,2,2,29) (0,1,5,0,1,296,1,1,28) (0,1,5,0,1,380,1,1,28)
(0,1,5,10,0,296,2,2,29) (0,1,5,10,0,380,2,2,29) (0,1,5,10,1,296,1,1,28) (0,1,5,10,1,380,1,1,28)
(0,1,5,21,0,296,2,2,29) (0,1,5,21,0,380,2,2,29) (0,1,5,21,1,296,1,1,28) (0,1,5,21,1,380,1,1,28)
(0,1,5,30,0,296,1,1,29) (0,1,5,30,0,380,1,1,29) (0,1,5,30,1,296,2,2,29) (0,1,5,30,1,380,2,2,29)
(0,1,5,41,0,296,2,2,29) (0,1,5,41,0,380,2,2,29) (0,1,5,41,1,296,1,1,28) (0,1,5,41,1,380,1,1,28)
(0,1,6,0,0,296,2,3,29) (0,1,6,0,0,380,2,3,29) (0,1,6,0,1,296,1,1,28) (0,1,6,0,1,380,1,1,28)
(0,1,6,10,0,296,1,1,29) (0,1,6,10,0,380,1,1,29) (0,1,6,10,1,296,1,1,29) (0,1,6,10,1,380,1,1,29)
(0,1,6,21,0,296,2,2,29) (0,1,6,21,0,380,2,2,29) (0,1,6,21,1,296,1,1,29) (0,1,6,21,1,380,1,1,29)
(0,1,6,30,0,296,2,2,29) (0,1,6,30,0,380,2,2,29) (0,1,6,30,1,296,2,2,28) (0,1,6,30,1,380,2,2,28)
(0,1,6,41,0,296,2,9,29) (0,1,6,41,0,380,2,9,29) (0,1,6,41,1,296,1,1,29) (0,1,6,41,1,380,1,1,29)
(0,1,7,0,0,296,2,4,29) (0,1,7,0,0,380,2,4,29) (0,1,7,0,1,296,1,1,29) (0,1,7,0,1,380,1,1,29)
(0,1,7,10,0,296,2,2,29) (0,1,7,10,0,380,2,2,29) (0,1,7,10,1,296,1,1,29) (0,1,7,10,1,380,1,1,29)
(0,1,7,21,0,296,2,2,29) (0,1,7,21,0,380,2,2,29) (0,1,7,21,1,296,1,1,29) (0,1,7,21,1,380,1,1,29)
(0,1,7,30,0,296,1,1,29) (0,1,7,30,0,380,1,1,29) (0,1,7,30,1,296,1,1,29) (0,1,7,30,1,380,1,1,29)
(0,1,7,41,0,296,2,4,29) (0,1,7,41,0,380,2,4,29) (0,1,7,41,1,296,1,1,29) (0,1,7,41,1,380,1,1,29)
(0,1,8,0,0,296,2,5,29) (0,1,8,0,0,380,2,5,29) (0,1,8,0,1,296,2,2,28) (0,1,8,0,1,380,2,2,28)
(0,1,8,10,0,296,2,3,29) (0,1,8,10,0,380,2,3,29) (0,1,8,10,1,296,3,3,28) (0,1,8,10,1,380,3,3,28)
(0,1,8,21,0,296,2,9,29) (0,1,8,21,0,380,2,9,29) (0,1,8,21,1,296,2,4,29) (0,1,8,21,1,380,2,4,29)
(0,1,8,30,0,296,1,1,29) (0,1,8,30,0,380,1,1,29) (0,1,8,30,1,296,1,1,29) (0,1,8,30,1,380,1,1,29)
(0,1,8,41,0,296,2,4,29) (0,1,8,41,0,380,2,4,29) (0,1,8,41,1,296,2,2,29) (0,1,8,41,1,380,2,2,29)
(0,1,9,0,0,296,2,5,29) (0,1,9,0,0,380,2,5,29) (0,1,9,0,1,296,2,2,29) (0,1,9,0,1,380,2,2,29)
(0,1,9,10,0,296,2,2,29) (0,1,9,10,0,380,2,2,29) (0,1,9,10,1,296,1,1,29) (0,1,9,10,1,380,1,1,29)
(0,1,9,21,0,296,2,2,29) (0,1,9,21,0,380,2,2,29) (0,1,9,21,1,296,2,2,29) (0,1,9,21,1,380,2,2,29)
(0,1,9,30,0,296,2,4,29) (0,1,9,30,0,380,2,4,29) (0,1,9,30,1,296,1,1,29) (0,1,9,30,1,380,1,1,29)
(0,1,9,41,0,296,2,7,29) (0,1,9,41,0,380,2,7,29) (0,1,9,41,1,296,2,2,29) (0,1,9,41,1,380,2,2,29)
(1,0,0,0,0,296,1,3,58) (1,0,0,0,0,380,1,3,58) (1,0,0,0,1,296,1,2,57) (1,0,0,0,1,380,1,2,57)
(1,0,0,10,0,296,1,1,57) (1,0,0,10,0,380,1,1,57) (1,0,0,10,1,296,2,6,57) (1,0,0,10,1,380,2,6,57)
(1,0,0,21,0,296,1,1,57) (1,0,0,21,0,380,1,1,57) (1,0,0,21,1,296,2,2,57) (1,0,0,21,1,380,2,2,57)
(1,0,0,30,0,296,1,1,58) (1,0,0,30,0,380,1,1,58) (1,0,0,30,1,296,2,2,56) (1,0,0,30,1,380,2,2,56)
(1,0,0,41,0,296,0,0,58) (1,0,0,41,0,380,0,0,58) (1,0,0,41,1,296,3,3,54) (1,0,0,41,1,380,3,3,54)
(1,0,1,0,0,296,1,1,57) (1,0,1,0,0,380,1,1,57) (1,0,1,0,1,296,1,1,58) (1,0,1,0,1,380,1,1,58)
(1,0,1,10,0,296,1,1,58) (1,0,1,10,0,380,1,1,58) (1,0,1,10,1,296,1,3,56) (1,0,1,10,1,380,1,3,56)
(1,0,1,21,0,296,1,1,57) (1,0,1,21,0,380,1,1,57) (1,0,1,21,1,296,0,0,58) (1,0,1,21,1,380,0,0,58)
(1,0,1,30,0,296,2,2,58) (1,0,1,30,0,380,2,2,58) (1,0,1,30,1,296,2,5,56) (1,0,1,30,1,380,2,5,56)
(1,0,1,41,0,296,3,3,57) (1,0,1,41,0,380,3,3,57) (1,0,1,41,1,296,1,2,57) (1,0,1,41,1,380,1,2,57)
(1,0,2,0,0,296,0,0,58) (1,0,2,0,0,380,0,0,58) (1,0,2,0,1,296,3,3,54) (1,0,2,0,1,380,3,3,54)
(1,0,2,10,0,296,2,2,57) (1,0,2,10,0,380,2,2,57) (1,0,2,10,1,296,0,0,58) (1,0,2,10,1,380,0,0,58)
(1,0,2,21,0,296,1,1,57) (1,0,2,21,0,380,1,1,57) (1,0,2,21,1,296,1,1,58) (1,0,2,21,1,380,1,1,58)
(1,0,2,30,0,296,3,4,57) (1,0,2,30,0,380,3,4,57) (1,0,2,30,1,296,3,3,57) (1,0,2,30,1,380,3,3,57)
(1,0,2,41,0,296,2,2,57) (1,0,2,41,0,380,2,2,57) (1,0,2,41,1,296,3,3,57) (1,0,2,41,1,380,3,3,57)
(1,0,3,0,0,296,4,4,55) (1,0,3,0,0,380,4,4,55) (1,0,3,0,1,296,0,0,58) (1,0,3,0,1,380,0,0,58)
(1,0,3,10,0,296,2,2,58) (1,0,3,10,0,380,2,2,58) (1,0,3,10,1,296,0,0,58) (1,0,3,10,1,380,0,0,58)
(1,0,3,21,0,296,1,1,58) (1,0,3,21,0,380,1,1,58) (1,0,3,21,1,296,0,0,56) (1,0,3,21,1,380,0,0,56)
(1,0,3,30,0,296,3,3,55) (1,0,3,30,0,380,3,3,55) (1,0,3,30,1,296,0,0,58) (1,0,3,30,1,380,0,0,58)
(1,0,3,41,0,296,1,1,58) (1,0,3,41,0,380,1,1,58) (1,0,3,41,1,296,1,1,55) (1,0,3,41,1,380,1,1,55)
(1,0,4,0,0,296,3,4,55) (1,0,4,0,0,380,3,4,55) (1,0,4,0,1,296,0,0,58) (1,0,4,0,1,380,0,0,58)
(1,0,4,10,0,296,0,0,58) (1,0,4,10,0,380,0,0,58) (1,0,4,10,1,296,1,1,58) (1,0,4,10,1,380,1,1,58)
(1,0,4,21,0,296,4,4,56) (1,0,4,21,0,380,4,4,56) (1,0,4,21,1,296,0,0,56) (1,0,4,21,1,380,0,0,56)
(1,0,4,30,0,296,4,4,57) (1,0,4,30,0,380,4,4,57) (1,0,4,30,1,296,2,2,57) (1,0,4,30,1,380,2,2,57)
(1,0,4,41,0,296,0,0,58) (1,0,4,41,0,380,0,0,58) (1,0,4,41,1,296,1,1,55) (1,0,4,41,1,380,1,1,55)
(1,0,5,0,0,296,1,1,58) (1,0,5,0,0,380,1,1,58) (1,0,5,0,1,296,3,3,56) (1,0,5,0,1,380,3,3,56)
(1,0,5,10,0,296,0,0,58) (1,0,5,10,0,380,0,0,58) (1,0,5,10,1,296,1,1,57) (1,0,5,10,1,380,1,1,57)
(1,0,5,21,0,296,0,0,58) (1,0,5,21,0,380,0,0,58) (1,0,5,21,1,296,1,1,57) (1,0,5,21,1,380,1,1,57)
(1,0,5,30,0,296,3,3,55) (1,0,5,30,0,380,3,3,55) (1,0,5,30,1,296,3,3,54) (1,0,5,30,1,380,3,3,54)
(1,0,5,41,0,296,1,1,57) (1,0,5,41,0,380,1,1,57) (1,0,5,41,1,296,1,1,57) (1,0,5,41,1,380,1,1,57)
(1,0,6,0,0,296,4,4,57) (1,0,6,0,0,380,4,4,57) (1,0,6,0,1,296,3,3,58) (1,0,6,0,1,380,3,3,58)
(1,0,6,10,0,296,0,0,58) (1,0,6,10,0,380,0,0,58) (1,0,6,10,1,296,0,0,56) (1,0,6,10,1,380,0,0,56)
(1,0,6,21,0,296,0,0,58) (1,0,6,21,0,380,0,0,58) (1,0,6,21,1,296,0,0,58) (1,0,6,21,1,380,0,0,58)
(1,0,6,30,0,296,1,1,58) (1,0,6,30,0,380,1,1,58) (1,0,6,30,1,296,0,0,56) (1,0,6,30,1,380,0,0,56)
(1,0,6,41,0,296,2,2,57) (1,0,6,41,0,380,2,2,57) (1,0,6,41,1,296,1,1,58) (1,0,6,41,1,380,1,1,58)
(1,0,7,0,0,296,1,1,58) (1,0,7,0,0,380,1,1,58) (1,0,7,0,1,296,0,0,58) (1,0,7,0,1,380,0,0,58)
(1,0,7,10,0,296,0,0,58) (1,0,7,10,0,380,0,0,58) (1,0,7,10,1,296,0,0,58) (1,0,7,10,1,380,0,0,58)
(1,0,7,21,0,296,2,2,58) (1,0,7,21,0,380,2,2,58) (1,0,7,21,1,296,0,0,58) (1,0,7,21,1,380,0,0,58)
(1,0,7,30,0,296,0,0,58) (1,0,7,30,0,380,0,0,58) (1,0,7,30,1,296,0,0,58) (1,0,7,30,1,380,0,0,58)
(1,0,7,41,0,296,1,1,58) (1,0,7,41,0,380,1,1,58) (1,0,7,41,1,296,0,0,58) (1,0,7,41,1,380,0,0,58)
(1,0,8,0,0,296,3,4,55) (1,0,8,0,0,380,3,4,55) (1,0,8,0,1,296,2,2,56) (1,0,8,0,1,380,2,2,56)
(1,0,8,10,0,296,3,3,55) (1,0,8,10,0,380,3,3,55) (1,0,8,10,1,296,1,1,58) (1,0,8,10,1,380,1,1,58)
(1,0,8,21,0,296,0,0,58) (1,0,8,21,0,380,0,0,58) (1,0,8,21,1,296,0,0,58) (1,0,8,21,1,380,0,0,58)
(1,0,8,30,0,296,1,2,56) (1,0,8,30,0,380,1,2,56) (1,0,8,30,1,296,1,1,58) (1,0,8,30,1,380,1,1,58)
(1,0,8,41,0,296,1,3,55) (1,0,8,41,0,380,1,3,55) (1,0,8,41,1,296,1,1,58) (1,0,8,41,1,380,1,1,58)
(1,0,9,0,0,296,1,1,58) (1,0,9,0,0,380,1,1,58) (1,0,9,0,1,296,3,3,54) (1,0,9,0,1,380,3,3,54)
(1,0,9,10,0,296,2,2,57) (1,0,9,10,0,380,2,2,57) (1,0,9,10,1,296,3,3,56) (1,0,9,10,1,380,3,3,56)
(1,0,9,21,0,296,3,3,57) (1,0,9,21,0,380,3,3,57) (1,0,9,21,1,296,1,1,57) (1,0,9,21,1,380,1,1,57)
(1,0,9,30,0,296,1,1,58) (1,0,9,30,0,380,1,1,58) (1,0,9,30,1,296,2,2,54) (1,0,9,30,1,380,2,2,54)
(1,0,9,41,0,296,1,1,58) (1,0,9,41,0,380,1,1,58) (1,0,9,41,1,296,1,1,57) (1,0,9,41,1,380,1,1,57)
(1,1,0,0,0,296,1,1,29) (1,1,0,0,0,380,1,1,29) (1,1,0,0,1,296,3,3,29) (1,1,0,0,1,380,3,3,29)
(1,1,0,10,0,296,1,1,29) (1,1,0,10,0,380,1,1,29) (1,1,0,10,1,296,1,1,28) (1,1,0,10,1,380,1,1,28)
(1,1,0,21,0,296,1,1,29) (1,1,0,21,0,380,1,1,29) (1,1,0,21,1,296,1,1,28) (1,1,0,21,1,380,1,1,28)
(1,1,0,30,0,296,1,1,29) (1,1,0,30,0,380,1,1,29) (1,1,0,30,1,296,2,2,29) (1,1,0,30,1,380,2,2,29)
(1,1,0,41,0,296,1,1,29) (1,1,0,41,0,380,1,1,29) (1,1,0,41,1,296,1,1,29) (1,1,0,41,1,380,1,1,29)
(1,1,1,0,0,296,2,2,29) (1,1,1,0,0,380,2,2,29) (1,1,1,0,1,296,1,1,29) (1,1,1,0,1,380,1,1,29)
(1,1,1,10,0,296,2,2,29) (1,1,1,10,0,380,2,2,29) (1,1,1,10,1,296,1,1,29) (1,1,1,10,1,380,1,1,29)
(1,1,1,21,0,296,2,2,29) (1,1,1,21,0,380,2,2,29) (1,1,1,21,1,296,1,1,29) (1,1,1,21,1,380,1,1,29)
(1,1,1,30,0,296,2,2,29) (1,1,1,30,0,380,2,2,29) (1,1,1,30,1,296,1,1,28) (1,1,1,30,1,380,1,1,28)
(1,1,1,41,0,296,1,1,29) (1,1,1,41,0,380,1,1,29) (1,1,1,41,1,296,2,2,28) (1,1,1,41,1,380,2,2,28)
(1,1,2,0,0,296,2,2,29) (1,1,2,0,0,380,2,2,29) (1,1,2,0,1,296,1,1,29) (1,1,2,0,1,380,1,1,29)
(1,1,2,10,0,296,2,2,29) (1,1,2,10,0,380,2,2,29) (1,1,2,10,1,296,1,1,29) (1,1,2,10,1,380,1,1,29)
(1,1,2,21,0,296,1,1,29) (1,1,2,21,0,380,1,1,29) (1,1,2,21,1,296,2,2,29) (1,1,2,21,1,380,2,2,29)
(1,1,2,30,0,296,2,2,29) (1,1,2,30,0,380,2,2,29) (1,1,2,30,1,296,1,1,28) (1,1,2,30,1,380,1,1,28)
(1,1,2,41,0,296,1,1,29) (1,1,2,41,0,380,1,1,29) (1,1,2,41,1,296,3,3,29) (1,1,2,41,1,380,3,3,29)
(1,1,3,0,0,296,2,2,29) (1,1,3,0,0,380,2,2,29) (1,1,3,0,1,296,2,2,29) (1,1,3,0,1,380,2,2,29)
(1,1,3,10,0,296,2,2,28) (1,1,3,10,0,380,2,2,28) (1,1,3,10,1,296,1,1,28) (1,1,3,10,1,380,1,1,28)
(1,1,3,21,0,296,2,2,29) (1,1,3,21,0,380,2,2,29) (1,1,3,21,1,296,1,1,29) (1,1,3,21,1,380,1,1,29)
(1,1,3,30,0,296,1,1,29) (1,1,3,30,0,380,1,1,29) (1,1,3,30,1,296,1,1,28) (1,1,3,30,1,380,1,1,28)
(1,1,3,41,0,296,1,1,29) (1,1,3,41,0,380,1,1,29) (1,1,3,41,1,296,2,2,28) (1,1,3,41,1,380,2,2,28)
(1,1,4,0,0,296,2,2,29) (1,1,4,0,0,380,2,2,29) (1,1,4,0,1,296,3,3,28) (1,1,4,0,1,380,3,3,28)
(1,1,4,10,0,296,1,1,29) (1,1,4,10,0,380,1,1,29) (1,1,4,10,1,296,1,1,28) (1,1,4,10,1,380,1,1,28)
(1,1,4,21,0,296,1,1,29) (1,1,4,21,0,380,1,1,29) (1,1,4,21,1,296,1,1,28) (1,1,4,21,1,380,1,1,28)
(1,1,4,30,0,296,1,1,29) (1,1,4,30,0,380,1,1,29) (1,1,4,30,1,296,1,1,29) (1,1,4,30,1,380,1,1,29)
(1,1,4,41,0,296,1,1,29) (1,1,4,41,0,380,1,1,29) (1,1,4,41,1,296,1,1,29) (1,1,4,41,1,380,1,1,29)
(1,1,5,0,0,296,2,2,29) (1,1,5,0,0,380,2,2,29) (1,1,5,0,1,296,2,2,28) (1,1,5,0,1,380,2,2,28)
(1,1,5,10,0,296,1,1,29) (1,1,5,10,0,380,1,1,29) (1,1,5,10,1,296,2,2,28) (1,1,5,10,1,380,2,2,28)
(1,1,5,21,0,296,2,2,29) (1,1,5,21,0,380,2,2,29) (1,1,5,21,1,296,2,2,28) (1,1,5,21,1,380,2,2,28)
(1,1,5,30,0,296,1,1,29) (1,1,5,30,0,380,1,1,29) (1,1,5,30,1,296,2,2,28) (1,1,5,30,1,380,2,2,28)
(1,1,5,41,0,296,2,2,29) (1,1,5,41,0,380,2,2,29) (1,1,5,41,1,296,2,2,29) (1,1,5,41,1,380,2,2,29)
(1,1,6,0,0,296,2,2,29) (1,1,6,0,0,380,2,2,29) (1,1,6,0,1,296,3,3,29) (1,1,6,0,1,380,3,3,29)
(1,1,6,10,0,296,1,1,29) (1,1,6,10,0,380,1,1,29) (1,1,6,10,1,296,2,2,29) (1,1,6,10,1,380,2,2,29)
(1,1,6,21,0,296,1,1,29) (1,1,6,21,0,380,1,1,29) (1,1,6,21,1,296,3,3,29) (1,1,6,21,1,380,3,3,29)
(1,1,6,30,0,296,1,1,29) (1,1,6,30,0,380,1,1,29) (1,1,6,30,1,296,3,3,29) (1,1,6,30,1,380,3,3,29)
(1,1,6,41,0,296,2,2,29) (1,1,6,41,0,380,2,2,29) (1,1,6,41,1,296,1,1,28) (1,1,6,41,1,380,1,1,28)
(1,1,7,0,0,296,1,1,29) (1,1,7,0,0,380,1,1,29) (1,1,7,0,1,296,1,1,29) (1,1,7,0,1,380,1,1,29)
(1,1,7,10,0,296,1,1,29) (1,1,7,10,0,380,1,1,29) (1,1,7,10,1,296,1,1,29) (1,1,7,10,1,380,1,1,29)
(1,1,7,21,0,296,1,1,29) (1,1,7,21,0,380,1,1,29) (1,1,7,21,1,296,1,1,29) (1,1,7,21,1,380,1,1,29)
(1,1,7,30,0,296,1,1,29) (1,1,7,30,0,380,1,1,29) (1,1,7,30,1,296,1,1,29) (1,1,7,30,1,380,1,1,29)
(1,1,7,41,0,296,1,1,29) (1,1,7,41,0,380,1,1,29) (1,1,7,41,1,296,1,1,29) (1,1,7,41,1,380,1,1,29)
(1,1,8,0,0,296,1,1,29) (1,1,8,0,0,380,1,1,29) (1,1,8,0,1,296,1,1,28) (1,1,8,0,1,380,1,1,28)
(1,1,8,10,0,296,1,1,29) (1,1,8,10,0,380,1,1,29) (1,1,8,10,1,296,2,8,29) (1,1,8,10,1,380,2,8,29)
(1,1,8,21,0,296,1,1,29) (1,1,8,21,0,380,1,1,29) (1,1,8,21,1,296,1,1,28) (1,1,8,21,1,380,1,1,28)
(1,1,8,30,0,296,1,1,29) (1,1,8,30,0,380,1,1,29) (1,1,8,30,1,296,1,1,29) (1,1,8,30,1,380,1,1,29)
(1,1,8,41,0,296,2,3,29) (1,1,8,41,0,380,2,3,29) (1,1,8,41,1,296,1,1,29) (1,1,8,41,1,380,1,1,29)
(1,1,9,0,0,296,1,1,29) (1,1,9,0,0,380,1,1,29) (1,1,9,0,1,296,2,2,28) (1,1,9,0,1,380,2,2,28)
(1,1,9,10,0,296,1,1,29) (1,1,9,10,0,380,1,1,29) (1,1,9,10,1,296,2,2,28) (1,1,9,10,1,380,2,2,28)
(1,1,9,21,0,296,3,3,29) (1,1,9,21,0,380,3,3,29) (1,1,9,21,1,296,2,2,28) (1,1,9,21,1,380,2,2,28)
(1,1,9,30,0,296,1,1,29) (1,1,9,30,0,380,1,1,29) (1,1,9,30,1,296,2,2,28) (1,1,9,30,1,380,2,2,28)
(1,1,9,41,0,296,1,1,29) (1,1,9,41,0,380,1,1,29) (1,1,9,41,1,296,2,2,29) (1,1,9,41,1,380,2,2,29)8.7 /opt/GSM/c54x_exe/docs/README.fr.md
19966 octets, 373 lignes
8.7.1 c54x_exe — le DSP Calypso sans QEMU
Fait tourner la mask-ROM TI du TMS320C54x seule : pas de QEMU, pas d’ARM, pas de firmware osmocom-bb.
make
./c54x_exe --trames 200
./c54x_exe --trames 50 --verbeux # une ligne par trame
./c54x_exe -vv # traces du coeur : -v .. -vvvvvv, voir --helpPar defaut seules les erreurs du coeur C54x passent sur stderr ; le bilan dit combien de lignes ont ete masquees et avec quel -v les voir. -vvvvvv rend stderr brut. Le classement est par mots-clefs sur le nom de la sonde (src/verbosite.c), pas par liste : une sonde nouvelle tombe dans un niveau raisonnable sans declaration.
8.7.1.1 Lancer exe par exe : le cote mobile, sans le reseau
[2026-09-17] Quatre executables, dans cet ordre, chacun attendant le precedent. run.sh fait exactement ca ; ce qui suit est la version a la main, pour voir ce que chaque etape produit. Aucun element reseau (BTS, BSC, MSC, pont gr-gsm) : le mobile cherche une cellule et n’en trouve pas, c’est attendu tant qu’aucun burst n’est injecte dans le DSP. Avec la BTS et PONT=1, voir l’etat du 2026-09-23 plus bas.
./run.sh # tout, dans l'ordre ./run.sh --status qui tourne
./run.sh --logs # suivre les 4 journaux ./run.sh --stop tout arreter, nettoyer
./run.sh --step 3 # une seule etape (les precedentes doivent tourner)
INSNS=8000 VERB=-vv ./run.sh # budget DSP par trame (80000 par defaut), niveau de traces
MODE=grgsm ./run.sh # l'autre montage : couche 1 gr-gsm dans QEMU, sans c54x_exe
PONT=1 ./run.sh # avec l'etape 5 (le pont TRX) ; defaut PONT=0 : le mobile seul
IQ=cell ./run.sh # c54x_exe fabrique une cellule GMSK (FCCH/SCH) a chaque trame
LOCKSTEP=0 ./run.sh # horloge murale : QEMU n'attend pas le DSP et saute des trames (defaut 1)run.sh connait deux montages (MODE=dsp, le defaut, et MODE=grgsm) et une cinquieme etape, le pont TRX, qui relie le BTS osmo-bts-trx (TRXD 5700-5702) a la couche 1 du mobile : GSMTAP 4730/4731 pour gr-gsm, --dsp-port 6702 vers le BSP de c54x_exe pour le DSP. [2026-09-23] Le defaut est PONT=0 (depuis le 17/09) : PONT=1 ./run.sh ajoute l’etape 5. En MODE=dsp elle lance pont/pont_dsp.py (sous-paquet pont/dsp/, bascule TCH suivie par le firmware), en MODE=grgsm pont/pont.py ; PONT_PY force l’un ou l’autre. Le pont n’est plus lance avec --no-record (PONT_AIRREC=1 par defaut, pour la FFT du panneau ; PONT_AIRREC=0 le remet). Les memes chaines se lancent par leur nom : qosmo-dsp, qosmo-grgsm, et exe par exe c54x_exe, osmocon, grgsm_exe (/usr/local/bin). Le detail processus par processus, avec les lignes de journal attendues, est dans LAUNCH.md.
Journaux et pid dans /tmp/c54x-pont/. [2026-09-23] Le mobile de ce montage utilise maintenant les memes sockets que le run sans --dsp : /tmp/osmocom_l2 et /tmp/osmocom_sap (plus de variantes _pont) ; VTY mobile 4347 et moniteur QEMU /tmp/qemu-monitor-pont.sock inchanges. Lancer un banc grgsm et celui-ci en meme temps les fait se disputer : compromis assume, cf. l’en-tete de mobile_pont.cfg. --stop efface aussi /tmp/osmocom_sap, /tmp/ms_data, /dev/shm/calypso_horloge et, en MODE=dsp, /dev/shm/calypso_tch_cfg.
Autres variables de run.sh (2026-09-23) :
INSNS=80000: 60000 debordait en TCH (jusqu’a 87000 insn/trame).GDB=1: gdbstub QEMU entcp:127.0.0.1:1234et consoletelnet 0 44444(qosmo-dsp/tools/gdb-telnet.py, journalgdb.log) ;GDB=0coupe les deux.ASSEMBLY_LOGS=1: trace asm de l’ARM dansqemu-asm.log(ASSEMBLY_LOGS_FLAGS, defautin_asm,exec,nochain;ASSEMBLY_LOGS_FILTREpour-dfilter).- poses d’office :
CALYPSO_PONT_RETRY_DIV=64sur QEMU (relance vers le DSP toutes les trame/64 au lieu de trame/16),CALYPSO_BSP_ATTENTE_MS=40surc54x_exe(attendre une trame livree en retard par la BTS plutot que la jouer en effacement),L23_SYNC_RETRIES_SELECTION=8sur le mobile enMODE=dsp(defaut du binaire, 1, ailleurs). PANNEAU_LOGS:qemu.log,osmocon.logetmobile.logs’ecrivent dans/run/user/0/osmo-nitb/logs/,pont.logdans/dev/shm/pont.log, ceux que suit le panneau ;$RUNDIRn’en a que des liens (dsp.logy reste un vrai fichier).PANNEAU_LOGS=nonepour ne rien toucher.JOURNAUX_GARDES=10: au lancement et a--stop, la session precedente est rangee dans$RUNDIR/archives/<date>/, avecbsp_dedie.txt.
8.7.1.1.1 Le lien montant (RACH, SDCCH, SACCH, parole)
En montage dsp, la couche 1 gr-gsm de QEMU est desactivee (CALYPSO_DSP_EXTERN=1), donc les hooks qui publiaient le montant cote QEMU ne tirent plus. C’est src/montant.c qui s’en charge : une scrutation de l’API RAM partagee a chaque trame, qui alimente les memes side-bands que consomme pont.py (pont/uplink.py) :
/dev/shm/calypso_rach RACH (ra, bsic) lu dans NDB d_rach
/dev/shm/calypso_sdcch_ul bloc L2 montant (a_cu)
/dev/shm/calypso_tch_facch_ul FACCH montante
/dev/shm/calypso_tch_sacch_ul SACCH montante
/dev/shm/calypso_tch_ul anneau de trames de paroleSans lui : pont.log affiche UL bursts=0 rach=0, la BTS ne voit aucun acces aleatoire, le mobile epuise ses huit tentatives et il n’y a jamais de LOCATION UPDATING ACCEPT. Reglages : MONTANT=0 coupe la publication, MONTANT_DEBUG=N regle le nombre d’evenements imprimes (20 par defaut), MONTANT_RACH_SUR_DRACH=1 revient a l’ancien declencheur (transition de d_rach au lieu de d_task_ra).
[2026-09-23] Aussi dans montant.c : - le Kc, publie dans /dev/shm/calypso_kc_l1 (MONTANT_KC=0 coupe) ; - la parole montante, au format TI (io-tch-format ti), est convertie en FR TS 101 318 avant publication (MONTANT_PAROLE_TI=0 = passage brut ; c’etait l’ancien comportement, qui donnait un echo sature) ; - la bascule SDCCH <-> TCH du BSP suit la tache posee par le firmware dans la page W (d_task_d = TCHT 13, TCHA 14 ou TCHD 28 ; retour sur ALLC 24) ; calypso_tch_cfg ecrit par le pont n’est plus qu’une annonce (MONTANT_TCH_TACHE=0 = armement a l’annonce) ; - sondes [a_fd], [a_dd] (TCH seulement ; MONTANT_AFD=0, MONTANT_ADD=0), [a5-arm] et [d_fn].
Cote QEMU, MONTANT_REQREF=0 coupe la correction de la reference de requete des IMMEDIATE ASSIGNMENT (calypso_trx.c) : sans elle le mobile jette l’assignation, parce que pont.py emet l’access-burst sur sa propre horloge et que gsm48_match_ra() exige une correspondance exacte du numero de trame. Causes et mesures : MAILBOX.md, sections « Pas de LU ACCEPT » et « Le RACH passe, l’IMM ASS revient ».
8.7.1.1.2 1. Le DSP : c54x_exe --arm
cd /opt/GSM/c54x_exe && ./c54x_exe --arm -vCree /dev/shm/calypso_api_ram (la fenetre API, 16 Ko, qui EST data[0x0800..] du C54x) et /tmp/calypso_dsp.sock, charge les 7 sections de ROM, c54x_reset(), puis attend l’ARM. Attendu :
pont : en attente de l'ARM sur /tmp/calypso_dsp.sock (API RAM : /dev/shm/calypso_api_ram)--insns : budget d’instructions par trame TDMA. [2026-09-23] Defaut 200000 avec --arm (2300 sans), plancher 32000 en --rejouer ; run.sh passe 80000. Depuis le 2026-09-23 les sondes pures du coeur sont coupees par defaut (CALYPSO_SONDES=1, CALYPSO_DEBUG ou -vvvv pour les rallumer), pour accelerer le coeur (gain a remesurer). En pas-a-pas (LOCKSTEP=1, defaut de run.sh) QEMU attend le DSP au lieu de lui sauter des ticks ; le DSP rend PONT_DONE des le burst depose et finit la trame en parallele de l’ARM (PONT_DONE_TOT=1 par defaut, 0 = ancien ordre). La ligne [chrono] de dsp.log, toutes les 1000 trames, dit ou passe le temps (qemu | A | go | B | apres DONE, en ms par trame).
8.7.1.1.3 2. L’ARM : QEMU qosmo avec CALYPSO_DSP_EXTERN=1
cd /opt/GSM/qosmo && CALYPSO_DSP_EXTERN=1 build/qemu-system-arm -M calypso -cpu arm946 \
-display none -parallel none -serial pty -serial pty \
-monitor unix:/tmp/qemu-monitor-pont.sock,server,nowait \
-kernel /opt/GSM/firmware/board/compal_e88/layer1.highram.elfSans -kernel, le CPU part a 0 et plante a 0x840000 : l’ELF est obligatoire, le romload d’osmocon ne charge rien (le stub UART ne fait qu’acquitter). Attendu sur stderr :
char device redirected to /dev/pts/N (label serial0) <- le pty modem, pour osmocon
[trx] pont DSP : API RAM partagee (/calypso_api_ram) + socket /tmp/calypso_dsp.sock - ...
calypso: couche 1 « grgsm » desactivee (DSP externe, CALYPSO_DSP_EXTERN)
[trx] pont DSP : timer de boot lance (echange DSP seul, sans IRQ TPU, ...)
[trx] pont DSP : RESET_DSP relache par le firmware -> PONT_RESET (fn=0)
[trx] pont DSP : le TDMA du firmware prend le relais du timer de boot (N trames de boot)Et cote c54x_exe :
pont : ARM connecte, API RAM 32768 mots, 200000 insn/trame
pont : RESET #1 (DL_STATUS=0x0000) fn=0 pc=0xff80
pont : DSP boote (premier IDLE) fn=0 insn=5701
fn=1251 page=0 insn=428 IDLE d_fb_det=0 a_sch=0000 ...Le firmware a asserte puis relache RESET_DSP (registre CNTL_RST), la ROM est repartie de 0xff80, a pose IDLE, s’est parquee ; l’ARM a envoye COPY_BLOCK vers 0x7000 ; la ROM a saute dans sa L1 et ecrit sa version. Verifier depuis le moniteur QEMU :
printf 'xp /96bx 0x008305f0\n' | nc -U /tmp/qemu-monitor-pont.sock # printf_buffer du firmware :
# "DSP API Version: 0x4e2a 0x491a"
od -An -tx2 -j 0x01B4 -N 2 /dev/shm/calypso_api_ram # 3606 = version ecrite par la L1 DSP8.7.1.1.4 3. osmocon : le relais L1CTL
/opt/GSM/osmocom-bb/src/host/osmocon/osmocon -m romload -i 100 -p /dev/pts/N \
-s /tmp/osmocom_l2 /opt/GSM/firmware/board/compal_e88/layer1.highram.bin/dev/pts/N est le serial0 de l’etape 2. Attendu : Received ident ack, Progress: 100%, puis Received branch ack, your code is running now!. A partir de la, osmocon relaie le L1CTL entre le firmware et /tmp/osmocom_l2. Si le telechargement reste a starting download sans progres : un osmocon precedent a ete tue a mi-bloc et le stub romload de l’UART attend la fin de ce bloc - relancer QEMU (etape 2) puis osmocon.
8.7.1.1.5 4. Le mobile
mobile -c /opt/GSM/c54x_exe/mobile_pont.cfg # copie de ~/.osmocom/bb/mobile.cfg :
# layer2-socket /tmp/osmocom_l2, vty 4347Attendu dans les 5 s : L1CTL_PM_REQ, L1CTL_RESET_REQ: FULL!, L1CTL_FBSB_REQ (arfcn=514 ...) cote osmocon ; cote c54x_exe, le passage de 428 a ~570 insn par trame et a_sch=0100 ... : la L1 ARM a programme d_task_md=5 (recherche FB) et le DSP l’execute. Cote mobile, FBSB RESP: result=255 en boucle sans pont : calypso_bsp.c attend les bursts descendants en UDP sur le port 6702 et personne ne les envoie. Avec la BTS et PONT=1, c’est pont_dsp.py qui les envoie.
telnet 127.0.0.1 4347 # VTY du mobile ; « show ms »
od -An -tx2 -N 16 /dev/shm/calypso_api_ram # page d'ecriture : d_task_md au 5e mot8.7.1.1.6 Le pont, en une page
Protocole dans qosmo/include/hw/arm/calypso/calypso_dsp_pont.h, cote QEMU dans qosmo/hw/arm/calypso/calypso_trx.c (pont_*), calypso_soc.c (CNTL_RST -> RESET_DSP) et calypso_l1_dispatch.c (calypso_l1_disable) ; cote DSP dans src/pont.c. Il recopie section par section le tdma_tick de qosmo-dsp : DMA tick, boot jusqu’au premier IDLE, IRQ TPU-frame si l’IMR l’arme, un budget de c54x_run, front occupe -> IDLE = IRQ API cote ARM.
Quatre pieges rencontres, tous dans le pont et non dans le DSP : - la boucle principale de QEMU ne doit pas attendre le DSP : une trame de 64000 insn dure ~26 ms, l’ARM (qui a besoin du verrou global a chaque acces MMIO) etait affame et restait dans hwtimer_config. Le pont est en pipeline : DONE(N) releve au tick N+1, tick saute si le DSP est en retard. - le DSP doit tourner avant que le firmware n’active le TPU : un timer de boot cadence l’echange seul, sans IRQ TPU-frame (l’ARM n’a pas encore ses vecteurs), jusqu’a ce que le vrai tick prenne le relais. - le segment partage doit ETRE data[0x0800..] du C54x, pas une copie : le coeur ecrit sa fenetre API dans data[] et ne recopie api_ram que sur certains chemins. pont_allouer_dsp() aligne data[] sur une page et y pose le segment en MAP_FIXED ; api_ram en est l’alias. - [2026-09-23] sur le TCH, jouer la phase A jusqu’a l’IDLE (budget/2 au plus) avant de deposer le burst : pour une tache TCHA (SACCH/TF), la ROM demodule au debut de N+1 le burst SACCH de N qu’elle a laisse en 0x0cce. Deposer des l’armement de la fenetre l’ecrasait (a_cd FIRE KO a chaque bloc, LOS). PONT_TCH_DEPOT_IDLE=0 retablit l’ancien depot ; trace [depot_tch].
Et une chose a savoir sur qosmo : fw_console.c lit printf_buffer a une adresse codee en dur (0x831018) qui n’est pas celle de cet ELF (0x8305f0, nm layer1.highram.elf | grep printf_buffer), donc pas de [fw-console].
8.7.1.1.7 Outils de rejeu hors banc
[2026-09-23] Sur tout canal dedie, c54x_exe enregistre les ecritures de l’ARM dans l’API RAM, les TICK et les livraisons d’I/Q du BSP dans /dev/shm/calypso_rejeu_tch.bin (CALYPSO_REJEU_ENREG=0 coupe, 60000 livraisons au plus).
tools/rejeu_banc [fichier] [ticks] # rejoue hors banc, imprime chaque a_cd / a_fd
REJEU_SANS_D=1 tools/rejeu_banc # garde l'etat du boot local au lieu de 'D'
tools/sacch_tf_decode [fichier] [TN=2] [Kc] # decode hors DSP la SACCH/TF jouee par le BSP
make isa_test && ./isa_test tools/isa_tests.txt # conformite ISA (exemples SPRU172C)sacch_tf_decode lit /dev/shm/calypso_sacch_tf.bin (sonde [sacch_tf] du BSP) avec le Kc de calypso_kc_l1 : si la SACCH decode la et pas dans la ROM, le defaut est apres le BSP ; sinon, dans ce que le BSP recoit. Aucune cible Makefile pour ces deux outils : les binaires sont commites a cote des sources.
8.7.1.2 Pourquoi c’est possible
Mesure faite sur les objets compilés avant d’écrire une ligne : sur les 26 631 lignes de couche 1 C54x, l’accroche à QEMU tient en 14 symboles.
| fichier | symboles QEMU |
|---|---|
calypso_c54x.c (21 296 l.) |
2 — des mutex |
calypso_{arm2dsp,dma,fbsb,mailbox,rhea_dma,rif,twl3025}.c |
0 |
calypso_full_pcb.c, calypso_tint0.c |
8 — le câblage, pas le DSP |
Les cales sont dans qosmo/contrib/hors-qemu/ : ~120 lignes de doublures d’en-têtes (qemu/osdep.h, thread.h, timer.h…) et 73 lignes d’équivalents POSIX. Rien n’y modélise QEMU — le jour où une cale doit devenir autre chose qu’un pthread, c’est que le DSP s’est mis à dépendre de QEMU, et il faut le savoir.
Les sources ne sont pas recopiées. Ce binaire compile celles de /opt/GSM/qosmo (QOSMO=... make pour pointer ailleurs). [2026-09-23] make reconstruit c54x_exe a chaque appel (cible .PHONY, qui depend aussi des en-tetes), en -O3 -march=native : plus besoin de make clean. calypso_a5.c (le coprocesseur A5 sur les ports XIO 0x2800..0x2818, CALYPSO_A5=0 le coupe) est compile dedans. Recopier, c’était refaire la divergence que qosmo vient de supprimer. La seule copie est src/pcb-minimal.c, quatre helpers DARAM repris mot pour mot, et elle est signalée comme telle dans le fichier.
8.7.1.3 Ce que ça mesure, et ce que ça ne mesure pas encore
État au 2026-09-23 (runs du banc DSP de 20:22 et 20:32). En montage dsp avec la BTS (PONT=1), le DSP détecte FB et SB, décode les BCCH (SI1-4), le mobile obtient le LU ACCEPT, le premier SMS MT est livré de bout en bout (2026-09-23 11:06), l’appel passe l’ASSIGNMENT (2026-09-22 19:47) et la bascule TCH suit la tâche du firmware ; l’A5 est modélisé dans le DSP (calypso_a5.c), la parole montante est convertie TI -> FR. Run de 20:22, constaté dans les journaux : LU, appel MO vers l’écho 600 (ACTIVE 20:22:55, DISCONNECT 20:23:27), SMS MO et MT dans les deux sens, appel MT depuis 100102 (ACTIVE 20:24:28, release normal), A5/1 confirmé par la BTS sur les cinq établissements, parole audible dans les deux sens (décodage canal TCH/F descendant par la ROM TI, codec GAPK FR et codage montant sur l’hôte), 29 513 trames avec un seul tick sauté (au boot, fn=0). Restent ouverts, par ordre d’importance : - B_BFI sur toute la parole : la ROM marque chaque trame TCH/F comme mauvaise. Run de 20:32, sonde [a_dd] étendue (src/montant.c sonde_add, non commitée) : vues=2200 bfi=2200 ; err (a_dd_0[2], erreurs rapportées par la ROM) vaut 0 sur 19 des 20 premières trames après la bascule (c214 ; la 18e, fn=5912, est 8084 à 58), puis 15 à 93. Les trames sont réellement dégradées ; le FR reste intelligible parce que le firmware ne remonte pas le BFI (prim_tch.c:327 ne teste que B_BLUD). Signal (BSP, IQ, égalisation) ou cœur C54x (Viterbi, recomptage) : à trancher par comparaison bit à bit avec les trames de la BTS. Le ko de la sonde (B_FIRE1) ne dit rien sur la parole ; - la SACCH en TCH : le correctif MVKD/MVDK (qosmo c54x_exec.c, CALYPSO_MVKD_DMAD_AVANT=1 = ancien ordre ; garde [garde-3d89] dans c54x_mem.c) tient au run de 20:22 (deux appels complets, aucun bloc SACCH/TF jeté par le mobile hors bascule et libérations, aucune LOS, aucune ligne [garde-3d89]). Mais au run de 20:32 le premier appel tombe en LOS (20:32:45) : SACCH/TF FIRE KO à chaque bloc dès fn=6095, err de la parole 63 à 93 de fn=6273 à 9306 contre 15 à 38 sur le troisième appel, sain ; le deuxième reste bloqué en attente de la connexion MM (T3230). Garde muette : autre cause, non localisée ; - le SDCCH/8 descendant : au run de 20:22 le mobile jette 27 trames sur SDCCH/8 (4 à 7 par session dédiée), dont 15 SACCH (ligne « LOSS counter for ACCH ») et 12 du canal principal ; suspect, le BSP sur le SDCCH/8 (table 45.002) ; - la fenêtre SB, rarement armée par la ROM (d’où L23_SYNC_RETRIES_SELECTION=8) : une synchro sur trois à cinq ; - la marge temps réel : en TCH, [chrono] donne A 0.33 + go 0.40 + B 0.16 + après DONE 3.37-3.68 ms, soit 4.3 à 4.6 ms de travail DSP pour 4.62 ms.
Ne sont pas des anomalies : les échecs CRC du moniteur TCH du pont tant que le RTP ne coule pas (décodage du pont, indépendant du DSP), et l’UA / SABM répétés, disparus au run de 20:22 avec osmo-operator pont/dsp/clock.py (PONT_AVANCE_MIN=10) : aucune ligne SABM dans les journaux osmocom (ni ERROR INDICATION au BSC), marge DL réelle min +0 au premier relevé (20:22:47), +9 ensuite, +13 à +15 à partir de 20:23:17.
Le détail, jour par jour : MAILBOX.md.
Le cas particulier du mode autonome, sans ARM (./c54x_exe --trames N) : les 7 sections de ROM se chargent, c54x_reset() passe, et la mask-ROM exécute — les BRANCH-TRACE à PC=0xb41f sont du vrai code TI. Aucun burst n’est injecté : le DSP tourne sur une API RAM vierge, sans ARM ni TPU. Le binaire le dit lui-même dans son bilan. a_sch[3] y sort 0x771a et non le 0xf8d8 du README de qemu-calypso — les deux valeurs sont constantes, mais elles diffèrent parce que l’entrée diffère, ce qui est déjà une information.
L’intérêt visé est la question du README : « un décodeur dont la sortie ne dépend pas de l’entrée ne décode pas ». Y répondre demande d’injecter des bursts et de faire varier l’entrée — le montage dsp avec la BTS le fait depuis, et le rejeu hors banc (tools/rejeu_banc) le rend tenable, parce qu’un essai coûte des millisecondes au lieu d’un boot complet.
8.7.1.4 Dépendances
libosmocoding / libosmocore (pour calypso_bsp.c), pthread, libm. Les ROM : calypso_dsp.{PROM0..3,DROM,PDROM,Registers}.bin dans --rom-dir (défaut /opt/GSM).
8.8 /opt/GSM/c54x_exe/tools/isa_tests.txt
32143 octets, 2180 lignes → 2178 lignes (1 groupes compactés)
T 1 ABDST Xmem, Ymem | ABDST *AR3+, *AR4+
W e39a
B A ffabcd0000
B AR3 100
B AR4 200
B B 0
B FRCT 0
B M 0100 0055
B M 0200 00aa
A A ffffab0000
A AR3 101
A AR4 201
A B 5433
A FRCT 0
A M 0100 0055
A M 0200 00aa
E
T 2 ABS src [, dst ] | ABS A, B
W f585
B A ffffffffcb
B B fffffffc18
A A ffffffffcb
A B 35
E
T 3 ABS src [, dst ] | ABS A
W f485
B A 312345678
B OVM 1
A A 7fffffff
A OVM 1
E
T 4 ABS src [, dst ] | ABS A
W f485
B A 312345678
B OVM 0
A A 312345678
A OVM 0
E
T 5 6: Class 7 (see page 3-12) | ADD *AR3+, 14, A
W 909e
B A 1200
B AR3 100
B C 1
B SXM 1
B M 0100 1500
A A 5401200
A AR3 101
A C 0
A SXM 1
A M 0100 1500
E
T 6 6: Class 7 (see page 3-12) | ADD A, –8, B
W f518
B A 1200
B B 1800
B C 1
A A 1200
A B 1812
A C 0
E
T 7 6: Class 7 (see page 3-12) | ADD #4568, 8, A, B
W f108 11d8
B A 1200
B B 1800
B C 1
A A 1200
A B 457a00
A C 0
E
T 9 ADDC Smem, src | ADDC *+AR2(5), A
W 06ea 0005
B A 13
B AR2 100
B C 1
B M 0105 0004
A A 18
A AR2 105
A C 0
A M 0105 0004
E
T 10 ADDM #lk, Smem | ADDM 0123Bh, *AR4+
W 6b94 123b
B AR4 100
B M 0100 0004
A AR4 101
A M 0100 123f
E
T 11 ADDM #lk, Smem | ADDM 0FFF8h, *AR4+
W 6b94 fff8
B AR4 100
B OVM 1
B SXM 1
B M 0100 8007
A AR4 101
A OVM 1
A SXM 1
A M 0100 8000
E
T 12 ADDS Smem, src | ADDS *AR2–, B
W 038a
B AR2 100
B B 3
B M 0104 f006
A AR2 ff
A B f009
A C 0
A M 0104 f006
E
T 13 4: Class 1 (see page 3-3) | AND *AR3+, A
W 1893
B A ff1200
B AR3 100
B M 0100 1500
A A 1000
A AR3 101
A M 0100 1500
E
T 14 4: Class 1 (see page 3-3) | AND A, 3, B
W f183
B A 1200
B B 1800
A A 1200
A B 1000
E
T 15 ANDM #lk, Smem | ANDM #00FFh, *AR4+
W 6894 00ff
B AR4 100
B M 0100 0444
A AR4 101
A M 0100 0044
E
T 17 B[D] pmad | B 2000h
W f073 2000
B PC 1f45
A PC 2000
E
T 18 B[D] pmad | BD 1000h
W f273 1000
B PC 1f45
A PC 1000
E
T 19 BACC[D] src | BACC A
W f4e2
B A 3000
B PC 1f45
A A 3000
A PC 3000
E
T 20 BACC[D] src | BACCD B
W f7e2
B B 2000
B PC 1f45
A B 2000
A PC 2000
E
T 21 BANZ[D] pmad, Sind | BANZ 2000h, *AR3–
W 6c8b 2000
B AR3 5
B PC 1000
A AR3 4
A PC 2000
E
T 22 BANZ[D] pmad, Sind | BANZ 2000h, *AR3–
W 6c8b 2000
B AR3 0
B PC 1000
A AR3 ffff
A PC 1002
E
T 23 BANZ[D] pmad, Sind | BANZ 2000h, *AR3(–1)
W 6ce3 2000 ffff
B AR3 1
B PC 1000
A AR3 1
A PC 1003
E
T 24 BANZ[D] pmad, Sind | BANZD 2000h, *AR3–
W 6e8b 2000
B AR3 4
B PC 1000
A AR3 3
A PC 2000
E
T 25 BC[D] pmad, cond [, cond [, condĂ ]ā] | BC 2000h, AGT
W f846 2000
B A 53
B PC 1000
A A 53
A PC 2000
E
T 26 BC[D] pmad, cond [, cond [, condĂ ]ā] | BC 2000h, AGT
W f846 2000
B A ffffffffff
B PC 1000
A A ffffffffff
A PC 1002
E
T 27 BC[D] pmad, cond [, cond [, condĂ ]ā] | BCD 1000h, BOV
W fa78 1000
B OVB 1
B PC 3000
A OVB 1
A PC 1000
E
T 28 BC[D] pmad, cond [, cond [, condĂ ]ā] | BC 1000h, TC, NC, BIO
W f83b 1000
B C 1
B PC 3000
A C 1
A PC 3002
E
T 29 BIT Xmem, BITC | BIT *AR5+, 15-12; test bit 12
W 96b3
B AR5 100
B TC 0
B M 0100 7688
A AR5 101
A TC 1
A M 0100 7688
E
T 30 BITF Smem, #lk | BITF 5, 00FFh
W 6105 00ff
B DP 4
B M 0205 5400
A DP 4
A TC 0
A M 0205 5400
E
T 31 BITF Smem, #lk | BITF 5, 0800h
W 6105 0800
B DP 4
B M 0205 0f7f
A DP 4
A TC 1
A M 0205 0f7f
E
T 32 BITT Smem | BITT *AR7+0
W 34b7
B AR0 8
B AR7 100
B T c
B TC 0
B M 0100 0008
A AR0 8
A AR7 108
A T c
A TC 1
A M 0100 0008
E
T 33 CALA[D] src | CALA A
W f4e3
B A 3000
B PC 25
B SP 1111
B M 1110 4567
A A 3000
A PC 3000
A SP 1110
A M 1110 0026
E
T 34 CALA[D] src | CALAD B
W f7e3
B B 2000
B PC 25
B SP 1111
B M 1110 4567
A B 2000
A PC 2000
A SP 1110
A M 1110 0028
E
T 35 CALL[D] pmad | CALL 3333h
W f074 3333
B PC 25
B SP 1111
B M 1110 4567
A PC 3333
A SP 1110
A M 1110 0027
E
T 36 CALL[D] pmad | CALLD 1000h
W f274 1000
B PC 25
B SP 1111
B M 1110 4567
A PC 1000
A SP 1110
A M 1110 0029
E
T 37 CC[D] pmad, cond [, cond [, cond ] ] | CC 2222h, AGT
W f946 2222
B A 3000
B PC 25
B SP 1111
B M 1110 4567
A A 3000
A PC 2222
A SP 1110
A M 1110 0027
E
T 38 CC[D] pmad, cond [, cond [, cond ] ] | CCD 1000h, BOV
W fb78 1000
B OVB 1
B PC 25
B SP 1111
B M 1110 4567
A OVB 0
A PC 1000
A SP 1110
A M 1110 0029
E
T 39 CMPL src [, dst ] | CMPL A, B
W f593
B A fcdffaaeaa
B B 7899
A A fcdffaaeaa
A B 320055155
E
T 40 CMPM Smem, #lk | CMPM *AR4+, 0404h
W 6094 0404
B AR4 100
B TC 1
B M 0100 4444
A AR4 101
A TC 0
A M 0100 4444
E
S 41 CMPR CC, ARx | CMPR 2, AR4 | cmpr['OP_CC3', 'OP_ARX']: cond: '2'
T 42 CMPS src, Smem | CMPS A, *AR4+
W 8e94
B A 23457899
B AR4 100
B TC 0
B TRN 4444
B M 0100 0000
A A 23457899
A AR4 101
A TC 1
A TRN 8889
A M 0100 7899
E
T 43 DADD Lmem, src [, dst ] | DADD *AR3+, A, B
W 5193
B A 56788933
B AR3 100
B B 0
B C16 0
B M 0100 1534
B M 0101 3456
A A 56788933
A AR3 102
A B 6bacbd89
A C16 0
A M 0100 1534
A M 0101 3456
E
T 44 DADD Lmem, src [, dst ] | DADD *AR3–, A, B
W 518b
B A 56783933
B AR3 100
B B 0
B C16 1
B M 0100 1534
B M 0101 3456
A A 56783933
A AR3 fe
A B 6bac6d89
A C16 1
A M 0100 1534
A M 0101 3456
E
T 45 DADD Lmem, src [, dst ] | DADD *AR3–, A, B
W 518b
B A 56783933
B AR3 101
B B 0
B C16 0
B M 0100 1534
B M 0101 3456
A A 56783933
A AR3 ff
A B 8ace4e67
A C16 0
A M 0100 1534
A M 0101 3456
E
T 46 DADST Lmem, dst | DADST *AR3–, A
W 5a8b
B A 0
B AR3 100
B C16 1
B T 2345
B M 0100 1534
B M 0101 3456
A A 38791111
A AR3 fe
A C16 1
A T 2345
A M 0100 1534
A M 0101 3456
E
T 47 DADST Lmem, dst | DADST *AR3+, A
W 5a93
B A 0
B AR3 100
B C16 0
B T 2345
B M 0100 1534
B M 0101 3456
A A 3879579b
A AR3 102
A C16 0
A T 2345
A M 0100 1534
A M 0101 3456
E
T 48 DELAY Smem | DELAY *AR3
W 4d83
B AR3 100
B M 0100 6cac
B M 0101 0000
A AR3 100
A M 0100 6cac
A M 0101 6cac
E
T 49 DLD Lmem, dst | DLD *AR3+, B
W 5793
B AR3 100
B B 0
B M 0100 6cac
B M 0101 bd90
A AR3 102
A B 6cacbd90
A M 0100 6cac
A M 0101 bd90
E
T 50 DRSUB Lmem, src | DRSUB *AR3+, A
W 5893
B A 56788933
B AR3 100
B C16 0
B M 0100 1534
B M 0101 3456
A A ffbebbab23
A AR3 102
A C 0
A C16 0
A M 0100 1534
A M 0101 3456
E
T 51 DRSUB Lmem, src | DRSUB *AR3–, A
W 588b
B A 56783933
B AR3 100
B C 1
B C16 1
B M 0100 1534
B M 0101 3456
A A ffbebcfb23
A AR3 fe
A C 0
A C16 1
A M 0100 1534
A M 0101 3456
E
T 52 DSADT Lmem, dst | DSADT *AR3+, A
W 5e93
B A 0
B AR3 100
B C 0
B C16 0
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef1111
A AR3 102
A C 0
A C16 0
A T 2345
A M 0100 1534
A M 0101 3456
E
T 53 DSADT Lmem, dst | DSADT *AR3–, A
W 5e8b
B A 0
B AR3 100
B C 0
B C16 1
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef579b
A AR3 fe
A C 1
A C16 1
A T 2345
A M 0100 1534
A M 0101 3456
E
T 54 DST src, Lmem | DST B, *AR3+
W 4f93
B AR3 100
B B 6cacbd90
B M 0100 0000
B M 0101 0000
A AR3 102
A B 6cacbd90
A M 0100 6cac
A M 0101 bd90
E
T 55 DST src, Lmem | DST B, *AR3–
W 4f8b
B AR3 101
B B 6cacbd90
B M 0100 0000
B M 0101 0000
A AR3 ff
A B 6cacbd90
A M 0100 bd90
A M 0101 6cac
E
T 56 DSUB Lmem, src | DSUB *AR3+, A
W 5493
B A 56788933
B AR3 100
B C16 0
B M 0100 1534
B M 0101 3456
A A 414454dd
A AR3 102
A C16 0
A M 0100 1534
A M 0101 3456
E
T 57 DSUB Lmem, src | DSUB *AR3–, A
W 548b
B A 56783933
B AR3 100
B C 1
B C16 1
B M 0100 1534
B M 0101 3456
A A 414404dd
A AR3 fe
A C 1
A C16 1
A M 0100 1534
A M 0101 3456
E
T 58 DSUBT Lmem, dst | DSUBT *AR3+, A
W 5c93
B A 0
B AR3 100
B C16 0
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef1111
A AR3 102
A C16 0
A T 2345
A M 0100 1534
A M 0101 3456
E
T 59 DSUBT Lmem, dst | DSUBT *AR3–, A
W 5c8b
B A 0
B AR3 100
B C16 1
B T 2345
B M 0100 1534
B M 0101 3456
A A fff1ef1111
A AR3 fe
A C16 1
A T 2345
A M 0100 1534
A M 0101 3456
E
T 60 EXP src | EXP A
W f48e
B A ffffffffcb
B T 0
A A ffffffffcb
A T 19
E
T 61 EXP src | EXP B
W f58e
B B 785432105
B T fffc
A B 785432105
A T fffc
E
T 62 FB[D] extpmad | FB 012000h
W f881 2000
B PC 1000
B XPC 0
A PC 2000
A XPC 1
E
T 63 FB[D] extpmad | FBD 7F1000h
W faff 1000
B PC 2000
B XPC 0
A PC 1000
A XPC 7f
E
T 64 FBACC[D] src | FBACC A
W f4e6
B A 13000
B PC 1000
B XPC 0
A A 13000
A PC 3000
A XPC 1
E
T 65 FBACC[D] src | FBACCD B
W f7e6
B B 7f2000
B XPC 1
A B 7f2000
A XPC 7f
E
T 66 FCALA[D] src | FCALA A
W f4e7
B A 7f3000
B PC 25
B SP 1111
B XPC 0
B M 110f 4567
B M 1110 4567
A A 7f3000
A PC 3000
A SP 110f
A XPC 7f
A M 110f 0000
A M 1110 0026
E
T 67 FCALA[D] src | FCALAD B
W f7e7
B B 202000
B PC 25
B SP 1111
B XPC 7f
B M 110f 4567
B M 1110 4567
A B 202000
A PC 2000
A SP 110f
A XPC 20
A M 110f 007f
A M 1110 0028
E
T 68 FCALL[D] extpmad | FCALL 013333h
W f981 3333
B PC 25
B SP 1111
B XPC 0
B M 110f 4567
B M 1110 4567
A PC 3333
A SP 110f
A XPC 1
A M 110f 0000
A M 1110 0027
E
T 69 FCALL[D] extpmad | FCALLD 301000h
W fbb0 1000
B PC 3001
B SP 1111
B XPC 7f
B M 110f 4567
B M 1110 4567
A PC 1000
A SP 110f
A XPC 30
A M 110f 007f
A M 1110 3005
E
S 70 FIRS Xmem, Ymem, pmad | FIRS *AR3+, *AR4+, COEFFS | firs['OP_Xmem', 'OP_Ymem', 'OP_pmad']: nombre: 'COEFFS'
T 71 FRAME K | FRAME 10h
W ee10
B SP 1000
A SP 1010
E
T 72 FRET[D] | FRET
W f4e4
B PC 2112
B SP 300
B XPC 1
B M 0300 0005
B M 0301 1000
A PC 1000
A SP 302
A XPC 5
A M 0300 0005
A M 0301 1000
E
T 73 FRETE[D] | FRETE
W f4e5
B PC 2112
B SP 300
B XPC 5
B M 0300 006e
B M 0301 0110
A PC 110
A SP 302
A XPC 6e
A M 0300 006e
A M 0301 0110
# valeur: ['xCxx']
E
T 77 INTR K | INTR 3
W f7c3
B INTM 0
B PC 25
B SP 1000
B M 0fff 9653
A INTM 1
A PC ff8c
A SP fff
A M 0fff 0026
E
T 78 4: Class 4B (see page 3-8) | LD *AR1, A
W 1081
B A 0
B AR1 200
B SXM 0
B M 0200 fedc
A A fedc
A AR1 200
A SXM 0
A M 0200 fedc
E
T 79 4: Class 4B (see page 3-8) | LD *AR1, A
W 1081
B A 0
B AR1 200
B SXM 1
B M 0200 fedc
A A fffffffedc
A AR1 200
A SXM 1
A M 0200 fedc
E
T 80 4: Class 4B (see page 3-8) | LD *AR1, TS, B
W 1581
B AR1 200
B B 0
B SXM 1
B T 8
B M 0200 fedc
A AR1 200
A B fffffedc00
A SXM 1
A T 8
A M 0200 fedc
E
T 81 4: Class 4B (see page 3-8) | LD *AR3+, 16, A
W 4493
B A 0
B SXM 1
B M 0300 fedc
A A fffedc0000
A SXM 1
A M 0300 fedc
# ligne registre incomplete: AR3 0300 AR1 0301
E
T 82 4: Class 4B (see page 3-8) | LD #248, B
W e9f8
B B 0
B SXM 1
A B f8
A SXM 1
E
T 83 4: Class 4B (see page 3-8) | LD A, 8, B
W f548
B A 7ffd0040
B B ffff
B OVB 0
B SXM 1
B M 0200 fedc
A A 7ff00040
A B 7ffd004000
A OVB 1
A SXM 1
A M 0200 fedc
E
T 84 2: Class 5B (see page 3-9) | LD *AR3+, T
W 3093
B AR3 300
B T 0
B M 0300 fedc
A AR3 301
A T fedc
A M 0300 fedc
E
T 85 2: Class 5B (see page 3-9) | LD *AR4, DP
W 4684
B AR4 200
B DP 1ff
B M 0200 fedc
A AR4 200
A DP dc
A M 0200 fedc
E
T 86 2: Class 5B (see page 3-9) | LD #23, DP
W ea17
B DP 1ff
A DP 17
E
T 87 2: Class 5B (see page 3-9) | LD 15, ASM
W ed0f
B ASM 0
A ASM f
E
T 88 2: Class 5B (see page 3-9) | LD 3, ARP
W f4a3
B ARP 0
A ARP 3
E
T 89 2: Class 5B (see page 3-9) | LD 0, ASM
W ed00
B ASM 0
B DP 4
B M 0200 fedc
A ASM 1c
A DP 4
A M 0200 fedc
E
T 90 LDM MMR, dst | LDM AR4, A
W 4814
B A 1111
B AR4 ffff
A A ffff
A AR4 ffff
E
T 91 LDM MMR, dst | LDM 060h, B
W 4960
B B 0
B M 0060 1234
A B 1234
A M 0060 1234
E
T 92 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B 10c9511
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 93 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B 10d0000
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 94 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B fffef38d11
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 95 LD Xmem, dst | LD *AR4+, A
W 1094
B A 1000
B AR4 100
B AR5 200
B B 1111
B FRCT 0
B T 400
B M 0100 1234
B M 0200 4321
A A 12340000
A AR4 101
A AR5 201
A B fffef40000
A FRCT 0
A T 400
A M 0100 1234
A M 0200 4321
E
T 96 LDR Smem, dst | LDR *AR1, A
W 1681
B A 0
B AR1 200
B SXM 0
B M 0200 fedc
A A fedc8000
A AR1 200
A SXM 0
A M 0200 fedc
E
T 97 LDU Smem, dst | LDU *AR1, A
W 1281
B A 0
B AR1 200
B M 0200 fedc
A A fedc
A AR1 200
A M 0200 fedc
E
T 98 LMS Xmem, Ymem | LMS *AR3+, *AR4+
W e19a
B A 77778888
B AR3 100
B AR4 200
B B 100
B FRCT 0
B M 0100 0055
B M 0200 00aa
A A 77cd0888
A AR3 101
A AR4 201
A B 3972
A FRCT 0
A M 0100 0055
A M 0200 00aa
E
T 99 LTD Smem | LTD *AR3
W 4c83
B AR3 100
B T 0
B M 0100 6cac
B M 0101 6cac
A AR3 100
A T 6cac
A M 0100 6cac
E
T 100 4: Class 6B (see page 3-11) | MAC *AR5+, A
W 2895
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A 48e000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 101 4: Class 6B (see page 3-11) | MAC #345h, A, B
W f167 0345
B A 1000
B B 0
B FRCT 1
B T 400
A A 1000
A B 1a3800
A FRCT 1
A T 400
E
T 102 4: Class 6B (see page 3-11) | MAC *AR5+, #1234h, A
W 6495 1234
B A 1000
B AR5 100
B FRCT 0
B T 0
B M 0100 5678
A A 6261060
A AR5 101
A FRCT 0
A T 5678
A M 0100 5678
E
T 103 4: Class 6B (see page 3-11) | MAC *AR5+, *AR4+,A, B ;(AR6->AR4)
W b1ba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B c4c10c0
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 104 4: Class 6B (see page 3-11) | MACR *AR5+, A
W 2a95
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A 490000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 105 4: Class 6B (see page 3-11) | MACR *AR5+, *AR4+,A, B ;(AR6->AR4)
W b5ba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B c4c0000
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 106 MACA[R] Smem [, B ] | MACA *AR5+
W 3595
B A 12340000
B AR5 100
B B 0
B FRCT 0
B T 400
B M 0100 5678
A A 12340000
A AR5 101
A B 6260060
A FRCT 0
A T 5678
A M 0100 5678
E
T 107 MACA[R] Smem [, B ] | MACA T, B, B
W f788
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B 9d4ba0
A FRCT 1
A T 444
E
T 108 MACA[R] Smem [, B ] | MACAR *AR5+, B
W 3795
B A 12340000
B AR5 100
B B 0
B FRCT 0
B T 400
B M 0100 5678
A A 12340000
A AR5 101
A B 6260000
A FRCT 0
A T 5678
A M 0100 5678
E
T 109 MACA[R] Smem [, B ] | MACAR T, B, B
W f789
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B 9d0000
A FRCT 1
A T 444
E
S 110 MACD Smem, pmad, src | MACD *AR3–, COEFFS, A | macd['OP_Smem', 'OP_pmad', 'OP_SRC1']: nombre: 'COEFFS'
S 111 MACP Smem, pmad, src | MACP *AR3–, COEFFS, A | macp['OP_Smem', 'OP_pmad', 'OP_SRC1']: nombre: 'COEFFS'
T 112 MACSU Xmem, Ymem, src | MACSU *AR4+, *AR5+, A
W a6ab
B A 1000
B AR4 100
B AR5 200
B FRCT 0
B T 8
B M 0100 8765
B M 0200 1234
A A 9a0aa84
A AR4 101
A AR5 201
A FRCT 0
A T 8765
A M 0100 8765
A M 0200 1234
E
T 113 MAR Smem | MAR *AR3+
W 6d93
B AR3 100
B ARP 0
B CMPT 0
A AR3 101
A ARP 0
A CMPT 0
E
T 114 MAR Smem | MAR *AR0–
W 6d88
B AR4 100
B ARP 4
B CMPT 1
A AR4 ff
A ARP 4
A CMPT 1
E
T 115 MAR Smem | MAR *AR3
W 6d83
B AR0 8
B AR3 100
B ARP 0
B CMPT 1
A AR0 8
A AR3 100
A ARP 3
A CMPT 1
E
T 116 MAR Smem | MAR *+AR3
W 6d9b
B AR3 100
B ARP 0
B CMPT 1
A AR3 101
A ARP 3
A CMPT 1
E
T 117 MAR Smem | MAR *AR3–
W 6d8b
B AR3 100
B ARP 0
B CMPT 1
A AR3 ff
A ARP 3
A CMPT 1
E
T 118 2: Class 7 (see page 3-12) | MAS *AR5+, A
W 2c95
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A ffffb74000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 119 2: Class 7 (see page 3-12) | MAS *AR5+, *AR4+, A, B ;(AR6->AR4)
W b9ba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B fff9da0fa0
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 120 2: Class 7 (see page 3-12) | MASR *AR5+, A
W 2e95
B A 1000
B AR5 100
B FRCT 0
B T 400
B M 0100 1234
A A ffffb70000
A AR5 101
A FRCT 0
A T 400
A M 0100 1234
E
T 121 2: Class 7 (see page 3-12) | MASR *AR5+, *AR4+, A, B ;(AR6->AR4)
W bdba
B A 1000
B AR4 200
B AR5 100
B B 4
B FRCT 1
B T 8
B M 0100 5678
B M 0200 1234
A A 1000
A AR4 201
A AR5 101
A B fff9da0000
A FRCT 1
A T 5678
A M 0100 5678
A M 0200 1234
E
T 122 2: Class 1 (see page 3-3) | MASA *AR5+
W 3395
B A 12340000
B AR5 100
B B 20000
B FRCT 0
B T 400
B M 0100 5678
A A 12340000
A AR5 101
A B fff9dbffa0
A FRCT 0
A T 5678
A M 0100 5678
E
T 123 2: Class 1 (see page 3-3) | MASA T, B
W f78a
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B ffff66b460
A FRCT 1
A T 444
E
T 124 2: Class 1 (see page 3-3) | MASAR T, B
W f78b
B A 12340000
B B 20000
B FRCT 1
B T 444
A A 12340000
A B ffff670000
A FRCT 1
A T 444
E
T 125 MAX dst | MAX A
W f486
B A fff6
B B ffcb
B C 1
A A fff6
A B ffcb
A C 0
E
T 126 MAX dst | MAX A
W f486
B A 55
B B 1234
B C 0
A A 1234
A B 1234
A C 1
E
T 127 MIN dst | MIN A
W f487
B A ffcb
B B fff6
B C 1
A A ffcb
A B fff6
A C 0
E
T 128 MIN dst | MIN A
W f487
B A 1234
B B 1234
B C 0
A A 1234
A B 1234
A C 1
E
T 129 4: Class 2 (see page 3-4) | MPY 13, A
W 200d
B A 36
B DP 8
B FRCT 1
B T 6
B M 040d 0007
A A 54
A DP 8
A FRCT 1
A T 6
A M 040d 0007
E
T 130 4: Class 2 (see page 3-4) | MPY *AR2–, *AR4+0%, B;
W a54e
B AR0 1
B AR2 1ff
B AR4 300
B B ffffffffe0
B FRCT 0
B M 01ff 0010
B M 0300 0002
A AR0 1
A AR2 1fe
A AR4 301
A B 20
A FRCT 0
A M 01ff 0010
A M 0300 0002
E
T 131 4: Class 2 (see page 3-4) | MPY #0FFFEh, A
W f066 fffe
B A 0
B FRCT 0
B T 2000
A A ffffffc000
A FRCT 0
A T 2000
E
T 132 4: Class 2 (see page 3-4) | MPYR 0, B
W 2300
B B fffe000001
B DP 4
B FRCT 0
B T 1234
B M 0200 5678
A B 6260000
A DP 4
A FRCT 0
A T 1234
A M 0200 5678
E
T 133 2: Class 1 (see page 3-3) | MPYA *AR2
W 3182
B A ff87651111
B AR2 200
B B 320
B FRCT 0
B T 1234
B M 0200 5678
A A ff87651111
A AR2 200
A B ffd7436558
A FRCT 0
A T 5678
A M 0200 5678
E
T 134 2: Class 1 (see page 3-3) | MPYA B
W f58c
B A ff87651111
B B 320
B FRCT 0
B T 4567
A A ff87651111
A B ffdf4db2a3
A FRCT 0
A T 4567
E
T 135 MPYU Smem, dst | MPYU *AR0–, A
W 2488
B A ff80000000
B AR0 1000
B FRCT 0
B T 4000
B M 1000 fe00
A A 3f800000
A AR0 fff
A FRCT 0
A T 4000
A M 1000 fe00
E
T 136 MVDD Xmem, Ymem | MVDD *AR3+, *AR5+
W e59b
B AR3 8000
B AR5 200
B M 0200 abcd
B M 8000 1234
A AR3 8001
A AR5 201
A M 0200 1234
A M 8000 1234
E
T 137 MVDK Smem, dmad | MVDK 10, 8000h
W 710a 8000
B DP 4
B M 020a 1234
B M 8000 abcd
A DP 4
A M 020a 1234
A M 8000 1234
E
T 138 MVDK Smem, dmad | MVDK *AR3–, 1000h
W 718b 1000
B AR3 1ff
B M 01ff 1234
B M 1000 abcd
A AR3 1fe
A M 01ff 1234
A M 1000 1234
E
T 139 MVDM dmad, MMR | MVDM 300h, BK
W 7219 0300
B BK abcd
B M 0300 1234
A BK 1234
A M 0300 1234
E
T 140 MVDP Smem, pmad | MVDP 0, 0FE00h
W 7d00 fe00
B DP 4
B M 0200 0123
B P fe00 ffff
A DP 4
A M 0200 0123
E
T 141 MVKD dmad, Smem | MVKD 300h, 0
W 7000 0300
B DP 4
B M 0200 abcd
B M 0300 1234
A DP 4
A M 0200 1234
A M 0300 1234
E
T 142 MVKD dmad, Smem | MVKD 1000h, *+AR5
W 709d 1000
B AR5 1ff
B M 0200 abcd
B M 1000 1234
A AR5 200
A M 0200 1234
A M 1000 1234
E
T 143 MVMD MMR, dmad | MVMD AR7, 8000h
W 7317 8000
B AR7 1234
B M 8000 abcd
A AR7 1234
A M 8000 1234
E
T 144 MVMM MMRx, MMRy | MVMM SP, AR1
W e781
B AR1 3eff
B SP 200
A AR1 200
A SP 200
E
T 145 MVPD pmad, Smem | MVPD 0FE00h, 5
W 7c05 fe00
B DP 6
B M 0305 ffff
B P fe00 8a55
A DP 6
A M 0305 8a55
E
T 146 MVPD pmad, Smem | MVPD 2000h, *AR7–0
W 7caf 2000
B AR0 2
B AR7 ffe
B M 0ffe abcd
B P 2000 1234
A AR0 2
A AR7 ffc
A M 0ffe 1234
E
T 147 NEG src [, dst ] | NEG A, B
W f584
B A fffffff228
B B 1234
B OVA 0
A A fffffff228
A B dd8
A OVA 0
E
T 148 NEG src [, dst ] | NEG B, A
W f684
B A 1234
B B 80000000
B OVB 0
A A ff80000000
A B 80000000
A OVB 0
E
T 149 NEG src [, dst ] | NEG A
W f484
B A 8000000000
B OVA 0
B OVM 0
A A 8000000000
A OVA 1
A OVM 0
E
T 150 NEG src [, dst ] | NEG A
W f484
B A 8000000000
B OVA 0
B OVM 1
A A 7fffffff
A OVA 1
A OVM 1
E
T 152 NORM src [, dst ] | NORM A
W f48f
B A fffffff001
B T 13
A A ff80080000
A T 13
E
T 153 NORM src [, dst ] | NORM B, A
W f68f
B A fffffff001
B B 210a0a0a0a
B T ff9
A A 42141414
A B 210a0a0a0a
A T ff9
E
T 154 4: Class 1 (see page 3-3) | OR *AR3+, A
W 1a93
B A ff1200
B AR3 100
B M 0100 1500
A A ff1700
A AR3 101
A M 0100 1500
E
T 155 4: Class 1 (see page 3-3) | OR A, +3, B
W f1a3
B A 1200
B B 1800
A A 1200
A B 9800
E
T 156 ORM #lk, Smem | ORM 0404h, *AR4+
W 6994 0404
B AR4 100
B M 0100 4444
A AR4 101
A M 0100 4444
E
T 157 POLY Smem | POLY *AR3+%
W 36d3
B A 12340000
B AR3 200
B B 10000
B T 5678
B M 0200 2000
A A 6270000
A AR3 201
A B 20000000
A T 5678
A M 0200 2000
E
T 158 POPD Smem | POPD 10
W 8b0a
B DP 8
B SP 300
B M 0300 0092
B M 040a 0055
A DP 8
A SP 301
A M 0300 0092
A M 040a 0092
E
T 159 POPM MMR | POPM AR5
W 8a15
B AR5 55
B SP 3f0
B M 03f0 0060
A AR5 60
A SP 3f1
A M 03f0 0060
E
S 160 PORTR PA, Smem | PORTR 05, INDAT ; INDAT .equ 60h | portr['OP_PA', 'OP_Smem']: nombre: 'INDAT'
S 161 PORTW Smem, PA | PORTW OUTDAT, 5h ; OUTDAT .equ 07h | portw['OP_Smem', 'OP_PA']: nombre: 'OUTDAT'
T 162 PSHD Smem | PSHD *AR3+
W 4b93
B AR3 200
B SP 8000
B M 0200 07ff
B M 7fff 0092
A AR3 201
A SP 7fff
A M 0200 07ff
A M 7fff 07ff
E
T 163 PSHM MMR | PSHM BRC
W 4a1a
B BRC 1234
B SP 2000
B M 1fff 07ff
A BRC 1234
A SP 1fff
A M 1fff 1234
E
T 164 RC[D] cond [, cond [, condĂ] ] | RC AGEQ, ANOV ; return is executed if the accumulator A
W fc62
B OVA 0
B PC 807
B SP 308
B M 0308 2002
A OVA 0
A PC 2002
A SP 309
A M 0308 2002
E
T 165 READA Smem | READA 6
W 7e06
B A 23
B DP 4
B M 0206 0075
B P 0023 0306
A A 23
A DP 4
A M 0206 0306
E
T 166 RESET | RESET
W f7e0
B INTM 0
B PC 25
A INTM 1
A PC 80
E
T 167 RET[D] | RET
W fc00
B PC 2112
B SP 300
B M 0300 1000
A PC 1000
A SP 301
A M 0300 1000
E
T 168 RETE[D] | RETE
W f4eb
B PC 1c3
B SP 2001
B M 2001 0110
A PC 110
A SP 2002
A M 2001 0110
# valeur: ['xCxx']
E
T 169 RETF[D] | RETF
W f49b
B PC 1c3
B SP 2001
B M 2001 0110
A PC 110
A SP 2002
A M 2001 0110
# valeur: ['xCxx']
E
T 170 RND src [, dst ] | RND A, B
W f59f
B A ffffffffff
B B 1
B OVM 0
A A ffffffffff
A B 7fff
A OVM 0
E
T 171 RND src [, dst ] | RND A
W f49f
B A 7fffffff
B OVM 1
A A 7fffffff
A OVM 1
E
T 172 ROL src | ROL A
W f491
B A 5fb0001234
B C 0
A A 60002468
A C 1
E
T 173 ROLTC src | ROLTC A
W f492
B A 81c0005555
B TC 1
A A 8000aaab
A C 1
A TC 1
E
T 174 ROR src | ROR A
W f490
B A 7fb0001235
B C 0
A A 5800091a
A C 1
E
S 175 3: Class 2 (see page 3-4) | RPT DAT127 ; DAT127 .EQU 0FFF | rpt['OP_Smem']: nombre: 'DAT127'; rpt['OP_k8u']: nombre: 'DAT127'; rpt['OP_lku']: nombre: 'DAT127'
T 178 RPTB[D] pmad | ST #99, BRC
W 761a 0063
B BRC 1234
B PC 1000
B RSA 5678
A BRC 63
A PC 1002
A RSA 1002
# valeur: ['end_block', '-', '1']
E
T 179 RPTB[D] pmad | ST #99, BRC ;execute the block 100 times
W 761a 0063
B BRC 1234
B PC 1000
B RSA 5678
A BRC 63
A PC 1004
A RSA 1004
# valeur: ['end_block', '-', '1']
E
T 180 RPTZ dst, #lk | RPTZ A, 1023 ; Repeat the next instruction 1024 times
W f071 03ff
B A ffe008000
A A 0
E
T 181 RSBX N, SBIT | RSBX SXM ; SXM means: n=1 and SBIT=8
W f6b8
B ST1 35cd
A ST1 34cd
E
T 182 RSBX N, SBIT | RSBX 1,8
W f6b8
B ST1 35cd
A ST1 34cd
E
T 183 SACCD src, Xmem, cond | SACCD A, *AR3+0%, ALT
W 9ed3
B A fffe004321
B AR0 2
B AR3 202
B ASM 1
B M 0202 0101
A A fffe004321
A AR0 2
A AR3 204
A ASM 1
A M 0202 fc00
E
T 184 SAT src | SAT B
W f583
B B 7123456789
A B 7fffffff
A OVB 1
E
T 185 SAT src | SAT A
W f483
B A f812345678
A A ff80000000
A OVA 1
E
T 186 SAT src | SAT B
W f583
B B 123456
A B 123456
A OVB 0
E
T 187 SFTA src, SHIFT [, dst ] | SFTA A, –5, B
W f57b
B A ff87650055
B B 43211234
B SXM 1
A A ff87650055
A B fffc3b2802
A C 1
A SXM 1
E
T 188 SFTA src, SHIFT [, dst ] | SFTA B, +5
W f765
B B 80aa001234
B C 0
B OVM 0
B SXM 0
A B 1540024680
A C 1
A OVM 0
A SXM 0
E
T 189 SFTC src | SFTC A
W f494
B A fffffff001
A A ffffffe002
A TC 0
E
T 190 SFTL src, SHIFT [, dst ] | SFTL A, –5, B
W f1fb
B A ff87650055
B B ff80000000
B C 0
A A ff87650055
A B 43b2802
A C 1
E
T 191 SFTL src, SHIFT [, dst ] | SFTL B, +5
W f3e5
B B 80aa001234
B C 0
A B 40024680
A C 1
E
S 192 SQDST Xmem, Ymem | SQDST *AR3+, AR4+ | sqdst['OP_Xmem', 'OP_Ymem']: Xmem: 'AR4+'
T 193 2: Class 1 (see page 3-3) | SQUR 30, B
W 271e
B B 1f4
B DP 6
B FRCT 0
B T 3
B M 031e 000f
A B e1
A DP 6
A FRCT 0
A T f
A M 031e 000f
E
T 194 2: Class 1 (see page 3-3) | SQUR A, B
W f58d
B A f0000
B B 1010101
B FRCT 1
A A f0000
A B 1c2
A FRCT 1
E
T 195 SQURA Smem, src | SQURA 30, B
W 391e
B B 3200000
B DP 6
B FRCT 0
B T 3
B M 031e 000f
A B 32000e1
A DP 6
A FRCT 0
A T f
A M 031e 000f
E
T 196 SQURA Smem, src | SQURA *AR3+, A
W 3893
B A 1f4
B AR3 31e
B FRCT 0
B T 3
B M 031e 000f
A A 2d5
A AR3 31f
A FRCT 0
A T f
A M 031e 000f
E
T 197 SQURS Smem, src | SQURS 9, A
W 3a09
B A 14b5db0
B DP 6
B FRCT 0
B T 8765
B M 0309 1234
A A 320
A DP 6
A FRCT 0
A T 1234
A M 0309 1234
E
T 198 SQURS Smem, src | SQURS *AR3, B
W 3b83
B AR3 309
B B 14b5db0
B FRCT 0
B T 8765
B M 0309 1234
A AR3 309
A B 320
A FRCT 0
A T 1234
A M 0309 1234
E
T 199 SRCCD Xmem, cond | SRCCD *AR5–, AGT
W 9d76
B A 70ffffff
B AR5 202
B BRC 4321
B M 0202 1234
A A 70ffffff
A AR5 201
A BRC 4321
A M 0202 4321
E
T 200 SSBX N, SBIT | SSBX SXM ; SXM means: N=1, SBIT=8
W f7b8
B ST1 34cd
A ST1 35cd
E
T 201 SSBX N, SBIT | SSBX 1,8
W f7b8
B ST1 34cd
A ST1 35cd
E
T 202 3: Class 12B (see page 3-27) | ST FFFFh, 0
W 7600 ffff
B DP 4
B M 0200 0101
A DP 4
A M 0200 ffff
E
T 203 3: Class 12B (see page 3-27) | ST TRN, 5
W 8d05
B DP 4
B TRN 1234
B M 0205 0030
A DP 4
A TRN 1234
A M 0205 1234
E
T 204 3: Class 12B (see page 3-27) | ST T, *AR7–
W 8c8f
B AR7 321
B T 4210
B M 0321 1200
A AR7 320
A T 4210
A M 0321 4210
E
T 205 4: Class 11B (see page 3-25) | STH A, 10
W 820a
B A ff87654321
B DP 4
B M 020a 1234
A A ff87654321
A DP 4
A M 020a 8765
E
S 206 4: Class 11B (see page 3-25) | STH B, –8, *AR7– | sth['OP_SRC1', 'OP_Smem']: Smem direct hors 0..7F: '-8'; sth['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; sth['OP_SRC1'
S 207 4: Class 11B (see page 3-25) | STH A, –4, 10 | sth['OP_SRC1', 'OP_Smem']: Smem direct hors 0..7F: '-4'; sth['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; sth['OP_SRC1'
T 208 4: Class 11B (see page 3-25) | STL A, 11
W 800b
B A ff87654321
B DP 4
B M 020b 1234
A A ff87654321
A DP 4
A M 020b 4321
E
S 209 4: Class 11B (see page 3-25) | STL B, –8, *AR7– | stl['OP_SRC1', 'OP_Smem']: Smem direct hors 0..7F: '-8'; stl['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; stl['OP_SRC1'
S 210 4: Class 11B (see page 3-25) | STL A, 7, 11 | stl['OP_SRC1', 'OP_Smem']: operandes en trop: ['11']; stl['OP_SRC1', 'OP_ASM', 'OP_Smem']: ASM attendu; stl['OP_SRC1', '
T 211 STLM src, MMR | STLM A, BRC
W 881a
B A ff87654321
A A ff87654321
E
T 212 STLM src, MMR | STLM B, *AR1–
W 8989
B AR1 3f17
B B ff84211234
A AR1 16
A B ff84211234
E
T 213 STM #lk, MMR | STM 0FFFFh, IMR
W 7700 ffff
B IMR ff01
A IMR ffff
E
T 214 STM #lk, MMR | STM 8765h, *AR7+
W 7797 8765
B AR0 0
B AR7 8010
A AR0 8765
A AR7 11
E
S 215 ST src, Ymem | ST A, *AR3 | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
S 216 ST src, Ymem | ST B, *AR2– | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'B'
S 217 ST src, Ymem | ST A, *AR3 | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
S 219 ST src, Ymem | ST A, *AR4– | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
S ⟨1⟩ ST src, Ymem | ST A, *AR⟨2⟩+ | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A' ×4
⟨⟩ = (220,4) (221,4) (222,4) (223,3)
S 224 ST src, Ymem | ST A, *AR3– | st['OP_T', 'OP_Smem']: T attendu; st['OP_TRN', 'OP_Smem']: TRN attendu; st['OP_lk', 'OP_Smem']: nombre: 'A'
T 225 STRCD Xmem, cond | STRCD *AR5–, AGT
W 9c76
B A 70ffffff
B AR5 202
B T 4321
B M 0202 1234
A A 70ffffff
A AR5 201
A T 4321
A M 0202 4321
E
S 226 6: Class 7 (see page 3-12) | SUB *AR1+, 14, A | sub['OP_SRC', 'OPT|OP_SHIFT', 'OPT|OP_DST']: src attendu, '*AR1+'; sub['OP_SRC', 'OP_ASM', 'OPT|OP_DST']: src attendu, '
T 227 6: Class 7 (see page 3-12) | SUB A, –8, B
W f538
B A 1200
B B 1800
B SXM 1
A A 1200
A B 17ee
A C 1
A SXM 1
E
T 228 6: Class 7 (see page 3-12) | SUB #12345, 8, A, B
W f118 3039
B A 1200
B B 1800
B SXM 1
A A 1200
A B ffffcfd900
A C 0
A SXM 1
E
T 229 SUBB Smem, src | SUBB 5, A
W 0e05
B A 6
B C 0
B DP 8
B M 0405 0006
A A ffffffffff
A C 0
A DP 8
A M 0405 0006
E
T 230 SUBB Smem, src | SUBB *AR1+, B
W 0f91
B AR1 405
B B ff80000006
B C 1
B OVM 1
B M 0405 0006
A AR1 406
A B ff80000000
A C 1
A OVM 1
A M 0405 0006
E
T 231 SUBC Smem, src | SUBC 2, A
W 1e02
B A 4
B DP 6
B M 0302 0001
A A 8
A C 0
A DP 6
A M 0302 0001
E
T 232 SUBC Smem, src | RPT #15
W 470f
B AR1 1000
B B 41
B M 1000 0007
A AR1 1000
A B 20009
A C 1
A M 1000 0007
E
T 233 SUBS Smem, src | SUBS *AR2–, B
W 0b8a
B AR2 100
B B 2
B M 0100 f006
A AR2 ff
A B ffffff0ffc
A C 0
A M 0100 f006
E
T 234 TRAP K | TRAP 10h
W f4d0
B PC 1233
B SP 3ff
B M 03fe 9653
A PC ffc0
A SP 3fe
A M 03fe 1234
E
T 235 WRITA Smem | WRITA 5
W 7f05
B A 257
B DP 32
B M 1005 4339
B P 0257 0306
A A 257
A DP 32
A M 1005 4339
E
T 236 n Opcode N | XC 1, ALEQ
W fd47
B A ffffffffff
B AR1 32
A A ffffffffff
A AR1 33
E
T 237 4: Class 1 (see page 3-3) | XOR *AR3+, A
W 1c93
B A ff1200
B AR3 100
B M 0100 1500
A A ff0700
A AR3 101
A M 0100 1500
E
T 238 4: Class 1 (see page 3-3) | XOR A, +3, B
W f1c3
B A 1200
B B 1800
A A 1200
A B 8800
E
T 239 XORM #lk, Smem | XORM 0404h, *AR4–
W 6a8c 0404
B AR4 100
B M 0100 4444
A AR4 ff
A M 0100 4040
# ligne registre incomplete: C†
# ligne registre incomplete: TC†
# ligne registre incomplete: TC = 1
# ligne registre incomplete: TC = 0
# ligne registre incomplete: ST0 and ST1 contain the status of various conditions and modes; PMST con-
# ligne registre incomplete: ARP Auxiliary register pointer
# ligne registre incomplete: ASM Accumulator shift mode
# ligne registre incomplete: BRAF Block repeat active flag
# ligne registre incomplete: C Carry
# ligne registre incomplete: CMPT Compatibility mode
# ligne registre incomplete: CPL Compiler mode
# ligne registre incomplete: C16 Dual 16-bit/double-precision arithmetic mode
# ligne registre incomplete: DP Data page pointer
# ligne registre incomplete: FRCT Fractional mode
# ligne registre incomplete: HM Hold mode
# ligne registre incomplete: INTM Interrupt mode
# ligne registre incomplete: OVA Overflow flag A
# ligne registre incomplete: OVB Overflow flag B
# ligne registre incomplete: OVM Overflow mode
# ligne registre incomplete: SXM Sign-extension mode
# ligne registre incomplete: TC Test/control flag
# ligne registre incomplete: XF External flag status
# ligne registre incomplete: ARP TC C OVA OVB DP
# ligne registre incomplete: BRAF CPL XF HM INTM 0 OVM SXM C16 FRCT CMPT ASM
# ligne registre incomplete: A
# ligne registre incomplete: B
# ligne registre incomplete: C
# ligne registre incomplete: a single instruction is executed.
# ligne registre incomplete: T
# ligne registre incomplete: XF pin.
# ligne registre incomplete: a 0.
# ligne registre incomplete: a 0.
# ligne registre incomplete: A subtract instructions 2-3 to 2-4
# ligne registre incomplete: B instruction 4-14
# ligne registre incomplete: C DELAY instruction 4-41
# ligne registre incomplete: C address bus (CAB) C-3 direct memory address, definition C-4
# ligne registre incomplete: C bus (CB), definition C-3 DLD instruction 4-42
# ligne registre incomplete: C16 C-3 double (32-bit operand) instructions 2-6
# ligne registre incomplete: T zero detect bit A (ZA), definition C-10
E8.9 /opt/GSM/c54x_exe/tools/cch_ref/cch_deinterleave_inverse_ref.csv
7138 octets, 457 lignes → 80 lignes (1 groupes compactés)
iB_index,burst_B,pos_j,source_coded_k,lane_G
⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩ ×456
⟨⟩ = (0,0,0,0,0) (1,0,1,228,0) (2,0,2,64,0) (3,0,3,292,0) (4,0,4,128,0) (5,0,5,356,0) (6,0,6,192,0)
(7,0,7,420,0) (8,0,8,256,0) (9,0,9,28,0) (10,0,10,320,0) (11,0,11,92,0) (12,0,12,384,0)
(13,0,13,156,0) (14,0,14,448,0) (15,0,15,220,0) (16,0,16,56,0) (17,0,17,284,0) (18,0,18,120,0)
(19,0,19,348,0) (20,0,20,184,0) (21,0,21,412,0) (22,0,22,248,0) (23,0,23,20,0) (24,0,24,312,0)
(25,0,25,84,0) (26,0,26,376,0) (27,0,27,148,0) (28,0,28,440,0) (29,0,29,212,0) (30,0,30,48,0)
(31,0,31,276,0) (32,0,32,112,0) (33,0,33,340,0) (34,0,34,176,0) (35,0,35,404,0) (36,0,36,240,0)
(37,0,37,12,0) (38,0,38,304,0) (39,0,39,76,0) (40,0,40,368,0) (41,0,41,140,0) (42,0,42,432,0)
(43,0,43,204,0) (44,0,44,40,0) (45,0,45,268,0) (46,0,46,104,0) (47,0,47,332,0) (48,0,48,168,0)
(49,0,49,396,0) (50,0,50,232,0) (51,0,51,4,0) (52,0,52,296,0) (53,0,53,68,0) (54,0,54,360,0)
(55,0,55,132,0) (56,0,56,424,0) (57,0,57,196,0) (58,0,58,32,0) (59,0,59,260,0) (60,0,60,96,0)
(61,0,61,324,0) (62,0,62,160,0) (63,0,63,388,0) (64,0,64,224,0) (65,0,65,452,0) (66,0,66,288,0)
(67,0,67,60,0) (68,0,68,352,0) (69,0,69,124,0) (70,0,70,416,0) (71,0,71,188,0) (72,0,72,24,0)
(73,0,73,252,0) (74,0,74,88,0) (75,0,75,316,0) (76,0,76,152,0) (77,0,77,380,0) (78,0,78,216,0)
(79,0,79,444,0) (80,0,80,280,0) (81,0,81,52,0) (82,0,82,344,0) (83,0,83,116,0) (84,0,84,408,0)
(85,0,85,180,0) (86,0,86,16,0) (87,0,87,244,0) (88,0,88,80,0) (89,0,89,308,0) (90,0,90,144,0)
(91,0,91,372,0) (92,0,92,208,0) (93,0,93,436,0) (94,0,94,272,0) (95,0,95,44,0) (96,0,96,336,0)
(97,0,97,108,0) (98,0,98,400,0) (99,0,99,172,0) (100,0,100,8,0) (101,0,101,236,0) (102,0,102,72,0)
(103,0,103,300,0) (104,0,104,136,0) (105,0,105,364,0) (106,0,106,200,0) (107,0,107,428,0)
(108,0,108,264,0) (109,0,109,36,0) (110,0,110,328,0) (111,0,111,100,0) (112,0,112,392,0)
(113,0,113,164,0) (114,1,0,57,1) (115,1,1,285,1) (116,1,2,121,1) (117,1,3,349,1) (118,1,4,185,1)
(119,1,5,413,1) (120,1,6,249,1) (121,1,7,21,1) (122,1,8,313,1) (123,1,9,85,1) (124,1,10,377,1)
(125,1,11,149,1) (126,1,12,441,1) (127,1,13,213,1) (128,1,14,49,1) (129,1,15,277,1) (130,1,16,113,1)
(131,1,17,341,1) (132,1,18,177,1) (133,1,19,405,1) (134,1,20,241,1) (135,1,21,13,1) (136,1,22,305,1)
(137,1,23,77,1) (138,1,24,369,1) (139,1,25,141,1) (140,1,26,433,1) (141,1,27,205,1) (142,1,28,41,1)
(143,1,29,269,1) (144,1,30,105,1) (145,1,31,333,1) (146,1,32,169,1) (147,1,33,397,1) (148,1,34,233,1)
(149,1,35,5,1) (150,1,36,297,1) (151,1,37,69,1) (152,1,38,361,1) (153,1,39,133,1) (154,1,40,425,1)
(155,1,41,197,1) (156,1,42,33,1) (157,1,43,261,1) (158,1,44,97,1) (159,1,45,325,1) (160,1,46,161,1)
(161,1,47,389,1) (162,1,48,225,1) (163,1,49,453,1) (164,1,50,289,1) (165,1,51,61,1) (166,1,52,353,1)
(167,1,53,125,1) (168,1,54,417,1) (169,1,55,189,1) (170,1,56,25,1) (171,1,57,253,1) (172,1,58,89,1)
(173,1,59,317,1) (174,1,60,153,1) (175,1,61,381,1) (176,1,62,217,1) (177,1,63,445,1) (178,1,64,281,1)
(179,1,65,53,1) (180,1,66,345,1) (181,1,67,117,1) (182,1,68,409,1) (183,1,69,181,1) (184,1,70,17,1)
(185,1,71,245,1) (186,1,72,81,1) (187,1,73,309,1) (188,1,74,145,1) (189,1,75,373,1) (190,1,76,209,1)
(191,1,77,437,1) (192,1,78,273,1) (193,1,79,45,1) (194,1,80,337,1) (195,1,81,109,1) (196,1,82,401,1)
(197,1,83,173,1) (198,1,84,9,1) (199,1,85,237,1) (200,1,86,73,1) (201,1,87,301,1) (202,1,88,137,1)
(203,1,89,365,1) (204,1,90,201,1) (205,1,91,429,1) (206,1,92,265,1) (207,1,93,37,1) (208,1,94,329,1)
(209,1,95,101,1) (210,1,96,393,1) (211,1,97,165,1) (212,1,98,1,1) (213,1,99,229,1) (214,1,100,65,1)
(215,1,101,293,1) (216,1,102,129,1) (217,1,103,357,1) (218,1,104,193,1) (219,1,105,421,1)
(220,1,106,257,1) (221,1,107,29,1) (222,1,108,321,1) (223,1,109,93,1) (224,1,110,385,1)
(225,1,111,157,1) (226,1,112,449,1) (227,1,113,221,1) (228,2,0,114,0) (229,2,1,342,0) (230,2,2,178,0)
(231,2,3,406,0) (232,2,4,242,0) (233,2,5,14,0) (234,2,6,306,0) (235,2,7,78,0) (236,2,8,370,0)
(237,2,9,142,0) (238,2,10,434,0) (239,2,11,206,0) (240,2,12,42,0) (241,2,13,270,0) (242,2,14,106,0)
(243,2,15,334,0) (244,2,16,170,0) (245,2,17,398,0) (246,2,18,234,0) (247,2,19,6,0) (248,2,20,298,0)
(249,2,21,70,0) (250,2,22,362,0) (251,2,23,134,0) (252,2,24,426,0) (253,2,25,198,0) (254,2,26,34,0)
(255,2,27,262,0) (256,2,28,98,0) (257,2,29,326,0) (258,2,30,162,0) (259,2,31,390,0) (260,2,32,226,0)
(261,2,33,454,0) (262,2,34,290,0) (263,2,35,62,0) (264,2,36,354,0) (265,2,37,126,0) (266,2,38,418,0)
(267,2,39,190,0) (268,2,40,26,0) (269,2,41,254,0) (270,2,42,90,0) (271,2,43,318,0) (272,2,44,154,0)
(273,2,45,382,0) (274,2,46,218,0) (275,2,47,446,0) (276,2,48,282,0) (277,2,49,54,0) (278,2,50,346,0)
(279,2,51,118,0) (280,2,52,410,0) (281,2,53,182,0) (282,2,54,18,0) (283,2,55,246,0) (284,2,56,82,0)
(285,2,57,310,0) (286,2,58,146,0) (287,2,59,374,0) (288,2,60,210,0) (289,2,61,438,0) (290,2,62,274,0)
(291,2,63,46,0) (292,2,64,338,0) (293,2,65,110,0) (294,2,66,402,0) (295,2,67,174,0) (296,2,68,10,0)
(297,2,69,238,0) (298,2,70,74,0) (299,2,71,302,0) (300,2,72,138,0) (301,2,73,366,0) (302,2,74,202,0)
(303,2,75,430,0) (304,2,76,266,0) (305,2,77,38,0) (306,2,78,330,0) (307,2,79,102,0) (308,2,80,394,0)
(309,2,81,166,0) (310,2,82,2,0) (311,2,83,230,0) (312,2,84,66,0) (313,2,85,294,0) (314,2,86,130,0)
(315,2,87,358,0) (316,2,88,194,0) (317,2,89,422,0) (318,2,90,258,0) (319,2,91,30,0) (320,2,92,322,0)
(321,2,93,94,0) (322,2,94,386,0) (323,2,95,158,0) (324,2,96,450,0) (325,2,97,222,0) (326,2,98,58,0)
(327,2,99,286,0) (328,2,100,122,0) (329,2,101,350,0) (330,2,102,186,0) (331,2,103,414,0)
(332,2,104,250,0) (333,2,105,22,0) (334,2,106,314,0) (335,2,107,86,0) (336,2,108,378,0)
(337,2,109,150,0) (338,2,110,442,0) (339,2,111,214,0) (340,2,112,50,0) (341,2,113,278,0)
(342,3,0,171,1) (343,3,1,399,1) (344,3,2,235,1) (345,3,3,7,1) (346,3,4,299,1) (347,3,5,71,1)
(348,3,6,363,1) (349,3,7,135,1) (350,3,8,427,1) (351,3,9,199,1) (352,3,10,35,1) (353,3,11,263,1)
(354,3,12,99,1) (355,3,13,327,1) (356,3,14,163,1) (357,3,15,391,1) (358,3,16,227,1) (359,3,17,455,1)
(360,3,18,291,1) (361,3,19,63,1) (362,3,20,355,1) (363,3,21,127,1) (364,3,22,419,1) (365,3,23,191,1)
(366,3,24,27,1) (367,3,25,255,1) (368,3,26,91,1) (369,3,27,319,1) (370,3,28,155,1) (371,3,29,383,1)
(372,3,30,219,1) (373,3,31,447,1) (374,3,32,283,1) (375,3,33,55,1) (376,3,34,347,1) (377,3,35,119,1)
(378,3,36,411,1) (379,3,37,183,1) (380,3,38,19,1) (381,3,39,247,1) (382,3,40,83,1) (383,3,41,311,1)
(384,3,42,147,1) (385,3,43,375,1) (386,3,44,211,1) (387,3,45,439,1) (388,3,46,275,1) (389,3,47,47,1)
(390,3,48,339,1) (391,3,49,111,1) (392,3,50,403,1) (393,3,51,175,1) (394,3,52,11,1) (395,3,53,239,1)
(396,3,54,75,1) (397,3,55,303,1) (398,3,56,139,1) (399,3,57,367,1) (400,3,58,203,1) (401,3,59,431,1)
(402,3,60,267,1) (403,3,61,39,1) (404,3,62,331,1) (405,3,63,103,1) (406,3,64,395,1) (407,3,65,167,1)
(408,3,66,3,1) (409,3,67,231,1) (410,3,68,67,1) (411,3,69,295,1) (412,3,70,131,1) (413,3,71,359,1)
(414,3,72,195,1) (415,3,73,423,1) (416,3,74,259,1) (417,3,75,31,1) (418,3,76,323,1) (419,3,77,95,1)
(420,3,78,387,1) (421,3,79,159,1) (422,3,80,451,1) (423,3,81,223,1) (424,3,82,59,1) (425,3,83,287,1)
(426,3,84,123,1) (427,3,85,351,1) (428,3,86,187,1) (429,3,87,415,1) (430,3,88,251,1) (431,3,89,23,1)
(432,3,90,315,1) (433,3,91,87,1) (434,3,92,379,1) (435,3,93,151,1) (436,3,94,443,1) (437,3,95,215,1)
(438,3,96,51,1) (439,3,97,279,1) (440,3,98,115,1) (441,3,99,343,1) (442,3,100,179,1) (443,3,101,407,1)
(444,3,102,243,1) (445,3,103,15,1) (446,3,104,307,1) (447,3,105,79,1) (448,3,106,371,1)
(449,3,107,143,1) (450,3,108,435,1) (451,3,109,207,1) (452,3,110,43,1) (453,3,111,271,1)
(454,3,112,107,1) (455,3,113,335,1)8.10 /opt/GSM/c54x_exe/tools/cch_ref/cch_interleave_ref.csv
11686 octets, 457 lignes → 143 lignes (1 groupes compactés)
k,"lane_G(0=G0/c0,1=G1/c1)",burst_B,pos_j,iB_index,j_if_LSB_dropped,j_if_LSB_inverted,iB_index_if_LSB_inverted
⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩,⟨6⟩,⟨7⟩,⟨8⟩ ×456
⟨⟩ = (0,0,0,0,0,0,1,1) (1,1,1,98,212,98,99,213) (2,0,2,82,310,82,83,311) (3,1,3,66,408,66,67,409)
(4,0,0,51,51,50,50,50) (5,1,1,35,149,34,34,148) (6,0,2,19,247,18,18,246) (7,1,3,3,345,2,2,344)
(8,0,0,100,100,100,101,101) (9,1,1,84,198,84,85,199) (10,0,2,68,296,68,69,297)
(11,1,3,52,394,52,53,395) (12,0,0,37,37,36,36,36) (13,1,1,21,135,20,20,134) (14,0,2,5,233,4,4,232)
(15,1,3,103,445,102,102,444) (16,0,0,86,86,86,87,87) (17,1,1,70,184,70,71,185)
(18,0,2,54,282,54,55,283) (19,1,3,38,380,38,39,381) (20,0,0,23,23,22,22,22) (21,1,1,7,121,6,6,120)
(22,0,2,105,333,104,104,332) (23,1,3,89,431,88,88,430) (24,0,0,72,72,72,73,73)
(25,1,1,56,170,56,57,171) (26,0,2,40,268,40,41,269) (27,1,3,24,366,24,25,367) (28,0,0,9,9,8,8,8)
(29,1,1,107,221,106,106,220) (30,0,2,91,319,90,90,318) (31,1,3,75,417,74,74,416)
(32,0,0,58,58,58,59,59) (33,1,1,42,156,42,43,157) (34,0,2,26,254,26,27,255) (35,1,3,10,352,10,11,353)
(36,0,0,109,109,108,108,108) (37,1,1,93,207,92,92,206) (38,0,2,77,305,76,76,304)
(39,1,3,61,403,60,60,402) (40,0,0,44,44,44,45,45) (41,1,1,28,142,28,29,143) (42,0,2,12,240,12,13,241)
(43,1,3,110,452,110,111,453) (44,0,0,95,95,94,94,94) (45,1,1,79,193,78,78,192)
(46,0,2,63,291,62,62,290) (47,1,3,47,389,46,46,388) (48,0,0,30,30,30,31,31) (49,1,1,14,128,14,15,129)
(50,0,2,112,340,112,113,341) (51,1,3,96,438,96,97,439) (52,0,0,81,81,80,80,80)
(53,1,1,65,179,64,64,178) (54,0,2,49,277,48,48,276) (55,1,3,33,375,32,32,374) (56,0,0,16,16,16,17,17)
(57,1,1,0,114,0,1,115) (58,0,2,98,326,98,99,327) (59,1,3,82,424,82,83,425) (60,0,0,67,67,66,66,66)
(61,1,1,51,165,50,50,164) (62,0,2,35,263,34,34,262) (63,1,3,19,361,18,18,360) (64,0,0,2,2,2,3,3)
(65,1,1,100,214,100,101,215) (66,0,2,84,312,84,85,313) (67,1,3,68,410,68,69,411)
(68,0,0,53,53,52,52,52) (69,1,1,37,151,36,36,150) (70,0,2,21,249,20,20,248) (71,1,3,5,347,4,4,346)
(72,0,0,102,102,102,103,103) (73,1,1,86,200,86,87,201) (74,0,2,70,298,70,71,299)
(75,1,3,54,396,54,55,397) (76,0,0,39,39,38,38,38) (77,1,1,23,137,22,22,136) (78,0,2,7,235,6,6,234)
(79,1,3,105,447,104,104,446) (80,0,0,88,88,88,89,89) (81,1,1,72,186,72,73,187)
(82,0,2,56,284,56,57,285) (83,1,3,40,382,40,41,383) (84,0,0,25,25,24,24,24) (85,1,1,9,123,8,8,122)
(86,0,2,107,335,106,106,334) (87,1,3,91,433,90,90,432) (88,0,0,74,74,74,75,75)
(89,1,1,58,172,58,59,173) (90,0,2,42,270,42,43,271) (91,1,3,26,368,26,27,369) (92,0,0,11,11,10,10,10)
(93,1,1,109,223,108,108,222) (94,0,2,93,321,92,92,320) (95,1,3,77,419,76,76,418)
(96,0,0,60,60,60,61,61) (97,1,1,44,158,44,45,159) (98,0,2,28,256,28,29,257) (99,1,3,12,354,12,13,355)
(100,0,0,111,111,110,110,110) (101,1,1,95,209,94,94,208) (102,0,2,79,307,78,78,306)
(103,1,3,63,405,62,62,404) (104,0,0,46,46,46,47,47) (105,1,1,30,144,30,31,145)
(106,0,2,14,242,14,15,243) (107,1,3,112,454,112,113,455) (108,0,0,97,97,96,96,96)
(109,1,1,81,195,80,80,194) (110,0,2,65,293,64,64,292) (111,1,3,49,391,48,48,390)
(112,0,0,32,32,32,33,33) (113,1,1,16,130,16,17,131) (114,0,2,0,228,0,1,229) (115,1,3,98,440,98,99,441)
(116,0,0,83,83,82,82,82) (117,1,1,67,181,66,66,180) (118,0,2,51,279,50,50,278)
(119,1,3,35,377,34,34,376) (120,0,0,18,18,18,19,19) (121,1,1,2,116,2,3,117)
(122,0,2,100,328,100,101,329) (123,1,3,84,426,84,85,427) (124,0,0,69,69,68,68,68)
(125,1,1,53,167,52,52,166) (126,0,2,37,265,36,36,264) (127,1,3,21,363,20,20,362) (128,0,0,4,4,4,5,5)
(129,1,1,102,216,102,103,217) (130,0,2,86,314,86,87,315) (131,1,3,70,412,70,71,413)
(132,0,0,55,55,54,54,54) (133,1,1,39,153,38,38,152) (134,0,2,23,251,22,22,250) (135,1,3,7,349,6,6,348)
(136,0,0,104,104,104,105,105) (137,1,1,88,202,88,89,203) (138,0,2,72,300,72,73,301)
(139,1,3,56,398,56,57,399) (140,0,0,41,41,40,40,40) (141,1,1,25,139,24,24,138) (142,0,2,9,237,8,8,236)
(143,1,3,107,449,106,106,448) (144,0,0,90,90,90,91,91) (145,1,1,74,188,74,75,189)
(146,0,2,58,286,58,59,287) (147,1,3,42,384,42,43,385) (148,0,0,27,27,26,26,26)
(149,1,1,11,125,10,10,124) (150,0,2,109,337,108,108,336) (151,1,3,93,435,92,92,434)
(152,0,0,76,76,76,77,77) (153,1,1,60,174,60,61,175) (154,0,2,44,272,44,45,273)
(155,1,3,28,370,28,29,371) (156,0,0,13,13,12,12,12) (157,1,1,111,225,110,110,224)
(158,0,2,95,323,94,94,322) (159,1,3,79,421,78,78,420) (160,0,0,62,62,62,63,63)
(161,1,1,46,160,46,47,161) (162,0,2,30,258,30,31,259) (163,1,3,14,356,14,15,357)
(164,0,0,113,113,112,112,112) (165,1,1,97,211,96,96,210) (166,0,2,81,309,80,80,308)
(167,1,3,65,407,64,64,406) (168,0,0,48,48,48,49,49) (169,1,1,32,146,32,33,147)
(170,0,2,16,244,16,17,245) (171,1,3,0,342,0,1,343) (172,0,0,99,99,98,98,98) (173,1,1,83,197,82,82,196)
(174,0,2,67,295,66,66,294) (175,1,3,51,393,50,50,392) (176,0,0,34,34,34,35,35)
(177,1,1,18,132,18,19,133) (178,0,2,2,230,2,3,231) (179,1,3,100,442,100,101,443)
(180,0,0,85,85,84,84,84) (181,1,1,69,183,68,68,182) (182,0,2,53,281,52,52,280)
(183,1,3,37,379,36,36,378) (184,0,0,20,20,20,21,21) (185,1,1,4,118,4,5,119)
(186,0,2,102,330,102,103,331) (187,1,3,86,428,86,87,429) (188,0,0,71,71,70,70,70)
(189,1,1,55,169,54,54,168) (190,0,2,39,267,38,38,266) (191,1,3,23,365,22,22,364) (192,0,0,6,6,6,7,7)
(193,1,1,104,218,104,105,219) (194,0,2,88,316,88,89,317) (195,1,3,72,414,72,73,415)
(196,0,0,57,57,56,56,56) (197,1,1,41,155,40,40,154) (198,0,2,25,253,24,24,252) (199,1,3,9,351,8,8,350)
(200,0,0,106,106,106,107,107) (201,1,1,90,204,90,91,205) (202,0,2,74,302,74,75,303)
(203,1,3,58,400,58,59,401) (204,0,0,43,43,42,42,42) (205,1,1,27,141,26,26,140)
(206,0,2,11,239,10,10,238) (207,1,3,109,451,108,108,450) (208,0,0,92,92,92,93,93)
(209,1,1,76,190,76,77,191) (210,0,2,60,288,60,61,289) (211,1,3,44,386,44,45,387)
(212,0,0,29,29,28,28,28) (213,1,1,13,127,12,12,126) (214,0,2,111,339,110,110,338)
(215,1,3,95,437,94,94,436) (216,0,0,78,78,78,79,79) (217,1,1,62,176,62,63,177)
(218,0,2,46,274,46,47,275) (219,1,3,30,372,30,31,373) (220,0,0,15,15,14,14,14)
(221,1,1,113,227,112,112,226) (222,0,2,97,325,96,96,324) (223,1,3,81,423,80,80,422)
(224,0,0,64,64,64,65,65) (225,1,1,48,162,48,49,163) (226,0,2,32,260,32,33,261)
(227,1,3,16,358,16,17,359) (228,0,0,1,1,0,0,0) (229,1,1,99,213,98,98,212) (230,0,2,83,311,82,82,310)
(231,1,3,67,409,66,66,408) (232,0,0,50,50,50,51,51) (233,1,1,34,148,34,35,149)
(234,0,2,18,246,18,19,247) (235,1,3,2,344,2,3,345) (236,0,0,101,101,100,100,100)
(237,1,1,85,199,84,84,198) (238,0,2,69,297,68,68,296) (239,1,3,53,395,52,52,394)
(240,0,0,36,36,36,37,37) (241,1,1,20,134,20,21,135) (242,0,2,4,232,4,5,233)
(243,1,3,102,444,102,103,445) (244,0,0,87,87,86,86,86) (245,1,1,71,185,70,70,184)
(246,0,2,55,283,54,54,282) (247,1,3,39,381,38,38,380) (248,0,0,22,22,22,23,23) (249,1,1,6,120,6,7,121)
(250,0,2,104,332,104,105,333) (251,1,3,88,430,88,89,431) (252,0,0,73,73,72,72,72)
(253,1,1,57,171,56,56,170) (254,0,2,41,269,40,40,268) (255,1,3,25,367,24,24,366) (256,0,0,8,8,8,9,9)
(257,1,1,106,220,106,107,221) (258,0,2,90,318,90,91,319) (259,1,3,74,416,74,75,417)
(260,0,0,59,59,58,58,58) (261,1,1,43,157,42,42,156) (262,0,2,27,255,26,26,254)
(263,1,3,11,353,10,10,352) (264,0,0,108,108,108,109,109) (265,1,1,92,206,92,93,207)
(266,0,2,76,304,76,77,305) (267,1,3,60,402,60,61,403) (268,0,0,45,45,44,44,44)
(269,1,1,29,143,28,28,142) (270,0,2,13,241,12,12,240) (271,1,3,111,453,110,110,452)
(272,0,0,94,94,94,95,95) (273,1,1,78,192,78,79,193) (274,0,2,62,290,62,63,291)
(275,1,3,46,388,46,47,389) (276,0,0,31,31,30,30,30) (277,1,1,15,129,14,14,128)
(278,0,2,113,341,112,112,340) (279,1,3,97,439,96,96,438) (280,0,0,80,80,80,81,81)
(281,1,1,64,178,64,65,179) (282,0,2,48,276,48,49,277) (283,1,3,32,374,32,33,375)
(284,0,0,17,17,16,16,16) (285,1,1,1,115,0,0,114) (286,0,2,99,327,98,98,326) (287,1,3,83,425,82,82,424)
(288,0,0,66,66,66,67,67) (289,1,1,50,164,50,51,165) (290,0,2,34,262,34,35,263)
(291,1,3,18,360,18,19,361) (292,0,0,3,3,2,2,2) (293,1,1,101,215,100,100,214)
(294,0,2,85,313,84,84,312) (295,1,3,69,411,68,68,410) (296,0,0,52,52,52,53,53)
(297,1,1,36,150,36,37,151) (298,0,2,20,248,20,21,249) (299,1,3,4,346,4,5,347)
(300,0,0,103,103,102,102,102) (301,1,1,87,201,86,86,200) (302,0,2,71,299,70,70,298)
(303,1,3,55,397,54,54,396) (304,0,0,38,38,38,39,39) (305,1,1,22,136,22,23,137) (306,0,2,6,234,6,7,235)
(307,1,3,104,446,104,105,447) (308,0,0,89,89,88,88,88) (309,1,1,73,187,72,72,186)
(310,0,2,57,285,56,56,284) (311,1,3,41,383,40,40,382) (312,0,0,24,24,24,25,25) (313,1,1,8,122,8,9,123)
(314,0,2,106,334,106,107,335) (315,1,3,90,432,90,91,433) (316,0,0,75,75,74,74,74)
(317,1,1,59,173,58,58,172) (318,0,2,43,271,42,42,270) (319,1,3,27,369,26,26,368)
(320,0,0,10,10,10,11,11) (321,1,1,108,222,108,109,223) (322,0,2,92,320,92,93,321)
(323,1,3,76,418,76,77,419) (324,0,0,61,61,60,60,60) (325,1,1,45,159,44,44,158)
(326,0,2,29,257,28,28,256) (327,1,3,13,355,12,12,354) (328,0,0,110,110,110,111,111)
(329,1,1,94,208,94,95,209) (330,0,2,78,306,78,79,307) (331,1,3,62,404,62,63,405)
(332,0,0,47,47,46,46,46) (333,1,1,31,145,30,30,144) (334,0,2,15,243,14,14,242)
(335,1,3,113,455,112,112,454) (336,0,0,96,96,96,97,97) (337,1,1,80,194,80,81,195)
(338,0,2,64,292,64,65,293) (339,1,3,48,390,48,49,391) (340,0,0,33,33,32,32,32)
(341,1,1,17,131,16,16,130) (342,0,2,1,229,0,0,228) (343,1,3,99,441,98,98,440) (344,0,0,82,82,82,83,83)
(345,1,1,66,180,66,67,181) (346,0,2,50,278,50,51,279) (347,1,3,34,376,34,35,377)
(348,0,0,19,19,18,18,18) (349,1,1,3,117,2,2,116) (350,0,2,101,329,100,100,328)
(351,1,3,85,427,84,84,426) (352,0,0,68,68,68,69,69) (353,1,1,52,166,52,53,167)
(354,0,2,36,264,36,37,265) (355,1,3,20,362,20,21,363) (356,0,0,5,5,4,4,4)
(357,1,1,103,217,102,102,216) (358,0,2,87,315,86,86,314) (359,1,3,71,413,70,70,412)
(360,0,0,54,54,54,55,55) (361,1,1,38,152,38,39,153) (362,0,2,22,250,22,23,251) (363,1,3,6,348,6,7,349)
(364,0,0,105,105,104,104,104) (365,1,1,89,203,88,88,202) (366,0,2,73,301,72,72,300)
(367,1,3,57,399,56,56,398) (368,0,0,40,40,40,41,41) (369,1,1,24,138,24,25,139) (370,0,2,8,236,8,9,237)
(371,1,3,106,448,106,107,449) (372,0,0,91,91,90,90,90) (373,1,1,75,189,74,74,188)
(374,0,2,59,287,58,58,286) (375,1,3,43,385,42,42,384) (376,0,0,26,26,26,27,27)
(377,1,1,10,124,10,11,125) (378,0,2,108,336,108,109,337) (379,1,3,92,434,92,93,435)
(380,0,0,77,77,76,76,76) (381,1,1,61,175,60,60,174) (382,0,2,45,273,44,44,272)
(383,1,3,29,371,28,28,370) (384,0,0,12,12,12,13,13) (385,1,1,110,224,110,111,225)
(386,0,2,94,322,94,95,323) (387,1,3,78,420,78,79,421) (388,0,0,63,63,62,62,62)
(389,1,1,47,161,46,46,160) (390,0,2,31,259,30,30,258) (391,1,3,15,357,14,14,356)
(392,0,0,112,112,112,113,113) (393,1,1,96,210,96,97,211) (394,0,2,80,308,80,81,309)
(395,1,3,64,406,64,65,407) (396,0,0,49,49,48,48,48) (397,1,1,33,147,32,32,146)
(398,0,2,17,245,16,16,244) (399,1,3,1,343,0,0,342) (400,0,0,98,98,98,99,99) (401,1,1,82,196,82,83,197)
(402,0,2,66,294,66,67,295) (403,1,3,50,392,50,51,393) (404,0,0,35,35,34,34,34)
(405,1,1,19,133,18,18,132) (406,0,2,3,231,2,2,230) (407,1,3,101,443,100,100,442)
(408,0,0,84,84,84,85,85) (409,1,1,68,182,68,69,183) (410,0,2,52,280,52,53,281)
(411,1,3,36,378,36,37,379) (412,0,0,21,21,20,20,20) (413,1,1,5,119,4,4,118)
(414,0,2,103,331,102,102,330) (415,1,3,87,429,86,86,428) (416,0,0,70,70,70,71,71)
(417,1,1,54,168,54,55,169) (418,0,2,38,266,38,39,267) (419,1,3,22,364,22,23,365) (420,0,0,7,7,6,6,6)
(421,1,1,105,219,104,104,218) (422,0,2,89,317,88,88,316) (423,1,3,73,415,72,72,414)
(424,0,0,56,56,56,57,57) (425,1,1,40,154,40,41,155) (426,0,2,24,252,24,25,253) (427,1,3,8,350,8,9,351)
(428,0,0,107,107,106,106,106) (429,1,1,91,205,90,90,204) (430,0,2,75,303,74,74,302)
(431,1,3,59,401,58,58,400) (432,0,0,42,42,42,43,43) (433,1,1,26,140,26,27,141)
(434,0,2,10,238,10,11,239) (435,1,3,108,450,108,109,451) (436,0,0,93,93,92,92,92)
(437,1,1,77,191,76,76,190) (438,0,2,61,289,60,60,288) (439,1,3,45,387,44,44,386)
(440,0,0,28,28,28,29,29) (441,1,1,12,126,12,13,127) (442,0,2,110,338,110,111,339)
(443,1,3,94,436,94,95,437) (444,0,0,79,79,78,78,78) (445,1,1,63,177,62,62,176)
(446,0,2,47,275,46,46,274) (447,1,3,31,373,30,30,372) (448,0,0,14,14,14,15,15)
(449,1,1,112,226,112,113,227) (450,0,2,96,324,96,97,325) (451,1,3,80,422,80,81,423)
(452,0,0,65,65,64,64,64) (453,1,1,49,163,48,48,162) (454,0,2,33,261,32,32,260)
(455,1,3,17,359,16,16,358)8.11 /opt/GSM/c54x_exe/tools/cch_ref/cch_testvectors.txt
2882 octets, 24 lignes → 26 lignes (1 groupes compactés)
# GSM 05.03 xCCH stage-isolation test vector
# Fixed pseudo-random 228-bit u (u[224:228]=tail=0).
# TEST A (interleaver): feed burst0..3 into YOUR deinterleaver,
# compare the 456-bit result against the three candidates below:
# == cB_correct -> interleaver OK, bug is downstream
# == cB_lsb_dropped -> you never apply the ((k%8)>>2) term
# == cB_lsb_inverted -> that term is inverted / off-by-one
# == none of them -> different bug (burst order? half swap?)
# TEST B (Viterbi/lane): feed cB_correct into YOUR Viterbi,
# compare the 228-bit result against u. Mismatch with cB correct
# => c0/c1 swap, wrong polynomials, or tail handling.
u_228 = 001011110010110110010000101001101001101001011011110101101101001110101100000011111010010110111110110000010000101010011000101111110011110101010001000110100111010001001101100001001010010101110111000101101011100000000111111010100000
burst⟨1⟩_114 = ⟨2⟩ ×4
⟨⟩ =
(0,010111100110111111000001111011110100001011001000100111110111001001000011110011101111000110000101100111000101110001)
(1,111110110000111001100110001001111111011100011100011100101011101001101011110110110100111000000101110101011010100011)
(2,101000000111010001000000111000001000100001111001111011000110000111010000011101011000001110000100110010000111100100)
(3,001110011101101000010101100101101010000100110101001110111110111111001000000000011000101010111011100001110101010100)
cB_correct = 000011011101010101001110110110001010111110001111110111101100010100011100010100011100101101100010010101110100011000101000011100011010110100011011001100001110100110011101110010110110001001011001111010110011001101001111110111100010110001011100000111010101101001001101100101110100100010111100010011001001000111000110101101111100010000010100101011001111010000101110110010111000010110111001100000000111011000010001011000001100000000111010011010011101001011111100
cB_lsb_dropped = 000001011101000101000101110101001010100110000100110110111100010000011001010111001100101101101100010100010100101000101111011100101010110000011000001110111110100010010111110000010110011001011100111000110011011001001101110111110010000001011101000101000101110101001010100110000100110110111100010000011001010111001100101101101100010100010100101000101111011100101010110000011000001110111110100010010111110000010110011001011100111000110011011001001101110111110010
cB_lsb_inverted = 1100010111000001110101011010010011011001011101001000101111000100110010010001110001101011011111000100000101001010110011110100001011101100101110000101101110011000000001110110000100010110000011000000001110100110100111010010111111000000110111010101010011101101100010101111100011111101111011000101000111000101000111001011011000100101011101000110001010000111000110101101000110110011000011101001100111011100101101100010010110011110101100110011010011111101111000109 Fichiers
9.1 /opt/GSM/c54x_exe/.gitignore
165 octets, 11 lignes → 11 lignes
# build products (make) — never commit binaries
/c54x_exe
/isa_test
/tch_now
/tools/rejeu_banc
/tools/sacch_tf_decode
*.o
__pycache__/
*.pyc
# run artefacts
/tmp/9.2 /opt/GSM/c54x_exe/Makefile
2626 octets, 66 lignes → 66 lignes
# c54x_exe - le DSP Calypso hors QEMU.
#
# Les sources viennent de /opt/GSM/qosmo et ne sont PAS recopiees ici.
QOSMO ?= /opt/GSM/qosmo
CAL := $(QOSMO)/hw/arm/calypso
L1DSP := $(CAL)/l1-dsp
HORS := $(QOSMO)/contrib/hors-qemu
CC ?= gcc
CFLAGS ?= -O3 -march=native -g -Wall -Werror=format -Werror=format-extra-args -Wno-unused-function -Wno-unused-variable \
-Wno-unused-but-set-variable -Wno-sign-compare
CPPFLAGS := -D_GNU_SOURCE -I$(HORS)/doublures -I$(L1DSP) -I$(CAL) -I$(QOSMO)/include -I$(QOSMO)
# calypso_bsp.c encode les bursts RACH/NB : gsm0503_rach_ext_encode
OSMO := $(shell pkg-config --cflags --libs libosmocoding libosmocore 2>/dev/null)
LDLIBS := -lpthread -lm $(OSMO)
SRC := src/main.c src/rejouer.c src/pcb-minimal.c src/verbosite.c src/pont.c src/cellule.c src/montant.c $(HORS)/cales-qemu.c \
$(L1DSP)/calypso_gmsk.c \
$(L1DSP)/calypso_c54x.c \
$(L1DSP)/c54x_exec.c \
$(L1DSP)/c54x_decode.c \
$(L1DSP)/c54x_mem.c \
$(L1DSP)/c54x_irq.c \
$(L1DSP)/c54x_probes.c \
$(L1DSP)/calypso_bsp.c \
$(L1DSP)/calypso_arm2dsp.c \
$(L1DSP)/calypso_mailbox.c \
$(L1DSP)/calypso_fbsb.c \
$(L1DSP)/calypso_dma.c \
$(L1DSP)/calypso_rhea_dma.c \
$(L1DSP)/calypso_rif.c \
$(L1DSP)/calypso_a5.c \
$(L1DSP)/calypso_twl3025.c \
$(CAL)/calypso_xio.c \
$(CAL)/calypso_iota.c \
$(CAL)/calypso_trf6151.c \
$(CAL)/calypso_debug.c \
$(CAL)/calypso_invariants.c
all: c54x_exe
# [2026-09-23] Les en-tetes aussi : sans eux, une modification d un .h seul
# (calypso_c54x.h, calypso_bsp.h...) laissait un binaire perime.
HDR := $(wildcard src/*.h $(L1DSP)/*.h $(CAL)/*.h $(QOSMO)/include/hw/arm/calypso/*.h)
# [2026-09-23] RECOMPILATION A CHAQUE make. Les sources viennent d un autre
# depot (qosmo) et « make: Nothing to be done » laissait douter du binaire
# lance : c54x_exe est reconstruit a chaque appel, comme apres un make clean.
# Une seule commande cc, pas de .o : rien d autre a nettoyer.
.PHONY: c54x_exe
c54x_exe: $(SRC) $(HDR)
$(CC) $(CFLAGS) $(CPPFLAGS) -o $@ $(SRC) $(LDLIBS)
# ISA conformance: the SPRU172C worked examples replayed on the core.
# make isa_test && ./isa_test tools/isa_tests.txt 2>/dev/null
COEUR := $(filter-out src/%,$(SRC))
tools/isa_tests.txt: tools/isa_examples.py
python3 tools/isa_examples.py > $@
isa_test: tools/isa_test.c src/pcb-minimal.c $(COEUR) tools/isa_tests.txt
$(CC) $(CFLAGS) $(CPPFLAGS) -o $@ tools/isa_test.c src/pcb-minimal.c $(COEUR) $(LDLIBS)
clean:
rm -f c54x_exe isa_test
.PHONY: all clean9.3 /opt/GSM/c54x_exe/balayage.sh
3968 octets, 76 lignes → 76 lignes
#!/usr/bin/env bash
# balayage.sh - explore les parametres du rejeu dont on n'est PAS sur, et classe
# les combinaisons par le seul critere qui compte : le nombre de SB VRAIES
# (CRC OK ET BSIC = celui injecte ET T3 valide ET FN = la trame).
#
# [2026-09-18] NE PAS CLASSER SUR crc_ok. Le CRC de la SCH fait 10 bits : une
# entree aleatoire passerait ~0,1 % du temps, or on mesurait 20 %. Un tel taux
# ne vient pas du hasard mais d'une entree DEGENERee (quasi constante) sur
# laquelle le Viterbi converge toujours vers le meme mot. Classer sur crc_ok
# recompense donc le figement : c'est ainsi qu'une phase de 0,75 est sortie en
# tete alors qu'elle produisait 12 CRC OK pour UN SEUL mot distinct. Le critere
# secondaire est le nombre de mots DISTINCTS decodes : lui mesure si la sortie
# depend de l'entree.
#
# Pourquoi : plusieurs boutons du banc sont des hypotheses non verifiees --
# la phase d'echantillonnage (0,5 = centre du symbole), la marge de tete, le
# calage de la commande SB (le DSP demodule le burst de la DERNIERE trame de
# commande, mesure du 18/09), le nombre de commandes, l'ordre RX, la longueur
# de fenetre DMA. Les regler un par un fait rater les interactions.
#
# ./balayage.sh balayage complet, resultats dans balayage.tsv
# ./balayage.sh --rapide grille reduite
# TRAMES=1200 ./balayage.sh plus de trames par essai (defaut 600)
# sort -t$'\t' -k6,6nr -k5,5nr balayage.tsv | head relire le classement
set -uo pipefail
HERE="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
EXE="$HERE/c54x_exe"
OUT="${OUT:-$HERE/balayage.tsv}"
TRAMES="${TRAMES:-600}"
[ -x "$EXE" ] || { echo "binaire absent : $EXE" >&2; exit 1; }
if [ "${1:-}" = "--rapide" ]; then
DECALAGES="-1 0"; UNIQUES="0 1"
PHASES="0.0 0.25 0.5 0.75"; MARGES="0 21 41"
RXAVANT="0"; LENS="380"
else
DECALAGES="-5 -4 -3 -2 -1 0 1"; UNIQUES="0 1"
PHASES="0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9"
MARGES="0 10 21 30 41"; RXAVANT="0 1"
LENS="296 380"
fi
total=0
for a in $DECALAGES; do for b in $UNIQUES; do for c in $PHASES; do
for d in $MARGES; do for e in $RXAVANT; do for f in $LENS; do
total=$((total+1)); done; done; done; done; done; done
printf 'decalage\tunique\tphase\tmarge\trx_avant\tdaram_len\tvraies\tmots_distincts\tcrc_ok\tsb_tentees\n' > "$OUT"
echo "[balayage] $total combinaisons, $TRAMES trames chacune -> $OUT"
n=0; t0=$(date +%s)
for a in $DECALAGES; do
for b in $UNIQUES; do
for c in $PHASES; do
for d in $MARGES; do
for e in $RXAVANT; do
for f in $LENS; do
n=$((n+1))
res=$(REJEU_SB_FORCE=1 \
REJEU_SB_DECALAGE="$a" REJEU_SB_UNIQUE="$b" \
REJEU_DECALAGE_SYMB="$c" REJEU_MARGE="$d" \
REJEU_RX_AVANT="$e" CALYPSO_BSP_DARAM_LEN="$f" \
timeout 180 "$EXE" --rejouer --verbeux --trames "$TRAMES" 2>/dev/null)
vraies=$(printf '%s' "$res" | sed -n 's/.*VRAIES ([^)]*): \([0-9]*\).*/\1/p' | head -1)
crc=$( printf '%s' "$res" | sed -n 's/.*CRC OK: \([0-9]*\).*/\1/p' | head -1)
tent=$( printf '%s' "$res" | sed -n 's#.*SB tentees / CRC KO: \([0-9]*\) /.*#\1#p' | head -1)
mots=$( printf '%s' "$res" | grep -oE '^ SB[0-9] fn=[0-9]+ : sb=0x[0-9a-f]+' | grep -oE '0x[0-9a-f]+' | sort -u | wc -l)
printf '%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\n' \
"$a" "$b" "$c" "$d" "$e" "$f" "${vraies:-0}" "${mots:-0}" "${crc:-0}" "${tent:-0}" >> "$OUT"
if [ $((n % 25)) -eq 0 ]; then
dt=$(( $(date +%s) - t0 ))
echo "[balayage] $n/$total ${dt}s meilleur vraies=$(tail -n +2 "$OUT" | cut -f7 | sort -nr | head -1) mots_distincts=$(tail -n +2 "$OUT" | cut -f8 | sort -nr | head -1)"
fi
done; done; done; done; done; done
echo "[balayage] termine, $n essais."
echo "--- 15 meilleures combinaisons (vraies, puis mots distincts) ---"
{ head -1 "$OUT"; tail -n +2 "$OUT" | sort -t$'\t' -k7,7nr -k8,8nr | head -15; } | column -t -s$'\t'9.4 /opt/GSM/c54x_exe/mobile_pont.cfg
4224 octets, 167 lignes → 167 lignes
# mobile.cfg.template — avec placeholders
# KI : "ki comp128 XX XX XX ... XX" 16 octets, octet 15=ms_idx, 16=op_id
#
# AUDIO [2026-09-22] : comme le run sans --dsp (/root/.osmocom/bb/mobile.cfg)
# sauf le format de trame TCH, plus la voie donnees.
# tch-voice io-handler gapk, io-tch-format ti (le DSP vocode ; c'est
# « rtp » sans --dsp, ou c'est pont.py qui code), ALSA
# gsm_out/gsm_in.
# tch-data io-handler unix-sock, /tmp/ms_data (CSD 9600 async, 8N1).
# L'ordre tch-voice puis tch-data est celui que le mobile lui-meme ecrit.
# `io-tch-format` n'est valide que derriere gapk ou unix-sock : sous l1phy le
# mobile la refuse (« This parameter is only valid for GAPK ») et abandonne
# tout le fichier.
#
# SOCKETS : les memes que le run sans --dsp (/tmp/osmocom_l2, /tmp/osmocom_sap)
# et non plus les variantes « _pont ». En montage DSP le module `l2` du fork
# n'est pas joue, donc aucun autre mobile ne les prend. Lancer a la main un
# banc grgsm ET ce banc-ci en meme temps les ferait se disputer : c'est le
# compromis assume pour n'avoir qu'un seul jeu de noms.
!
line vty
no login
bind 127.0.0.1 4347
!
gps device /dev/ttyACM0
gps baudrate default
no gps enable
!
no hide-default
!
!
log stderr
logging filter all 1
logging color 1
logging timestamp 1
logging print category 1
logging level mm debug
logging level rr debug
logging level cc debug
logging level sms debug
!
log gsmtap 172.20.0.1
logging filter all 1
logging color 0
logging timestamp 0
logging print category 1
logging level mm debug
logging level rr debug
logging level cc debug
logging level sms debug
!
ms 1
layer2-socket /tmp/osmocom_l2
sap-socket /tmp/osmocom_sap
sim test
network-selection-mode auto
imei 358925008967594 0
imei-fixed
no emergency-imsi
sms-service-center +3366612340001
no call-waiting
no auto-answer
no force-rekey
no clip
no clir
tx-power auto
no simulated-delay
stick 514
location-updating
neighbour-measurement
codec full-speed prefer
codec half-speed
no abbrev
support
sms
a5/1
a5/2
no p-gsm
no e-gsm
no r-gsm
no gsm-850
dcs
no pcs
class-900 4
class-850 4
class-dcs 1
class-pcs 1
channel-capability sdcch+tchf+tchh
full-speech-v1
full-speech-v2
half-speech-v1
min-rxlev -106
dsc-max 90
no skip-max-per-band
test-sim
imsi 001010001000001
ki comp128 00 11 22 33 44 55 66 77 88 99 aa bb cc dd 01 01
no barred-access
rplmn 001 01
tch-voice
io-handler gapk
! [2026-09-22] FORMAT DE TRAME TCH : « ti » ICI, « rtp » SANS --dsp.
! Ce n'est pas une preference, c'est QUI fait le vocodage. Sur ce banc-ci le
! vrai DSP tourne (c54x_exe, mask-ROM TI) et rend ses trames dans SA
! disposition, celle des telephones Calypso : « ti ».
! Le montage gr-gsm, lui, n'a pas de DSP — c'est pont.py qui code avec
! libosmocoding (gsm0503_tch_fr_encode/decode), laquelle parle RTP/RFC3551,
! 33 octets ouverts par la signature 0xD. D'ou le « rtp » de
! /root/.osmocom/bb/mobile.cfg et sa note du 2026-08-27 : elle vaut pour CE
! montage-la, pas pour celui-ci. Se tromper de cote ne leve aucun compteur,
! les trames passent — elles sont simplement lues avec le mauvais plan, et le
! son sort robotise.
io-tch-format ti
alsa-output-dev gsm_out
alsa-input-dev gsm_in
tch-data
io-handler unix-sock
io-tch-format ti
unix-socket /tmp/ms_data
call-params type-rate 71
call-params ce transparent
call-params async
call-params async nr-stop-bits 1
call-params async nr-data-bits 8
call-params async parity none
no shutdown
!
! GSMTAP configuration
!
gsmtap
remote-host 172.20.0.1
no local-host
lchan sacch
lchan lsacch
lchan sacch/4
lchan sacch/8
lchan sacch/f
lchan sacch/h
lchan unknown
lchan bcch
lchan ccch
lchan rach
lchan agch
lchan pch
lchan sdcch
lchan sdcch/4
lchan sdcch/8
lchan facch/f
lchan facch/h
lchan pacch
lchan cbch
lchan pdch
lchan pttch
lchan tch/f
lchan tch/h
category gprs dl-unknown
category gprs dl-dummy
category gprs dl-ctrl
category gprs dl-data-gprs
category gprs dl-data-egprs
category gprs ul-unknown
category gprs ul-dummy
category gprs ul-ctrl
category gprs ul-data-gprs
category gprs ul-data-egprs
end
9.5 /opt/GSM/c54x_exe/run.sh
17070 octets, 285 lignes → 285 lignes
#!/usr/bin/env bash
# run.sh - le cote MOBILE du banc Calypso, processus par processus, sans le reseau.
#
# Deux montages (MODE) :
# dsp (defaut) 1. c54x_exe --arm le DSP TMS320C54x, mask-ROM TI, hors QEMU
# 2. qosmo l'ARM + layer1 osmocom-bb (CALYPSO_DSP_EXTERN=1)
# 3. osmocon romload sur le pty serial0, relais L1CTL
# 4. mobile couche 2/3 osmocom-bb
# 5. pont_dsp.py (PONT=1) bursts du BTS -> DSP (--dsp-port 6702) ;
# le pont DSP (pont/dsp/), bascule TCH suivie par le firmware
# grgsm 2. qosmo l'ARM + layer1 avec la couche 1 gr-gsm (shunt)
# 3. osmocon 4. mobile 5. pont.py (PONT=1) bursts du BTS -> L1 gr-gsm
# Le pont a besoin du BTS (osmo-bts-trx, TRXD 5700) : sans reseau il demarre et attend.
#
# ./run.sh tout lancer ./run.sh --status qui tourne
# MODE=grgsm ./run.sh montage gr-gsm ./run.sh --logs suivre les journaux
# PONT=1 ./run.sh avec le pont ./run.sh --stop tout arreter, nettoyer
# ./run.sh --step N une seule etape (les precedentes doivent tourner)
# Variables : MODE, PONT, LOCKSTEP (1 : QEMU attend le DSP a chaque trame), INSNS (80000),
# VERB (-v), IQ (none|fcch|cell|...), AMP (30000),
# QOSMO, FIRMWARE_ELF, FIRMWARE_BIN, OSMOCON, MOBILE, MOBILE_CFG, PONT_PY, RUNDIR, L2_SOCK.
# Details, attendus et verifications : LAUNCH.md a cote.
set -uo pipefail
HERE="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
MODE="${MODE:-dsp}"
PONT="${PONT:-0}"
QOSMO="${QOSMO:-/opt/GSM/qosmo}"
QEMU="${QEMU:-$QOSMO/build/qemu-system-arm}"
FIRMWARE_ELF="${FIRMWARE_ELF:-/opt/GSM/firmware/board/compal_e88/layer1.highram.elf}"
FIRMWARE_BIN="${FIRMWARE_BIN:-${FIRMWARE_ELF%.elf}.bin}"
OSMOCON="${OSMOCON:-/opt/GSM/osmocom-bb/src/host/osmocon/osmocon}"
MOBILE="${MOBILE:-$(command -v mobile || echo /usr/local/bin/mobile)}"
MOBILE_CFG="${MOBILE_CFG:-$HERE/mobile_pont.cfg}"
# [2026-09-23] Deux points d'entree pour le meme paquet pont/ : pont_dsp.py pour le
# montage dsp (--dsp-port 6702), pont.py pour le montage grgsm, qui
# garde ses defauts d'avant le decoupage. PONT_PY force l'un ou l'autre.
if [ "$MODE" = grgsm ]; then
PONT_PY="${PONT_PY:-/opt/GSM/osmo-operator/pont/pont.py}"
else
PONT_PY="${PONT_PY:-/opt/GSM/osmo-operator/pont/pont_dsp.py}"
fi
RUNDIR="${RUNDIR:-/tmp/c54x-pont}"
L2_SOCK="${L2_SOCK:-/tmp/osmocom_l2}"
MONITOR="${MONITOR:-/tmp/qemu-monitor-pont.sock}"
GDB="${GDB:-1}" # gdbstub QEMU + console telnet (etape 2)
GDB_STUB="${GDB_STUB:-1234}"
GDB_TELNET="${GDB_TELNET:-44444}"
GDB_TELNET_PY="${GDB_TELNET_PY:-/opt/GSM/qosmo-dsp/tools/gdb-telnet.py}"
INSNS="${INSNS:-16000}" # [2026-09-23] 60000 debordait en TCH (jusqu a 87000 insn/trame), voir start-direct.sh
# [2026-09-20] Pas-a-pas DSP/QEMU par defaut (LOCKSTEP=0 pour le mode horloge murale) :
# le C54x emule coute ~6,7 ms par trame contre 4,615 ms de temps reel, QEMU sautait
# donc 3 trames sur 4 (« DSP en retard, tick saute »), la ROM ne voyait qu'une trame
# sur 4 a 6, son compteur de blocs FB n'avancait pas et le TOA valait 1251 quelle que
# soit la distance de la FCCH. En pas-a-pas QEMU n'avance la trame que quand le DSP
# a fini la precedente : TOA = 23 + n x 1250, delay=10, SB decodable.
LOCKSTEP="${LOCKSTEP:-1}"
[ "$MODE" = dsp ] && [ "$LOCKSTEP" = 1 ] && export CALYPSO_PONT_LOCKSTEP=1
VERB="${VERB:--v}"
IQ="${IQ:-none}"
AMP="${AMP:-30000}"
DSP_SOCK=/tmp/calypso_dsp.sock
DSP_SHM=/dev/shm/calypso_api_ram
# [2026-09-23] LA VITRINE : LES MEMES JOURNAUX QU'EN MODE SHUNT. Le panneau
# (tmux calypso, osmo-fft-snap) suit /run/user/0/osmo-nitb/logs/{qemu,osmocon,
# mobile}.log et /dev/shm/pont.log, ceux qu'ecrit le montage grgsm. Ce banc-ci
# n'ecrivait que dans $RUNDIR : les volets restaient a 0 octet. Le VRAI fichier
# est donc pose au chemin du panneau et $RUNDIR/<nom>.log devient un lien vers
# lui -- pas l'inverse : un `tail -F` deja ouvert refuse un fichier remplace par
# un lien (« untailable symbolic link »). PANNEAU_LOGS=none pour ne rien toucher.
PANNEAU_LOGS="${PANNEAU_LOGS:-/run/user/0/osmo-nitb/logs}"
# La FFT du panneau lit /tmp/iq_fft_ms.fifo, que pont.py ne remplit que si
# l'enregistrement est actif : --no-record la rendait muette. PONT_AIRREC=0 le coupe.
PONT_AIRREC="${PONT_AIRREC:-1}"
vitrine() { # vitrine <nom> : a appeler AVANT le lancement qui ecrit $RUNDIR/<nom>.log
rm -f "$RUNDIR/$1.log"
[ "$PANNEAU_LOGS" = none ] && return 0
local cible="$PANNEAU_LOGS/$1.log"
[ "$1" = pont ] && cible=/dev/shm/pont.log
[ -d "$(dirname "$cible")" ] || return 0
rm -f "$cible" && : > "$cible" && ln -s "$cible" "$RUNDIR/$1.log"
return 0
}
dire() { printf '\033[1m[run %s]\033[0m %s\n' "$MODE" "$*"; }
rater() { printf '\033[1;31m[run] ECHEC :\033[0m %s\n' "$*" >&2; exit 1; }
pid_de() { [ -f "$RUNDIR/$1.pid" ] && cat "$RUNDIR/$1.pid"; }
vivant() { local p; p="$(pid_de "$1")"; [ -n "$p" ] && kill -0 "$p" 2>/dev/null; }
attendre() { local n=$(( $1 * 10 )); shift; while [ "$n" -gt 0 ]; do "$@" && return 0; sleep 0.1; n=$((n - 1)); done; return 1; }
[ "$MODE" = dsp ] || [ "$MODE" = grgsm ] || rater "MODE=$MODE inconnu (dsp|grgsm)"
etape1() { # le DSP (montage dsp seulement)
[ "$MODE" = dsp ] || { dire "1. (montage grgsm : pas de c54x_exe, la couche 1 est dans QEMU)"; return; }
vivant dsp && { dire "1. c54x_exe deja lance (pid $(pid_de dsp))"; return; }
[ -x "$HERE/c54x_exe" ] || make -C "$HERE" >/dev/null || rater "make c54x_exe"
rm -f "$DSP_SHM" "$DSP_SOCK"
# [2026-09-23] L'annonce TCH d'une session morte (pont/dsp/tch.py) ne doit
# pas etre relue par montant.c au demarrage.
rm -f /dev/shm/calypso_tch_cfg
# [2026-09-23] Attendre (au plus 40 ms) une trame que la BTS livre en
# retard plutot que la jouer en effacement (calypso_bsp.c, bsp_attendre_trame).
( cd "$HERE" && CALYPSO_IQDUMP_FCCH=1 CALYPSO_BSP_ATTENTE_MS="${CALYPSO_BSP_ATTENTE_MS:-40}" exec ./c54x_exe --arm --insns "$INSNS" --iq "$IQ" --amp "$AMP" $VERB ) > "$RUNDIR/dsp.log" 2>&1 &
echo $! > "$RUNDIR/dsp.pid"
attendre 5 test -S "$DSP_SOCK" || rater "c54x_exe n'a pas ouvert $DSP_SOCK (voir $RUNDIR/dsp.log)"
dire "1. c54x_exe --arm pid $(pid_de dsp) ($INSNS insn/trame, iq=$IQ, $DSP_SHM, $DSP_SOCK)"
}
etape2() { # l'ARM
vivant qemu && { dire "2. QEMU deja lance (pid $(pid_de qemu))"; return; }
[ -x "$QEMU" ] || rater "QEMU absent : $QEMU (ninja -C $QOSMO/build)"
[ -r "$FIRMWARE_ELF" ] || rater "firmware absent : $FIRMWARE_ELF"
local extern=""
if [ "$MODE" = dsp ]; then [ -S "$DSP_SOCK" ] || rater "le DSP ne tourne pas (etape 1 d'abord)"; extern=1; fi
rm -f "$MONITOR"
vitrine qemu
# [2026-09-23] gdb sur l'ARM : gdbstub QEMU en tcp::$GDB_STUB, et la console
# telnet de qosmo-dsp (tools/gdb-telnet.py) sur le port $GDB_TELNET :
# telnet 0 44444 (Ctrl-C arrete l'ARM, « continue & » le relance)
# Tant que personne n'est connecte, gdb ne tourne pas et l'ARM n'est pas
# touche. GDB=0 : ni stub ni console.
local gdb_opt=()
[ "$GDB" = 1 ] && gdb_opt=(-gdb "tcp:127.0.0.1:$GDB_STUB")
# [2026-09-23] ASSEMBLY_LOGS=1 (start-direct.sh --assembly-logs) : trace asm
# de l'ARM, chaque bloc traduit et chaque bloc execute, dans qemu-asm.log.
# nochain sinon les blocs chaines ne sont journalises qu'une fois.
if [ "${ASSEMBLY_LOGS:-0}" = 1 ]; then
gdb_opt+=(-d "${ASSEMBLY_LOGS_FLAGS:-in_asm,exec,nochain}" -D "$RUNDIR/qemu-asm.log")
[ -n "${ASSEMBLY_LOGS_FILTRE:-}" ] && gdb_opt+=(-dfilter "$ASSEMBLY_LOGS_FILTRE")
fi
# [2026-09-23] Relance de QEMU vers le DSP toutes les trame/64 (0,07 ms) au
# lieu de trame/16 (0,29 ms) : la partie en serie d'une trame (DONE de la
# phase A, GO) payait deux fois cette latence -- mesure [chrono] en TCH.
CALYPSO_PONT_RETRY_DIV="${CALYPSO_PONT_RETRY_DIV:-64}" \
CALYPSO_DSP_EXTERN="$extern" "$QEMU" -M calypso -cpu arm946 -display none -parallel none \
-serial pty -serial pty -monitor "unix:$MONITOR,server,nowait" "${gdb_opt[@]}" \
-kernel "$FIRMWARE_ELF" > "$RUNDIR/qemu.log" 2>&1 &
echo $! > "$RUNDIR/qemu.pid"
if [ "$GDB" = 1 ] && [ -f "$GDB_TELNET_PY" ] && ! vivant gdb; then
python3 "$GDB_TELNET_PY" --port "$GDB_TELNET" --stub "$GDB_STUB" --elf "$FIRMWARE_ELF" \
> "$RUNDIR/gdb.log" 2>&1 &
echo $! > "$RUNDIR/gdb.pid"
fi
attendre 10 grep -aq "label serial0" "$RUNDIR/qemu.log" || rater "QEMU n'a pas publie son pty (voir $RUNDIR/qemu.log)"
if [ "$MODE" = dsp ]; then
grep -aq "pont DSP : API RAM partagee" "$RUNDIR/qemu.log" || rater "QEMU n'a pas rejoint le DSP (voir $RUNDIR/qemu.log)"
else
attendre 5 grep -aq "backend gr-gsm" "$RUNDIR/qemu.log" || rater "la couche 1 gr-gsm ne s'est pas annoncee (voir $RUNDIR/qemu.log)"
fi
sed -n 's/.*redirected to \(\/dev\/pts\/[0-9]*\) (label serial0).*/\1/p' "$RUNDIR/qemu.log" | head -1 > "$RUNDIR/modem.pty"
dire "2. qemu-system-arm pid $(pid_de qemu) pty modem $(cat "$RUNDIR/modem.pty") moniteur $MONITOR L1=$([ "$MODE" = dsp ] && echo "DSP externe" || echo "gr-gsm (udp 4730/4731)")"
[ "$GDB" = 1 ] && dire " gdb ARM : telnet 0 $GDB_TELNET (stub tcp::$GDB_STUB, journal $RUNDIR/gdb.log)"
[ "${ASSEMBLY_LOGS:-0}" = 1 ] && dire " trace asm ARM : $RUNDIR/qemu-asm.log (-d ${ASSEMBLY_LOGS_FLAGS:-in_asm,exec,nochain}${ASSEMBLY_LOGS_FILTRE:+, -dfilter $ASSEMBLY_LOGS_FILTRE})"
}
etape3() { # osmocon
vivant osmocon && { dire "3. osmocon deja lance (pid $(pid_de osmocon))"; return; }
vivant qemu || rater "QEMU ne tourne pas (etape 2 d'abord)"
[ -x "$OSMOCON" ] || rater "osmocon absent : $OSMOCON"
[ -r "$FIRMWARE_BIN" ] || rater "image .bin absente : $FIRMWARE_BIN"
local pty; pty="$(cat "$RUNDIR/modem.pty")"
rm -f "$L2_SOCK"
vitrine osmocon
stdbuf -oL -eL "$OSMOCON" -m romload -i 100 -p "$pty" -s "$L2_SOCK" "$FIRMWARE_BIN" > "$RUNDIR/osmocon.log" 2>&1 &
echo $! > "$RUNDIR/osmocon.pid"
if ! attendre 30 grep -aq "your code is running now" "$RUNDIR/osmocon.log"; then
rater "osmocon n'a pas fini le romload (voir $RUNDIR/osmocon.log). Un osmocon tue a mi-bloc laisse
le stub romload de l'UART en attente : ./run.sh --stop puis ./run.sh"
fi
dire "3. osmocon pid $(pid_de osmocon) L1CTL sur $L2_SOCK"
}
etape4() { # le mobile
vivant mobile && { dire "4. mobile deja lance (pid $(pid_de mobile))"; return; }
[ -S "$L2_SOCK" ] || rater "pas de socket L1CTL $L2_SOCK (etape 3 d'abord)"
[ -x "$MOBILE" ] || rater "mobile absent : $MOBILE"
[ -r "$MOBILE_CFG" ] || rater "config mobile absente : $MOBILE_CFG"
local vty; vty="$(sed -n 's/^ *bind 127.0.0.1 \([0-9]*\).*/\1/p' "$MOBILE_CFG" | head -1)"
if [ -n "$vty" ] && ss -ltn 2>/dev/null | grep -q ":$vty "; then
rater "le port VTY $vty de $MOBILE_CFG est deja pris par : $(ss -ltnp 2>/dev/null | grep ":$vty " | grep -o 'users:.*' | head -1)
changez la ligne « bind 127.0.0.1 $vty » de la config (les 42xx sont ceux du reseau du banc)"
fi
vitrine mobile
# [2026-09-23] Resynchro sur la cellule choisie : 8 essais au lieu de 1
# (gsm322.c, sync_retries_selection). Le DSP ne passe le SB qu'une fois sur
# trois a cinq, et deux echecs suffisaient a la boucle « no service ».
# Montage grgsm : defaut du binaire, inchange.
local retries=""
[ "$MODE" = dsp ] && retries="${L23_SYNC_RETRIES_SELECTION:-8}"
L23_SYNC_RETRIES_SELECTION="$retries" \
stdbuf -oL "$MOBILE" -c "$MOBILE_CFG" > "$RUNDIR/mobile.log" 2>&1 &
echo $! > "$RUNDIR/mobile.pid"
sleep 2
vivant mobile || rater "mobile s'est arrete : $(sed 's/\x1b\[[0-9;]*m//g' "$RUNDIR/mobile.log" | grep -iE 'cannot|error|unable' | tail -1)"
dire "4. mobile pid $(pid_de mobile) config $MOBILE_CFG vty telnet 127.0.0.1 ${vty:-?}"
}
etape5() { # le pont TRX (PONT=1) : bursts du BTS vers la couche 1
[ "$PONT" = 1 ] || { dire "5. (PONT=0 : pas de pont.py, aucun burst du BTS n'arrive)"; return; }
vivant pont && { dire "5. pont.py deja lance (pid $(pid_de pont))"; return; }
[ -r "$PONT_PY" ] || rater "pont.py absent : $PONT_PY"
local extra=""; [ "$MODE" = dsp ] && extra="--dsp-port 6702"
[ "$PONT_AIRREC" = 0 ] && extra="$extra --no-record"
vitrine pont
( cd "$(dirname "$PONT_PY")/.." && exec python3 "$PONT_PY" $extra ) > "$RUNDIR/pont.log" 2>&1 &
echo $! > "$RUNDIR/pont.pid"
attendre 10 grep -aq "pont TRX : ports" "$RUNDIR/pont.log" || rater "pont.py ne s'est pas annonce (voir $RUNDIR/pont.log)"
dire "5. pont.py pid $(pid_de pont) TRXD 5700-5702 <- BTS ; vers $([ "$MODE" = dsp ] && echo "le DSP (udp 6702)" || echo "la L1 gr-gsm (udp 4730/4731)")"
}
arreter() {
local n
for n in pont mobile osmocon gdb qemu dsp; do
if vivant "$n"; then kill "$(pid_de "$n")" 2>/dev/null; dire "arret $n (pid $(pid_de "$n"))"; fi
rm -f "$RUNDIR/$n.pid"
done
sleep 1
rm -f "$DSP_SHM" "$DSP_SOCK" "$L2_SOCK" "$MONITOR" "$RUNDIR/modem.pty"
# [2026-09-22] Sockets du mobile : elles ne disparaissent pas avec lui. Le
# « sap » etait deja oublie, et « ms_data » (tch-data, mobile_pont.cfg)
# arrive avec la meme faiblesse : un fichier reste fait echouer le bind du
# run suivant sur EADDRINUSE, et le mobile demarre sans sa voie donnees
# sans le dire.
rm -f /tmp/osmocom_sap /tmp/ms_data
# [2026-09-22] Horloge du banc (calypso_bsp.c -> pont/trx.py) : laissee en
# place, pont.py asservirait sa premiere seconde sur la trame d'une session
# morte et la BTS resterait figee en attendant un DSP qui n'existe plus.
rm -f /dev/shm/calypso_horloge
# Side-bands du lien montant (src/montant.c) : sinon pont.py relit le
# dernier enregistrement d'une session precedente au demarrage.
rm -f /dev/shm/calypso_rach /dev/shm/calypso_sdcch_ul \
/dev/shm/calypso_tch_facch_ul /dev/shm/calypso_tch_sacch_ul \
/dev/shm/calypso_tch_ul
# [2026-09-23] Annonce du TCH par le pont DSP (pont/dsp/tch.py -> montant.c
# scruter_tch). Montage dsp seulement : en grgsm ce fichier est celui de la
# L1 gr-gsm de QEMU, on n'y touche pas.
[ "$MODE" = dsp ] && rm -f /dev/shm/calypso_tch_cfg
}
statut() {
local n
for n in dsp qemu osmocon mobile pont; do
if vivant "$n"; then printf ' %-8s pid %-7s %s\n' "$n" "$(pid_de "$n")" "$RUNDIR/$n.log"
else printf ' %-8s arrete\n' "$n"; fi
done
[ -f "$RUNDIR/dsp.log" ] && grep -a "fn=" "$RUNDIR/dsp.log" | tail -1
[ -f "$RUNDIR/osmocon.log" ] && grep -a "FB0\|FB1\|SB\|BSIC" "$RUNDIR/osmocon.log" | tail -1
}
# [2026-09-23] GARDER LES JOURNAUX DU DSP ET DU PONT. dsp.log est ecrase a
# chaque lancement et pont.log est vide par vitrine ; aucun des deux n'est dans
# les archives du panneau (osmo-nitb/archives). Deux appels de suite ont ete
# perdus ainsi (13:11 et 13:21 : SP-CORRUPT et FACCH ko sans trace). On range
# la session precedente dans $RUNDIR/archives/<date de dsp.log>/ et on en garde
# JOURNAUX_GARDES (10). JOURNAUX_GARDES=0 ne garde rien.
JOURNAUX_GARDES="${JOURNAUX_GARDES:-10}"
garder_journaux() {
[ "$JOURNAUX_GARDES" -gt 0 ] 2>/dev/null || return 0
[ -s "$RUNDIR/dsp.log" ] || [ -s /dev/shm/pont.log ] || return 0
local d="$RUNDIR/archives/$(date -r "$RUNDIR/dsp.log" +%Y%m%d-%H%M%S 2>/dev/null || date +%Y%m%d-%H%M%S)"
[ -d "$d" ] && return 0 # deja range (--stop puis relance)
mkdir -p "$d" || return 0
local n
for n in dsp pont mobile qemu osmocon; do
[ -s "$RUNDIR/$n.log" ] && cp -L "$RUNDIR/$n.log" "$d/" 2>/dev/null
done
# etat du magasin dedie du BSP (stockes/joues/manques/replis/perdues)
[ -s /dev/shm/calypso_bsp_dedie ] && cp /dev/shm/calypso_bsp_dedie "$d/bsp_dedie.txt" 2>/dev/null
ls -1dt "$RUNDIR"/archives/*/ 2>/dev/null | tail -n +$((JOURNAUX_GARDES + 1)) | xargs -r rm -rf
dire "journaux de la session precedente ranges dans $d"
}
mkdir -p "$RUNDIR"
case "${1:-}" in
--stop) arreter; garder_journaux
# vides une fois ranges : le lancement suivant ne les range pas deux fois
[ -f "$RUNDIR/dsp.log" ] && : > "$RUNDIR/dsp.log"
[ -f /dev/shm/pont.log ] && : > /dev/shm/pont.log ;;
--status) statut ;;
--logs) exec tail -n 5 -F "$RUNDIR"/dsp.log "$RUNDIR"/qemu.log "$RUNDIR"/osmocon.log "$RUNDIR"/mobile.log "$RUNDIR"/pont.log 2>/dev/null ;;
--step) case "${2:-}" in 1) etape1;; 2) etape2;; 3) etape3;; 4) etape4;; 5) etape5;; *) rater "--step 1|2|3|4|5";; esac ;;
-h|--help) sed -n '2,22p' "$0" ;;
"") garder_journaux; etape1; etape2; etape3; etape4; etape5
dire "tout tourne. Journaux : $RUNDIR/*.log suivre : ./run.sh --logs arreter : ./run.sh --stop" ;;
*) rater "option inconnue : $1 (voir --help)" ;;
esac9.6 /opt/GSM/c54x_exe/run_real.sh
3888 octets, 57 lignes → 57 lignes
#!/usr/bin/env bash
# run_real.sh - le banc REEL : BTS virtuelle (osmo-bts-trx + coeur osmocom) ->
# pont.py (TRX) -> DSP c54x_exe (--iq none, bursts UDP 6702) -> QEMU/ARM ->
# osmocon -> mobile. Memes executables que run.sh, sans aucune bequille
# (pas de CAN_TOA / CAN_SB / AFC forcee) : FB, SB et BCCH natifs.
#
# ./run_real.sh lance tout, observe 120 s, verdict SI / LAI
# ./run_real.sh --secondes N duree d'observation
# ./run_real.sh --logs suivre les journaux ./run_real.sh --stop tout arreter
#
# Reglages (mesures 2026-09-21) : INSNS=60000 (cadence DSP proche du temps reel
# du BTS), CALYPSO_BSP_STREAM=1 (un burst TS0 par trame, ordre FN),
# CALYPSO_RHEA_DMA_XFER=1 CALYPSO_BSP_DIRECT_FEED=1 (livraison DMA/RIF),
# CALYPSO_BSP_NB_SYM=0.3 (elargissement des bursts normaux, calypso_bsp.c).
set -u
HERE="$(cd "$(dirname "$0")" && pwd)"
RUNDIR=/tmp/c54x-pont
SECS=120
case "${1:-}" in
--stop) "$HERE/run.sh" --stop; systemctl stop osmo-bts-trx 2>/dev/null; exit 0 ;;
--logs) exec "$HERE/run.sh" --logs ;;
--secondes) SECS="$2" ;;
-h|--help) sed -n '2,14p' "$0"; exit 0 ;;
esac
E_MCC="$(grep -m1 -oE 'network country code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_MNC="$(grep -m1 -oE 'mobile network code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_LAC="$(grep -m1 -oE 'location_area_code 0x[0-9a-fA-F]+' /etc/osmocom/osmo-bsc.cfg | grep -oE '0x[0-9a-fA-F]+')"
E_LAC=$((E_LAC)); E_MCC=$((10#$E_MCC)); E_MNC=$((10#$E_MNC))
BSIC="$(grep -m1 -oE 'base_station_id_code [0-9]+' /etc/osmocom/osmo-bsc.cfg | grep -oE '[0-9]+$')"
echo "== run_real : LAI attendu MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC (BSIC=${BSIC:-?}), aucune bequille"
"$HERE/run.sh" --stop >/dev/null 2>&1; sleep 1
for u in osmo-hlr osmo-stp osmo-msc osmo-mgw osmo-bsc; do systemctl is-active --quiet "$u" || systemctl start "$u"; done
systemctl restart osmo-bts-trx; sleep 3
mkdir -p "$RUNDIR"; : > "$RUNDIR/mobile.log"; : > "$RUNDIR/osmocon.log"; : > "$RUNDIR/pont.log"
export MODE=dsp PONT=1 IQ=none INSNS="${INSNS:-60000}" LOCKSTEP="${LOCKSTEP:-1}"
export CALYPSO_RHEA_DMA_XFER=1 CALYPSO_BSP_DIRECT_FEED=1 CALYPSO_BSP_STREAM=1
export PONT_NB_DEBUG="${PONT_NB_DEBUG:-1}"
"$HERE/run.sh" || { echo "== run.sh a echoue"; exit 1; }
echo "== observation ${SECS}s ..."
sleep "$SECS"
M="$RUNDIR/mobile.log"; O="$RUNDIR/osmocon.log"
echo "== SB decodees (osmocon) : $(sed 's/\x1b\[[0-9;]*m//g' "$O" | grep -ac '=> SB') FBSB sans SB : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'result=255')"
echo "== blocs BCCH jetes (fire) : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'Dropping frame')"
echo "== System Information vus :"
sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "New SYSTEM INFORMATION [0-9a-z]+" | sort | uniq -c || echo " (aucun)"
echo "== montant : RACH publies par le DSP : $(sed 's/\x1b\[[0-9;]*m//g' "$RUNDIR/dsp.log" | grep -ac '\[montant\] RACH') compteurs du pont : $(grep -ao 'UL bursts=[0-9]* tard=[0-9]* rach=[0-9]*' "$RUNDIR/pont.log" | tail -1)"
echo "== IMM ASS : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'IMMEDIATE ASSIGNMENT') LU ACCEPT : $(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -ac 'LOCATION UPDATING ACCEPT')"
LAI="$(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "lai=[0-9]+-[0-9]+-[0-9]+" | tail -1)"
echo "== VERDICT :"
if [ -z "$LAI" ]; then echo " ECHEC : aucun SI lu"; else
D_MCC="$(echo "$LAI" | cut -d= -f2 | cut -d- -f1)"; D_MNC="$(echo "$LAI" | cut -d- -f2)"; D_LAC="$(echo "$LAI" | cut -d- -f3)"
if [ "$((10#$D_MCC))" = "$E_MCC" ] && [ "$((10#$D_MNC))" = "$E_MNC" ] && [ "$D_LAC" = "$E_LAC" ]; then
echo " VRAI : $LAI = la config du reseau, le mobile a lu la BCCH du BTS"
else echo " FAUX POSITIF : $LAI ne correspond pas a MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC"; fi
sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aq "camping normally" && echo " et il campe (MM IDLE)"
fi
echo "== arret : ./run_real.sh --stop"9.7 /opt/GSM/c54x_exe/run_si.sh
3846 octets, 72 lignes → 72 lignes
#!/usr/bin/env bash
# run_si.sh — amener le mobile (pile DSP c54x_exe) jusqu'à décoder la BCCH du
# VRAI réseau et lire un System Information, PUIS vérifier que le LAI décodé
# correspond à la config du réseau. Sinon = FAUX POSITIF, dit tel quel.
#
# C'est un banc SOUS ÉCHAFAUDAGE (« canning »), PAS un fonctionnement natif :
# - PONT_CAN_TOA=23 TOA FB figée (le corrélateur natif ne verrouille pas)
# - PONT_CAN_SB=<bsic> résultat SB fabriqué (BSIC + FN du BTS), comme qemu-src
# - CALYPSO_TWL3025_AFC_HZ rotation AFC forcée (annule l'offset de fréquence)
# - CALYPSO_PONT_LOCKSTEP=1 trame QEMU cadencée sur le DSP
# Chaque hack actif est imprimé. Un SI lu avec des hacks n'est pas une preuve du
# DSP natif ; c'est un test d'intégration de l'aval (sync -> BCCH -> L2/L3).
#
# ./run_si.sh # chaîne réelle (BTS + pont), échafaudage complet
# ./run_si.sh --secondes N # durée d'observation (défaut 90)
# ./run_si.sh --stop # tout arrêter
set -u
HERE="$(cd "$(dirname "$0")" && pwd)"
RUNDIR=/tmp/c54x-pont
SECS=90
BSIC="$(grep -m1 -oE 'base_station_id_code [0-9]+' /etc/osmocom/osmo-bsc.cfg 2>/dev/null | grep -oE '[0-9]+$')"; BSIC="${BSIC:-7}"
# LAI attendu, lu depuis la config (MCC/MNC/LAC)
E_MCC="$(grep -m1 -oE 'network country code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_MNC="$(grep -m1 -oE 'mobile network code [0-9]+' /etc/osmocom/osmo-msc.cfg | grep -oE '[0-9]+$')"
E_LAC="$(grep -m1 -oE 'location_area_code 0x[0-9a-fA-F]+' /etc/osmocom/osmo-bsc.cfg | grep -oE '0x[0-9a-fA-F]+')"
E_LAC=$((E_LAC)); E_MCC=$((10#$E_MCC)); E_MNC=$((10#$E_MNC))
case "${1:-}" in
--stop) "$HERE/run.sh" --stop; systemctl stop osmo-bts-trx 2>/dev/null; exit 0 ;;
--secondes) SECS="$2" ;;
-h|--help) sed -n '2,25p' "$0"; exit 0 ;;
esac
echo "== run_si : cible LAI attendu MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC (BSIC=$BSIC, ARFCN 514)"
"$HERE/run.sh" --stop >/dev/null 2>&1; sleep 1
systemctl start osmo-bts-trx 2>/dev/null; sleep 3
: > "$RUNDIR/mobile.log" 2>/dev/null; : > "$RUNDIR/osmocon.log" 2>/dev/null
# chaîne réelle + échafaudage complet
export MODE=dsp PONT=1 IQ=none
export CALYPSO_RHEA_DMA_XFER=1 CALYPSO_BSP_DIRECT_FEED=1 CALYPSO_PONT_LOCKSTEP=1
export CALYPSO_TWL3025_AFC_HZ=1927
export PONT_CAN_TOA=23 PONT_CAN_SB="$BSIC"
echo "== hacks actifs : CAN_TOA=23, CAN_SB=$BSIC, AFC_HZ=1927, LOCKSTEP, DIRECT_FEED, RHEA_DMA"
"$HERE/run.sh" >/dev/null 2>&1 &
sleep 12
grep -aq "code is running" "$RUNDIR/osmocon.log" && echo "== firmware lancé" || echo "== firmware PAS lancé (voir $RUNDIR/osmocon.log)"
echo "== observation ${SECS}s ..."
sleep "$SECS"
M="$RUNDIR/mobile.log"
echo "== System Information vus (BCCH) :"
sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "New SYSTEM INFORMATION [0-9a-z]+" | sort | uniq -c || echo " (aucun)"
LAI="$(sed 's/\x1b\[[0-9;]*m//g' "$M" | grep -aoE "lai=[0-9]+-[0-9]+-[0-9]+" | tail -1)"
echo "== [can-sb] premières lignes :"; grep -a "\[can-sb\]" "$RUNDIR/dsp.log" 2>/dev/null | head -3 | cut -c1-120
echo "== VERDICT :"
if [ -z "$LAI" ]; then
echo " ÉCHEC : aucun SI lu -> pas de camp. (attendu tant que le démod NB/BCCH natif n'est pas bon)"
else
D_MCC="$(echo "$LAI" | cut -d= -f2 | cut -d- -f1)"
D_MNC="$(echo "$LAI" | cut -d- -f2)"
D_LAC="$(echo "$LAI" | cut -d- -f3)"
echo " LAI décodé : MCC=$D_MCC MNC=$D_MNC LAC=$D_LAC"
if [ "$D_MCC" = "$E_MCC" ] && [ "$D_MNC" = "$E_MNC" ] && [ "$D_LAC" = "$E_LAC" ]; then
echo " ✓ VRAI : le LAI correspond à la config -> le mobile a réellement lu la BCCH du réseau."
else
echo " ✗ FAUX POSITIF : le LAI ne correspond pas (config MCC=$E_MCC MNC=$E_MNC LAC=$E_LAC)."
echo " Un bloc décodé qui ne porte pas l'identité du réseau n'est pas un camp, c'est du bruit qui a passé un CRC."
fi
fi
echo "== arrêt : ./run_si.sh --stop"9.8 /opt/GSM/c54x_exe/tout-en-un.py
18664 octets, 377 lignes → 377 lignes
#!/usr/bin/env python3
"""tout-en-un.py — rassemble tous les fichiers texte (sources, scripts, configs,
docs, logs) d'un ou plusieurs dossiers dans UN fichier Markdown, raccourci SANS PERTE :
* fichiers identiques (meme contenu) : une seule copie, les autres renvoient
a la premiere ;
* lignes consecutives identiques : « ligne ×N » ;
* lignes consecutives qui ne different que par des nombres (horodatage,
compteur, fn...) : un gabarit ou les nombres constants restent en place et
les nombres variables deviennent ⟨1⟩ ⟨2⟩..., suivi de la liste ordonnee des
valeurs. On reconstruit chaque ligne en remettant les valeurs dans l'ordre.
* codes couleur ANSI et retours chariot retires (seule perte, volontaire).
./tout-en-un.py [dossier...] defaut : /opt/GSM/c54x_exe et le dernier /root/c54x_exe-*
SORTIE=/chemin.md EXT="sh py c" (restreint aux extensions ; defaut : tout fichier texte)
SEUIL=3 (taille mini d'un groupe)
Sont ecartes : .git et caches, binaires (ELF, images, .pyc, archives), sauvegardes
(.bak*, ~, .orig), LICENSE/COPYING et les sorties precedentes de ce script.
"""
import glob
import hashlib
import os
import re
import sys
import time
EXT = os.environ.get("EXT", "").split() # vide : tout fichier texte
SEUIL = int(os.environ.get("SEUIL", "3"))
FORMAT = os.environ.get("FORMAT", "qmd") # qmd (Quarto) ou md
SORTIE = os.environ.get("SORTIE") or "/root/c54x_exe-%s.%s" % (time.strftime("%Y%m%d-%H%M%S"), FORMAT)
AUTEUR = os.environ.get("AUTEUR", "Banc GSM émulé — banc-max")
IGNORES = {".git", "__pycache__", ".pytest_cache", ".mypy_cache", ".ruff_cache", "node_modules", ".venv", "venv",
"rom", "roms"} # dumps de ROM (DSP Calypso) : pas a nous, pas dans le dossier
BINAIRES = set("png jpg jpeg gif bmp ico webp pdf zip gz tgz bz2 xz 7z tar bin elf o a so pyc pyo pyd "
"wav mp3 ogg mp4 sqlite db img iso woff woff2 ttf otf".split())
SAUVEGARDES = re.compile(r"(~|\.orig|\.rej|\.swp|\.bak(-\w+)?)$")
TITRE_SORTIE = "title: \"Banc GSM émulé — dossier de run\"".encode() # une sortie precedente de ce script
ANSI = re.compile(r"\x1b\[[0-9;]*[A-Za-z]")
TELNET = re.compile(rb"\xff[\xfb-\xfe].|\xff.") # negociation telnet (IAC) des captures VTY
CONTROLE = re.compile("[\x00-\x08\x0b\x0c\x0e-\x1f\x7f\ufffd]") # caracteres de commande, octets indecodables
NUM = re.compile(r"\d+")
# Preambule LaTeX du format pdf (xelatex). Sans lui : « Dimension too large » (framed
# mesure tout le bloc de code avant de le couper), lignes de code non repliees,
# diagrammes Mermaid plus larges que la page, glyphes manquants.
PDF_PREAMBULE = "".join(" %s\n" % l for l in r"""
% Code : police reduite, retour a la ligne (y compris dans les mots longs)
\usepackage{fvextra}
\fvset{fontsize=\small,breaklines,breakanywhere}
\RecustomVerbatimEnvironment{verbatim}{Verbatim}{fontsize=\small,breaklines,breakanywhere}
% Images (diagrammes Mermaid) : jamais plus larges que la ligne ni plus hautes que la page
\usepackage{adjustbox}
\usepackage{letltxmacro}
\LetLtxMacro\ORIGincludegraphics\includegraphics
\renewcommand{\includegraphics}[2][]{\adjustimage{#1,max width=\linewidth,max totalheight=.85\textheight}{#2}}
% Sans cadre : framed/snugshade mesure tout le bloc et plante ("Dimension too large")
\renewenvironment{Shaded}{\medskip}{\medskip}
% Glyphes absents de Latin Modern Roman -> DejaVu Sans
\usepackage{newunicodechar}
\newfontfamily\fallbackfont{DejaVu Sans}
\newunicodechar{↔}{{\fallbackfont ↔}}
\newunicodechar{⟨}{{\fallbackfont ⟨}}
\newunicodechar{⟩}{{\fallbackfont ⟩}}
\newunicodechar{≠}{{\fallbackfont ≠}}
\newunicodechar{∈}{{\fallbackfont ∈}}
\newunicodechar{ᵉ}{{\fallbackfont ᵉ}}
\newunicodechar{✓}{{\fallbackfont ✓}}
\newunicodechar{✗}{{\fallbackfont ✗}}
\newunicodechar{⚠}{{\fallbackfont ⚠}}
\newunicodechar{📱}{{\fallbackfont ☎}}
""".strip("\n").split("\n"))
LANG = {"sh": "bash", "bash": "bash", "py": "python", "md": "markdown", "qmd": "markdown", "mmd": "mermaid",
"txt": "text", "log": "text", "c": "c", "h": "c", "cpp": "cpp", "cc": "cpp", "hpp": "cpp",
"ini": "ini", "env": "ini", "service": "ini", "desktop": "ini", "toml": "toml", "yml": "yaml",
"yaml": "yaml", "json": "json", "patch": "diff", "diff": "diff", "mak": "makefile", "mk": "makefile",
"html": "html", "xml": "xml", "svg": "xml", "js": "javascript", "css": "css", "sql": "sql", "rs": "rust"}
NOMS_LANG = {"Makefile": "makefile", "GNUmakefile": "makefile", "Dockerfile": "dockerfile"}
def extension(nom):
return nom.rsplit(".", 1)[-1].lower() if "." in nom[1:] else ""
def langage(chemin):
"""Langage de coloration : extension, puis nom du fichier, puis shebang."""
nom = os.path.basename(chemin)
e = extension(nom)
if e in LANG:
return LANG[e]
if nom in NOMS_LANG:
return NOMS_LANG[nom]
try:
premiere = open(chemin, "rb").readline().decode("utf-8", "replace")
except OSError:
premiere = ""
if premiere.startswith("#!"):
if "python" in premiere:
return "python"
if re.search(r"\b(ba|z|da|k)?sh\b", premiere):
return "bash"
return "text"
def texte_legitime(chemin, nom):
"""Fichier texte a nous : ni binaire, ni sauvegarde, ni licence, ni sortie de ce script."""
if extension(nom) in BINAIRES or SAUVEGARDES.search(nom) or nom in ("LICENSE", "COPYING"):
return False
if nom.startswith("tout-en-un-"):
return False
try:
with open(chemin, "rb") as f:
debut = f.read(8192)
except OSError:
return False
if b"\0" in debut: # ELF, images, .pyc, archives...
return False
if TITRE_SORTIE in debut:
return False
return True
def dossiers_par_defaut():
runs = sorted(glob.glob("/root/grgsm_exe-*"), key=os.path.getmtime)
runs = [r for r in runs if os.path.isdir(r)]
return ["/opt/GSM/c54x_exe"] + ([runs[-1]] if runs else [])
def fichiers(dossier):
for racine, dirs, noms in os.walk(dossier):
dirs[:] = sorted(d for d in dirs if d not in IGNORES)
for n in sorted(noms):
chemin = os.path.join(racine, n)
if EXT and extension(n) not in EXT:
continue
if texte_legitime(chemin, n):
yield chemin
def compacter(lignes):
"""Rend (lignes de sortie, nb de groupes compactes)."""
out, groupes, i, n = [], 0, 0, len(lignes)
while i < n:
cle = NUM.sub("\0", lignes[i])
j = i + 1
while j < n and NUM.sub("\0", lignes[j]) == cle:
j += 1
taille = j - i
if taille < SEUIL:
out.extend(lignes[i:j])
i = j
continue
groupes += 1
if "\0" not in cle: # repetition exacte
out.append("%s ×%d" % (lignes[i], taille))
i = j
continue
valeurs = [NUM.findall(l) for l in lignes[i:j]]
nb = len(valeurs[0])
varie = [len({v[k] for v in valeurs}) > 1 for k in range(nb)]
# gabarit : nombres constants remis en place, variables numerotes ⟨k⟩
morceaux, k, idx = cle.split("\0"), 0, 0
gab = morceaux[0]
for m in morceaux[1:]:
if varie[k]:
idx += 1
gab += "⟨%d⟩" % idx
else:
gab += valeurs[0][k]
gab += m
k += 1
out.append("%s ×%d" % (gab, taille))
if idx:
tuples = [",".join(v[k] for k in range(nb) if varie[k]) for v in valeurs]
# lignes de valeurs de ~100 colonnes
ligne, courant = [], " ⟨⟩ ="
for t in tuples:
if len(courant) + len(t) + 3 > 110:
ligne.append(courant)
courant = " "
courant += " (" + t + ")"
ligne.append(courant)
out.extend(ligne)
i = j
return out, groupes
def synthese(tous):
"""Run, echelle, echecs, bilan de couverture : lus dans verdict.txt / couverture.txt."""
lignes, vus = [], set()
for f in tous:
nom = os.path.basename(f)
if nom not in ("verdict.txt", "couverture.txt"):
continue
run = os.path.basename(os.path.dirname(f))
if (run, nom) in vus: # meme run copie a deux endroits
continue
vus.add((run, nom))
try:
txt = ANSI.sub("", open(f, "rb").read().decode("utf-8", "replace"))
except OSError:
continue
for l in txt.splitlines():
l = re.sub(r"\s+", " ", l.strip())
if l.startswith("ELEMENT MAX"):
lignes.append((0, "| %s | échelle | %s |" % (run, l)))
elif l.startswith("bilan :"):
lignes.append((2, "| %s | couverture | %s |" % (run, l[8:])))
elif l.startswith("couverture couche 1"):
lignes.append((1, "| %s | mode, date | %s |" % (run, l.split("—", 1)[-1].strip())))
else:
m = re.match(r"(\d+) (\S+) (ECHEC|SAUTE) ?(.*)", l)
if m:
lignes.append((3, "| %s | barreau %s %s | %s %s |" % (run, m.group(1), m.group(2), m.group(3), m.group(4))))
return [l for _, l in sorted(lignes, key=lambda x: x[0])]
MERMAID_OUVRE = "```{mermaid}" if FORMAT == "qmd" else "```mermaid"
def rendre_mmd(lignes):
return "%s\n%s\n```" % (MERMAID_OUVRE, "\n".join(lignes))
def rendre_md(lignes):
out, dans_bloc, cloture = [], False, ""
i = 0
if lignes and lignes[0].strip() == "---": # front matter YAML : montre en bloc, pas interprete
j = next((k for k in range(1, len(lignes)) if lignes[k].strip() in ("---", "...")), None)
if j:
out.append("```yaml"); out.extend(lignes[1:j]); out.append("```")
i = j + 1
while i < len(lignes):
l = lignes[i]; i += 1
m = re.match(r"^(\s*)(`{3,}|~{3,})(.*)$", l)
if m and not dans_bloc:
dans_bloc, cloture = True, m.group(2)
info = m.group(3).strip()
if info.startswith("{mermaid}") or info.startswith("mermaid"):
l = m.group(1) + MERMAID_OUVRE
elif info.startswith("{"): # ```{r ...} : jamais execute
l = m.group(1) + m.group(2) + info.strip("{}").split(" ")[0].split(",")[0]
out.append(l); continue
if m and dans_bloc and m.group(2)[0] == cloture[0] and len(m.group(2)) >= len(cloture) and not m.group(3).strip():
dans_bloc = False; out.append(l); continue
if not dans_bloc:
h = re.match(r"^(#{1,6})\s", l)
if h:
l = "#" * min(6, len(h.group(1)) + 3) + l[len(h.group(1)):]
elif l.strip() in ("---", "..."): # pas de bloc YAML ni de regle au milieu du dossier
l = "* * *"
out.append(l)
if dans_bloc:
out.append(cloture)
return "\n".join(out)
def main():
dossiers = sys.argv[1:] or dossiers_par_defaut()
vus, sections, table = {}, [], []
total_in = total_out = 0
# Ordre : les resultats des tests (.txt .md .mmd : verdicts, couverture, rapports, grafcets)
# d'abord, les fichiers du banc (sources, scripts, configs...) ensuite, les .log en dernier
CATEGORIES = (("Verdict et couverture", ()), ("Resultats des tests", ("txt", "md", "mmd", "tsv", "csv")),
("Fichiers", None), ("Logs", ("log",))) # Fichiers : tout le reste
EN_TETE = ("verdict.txt", "couverture.txt") # tout en haut, dans cet ordre
tous = []
for d in dossiers:
if not os.path.isdir(d):
table.append("| (absent) %s | | | | |" % d)
continue
tous.extend(fichiers(d))
def rang(f):
if os.path.basename(f) in EN_TETE:
return 0
e = extension(os.path.basename(f))
for i, (_, exts) in enumerate(CATEGORIES):
if exts and e in exts:
return i
return 2 # Fichiers
categorie_courante = None
def cle(f):
r = rang(f)
return (r, EN_TETE.index(os.path.basename(f)) if r == 0 else 0, tous.index(f))
for f in sorted(tous, key=cle):
if rang(f) != categorie_courante:
categorie_courante = rang(f)
nom = CATEGORIES[categorie_courante][0] if categorie_courante < len(CATEGORIES) else "Autres"
sections.append("## %s\n" % nom)
if True:
try:
brut = open(f, "rb").read()
except OSError as e:
table.append("| %s | | | | illisible : %s |" % (f, e))
continue
texte = ANSI.sub("", TELNET.sub(b"", brut).decode("utf-8", "replace")).replace("\r", "")
texte = CONTROLE.sub("", texte)
lignes = texte.split("\n")
if lignes and lignes[-1] == "":
lignes.pop()
h = hashlib.sha1(texte.encode()).hexdigest()
total_in += len(brut)
if h in vus:
sections.append("### %s\n\nidentique à %s\n" % (f, vus[h]))
continue
vus[h] = f
ext = extension(os.path.basename(f))
if ext in ("md", "qmd", "mmd"):
# Rendu, pas cite : les .mmd deviennent des diagrammes Mermaid, les .md
# sont inclus tels quels (titres retrogrades sous le titre du fichier,
# blocs mermaid rendus, blocs {r}/{python} neutralises). Pas de compactage.
total_out += len(texte) + 1
sections.append("### %s\n\n%d octets, %d lignes\n\n%s\n"
% (f, len(brut), len(lignes), rendre_md(lignes) if ext == "md" else rendre_mmd(lignes)))
continue
compact, groupes = compacter(lignes)
total_out += sum(len(l) + 1 for l in compact)
note = "%d groupes compactés" % groupes if groupes else ""
# cloture plus longue que toute suite de ` du contenu : un ``` dans un
# .py ou un .md ne referme plus le bloc (pandoc lisait alors la suite
# comme du Markdown : « Could not fetch resource »)
plus_long = max((len(m) for m in re.findall(r"`+", "\n".join(compact))), default=0)
cloture = "`" * max(3, plus_long + 1)
sections.append("### %s\n\n%d octets, %d lignes → %d lignes%s\n\n%s%s\n%s\n%s\n"
% (f, len(brut), len(lignes), len(compact), (" (%s)" % note) if note else "",
cloture, langage(f), "\n".join(compact), cloture))
runs = sorted({os.path.basename(os.path.dirname(f)) for f in tous if os.path.basename(f) == "verdict.txt"})
with open(SORTIE, "w") as o:
o.write("---\n")
o.write("title: \"Banc GSM émulé — dossier de run\"\n")
o.write("subtitle: \"%s\"\n" % (", ".join(runs) if runs else ", ".join(dossiers)))
o.write("author: \"%s\"\n" % AUTEUR)
o.write("date: \"%s\"\n" % time.strftime("%Y-%m-%d %H:%M"))
o.write("lang: fr\n")
if FORMAT == "qmd":
o.write("engine: markdown\n")
o.write("code-annotations: false\n") # un "<100>" dans un commentaire n'est pas une annotation # pandoc seul : knitr voyait des ```{r} dans les rapports inclus et s'arretait
if FORMAT == "qmd":
o.write("format:\n html:\n toc: true\n toc-depth: 3\n toc-location: left\n"
" number-sections: true\n embed-resources: true\n theme: cosmo\n"
" code-overflow: wrap\n fontsize: 0.9em\n")
o.write(" pdf:\n toc: true\n toc-depth: 3\n number-sections: true\n"
" shift-heading-level-by: -1\n" # ## Synthese = section 1, pas 0.1
" papersize: a4\n geometry: margin=2cm\n fontsize: 10pt\n"
" monofont: DejaVu Sans Mono\n" # trace de boites, ✓ ✗ ⟨⟩ ⚠ absents de Latin Modern Mono
" include-in-header:\n text: |\n" + PDF_PREAMBULE)
o.write("---\n\n")
o.write("## Synthèse\n\n")
o.write("| run | élément | valeur |\n|---|---|---|\n")
lignes_syn = synthese(tous)
o.write("\n".join(lignes_syn) + "\n\n" if lignes_syn else "| (pas de verdict.txt) | | |\n\n")
o.write("| dossier de run | contenu | |\n|---|---|---|\n")
o.write("| Verdict et couverture | échelle des barreaux et tableau de couverture couche 1 | |\n")
o.write("| Résultats des tests | captures VTY, diagnostics, rapports pytest, grafcets (.txt .md .mmd) | |\n")
o.write("| Fichiers | sources, scripts, configs et docs du banc (tout fichier texte) | |\n")
o.write("| Logs | journaux (.log), en dernier | |\n\n")
o.write("::: {.callout-note collapse=\"true\"}\n## Méthode\n\n" if FORMAT == "qmd" else "### Méthode\n\n")
o.write("Dossiers : %s. Extensions : %s. Entrée %d Ko, sortie %d Ko.\n\n"
% (", ".join(dossiers), " ".join(EXT) if EXT else "tous les fichiers texte (hors .git, caches, "
"binaires, sauvegardes, LICENSE et sorties précédentes)", total_in // 1024, total_out // 1024))
o.write("Compactage sans perte : fichiers identiques cités une fois ; lignes consécutives identiques "
"« ×N » ; lignes ne différant que par des nombres : gabarit avec ⟨k⟩ puis la liste ordonnée "
"des valeurs (k-uplets), chaque ligne se reconstruit en remettant les valeurs dans l'ordre. "
"Seuls les codes couleur, la négociation telnet des captures VTY et les caractères de commande "
"sont retirés. Les .md sont inclus tels quels (titres rétrogradés) et les .mmd rendus en "
"diagrammes Mermaid, sans compactage.\n")
o.write(":::\n\n" if FORMAT == "qmd" else "\n")
for t in table: # ne reste que les dossiers absents / fichiers illisibles
o.write(t.strip("| ").split(" |")[0] + "\n")
o.write("\n")
o.write("\n".join(sections))
print("%s : %d fichiers (%d uniques), %d Ko -> %d Ko" % (SORTIE, len(tous), len(vus), total_in // 1024,
os.path.getsize(SORTIE) // 1024))
if __name__ == "__main__":
main()9.9 /opt/GSM/c54x_exe/src/cellule.c
38011 octets, 698 lignes → 700 lignes (2 groupes compactés)
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* cellule.c - cell synchronisation bursts for the DSP.
*
* FCCH = 148 zero bits (45.002 5.2.4). SCH = 3 tail + 39 + 64 extended training
* sequence (45.002 5.2.5) + 39 + 3 tail; the 78 coded bits come from
* gsm0503_sch_encode() of libosmocoding fed with sb_info (BSIC + T1'/T2/T3',
* 44.018 9.1.30). Dummy burst: the fixed pattern of 45.002 5.2.6. Burst
* assembly follows osmo-bts sched_lchan_fcch_sch.c and scheduler.c.
*/
#include <string.h>
#include <math.h>
#include "hw/arm/calypso/calypso_debug.h"
#include <stdlib.h>
#include <osmocom/core/bits.h>
#include <osmocom/coding/gsm0503_coding.h>
#include "calypso_gmsk.h"
#include "cellule.h"
static const uint8_t train_sb[64] = {
1,0,1,1,1,0,0,1,0,1,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,
0,0,1,0,1,1,0,1,0,1,0,0,0,1,0,1,0,1,1,1,0,1,1,0,0,0,0,1,1,0,1,1,
};
static const uint8_t factice[148] = {
0,0,0,
⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩,⟨6⟩,⟨7⟩,⟨8⟩,0,⟨9⟩,⟨10⟩,1,⟨11⟩,⟨12⟩,⟨13⟩,⟨14⟩,⟨15⟩,⟨16⟩,⟨17⟩,⟨18⟩,⟨19⟩,⟨20⟩,⟨21⟩,⟨22⟩,⟨23⟩,⟨24⟩,⟨25⟩,⟨26⟩,⟨27⟩,⟨28⟩,⟨29⟩,⟨30⟩, ×4
⟨⟩ = (1,1,1,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,0,1,0,0,1,0,0,1,1,1,0)
(0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0,0)
(0,1,0,1,1,1,0,0,1,0,1,1,0,0,0,1,0,1,0,1,1,1,0,1,0,0,1,0,1,0)
(0,0,1,1,0,0,1,1,0,1,1,0,0,1,1,1,1,0,1,0,0,1,1,1,1,1,0,0,0,1)
0,0,1,0,1,1,1,1,1,0,1,0,1,0,
0,0,0,
};
int cellule_sch_partout; /* diagnostic: emit SCH on every non-FCCH frame */
/* ---- BCCH / CCCH : normal bursts of the synthetic cell [2026-09-20] ----
*
* Downlink TN0 of a combined CCCH+SDCCH/4 cell (44.018 6.3.1.3, 45.002 clause
* 7 table 3): BCCH norm on p51 2..5, CCCH on 6..9, 12..15, 16..19, SDCCH/4
* elsewhere (left as dummy bursts). The BCCH block of 51-multiframe TC =
* (fn / 51) % 8 carries SI1 (TC 0, 4), SI2 (1, 5), SI3 (2, 6), SI4 (3, 7);
* the CCCH blocks carry an empty PAGING REQUEST TYPE 1. Coding is the one of
* osmo-bts sched_lchan_xcch.c: gsm0503_xcch_encode() (Fire CRC, r=1/2
* convolutional code, 4-burst diagonal interleaving) then 3 tail, 57 data,
* hl, 26-bit training sequence BCC of the BSIC (45.002 5.2.3 set 1), hu, 57
* data, 3 tail. The ROM demodulates with the TSC the ARM hands it in
* dsp_load_rx_task(ALLC_DSP_TASK, burst_id, tsc), decodes the four bursts and
* leaves 23 octets in a_cd[3..] with the Fire result in a_cd[0]; prim_rx_nb.c
* copies them into an L1CTL_DATA_IND and mobile's rr reads the SI.
*
* Identity: MCC 001 MNC 01 LAC 1 CI 6001, ARFCN 514, the bench network of
* /etc/osmocom (run_si.sh checks the decoded LAI against it). Override with
* CELLULE_MCC / CELLULE_MNC / CELLULE_LAC / CELLULE_CI / CELLULE_ARFCN. */
#include <arpa/inet.h>
#include <osmocom/gsm/gsm48.h>
#include <osmocom/gsm/gsm48_ie.h>
#include <osmocom/gsm/gsm23003.h>
#include <osmocom/gsm/protocol/gsm_04_08.h>
#include <osmocom/gsm/sysinfo.h>
static const uint8_t train_nb[8][26] = { /* 45.002 table 5.2.3a */
{ ⟨1⟩,⟨2⟩,⟨3⟩,⟨4⟩,⟨5⟩,⟨6⟩,⟨7⟩,⟨8⟩,⟨9⟩,⟨10⟩,⟨11⟩,⟨12⟩,⟨13⟩,⟨14⟩,⟨15⟩,0,⟨16⟩,⟨17⟩,⟨18⟩,⟨19⟩,⟨20⟩,⟨21⟩,⟨22⟩,⟨23⟩,⟨24⟩,⟨25⟩ }, ×8
⟨⟩ = (0,0,1,0,0,1,0,1,1,1,0,0,0,0,1,0,0,1,0,0,1,0,1,1,1)
(0,0,1,0,1,1,0,1,1,1,0,1,1,1,1,0,0,1,0,1,1,0,1,1,1)
(0,1,0,0,0,0,1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,1,1,1,0)
(0,1,0,0,0,1,1,1,1,0,1,1,0,1,0,0,1,0,0,0,1,1,1,1,0)
(0,0,0,1,1,0,1,0,1,1,1,0,0,1,0,0,0,0,1,1,0,1,0,1,1)
(0,1,0,0,1,1,1,0,1,0,1,1,0,0,0,0,1,0,0,1,1,1,0,1,0)
(1,0,1,0,0,1,1,1,1,1,0,1,1,0,0,1,0,1,0,0,1,1,1,1,1)
(1,1,1,0,1,1,1,1,0,0,0,1,0,0,1,1,1,1,0,1,1,1,1,0,0)
};
int cellule_marge_nb = -1; /* head margin of a normal burst; < 0: bare 148 samples */
int cellule_tsc_force = -1; /* training sequence of the normal bursts; < 0: BCC of the BSIC */
double cellule_dec_nb = -1;
double cellule_phase_nb = 0; /* carrier phase (deg) of the last normal burst (probe) */ /* sampling instant used for the last normal burst (probe) */
int cellule_fenetre_nb = 0; /* one-shot NB window length in samples (0: 148 + 2 x margin) */
int cellule_sans_bcch; /* 1: dummy bursts on BCCH/CCCH, the old cell */
static int env_int(const char *nom, int defaut)
{
const char *e = calypso_getenv(nom);
return (e && *e) ? (int)strtol(e, NULL, 0) : defaut;
}
/* The 23 octets of the L2 frame carried by BCCH block TC (0..7), or by a CCCH
* block (tc < 0). Buffers are static, the caller copies. */
static const uint8_t *cellule_l2(int tc)
{
static uint8_t si1[23], si2[23], si3[23], si4[23], pag[23];
static int pret;
if (!pret) {
pret = 1;
struct osmo_location_area_id lai = {
.plmn = { .mcc = (uint16_t)env_int("CELLULE_MCC", 1),
.mnc = (uint16_t)env_int("CELLULE_MNC", 1), .mnc_3_digits = false },
.lac = (uint16_t)env_int("CELLULE_LAC", 1) };
uint16_t ci = (uint16_t)env_int("CELLULE_CI", 6001);
int arfcn = env_int("CELLULE_ARFCN", 514) & 0x3ff;
struct gsm48_rach_control rach = { .re = 1, .cell_bar = 0, .tx_integer = 9, .max_trans = 3,
.t2 = 0x00, .t3 = 0x00 };
struct gsm48_cell_sel_par csp = { .ms_txpwr_max_ccch = 0, .cell_resel_hyst = 2,
.rxlev_acc_min = 0, .neci = 1, .acs = 0 };
memset(si1, GSM_MACBLOCK_PADDING, 23); memset(si2, GSM_MACBLOCK_PADDING, 23);
memset(si3, GSM_MACBLOCK_PADDING, 23); memset(si4, GSM_MACBLOCK_PADDING, 23);
memset(pag, GSM_MACBLOCK_PADDING, 23);
/* SI1: cell channel description in variable bitmap format (44.018
* 10.5.2.13.7, the layout gsm48_decode_freq_list() reads): ORIG-ARFCN
* = our carrier, no further bit set. Rest octet 0x2b: L, no NCH; L,
* band indicator 1800. */
struct gsm48_system_information_type_1 *s1 = (void *)si1;
s1->header.l2_plen = (uint8_t)((21 << 2) | 1);
s1->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s1->header.skip_indicator = 0;
s1->header.system_information = GSM48_MT_RR_SYSINFO_1;
memset(s1->cell_channel_description, 0, 16);
s1->cell_channel_description[0] = (uint8_t)(0x8e | ((arfcn >> 9) & 1));
s1->cell_channel_description[1] = (uint8_t)((arfcn >> 1) & 0xff);
s1->cell_channel_description[2] = (uint8_t)((arfcn & 1) << 7);
s1->rach_control = rach;
{ /* self-check: decode what we encoded */
static struct gsm_sysinfo_freq f[1024];
memset(f, 0, sizeof f);
gsm48_decode_freq_list(f, s1->cell_channel_description, 16, 0xce, 1);
int n = 0, ok = 0;
for (int i = 0; i < 1024; i++) if (f[i].mask) { n++; if (i == arfcn) ok = 1; }
if (!ok || n != 1)
printf("cellule : SI1 cell channel description FAUSSE (%d ARFCN decodes, %d attendu %s)\n",
n, arfcn, ok ? "present" : "ABSENT");
}
/* SI2: no neighbour (bitmap 0 all clear), all NCC permitted */
struct gsm48_system_information_type_2 *s2 = (void *)si2;
s2->header.l2_plen = (uint8_t)((22 << 2) | 1);
s2->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s2->header.skip_indicator = 0;
s2->header.system_information = GSM48_MT_RR_SYSINFO_2;
memset(s2->bcch_frequency_list, 0, 16);
s2->ncc_permitted = 0xff;
s2->rach_control = rach;
/* SI3: identity, combined CCCH, IMSI attach, no periodic LU. Rest
* octets 0x2b: every optional element absent (all L). */
struct gsm48_system_information_type_3 *s3 = (void *)si3;
s3->header.l2_plen = (uint8_t)((18 << 2) | 1);
s3->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s3->header.skip_indicator = 0;
s3->header.system_information = GSM48_MT_RR_SYSINFO_3;
s3->cell_identity = htons(ci);
gsm48_generate_lai2(&s3->lai, &lai);
s3->control_channel_desc.ccch_conf = 1; /* 1 CCCH combined with SDCCH/4 */
s3->control_channel_desc.bs_ag_blks_res = 1;
s3->control_channel_desc.att = 1;
s3->control_channel_desc.bs_pa_mfrms = 0; /* 2 multiframes */
s3->control_channel_desc.t3212 = 0;
s3->cell_options.radio_link_timeout = 7; /* 32 */
s3->cell_options.dtx = 2;
s3->cell_options.pwrc = 0;
s3->cell_sel_par = csp;
s3->rach_control = rach;
/* SI4: identity again, no CBCH; rest octets all L */
struct gsm48_system_information_type_4 *s4 = (void *)si4;
s4->header.l2_plen = (uint8_t)((12 << 2) | 1);
s4->header.rr_protocol_discriminator = GSM48_PDISC_RR;
s4->header.skip_indicator = 0;
s4->header.system_information = GSM48_MT_RR_SYSINFO_4;
gsm48_generate_lai2(&s4->lai, &lai);
s4->cell_sel_par = csp;
s4->rach_control = rach;
/* CCCH: PAGING REQUEST TYPE 1, page mode normal, no identity (the
* fill osmo-bts sends on an idle paging block) */
static const uint8_t vide[] = { 0x15, 0x06, 0x21, 0x00, 0x01, 0xf0 };
memcpy(pag, vide, sizeof vide);
printf("cellule : BCCH SI1-4 MCC=%03u MNC=%02u LAC=%u CI=%u ARFCN=%d, CCCH = paging vide\n",
lai.plmn.mcc, lai.plmn.mnc, lai.lac, ci, arfcn);
}
if (tc < 0) return pag;
switch (tc & 3) { case 0: return si1; case 1: return si2; case 2: return si3; default: return si4; }
}
/* Normal burst bid (0..3) of the block starting at fn0, or -1 if no block
* starts there. The four bursts of one block are cached. */
static int cellule_nb(uint32_t fn0, int bid, uint8_t bsic, uint8_t bits[148])
{
static uint32_t fn_cache = 0xffffffffu;
static ubit_t bursts[4 * 116];
if (fn0 != fn_cache) {
uint32_t p51 = fn0 % 51;
const uint8_t *l2;
if (p51 == 2) l2 = cellule_l2((int)((fn0 / 51) % 8));
else if (p51 == 6 || p51 == 12 || p51 == 16) l2 = cellule_l2(-1);
else return -1;
gsm0503_xcch_encode(bursts, l2);
fn_cache = fn0;
}
/* CELLULE_NB_REPEAT=<k>: burst k of the block in all four positions, to
* hand the ROM's decoder four bursts it is known to demodulate. */
{ static int rep = -2; if (rep == -2) rep = env_int("CELLULE_NB_REPEAT", -1); if (rep >= 0 && rep < 4) bid = rep; }
const ubit_t *b = bursts + bid * 116;
memset(bits, 0, 3);
memcpy(bits + 3, b, 58); /* 57 data + hl */
memcpy(bits + 61, train_nb[cellule_tsc_force >= 0 ? cellule_tsc_force & 7 : bsic & 7], 26);
memcpy(bits + 87, b + 58, 58); /* hu + 57 data */
memset(bits + 145, 0, 3);
return 0;
}
/* sb_info of 44.018 9.1.30 for frame fn, byte layout of osmo-bts
* sched_lchan_fcch_sch.c. T3' = (T3 - 1) / 10: the SCH sits on T3 in
* {1,11,21,31,41}, so T3' in 0..4. Previously computed as T3 / 10 here and as
* (T3 - 1) / 10 in pont.c: identical on real SCH frames, different at T3 = 50
* under cellule_sch_partout. One encoder now, shared by cellule_burst() and
* cellule_code_attendu(). */
static void sb_info_de_fn(uint32_t fn, uint8_t bsic, uint8_t sb_info[4])
{
uint32_t t1 = fn / 1326, t2 = fn % 26, t3 = fn % 51;
uint32_t t3p = t3 ? (t3 - 1) / 10 : 0;
sb_info[0] = (uint8_t)(((bsic & 0x3f) << 2) | ((t1 & 0x600) >> 9));
sb_info[1] = (uint8_t)((t1 & 0x1fe) >> 1);
sb_info[2] = (uint8_t)(((t1 & 0x001) << 7) | ((t2 & 0x1f) << 2) | ((t3p & 0x6) >> 1));
sb_info[3] = (uint8_t)(t3p & 0x1);
}
/* Caller sets the head margin; the tail margin is trimmed to keep 190 complex
* samples in total. Sliding the burst inside that fixed-size buffer separates an
* influence window that is an ABSOLUTE buffer index (late bits lose influence,
* early ones gain it) from one RELATIVE to the burst start (the profile moves
* with the burst and keeps its shape). */
int cellule_marge_fin = -1;
char cellule_burst(uint32_t fn, uint8_t bsic, int amp, double decalage, int marge, int16_t *iq, int *n_iq)
{
uint8_t bits[148];
uint32_t p51 = fn % 51;
char type;
if (p51 % 10 == 0 && p51 <= 40) {
memset(bits, 0, sizeof(bits));
type = 'F';
} else if ((p51 % 10 == 1 && p51 <= 41) || cellule_sch_partout) {
uint8_t sb_info[4];
sb_info_de_fn(fn, bsic, sb_info);
ubit_t code[78];
gsm0503_sch_encode(code, sb_info);
/* Demodulator impulse response: flip exactly ONE of the 78 coded bits and
* watch which soft-bit positions at 0x2c72 move.
* 1 position -> pure permutation, 78 runs give the whole table
* 3 or 4 around one -> normal ISI, the chain is sound there
* all of them -> global, wrong traceback (on C54x: CMPS/TRN) */
{
/* The flip must stay inside ONE frame: otherwise it perturbs the whole
* run history (scheduling, AFC) and the differential measurement then
* compares two histories instead of two bursts.
* REJEU_INVERSER_FN=<f> restricts the flip to frame f. */
static int inv = -2; static long invfn = -2;
if (inv == -2) { const char *e = calypso_getenv("REJEU_INVERSER_BIT"); inv = e ? atoi(e) : -1; }
if (invfn == -2) { const char *e = calypso_getenv("REJEU_INVERSER_FN"); invfn = e ? atol(e) : -1; }
if (inv >= 0 && inv < 78 && (invfn < 0 || (long)fn == invfn)) code[inv] ^= 1;
}
memset(bits, 0, 3);
memcpy(bits + 3, code, 39);
memcpy(bits + 42, train_sb, 64);
memcpy(bits + 106, code + 39, 39);
memset(bits + 145, 0, 3);
/* Midamble probe: the 78 coded bits cannot reach the training sequence, yet
* that sequence is what channel estimation is supposed to use. If flipping
* one midamble bit leaves the soft bits untouched, the demodulator ignores
* the known sequence and equalises against an estimate built elsewhere. */
{
/* Same one-frame confinement as the coded-bit flip; without it every SCH
* burst of the run is hit. REJEU_INVERSER_FN is shared with
* REJEU_INVERSER_BIT, so only one thing is probed at a time. */
static int im = -2; static long imfn = -2;
if (im == -2) { const char *e = calypso_getenv("REJEU_INVERSER_MIDAMBULE");
im = e ? atoi(e) : -1; }
if (imfn == -2) { const char *e = calypso_getenv("REJEU_INVERSER_FN");
imfn = e ? atol(e) : -1; }
if (im >= 0 && im < 64 && (imfn < 0 || (long)fn == imfn)) bits[42 + im] ^= 1;
}
type = 'S';
} else if (!cellule_sans_bcch && p51 >= 2 && p51 <= 49 && p51 % 10 >= 2 &&
cellule_nb(fn - ((p51 % 10 - 2) & 3), (int)((p51 % 10 - 2) & 3), bsic, bits) == 0) {
type = (p51 <= 5) ? 'B' : 'C';
} else {
memcpy(bits, factice, 148);
type = '.';
}
/* CELLULE_NB_FINE=1 : burst position swept from 2.3 to 4.7 samples in 0.1
* steps by multiframe (head margin + sampling instant together) */
if (type == 'B' || type == 'C') {
static int fine = -2; if (fine == -2) fine = env_int("CELLULE_NB_FINE", 0);
if (fine && cellule_marge_nb >= 0) {
double total = 2.3 + 0.1 * (double)((fn / 51u) % 25u);
cellule_marge_nb = (int)total; decalage = total - (double)cellule_marge_nb;
cellule_dec_nb = decalage;
}
}
int m_tete = -1, m_fin = 0;
if (type == 'S' && marge > 0) {
m_tete = marge;
m_fin = (cellule_marge_fin >= 0) ? cellule_marge_fin : marge;
} else if ((type == 'B' || type == 'C') && cellule_marge_nb >= 0) {
/* the ROM takes 151 samples for an NB window (ALGTH 604): 3 + 148 */
/* exactly the window: a frame longer than the DMA window leaves
* samples in the RIF and the next burst starts on them */
m_tete = cellule_marge_nb;
m_fin = cellule_fenetre_nb > m_tete + 148 ? cellule_fenetre_nb - m_tete - 148 : 0;
}
/* CELLULE_NB_AMP=<n>: amplitude of the normal bursts alone (FCCH/SCH keep
* amp), to probe the ROM's fixed-point headroom on the NB path. */
if (type == 'B' || type == 'C') { static int nb_amp = -2; if (nb_amp == -2) nb_amp = env_int("CELLULE_NB_AMP", -1); if (nb_amp > 0) amp = nb_amp; }
/* CELLULE_NB_DEC=<x>|auto : sampling instant of the normal bursts alone
* (FCCH/SCH keep decalage); auto sweeps 0, 0.25, 0.5, 0.75 by multiframe */
if (type == 'B' || type == 'C') {
static int mode = -2; static double d = 0;
if (mode == -2) { const char *e = calypso_getenv("CELLULE_NB_DEC"); mode = 0;
if (e && !strcmp(e, "auto")) mode = 2; else if (e && *e) { mode = 1; d = atof(e); } }
if (mode == 1) decalage = d; else if (mode == 2) decalage = 0.25 * (double)((fn / 51u) % 4u);
cellule_dec_nb = decalage;
}
/* CELLULE_NB_SHIFT=<n> (experiment): transmit the normal burst with its
* bits shifted n positions earlier (bit i+n at position i, zeros at the
* end). Why: the ROM reads the training sequence of its equaliser output
* at index 58 of the decision buffer (bit 61 with 3 tail bits skipped),
* but the emulated equaliser puts bit i at index i-2, so the 26 TSC
* decisions agree with TSC2 at 12/26 as read and 26/26 shifted by one:
* the residual estimate then sees no signal, the soft-bit scale collapses
* to 2 and every quantised soft bit is +1. Shifting the bits by one is the
* test of that reading; it is not a fix. */
if (type == 'B' || type == 'C') {
static int nsh = -2; if (nsh == -2) nsh = env_int("CELLULE_NB_SHIFT", 0);
if (nsh > 0) { for (int i = 0; i < 148; i++) bits[i] = (i + nsh < 148) ? bits[i + nsh] : 0; }
else if (nsh < 0) { for (int i = 147; i >= 0; i--) bits[i] = (i + nsh >= 0) ? bits[i + nsh] : 0; }
}
/* CELLULE_NB_PHASE=<deg>|auto : carrier phase of the normal bursts (auto:
* 0, 22.5, 45, 67.5 degrees by multiframe). Samples exactly on the I/Q
* axes (decalage 0, phase 0) or exactly on the diagonals (decalage 0.5)
* are what a synthetic GMSK gives and what no radio ever gives. */
double phase0 = 0.0;
if (type == 'B' || type == 'C') {
static int pm = -2; static double pd = 0;
if (pm == -2) { const char *e = calypso_getenv("CELLULE_NB_PHASE"); pm = 0;
if (e && !strcmp(e, "auto")) pm = 2; else if (e && *e) { pm = 1; pd = atof(e); } }
if (pm == 1) phase0 = pd * M_PI / 180.0; else if (pm == 2) phase0 = 22.5 * (double)((fn / 51u) % 4u) * M_PI / 180.0;
/* CELLULE_NB_PHASE=quad : 0, 90, 180, 270 degrees by multiframe */
{ static int q = -1; if (q < 0) { const char *e = calypso_getenv("CELLULE_NB_PHASE"); q = (e && !strcmp(e, "quad")) ? 1 : 0; }
if (q) phase0 = 90.0 * (double)((fn / 51u) % 4u) * M_PI / 180.0; }
cellule_phase_nb = phase0 * 180.0 / M_PI;
}
/* CELLULE_NB_MSK=1 (experiment): pure MSK for the normal bursts, no
* Gaussian filter: the phase advances linearly by +-90 degrees per bit,
* so a sample taken at decalage 0.5 sits EXACTLY on a diagonal, with
* |I| = |Q|. Tests whether the ROM's NB demodulator hard-decides on the
* signs of I and Q (measured: only decalage 0.5 ever works, 0.4 and 0.6
* fail on every burst, an equaliser would degrade smoothly). */
static int nb_msk = -2; if (nb_msk == -2) nb_msk = env_int("CELLULE_NB_MSK", 0);
if (nb_msk && (type == 'B' || type == 'C')) {
int16_t *o = iq + 2 * (m_tete >= 0 ? m_tete : 0);
double ph = phase0; int prev = 1;
for (int k = 0; k < 148; k++) {
int d = (bits[k] & 1) ^ prev; prev = bits[k] & 1;
double al = 1.0 - 2.0 * d;
double pk = ph + al * (M_PI / 2.0) * decalage; /* phase at the sampling instant */
o[2*k] = (int16_t)lrint(amp * cos(pk)); o[2*k+1] = (int16_t)lrint(amp * sin(pk));
ph += al * (M_PI / 2.0);
}
if (m_tete >= 0) {
memset(iq, 0, (size_t)m_tete * 2 * sizeof(int16_t));
memset(iq + 2 * (m_tete + 148), 0, (size_t)m_fin * 2 * sizeof(int16_t));
*n_iq = 2 * (148 + m_tete + m_fin);
} else *n_iq = 2 * 148;
return type;
}
/* [2026-09-30] CELLULE_SB_AMP=<n> : amplitude du seul SCH (FCCH et NB gardent
* amp). Le SNR de la ROM sur le SCH sature a 16384 ; le seul cas de banc a
* SNR non sature (6974) avait decode. A mesurer. */
if (type == 'S') { static int sba = -2; if (sba == -2) sba = env_int("CELLULE_SB_AMP", -1); if (sba > 0) amp = sba; }
/* CELLULE_SB_PHASE=<deg> : carrier phase of the SCH burst */
if (type == 'S') { static int sp = -2; if (sp == -2) sp = env_int("CELLULE_SB_PHASE", 0); phase0 = sp * M_PI / 180.0; }
int16_t *burst_iq = iq;
int fen_n = 148; /* echantillons sur lesquels portent elargissement et bruit du SCH */
/* [2026-09-30] CELLULE_SB_GARDE=<mode> : LA GARDE N'EST PAS DU SILENCE. En
* descendant GSM la BTS emet en continu : le SCH est precede du signal de TS7
* et suivi de TS1, pas de 21 echantillons nuls. Mesure en rejeu (SYM 1.0, DEC
* 0.35, bruit 3000) : les 20 % de SCH que la ROM rate le sont a burst bien
* place (TOA 23, SNR sature), et les bits faux se concentrent sur les
* PREMIERS bits d'information (bits 5-15 du mot, 65-84 %), c'est-a-dire le
* debut du burst : l'egaliseur demarre sur un front silence -> signal qu'il
* ne voit jamais sur silicium. Ici la fenetre entiere (marge, burst, marge)
* est modulee d'un seul trait, les marges portant des bits de garde :
* 1 = zeros, 2 = pseudo-aleatoires (graine = fn), 3 = uns. 0 = comme avant. */
if (m_tete >= 0) {
static int garde = -2; if (garde == -2) garde = env_int("CELLULE_SB_GARDE", 0);
int tot = m_tete + 148 + m_fin;
if (type == 'S' && garde > 0 && tot <= 512) {
uint8_t ext[512]; uint32_t seed = fn * 2654435761u + 99u;
for (int k = 0; k < tot; k++) {
int i = k - m_tete;
if (i >= 0 && i < 148) ext[k] = bits[i];
else if (garde == 1) ext[k] = 0;
else if (garde == 3) ext[k] = 1;
else { seed = seed * 1103515245u + 12345u; ext[k] = (uint8_t)((seed >> 16) & 1); }
}
{ static double fc = -2; if (fc == -2) { const char *e = calypso_getenv("CELLULE_SB_FC"); fc = (e && *e) ? atof(e) : 0; }
if (fc > 0) gmsk_moduler_filtre(ext, tot, amp, phase0, decalage, fc, iq);
else gmsk_moduler(ext, tot, amp, phase0, decalage, iq); }
*n_iq = 2 * tot;
burst_iq = iq; /* elargissement et bruit sur toute la fenetre */
fen_n = tot;
} else {
memset(iq, 0, (size_t)m_tete * 2 * sizeof(int16_t));
{ static double fc = -2; if (fc == -2) { const char *e = calypso_getenv("CELLULE_SB_FC"); fc = (e && *e) ? atof(e) : 0; }
/* [2026-09-30] CELLULE_SB_FC=<kHz> : chaine de reception modelisee (voir gmsk_moduler_filtre) */
if (type == 'S' && fc > 0) gmsk_moduler_filtre(bits, 148, amp, phase0, decalage, fc, iq + 2 * m_tete);
else gmsk_moduler(bits, 148, amp, phase0, decalage, iq + 2 * m_tete); }
memset(iq + 2 * (m_tete + 148), 0, (size_t)m_fin * 2 * sizeof(int16_t));
*n_iq = 2 * (148 + m_tete + m_fin);
burst_iq = iq + 2 * m_tete;
}
} else {
gmsk_moduler(bits, 148, amp, phase0, decalage, iq);
*n_iq = 2 * 148;
}
/* [2026-09-21] CELLULE_NB_ISI=<h1>[,<h2>[,<h3>]] : causal tail on the normal
* bursts, y[n] = x[n] + h1 x[n-1] + h2 x[n-2] + h3 x[n-3]. Why: the ROM
* correlates the 16 central TSC bits over 10 lags, then picks the 7-lag
* window of maximum energy (0x8551, sliding sum) and cuts its 5-tap
* channel estimate from it. Our GMSK at 1 sample/symbol has energy on 3
* lags only (main + the +-1 ISI), so three of the four windows tie to 0.1 %
* and the choice is decided by e[lag 8] against e[lag 1] = the GMSK +-2
* tap (912) against the data leakage: measured over 9 bursts, the window
* was right (s=2) exactly when e[8] > e[1]. A receiver's analogue filter
* spreads energy over the following lags and settles it; this tail does
* the same for the synthetic cell. */
if (type == 'B' || type == 'C') {
static int isi_n = -2; static double h[4];
if (isi_n == -2) { isi_n = 0; const char *e = calypso_getenv("CELLULE_NB_ISI");
if (e && *e) { char tmp[64]; strncpy(tmp, e, sizeof tmp - 1); tmp[sizeof tmp - 1] = 0;
for (char *t = strtok(tmp, ","); t && isi_n < 3; t = strtok(NULL, ",")) h[++isi_n] = atof(t); } }
if (isi_n > 0) {
double xi[148], xq[148];
for (int k = 0; k < 148; k++) { xi[k] = burst_iq[2*k]; xq[k] = burst_iq[2*k+1]; }
for (int k = 0; k < 148; k++) {
double yi = xi[k], yq = xq[k];
for (int d = 1; d <= isi_n; d++) if (k - d >= 0) { yi += h[d] * xi[k-d]; yq += h[d] * xq[k-d]; }
if (yi > 32767) yi = 32767;
if (yi < -32768) yi = -32768;
if (yq > 32767) yq = 32767;
if (yq < -32768) yq = -32768;
burst_iq[2*k] = (int16_t)lrint(yi); burst_iq[2*k+1] = (int16_t)lrint(yq);
}
}
}
/* [2026-09-21] CELLULE_NB_SYM=<a> : symmetric spread y[n] = x[n] + a (x[n-1]
* + x[n+1]) on the normal bursts, timing unchanged. Why: the ROM zeroes
* every channel tap whose energy is below 1/16 of the window energy
* (0x7f0c-0x7f1c, threshold = total >> 4, i.e. 25 % in amplitude). The
* +-1 taps of our GMSK at 1 sample/symbol are 25 % (6467..7189 against a
* main tap of 27000): measured, the pre-cursor tap was kept (e = 4.70e7 >
* 4.50e7) on the bursts that decoded and zeroed (4.18e7 < 4.25e7) on the
* ones that did not, and a 5-tap model without its 25 % pre-cursor gives
* 45 % errors. A receiver's channel filter widens the pulse; a = 0.3 puts
* the +-1 taps near 55 % and the +-2 taps near 10 %, both far from the
* threshold, whatever the data. */
if (type == 'B' || type == 'C') {
/* default 0.3 since 2026-09-21 (the value that decodes SI1-4); 0 disables */
static double a = -2; if (a == -2) { const char *e = calypso_getenv("CELLULE_NB_SYM"); a = (e && *e) ? atof(e) : 0.3; }
gmsk_elargir(burst_iq, 148, a);
}
/* [2026-09-29] CELLULE_SB_SYM=<a> : le meme elargissement sur le SCH. Mesure
* du banc (run de 23:50, 129 fenetres SB natives, TOA 23-24) : la ROM rend
* CRC OK sur la moitie des SCH et, sur la plupart des echecs, seuls les
* bits 0-2 du mot SB sont faux (...1b/1f/1d au lieu de ...1c) : les memes
* positions du burst basculent selon le contenu, le profil « fil du
* rasoir » des NB avant CELLULE_NB_SYM. 0 par defaut tant que le rejeu ne
* l'a pas mesure. */
if (type == 'S') {
static double a = -2; if (a == -2) { const char *e = calypso_getenv("CELLULE_SB_SYM"); a = (e && *e) ? atof(e) : 0.0; }
if (a != 0.0) gmsk_elargir(burst_iq, fen_n, a);
}
/* [2026-09-30] CELLULE_SB_ISI=<h1>[,<h2>[,<h3>]] : la traine CAUSALE de
* CELLULE_NB_ISI, sur le SCH. Mesure : les 20 % de SCH rates le sont sur
* la moitie AVANT la sequence d'apprentissage, et l'ensemble des rates est
* fixe par le contenu (31/33 communs entre deux instants d'echantillonnage).
* C'est le mecanisme decrit pour les NB : la ROM choisit la fenetre de son
* estimation de canal au maximum d'energie sur des lags, notre GMSK a
* 1 ech/symbole met les fenetres a egalite et les donnees voisines
* tranchent. Une traine causale (comme le filtre analogique d'un vrai
* recepteur) leve l'egalite. Normalisee par 1+sum(h) pour rester en 16 bits. */
if (type == 'S') {
static int isi_n = -2; static double h[4];
if (isi_n == -2) { isi_n = 0; const char *e = calypso_getenv("CELLULE_SB_ISI");
if (e && *e) { char tmp[64]; strncpy(tmp, e, sizeof tmp - 1); tmp[sizeof tmp - 1] = 0;
for (char *t = strtok(tmp, ","); t && isi_n < 3; t = strtok(NULL, ",")) h[++isi_n] = atof(t); } }
if (isi_n > 0) {
double norm = 1.0; for (int d = 1; d <= isi_n; d++) norm += fabs(h[d]);
double xi[512], xq[512];
for (int k = 0; k < fen_n; k++) { xi[k] = burst_iq[2*k]; xq[k] = burst_iq[2*k+1]; }
for (int k = 0; k < fen_n; k++) {
double yi = xi[k], yq = xq[k];
for (int d = 1; d <= isi_n; d++) if (k - d >= 0) { yi += h[d] * xi[k-d]; yq += h[d] * xq[k-d]; }
burst_iq[2*k] = (int16_t)lrint(yi / norm); burst_iq[2*k+1] = (int16_t)lrint(yq / norm);
}
}
}
/* [2026-09-30] CELLULE_SB_NOISE=<sigma> : le meme bruit gaussien sur le SCH
* (voir CELLULE_NB_NOISE ci-dessous : sans bruit, l'echelle des bits
* souples de la ROM s'effondre). 0 = inchange. */
if (type == 'S') {
static double sigma = -2; if (sigma == -2) { const char *e = calypso_getenv("CELLULE_SB_NOISE"); sigma = (e && *e) ? atof(e) : 0.0; }
if (sigma > 0) {
static uint32_t graine = 0xffffffffu; /* CELLULE_SB_NOISE_SEED : autre realisation du bruit */
if (graine == 0xffffffffu) graine = (uint32_t)env_int("CELLULE_SB_NOISE_SEED", 0);
uint32_t seed = fn * 2654435761u + 777u + graine * 7919u;
for (int k = 0; k < 2 * fen_n; k++) {
seed = seed * 1103515245u + 12345u; double u1 = ((seed >> 8) & 0xffff) / 65536.0 + 1e-6;
seed = seed * 1103515245u + 12345u; double u2 = ((seed >> 8) & 0xffff) / 65536.0;
double g = sqrt(-2.0 * log(u1)) * cos(2.0 * M_PI * u2);
double v = burst_iq[k] + sigma * g;
if (v > 32767) v = 32767;
if (v < -32768) v = -32768;
burst_iq[k] = (int16_t)lrint(v);
}
}
}
/* [2026-09-21] CELLULE_NB_NOISE=<sigma> : Gaussian noise on the normal
* bursts (deterministic seed per frame). Why: the ROM scales its soft bits
* by a noise estimate before the 4-bit quantiser (0x8168 -> 0x82d0, a
* 129-entry table indexed by soft >> 8); with a noiseless burst the scaled
* values are 2..5 instead of thousands, every index is 0 and all 116
* quantised soft bits come out +1 (measured in the storage at 0x4200 +
* 29 x burst): the sign is lost before the deinterleaver. A radio always
* carries noise; the cell now does too. */
if (type == 'B' || type == 'C') {
static double sigma = -2; if (sigma == -2) { const char *e = calypso_getenv("CELLULE_NB_NOISE"); sigma = (e && *e) ? atof(e) : 0.0; }
if (sigma > 0) {
uint32_t seed = fn * 2654435761u + 12345u;
for (int k = 0; k < 296; k++) {
/* Box-Muller on a small LCG */
seed = seed * 1103515245u + 12345u; double u1 = ((seed >> 8) & 0xffff) / 65536.0 + 1e-6;
seed = seed * 1103515245u + 12345u; double u2 = ((seed >> 8) & 0xffff) / 65536.0;
double g = sqrt(-2.0 * log(u1)) * cos(2.0 * M_PI * u2);
double v = burst_iq[k] + sigma * g;
if (v > 32767) v = 32767;
if (v < -32768) v = -32768;
burst_iq[k] = (int16_t)lrint(v);
}
}
}
/* [2026-09-21] CELLULE_NB_ZERO_DC=1 (experiment): remove the mean of the
* 148 samples of a normal burst. Measured: the ROM demodulates a normal
* burst perfectly when the data-induced mean of its samples is below ~7 %
* of the amplitude and loses it entirely above ~10 % (16 bursts of SI1-4,
* no exception), the SCH being immune. */
if (type == 'B' || type == 'C') {
static int zdc = -2; if (zdc == -2) zdc = env_int("CELLULE_NB_ZERO_DC", 0);
if (zdc) {
long si = 0, sq = 0;
for (int k = 0; k < 148; k++) { si += burst_iq[2*k]; sq += burst_iq[2*k+1]; }
int mi = (int)(si / 148), mq = (int)(sq / 148);
for (int k = 0; k < 148; k++) { burst_iq[2*k] = (int16_t)(burst_iq[2*k] - mi); burst_iq[2*k+1] = (int16_t)(burst_iq[2*k+1] - mq); }
}
}
return type;
}
/* Expected 78 coded bits for a frame, to compare sign by sign with the soft bits
* the DSP produces. */
void cellule_code_attendu(uint32_t fn, uint8_t bsic, unsigned char *code78)
{
uint8_t sb_info[4];
sb_info_de_fn(fn, bsic, sb_info);
ubit_t code[78];
gsm0503_sch_encode(code, sb_info);
for (int i = 0; i < 78; i++) code78[i] = (unsigned char)code[i];
}
/* Reference demodulator, in C, to prove the samples handed to the DSP do carry the
* message. GMSK at 1 sample/symbol: the phase advances by (pi/2)*alpha_n per symbol,
* so alpha_n = sign(arg(x[n] * conj(x[n-1]))). Recover the alpha sequence, correlate
* it with the midamble to find the offset, then read the data bits from there. */
#include <math.h>
int cellule_demod_reference(const int16_t *x, int n_ech, unsigned char *bits148, int *offset)
{
static double alpha[512];
if (n_ech > 512) n_ech = 512;
for (int n = 1; n < n_ech; n++) {
double i0 = x[2*(n-1)], q0 = x[2*(n-1)+1];
double i1 = x[2*n], q1 = x[2*n+1];
/* x[n] * conj(x[n-1]) */
double re = i1*i0 + q1*q0, im = q1*i0 - i1*q0;
alpha[n] = atan2(im, re);
}
alpha[0] = 0;
/* reference alpha of the midamble: d_j = t_j XOR t_{j-1}, burst positions 43..105 */
double ref[63];
for (int j = 1; j < 64; j++) ref[j-1] = (train_sb[j] ^ train_sb[j-1]) ? -1.0 : 1.0;
int best = -1; double bestv = -1e30;
for (int k = 0; k + 63 < n_ech; k++) {
double acc = 0;
for (int j = 0; j < 63; j++) acc += ref[j] * alpha[k + j];
if (acc > bestv) { bestv = acc; best = k; }
}
if (best < 0) return -1;
/* the midamble starts 43 symbols into the burst */
int b0 = best - 43;
*offset = b0;
if (b0 < 0 || b0 + 148 > n_ech) return -1;
int prev = 1;
for (int i = 0; i < 148; i++) {
int d = (alpha[b0 + i] < 0) ? 1 : 0; /* alpha = 1-2d */
bits148[i] = (unsigned char)(d ^ prev);
prev = bits148[i];
}
return 0;
}
/* Raw DIFFERENTIAL bits d_i, with no differential decoding: an isolated error does
* not propagate here, unlike in b_i = d_i XOR b_{i-1}. This is the honest measure of
* demodulator quality. */
int cellule_demod_d(const int16_t *x, int n_ech, int b0, unsigned char *d148)
{
if (b0 < 1 || b0 + 148 > n_ech) return -1;
for (int i = 0; i < 148; i++) {
int n = b0 + i;
double i0 = x[2*(n-1)], q0 = x[2*(n-1)+1];
double i1 = x[2*n], q1 = x[2*n+1];
double im = q1*i0 - i1*q0, re = i1*i0 + q1*q0;
d148[i] = (unsigned char)(atan2(im, re) < 0 ? 1 : 0);
}
return 0;
}
int cellule_train_sb(int i) { return (i >= 0 && i < 64) ? train_sb[i] : -1; }
/* The dummy burst (45.002 5.2.6) as 148 GMSK samples: what the BCCH carrier
* transmits on every timeslot that carries nothing else. The FB search of the
* ROM receives the whole frame, so the seven other timeslots must look like a
* real C0 carrier, not like silence. */
void cellule_factice(int amp, double decalage, int16_t *iq)
{
gmsk_moduler(factice, 148, amp, 0.0, decalage, iq);
}
/* The 148 bits of the TN0 burst of frame fn as cellule_burst() sends them, for
* probes that look for them inside the DSP memory. 0 if it is a normal burst. */
int cellule_bits_attendus(uint32_t fn, uint8_t bsic, uint8_t bits[148])
{
uint32_t p51 = fn % 51;
if (cellule_sans_bcch || p51 < 2 || p51 > 49 || p51 % 10 < 2) return -1;
return cellule_nb(fn - ((p51 % 10 - 2) & 3), (int)((p51 % 10 - 2) & 3), bsic, bits);
}
/* Expected decoder-side vectors for the block that ends at frame fn (burst 3):
* the 456 convolutionally coded bits in deinterleaved order (45.003 4.1.4:
* bit k of the coded block sits in burst k mod 4 at position 2*((49k) mod 57)
* + ((k mod 8) div 4) of the 114 data bits) and the 184 information bits +
* 40 parity + 4 tail (the 23 octets as sent, MSB first, then the Fire parity
* as gsm0503 computes it: we only need the 184 here). */
int cellule_bloc_attendu(uint32_t fn, uint8_t bsic, uint8_t code456[456], uint8_t info184[184])
{
uint32_t p51 = fn % 51;
if (cellule_sans_bcch || p51 < 2 || p51 > 49 || p51 % 10 < 2) return -1;
uint32_t fn0 = fn - ((p51 % 10 - 2) & 3);
uint8_t bits[148]; uint8_t data[4][114];
for (int b = 0; b < 4; b++) {
if (cellule_nb(fn0, b, bsic, bits) < 0) return -1;
memcpy(data[b], bits + 3, 57); memcpy(data[b] + 57, bits + 88, 57);
}
for (int k = 0; k < 456; k++) {
int b = k & 3, j = 2 * ((49 * k) % 57) + ((k % 8) / 4);
code456[k] = data[b][j];
}
uint32_t tc = (fn0 / 51) % 8;
const uint8_t *l2 = (p51 <= 5) ? cellule_l2((int)tc) : cellule_l2(-1);
/* [2026-09-21] LSB first within each octet: that is how gsm0503_xcch_encode
* unpacks the L2 frame before the Fire parity and the convolutional code
* (osmo_pbit2ubit_ext(..., lsb_mode=1)), so it is the bit order the ROM's
* Viterbi has to reproduce. MSB first gave a false "78 faux" on a correct
* block. */
for (int i = 0; i < 184; i++) info184[i] = (l2[i / 8] >> (i % 8)) & 1;
return 0;
}
/* The 228 bits the Viterbi decoder must output: 184 information bits, 40 Fire
* parity bits, 4 tail bits (45.003 4.1.1-4.1.2). */
#include <osmocom/core/crc64gen.h>
#include <osmocom/coding/gsm0503_parity.h>
int cellule_u228_attendu(uint32_t fn, uint8_t bsic, uint8_t u228[228])
{
uint8_t code[456], info[184];
if (cellule_bloc_attendu(fn, bsic, code, info) < 0) return -1;
memcpy(u228, info, 184);
osmo_crc64gen_set_bits(&gsm0503_fire_crc40, info, 184, u228 + 184);
memset(u228 + 224, 0, 4);
return 0;
}9.10 /opt/GSM/c54x_exe/src/cellule.h
1880 octets, 29 lignes → 29 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef CELLULE_H
#define CELLULE_H
#include <stdint.h>
/* Downlink TN0 burst of a GSM cell for frame fn (51-multiframe: FCCH on
* 0/10/20/30/40, SCH on 1/11/21/31/41, dummy burst elsewhere), GMSK modulated,
* 148 int16 I/Q samples. Returns the burst type: 'F', 'S', 'B' (BCCH, SI1-4),
* 'C' (CCCH, empty paging) or '.' (dummy).
* marge = silence samples prepended and appended to an SCH burst: the ROM SB
* decoder reads a 190-sample window, 148 + 2 x 21 (BSP_IQ_MAX_I16 in
* calypso_bsp.c, "SB en demande 190"). *n_iq gets the number of int16 written. */
extern int cellule_sch_partout;
extern int cellule_marge_fin;
extern int cellule_marge_nb; /* head/tail margin of BCCH/CCCH normal bursts, < 0 = none (pont.c sets it per frame) */
extern int cellule_sans_bcch;
extern double cellule_dec_nb;
extern double cellule_phase_nb;
extern int cellule_fenetre_nb; /* NB window length in samples, the frame is padded to it exactly */
extern int cellule_tsc_force; /* TSC of the normal bursts, < 0 = BCC (CELLULE_TSC, pont.c) */ /* 1: the old cell, dummy bursts on BCCH/CCCH */
int cellule_train_sb(int i);
int cellule_demod_d(const int16_t *x, int n_ech, int b0, unsigned char *d148);
int cellule_demod_reference(const int16_t *x, int n_ech, unsigned char *bits148, int *offset);
void cellule_code_attendu(uint32_t fn, uint8_t bsic, unsigned char *code78);
char cellule_burst(uint32_t fn, uint8_t bsic, int amp, double decalage, int marge, int16_t *iq, int *n_iq);
int cellule_u228_attendu(uint32_t fn, uint8_t bsic, uint8_t u228[228]);
int cellule_bloc_attendu(uint32_t fn, uint8_t bsic, uint8_t code456[456], uint8_t info184[184]);
int cellule_bits_attendus(uint32_t fn, uint8_t bsic, uint8_t bits[148]);
void cellule_factice(int amp, double decalage, int16_t *iq); /* 148 GMSK samples of the dummy burst */
#endif9.11 /opt/GSM/c54x_exe/src/main.c
12822 octets, 278 lignes → 278 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* c54x_exe - the Calypso TMS320C54x DSP, run without QEMU and without the ARM.
*
* Bench for the symptom recorded in the qemu-calypso README [2026-09-16]:
* a_sch[0] = 0x8100 (B_BLUD | B_SCH_CRC), and a_sch[3] = 0xf8d8 CONSTANT over
* 21/21 writes while 10 distinct burst contents were presented. A decoder
* whose output does not depend on its input is not decoding.
*
* Reaching that point used to mean booting QEMU, the ARM and the osmocom-bb
* firmware: seconds per run. The DSP needs almost none of it - out of 26631
* lines of C54x L1, 14 symbols come from QEMU (two of them mutexes in the
* core), and calypso_{arm2dsp,dma,fbsb,mailbox}.c need none. Here the TI mask
* ROM runs alone in milliseconds and we watch what the DSP writes into API
* RAM, which makes the question "does the output depend on the input?"
* answerable in a loop, hence in CI.
*
* The sources are NOT copied here: this binary compiles those of
* /opt/GSM/qosmo. Copying them would recreate the divergence this bench exists
* to remove.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stdbool.h>
#include <string.h>
#include "qemu/thread.h"
#include "calypso_c54x.h"
#include "hw/arm/calypso/calypso_api.h"
#include "hw/arm/calypso/calypso_dsp_pont.h"
#include "calypso_dma.h"
#include "calypso_bsp.h"
#include "verbosite.h"
#include "rejouer.h"
#include "pont.h"
/* ── what the platform would otherwise provide ─────────────────────────── */
extern int c54x_rapide; /* calypso_c54x.h : fast path of the core */
extern int c54x_sondes; /* c54x_internal.h : sondes pures, coupees par defaut */
uint32_t g_c54x_exe_fn; /* non-static: pont.c updates it on every TICK */
uint32_t calypso_trx_get_fn(void) { return g_c54x_exe_fn; }
/* No interrupt controller here, so the ack the DSP raises has nowhere to go.
* If DSP behaviour ever turns out to depend on that ack, this binary diverges
* from QEMU at exactly this point. */
void calypso_inth_arm_ack(void) { }
/* The DARAM lock normally lives in l1-dsp/calypso_full_pcb.c, excluded from
* this binary because it includes hw/core/cpu.h - all of QEMU behind it. Same
* pthread_mutex: the DSP really locks. */
QemuMutex calypso_pcb_daram_lock;
/* Guest memory: with no ARM nobody writes into it, but shared sources
* reference it. */
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{
(void)addr;
if (!wr) {
memset(buf, 0, len);
}
}
/* ── ROMs at their silicon addresses (cf. calypso_trx.c of qosmo-dsp) ───── */
static const struct { const char *suffixe; uint32_t adresse; bool programme; }
ROMS[] = {
{ "PROM0", 0x07000, true },
{ "PROM1", 0x18000, true }, /* page 1, reached with XPC=1 */
{ "PROM2", 0x28000, true },
{ "PROM3", 0x38000, true },
{ "DROM", 0x09000, false },
{ "PDROM", 0x0E000, false }, /* mapped on the DATA side ... */
{ "PDROM", 0x0E000, true }, /* ... AND on the PROGRAM side (IT vectors) */
};
static void usage(const char *prog)
{
fprintf(stderr,
"usage: %s [options]\n"
" --rom-dir DIR ou sont calypso_dsp.*.bin (defaut /opt/GSM)\n"
" --trames N nombre de trames TDMA (defaut 100, 4000 avec --rejouer)\n"
" --insns N instructions par trame (defaut 2300, 200000 avec --arm)\n"
" --verbeux une ligne par trame\n"
" --iq MODE avec --arm : injecter un burst I/Q a chaque trame :\n"
" fcch (rotation +pi/2/ech.), noise, tone:<dphi>, none,\n"
" cell[:bsic[:decalage]] = FCCH+SCH+factice GMSK (multitrame 51)\n"
" --amp N amplitude int16 des echantillons injectes (defaut 30000)\n"
" --rejouer rejeu DETERMINISTE de l'acquisition FB/SB (sans QEMU)\n"
" --bsic N BSIC de la cellule injectee en rejeu (defaut 7)\n"
" --arm [SOCKET] servir l'ARM de QEMU (qosmo, CALYPSO_DSP_EXTERN=1) :\n"
" API RAM partagee dans /dev/shm%s, trame verrouillee\n"
" sur %s\n"
" -v .. -vvvvvv traces du coeur C54x (stderr), par niveau :\n"
" (rien) erreurs seulement\n"
" -v + avertissements\n"
" -vv + cycle de vie : boot, reset, gates ACTIF/INACTIVE\n"
" -vvv + taches, API RAM, interruptions, chemins FB/SB\n"
" -vvvv + sondes memoire : WATCH, DUMP, SCAN, MAP, SP-*\n"
" -vvvvv + pas a pas : BRANCH-TRACE, LOOPTRACE, TERM, CYCLE\n"
" -vvvvvv tout, stderr brut\n",
prog, CALYPSO_PONT_SHM, CALYPSO_PONT_SOCK);
}
int main(int argc, char **argv)
{
const char *rom_dir = "/opt/GSM";
const char *arm_sock = NULL;
int rejeu = 0, bsic_rej = 7;
const char *iq_mode = "none";
int amp = 30000;
long trames = -1, insns = -1;
bool verbeux = false;
int niveau = 0;
for (int i = 1; i < argc; i++) {
const char *a = argv[i];
if (!strcmp(a, "--rom-dir") && i + 1 < argc) rom_dir = argv[++i];
else if (!strcmp(a, "--trames") && i + 1 < argc) trames = atol(argv[++i]);
else if (!strcmp(a, "--insns") && i + 1 < argc) insns = atol(argv[++i]);
else if (!strcmp(a, "--verbeux")) verbeux = true;
else if (!strcmp(a, "--iq") && i + 1 < argc) iq_mode = argv[++i];
else if (!strcmp(a, "--amp") && i + 1 < argc) amp = atoi(argv[++i]);
else if (!strcmp(a, "--rejouer")) { rejeu = 1; }
else if (!strcmp(a, "--bsic") && i + 1 < argc) bsic_rej = atoi(argv[++i]);
else if (!strcmp(a, "--arm")) {
arm_sock = (i + 1 < argc && argv[i + 1][0] != '-') ? argv[++i] : CALYPSO_PONT_SOCK;
}
else if (a[0] == '-' && a[1] == 'v' && strspn(a + 1, "v") == strlen(a + 1)) {
niveau = (int)strlen(a + 1);
}
else if (!strcmp(a, "-h") || !strcmp(a, "--help")) { usage(argv[0]); return 0; }
else { usage(argv[0]); return 2; }
}
if (insns < 0) {
/* [2026-09-20] 200000 under --arm: the FB search over whole 1250-symbol
* frames costs the ROM 24-36k instructions per frame, and a frame cut
* short by the budget leaves the ARM reading half-written results (a
* zeroed a_sch read as a CRC-OK SB). Silicon has ~360k cycles per frame
* at 78 MHz; 32000 was a bench constant, not a hardware one. */
insns = arm_sock ? 200000 : 2300;
}
if (trames < 0) {
trames = rejeu ? 4000 : 100; /* an explicit --trames is honoured as is */
}
verbosite_installer(niveau);
/* Fast path of the core (calypso_c54x.h): on unless a probe is armed. */
{ const char *d = getenv("CALYPSO_DEBUG"), *r = getenv("CALYPSO_C54X_RAPIDE");
c54x_rapide = (r && *r) ? (*r != '0') : !(d && *d); }
/* [2026-09-23] Sondes pures du coeur (c54x_internal.h) : coupees par defaut ;
* -vvvv et plus les allument, puisque c'est a ce niveau qu'on les lit.
* Sinon le coeur resout CALYPSO_SONDES / CALYPSO_DEBUG au premier c54x_init. */
if (niveau >= 4) c54x_sondes = 1;
qemu_mutex_init(&calypso_pcb_daram_lock);
/* API RAM: private, or shared with the QEMU ARM. It must be installed
* BEFORE the ROMs, since the loader copies into it whatever falls inside
* the 0x0800 window. Under --arm the shared segment IS data[0x0800..] and
* api_ram aliases it, so every core write reaches the ARM by either
* path. */
static uint16_t api_ram_privee[CALYPSO_API_WORDS];
uint16_t *api_ram = api_ram_privee;
C54xState *dsp;
if (arm_sock || rejeu) {
/* A pending interrupt (IFR&IMR) is taken as soon as INTM drops: real
* C54x behaviour (SPRU131 ch.6), not a workaround. The core gates it
* behind CALYPSO_C54X_IRQ_LEVEL; turn it on here unless explicitly
* overridden (empty CALYPSO_C54X_IRQ_LEVEL turns it off). Applied to
* BOTH benches: the replay used to run the core without it and could
* not reproduce the bridge. */
const char *e = getenv("CALYPSO_C54X_IRQ_LEVEL");
if (!e) setenv("CALYPSO_C54X_IRQ_LEVEL", "1", 1);
else if (!*e) unsetenv("CALYPSO_C54X_IRQ_LEVEL");
}
if (arm_sock) {
dsp = pont_allouer_dsp();
if (!dsp) { return 1; }
api_ram = &dsp->data[C54X_API_BASE];
} else {
dsp = c54x_init();
if (!dsp) { fprintf(stderr, "c54x_init a echoue\n"); return 1; }
}
c54x_set_api_ram(dsp, api_ram);
int charges = 0;
for (unsigned i = 0; i < sizeof(ROMS) / sizeof(ROMS[0]); i++) {
char chemin[512];
snprintf(chemin, sizeof(chemin), "%s/calypso_dsp.%s.bin", rom_dir, ROMS[i].suffixe);
int n = c54x_load_section(dsp, chemin, ROMS[i].adresse, ROMS[i].programme);
if (n < 0) {
fprintf(stderr, "ROM manquante : %s\n", chemin);
return 1;
}
printf(" %-6s %-5s 0x%05x %6d mots\n", ROMS[i].suffixe,
ROMS[i].programme ? "prog" : "data", ROMS[i].adresse, n);
charges++;
}
{ char chemin[512];
snprintf(chemin, sizeof(chemin), "%s/calypso_dsp.Registers.bin", rom_dir);
int n = c54x_load_registers(dsp, chemin);
printf(" %-6s %-5s %-7s %6d mots\n", "Regs", "mmr", "", n); }
printf("%d sections chargees, reset...\n", charges);
c54x_reset(dsp);
if (rejeu) {
calypso_dma_init();
calypso_bsp_init(dsp);
if (insns < 32000) insns = 32000;
if (!iq_mode || !*iq_mode || !strcmp(iq_mode, "none")) iq_mode = "cell";
int rc = rejouer(dsp, api_ram, trames, insns, iq_mode, amp, bsic_rej, verbeux);
verbosite_retirer();
verbosite_bilan(stdout);
return rc;
}
if (arm_sock) {
/* Same sequence as calypso_trx_init() of qosmo-dsp after reset. */
calypso_dma_init();
calypso_bsp_init(dsp);
int rc = pont_serveur(dsp, api_ram, arm_sock, insns, verbeux, iq_mode, amp);
verbosite_retirer();
verbosite_bilan(stdout);
return rc;
}
/* The README observables, sampled once per frame. */
uint16_t *d_fb_det = &api_ram[(API_NDB + NDB_D_FB_DET) / 2];
uint16_t *a_sch0 = &api_ram[(API_R_PAGE(0) + RP_A_SCH) / 2];
unsigned fb_vus = 0, sch_ecrits = 0;
uint16_t fb_precedent = 0, sch_sig_prec = 0xFFFF;
uint16_t sch3_premier = 0; bool sch3_varie = false, sch3_vu = false;
if (verbeux) {
printf("\n trame d_fb_det a_sch[0] a_sch[1] a_sch[2] a_sch[3]\n");
}
for (long t = 0; t < trames; t++) {
g_c54x_exe_fn = (uint32_t)t;
c54x_run(dsp, (int)insns);
/* Count TRANSITIONS, not frames where the value is non-zero: the bit
* stays raised, so counting per frame reported "50 out of 50", which
* only measured how long the run lasted. */
if (*d_fb_det && !fb_precedent) fb_vus++;
fb_precedent = *d_fb_det;
uint16_t sch_sig = (uint16_t)(a_sch0[0] ^ a_sch0[3]);
if ((a_sch0[0] || a_sch0[3]) && sch_sig != sch_sig_prec) {
sch_ecrits++;
if (!sch3_vu) { sch3_premier = a_sch0[3]; sch3_vu = true; }
else if (a_sch0[3] != sch3_premier) sch3_varie = true;
sch_sig_prec = sch_sig;
}
if (verbeux) {
printf(" %5ld %6u 0x%04x 0x%04x 0x%04x 0x%04x\n",
t, *d_fb_det, a_sch0[0], a_sch0[1], a_sch0[2], a_sch0[3]);
}
}
verbosite_retirer();
printf("\n─── bilan sur %ld trames ───\n", trames);
printf(" AUCUN burst injecte : le DSP tourne sur une API RAM vierge, sans\n"
" ARM ni TPU. Les valeurs ci-dessous disent que la mask-ROM EXECUTE,\n"
" pas encore qu'elle decode. Injecter des bursts est l'etape suivante.\n\n");
printf(" d_fb_det leve : %u transition(s) 0 -> 1\n", fb_vus);
printf(" a_sch change : %u fois\n", sch_ecrits);
if (sch3_vu) {
printf(" a_sch[3] : 0x%04x%s\n", sch3_premier,
sch3_varie ? " puis VARIE" : " CONSTANT sur toutes les ecritures");
if (!sch3_varie) {
printf("\n ^ c'est le symptome du README : une sortie qui ne depend\n"
" pas de l'entree. Ici l'entree est vide, donc attendu.\n");
}
} else {
printf(" a_sch : jamais ecrit (la tache SB n'a pas tourne)\n");
}
verbosite_bilan(stdout);
return 0;
}9.12 /opt/GSM/c54x_exe/src/montant.c
54125 octets, 1260 lignes → 1260 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* montant.c - le lien montant du montage DSP : RACH, SDCCH, SACCH, FACCH, parole.
*
* POURQUOI CE FICHIER EXISTE
* --------------------------
* Sous CALYPSO_DSP_EXTERN=1, calypso_l1_do_init() appelle calypso_l1_disable()
* (« couche 1 « grgsm » desactivee (DSP externe) ») : plus aucune couche 1
* n'est enregistree dans QEMU, donc calypso_l1_do_rach_written() et
* calypso_l1_do_page_written() (calypso_l1_dispatch.c) sont des no-op. Or
* c'etaient eux qui, en montage grgsm, publiaient le montant dans les
* side-bands /dev/shm que pont.py consomme (pont/uplink.py) :
*
* /dev/shm/calypso_rach RACH (ra, bsic)
* /dev/shm/calypso_sdcch_ul SDCCH UL (bloc L2 de 23 octets)
* /dev/shm/calypso_tch_facch_ul FACCH UL
* /dev/shm/calypso_tch_sacch_ul SACCH UL
* /dev/shm/calypso_tch_ul parole (anneau de trames FR)
*
* Resultat mesure le 2026-09-21 : le firmware emettait bien ses
* L1CTL_RACH_REQ, le mobile comptait ses « RANDOM ACCESS (requests left 8..4) »,
* mais pont.py affichait « UL bursts=0 rach=0 » et /dev/shm/calypso_rach
* n'existait meme pas. Sans RACH il n'y a pas d'IMM ASS, donc pas de SDCCH,
* donc jamais de LOCATION UPDATING ACCEPT.
*
* COMMENT
* -------
* Ce processus tient l'API RAM partagee : on reprend donc, a l'identique, les
* captures de qosmo-grgsm/hw/arm/calypso/calypso_l1_grgsm.c, mais declenchees
* par SCRUTATION une fois par trame au lieu des callbacks d'ecriture de QEMU.
* Le point d'appel (pont.c, fin du PONT_TICK) correspond a la fin du scenario
* de l'ARM : dsp_end_scenario() vient d'ecrire d_dsp_page = B_GSM_TASK | page,
* et les mots de tache de cette page W sont a jour.
*
* Le RACH est le seul cas ou la scrutation n'est pas equivalente a un
* callback : le firmware ecrit d_rach (prim_rach.c:72) puis d_task_ra, et
* personne ne les efface ensuite (sync.c:307 ne les remet a zero que sur
* ABORT). On declenche donc sur FRONT : premiere valeur non nulle, ou valeur
* differente de la precedente. Angle mort assume : deux tentatives de suite
* avec le meme (RA, BSIC), soit ~1/256 puisque la RA est tiree au hasard par
* gsm48_rr ; la tentative suivante passe. MONTANT_CONSOMME_RACH=1 remet d_rach
* a zero apres publication, ce qui rend le declenchement exact — au prix d'une
* ecriture dans la fenetre API que la ROM pourrait lire.
*
* Ce module ne parle pas TRXD : calypso_bsp_send_rach_ra() existe (code mort
* depuis le refactor « couche 1 enregistree ») mais enverrait l'access-burst
* sur 127.0.0.1:5702, c'est-a-dire la socket DESCENDANTE de pont.py, dont
* run_data() fait « self.bts_data = addr » sur tout paquet recu : le burst
* serait relu comme une descente et l'adresse de la BTS ecrasee. La voie des
* side-bands passe par la machinerie montante de pont.py, celle qui est deja
* eprouvee en montage grgsm.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <unistd.h>
#include <fcntl.h>
#include "hw/arm/calypso/calypso_api.h"
#include "hw/arm/calypso/calypso_debug.h"
#include "calypso_bsp.h"
#include "montant.h"
#define SHM_RACH "/dev/shm/calypso_rach"
#define SHM_SDCCH_UL "/dev/shm/calypso_sdcch_ul"
#define SHM_FACCH_UL "/dev/shm/calypso_tch_facch_ul"
#define SHM_SACCH_UL "/dev/shm/calypso_tch_sacch_ul"
#define SHM_TCH_UL "/dev/shm/calypso_tch_ul"
#define SHM_KC "/dev/shm/calypso_kc_l1"
/* Tailles et dispositions : pont/uplink.py. */
#define REC_RACH 16 /* lu 12 : seq(4) ra(1) bsic(1) ..(2) fn(4) */
#define REC_L2 48 /* lu 39 : seq(4) l1s(4) fn(4) task(2) . p51(1) . l2(23) */
#define TCH_UL_SLOTS 16
#define TCH_UL_SLOT_SZ 64 /* TCH_UL_SLOT */
#define TCH_UL_FR_OFS 16 /* TCH_UL_FR_OFS */
#define FR_BYTES 33
/* Fenetre de recherche de l'en-tete L2 dans a_cu (SDCCH_UL_WINDOW_OFS de
* calypso_l1_grgsm.c). */
#define SDCCH_UL_WINDOW_OFS 6
/* Anti-doublon SDCCH montant.
*
* [2026-09-21, mesure] La couche 1 gr-gsm republiait un bloc identique passe
* 60 trames (SDCCH_UL_DEDUP_TICKS). Repris tel quel ici, ca tuait la
* connexion : le firmware laisse son bloc dans a_cu, on le republiait, le
* pont le reemettait, et le BSC repondait
*
* lchan(0-0-1-SDCCH8-0){ESTABLISHED}: ERROR INDICATION
* cause=SABM frame with information not allowed in this state
*
* -- un deuxieme SABM sur un lien deja etabli. Le canal tombait, le MSC
* passait en MSC_A_ST_RELEASING et repondait LOCATION UPDATING REJECT au
* milieu de la procedure, apres avoir pourtant mene l'IDENTITY REQUEST et
* l'AUTHENTICATION REQUEST a bien.
*
* Donc : un bloc n'est publie QUE si son contenu change. MONTANT_SDCCH_REPETE
* = N retablit une republication du meme bloc au bout de N trames (0 = jamais,
* le defaut). Une retransmission LAPDm du mobile porte les memes octets et
* serait donc avalee ; c'est le compromis assume, l'inverse casse le lien a
* coup sur. */
#define SDCCH_UL_REPETE_DEFAUT 0
/* Nombre de trames minimum entre deux RACH publies : une tentative du mobile
* dure plusieurs trames et le meme d_rach reste lisible entre-temps. */
#define RACH_GARDE_TRAMES 4
static struct {
unsigned long rach, sdcch, facch, sacch, parole;
uint16_t prev_rach;
uint32_t fn_rach;
bool rach_vu; /* au moins un RACH publie */
bool base_rach; /* la valeur de reference a ete prise */
/* Dernier bloc SDCCH montant publie, pour l'anti-doublon. */
uint8_t sdcch_dernier[23];
uint32_t sdcch_trame;
bool sdcch_a_dernier;
bool blud_vu; /* a_cu a deja annonce un bloc par B_BLUD */
unsigned sans_blud; /* taches montantes vues sans B_BLUD */
bool dedie_arme;
/* [2026-09-23] Bascule SDCCH <-> TCH suivie par le firmware (voir
* suivre_tache_tch). Le dernier SDCCH lu dans calypso_dcch_cfg est garde
* pour y revenir ; l'annonce du TCH vient du pont (calypso_tch_cfg). */
int sd_tn, sd_genre, sd_ss;
bool sd_valide; /* un SDCCH est connu (dcch_cfg arme) */
int tch_tn, tch_tsc; /* annonce du pont : 0 = pas de TCH annonce */
bool sur_tch; /* le BSP joue l'intervalle du TCH */
} g;
/* Taches de lecture que l'ARM pose dans d_task_d de la page W
* (osmocom-bb firmware, include/calypso/l1_environment.h:45-52). La lecture
* d'un bloc SDCCH/SACCH passe par ALLC (prim_rx_nb.c:200), comme la BCCH et
* la CCCH ; DDL/ADL sont gardees par prudence. */
#ifndef DDL_DSP_TASK
#define DDL_DSP_TASK 26
#endif
#ifndef ADL_DSP_TASK
#define ADL_DSP_TASK 27
#endif
/* d_tch_mode : quatrieme mot du NDB (dsp_api.h:121, rejouer.c:623). */
#define NDB_D_TCH_MODE 0x006u
static int journal(void)
{
static int n = -1;
if (n < 0) {
const char *e = calypso_getenv("MONTANT_DEBUG");
n = (e && *e) ? atoi(e) : 20; /* les 20 premiers evenements, par defaut */
}
return n;
}
static int sb_ouvrir(const char *chemin, off_t taille)
{
int fd = open(chemin, O_CREAT | O_RDWR, 0644);
if (fd >= 0 && ftruncate(fd, taille) < 0) {
close(fd);
return -1;
}
return fd;
}
static void sb_ecrire(int fd, const void *buf, size_t n, off_t off)
{
if (fd >= 0 && pwrite(fd, buf, n, off) < 0) {
return;
}
}
static void publier_l2(int *fdp, const char *chemin, uint32_t *seq,
const uint8_t *l2, uint16_t task_u, uint32_t fn)
{
if (*fdp == -2) {
*fdp = sb_ouvrir(chemin, REC_L2);
}
uint8_t buf[REC_L2];
memset(buf, 0, sizeof(buf));
(*seq)++;
memcpy(buf + 0, seq, 4);
memcpy(buf + 4, &fn, 4);
memcpy(buf + 8, &fn, 4);
memcpy(buf + 12, &task_u, 2);
buf[14] = (uint8_t)(fn % 51u);
memcpy(buf + 16, l2, 23);
sb_ecrire(*fdp, buf, sizeof(buf), 0);
}
/* [2026-09-30] LA PAROLE MONTANTE, ENREGISTREE. Run banc-max de 00:07 : l'appel
* s'etablit, mais le ton 1 kHz injecte au micro ne revient pas ; les trames
* descendantes a_dd, bit-exactes avec ce que la BTS a emis
* (tools/comparer_parole.py, 1116/1117), decodees par libgsm ne le contiennent
* pas non plus : ce qu'Asterisk a renvoye etait deja du bruit, le defaut est
* MONTANT. La conversion TI -> FR ci-dessous est l'inverse exact de gapk
* (aller-retour identique au bit pres, verifie) et le firmware ecrit a_du en
* octet fort d'abord comme prendre_ul le lit. Reste : la capture GAPK, le
* firmware, ou le pont (codage, A5 montant). Pour trancher au prochain appel,
* chaque trame montante est notee ici, brute TI (type 1) et convertie FR
* (type 0), meme format de 48 octets que noter_dl : tools/decoder_add.py les
* decode avec libgsm et cherche le ton. */
static void noter_ul(uint32_t fn, uint8_t type, uint16_t etat, const uint8_t *data, int n)
{
static FILE *f;
static unsigned nrec;
static uint32_t fn_prec;
if (!f || (uint32_t)(fn - fn_prec) > 500u) {
if (f) fclose(f);
f = fopen("/dev/shm/calypso_add_ul.bin", "wb");
nrec = 0;
}
fn_prec = fn;
if (!f || nrec >= 16000) return;
uint8_t r[48];
memset(r, 0, sizeof r);
memcpy(r, &fn, 4);
r[4] = type; r[5] = (uint8_t)n;
memcpy(r + 6, &etat, 2);
memcpy(r + 12, data, n > 36 ? 36 : n);
fwrite(r, 1, sizeof r, f);
if ((++nrec % 32) == 0) fflush(f);
}
static void publier_parole(const uint8_t *fr, uint32_t fn)
{
static int fd = -2;
static uint32_t seq;
if (fd == -2) {
fd = sb_ouvrir(SHM_TCH_UL, 8 + TCH_UL_SLOTS * TCH_UL_SLOT_SZ);
uint32_t hdr[2] = { 0, TCH_UL_SLOTS };
sb_ecrire(fd, hdr, sizeof(hdr), 0);
}
uint8_t buf[TCH_UL_SLOT_SZ];
memset(buf, 0, sizeof(buf));
seq++;
memcpy(buf + 0, &seq, 4);
memcpy(buf + 4, &fn, 4);
memcpy(buf + 8, &fn, 4);
memcpy(buf + TCH_UL_FR_OFS, fr, FR_BYTES);
/* L'entete (le compteur d'ecriture) en dernier : pont.py lit d'abord
* l'entete, puis la case ; l'inverse lui livrerait une case a moitie ecrite. */
sb_ecrire(fd, buf, sizeof(buf), 8 + (off_t)((seq - 1) % TCH_UL_SLOTS) * TCH_UL_SLOT_SZ);
sb_ecrire(fd, &seq, 4, 0);
}
/* Bloc montant depose par le firmware dans le NDB : mot 0 = en-tete (B_BLUD
* signale « bloc pret »), donnees a partir du mot 3. Les 33 octets de parole
* sont ranges octet fort d'abord, les 23 octets L2 octet faible d'abord. */
static bool prendre_ul(uint16_t *api_ram, unsigned off, uint8_t *out, int n)
{
uint16_t *w = &api_ram[(API_NDB + off) / 2];
if (!(w[0] & B_BLUD)) {
return false;
}
for (int i = 0; i < n; i += 2) {
uint16_t v = w[3 + i / 2];
uint8_t premier = (n == FR_BYTES) ? (uint8_t)(v >> 8) : (uint8_t)(v & 0xff);
uint8_t second = (n == FR_BYTES) ? (uint8_t)(v & 0xff) : (uint8_t)(v >> 8);
out[i] = premier;
if (i + 1 < n) {
out[i + 1] = second;
}
}
w[0] &= (uint16_t)~B_BLUD; /* consomme, comme le ferait le DSP */
return true;
}
/* [2026-09-23] LA PAROLE MONTANTE EST AU FORMAT TI, LE PONT ATTEND DU FR STANDARD.
* mobile_pont.cfg : io-tch-format ti. gapk convertit donc la voix du micro
* au format du DSP TI (osmo-gapk fmt_ti.c, ti_fr_from_canon), le firmware la
* copie telle quelle dans a_du, et le pont la passait a
* gsm0503_tch_fr_encode(..., net_order=1), qui attend du FR TS 101 318 (le
* format RTP « gsm », nibble 0xd en tete). L'ordre des 260 bits n'est pas le
* meme : la BTS recevait une parole melangee, l'echo test la renvoyait et le
* decodeur du mobile la rendait en bruit sature (descendant colle a +-12882).
* Le descendant, lui, reste TI de bout en bout : il etait propre tant qu'il ne
* portait pas la voix de l'operateur. Conversion reprise de fmt_ti.c
* (ti_fr_to_canon) puis fmt_gsm.c (gsm_from_canon). MONTANT_PAROLE_TI=0 :
* passage brut, comme avant. */
#include <osmocom/codec/codec.h>
static int bit_msb(const uint8_t *b, int i) { return (b[i >> 3] >> (7 - (i & 7))) & 1; }
static void mettre_bit_msb(uint8_t *b, int i, int v)
{
if (v) b[i >> 3] |= (uint8_t)(0x80 >> (i & 7));
else b[i >> 3] &= (uint8_t)~(0x80 >> (i & 7));
}
static void parole_ti_vers_fr(uint8_t fr[FR_BYTES])
{
static int conv = -1;
if (conv < 0) { const char *e = calypso_getenv("MONTANT_PAROLE_TI"); conv = !(e && *e == '0'); }
if (!conv) return;
uint8_t canon[FR_BYTES];
memset(canon, 0, sizeof canon);
for (int i = 0; i < 260; i++) { /* ti_fr_to_canon */
int si = i >= 182 ? i + 4 : i;
mettre_bit_msb(canon, gsm610_bitorder[i], bit_msb(fr, si));
}
fr[0] = (uint8_t)(0xd0 | (canon[0] >> 4)); /* gsm_from_canon : 0xd + 260 bits */
for (int i = 1; i < FR_BYTES; i++)
fr[i] = (uint8_t)((canon[i - 1] << 4) | (canon[i] >> 4));
}
static bool capture_tch_ul(uint16_t *api_ram, uint16_t task_u, uint32_t fn)
{
static int fd_facch = -2, fd_sacch = -2;
static uint32_t seq_facch, seq_sacch;
uint8_t l2[23], fr[FR_BYTES];
switch (task_u & 0x7FFF) {
case TCHT_DSP_TASK:
if (prendre_ul(api_ram, NDB_A_FU, l2, 23)) {
publier_l2(&fd_facch, SHM_FACCH_UL, &seq_facch, l2, task_u, fn);
if (g.facch++ < (unsigned long)journal())
printf(" [montant] FACCH UL fn=%u task=0x%04x\n", fn, task_u);
}
if (prendre_ul(api_ram, NDB_A_DU_1, fr, FR_BYTES)) {
noter_ul(fn, 1, task_u, fr, FR_BYTES); /* brute, format TI (a_du) */
parole_ti_vers_fr(fr);
noter_ul(fn, 0, task_u, fr, FR_BYTES); /* convertie FR, ce que recoit le pont */
publier_parole(fr, fn);
if (g.parole++ < (unsigned long)journal())
printf(" [montant] parole UL fn=%u\n", fn);
}
return true;
case TCHA_DSP_TASK:
if (prendre_ul(api_ram, NDB_A_CU, l2, 23)) {
publier_l2(&fd_sacch, SHM_SACCH_UL, &seq_sacch, l2, task_u, fn);
if (g.sacch++ < (unsigned long)journal())
printf(" [montant] SACCH UL fn=%u task=0x%04x\n", fn, task_u);
}
return true;
case TCHD_DSP_TASK:
return true;
default:
return false;
}
}
/* SDCCH / SACCH montant.
*
* [2026-09-21] Le firmware ANNONCE son bloc, il n'y a rien a deviner :
* prim_tx_nb.c:80-101 ecrit dans a_cu l'en-tete `(1 << B_BLUD)`, deux mots a
* zero, puis les 23 octets L2 a partir du mot 3 -- la disposition exacte que
* prendre_ul() sait lire. Le drapeau est a usage unique : on le consomme, et
* un bloc = une publication.
*
* Avant d'avoir lu ce code, cette fonction reprenait la fenetre heuristique de
* la couche 1 gr-gsm (balayage d'en-tete LAPDm dans a_cu+6) avec un anti-
* doublon sur le contenu. Trois echecs de suite en sont sortis : republication
* du meme SABM toutes les 60 trames -> « SABM frame with information not
* allowed in this state » et canal casse en pleine procedure ; puis
* comparaison sur 23 octets dont la friture de fin bouge -> 32 blocs
* « neufs » ; puis verrou « un seul SABM par connexion » -> plus aucun SABM
* des que le verrou restait arme. Le drapeau du firmware rend tout ca inutile.
*
* MONTANT_SDCCH_FENETRE=1 force l'ancienne voie heuristique, et elle prend le
* relais toute seule si B_BLUD ne se leve jamais alors que le firmware pose
* des taches montantes (le cas ou la ROM consommerait le drapeau avant nous).
*/
/* PEREMPTION DE L'ANTI-DOUBLON (voie heuristique seulement).
*
* [2026-09-21] La couche 1 gr-gsm republie un bloc identique passe 60 ticks
* (calypso_l1_grgsm.c:673). Ce n'est PAS un moteur de renvoi : dans ce
* montage-la, QEMU efface d_task_u a chaque tick (calypso_trx.c, branche non
* pont), donc la couche 1 ne voit une tache montante que sur les trames ou le
* firmware vient de la poser. Les 60 ticks ne font qu'empecher de publier
* quatre fois le meme bloc (un par burst) tout en laissant passer une VRAIE
* retransmission du mobile, quand son T200 le fait re-poster.
*
* Sur la voie B_BLUD ce probleme n'existe pas : le drapeau est a usage unique,
* une pose = une publication, et une retransmission du mobile repose le
* drapeau. Rien a temporiser.
*
* Avoir lu ces 60 ticks comme un renvoi a coute un banc : le SABM repartait
* apres l'etablissement du lien, et le BTS repondait « SABM frame with
* information not allowed in this state » -- 4 ERROR INDICATION pour 4
* ESTABLISHED. */
#define SDCCH_TTL_DEFAUT 60 /* trames, comme SDCCH_UL_DEDUP_TICKS */
static int sabm_ttl(void)
{
static int v = -1;
if (v < 0) {
const char *e = calypso_getenv("MONTANT_SDCCH_TTL");
if (!e || !*e) {
e = calypso_getenv("MONTANT_SDCCH_REPETE"); /* ancien nom */
}
v = (e && *e) ? atoi(e) : SDCCH_TTL_DEFAUT;
}
return v;
}
static void publier_sdcch(uint16_t task_u, uint32_t fn, const uint8_t *l2)
{
static int fd = -2;
static uint32_t seq;
if (l2[1] == 0x03) { /* trame vide (UI sans donnee) */
return;
}
publier_l2(&fd, SHM_SDCCH_UL, &seq, l2, task_u, fn);
if (g.sdcch++ < (unsigned long)journal()) {
printf(" [montant] SDCCH UL fn=%u task=0x%04x L2=", fn, task_u);
for (int k = 0; k < 23; k++) printf("%02x%s", l2[k], k == 22 ? "" : " ");
printf("\n");
}
}
/* L'ancienne voie : balayage de la fenetre, anti-doublon sur le contenu
* utile, republication apres MONTANT_SDCCH_REPETE trames (0 = jamais). */
static void capture_sdcch_fenetre(uint16_t *api_ram, uint16_t task_u, uint32_t fn)
{
uint8_t fen[30];
const uint8_t *src = (const uint8_t *)api_ram + API_NDB + NDB_A_CU + SDCCH_UL_WINDOW_OFS;
memcpy(fen, src, sizeof(fen));
int kk = 0;
for (int j = 0; j <= 6; j++) {
uint8_t a = fen[j], c = fen[j + 1], l = fen[j + 2];
int sapi = (a >> 2) & 7;
bool addr_ok = (a & 0x01) && ((a & 0x60) == 0) && (sapi == 0 || sapi == 3);
bool ctrl_ok = (c != 0x2b) && (c != 0xff);
bool len_ok = (l & 0x01) && ((l >> 2) <= 20);
if (addr_ok && ctrl_ok && len_ok) {
kk = j;
break;
}
}
const uint8_t *l2 = fen + kk;
int repete = sabm_ttl();
unsigned utile = 3u + (unsigned)(l2[2] >> 2);
if (utile > 23u) {
utile = 23u;
}
if (g.sdcch_a_dernier && !memcmp(g.sdcch_dernier, l2, utile) &&
(repete <= 0 || (uint32_t)(fn - g.sdcch_trame) < (uint32_t)repete)) {
return;
}
memcpy(g.sdcch_dernier, l2, 23);
g.sdcch_trame = fn;
g.sdcch_a_dernier = true;
publier_sdcch(task_u, fn, l2);
}
static void capture_sdcch_ul(uint16_t *api_ram, uint16_t task_u, uint32_t fn)
{
static int fenetre = -1;
if (fenetre < 0) {
const char *e = calypso_getenv("MONTANT_SDCCH_FENETRE");
fenetre = (e && *e == '1') ? 1 : 0;
}
if (!fenetre) {
uint8_t l2[23];
if (prendre_ul(api_ram, NDB_A_CU, l2, 23)) {
g.blud_vu = true;
publier_sdcch(task_u, fn, l2);
return;
}
if (g.blud_vu) {
return; /* le drapeau fonctionne : rien a publier */
}
/* Jamais vu B_BLUD alors que le firmware pose des taches montantes :
* la ROM le consomme peut-etre avant nous. On bascule sur la fenetre. */
if (++g.sans_blud == 400) {
printf(" [montant] a_cu : B_BLUD jamais vu en %u taches montantes, "
"bascule sur la fenetre heuristique\n", g.sans_blud);
}
if (g.sans_blud < 400) {
return;
}
}
capture_sdcch_fenetre(api_ram, task_u, fn);
}
/* Le canal dedie, lu directement dans le side-band que le tap L1CTL de QEMU
* ecrit (calypso_dcch_tap.c) et que pont.py lit deja.
*
* [2026-09-21, mesure] Le canal etait annonce au DSP par un message du pont,
* PONT_DCCH. Trace du banc : QEMU imprime bien « [dcch] canal dedie arme :
* chan_nr=0x51 SDCCH/8 SS=2 TN=1 », et cote DSP, RIEN -- ni « pont : canal
* dedie », ni « [BSP] canal dedie arme », ni message inconnu. Le message se
* perd dans le pas-a-pas en deux phases (la boucle d'attente du PONT_GO jette
* tout ce qui n'est pas un GO). Resultat : le BSP continuait de livrer TS0
* pendant que l'ARM ecoutait TS1, et TOUS les blocs de la descente dediee
* echouaient au code de Fire.
*
* Le fichier, lui, ne depend d'aucun protocole : une lecture de 8 octets par
* trame, et le meme numero de sequence que pont.py utilise pour savoir s'il a
* change. */
static void scruter_dcch(uint32_t fn)
{
static int fd = -2;
static uint32_t seq;
static uint32_t prochain_essai;
if (fd < 0) {
if (fn < prochain_essai) {
return;
}
/* [2026-09-23] A CHAQUE TRAME, plus toutes les 200. run.sh efface les
* side-bands au demarrage : le fichier n'apparait qu'a la premiere
* ecriture (tap QEMU ici, pont pour calypso_tch_cfg), et on le voyait
* jusqu'a 200 trames trop tard. Pour calypso_tch_cfg c'etait fatal au
* premier appel apres chaque relance : le firmware posait sa tache TCH
* 113 a 164 trames avant que l'annonce soit lue (« sans annonce du
* pont »), l'UA de l'assignation se perdait, ASSIGNMENT FAILURE. Un
* open() qui echoue coute une microseconde. */
prochain_essai = fn + 1;
fd = open("/dev/shm/calypso_dcch_cfg", O_RDONLY);
if (fd < 0) {
return;
}
}
uint8_t b[16];
if (pread(fd, b, sizeof(b), 0) != (ssize_t)sizeof(b)) {
return;
}
uint32_t s2;
memcpy(&s2, b, 4);
if (!s2 || s2 == seq) {
return;
}
seq = s2;
int genre = b[4], ss = b[5], tn = b[6];
/* [2026-09-23] Genre 2/3 : le tap QEMU (calypso_dcch_tap.c) annonce
* desormais le TCH (TCH/F, TCH/H) au lieu de laisser le SDCCH perime
* pendant tout l'appel. Simple constat ici : la bascule du BSP suit la
* tache du firmware (suivre_tache_tch), l'intervalle et le TSC viennent
* du pont (scruter_tch), et le SDCCH memorise ne doit PAS etre ecrase --
* c'est lui que l'ASSIGNMENT FAILURE retrouve (le tap le republie quand
* le firmware y revient). */
if (genre == 2 || genre == 3) {
printf(" [montant] canal dedie (side-band seq=%u) : TCH/%c TS%d SS=%d, firmware sur le TCH "
"(%s%s)\n", seq, genre == 2 ? 'F' : 'H', tn, ss,
g.sur_tch ? "BSP deja sur le TCH" : "BSP pas encore bascule",
g.sd_valide ? ", SDCCH memorise" : "");
fflush(stdout);
return;
}
printf(" [montant] canal dedie (side-band seq=%u) : %s TS%d SDCCH/%d SS=%d%s\n",
seq, genre == 0xFF ? "libere" : "arme", tn, genre == 1 ? 8 : 4, ss,
(genre != 0xFF && g.sur_tch) ? " (memorise : le firmware est sur le TCH)" : "");
if (genre == 0xFF) {
calypso_bsp_set_dedie(0, 0xFF, 0);
g.dedie_arme = false;
g.sd_valide = false;
g.sur_tch = false;
montant_canal_libere();
return;
}
/* [2026-09-23] Le SDCCH est MEMORISE : c'est lui que le BSP retrouve quand
* le firmware quitte le TCH (ASSIGNMENT FAILURE). Tant que le firmware est
* sur le TCH, on ne touche pas au BSP. */
g.sd_tn = tn;
g.sd_genre = genre;
g.sd_ss = ss;
g.sd_valide = true;
if (g.sur_tch) {
return;
}
calypso_bsp_set_dedie(tn, genre, ss);
g.dedie_arme = true;
}
/* Rendre au BSP le SDCCH memorise (ou le liberer s'il n'y en a pas). */
static void revenir_sdcch(const char *raison, uint32_t fn)
{
g.sur_tch = false;
if (g.sd_valide) {
printf(" [montant] %s a fn=%u : BSP rendu au SDCCH TS%d SS=%d\n",
raison, fn, g.sd_tn, g.sd_ss);
calypso_bsp_set_dedie(g.sd_tn, g.sd_genre, g.sd_ss);
g.dedie_arme = true;
} else {
printf(" [montant] %s a fn=%u : aucun SDCCH connu, canal dedie libere\n",
raison, fn);
calypso_bsp_set_dedie(0, 0xFF, 0);
g.dedie_arme = false;
}
fflush(stdout);
}
/* [2026-09-23] 0 : armer le BSP des l'annonce du pont (comportement du
* 2026-09-22). Voir scruter_tch. */
static bool tch_sur_tache(void)
{
static int v = -1;
if (v < 0) {
const char *e = calypso_getenv("MONTANT_TCH_TACHE");
v = (e && *e == '0') ? 0 : 1;
}
return v != 0;
}
/* [2026-09-22] L'INTERVALLE DU TCH, CHAINON QUI MANQUAIT.
*
* pont.py publie deja l'intervalle du canal de trafic dans
* /dev/shm/calypso_tch_cfg (pont/state.py, Tch._write_cfg : seq, tn, tsc,
* arfcn) des qu'il decode l'ASSIGNMENT COMMAND descendante. Mais PERSONNE ne
* lisait ce fichier cote DSP : `calypso_bsp_set_dedie()` n'etait appelee que
* depuis la bande laterale SDCCH ci-dessus. Le BSP continuait donc de servir
* l'intervalle SDCCH pendant que le mobile ecoutait le TCH.
*
* Mesure du 2026-09-22, appel vers 600 : le BSC assigne un TCH/F sur TS2, le
* mobile y bascule (« MON: ... TS=2 »), n'y entend RIEN -- trois secondes de
* « MON: no cell info » avec rxlev-full=-110, le plancher -- revient sur TS1
* et repond « ASSIGNMENT FAILURE (cause #1) » (gsm48_rr.c:4750). Cote BSC :
* « Assignment failed in state WAIT_RR_ASS_COMPLETE, cause EQUIPMENT FAILURE:
* Timeout ». La trace DSP ne montrait que « arme TS1 SDCCH/8 », jamais TS2.
*
* Ce n'etait donc pas un defaut de qualite du lien mais un chainon manquant.
* MONTANT_TCH=0 coupe cette lecture.
*
* [2026-09-23] L'ANNONCE N'EST PAS LA BASCULE.
* Le pont ecrit ce fichier au DECODAGE de l'ASSIGNMENT COMMAND, donc a
* l'heure de la BTS, alors que le BSP joue les trames a l'heure du DSP -- en
* retard de 12 a ~200 trames (decalage tick/fn BTS de 681 au run de 12:22).
* Armer le BSP ici remplacait par des bursts TS2 TOUTES les trames pas
* encore jouees (bsp_dedie_trame est vrai partout pour un TCH), l'ASSIGNMENT
* COMMAND comprise, et TS0 avec. Releve du run de 12:22, appels 2 et 3 :
* « TCH (seq=2) : arme TS2 » puis un seul a_cd « FIRE KO » et plus aucun
* bloc SDCCH ; cote mobile 80-100 bit errors, jamais d'ASSIGNMENT COMMAND,
* LOS apres ~20 s. Et apres une ASSIGNMENT FAILURE (appel 1) rien ne rendait
* TS1 au BSP : 90-110 bit errors sur le SDCCH jusqu'a la liberation.
*
* Desormais ce fichier n'est plus qu'une ANNONCE (intervalle, TSC). La
* bascule vient du firmware lui-meme : suivre_tache_tch() arme le TCH a la
* premiere tache TCHT/TCHA/TCHD qu'il pose, et rend le SDCCH des qu'il repose
* une tache de lecture de bloc (ALLC). Un seq non nul avec tn=0 est l'abandon
* du pont (pont/dsp/tch.py, TchDsp.abandon) : retour au SDCCH sans lacher le
* Kc. seq=0 reste la liberation complete.
* MONTANT_TCH_TACHE=0 retablit l'armement a l'annonce. */
static void scruter_tch(uint32_t fn)
{
static int fd = -1, coupe = -1;
static uint32_t seq, prochain_essai;
if (coupe < 0) {
const char *e = calypso_getenv("MONTANT_TCH");
coupe = (e && *e == '0') ? 1 : 0;
}
if (coupe) {
return;
}
if (fd < 0) {
if (fn < prochain_essai) {
return;
}
prochain_essai = fn + 1; /* voir scruter_dcch */
fd = open("/dev/shm/calypso_tch_cfg", O_RDONLY);
if (fd < 0) {
return;
}
}
uint8_t b[16];
if (pread(fd, b, sizeof(b), 0) != (ssize_t)sizeof(b)) {
return;
}
uint32_t s2;
memcpy(&s2, b, 4);
if (s2 == seq) {
return;
}
seq = s2;
int tn = b[4], tsc = b[5];
if (!s2) {
/* Liberation complete (Tch.close) : comme avant le 2026-09-23. */
int etait = g.tch_tn;
g.tch_tn = 0;
if (g.sur_tch) {
printf(" [montant] TCH (seq=0) : libere TS%d\n", etait);
calypso_bsp_set_dedie(0, 0xFF, 0);
g.sur_tch = false;
g.dedie_arme = false;
montant_canal_libere();
} else if (etait) {
printf(" [montant] TCH (seq=0) : annonce TS%d retiree (le firmware n'y etait pas)\n", etait);
}
return;
}
if (tn <= 0 || tn > 7) {
/* Abandon par le pont (ASSIGNMENT FAILURE, retour du mobile sur le
* SDCCH) : le SDCCH vit encore, le Kc aussi. */
int etait = g.tch_tn;
g.tch_tn = 0;
printf(" [montant] TCH (seq=%u) : annonce TS%d abandonnee par le pont\n", seq, etait);
if (g.sur_tch) {
revenir_sdcch("abandon du TCH", fn);
}
return;
}
g.tch_tn = tn;
g.tch_tsc = tsc;
if (!tch_sur_tache()) {
printf(" [montant] TCH (seq=%u) : arme TS%d TSC=%d - toutes ses trames (MONTANT_TCH_TACHE=0)\n",
seq, tn, tsc);
calypso_bsp_set_dedie(tn, 2 /* BSP_DEDIE_TCH */, 0);
g.sur_tch = true;
g.dedie_arme = true;
return;
}
printf(" [montant] TCH (seq=%u) : TS%d TSC=%d annonce par le pont, "
"bascule du BSP a la premiere tache TCH du firmware\n", seq, tn, tsc);
fflush(stdout);
}
/* [2026-09-23] LA BASCULE SDCCH <-> TCH SUIT LE FIRMWARE.
*
* d_task_d de la page W que l'ARM vient d'ecrire dit ce qu'il ecoute a la
* trame suivante : TCHT (13, trafic et FACCH), TCHA (14, SACCH/T) ou TCHD
* (28) sur un TCH (prim_tch.c:520-585, 791-802), ALLC (24) pour un bloc
* SDCCH/SACCH (prim_rx_nb.c:200). Cette tache est posee au rythme du DSP :
* le BSP change donc d'intervalle sur la trame que l'ARM lit vraiment, quel
* que soit le retard du DSP sur la BTS. Les autres trames (PM des voisines,
* trame libre) ne changent rien. */
/* [2026-09-23] SONDE d_fn : la position que le firmware donne au DSP dans la
* 104-multitrame (dsp.c:537, d_fn = fn_report | (fn%104) << 8), sur les taches
* TCH. A comparer au fn BTS que le BSP joue au meme tick ([sacch_tf]) : un
* ecart multiple de 26 laisse passer parole et FACCH mais desentrelace la
* SACCH dans le desordre (a_cd FIRE KO a chaque bloc, LOS). 24 lignes. */
static void sonde_dfn(uint16_t *api_ram, unsigned pg, bool taches, uint32_t fn)
{
static unsigned n;
if (!taches || !g.sur_tch || n >= 24) {
return;
}
uint16_t t = api_ram[(API_W_PAGE(pg) + WP_D_TASK_D) / 2] & 0x7fffu;
uint16_t dfn = api_ram[(API_W_PAGE(pg) + WP_D_FN) / 2];
if (t != TCHA_DSP_TASK) {
return;
}
n++;
printf(" [d_fn] tick=%u tache=%u fn_report=%u fn%%104=%u\n",
fn, t, dfn & 0xffu, (dfn >> 8) & 0xffu);
}
static void suivre_tache_tch(uint16_t *api_ram, unsigned pg, bool taches, uint32_t fn)
{
static bool sans_annonce_dit;
if (!taches || !tch_sur_tache()) {
return;
}
uint16_t t = api_ram[(API_W_PAGE(pg) + WP_D_TASK_D) / 2] & 0x7fffu;
bool tache_tch = (t == TCHT_DSP_TASK || t == TCHA_DSP_TASK || t == TCHD_DSP_TASK);
bool tache_bloc = (t == ALLC_DSP_TASK || t == DDL_DSP_TASK || t == ADL_DSP_TASK);
if (tache_tch && !g.sur_tch) {
if (!g.tch_tn) {
if (!sans_annonce_dit) {
sans_annonce_dit = true;
printf(" [montant] TCH : tache %u postee a fn=%u sans annonce du pont "
"(calypso_tch_cfg) : intervalle inconnu, BSP inchange\n", t, fn);
}
return;
}
sans_annonce_dit = false;
printf(" [montant] TCH : le firmware poste la tache %u a fn=%u, BSP bascule sur TS%d (TSC=%d)\n",
t, fn, g.tch_tn, g.tch_tsc);
fflush(stdout);
calypso_bsp_set_dedie(g.tch_tn, 2 /* BSP_DEDIE_TCH */, 0);
g.sur_tch = true;
g.dedie_arme = true;
return;
}
if (tache_bloc && g.sur_tch) {
revenir_sdcch("le firmware est revenu sur le SDCCH (tache ALLC)", fn);
}
}
/* [2026-09-23] SONDE a_fd : LA FACCH DESCENDANTE SUR TCH.
* Le firmware ne remonte une FACCH que si ((fn%13)%4)==3 ET a_fd[0] porte
* B_BLUD (prim_tch.c:235-246), puis remet a_fd[0] = B_FIRE1 : seul le DSP
* pose B_BLUD. Sur l'appel 1 du run de 12:22 le pont decodait 6 FACCH de la
* BTS (UA) et le mobile n'en recevait aucune (T200, MDL-ERROR cause 1). Cette
* sonde tranche entre ROM (B_BLUD jamais pose) et plomberie (pose mais
* FIRE). MONTANT_AFD=0 la coupe. */
/* [2026-09-23] TRAMES DESCENDANTES LIVREES PAR LA ROM, POUR LA COMPARAISON.
* Chaque parole (a_dd_0, convertie du format TI au FR standard comme le
* montant) et chaque FACCH (a_fd) vue avec B_BLUD, avec le tick, le mot
* d'etat et le nombre d'erreurs rapporte (mot 2). Enregistrements de 48
* octets : fn LE32, type (0 parole, 1 FACCH), n, etat LE16, err LE16, 2 octets
* de bourrage, 36 octets de donnees. Fichier remis a zero a chaque appel (plus
* de 500 trames sans rien), 8000 enregistrements au plus.
* tools/comparer_parole.py le met en regard de /dev/shm/calypso_tch_dl.bin
* (bursts du BSP) et de /dev/shm/pont_tch_dl.bin (decodage du pont). */
static void noter_dl(uint32_t fn, uint8_t type, uint16_t etat, uint16_t err,
const uint8_t *data, int n)
{
static FILE *f;
static unsigned nrec;
static uint32_t fn_prec;
if (!f || (uint32_t)(fn - fn_prec) > 500u) {
if (f) fclose(f);
f = fopen("/dev/shm/calypso_add_dl.bin", "wb");
nrec = 0;
}
fn_prec = fn;
if (!f || nrec >= 8000) return;
uint8_t r[48];
memset(r, 0, sizeof r);
memcpy(r, &fn, 4);
r[4] = type; r[5] = (uint8_t)n;
memcpy(r + 6, &etat, 2);
memcpy(r + 8, &err, 2);
memcpy(r + 12, data, n > 36 ? 36 : n);
fwrite(r, 1, sizeof r, f);
if ((++nrec % 32) == 0) fflush(f);
}
static void sonde_afd(uint16_t *api_ram, uint32_t fn)
{
static int sonde = -1;
static uint16_t prec;
static unsigned long ok, ko;
if (sonde < 0) {
const char *e = calypso_getenv("MONTANT_AFD");
sonde = (e && *e == '0') ? 0 : 1;
}
if (!sonde || !g.sur_tch) {
return;
}
uint16_t etat = api_ram[(API_NDB + NDB_A_FD) / 2];
if ((etat & B_BLUD) && etat != prec) {
const uint8_t *d = (const uint8_t *)api_ram + API_NDB + NDB_A_FD + 6;
uint16_t mode = api_ram[(API_NDB + NDB_D_TCH_MODE) / 2];
bool fire = (etat & 0x0040) != 0; /* B_FIRE1 */
if (fire) ko++; else ok++;
noter_dl(fn, 1, etat, api_ram[(API_NDB + NDB_A_FD) / 2 + 2], d, 23);
if ((ok + ko) <= 60 || ((ok + ko) % 50) == 0) {
printf(" [a_fd] fn=%u fn%%13=%u etat=%04x BLUD=1 FIRE=%d d_tch_mode=%04x "
"L2=%02x %02x %02x %02x | ok=%lu ko=%lu\n",
fn, fn % 13u, etat, fire ? 1 : 0, mode, d[0], d[1], d[2], d[3], ok, ko);
}
}
prec = etat;
}
/* [2026-09-23] SONDE a_dd : LA PAROLE DESCENDANTE SUR TCH.
* Le firmware ne remonte une trame de parole au mobile (L1CTL_TRAFFIC_IND) que
* si a_dd_0[0] porte B_BLUD (prim_tch.c:322-327) ; GAPK ne code le montant
* qu'en reponse. Appel de 15:02 : 19 trames « parole UL » puis plus rien, alors
* que le pont decodait la parole de la BTS. Cette sonde dit si le DSP livre
* encore la parole descendante. Une ligne pour les 20 premieres, puis toutes
* les 100. MONTANT_ADD=0 la coupe.
*
* [2026-09-23] ko ne voyait rien sur la parole : 0x0040 est B_FIRE1, et le code
* de Fire ne protege que les canaux de controle. Run de 20:22 : 40 etats releves
* (c214, c204, 8084), ko=0, mais tous avec le bit 2 = B_BFI (l1_environment.h:272).
* Le firmware ne teste que B_BLUD (prim_tch.c:327) et ne remonte pas le BFI :
* GAPK decode les 33 octets tels quels. La sonde compte donc aussi le BFI et
* affiche a_dd_0[2], le nombre d'erreurs que la ROM rapporte (num_biterr cote
* firmware). */
static void sonde_add(uint16_t *api_ram, uint32_t fn)
{
static int sonde = -1;
static uint16_t prec;
static unsigned long vues, ko, bfi;
static uint32_t fn_dernier;
if (sonde < 0) {
const char *e = calypso_getenv("MONTANT_ADD");
sonde = (e && *e == '0') ? 0 : 1;
}
if (!sonde || !g.sur_tch) {
return;
}
uint16_t etat = api_ram[(API_NDB + NDB_A_DD_0) / 2];
if ((etat & B_BLUD) && etat != prec) {
bool fire = (etat & 0x0040) != 0;
bool mauvaise = (etat & 0x0004) != 0; /* B_BFI */
uint16_t erreurs = api_ram[(API_NDB + NDB_A_DD_0) / 2 + 2];
{
const uint16_t *w = &api_ram[(API_NDB + NDB_A_DD_0) / 2];
uint8_t fr[FR_BYTES];
for (int k = 0; k < FR_BYTES; k += 2) { /* octet fort d'abord, comme prendre_ul */
fr[k] = (uint8_t)(w[3 + k / 2] >> 8);
if (k + 1 < FR_BYTES) fr[k + 1] = (uint8_t)(w[3 + k / 2] & 0xff);
}
parole_ti_vers_fr(fr);
noter_dl(fn, 0, etat, erreurs, fr, FR_BYTES);
}
vues++;
if (fire) ko++;
if (mauvaise) bfi++;
if (vues <= 20 || vues % 100 == 0) {
printf(" [a_dd] fn=%u etat=%04x FIRE=%d BFI=%d err=%u (ecart %u trames) | vues=%lu ko=%lu bfi=%lu\n",
fn, etat, fire ? 1 : 0, mauvaise ? 1 : 0, erreurs, fn - fn_dernier, vues, ko, bfi);
}
fn_dernier = fn;
}
prec = etat;
}
bool montant_sur_tch(void)
{
return g.sur_tch;
}
static void publier_rach(uint8_t ra, uint8_t bsic, uint32_t fn)
{
static int fd = -2;
static uint32_t seq;
if (fd == -2) {
fd = sb_ouvrir(SHM_RACH, REC_RACH);
}
uint8_t buf[REC_RACH];
memset(buf, 0, sizeof(buf));
seq++;
memcpy(buf + 0, &seq, 4);
buf[4] = ra;
buf[5] = bsic;
memcpy(buf + 8, &fn, 4);
sb_ecrire(fd, buf, sizeof(buf), 0);
/* Une tentative d'acces, c'est une nouvelle connexion : la memoire de
* l'anti-doublon de la voie heuristique repart (sans effet sur la voie
* B_BLUD, qui n'en a pas besoin). */
g.sdcch_a_dernier = false;
if (g.rach++ < (unsigned long)journal())
printf(" [montant] RACH ra=0x%02x bsic=%u fn=%u -> %s\n", ra, bsic, fn, SHM_RACH);
}
/* ── LE Kc : LE PONT NE PEUT NI CHIFFRER NI DECHIFFRER SANS LUI ────────────
*
* [2026-09-22] Meme cause que tout ce fichier : sous CALYPSO_DSP_EXTERN=1 la
* couche 1 gr-gsm est desactivee, et c'etait ELLE qui publiait
* /dev/shm/calypso_kc_l1 (calypso_l1_grgsm.c, publish_kc). En montage DSP le
* fichier n'existait donc pas, `Cipher.current()` de pont.py rendait None, et
* `cipher.apply()` rendait le burst INCHANGE dans les deux sens -- releve sur
* le banc : « A5 dl=0 ul=0 » a chaque STATS.
*
* Ce que ca coutait, mesure du 2026-09-22 avec ENCRYPTION="a5 1" : la
* transaction allait jusqu'au bout de l'authentification en clair, puis
*
* 11:26:51 CIPHERING MODE COMMAND (sc=1, algo=A5/1 cr=1)
* 11:26:51 CIPHERING MODE COMPLETE (cr 1)
* 11:26:53 Dropping frame with 96 bit errors (et sans fin ensuite)
*
* -- la descente chiffree par la BTS que personne ne dechiffre, et la montee
* que personne ne chiffre. En « a5 0 » la meme transaction va au bout. Il n'y
* a pas non plus d'A5 dans le modele Calypso (`d_a5mode` n'existe que dans
* l1-grgsm/, rien dans l1-dsp/) : c'est bien au pont de le faire, comme il
* fait deja le codage de canal.
*
* Disposition reprise telle quelle de publish_kc() pour que pont/cipher.py
* (KC_RECLEN=32) la lise sans changement : seq(4) algo(1) longueur(1)
* Kc[8] 0xFF. Les quatre mots de a_kc sortent en gros-boutiste ET a l'envers,
* comme dans l'original -- on ne "corrige" pas une disposition que le lecteur
* attend.
*
* MONTANT_KC=0 coupe la publication. */
#define KC_RECLEN 32
#define KC_PUBLIER_TOUTES 22 /* trames entre deux scrutations, comme grgsm */
#define KC_GRACE_CLAIR 5 /* cf. publish_kc : le firmware efface d_a5mode
* a chaque DM_REL_REQ, y compris quand le Kc
* revient juste apres (Assignment Command),
* alors que la BTS, elle, chiffre toujours. */
/* Leve par montant_canal_libere() : la prochaine scrutation doit publier le
* retour en clair SANS attendre la grace. Voir publier_kc(). */
static bool g_kc_liberer;
static void publier_kc(uint16_t *api_ram)
{
static int actif = -1, fd = -1, tick, clair_en_attente;
static uint32_t seq;
static uint8_t dernier[KC_RECLEN];
static bool a_dernier;
if (actif < 0) {
const char *e = calypso_getenv("MONTANT_KC");
actif = (e && *e == '0') ? 0 : 1;
}
if (!actif) {
return;
}
/* [2026-09-22] LE CHANGEMENT DE MODE NE PEUT PAS ATTENDRE LA SCRUTATION.
* Version precedente : on ne lisait d_a5mode qu'une trame sur 22 (~128 ms).
* Or le mobile bascule des qu'il traite le CIPHERING MODE COMMAND et emet
* son CIPHERING MODE COMPLETE dans la foulee ; un bloc SDCCH montant tombe
* toutes les 51 trames. Ce bloc-la -- le PREMIER message chiffre du montant
* -- pouvait donc partir en clair alors que la BTS le dechiffrait deja.
* Releve du 2026-09-22, run de 11:49 :
* fn=2438 01 64 35 06 32 17 ... CIPHERING MODE COMPLETE
* fn=2591 01 74 35 06 32 17 ... LE MEME, retransmis (bit P)
* la BTS ne l'acquittait pas, LAPDm (fenetre de 1) restait bloque dessus,
* le TMSI REALLOCATION COMPLETE n'etait jamais emis et le MSC repondait
* LOCATION UPDATING REJECT alors que le mobile se croyait a jour.
* On lit donc d_a5mode a CHAQUE trame -- deux acces memoire -- et la
* scrutation complete n'est differee que tant que le mode ne change pas. */
uint16_t mode = api_ram[(API_NDB + NDB_D_A5MODE) / 2];
uint8_t mode_algo = (mode >= 1 && mode <= 3) ? (uint8_t)mode : 0;
bool bascule = (a_dernier && mode_algo != dernier[4]) || g_kc_liberer;
if (!bascule && ++tick < KC_PUBLIER_TOUTES) {
return;
}
tick = 0;
const uint16_t *kw = &api_ram[(API_NDB + NDB_A_KC) / 2];
uint8_t rec[KC_RECLEN] = {0};
bool nul = true;
for (int i = 0; i < 4; i++) {
rec[6 + 6 - 2 * i] = (uint8_t)(kw[i] >> 8);
rec[6 + 7 - 2 * i] = (uint8_t)(kw[i] & 0xFF);
}
for (int i = 6; i < 14; i++) {
if (rec[i]) {
nul = false;
}
}
uint8_t algo = (mode >= 1 && mode <= 3 && !nul) ? (uint8_t)mode : 0;
if (!algo) {
memset(rec + 6, 0, 8);
}
rec[4] = algo;
rec[5] = algo ? 8 : 0;
rec[14] = 0xFF;
if (a_dernier && !memcmp(dernier + 4, rec + 4, KC_RECLEN - 4)) {
clair_en_attente = 0;
/* [2026-09-22] Ce retour anticipe doit CONSOMMER g_kc_liberer, sinon la
* liberation reste armee indefiniment : chaque scrutation suivante
* calcule bascule=vrai, republie le meme enregistrement et incremente
* `seq`. Cote pont.py, un `seq` qui bouge veut dire « nouvelle cle » :
* il rechargeait sans fin une cle inchangee. */
g_kc_liberer = false;
return;
}
/* [2026-09-22] LA GRACE NE DOIT PAS SURVIVRE A LA LIBERATION DU CANAL.
* Elle vient de publish_kc() et sert au cas INTRA-connexion : le firmware
* efface d_a5mode a chaque DM_REL_REQ, y compris pendant un Assignment
* Command ou le Kc revient juste apres, alors que la BTS chiffre toujours.
* Mais entre DEUX connexions elle est nuisible : l'enregistrement algo=1
* restait lisible cinq scrutations de plus, et pont.py -- qui relache
* pourtant sa cle a chaque IMMEDIATE ASSIGNMENT (downlink.py) -- la
* relisait aussitot dans le fichier et la restaurait. Il chiffrait alors
* le montant de la connexion SUIVANTE des son premier bloc, pendant que le
* mobile emettait encore en clair.
* Mesure du 2026-09-22, run de 11:53 : « A5 dl=0 ul=200 » -- tout le
* montant chiffre, rien de descendant dechiffre -- et l'AUTHENTICATION
* RESPONSE (fn=2525, `05 14`) retransmise a fn=2729 faute d'acquittement.
* La liberation du canal est le bon signal, et il existe deja :
* montant_canal_libere(), appele sur PONT_DCCH genre 0xFF. */
if (!algo && a_dernier && dernier[4] && !g_kc_liberer &&
++clair_en_attente < KC_GRACE_CLAIR) {
return; /* chiffre -> clair : on attend, le Kc revient peut-etre */
}
clair_en_attente = 0;
g_kc_liberer = false;
if (fd < 0 && (fd = open(SHM_KC, O_WRONLY | O_CREAT, 0644)) < 0) {
actif = 0;
return;
}
seq++;
memcpy(rec, &seq, 4);
if (pwrite(fd, rec, sizeof rec, 0) != (ssize_t)sizeof rec) {
close(fd); fd = -1; seq--;
return;
}
memcpy(dernier, rec, sizeof rec);
a_dernier = true;
if (algo) {
printf(" [montant] chiffrement A5/%u : Kc publie vers %s (seq=%u)\n",
algo, SHM_KC, seq);
} else {
printf(" [montant] retour en clair (seq=%u)\n", seq);
}
fflush(stdout);
}
void montant_scruter(uint16_t *api_ram, uint32_t fn, unsigned page)
{
static int coupe = -1;
if (coupe < 0) {
const char *e = calypso_getenv("MONTANT");
coupe = (e && *e == '0') ? 1 : 0;
}
if (coupe || !api_ram) {
return;
}
/* Quelle page W porte les taches ? dsp_end_scenario() (firmware,
* calypso/dsp.c:471) ecrit d_dsp_page = B_GSM_TASK | w_page AVANT de
* basculer w_page : le mot du NDB est donc la source fraiche, y compris
* quand l1_sync() a tourne entre le TICK et le GO. L'argument `page` (le
* d_dsp_page que QEMU avait echantillonne au TICK) ne sert que de repli. */
uint16_t v_page = api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2];
bool taches = (v_page & B_GSM_TASK) != 0;
unsigned pg = taches ? ((v_page & B_GSM_PAGE) ? 1u : 0u) : (page & 1u);
{ /* [2026-09-23] SONDE CHIFFREMENT : chaque changement de d_a5mode ou de
* a_kc tel que l'ARM les laisse (NDB 0x1ce / 0x2ce), avec le tick. Le
* DSP chiffre et dechiffre lui-meme (calypso_a5.c) d'apres ces deux
* champs ; une remise a zero sur le TCH arrete le dechiffrement alors
* que la BTS chiffre toujours. */
static uint16_t a5_prec = 0xffff, kc_prec[4];
uint16_t a5 = api_ram[(API_NDB + 0x1ce) / 2];
const uint16_t *kc = &api_ram[(API_NDB + 0x2ce) / 2];
if (a5 != a5_prec || memcmp(kc, kc_prec, sizeof kc_prec)) {
printf(" [a5-arm] tick=%u d_a5mode=%u a_kc=%04x %04x %04x %04x%s\n", fn, a5, kc[0], kc[1], kc[2], kc[3],
g.sur_tch ? " (BSP sur le TCH)" : "");
fflush(stdout);
a5_prec = a5; memcpy(kc_prec, kc, sizeof kc_prec);
}
}
scruter_dcch(fn);
scruter_tch(fn); /* l'annonce du TCH par le pont */
suivre_tache_tch(api_ram, pg, taches, fn); /* la bascule, par le firmware */
sonde_dfn(api_ram, pg, taches, fn);
/* [2026-09-21] LE CANAL DEDIE SE LIBERE AUSSI QUAND L'ARM RECHERCHE LA
* SYNCHRO. Le tap L1CTL de QEMU n'annonce pas toujours la liberation ;
* mesure : /dev/shm/calypso_bsp_dedie a garde « tn=1 ss=0 » bien apres la
* fin de la communication. Le BSP continuait donc de remplacer TS0 sur les
* trames du canal -- et pour SS=0 ce sont fn%%51 = 0..3, or fn%%51=0 porte
* la FCCH et fn%%51=1 la SCH. Le mobile perdait sa synchro pour de bon :
* « FBSB RESP: result=255 » en boucle, d_fb_det=0, DSP parque.
*
* Une tache FB (5) ou SB (6) postee par l'ARM veut dire qu'il cherche la
* synchro sur TS0 : il n'est plus en mode dedie, quoi qu'en dise le tap.
* Ce signal-la vient du firmware lui-meme. */
{
uint16_t md0 = api_ram[(API_W_PAGE(0) + WP_D_TASK_MD) / 2] & 0xff;
uint16_t md1 = api_ram[(API_W_PAGE(1) + WP_D_TASK_MD) / 2] & 0xff;
bool cherche_synchro = (md0 == FB_DSP_TASK || md0 == SB_DSP_TASK ||
md1 == FB_DSP_TASK || md1 == SB_DSP_TASK);
if (g.dedie_arme && cherche_synchro) {
printf(" [montant] tache %s postee : le mobile cherche la synchro, "
"canal dedie libere (TS0 rendu au FCCH/SCH)\n",
(md0 == FB_DSP_TASK || md1 == FB_DSP_TASK) ? "FB" : "SB");
g.dedie_arme = false;
g.sur_tch = false;
g.sd_valide = false;
calypso_bsp_set_dedie(0, 0xFF, 0);
montant_canal_libere();
}
}
sonde_afd(api_ram, fn);
sonde_add(api_ram, fn);
/* [2026-09-21] QUI RATE, ET QUAND. La descente dediee perd environ un bloc
* sur deux (« Dropping frame with 110 bit errors », fire_crc >= 2 cote
* layer23) alors que pont decode les MEMES blocs sans une seule erreur
* (TS1/0:38/0 TS1/32:14/0) et que le BSP livre tous les bursts
* (manques=0). C'est donc la demodulation dans la ROM qui flanche, pas la
* plomberie. Cette sonde donne le verdict bloc par bloc : le mot d'etat de
* a_cd (bit 15 = bloc present, bit 6 = erreur de Fire) avec la trame et sa
* position dans la multitrame, de quoi voir si l'echec suit le SDCCH, la
* SACCH, ou une position particuliere. MONTANT_ACD=0 la coupe. */
{
static int sonde = -1;
if (sonde < 0) { const char *e = calypso_getenv("MONTANT_ACD"); sonde = (e && *e == '0') ? 0 : 1; }
if (sonde && g.dedie_arme) {
static uint16_t prec;
static unsigned long ok, ko;
uint16_t etat = api_ram[(API_NDB + NDB_A_CD) / 2];
if ((etat & B_BLUD) && etat != prec) {
const uint8_t *d = (const uint8_t *)api_ram + API_NDB + NDB_A_CD + 6;
bool fire = (etat & 0x0040) != 0;
if (fire) ko++; else ok++;
if ((ok + ko) <= 60 || ((ok + ko) % 50) == 0) {
printf(" [a_cd] fn=%u p51=%u p102=%u etat=%04x %s "
"L2=%02x %02x %02x %02x | ok=%lu ko=%lu\n",
fn, fn % 51u, fn % 102u, etat, fire ? "FIRE KO" : "ok",
d[0], d[1], d[2], d[3], ok, ko);
}
}
prec = etat;
}
}
uint16_t *wp = &api_ram[API_W_PAGE(pg) / 2];
uint16_t task_u = taches ? wp[WP_D_TASK_U / 2] : 0;
uint16_t task_ra = wp[WP_D_TASK_RA / 2];
uint16_t d_rach = api_ram[(API_NDB + NDB_D_RACH) / 2];
/* RACH : la tache, pas la valeur.
*
* [2026-09-21, mesure sur le banc reel] Le mot NDB d_rach (octet 0x474
* cote ARM) est AUSSI de la memoire du C54x (data[0x0A3A]) : la ROM y
* laisse du residu. Echantillonnage a 4 ms pendant 90 s, une ligne par
* changement :
*
* d_rach W0.task_ra W1.task_ra occurrences
* 0xfe00 0x0000 0x0000 3219 <- residu de la ROM
* 0x0d54 0x000a 0x0000 1 <- vraie tentative
* 0x0954 0x0000 0x000a 1 <- vraie tentative
* 0x0c54 0x0000 0x000a 1 <- vraie tentative
*
* Declencher sur la valeur de d_rach publiait donc un access-burst bidon
* (ra=0xfe, bsic=0) a chaque demarrage. Le signal juste est d_task_ra :
* prim_rach.c:77 y ecrit dsp_task_iq_swap(RACH_DSP_TASK=10, arfcn, 1) au
* moment ou il pose la RA, et rien d'autre ne vaut 10. On efface le mot
* apres publication (comme qosmo-dsp/calypso_trx.c:1955) : le firmware ne
* le relit jamais (seuls prim_rach.c:77 et sync.c:307 l'ecrivent) et c'est
* ce qui donne un front propre a la tentative suivante.
*
* MONTANT_RACH_SUR_DRACH=1 retablit l'ancien declencheur (transition de
* d_rach, premiere valeur prise comme reference) pour le cas ou quelque
* chose consommerait d_task_ra avant cette scrutation. */
static int sur_drach = -1;
if (sur_drach < 0) {
const char *e = calypso_getenv("MONTANT_RACH_SUR_DRACH");
sur_drach = (e && *e == '1') ? 1 : 0;
}
bool tache_rach = ((task_ra & 0x7fffu) == RACH_DSP_TASK);
bool front_valeur = false;
if (!g.base_rach) {
g.base_rach = true;
g.prev_rach = d_rach;
} else if (d_rach != g.prev_rach) {
front_valeur = (d_rach != 0);
g.prev_rach = d_rach;
}
if (d_rach != 0 && (tache_rach || (sur_drach && front_valeur)) &&
(!g.rach_vu || (uint32_t)(fn - g.fn_rach) >= RACH_GARDE_TRAMES)) {
publier_rach((uint8_t)(d_rach >> 8), (uint8_t)((d_rach & 0xff) >> 2), fn);
g.prev_rach = d_rach;
g.fn_rach = fn;
g.rach_vu = true;
if (g.rach <= (unsigned long)journal())
printf(" [montant] declencheur : %s (task_ra=0x%04x d_rach=0x%04x)\n",
tache_rach ? "d_task_ra=RACH_DSP_TASK" : "transition de d_rach",
task_ra, d_rach);
static int consomme = -1;
if (consomme < 0) {
const char *e = calypso_getenv("MONTANT_CONSOMME_RACH");
consomme = (e && *e == '1') ? 1 : 0;
}
if (consomme) {
api_ram[(API_NDB + NDB_D_RACH) / 2] = 0;
g.prev_rach = 0;
}
if (task_ra) {
wp[WP_D_TASK_RA / 2] = 0; /* comme qosmo-dsp/calypso_trx.c:1955 */
}
}
/* SDCCH / SACCH / FACCH / parole : meme aiguillage que la couche 1 gr-gsm. */
if (task_u != 0 && !capture_tch_ul(api_ram, task_u, fn)) {
capture_sdcch_ul(api_ram, task_u, fn);
}
publier_kc(api_ram);
}
/* Le canal dedie vient d'etre libere (PONT_DCCH, genre 0xFF) : la memoire de
* l'anti-doublon doit repartir a zero, sinon le SABM de la connexion SUIVANTE,
* octet pour octet identique au precedent, serait pris pour un doublon et ne
* partirait jamais. */
void montant_canal_libere(void)
{
g.sdcch_a_dernier = false;
g_kc_liberer = true; /* le Kc de CETTE connexion ne vaut plus rien */
}
void montant_bilan(void)
{
if (g.rach || g.sdcch || g.facch || g.sacch || g.parole) {
printf(" montant publie : RACH %lu, SDCCH %lu, FACCH %lu, SACCH %lu, parole %lu\n",
g.rach, g.sdcch, g.facch, g.sacch, g.parole);
} else {
printf(" montant : rien publie (aucun d_rach ni d_task_u vu dans l'API RAM)\n");
}
}9.13 /opt/GSM/c54x_exe/src/montant.h
832 octets, 25 lignes → 25 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* montant.h - le lien montant du montage DSP (RACH, SDCCH, SACCH, FACCH, parole).
*/
#ifndef C54X_EXE_MONTANT_H
#define C54X_EXE_MONTANT_H
#include <stdint.h>
#include <stdbool.h>
/* A appeler une fois par trame, apres que l'ARM a rendu la main (fin de
* scenario : d_dsp_page ecrit, taches posees dans la page W). `page` est le
* bit 0 de d_dsp_page, celui que QEMU transporte deja dans PONT_TICK.m.b. */
void montant_scruter(uint16_t *api_ram, uint32_t fn, unsigned page);
/* Le canal dedie est libere : oublier le dernier bloc SDCCH publie. */
void montant_canal_libere(void);
/* Une ligne de bilan en fin de session. */
void montant_bilan(void);
/* Vrai tant que le BSP joue l'intervalle du TCH (bascule suivie par le firmware). */
bool montant_sur_tch(void);
#endif9.14 /opt/GSM/c54x_exe/src/pcb-minimal.c
1380 octets, 44 lignes → 44 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* The four DARAM helpers of calypso_full_pcb.c, copied verbatim.
*
* calypso_full_pcb.c as a whole does not build outside QEMU: it includes
* hw/core/cpu.h and all of QEMU behind it. The helpers the DSP needs do not
* depend on any of that - one mutex and two array accesses - so they are copied
* word for word from qosmo-dsp/hw/arm/calypso/calypso_full_pcb.c.
*
* This is the only copy in this binary: if the original changes, this file lies.
* It goes away once calypso_full_pcb.c is decoupled from C54xState.
*/
#include "qemu/osdep.h"
#include "qemu/thread.h"
#include "calypso_c54x.h"
extern QemuMutex calypso_pcb_daram_lock;
uint16_t calypso_dsp_daram_read(void *dsp_void, uint16_t addr)
{
C54xState *dsp = (C54xState *)dsp_void;
qemu_mutex_lock(&calypso_pcb_daram_lock);
uint16_t v = dsp->data[addr];
qemu_mutex_unlock(&calypso_pcb_daram_lock);
return v;
}
void calypso_dsp_daram_write(void *dsp_void, uint16_t addr, uint16_t val)
{
C54xState *dsp = (C54xState *)dsp_void;
qemu_mutex_lock(&calypso_pcb_daram_lock);
dsp->data[addr] = val;
qemu_mutex_unlock(&calypso_pcb_daram_lock);
}
void calypso_pcb_daram_lock_acquire(void)
{
qemu_mutex_lock(&calypso_pcb_daram_lock);
}
void calypso_pcb_daram_lock_release(void)
{
qemu_mutex_unlock(&calypso_pcb_daram_lock);
}9.15 /opt/GSM/c54x_exe/src/pont.c
103475 octets, 1741 lignes → 1739 lignes (2 groupes compactés)
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* pont.c - server side of the ARM/DSP bridge.
*
* The ARM (osmocom-bb layer1) runs under QEMU (qosmo, CALYPSO_DSP_EXTERN=1);
* the C54x runs in this process. Both share the API RAM through
* /dev/shm/calypso_api_ram and lock step frame by frame over
* /tmp/calypso_dsp.sock. The per-frame sequence below mirrors, section by
* section, what qosmo-dsp/hw/arm/calypso/calypso_trx.c:calypso_tdma_tick()
* does with its internal DSP; divergences between the two originate here.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <stdint.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include <fcntl.h>
#include <poll.h>
#include <signal.h>
#include <sys/mman.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <math.h>
#include <sys/stat.h>
#include "calypso_c54x.h"
#include "calypso_dma.h"
#include "calypso_bsp.h"
#include "calypso_twl3025.h"
#include "calypso_rhea_dma.h"
#include "calypso_rif.h"
#include "hw/arm/calypso/calypso_api.h"
#include "hw/arm/calypso/calypso_dsp_pont.h"
#include "pont.h"
#include "calypso_gmsk.h"
#include "cellule.h"
#include "montant.h"
#include "hw/arm/calypso/calypso_debug.h"
extern int g_toa_grille, g_toa_valeur; /* c54x_mem.c : provenance du TOA */
extern uint32_t g_c54x_exe_fn; /* main.c: value returned by calypso_trx_get_fn() */
static volatile sig_atomic_t g_stop;
static void sur_signal(int sig) { (void)sig; g_stop = 1; }
C54xState *pont_allouer_dsp(void)
{
/* Shift the start of the struct so that data[] lands on a page boundary,
* and therefore data[C54X_API_BASE] too: the API window must be mmap-able
* with MAP_FIXED. */
size_t off = offsetof(C54xState, data) % 4096;
size_t decal = off ? 4096 - off : 0;
void *brut = NULL;
if (posix_memalign(&brut, 4096, sizeof(C54xState) + 4096) != 0) {
fprintf(stderr, "pont : posix_memalign\n");
return NULL;
}
memset(brut, 0, sizeof(C54xState) + 4096);
C54xState *s = (C54xState *)((char *)brut + decal);
uint16_t *fenetre = &s->data[C54X_API_BASE];
if (((uintptr_t)fenetre & 4095) != 0) {
fprintf(stderr, "pont : fenetre API non alignee (%p)\n", (void *)fenetre);
return NULL;
}
int fd = shm_open(CALYPSO_PONT_SHM, O_RDWR | O_CREAT, 0666);
if (fd < 0) {
fprintf(stderr, "pont : shm_open(%s) : %s\n", CALYPSO_PONT_SHM, strerror(errno));
return NULL;
}
if (ftruncate(fd, CALYPSO_PONT_SHM_BYTES) < 0) {
fprintf(stderr, "pont : ftruncate : %s\n", strerror(errno));
close(fd);
return NULL;
}
void *map = mmap(fenetre, CALYPSO_PONT_SHM_BYTES, PROT_READ | PROT_WRITE,
MAP_SHARED | MAP_FIXED, fd, 0);
close(fd);
if (map == MAP_FAILED || map != (void *)fenetre) {
fprintf(stderr, "pont : mmap MAP_FIXED : %s\n", strerror(errno));
return NULL;
}
memset(fenetre, 0, CALYPSO_PONT_SHM_BYTES);
return s;
}
static bool envoyer(int fd, uint32_t type, uint32_t a, uint32_t b)
{
CalypsoPontMsg m = { type, a, b };
return send(fd, &m, sizeof(m), MSG_NOSIGNAL) == (ssize_t)sizeof(m);
}
/* PC profile: c54x_run is driven in slices of 64 instructions and the PC
* sampled between two slices is charged to a 64-word bucket. No sampling
* thread, no cost. Published every 217 frames. */
#define PROFIL_SEAU 64
static unsigned long g_profil[0x10000 / PROFIL_SEAU];
static uint32_t g_profil_hw; /* high-water mark: highest PC seen (boot excluded) */
/* Trace window: PONT_TRACE_FB=N logs the next N instructions (pc, opcode, A,
* AR3, DP, INTM, IMR/IFR) to /tmp/c54x-pont/trace-fb.txt, starting at the
* first frame whose write page carries d_task_md=5 (FB_DSP_TASK). Exact
* single-stepping (c54x_run with n=1). */
static long g_trace_reste = -1;
static FILE *g_trace_f;
static bool g_trace_ouverte;
static uint32_t g_trace_pc_lo, g_trace_pc_hi; /* PONT_TRACE_PC=lo-hi: open the trace when PC enters [lo,hi] */
static void trace_armer(void)
{
static bool fait;
if (fait) return;
fait = true;
const char *e = calypso_getenv("PONT_TRACE_FB");
const char *r = calypso_getenv("PONT_TRACE_PC");
if (e && *e) { g_trace_reste = atol(e); g_trace_f = fopen("/tmp/c54x-pont/trace-fb.txt", "w"); }
if (r && *r) {
char *fin = NULL; g_trace_pc_lo = (uint32_t)strtoul(r, &fin, 0);
g_trace_pc_hi = (fin && *fin == '-') ? (uint32_t)strtoul(fin + 1, NULL, 0) : g_trace_pc_lo;
if (g_trace_reste <= 0) g_trace_reste = 4000;
if (!g_trace_f) g_trace_f = fopen("/tmp/c54x-pont/trace-fb.txt", "w");
}
}
/* DARAM cells watched during the trace: every change is logged with the PC of
* the instruction that made it (before/after diff on each step). */
/* Cells watched during the trace. Rebuilt [2026-09-19]: the previous list had
* accreted 13 addresses (0x3fc1 0x3fde 0x3fd3 0x0c3f 0x0906 0x058a 0x0e60
* 0x435b 0x0e4f 0x2a01 ...) that appear NOWHERE else in the tree and whose
* introducing commit (812c343) says only "commit". An address whose meaning
* cannot be restated is not evidence: when it moves, nothing follows. Every
* entry below carries where its meaning comes from.
*
* API window cells are derived from calypso_api.h rather than written raw, so
* they cannot drift from the map: API base = C54X_API_BASE = 0x0800 words, and
* the API_* offsets are in BYTES (hence the /2). */
#define CEL_W(p, off) (uint16_t)(C54X_API_BASE + (API_W_PAGE(p) + (off)) / 2)
#define CEL_R(p, off) (uint16_t)(C54X_API_BASE + (API_R_PAGE(p) + (off)) / 2)
#define CEL_NDB(off) (uint16_t)(C54X_API_BASE + (API_NDB + (off)) / 2)
static const uint16_t g_cellules[] = {
/* --- ARM -> DSP pages (calypso_api.h) ------------------------------- */
CEL_W(0, WP_D_TASK_MD), CEL_W(1, WP_D_TASK_MD), /* 0x0804/0x0818 the posted task */
CEL_W(0, WP_D_TASK_D), CEL_W(1, WP_D_TASK_D), /* 0x0800/0x0814 */
CEL_W(0, WP_D_FN), CEL_W(1, WP_D_FN), /* 0x0808/0x081c */
/* --- NDB (calypso_api.h + calypso_fbsb.h) --------------------------- */
CEL_NDB(NDB_D_DSP_PAGE), /* 0x08d4 page toggle */
CEL_NDB(NDB_D_FB_DET), /* 0x08f8 FB found flag */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_TOA), /* 0x08fa */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_PM), /* 0x08fb */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_ANGLE), /* 0x08fc <- was MISSING */
CEL_NDB(NDB_A_SYNC_DEMOD + 2 * D_SNR), /* 0x08fd <- was MISSING */
/* --- DSP -> ARM pages: a_sch[0,1,3,4], BOTH pages -------------------- */
CEL_R(0, RP_A_SCH + 0), CEL_R(0, RP_A_SCH + 2),
CEL_R(0, RP_A_SCH + 6), CEL_R(0, RP_A_SCH + 8), /* 0x0837 38 3a 3b */
CEL_R(1, RP_A_SCH + 0), CEL_R(1, RP_A_SCH + 2),
CEL_R(1, RP_A_SCH + 6), CEL_R(1, RP_A_SCH + 8), /* 0x084b 4c 4e 4f */
/* --- FB correlator input, read out of the mask ROM [2026-09-19] ------ */
0x3fb5, /* pointer to the input buffer; PROM0 0xb2c4 ST #0x0cce,*(0x3fb5)
* and 0xb2c9 ST #0x0d2e,*(0x3fb5) */
0x0cce, /* buffer A, same two instructions; also the AAD the DMA uses */
0x0d2e, /* buffer B, idem */
0x0e4e, /* second DARAM target seen in the rhea-dma RX transfers */
0x2a00, /* CALYPSO_BSP_DARAM_ADDR env default, before AAD_FOLLOW */
/* --- cells whose meaning is stated elsewhere in the tree ------------- */
0x3f92, /* calypso_dma.h:9 source of d_error_status (0x08d5) */
0x43d8, /* calypso_bsp.c:1567 poked per burst on the FB/SB mission */
0x43d5, /* c54x_mem.c:2229 PROM 0xb4be stm #0x43d5 ; reada *AR1+ */
0x098c, /* calypso_mailbox.c:46 mailbox poll (0xde86 ld *(0x098c)) */
0x435e, /* calypso_c54x.c:4574 bit13 = DMA config lock */
0x4368, /* c54x_mem.c:1835 DISPATCH-CELL-RESEED */
0x3fb0, /* c54x_probes.c:505 BSP read window 0x3fb0..0x3fbf */
0x0000 };
#define N_CELLULES (sizeof(g_cellules) / sizeof(g_cellules[0]))
static uint16_t g_cell_prev[N_CELLULES];
static uint16_t g_trace_pc_prev;
static void trace_cellules(C54xState *dsp, bool init)
{
for (unsigned i = 0; i < N_CELLULES; i++) {
uint16_t v = dsp->data[g_cellules[i]];
if (!init && v != g_cell_prev[i] && g_trace_f)
fprintf(g_trace_f, " W data[%04x] %04x -> %04x (par pc=%04x)\n",
g_cellules[i], g_cell_prev[i], v, g_trace_pc_prev);
g_cell_prev[i] = v;
}
}
static inline void trace_pas(C54xState *dsp)
{
if (g_trace_reste <= 0 || !g_trace_f || !g_trace_ouverte) return;
trace_cellules(dsp, false);
g_trace_pc_prev = dsp->pc & 0xffff;
uint16_t op = dsp->prog[dsp->pc & 0x3ffff];
uint16_t op2 = dsp->prog[(dsp->pc + 1) & 0x3ffff];
fprintf(g_trace_f, "%04x %04x %04x A=%010llx B=%010llx AR1=%04x AR2=%04x AR3=%04x AR4=%04x DP=%03x INTM=%d IMR=%04x IFR=%04x SP=%04x T=%04x BRC=%04x RSA=%04x REA=%04x ST0=%04x ST1=%04x insn=%u\n",
dsp->pc & 0xffff, op, op2,
(unsigned long long)(dsp->a & 0xffffffffffULL), (unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->ar[1], dsp->ar[2], dsp->ar[3], dsp->ar[4], dsp->st0 & 0x1ff, !!(dsp->st1 & 0x800),
dsp->imr, dsp->ifr, dsp->sp, dsp->t, dsp->brc, dsp->rsa, dsp->rea, dsp->st0, dsp->st1, dsp->insn_count);
if (--g_trace_reste == 0) { fclose(g_trace_f); g_trace_f = NULL; printf("pont : trace FB terminee (/tmp/c54x-pont/trace-fb.txt)\n"); }
}
/* PONT_PC_COUNT=pc1,pc2,... : exact hit counters, published with the profile.
* Forces single-stepping, about 3x slower; diagnostic use only. */
static uint16_t g_pcc[16]; static unsigned long g_pcc_n[16]; static int g_pcc_k = -1;
static void pcc_armer(void)
{
if (g_pcc_k >= 0) return;
g_pcc_k = 0;
const char *e = calypso_getenv("PONT_PC_COUNT");
while (e && *e && g_pcc_k < 16) {
char *fin = NULL; long v = strtol(e, &fin, 0);
if (fin == e) break;
g_pcc[g_pcc_k++] = (uint16_t)v;
e = (*fin == ',') ? fin + 1 : fin;
}
}
/* PONT_DUMP_DATA=addr:n,addr:n : DARAM words printed along with the profile. */
static void dump_publier(C54xState *dsp)
{
const char *e = calypso_getenv("PONT_DUMP_DATA");
while (e && *e) {
char *fin = NULL; long a = strtol(e, &fin, 0); long n = 8;
if (fin == e) break;
if (*fin == ':') n = strtol(fin + 1, &fin, 0);
printf(" data[%04lx..] :", a);
for (long i = 0; i < n && i < 32; i++) printf(" %04x", dsp->data[(a + i) & 0xffff]);
printf("\n");
e = (*fin == ',') ? fin + 1 : fin;
}
}
static void pcc_publier(void)
{
if (g_pcc_k <= 0) return;
printf(" passages exacts :");
for (int i = 0; i < g_pcc_k; i++) { printf(" %04x:%lu", g_pcc[i], g_pcc_n[i]); g_pcc_n[i] = 0; }
printf("\n");
}
static int c54x_run_profile(C54xState *dsp, int budget)
{
int fait = 0;
pcc_armer();
while (fait < budget && !dsp->idle && dsp->running) {
int n = budget - fait < PROFIL_SEAU ? budget - fait : PROFIL_SEAU;
static long minfn = -1;
if (minfn < 0) { const char *e = calypso_getenv("PONT_TRACE_MINFN"); minfn = (e && *e) ? atol(e) : 0; }
if (g_trace_reste > 0 && !g_trace_ouverte && g_trace_pc_hi && (long)g_c54x_exe_fn >= minfn &&
(dsp->pc & 0xffff) >= g_trace_pc_lo && (dsp->pc & 0xffff) <= g_trace_pc_hi && g_trace_f) {
g_trace_ouverte = true;
trace_cellules(dsp, true);
fprintf(g_trace_f, "# PC=%04x dans [%04x,%04x] a fn=%u ; IMR=%04x IFR=%04x\n",
dsp->pc & 0xffff, g_trace_pc_lo, g_trace_pc_hi, g_c54x_exe_fn, dsp->imr, dsp->ifr);
printf("pont : trace ouverte sur PC=%04x fn=%u\n", dsp->pc & 0xffff, g_c54x_exe_fn);
}
if (g_trace_reste > 0 && g_trace_ouverte) n = 1;
if (g_pcc_k > 0) {
n = 1;
uint16_t pc = dsp->pc & 0xffff;
for (int i = 0; i < g_pcc_k; i++) if (g_pcc[i] == pc) g_pcc_n[i]++;
}
if (n == 1) trace_pas(dsp);
/* Budget accounting uses the count c54x_run returns, not the insn_count
* delta: RPT iterations do not bump insn_count, so a step or a whole
* bucket landing inside a several-hundred-iteration "rpt *(lk); nop"
* reads as a stalled DSP and aborts the frame mid-ISR. */
int ex = c54x_run(dsp, n);
fait += ex;
g_profil[(dsp->pc & 0xffff) / PROFIL_SEAU]++;
if ((dsp->pc & 0xffff) > g_profil_hw) g_profil_hw = dsp->pc & 0xffff;
if (ex <= 0) break;
}
return fait;
}
static void profil_publier(void)
{
unsigned long tot = 0; unsigned n = 0;
for (unsigned i = 0; i < 0x10000 / PROFIL_SEAU; i++) tot += g_profil[i];
if (!tot) return;
printf(" profil PC (%lu tranches, high-water 0x%04x) :", tot, g_profil_hw);
/* the 12 hottest buckets, in decreasing order */
for (int k = 0; k < 12; k++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 0x10000 / PROFIL_SEAU; i++)
if (g_profil[i] > bv) { bv = g_profil[i]; best = i; }
if (!bv) break;
printf(" %04x:%lu%%", best * PROFIL_SEAU, bv * 100 / tot);
g_profil[best] = 0; n++;
}
printf("\n");
memset(g_profil, 0, sizeof(g_profil)); g_profil_hw = 0;
}
/* One TDMA frame, in the order calypso_tdma_tick() uses: DMA tick, then boot
* (run to the first IDLE) while init is pending, then the TPU-frame interrupt
* if IMR arms it followed by one run budget. Returns the PONT_DONE flags and
* the executed instruction count in *insns. */
/* [2026-09-20] MID-FRAME INJECTION (PONT_RX_MODE=milieu, the default). The ROM
* arms DMA2 in its frame ISR and the receiver only keeps samples while a
* window is open (calypso_rif: no window, no sample). Delivering the burst
* AFTER the frame's run (the old PONT_RX_APRES=1) found the channel closed on
* most frames: measured 13 transfers on one frame in six, the FB block counter
* starved, TOA = 1251 for an FCCH four frames away. The replay bench delivers
* after a short slice of the frame, once the ISR has armed; the bridge now does
* the same: budget/8, inject (synthetic cell and UDP bursts), then the rest. */
static bool g_tick_irq_trame = true; /* TICK.b bit 16 : l'ARM a arme l'interruption trame du DSP */
static struct { bool actif; const char *iq_mode; int amp; uint32_t fn; unsigned long *injectes; bool udp; char dernier_type; int dernier_n_iq; } g_inj;
static void injecter_burst(C54xState *dsp, const char *iq_mode, int amp, uint32_t fn, unsigned long *injectes);
uint16_t prog_fetch(C54xState *s, uint16_t pc);
static unsigned g_flags_entree; static uint16_t g_data_avant_b[C54X_DATA_SIZE];
static uint16_t g_snap_2be2[148]; static int g_snap_ok;
static uint16_t g_snap_2a00[456]; static int g_snap_2a00_ok;
#define s_or_dsp_st0(d) ((d)->st0)
static int16_t g_dernier_iq[2 * 256]; static int g_dernier_n_iq;
static uint16_t g_daram_apres_dma[384]; static uint16_t g_daram_aad;
/* phase : 0 = whole frame ; 1 = frame ISR only, up to the arming of the RX
* window (then DONE|PHASE_A and wait for PONT_GO) ; 2 = burst delivery and
* the rest of the frame. See CALYPSO_PONT_TICK_DEUX_PHASES. */
/* [2026-09-23] ENREGISTREUR DU TCH (cote ARM). Les ecritures de l ARM dans
* l API RAM, par difference avec l instantane pris quand le DSP a rendu la
* main : 'A', tick BE32, fenetre (0 = avant le TICK, 1 = entre phase A et GO),
* nombre BE16, puis (mot BE16, valeur BE16). Et a chaque TICK : 'T', tick BE32,
* drapeaux (bit0 irq trame, bit1 deux phases), budget BE32. Meme fichier que
* les livraisons d I/Q du BSP (calypso_bsp_enreg_fichier), meme garde : TCH
* actif, CALYPSO_REJEU_ENREG=0 coupe. Rejoue par tools/rejeu_banc.c. */
static uint16_t g_enreg_api[CALYPSO_API_WORDS];
static bool g_enreg_api_ok;
static void enreg_api_prendre(const uint16_t *api_ram)
{
memcpy(g_enreg_api, api_ram, sizeof g_enreg_api);
g_enreg_api_ok = true;
}
static void enreg_api_diff(const uint16_t *api_ram, uint32_t tick, int fenetre)
{
FILE *f = calypso_bsp_enreg_fichier();
if (!f || !g_enreg_api_ok) return;
static uint8_t buf[8 + 4 * CALYPSO_API_WORDS];
unsigned n = 0;
for (unsigned i = 0; i < CALYPSO_API_WORDS; i++) {
if (api_ram[i] == g_enreg_api[i]) continue;
uint8_t *q = buf + 8 + 4 * n++;
q[0] = i >> 8; q[1] = i; q[2] = api_ram[i] >> 8; q[3] = api_ram[i];
}
buf[0] = 'A'; buf[1] = tick >> 24; buf[2] = tick >> 16; buf[3] = tick >> 8; buf[4] = tick;
buf[5] = (uint8_t)fenetre; buf[6] = n >> 8; buf[7] = n;
fwrite(buf, 1, 8 + 4 * n, f);
fflush(f);
}
/* Etat de depart, une fois, au premier TICK enregistre (DSP rendu, au repos) :
* 'S' API RAM complete, 'D' registres puis memoire de donnees du C54x. */
typedef struct {
int64_t a, b; uint16_t ar[8], t, trn, sp, bk, brc, rsa, rea, st0, st1, pmst, imr, ifr, xpc;
uint32_t pc; uint8_t idle, running;
} EnregRegs;
static void enreg_base(FILE *f, const C54xState *dsp, const uint16_t *api_ram, uint32_t tick)
{
uint8_t h[5] = { 'S', tick >> 24, tick >> 16, tick >> 8, tick };
fwrite(h, 1, 5, f);
fwrite(api_ram, sizeof(uint16_t), CALYPSO_API_WORDS, f);
EnregRegs r = { .a = dsp->a, .b = dsp->b, .t = dsp->t, .trn = dsp->trn, .sp = dsp->sp, .bk = dsp->bk,
.brc = dsp->brc, .rsa = dsp->rsa, .rea = dsp->rea, .st0 = dsp->st0, .st1 = dsp->st1,
.pmst = dsp->pmst, .imr = dsp->imr, .ifr = dsp->ifr, .xpc = dsp->xpc, .pc = dsp->pc,
.idle = dsp->idle, .running = dsp->running };
memcpy(r.ar, dsp->ar, sizeof r.ar);
h[0] = 'D';
fwrite(h, 1, 5, f);
fwrite(&r, sizeof r, 1, f);
fwrite(dsp->data, sizeof(uint16_t), C54X_DATA_SIZE, f);
}
static void enreg_tick(const C54xState *dsp, const uint16_t *api_ram, uint32_t tick, bool irq, bool deux, long budget)
{
FILE *f = calypso_bsp_enreg_fichier();
if (!f) return;
static bool base;
if (!base) { base = true; enreg_base(f, dsp, g_enreg_api_ok ? g_enreg_api : api_ram, tick); }
uint8_t h[10] = { 'T', tick >> 24, tick >> 16, tick >> 8, tick, (uint8_t)((irq ? 1 : 0) | (deux ? 2 : 0)),
(uint8_t)(budget >> 24), (uint8_t)(budget >> 16), (uint8_t)(budget >> 8), (uint8_t)budget };
fwrite(h, 1, sizeof h, f);
}
/* [2026-09-23] LE DSP ET L'ARM EN PARALLELE (PONT_DONE_TOT, 1 par defaut).
* En pas-a-pas, une trame coutait la SOMME de QEMU (l'ARM) et du C54x : sur un
* TCH le DSP monte a ~4 ms par trame (demodulation, Viterbi, parole), QEMU en
* prend ~2, et le banc tombait a 174 trames/s au lieu de 216,7 -- la parole
* arrivait a 40 trames/s pour un ALSA a 50 : echo test qui « part en live ».
* Sur silicium l'ARM et le DSP tournent en meme temps et l'ARM ne relit les
* resultats qu'a la trame suivante. On renvoie donc PONT_DONE des le burst
* depose, et on finit la trame (reste du budget, pompe DMA, montant, sondes)
* pendant que QEMU avance ; le TICK suivant attend dans la socket. Une trame
* coute alors le plus long des deux, pas leur somme. Seul effet de bord :
* PONT_DONE_API_IRQ n'est plus connu au moment du DONE (jamais leve sur ce
* banc : irq=0 dans tous les bilans). PONT_DONE_TOT=0 retablit l'ancien ordre. */
static int g_done_tot = -1;
static int g_reste_b;
/* [2026-09-23] CHRONO PAR TRAME : ou passe une trame du banc, en ms moyennes,
* imprime toutes les 1000 trames (« [chrono] »). qemu = attente du TICK apres
* le DONE (l'ARM), A = phase A DSP, go = attente du GO (l1_sync de l'ARM),
* B = phase B jusqu'au DONE, apres = fin de trame DSP apres le DONE. */
#include <time.h>
static double chrono_ms(void) { struct timespec t; clock_gettime(CLOCK_MONOTONIC, &t); return t.tv_sec * 1e3 + t.tv_nsec / 1e6; }
static struct { double t_fin, qemu, a, go, b, apres; unsigned n; } g_chrono;
static void chrono_trame(double t_tick, double t_done_a, double t_go, double t_done, double t_fin, uint32_t fn)
{
if (g_chrono.t_fin > 0) g_chrono.qemu += t_tick - g_chrono.t_fin;
g_chrono.a += t_done_a - t_tick; g_chrono.go += t_go - t_done_a;
g_chrono.b += t_done - t_go; g_chrono.apres += t_fin - t_done;
g_chrono.t_fin = t_fin;
if (++g_chrono.n == 1000) {
double k = 1.0 / g_chrono.n;
printf(" [chrono] fn=%u sur 1000 trames (ms) : qemu %.2f | A %.2f | go %.2f | B %.2f | apres DONE %.2f "
"| trame %.2f (temps reel 4.62)\n", fn, g_chrono.qemu * k, g_chrono.a * k, g_chrono.go * k,
g_chrono.b * k, g_chrono.apres * k,
(g_chrono.qemu + g_chrono.a + g_chrono.go + g_chrono.b + g_chrono.apres) * k);
fflush(stdout);
double tf = g_chrono.t_fin; memset(&g_chrono, 0, sizeof g_chrono); g_chrono.t_fin = tf;
}
}
static uint32_t jouer_trame(C54xState *dsp, long budget, bool *init_done, uint32_t *insns, int phase)
{
uint32_t drapeaux = 0;
uint32_t avant = dsp->insn_count;
static int fait_a; /* phase A instructions, charged to phase B's budget */
static bool etait_idle_a; /* idle state at the frame start, for PONT_DONE_API_IRQ */
if (phase == 2) goto phase_b;
calypso_dma_tick(dsp);
if (dsp->running && !*init_done) {
if (!dsp->idle) {
c54x_run(dsp, (int)budget);
}
if (dsp->idle) {
*init_done = true;
drapeaux |= PONT_DONE_INIT;
}
}
if (dsp->running) {
etait_idle_a = dsp->idle;
/* Wake on a level-held or pending interrupt. The core only vectors a
* pending interrupt (IFR&IMR, INTM=0) on the next instruction
* (c54x_irq_level_check, CALYPSO_C54X_IRQ_LEVEL=1), and an idle DSP
* executes none; on silicon the interrupt itself wakes it (SPRU131).
* INT10n (RHEA DMA completion, bit 14) is a level line: it stays
* asserted while a channel holds IRQ_STATE, so present it on wake. */
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) &&
!(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800))
dsp->idle = false;
/* [2026-09-20] The DSP frame interrupt is TPU_CTRL_DSP_EN, a bit the
* firmware sets in dsp_end_scenario() on EVERY scenario and that the
* TPU consumes: the ROM gets a frame interrupt only on frames where
* the ARM handed it a page. Raising it on every tick made the ROM
* re-read the same page for 10+ frames (the firmware only flips the
* write page on frames with a DSP item and the ROM never clears
* d_task_md): the FB task restarted at each FCCH and the SB job never
* ran (0xaba4 dispatched every frame, no 764-byte window armed).
* QEMU now says in TICK.b bit 16 whether the ARM armed it.
* PONT_IRQ_TRAME=1 restores the interrupt on every tick (A/B). */
static int irq_chaque = -1;
if (irq_chaque < 0) { const char *e = calypso_getenv("PONT_IRQ_TRAME"); irq_chaque = (e && *e == '1') ? 1 : 0; }
if ((dsp->imr & (1u << C54X_IT_TPU_FRAME_BIT)) && (irq_chaque || g_tick_irq_trame)) {
c54x_interrupt_ex(dsp, C54X_IT_TPU_FRAME_VEC, C54X_IT_TPU_FRAME_BIT);
}
if (calypso_getenv("PONT_IRQ_DEBUG") && g_c54x_exe_fn > 5000 && g_c54x_exe_fn < 5012)
printf(" [irq] fn=%u APRES vec28 : idle=%d pc=%04x INTM=%d IMR=%04x IFR=%04x\n",
g_c54x_exe_fn, dsp->idle, dsp->pc & 0xffff, !!(dsp->st1 & 0x800), dsp->imr, dsp->ifr);
if (g_inj.actif || phase == 1) {
int fait = 0;
if (!dsp->idle) fait = c54x_run_profile(dsp, (int)budget / 8); /* the ISR arms DMA2 */
/* [2026-09-20] Deliver only once the receive window is armed. On a
* frame where the ROM first finishes the previous burst's demod
* (20-30k instructions of Viterbi) before it programs the one-shot
* NB window, the fixed budget/8 slice delivered the frame BEFORE the
* arming, the RIF discarded it (no window) and the result page stayed
* empty: measured on the BTS bench, one normal-burst result in four
* missing (b0 absent in 23 of 97 BCCH blocks), read by the firmware
* as EMPTY / BURST ID n!=m. Keep running, in slices, until DMA2 is
* armed or the DSP idles, half the budget at most. */
/* [2026-09-23] SUR LE TCH, ALLER JUSQU'A L'IDLE AVANT LE DEPOT.
* Pour une tache TCHA (SACCH/TF), la ROM arme la fenetre de la trame
* N+1 PUIS demodule, au debut de N+1, le burst SACCH de N qu'elle
* a laisse dans 0x0cce ; sur silicium le burst de N+1 n'arrive qu'au
* passage de TS2, plus tard. Deposer des l'armement l'ecrasait : la
* SACCH se decodait sur un burst de trafic (a_cd FIRE KO a chaque
* bloc, 113-118 bits faux, LOS au 32e bloc). Reproducteur
* tch_rejeu (scratchpad 2026-09-23) : depot apres l'IDLE -> SACCH
* FIRE=0 « 07 00 03 », FACCH 10/10 bonnes (contre 6/12). Hors TCH
* (FB, SB, SDCCH) on garde l'arret a l'armement.
* PONT_TCH_DEPOT_IDLE=0 retablit l'ancien comportement. */
static int tch_idle = -1;
if (tch_idle < 0) { const char *e = calypso_getenv("PONT_TCH_DEPOT_IDLE"); tch_idle = (e && *e == '0') ? 0 : 1; }
bool jusqua_idle = tch_idle && montant_sur_tch();
while (!dsp->idle && (jusqua_idle || !calypso_rhea_dma_rx_armed()) && fait < (int)budget / 2)
fait += c54x_run_profile(dsp, 256);
if (jusqua_idle) {
static unsigned n_tch;
if (n_tch++ < 30)
printf(" [depot_tch] fn=%u phase A : %d insn, idle=%d, fenetre armee=%d%s\n",
g_c54x_exe_fn, fait, dsp->idle, calypso_rhea_dma_rx_armed(),
dsp->idle ? "" : " <- BUDGET/2 ATTEINT, depot avant la fin");
}
fait_a = fait;
if (phase == 1) {
/* ISR played, R page written, window armed: the ARM may run
* l1_sync now. The burst comes with PONT_GO. */
if (dsp->idle) drapeaux |= PONT_DONE_IDLE;
if (dsp->running) drapeaux |= PONT_DONE_RUNNING;
if (*init_done) drapeaux |= PONT_DONE_INIT;
*insns = dsp->insn_count - avant;
return drapeaux | PONT_DONE_PHASE_A;
}
phase_b:
fait = fait_a;
/* PONT_NB_DEBUG: flags at the burst's entry, and a snapshot of the
* data memory to list what the demod writes (regions), see
* sonde_bits(). */
{ static int on = -1; if (on < 0) on = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
if (on) { g_flags_entree = ((s_or_dsp_st0(dsp) & ST0_OVA) ? 1 : 0) | ((dsp->st0 & ST0_OVB) ? 2 : 0) | ((dsp->st0 & ST0_C) ? 4 : 0) | ((dsp->st0 & ST0_TC) ? 8 : 0) | ((dsp->st1 & ST1_OVM) ? 16 : 0) | ((dsp->st1 & ST1_FRCT) ? 32 : 0) | ((dsp->st1 & ST1_SXM) ? 64 : 0);
memcpy(g_data_avant_b, dsp->data, sizeof g_data_avant_b); } }
if (g_inj.udp) calypso_bsp_service(g_inj.fn);
if (g_inj.iq_mode) injecter_burst(dsp, g_inj.iq_mode, g_inj.amp, g_inj.fn, g_inj.injectes);
{ uint16_t aad = calypso_rhea_dma_get_daram();
memcpy(g_daram_apres_dma, &dsp->data[aad], sizeof g_daram_apres_dma); g_daram_aad = aad; }
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) && !(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
/* PONT_NB_HIST=<dir>: opcode histogram of phase B (the burst's demod)
* for the first 12 normal bursts, one file per frame, to name the
* instructions the NB path leans on and cross them with the ISA
* scorecard (isa_test). Single-stepped: prog_fetch() before each. */
static const char *hist_dir = NULL; static int hist_init = 0; static unsigned hist_n;
if (!hist_init) { hist_init = 1; hist_dir = calypso_getenv("PONT_NB_HIST"); }
/* PONT_NB_HIST_SB=1 : trace the SCH bursts (SB task, d_task_md = 6) instead */
static int hist_sb = -1; if (hist_sb < 0) hist_sb = calypso_getenv("PONT_NB_HIST_SB") ? 1 : 0;
bool tache_nb = dsp->api_ram && (dsp->api_ram[API_R_PAGE(0) / 2] == 24 || dsp->api_ram[API_R_PAGE(1) / 2] == 24);
bool tache_sb = dsp->api_ram && ((dsp->api_ram[API_W_PAGE(0) / 2 + 4] & 0xff) == 6 || (dsp->api_ram[API_W_PAGE(1) / 2 + 4] & 0xff) == 6);
if (hist_dir && hist_n < 12 && !dsp->idle && dsp->api_ram &&
((!hist_sb && g_inj.dernier_type == 'B' && tache_nb) || (hist_sb && g_inj.dernier_type == 'S' && tache_sb))) {
static unsigned hist[65536]; memset(hist, 0, sizeof hist);
int reste = (int)budget - fait, k = 0;
/* data watch: every write into the demod's working cells, with
* the PC of the instruction (taps 0x2cbb.., tracker 0x5aaa..,
* result cells 0x3fa4.., reference 0x2b28..) */
static const struct { uint16_t lo, hi; } W[] = { {0x2cbb, 0x2d04}, {0x5aaa, 0x5ac8}, {0x3fa4, 0x3fa8}, {0x2b28, 0x2b58}, {0x2f00, 0x2f2c}, {0x2a00, 0x2bc8}, {0x2be0, 0x2c80} };
#define NW 7
static uint16_t prev[0x600]; int nw = 0;
for (unsigned r = 0; r < NW; r++) for (unsigned a = W[r].lo; a < W[r].hi; a++) prev[nw++] = dsp->data[a];
char nomw[256]; snprintf(nomw, sizeof nomw, "%s/watch_%u.txt", hist_dir, g_inj.fn);
FILE *fw = fopen(nomw, "w");
char nomt[256]; snprintf(nomt, sizeof nomt, "%s/trace_%u.txt", hist_dir, g_inj.fn);
FILE *ft = fopen(nomt, "w");
while (!dsp->idle && k < reste) {
uint16_t w = prog_fetch(dsp, (uint16_t)dsp->pc);
uint16_t pc0 = (uint16_t)dsp->pc; uint16_t ar2 = dsp->ar[2], ar3 = dsp->ar[3];
hist[w]++;
if (k == 12800) { memcpy(g_snap_2be2, &dsp->data[0x2be2], sizeof g_snap_2be2); g_snap_ok = 1; }
if (pc0 == 0x9a78 && !g_snap_2a00_ok) { memcpy(g_snap_2a00, &dsp->data[0x2a00], sizeof g_snap_2a00); g_snap_2a00_ok = 1;
char nm[256]; snprintf(nm, sizeof nm, "%s/mem_%u_9a78.bin", hist_dir, g_inj.fn); FILE *fm = fopen(nm, "wb"); if (fm) { fwrite(dsp->data, 2, C54X_DATA_SIZE, fm); fclose(fm); } }
if (ft) fprintf(ft, "%04x %04x %010llx %010llx %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x %04x\n", pc0, w,
(unsigned long long)(dsp->a & 0xFFFFFFFFFFULL), (unsigned long long)(dsp->b & 0xFFFFFFFFFFULL),
dsp->t, dsp->st0, dsp->st1, dsp->ar[1], ar2, ar3, dsp->ar[4], dsp->ar[5], dsp->ar[0],
dsp->data[ar2], dsp->data[ar3], dsp->data[dsp->ar[4]], dsp->data[dsp->ar[5]], dsp->ar[6]);
c54x_run(dsp, 1); k++;
if (fw) { int i = 0;
for (unsigned r = 0; r < NW; r++) for (unsigned a = W[r].lo; a < W[r].hi; a++, i++)
if (dsp->data[a] != prev[i]) { fprintf(fw, "%d pc=%04x op=%04x %04x: %04x -> %04x (%d) AR2=%04x AR3=%04x\n", k, pc0, w, a, prev[i], dsp->data[a], (int16_t)dsp->data[a], ar2, ar3); prev[i] = dsp->data[a]; } }
}
if (fw) fclose(fw);
if (ft) fclose(ft);
{ char nm[256]; snprintf(nm, sizeof nm, "%s/mem_%u_fin.bin", hist_dir, g_inj.fn); FILE *fm = fopen(nm, "wb"); if (fm) { fwrite(dsp->data, 2, C54X_DATA_SIZE, fm); fclose(fm); } }
char nom[256]; snprintf(nom, sizeof nom, "%s/hist_%u.txt", hist_dir, g_inj.fn);
FILE *f = fopen(nom, "w");
if (f) { for (unsigned w = 0; w < 65536; w++) if (hist[w]) fprintf(f, "%04x %u\n", w, hist[w]); fclose(f); }
hist_n++;
}
/* [2026-09-23] PONT_DONE_TOT : le reste de la trame (phase B) est joue
* APRES le PONT_DONE, pendant que QEMU fait tourner l'ARM -- voir
* servir(). */
if (g_done_tot && phase == 2) g_reste_b = (int)budget - fait;
else if (!dsp->idle) c54x_run_profile(dsp, (int)budget - fait);
} else if (!dsp->idle) {
c54x_run_profile(dsp, (int)budget);
}
if (!etait_idle_a && dsp->idle) {
drapeaux |= PONT_DONE_API_IRQ;
}
}
if (dsp->idle) drapeaux |= PONT_DONE_IDLE;
if (dsp->running) drapeaux |= PONT_DONE_RUNNING;
if (*init_done) drapeaux |= PONT_DONE_INIT;
*insns = dsp->insn_count - avant;
return drapeaux;
}
/* Synthetic I/Q injection.
*
* On silicon the DSP gets 148 complex int16 samples per burst, one per symbol,
* written to DARAM 0x2a00 (296 words) by the BSP DMA and followed by the RX
* interrupt; calypso_bsp_rx_burst() reproduces that sequence. An FCCH burst is
* GMSK over 148 zero bits, i.e. a tone at +1625/24 kHz, which is +pi/2 of
* phase per symbol at 270.833 ksym/s (GSM 45.004). */
#define IQ_N 148
static void iq_synthese(const char *mode, int amp, uint32_t fn, int16_t *iq)
{
static unsigned seed = 12345;
double dphi = 0;
bool bruit = false;
if (!strcmp(mode, "fcch")) {
dphi = M_PI / 2;
} else if (!strcmp(mode, "noise")) {
bruit = true;
} else if (!strncmp(mode, "tone:", 5)) {
dphi = atof(mode + 5);
}
for (int k = 0; k < IQ_N; k++) {
if (bruit) {
seed = seed * 1103515245u + 12345u; int a = (int)((seed >> 16) % (2 * amp + 1)) - amp;
seed = seed * 1103515245u + 12345u; int b = (int)((seed >> 16) % (2 * amp + 1)) - amp;
iq[2 * k] = (int16_t)a; iq[2 * k + 1] = (int16_t)b;
} else {
double ph = dphi * k;
iq[2 * k] = (int16_t)lrint(amp * cos(ph));
iq[2 * k + 1] = (int16_t)lrint(amp * sin(ph));
}
}
(void)fn;
}
/* Recorded-cell replay, paced by the DSP frame clock.
*
* /opt/GSM/cellule_reelle.bin holds the TS0 of 311 CONSECUTIVE frames captured
* off the air at 4 samples/symbol, each tagged with its real frame number, so
* the 51-multiframe is intact: FCCH at fn%51 in {0,10,20,30,40}, SCH at
* {1,11,21,31,41}.
*
* Why it is fed from here and not over UDP: the source and the DSP have
* independent clocks. Measured on this bench, the DSP runs between 72 and 160
* frames/s depending on load while rejouer_cellule.py streams at a rate of its
* own, so the DSP swallowed about four cell frames per frame of its own. The
* FB task survives that — it only ever correlates ONE window — but the SB task
* needs the burst of the frame IMMEDIATELY AFTER the FCCH, and that frame was
* never the SCH. Pulled from here, one burst per frame, the multiframe reaches
* the DSP intact whatever the emulated clock does. */
typedef struct { uint32_t fn; int16_t *iq; int fcch; } ReelBurst;
static ReelBurst *g_reel;
static unsigned g_reel_n, g_reel_util;
static int g_reel_nsym;
static unsigned g_reel_base;
/* Decimate a stored burst to the 1 sample/symbol the correlator works at. The
* same decimation the UDP path applies through CALYPSO_BSP_IQ_DECIM, and the
* same one reelle_injecter delivers: what is measured here is what the DSP
* gets. Returns the number of int16 written. */
static int reelle_decimer(const ReelBurst *b, int16_t *iq, int max_i16)
{
int decim = g_reel_nsym / 148;
if (decim < 1) decim = 1;
int n = 0;
for (int k = 0; k * decim < g_reel_nsym && n <= max_i16 - 2; k++) {
iq[n++] = b->iq[2 * (k * decim)];
iq[n++] = b->iq[2 * (k * decim) + 1];
}
return n;
}
/* Is this burst an FCCH? At 1 sample/symbol an all-zeros GMSK burst is a pure
* tone rotating by exactly +pi/2 per sample — the criterion calypso_bsp.c's
* FCCH-PROBE already uses (coh ~ 1, dphi ~ +1.571). Nothing else on TS0 comes
* close, so this labels the multiframe without decoding anything. */
static int reelle_est_fcch(const ReelBurst *b)
{
int16_t iq[2 * 256];
int n = reelle_decimer(b, iq, (int)(sizeof(iq) / sizeof(iq[0])));
int ns = n / 2;
if (ns < 32) return 0;
double accr = 0, acci = 0, den = 0;
for (int k = 1; k < ns; k++) {
double i0 = iq[2*(k-1)], q0 = iq[2*(k-1)+1];
double i1 = iq[2*k], q1 = iq[2*k+1];
accr += i1*i0 + q1*q0;
acci += q1*i0 - i1*q0;
den += sqrt((i0*i0 + q0*q0) * (i1*i1 + q1*q1));
}
if (den <= 0) return 0;
double coh = sqrt(accr*accr + acci*acci) / den;
double dphi = atan2(acci, accr);
return coh > 0.90 && fabs(dphi - M_PI_2) < 0.30;
}
/* Where does the recording sit in the 51-multiframe?
*
* The frame numbers stored in the file cannot be trusted for this: measured on
* cellule_reelle.bin, the FCCH bursts carry tags whose residues are
* {0,10,20,31,41} where GSM 05.02 puts the FCCH at fn%51 in {0,10,20,30,40} —
* a constant offset of 31. So the phase is taken from the SIGNAL instead: the
* FCCH bursts are located by reelle_est_fcch(), and the one followed by a gap
* of 11 frames is the last of its multiframe, i.e. true phase 40 (the sequence
* of gaps is 10,10,10,10,11). g_reel_base then satisfies
*
* entry_index == (arm_fn - g_reel_base) (mod 51)
*
* which is what reelle_injecter uses to pick a burst BY FRAME NUMBER. */
static void reelle_caler(void)
{
unsigned fcch[64], nf = 0;
for (unsigned i = 0; i < g_reel_n && nf < 64; i++)
if (g_reel[i].fcch) fcch[nf++] = i;
unsigned i40 = 0; int trouve = 0;
for (unsigned k = 0; k + 1 < nf; k++)
if (fcch[k + 1] - fcch[k] == 11) { i40 = fcch[k]; trouve = 1; break; }
if (!trouve) {
g_reel_base = 0;
printf("pont : ATTENTION — phase de multitrame indeterminee (%u FCCH reperees, "
"aucun ecart de 11) ; calage a 0, la lecture reste cadencee par fn\n", nf);
return;
}
g_reel_base = (40u + 51u - (i40 % 51u)) % 51u; /* i40 == 40 - base (mod 51) */
unsigned ecart_tag = (g_reel[0].fn + 51u - g_reel_base) % 51u;
printf("pont : %u FCCH reperees dans la capture (ecarts 10/11), phase calee sur le signal : "
"base=%u ; les tags fn du fichier sont decales de +%u mod 51\n",
nf, g_reel_base, ecart_tag);
}
/* Recorded-cell replay, addressed by the ARM frame number.
*
* /opt/GSM/cellule_reelle.bin holds the TS0 of 311 CONSECUTIVE frames captured
* off the air at 4 samples/symbol, each tagged with its real frame number.
*
* Why it is fed from here and not over UDP: the source and the DSP have
* independent clocks. Measured on this bench, the DSP runs between 72 and 160
* frames/s depending on load while rejouer_cellule.py streams at a rate of its
* own, so the DSP swallowed about four cell frames per frame of its own. The
* FB task survives that — it only ever correlates ONE window — but the SB task
* needs the burst of the frame IMMEDIATELY AFTER the FCCH, and that frame was
* never the SCH.
*
* [2026-09-19] Why it is addressed by fn and no longer by a running index:
* calypso_trx.c:pont_echange() SKIPS a tick whenever the DSP has not returned
* its DONE — about 3% of frames once the traces are off, 85% with -vvv on a
* terminal. A running index does not advance on a skipped tick while the ARM
* clock does, so every skip shifted the recording against the ARM by one frame,
* FOR GOOD: measured 4202 frames of accumulated drift over a 5-minute run, i.e.
* a multiframe phase wandering without bound. The ARM then armed its SB one
* frame after an FCCH and got a burst from somewhere else entirely (11 SB CRC
* OK in 68000 frames), and the deinterleaver assembled BCCH blocks out of
* unrelated bursts (205-221 bit errors per block, every block dropped).
* Indexing by fn makes a skipped tick skip a RECORDING burst too: the phase is
* held whatever the emulated clock does. */
static void reelle_injecter(C54xState *dsp, uint32_t fn, unsigned long *injectes)
{
if (!g_reel_util) return;
unsigned idx = (fn + g_reel_util - (g_reel_base % g_reel_util)) % g_reel_util;
const ReelBurst *b = &g_reel[idx];
int16_t iq[2 * 256];
int n_iq = reelle_decimer(b, iq, (int)(sizeof(iq) / sizeof(iq[0])));
/* The burst keeps its OWN frame number: it is the provenance of the samples,
* and calypso_bsp_rx_burst only ever logs it. */
calypso_bsp_rx_burst(0, b->fn, iq, n_iq);
(*injectes)++;
}
static int reelle_charger(const char *chemin)
{
FILE *f = fopen(chemin, "rb");
if (!f) { fprintf(stderr, "pont : cellule reelle introuvable : %s\n", chemin); return 0; }
uint32_t hdr[4];
if (fread(hdr, sizeof(hdr), 1, f) != 1) { fclose(f); return 0; }
unsigned n = hdr[0], nsym = hdr[1], bsic = hdr[2];
if (!n || !nsym || nsym > 4096) { fclose(f); return 0; }
g_reel = calloc(n, sizeof(*g_reel));
if (!g_reel) { fclose(f); return 0; }
for (unsigned i = 0; i < n; i++) {
uint32_t e[2];
if (fread(e, sizeof(e), 1, f) != 1) { n = i; break; }
int16_t *iq = malloc((size_t)nsym * 2 * sizeof(int16_t));
if (!iq || fread(iq, sizeof(int16_t) * 2, nsym, f) != nsym) { free(iq); n = i; break; }
g_reel[i].fn = e[0];
g_reel[i].iq = iq;
}
fclose(f);
g_reel_n = n; g_reel_nsym = (int)nsym;
/* Only a WHOLE number of 51-multiframes may be looped: 311 = 6*51 + 5, so
* wrapping on all 311 shifted the phase by 5 at every turn. */
g_reel_util = (n / 51u) * 51u;
for (unsigned i = 0; i < g_reel_n; i++)
g_reel[i].fcch = reelle_est_fcch(&g_reel[i]);
printf("pont : cellule REELLE %s — %u trames consecutives a %d ech/symbole, BSIC=%u, "
"fn %u..%u, %u trames jouees (%u multitrames de 51, %u ecartees), adressage par fn\n",
chemin, n, nsym / 148, bsic, n ? g_reel[0].fn : 0, n ? g_reel[n - 1].fn : 0,
g_reel_util, g_reel_util / 51u, n - g_reel_util);
reelle_caler();
return (int)g_reel_util;
}
/* Inject one burst (synthetic cell or plain signal) into the RIF/BSP path. */
static int g_verif_sonde = -1;
static void injecter_burst(C54xState *dsp, const char *iq_mode, int amp, uint32_t fn,
unsigned long *injectes)
{
int16_t iq[2 * 256];
int n_iq = 2 * IQ_N;
char t_dbg = '?';
if (!strncmp(iq_mode, "reelle", 6)) {
static int charge = 0;
if (!charge) { const char *p = strchr(iq_mode, ':');
charge = reelle_charger(p ? p + 1 : "/opt/GSM/cellule_reelle.bin"); if (!charge) charge = -1; }
if (charge > 0) reelle_injecter(dsp, fn, injectes);
return;
}
if (!strncmp(iq_mode, "cell", 4)) {
/* cell[:bsic[:offset[:margin]]] : full cell, FCCH/SCH/dummy bursts */
static int bsic = -1; static double dec = 0.5; static int marge = 21;
if (bsic < 0) { bsic = 42; const char *p = strchr(iq_mode, ':');
if (p) { bsic = atoi(p + 1) & 0x3f; p = strchr(p + 1, ':');
if (p) { dec = atof(p + 1); p = strchr(p + 1, ':'); if (p) marge = atoi(p + 1); } }
if (marge > 50) marge = 50;
if (strstr(iq_mode, "all")) cellule_sch_partout = 1;
printf("pont : cellule BSIC=%d (NCC=%d BCC=%d), echantillonnage a %.2f symbole, "
"SCH dans une fenetre de %d echantillons (DARAM len=%u mots)%s\n",
bsic, bsic >> 3, bsic & 7, dec, 148 + 2 * marge, calypso_bsp_get_daram_len(),
cellule_sch_partout ? ", SCH sur toutes les trames non-FCCH" : ""); }
/* the SCH burst is delivered as the 190-sample window block only when
* the DSP has its one-shot SB window armed; otherwise it is a frame of
* the FB stream like any other (same rule as rejouer.c) */
int marge_eff = calypso_rhea_dma_one_shot() ? marge : 0;
/* [2026-09-20] BCCH/CCCH normal bursts: framed like the BSP stream
* assembler (bsp_livrer_trame), 3 silent samples ahead when the
* one-shot window is the 151-sample NB one (tpu_window.c
* L1_NB_MARGIN_Q), bare 148 samples in the continuous FB stream. */
{ int nwin = calypso_rhea_dma_one_shot() ? calypso_rhea_dma_get_len_words() / 2 : 0;
/* PONT_NB_MARGE=<n> overrides the 3-sample head margin of a normal
* burst; "auto" sweeps 0..7 by 51-multiframe (the [scan] probe
* prints it), one run to find where the ROM's TSC search lands. */
static int mnb = -2; static int mauto = 0;
if (mnb == -2) { const char *e = calypso_getenv("PONT_NB_MARGE"); mnb = 3;
if (e && !strcmp(e, "auto")) mauto = 1; else if (e && *e) mnb = atoi(e); }
int m_nb = mauto ? (int)((fn / 51u) % 8u) : mnb;
/* CELLULE_TSC=<k>|auto : training sequence written in the bursts
* (the ARM still tells the ROM tsc = BCC); auto sweeps 0..7 */
static int tsc = -2; static int tauto = 0;
if (tsc == -2) { const char *e = calypso_getenv("CELLULE_TSC"); tsc = -1;
if (e && !strcmp(e, "auto")) tauto = 1; else if (e && *e) tsc = atoi(e) & 7; }
cellule_tsc_force = tauto ? (int)((fn / 51u) % 8u) : tsc;
cellule_marge_nb = (nwin >= 150 && nwin < 190) ? m_nb : (nwin >= 190 ? marge : -1);
cellule_fenetre_nb = nwin; }
char t = cellule_burst(fn, (uint8_t)bsic, amp, dec, marge_eff, iq, &n_iq);
t_dbg = t; g_inj.dernier_type = t; g_inj.dernier_n_iq = n_iq;
static unsigned nS, nF, nB, nC, tot;
if (t == 'S') nS++; else if (t == 'F') nF++; else if (t == 'B') nB++; else if (t == 'C') nC++;
if (++tot % 5000 == 1) printf("pont : bursts injectes FCCH=%u SCH=%u BCCH=%u CCCH=%u (fn=%u)\n", nF, nS, nB, nC, fn);
} else {
iq_synthese(iq_mode, amp, fn, iq);
}
static int irqdbg = -1; static unsigned irqdbg_n;
if (irqdbg < 0) irqdbg = calypso_getenv("PONT_IRQ_DEBUG") ? 1 : 0;
bool dbg = irqdbg && fn > 5000 && irqdbg_n < 12;
if (dbg) printf(" [irq] fn=%u AVANT rx_burst : idle=%d pc=%04x INTM=%d IMR=%04x IFR=%04x PMST=%04x SP=%04x\n",
fn, dsp->idle, dsp->pc & 0xffff, !!(dsp->st1 & 0x800), dsp->imr, dsp->ifr, dsp->pmst, dsp->sp);
{ static int dj = -1; if (dj < 0) dj = calypso_getenv("PONT_DEBUG_INJ") ? 1 : 0;
int md0 = dsp->api_ram ? (dsp->api_ram[4] & 0xff) : 0, md1 = dsp->api_ram ? (dsp->api_ram[0x18] & 0xff) : 0;
if (dj && (calypso_rhea_dma_one_shot() || md0 == 6 || md1 == 6 || (fn >= 300 && fn <= 312)))
printf(" [inj] fn=%u p51=%u AVANT : type=%c n_iq=%d dma armee=%d one_shot=%d task_md=%d/%d rif=%d mots idle=%d pc=%04x"
" | W0=%04x %04x %04x %04x %04x ..%04x %04x W1=%04x %04x %04x %04x %04x ..%04x %04x NDB page=%04x fb_mode=%04x fb_det=%04x\n",
fn, fn % 51u, t_dbg, n_iq, calypso_rhea_dma_rx_armed(), calypso_rhea_dma_one_shot(), md0, md1, calypso_rif_level(), dsp->idle, dsp->pc & 0xffff,
dsp->api_ram[0], dsp->api_ram[1], dsp->api_ram[2], dsp->api_ram[3], dsp->api_ram[4], dsp->api_ram[15], dsp->api_ram[16],
dsp->api_ram[0x14], dsp->api_ram[0x15], dsp->api_ram[0x16], dsp->api_ram[0x17], dsp->api_ram[0x18], dsp->api_ram[0x14+15], dsp->api_ram[0x14+16],
dsp->api_ram[0xd4], dsp->api_ram[0xd4+37], dsp->api_ram[0xd4+36]); }
memcpy(g_dernier_iq, iq, (size_t)n_iq * sizeof(int16_t)); g_dernier_n_iq = n_iq;
calypso_bsp_rx_burst(0, fn, iq, n_iq);
{ static int dj2 = -1; if (dj2 < 0) dj2 = calypso_getenv("PONT_DEBUG_INJ") ? 1 : 0;
if (dj2 && fn >= 300 && fn <= 312)
printf(" [inj] fn=%u APRES : rif=%d mots idle=%d IFR=%04x\n", fn, calypso_rif_level(), dsp->idle, dsp->ifr); }
if (dbg) { printf(" [irq] fn=%u APRES rx_burst : idle=%d pc=%04x INTM=%d IMR=%04x IFR=%04x SP=%04x\n",
fn, dsp->idle, dsp->pc & 0xffff, !!(dsp->st1 & 0x800), dsp->imr, dsp->ifr, dsp->sp); irqdbg_n++; }
(*injectes)++;
}
/* Register of active hacks. Every departure from native behaviour (canned TOA,
* forced AFC rotation, direct feed, locks, ...) is listed by hacks_actifs() and
* printed on every milestone line: a milestone reached with a non-empty list is
* not a native milestone. The stimulus (synthetic cell) is reported separately,
* being test input rather than a crutch. */
/* SB encoder: exact inverse of l1s_decode_sb (prim_fbsb.c), identical to
* shunt_encode_sb in qemu-calypso. Maps {bsic, T1, T2, T3} to the 25-bit sb
* word; the firmware reads sb = a_sch[3] | a_sch[4]<<16, then bsic = (sb>>2)
* & 0x3f, and so on (GSM 45.002 SCH layout). */
static uint32_t pont_encode_sb(uint8_t bsic, uint16_t t1, uint8_t t2, uint8_t t3)
{
uint8_t t3p = (t3 == 0) ? 0 : (uint8_t)((t3 - 1) / 10);
uint32_t sb = 0;
sb |= ((uint32_t)(bsic & 0x3f)) << 2;
sb |= ((uint32_t)(t1 & 0x001)) << 23;
sb |= ((uint32_t)(t1 & 0x1fe)) << 7;
sb |= ((uint32_t)(t1 & 0x600)) >> 9;
sb |= ((uint32_t)(t2 & 0x1f)) << 18;
sb |= ((uint32_t)(t3p & 1)) << 24;
sb |= ((uint32_t)(t3p & 6)) << 15;
return sb;
}
/* [2026-09-21] CADENCEMENT, PAS BEQUILLE.
*
* STREAM et LOCKSTEP figuraient parmi les bequilles ; ils n'y ont pas leur
* place. Aucun des deux ne falsifie une mesure : ils font cohabiter un DSP
* emule, qui coute ~6,7 ms par trame, avec une BTS en temps reel dont la trame
* dure 4,615 ms.
* - sans LOCKSTEP, QEMU avance a l'horloge murale et saute les trames que le
* DSP n'a pas finies : releve du 2026-09-21, « 2170 sauts, 3440 trames
* jouees », soit 39 % de perte ;
* - sans STREAM, chaque burst part vers le RIF des son arrivee : 217 bursts
* par seconde pour ~89 ticks, la ROM compte ~1526 symboles par trame au
* lieu de 1250, son TOA ne se stabilise jamais (2967, 3735, 4215, 48,
* 13536 sur un meme run) et le pipeline se desaligne (« BURST ID 3!=2 »,
* « EMPTY »).
* La vraie bequille etait ailleurs : le mode cadence ne livrait que TS0 et
* bourrait les sept autres intervalles a zero. C'est corrige (calypso_bsp.c,
* bsp_autres_stocker/bsp_autres_bits) : la trame remise au DSP porte
* maintenant ce que la BTS a reellement emis sur les huit intervalles.
*
* Ils restent affiches, mais sur leur propre ligne. */
static const char *cadencement_actif(void)
{
static char buf[128]; buf[0] = 0;
const char *s1 = calypso_getenv("CALYPSO_BSP_STREAM");
const char *s2 = calypso_getenv("CALYPSO_PONT_LOCKSTEP");
if (s1 && *s1 == '1') strcat(buf, "STREAM ");
if (s2 && *s2 == '1') strcat(buf, "LOCKSTEP ");
return buf[0] ? buf : "aucun (le DSP ne suivra pas le temps reel)";
}
static const char *hacks_actifs(void)
{
static char buf[512]; buf[0] = 0;
struct { const char *env, *tag; int mode; } t[] = { /* mode 0: set and non-empty; 1: =="1"; 2: =="0"; 3: integer != 0; 4: integer >= 0 */
{"PONT_CAN_TOA","CAN_TOA",4}, {"PONT_CAN_SB_TOA","CAN_SB_TOA",4}, {"PONT_CAN_SB","CAN_SB_FULL",0},
{"CALYPSO_TWL3025_AFC_HZ","AFC_HZ",3}, {"CALYPSO_TWL3025_AFC","AFC_OFF",2},
{"CALYPSO_TWL3025_AFC_SIGN_OLD","AFC_SIGN_OLD",0},
{"CALYPSO_BSP_VEC30","VEC30",1},
{"CALYPSO_BSP_RX_LEAD","RX_LEAD",3}, {"CALYPSO_BSP_TPU_TRACK","TPU_TRACK",1},
{"CALYPSO_BSP_TOA_LOCK","TOA_LOCK",1},
{"CALYPSO_BSP_IQ_PASSTHROUGH","IQ_SYNTH",2},
{"CALYPSO_RHEA_DMA_XFER","RHEA_DMA",1}, {"CALYPSO_BSP_RX_VEC","RX_VEC",0},
{"CELLULE_SCH_ONLY","SCH_ONLY",1}, {"CELLULE_SCH_AMPDIV","SCH_AMPDIV",3},
{"CALYPSO_FIXES","FIXES",0},
};
for (unsigned i = 0; i < sizeof t / sizeof t[0]; i++) {
const char *v = calypso_getenv(t[i].env); if (!v || !*v) continue;
int on = 0; long n = atol(v);
switch (t[i].mode) { case 0: on = 1; break; case 1: on = (*v=='1'); break; case 2: on = (*v=='0'); break;
case 3: on = (n != 0); break; case 4: on = (n >= 0); break; }
if (!on) continue;
size_t l = strlen(buf);
if (t[i].mode == 3 || t[i].mode == 4) snprintf(buf + l, sizeof buf - l, "%s%s=%ld", l ? "," : "", t[i].tag, n);
else snprintf(buf + l, sizeof buf - l, "%s%s", l ? "," : "", t[i].tag);
}
/* a decoder fix turned off is a departure from native too */
static const char *fx[] = {"NORM_SD","F7_DELAYED","MPY_MAC_LK","MACP_MACD","PAR_ST_DSTBAR","STL_STH_SHFT","XCCD","ADDSUB_XSHFT","FIRS_RPT","RPT_COUNT"};
for (unsigned i = 0; i < sizeof fx / sizeof fx[0]; i++) {
char e[64]; snprintf(e, sizeof e, "CALYPSO_FIX_%s", fx[i]); const char *v = calypso_getenv(e);
if (v && *v == '0') { size_t l = strlen(buf); snprintf(buf + l, sizeof buf - l, "%sFIX_%s=0", l ? "," : "", fx[i]); }
}
return buf[0] ? buf : "aucun";
}
/* PONT_NB_DEBUG=1: pages as seen at one instant of the frame (A = end of the
* ROM's frame ISR, G = PONT_GO received i.e. after the ARM's l1_sync, B = end
* of the frame). Who reads which W page and who writes which R page, when. */
static void sonde_pages(const char *quand, uint32_t fn, C54xState *dsp, const uint16_t *api_ram)
{
static int on = -1; static unsigned n;
if (on < 0) on = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
if (!on || n >= 240) return;
const uint16_t *w0 = &api_ram[API_W_PAGE(0) / 2], *w1 = &api_ram[API_W_PAGE(1) / 2];
const uint16_t *r0 = &api_ram[API_R_PAGE(0) / 2], *r1 = &api_ram[API_R_PAGE(1) / 2];
if (!(w0[0] == 24 || w1[0] == 24 || r0[0] == 24 || r1[0] == 24)) return;
n++;
printf(" [pg%s] fn=%u p51=%u W0=%u/%u W1=%u/%u R0=%u/%u R1=%u/%u dsp_page=%04x idle=%d pc=%04x IFR=%04x IMR=%04x INTM=%d irq_trame=%d dma_armee=%d\n",
quand, fn, fn % 51u, w0[0], w0[1], w1[0], w1[1], r0[0], r0[1], r1[0], r1[1],
api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2], dsp->idle, dsp->pc & 0xffff, dsp->ifr, dsp->imr,
!!(dsp->st1 & 0x800), g_tick_irq_trame, calypso_rhea_dma_rx_armed());
}
/* PONT_NB_DEBUG=1, after a normal burst: look for the demodulated bits in the
* DSP data memory. Two templates, the 116 data bits (57+hl, hu+57) and the
* whole 148-bit burst, matched against the sign of each int16 word (soft bits,
* both polarities) and against hard 0/1 words. Reports the best run. */
static uint32_t g_insn_a, g_insn_b;
static void sonde_bits(uint32_t fn, C54xState *dsp, uint8_t bsic)
{
static int on = -1; static unsigned n;
if (on < 0) on = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
if (!on || n >= 40) return;
uint8_t bits[148];
if (cellule_bits_attendus(fn, bsic, bits) < 0) return;
uint8_t t116[116]; memcpy(t116, bits + 3, 58); memcpy(t116 + 58, bits + 87, 58);
const struct { const uint8_t *t; int len; const char *nom; } tpl[2] = { { t116, 116, "116 data" }, { bits, 148, "148 burst" } };
n++;
printf(" [scan] fn=%u p51=%u burst %d :", fn, fn % 51u, (int)((fn % 51u % 10 - 2) & 3));
for (int k = 0; k < 2; k++) {
int best[3] = {0,0,0}; unsigned bad[3] = {0,0,0};
for (unsigned a = 0x60; a + tpl[k].len < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0, m2 = 0;
for (int i = 0; i < tpl[k].len; i++) {
int16_t v = (int16_t)dsp->data[a + i];
int neg = v < 0, one = (v == 1), zero = (v == 0);
if ((v < 0) == (tpl[k].t[i] != 0)) m0++;
if ((v > 0) == (tpl[k].t[i] != 0)) m1++;
if ((one && tpl[k].t[i]) || (zero && !tpl[k].t[i])) m2++;
}
if (m⟨1⟩ > best[⟨2⟩]) { best[⟨3⟩] = m⟨4⟩; bad[⟨5⟩] = a; } ×3
⟨⟩ = (0,0,0,0,0) (1,1,1,1,1) (2,2,2,2,2)
}
printf(" %s: neg=1 %d/%d @%04x pos=1 %d/%d @%04x hard %d/%d @%04x |", tpl[k].nom,
best[0], tpl[k].len, bad[0], best[1], tpl[k].len, bad[1], best[2], tpl[k].len, bad[2]);
}
/* the ROM's burst buffer at 0x2be2 (found by this scan: 146/148 on good
* bursts): mismatch map, one char per bit, '.' ok, 'x' wrong, '|' at the
* data/TSC boundaries */
{ char map[160]; int k = 0, err = 0;
for (int i = 0; i < 148; i++) {
if (i == 3 || i == 61 || i == 87 || i == 145) map[k++] = '|';
int16_t v = (int16_t)dsp->data[0x2be2 + i];
int ok = ((v > 0) == (bits[i] != 0)); if (!ok) err++;
map[k++] = ok ? '.' : 'x';
}
map[k] = 0;
/* the same buffer against the two previous bursts: a demod deferred to
* the next frame's ISR would leave burst N-1 here at the end of frame N */
int e1 = -1, e2 = -1; uint8_t pb[148];
if (cellule_bits_attendus(fn - 1, bsic, pb) == 0) { e1 = 0; for (int i = 0; i < 148; i++) if ((((int16_t)dsp->data[0x2be2 + i]) > 0) != (pb[i] != 0)) e1++; }
if (cellule_bits_attendus(fn - 2, bsic, pb) == 0) { e2 = 0; for (int i = 0; i < 148; i++) if ((((int16_t)dsp->data[0x2be2 + i]) > 0) != (pb[i] != 0)) e2++; }
/* regions of the data memory the demod wrote during phase B (beyond the
* DARAM burst buffer and the API pages), with a few values each */
{ char z[900]; int k = 0; unsigned a = 0x60;
while (a < C54X_DATA_SIZE && k < 800) {
if (dsp->data[a] != g_data_avant_b[a]) {
unsigned b = a; while (b < C54X_DATA_SIZE && b - a < 4096 && (dsp->data[b] != g_data_avant_b[b] || (b + 1 < C54X_DATA_SIZE && dsp->data[b+1] != g_data_avant_b[b+1]))) b++;
k += snprintf(z + k, sizeof z - k, " %04x+%u", a, b - a); a = b;
} else a++;
}
{ const char *d = calypso_getenv("PONT_NB_HIST"); static unsigned nz;
if (d && nz < 12) { char nom[256]; snprintf(nom, sizeof nom, "%s/zones_%u.txt", d, fn); FILE *f = fopen(nom, "w");
if (f) { for (unsigned q = 0x60; q < C54X_DATA_SIZE; q++) if (dsp->data[q] != g_data_avant_b[q]) fprintf(f, "%04x %04x %04x\n", q, g_data_avant_b[q], dsp->data[q]); fclose(f); nz++; } } }
printf(" [zones] fn=%u flags(OVA=%d OVB=%d C=%d TC=%d OVM=%d FRCT=%d SXM=%d) ecrites:%s\n", fn,
g_flags_entree & 1, !!(g_flags_entree & 2), !!(g_flags_entree & 4), !!(g_flags_entree & 8), !!(g_flags_entree & 16), !!(g_flags_entree & 32), !!(g_flags_entree & 64), z); }
if (g_snap_ok) { int es = 0; for (int i = 0; i < 148; i++) if ((((int16_t)g_snap_2be2[i]) > 0) != (bits[i] != 0)) es++;
printf(" [scan] fn=%u 2be2 au pas 12800 (avant le decodeur) : erreurs=%d\n", fn, es); g_snap_ok = 0; }
printf(" [scan] fn=%u marge=%d tsc=%d dec=%.2f phase=%.1f rif=%d 2be2 erreurs=%d (vs N-1: %d, N-2: %d) insnA=%u insnB=%u %s v[0..3]=%d %d %d %d\n", fn, cellule_marge_nb, cellule_tsc_force, cellule_dec_nb, cellule_phase_nb, calypso_rif_level(), err, e1, e2, g_insn_a, g_insn_b, map,
(int16_t)dsp->data[0x2be2], (int16_t)dsp->data[0x2be3], (int16_t)dsp->data[0x2be4], (int16_t)dsp->data[0x2be5]); }
/* after burst 3: the decoder's vectors. Search the whole data memory for
* the 456 coded bits in deinterleaved order and for the 184 information
* bits, as signs of int16 words and as hard 0/1 words. */
{ uint8_t code[456], info[184];
if (((fn % 51u) % 10u - 2) % 4 == 3 && cellule_bloc_attendu(fn, bsic, code, info) == 0) {
const struct { const uint8_t *t; int len; const char *nom; } tp[2] = { { code, 456, "456 codes" }, { info, 184, "184 info" } };
printf(" [bloc] fn=%u :", fn);
for (int k = 0; k < 2; k++) {
int best[3] = {0,0,0}; unsigned bad[3] = {0,0,0};
for (unsigned a = 0x60; a + tp[k].len < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0, m2 = 0;
for (int i = 0; i < tp[k].len; i++) {
int16_t v = (int16_t)dsp->data[a + i];
if ((v < 0) == (tp[k].t[i] != 0)) m0++;
if ((v > 0) == (tp[k].t[i] != 0)) m1++;
if ((v == 1 && tp[k].t[i]) || (v == 0 && !tp[k].t[i])) m2++;
}
if (m⟨1⟩ > best[⟨2⟩]) { best[⟨3⟩] = m⟨4⟩; bad[⟨5⟩] = a; } ×3
⟨⟩ = (0,0,0,0,0) (1,1,1,1,1) (2,2,2,2,2)
}
printf(" %s: neg=1 %d/%d @%04x pos=1 %d/%d @%04x hard %d/%d @%04x |", tp[k].nom,
best[0], tp[k].len, bad[0], best[1], tp[k].len, bad[1], best[2], tp[k].len, bad[2]);
}
/* also the coded bits packed 16 per word (MSB first) */
{ int bestp = 0; unsigned badp = 0;
for (unsigned a = 0x60; a + 29 < C54X_DATA_SIZE; a++) {
int m = 0;
for (int i = 0; i < 456; i++) { int bit = (dsp->data[a + i / 16] >> (15 - i % 16)) & 1; if (bit == code[i]) m++; }
if (m > bestp) { bestp = m; badp = a; } }
printf(" packed %d/456 @%04x", bestp, badp);
int pb[4] = {0,0,0,0};
for (int i = 0; i < 456; i++) { int bit = (dsp->data[badp + i / 16] >> (15 - i % 16)) & 1; if (bit == code[i]) pb[i & 3]++; }
printf(" par burst %d %d %d %d /114", pb[0], pb[1], pb[2], pb[3]); }
printf("\n");
/* the decoder input at 0x2a00 (the trellis loop reads pairs from AR1 = 0x2a00) */
if (g_snap_2a00_ok) { const char *d = calypso_getenv("PONT_NB_HIST"); if (d) { char nom[256]; snprintf(nom, sizeof nom, "%s/entree_%u.txt", d, fn); FILE *f = fopen(nom, "w"); if (f) { for (int i = 0; i < 456; i++) fprintf(f, "%d\n", (int16_t)g_snap_2a00[i]); fclose(f); } } }
if (g_snap_2a00_ok) { int mp = 0, mn = 0, m1 = 0, nz = 0; g_snap_2a00_ok = 0;
for (int i = 0; i < 456; i++) { int16_t v = (int16_t)g_snap_2a00[i]; if (v) nz++;
if ((v > 0) == (code[i] != 0)) mp++;
if ((v < 0) == (code[i] != 0)) mn++;
if ((v == 1) == (code[i] != 0)) m1++; }
printf(" [entree] fn=%u 0x2a00..+456 : nonzero=%d pos=1 %d/456 neg=1 %d/456 one=1 %d/456 | premiers:", fn, nz, mp, mn, m1);
for (int i = 0; i < 48; i++) printf(" %d", (int16_t)g_snap_2a00[i]);
printf("\n [entree] attendu :"); for (int i = 0; i < 48; i++) printf(" %d", code[i]); printf("\n");
/* per-burst view: bits k with k%4==b */
for (int b = 0; b < 4; b++) { int m = 0, n = 0; for (int i = b; i < 456; i += 4) { int16_t v = (int16_t)g_snap_2a00[i]; if (v) { n++; if ((v < 0) == (code[i] != 0)) m++; } }
printf(" [entree] burst %d : neg=1 %d/%d\n", b, m, n); } }
/* the 228 decoder output bits: best match over memory, hard words and LSB */
{ uint8_t u[228];
if (cellule_u228_attendu(fn, bsic, u) == 0) {
int best[2] = {0,0}; unsigned bad[2] = {0,0};
for (unsigned a = 0x60; a + 228 < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0;
for (int i = 0; i < 228; i++) { uint16_t v = dsp->data[a + i];
if ((v == 1 && u[i]) || (v == 0 && !u[i])) m0++;
if ((v & 1) == u[i]) m1++; }
if (m0 > best[0]) { best[0] = m0; bad[0] = a; } if (m1 > best[1]) { best[1] = m1; bad[1] = a; } }
printf(" [u228] fn=%u hard %d/228 @%04x lsb %d/228 @%04x | ", fn, best[0], bad[0], best[1], bad[1]);
/* mismatch map at 0x2d66 (hard) */
unsigned a = 0x2d66; int e = 0; char map[240]; int k = 0;
for (int i = 0; i < 228; i++) { uint16_t v = dsp->data[a + i]; int ok = (v == u[i]); if (!ok) e++; if (i == 184 || i == 224) map[k++] = '|'; map[k++] = ok ? '.' : (v > 1 ? '?' : 'x'); }
map[k] = 0; printf("2d66: %d faux %s\n", e, map);
/* packed forms of the 228 bits anywhere in memory: 16 per word MSB
* first, LSB first, and the same with each word bit-reversed */
{ const char *nm[4] = { "msb", "lsb", "msb-rev", "lsb-rev" }; printf(" [u228] fn=%u packed:", fn);
for (int f = 0; f < 4; f++) { int best = 0; unsigned bad = 0;
for (unsigned a = 0x60; a + 15 < C54X_DATA_SIZE; a++) { int m = 0;
for (int i = 0; i < 228; i++) { uint16_t w = dsp->data[a + i / 16]; int bi = i % 16;
int bit = (f == 0) ? (w >> (15 - bi)) & 1 : (f == 1) ? (w >> bi) & 1 : (f == 2) ? (w >> bi) & 1 : (w >> (15 - bi)) & 1;
if (bit == u[i]) m++; }
if (m > best) { best = m; bad = a; } }
printf(" %s %d/228 @%04x", nm[f], best, bad); }
printf(" | 2c3c:"); for (int i = 0; i < 16; i++) printf(" %04x", dsp->data[0x2c3c + i]); printf("\n"); } } }
} }
/* where did the delivered samples land in DARAM (AAD)? offset in words at
* which the ROM's buffer equals our frame, and how many words match */
{ uint16_t aad = calypso_rhea_dma_get_daram(); int best = 0, boff = 0;
for (int off = -8; off <= 8; off++) {
int m = 0;
for (int i = 0; i < g_dernier_n_iq; i++) {
int a = (int)aad + off + i; if (a < 0 || a >= C54X_DATA_SIZE) continue;
if ((int16_t)dsp->data[a] == g_dernier_iq[i]) m++;
}
if (m > best) { best = m; boff = off; }
}
int p0 = -1; for (int i = 0; i < 40; i++) if ((int16_t)dsp->data[aad + i] != 0) { p0 = i; break; }
{ /* runs of words that differ from what was delivered, at offset 0 */
char runs[256]; int k = 0, i = 0;
while (i < g_dernier_n_iq && k < 200) {
if ((int16_t)dsp->data[aad + i] != g_dernier_iq[i]) {
int j = i; while (j < g_dernier_n_iq && (int16_t)dsp->data[aad + j] != g_dernier_iq[j]) j++;
k += snprintf(runs + k, sizeof runs - k, " %d+%d(%d)", i, j - i, (int16_t)dsp->data[aad + i]); i = j;
} else i++;
}
runs[k] = 0;
int d_dma = 0; for (int q = 0; q < g_dernier_n_iq && q < 384; q++) if ((int16_t)g_daram_apres_dma[q] != g_dernier_iq[q]) d_dma++;
printf(" [daram] fn=%u differences apres la trame (mot+longueur(valeur)):%s | juste apres le DMA, avant la ROM : %d mots differents (aad=%04x)\n", fn, runs, d_dma, g_daram_aad); }
printf(" [daram] fn=%u aad=%04x livres=%d mots, identiques=%d a l'offset %d, premier mot non nul a +%d, mots 0..7: %d %d %d %d %d %d %d %d\n",
fn, aad, g_dernier_n_iq, best, boff, p0,
(int16_t)dsp->data[aad], (int16_t)dsp->data[aad+1], (int16_t)dsp->data[aad+2], (int16_t)dsp->data[aad+3],
(int16_t)dsp->data[aad+4], (int16_t)dsp->data[aad+5], (int16_t)dsp->data[aad+6], (int16_t)dsp->data[aad+7]); }
printf("\n");
}
static void servir(int fd, C54xState *dsp, uint16_t *api_ram, long insns, bool verbeux,
const char *iq_mode, int amp)
{
bool injecter = iq_mode && *iq_mode && strcmp(iq_mode, "none") != 0;
unsigned long injectes = 0;
const uint16_t *a_sync = &api_ram[(API_NDB + NDB_A_SYNC_DEMOD) / 2];
bool init_done = false;
if (g_verif_sonde < 0) g_verif_sonde = calypso_getenv("CALYPSO_BSP_VERIF") ? 1 : 0;
unsigned long trames = 0, irqs = 0, resets = 0;
uint64_t insns_total = 0;
const uint16_t *d_fb_det = &api_ram[(API_NDB + NDB_D_FB_DET) / 2];
/* [2026-09-19] a_sch was read from R page 0 ONLY, hardcoded, while the DSP
* writes its result to the page d_dsp_page designates, alternating. Stale
* page-0 content read as a result is exactly what produces SB decodes that
* are wrong yet REPEATABLE (measured: BSIC 44 six times, 22 five times out
* of 17, never the 32 the capture carries). The PONT_CAN_SB hack in this
* same file already writes BOTH pages, so the page was known to matter.
* Both are kept here and the live one is picked per frame. */
const uint16_t *a_sch_pg[2] = {
&api_ram[(API_R_PAGE(0) + RP_A_SCH) / 2],
&api_ram[(API_R_PAGE(1) + RP_A_SCH) / 2] };
const uint16_t *a_sch0 = a_sch_pg[0];
CalypsoPontMsg m;
if (recv(fd, &m, sizeof(m), 0) != (ssize_t)sizeof(m) || m.type != PONT_HELLO ||
m.a != CALYPSO_API_WORDS || m.b != CALYPSO_PONT_MAGIC) {
fprintf(stderr, "pont : poignee de main invalide (type=%u a=%u)\n", m.type, m.a);
return;
}
envoyer(fd, PONT_HELLO_OK, CALYPSO_API_WORDS, CALYPSO_PONT_MAGIC);
printf("pont : ARM connecte, API RAM %u mots, %ld insn/trame\n", CALYPSO_API_WORDS, insns);
fflush(stdout);
while (!g_stop) {
struct pollfd pfd = { .fd = fd, .events = POLLIN };
if (poll(&pfd, 1, 200) <= 0) {
continue;
}
ssize_t n = recv(fd, &m, sizeof(m), 0);
if (n != (ssize_t)sizeof(m)) {
printf("pont : ARM deconnecte (%zd)\n", n);
break;
}
switch (m.type) {
case PONT_RESET:
/* Same as qosmo-dsp: c54x_reset, running, boot driven by the ticks, d_dsp_page=0 */
c54x_reset(dsp);
dsp->running = true;
init_done = false;
api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2] = 0;
resets++;
printf("pont : RESET #%lu (DL_STATUS=0x%04x) fn=%u pc=0x%04x\n",
resets, m.a, g_c54x_exe_fn, dsp->pc);
break;
case PONT_TICK: {
g_c54x_exe_fn = m.a;
g_tick_irq_trame = (m.b & CALYPSO_PONT_TICK_IRQ_TRAME) != 0;
bool deux_phases = (m.b & CALYPSO_PONT_TICK_DEUX_PHASES) != 0;
bool done_envoye = false;
double t_tick = chrono_ms(), t_done_a = t_tick, t_go = t_tick, t_done = 0;
m.b &= 1u;
enreg_tick(dsp, api_ram, m.a, g_tick_irq_trame, deux_phases, insns);
enreg_api_diff(api_ram, m.a, 0);
calypso_bsp_set_tpu_offset((int)m.c); /* firmware RX window */
/* AFC relay, closing the loop. The ARM writes d_afc (word 15 of the W
* page) into the shared API RAM; on silicon the DSP serialises it to
* the TWL3025 over the TSP. Without this relay the sample rotation
* stays frozen and the frequency error never converges below the SB
* threshold. m.b carries d_dsp_page, bit 0 selecting the W page. */
{ unsigned wp = m.b & 1u;
int16_t dac = (int16_t)api_ram[(wp ? 0x14u : 0x00u) + 15u];
static int16_t prev; static int first = 1;
/* [2026-09-19] Measurement before any fix: the AFC DAC never settles,
* every correction is followed by a write of exactly -700
* (afc_initial_dac_value). The suspicion is the dual-page write the
* set_afc_dac filter already documents — page A holding the inherited
* init while page B carries the correction — with the filter guarding
* only against 0, not against -700. Print BOTH pages so the claim can
* be checked instead of assumed. */
{ static unsigned na;
int16_t d0 = (int16_t)api_ram[0x00u + 15u], d1 = (int16_t)api_ram[0x14u + 15u];
static int16_t p0 = 0x7fff, p1 = 0x7fff;
if ((d0 != p0 || d1 != p1) && na++ < 40)
printf(" [afc] fn=%u w_page=%u relaye=%d | page0=%d page1=%d\n",
m.a, wp, dac, d0, d1);
p0 = d0; p1 = d1; }
if (first || dac != prev) { calypso_twl3025_set_afc_dac(dac); prev = dac; first = 0; } }
{ static unsigned _to=0; if (calypso_getenv("PONT_TPU_DEBUG") && (_to<5 || _to%2000==0)) printf(" [tpu] fn=%u tpu_offset=%u\n", m.a, m.c); _to++; }
trace_armer();
if (g_trace_reste > 0 && g_trace_f && !g_trace_ouverte && !g_trace_pc_hi) {
/* wait for the first FB task posted by the ARM (W page 0 or 1) */
static int md_cible = -1;
if (md_cible < 0) { const char *e = calypso_getenv("PONT_TRACE_MD"); md_cible = (e && *e) ? atoi(e) : 5; }
if (api_ram[(API_W_PAGE(0) + WP_D_TASK_MD) / 2] == md_cible ||
api_ram[(API_W_PAGE(1) + WP_D_TASK_MD) / 2] == md_cible) {
g_trace_ouverte = true;
trace_cellules(dsp, true);
fprintf(g_trace_f, "# d_task_md=%d vu a fn=%u page=%u ; IMR=%04x IFR=%04x pc=%04x\n",
md_cible, m.a, m.b, dsp->imr, dsp->ifr, dsp->pc & 0xffff);
printf("pont : trace FB ouverte a fn=%u\n", m.a);
}
}
/* PONT_RX_APRES (default 1): deliver the burst AFTER the frame
* interrupt, as on silicon, where the TPU programs the RX window
* within the frame, the DSP arms DMA2 in the frame ISR, and the
* samples land afterwards. Injecting before the interrupt instead
* leaves DMA2 with ENABLE=0 when the RIF issues its RX request, and
* the SB job then decodes the previous tick's window. */
/* PONT_RX_MODE : milieu (default, see jouer_trame) | apres | avant.
* PONT_RX_APRES=0/1 is still honoured as avant/apres. */
static int rx_mode = -1; /* 0 = milieu, 1 = apres, 2 = avant */
if (rx_mode < 0) { const char *e = calypso_getenv("PONT_RX_MODE"); const char *a = calypso_getenv("PONT_RX_APRES");
rx_mode = (e && !strcmp(e, "apres")) ? 1 : (e && !strcmp(e, "avant")) ? 2
: (a && *a == '1') ? 1 : (a && *a == '0') ? 2 : 0; }
bool rx_apres = (rx_mode == 1);
if (rx_mode == 2 && injecter && init_done) injecter_burst(dsp, iq_mode, amp, m.a, &injectes);
/* Real chain: drain UDP socket 6702 (bursts from the bridge/BTS) and
* hand them to the DSP. This is the only source when synthetic
* injection is off, and a no-op when the socket is empty. */
if (init_done && rx_mode != 0) calypso_bsp_service(m.a);
g_inj.actif = (rx_mode == 0 && init_done);
g_inj.iq_mode = (rx_mode == 0 && injecter) ? iq_mode : NULL;
g_inj.amp = amp; g_inj.fn = m.a; g_inj.injectes = &injectes; g_inj.udp = (rx_mode == 0 && init_done);
uint32_t ninsn = 0;
bool init_avant = init_done;
uint32_t drapeaux = jouer_trame(dsp, insns, &init_done, &ninsn, deux_phases ? 1 : 0);
if (deux_phases) {
/* [2026-09-21] Phase A done: the ROM's frame ISR has written the
* R page (previous burst) and armed the window. Tell QEMU, which
* raises the ARM frame IRQ, waits for the end of l1_sync() and
* sends PONT_GO; only then is the burst of this frame delivered.
* That is the silicon order, and what keeps "BURST ID n!=m" and
* "EMPTY" (prim_rx_nb.c) away. */
sonde_pages("A", m.a, dsp, api_ram);
enreg_api_prendre(api_ram);
envoyer(fd, PONT_DONE, drapeaux & ~PONT_DONE_API_IRQ, ninsn);
t_done_a = chrono_ms();
bool go = false;
while (!g_stop && !go) {
struct pollfd pg = { .fd = fd, .events = POLLIN };
if (poll(&pg, 1, 2000) <= 0) { static unsigned nt; if (nt++ < 3) printf("pont : PONT_GO attendu (fn=%u)\n", m.a); continue; }
CalypsoPontMsg g;
ssize_t ng = recv(fd, &g, sizeof(g), 0);
if (ng != (ssize_t)sizeof(g)) { printf("pont : ARM deconnecte en attente de GO (%zd)\n", ng); g_stop = 1; break; }
if (g.type == PONT_GO) { go = true; t_go = chrono_ms(); }
else { static unsigned nx; if (nx++ < 3) printf("pont : message %u recu en attente de GO, ignore\n", g.type); }
}
if (!go) break;
sonde_pages("G", m.a, dsp, api_ram);
enreg_api_diff(api_ram, m.a, 1);
if (calypso_getenv("PONT_NB_DEBUG") && ((m.a % 51u) % 10u - 2) % 4 == 3 && m.a % 51u <= 5 &&
(api_ram[API_R_PAGE(0) / 2] == 24 || api_ram[API_R_PAGE(1) / 2] == 24)) {
static unsigned nq;
if (nq++ < 8) {
printf(" [garde] fn=%u avant le burst 3, bursts precedents en memoire :", m.a);
for (int b = 1; b <= 3; b++) {
uint8_t bits[148]; if (cellule_bits_attendus(m.a - b, 42, bits) < 0) continue;
uint8_t t116[116]; memcpy(t116, bits + 3, 58); memcpy(t116 + 58, bits + 87, 58);
int best[3] = {0,0,0}; unsigned bad[3] = {0,0,0};
for (unsigned a = 0x60; a + 116 < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0, m2 = 0;
for (int i = 0; i < 116; i++) { int16_t v = (int16_t)dsp->data[a + i];
if ((v < 0) == (t116[i] != 0)) m0++;
if ((v > 0) == (t116[i] != 0)) m1++;
if ((v == 1 && t116[i]) || (v == 0 && !t116[i])) m2++; }
if (m0 > best[0]) { best[0] = m0; bad[0] = a; } if (m1 > best[1]) { best[1] = m1; bad[1] = a; } if (m2 > best[2]) { best[2] = m2; bad[2] = a; }
}
/* packed 16 per word too */
int bestp = 0; unsigned badp = 0;
for (unsigned a = 0x60; a + 8 < C54X_DATA_SIZE; a++) { int mm = 0;
for (int i = 0; i < 116; i++) { int bit = (dsp->data[a + i / 16] >> (15 - i % 16)) & 1; if (bit == t116[i]) mm++; }
if (mm > bestp) { bestp = mm; badp = a; } }
printf(" b%d(fn %u): neg %d@%04x pos %d@%04x hard %d@%04x packed %d@%04x |", 3 - b, m.a - b, best[0], bad[0], best[1], bad[1], best[2], bad[2], bestp, badp);
}
printf("\n");
}
}
uint32_t n2 = 0;
g_insn_a = ninsn;
if (g_done_tot < 0) { const char *e = calypso_getenv("PONT_DONE_TOT"); g_done_tot = !(e && *e == '0'); }
g_reste_b = 0;
drapeaux = jouer_trame(dsp, insns, &init_done, &n2, 2);
ninsn += n2; g_insn_b = n2;
if (g_done_tot) {
/* DONE tout de suite : QEMU repart, le DSP finit la trame ici. */
envoyer(fd, PONT_DONE, drapeaux & ~PONT_DONE_API_IRQ, ninsn);
done_envoye = true;
t_done = chrono_ms();
if (g_reste_b > 0 && !dsp->idle && dsp->running) {
uint32_t av = dsp->insn_count;
c54x_run_profile(dsp, g_reste_b);
ninsn += dsp->insn_count - av;
}
g_reste_b = 0;
}
}
g_inj.actif = false;
sonde_pages("B", m.a, dsp, api_ram);
if (g_inj.dernier_type == 'B' && (api_ram[API_R_PAGE(0) / 2] == 24 || api_ram[API_R_PAGE(1) / 2] == 24)) sonde_bits(m.a, dsp, 42);
/* Reference probe (CALYPSO_BSP_VERIF=1): compare DARAM against the
* burst the BSP was handed, AFTER the DSP has run — the samples
* only reach DARAM through the DSP's own DMA draining the RIF, so
* there is nothing to compare before jouer_trame. */
if (g_verif_sonde) {
uint32_t vfn = 0; uint16_t vad = 0; int vn = 0, vage = 0;
int ident = calypso_bsp_verif_compare(&vfn, &vad, &vn, &vage);
if (ident >= 0 && vn > 0) {
static unsigned nv;
if (nv++ < 4000) {
uint16_t vpg = calypso_bsp_verif_last_page();
printf(" [verif] fn=%u p51=%u age=%d page=0x%04x w_page=%d : "
"%d/%d en 0x%04x %s\n",
vfn, vfn % 51u, vage, vpg, (int)(vpg & 1u),
ident, vn, vad, ident == vn ? "VALIDE" : "partiel");
}
}
}
if (rx_apres && injecter && init_done && dsp->running) {
injecter_burst(dsp, iq_mode, amp, m.a, &injectes);
/* DMA completion inside the same frame: wake on the held INT10n
* line, then let the DSP run the completion ISR and background
* work through to IDLE. */
uint32_t avant = dsp->insn_count;
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) &&
!(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
if (!dsp->idle) c54x_run_profile(dsp, (int)insns);
ninsn += dsp->insn_count - avant;
}
/* [2026-09-20] STREAM PUMP (same as rejouer.c). DMA2 now fills its
* double buffer with full pages and interrupts once per pair; the
* ROM's ISR consumes both halves and the DSP idles. Then the next
* pair is handed over, until the receiver holds less than a pair. A
* 156.25-symbol frame is 3.25 pages, so this runs 1 or 2 times. */
for (int k = 0; k < 40 && dsp->running; k++) { /* 13 page pairs per 1250-symbol frame */
/* [2026-09-29] un SCH garde parce que la DMA n'etait pas armee au
* depot est relivre ici, des que la ROM (phase B) l'a armee. */
calypso_bsp_sb_retenter();
if (!calypso_rhea_dma_pump(dsp)) break;
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
uint32_t av2 = dsp->insn_count;
if (!dsp->idle) c54x_run_profile(dsp, (int)insns / 4);
ninsn += dsp->insn_count - av2;
drapeaux = (drapeaux & ~PONT_DONE_IDLE) | (dsp->idle ? PONT_DONE_IDLE : 0);
}
drapeaux = (drapeaux & ~PONT_DONE_IDLE) | (dsp->idle ? PONT_DONE_IDLE : 0);
/* [2026-09-20] NB probe (PONT_NB_DEBUG=1): what the ROM leaves in the
* R pages for a normal-burst task (ALLC/BCCH), per burst: d_task_d,
* d_burst_d, a_serv_demod (TOA, PM, ANGLE, SNR) and, on burst 3,
* the a_cd header of the NDB (Fire/CRC word, bit errors) plus the
* first decoded octets. Read alongside mobile's "Dropping frame
* with N bit errors". */
{
static int nbdbg = -1; static unsigned nbn;
if (nbdbg < 0) nbdbg = calypso_getenv("PONT_NB_DEBUG") ? 1 : 0;
/* [2026-09-22] Plafond porte de 400 a 20000 : les 400 etaient
* consommees par le campement avant toute connexion dediee,
* et la sonde etait donc muette quand on en avait besoin. */
if (nbdbg && nbn < 20000) {
static uint16_t prev[2][4];
for (int pg = 0; pg < 2; pg++) {
const uint16_t *r = &api_ram[API_R_PAGE(pg) / 2];
uint16_t cur[4] = { r[RP_D_TASK_D/2], r[RP_D_BURST_D/2], r[RP_A_SERV_DEMOD/2 + D_TOA], r[RP_A_SERV_DEMOD/2 + D_PM] };
if (r[RP_D_TASK_D/2] && memcmp(cur, prev[pg], sizeof cur)) {
const uint16_t *w0 = &api_ram[API_W_PAGE(0) / 2], *w1 = &api_ram[API_W_PAGE(1) / 2];
printf(" [nb] fn=%u p51=%u R%d task_d=%u burst_d=%u TOA=%d PM=%d ANGLE=%d SNR=%u | W0 task_d=%u burst=%u W1 task_d=%u burst=%u | livre=%c n_iq=%d one_shot=%d len=%u mots",
m.a, m.a % 51u, pg, r[RP_D_TASK_D/2], r[RP_D_BURST_D/2],
(int16_t)r[RP_A_SERV_DEMOD/2 + D_TOA], (int16_t)r[RP_A_SERV_DEMOD/2 + D_PM],
(int16_t)r[RP_A_SERV_DEMOD/2 + D_ANGLE], r[RP_A_SERV_DEMOD/2 + D_SNR],
w0[0], w0[1], w1[0], w1[1], g_inj.dernier_type, g_inj.dernier_n_iq,
calypso_rhea_dma_one_shot(), calypso_rhea_dma_get_len_words());
if (r[RP_D_BURST_D/2] == 3) {
const uint16_t *cd = &api_ram[(API_NDB + NDB_A_CD) / 2];
printf(" | a_cd=%04x %04x %04x :", cd[0], cd[1], cd[2]);
for (int k = 3; k < 15; k++) printf(" %04x", cd[k]);
}
printf("\n"); nbn++;
}
memcpy(prev[pg], cur, sizeof cur);
}
}
}
/* Canned results: scaffolding to prove the pipeline through to the
* LU, not an end state. PONT_CAN_TOA=23 forces the reported TOA
* (a_sync_demod[D_TOA]) to the on-time value the firmware expects
* (prim_fbsb.c subtracts 23). Drop it once the correlator's native
* TOA is correct. -1, the default, disables canning. */
{
static int can_toa = -2;
if (can_toa == -2) { const char *e = calypso_getenv("PONT_CAN_TOA"); can_toa = (e && *e) ? atoi(e) : -1; }
if (can_toa >= 0 && *d_fb_det)
api_ram[(API_NDB + NDB_A_SYNC_DEMOD) / 2 + D_TOA] = (uint16_t)can_toa;
/* SB: the firmware reads a_serv_demod[D_TOA] from the read page
* and expects about 4. PONT_CAN_SB_TOA=4 pins it on both R
* pages, which frames the SCH correctly. */
static int can_sb = -2;
if (can_sb == -2) { const char *e = calypso_getenv("PONT_CAN_SB_TOA"); can_sb = (e && *e) ? atoi(e) : -1; }
if (can_sb >= 0) {
api_ram[(API_R_PAGE(0) + RP_A_SERV_DEMOD) / 2 + D_TOA] = (uint16_t)can_sb;
api_ram[(API_R_PAGE(1) + RP_A_SERV_DEMOD) / 2 + D_TOA] = (uint16_t)can_sb;
}
/* Full SB canning (PONT_CAN_SB=<bsic>): write the SB result
* (a_sch) with CRC OK, the BSIC and the real frame number, the
* way qemu-calypso's shunt_encode_sb does. The frame number comes
* from the last delivered burst (real BTS, via
* calypso_bsp_get_last_fn) or from m.a. Applies only when the ARM
* asks for SB (d_task_md=6 on a W page) and on an SCH frame,
* fn%51 in {1,11,21,31,41}. */
static int can_sb_full = -2, can_sb_bsic = 7;
if (can_sb_full == -2) { const char *e = calypso_getenv("PONT_CAN_SB"); can_sb_full = (e && *e) ? 1 : 0; if (e && *e) can_sb_bsic = atoi(e) & 0x3f; }
if (can_sb_full) {
int md0 = api_ram[4] & 0xff, md1 = api_ram[0x18] & 0xff; /* d_task_md on W pages 0 and 1 */
if (md0 == 6 || md1 == 6) {
/* [2026-09-19] The frame MUST be the tick's own (m.a), not
* calypso_bsp_get_last_fn(): measured, the two diverged badly
* (the canned SB announced fn=5662 while the firmware sat at
* 11261), and Synchronize_TDMA then locked the ARM onto a frame
* number unrelated to what the injector delivers — every burst
* after the sync misaligned. A canned SB has to carry the clock
* the cell is actually generated from, or it proves nothing. */
uint32_t bfn = m.a;
uint32_t p51 = bfn % 51;
if (!(p51 % 10 == 1 && p51 <= 41)) bfn += (51 + 1 - (int)p51) % 51; /* snap to an SCH frame */
uint32_t sb = pont_encode_sb((uint8_t)can_sb_bsic, bfn / 1326, bfn % 26, bfn % 51);
for (int pg = 0; pg < 2; pg++) {
uint16_t *a = &api_ram[(API_R_PAGE(pg) + RP_A_SCH) / 2];
a[0] = 0x8000; /* B_SCH_CRC clear = CRC OK */
a[1] = 0x2034; /* echo value, as the DSP writes it */
a[3] = (uint16_t)(sb & 0xffff);
a[4] = (uint16_t)(sb >> 16);
}
static int nlog = 0;
if (nlog < 8) { printf(" [can-sb] fn=%u -> sb=0x%08x BSIC=%d (T1=%u T2=%u T3=%u) hacks=%s\n",
bfn, sb, can_sb_bsic, bfn/1326, bfn%26, bfn%51, hacks_actifs()); nlog++; }
}
}
}
if (*d_fb_det) calypso_bsp_toa_feedback((int)(int16_t)a_sync[0]); /* native TOA tracking loop */
/* [2026-09-21] LIEN MONTANT. Sous CALYPSO_DSP_EXTERN=1 la couche 1
* gr-gsm est desactivee, donc les hooks qui publiaient le montant
* (calypso_l1_do_rach_written / _page_written) sont des no-op et le
* RACH du mobile ne quittait jamais l'API RAM : pont.py comptait
* « UL bursts=0 rach=0 », aucune IMM ASS, aucun LU ACCEPT. On
* scrute ici la page W que l'ARM vient de remplir (m.b = d_dsp_page)
* et on alimente les memes side-bands /dev/shm qu'en montage grgsm. */
montant_scruter(api_ram, m.a, m.b & 1u);
trames++;
insns_total += ninsn;
if (drapeaux & PONT_DONE_API_IRQ) irqs++;
enreg_api_prendre(api_ram);
if (!done_envoye) envoyer(fd, PONT_DONE, drapeaux, ninsn);
{ double t_fin = chrono_ms(); chrono_trame(t_tick, t_done_a, t_go, t_done > 0 ? t_done : t_fin, t_fin, m.a); }
if (!init_avant && init_done) {
printf("pont : DSP boote (premier IDLE) fn=%u insn=%u\n", m.a, dsp->insn_count);
}
/* frame at which the ARM posts the FB/SB task (W0 word 4, W1 word 0x18) */
{ static int prev5 = -1, prev6 = -1, ncmd = 0;
int md0 = api_ram[4] & 0xff, md1 = api_ram[0x18] & 0xff;
int has5 = (md0 == 5 || md1 == 5), has6 = (md0 == 6 || md1 == 6);
if (has5 && prev5 != 1 && ncmd < 24) { printf(" [cmd] fn=%u tache FB postee par l'ARM\n", m.a); ncmd++; }
{ static int ncmd6; if (has6 && prev6 != 1 && ncmd6 < 60) { printf(" [cmd] fn=%u tache SB postee par l'ARM (W0 md=%d W1 md=%d)\n", m.a, md0, md1); ncmd6++; } }
if (has6 && prev6 != 1 && ncmd < 24) { printf(" [cmd] fn=%u tache SB postee par l'ARM\n", m.a); ncmd++; }
if (has6 && prev6 != 1) calypso_bsp_sb_trace(8); /* [2026-09-29] et autour de chaque tache SB */
prev5 = has5; prev6 = has6; }
{ static int fb_prev = 0; if (*d_fb_det && !fb_prev) { printf(" [jalon] fn=%u d_fb_det=1 hacks=%s\n", m.a, hacks_actifs());
calypso_bsp_sb_trace(60); } /* [2026-09-29] chaque SCH trace jusqu'aux tentatives SB */
fb_prev = *d_fb_det != 0; }
/* [2026-09-19] ONE LINE PER SB ATTEMPT. Everything upstream of the SB
* task is now measured correct — right frame, right window, right
* sample offset — yet the CRC passes in 0.4% of attempts. A decode
* that were simply broken would give 0%, so something DISCRIMINATES
* the rare successes. This logs, for every frame the ARM has an SB
* task posted, the TOA the FB left behind (a_sync[0], the value the
* firmware positions the window from) next to the CRC outcome, so
* the two populations can be compared directly. */
/* The a_sync cells are already cleared by the time the SB task is
* posted (measured: toa=pm=ang=0 on every attempt), so the FB result
* has to be LATCHED when d_fb_det rises and carried to the attempt. */
static int lat_toa, lat_pm, lat_ang; static uint32_t lat_fn;
{ static int fbl = 0;
if (*d_fb_det && !fbl) {
lat_toa = (int)(int16_t)a_sync[0]; lat_pm = a_sync[1];
lat_ang = (int)(int16_t)a_sync[2]; lat_fn = m.a;
}
fbl = *d_fb_det != 0; }
{ static int sb_prev = 0;
int md_0 = api_ram[4] & 0xff, md_1 = api_ram[0x18] & 0xff;
int sb_now = (md_0 == 6 || md_1 == 6);
if (sb_now && !sb_prev) {
static unsigned nsb;
if (nsb++ < 4000)
printf(" [sb] fn=%u p51=%u | FB a fn=%u toa=%d pm=%u ang=%d "
"| TOA-ROM=%d src=%s "
"| a_sch=%04x %s\n",
m.a, m.a % 51u, lat_fn, lat_toa, lat_pm, lat_ang,
g_toa_valeur,
g_toa_grille < 0 ? "?" : (g_toa_grille ? "GRILLE(0x0cce)" : "fine"),
a_sch0[0],
((a_sch0[0] & 0x8100) == 0x8000) ? "CRC_OK" : "crc_ko");
}
sb_prev = sb_now; }
/* CRC watched on BOTH R pages, and the page reported: reading page 0
* alone cannot tell a real decode from stale content. A genuine SCH
* gives the SAME BSIC every time (32 for cellule_reelle.bin); a
* value that changes at each hit is a 10-bit CRC passing by chance
* (1/1024) or a stale cell. */
/* [2026-09-19] Who writes a_sch at all? The DSP never does: the
* A_SCH-WR probe in c54x_mem.c (live, its ANGLE-WR neighbour fires)
* counted ZERO stores by the ROM to 0x0837..0x083b / 0x084b..0x084f.
* The only host writer is the PONT_CAN_SB block below, which is off.
* Yet the cells change. The remaining writer is the ARM, through the
* shared mapping, which no DSP-side probe can see -- so watch the
* VALUES from here and name the frame. */
/* [2026-09-19] Who maintains d_dsp_page? calypso_api.h: an armed page
* is B_GSM_TASK|page = 0x0002 or 0x0003; 0x0000 is the reset state
* l1s_reset_hw() writes (sync.c:165), and it also puts the firmware
* back on R page 0. Measured at 0x0000 on 39% of samples, because
* the FBSB loop restarts ~12000 times. On silicon the DSP re-arms
* the page itself; this names every transition and its writer. */
{ static uint16_t dpp; static int dfirst = 1; static unsigned ndp;
uint16_t dp = api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2];
if (!dfirst && dp != dpp && ndp < 40) {
printf(" [page] fn=%u d_dsp_page %04x -> %04x (%s)\n", m.a, dpp, dp,
(dp & 0x0002) ? ((dp & 1) ? "arme page 1" : "arme page 0")
: "NON ARME (etat de reset)");
ndp++;
}
dpp = dp; dfirst = 0; }
{ static uint16_t prev[2][5]; static int first = 1; static unsigned nch;
for (int pg = 0; pg < 2; pg++) {
const uint16_t *a = a_sch_pg[pg];
/* [2026-09-29] plafond 60 -> 600 et TOA de la page R : c'est la
* mesure du cadrage SB (un SCH bien pose lit TOA=23). */
if (!first && nch < 600 &&
(a[0] != prev[pg][0] || a[3] != prev[pg][3] || a[4] != prev[pg][4])) {
const uint16_t *rp = &api_ram[API_R_PAGE(pg) / 2];
printf(" [a_sch] fn=%u page=%d : %04x %04x %04x %04x -> "
"%04x %04x %04x %04x (d_dsp_page=%04x) TOA=%d PM=%d SNR=%u %s\n",
m.a, pg, prev[pg][0], prev[pg][1], prev[pg][3], prev[pg][4],
a[0], a[1], a[3], a[4],
api_ram[(API_NDB + NDB_D_DSP_PAGE) / 2],
(int16_t)rp[RP_A_SERV_DEMOD/2 + D_TOA], (int16_t)rp[RP_A_SERV_DEMOD/2 + D_PM],
rp[RP_A_SERV_DEMOD/2 + D_SNR],
((a[0] & 0x8100) == 0x8000) ? "CRC_OK" : (a[0] & 0x0100) ? "crc_ko" : "");
nch++;
}
prev[pg][0]=a[0]; prev[pg][1]=a[1]; prev[pg][3]=a[3]; prev[pg][4]=a[4];
}
first = 0; }
{ static int crc_prev[2] = {1, 1};
for (int pg = 0; pg < 2; pg++) {
const uint16_t *a = a_sch_pg[pg];
/* [2026-09-19] The criterion (a[0] & 0x8100) == 0x8000 counts
* SATURATED ACCUMULATORS as CRC OK: a_sch[0] has been seen
* carrying plain numbers, and 0x8000 is exactly what a
* saturated accumulator stores (rejouer.c:923). Every "SB CRC
* OK" of this session rested on it, so it is replaced by a
* test the arithmetic cannot pass by accident: GSM 04.08
* bounds T2 <= 25 and T3' <= 4, so 6 of 32 T2 values and 3 of
* 8 T3' values are IMPOSSIBLE in a real SCH. */
uint32_t _sb = (uint32_t)a[3] | ((uint32_t)a[4] << 16);
unsigned _t2 = (_sb >> 18) & 0x1f;
unsigned _t3p = ((_sb >> 24) & 1) | ((_sb >> 15) & 6);
int _plausible = (_t2 <= 25) && (_t3p <= 4);
int crc_ok = ((a[0] & 0x8100) == 0x8000) && _plausible;
if (crc_ok && !crc_prev[pg]) {
uint32_t sb = (uint32_t)a[3] | ((uint32_t)a[4] << 16);
printf(" [jalon] fn=%u SB PLAUSIBLE page=%d BSIC=%u "
"a_sch=%04x %04x %04x %04x hacks=%s\n",
m.a, pg, (unsigned)((sb >> 2) & 0x3f),
a[0], a[1], a[3], a[4], hacks_actifs());
}
crc_prev[pg] = crc_ok;
} }
if ((trames % 217) == 0) {
profil_publier();
pcc_publier();
dump_publier(dsp);
}
if (verbeux || (trames % 217) == 0) {
printf(" fn=%-7u page=%u insn=%-7u %s%s%s d_fb_det=%-5u a_sch=%04x %04x %04x %04x"
" sync=%04x %04x %04x | trames=%lu irq=%lu iq=%lu\n",
m.a, m.b, ninsn,
(drapeaux & PONT_DONE_IDLE) ? "IDLE " : "occupe ",
(drapeaux & PONT_DONE_API_IRQ) ? "IRQ-API " : "",
(drapeaux & PONT_DONE_INIT) ? "" : "boot ",
*d_fb_det, a_sch0[0], a_sch0[1], a_sch0[2], a_sch0[3],
a_sync[0], a_sync[1], a_sync[2], trames, irqs, injectes);
if ((trames % (217*8)) == 0) printf(" hacks actifs : %s ; cadencement : %s ; stimulus : %s\n",
hacks_actifs(), cadencement_actif(), iq_mode ? iq_mode : "none");
}
fflush(stdout);
break;
}
case PONT_DCCH:
/* [2026-09-21] QEMU a lu le canal dedie dans le flux L1CTL du
* firmware (calypso_dcch_tap.c) : a = TN, b = genre, c = sous-voie.
* Le BSP en a besoin pour savoir quel intervalle de temps livrer :
* le pont lui envoie les huit, il n'en joue qu'un par tick, et sans
* ca c'est toujours TS0 - donc rien du SDCCH du mobile. */
printf("pont : canal dedie %s : TS%u SDCCH/%s SS=%u\n",
m.b == 0xFF ? "libere" : "arme", m.a, m.b ? "8" : "4", m.c);
calypso_bsp_set_dedie((int)m.a, (int)m.b, (int)m.c);
if (m.b == 0xFF || (int)m.a <= 0) {
montant_canal_libere();
}
break;
case PONT_BYE:
printf("pont : BYE\n");
return;
default:
fprintf(stderr, "pont : message inconnu type=%u\n", m.type);
break;
}
}
printf("pont : bilan de la session : %lu trames, %lu IRQ API, %lu reset, %llu insn\n",
trames, irqs, resets, (unsigned long long)insns_total);
montant_bilan();
}
int pont_serveur(C54xState *dsp, uint16_t *api_ram, const char *socket_path,
long insns, bool verbeux, const char *iq_mode, int amp)
{
signal(SIGINT, sur_signal);
signal(SIGTERM, sur_signal);
{ static int16_t rempl[2 * 148]; /* TS1..TS7 of the C0 carrier: dummy bursts */
cellule_factice(amp, 0.5, rempl);
calypso_bsp_set_remplissage(rempl, 2 * 148); }
int srv = socket(AF_UNIX, SOCK_SEQPACKET, 0);
if (srv < 0) {
fprintf(stderr, "pont : socket : %s\n", strerror(errno));
return 1;
}
struct sockaddr_un sa = { .sun_family = AF_UNIX };
snprintf(sa.sun_path, sizeof(sa.sun_path), "%s", socket_path);
unlink(socket_path);
if (bind(srv, (struct sockaddr *)&sa, sizeof(sa)) < 0 || listen(srv, 1) < 0) {
fprintf(stderr, "pont : bind/listen(%s) : %s\n", socket_path, strerror(errno));
close(srv);
return 1;
}
chmod(socket_path, 0666);
if (iq_mode && *iq_mode && strcmp(iq_mode, "none") != 0)
printf("pont : injection I/Q « %s » amplitude %d a chaque trame (DARAM 0x%04x, %u mots)\n",
iq_mode, amp, calypso_bsp_get_daram_addr(), calypso_bsp_get_daram_len());
printf("pont : en attente de l'ARM sur %s (API RAM : /dev/shm%s)\n"
" cote QEMU : CALYPSO_DSP_EXTERN=1 qemu-system-arm -M calypso ...\n",
socket_path, CALYPSO_PONT_SHM);
fflush(stdout);
while (!g_stop) {
struct pollfd pfd = { .fd = srv, .events = POLLIN };
if (poll(&pfd, 1, 200) <= 0) {
continue;
}
int fd = accept(srv, NULL, NULL);
if (fd < 0) {
continue;
}
servir(fd, dsp, api_ram, insns, verbeux, iq_mode, amp);
close(fd);
fflush(stdout);
}
close(srv);
unlink(socket_path);
return 0;
}9.16 /opt/GSM/c54x_exe/src/pont.h
1062 octets, 23 lignes → 23 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef PONT_H
#define PONT_H
#include <stdint.h>
#include <stdbool.h>
#include "calypso_c54x.h"
/* Allocates the C54xState with data[] page-aligned, then maps the shared segment
* OVER data[0x0800..0x27FF] (protocol in calypso_dsp_pont.h). Replaces
* c54x_init() in --arm mode; api_ram must then be &dsp->data[C54X_API_BASE]. */
C54xState *pont_allouer_dsp(void);
/* Serves QEMU's ARM: one connection after another, runs one frame per TICK,
* answers DONE. Returns only on SIGINT/SIGTERM.
* iq_mode: NULL/"none" = nothing, "fcch" = synthetic FCCH burst (+pi/2 rotation
* per sample, 1 sample/symbol), "noise" = noise, "tone:<dphi>" = dphi radians
* per sample, "cell[:bsic[:decalage[:marge]]]" = full 51-multiframe cell.
* amp = int16 amplitude (real FCCH bursts run at ~32500 rms). Injected on every
* frame through calypso_bsp_rx_burst(). */
int pont_serveur(C54xState *dsp, uint16_t *api_ram, const char *socket_path,
long insns, bool verbeux, const char *iq_mode, int amp);
#endif9.17 /opt/GSM/c54x_exe/src/rejouer.c
161845 octets, 2596 lignes → 2593 lignes (2 groupes compactés)
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* rejouer.c - deterministic replay of FB/SB acquisition on the real DSP.
*
* Two identical runs of the full bench (QEMU + osmocon + mobile) diverged: the
* ARM (TCG) advances at host speed between frame interrupts, so the frame on
* which it posts the FB task changes from run to run. Here the ARM is NOT
* emulated: its layer 1 is replayed in C (l1_sync + fb_sched_set/sb_sched_set
* from prim_fbsb.c/sync.c), injection is locked to the frame counter, and
* nothing reads the host clock. Same input => same output, always.
*
* This is not an operating mode: it is a DSP measurement bench (FB then SB)
* driven by the same command sequence as the real firmware.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <math.h>
#include "calypso_c54x.h"
#include "calypso_bsp.h"
#include "hw/arm/calypso/calypso_api.h"
#include "cellule.h"
#include "calypso_twl3025.h"
#include "calypso_rhea_dma.h"
#include "rejouer.h"
#include <osmocom/core/bits.h>
#include <osmocom/core/crcgen.h>
#include <osmocom/coding/gsm0503_parity.h>
#include "hw/arm/calypso/calypso_debug.h"
/* ---- API offsets in WORDS from the API base (= DSP 0x800) --------------- */
#define W_PAGE(p) ((p) ? 0x14u : 0x00u) /* T_DB_MCU_TO_DSP, 17 words */
#define R_PAGE(p) ((p) ? 0x3Cu : 0x28u) /* T_DB_DSP_TO_MCU, 20 words */
#define W_SIZE 17u
#define R_SIZE 20u
#define W_TASK_D 0u
#define W_TASK_MD 4u
#define W_CTRL_ABB 11u
#define W_AFC 15u
#define W_CTRL_SYS 16u
#define NDB 0xD4u
#define NDB_PAGE (NDB + 0u)
#define NDB_ERRSTAT (NDB + 1u)
#define NDB_FB_DET (NDB + 36u)
#define NDB_FB_MODE (NDB + 37u)
#define NDB_SYNC (NDB + 38u) /* a_sync_demod[TOA,PM,ANGLE,SNR] */
#define R_SERV 8u /* a_serv_demod[4] */
/* [2026-09-18] SYMBOL SAMPLING OFFSET. Replay sampled the GMSK at 0.0, i.e. on
* the symbol BOUNDARY, while the bridge uses 0.5, the CENTER. With the gaussian
* pulse of gmsk.c (BT=0.3), the weight of the target symbol in the phase
* difference between two consecutive samples is:
*
* offset target symbol previous neighbour next neighbour
* 0.0 0.454 0.023 0.492
* 0.25 0.590 0.069 0.333
* 0.5 0.653 0.158 0.189
*
* At 0.0 the NEXT neighbour outweighs the symbol being read: the offset is not
* noisy, it is UNDETERMINED, and the demodulator may latch onto either one. That
* accounts for offset=22 at margin=21, midamble at 56/63, data at 71-73/78 with
* otherwise perfect samples, and the correlation peak jumping between adjacent
* lags. */
/* Tunable for sweeps: 0.5 (symbol center) is argued above, but it is a
* hypothesis and the bench must be able to test it.
* REJEU_DECALAGE_SYMB=<x>, default 0.5. */
static double decalage_symb(void)
{
static double d = -1.0;
if (d < 0) { const char *e = calypso_getenv("REJEU_DECALAGE_SYMB");
d = (e && *e) ? atof(e) : 0.5;
if (d < 0 || d >= 1.0) d = 0.5; }
return d;
}
#define DECALAGE_SYMB decalage_symb()
/* Tunable head margin (REJEU_MARGE, default 21); the tail fills out to 190 complex samples */
static int marge_tete(void)
{
static int m = -1;
if (m < 0) { const char *e = calypso_getenv("REJEU_MARGE"); m = e ? atoi(e) : 21;
if (m < 0 || m > 41) m = 21;
cellule_marge_fin = 190 - 148 - m; }
return m;
}
#define R_SCH 15u /* a_sch[5] */
#define B_SCH_CRC 8
/* B_GSM_TASK comes from calypso_api.h (bit mask, (1u << 1)) */
#define B_AFC 4
#define FB_DSP_TASK 5
#define SB_DSP_TASK 6
#define BITS_PER_TDMA 1250 /* tpu.h: a TDMA frame is 8 x 156.25 = 1250 bit periods */
/* firmware thresholds (prim_fbsb.c: SNR not gating, #else FB*_SNR_THRESH=0) */
#define THRESH1 (11000 - 1000)
#define THRESH2 (1000 - 200)
#define AFC_RETRY_MAX 30
#define FB0_RETRY_MAX 3
/* sync.h: ANGLE_TO_FREQ(a) = a * BITFREQ_DIV_PI / ANG2FREQ_SCALING */
#ifndef BITFREQ_DIV_PI
#define BITFREQ_DIV_PI 86208 /* sync.h:203: 270kHz/pi */
#endif
#ifndef ANG2FREQ_SCALING
#define ANG2FREQ_SCALING (2<<15) /* sync.h:204: fx1.15 */
#endif
#define ANGLE2FREQ(a) ((int)(int16_t)(a) * BITFREQ_DIV_PI / ANG2FREQ_SCALING)
/* ---- replayed ARM state ------------------------------------------------- */
typedef void (*cb_t)(int attempt);
struct item { int frame; cb_t cb; int attempt; };
static uint16_t *api;
static C54xState *dsp;
static unsigned w_page, r_page, r_page_used;
static uint32_t fn_cur; /* l1s.current_time.fn */
static unsigned long histo_pc[64];
static unsigned long insn_total;
static unsigned char *vu_sb, *vu_hors;
static int16_t g_livre_iq[2*256]; static int g_livre_niq;
static char g_livre_type; static uint32_t g_livre_fn; static int g_livre_n;
static int afc_dac = -700; /* afc_initial_dac_value (compal) */
static int fb_mode, afc_retries, fb0_retries;
static struct item sched[32]; static int n_sched;
static struct { int toa, pm, angle, snr, freq_diff, attempt; uint32_t fnr; } fb;
static int verdict; /* 0 running, 1 SB OK, -1 gave up */
static uint32_t sb_word; static int sb_bsic; static uint32_t sb_fn;
static int n_fb_ok, n_sb_try, n_sb_crcfail, n_crc_ok, n_sb_vraies;
static int n_err_dsp, n_err8;
static long n_cmps_sb, n_cmps_hors, n_e0_sb, n_sttrn_sb;
static long n_e0x_sb[4];
static int n_firs_vus;
static long n_cmps_reg[64];
static long n_xc_reg[64];
static int n_xc_vus;
static int n_bal;
static int n_sat_vus;
static int n_ecr;
static int n_2a0;
static int g_bsic_injecte; /* BSIC actually transmitted by the cell */
static int trace;
static unsigned long hit_7c31, hit_9841, hit_84a1, hit_770a, hit_b219, hit_7a16;
static unsigned long hit_8478, hit_8492, hit_8493, hit_8497;
static unsigned long hit_7d1c, hit_7d1d, hit_7d1e, hit_81e4;
/* [2026-09-19] SB PATH OPCODE INVENTORY. The fault is confined to the window
* 0x84a1..0x8497, but which instruction is mis-emulated is unknown. Record the
* distinct opcodes executed inside the SB demod with their pass count and one
* witness PC: that gives a finite list to audit against SPRU172C instead of an
* intuition. REJEU_OPCODES=1. */
/* Environment flags read ONCE in rejouer(): calypso_getenv() inside the per-instruction
* loop was a linear scan of environ per emulated instruction. */
static int env_div, env_softs_continu, env_firs, env_probe_t, env_decodeur;
static uint16_t g_ad_avant;
static uint32_t g_vie_fn; static uint16_t g_vie_ad;
static int g_dans_sb; /* true between 0x7c31 (demod) and 0x9841 (decoder) */
static unsigned long g_op_n[65536];
static unsigned long g_op_dec[65536]; /* DECODER opcodes, region 0x9800-0x9bff */
static unsigned long g_op_eq[65536]; /* EQUALIZER opcodes, region 0x8400-0x84ff */
static unsigned long g_n_dec; /* number of decodes (passes at 0x9841) */
static uint16_t g_op_pc[65536];
static unsigned long g_op_tous[65536]; /* every executed opcode word, both paths */
/* [2026-09-18] REAL SCH BURSTS. Until now the DSP only ever saw our own
* fixture, a synthetic GMSK SCH at 1 sample/symbol, so "is the ROM sound, or is
* the fixture too poor for a coherent equalizer?" stayed open. Inject SCH bursts
* extracted from a REAL capture (ptrkrysik/test_data, ARFCN 725, USRP decimation
* 174 -> 574712.6 Hz) whose answer is known: BSIC=32, Viterbi decode with 0
* errors, valid CRC. REJEU_SCH_REEL=<file>. The framing is unchanged -- same
* margins, same timing -- ONLY the burst content differs. */
static int16_t (*g_reels)[296];
static uint8_t (*g_reels_code)[78]; /* the 78 bits actually transmitted */
static uint32_t *g_reels_fn; static uint16_t *g_reels_bsic;
static unsigned g_n_reels, g_reel_i;
static int g_reel_pour_fn[64]; /* which frame received which burst */
static int reels_charger(const char *chemin)
{
FILE *f = fopen(chemin, "rb");
if (!f) { fprintf(stderr, "SCH reels : %s illisible\n", chemin); return -1; }
uint32_t n = 0, nsym = 0, ncode = 0;
if (fread(&n, 4, 1, f) != 1 || fread(&nsym, 4, 1, f) != 1 ||
fread(&ncode, 4, 1, f) != 1 || nsym != 148 || ncode != 78 || !n) {
fprintf(stderr, "SCH reels : entete invalide\n"); fclose(f); return -1; }
g_reels = calloc(n, sizeof *g_reels);
g_reels_code = calloc(n, sizeof *g_reels_code);
g_reels_fn = calloc(n, sizeof *g_reels_fn);
g_reels_bsic = calloc(n, sizeof *g_reels_bsic);
if (!g_reels || !g_reels_code || !g_reels_fn || !g_reels_bsic) { fclose(f); return -1; }
for (uint32_t i = 0; i < n; i++) {
uint32_t fn; uint16_t bsic; uint8_t pad[2];
if (fread(&fn,4,1,f)!=1 || fread(&bsic,2,1,f)!=1 || fread(pad,1,2,f)!=2 ||
fread(g_reels[i], sizeof(int16_t), 296, f) != 296 ||
fread(g_reels_code[i], 1, 78, f) != 78) { n = i; break; }
g_reels_fn[i] = fn; g_reels_bsic[i] = bsic;
}
fclose(f); g_n_reels = n;
for (int i = 0; i < 64; i++) g_reel_pour_fn[i] = -1;
printf("SCH reels : %u bursts charges depuis %s (BSIC attendu %u)\n",
n, chemin, n ? g_reels_bsic[0] : 0);
return n ? 0 : -1;
}
/* Read PROGRAM space the way the core does: with OVLY set, DARAM 0x0060..0x27FF
* is aliased into program space, so reading dsp->prog[] directly misses the
* alias -- exactly the trap the FIRS probe must avoid. */
static uint16_t prog_ovly(C54xState *d, uint16_t a)
{
if ((d->pmst & (1u << 5)) && a >= 0x0060 && a < 0x2800) return d->data[a];
return d->prog[a];
}
static void plan(int delay, cb_t cb, int attempt)
{
if (n_sched >= 32) return;
sched[n_sched].frame = (int)fn_cur + delay;
sched[n_sched].cb = cb; sched[n_sched].attempt = attempt; n_sched++;
}
static void sched_reset(void) { n_sched = 0; }
static uint16_t *dbw(void) { return &api[W_PAGE(w_page)]; }
static uint16_t *dbr(void) { return &api[R_PAGE(r_page)]; }
/* ---- callbacks: faithful copy of prim_fbsb.c ---------------------------- */
static void fbdet_cmd(int unused);
static void fbdet_resp(int attempt);
static void sbdet_cmd(int attempt);
/* calypso_getenv("X") alone is TRUE even for X=0, so a line written
* `REJEU_SCH_PARTOUT=0 REJEU_SB_FORCE=0` enabled every hack instead of cutting
* them. Here "0", "", "non", "no" and "off" are false. */
static int drapeau_env(const char *nom)
{
const char *e = calypso_getenv(nom);
if (!e || !*e) return 0;
if (e[0] == '0' && e[1] == 0) return 0;
if (!strcmp(e, "non") || !strcmp(e, "no") || !strcmp(e, "off")) return 0;
return 1;
}
static void plan_sb_annule(void) { }
static void sbdet_resp(int attempt);
static void plan_fb_set(int delay, int mode)
{
fb_mode = mode;
plan(delay + 0, fbdet_cmd, 0);
for (int a = 1; a <= 12; a++) plan(delay + 1 + a, fbdet_resp, a);
}
static int sb_uniq(void)
{
static int u = -1;
if (u < 0) u = drapeau_env("REJEU_SB_UNIQUE") ? 1 : 0;
return u;
}
/* Last scheduled SB attempt: that one must restart an acquisition. Hardcoding
* it to "attempt == 2" leaves the bench silent under a single command, where
* that attempt does not exist. */
static int sb_dernier_essai(void) { return sb_uniq() ? 1 : 2; }
static void plan_sb_set(int delay)
{
/* [2026-09-18] The DSP demodulates the burst of the frame FOLLOWING the command
* (measured by perturbation: command at fn=11 -> only a perturbation at fn=12
* changes the softs). Posting on TWO consecutive frames therefore consumes f and
* f+1; SCH frames are 10 apart, so the second attempt always reads a DUMMY
* burst, which is half the measurements taken on a constant input.
* REJEU_SB_UNIQUE=1 posts a single command so every attempt sees a real SCH. */
plan(delay + 0, sbdet_cmd, 1);
if (!sb_uniq()) plan(delay + 1, sbdet_cmd, 2);
plan(delay + 3, sbdet_resp, 1);
if (!sb_uniq()) plan(delay + 4, sbdet_resp, 2);
}
static uint32_t g_sb_cmd_fn; /* frame of the LAST SB command = the one the DSP demodulates */
static uint32_t fb_cmd_fn; /* frame on which the ARM posted the FB task */
static void fbdet_cmd(int unused)
{
(void)unused;
fb_cmd_fn = fn_cur;
dbw()[W_TASK_MD] = FB_DSP_TASK;
api[NDB_FB_MODE] = (uint16_t)fb_mode;
}
static void fbdet_resp(int attempt)
{
if (!api[NDB_FB_DET]) {
if (attempt < 12) return;
sched_reset();
if (fb0_retries < FB0_RETRY_MAX) { fb0_retries++; plan_fb_set(1, 0); }
else verdict = -1;
return;
}
/* read_fb_result */
fb.toa = (int16_t)api[NDB_SYNC + 0];
fb.pm = (int16_t)api[NDB_SYNC + 1] >> 3;
fb.angle = (int16_t)api[NDB_SYNC + 2];
fb.snr = (int16_t)api[NDB_SYNC + 3];
fb.freq_diff = ANGLE2FREQ(fb.angle);
fb.fnr = fn_cur; fb.attempt = attempt;
api[NDB_FB_DET] = 0; api[NDB_SYNC + 0] = 0;
n_fb_ok++;
if (trace) {
/* real FCCH = first frame >= cmd with p51 in {0,10,20,30,40} */
uint32_t f = fb_cmd_fn; while ((f % 51) % 10 != 0 || (f % 51) > 40) f++;
int dframe = (int)(f - fb_cmd_fn); /* FCCH frame inside the window */
int toa_attendu = dframe * BITS_PER_TDMA + 23; /* what the firmware can read */
int ntdma_lu = (fb.toa - 23) / BITS_PER_TDMA;
printf(" FB%d att=%d fn=%u TOA=%d (df=%d) | cmd=%u FCCH reelle=%u (+%d trames) "
"=> TOA attendu ~%d, ntdma lu=%d au lieu de %d\n",
fb_mode, attempt, fn_cur, fb.toa, fb.freq_diff,
fb_cmd_fn, f, dframe, toa_attendu, ntdma_lu, dframe);
}
/* afc_correct: delta = (norm * err)/slope; slope compal_e88 = 287 */
afc_dac += (int)(((32768 / 947) * (long)fb.freq_diff) / 287);
if (afc_dac > 4095) afc_dac = 4095;
if (afc_dac < -4096) afc_dac = -4096;
sched_reset();
if (fb_mode == 0) {
if (abs(fb.freq_diff) < THRESH1) plan_fb_set(1, 1);
else if (afc_retries < AFC_RETRY_MAX) { afc_retries++; plan_fb_set(1, 0); }
else verdict = -1;
} else {
int toa = fb.toa - 23, ntdma, qbits;
if (toa < 0) { qbits = (toa + BITS_PER_TDMA) * 4; ntdma = -1; }
else { ntdma = toa / BITS_PER_TDMA; qbits = (toa - ntdma * BITS_PER_TDMA) * 4; }
int fn_offset = (int)fn_cur - attempt + ntdma;
int delay = fn_offset + 11 - (int)fn_cur - 1;
if (trace) printf(" -> toa-23=%d ntdma=%d qbits=%d delay=%d\n", toa, ntdma, qbits, delay);
if (abs(fb.freq_diff) < THRESH2) {
if (delay < 0) delay = 0;
if (delay > 20) delay = 20;
/* REJEU_SB_FORCE=1: aim at the NEXT SCH frame (p51 in {1,11,21,31,41})
* instead of the computed delay. Separates the DEMODULATOR from the
* TIMING: a CRC passing here means only the timing (ntdma) is at
* fault; a failure means the SB demodulation really is wrong. */
static int force = -1;
if (force < 0) force = drapeau_env("REJEU_SB_FORCE") ? 1 : 0;
if (force) {
uint32_t f = fn_cur + 1;
while (!((f % 51) % 10 == 1 && (f % 51) <= 41)) f++;
delay = (int)(f - fn_cur);
/* [2026-09-18] THE CONSUMED FRAME IS NOT THE FIRST COMMAND.
* plan_sb_set posts the task on TWO frames (delay+0 and delay+1) and the
* DSP demodulates the SECOND: measured by perturbing one raw sample,
* frame by frame, over fn 9..15 -- only fn=12 changes the soft bits read
* at fn=14/15, while [force] aimed at fn=11. The SCH was thus placed on
* frame 11 while the DSP demodulated frame 12, which carries a DUMMY
* burst (fixed pattern, 45.002 5.2.6), hence a CONSTANT input: frozen
* softs, identical range from frame to frame, and CRC OKs all returning
* the same word tens of frames apart. Stepping back one frame aligns the
* CONSUMED frame with the SCH. REJEU_SB_DECALAGE=<n> (default -1). */
{ static int d = -2; if (d == -2) { const char *e = calypso_getenv("REJEU_SB_DECALAGE");
d = e ? atoi(e) : -1; }
delay += d; if (delay < 0) delay = 0; }
if (trace) printf(" [force] SB vise fn=%u (p51=%u), delay=%d\n", f, f % 51, delay);
}
plan_sb_set(delay);
} else plan_fb_set(1, 1);
}
}
static void sbdet_cmd(int attempt)
{
g_sb_cmd_fn = fn_cur;
if (trace) { unsigned p = fn_cur % 51;
printf(" SBcmd att=%d fn=%u p51=%u %s\n", attempt, fn_cur, p,
(p % 10 == 1 && p <= 41) ? "<- trame SCH (bon)" : "<- PAS une trame SCH"); }
dbw()[W_TASK_MD] = SB_DSP_TASK;
api[NDB_FB_MODE] = 0;
if (trace) printf(" [SBcmd W] page=%u W=%04x %04x %04x %04x %04x ..%04x %04x NDB page=%04x fb_mode=%04x fb_det=%04x\n",
w_page, dbw()[0], dbw()[1], dbw()[2], dbw()[3], dbw()[4], dbw()[15], dbw()[16], api[NDB_PAGE], api[NDB_FB_MODE], api[NDB_FB_DET]);
}
static void sbdet_resp(int attempt)
{
n_sb_try++;
r_page_used = 1;
if (trace) {
/* SB demodulator internals (RE 9.4 and 9.19):
* 0x2f06 = correlation peak index
* 0x2bf8 = internal CRC flag
* 0x2c72 = THE 78 SOFT BITS. 0x2a00 is the 296-word FB correlator buffer, so
* reading it there yields only 0x0000 and 0xffff; the real softs at 0x2c72
* have varied magnitudes. Their range is printed too. */
{
int16_t mn = 32767, mx = -32768, nnul = 0;
for (int k = 0; k < 78; k++) {
int16_t v = (int16_t)dsp->data[0x2c72 + k];
if (v) nnul++;
if (v < mn) mn = v;
if (v > mx) mx = v;
}
/* THE FEED. Does the buffer the DSP demodulates really hold the
* delivered samples, and at which shift? Compare the BSP drop word by word
* with the last delivered burst and look for the best alignment: a maximum
* away from 0 means the burst is shifted; low everywhere means it is not
* our burst at all. */
if (calypso_getenv("REJEU_FEED")) {
uint16_t ad = calypso_bsp_get_daram_addr();
int nl = g_livre_niq;
int best = 0, bestn = -1, n0 = 0;
for (int sh = -80; sh <= 80; sh++) {
int m = 0;
for (int k = 0; k < nl; k++) {
int j = k + sh; if (j < 0 || j >= 2048) continue;
if ((int16_t)dsp->data[(ad + j) & 0x3fff] == g_livre_iq[k]) m++;
}
if (sh == 0) n0 = m;
if (m > bestn) { bestn = m; best = sh; }
}
printf(" [feed] fn=%u (livre fn=%u type=%c) addr=0x%04x len=%u nl=%d"
" identiques a shift0=%d/%d meilleur shift=%d avec %d/%d\n",
fn_cur, g_livre_fn, g_livre_type ? g_livre_type : '?', ad,
calypso_bsp_get_daram_len(), nl, n0, nl, best, bestn, nl);
}
/* [2026-09-18] PER-POSITION ERROR PROFILE. An aggregate percentage hides
* what discriminates: WHERE the errors fall. The 78 coded bits occupy
* symbols [3..41] and [106..144], the midamble sits at [42..105]. Errors at
* the EDGES = channel estimate right at the midamble and drifting away from
* it (phase ramp / too short an estimate). Uniform errors = wrong equalizer.
* ~0 errors under one polarity = good softs and a bug downstream. Compared
* against the frame ACTUALLY demodulated (last SB command), not the current
* frame. */
/* [2026-09-19] FIRS reads its input at 0x2a8e..0x2a9a (zone 0x2a00) while
* the BSP drops the burst at 0x0cce. Is that intermediate zone filled, and
* does it carry our burst? */
if (calypso_getenv("REJEU_ZONE2A")) {
uint16_t ad = calypso_bsp_get_daram_addr();
int nz0 = 0, nz2 = 0;
for (int k = 0; k < 296; k++) {
if (dsp->data[(ad + k) & 0x3fff]) nz0++;
if (dsp->data[(0x2a00 + k) & 0x3fff]) nz2++;
}
printf(" [zone] depot 0x%04x : %d/296 non nuls | zone 0x2a00 : %d/296 non nuls\n",
ad, nz0, nz2);
printf(" 0x%04x : %04x %04x %04x %04x %04x %04x\n", ad,
dsp->data[ad&0x3fff], dsp->data[(ad+1)&0x3fff], dsp->data[(ad+2)&0x3fff],
dsp->data[(ad+3)&0x3fff], dsp->data[(ad+4)&0x3fff], dsp->data[(ad+5)&0x3fff]);
printf(" 0x2a8e : %04x %04x %04x %04x %04x %04x (entree lue par FIRS)\n",
dsp->data[0x2a8e], dsp->data[0x2a8f], dsp->data[0x2a90],
dsp->data[0x2a91], dsp->data[0x2a92], dsp->data[0x2a93]);
}
if (calypso_getenv("REJEU_PROFIL")) {
unsigned char att78[78];
int ri = g_n_reels ? g_reel_pour_fn[g_sb_cmd_fn & 63] : -1;
if (ri >= 0) memcpy(att78, g_reels_code[ri], 78); /* real ground truth */
else cellule_code_attendu(g_sb_cmd_fn, (uint8_t)g_bsic_injecte, att78);
int acc[2] = {0, 0};
char map[2][79];
for (int pol = 0; pol < 2; pol++) {
for (int k = 0; k < 78; k++) {
int16_t v = (int16_t)dsp->data[0x2c72 + k];
int bit = pol ? (v > 0) : (v < 0); /* both sign conventions */
int ok = (bit == (att78[k] & 1));
map[pol][k] = ok ? '.' : 'X';
acc[pol] += ok;
}
map[pol][78] = 0;
}
/* [2026-09-18] ALIGNMENT SWEEP. The peak moves from frame to frame
* (23, 20, 19...): if it places the read window, comparing at the
* canonical alignment compares good softs against a wrong framing, and
* "uncorrelated" would be a false conclusion. Rebuild the full expected
* burst (3 tail + 39 + 64 TSC + 39 + 3 tail) and find the shift s that
* maximizes agreement. An s reaching ~78/78 means the softs are GOOD and
* only the framing is wrong. */
{
unsigned char burst[148];
memset(burst, 0, 3);
for (int k = 0; k < 39; k++) burst[3 + k] = att78[k];
for (int k = 0; k < 64; k++) burst[42 + k] = (unsigned char)cellule_train_sb(k);
for (int k = 0; k < 39; k++) burst[106 + k] = att78[39 + k];
memset(burst + 145, 0, 3);
int bs = 0, bp = 0, bv = -1;
for (int sh = -40; sh <= 40; sh++) {
for (int pol = 0; pol < 2; pol++) {
int m = 0, n = 0;
for (int k = 0; k < 78; k++) {
int pos = (k < 39 ? 3 + k : 106 + (k - 39)) + sh;
if (pos < 0 || pos >= 148) continue;
int16_t v = (int16_t)dsp->data[0x2c72 + k];
int bit = pol ? (v > 0) : (v < 0);
if (bit == (burst[pos] & 1)) m++;
n++;
}
if (n >= 60 && m > bv) { bv = m; bs = sh; bp = pol; }
}
}
printf(" [align] meilleur decalage=%+d polarite=%d -> %d/78\n", bs, bp, bv);
}
int best = acc[1] > acc[0] ? 1 : 0;
printf(" [profil] fn_demod=%u (p51=%u) pic=%u : concordance pol0=%d/78 pol1=%d/78\n"
" premiers39 |%.39s|\n"
" derniers39 |%s|\n",
g_sb_cmd_fn, g_sb_cmd_fn % 51, dsp->data[0x2f06],
acc[0], acc[1], map[best], map[best] + 39);
}
if (calypso_getenv("REJEU_DUMP_SOUPLES")) {
printf(" [souples] fn=%u pic=%u :", fn_cur, dsp->data[0x2f06]);
for (int k = 0; k < 78; k++) printf(" %04x", dsp->data[0x2c72 + k]);
printf("\n");
}
printf(" [sb-int] pic(2f06)=%u crc(2bf8)=%u souples(2c72)[0..5]=%04x %04x %04x %04x %04x %04x"
" non nuls=%d/78 etendue=[%d..%d]\n",
dsp->data[0x2f06], dsp->data[0x2bf8],
dsp->data[0x2c72], dsp->data[0x2c73], dsp->data[0x2c74],
dsp->data[0x2c75], dsp->data[0x2c76], dsp->data[0x2c77], nnul, mn, mx);
}
}
if (trace) { unsigned p = fn_cur % 51;
/* [2026-09-30] mot decode MEME en CRC faux, et les mesures de la ROM sur le
* burst (a_serv_demod : TOA, PM, ANGLE, SNR) : c'est la matiere pour
* comparer les SCH decodes aux rates (voir MAILBOX 2026-09-30). */
printf(" SBresp att=%d fn=%u p51=%u crc=%s a_sch=%04x %04x %04x %04x %04x toa=%d pm=%d angle=%d snr=%d sb_cmd_fn=%u\n", attempt, fn_cur, p,
(dbr()[R_SCH + 0] & (1 << B_SCH_CRC)) ? "FAUX" : "OK",
dbr()[R_SCH + 0], dbr()[R_SCH + 1], dbr()[R_SCH + 2], dbr()[R_SCH + 3], dbr()[R_SCH + 4],
(int16_t)dbr()[R_SERV + 0], (int16_t)dbr()[R_SERV + 1], (int16_t)dbr()[R_SERV + 2], (int16_t)dbr()[R_SERV + 3], g_sb_cmd_fn); }
if (dbr()[R_SCH + 0] & (1 << B_SCH_CRC)) {
n_sb_crcfail++;
if (attempt == sb_dernier_essai()) { sched_reset(); plan_fb_set(1, 0); }
return;
}
sb_word = dbr()[R_SCH + 3] | ((uint32_t)dbr()[R_SCH + 4] << 16);
sb_bsic = (sb_word >> 2) & 0x3f;
unsigned t1 = ((sb_word >> 23) & 1) | ((sb_word >> 7) & 0x1fe) | ((sb_word << 9) & 0x600);
unsigned t2 = (sb_word >> 18) & 0x1f;
unsigned t3p = ((sb_word >> 24) & 1) | ((sb_word >> 15) & 6);
unsigned t3 = t3p * 10 + 1;
sb_fn = 51u * ((t3 - t2 + 26u) % 26u) + t3 + 26u * 51u * t1;
/* A CRC OK is a decode only if it yields the INJECTED BSIC, a valid T3 (T3 <= 50
* by construction) and a reconstructed FN equal to the current frame. Each pass
* is qualified and the run continues instead of stopping on the first.
* REJEU_ARRET_1ER=1 restores stopping.
*
* REJEU_SCH_PARTOUT=1 CORRUPTS THE REFERENCE TRUTH: T3' has three bits, so
* a SCH emitted on p51=45 encodes T3'=4, which the decoder turns back into
* T3=41 and sb_fn != fn_cur even for a PERFECT decode. FN can only be
* validated without that flag. */
int t3_ok = (t3 <= 50), bsic_ok = (sb_bsic == (unsigned)g_bsic_injecte);
/* [2026-09-20] The SB word carries the frame number of the BURST that was
* demodulated, i.e. the frame of the last SB command (g_sb_cmd_fn), not the
* frame on which the ARM reads the result (fn_cur, 2-3 frames later). The
* first genuine decodes (BSIC 7, FN 31 read at fn 34; FN 62 read at fn 64)
* were being counted as false positives by the old fn_cur comparison. */
int fn_ok = (sb_fn == g_sb_cmd_fn);
n_crc_ok++;
if (bsic_ok && t3_ok && fn_ok) n_sb_vraies++;
printf(" SB%d fn=%u : sb=0x%08x BSIC=%d (injecte %d) T1=%u T2=%u T3=%u -> FN=%u (burst demodule fn=%u) %s%s\n",
attempt, fn_cur, sb_word, sb_bsic, g_bsic_injecte, t1, t2, t3, sb_fn, g_sb_cmd_fn,
(bsic_ok && t3_ok && fn_ok) ? "** VRAIE **"
: !bsic_ok ? "FAUX POSITIF (BSIC ne colle pas)"
: !t3_ok ? "FAUX POSITIF (T3 > 50, impossible)"
: "FAUX POSITIF (FN != trame du burst demodule)",
cellule_sch_partout ? " [FN non qualifiable sous SCH_PARTOUT]" : "");
if (drapeau_env("REJEU_ARRET_1ER") || ((bsic_ok && t3_ok && fn_ok) && !drapeau_env("REJEU_CONTINUER"))) { verdict = 1; return; }
if (bsic_ok && t3_ok && fn_ok) { sched_reset(); plan_fb_set(1, 0); return; } /* REJEU_CONTINUER: restart the acquisition */
/* [2026-09-18] An unqualified CRC OK (false positive) must reschedule, or the
* bench freezes and the freeze reads as a result: the item queue drains, no
* command is posted again, and the replay crosses the remaining thousands of
* frames asking the DSP nothing. The summary was then IDENTICAL at 1200 and at
* 12000 frames -- not because the DSP stalled, but because the replayed ARM had
* gone silent. The CRC failure branch already restarted (plan_fb_set on attempt
* 2); only the "CRC OK but false positive" exit was a dead end. */
sched_reset(); plan_fb_set(1, 0);
}
/* ---- ARM-side DSP init: what the firmware's dsp_power_on() does ---------
* Without it the DSP runs on a blank API RAM: the FB detection thresholds
* (d_fb_thr_det_iacq/track) and the margins (d_fb_margin_beg/end, which feed the
* TOA formula at 0x794b/0x7956) are 0, and FB detection diverges from the first
* frame. Values from dsp_params.c / dsp_ndb_init(). */
#define PARAM 0x431u /* BASE_API_PARAM (API 0x862) in words */
#define A_SCH26 (NDB + 42u)
/* DSP bootloader: API offsets in WORDS (dsp.c: BASE_API_RAM + 0x0ff8..0x0ffe) */
#define BL_ADDR_HI_W 0x7FCu
#define BL_SIZE_W 0x7FDu
#define BL_ADDR_LO_W 0x7FEu
#define BL_STATUS_W 0x7FFu
#define DSP_START 0x7000u
static long pump(long max, int stop_on_idle)
{
long b = 0;
while (b < max && dsp->running) {
int ex = c54x_run(dsp, 256);
if (ex <= 0) break;
b += ex;
if (stop_on_idle && dsp->idle) break;
}
return b;
}
static void arm_dsp_init(void)
{
memset(api, 0, 0x2000u * sizeof(uint16_t)); /* dsp_api_memset(API) */
/* dsp_pre_boot(): the DSP has just been reset; wait for BL_STATUS_IDLE */
long b = 0;
while (api[BL_STATUS_W] != 1 && b < 8000000) {
int ex = c54x_run(dsp, 256); if (ex <= 0) break; b += ex;
}
printf(" bootloader DSP : BL_STATUS=%u apres %ld insn\n", api[BL_STATUS_W], b);
/* dsp_set_params(): NDB first */
api[NDB + 8] = 0x0074; api[NDB + 9] = 0x0001;
api[NDB + 10] = 0x0154; api[NDB + 11] = 0x17ff;
api[NDB + 12] = 7; api[NDB + 13] = 0;
api[NDB + 14] = 3; /* d_dsp_state = IDLE3 */
/* then the parameter table (dsp_params.c). The first four FB fields feed the
* TOA formula (0x794b/0x7956) and the detection thresholds. */
static const int16_t P[] = {
0x6666, 15, 12, 5, 4, 0x7002, 1, 0xE, 0, 0, 0, 0,
24, 22, 296, 30, /* margin_beg/end, nsubb_idle/dedic */
0x3333, (int16_t)0x28f6, /* fb_thr_det_iacq / _track */
0x7fff, 17408, 26624, 20152,
7872, -4, 7872, 5772, 7872, 53, -892, 208,
};
for (unsigned i = 0; i < sizeof P / sizeof P[0]; i++) api[PARAM + i] = (uint16_t)P[i];
/* dsp_bl_start_at(DSP_START) */
api[BL_ADDR_HI_W] = 0; api[BL_ADDR_LO_W] = DSP_START; api[BL_SIZE_W] = 0;
api[BL_STATUS_W] = 2; /* BL_CMD_COPY_BLOCK */
b = pump(4000000, 1);
printf(" DSP demarre : %ld insn, idle=%d, version=0x%04x%04x\n",
b, dsp->idle, api[NDB + 6], api[NDB + 7]);
/* dsp_ndb_init(): what matters for FB/SB */
api[NDB + 2] = 0x0179; /* d_spcx_rif */
api[NDB + 3] = 0x0800 | ((8 - 4) << 7); /* d_tch_mode */
api[NDB_FB_MODE] = 1;
api[NDB_FB_DET] = 0;
api[A_SCH26] = (1u << B_SCH_CRC);
/* dsp_db_init() */
memset(&api[W_PAGE(0)], 0, W_SIZE * sizeof(uint16_t));
memset(&api[W_PAGE(1)], 0, W_SIZE * sizeof(uint16_t));
memset(&api[R_PAGE(0)], 0, R_SIZE * sizeof(uint16_t));
memset(&api[R_PAGE(1)], 0, R_SIZE * sizeof(uint16_t));
/* [2026-09-20] REJEU_DUMP_PARAM=1: the first eight parameter words after
* the DSP has started, to compare with the live bench's shared API RAM
* (od on /dev/shm/calypso_api_ram at word 0x431). */
if (drapeau_env("REJEU_DUMP_PARAM"))
printf(" PARAM apres demarrage : %04x %04x %04x %04x %04x %04x %04x %04x (attendu 6666 000f 000c 0005 0004 7002 0001 000e)\n",
api[PARAM], api[PARAM+1], api[PARAM+2], api[PARAM+3], api[PARAM+4], api[PARAM+5], api[PARAM+6], api[PARAM+7]);
}
/* ---- one frame: l1_sync() then the DSP --------------------------------- */
static void l1_sync(void)
{
r_page_used = 0;
memset(dbw(), 0, W_SIZE * sizeof(uint16_t)); /* memset db_w */
dbw()[W_AFC] = (uint16_t)(int16_t)afc_dac; /* afc_load_dsp */
dbw()[W_CTRL_ABB] |= (1u << B_AFC);
/* [2026-09-17] CLOSED AFC LOOP. qemu-src relays the d_afc write to the TWL3025
* model (calypso_trx.c, offsets 0x001E/0x0046); qosmo does it NOWHERE
* (set_afc_dac is never called there), so the loop stayed open, sample rotation
* never moved, and the frequency error never converged below the SB threshold
* (800 Hz). */
calypso_twl3025_set_afc_dac((int16_t)afc_dac);
if (api[NDB_ERRSTAT]) { /* as in sync.c:249 */
static int n; if (trace && n < 6) { printf(" DSP Error Status: %u\n", api[NDB_ERRSTAT]); n++; }
api[NDB_ERRSTAT] = 0;
}
/* Run the items of THIS frame. A callback may schedule a new one for the
* CURRENT frame (delay=0, which is what the firmware computes after FB1), so
* rescan until exhaustion or that item is silently lost -- and it is precisely
* the SB command aiming at the right SCH frame. */
for (int tour = 0; tour < 8; tour++) {
int fait = 0;
for (int i = 0; i < n_sched; i++) {
if (sched[i].frame == (int)fn_cur && sched[i].cb) {
cb_t cb = sched[i].cb; int at = sched[i].attempt;
sched[i].cb = NULL;
cb(at); fait = 1;
if (verdict) return;
}
}
if (!fait) break;
}
if (r_page_used) {
memset(dbr(), 0, R_SIZE * sizeof(uint16_t));
dbr()[R_SCH + 0] = (1u << B_SCH_CRC);
r_page ^= 1;
}
api[NDB_PAGE] = (uint16_t)(B_GSM_TASK | w_page); /* dsp_end_scenario() */
w_page ^= 1;
}
int rejouer(C54xState *d, uint16_t *api_ram, long trames, long insns,
const char *iq_mode, int amp, int bsic, int verbeux)
{
dsp = d; api = api_ram; trace = verbeux;
env_div = calypso_getenv("REJEU_DIV") != NULL;
env_softs_continu = calypso_getenv("REJEU_SOFTS_CONTINU") != NULL;
env_firs = calypso_getenv("REJEU_FIRS") != NULL;
env_probe_t = drapeau_env("REJEU_PROBE_T");
env_decodeur = calypso_getenv("REJEU_DECODEUR") != NULL;
w_page = r_page = r_page_used = 0; fn_cur = 0; afc_dac = -700;
fb_mode = 0; afc_retries = fb0_retries = 0; n_sched = 0; verdict = 0;
n_fb_ok = n_sb_try = n_sb_crcfail = n_crc_ok = n_sb_vraies = 0;
n_err_dsp = n_err8 = 0;
g_bsic_injecte = bsic;
{ const char *r = calypso_getenv("REJEU_SCH_REEL");
if (r && *r && reels_charger(r) == 0) g_bsic_injecte = g_reels_bsic[0]; }
memset(&fb, 0, sizeof fb);
if (drapeau_env("REJEU_SCH_PARTOUT")) { cellule_sch_partout = 1; printf(" [stimulus] SCH sur toutes les trames non-FCCH (masque le cadencage)\n"
" [stimulus] ATTENTION : t3p = p51/10 n'est juste que sur p51 in {1,11,21,31,41},\n"
" donc la FN reconstruite ne peut PAS etre validee sous ce drapeau.\n"); }
printf("rejeu deterministe : %ld trames max, %ld insn/trame, cellule BSIC=%d, iq=%s\n",
trames, insns, bsic, iq_mode ? iq_mode : "cell");
/* firmware dsp_power_on(): bootloader boot + parameters + NDB */
arm_dsp_init();
{ static int16_t rempl[2 * 148]; /* TS1..TS7 of the C0 carrier: dummy bursts */
cellule_factice(amp, DECALAGE_SYMB, rempl);
calypso_bsp_set_remplissage(rempl, 2 * 148); }
plan_fb_set(1, 0); /* first FBSB_REQ */
int16_t iq[2 * 256]; int n_iq;
for (long t = 0; t < trames && !verdict; t++) {
fn_cur = (uint32_t)t;
g_c54x_exe_fn = fn_cur;
uint32_t insn_debut_trame = dsp->insn_count;
l1_sync();
/* [2026-09-18] The firmware (sync.c) reads d_error_status every frame, prints
* it and clears it; replay ignored it entirely, hence its silence about the
* "DSP Error Status: 8" seen on the firmware side. 8 = DSP_ERR_DMA_PROG:
* overflow of the DMA job ring at 0x4330 (orm *(0x3f92),#8 at 0xaa83). */
if (api[NDB_ERRSTAT]) {
unsigned e = api[NDB_ERRSTAT];
n_err_dsp++;
if (e & 8) n_err8++;
if (n_err_dsp <= 8)
printf(" [erreur DSP] status=%u%s a fn=%u\n", e,
(e & 8) ? " (bit 3 = DSP_ERR_DMA_PROG, anneau DMA 0x4330 sature)" : "",
fn_cur);
api[NDB_ERRSTAT] = 0;
}
if (verdict) break;
/* [2026-09-17] HARDWARE ORDER. On silicon: the ARM posts the task -> the DSP
* reads it on the frame interrupt and ARMS its RX window (DMA) -> the samples
* arrive -> the DSP processes them. Injecting BEFORE the DSP has armed makes
* the transfer use the PREVIOUS task's DMA programming (the FB one), so the SB
* receives the wrong burst. REJEU_RX_AVANT=1 restores the old order for
* comparison. */
static int rx_avant = -1;
if (rx_avant < 0) rx_avant = drapeau_env("REJEU_RX_AVANT") ? 1 : 0;
n_iq = 2 * 148;
int injecter = (!iq_mode || strcmp(iq_mode, "none") != 0);
if (injecter && rx_avant) {
g_livre_type = cellule_burst(fn_cur, (uint8_t)g_bsic_injecte, amp, DECALAGE_SYMB, marge_tete(), iq, &n_iq);
g_livre_fn = fn_cur; g_livre_n = n_iq;
g_ad_avant = calypso_bsp_get_daram_addr();
{ static int da = -1; static unsigned nd;
if (da < 0) da = calypso_getenv("REJEU_ADR") ? 1 : 0;
if (da && nd < 14) { nd++;
printf(" [adr] fn=%-4u type=%c n_iq=%-4d -> depot 0x%04x len=%u\n",
fn_cur, g_livre_type ? g_livre_type : '?', n_iq,
calypso_bsp_get_daram_addr(), calypso_bsp_get_daram_len()); } }
calypso_bsp_rx_burst(0, fn_cur, iq, n_iq);
}
/* frame interrupt: the DSP reads the task and arms its RX window.
* [2026-09-20] REJEU_IRQ_SCENARIO=1: raise it only on frames where the
* replayed ARM ended a DSP scenario (a task on the page just handed
* over), as dsp_end_scenario() does with tpu_dsp_frameirq_enable(),
* a bit the firmware sets again on every scenario. Every other frame
* the ROM gets no frame interrupt and does not re-read the page. */
{ static int irq_sc = -1;
if (irq_sc < 0) irq_sc = drapeau_env("REJEU_IRQ_SCENARIO") ? 1 : 0;
unsigned wp_donnee = (api[NDB_PAGE] & 1u);
bool scenario = api[W_PAGE(wp_donnee) + W_TASK_MD] != 0 || api[W_PAGE(wp_donnee) + 0] != 0;
if ((dsp->imr & (1u << 12)) && (!irq_sc || scenario)) c54x_interrupt_ex(dsp, 28, 12); }
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
if (injecter && !rx_avant) {
/* let the DSP arm (short budget), THEN deliver the samples */
long arm = 0;
while (arm < insns / 4 && dsp->running && !dsp->idle) {
int ex = c54x_run(dsp, 64); if (ex <= 0) break; arm += ex;
}
g_livre_type = cellule_burst(fn_cur, (uint8_t)g_bsic_injecte, amp, DECALAGE_SYMB, marge_tete(), iq, &n_iq);
/* [2026-09-20] FULL FRAME for the FB search. On silicon the FB task
* streams 156.25 symbols per TDMA frame (148 burst + 8.25 guard); the
* TOA it reports counts frames in those units and the firmware turns
* it back into frames with BITS_PER_TDMA = 1250. Delivering 148
* samples per frame made a 9-frame distance read as 5. Pad every
* non-SCH burst with silence to 156 samples (157 on one frame in four,
* so the average is 156.25). REJEU_TRAME_PLEINE=0 restores 148. */
/* The SCH frame is delivered as the 190-sample WINDOW block (margins
* 21/21) only while the DSP has its one-shot SB window armed; inside
* an FB search (continuous DMA) it is a plain frame of the stream like
* any other, or the stream would gain 34 symbols on every SCH frame.
* The TOA origin (the firmware's "23") is not set here but by the DMA
* model at arm time (CALYPSO_RHEA_DMA_ARM_SKIP): the burst position
* inside the frame can only move within the 8.25 idle symbols. */
{ static int pleine = -1;
if (pleine < 0) { const char *e = calypso_getenv("REJEU_TRAME_PLEINE"); pleine = (e && *e == '0') ? 0 : 1; }
bool fenetre_sb = calypso_rhea_dma_one_shot();
if (pleine && !(g_livre_type == 'S' && fenetre_sb)) {
if (g_livre_type == 'S') { /* drop the window margins: burst only */
int m = marge_tete();
memmove(iq, iq + 2 * m, 2 * 148 * sizeof(int16_t));
n_iq = 2 * 148;
}
int cible = 156 + ((fn_cur & 3) == 3 ? 1 : 0);
if (n_iq < 2 * cible) { memset(iq + n_iq, 0, (size_t)(2 * cible - n_iq) * sizeof(int16_t)); n_iq = 2 * cible; }
} }
g_livre_fn = fn_cur; g_livre_n = n_iq;
/* Replace the SCH CONTENT with a real burst, without touching the framing. */
if (g_n_reels && g_livre_type == 'S') {
int m = marge_tete();
unsigned r = g_reel_i % g_n_reels;
{ static double gn = -1;
if (gn < 0) { const char *e = calypso_getenv("REJEU_REEL_GAIN"); gn = e ? atof(e) : 1.0;
if (gn <= 0) gn = 1.0; }
if (gn == 1.0) memcpy(iq + 2 * m, g_reels[r], 296 * sizeof(int16_t));
else for (int q = 0; q < 296; q++) {
long v = lrint(g_reels[r][q] * gn);
iq[2 * m + q] = (int16_t)(v > 32767 ? 32767 : v < -32768 ? -32768 : v); } }
/* Check: is the burst dropped really the REAL one? */
static unsigned nv;
if (nv < 4) { nv++;
printf(" [reel] trame %u <- burst #%u (fn reelle %u, BSIC %u) I/Q %d %d %d %d\n",
fn_cur, r, g_reels_fn[r], g_reels_bsic[r],
iq[2*m], iq[2*m+1], iq[2*m+2], iq[2*m+3]); }
g_reel_pour_fn[fn_cur & 63] = (int)r;
g_reel_i++;
}
/* [2026-09-18] Perturb ONE raw sample rather than a bit: this maps
* influence index by index, with no confusion from burst packing nor from
* the scheduling change a coded-bit flip causes. REJEU_PERTURBER_ECH=<n>
* adds a delta to complex sample n of the delivered buffer. */
{ static int pe = -2; static long pf = -2;
if (pe == -2) { const char *e = calypso_getenv("REJEU_PERTURBER_ECH"); pe = e ? atoi(e) : -1; }
if (pf == -2) { const char *e = calypso_getenv("REJEU_PERTURBER_FN"); pf = e ? atol(e) : -1; }
if (pe >= 0 && 2 * pe + 1 < n_iq && (pf < 0 || (long)fn_cur == pf)) {
iq[2 * pe] = (int16_t)(iq[2 * pe] + 3000);
iq[2 * pe + 1] = (int16_t)(iq[2 * pe + 1] - 3000);
} }
/* [2026-09-18] DELIVERED SAMPLE CONVENTION. Transport is exact ([feed]
* probe: 380/380 identical at shift 0), so if the feed is at fault it is the
* CONVENTION, not the routing. Four mutually exclusive hypotheses:
* derot- : the DSP expects a signal DEROTATED by -pi/2 per symbol
* derot+ : ... by +pi/2
* swap : I and Q swapped
* conj : Q negated (conjugate)
* REJEU_FEED_XFORM=derot-|derot+|swap|conj|none (default none). */
{ static const char *xf = NULL; static int init = 0;
if (!init) { xf = calypso_getenv("REJEU_FEED_XFORM"); init = 1; }
if (xf && *xf && strcmp(xf, "none")) {
int ns = n_iq / 2;
if (!strcmp(xf, "swap")) {
for (int k = 0; k < ns; k++) { int16_t t = iq[2*k]; iq[2*k] = iq[2*k+1]; iq[2*k+1] = t; }
} else if (!strcmp(xf, "conj")) {
for (int k = 0; k < ns; k++) iq[2*k+1] = (int16_t)(-iq[2*k+1]);
} else if (!strcmp(xf, "derot-") || !strcmp(xf, "derot+")) {
double sgn = (xf[5] == '-') ? -1.0 : 1.0;
for (int k = 0; k < ns; k++) {
double ph = sgn * (M_PI / 2.0) * k;
double c = cos(ph), sn = sin(ph);
double i0 = iq[2*k], q0 = iq[2*k+1];
iq[2*k] = (int16_t)lrint(i0 * c - q0 * sn);
iq[2*k+1] = (int16_t)lrint(i0 * sn + q0 * c);
}
}
} }
memcpy(g_livre_iq, iq, (size_t)n_iq * sizeof(int16_t)); g_livre_niq = n_iq;
{ static int da = -1; static unsigned nd;
if (da < 0) da = calypso_getenv("REJEU_ADR") ? 1 : 0;
if (da && nd < 14) { nd++;
printf(" [adr] fn=%-4u type=%c n_iq=%-4d -> depot 0x%04x len=%u\n",
fn_cur, g_livre_type ? g_livre_type : '?', n_iq,
calypso_bsp_get_daram_addr(), calypso_bsp_get_daram_len()); } }
/* [2026-09-20] PAGE-BY-PAGE DELIVERY (REJEU_PAGES=<words>, e.g. 96).
* On silicon the RIF streams continuously and DMA2 completes one
* 96-word page at a time, each completion interrupting the DSP; the
* FB correlator runs per page. Handing the whole frame in one call
* drains 3-4 pages in one pass with ONE interrupt, so the ROM
* processes one page per frame and its TOA advanced by 96 per frame
* instead of 156 symbols. Here the frame's samples are delivered in
* chunks, the DSP running a slice after each, so every page gets its
* own completion. */
{ static long pages_mots = -1;
if (pages_mots < 0) { const char *e = calypso_getenv("REJEU_PAGES"); pages_mots = (e && *e) ? atol(e) : 0; }
if (pages_mots > 0) {
int pos = 0, npage = 0;
while (pos < n_iq) {
int m = n_iq - pos < pages_mots ? n_iq - pos : (int)pages_mots;
uint16_t b34 = dsp->data[0x3fb4], b35 = dsp->data[0x3fb5];
calypso_bsp_rx_burst(0, fn_cur, iq + pos, m);
pos += m; npage++;
{ static unsigned nb; if (nb < 40 && fn_cur >= 2 && fn_cur <= 14) { nb++;
printf(" [bloc] fn=%u page %d (%d mots) : 0x3fb4=%04x 0x3fb5=%04x avant", fn_cur, npage, m, b34, b35); } }
/* completion interrupt already pending: let the DSP serve it */
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
long slice = 0;
while (slice < insns / 8 && dsp->running && !dsp->idle) {
int ex = c54x_run(dsp, 64); if (ex <= 0) break; slice += ex;
}
{ static unsigned nb2; if (nb2 < 40 && fn_cur >= 2 && fn_cur <= 14) { nb2++;
printf(" -> apres 0x3fb4=%04x 0x3fb5=%04x (idle=%d, %ld insn)\n", dsp->data[0x3fb4], dsp->data[0x3fb5], dsp->idle, slice); } }
}
{ static unsigned np; if (np < 3) { np++;
printf(" [pages] fn=%u : %d mots livres en %d pages de %ld\n", fn_cur, n_iq, npage, pages_mots); } }
} else
calypso_bsp_rx_burst(0, fn_cur, iq, n_iq);
}
/* [2026-09-20] STREAM PUMP. The DMA now fills its double buffer with
* full pages only and interrupts once per pair; the ROM's ISR consumes
* both halves and the DSP goes idle. Then the next pair is handed
* over, as the hardware would once the ISR is out of the way. A frame
* carries 3.25 pages, so this runs 1 or 2 times per frame. */
for (int k = 0; k < 40; k++) { /* a 1250-symbol frame is 26 pages = 13 pairs */
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
long sl = 0;
while (sl < insns / 4 && dsp->running && !dsp->idle) {
int ex = c54x_run(dsp, 64); if (ex <= 0) break; sl += ex;
}
if (!calypso_rhea_dma_pump(dsp)) break;
}
if (calypso_getenv("CALYPSO_BSP_VERIF")) {
static int dit;
if (!dit) { dit = 1;
printf(" [mem] api est-il un alias de data[0x0800] ? %s\n",
(void *)api == (void *)&dsp->data[0x0800] ? "OUI" : "NON — deux memoires distinctes");
printf(" api[0x0cce-0x0800]=%04x data[0x0cce]=%04x\n",
api[0x0cce - 0x0800], dsp->data[0x0cce]); }
static unsigned nvr;
uint32_t vfn; uint16_t vad; int vn, vage;
int id = calypso_bsp_verif_compare(&vfn, &vad, &vn, &vage);
if (id >= 0 && nvr < 8) { nvr++;
printf(" [ref] fn=%-4u type=%c age=%d : %d/%d identiques en 0x%04x%s\n",
vfn, g_livre_type ? g_livre_type : '?', vage, id, vn, vad,
id == vn ? " VALIDE" : " <<< ECRITURE FAUSSE"); }
}
{ static int vv = -1; static unsigned nv;
if (vv < 0) vv = calypso_getenv("REJEU_VIE") ? 1 : 0;
if (vv && g_livre_type == 'S' && nv < 6) { nv++;
uint16_t ad = calypso_bsp_get_daram_addr();
printf(" [vie] fn=%-4u adresse APRES l'appel : 0x%04x (avant : 0x%04x)\n",
fn_cur, ad, g_ad_avant);
int ex = 0, best = 0, bex = -1;
for (int sh = -8; sh <= 44; sh++) {
int e = 0;
for (int k = 0; k < 280; k++) {
int j = k + sh; if (j < 0 || j >= n_iq) continue;
if ((int16_t)dsp->data[(ad + k) & 0x3fff] == iq[j]) e++;
}
if (e > bex) { bex = e; best = sh; }
if (sh == 0) ex = e;
}
printf(" [vie] fn=%-4u APRES depot en 0x%04x : shift0=%d/280 meilleur shift=%+d avec %d/280\n",
fn_cur, ad, ex, best, bex);
if (bex < 200) { /* pas trouve la : ou est le burst ? */
int ba = -1, bn = 0;
for (unsigned a = 0; a + 280 < 0x4000; a++) {
int e = 0;
for (int k = 0; k < 64; k++)
if ((int16_t)dsp->data[a + k] == iq[k]) e++;
if (e > bn) { bn = e; ba = (int)a; }
}
if (bn >= 60) {
int tot = 0;
for (int k = 0; k < 280; k++)
if ((int16_t)dsp->data[(ba + k) & 0x3fff] == iq[k]) tot++;
printf(" -> burst TROUVE en 0x%04x : %d/280 identiques\n", ba, tot);
} else printf(" -> burst introuvable en DARAM (meilleur %d/64 en 0x%04x)\n", bn, ba);
}
g_vie_fn = fn_cur; g_vie_ad = ad; } }
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
}
{ static int tf = -1; if (tf < 0) tf = calypso_getenv("REJEU_TRACE_FB") ? 1 : 0;
if (tf && fn_cur < 60)
printf(" [fb] fn=%-3u apres pompe : 0x3fb4=%04x 0x3fb3=%04x d_fb_det=%u fb_mode=%u task_md=%u/%u idle=%d insn_trame=%u sync=%04x %04x %04x %04x\n",
fn_cur, dsp->data[0x3fb4], dsp->data[0x3fb3], api[NDB_FB_DET], api[NDB_FB_MODE],
api[W_PAGE(0) + W_TASK_MD], api[W_PAGE(1) + W_TASK_MD], dsp->idle, dsp->insn_count - insn_debut_trame,
api[NDB_SYNC], api[NDB_SYNC+1], api[NDB_SYNC+2], api[NDB_SYNC+3]); }
long done = 0;
static int probe = -1;
if (probe < 0) probe = drapeau_env("REJEU_PROBE_TOA") ? 1 : 0;
if (!probe) {
/* Always count, step by step: running 256 instructions at a time without
* looking at a single PC left hit_b219/7c31/84a1/9841/770a at zero while the
* summary still printed them, so "job b219=0 ... corr FB 770a=0" only meant
* that nobody was counting. The PC histogram says what the DSP really
* executes. */
while (done < insns && dsp->running && !dsp->idle) {
uint16_t pc = dsp->pc & 0xffff;
histo_pc[pc >> 10]++;
switch (pc) {
case 0x7c31: hit_7c31++; break;
case 0x9841: hit_9841++; break;
case 0x84a1: hit_84a1++; break;
case 0x770a: hit_770a++; break;
case 0xb219: hit_b219++; break;
case 0x7a16: hit_7a16++; break;
/* The two FIRS sites of the SB. The one at 0x8493 is followed by
* `sth *AR6+,B` at 0x8497: THAT is what writes the soft bits. If it does
* not run, the softs come out of a stale B. */
case 0x⟨1⟩: hit_⟨2⟩++; break; ×4
⟨⟩ = (8478,8478) (8492,8492) (8493,8493) (8497,8497)
/* [2026-09-19] THE 16-STEP DIVISION. 0x7d1c RPT #15; 0x7d1d SUBC
* *(0x0b),A; 0x7d1e STL A,*(0x0a) = the quotient. A null divisor gives a
* degenerate quotient and the whole cascade follows. */
/* [2026-09-19] The dividend is born here. It should be 1 shifted
* (ld #1,A; sfta A,<n>) and it arrives NULL at the division. Trace A over
* the whole prologue to see which instruction zeroes it. */
case 0x7d10: case 0x7d11: case 0x7d12: case 0x7d13:
case 0x7d14: case 0x7d15: case 0x7d16: case 0x7d17:
case 0x7d18: case 0x7d19: case 0x7d1a: case 0x7d1b:
if (env_div) {
static int dumpe;
if (!dumpe) { dumpe = 1;
printf(" [rom] 0x7d10-0x7d20 :");
for (unsigned a = 0x7d10; a <= 0x7d20; a++)
printf(" %04x", prog_ovly(dsp, (uint16_t)a));
printf("\n"); }
static unsigned np;
if (np < 26) { np++;
printf(" [pro] pc=%04x op=%04x A=%010llx T=%04x ST0=%04x ST1=%04x\n",
pc, prog_ovly(dsp, pc),
(unsigned long long)(dsp->a & 0xffffffffffULL),
dsp->t, dsp->st0, dsp->st1); }
}
break;
case 0x7d1c: hit_7d1c++;
if (env_div) {
unsigned dp = dsp->st0 & 0x1FF;
uint16_t dv = dsp->data[(uint16_t)((dp << 7) | 0x0B)];
static unsigned nd;
if (nd < 12) { nd++;
printf(" [div] avant : dividende A=%010llx diviseur=0x%04x (%d)%s\n",
(unsigned long long)(dsp->a & 0xffffffffffULL), dv, (int16_t)dv,
dv == 0 ? " <<< DIVISEUR NUL" : ""); }
}
break;
case 0x7d1d: hit_7d1d++; break;
case 0x7d1e: hit_7d1e++;
if (env_div) {
static unsigned nq;
if (nq < 12) { nq++;
printf(" [div] apres : quotient A=%010llx (mot bas = %d)\n",
(unsigned long long)(dsp->a & 0xffffffffffULL),
(int16_t)(dsp->a & 0xffff)); }
}
break;
case 0x81e4: hit_81e4++; break;
default: break; }
/* [2026-09-19] WHO WRITES a_sch? The status word a_sch[0] sometimes
* receives plain numbers (0x1111, 0x1388=5000, 0x142e) where only B_BLUD
* (bit15) and B_SCH_CRC (bit8) have a meaning -- and the 0x8000 read as
* "CRC OK" is more likely a saturated accumulator. a_sch[0..4] =
* R_PAGE+15.., i.e. data[0x0837..0x083b] (page 0) and
* data[0x084b..0x084f] (page 1). Record the PC of each write.
* REJEU_QUI_ASCH=1. */
{ static int qa = -1; static uint16_t sh[10]; static int ini; static unsigned nqa;
if (qa < 0) qa = calypso_getenv("REJEU_QUI_ASCH") ? 1 : 0;
if (qa) {
static const uint16_t adr[10] = {0x0837,0x0838,0x0839,0x083a,0x083b,
0x084b,0x084c,0x084d,0x084e,0x084f};
if (!ini) { for (int k=0;k<10;k++) sh[k]=dsp->data[adr[k]]; ini=1; }
for (int k=0;k<10;k++) {
uint16_t v = dsp->data[adr[k]];
if (v != sh[k]) {
/* On a CRC OK, print the FULL word: eight events
* carrying the same word are not eight independent
* draws but one attractor reached eight times, which
* changes the statistics completely. */
if (k % 5 == 0 && v == 0x8000) {
const uint16_t *b = &dsp->data[adr[k]];
printf(" [crcok] fn=%u a_sch = %04x %04x %04x %04x %04x"
" -> mot 0x%04x%04x crc_interne(2bf8)=%u\n",
fn_cur, b[0], b[1], b[2], b[3], b[4],
b[4], b[3], dsp->data[0x2bf8]);
}
if (nqa < 4000) { nqa++;
int j = k % 5;
printf(" [asch] a_sch[%d] (page %d, 0x%04x) : %04x -> %04x"
" ecrit juste avant pc=%04x fn=%u%s\n",
j, k/5, adr[k], sh[k], v, pc, fn_cur,
(j==0 && v && v!=0x0100 && v!=0x8000 && v!=0x8100)
? " <<< PAS UN DRAPEAU" : ""); }
sh[k] = v;
}
}
} }
/* [2026-09-19] WHICH PC PINS A AT +-0x40000000 (A_high = +-16384)?
* Everything else follows from it: the clipping at 0x2ac0, B zeroed by
* the ADD at 0x8389, the degenerate softs. Record the PC of each
* transition to that value. REJEU_QUI_A=1. */
{ static int qA = -1; static int64_t aprec; static unsigned long parpc[0x10000];
static unsigned long tA; static int armA;
if (qA < 0) qA = calypso_getenv("REJEU_QUI_A") ? 1 : 0;
if (qA) {
int64_t a40 = dsp->a & 0xffffffffffLL;
int pin = (a40 == 0x0040000000LL || a40 == 0xffc0000000LL);
int pin0 = (aprec == 0x0040000000LL || aprec == 0xffc0000000LL);
static uint16_t pcp;
if (pin && !pin0 && armA) parpc[pcp]++;
aprec = a40; pcp = pc; armA = 1;
if (++tA % 400000 == 0) {
printf(" [quiA] PC qui amenent A a +-0x40000000 :\n");
for (int rang=0; rang<8; rang++) {
unsigned best=0; unsigned long bv=0;
for (unsigned i=0;i<0x10000;i++) if (parpc[i]>bv){bv=parpc[i];best=i;}
if (!bv) break;
printf(" pc=%04x op=%04x : %lu fois\n", best,
prog_ovly(dsp,(uint16_t)best), bv);
parpc[best]=0;
}
tA = 1;
}
} }
/* [2026-09-19] WHO WRITES THE +-16384 INTO 0x2ac0? Watch the buffer
* word by word and record the PC of each write, separating clipped
* values from the rest. REJEU_QUI2AC0=1. */
{ static int qc = -1; static uint16_t sh2[64]; static int ini3;
static unsigned long par_pc_butee[0x10000], par_pc_autre[0x10000];
static unsigned long tot2;
if (qc < 0) qc = calypso_getenv("REJEU_QUI2AC0") ? 1 : 0;
if (qc) {
if (!ini3) { for (int k=0;k<64;k++) sh2[k]=dsp->data[0x2ac0+k]; ini3=1; }
for (int k=0;k<64;k++) {
uint16_t v = dsp->data[0x2ac0+k];
if (v != sh2[k]) {
int16_t sv = (int16_t)v;
if (sv == 16384 || sv == -16384) par_pc_butee[pc]++;
else par_pc_autre[pc]++;
sh2[k] = v;
}
}
if (++tot2 % 300000 == 0) {
printf(" [2ac0] PC ecrivains (butee +-16384 | autres) :\n");
for (int rang=0; rang<8; rang++) {
unsigned best=0; unsigned long bv=0;
for (unsigned i=0;i<0x10000;i++)
if (par_pc_butee[i]+par_pc_autre[i] > bv) { bv=par_pc_butee[i]+par_pc_autre[i]; best=i; }
if (!bv) break;
printf(" pc=%04x op=%04x : butee=%lu autres=%lu\n",
best, prog_ovly(dsp,(uint16_t)best),
par_pc_butee[best], par_pc_autre[best]);
par_pc_butee[best]=0; par_pc_autre[best]=0;
}
tot2 = 1;
}
} }
/* [2026-09-19] DOES THE WORKING BUFFER HOLD THE BURST? The injected
* samples are known (g_livre_iq); after the copy, 0x2a00 and 0x2ac0
* should carry the I and Q channels. Compare instead of assuming.
* REJEU_CMP2A=1: at the first pass at 0x84a0 (correlator entry, so the
* copy is done) on an SCH frame. */
{ static int cm = -1; static int fait2;
if (cm < 0) cm = calypso_getenv("REJEU_CMP2A") ? 1 : 0;
if (cm && fait2 < 3 && pc == 0x84a0 && g_n_reels &&
g_reel_pour_fn[g_sb_cmd_fn & 63] >= 0) {
fait2++;
int ri = g_reel_pour_fn[g_sb_cmd_fn & 63];
const int16_t *bi = g_reels[ri];
int m = 0;
printf(" [cmp] burst reel #%d (fn %u, BSIC %u) vs tampons de travail\n", ri, g_reels_fn[ri], g_reels_bsic[ri]);
printf(" I injecte : "); for (int k=0;k<10;k++) printf(" %6d", bi[2*(m+k)]);
printf("\n 0x2a00 : "); for (int k=0;k<10;k++) printf(" %6d", (int16_t)dsp->data[0x2a00+k]);
printf("\n 0x2ac0 : "); for (int k=0;k<10;k++) printf(" %6d", (int16_t)dsp->data[0x2ac0+k]);
printf("\n Q injecte : "); for (int k=0;k<10;k++) printf(" %6d", bi[2*(m+k)+1]);
printf("\n");
/* normalized correlation between each buffer and each channel */
/* how far the constancy goes: how many words are identical? */
for (int buf=0; buf<2; buf++) {
uint16_t base = buf ? 0x2ac0 : 0x2a00;
int16_t v0 = (int16_t)dsp->data[base];
int same = 0, n = 0; int16_t mn=32767, mx=-32768;
for (int k=0;k<190;k++) { int16_t v=(int16_t)dsp->data[base+k];
if (v==v0) same++;
if(v<mn)mn=v;
if(v>mx)mx=v;
n++; }
printf(" 0x%04x : %d/%d mots egaux au premier (%d) ; etendue [%d..%d]\n",
base, same, n, v0, mn, mx);
}
for (int buf=0; buf<2; buf++) {
uint16_t base = buf ? 0x2ac0 : 0x2a00;
for (int voie=0; voie<2; voie++) {
double sxy=0, sxx=0, syy=0;
for (int k=0;k<128;k++) {
double x=(int16_t)dsp->data[base+k], y=bi[2*(m+k)+voie];
sxy+=x*y; sxx+=x*x; syy+=y*y; }
printf(" correlation 0x%04x vs %c : %+.3f\n", base, voie?'Q':'I',
(sxx>0&&syy>0)? sxy/sqrt(sxx*syy) : 0.0);
}
}
} }
/* [2026-09-19] THE burst -> working buffer COPY, the last link never
* examined: the burst arrives exact at 0x0cce and buffer 0x2a80 is
* filled by 0x81d0..0x81da. What does that loop READ? */
{ static int rc = -1; static unsigned n;
if (rc < 0) rc = calypso_getenv("REJEU_RECOPIE") ? 1 : 0;
if (rc && pc >= 0x81c8 && pc <= 0x81e0) {
/* Does AR5 sweep a table, or stay on two cells? */
static unsigned lo = 0xffff, hi = 0, vus[64], nv;
if (dsp->ar[5] < lo) lo = dsp->ar[5];
if (dsp->ar[5] > hi) hi = dsp->ar[5];
{ int trouve = 0; for (unsigned q = 0; q < nv; q++) if (vus[q] == dsp->ar[5]) trouve = 1;
if (!trouve && nv < 64) vus[nv++] = dsp->ar[5]; }
/* Does the multiplicand change? A phasor kept in place would
* change value at every step; a constant would not. */
{ static unsigned long nval; static uint16_t vu_v[32]; static unsigned nvv;
uint16_t v = dsp->data[dsp->ar[5] & 0x3fff];
int t2 = 0; for (unsigned q = 0; q < nvv; q++) if (vu_v[q] == v) t2 = 1;
if (!t2 && nvv < 32) vu_v[nvv++] = v;
if (++nval % 4000 == 0) {
printf(" [mul] %u valeurs distinctes lues via AR5 :", nvv);
for (unsigned q = 0; q < nvv && q < 12; q++) printf(" %04x", vu_v[q]);
printf("\n"); } }
static unsigned long tot;
if (++tot % 4000 == 0)
printf(" [ar5] apres %lu pas : plage 0x%04x..0x%04x, %u cellules distinctes\n",
tot, lo, hi, nv);
}
if (rc && n < 16 && pc >= 0x81c8 && pc <= 0x81e0) {
n++;
printf(" [cp] pc=%04x op=%04x A=%010llx B=%010llx"
" AR2=%04x->%04x AR3=%04x->%04x AR4=%04x->%04x AR5=%04x->%04x\n",
pc, prog_ovly(dsp, pc),
(unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->ar[⟨1⟩], dsp->data[dsp->ar[⟨2⟩] & 0x3fff], ×3
⟨⟩ = (2,2) (3,3) (4,4)
dsp->ar[5], dsp->data[dsp->ar[5] & 0x3fff]);
} }
/* [2026-09-19] THE BLOCK THAT OVERWRITES THE LOWER HALF OF THE FIRS
* WINDOW. 0x832b..0x8330 writes 0000 x4 then 4000 x2 there. Boundary
* conditions, or clobbering? Print the program words of the area and the
* registers on entry, once. REJEU_DUMP832=1. */
{ static int d8 = -1; static int fait;
if (d8 < 0) d8 = calypso_getenv("REJEU_DUMP832") ? 1 : 0;
if (d8 && !fait && pc == 0x8320) {
fait = 1;
printf(" [832] programme 0x8318-0x8340 (alias OVLY compris) :\n");
for (unsigned a = 0x8318; a <= 0x8340; a += 8) {
printf(" %04x:", a);
for (int k = 0; k < 8 && a + k <= 0x8340; k++)
printf(" %04x", prog_ovly(dsp, (uint16_t)(a + k)));
printf("\n");
}
printf(" registres : A=%010llx B=%010llx T=%04x\n",
(unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL), dsp->t);
printf(" AR0=%04x AR1=%04x AR2=%04x AR3=%04x AR4=%04x AR5=%04x AR6=%04x AR7=%04x\n",
dsp->ar[0],dsp->ar[1],dsp->ar[2],dsp->ar[3],
dsp->ar[4],dsp->ar[5],dsp->ar[6],dsp->ar[7]);
} }
/* [2026-09-19] THE CORRELATOR BLOCK, PC BY PC, OVER A SINGLE DECODE.
* 3100 MACs per decode reads either as "50 x 62" or "31 x 100"; only a
* per-pass count decides. Count each PC in 0x84a0..0x84d0 during the
* FIRST decode, then print. REJEU_BLOC=1. */
{ static int bl = -1; static unsigned long cnt[0x40]; static int fini, vu_dec;
if (bl < 0) bl = calypso_getenv("REJEU_BLOC") ? 1 : 0;
if (bl && !fini) {
if (pc >= 0x84a0 && pc <= 0x84df) cnt[pc - 0x84a0]++;
if (pc == 0x9841) {
if (!vu_dec) { vu_dec = 1; }
else {
fini = 1;
printf(" [bloc] correlateur 0x84a0-0x84df sur UN decodage :\n");
for (int k = 0; k < 0x40; k++)
if (cnt[k]) printf(" pc=%04x op=%04x %6lu fois\n",
0x84a0 + k, prog_ovly(dsp, 0x84a0 + k), cnt[k]);
}
}
} }
/* [2026-09-19] IMPULSE RESPONSE OF 0x2c72. Force ONE position to an
* extreme value, held over the whole window, and compare the output
* between +v and -v. How many decoded bits move:
* 1 position -> a permutation, 0x2c72 really is one soft per bit
* 3 or 4 adjacent -> normal ISI, the chain is sound here
* all / none -> these are not per-bit softs
* REJEU_IMPULSION=<k> REJEU_IMPULSION_VAL=<v>. */
{ static int ik = -2, iv;
if (ik == -2) { const char *e = calypso_getenv("REJEU_IMPULSION");
ik = e ? atoi(e) : -1;
const char *w = calypso_getenv("REJEU_IMPULSION_VAL");
iv = w ? atoi(w) : 20000; }
if (ik >= 0 && ik < 78 && g_dans_sb)
dsp->data[0x2c72 + ik] = (uint16_t)(int16_t)iv; }
/* [2026-09-19] IS THE PEAK USED AT ALL? The addresses FIRS reads do
* not move when the burst moves, while the peak does follow. Force the
* peak to an arbitrary value over the whole demodulation window: if
* nothing downstream changes, it is not consumed and the equalizer is
* aligned on nothing. REJEU_FORCER_PIC=<n>. */
{ static int fp = -2;
if (fp == -2) { const char *e = calypso_getenv("REJEU_FORCER_PIC"); fp = e ? atoi(e) : -1; }
if (fp >= 0 && g_dans_sb) dsp->data[0x2f06] = (uint16_t)fp; }
/* [2026-09-19] PERFECT SOFTS. The fault lies somewhere between the
* correlator (sound) and the soft-bit write. Split the space in two:
* just before the decoder (0x9841) reads 0x2c72, write the ideal soft
* bits there ourselves, derived from the 78 bits the injected burst
* REALLY carries. If the DSP then returns BSIC=32, everything downstream
* (Viterbi, CRC, a_sch packing) is proven and the fault is strictly in
* soft PRODUCTION; otherwise it is downstream.
* REJEU_SOFTS_PARFAITS=<amplitude>, sign tested both ways via
* REJEU_SOFTS_POLARITE=0|1. REJEU_SOFTS_CONTINU=1 holds the ideal softs
* at EVERY step of the demodulation window, not only at the decoder
* entry -- otherwise a read before 0x9841 escapes the injection and "no
* effect" means nothing. */
if (pc == 0x9841 || (env_softs_continu && g_dans_sb)) {
static int amp = -2, pol = -1;
if (amp == -2) { const char *e = calypso_getenv("REJEU_SOFTS_PARFAITS");
amp = e ? atoi(e) : -1;
const char *q = calypso_getenv("REJEU_SOFTS_POLARITE");
pol = q ? atoi(q) : 0; }
if (amp > 0) {
int ri = g_n_reels ? g_reel_pour_fn[g_sb_cmd_fn & 63] : -1;
unsigned char att[78];
if (ri >= 0) memcpy(att, g_reels_code[ri], 78);
else cellule_code_attendu(g_sb_cmd_fn, (uint8_t)g_bsic_injecte, att);
/* REJEU_SOFTS_PERM: the order of the 78 values is a hypothesis.
* none = as is; swap = the two halves of 39 exchanged;
* rev = reversed order; entrelace = even/odd separated. */
static const char *perm; static int perm_lu;
if (!perm_lu) { perm = calypso_getenv("REJEU_SOFTS_PERM"); perm_lu = 1; }
/* [2026-09-20] The decoder reads its 78 softs at 0x2a00
* (ROM 0x984a `stm #0x2a00,AR1`; packing 0x7e65-0x7e7a),
* NOT at 0x2c72. Writing 0x2c72 tested nothing.
* REJEU_SOFTS_ADDR overrides (default 0x2a00). */
static long sa = -1;
if (sa < 0) { const char *e = calypso_getenv("REJEU_SOFTS_ADDR");
sa = (e && *e) ? strtol(e, NULL, 0) : 0x2a00; }
for (int k = 0; k < 78; k++) {
int j = k;
if (perm && !strcmp(perm, "swap")) j = (k < 39) ? k + 39 : k - 39;
else if (perm && !strcmp(perm, "rev")) j = 77 - k;
else if (perm && !strcmp(perm, "entrelace")) j = (k < 39) ? 2*k : 2*(k-39)+1;
int bit = att[j] & 1;
int v = (pol ? bit : !bit) ? amp : -amp;
dsp->data[(uint16_t)(sa + k)] = (uint16_t)(int16_t)v;
}
static unsigned ns; if (ns < 3) { ns++;
printf(" [softs] fn_demod=%u : 78 souples IDEAUX ecrits en 0x%04lx "
"(amp=%d pol=%d, source=%s)\n", g_sb_cmd_fn, sa, amp, pol,
ri >= 0 ? "burst reel" : "fixture"); }
}
}
/* [2026-09-19] WHO WRITES THE EQUALIZER INPUT WINDOW? FIRS reads
* 0x2a8e..0x2a9a and its lower half is zero or 0x4000. Watch the area
* word by word and record the PC of each write: that says who fills it,
* in what order, and where the filling stops. REJEU_QUI2A=1. */
{ static int q2 = -1; static uint16_t shadow[0x30]; static int init2;
static unsigned nq;
if (q2 < 0) q2 = calypso_getenv("REJEU_QUI2A") ? 1 : 0;
if (q2) {
if (!init2) { for (int k = 0; k < 0x30; k++) shadow[k] = dsp->data[0x2a80 + k]; init2 = 1; }
for (int k = 0; k < 0x30; k++) {
uint16_t v = dsp->data[0x2a80 + k];
if (v != shadow[k]) {
if (nq < 4000) { nq++;
printf(" [qui] 0x%04x : %04x -> %04x ecrit juste avant pc=%04x (fn=%u)\n",
0x2a80 + k, shadow[k], v, pc, fn_cur); }
shadow[k] = v;
}
}
} }
/* [2026-09-19] WHO FILLS B? The correlator is sound (the peak follows
* the margin), FIRS carries nothing, and yet `sth *AR6+,B` at 0x8497 is
* what writes the soft bits. Trace A and B over the whole window
* 0x8470..0x84a0 to see where B takes its value. REJEU_TRACE_B=1. */
/* 0x847c / 0x8498 : op=0x4485 = LD Smem,16,A per tic54x-opc.c
* (0x4400/0xFE00). No handler matches this mask in c54x_exec.c,
* yet A changes across it. Dump A before/after and every AR with
* the word it points at, to find where the value comes from. */
/* Dump the DSP work buffers at the correlator entry, together with
* the real burst that was fed, so an external model can identify what
* each buffer holds instead of guessing. REJEU_DUMP_BUF=<path>. */
/* Who writes the BSP deposit window 0x0cce, and when? At correlator
* entry the window holds none of the injected bursts and its content
* does not change between frames. Shadow the window, log each change
* with the PC that made it. REJEU_QUI_CCE=1. */
/* Timeline of the deposit window on one SB frame: every change with
* the PC and the instruction count, plus the correlator entry. Tells
* whether the burst is destroyed before or after the SB reads it.
* REJEU_CHRONO=<fn>. */
{ static long cf = -2; static uint16_t sh2[380]; static int ini2; static unsigned nl;
if (cf == -2) { const char *e = calypso_getenv("REJEU_CHRONO"); cf = e ? atol(e) : -1; }
if (cf >= 0 && (long)fn_cur == cf) {
if (!ini2) { for (int k=0;k<380;k++) sh2[k]=dsp->data[0x0cce + k]; ini2=1;
printf(" [chrono] trame %ld\n", cf); }
unsigned chg=0;
for (int k=0;k<380;k++) { uint16_t v=dsp->data[0x0cce + k];
if (v!=sh2[k]) { chg++; sh2[k]=v; } }
if (chg && nl < 24) { nl++;
printf(" insn=%-8u pc=%04x %4u mots changes\n",
dsp->insn_count, pc, chg); }
if (pc == 0x84a0 && nl < 30) { nl++;
printf(" insn=%-8u pc=84a0 <== ENTREE DU CORRELATEUR SB\n",
dsp->insn_count); }
if (pc == 0x7c31 && nl < 30) { nl++;
printf(" insn=%-8u pc=7c31 <== entree du demodulateur SB\n",
dsp->insn_count); }
} }
{ static int qc = -1; static uint16_t sh[380]; static int ini;
static unsigned long par_pc[0x10000], tot; static unsigned long nfr[64];
if (qc < 0) qc = calypso_getenv("REJEU_QUI_CCE") ? 1 : 0;
if (qc) {
if (!ini) { for (int k=0;k<380;k++) sh[k]=dsp->data[0x0cce + k]; ini=1; }
unsigned chg = 0;
for (int k=0;k<380;k++) {
uint16_t v = dsp->data[0x0cce + k];
if (v != sh[k]) { chg++; sh[k]=v; }
}
if (chg) { par_pc[pc] += chg; nfr[fn_cur & 63] += chg; }
if (++tot % 500000 == 0) {
printf(" [cce] ecrivains de 0x0cce (mots modifies) :\n");
for (int r=0;r<6;r++) {
unsigned best=0; unsigned long bv=0;
for (unsigned i=0;i<0x10000;i++) if (par_pc[i]>bv){bv=par_pc[i];best=i;}
if (!bv) break;
printf(" pc=%04x op=%04x : %lu mots\n", best,
prog_ovly(dsp,(uint16_t)best), bv);
par_pc[best]=0;
}
tot=1;
}
} }
{ static int vv2 = -1; static unsigned nv2;
if (vv2 < 0) vv2 = calypso_getenv("REJEU_VIE") ? 1 : 0;
if (vv2 && pc == 0x84a0 && g_vie_ad && nv2 < 5) { nv2++;
int ex = 0;
for (int k = 0; k < 296; k++)
if ((int16_t)dsp->data[(g_vie_ad + k) & 0x3fff] == g_livre_iq[2*marge_tete() + k]) ex++;
printf(" [vie] fn=%-4u ENTREE CORRELATEUR (depot de fn=%u) : %d/296 identiques\n",
fn_cur, g_vie_fn, ex); } }
{ static int db = -1; static FILE *fb;
if (db < 0) { const char *e = calypso_getenv("REJEU_DUMP_BUF");
db = e ? 1 : 0; if (db) fb = fopen(e, "wb"); }
if (db && fb && pc == 0x84a0 && g_n_reels) {
int ri = g_reel_pour_fn[g_sb_cmd_fn & 63];
if (ri >= 0) {
static int nb;
if (nb < 8) { nb++;
uint32_t hdr[4] = { g_sb_cmd_fn, (uint32_t)ri,
g_reels_fn[ri], g_reels_bsic[ri] };
fwrite(hdr, 4, 4, fb);
fwrite(g_reels[ri], 2, 296, fb); /* le burst injecte */
fwrite(&dsp->data[0x0cce], 2, 380, fb); /* depot BSP */
fwrite(&dsp->data[0x2a00], 2, 256, fb); /* tampon 1 */
fwrite(&dsp->data[0x2ac0], 2, 256, fb); /* tampon 2 */
fwrite(&dsp->data[0x2c72], 2, 78, fb); /* bits souples */
fwrite(g_reels_code[ri], 1, 78, fb); /* bits emis */
fflush(fb);
}
}
} }
{ static int q4 = -1; static unsigned n4; static int64_t avant; static int arme;
if (q4 < 0) q4 = calypso_getenv("REJEU_Q4485") ? 1 : 0;
if (q4) {
if (arme) { arme = 0;
printf(" -> A apres = %010llx\n",
(unsigned long long)(dsp->a & 0xffffffffffULL)); }
if ((pc == 0x847c || pc == 0x8498) && n4 < 6) {
n4++; avant = dsp->a; arme = 1;
printf(" [4485] pc=%04x op=%04x A avant = %010llx\n",
pc, prog_ovly(dsp, pc), (unsigned long long)(avant & 0xffffffffffULL));
for (int k = 0; k < 8; k++)
printf(" AR%d=%04x -> %04x\n", k, dsp->ar[k],
dsp->data[dsp->ar[k] & 0x3fff]);
}
} }
{ static int tb = -1; static unsigned ntb;
if (tb < 0) tb = calypso_getenv("REJEU_TRACE_B") ? 1 : 0;
if (tb && ntb < 70 && pc >= 0x8470 && pc <= 0x84a0) {
ntb++;
printf(" [B] pc=%04x op=%04x A=%010llx B=%010llx AR2=%04x->%04x AR3=%04x->%04x\n",
pc, prog_ovly(dsp, pc),
(unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->ar[2], dsp->data[dsp->ar[2] & 0x3fff],
dsp->ar[3], dsp->data[dsp->ar[3] & 0x3fff]);
} }
{ uint16_t o = prog_ovly(dsp, pc); uint8_t h = o >> 8;
static int dans_sb2;
if (pc == 0x7c31) dans_sb2 = 1;
if (pc == 0x9841) dans_sb2 = 0;
g_dans_sb = dans_sb2;
/* [2026-09-18] WHAT FIRS MULTIPLIES. FIRS (0xE0, 2 words) takes its
* pmad from the following word and reads its coefficients in PROGRAM
* space. Print pmad, the coefficients as the core sees them (OVLY alias
* included) and data[] at the same address: null or constant
* coefficients mean the equalizer output CANNOT depend on its input,
* which would be the root cause. */
if (env_firs && dans_sb2 && h == 0xE0) {
static unsigned nf;
if (nf < 10) {
uint16_t pmad = prog_ovly(dsp, (uint16_t)(pc + 1));
printf(" [firs] #%u pc=%04x pmad=%04x coef(prog+ovly)=", ++nf, pc, pmad);
for (int k = 0; k < 6; k++) printf(" %04x", prog_ovly(dsp, (uint16_t)(pmad + k)));
printf(" data[pmad..]=");
for (int k = 0; k < 6; k++) printf(" %04x", dsp->data[(pmad + k) & 0x3fff]);
printf("\n");
}
}
if (pc >= 0x9800 && pc <= 0x9bff) g_op_dec[o]++;
if (pc >= 0x8400 && pc <= 0x84ff) g_op_eq[o]++;
if (pc == 0x9841) g_n_dec++;
if (dans_sb2) {
if (g_op_n[o]++ == 0) g_op_pc[o] = pc;
if (h == 0x8E || h == 0x8F) n_cmps_sb++;
if (h >= 0xE0 && h <= 0xE3) { n_e0_sb++; n_e0x_sb[h - 0xE0]++; }
/* [2026-09-18] FIRS reads its coefficients at Pmem[pmad], with
* pmad ~ 0x0061. But 0x0060-0x007F is the C54x DARAM SCRATCH-PAD
* and the core's OVLY window only starts at 0x0080, so
* prog_read(0x61) falls back on prog[] where nothing is loaded
* below 0x7000. If the coefficients only live in data[], FIRS
* multiplies by nothing and its output cannot depend on its input.
* Read BOTH spaces at the FIRS. */
if (h == 0xE0 && n_firs_vus < 6) {
uint16_t pmad = dsp->prog[(pc + 1) & 0xffff];
int nzp = 0, nzd = 0;
for (int k = 0; k < 6; k++) {
if (dsp->prog[(pmad + k) & 0xffff]) nzp++;
if (dsp->data[(pmad + k) & 0x3fff]) nzd++;
}
/* [2026-09-18] Reading prog[] RAW is misleading: with
* PMST_OVLY set and the alias floor at 0x0060 (gate
* CALYPSO_OVLY_SCRATCH, default 1), a PROGRAM read in
* 0x0060-0x27FF is redirected to data[]. Reproduce the core's
* translation to know what FIRS REALLY reads, rather than what
* the prog[] array holds. */
int ovly = (dsp->pmst & 0x0020) != 0;
int alias = ovly && pmad >= 0x0060 && pmad < 0x2800;
printf(" [firs] pc=%04x pmad=%04x PMST=%04x OVLY=%d alias=%s"
" -> FIRS lit", pc, pmad, dsp->pmst, ovly,
alias ? "data[] (scratch-pad visible)" : "prog[] (PAS d'alias)");
for (int k = 0; k < 6; k++)
printf(" %04x", alias ? dsp->data[(pmad + k) & 0x3fff]
: dsp->prog[(pmad + k) & 0xffff]);
printf("\n");
printf(" [firs] pc=%04x pmad=%04x | prog[pmad..+5]=", pc, pmad);
for (int k = 0; k < 6; k++) printf(" %04x", dsp->prog[(pmad + k) & 0xffff]);
printf(" (%d non nuls)\n | data[pmad..+5]=", nzp);
for (int k = 0; k < 6; k++) printf(" %04x", dsp->data[(pmad + k) & 0x3fff]);
printf(" (%d non nuls)\n", nzd);
n_firs_vus++;
}
} else if (h == 0x8E || h == 0x8F) n_cmps_hors++;
/* [2026-09-18] The dans_sb window closes at 0x9841, so it EXCLUDES
* the SCH decoder and its Viterbi (0x9a78): "0 CMPS in the SB demod"
* said nothing about the Viterbi. CMPS is therefore also counted per PC
* region, with no window, which is unambiguous. */
if (h == 0x8E || h == 0x8F) n_cmps_reg[pc >> 10]++;
/* [2026-09-18] WHO WRITES 0x2a00? The decoder reads 78 words at
* 0x2a00 and finds them ALL NULL on entry: either the equalization
* stage never writes them, or something erases them first. Watch
* 0x2a00..0x2a8d over the WHOLE SB job (not just the demod), recording
* the PC of each change and its direction (to a value, or to zero). */
/* [2026-09-18] 0x8389 = 0x4594 = `ADD *AR4+,16,A,B` (0x4400/0xFC00,
* bit9=src, bit8=dst). The core has NO handler for 0x4400-0x47FF: the
* only one in the area is (op & 0xFC00) == 0x4000, which covers SUB
* alone. Check that B really changes across that instruction. */
{ static int nav; static int64_t bavant;
if (pc == 0x8389) { bavant = dsp->b; nav = 1; }
else if (nav == 1 && pc == 0x838a) {
static int n=0;
if (n < 4) {
printf(" [add-4594] B avant=%010llx B apres=%010llx A=%010llx %s\n",
(unsigned long long)(bavant & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
(unsigned long long)(dsp->a & 0xffffffffffULL),
(dsp->b == bavant) ? "B INCHANGE => instruction NON EXECUTEE" : "B modifie");
n++;
}
nav = 0;
} }
{ static int nb838d;
if (pc == 0x838e && nb838d < 6) {
printf(" [B@838d] B=%010llx A=%010llx AR6=%04x BRC=%u ST1=%04x\n",
(unsigned long long)(dsp->b & 0xffffffffffULL),
(unsigned long long)(dsp->a & 0xffffffffffULL),
dsp->ar[6], dsp->brc, dsp->st1);
nb838d++;
} }
{ static uint16_t omb2[142]; static int arme6; static long ecr[64], vers0[64];
static uint16_t pmin[64], pmax[64];
static struct { uint16_t pc; long v, z; } parpc2[12];
if (pc == 0xb219) {
for (int k = 0; k < 142; k++) omb2[k] = dsp->data[0x2a00 + k];
arme6 = 1;
for (int b = 0; b < 64; b++) { ecr[b] = 0; vers0[b] = 0; }
for (int t = 0; t < 12; t++) { parpc2[t].pc = 0; parpc2[t].v = 0; parpc2[t].z = 0; }
}
if (arme6) {
for (int k = 0; k < 142; k++) {
if (dsp->data[0x2a00 + k] != omb2[k]) {
/* [2026-09-18] Bucket by EXACT PC, and separate value
* writes from zeroing: 284 changes of which 142 to zero
* means something writes the 142 soft bits then ERASES
* them all, and both instructions must be named. The PC
* printed is that of the FOLLOWING instruction. */
{ int z = (dsp->data[0x2a00 + k] == 0);
for (int t = 0; t < 12; t++) {
if (parpc2[t].pc == 0 || parpc2[t].pc == pc) {
parpc2[t].pc = pc;
if (z) parpc2[t].z++; else parpc2[t].v++;
break;
}
} }
int b = pc >> 10;
if (!ecr[b]) { pmin[b] = pc; pmax[b] = pc; }
if (pc < pmin[b]) pmin[b] = pc;
if (pc > pmax[b]) pmax[b] = pc;
ecr[b]++;
if (dsp->data[0x2a00 + k] == 0) vers0[b]++;
omb2[k] = dsp->data[0x2a00 + k];
}
}
}
if (pc == 0x9841 && arme6 && n_2a0 < 3) {
printf(" [qui-2a00] modifications de 0x2a00..0x2a8d pendant le job SB :\n");
long tot = 0;
for (int b = 0; b < 64; b++)
if (ecr[b]) {
printf(" region 0x%04x : %ld modifs (dont %ld vers zero), PC 0x%04x a 0x%04x\n",
b << 10, ecr[b], vers0[b], pmin[b], pmax[b]);
tot += ecr[b];
}
if (!tot) printf(" AUCUNE : rien n'ecrit jamais dans 0x2a00\n");
printf(" par PC exact (PC imprime = instruction SUIVANTE) :\n");
for (int t = 0; t < 12; t++)
if (parpc2[t].pc)
printf(" pc=%04x (donc ecrivain %04x) : %ld valeurs, %ld mises a ZERO\n",
parpc2[t].pc, parpc2[t].pc - 1, parpc2[t].v, parpc2[t].z);
n_2a0++;
} }
/* [2026-09-18] WHO WRITES THE 78 SOFT BITS, AND AT WHICH ADDRESS?
* Sweeping the 78 coded bits shows the first half landing at position b+3
* and the second at TWO positions 51 apart (b-38 and b+13), i.e. the two
* data blocks OVERLAP instead of concatenating. Shadow the area and
* record the PC as soon as its content changes. */
{ static uint16_t ombre[78]; static int arme5; static long parpc[64];
static uint16_t pcmin[64], pcmax[64]; static long seq;
if (dans_sb2) {
if (!arme5) { for (int k = 0; k < 78; k++) ombre[k] = dsp->data[0x2c72 + k]; arme5 = 1; seq = 0; }
for (int k = 0; k < 78; k++) {
if (dsp->data[0x2c72 + k] != ombre[k]) {
int b = pc >> 10;
if (!parpc[b]) { pcmin[b] = pc; pcmax[b] = pc; }
if (pc < pcmin[b]) pcmin[b] = pc;
if (pc > pcmax[b]) pcmax[b] = pc;
parpc[b]++;
/* [2026-09-18] EXACT CHRONOLOGY: sequence number, PC,
* index touched, old and new value. Tells (a) in which
* ORDER the two passes write, hence which destroys which,
* and (b) whether two writes at the same index carry the
* SAME value (mis-addressed copy) or DIFFERENT ones (two
* halves of a sum that should have landed together). */
if (n_ecr == 0 && seq < 100)
printf(" [w] %3ld pc=%04x k=%2d %04x -> %04x "
"AR0=%04x AR1=%04x AR2=%04x AR3=%04x AR4=%04x AR5=%04x AR6=%04x AR7=%04x BRC=%u\n",
seq, pc, k, ombre[k], dsp->data[0x2c72 + k],
dsp->ar[0], dsp->ar[1], dsp->ar[2], dsp->ar[3],
dsp->ar[4], dsp->ar[5], dsp->ar[6], dsp->ar[7], dsp->brc);
seq++;
ombre[k] = dsp->data[0x2c72 + k];
}
}
} else if (arme5 && n_ecr < 2) {
printf(" [ecrit-2c72] sites qui modifient les 78 bits souples :\n");
for (int b = 0; b < 64; b++)
if (parpc[b])
printf(" region 0x%04x : %ld ecritures, PC de 0x%04x a 0x%04x\n",
b << 10, parpc[b], pcmin[b], pcmax[b]);
n_ecr++; arme5 = 0;
for (int b = 0; b < 64; b++) parpc[b] = 0;
} }
/* [2026-09-18] WHY THE EDGES ARE LOST. The max|delta| profile shows
* three orders of magnitude between the middle of the burst (13452,
* 19534, extreme values REPEATED) and its edges (2 to 30). Identical
* extremes coming back means SATURATION. In a fixed-point MLSE the path
* metrics MUST be renormalized at every step; without that they grow,
* saturate, and the relative contribution of edge symbols collapses.
* Count accumulator saturations and flag state during the SB demod. */
{ static long nsat, nova, novb; static int ovm_vu;
if (dans_sb2) {
int64_t a = dsp->a, b = dsp->b;
if (a > 0x7FFFFFFFLL || a < -0x80000000LL) nsat++;
if (b > 0x7FFFFFFFLL || b < -0x80000000LL) nsat++;
if (dsp->st0 & 0x0400) nova++; /* OVA */
if (dsp->st0 & 0x0200) novb++; /* OVB */
if (dsp->st1 & 0x0200) ovm_vu = 1; /* OVM: saturation mode */
} else if ((nsat || nova || novb) && n_sat_vus < 3) {
printf(" [saturation] demod SB : %ld depassements 32 bits,"
" OVA pose %ld fois, OVB %ld fois, mode OVM %s\n",
nsat, nova, novb, ovm_vu ? "ACTIF" : "inactif");
n_sat_vus++; nsat = nova = novb = 0;
} }
/* [2026-09-18] WHERE DOES THE FIXED WINDOW ADDRESS COME FROM? Watch
* the address registers that SWEEP the input buffer 0x0cce during the SB
* demod and print, per register, the sample index range covered and the
* PC that set it. If that range does NOT move by 10 when the margin goes
* from 21 to 31, the address is computed once and reused as is. BK is
* printed too: a mis-emulated circular block size would loop the access
* over a fixed window of the right length with a correct base. */
{ static uint16_t amin[8], amax[8], apc[8]; static long an[8];
static int arme4;
if (dans_sb2) {
if (!arme4) { for (int k = 0; k < 8; k++) { amin[k] = 0xffff; amax[k] = 0; an[k] = 0; } arme4 = 1; }
for (int k = 0; k < 8; k++) {
uint16_t v = dsp->ar[k];
if (v >= 0x0cce && v < 0x0cce + 380) {
uint16_t idx = (uint16_t)((v - 0x0cce) / 2);
if (idx < amin[k]) { amin[k] = idx; apc[k] = pc; }
if (idx > amax[k]) amax[k] = idx;
an[k]++;
}
}
} else if (arme4 && n_bal < 3) {
printf(" [tampon-AR] parcours de 0x0cce pendant le demod SB (BK=%u) :\n", dsp->bk);
for (int k = 0; k < 8; k++)
if (an[k])
printf(" AR%d : echantillons %u..%u (%u larges), %ld acces, 1er a pc=%04x\n",
k, amin[k], amax[k], amax[k] - amin[k] + 1, an[k], apc[k]);
n_bal++; arme4 = 0;
} }
/* [2026-09-18] XC PIPELINE HAZARD. On the C54x the XC condition is
* sampled two cycles before execution, so an instruction setting the
* flag just before the XC is not yet visible; the core evaluates at
* execution time. The hazard therefore only bites if the ROM places the
* flag setter within two slots of the XC (code written for real silicon
* normally does not). Measure the real DISTANCE instead of assuming it:
* keep the last 4 PCs and the ST0 before each. */
{ static uint16_t ring_pc[4], ring_op[4], ring_st0[4]; static int ri;
if ((h == 0xFD || h == 0xFF) && pc >= 0x8400 && pc < 0x8800 && n_xc_vus < 10) {
printf(" [xc] pc=%04x op=%04x cc=%02x | 3 precedentes :", pc, o, o & 0xff);
for (int k = 3; k >= 1; k--) {
int q = (ri - k) & 3;
printf(" %04x:%04x(ST0=%04x)", ring_pc[q], ring_op[q], ring_st0[q]);
}
printf(" | ST0 au XC=%04x\n", dsp->st0);
n_xc_vus++;
}
ring_pc[ri] = pc; ring_op[ri] = o; ring_st0[ri] = dsp->st0;
ri = (ri + 1) & 3;
if (h == 0xFD || h == 0xFF) n_xc_reg[pc >> 10]++; } }
/* [2026-09-20] DECODER ORACLE (REJEU_DECODEUR=1). Ideal softs at
* 0x2a00 still give no CRC OK, so the fault is inside 0x9841..: ACS
* (0x9a78), traceback (0x9aaf) or CRC (0x9887). Dump each stage's
* output next to what libosmocoding says it should be: u[0..34] =
* 25 info bits of sb_info + 10 parity bits (gsm0503_sch_crc10). */
if (env_decodeur) {
static unsigned nd;
{ static unsigned nt;
if (pc == 0x9a7f && nt < 6) { nt++;
printf(" [dec] apres `sth @0x0e,B` (pc=9a7e) : T=%04x B=%010llx (hi=%04x) DP=%03x CPL=%d ST0=%04x ST1=%04x AR1=%04x\n",
dsp->t, (unsigned long long)(dsp->b & 0xffffffffffULL), (unsigned)((dsp->b >> 16) & 0xffff),
dsp->st0 & 0x1ff, !!(dsp->st1 & 0x4000), dsp->st0, dsp->st1, dsp->ar[1]); } }
{ static int cpl_prev = -1; static uint16_t pc_prev; static unsigned ncpl;
int cpl = !!(dsp->st1 & 0x4000);
if (cpl_prev >= 0 && cpl != cpl_prev && ncpl < 16) { ncpl++;
printf(" [cpl] CPL %d -> %d apres l'instruction pc=%04x op=%04x (fn=%u ST1=%04x SP=%04x)\n",
cpl_prev, cpl, pc_prev, prog_ovly(dsp, pc_prev), fn_cur, dsp->st1, dsp->sp); }
cpl_prev = cpl; pc_prev = pc; }
if (pc == 0x9866 && nd < 3) {
printf(" [dec] fn_demod=%u ACS termine : TRN[0..38] @0x2c82 =", g_sb_cmd_fn);
for (int k = 0; k < 39; k++) printf(" %04x", dsp->data[0x2c82 + k]);
printf("\n metriques @0x2c00..0x2c1f =");
for (int k = 0; k < 32; k++) printf(" %04x", dsp->data[0x2c00 + k]);
printf("\n softs @0x2a00[0..7] = %04x %04x %04x %04x %04x %04x %04x %04x BK=%04x AR0=%04x ST1=%04x\n",
dsp->data[0x2a00], dsp->data[0x2a01], dsp->data[0x2a02], dsp->data[0x2a03],
dsp->data[0x2a04], dsp->data[0x2a05], dsp->data[0x2a06], dsp->data[0x2a07],
dsp->bk, dsp->ar[0], dsp->st1);
}
if (pc == 0x987b && nd < 3) {
int ri = g_n_reels ? g_reel_pour_fn[g_sb_cmd_fn & 63] : -1;
unsigned char u[35];
if (ri >= 0) { /* decode the real codeword back to u: not available, print softs only */
memset(u, 9, sizeof u);
} else {
uint32_t fn = g_sb_cmd_fn;
uint32_t t1 = fn / 1326, t2 = fn % 26, t3 = fn % 51, t3p = t3 ? (t3 - 1) / 10 : 0;
uint8_t sb_info[4] = {
(uint8_t)(((g_bsic_injecte & 0x3f) << 2) | ((t1 & 0x600) >> 9)),
(uint8_t)((t1 & 0x1fe) >> 1),
(uint8_t)(((t1 & 0x001) << 7) | ((t2 & 0x1f) << 2) | ((t3p & 0x6) >> 1)),
(uint8_t)(t3p & 0x1) };
ubit_t ub[35];
osmo_pbit2ubit_ext(ub, 0, sb_info, 0, 25, 1);
osmo_crc16gen_set_bits(&gsm0503_sch_crc10, ub, 25, ub + 25);
for (int k = 0; k < 35; k++) u[k] = ub[k];
}
unsigned long long um = 0, ul = 0;
for (int k = 0; k < 35; k++) { um = (um << 1) | u[k]; ul |= (unsigned long long)u[k] << k; }
printf(" [dec] traceback termine : mots @0x2c00 = %04x %04x %04x %04x | attendu u[0..34] MSB-first=0x%09llx LSB-first=0x%09llx\n",
dsp->data[0x2c00], dsp->data[0x2c01], dsp->data[0x2c02], dsp->data[0x2c03], um, ul);
printf(" u = "); for (int k = 0; k < 35; k++) printf("%d", u[k]); printf("\n");
}
if (pc == 0x98a2 && nd < 3) {
printf(" [dec] CRC : drapeau 0x2bf8=%u A=%010llx mots @0x2c00 = %04x %04x %04x\n",
dsp->data[0x2bf8], (unsigned long long)(dsp->a & 0xffffffffffULL),
dsp->data[0x2c00], dsp->data[0x2c01], dsp->data[0x2c02]);
nd++;
}
}
g_op_tous[prog_ovly(dsp, pc)]++;
int ex = c54x_run(dsp, 1);
if (ex <= 0) break;
done += ex;
insn_total++;
}
} else {
/* single-step around the TOA computation (0x7940..0x795c): A, B, T, 0x3fb4 */
static int nlog;
while (done < insns && dsp->running && !dsp->idle) {
uint16_t pc = dsp->pc & 0xffff;
/* The SB demod writes 78 soft bits at 0x2a00 (repack at 0x7e94) and
* the decoder at 0x9841 reads them back. The FB correlator uses THE SAME
* buffer. Compare both instants to prove the overwrite. */
{ static uint16_t apres_demod[8]; static int arme, np;
if (pc == 0x7e94 && !arme) {
for (int k = 0; k < 8; k++) apres_demod[k] = dsp->data[0x2a00 + k];
arme = 1;
} else if (pc == 0x9841 && arme && np < 6) {
int diff = 0;
for (int k = 0; k < 8; k++) if (dsp->data[0x2a00 + k] != apres_demod[k]) diff = 1;
printf(" [2a00] apres demod: %04x %04x %04x %04x | a l'entree du decodeur: %04x %04x %04x %04x => %s\n",
apres_demod[0], apres_demod[1], apres_demod[2], apres_demod[3],
dsp->data[0x2a00], dsp->data[0x2a01], dsp->data[0x2a02], dsp->data[0x2a03],
diff ? "ECRASE" : "intact");
np++; arme = 0;
} }
/* [2026-09-17] Proof that the samples carry the message: demodulate
* the SAME buffer 0x0cce the DSP reads, with a reference demodulator
* written in C. If it recovers the code word and the DSP does not, the
* signal is good and the fault is entirely in the emulated DSP. */
/* Does the buffer hold EXACTLY the samples delivered for this frame,
* or a mix of several bursts? The midamble is identical in every SCH: a
* mix would reinforce it while drowning the data, which is precisely the
* symptom observed. */
{ static int nx;
if (pc == 0x9841 && nx < 4 && g_livre_niq) {
int ident = 0, n = g_livre_niq < 380 ? g_livre_niq : 380;
int prem_diff = -1;
for (int k = 0; k < n; k++) {
if ((int16_t)dsp->data[0x0cce + k] == g_livre_iq[k]) ident++;
else if (prem_diff < 0) prem_diff = k;
}
printf(" [tampon] identique aux echantillons livres : %d/%d mots"
" (1re difference au mot %d)\n", ident, n, prem_diff);
nx++;
} }
/* [2026-09-18] At the decoder entry, measure what it actually READS,
* job by job: the signs of the 78 words packed at 0x2a00 against the
* expected code word, with the best frame searched as in [ref] (under
* REJEU_SCH_PARTOUT the delivered FN is not reliable). Both polarities
* are printed: on differential GMSK the sign convention is not known a
* priori. Links "the stage rewriting 0x2a00 outputs values" to "the
* decoder has something to work on". */
{ static int nb2;
if (pc == 0x9841 && nb2 < 20) {
int16_t sb[78]; int nz = 0, mn = 32767, mx = -32768;
for (int k = 0; k < 78; k++) {
sb[k] = (int16_t)dsp->data[0x2a00 + k];
if (!sb[k]) nz++;
if (sb[k] < mn) mn = sb[k];
if (sb[k] > mx) mx = sb[k];
}
int meil_f = -1, meil_s = -1, s0 = -1;
for (int df = -12; df <= 3; df++) {
long f = (long)g_livre_fn + df; if (f < 0) continue;
unsigned char a2[78]; cellule_code_attendu((uint32_t)f, (uint8_t)g_bsic_injecte, a2);
int ok = 0;
for (int k = 0; k < 78; k++) { int bit = sb[k] < 0 ? 1 : 0; if (bit == a2[k]) ok++; }
int meilleur = ok > 78 - ok ? ok : 78 - ok;
if (meilleur > meil_s) { meil_s = meilleur; meil_f = (int)f; }
if (df == 0) s0 = ok;
}
printf(" [2a00-lu] job %d : zeros=%d/78 etendue=[%d..%d] |"
" signes trame livree %d/78 | meilleure trame %d avec %d/78\n",
nb2 + 1, nz, mn, mx, s0, meil_f, meil_s);
nb2++;
} }
{ static int nr;
if (pc == 0x9841 && nr < 4) {
int16_t ech[2 * 190];
for (int k = 0; k < 380; k++) ech[k] = (int16_t)dsp->data[0x0cce + k];
unsigned char b148[148]; int off = 0;
unsigned char att[78];
cellule_code_attendu(g_livre_fn, (uint8_t)g_bsic_injecte, att);
if (cellule_demod_reference(ech, 190, b148, &off) == 0) {
/* sanity of the reference demod: the midamble must come back out */
int okm = 0;
for (int i = 0; i < 64; i++) if (b148[42 + i] == cellule_train_sb(i)) okm++;
/* raw differential bits: no error propagation */
unsigned char d148[148]; int okd = 0, okdd = 0;
if (cellule_demod_d(ech, 190, off, d148) == 0) {
for (int i = 1; i < 64; i++) {
int att_d = cellule_train_sb(i) ^ cellule_train_sb(i - 1);
if (d148[42 + i] == att_d) okd++;
}
/* same bits, opposite polarity */
for (int i = 1; i < 64; i++) {
int att_d = cellule_train_sb(i) ^ cellule_train_sb(i - 1);
if (d148[42 + i] != att_d) okdd++;
}
}
/* The DATA too, as raw differential bits, against the full
* expected burst (3 tail + 39 + midamble + 39 + 3 tail).
* Comparing on b148 is meaningless: differential decoding
* propagates any single error over the rest of the burst. */
int okdat = 0, ndat = 0, meil_f = -1, meil_s = -1;
for (int df = -12; df <= 3; df++) {
long f = (long)g_livre_fn + df; if (f < 0) continue;
unsigned char a2[78]; cellule_code_attendu((uint32_t)f, (uint8_t)g_bsic_injecte, a2);
unsigned char burst[148];
memset(burst, 0, 3);
memcpy(burst + 3, a2, 39);
for (int i = 0; i < 64; i++) burst[42 + i] = (unsigned char)cellule_train_sb(i);
memcpy(burst + 106, a2 + 39, 39);
memset(burst + 145, 0, 3);
int ok2 = 0, n2 = 0, prev2 = 1;
for (int i = 0; i < 148; i++) {
int att_d = burst[i] ^ prev2; prev2 = burst[i];
int est_donnee = (i >= 3 && i < 42) || (i >= 106 && i < 145);
if (!est_donnee) continue;
n2++; if (d148[i] == att_d) ok2++;
}
if (ok2 > meil_s) { meil_s = ok2; meil_f = (int)f; }
if (df == 0) { okdat = ok2; ndat = n2; }
}
printf(" [d-brut] midambule %d/63 (inverse %d) | DONNEES trame livree %d/%d"
" | meilleure trame %d avec %d/%d\n",
okd, okdd, okdat, ndat, meil_f, meil_s, ndat);
/* the midamble is IDENTICAL for every SCH frame: if it locks
* but the data does not, the buffer holds the burst of ANOTHER
* frame. Find out which. */
int meilleure = -1, meilleur_score = -1;
for (int df = -12; df <= 3; df++) {
long f = (long)g_livre_fn + df; if (f < 0) continue;
unsigned char a2[78]; cellule_code_attendu((uint32_t)f, (uint8_t)g_bsic_injecte, a2);
int ok2 = 0;
for (int i = 0; i < 39; i++) if (b148[3 + i] == a2[i]) ok2++;
for (int i = 0; i < 39; i++) if (b148[106 + i] == a2[39 + i]) ok2++;
if (ok2 > meilleur_score) { meilleur_score = ok2; meilleure = (int)f; }
}
int ok = 0;
for (int i = 0; i < 39; i++) if (b148[3 + i] == att[i]) ok++;
for (int i = 0; i < 39; i++) if (b148[106 + i] == att[39 + i]) ok++;
printf(" [ref] fn livree=%u offset=%d | midambule %d/64 |"
" mot de code de la trame livree %d/78 |"
" MEILLEURE trame = %d avec %d/78\n",
g_livre_fn, off, okm, ok, meilleure, meilleur_score);
} else {
printf(" [ref] fn=%u demod de reference : pas de pic exploitable\n", g_livre_fn);
}
nr++;
} }
/* [2026-09-17] Hunting the next ISA bug. The FB path works, so every
* opcode it executes is valid by construction. List the opcodes only the
* SB demodulator executes: the one family never validated, hence the pool
* of suspects. */
{ static int dans_sb;
if (!vu_sb) { vu_sb = calloc(65536, 1); vu_hors = calloc(65536, 1); }
if (pc == 0x7c31) dans_sb = 1;
if (pc == 0x9841) dans_sb = 0;
/* [2026-09-18] Flipping ONE coded bit moves 78 positions out of 78
* in 0x2c72: the traceback is global. On the C54x that points at CMPS
* (0x8E/0x8F) and the TRN register. So count what really executes in
* the SB path: the true CMPS, or the 0xE0 family (FIRS/LMS/SQDST/ABDST)
* whose variant still carries pseudo-CMPS semantics in the core. */
{ uint16_t o = dsp->prog[pc]; uint8_t h = o >> 8;
if (dans_sb) {
if (h == 0x8E || h == 0x8F) n_cmps_sb++;
if (h >= 0xE0 && h <= 0xE3) { n_e0_sb++; n_e0x_sb[h - 0xE0]++; }
if (o == 0x8D00 || (o & 0xFF00) == 0x8D00) n_sttrn_sb++;
} else {
if (h == 0x8E || h == 0x8F) n_cmps_hors++;
} }
{ uint16_t o = dsp->prog[pc];
if (dans_sb) vu_sb[o] = 1; else vu_hors[o] = 1; }
}
/* [2026-09-17] The 78 soft bits are at 0x2c72 (NOT 0x2a00, which is
* the 296-word FB correlator buffer). Compare the SIGN of each with the
* bit actually transmitted: matching signs mean the demodulator is sound
* and the fault is in the decoder; matching with a shift means the
* correlator offset is wrong. */
{ static int nb;
if (pc == 0x9841 && nb < 400) {
unsigned char att[78];
cellule_code_attendu(g_livre_fn, (uint8_t)g_bsic_injecte, att);
/* Try the plausible conventions: polarity, halves swapped (the
* DSP may return 39+39 in the other order), and a shift. A
* combination clearly above chance means the demodulator is sound
* and it is a matter of convention. */
/* [2026-09-18] The family tested did NOT include even/odd
* de-interleaving. The SCH convolutional code emits its 78 bits
* in the order C(2k), C(2k+1) per trellis step, and the burst
* stores them as two halves of 39. If the DSP stores its softs
* in the INTERNAL order (all evens then all odds), no cyclic
* shift, polarity or half swap recovers it: every combination
* lands exactly at chance, which is precisely the plateau
* observed. Add the permutation and its inverse.
* 0 identity 1 halves swapped
* 2 evens first 3 odds first */
int best = -99, bestd = 0, bestv = 0;
for (int v = 0; v < 8; v++) {
int inv = v & 1, perm = v >> 1;
for (int d = -8; d <= 8; d++) {
int ok = 0, tot = 0;
for (int i = 0; i < 78; i++) {
int src;
switch (perm) {
case 1: src = (i + 39) % 78; break;
case 2: src = (i % 2 == 0) ? (i / 2) : (39 + (i - 1) / 2); break;
case 3: src = (i % 2 == 1) ? ((i - 1) / 2) : (39 + i / 2); break;
default: src = i; break;
}
int j = src + d; if (j < 0 || j >= 78) continue;
int16_t sv = (int16_t)dsp->data[0x2c72 + j];
if (!sv) continue;
tot++;
int bit = att[i] != 0; if (inv) bit = !bit;
if ((sv < 0) == bit) ok++;
}
if (tot >= 40) { int pc2 = ok * 100 / tot;
if (pc2 > best) { best = pc2; bestd = d; bestv = v; } }
}
}
int nznb = 0; for (int i = 0; i < 78; i++) if (dsp->data[0x2c72 + i]) nznb++;
/* Is the DSP output a SLICE of the burst at some arbitrary
* offset? Correlate the 78 signs against the differential
* sequence of the 148 burst bits, at every shift, in both
* polarities. */
{ unsigned char burst[148]; int prev3 = 1; unsigned char dref[148];
memset(burst, 0, 3); memcpy(burst + 3, att, 39);
for (int i = 0; i < 64; i++) burst[42 + i] = (unsigned char)cellule_train_sb(i);
memcpy(burst + 106, att + 39, 39); memset(burst + 145, 0, 3);
for (int i = 0; i < 148; i++) { dref[i] = burst[i] ^ prev3; prev3 = burst[i]; }
int bs = -1, bo = 0, bp = 0;
for (int o = -78; o <= 148; o++) {
for (int pol = 0; pol < 2; pol++) {
int ok = 0, tot = 0;
for (int i = 0; i < 78; i++) {
int j = o + i; if (j < 0 || j >= 148) continue;
int16_t sv = (int16_t)dsp->data[0x2c72 + i];
if (!sv) continue;
tot++; int b = dref[j]; if (pol) b = !b;
if ((sv < 0) == b) ok++;
}
if (tot >= 50 && ok * 100 / tot > bs) { bs = ok * 100 / tot; bo = o; bp = pol; }
}
}
printf(" [tranche] sortie DSP vs burst complet : max %d%% a l'offset %d (polarite %d)\n",
bs, bo, bp); }
/* [2026-09-18] Peak and agreement on the SAME line, so they can
* be correlated frame by frame: if the frames whose peak is 21 (the
* real burst start) agree better, peak PRECISION is still a problem
* and the channel estimate sits beside the burst, which is enough
* to ruin an MLSE equalizer on GMSK whose ISI spans three symbols.
* A flat agreement whatever the peak clears the correlator. */
/* fingerprint of the 78 soft bits, to diff two runs */
{ static int nemq; static long cible = -2;
if (cible == -2) { const char *e = calypso_getenv("REJEU_EMPREINTE_FN");
cible = e ? atol(e) : -1; }
/* [2026-09-18] THE FRAME MUST BE LOCKED. Taking whichever
* occurrence comes first does not compare the same thing across
* runs: the frame the SB attempt lands on depends on FB
* scheduling, and under SCH_PARTOUT a different frame means a
* different T1/T2/T3, hence an entirely different code word --
* 190/380 samples differing and 38 signs out of 78 flipping,
* i.e. chance. REJEU_EMPREINTE_FN=<n> prints frame n only. */
if (nemq < 1 && (cible < 0 || (long)g_livre_fn == cible)) {
/* [2026-09-18] Check the MODULATOR before blaming the
* demodulator. Flipping coded bit 0 touches burst bit 3, so
* alpha_3 and alpha_4 both change sign and their SUM is
* preserved: the phase realigns after two symbols, and only
* ~6 complex samples around index 24 should differ out of
* 380. If all 380 differ, the modulator is at fault. */
printf(" [empreinte-iq] fn=%u :", g_livre_fn);
for (int k = 0; k < 380; k++) printf(" %04x", dsp->data[0x0cce + k]);
printf("\n"); nemq++;
} }
{ static int nemp; static long cible2 = -2;
if (cible2 == -2) { const char *e = calypso_getenv("REJEU_EMPREINTE_FN");
cible2 = e ? atol(e) : -1; }
if (nemp < 3 && (cible2 < 0 || (long)g_livre_fn == cible2)) {
printf(" [empreinte] fn=%u (trame courante %u%s) pic=%u :", g_livre_fn, fn_cur,
g_livre_fn == fn_cur ? "" : " DESALIGNE", dsp->data[0x2f06]);
for (int k = 0; k < 78; k++) printf(" %04x", dsp->data[0x2c72 + k]);
printf("\n"); nemp++;
} }
/* [2026-09-18] Four independent decodings of the block
* 0x84a0-0x84d8 show it is NOT the soft-bit writer but the MIDAMBLE
* CORRELATOR: 50 lags, 64 taps of a fixed reference at 0x2cea
* (64 = midamble length), Re output at 0x2c56 and Im at 0x2c88,
* then |corr|^2 at 0x2be4 for the argmax. Its index is the LAG, not
* a coded-bit rank, so there is nothing to look for there. They
* point at 0x2a00 as the real buffer (loop 0x848d-0x849f, BRC=141
* hence 142 iterations, `sth B,*AR6+` at 0x8497). 142 is close to
* the 148 burst bits, hence the hypothesis "0x2a00 indexed by
* POSITION IN THE BURST", where coded bit b is at 3+b for b<39 and
* at 106+(b-39) beyond. */
/* [2026-09-18] SEARCH RATHER THAN GUESS. At the decoder entry,
* sweep ALL of data memory for a zone whose SIGNS match the
* transmitted code word, under two layouts: 78 contiguous words
* indexed by coded-bit rank, and indexing by burst position (3+b
* then 106+b-39). Print the best bases. If none stands clearly
* above chance, the soft bits are not in data memory in either
* form. */
/* [2026-09-18] INPUT / OUTPUT DISCRIMINANT for the 0x2ad5
* candidate. Agreement does not separate the two: the derotated
* input and the demodulator output are both indexed by burst
* position and would answer a bit flip alike. What separates them
* is CHANNEL dependence: a demodulator output depends on the
* channel estimate, hence on the peak; an input representation does
* not. So perturb the MIDAMBLE alone (which moves the peak without
* touching the data) and see whether 0x2ad5 moves AT THE DATA
* POSITIONS. Invariant => input. Moving => output, buffer found. */
/* [2026-09-18] THE REAL BUFFER, found in ROM: 0x2a00.
* Two successive stages, both at 0x2a00:
* - equalizer output, 142 words, index = burst position - 3
* (`sth B,*AR6+`, AR6 init 0x2a00, BRC=0x8d hence 142 turns);
* - PACKED codeword, 78 contiguous words, index = coded-bit rank,
* produced by 0x7e65-0x7e7a: 39 copies, then
* `mar *+AR2(0x0040)` at 0x7e76 which SKIPS THE 64 MIDAMBLE
* BITS, then 39 copies. The +64 is literal in ROM.
* The decoder confirms it: 0x984a `stm #0x2a00,AR1`, BRC=0x26, and
* the body at 0x9a78 advances AR1 by 2 per trellis step, 39 steps =
* 78 words.
*
* Zeros must NOT be discarded here: these soft bits take the values
* 0x0000 and 0xffff, so an `if (!v) continue;` plus a `n >= 60`
* requirement threw away half the samples and eliminated 0x2a00
* before it could be scored. */
{ static int n2a0;
if (n2a0 < 4) {
int meil_c = -1, pol_c = 0, meil_b = -1, pol_b = 0;
for (int pol = 0; pol < 2; pol++) {
int ok = 0;
for (int b = 0; b < 78; b++) {
int16_t v = (int16_t)dsp->data[0x2a00 + b];
int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (ok * 100 / 78 > meil_c) { meil_c = ok * 100 / 78; pol_c = pol; }
ok = 0;
for (int b = 0; b < 78; b++) {
int j = (b < 39) ? b : (64 + b);
int16_t v = (int16_t)dsp->data[0x2a00 + j];
int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (ok * 100 / 78 > meil_b) { meil_b = ok * 100 / 78; pol_b = pol; }
}
int nz = 0, nff = 0, naut = 0;
for (int k = 0; k < 142; k++) {
uint16_t v = dsp->data[0x2a00 + k];
if (v == 0) nz++; else if (v == 0xffff) nff++; else naut++;
}
printf(" [2a00] COMPACTE (0x2a00+b) : %d%% (polarite %d) | "
"BRUT (saut de 64) : %d%% (polarite %d)\n",
meil_c, pol_c, meil_b, pol_b);
printf(" [2a00] contenu sur 142 mots : %d nuls, %d a 0xffff, %d autres |",
nz, nff, naut);
for (int k = 0; k < 10; k++) printf(" %04x", dsp->data[0x2a00 + k]);
printf("\n");
n2a0++;
} }
{ static int n2d;
if (n2d < 1) {
printf(" [2ad5] pic=%u valeurs aux positions de burst 0..147 :\n ",
dsp->data[0x2f06]);
for (int k = 0; k < 148; k++) {
printf(" %04x", dsp->data[0x2ad5 + k]);
if (k % 12 == 11) printf("\n ");
}
printf("\n");
n2d++;
} }
{ static int nch;
if (nch < 1) {
struct { int sc, base, disp, pol; } top[6];
for (int t = 0; t < 6; t++) { top[t].sc = -1; top[t].base = 0; }
for (int base = 0; base < 0x3f00; base++)
for (int disp = 0; disp < 2; disp++)
for (int pol = 0; pol < 2; pol++) {
int ok = 0, n = 0;
for (int b = 0; b < 78; b++) {
int j = disp ? ((b < 39) ? (3 + b) : (106 + b - 39)) : b;
int16_t v = (int16_t)dsp->data[(base + j) & 0x3fff];
if (!v) continue;
n++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (n < 60) continue;
int sc = ok * 100 / n;
for (int t = 0; t < 6; t++)
if (sc > top[t].sc) {
for (int u = 5; u > t; u--) top[u] = top[u-1];
top[t].sc = sc; top[t].base = base; top[t].disp = disp; top[t].pol = pol;
break;
}
}
printf(" [chasse] meilleure zone : base 0x%04x %s pol %d -> %d%%"
" (2e: 0x%04x %d%%, 3e: 0x%04x %d%%)\n",
top[0].base, top[0].disp ? "burst" : "contigu", top[0].pol, top[0].sc,
top[1].base, top[1].sc, top[2].base, top[2].sc);
nch++;
} }
{ static int n2a;
if (n2a < 3) {
int meil = -1, mo = 0, mp = 0;
for (int o = -8; o <= 8; o++)
for (int pol = 0; pol < 2; pol++) {
int ok = 0, n = 0;
for (int b = 0; b < 78; b++) {
int bp = (b < 39) ? (3 + b) : (106 + b - 39);
int j = bp + o; if (j < 0 || j >= 148) continue;
int16_t v = (int16_t)dsp->data[0x2a00 + j]; if (!v) continue;
n++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok++;
}
if (n >= 50) { int pc2 = ok * 100 / n;
if (pc2 > meil) { meil = pc2; mo = o; mp = pol; } }
}
int nz = 0; for (int k = 0; k < 148; k++) if (dsp->data[0x2a00 + k]) nz++;
printf(" [2a00] indexe par position de burst : concordance max %d%%"
" (decalage %d, polarite %d) | %d/148 mots non nuls\n",
meil, mo, mp, nz);
printf(" [2a00] valeurs :");
for (int k = 0; k < 14; k++) printf(" %04x", dsp->data[0x2a00 + k]);
printf("\n");
n2a++;
} }
{ static int nv;
if (nv < 3) {
int m1b = -1, m1o = 0, m1s = 0, m2b = -1, m2o = 0, m2s = 0;
for (int o = 0; o < 100; o++)
for (int sens = -1; sens <= 1; sens += 2)
for (int pol = 0; pol < 2; pol++) {
int ok1 = 0, n1 = 0, ok2 = 0, n2 = 0;
for (int b = 0; b < 39; b++) {
int j = o + sens * b; if (j < 0 || j >= 100) continue;
int16_t v = (int16_t)dsp->data[0x2c56 + j]; if (!v) continue;
n1++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok1++;
}
for (int b = 39; b < 78; b++) {
int j = o + sens * (b - 39); if (j < 0 || j >= 100) continue;
int16_t v = (int16_t)dsp->data[0x2c56 + j]; if (!v) continue;
n2++; int bit = att[b] != 0; if (pol) bit = !bit;
if ((v < 0) == bit) ok2++;
}
if (n1 >= 30) { int pc1 = ok1 * 100 / n1;
if (pc1 > m1b) { m1b = pc1; m1o = o; m1s = sens * (pol ? -2 : 1); } }
if (n2 >= 30) { int pc2 = ok2 * 100 / n2;
if (pc2 > m2b) { m2b = pc2; m2o = o; m2s = sens * (pol ? -2 : 1); } }
}
printf(" [2c56] moitie 1 : meilleur %d%% a l'offset %d (code %d) | "
"moitie 2 : meilleur %d%% a l'offset %d (code %d)\n",
m1b, m1o, m1s, m2b, m2o, m2s);
int nz = 0; for (int k = 0; k < 100; k++) if (dsp->data[0x2c56 + k]) nz++;
printf(" [2c56] %d/100 mots non nuls, carte des nuls (. = nul, X = non nul) :\n ", nz);
for (int k = 0; k < 100; k++) {
printf("%c", dsp->data[0x2c56 + k] ? 'X' : '.');
if (k % 50 == 49) printf("\n ");
}
printf("\n");
for (int lig = 0; lig < 10; lig++) {
printf(" +%2d :", lig * 10);
for (int k = lig * 10; k < lig * 10 + 10; k++) printf(" %04x", dsp->data[0x2c56 + k]);
printf("\n");
}
nv++;
} }
printf(" [pic-conc] pic=%u concordance=%d%%\n", dsp->data[0x2f06], best);
printf(" [bits] fn=%u 0x2c72 non-nuls=%d/78 : %04x %04x %04x %04x %04x %04x\n"
" concordance max = %d%% (decalage %d, polarite %d, ordre %s)\n",
g_livre_fn, nznb, dsp->data[0x2c72], dsp->data[0x2c73], dsp->data[0x2c74],
dsp->data[0x2c75], dsp->data[0x2c76], dsp->data[0x2c77],
best, bestd, bestv & 1,
(bestv >> 1) == 1 ? "moities echangees"
: (bestv >> 1) == 2 ? "pairs d'abord"
: (bestv >> 1) == 3 ? "impairs d'abord" : "identite");
nb++;
} }
/* [2026-09-18] The `sb` word returned is IDENTICAL for BSIC 7, 14 and
* 49, while the soft bits at 0x2c72 do follow the payload: the word the
* ARM reads back does NOT come from the decoder. Does the DSP ever write
* the a_sch words of the R page? API at 0x0800, R_PAGE0=0x28 and
* R_PAGE1=0x3C, a_sch at word +15. */
{ static uint16_t vu0[10], vu1[10]; static int arme3, nw;
const uint16_t A0 = 0x800 + 0x28 + 15, A1 = 0x800 + 0x3C + 15;
if (!arme3) {
for (int k = 0; k < 10; k++) { vu0[k] = dsp->data[A0 + k]; vu1[k] = dsp->data[A1 + k]; }
arme3 = 1;
} else if (nw < 12) {
for (int k = 0; k < 5; k++) {
if (dsp->data[A0 + k] != vu0[k]) {
printf(" [a_sch] page0 mot %d : %04x -> %04x ecrit par pc=%04x\n",
k, vu0[k], dsp->data[A0 + k], pc);
vu0[k] = dsp->data[A0 + k]; nw++;
}
if (dsp->data[A1 + k] != vu1[k]) {
printf(" [a_sch] page1 mot %d : %04x -> %04x ecrit par pc=%04x\n",
k, vu1[k], dsp->data[A1 + k], pc);
vu1[k] = dsp->data[A1 + k]; nw++;
}
}
} }
/* [2026-09-18] The magnitudes are present and the argmax is still
* wrong. Next question: WHICH zone does it sweep? Follow the span of the
* address registers during peak selection (0x84c8..0x84ef) and compare it
* with the magnitude zones. */
{ static uint16_t armin[8], armax[8]; static int arme2;
if (pc >= 0x84c8 && pc <= 0x84ef) {
if (!arme2) { for (int k = 0; k < 8; k++) { armin[k] = 0xffff; armax[k] = 0; } arme2 = 1; }
for (int k = 0; k < 8; k++) {
uint16_t v = dsp->ar[k];
if (v < armin[k]) armin[k] = v;
if (v > armax[k]) armax[k] = v;
}
}
{ static int nq;
if (pc == 0x84ef && nq < 5) {
printf(" [balayage] registres d'adresse pendant 0x84c8-0x84ef :");
for (int k = 0; k < 8; k++)
if (armax[k] >= armin[k] && armax[k] > armin[k])
printf(" AR%d=[0x%04x..0x%04x]", k, armin[k], armax[k]);
printf("\n");
arme2 = 0;
printf(" [magn@84ef] plages non nulles entre 0x2b00 et 0x2d00 :\n");
int deb = -1, fin = -1;
for (int a = 0x2b00; a <= 0x2d00; a++) {
int nz = (a <= 0x2cff) && dsp->data[a] != 0;
if (nz && deb < 0) deb = a;
if (nz) fin = a;
if (!nz && deb >= 0) {
/* [2026-09-18] Compare as int16_t, not uint16_t: the
* reported "maxima" (65502, 65104, 65318) were in fact
* -34, -432, -218, so the probe reported the value closest
* to -1 and the rank with it was noise. The maximum in
* absolute value is printed too: if 0x2be4 carries a SIGNED
* correlation, |v| (or v*v) must decide, not v. The two
* ranks side by side say which. */
int n = fin - deb + 1;
int16_t vmax = -32768; int imax = -1;
int amax = -1, iamax = -1;
for (int k = deb; k <= fin; k++) {
int16_t v = (int16_t)dsp->data[k];
int a = v < 0 ? -(int)v : (int)v;
if (v > vmax) { vmax = v; imax = k - deb; }
if (a > amax) { amax = a; iamax = k - deb; }
}
printf(" 0x%04x-0x%04x : %3d mots, max signe=%d au rang %d,"
" max |v|=%d au rang %d\n",
deb, fin, n, vmax, imax, amax, iamax);
deb = -1;
}
}
printf(" argmax DSP 0x2f06=%u\n", dsp->data[0x2f06]);
nq++;
} } }
/* [2026-09-17] Where does the correlator ACTUALLY write? Snapshot
* data RAM on entry to 0x84a1 and list what changed on exit, rather than
* guessing the address of the energy buffer. */
{ static uint16_t *snap; static int armec, ns;
if (pc == 0x84a1 && !armec && ns < 3) {
if (!snap) snap = malloc(0x4000 * sizeof(uint16_t));
memcpy(snap, dsp->data, 0x4000 * sizeof(uint16_t));
armec = 1;
} else if (pc == 0x7e94 && armec) {
int deb = -1, fin = -1, nch = 0;
printf(" [ecrit] plages modifiees par le correlateur SB :\n");
for (int k = 0; k < 0x4000; k++) {
int d = (dsp->data[k] != snap[k]);
if (d && deb < 0) deb = k;
if (d) { fin = k; nch++; }
if (!d && deb >= 0 && k > fin + 8) {
printf(" 0x%04x-0x%04x (%d mots) ex: %04x->%04x\n",
deb, fin, fin - deb + 1, snap[deb], dsp->data[deb]);
deb = -1;
}
}
if (deb >= 0) printf(" 0x%04x-0x%04x\n", deb, fin);
printf(" total %d mots changes\n", nch);
armec = 0; ns++;
} }
/* [2026-09-17] With a REAL SCH burst on the input, the soft bits at
* 0x2a00 come out null. Look at the middle link: the midamble
* correlation energy (0x2be4) and the argmax (0x2f06). */
{ static int nc;
if (pc == 0x84ef && nc < 8) {
/* same type fix as above: int16_t, plus |v| */
int nzc = 0, emax = -1, iemax = -1, samax = -32768, isamax = -1;
for (int k = 0; k < 64; k++) {
int16_t v = (int16_t)dsp->data[0x2be4 + k];
int a = v < 0 ? -(int)v : (int)v;
if (v) nzc++;
if (a > emax) { emax = a; iemax = k; }
if (v > samax) { samax = v; isamax = k; }
}
int nzin = 0; for (int k = 0; k < 380; k++) if (dsp->data[0x0cce + k]) nzin++;
printf(" [corr] entree 0x0cce non-nuls=%d/380 | 0x2be4 non-nuls=%d/64"
" | max |v|=%d au rang %d, max signe=%d au rang %d"
" | argmax 0x2f06=%u | 0x2be4: %04x %04x %04x %04x %04x %04x\n",
nzin, nzc, emax, iemax, samax, isamax, dsp->data[0x2f06],
dsp->data[0x2be4], dsp->data[0x2be5], dsp->data[0x2be6],
dsp->data[0x2be7], dsp->data[0x2be8], dsp->data[0x2be9]);
nc++;
} }
/* SB demod input: the DMA must have dropped 190 complex samples at 0x0cce */
{ static int ne;
if (pc == 0x7c31 && ne < 6) {
int nz = 0; for (int k = 0; k < 380; k++) if (dsp->data[0x0cce + k]) nz++;
int z0 = 0; while (z0 < 380 && !dsp->data[0x0cce + z0]) z0++;
printf(" [in-sb] fn=%u p51=%u DERNIER BURST LIVRE: type=%c fn=%u n=%d\n"
" 0x0cce non-nuls=%d/380 zeros_tete=%d : %04x %04x %04x %04x %04x %04x\n",
fn_cur, fn_cur % 51, g_livre_type ? g_livre_type : '?', g_livre_fn, g_livre_n,
nz, z0, dsp->data[0x0cce], dsp->data[0x0ccf], dsp->data[0x0cd0],
dsp->data[0x0cd1], dsp->data[0x0cd2], dsp->data[0x0cd3]);
ne++;
} }
switch (pc) { /* SB chain (RE 9.4) */
case 0x7c31: hit_7c31++; break; /* SB demodulator */
/* Counters must be fed in BOTH execution paths: one that stays at zero
* under REJEU_PROBE_TOA while the code runs reads as a measurement. */
case 0x7d1c: hit_7d1c++; break; /* rpt #15, the division */
case 0x7d1d: hit_7d1d++; break; /* subc */
case 0x7d1e: hit_7d1e++; break; /* the quotient */
case 0x81e4: hit_81e4++; break; /* the mpy that depends on T */
case 0x8478: hit_8478++; break; /* FIRS site 1 */
case 0x8492: hit_8492++; break; /* rpt of FIRS site 2 */
case 0x8493: hit_8493++; break; /* FIRS site 2 */
case 0x8497: hit_8497++; break; /* sth B -> soft bits */
case 0x9841: hit_9841++; break; /* SCH decoder */
case 0x84a1: hit_84a1++; break; /* midamble correlator */
case 0x770a: hit_770a++; break; /* FB correlator */
case 0xb219: hit_b219++; break; /* SB job (arms the DMA) */
case 0x7a16: hit_7a16++; break; /* fcall into the SB demod */
default: break; }
histo_pc[pc >> 10]++; insn_total++;
{ static uint16_t tprev, tpc, ppc; static int tn;
if (dsp->t != tprev) { tpc = ppc; tprev = dsp->t; }
ppc = pc;
if (pc == 0x7947 && tn < 10 && env_probe_t) {
printf(" [T] au mpya (0x7947) : T=%04x (%u), dernier ecrit par pc=%04x\n",
dsp->t, dsp->t, tpc); tn++; } }
if (!env_probe_t && pc >= 0x7940 && pc <= 0x795c && nlog < 60) {
printf(" [toa] pc=%04x A=%010llx B=%010llx T=%04x 3fb4=%04x AR4=%04x\n",
pc, (unsigned long long)(dsp->a & 0xffffffffffULL),
(unsigned long long)(dsp->b & 0xffffffffffULL),
dsp->t, dsp->data[0x3fb4], dsp->ar[4]);
nlog++;
}
g_op_tous[prog_ovly(dsp, pc)]++;
int ex = c54x_run(dsp, 1);
if (ex <= 0) break;
done += ex;
}
}
}
{ /* [2026-09-18] Raw dump of the program words around the soft-bit writer,
* to read the ADDRESS COMPUTATION of both passes. */
printf(" mots programme 0x8378-0x8396 (l'ecrivain 0x838d qui met 142 zeros) :\n");
for (uint16_t a = 0x8378; a <= 0x8396; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x8378) % 8 == 7) ? "\n" : "");
printf("\n mots programme 0x81c8-0x81e0 (les ecrivains des 142 valeurs) :\n");
for (uint16_t a = 0x81c8; a <= 0x81e0; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x81c8) % 8 == 7) ? "\n" : "");
printf("\n");
printf(" mots programme 0x84a0-0x84d8 (correlateur de midambule) :\n");
for (uint16_t a = 0x84a0; a <= 0x84d8; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x84a0) % 8 == 7) ? "\n" : "");
printf("\n mots programme 0x7cb0-0x7cc0 (site qui remet a zero) :\n");
for (uint16_t a = 0x7cb0; a <= 0x7cc0; a++)
printf(" %04x: %04x%s", a, dsp->prog[a], ((a - 0x7cb0) % 8 == 7) ? "\n" : "");
printf("\n");
}
{ const char *e = calypso_getenv("REJEU_OPCODES_TOUS");
if (e && *e) { FILE *fo = fopen(e, "w");
if (fo) { for (unsigned o = 0; o < 65536; o++) if (g_op_tous[o]) fprintf(fo, "%04x %lu\n", o, g_op_tous[o]);
fclose(fo); printf(" opcodes executes ecrits dans %s\n", e); } } }
printf("\n─── bilan rejeu (deterministe) ───\n");
{
printf(" instructions DSP executees : %lu\n", insn_total);
printf(" histogramme des PC (plages de 1024 mots, non vides) :\n");
for (int b = 0; b < 64; b++)
if (histo_pc[b])
printf(" 0x%04x-0x%04x : %10lu (%4.1f%%)\n",
b << 10, ((b + 1) << 10) - 1, histo_pc[b],
insn_total ? 100.0 * histo_pc[b] / insn_total : 0.0);
}
if (vu_sb && vu_hors) {
int n = 0;
printf(" opcodes executes UNIQUEMENT par le demodulateur SB (suspects d'ISA,\n"
" jamais valides par le chemin FB qui, lui, fonctionne) :\n ");
int fam[256] = {0}, famt[256] = {0};
for (int o = 0; o < 65536; o++) {
if (vu_sb[o]) famt[o >> 8]++;
if (vu_sb[o] && !vu_hors[o]) { fam[o >> 8]++; n++; }
}
printf("\n");
for (int f = 0; f < 256; f++)
if (fam[f]) printf(" famille %02x.. : %3d opcodes exclusifs SB / %3d executes en SB\n",
f, fam[f], famt[f]);
printf(" (%d opcodes distincts exclusifs au demodulateur SB)\n", n);
}
/* [2026-09-19] WHERE DOES 0x01dbf46a COME FROM? The same word is returned by
* the synthetic fixture, by the real capture in replay and by the bridge: three
* inputs with nothing in common. A constant word looks like a CONSTANT, not a
* computation. Sweep data space AND program space for the pattern. */
if (calypso_getenv("REJEU_CHERCHER_MOT")) {
unsigned long v = strtoul(calypso_getenv("REJEU_CHERCHER_MOT"), NULL, 0);
uint16_t lo = (uint16_t)(v & 0xffff), hi = (uint16_t)(v >> 16);
printf(" recherche de 0x%04x%04x (lo=%04x hi=%04x) :\n", hi, lo, lo, hi);
int n = 0;
for (unsigned a = 0; a + 1 < 0x4000; a++) {
if (dsp->data[a] == lo && dsp->data[a+1] == hi && n < 12) {
printf(" data[0x%04x] = %04x %04x (lo puis hi)\n", a, lo, hi); n++; }
if (dsp->data[a] == hi && dsp->data[a+1] == lo && n < 12) {
printf(" data[0x%04x] = %04x %04x (hi puis lo)\n", a, hi, lo); n++; }
}
for (unsigned a = 0; a + 1 < 0x10000; a++) {
if (dsp->prog[a] == lo && dsp->prog[a+1] == hi && n < 24) {
printf(" prog[0x%04x] = %04x %04x\n", a, lo, hi); n++; }
}
int nlo = 0, nhi = 0;
for (unsigned a = 0; a < 0x4000; a++) { if (dsp->data[a]==lo) nlo++; if (dsp->data[a]==hi) nhi++; }
printf(" occurrences isolees en data : lo(%04x) x%d, hi(%04x) x%d\n", lo, nlo, hi, nhi);
if (!n) printf(" motif absent de la memoire : le mot est CALCULE, pas stocke\n");
}
if (calypso_getenv("REJEU_OPCODES")) {
printf(" %lu decodages\n", g_n_dec);
printf(" opcodes de l'EGALISEUR (0x8400-0x84ff), par decodage :\n");
for (int rang = 0; rang < 16; rang++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 65536; i++) if (g_op_eq[i] > bv) { bv = g_op_eq[i]; best = i; }
if (!bv) break;
double q = g_n_dec ? (double)bv / g_n_dec : 0;
printf(" op=%04x %8lu /dec = %8.2f %s\n", best, bv, q,
(g_n_dec && bv % g_n_dec == 0) ? " (entier)" : " <<< NON ENTIER");
g_op_eq[best] = 0;
}
printf("\n");
printf(" opcodes du DECODEUR (0x9800-0x9bff) :\n");
{ unsigned long st_trn = 0, cmps = 0;
for (unsigned i = 0; i < 65536; i++) {
if ((i & 0xFF00) == 0x8D00) st_trn += g_op_dec[i];
if ((i >> 8) == 0x8E || (i >> 8) == 0x8F) cmps += g_op_dec[i];
}
printf(" CMPS (0x8E/0x8F) : %lu ST TRN (0x8D00) : %lu\n", cmps, st_trn); }
for (int rang = 0; rang < 14; rang++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 65536; i++) if (g_op_dec[i] > bv) { bv = g_op_dec[i]; best = i; }
if (!bv) break;
printf(" op=%04x %8lu fois\n", best, bv);
g_op_dec[best] = 0;
}
printf(" opcodes du demod SB, par nombre de passages :\n");
for (int rang = 0; rang < 26; rang++) {
unsigned best = 0; unsigned long bv = 0;
for (unsigned i = 0; i < 65536; i++) if (g_op_n[i] > bv) { bv = g_op_n[i]; best = i; }
if (!bv) break;
printf(" op=%04x %8lu fois vu en pc=%04x\n", best, bv, g_op_pc[best]);
g_op_n[best] = 0;
}
}
printf(" division 16 pas : rpt(7d1c)=%lu subc(7d1d)=%lu quotient(7d1e)=%lu mpy(81e4)=%lu\n",
hit_7d1c, hit_7d1d, hit_7d1e, hit_81e4);
printf(" sites FIRS du SB : 0x8478=%lu 0x8492(rpt)=%lu 0x8493=%lu 0x8497(sth B->softs)=%lu\n",
hit_8478, hit_8492, hit_8493, hit_8497);
printf(" trames jouees : %u\n", fn_cur + 1);
printf(" chaine SB (pas-a-pas) : job b219=%lu fcall 7a16=%lu demod 7c31=%lu corr 84a1=%lu decodeur 9841=%lu | corr FB 770a=%lu\n",
hit_b219, hit_7a16, hit_7c31, hit_84a1, hit_9841, hit_770a);
printf(" FB acceptes (ARM) : %d\n", n_fb_ok);
printf(" SB tentees / CRC KO: %d / %d\n", n_sb_try, n_sb_crcfail);
printf(" CMPS (0x8E/0x8F) : %ld fois dans le demod SB, %ld hors | famille 0xE0-0xE3 en SB : %ld | ST TRN : %ld\n",
n_cmps_sb, n_cmps_hors, n_e0_sb, n_sttrn_sb);
{
printf(" XC (0xFD/0xFF) par region de PC :");
for (int b = 0; b < 64; b++) if (n_xc_reg[b]) printf(" 0x%04x=%ld", b << 10, n_xc_reg[b]);
printf("\n");
printf(" CMPS (0x8E/0x8F) par region de PC :");
for (int b = 0; b < 64; b++)
if (n_cmps_reg[b]) printf(" 0x%04x=%ld", b << 10, n_cmps_reg[b]);
printf("\n");
}
printf(" detail : FIRS(E0)=%ld LMS(E1)=%ld SQDST(E2)=%ld ABDST(E3)=%ld"
" <- inertes si CALYPSO_ISA_E0_FAM=1\n",
n_e0x_sb[0], n_e0x_sb[1], n_e0x_sb[2], n_e0x_sb[3]);
printf(" erreurs DSP signalees: %d, dont erreur 8 (anneau DMA): %d\n", n_err_dsp, n_err8);
printf(" CRC OK: %d, dont VRAIES (BSIC injecte + T3 valide + FN = trame): %d%s\n",
n_crc_ok, n_sb_vraies,
cellule_sch_partout ? " [FN non qualifiable : SCH_PARTOUT actif]" : "");
if (verdict == 1) printf(" VERDICT : SB DECODEE BSIC=%d FN=%u (sb=0x%08x)\n", sb_bsic, sb_fn, sb_word);
else if (verdict == -1) printf(" VERDICT : ABANDON (le firmware a renonce)\n");
else printf(" VERDICT : AUCUNE SB (ni decodee ni abandon) en %ld trames\n", trames);
return verdict == 1 ? 0 : 1;
}9.18 /opt/GSM/c54x_exe/src/rejouer.h
306 octets, 9 lignes → 9 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef REJOUER_H
#define REJOUER_H
#include <stdint.h>
#include "calypso_c54x.h"
extern uint32_t g_c54x_exe_fn;
int rejouer(C54xState *dsp, uint16_t *api_ram, long trames, long insns,
const char *iq_mode, int amp, int bsic, int verbeux);
#endif9.19 /opt/GSM/c54x_exe/src/verbosite.c
5631 octets, 153 lignes → 153 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* verbosite.c - the -v levels of c54x_exe.
*
* The C54x core (qosmo/hw/arm/calypso/l1-dsp/calypso_c54x.c) carries about a
* hundred "[c54x] NAME ..." probes on stderr, some of them unconditional
* (BRANCH-TRACE alone emits 700 lines at boot) [2026-09-16]. They serve QEMU
* as much as this binary, so gating them one by one through environment
* variables would mean touching the shared sources for every new probe.
*
* Instead the core is left alone: stderr is redirected into a pipe and a
* thread re-reads the lines, passing through only those whose level is <= the
* requested one. Classification is by keyword on the probe NAME rather than an
* exhaustive table, so a new probe lands at a sensible level without being
* declared. The summary reports how many lines each level hid, so the caller
* knows what to ask for.
*/
#include <stdio.h>
#include <stdbool.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <pthread.h>
#include "verbosite.h"
static int g_niveau = 0;
static int g_stderr_reel = -1; /* dup(2) of the original */
static int g_tube_lecture = -1;
static pthread_t g_fil;
static bool g_actif = false;
static unsigned long g_masquees[VERBOSITE_MAX + 1];
static pthread_mutex_t g_mu = PTHREAD_MUTEX_INITIALIZER;
static bool contient(const char *l, const char *mot) { return strstr(l, mot) != NULL; }
/* Lowest -v level at which a line is shown. */
static int niveau_ligne(const char *l)
{
/* memory probes whose NAME contains an error keyword: classify first */
if (contient(l, "ERRWATCH"))
return 4;
/* 0: what breaks */
if (contient(l, "FATAL") || contient(l, "ERR") || contient(l, "abort") ||
contient(l, "CORRUPT") || contient(l, "TRAP") || contient(l, "manquante") ||
contient(l, "cannot") || contient(l, "impossible") || contient(l, "a echoue"))
return 0;
/* 1: what is worrying */
if (contient(l, "WARN") || contient(l, "echou") || contient(l, "failed") ||
contient(l, "pas parque") || contient(l, "perdue"))
return 1;
/* 5: single-stepping */
if (contient(l, "TRACE") || contient(l, "LOOP") || contient(l, "CYCLE") ||
contient(l, "HIST") || contient(l, "RING") || contient(l, "-STACK"))
return 5;
/* 4: memory probes */
if (contient(l, "WATCH") || contient(l, "DUMP") || contient(l, "SCAN") ||
contient(l, "PROBE") || contient(l, "MAP") || contient(l, "SP-") ||
contient(l, "FLOW") || contient(l, "HOT-OPS") || contient(l, "FIRST"))
return 4;
/* 3: tasks, API RAM, interrupts, FB/SB paths */
if (contient(l, "TASK") || contient(l, "DISPATCH") || contient(l, "] FB") ||
contient(l, "-FB") || contient(l, "FBDET") || contient(l, "FBWATCH") ||
contient(l, "FBSB") || contient(l, "FBCALL") || contient(l, "FBROUTE") ||
contient(l, "FBENTRY") || contient(l, "FBGATE") || contient(l, "FBMODE") ||
contient(l, "SYNC") || contient(l, "FEED") || contient(l, "VEC") ||
contient(l, "INTM") || contient(l, "IFR") || contient(l, "IMR") ||
contient(l, "PMST") || contient(l, "MMR") || contient(l, "AFC") ||
contient(l, "IRQ") || contient(l, "ACK") || contient(l, "IDLE") ||
contient(l, "DMA") || contient(l, "RIF") || contient(l, "bsp") ||
contient(l, "BSP") || contient(l, "TPU") || contient(l, "API"))
return 3;
/* 2: the rest - gate banners (ACTIF/INACTIVE), CALYPSO_* reads, boot,
* reset, [calypso-debug], and anything not coming from the core */
return 2;
}
static void *fil_filtre(void *arg)
{
(void)arg;
FILE *in = fdopen(g_tube_lecture, "r");
FILE *out = fdopen(g_stderr_reel, "w");
if (!in || !out) {
return NULL;
}
setvbuf(out, NULL, _IOLBF, 0);
char ligne[4096];
while (fgets(ligne, sizeof(ligne), in)) {
int n = niveau_ligne(ligne);
if (n <= g_niveau) {
fputs(ligne, out);
} else {
pthread_mutex_lock(&g_mu);
g_masquees[n]++;
pthread_mutex_unlock(&g_mu);
}
}
fflush(out);
return NULL;
}
void verbosite_installer(int niveau)
{
if (niveau < 0) niveau = 0;
if (niveau > VERBOSITE_MAX) niveau = VERBOSITE_MAX;
g_niveau = niveau;
if (niveau >= VERBOSITE_MAX) {
return; /* raw: nothing to install */
}
int tube[2];
if (pipe(tube) < 0) {
return;
}
fflush(stderr);
g_stderr_reel = dup(STDERR_FILENO);
g_tube_lecture = tube[0];
dup2(tube[1], STDERR_FILENO);
close(tube[1]);
if (pthread_create(&g_fil, NULL, fil_filtre, NULL) != 0) {
dup2(g_stderr_reel, STDERR_FILENO);
return;
}
g_actif = true;
}
void verbosite_retirer(void)
{
if (!g_actif) {
return;
}
fflush(stderr);
/* restore fd 2: the pipe write end closes, the thread sees EOF */
dup2(g_stderr_reel, STDERR_FILENO);
pthread_join(g_fil, NULL);
g_actif = false;
}
void verbosite_bilan(FILE *out)
{
unsigned long total = 0;
for (int i = 0; i <= VERBOSITE_MAX; i++) total += g_masquees[i];
if (!total) {
return;
}
fprintf(out, " traces DSP masquees : %lu (", total);
const char *nom[] = { "erreurs", "-v", "-vv", "-vvv", "-vvvv", "-vvvvv", "brut" };
bool premier = true;
for (int i = 1; i <= 5; i++) {
if (!g_masquees[i]) continue;
fprintf(out, "%s%lu avec %s", premier ? "" : ", ", g_masquees[i], nom[i]);
premier = false;
}
fprintf(out, ")\n");
}9.20 /opt/GSM/c54x_exe/src/verbosite.h
749 octets, 18 lignes → 18 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
#ifndef VERBOSITE_H
#define VERBOSITE_H
#include <stdio.h>
/* Levels: 0 = errors only (default) -v = + warnings
* -vv = + lifecycle (boot, reset, gate banner)
* -vvv = + tasks, API RAM, interrupts
* -vvvv = + memory probes (WATCH, DUMP, SCAN, MAP, SP-*)
* -vvvvv = + per-instruction traces (BRANCH, LOOP, TERM, CYCLE)
* -vvvvvv = everything, raw stderr, unfiltered */
#define VERBOSITE_MAX 6
void verbosite_installer(int niveau); /* call before any DSP call */
void verbosite_retirer(void); /* drain the pipe, restore stderr */
void verbosite_bilan(FILE *out); /* count of suppressed lines, per level */
#endif9.21 /opt/GSM/c54x_exe/tools/analyse_sb.py
1097 octets, 14 lignes → 14 lignes
#!/usr/bin/env python3
# analyse_sb.py - resume des tentatives SB d un rejeu verbeux (c54x_exe --rejouer --verbeux) :
# SCH presents (burst dans la fenetre), taux CRC OK, angle moyen OK/KO, TOA.
# Usage : tools/analyse_sb.py rejeu.log "etiquette"
import re,sys,collections
L=open(sys.argv[1],errors='replace').read().split('\n')
att=[]
for l in L:
m=re.search(r'SBresp att=(\d) fn=(\d+) p51=(\d+) crc=(\w+) a_sch=(\w+) (\w+) (\w+) (\w+) (\w+) toa=(-?\d+) pm=(-?\d+) angle=(-?\d+) snr=(-?\d+) sb_cmd_fn=(\d+)',l)
if m: att.append(dict(att=int(m.group(1)),crc=m.group(4),toa=int(m.group(10)),angle=int(m.group(12)),snr=int(m.group(13))))
pres=[a for a in att if a['snr']>1000] # burst present dans la fenetre
ok=[a for a in pres if a['crc']=='OK']; ko=[a for a in pres if a['crc']!='OK']
ma=lambda g: (sum(a['angle'] for a in g)/len(g)) if g else float('nan')
print(f"{sys.argv[2]:28s} SCH presents={len(pres):3d} OK={len(ok):3d} ({100*len(ok)/max(1,len(pres)):3.0f}%) angle OK={ma(ok):5.0f} KO={ma(ko):5.0f} toa OK={collections.Counter(a['toa'] for a in ok).most_common(2)}")9.22 /opt/GSM/c54x_exe/tools/comparer_parole.py
7942 octets, 200 lignes → 200 lignes
#!/usr/bin/env python3
# comparer_parole.py - la parole et la FACCH descendantes : ROM contre reference.
#
# [2026-09-23] Toutes les trames de parole que la ROM livre dans a_dd portent
# B_BFI, avec 15 a 90 erreurs rapportees par trame ; et au raccroche de 21:29
# elle a rate toutes les FACCH que le pont, lui, decodait. Ce script tranche
# entre « les bursts livres au DSP sont mauvais » et « le DSP decode mal » :
#
# /dev/shm/calypso_tch_dl.bin bursts TCH que le BSP a livres au DSP
# (tick BE32, fn BTS BE32, 148 bits 0/1)
# /dev/shm/calypso_add_dl.bin trames que la ROM a rendues (montant.c,
# noter_dl : parole convertie TI -> FR, FACCH)
#
# Les bursts sont dechiffres avec le Kc de la session (lignes [a5] de dsp.log)
# et le COUNT de leur propre fn, puis decodes par gsm0503_tch_fr_decode, comme
# le fait le pont. Chaque bloc est apparie a la trame que la ROM a livree juste
# apres ; pour la parole on compte les bits faux par classe (Ia 50, Ib 132,
# II 78), pour la FACCH on compare les 23 octets.
#
# Usage : tools/comparer_parole.py [--dsp-log /tmp/c54x-pont/dsp.log] [--kc HEX]
import argparse
import collections
import ctypes
import re
import struct
import sys
sys.path.insert(0, "/opt/GSM/osmo-operator")
from pont import gsm # noqa: E402
FR = gsm.FR_BYTES
MAC = gsm.MACBLOCK_LEN
def lire_bursts(path):
raw = open(path, "rb").read()
out = []
for o in range(0, len(raw) - 155, 156):
tick, fn = struct.unpack(">II", raw[o:o + 8])
out.append((tick, fn, bytes(raw[o + 8:o + 156])))
return out
def lire_rom(path):
raw = open(path, "rb").read()
out = []
for o in range(0, len(raw) - 47, 48):
fn, typ, n, etat, err = struct.unpack_from("<IBBHH", raw, o)
out.append((fn, typ, etat, err, bytes(raw[o + 12:o + 12 + n])))
return out
def lire_kc(dsp_log):
"""(fn, Kc) de chaque nouveau Kc vu par le coprocesseur A5."""
kcs = []
for line in open(dsp_log, errors="replace"):
m = re.search(r"\[a5\] #\d+ A5/\d fn=(\d+) .*Kc=([0-9a-f]{16})", line)
if m:
fn, kc = int(m.group(1)), bytes.fromhex(m.group(2))
if not kcs or kcs[-1][1] != kc:
kcs.append((fn, kc))
return kcs
def kc_pour(kcs, fn):
best = None
for f, kc in kcs:
if f <= fn + 2:
best = kc
return best
def classes_fr():
"""classe (0 Ia, 1 Ib, 2 II) de chaque bit du format FR standard (260 bits
apres l'entete 0xd), d'apres gsm610_bitorder : d[k] = s[bitorder[k]]."""
lib = ctypes.CDLL("libosmocodec.so")
order = (ctypes.c_uint16 * 260).in_dll(lib, "gsm610_bitorder")
cl = [0] * 260
for k in range(260):
cl[order[k]] = 0 if k < 50 else (1 if k < 182 else 2)
return cl
def bits260(fr):
v = int.from_bytes(fr[:FR], "big")
s = bin(v)[2:].zfill(8 * FR)
return s[4:4 + 260]
def main():
ap = argparse.ArgumentParser()
ap.add_argument("--dsp-log", default="/tmp/c54x-pont/dsp.log")
ap.add_argument("--bursts", default="/dev/shm/calypso_tch_dl.bin")
ap.add_argument("--rom", default="/dev/shm/calypso_add_dl.bin")
ap.add_argument("--kc", help="Kc en hexa (sinon lu dans dsp.log)")
ap.add_argument("-v", action="store_true", help="une ligne par trame")
a = ap.parse_args()
bursts = lire_bursts(a.bursts)
rom = lire_rom(a.rom)
if not bursts or not rom:
sys.exit("rien a comparer : %d bursts, %d trames ROM" % (len(bursts), len(rom)))
kcs = [(0, bytes.fromhex(a.kc))] if a.kc else lire_kc(a.dsp_log)
offs = collections.Counter(t - f for t, f, _ in bursts)
off = offs.most_common(1)[0][0]
print("bursts : %d (fn BTS %d..%d, tick - fn = %s)" % (
len(bursts), bursts[0][1], bursts[-1][1], dict(offs.most_common(3))))
print("trames ROM : %d (parole %d, FACCH %d) ; Kc connus : %s" % (
len(rom), sum(1 for r in rom if r[1] == 0), sum(1 for r in rom if r[1] == 1),
[k.hex() for _, k in kcs]))
# Decodage de reference : un bloc se termine sur le 4e burst d'un demi-bloc.
par_fn = {fn: b for _, fn, b in bursts}
blocs = {} # fn de fin -> (rc, donnees, erreurs)
for fn in sorted(par_fn):
if not gsm.is_tch_carrier(fn) or gsm.tch_burst_index(fn) % 4 != 3:
continue
seq, f = [fn], fn
while len(seq) < 8:
f -= 1
while not gsm.is_tch_carrier(f):
f -= 1
seq.append(f)
seq.reverse()
if any(x not in par_fn for x in seq):
continue
kc = kc_pour(kcs, fn)
coded = []
for x in seq:
b = par_fn[x]
if kc:
ks, _ = gsm.a5_keystream(1, kc, x)
b = gsm.a5_xor(b, ks)
coded.append(gsm.coded_from_burst(b))
buf = (gsm.sbit * (8 * 116)).from_buffer_copy(gsm._soft(coded))
out = (ctypes.c_uint8 * FR)()
ne, nb = ctypes.c_int(), ctypes.c_int()
rc = gsm._cod.gsm0503_tch_fr_decode(out, buf, 1, 0, ctypes.byref(ne), ctypes.byref(nb))
blocs[fn] = (rc, bytes(out), ne.value)
n_fr = sum(1 for r in blocs.values() if r[0] == FR)
n_fa = sum(1 for r in blocs.values() if r[0] == MAC)
print("reference : %d blocs, %d parole, %d FACCH, %d en echec" % (
len(blocs), n_fr, n_fa, len(blocs) - n_fr - n_fa))
cl = classes_fr()
fins = sorted(blocs)
stats = collections.defaultdict(list)
facch = collections.Counter()
for fn_rom, typ, etat, err, data in rom:
cible = fn_rom - off
cand = [f for f in fins if cible - 8 <= f <= cible]
if not cand:
stats["sans_reference"].append(0)
continue
f = cand[-1]
rc, ref, ne = blocs[f]
if typ == 0:
if rc != FR:
stats["parole_ref_pas_parole"].append(rc)
continue
b1, b2 = bits260(ref), bits260(data)
diff = [i for i in range(260) if b1[i] != b2[i]]
par = [sum(1 for i in diff if cl[i] == c) for c in range(3)]
stats["parole"].append((len(diff), par, err, ne, etat))
if a.v:
print(" parole fn=%d ref_fin=%d etat=%04x err_rom=%d err_ref=%d faux=%d (Ia %d, Ib %d, II %d)"
% (fn_rom, f, etat, err, ne, len(diff), *par))
else:
fire = bool(etat & 0x0040)
if rc == MAC:
facch["ref FACCH, ROM %s" % ("FIRE KO" if fire else
("identique" if data[:MAC] == ref[:MAC] else "DIFFERENTE"))] += 1
else:
facch["ref pas FACCH (rc=%d), ROM %s" % (rc, "FIRE KO" if fire else "ok")] += 1
if a.v:
print(" facch fn=%d ref_fin=%d etat=%04x rc_ref=%d ROM=%s REF=%s" % (
fn_rom, f, etat, rc, data[:6].hex(" "), ref[:6].hex(" ")))
p = stats["parole"]
if p:
tot = [x[0] for x in p]
print("\nPAROLE : %d trames appariees" % len(p))
print(" identiques aux bits pres : %d" % sum(1 for x in tot if x == 0))
print(" bits faux par trame : moyenne %.1f, max %d (sur 260)" % (sum(tot) / len(tot), max(tot)))
for c, nom in enumerate(("Ia (50)", "Ib (132)", "II (78)")):
v = [x[1][c] for x in p]
print(" classe %-8s : moyenne %.2f, trames touchees %d" % (nom, sum(v) / len(v), sum(1 for x in v if x)))
print(" erreurs canal : ROM (a_dd[2]) moy %.1f | reference (Viterbi) moy %.1f" % (
sum(x[2] for x in p) / len(p), sum(x[3] for x in p) / len(p)))
for k in ("parole_ref_pas_parole", "sans_reference"):
if stats[k]:
print(" %s : %d" % (k, len(stats[k])))
if facch:
print("\nFACCH (trames a_fd vues par la ROM) :")
for k, v in facch.most_common():
print(" %-40s %d" % (k, v))
if __name__ == "__main__":
main()9.23 /opt/GSM/c54x_exe/tools/decoder_add.py
2430 octets, 46 lignes → 46 lignes
#!/usr/bin/env python3
# decoder_add.py - decode avec libgsm les trames FR notees par montant.c et cherche un ton.
#
# /dev/shm/calypso_add_dl.bin parole descendante rendue par la ROM (a_dd), convertie TI -> FR
# /dev/shm/calypso_add_ul.bin parole montante (a_du) : type 1 = brute TI, type 0 = convertie FR
#
# Enregistrements de 48 octets : fn u32, type u8, n u8, etat u16, err u16, [12..12+n] donnees.
# Le descendant a_dd est bit-exact avec ce que la BTS emet (comparer_parole.py) : s'il ne
# porte pas le ton injecte au micro, c'est le montant (ou l'echo) qui l'a perdu.
#
# Usage : tools/decoder_add.py [dl|ul] [--ton 1000] [--out fichier.raw]
import argparse, ctypes, math, struct, sys
import numpy as np
ap = argparse.ArgumentParser()
ap.add_argument("sens", nargs="?", default="dl", choices=["dl", "ul"])
ap.add_argument("--ton", type=float, default=1000.0, help="frequence cherchee (Hz)")
ap.add_argument("--out", help="PCM s16le 8 kHz decode")
a = ap.parse_args()
path = "/dev/shm/calypso_add_%s.bin" % a.sens
raw = open(path, "rb").read()
recs = []
for o in range(0, len(raw) - 47, 48):
fn, typ, n, etat, err = struct.unpack_from("<IBBHH", raw, o)
recs.append((fn, typ, n, etat, err, raw[o + 12:o + 12 + n]))
fr = [r for r in recs if r[1] == 0 and r[2] == 33]
print("%s : %d enregistrements, %d trames FR (fn %d..%d), nibble de tete %s" % (
path, len(recs), len(fr), fr[0][0] if fr else 0, fr[-1][0] if fr else 0,
sorted({hex(x[5][0] >> 4) for x in fr})))
g = ctypes.CDLL("libgsm.so.1"); g.gsm_create.restype = ctypes.c_void_p
g.gsm_decode.argtypes = [ctypes.c_void_p, ctypes.POINTER(ctypes.c_ubyte), ctypes.POINTER(ctypes.c_short)]
h = g.gsm_create()
pcm = []
for _, _, _, _, _, d in fr:
out = (ctypes.c_short * 160)()
g.gsm_decode(h, (ctypes.c_ubyte * 33)(*d), out)
pcm.extend(out)
x = np.array(pcm, dtype=float); sr = 8000
if a.out:
open(a.out, "wb").write(np.array(pcm, dtype="<i2").tobytes())
print(" sec rms raie(Hz) %%dans %.0f+-50 fn" % a.ton)
for s in range(int(len(x) // sr)):
v = x[s * sr:(s + 1) * sr]
rms = math.sqrt(np.mean(v * v)) + 1e-9
f = np.fft.rfftfreq(len(v), 1 / sr); sp = np.abs(np.fft.rfft(v * np.hanning(len(v)))) ** 2
k = int(np.argmax(sp[1:])) + 1; band = (f >= a.ton - 50) & (f <= a.ton + 50)
print("%4d %6.0f %9.0f %12.0f %d" % (s, rms, f[k], 100 * sp[band].sum() / (sp[1:].sum() + 1e-9), fr[min(s * 50, len(fr) - 1)][0]))9.24 /opt/GSM/c54x_exe/tools/isa_examples.py
19204 octets, 448 lignes → 448 lignes
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
"""isa_examples.py - turn the SPRU172C worked examples into ISA test vectors.
WHY. The C54x core (qosmo l1-dsp) has been fixed one instruction at a time,
each time a probe on the ROM's FB/SB path pointed at one. The manual carries
about 240 "Before Instruction / After Instruction" examples, one oracle per
instruction. This script reads them out of hw/arm/calypso/doc/spru172c.md,
assembles each example with the binutils opcode table (the same table the
disassembler uses, so encoding and decoding agree) and writes a flat test file
that tools/isa_test.c replays against the core.
tools/isa_examples.py > tools/isa_tests.txt
make isa_test && ./isa_test tools/isa_tests.txt
Test file format (one record per example):
T <n> <section> | <instruction as printed>
W <word> [<word> [<word>]] assembled instruction
B <REG> <hex> B M <addr> <hex> state before (registers, data memory)
A <REG> <hex> A M <addr> <hex> state after
E
Examples that cannot be assembled (labels, far calls, ports) are written as
S <n> <section> | <instruction> | <reason>
so the count of what is NOT covered stays visible.
"""
import io, os, re, sys
DOC = "/opt/GSM/qosmo-dsp/hw/arm/calypso/doc/spru172c.md"
TABLE = "/opt/GSM/qosmo-dsp/hw/arm/calypso/doc/opcodes/tic54x-opc.c"
# ---------------------------------------------------------------- the table --
ENTREE = re.compile(
r'\{\s*"([^"]+)"\s*,\s*(\d+)\s*,[^,]*,[^,]*,\s*(0x[0-9A-Fa-f]+)\s*,\s*(0x[0-9A-Fa-f]+)\s*,\s*\{([^}]*)\}')
def charger_table(chemin):
src = io.open(chemin, encoding="utf-8", errors="replace").read()
fin = src.find("tic54x_paroptab")
if fin > 0:
src = src[:fin]
tab = []
for m in ENTREE.finditer(src):
nom, mots, op, masque, ops = m.group(1), int(m.group(2)), \
int(m.group(3), 16), int(m.group(4), 16), m.group(5).strip()
if nom == "???":
continue
ops = [o.strip() for o in ops.split(",") if o.strip()]
tab.append((nom, mots, op, masque, ops))
return tab
# ---------------------------------------------------------------- operands ---
MMR = {"IMR": 0, "IFR": 1, "ST0": 6, "ST1": 7, "AL": 8, "AH": 9, "AG": 10, "BL": 11,
"BH": 12, "BG": 13, "T": 14, "TREG": 14, "TRN": 15, "SP": 0x18, "BK": 0x19,
"BRC": 0x1A, "RSA": 0x1B, "REA": 0x1C, "PMST": 0x1D, "XPC": 0x1E}
for _i in range(8):
MMR["AR%d" % _i] = 0x10 + _i
COND = {"UNC": 0x00, "AEQ": 0x45, "ANEQ": 0x44, "ALT": 0x43, "ALEQ": 0x47, "AGT": 0x46,
"AGEQ": 0x42, "BEQ": 0x4D, "BNEQ": 0x4C, "BLT": 0x4B, "BLEQ": 0x4F, "BGT": 0x4E,
"BGEQ": 0x4A, "AOV": 0x70, "ANOV": 0x60, "BOV": 0x78, "BNOV": 0x68,
"TC": 0x30, "NTC": 0x20, "C": 0x0C, "NC": 0x08, "BIO": 0x03, "NBIO": 0x02}
SBITS = {"BRAF": (1, 15), "CPL": (1, 14), "XF": (1, 13), "HM": (1, 12), "INTM": (1, 11),
"OVM": (1, 9), "SXM": (1, 8), "C16": (1, 7), "FRCT": (1, 6), "CMPT": (1, 5),
"TC": (0, 12), "C": (0, 11), "OVA": (0, 10), "OVB": (0, 9)}
# indirect Smem modifiers -> MOD nibble (SPRU172C table 3-?; binutils tic54x-dis.c)
SMOD = {"": 0x0, "-": 0x1, "+": 0x2, "-0B": 0x4, "-0": 0x5, "+0": 0x6, "+0B": 0x7,
"-%": 0x8, "-0%": 0x9, "+%": 0xA, "+0%": 0xB}
XMOD = {"": 0, "-": 1, "+": 2, "+0%": 3}
def norm(t):
return t.replace("–", "-").replace("−", "-").replace("—", "-").strip()
def nombre(t):
"""TI numbers: 0FFFEh, 1234h, 10h, 248, -8, +3, #..., 15-12 (bit expression)."""
t = norm(t).lstrip("#").strip()
if re.fullmatch(r'[+-]?[0-9A-Fa-f]+[hH]', t):
return int(t[:-1], 16)
if re.fullmatch(r'[+-]?\d+', t):
return int(t, 10)
if re.fullmatch(r'0[xX][0-9A-Fa-f]+', t):
return int(t, 16)
m = re.fullmatch(r'(\d+)\s*-\s*(\d+)', t)
if m:
return int(m.group(1)) - int(m.group(2))
raise ValueError("nombre: %r" % t)
class Smem:
"""Parsed single data-memory operand."""
def __init__(self, txt):
t = norm(txt)
self.lk = None
if t.startswith("*"):
m = re.fullmatch(r'\*\(\s*([^)]+)\)', t)
if m: # *(lk) absolute
self.code = 0x80 | (0xF << 3); self.lk = nombre(m.group(1)); return
m = re.fullmatch(r'\*\+AR(\d)\(([^)]+)\)(%?)', t)
if m: # *+ARn(lk) [%]
self.code = 0x80 | ((0xE if m.group(3) else 0xD) << 3) | int(m.group(1))
self.lk = nombre(m.group(2)); return
m = re.fullmatch(r'\*AR(\d)\(([^)]+)\)', t)
if m: # *ARn(lk)
self.code = 0x80 | (0xC << 3) | int(m.group(1)); self.lk = nombre(m.group(2)); return
m = re.fullmatch(r'\*\+AR(\d)', t)
if m:
self.code = 0x80 | (0x3 << 3) | int(m.group(1)); return
m = re.fullmatch(r'\*AR(\d)(.*)', t)
if m and m.group(2) in SMOD:
self.code = 0x80 | (SMOD[m.group(2)] << 3) | int(m.group(1)); return
raise ValueError("Smem: %r" % txt)
if t.startswith("@"):
t = t[1:]
if t.upper() in MMR: # MMR by name = direct address
self.code = MMR[t.upper()]; return
v = nombre(t)
if not 0 <= v <= 0x7F:
raise ValueError("Smem direct hors 0..7F: %r" % txt)
self.code = v
def xmem(txt):
t = norm(txt)
m = re.fullmatch(r'\*AR(\d)(.*)', t)
if not m or m.group(2) not in XMOD:
raise ValueError("Xmem: %r" % txt)
n = int(m.group(1))
if not 2 <= n <= 5:
raise ValueError("Xmem AR%d hors AR2..AR5" % n)
return (XMOD[m.group(2)] << 2) | (n - 2)
def conds(tokens):
v = 0
for c in tokens:
c = norm(c).upper()
if c not in COND:
raise ValueError("cond: %r" % c)
v |= COND[c]
return v
# --------------------------------------------------------------- assembler ---
def split_operands(s):
out, cur, depth = [], "", 0
for ch in s:
if ch == "(":
depth += 1
elif ch == ")":
depth -= 1
if ch == "," and depth == 0:
out.append(cur.strip()); cur = ""
else:
cur += ch
if cur.strip():
out.append(cur.strip())
return out
def est_acc(t):
return norm(t).upper() in ("A", "B")
def assembler(tab, texte):
"""Returns list of words or raises ValueError."""
texte = norm(texte.split(";")[0])
m = re.match(r'([A-Za-z][A-Za-z0-9]*)\s*(.*)$', texte)
if not m:
raise ValueError("syntaxe")
nom, reste = m.group(1).lower(), m.group(2)
ops = split_operands(reste) if reste else []
erreurs = []
for (tnom, mots, opc, masque, types) in tab:
if tnom != nom:
continue
try:
return encoder(tnom, mots, opc, masque, types, list(ops))
except ValueError as e:
erreurs.append("%s%s: %s" % (tnom, types, e))
raise ValueError("; ".join(erreurs) if erreurs else "mnemonique inconnu %s" % nom)
def encoder(nom, mots, opc, masque, types, ops):
word = opc
extra = []
src = dst = None
types = list(types)
# optional operands are flagged OPT| in binutils; strip the flag but remember
optional = [t.startswith("OPT|") for t in types]
types = [t.replace("OPT|", "") for t in types]
# implicit-operand types consume nothing from the text
IMPLICIT = {"OP_None"}
ti = 0
for k, ty in enumerate(types):
if ty in IMPLICIT:
continue
if ti >= len(ops):
if optional[k]:
continue
raise ValueError("operande manquant pour %s" % ty)
o = ops[ti]
if ty in ("OP_Smem", "OP_Sind", "OP_Lmem", "OP_MMR"):
if ty == "OP_MMR" and norm(o).upper() in MMR:
word |= MMR[norm(o).upper()]
else:
sm = Smem(o)
word |= sm.code
if sm.lk is not None:
extra.append(sm.lk & 0xFFFF)
elif ty == "OP_Xmem":
word |= xmem(o) << 4
elif ty == "OP_Ymem":
word |= xmem(o)
elif ty == "OP_SRC":
if not est_acc(o): raise ValueError("src attendu, %r" % o)
src = 1 if norm(o).upper() == "B" else 0
word |= src << 9
elif ty == "OP_SRC1":
if not est_acc(o): raise ValueError("src attendu, %r" % o)
word |= (1 if norm(o).upper() == "B" else 0) << 8
elif ty == "OP_DST":
if not est_acc(o): raise ValueError("dst attendu, %r" % o)
dst = 1 if norm(o).upper() == "B" else 0
word |= dst << 8
elif ty in ("OP_lk", "OP_lku", "OP_pmad", "OP_dmad", "OP_PA"):
extra.append(nombre(o) & 0xFFFF)
elif ty == "OP_xpmad":
v = nombre(o)
word |= (v >> 16) & 0x7F
extra.append(v & 0xFFFF)
elif ty in ("OP_k8u", "OP_k8"):
word |= nombre(o) & 0xFF
elif ty == "OP_k9":
word |= nombre(o) & 0x1FF
elif ty == "OP_k5":
word |= nombre(o) & 0x1F
elif ty == "OP_k3":
word |= nombre(o) & 0x7
elif ty == "OP_SHIFT":
v = nombre(o)
if not -16 <= v <= 15: raise ValueError("SHIFT hors -16..15")
word |= v & 0x1F
elif ty == "OP_SHFT":
v = nombre(o)
if not 0 <= v <= 15: raise ValueError("SHFT hors 0..15")
word |= v & 0xF
elif ty == "OP_031":
v = nombre(o)
if not 0 <= v <= 31: raise ValueError("0..31")
word |= v & 0x1F
elif ty == "OP_16":
if norm(o) != "16": raise ValueError("16 attendu")
elif ty in ("OP_T", "OP_TS", "OP_ASM", "OP_DP", "OP_ARP", "OP_TRN", "OP_A", "OP_B"):
attendu = {"OP_T": "T", "OP_TS": "TS", "OP_ASM": "ASM", "OP_DP": "DP", "OP_ARP": "ARP",
"OP_TRN": "TRN", "OP_A": "A", "OP_B": "B"}[ty]
if norm(o).upper() != attendu: raise ValueError("%s attendu" % attendu)
elif ty == "OP_RND":
raise ValueError("OP_RND non gere")
elif ty in ("OP_CC", "OP_CC3"):
# remaining operands are all conditions
word |= conds(ops[ti:])
ti = len(ops)
continue
elif ty == "OP_CC2":
u = norm(o).upper()
if nom in ("saccd", "srccd", "strcd"): # 4-bit accumulator condition, bits 3-0
if u not in COND or not (COND[u] & 0x40): raise ValueError("cond acc attendue")
word |= COND[u] & 0x0F
else: # CMPR CC, ARx : cc in bits 9-8
v = nombre(o) if not u.isalpha() else {"EQ": 0, "LT": 1, "GT": 2, "NEQ": 3}[u]
word |= (v & 3) << 8
elif ty == "OP_ARX":
m = re.fullmatch(r'AR(\d)', norm(o).upper())
if not m: raise ValueError("ARx attendu")
word |= int(m.group(1)) & 7
elif ty in ("OP_MMRX", "OP_MMRY"): # AR0..AR7 = 0..7, SP = 8 ; X bits 7-4, Y bits 3-0
u = norm(o).upper()
m = re.fullmatch(r'AR(\d)', u)
v = int(m.group(1)) if m else (8 if u == "SP" else None)
if v is None: raise ValueError("ARx/SP attendu")
word |= v << (4 if ty == "OP_MMRX" else 0)
elif ty == "OP_N":
u = norm(o).upper()
if u in SBITS: # RSBX SXM : N and SBIT from the name
n, b = SBITS[u]; word |= (n << 9) | b
ti += 1
if ti < len(ops): raise ValueError("SBIT apres nom")
return [word] + extra
word |= (nombre(o) & 1) << 9
elif ty == "OP_SBIT":
u = norm(o).upper()
word |= (SBITS[u][1] if u in SBITS else nombre(o)) & 0xF
elif ty == "OP_BITC":
word |= nombre(o) & 0xF
elif ty == "OP_123":
word |= ((nombre(o) - 1) & 3) << 8
elif ty == "OP_12":
word |= ((nombre(o) - 1) & 1) << 9
else:
raise ValueError("type %s non gere" % ty)
ti += 1
if ti != len(ops):
raise ValueError("operandes en trop: %r" % ops[ti:])
# optional dst omitted: dst = src
if "OP_DST" in types and dst is None and src is not None:
word |= src << 8
if len(extra) + 1 != mots and not (len(extra) + 1 == mots + 1):
# the table's word count does not include the Smem lk word
raise ValueError("longueur %d != %d" % (len(extra) + 1, mots))
return [word & 0xFFFF] + extra
# -------------------------------------------------------- example parsing ----
REG_OK = {"A", "B", "T", "TRN", "ASM", "C", "TC", "OVA", "OVB", "OVM", "SXM", "FRCT", "C16",
"CMPT", "DP", "SP", "ARP", "BK", "BRC", "RSA", "REA", "PC", "XPC", "PMST", "ST0",
"ST1", "IMR", "IFR", "INTM", "BRAF", "CPL", "XF", "HM", "AR0", "AR1", "AR2", "AR3",
"AR4", "AR5", "AR6", "AR7", "TS"}
HEX = re.compile(r'^[0-9A-Fa-f]+$')
def valeur(tokens):
"""Value from the tokens following a register name. Returns (int, nbits)."""
toks = [norm(t) for t in tokens]
if len(toks) >= 3 and all(HEX.match(t) for t in toks[:3]) and len(toks[0]) == 2 \
and len(toks[1]) == 4 and len(toks[2]) == 4:
return int("".join(toks[:3]), 16), 40
if toks and HEX.match(toks[0]) and len(toks[0]) == 4:
return int(toks[0], 16), 16
if toks and toks[0] in ("0", "1"):
return int(toks[0]), 1
if toks and toks[0].lower() == "x":
return None, 1
if toks and HEX.match(toks[0]) and len(toks[0]) in (1, 2, 3):
return int(toks[0], 16), 16
raise ValueError("valeur: %r" % toks)
def nettoyer_nom(t):
return re.sub(r'[†‡†‡*]+$', '', norm(t)).upper()
def parser(doc):
L = io.open(doc, encoding="utf-8", errors="replace").read().split("\n")
tests, section = [], "?"
i = 0
while i < len(L):
l = L[i]
m = re.match(r'^Syntax\s+(?:\d+:\s*)?(\S.*)$', l)
if m:
section = norm(m.group(1)); i += 1; continue
m = re.match(r'^\s*(?:\d+:\s*)?Syntax\s+(\S.*)$', l)
if m:
section = norm(m.group(1)); i += 1; continue
m = re.match(r'^Example(?:\s+\d+)?\s+([A-Z][A-Za-z0-9]*(?:\s.*)?)$', l)
if not m:
i += 1; continue
instr = m.group(1).strip()
t = {"section": section, "instr": instr, "before": {}, "after": {},
"mem_b": {}, "mem_a": {}, "pmem_b": {}, "pmem_a": {}, "warn": []}
zone = "reg"
j = i + 1
while j < len(L):
lj = L[j]
if re.match(r'^Example', lj) or re.match(r'^\s*(?:\d+:\s*)?Syntax\s', lj) \
or re.match(r'^Syntax', lj) or re.match(r'^[A-Z][a-z]+\s{2,}', lj) and "Instruction" not in lj:
break
if "Data Memory" in lj:
zone = "mem"; j += 1; continue
if "Program Memory" in lj:
zone = "pmem"; j += 1; continue
if "Before Instruction" in lj:
j += 1; continue
toks = lj.split()
if not toks:
j += 1; continue
if zone in ("mem", "pmem"):
mm = re.findall(r'([0-9A-Fa-f]+)h\s+([0-9A-Fa-f]{4})', lj)
if len(mm) >= 1:
tgt_b = t["mem_b"] if zone == "mem" else t["pmem_b"]
tgt_a = t["mem_a"] if zone == "mem" else t["pmem_a"]
tgt_b[int(mm[0][0], 16)] = int(mm[0][1], 16)
if len(mm) >= 2:
tgt_a[int(mm[1][0], 16)] = int(mm[1][1], 16)
j += 1; continue
# a register row can follow memory rows on some pages
name = nettoyer_nom(toks[0])
if name in REG_OK:
# split at the second occurrence of the name
idx = [k for k, tk in enumerate(toks) if nettoyer_nom(tk) == name]
try:
if len(idx) >= 2:
vb, _ = valeur(toks[idx[0] + 1:idx[1]])
va, _ = valeur(toks[idx[1] + 1:])
if vb is not None: t["before"][name] = vb
if va is not None: t["after"][name] = va
else:
t["warn"].append("ligne registre incomplete: %s" % lj.strip())
except ValueError as e:
t["warn"].append(str(e))
j += 1
tests.append(t)
i = j
return tests
def main():
tab = charger_table(TABLE)
tests = parser(DOC)
n_ok = n_skip = 0
for k, t in enumerate(tests):
instr = t["instr"]
if not t["before"] and not t["after"] and not t["mem_a"]:
continue # prose caught by the regex
# symbolic pmad/dmad (COEFFS, DAT127...) : take the first Program Memory address
if t["pmem_b"]:
instr = re.sub(r'\b(COEFFS|DAT\d+)\b', "%04Xh" % min(t["pmem_b"]), instr)
try:
words = assembler(tab, instr)
except ValueError as e:
# dual-operand examples written with AR6/AR7: only AR2..AR5 can be encoded.
# Rename AR6->AR4 and AR7->AR5 in the instruction AND the register rows.
ren = {}
if "AR6" in instr and "AR4" not in instr and "AR4" not in t["before"]: ren["AR6"] = "AR4"
if "AR7" in instr and "AR5" not in instr and "AR5" not in t["before"]: ren["AR7"] = "AR5"
if ren:
instr2 = instr
for a, b in ren.items(): instr2 = instr2.replace(a, b)
try:
words = assembler(tab, instr2)
for a, b in ren.items():
for d in (t["before"], t["after"]):
if a in d: d[b] = d.pop(a)
instr = instr2 + " ;(" + ",".join("%s->%s" % kv for kv in ren.items()) + ")"
e = None
except ValueError as e2:
e = e2
if e is not None:
print("S %d %s | %s | %s" % (k, t["section"], instr, str(e)[:120]))
n_skip += 1
continue
print("T %d %s | %s" % (k, t["section"], instr))
print("W " + " ".join("%04x" % w for w in words))
for r, v in sorted(t["before"].items()):
print("B %s %x" % (r, v))
for a, v in sorted(t["mem_b"].items()):
print("B M %04x %04x" % (a, v))
for a, v in sorted(t["pmem_b"].items()):
print("B P %04x %04x" % (a, v))
for r, v in sorted(t["after"].items()):
print("A %s %x" % (r, v))
for a, v in sorted(t["mem_a"].items()):
print("A M %04x %04x" % (a, v))
for w in t["warn"]:
print("# %s" % w)
print("E")
n_ok += 1
sys.stderr.write("%d exemples assembles, %d non assembles\n" % (n_ok, n_skip))
if __name__ == "__main__":
main()9.25 /opt/GSM/c54x_exe/tools/isa_test.c
10352 octets, 202 lignes → 202 lignes
/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
* isa_test.c - replay the SPRU172C worked examples against the C54x core.
*
* Reads tools/isa_tests.txt (written by tools/isa_examples.py): for every
* example the assembled words, the state before and the state after. Each
* test runs on a fresh C54xState: registers and memory are set, the words are
* placed at PC, ONE c54x_run(s, 1) executes the instruction, and every
* register/memory word the manual lists in "After Instruction" is compared.
*
* make isa_test && ./isa_test tools/isa_tests.txt 2>/dev/null
* ./isa_test tools/isa_tests.txt -v 2>/dev/null # print every test
*
* The verdict is a scorecard per instruction, not a debugging aid: a FAIL
* names the register that differs and both values, then the core's handler is
* read against the manual page. Registers the manual does not list are not
* compared, so a handler that corrupts an unlisted register can still pass.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <stdbool.h>
#include "qemu/thread.h"
#include "calypso_c54x.h"
/* what main.c normally provides */
uint32_t g_c54x_exe_fn;
uint32_t calypso_trx_get_fn(void) { return g_c54x_exe_fn; }
void calypso_inth_arm_ack(void) { }
QemuMutex calypso_pcb_daram_lock;
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{ (void)addr; if (!wr) memset(buf, 0, len); }
extern uint16_t data_read(C54xState *s, uint16_t addr);
extern void data_write(C54xState *s, uint16_t addr, uint16_t val);
#define ST0_TC_B (1u << 12)
#define ST0_C_B (1u << 11)
#define ST0_OVA_B (1u << 10)
#define ST0_OVB_B (1u << 9)
static struct { const char *nom; int reg; uint16_t bit; } BITS[] = {
{ "TC", 0, ST0_TC_B }, { "C", 0, ST0_C_B }, { "OVA", 0, ST0_OVA_B }, { "OVB", 0, ST0_OVB_B },
{ "BRAF", 1, 1u << 15 }, { "CPL", 1, 1u << 14 }, { "XF", 1, 1u << 13 }, { "HM", 1, 1u << 12 },
{ "INTM", 1, 1u << 11 }, { "OVM", 1, 1u << 9 }, { "SXM", 1, 1u << 8 }, { "C16", 1, 1u << 7 },
{ "FRCT", 1, 1u << 6 }, { "CMPT", 1, 1u << 5 },
};
static bool set_reg(C54xState *s, const char *r, uint64_t v)
{
if (!strcmp(r, "A")) { s->a = (int64_t)(v & 0xFFFFFFFFFFULL); if (s->a & 0x8000000000LL) s->a |= ~0xFFFFFFFFFFLL; return true; }
if (!strcmp(r, "B")) { s->b = (int64_t)(v & 0xFFFFFFFFFFULL); if (s->b & 0x8000000000LL) s->b |= ~0xFFFFFFFFFFLL; return true; }
if (!strcmp(r, "T")) { s->t = v; return true; }
if (!strcmp(r, "TS")) { s->t = v; return true; }
if (!strcmp(r, "TRN")) { s->trn = v; return true; }
if (!strcmp(r, "SP")) { s->sp = v; return true; }
if (!strcmp(r, "BK")) { s->bk = v; return true; }
if (!strcmp(r, "BRC")) { s->brc = v; return true; }
if (!strcmp(r, "RSA")) { s->rsa = v; return true; }
if (!strcmp(r, "REA")) { s->rea = v; return true; }
if (!strcmp(r, "PC")) { s->pc = v; return true; }
if (!strcmp(r, "XPC")) { s->xpc = v; return true; }
if (!strcmp(r, "PMST")) { s->pmst = v; return true; }
if (!strcmp(r, "ST0")) { s->st0 = v; return true; }
if (!strcmp(r, "ST1")) { s->st1 = v; return true; }
if (!strcmp(r, "IMR")) { s->imr = v; return true; }
if (!strcmp(r, "IFR")) { s->ifr = v; return true; }
if (!strcmp(r, "ASM")) { s->st1 = (s->st1 & ~0x1F) | (v & 0x1F); return true; }
if (!strcmp(r, "DP")) { s->st0 = (s->st0 & ~0x1FF) | (v & 0x1FF); return true; }
if (!strcmp(r, "ARP")) { s->st0 = (s->st0 & ~0xE000) | ((v & 7) << 13); return true; }
if (r[0] == 'A' && r[1] == 'R' && r[2] >= '0' && r[2] <= '7' && !r[3]) { s->ar[r[2] - '0'] = v; return true; }
for (unsigned i = 0; i < sizeof BITS / sizeof BITS[0]; i++)
if (!strcmp(r, BITS[i].nom)) {
uint16_t *st = BITS[i].reg ? &s->st1 : &s->st0;
if (v) *st |= BITS[i].bit; else *st &= ~BITS[i].bit;
return true;
}
return false;
}
static bool get_reg(C54xState *s, const char *r, uint64_t *v)
{
if (!strcmp(r, "A")) { *v = (uint64_t)s->a & 0xFFFFFFFFFFULL; return true; }
if (!strcmp(r, "B")) { *v = (uint64_t)s->b & 0xFFFFFFFFFFULL; return true; }
if (!strcmp(r, "T") || !strcmp(r, "TS")) { *v = s->t; return true; }
if (!strcmp(r, "TRN")) { *v = s->trn; return true; }
if (!strcmp(r, "SP")) { *v = s->sp; return true; }
if (!strcmp(r, "BK")) { *v = s->bk; return true; }
if (!strcmp(r, "BRC")) { *v = s->brc; return true; }
if (!strcmp(r, "RSA")) { *v = s->rsa; return true; }
if (!strcmp(r, "REA")) { *v = s->rea; return true; }
if (!strcmp(r, "PC")) { *v = s->pc & 0xFFFF; return true; }
if (!strcmp(r, "XPC")) { *v = s->xpc; return true; }
if (!strcmp(r, "PMST")) { *v = s->pmst; return true; }
if (!strcmp(r, "ST0")) { *v = s->st0; return true; }
if (!strcmp(r, "ST1")) { *v = s->st1; return true; }
if (!strcmp(r, "IMR")) { *v = s->imr; return true; }
if (!strcmp(r, "IFR")) { *v = s->ifr; return true; }
if (!strcmp(r, "ASM")) { *v = s->st1 & 0x1F; return true; }
if (!strcmp(r, "DP")) { *v = s->st0 & 0x1FF; return true; }
if (!strcmp(r, "ARP")) { *v = (s->st0 >> 13) & 7; return true; }
if (r[0] == 'A' && r[1] == 'R' && r[2] >= '0' && r[2] <= '7' && !r[3]) { *v = s->ar[r[2] - '0']; return true; }
for (unsigned i = 0; i < sizeof BITS / sizeof BITS[0]; i++)
if (!strcmp(r, BITS[i].nom)) {
uint16_t st = BITS[i].reg ? s->st1 : s->st0;
*v = (st & BITS[i].bit) ? 1 : 0;
return true;
}
return false;
}
typedef struct { char reg[8]; uint64_t val; int mem; uint16_t addr; } Item;
int main(int argc, char **argv)
{
if (argc < 2) { fprintf(stderr, "usage: %s tools/isa_tests.txt [-v] [-k MOT]\n", argv[0]); return 2; }
bool verbeux = false; const char *filtre = NULL;
for (int i = 2; i < argc; i++) {
if (!strcmp(argv[i], "-v")) verbeux = true;
else if (!strcmp(argv[i], "-k") && i + 1 < argc) filtre = argv[++i];
}
FILE *f = fopen(argv[1], "r");
if (!f) { perror(argv[1]); return 2; }
qemu_mutex_init(&calypso_pcb_daram_lock);
char ligne[1024], titre[1024] = "";
uint16_t mots[4]; int nmots = 0;
Item avant[64], apres[64]; int na = 0, np = 0;
int total = 0, ok = 0, ko = 0, ignores = 0;
char bilan_ko[65536] = "";
while (fgets(ligne, sizeof ligne, f)) {
ligne[strcspn(ligne, "\n")] = 0;
if (ligne[0] == 'T') {
snprintf(titre, sizeof titre, "%s", ligne + 2);
nmots = na = np = 0;
} else if (ligne[0] == 'W') {
char *p = ligne + 2; nmots = 0;
while (*p && nmots < 4) { mots[nmots++] = (uint16_t)strtoul(p, &p, 16); while (*p == ' ') p++; }
} else if (ligne[0] == 'B' || ligne[0] == 'A') {
Item *it = ligne[0] == 'B' ? &avant[na] : &apres[np];
int *n = ligne[0] == 'B' ? &na : &np;
if (*n >= 64) continue;
char k[8], r[8]; unsigned long long a, v;
if (sscanf(ligne + 2, "%7s %llx %llx", k, &a, &v) == 3 && (k[0] == 'M' || k[0] == 'P') && !k[1]) {
it->mem = k[0] == 'M' ? 1 : 2; it->addr = (uint16_t)a; it->val = v; it->reg[0] = 0; (*n)++;
} else if (sscanf(ligne + 2, "%7s %llx", r, &v) == 2) {
it->mem = 0; snprintf(it->reg, sizeof it->reg, "%s", r); it->val = v; (*n)++;
}
} else if (ligne[0] == 'E') {
if (filtre && !strstr(titre, filtre)) continue;
total++;
C54xState *s = c54x_init();
s->running = true;
s->pc = 0x9000;
bool prob = false;
for (int i = 0; i < na; i++) {
if (avant[i].mem == 1) { if (avant[i].addr < 0x60) data_write(s, avant[i].addr, (uint16_t)avant[i].val); else s->data[avant[i].addr] = (uint16_t)avant[i].val; }
else if (avant[i].mem == 2) s->prog[avant[i].addr] = (uint16_t)avant[i].val;
else if (!set_reg(s, avant[i].reg, avant[i].val)) prob = true;
}
uint16_t pc0 = (uint16_t)s->pc;
for (int i = 0; i < nmots; i++) s->prog[(uint16_t)(pc0 + i)] = mots[i];
/* the instruction after, so a delayed branch has something to execute */
s->prog[(uint16_t)(pc0 + nmots)] = 0xF495; s->prog[(uint16_t)(pc0 + nmots + 1)] = 0xF495;
c54x_run(s, 1);
/* RPT arms a counter and returns 0 executed words: run the repeated
* instruction as well so the example's "After" is observable. */
if (s->rpt_active) c54x_run(s, 1);
char detail[2048] = ""; int d = 0; bool echec = false;
for (int i = 0; i < np; i++) {
uint64_t got;
if (apres[i].mem == 1) got = apres[i].addr < 0x60 ? data_read(s, apres[i].addr) : s->data[apres[i].addr];
else if (apres[i].mem == 2) got = s->prog[apres[i].addr];
else if (!get_reg(s, apres[i].reg, &got)) { prob = true; continue; }
if (got != apres[i].val) {
echec = true;
if (apres[i].mem) d += snprintf(detail + d, sizeof detail - d, " %s[%04x]: attendu %04llx, obtenu %04llx",
apres[i].mem == 1 ? "data" : "prog", apres[i].addr,
(unsigned long long)apres[i].val, (unsigned long long)got);
else d += snprintf(detail + d, sizeof detail - d, " %s: attendu %llx, obtenu %llx",
apres[i].reg, (unsigned long long)apres[i].val, (unsigned long long)got);
}
}
if (echec) {
ko++;
printf("FAIL %-60.60s [%04x%s%04x%s]%s\n", titre, mots[0], nmots > 1 ? " " : "", nmots > 1 ? mots[1] : 0, prob ? " ?" : "", detail);
size_t l = strlen(bilan_ko);
snprintf(bilan_ko + l, sizeof bilan_ko - l, " %s\n", titre);
} else {
ok++;
if (verbeux) printf("ok %-60.60s [%04x]\n", titre, mots[0]);
}
free(s);
} else if (ligne[0] == 'S') {
ignores++;
}
}
printf("\n%d exemples : %d ok, %d FAIL, %d non assembles (S)\n", total, ok, ko, ignores);
return ko ? 1 : 0;
}9.26 /opt/GSM/c54x_exe/tools/rejeu_banc.c
21051 octets, 418 lignes → 418 lignes
/* rejeu_banc.c - rejoue hors banc un TCH enregistre par c54x_exe.
*
* Entree : /dev/shm/calypso_rejeu_tch.bin (calypso_bsp.c + pont.c,
* CALYPSO_REJEU_ENREG). Enregistrements :
* 'S' tick, API RAM complete 'D' tick, registres, memoire de donnees
* 'T' tick, drapeaux, budget 'A' tick, fenetre, n x (mot, valeur)
* 'B' tick, tn, fn, one_shot, nwin, n, I/Q
* On boote le DSP comme tools/tch_rejeu, on pose l'etat 'S'/'D', puis chaque
* tick dans l'ordre de pont.c : ecritures ARM d'avant le TICK, interruption
* trame, phase A jusqu'a l'IDLE (TCH), ecritures ARM d'entre A et GO,
* livraisons d'I/Q, reste du budget, pompe DMA. On imprime chaque resultat
* SACCH (a_cd) et FACCH (a_fd).
*
* Si le rejeu reproduit le Fire KO du banc, on peut iterer ici sans relancer
* le banc ; REJEU_SANS_D=1 garde l'etat du boot local au lieu de 'D'.
*
* ./rejeu_banc [fichier] [ticks max]
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <stdbool.h>
#include "qemu/thread.h"
#include "calypso_c54x.h"
#include "calypso_dma.h"
#include "calypso_bsp.h"
#include "calypso_rhea_dma.h"
#include "hw/arm/calypso/calypso_api.h"
#include <math.h>
#include <osmocom/core/bits.h>
#include <osmocom/gsm/a5.h>
uint32_t g_c54x_exe_fn;
uint32_t calypso_trx_get_fn(void) { return g_c54x_exe_fn; }
void calypso_inth_arm_ack(void) { }
QemuMutex calypso_pcb_daram_lock;
void cpu_physical_memory_rw(uint64_t addr, void *buf, uint64_t len, bool wr)
{ (void)addr; if (!wr) memset(buf, 0, len); }
#define API_WORDS 0x2000u /* fenetre API vue du DSP : data 0x0800..0x27ff */
#define ENREG_API_WORDS CALYPSO_API_WORDS /* taille de l'API RAM enregistree par pont.c */
#define NDB 0xD4u
#define PARAM 0x431u
#define BL_ADDR_HI_W 0x7FCu
#define BL_SIZE_W 0x7FDu
#define BL_ADDR_LO_W 0x7FEu
#define BL_STATUS_W 0x7FFu
typedef struct {
int64_t a, b; uint16_t ar[8], t, trn, sp, bk, brc, rsa, rea, st0, st1, pmst, imr, ifr, xpc;
uint32_t pc; uint8_t idle, running;
} EnregRegs;
static C54xState *dsp;
static uint16_t *api;
static uint8_t *fichier;
static size_t taille;
static uint32_t be32(const uint8_t *p) { return (uint32_t)p[0] << 24 | p[1] << 16 | p[2] << 8 | p[3]; }
static uint16_t be16(const uint8_t *p) { return (uint16_t)(p[0] << 8 | p[1]); }
static long pump(long max, int stop_idle)
{
long b = 0;
while (b < max && dsp->running) {
int ex = c54x_run(dsp, 256); if (ex <= 0) break; b += ex;
if (stop_idle && dsp->idle) break;
}
return b;
}
static void reveil(void)
{
if (dsp->idle && calypso_rhea_dma_irq_level() && (dsp->imr & (1u << 14)) && !(dsp->ifr & (1u << 14)))
c54x_interrupt_ex(dsp, 30, 14);
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
}
static void boot(void)
{
memset(api, 0, API_WORDS * 2);
long b = 0;
while (api[BL_STATUS_W] != 1 && b < 8000000) { int ex = c54x_run(dsp, 256); if (ex <= 0) break; b += ex; }
api[BL_ADDR_HI_W] = 0; api[BL_ADDR_LO_W] = 0x7000; api[BL_SIZE_W] = 0; api[BL_STATUS_W] = 2;
b = pump(4000000, 1);
printf("boot local : %ld insn, idle=%d\n", b, dsp->idle);
}
/* SONDE (REJEU_SONDE=1) : ou la ROM range-t-elle les bursts SACCH ?
* Pour chaque burst du canal (slot 0 livre par le BSP), on retrouve les bits
* par demodulation GMSK differentielle (polarite calee sur la TSC7), on les
* dechiffre (Kc et d_a5mode pris dans l'API RAM), puis au tick ou a_cd change
* on cherche dans la memoire du DSP ou sont les 116 bits de chacun des quatre
* bursts du bloc (bits souples : signe negatif ou positif = 1). */
static const uint8_t TSC7[26] = {1,1,1,0,1,1,1,1,0,0,0,1,0,0,1,0,1,1,1,0,1,1,1,1,0,0};
static struct { uint32_t fn; uint8_t b[148]; } memo[4096];
static int nmemo;
static void memo_burst(uint32_t fn, const int16_t *iq, int n, int marge)
{
if (n / 2 < marge + 148) return;
uint8_t d[148], b[2][148];
for (int k = 0; k < 148; k++) {
int i0 = 2 * (marge + k), i1 = i0 - 2;
double ph1 = atan2(iq[i0 + 1], iq[i0]);
double ph0 = k ? atan2(iq[i1 + 1], iq[i1]) : 0;
double dp = ph1 - ph0;
while (dp > M_PI) dp -= 2 * M_PI;
while (dp < -M_PI) dp += 2 * M_PI;
d[k] = dp > 0;
}
int best = -1, bs = -1;
for (int pol = 0; pol < 2; pol++) {
uint8_t prev = 0;
for (int k = 0; k < 148; k++) { uint8_t dd = d[k] ^ pol; b[pol][k] = dd ^ prev; prev = b[pol][k]; }
int sc = 0; for (int k = 0; k < 26; k++) sc += b[pol][61 + k] == TSC7[k];
if (sc > bs) { bs = sc; best = pol; }
}
int slot = nmemo % 4096; nmemo++;
memo[slot].fn = fn; memcpy(memo[slot].b, b[best], 148);
static int nlog; if (nlog++ < 3) printf(" [sonde] burst fn=%u : TSC %d/26 (differentielle, pol=%d)\n", fn, bs, best);
}
static const uint8_t *memo_trouver(uint32_t fn)
{
/* Bits exacts de la sonde du BSP (calypso_sacch_tf.bin), s'il y en a. */
static uint8_t (*vrai)[156]; static int nvrai = -1;
if (nvrai < 0) {
nvrai = 0;
const char *nom = getenv("REJEU_BITS");
FILE *f = nom ? fopen(nom, "rb") : NULL;
if (f) { vrai = malloc(4096 * 156); while (nvrai < 4096 && fread(vrai[nvrai], 1, 156, f) == 156) nvrai++; fclose(f); }
if (nom) printf(" [sonde] %d bursts exacts lus dans %s\n", nvrai, nom);
}
for (int i = 0; i < nvrai; i++) if (be32(vrai[i] + 4) == fn) return vrai[i] + 8;
if (getenv("REJEU_BITS")) return NULL;
for (int i = 0; i < 4096 && i < nmemo; i++) if (memo[i].fn == fn) return memo[i].b;
return NULL;
}
static void sonde_bloc(uint32_t fn_dernier)
{
uint8_t kc[8]; uint16_t *akc = &api[NDB + 0x2CE / 2]; int algo = api[NDB + 0x1CE / 2];
for (int i = 0; i < 4; i++) { kc[7 - 2 * i] = akc[i] & 0xff; kc[6 - 2 * i] = akc[i] >> 8; }
for (int k = 0; k < 4; k++) {
uint32_t fn = fn_dernier - 26 * (3 - k);
const uint8_t *b0 = memo_trouver(fn);
if (!b0) { printf(" burst %d fn=%u : non enregistre\n", k, fn); continue; }
uint8_t b[148]; memcpy(b, b0, 148);
if (algo) { ubit_t dl[114], ul[114]; osmo_a5(algo, kc, fn, dl, ul);
for (int j = 0; j < 57; j++) { b[3 + j] ^= dl[j]; b[88 + j] ^= dl[57 + j]; } }
uint8_t t[116]; memcpy(t, b + 3, 58); memcpy(t + 58, b + 87, 58);
int best[2] = {0, 0}; unsigned ad[2] = {0, 0};
for (unsigned a = 0x60; a + 116 < C54X_DATA_SIZE; a++) {
int m0 = 0, m1 = 0;
for (int i = 0; i < 116; i++) { int16_t v = (int16_t)dsp->data[a + i];
if (v != 0) { if ((v < 0) == (t[i] != 0)) m0++; if ((v > 0) == (t[i] != 0)) m1++; } }
if (m0 > best[0]) { best[0] = m0; ad[0] = a; }
if (m1 > best[1]) { best[1] = m1; ad[1] = a; }
}
/* aussi en 57+57 sans les bits de vol (e[] seuls) */
uint8_t e[114]; memcpy(e, b + 3, 57); memcpy(e + 57, b + 88, 57);
int be = 0; unsigned ae = 0;
for (unsigned a = 0x60; a + 114 < C54X_DATA_SIZE; a++) {
int m = 0; for (int i = 0; i < 114; i++) { int16_t v = (int16_t)dsp->data[a + i]; if (v != 0 && (v < 0) == (e[i] != 0)) m++; }
if (m > be) { be = m; ae = a; }
}
printf(" burst %d fn=%u (fn%%104=%u) : 116b neg %d@%04x pos %d@%04x | 114b neg %d@%04x\n",
k, fn, fn % 104, best[0], ad[0], best[1], ad[1], be, ae);
}
}
/* REJEU_TRACE=1 : pas a pas, anneau des dernieres instructions, arret des que
* SP sort de la pile ou que PC tombe en DARAM basse (< 0x0800, hors OVLY). */
uint16_t prog_fetch(C54xState *s, uint16_t pc);
#define ANNEAU 4096
static struct { uint16_t pc, op, op2, sp, st0, st1, ar[8]; uint32_t tick; int64_t a, b; } anneau[ANNEAU];
static unsigned apos;
static int trace_on = -1, plante;
static long courir(long n)
{
if (trace_on < 0) trace_on = getenv("REJEU_TRACE") != NULL;
if (!trace_on) return c54x_run(dsp, (int)n);
long k = 0;
for (; k < n && dsp->running && !dsp->idle && !plante; k++) {
unsigned i = apos++ & (ANNEAU - 1);
uint16_t pc = dsp->pc & 0xffff;
anneau[i].pc = pc; anneau[i].op = prog_fetch(dsp, pc); anneau[i].op2 = prog_fetch(dsp, pc + 1);
anneau[i].sp = dsp->sp; anneau[i].st0 = dsp->st0; anneau[i].st1 = dsp->st1; anneau[i].tick = g_c54x_exe_fn;
memcpy(anneau[i].ar, dsp->ar, sizeof dsp->ar); anneau[i].a = dsp->a; anneau[i].b = dsp->b;
static int wa = -2; static uint16_t wv;
if (wa == -2) { const char *e = getenv("REJEU_STOP_W"); wa = e ? (int)strtoul(e, NULL, 16) : -1; }
if (wa >= 0) wv = dsp->data[wa];
c54x_run(dsp, 1);
uint16_t npc = dsp->pc & 0xffff;
if (wa >= 0 && dsp->data[wa] != wv) {
printf("ECRITURE data[%04x] %04x -> %04x par pc=%04x tick=%u : AR0=%04x AR2=%04x AR3=%04x AR4=%04x BK=%04x "
"[4bcc]=%04x d_task_md(W0/W1)=%04x/%04x d_task_d=%04x/%04x\n",
wa, wv, dsp->data[wa], pc, g_c54x_exe_fn, dsp->ar[0], dsp->ar[2], dsp->ar[3], dsp->ar[4], dsp->bk,
dsp->data[0x4bcc], api[4], api[0x14 + 4], api[0], api[0x14]);
if (getenv("REJEU_ANNEAU_W")) {
int m = atoi(getenv("REJEU_ANNEAU_W"));
for (int j = m; j > 0; j--) {
unsigned q = (apos - j) & (ANNEAU - 1);
printf(" %4d pc=%04x op=%04x %04x ar0=%04x ar2=%04x ar3=%04x ar4=%04x ar5=%04x sp=%04x\n", -j, anneau[q].pc,
anneau[q].op, anneau[q].op2, anneau[q].ar[0], anneau[q].ar[2], anneau[q].ar[3], anneau[q].ar[4], anneau[q].ar[5], anneau[q].sp);
}
exit(4);
}
static int nw; if (++nw >= 6) exit(4);
}
if (dsp->sp < 0x5900 || dsp->sp > 0x5c00 || (getenv("REJEU_STOP_PC") && npc == (uint16_t)strtoul(getenv("REJEU_STOP_PC"), NULL, 16)) || (getenv("REJEU_STOP_DEBUG") && dsp->data[0x08dc] != 0x0074 && g_c54x_exe_fn > 6200)) {
plante = 1;
printf("PLANTAGE tick=%u pc=%04x sp=%04x xpc=%d\n", g_c54x_exe_fn, npc, dsp->sp, dsp->xpc);
int m = getenv("REJEU_ANNEAU") ? atoi(getenv("REJEU_ANNEAU")) : 120;
for (int j = m; j > 0; j--) {
unsigned q = (apos - j) & (ANNEAU - 1);
printf(" %4d t=%u pc=%04x op=%04x %04x sp=%04x st0=%04x st1=%04x ar=%04x %04x %04x %04x %04x %04x %04x %04x a=%010llx b=%010llx\n",
-j, anneau[q].tick, anneau[q].pc, anneau[q].op, anneau[q].op2, anneau[q].sp, anneau[q].st0, anneau[q].st1,
anneau[q].ar[0], anneau[q].ar[1], anneau[q].ar[2], anneau[q].ar[3], anneau[q].ar[4], anneau[q].ar[5],
anneau[q].ar[6], anneau[q].ar[7], (unsigned long long)(anneau[q].a & 0xFFFFFFFFFFULL),
(unsigned long long)(anneau[q].b & 0xFFFFFFFFFFULL));
}
exit(3);
}
}
return k;
}
/* Un tick = les enregistrements entre deux 'T'. */
typedef struct { size_t debut, fin; uint32_t tick; uint8_t drap; long budget; } Tick;
int main(int argc, char **argv)
{
const char *nom = argc > 1 ? argv[1] : "/dev/shm/calypso_rejeu_tch.bin";
long max_ticks = argc > 2 ? atol(argv[2]) : 100000;
FILE *f = fopen(nom, "rb");
if (!f) { perror(nom); return 1; }
fseek(f, 0, SEEK_END); taille = (size_t)ftell(f); fseek(f, 0, SEEK_SET);
fichier = malloc(taille);
if (fread(fichier, 1, taille, f) != taille) { printf("lecture courte\n"); return 1; }
fclose(f);
setenv("CALYPSO_BSP_PORT", "16703", 1);
setenv("CALYPSO_BSP_BIND_ADDR", "127.0.0.1", 1);
setenv("CALYPSO_BSP_HORLOGE", "0", 1);
setenv("CALYPSO_C54X_IRQ_LEVEL", "1", 0);
setenv("CALYPSO_BSP_STREAM", "1", 0);
setenv("CALYPSO_RHEA_DMA_XFER", "1", 0);
setenv("CALYPSO_REJEU_ENREG", "0", 1);
qemu_mutex_init(&calypso_pcb_daram_lock);
dsp = c54x_init();
api = &dsp->data[0x800];
c54x_set_api_ram(dsp, api);
static const struct { const char *s; uint32_t a; bool p; } R[] = {
{ "PROM0", 0x07000, true }, { "PROM1", 0x18000, true }, { "PROM2", 0x28000, true },
{ "PROM3", 0x38000, true }, { "DROM", 0x09000, false }, { "PDROM", 0x0E000, false }, { "PDROM", 0x0E000, true } };
for (unsigned i = 0; i < 7; i++) {
char c[256]; snprintf(c, sizeof c, "/opt/GSM/calypso_dsp.%s.bin", R[i].s);
if (c54x_load_section(dsp, c, R[i].a, R[i].p) < 0) { printf("ROM %s\n", c); return 1; }
}
c54x_load_registers(dsp, "/opt/GSM/calypso_dsp.Registers.bin");
c54x_reset(dsp);
calypso_dma_init();
calypso_bsp_init(dsp);
boot();
/* Premiere passe : l'etat de depart et le decoupage en ticks. */
static Tick ticks[40000]; int nt = 0;
size_t p = 0;
while (p < taille) {
uint8_t k = fichier[p];
size_t l;
switch (k) {
case 'S': l = 5 + (size_t)ENREG_API_WORDS * 2; break;
case 'D': l = 5 + sizeof(EnregRegs) + C54X_DATA_SIZE * 2; break;
case 'T': l = 10; break;
case 'A': l = 8 + 4 * (size_t)be16(fichier + p + 6); break;
case 'B': l = 15 + 2 * (size_t)be16(fichier + p + 13); break;
default: printf("enregistrement inconnu 0x%02x a %zu\n", k, p); goto fini;
}
if (p + l > taille) break;
if (k == 'S') {
memcpy(api, fichier + p + 5, API_WORDS * 2);
printf("etat 'S' pose (tick %u)\n", be32(fichier + p + 1));
} else if (k == 'D' && !getenv("REJEU_SANS_D")) {
EnregRegs r; memcpy(&r, fichier + p + 5, sizeof r);
uint16_t sauve_api[API_WORDS]; memcpy(sauve_api, api, sizeof sauve_api);
memcpy(dsp->data, fichier + p + 5 + sizeof r, C54X_DATA_SIZE * 2);
memcpy(api, sauve_api, sizeof sauve_api); /* 'S' fait foi pour l'API RAM */
dsp->a = r.a; dsp->b = r.b; memcpy(dsp->ar, r.ar, sizeof r.ar); dsp->t = r.t; dsp->trn = r.trn;
dsp->sp = r.sp; dsp->bk = r.bk; dsp->brc = r.brc; dsp->rsa = r.rsa; dsp->rea = r.rea;
dsp->st0 = r.st0; dsp->st1 = r.st1; dsp->pmst = r.pmst; dsp->imr = r.imr; dsp->ifr = r.ifr;
dsp->xpc = r.xpc; dsp->pc = r.pc; dsp->idle = r.idle; dsp->running = r.running;
printf("etat 'D' pose : pc=%04x sp=%04x idle=%d imr=%04x\n", r.pc & 0xffff, r.sp, r.idle, r.imr);
{ /* REJEU_POKE=adr=val[,adr=val...] : corriger l'etat de depart */
const char *e = getenv("REJEU_POKE");
while (e && *e) {
unsigned a, v; if (sscanf(e, "%x=%x", &a, &v) != 2) break;
printf("poke data[%04x] = %04x (etait %04x)\n", a, v, dsp->data[a & 0xffff]);
dsp->data[a & 0xffff] = (uint16_t)v;
e = strchr(e, ','); if (e) e++;
}
}
} else if (k == 'T') {
if (nt > 0) ticks[nt - 1].fin = p;
if (nt < 40000) {
ticks[nt].debut = p; ticks[nt].tick = be32(fichier + p + 1);
ticks[nt].drap = fichier[p + 5]; ticks[nt].budget = (long)be32(fichier + p + 6);
nt++;
}
}
p += l;
}
fini:
if (nt > 0) ticks[nt - 1].fin = p;
printf("%d ticks enregistres (%u..%u)\n", nt, nt ? ticks[0].tick : 0, nt ? ticks[nt - 1].tick : 0);
uint16_t prec_cd = 0xffff, prec_fd = 0xffff;
int sacch_ok = 0, sacch_ko = 0;
uint16_t prec_dd = 0; unsigned long parole_n = 0, parole_bfi = 0, parole_err = 0;
for (int it = 0; it < nt && it < max_ticks; it++) {
Tick *t = &ticks[it];
g_c54x_exe_fn = t->tick;
long budget = t->budget;
uint32_t dernier_livre = 0xffffffffu;
/* ecritures ARM, fenetre 0 */
for (size_t q = t->debut; q < t->fin;) {
uint8_t k = fichier[q];
size_t l = k == 'T' ? 10 : k == 'A' ? 8 + 4 * (size_t)be16(fichier + q + 6)
: k == 'B' ? 15 + 2 * (size_t)be16(fichier + q + 13) : 0;
if (!l) break;
if (k == 'A' && fichier[q + 5] == 0)
for (unsigned i = 0, n = be16(fichier + q + 6); i < n; i++) {
unsigned a = be16(fichier + q + 8 + 4 * i);
if (a < API_WORDS) api[a] = be16(fichier + q + 10 + 4 * i);
}
q += l;
}
/* phase A : comme jouer_trame(phase 1) */
calypso_dma_tick(dsp);
reveil();
if ((dsp->imr & (1u << C54X_IT_TPU_FRAME_BIT)) && (t->drap & 1))
c54x_interrupt_ex(dsp, C54X_IT_TPU_FRAME_VEC, C54X_IT_TPU_FRAME_BIT);
long fait = 0;
if (!dsp->idle) fait = courir(budget / 8);
while (!dsp->idle && fait < budget / 2) fait += courir(256);
/* ecritures ARM, fenetre 1, puis livraisons I/Q dans l'ordre */
for (size_t q = t->debut; q < t->fin;) {
uint8_t k = fichier[q];
size_t l = k == 'T' ? 10 : k == 'A' ? 8 + 4 * (size_t)be16(fichier + q + 6)
: k == 'B' ? 15 + 2 * (size_t)be16(fichier + q + 13) : 0;
if (!l) break;
if (k == 'A' && fichier[q + 5] == 1)
for (unsigned i = 0, n = be16(fichier + q + 6); i < n; i++) {
unsigned a = be16(fichier + q + 8 + 4 * i);
if (a < API_WORDS) api[a] = be16(fichier + q + 10 + 4 * i);
}
if (k == 'B') {
int n = be16(fichier + q + 13);
static int16_t iq[1024];
memcpy(iq, fichier + q + 15, 2 * (size_t)(n > 1024 ? 1024 : n));
calypso_bsp_rx_burst(fichier[q + 5], be32(fichier + q + 6), iq, n);
if (fichier[q + 5] == 0) dernier_livre = be32(fichier + q + 6);
if (fichier[q + 5] == 0 && getenv("REJEU_SONDE")) {
int nwin = be16(fichier + q + 11) / 2, marge = nwin >= 190 ? 21 : nwin >= 150 ? 3 : 0;
memo_burst(be32(fichier + q + 6), iq, n, marge);
}
}
q += l;
}
/* phase B : reste du budget, puis la pompe DMA de pont.c */
reveil();
if (!dsp->idle && budget - fait > 0) courir(budget - fait);
for (int k = 0; k < 40 && dsp->running; k++) {
if (!calypso_rhea_dma_pump(dsp)) break;
if (dsp->idle && (dsp->ifr & dsp->imr) && !(dsp->st1 & 0x800)) dsp->idle = false;
if (!dsp->idle) courir(budget / 4);
}
uint16_t *cd = &api[NDB + 0x1FC / 2], *fd = &api[NDB + 0x21A / 2];
uint16_t *dd = &api[NDB + 0x238 / 2]; /* a_dd_0 : parole descendante */
{ static int dit;
if (!dsp->idle && dit < 5) { dit++; printf("tick=%u : DSP PAS A L'IDLE en fin de tick, pc=%04x sp=%04x\n", t->tick, dsp->pc & 0xffff, dsp->sp); } }
{ /* REJEU_DUMP=t1-t2,dossier : memoire de donnees du DSP en fin de tick */
const char *e = getenv("REJEU_DUMP");
unsigned t1, t2; char dos[512];
if (e && sscanf(e, "%u-%u,%511s", &t1, &t2, dos) == 3 && t->tick >= t1 && t->tick <= t2) {
char nm[600]; snprintf(nm, sizeof nm, "%s/mem_%u.bin", dos, t->tick);
FILE *fm = fopen(nm, "wb"); if (fm) { fwrite(dsp->data, 2, C54X_DATA_SIZE, fm); fclose(fm); }
}
}
if (getenv("REJEU_SONDE") && dernier_livre != 0xffffffffu && dernier_livre % 104 == 12) {
printf("tick=%u fn=%u (4e burst SACCH TS2) : a_cd0=%04x %s err=%u\n", t->tick, dernier_livre, cd[0],
(cd[0] & 0x8000) ? ((cd[0] & 0x40) ? "FIRE KO" : "ok") : "pas de BLUD", cd[2]);
sonde_bloc(dernier_livre);
}
if (cd[0] != prec_cd && (cd[0] & 0x8000)) {
bool ko = cd[0] & (1u << 6);
ko ? sacch_ko++ : sacch_ok++;
printf("tick=%u SACCH a_cd0=%04x %s err=%u L2=%02x %02x %02x %02x\n", t->tick, cd[0],
ko ? "FIRE KO" : "ok", cd[2], cd[3] & 0xff, cd[3] >> 8, cd[4] & 0xff, cd[4] >> 8);
}
if (fd[0] != prec_fd && (fd[0] & 0x8000))
printf("tick=%u FACCH a_fd0=%04x %s L2=%02x %02x %02x\n", t->tick, fd[0],
(fd[0] & (1u << 6)) ? "FIRE KO" : "ok", fd[3] & 0xff, fd[3] >> 8, fd[4] & 0xff);
/* [2026-09-30] a_dd_0 : B_BLUD (bit 15), B_BFI (bit 2), mot 2 = erreurs
* rapportees par la ROM. Une ligne par trame de parole (REJEU_PAROLE=1)
* et un bilan ; sert a etudier le B_BFI hors banc. */
if (dd[0] != prec_dd && (dd[0] & 0x8000)) {
parole_n++; if (dd[0] & 0x4) parole_bfi++; parole_err += dd[2];
if (getenv("REJEU_PAROLE"))
printf("tick=%u PAROLE a_dd0=%04x BFI=%d err=%u\n", t->tick, dd[0], (dd[0] & 0x4) ? 1 : 0, dd[2]);
}
prec_cd = cd[0]; prec_fd = fd[0]; prec_dd = dd[0];
}
printf("SACCH : %d bonnes, %d Fire KO\n", sacch_ok, sacch_ko);
if (parole_n) printf("PAROLE : %lu trames, %lu BFI, %.1f erreurs/trame\n", parole_n, parole_bfi, (double)parole_err / parole_n);
return 0;
}9.27 /opt/GSM/c54x_exe/tools/sacch_tf_decode.c
4059 octets, 109 lignes → 109 lignes
/* sacch_tf_decode.c - decode hors DSP la SACCH/TF jouee par le BSP.
*
* Lit /dev/shm/calypso_sacch_tf.bin (calypso_bsp.c, sonde [sacch_tf] :
* enregistrements de 156 octets = tick BE32, fn BE32, 148 bits 0/1), regroupe
* les bursts en blocs selon 45.002 (TCH/F, bloc du TN a fn%104 = 12 + 26*TN/2
* modulo 104, puis +26, +52, +78) et les passe a gsm0503_xcch_decode, en clair
* et dechiffres avec le Kc de /dev/shm/calypso_kc_l1.
*
* Si la SACCH decode ici et pas dans la ROM, le defaut est dans le chemin
* BSP -> ROM ; si elle ne decode pas ici non plus, dans ce que le BSP recoit.
*
* ./sacch_tf_decode [fichier] [TN=2] [Kc en hexa, A5/1 ; defaut : calypso_kc_l1]
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <osmocom/core/bits.h>
#include <osmocom/gsm/a5.h>
#include <osmocom/coding/gsm0503_coding.h>
#define MAXB 1024
static struct { uint32_t tick, fn; uint8_t b[148]; } r[MAXB];
static int kc_lire(uint8_t *algo, uint8_t kc[8])
{
FILE *f = fopen("/dev/shm/calypso_kc_l1", "rb");
uint8_t b[32];
if (!f) return -1;
size_t n = fread(b, 1, sizeof b, f);
fclose(f);
if (n < 14) return -1;
*algo = b[4];
memcpy(kc, b + 6, 8);
return (*algo >= 1 && *algo <= 3) ? 0 : -1;
}
static int trouver(int n, uint32_t fn)
{
for (int i = 0; i < n; i++) if (r[i].fn == fn) return i;
return -1;
}
int main(int argc, char **argv)
{
const char *nom = argc > 1 ? argv[1] : "/dev/shm/calypso_sacch_tf.bin";
int tn = argc > 2 ? atoi(argv[2]) : 2;
FILE *f = fopen(nom, "rb");
if (!f) { perror(nom); return 1; }
int n = 0;
uint8_t rec[156];
while (n < MAXB && fread(rec, 1, 156, f) == 156) {
r[n].tick = (uint32_t)rec[0] << 24 | rec[1] << 16 | rec[2] << 8 | rec[3];
r[n].fn = (uint32_t)rec[4] << 24 | rec[5] << 16 | rec[6] << 8 | rec[7];
memcpy(r[n].b, rec + 8, 148);
n++;
}
fclose(f);
uint8_t algo = 0, kc[8] = { 0 };
int a_kc = kc_lire(&algo, kc) == 0;
if (argc > 3 && strlen(argv[3]) == 16) {
for (int i = 0; i < 8; i++) sscanf(argv[3] + 2 * i, "%2hhx", &kc[i]);
algo = 1; a_kc = 1;
}
printf("%d bursts, Kc %s", n, a_kc ? "" : "absent");
if (a_kc) printf("A5/%u %02x%02x%02x%02x%02x%02x%02x%02x", algo, kc[0], kc[1], kc[2], kc[3], kc[4], kc[5], kc[6], kc[7]);
printf("\n");
unsigned debut = (12 + 26 * (tn / 2)) % 104; /* TN2 : 38 */
int ok[2] = { 0, 0 }, vus = 0;
for (int i = 0; i < n; i++) {
if (r[i].fn % 104 != debut) continue;
int idx[4];
int complet = 1;
for (int k = 0; k < 4; k++) {
idx[k] = trouver(n, r[i].fn + 26 * k);
if (idx[k] < 0) complet = 0;
}
if (!complet) continue;
vus++;
printf("bloc fn=%u tick=%u :", r[i].fn, r[i].tick);
for (int chiffre = 0; chiffre < 2; chiffre++) {
if (chiffre && !a_kc) break;
sbit_t sb[464];
for (int k = 0; k < 4; k++) {
uint8_t b[148];
memcpy(b, r[idx[k]].b, 148);
if (chiffre) {
ubit_t dl[114], ul[114];
osmo_a5(algo, kc, r[idx[k]].fn, dl, ul);
for (int j = 0; j < 57; j++) { b[3 + j] ^= dl[j]; b[88 + j] ^= dl[57 + j]; }
}
for (int j = 0; j < 58; j++) {
sb[k * 116 + j] = b[3 + j] ? -127 : 127;
sb[k * 116 + 58 + j] = b[87 + j] ? -127 : 127;
}
}
uint8_t l2[23];
int nerr = 0, nbits = 0;
int rc = gsm0503_xcch_decode(l2, sb, &nerr, &nbits);
if (rc == 0) ok[chiffre]++;
printf(" %s rc=%d err=%d/%d L2=%02x %02x %02x %02x %02x %02x", chiffre ? "dechiffre" : "tel-quel",
rc, nerr, nbits, l2[0], l2[1], l2[2], l2[3], l2[4], l2[5]);
}
printf("\n");
}
printf("blocs complets=%d bons tel-quel=%d bons dechiffres=%d\n", vus, ok[0], ok[1]);
return 0;
}9.28 /opt/GSM/c54x_exe/tools/cch_ref/cch_interleave_ref.py
7736 octets, 171 lignes → 170 lignes (1 groupes compactés)
#!/usr/bin/env python3
# =====================================================================
# GSM 05.03 xCCH block interleaving — REFERENCE
# Applies to BCCH / CCCH (PCH/AGCH) / SDCCH / SACCH.
# One 456-bit coded block -> 4 normal bursts of 114 data bits each,
# NO cross-block overlap (block-rectangular, unlike the 8-burst TCH).
#
# Byte-for-byte identical to libosmocore:
# gsm0503_xcch_interleave() / gsm0503_xcch_deinterleave()
# B = k & 3
# j = 2*((49*k) % 57) + ((k % 8) >> 2)
# iB[B*114 + j] = cB[k] (deinterleave: cB[k] = iB[B*114+j])
#
# Burst data layout for j:
# j = 0..56 -> first 57-bit half (before the 26-bit midamble)
# j = 57..113 -> second 57-bit half (after the midamble)
# The 2 stealing flags are NOT part of these 114 bits.
# =====================================================================
import csv
import random
from collections import Counter
N = 456
def fwd_map():
"""k -> (k, B, j, iB_index)."""
rows = []
for k in range(N):
B = k & 3 # burst 0..3 (k mod 4)
j = 2 * ((49 * k) % 57) + ((k % 8) >> 2) # position 0..113
rows.append((k, B, j, B * 114 + j))
return rows
# ---- verify the map is a real interleaver (bijection + full coverage) ----
def verify(rows):
idx = [r[3] for r in rows]
assert sorted(idx) == list(range(N)), "iB index is NOT a bijection"
pairs = Counter((r[1], r[2]) for r in rows)
assert len(pairs) == N and all(v == 1 for v in pairs.values()), "duplicate (B,j)"
for B in range(4):
js = sorted(r[2] for r in rows if r[1] == B)
assert js == list(range(114)), f"burst {B}: j not full 0..113"
return True
# ---- rate-1/2 K=5 convolutional code (GSM 05.03 4.1.3) --------------------
# G0 = 1 + D^3 + D^4 (0b10011 = 0x13) -> even coded index c(2k)
# G1 = 1 + D + D^3 + D^4 (0b11011 = 0x1B) -> odd coded index c(2k+1)
def conv_encode(u):
assert len(u) == 228 # 184 info + 40 Fire parity + 4 tail(=0)
U = lambda i: u[i] if 0 <= i < 228 else 0
c = [0] * N
for k in range(228):
c[2*k] = U(k) ^ U(k-3) ^ U(k-4)
c[2*k+1] = U(k) ^ U(k-1) ^ U(k-3) ^ U(k-4)
return c
def interleave(c):
iB = [0] * N
for (k, B, j, idx) in fwd_map():
iB[idx] = c[k]
return iB
def deinterleave(iB):
c = [0] * N
for (k, B, j, idx) in fwd_map():
c[k] = iB[idx]
return c
# =========================================================================
if __name__ == "__main__":
rows = fwd_map()
verify(rows)
# round-trip proof: u -> encode -> interleave -> deinterleave == c
random.seed(0)
u = [random.randint(0, 1) for _ in range(224)] + [0, 0, 0, 0]
c = conv_encode(u)
assert deinterleave(interleave(c)) == c
print("OK interleaver is a bijection over 0..455")
print("OK per-burst j fully covers 0..113")
print("OK conv-encode -> interleave -> deinterleave round-trip exact\n")
# ---- main table: k -> (burst, pos), plus the two bug variants ----
with open("cch_interleave_ref.csv", "w", newline="") as f:
w = csv.writer(f)
w.writerow(["k", "lane_G(0=G0/c0,1=G1/c1)", "burst_B", "pos_j",
"iB_index", "j_if_LSB_dropped", "j_if_LSB_inverted",
"iB_index_if_LSB_inverted"])
for (k, B, j, idx) in rows:
base = 2 * ((49 * k) % 57)
j_drop = base
j_inv = base + (1 - ((k % 8) >> 2))
w.writerow([k, k & 1, B, j, idx, j_drop, j_inv, B * 114 + j_inv])
# ---- inverse table: what a deinterleaver actually indexes ----
inv = [0] * N
for (k, B, j, idx) in rows:
inv[idx] = k
with open("cch_deinterleave_inverse_ref.csv", "w", newline="") as f:
w = csv.writer(f)
w.writerow(["iB_index", "burst_B", "pos_j", "source_coded_k", "lane_G"])
for idx in range(N):
k = inv[idx]
w.writerow([idx, idx // 114, idx % 114, k, k & 1])
# ---- deinterleave with a deliberate bug, for stage isolation ----
def deinterleave_mode(iB, mode):
c = [0] * N
for k in range(N):
B = k & 3
base = 2 * ((49 * k) % 57)
if mode == "correct":
j = base + ((k % 8) >> 2)
elif mode == "lsb_dropped": # ((k%8)>>2) forced to 0
j = base
elif mode == "lsb_inverted": # 0<->1 on the LSB term
j = base + (1 - ((k % 8) >> 2))
c[k] = iB[B * 114 + j]
return c
# Known test vector. u is pseudo-random (dense in 1s) on purpose:
# any interleaver error then shows up massively at the cB level.
# Fire is NOT needed here - this isolates interleaver + conv-decoder only.
random.seed(1)
u_tv = [random.randint(0, 1) for _ in range(224)] + [0, 0, 0, 0]
c_tv = conv_encode(u_tv) # 456 coded bits, correct order
iB_tv = interleave(c_tv) # 4 x 114, from the CORRECT interleaver
cB_correct = deinterleave_mode(iB_tv, "correct") # == c_tv (Viterbi(cB)->u)
cB_drop = deinterleave_mode(iB_tv, "lsb_dropped")
cB_inv = deinterleave_mode(iB_tv, "lsb_inverted")
assert cB_correct == c_tv
s = lambda bits: "".join(map(str, bits))
with open("cch_testvectors.txt", "w") as f:
f.write("# GSM 05.03 xCCH stage-isolation test vector\n")
f.write("# Fixed pseudo-random 228-bit u (u[224:228]=tail=0).\n")
f.write("# TEST A (interleaver): feed burst0..3 into YOUR deinterleaver,\n")
f.write("# compare the 456-bit result against the three candidates below:\n")
f.write("# == cB_correct -> interleaver OK, bug is downstream\n")
f.write("# == cB_lsb_dropped -> you never apply the ((k%8)>>2) term\n")
f.write("# == cB_lsb_inverted -> that term is inverted / off-by-one\n")
f.write("# == none of them -> different bug (burst order? half swap?)\n")
f.write("# TEST B (Viterbi/lane): feed cB_correct into YOUR Viterbi,\n")
f.write("# compare the 228-bit result against u. Mismatch with cB correct\n")
f.write("# => c0/c1 swap, wrong polynomials, or tail handling.\n\n")
f.write("u_228 = " + s(u_tv) + "\n\n")
f.write("burst⟨1⟩_114 = " + s(iB_tv[⟨2⟩:⟨3⟩]) + "\n") ×3
⟨⟩ = (0,0,114) (1,114,228) (2,228,342)
f.write("burst3_114 = " + s(iB_tv[342:456]) + "\n\n")
f.write("cB_correct = " + s(cB_correct) + "\n\n")
f.write("cB_lsb_dropped = " + s(cB_drop) + "\n\n")
f.write("cB_lsb_inverted = " + s(cB_inv) + "\n")
dd = sum(a != b for a, b in zip(cB_correct, cB_drop))
di = sum(a != b for a, b in zip(cB_correct, cB_inv))
print(f"test vector written: cB differs from correct in "
f"{dd}/456 (dropped) and {di}/456 (inverted) positions\n")
# ---- how big / what shape is the LSB bug ----
diff = [k for (k, B, j, idx) in rows
if (B * 114 + j) != (B * 114 + 2 * ((49 * k) % 57) + (1 - ((k % 8) >> 2)))]
print(f"LSB-inverted bug moves {len(diff)}/456 coded bits to a wrong burst slot")
print(" -> every k is displaced by exactly +/-1 in j (even<->odd swap),")
print(" within its own burst, so the burst assignment (k&3) stays right.\n")
print("spot check (k : burst, pos):")
for k in [0, 1, 2, 3, 4, 5, 6, 7, 8, 57, 114, 228, 455]:
B = k & 3
j = 2 * ((49 * k) % 57) + ((k % 8) >> 2)
print(f" k={k:3d} -> burst {B}, pos {j:3d} (lane {'G1/c1' if k & 1 else 'G0/c0'})")