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/shard-x86-at/7/src/PATCH.ELA | 38 ++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) (limited to 'system/shard-x86-at/7/src/PATCH.ELA') diff --git a/system/shard-x86-at/7/src/PATCH.ELA b/system/shard-x86-at/7/src/PATCH.ELA index 539a674..c3f34f1 100644 --- a/system/shard-x86-at/7/src/PATCH.ELA +++ b/system/shard-x86-at/7/src/PATCH.ELA @@ -2,28 +2,28 @@ - Vortest/Speichertest - Keyboard Repeatfrequenz - Baudrates 19200/38400 werden angeboten - - Refresh-Intervall „nderbar (bis zu 5% mehr Leistung) + - Refresh-Intervall änderbar (bis zu 5% mehr Leistung) - control (-3,,,r) liefert im Highbyte das Modemstatusregister (RI etc.) - control (-5,8,,r) geht in ruc-Bios-Graphikmodus (mit Textausgabe: Text mit 'out', 'put' etc. schreiben, cursor (x, y) mit y:1..43, - Codes ""4"", ""5"", Scroll l”schen jetzt vernnftig (Attribut von 7 auf - 0 ge„ndert), + Codes ""4"", ""5"", Scroll löschen jetzt vernünftig (Attribut von 7 auf + 0 geändert), Achtung: getcursor (x, y) im 'begin plot' einbauen. cursor (x,y) im 'end plot' einbauen, wegen y<25 im Textmodus!) - - Kanal 30 (Archiv 1) jetzt fr MF-Laufwerke (5.25" bzw. 3.5"), Default- + - Kanal 30 (Archiv 1) jetzt für MF-Laufwerke (5.25" bzw. 3.5"), Default- Size ist 1.2MB (Achtung bei Formatieren von 3.5"-Floppys!) - - Mit control (-10/-11,...) ("stop", "weiter") wird an den RS232-Kan„len + - Mit control (-10/-11,...) ("stop", "weiter") wird an den RS232-Kanälen jetzt nicht nur RTS active/inactive gesetzt sondern auch DTR (Modem). - An Kanal 32: Mit control (-3, x, mcr*32+kanal, r) (mcr ist Modemcontrolregister Wert, - x egal) k”nnen RTS, DTR explizit gesetzt werden. + x egal) können RTS, DTR explizit gesetzt werden. - id (6) > 0 : SHard wurde gepatcht. Michael Staubermann, Version 2: 09.10.87, Keyboardrepeat, Baudrates Version 3: 04.11.87, Graphikcursor & Graphikmodi Version 3.1: 20.11.87, >32MB Partitionen f. M+ Version 4: 04.12.87, TX-Interrupt restart - Version 4.1: 10.01.88, Refresh-Intervall „nderbar + Version 4.1: 10.01.88, Refresh-Intervall änderbar Version 5: 21.02.88, Kanal 30 1.2MB-Format (3.5") Version 5.1: 22.02.88, *) @@ -61,7 +61,7 @@ INT OP & (TEXT CONST hex) : THEN h := h OR (c-55) ELIF c >= 48 AND c <= 57 THEN h := h OR (c-48) - ELSE errorstop ("OP &: ungltiges Hexdigit ("+code(c)+")") + ELSE errorstop ("OP &: ungültiges Hexdigit ("+code(c)+")") FI ; PER ; h @@ -121,7 +121,7 @@ PROC poken (INT CONST shard adr, TEXT CONST str) : THEN poke2 (adr, &subtext (str, i, i+3)) ; i INCR 5 ; adr INCR 2 - ELSE errorstop ("poken: Zuviele zusammenh„ngende Bytes") + ELSE errorstop ("poken: Zuviele zusammenhängende Bytes") FI ; PER ; ENDPROC poken ; @@ -175,7 +175,7 @@ PROC get partition : putline ("Partionsanfang: " + text ((partition start 1+1.0)/2.0, 6, 0) + " KB = Cylinder " + text (int ((partition start 1+1.0)/real(secs)/real(heads)))) ; - putline ("Partionsgr”sse: " + text (partition size/2.0, 6, 0) + " KB = " + + putline ("Partionsgrösse: " + text (partition size/2.0, 6, 0) + " KB = " + text (int (partition size/real(secs)/real(heads))) + " Cylinder"); put ("Diese Partition ist") ; IF NOT partition active @@ -227,7 +227,7 @@ PROC write shard : FOR i FROM 1 UPTO shard bloecke REP IF modified (i) THEN IF session <> old session - THEN errorstop ("RERUN w„hrend patch") + THEN errorstop ("RERUN während patch") FI ; blockout (setup channel, block (i), partition start1+real(i-1)) ; modified (i) := FALSE @@ -267,10 +267,10 @@ PROC patch shard : patch dtr inactive ; patch mcr set routine ; patch archive 1 format ; - IF yes ("Žnderungen permanent machen") + IF yes ("Änderungen permanent machen") THEN write shard ; - putline ("Žnderungen durchgefhrt, System neu booten.") ; - ELSE putline ("Keine Žnderungen durchgefhrt.") ; + putline ("Änderungen durchgeführt, System neu booten.") ; + ELSE putline ("Keine Änderungen durchgeführt.") ; FI . check if patch possible : @@ -290,7 +290,7 @@ mode: &"0556" . id 6: &"055C" . patch baudrate : - putline ("Baudrates 50, 75 entfernt, 19200, 38400 eingefgt.") ; + putline ("Baudrates 50, 75 entfernt, 19200, 38400 eingefügt.") ; poke2 (&"07E8", 1047) ; (* 3: 110 *) poke2 (&"07EA", 857) ; (* 4: 134.5 *) poke2 (&"07EC", 768) ; (* 5: 150 *) @@ -323,7 +323,7 @@ patch baudrate : patch id and mode : poke2 (id6, patch version) ; (* Update Patch Version *) - IF yes ("Soll ein Vortest durchgefhrt werden") + IF yes ("Soll ein Vortest durchgeführt werden") THEN IF yes ("Soll ein Speichertest durchgefuehrt werden") THEN poke2 (mode, 0) ELSE poke2 (mode, 256) @@ -381,7 +381,7 @@ patch refresh: patch cursor maxima: (* Es werden nur die Maxima bei CURSOR(,) veraendert, CLEOL, CLEOP,SCROLL etc. arbeiten weiter mit 24 Zeilen, 80 Spalten *) - (* CURSOR y:0..43, x:0..89 EUMEL l„sst allerdings nur 0..79 zu *) + (* CURSOR y:0..43, x:0..89 EUMEL lässt allerdings nur 0..79 zu *) poke (&"0EFF", 43) ; poke (&"0F16", 89) . @@ -398,7 +398,7 @@ patch dtr inactive : patch mcr set routine : (* - 0812: 20 Bytes zur Verfgung + 0812: 20 Bytes zur Verfügung MOV DX,(DI+i8250_base) ADD DX,i8250_mcr MOV AL,BH ; Highbyte 2. IOCONTROL Parameter @@ -415,7 +415,7 @@ patch archive 1 format : putline (" 1: 360K (Standard/Doublestep)") ; putline (" 2: 720K (Standard/Singlestep)") ; putline (" 3: 1.2MB (Multifunction)") ; - putline ("ESC: Nichts ver„ndern") ; + putline ("ESC: Nichts verändern") ; put ("Typ:") ; TEXT VAR t ; REP inchar (t) UNTIL t >= "0" AND t <= "3" OR t = ""27"" PER ; -- cgit v1.2.3