diff options
Diffstat (limited to 'system/dos/1986/src')
| -rw-r--r-- | system/dos/1986/src/disk descriptor.dos.fd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/disk descriptor.dos.hd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/eu disk descriptor.fd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/eu disk descriptor.hd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/fat and dir.dos.fd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/fat and dir.dos.hd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/manager-M.dos.fd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/manager-M.dos.hd | 2 | ||||
| -rw-r--r-- | system/dos/1986/src/name conversion | 4 | ||||
| -rw-r--r-- | system/dos/1986/src/save | 14 | ||||
| -rw-r--r-- | system/dos/1986/src/shard interface | 6 |
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
;=====================================================
|