From c316cd982303f30f29075f31bcd910f9be38bb25 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Sat, 2 Mar 2019 17:15:47 +0100
Subject: Convert charset to utf8
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Files imported in commit 98cab31fc3659e33aef260efca55bf9f1753164c were
exported from EUMEL to DOS and used codepage 437/850(?). Convert files
to UTF-8 where possible. Some files were left as-is. I’m not sure
whether converting these would be correct.
---
system/dos/1986/src/disk descriptor.dos.fd | 2 +-
system/dos/1986/src/disk descriptor.dos.hd | 2 +-
system/dos/1986/src/eu disk descriptor.fd | 2 +-
system/dos/1986/src/eu disk descriptor.hd | 2 +-
system/dos/1986/src/fat and dir.dos.fd | 2 +-
system/dos/1986/src/fat and dir.dos.hd | 2 +-
system/dos/1986/src/manager-M.dos.fd | 2 +-
system/dos/1986/src/manager-M.dos.hd | 2 +-
system/dos/1986/src/name conversion | 4 ++--
system/dos/1986/src/save | 14 +++++++-------
system/dos/1986/src/shard interface | 6 +++---
11 files changed, 20 insertions(+), 20 deletions(-)
(limited to 'system/dos/1986')
diff --git a/system/dos/1986/src/disk descriptor.dos.fd b/system/dos/1986/src/disk descriptor.dos.fd
index 660dd46..9de8cf0 100644
--- a/system/dos/1986/src/disk descriptor.dos.fd
+++ b/system/dos/1986/src/disk descriptor.dos.fd
@@ -250,7 +250,7 @@ PROC load disk data from bpb:
IF is error
THEN clear error;
enable stop;
- error stop ("Bios-Parameterblock ung�ltig")
+ error stop ("Bios-Parameterblock ungültig")
FI.
END PROC load disk data from bpb;
diff --git a/system/dos/1986/src/disk descriptor.dos.hd b/system/dos/1986/src/disk descriptor.dos.hd
index 312b273..0627b62 100644
--- a/system/dos/1986/src/disk descriptor.dos.hd
+++ b/system/dos/1986/src/disk descriptor.dos.hd
@@ -250,7 +250,7 @@ PROC load disk data from bpb:
IF is error
THEN clear error;
enable stop;
- error stop ("Bios-Parameterblock ung�ltig")
+ error stop ("Bios-Parameterblock ungültig")
FI.
END PROC load disk data from bpb;
diff --git a/system/dos/1986/src/eu disk descriptor.fd b/system/dos/1986/src/eu disk descriptor.fd
index c09c820..cd00175 100644
--- a/system/dos/1986/src/eu disk descriptor.fd
+++ b/system/dos/1986/src/eu disk descriptor.fd
@@ -58,7 +58,7 @@ PROC load shard interface table:
load line:
table top INCR 1;
IF table top > table length
- THEN error stop ("Shard Interface Tabelle zu gro�")
+ THEN error stop ("Shard Interface Tabelle zu groß")
FI;
INT VAR blank pos := 1;
format table [table top][size field] := next int;
diff --git a/system/dos/1986/src/eu disk descriptor.hd b/system/dos/1986/src/eu disk descriptor.hd
index 73179db..caeef66 100644
--- a/system/dos/1986/src/eu disk descriptor.hd
+++ b/system/dos/1986/src/eu disk descriptor.hd
@@ -58,7 +58,7 @@ PROC load shard interface table:
load line:
table top INCR 1;
IF table top > table length
- THEN error stop ("Shard Interface Tabelle zu gro�")
+ THEN error stop ("Shard Interface Tabelle zu groß")
FI;
INT VAR blank pos := 1;
format table [table top][size field] := next int;
diff --git a/system/dos/1986/src/fat and dir.dos.fd b/system/dos/1986/src/fat and dir.dos.fd
index 5a82655..35cf118 100644
--- a/system/dos/1986/src/fat and dir.dos.fd
+++ b/system/dos/1986/src/fat and dir.dos.fd
@@ -157,7 +157,7 @@ load next subdir if possible:
get next subdir name:
TEXT VAR subdir name;
IF (path SUB 1) <> "\"
- THEN error stop ("ung�ltige Pfadbezeichnung")
+ THEN error stop ("ungültige Pfadbezeichnung")
FI;
INT VAR backslash pos := pos (path, "\", "\", 2);
IF backslash pos = 0
diff --git a/system/dos/1986/src/fat and dir.dos.hd b/system/dos/1986/src/fat and dir.dos.hd
index 7d53f41..2612b25 100644
--- a/system/dos/1986/src/fat and dir.dos.hd
+++ b/system/dos/1986/src/fat and dir.dos.hd
@@ -157,7 +157,7 @@ load next subdir if possible:
get next subdir name:
TEXT VAR subdir name;
IF (path SUB 1) <> "\"
- THEN error stop ("ung�ltige Pfadbezeichnung")
+ THEN error stop ("ungültige Pfadbezeichnung")
FI;
INT VAR backslash pos := pos (path, "\", "\", 2);
IF backslash pos = 0
diff --git a/system/dos/1986/src/manager-M.dos.fd b/system/dos/1986/src/manager-M.dos.fd
index 601d521..1c59e01 100644
--- a/system/dos/1986/src/manager-M.dos.fd
+++ b/system/dos/1986/src/manager-M.dos.fd
@@ -81,7 +81,7 @@ PROC dos manager (DATASPACE VAR ds, INT CONST order code, phase,
CASE reserve code : reserve
CASE free code : free
CASE check read code: check
- OTHERWISE errorstop ("unbekannter Auftrag f�r Task: " + name (myself))
+ OTHERWISE errorstop ("unbekannter Auftrag für Task: " + name (myself))
END SELECT.
fetch file:
diff --git a/system/dos/1986/src/manager-M.dos.hd b/system/dos/1986/src/manager-M.dos.hd
index 5eb97c7..70d9d9a 100644
--- a/system/dos/1986/src/manager-M.dos.hd
+++ b/system/dos/1986/src/manager-M.dos.hd
@@ -81,7 +81,7 @@ PROC dos manager (DATASPACE VAR ds, INT CONST order code, phase,
CASE reserve code : reserve
CASE free code : free
CASE check read code: check
- OTHERWISE errorstop ("unbekannter Auftrag f�r Task: " + name (myself))
+ OTHERWISE errorstop ("unbekannter Auftrag für Task: " + name (myself))
END SELECT.
fetch file:
diff --git a/system/dos/1986/src/name conversion b/system/dos/1986/src/name conversion
index 1f9a797..3cdc202 100644
--- a/system/dos/1986/src/name conversion
+++ b/system/dos/1986/src/name conversion
@@ -43,7 +43,7 @@ changed name without extension:
new name (eu name, read modus).
error:
- errorstop ("Unzul�ssiger Name").
+ errorstop ("Unzulässiger Name").
END PROC adapted name;
@@ -60,7 +60,7 @@ convert char:
THEN new CAT (upper case chars SUB string pos)
ELIF is upper case char OR read modus
THEN new CAT char
- ELSE error stop ("Unzul�ssiger Name")
+ ELSE error stop ("Unzulässiger Name")
FI.
is lower case char:
diff --git a/system/dos/1986/src/save b/system/dos/1986/src/save
index 89d1108..903cfaa 100644
--- a/system/dos/1986/src/save
+++ b/system/dos/1986/src/save
@@ -124,10 +124,10 @@ std char:
ascii change:
change all (line, ""251"", "#251#");
- char pos := pos (line, "�", "�", 1);
+ char pos := pos (line, "Ä", "ü", 1);
WHILE char pos > 0 REP
line := subtext (line, 1, char pos - 1) + ersatzdarstellung + subtext (line, char pos + 1);
- char pos := pos (line, "�", "�", char pos + 1)
+ char pos := pos (line, "Ä", "ü", char pos + 1)
PER.
ascii german change:
@@ -142,18 +142,18 @@ ascii german change:
char pos := pos (line, "{", "}", char pos + 1)
PER;
change all (line, ""251"", "~");
- char pos := pos (line, "�", "�", 1);
+ char pos := pos (line, "Ä", "ü", 1);
WHILE char pos > 0 REP
replace (line, char pos, umlaut in ascii german);
- char pos := pos (line, "�", "�", char pos + 1)
+ char pos := pos (line, "Ä", "ü", char pos + 1)
PER.
atari st change:
- change all (line, "�", ""158"");
- char pos := pos (line, "�", "�", 1);
+ change all (line, "ß", ""158"");
+ char pos := pos (line, "Ä", "ü", 1);
WHILE char pos > 0 REP
replace (line, char pos, umlaut in atari st);
- char pos := pos (line, "�", "�", char pos + 1)
+ char pos := pos (line, "Ä", "ü", char pos + 1)
PER.
ersatzdarstellung:
diff --git a/system/dos/1986/src/shard interface b/system/dos/1986/src/shard interface
index 67bf654..c7fdac5 100644
--- a/system/dos/1986/src/shard interface
+++ b/system/dos/1986/src/shard interface
@@ -1,8 +1,8 @@
; ';' in Spalte 1 kennzeichnet eine Kommentarzeile
-; alle Werte m�ssen durch Blanks getrennt werden
+; alle Werte müssen durch Blanks getrennt werden
;
-;heads: Anzahl der K�pfe, positiv f�r cylinderorientiertes Lesen
-; negativ f�r seitenorientiertes Lesen
+;heads: Anzahl der Köpfe, positiv für cylinderorientiertes Lesen
+; negativ für seitenorientiertes Lesen
;
;size heads tracks first sectors last sector
;=====================================================
--
cgit v1.2.3