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. --- devel/debugger/1.8.2/src/DEBUGGER.ELA | 42 +++++++++++++++++------------------ 1 file changed, 21 insertions(+), 21 deletions(-) (limited to 'devel/debugger/1.8.2/src/DEBUGGER.ELA') diff --git a/devel/debugger/1.8.2/src/DEBUGGER.ELA b/devel/debugger/1.8.2/src/DEBUGGER.ELA index fddde7d..6b4a429 100644 --- a/devel/debugger/1.8.2/src/DEBUGGER.ELA +++ b/devel/debugger/1.8.2/src/DEBUGGER.ELA @@ -128,7 +128,7 @@ INT OP MUL (INT CONST left, right) : ENDOP MUL ; BOOL PROC ulseq (INT CONST left, right) : - left <= right (* Muá leider(!!) auf ULSEQ Code gepatcht werden *) + left <= right (* Muß leider(!!) auf ULSEQ Code gepatcht werden *) ENDPROC ulseq ; (*************************** Wortoperationen ******************************) @@ -190,7 +190,7 @@ ENDPACKET address ; (**************************************************************************) -PACKET table routines DEFINES (* Fr eumel decoder 861017 *) +PACKET table routines DEFINES (* FĂŒr eumel decoder 861017 *) (* 1.8.0 by M.Staubermann *) code segment , code address , @@ -473,7 +473,7 @@ PROC get module number (INT VAR module number) : anz objects := 0 ; FILE VAR f := notefile ; maxlinelength (f, 1000) ; - note ("Modulnummer des gewnschten Objekts merken und ESC q tippen.") ; + note ("Modulnummer des gewĂŒnschten Objekts merken und ESC q tippen.") ; noteline ; noteline ; module number := -1 ; @@ -779,7 +779,7 @@ ENDPACKET table routines ; (*************************************************************************) -PACKET eumel decoder DEFINES (* M. Staubermann, M„rz/April 86 *) +PACKET eumel decoder DEFINES (* M. Staubermann, MĂ€rz/April 86 *) (* 1.8.0 861201 *) (* 1.8.2 880726 *) lbase , @@ -1212,8 +1212,8 @@ analyze key : {e} CASE 101 : echo := NOT echo (* Bildschirmausgabe zus. *) {s} CASE 115 : storage (size,used) ; out(""13""5"System-Storage: " + text (used) + " ") {m} CASE 109 : out (""13""5"Modulnr: " + text (mod nr-1) + " ") -{Q,W}CASE 87,81:output permitted := TRUE (* L„uft nur im Vordergrund *) -{S} CASE 83 : output permitted := FALSE (* L„uft auch im Hintergrund *) +{Q,W}CASE 87,81:output permitted := TRUE (* LĂ€uft nur im Vordergrund *) +{S} CASE 83 : output permitted := FALSE (* LĂ€uft auch im Hintergrund *) {ESC}CASE 27 : IF incharety <> "" THEN taste := "" ELSE list line ("Abbruch mit ESC") @@ -1406,7 +1406,7 @@ process call : THEN instruction CAT " " ELSE instruction CAT " " FI ; - was bool result := FALSE ; (* Wird von params0 ggf berschrieben *) + was bool result := FALSE ; (* Wird von params0 ggf ĂŒberschrieben *) instruction CAT params0 (prim op (opcode).params, word, segment, address, words, INT PROC (INT CONST, INT VAR, TEXT VAR) next word) . @@ -1774,7 +1774,7 @@ module address representation : (* Hier: lowbyte = mod nr, highbyte = mod addr *) next module header (data segment, data address, highbyte, lowbyte) ; IF highbyte <> data address - THEN linear search (* Adresse muá doch zu finden sein *) + THEN linear search (* Adresse muß doch zu finden sein *) FI ; text val := text (lowbyte) ; process module nr (lowbyte) . @@ -1978,10 +1978,10 @@ copy text from heap : heap segment := address AND 7 ; address := address AND hex fff8 ; (* In Vielfachen von 8 *) laenge := getword (segment, addr ADD 2) AND 255 ; - makeword (laenge, first char) ; (* 16 Bit Laenge ber Wortgrenze *) + makeword (laenge, first char) ; (* 16 Bit Laenge ĂŒber Wortgrenze *) laenge := min (laenge, 256) ; (* Mehr ist im Listing nicht sinnvoll *) IF getword (heap segment, address) = minus one (* Standard DS *) - THEN address INCR 3 ; (* Kann nicht ber 8000H Grenze gehen *) + THEN address INCR 3 ; (* Kann nicht ĂŒber 8000H Grenze gehen *) ELSE INC address (* Im Frei-Datenraum nur Wort Laenge *) FI ; result := "" ; @@ -2118,7 +2118,7 @@ ENDPROC tracer channel ; PROC tracer channel (INT CONST c) : IF c < 17 AND c > minus one THEN trace channel := c - ELSE errorstop ("PROC tracer channel: Kanalnummer unzul„ssig") + ELSE errorstop ("PROC tracer channel: Kanalnummer unzulĂ€ssig") FI ENDPROC tracer channel ; @@ -2135,7 +2135,7 @@ PROC trace : put (" Protokollfilename (falls kein Protokoll RETURN):") ; getline (name) ; prot file (name) ; - put (" Tracekanal (Ausfhrung an diesem Kanal: RETURN):") ; + put (" Tracekanal (AusfĂŒhrung an diesem Kanal: RETURN):") ; name := "0" ; editget (name) ; line ; @@ -2458,7 +2458,7 @@ valid source : exists (source file name) . get breakpoint address from user : - put ("N„chste Breakpointaddresse (hex) in Segment 3:") ; + put ("NĂ€chste Breakpointaddresse (hex) in Segment 3:") ; statement line := hex16 (next instruction address) ; editget (statement line) ; user address := integer (statement line) ; @@ -2592,7 +2592,7 @@ set first breakpoint behind branch instruction at return address : next instruction := getword (code segment 3, next instruction address) ; c8k := getword (local data segment, lbas + c8k offset) AND 255 ; set first breakpoint behind branch instruction - ELSE putline ("Trace bei Vorw„rtssprung beendet."5"") + ELSE putline ("Trace bei VorwĂ€rtssprung beendet."5"") FI . set second breakpoint at branch address of branch instruction at return address : @@ -2651,7 +2651,7 @@ determine return address : packet base := HIGH return segment ; (* Wort besteht aus zwei Teilen!*) set parameters (lbas, packet base, minus one, c8k) ; stptr := lbas ADD 4 ; - DEC return address ; (* auf CALL breakpointhandler (ein Wort zurck) *) + DEC return address ; (* auf CALL breakpointhandler (ein Wort zurĂŒck) *) IF bit (return segment, 7) (* ISERR *) THEN old error line := error line ; old error code := error code ; @@ -2738,7 +2738,7 @@ set breakpoint behind previous call : lbas + return address offset) ; IF return segment = code segment 3 THEN set breakpoint (breakpoint nr, return address) - ELSE putline ("Trace bei Rcksprung beendet."5"") + ELSE putline ("Trace bei RĂŒcksprung beendet."5"") FI . next free breakpoint : @@ -2860,7 +2860,7 @@ determine module name and module nr : ELSE result := subtext (result, 1, pos (result, "-->")-2) FI ; FI ; - address := start address . (* Rcksetzen auf ersten param push *) + address := start address . (* RĂŒcksetzen auf ersten param push *) collect actual parameters : IF symbol <> "(" @@ -2898,7 +2898,7 @@ collect actual parameters : result CAT " " ; result CAT symbol ; (* CONST oder VAR *) result CAT ":" ; - typetext := ":" + typetext ; (* Fr Pos-Suche *) + typetext := ":" + typetext ; (* FĂŒr Pos-Suche *) nextsymbol (symbol) ; (* Jetzt auf ',' oder ')' *) FI ; IF (getword (code segment 3, address) AND hex 7f00) = hex 7f00 (* ESC OR LONGA *) @@ -3001,8 +3001,8 @@ ENDOP HIGH ; PROC fix local base : (* Kein direkter EXTERNAL-Aufruf, da bei 'CALL' lbas auf Stack gelegt wird*) - REP UNTIL incharety = "" PER ; (* Damit pause ausgefhrt wird *) - internal pause (0) (* ^ War Grund fr 'falsche Returnaddresse'*) + REP UNTIL incharety = "" PER ; (* Damit pause ausgefĂŒhrt wird *) + internal pause (0) (* ^ War Grund fĂŒr 'falsche Returnaddresse'*) ENDPROC fix local base ; @@ -3087,7 +3087,7 @@ PROC set breakpoint : INT VAR i ; handlers module nr (module number (PROC breakpointhandler)) ; auto trace := FALSE ; - source lines neu := TRUE ; (* Zum L”schen *) + source lines neu := TRUE ; (* Zum Löschen *) source file ("") ; prot file ("") ; actual line number := minus one ; -- cgit v1.2.3