summaryrefslogtreecommitdiff
path: root/system/dos/1986/src
diff options
context:
space:
mode:
Diffstat (limited to 'system/dos/1986/src')
-rw-r--r--system/dos/1986/src/disk descriptor.dos.fd2
-rw-r--r--system/dos/1986/src/disk descriptor.dos.hd2
-rw-r--r--system/dos/1986/src/eu disk descriptor.fd2
-rw-r--r--system/dos/1986/src/eu disk descriptor.hd2
-rw-r--r--system/dos/1986/src/fat and dir.dos.fd2
-rw-r--r--system/dos/1986/src/fat and dir.dos.hd2
-rw-r--r--system/dos/1986/src/manager-M.dos.fd2
-rw-r--r--system/dos/1986/src/manager-M.dos.hd2
-rw-r--r--system/dos/1986/src/name conversion4
-rw-r--r--system/dos/1986/src/save14
-rw-r--r--system/dos/1986/src/shard interface6
11 files changed, 20 insertions, 20 deletions
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 ungltig")
+ 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 ungltig")
+ 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 ("ungltige 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 ("ungltige 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 fr 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 fr 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 ("Unzulssiger 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 ("Unzulssiger 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 mssen durch Blanks getrennt werden
+; alle Werte müssen durch Blanks getrennt werden
;
-;heads: Anzahl der Kpfe, positiv fr cylinderorientiertes Lesen
-; negativ fr seitenorientiertes Lesen
+;heads: Anzahl der Köpfe, positiv für cylinderorientiertes Lesen
+; negativ für seitenorientiertes Lesen
;
;size heads tracks first sectors last sector
;=====================================================