From c316cd982303f30f29075f31bcd910f9be38bb25 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun 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 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 ;===================================================== -- cgit v1.2.3