summaryrefslogtreecommitdiff
path: root/devel/debugger/1.8.2/src/DEBUGGER.ELA
diff options
context:
space:
mode:
Diffstat (limited to 'devel/debugger/1.8.2/src/DEBUGGER.ELA')
-rw-r--r--devel/debugger/1.8.2/src/DEBUGGER.ELA42
1 files changed, 21 insertions, 21 deletions
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 ;