diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2019-02-11 11:49:19 +0100 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2019-02-11 11:49:39 +0100 |
| commit | 98cab31fc3659e33aef260efca55bf9f1753164c (patch) | |
| tree | f1affa84049ef9b268e6c4f521f000478b0f3a8e /system/eumel0-z80 | |
| parent | 71e2b36ccd05ea678e62e32ee6245df2b8d6ac17 (diff) | |
| download | eumel-src-98cab31fc3659e33aef260efca55bf9f1753164c.tar.gz eumel-src-98cab31fc3659e33aef260efca55bf9f1753164c.tar.bz2 eumel-src-98cab31fc3659e33aef260efca55bf9f1753164c.zip | |
Add source files from Michael
Diffstat (limited to 'system/eumel0-z80')
| -rw-r--r-- | system/eumel0-z80/data/EUMEL0.DS | bin | 0 -> 30720 bytes | |||
| -rw-r--r-- | system/eumel0-z80/src/DISEUMEL.ELA | 607 | ||||
| -rw-r--r-- | system/eumel0-z80/src/eumel0.prt.1 | 3948 | ||||
| -rw-r--r-- | system/eumel0-z80/src/eumel0.prt.2 | 3957 | ||||
| -rw-r--r-- | system/eumel0-z80/src/eumel0.prt.3 | 4004 | ||||
| -rw-r--r-- | system/eumel0-z80/src/eumel0.prt.4 | 4001 |
6 files changed, 16517 insertions, 0 deletions
diff --git a/system/eumel0-z80/data/EUMEL0.DS b/system/eumel0-z80/data/EUMEL0.DS Binary files differnew file mode 100644 index 0000000..8b53d98 --- /dev/null +++ b/system/eumel0-z80/data/EUMEL0.DS diff --git a/system/eumel0-z80/src/DISEUMEL.ELA b/system/eumel0-z80/src/DISEUMEL.ELA new file mode 100644 index 0000000..b1039dc --- /dev/null +++ b/system/eumel0-z80/src/DISEUMEL.ELA @@ -0,0 +1,607 @@ +PROC arith 16 :
+
+ EXTERNAL 92
+
+ENDPROC arith 16 ;
+
+BOOL OP ULSEQ (INT CONST left, right) :
+
+ (left MINUS right) <= 0
+
+ENDOP ULSEQ ;
+
+LET max words minus 1 = 32767 ; (* = max : 64K *)
+
+TEXT VAR source name , instr, parameter , t ;
+INT VAR addr , start addr, end addr , file nr , laenge, i , offset ;
+FILE VAR source file ;
+
+BOUND STRUCT (ALIGN align, ROW max words minus 1 INT word) VAR space ;
+
+TEXT VAR a, b, c;
+BOOL VAR screen mode := yes ("Bildschirmausgabe zusaetzlich") ;
+put ("Startaddr:") ;
+getline (a) ;
+put ("Endaddr :") ;
+getline (b) ;
+put ("Offset :") ;
+getline (c) ;
+resource ("eumel0", "eumel0.prt", a, b, c) ;
+edit ("eumel0.prt") ;
+
+
+PROC resource (TEXT CONST code space name, source file name,
+ TEXT CONST from, to, offs) :
+
+ space := old (code space name) ;
+ start addr := integer (from) ;
+ end addr := integer (to) ;
+ offset := integer (offs) ;
+ source name := source file name ;
+ file nr := 1 ;
+ forget (source name, quiet) ;
+ source file := sequential file (output, source name) ;
+
+ source putline ("ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT") ;
+ put tabs (source file, 40 * ""2"" + "^") ;
+ addr := start addr ;
+ line ;
+ WHILE addr ULSEQ end addr REP
+ IF online THEN out (hex16 (addr)) ;
+ out (""13"") ;
+ FI ;
+ source put (hex16 (addr)) ;
+ disass ;
+ FOR i FROM 1 UPTO laenge REP
+ source put (hex8 (zugriff (addr PLUS (i-1))))
+ PER ;
+ FOR i FROM laenge UPTO 3 REP
+ source put (" ")
+ PER ;
+ t := "" ;
+ FOR i FROM 1 UPTO laenge REP
+ t CAT ascii (zugriff (addr PLUS (i-1)))
+ PER ;
+ source put (t, 5) ;
+ source put (instr, 5) ;
+ source put (parameter, 10) ;
+ source line ;
+ addr := addr PLUS laenge ;
+ PER ;
+ENDPROC resource ;
+
+INT OP PLUS (INT CONST left, right) :
+ arith16 ;
+ left + right
+ENDOP PLUS ;
+
+INT OP MINUS (INT CONST left, right) :
+ arith16 ;
+ left - right
+ENDOP MINUS ;
+
+PROC source line :
+ check file overflow ;
+ line (source file) ;
+ IF screen mode AND online THEN line FI
+ENDPROC source line ;
+
+PROC source put (TEXT CONST text) :
+ put (source file, text) ;
+ IF screen mode AND online THEN put (text) FI
+ENDPROC source put ;
+
+PROC source out (TEXT CONST text) :
+ write (source file, text) ;
+ IF screen mode AND online THEN write (text) FI
+ENDPROC source out ;
+
+PROC source putline (TEXT CONST text) :
+ check file overflow ;
+ putline (source file, text) ;
+ IF screen mode AND online THEN putline (text) FI
+ENDPROC source putline ;
+
+PROC source put (TEXT CONST text, INT CONST laenge) :
+ source put (text + (laenge - length (text)) * " ") ;
+ENDPROC source put ;
+
+PROC check file overflow :
+ TEXT VAR new name ;
+ IF lines (source file) > 4000 THEN
+ file nr INCR 1 ;
+ new name := source name + "." + text (file nr) ;
+ line (source file) ;
+ putline (source file," - Fortsetzung in Datei """ + new name + """ -");
+ IF screen mode AND online THEN putline ("New FILE:" + new name) FI ;
+ modify (source file) ;
+ to first record (source file) ;
+ forget (new name, quiet) ;
+ source file := sequentialfile (output, new name) ;
+ source putline ("ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT") ;
+ put tabs (source file, 40 * ""2"" + "^")
+ FI
+ENDPROC check file overflow ;
+
+TEXT PROC hex16 (INT CONST nr) :
+ INT VAR i, var := nr ;
+ TEXT VAR result := "" ;
+ FOR i FROM 1 UPTO 4 REP
+ rotate (var, 4) ;
+ result CAT hex4 (var AND 15)
+ PER ;
+ result
+ENDPROC hex16 ;
+
+TEXT PROC hex8 (INT CONST nr) :
+ hex4 (nr DIV 16) + hex4 (nr AND 15)
+ENDPROC hex8 ;
+
+TEXT PROC hex4 (INT CONST nr) :
+ "0123456789ABCDEF" SUB (nr+1)
+ENDPROC hex4 ;
+
+TEXT PROC ascii (INT CONST nr) :
+ IF nr < 32 OR nr > 126 THEN "."
+ ELSE code (nr)
+ FI
+ENDPROC ascii ;
+
+INT PROC zugriff (INT CONST adr) :
+ TEXT VAR t := " " ;
+ INT VAR index := offset PLUS adr MINUS startaddr ;
+ rotate (index, -1) ; (* Signed DIV 2 *)
+ index := index AND maxint ;
+ BOOL CONST low byte :: ((adr MINUS start addr) AND 1) = 0 ;
+ replace (t, 1, space.word (index PLUS 1)) ;
+ IF low byte THEN code (t SUB 1)
+ ELSE code (t SUB 2)
+ FI
+ENDPROC zugriff ;
+
+INT PROC integer (TEXT CONST hex addr) :
+ INT VAR i, summe := 0 ;
+ FOR i FROM 1 UPTO length (hex addr) REP
+ rotate (summe, 4) ;
+ summe INCR digit
+ PER ;
+ summe .
+
+digit :
+ TEXT CONST char := hex addr SUB i ;
+ IF char >= "a" THEN code (char) - 87
+ ELIF char >= "A" THEN code (char) - 55
+ ELSE code (char) - 48
+ FI
+ENDPROC integer ;
+
+INT VAR byte,
+ div 8,
+ and 7,
+ and f,
+ div 10,
+ int addr ;
+
+TEXT VAR index, c byte ;
+
+TEXT PROC arith log :
+ SELECT div 8 OF
+ CASE 0 : "ADD"
+ CASE 1 : "ADC"
+ CASE 2 : "SUB"
+ CASE 3 : "SBC"
+ CASE 4 : "AND"
+ CASE 5 : "XOR"
+ CASE 6 : "OR"
+ CASE 7 : "CP"
+ OTHERWISE "???"
+ ENDSELECT
+
+ENDPROC arith log;
+
+TEXT PROC reg1 :
+ SELECT div8 OF
+ CASE 0 : "B"
+ CASE 1 : "C"
+ CASE 2 : "D"
+ CASE 3 : "E"
+ CASE 4 : "H"
+ CASE 5 : "L"
+ CASE 6 : "(HL)"
+ CASE 7 : "A"
+ OTHERWISE "???"
+ ENDSELECT
+
+ENDPROC reg1;
+
+TEXT PROC reg2 :
+ SELECT and7 OF
+ CASE 0 : "B"
+ CASE 1 : "C"
+ CASE 2 : "D"
+ CASE 3 : "E"
+ CASE 4 : "H"
+ CASE 5 : "L"
+ CASE 6 : "(HL)"
+ CASE 7 : "A"
+ OTHERWISE "???"
+ ENDSELECT
+
+ENDPROC reg2;
+
+TEXT PROC rp:
+ SELECT div10 AND 3 OF
+ CASE 0 : "BC"
+ CASE 1 : "DE"
+ CASE 2 : "HL"
+ CASE 3 : IF byte > 127 THEN "AF"
+ ELSE "SP" FI
+ OTHERWISE "???"
+ ENDSELECT
+
+ENDPROC rp;
+
+
+PROC bitmanipulation :
+ parameter := text (div8) + "," + reg2 ;
+ laenge := 2 ;
+ SELECT byte DIV 64 OF
+ CASE 1 : instr := "BIT"
+ CASE 2 : instr := "RES"
+ CASE 3 : instr := "SET"
+ OTHERWISE laenge := 1 ;
+ parameter := ""
+ ENDSELECT
+
+ENDPROC bitmanipulation;
+
+
+PROC disass :
+ laenge := 1 ;
+ instr := "" ;
+ parameter := "" ;
+ int addr := addr ;
+ byte := zugriff (int addr) ;
+ c byte := code (byte) ;
+ and 7 := byte AND 7 ;
+ and f := byte AND 15 ;
+ div 10:= byte DIV 16 ;
+ div 8 := (byte DIV 8) AND 7 ;
+ IF is special instruction
+ THEN disass special instruction
+ ELIF div 10 < 4
+ THEN lower case instruction
+ ELIF byte < 128
+ THEN ld instruction
+ ELIF byte < 192
+ THEN arith log instruction
+ ELSE higher case instruction
+ FI.
+
+is special instruction :
+ pos (special instruction codes, c byte) > 0 .
+
+special instruction codes :
+ ""0""2""7""8""10""15""16""18""23""24""26""31""32""34""39""40""42""47""48""50
+ ""55""56""58""63""118""195""198""201""203""205""206""211""214""217""219
+ ""221""222""227""230""233""235""237""238""243""246""249""251""253""254"".
+
+arith log instruction :
+ instr := arith log ;
+ parameter := reg 2 .
+
+ld instruction :
+ instr := "LD" ;
+ parameter := reg 1 + "," + reg 2 .
+
+condition code :
+ SELECT div8 OF
+ CASE 0 : "NZ"
+ CASE 1 : "Z"
+ CASE 2 : "NC"
+ CASE 3 : "C"
+ CASE 4 : "PO"
+ CASE 5 : "PE"
+ CASE 6 : "P"
+ CASE 7 : "M"
+ OTHERWISE "??"
+ ENDSELECT.
+
+lower case instruction :
+ IF and f = 1 THEN instr := "LD" ;
+ parameter := rp + "," + next word ;
+ laenge := 3
+ ELIF and f = 3 THEN instr := "INC" ;
+ parameter := rp ;
+ ELIF and 7 = 4 THEN instr := "INC" ;
+ parameter := reg1
+ ELIF and 7 = 5 THEN instr := "DEC" ;
+ parameter := reg1
+ ELIF and 7 = 6 THEN instr := "LD" ;
+ parameter := reg1 + "," + next byte ;
+ laenge := 2
+ ELIF and f = 9 THEN instr := "ADD" ;
+ parameter := "HL," + rp ;
+ ELIF and f =11 THEN instr := "DEC" ;
+ parameter := rp
+ FI.
+
+higher case instruction :
+ SELECT and 7 OF
+ CASE 0 : instr := "RET" ;
+ parameter := condition code
+ CASE 1 : instr := "POP" ;
+ parameter := rp
+ CASE 2 : instr := "JP" ;
+ parameter := condition code + "," + next word ;
+ laenge := 3
+ CASE 4 : instr := "CALL" ;
+ parameter := condition code + "," + next word ;
+ laenge := 3
+ CASE 5 : instr := "PUSH" ;
+ parameter := rp
+ CASE 7 : instr := "RST" ;
+ parameter := hex8 (8 * div 8)
+ ENDSELECT.
+
+
+branchaddress :
+ hex16 (addr PLUS displacement) .
+
+displacement :
+ IF zugriff (int addr PLUS 1) < 128
+ THEN zugriff (int addr PLUS 1) + 2
+ ELSE zugriff (int addr PLUS 1) - 254
+ FI.
+
+cb instructions :
+ byte := zugriff (addr PLUS 1) ;
+ and 7 := byte AND 7 ;
+ and f := byte AND 15 ;
+ div 10:= byte DIV 16 ;
+ div 8 := (byte DIV 8) AND 7 ;
+ laenge := 2 ;
+ parameter := reg 2 ;
+ IF byte < 64 THEN
+ SELECT div 8 OF
+ CASE 0 : instr := "RLC"
+ CASE 1 : instr := "RRC"
+ CASE 2 : instr := "RL"
+ CASE 3 : instr := "RR"
+ CASE 4 : instr := "SLA"
+ CASE 5 : instr := "SRA"
+ CASE 6 : instr := "" ; parameter := "" ; laenge := 1
+ CASE 7 : instr := "SLR"
+ OTHERWISE laenge := 1 ; parameter := ""
+ ENDSELECT
+ ELSE
+ bitmanipulation
+ FI .
+
+
+disass special instruction :
+ SELECT byte OF
+ CASE 0 : instr := "NOP"
+ CASE 2 : instr := "LD" ; parameter := "(BC),A"
+ CASE 7 : instr := "RLCA"
+ CASE 8 : instr := "EX" ; parameter := "AF,AF'"
+ CASE 10 : instr := "LD" ; parameter := "A,(BC)"
+ CASE 15 : instr := "RRCA"
+ CASE 16 : instr := "DJNZ" ; parameter := branchaddress ; laenge:=2
+ CASE 18 : instr := "LD" ; parameter := "(DE),A"
+ CASE 23 : instr := "RLA"
+ CASE 24 : instr := "JR" ; parameter := branchaddress ; laenge:=2
+ CASE 26 : instr := "LD" ; parameter := "A,(DE)"
+ CASE 31 : instr := "RRA"
+ CASE 32 : instr := "JR" ; parameter := "NZ," + branchaddress;laenge:=2
+ CASE 34 : instr := "LD" ; parameter := "("+nextword+"),HL"; laenge:=3
+ CASE 39 : instr := "DAA"
+ CASE 40 : instr := "JR" ; parameter := "Z," + branchaddress; laenge:=2
+ CASE 42 : instr := "LD" ; parameter := "HL,("+nextword+")"; laenge:=3
+ CASE 47 : instr := "CPL"
+ CASE 48 : instr := "JR" ; parameter := "NC," + branchaddress;laenge:=2
+ CASE 50 : instr := "LD" ; parameter := "("+nextword+"),A"; laenge:=3
+ CASE 55 : instr := "SCF"
+ CASE 56 : instr := "JR" ; parameter := "C," + branchaddress; laenge:=2
+ CASE 58 : instr := "LD" ; parameter := "A,("+nextword+")"; laenge:=3
+ CASE 63 : instr := "CCF"
+ CASE 118: instr := "HALT"
+ CASE 195: instr := "JP" ; parameter := next word ; laenge:=3
+ CASE 198: instr := "ADD" ; parameter := "A,"+next byte; laenge:=2
+ CASE 201: instr := "RET"
+ CASE 203: cb instructions
+ CASE 205: instr := "CALL" ; parameter := next word; laenge := 3
+ CASE 206: instr := "ADC" ; parameter := "A," + next byte ; laenge := 2
+ CASE 211: instr := "OUT" ; parameter := "("+next byte+"),A";laenge:=2
+ CASE 214: instr := "SUB" ; parameter := "A,"+next byte;laenge := 2
+ CASE 217: instr := "EXX"
+ CASE 219: instr := "IN" ; parameter := "A,(" + next byte+")";laenge := 2
+ CASE 221: index := "IX"; dd and fd instructions
+ CASE 222: instr := "SBC" ; parameter := "A," + next byte ;laenge := 2
+ CASE 227: instr := "EX"; parameter := "(SP),HL"
+ CASE 230: instr := "AND" ; parameter := next byte; laenge := 2
+ CASE 233: instr := "JP" ; parameter := "(HL)"
+ CASE 235: instr := "EX" ; parameter := "DE,HL"
+ CASE 237: ed instructions
+ CASE 238: instr := "XOR" ; parameter := next byte ; laenge := 2
+ CASE 243: instr := "DI"
+ CASE 246: instr := "OR" ; parameter := next byte ; laenge := 2
+ CASE 249: instr := "LD" ; parameter := "SP,HL"
+ CASE 251: instr := "EI"
+ CASE 253: index := "IY"; dd and fd instructions
+ CASE 254: instr := "CP" ; parameter := next byte ; laenge := 2
+ ENDSELECT.
+
+ENDPROC disass ;
+
+PROC dd and fd instructions :
+ laenge := 2 ;
+ int addr := addr PLUS 1 ;
+ byte := zugriff (int addr) ;
+ c byte := code (byte) ;
+ and 7 := byte AND 7 ;
+ and f := byte AND 15 ;
+ div 10:= byte DIV 16 ;
+ div 8 := (byte DIV 8) AND 7 ;
+ SELECT byte OF
+ CASE 33 : instr := "LD" ; parameter := index+","+next word;laenge:=4
+ CASE 34 : instr := "LD" ; parameter:="("+next word+"),"+index;laenge:=4
+ CASE 35 : instr := "INC" ; parameter := index
+ CASE 42 : instr := "LD" ; parameter:=index+",("+next word+")";laenge:=4
+ CASE 43 : instr := "DEC" ; parameter := index
+ CASE 52 : instr := "INC";parameter:="("+index+"+"+nextbyte+")";laenge:=3
+ CASE 53 : instr := "DEC";parameter:="("+index+"+"+nextbyte+")";laenge:=3;
+ CASE 54 : instr := "LD" ; parameter :="("+index+"+"+next byte+"),"+
+ hex8(zugriff (addr PLUS 3));laenge := 4
+ CASE 203: dd and fd cb instructions
+ CASE 225: instr := "POP" ; parameter := index
+ CASE 227: instr := "EX" ; parameter := "(SP)," + index
+ CASE 229: instr := "PUSH" ; parameter := index
+ CASE 233: instr := "JP" ; parameter := "(" + index + ")"
+ CASE 249: instr := "LD" ; parameter := "SP," + index
+ OTHERWISE calculated dd and fd instructions
+ ENDSELECT.
+
+calculated dd and fd instructions :
+ parameter := "(" + index + "+" + next byte + ")" ;
+ laenge := 3 ;
+ IF andf = 9 THEN instr := "ADD" ; parameter := index+","+rp;laenge:=2
+ ELIF and7 = 6 AND div 10 > 3 AND div 10 < 8
+ THEN instr := "LD" ; parameter := reg1 + "," + parameter
+ ELIF div 10 = 7 AND byte <> 118
+ THEN instr := "LD" ; parameter CAT "," + reg2
+ ELIF and7 = 6 AND div 10 > 7 AND div 10 < 12
+ THEN instr := arith log
+ ELSE laenge := 1 ;
+ parameter := ""
+ FI.
+
+dd and fd cb instructions :
+ int addr := addr PLUS 3 ;
+ byte := zugriff (int addr) ;
+ c byte := code (byte) ;
+ and 7 := byte AND 7 ;
+ and f := byte AND 15 ;
+ div 10:= byte DIV 16 ;
+ div 8 := (byte DIV 8) AND 7 ;
+ IF byte < 64 AND and7 = 6 THEN
+ laenge := 4 ;
+ parameter := "("+index + "+" + hex8 (zugriff (addr PLUS 2)) + ")" ;
+ SELECT div 8 OF
+ CASE 0 : instr := "RLC"
+ CASE 1 : instr := "RRC"
+ CASE 2 : instr := "RL"
+ CASE 3 : instr := "RR"
+ CASE 4 : instr := "SLA"
+ CASE 5 : instr := "SRA"
+ CASE 7 : instr := "SRL"
+ OTHERWISE instr := "" ; parameter := "" ;laenge := 1
+ ENDSELECT
+ ELIF and7 = 6 THEN laenge := 4 ; parameter := "(" + index + "+"
+ + hex8 (zugriff (addr PLUS 2)) + ")" ;
+ dd and fd bitmanipulation
+ ELSE laenge := 1 ;
+ parameter := ""
+ FI.
+
+dd and fd bitmanipulation :
+ parameter := text (div8) + "," + parameter ;
+ SELECT byte DIV 64 OF
+ CASE 1 : instr := "BIT"
+ CASE 2 : instr := "RES"
+ CASE 3 : instr := "SET"
+ OTHERWISE laenge := 1 ;
+ parameter := ""
+ ENDSELECT.
+
+ENDPROC dd and fd instructions ;
+
+PROC ed instructions :
+ int addr := addr PLUS 1 ;
+ byte := zugriff (int addr) ;
+ c byte := code (byte) ;
+ and 7 := byte AND 7 ;
+ and f := byte AND 15 ;
+ div 10:= byte DIV 16 ;
+ div 8 := (byte DIV 8) AND 7 ;
+ laenge := 2 ;
+ SELECT byte OF
+ CASE 52 : instr := "TST" ; parameter := "(HL)"
+ CASE 68 : instr := "NEG"
+ CASE 69 : instr := "RETN"
+ CASE 70 : instr := "IM" ; parameter := "0"
+ CASE 71 : instr := "LD" ; parameter := "I,A"
+ CASE 77 : instr := "RETI"
+ CASE 79 : instr := "LD" ; parameter := "R,A"
+ CASE 86 : instr := "IM" ; parameter := "1"
+ CASE 87 : instr := "LD" ; parameter := "A,I"
+ CASE 94 : instr := "IM" ; parameter := "2"
+ CASE 95 : instr := "LD" ; parameter := "A,R"
+ CASE 100: instr := "TST" ; parameter := next byte ; laenge := 3
+ CASE 103: instr := "RRD"
+ CASE 111: instr := "RLD"
+ CASE 116: instr := "TSTIO" ; parameter := next byte ; laenge := 3
+ CASE 118: instr := "SLP"
+ CASE 131: instr := "OTIM"
+ CASE 139: instr := "OTDM"
+ CASE 147: instr := "OTIMR"
+ CASE 155: instr := "OTDMR"
+ CASE 171: instr := "OUTD"
+ CASE 163: instr := "OUTI"
+ CASE 179: instr := "OTIR"
+ CASE 187: instr := "OTDR"
+ OTHERWISE calculate ed instruction
+ ENDSELECT.
+
+calculate ed instruction :
+ IF is 40 to 7f THEN
+ IF and7 = 0 THEN instr := "IN" ; parameter := reg1 + ",(C)"
+ ELIF and7 = 1 THEN instr := "OUT" ; parameter := "(C)," + reg1
+ ELIF andf = 2 THEN instr := "SBC" ; parameter := "HL," + rp
+ ELIF andf = 3 THEN instr := "LD" ; parameter := "("+nextword+"),"+rp;
+ laenge := 4
+ ELIF andf =11 THEN instr := "LD" ; parameter := rp+",("+nextword+")";
+ laenge := 4
+ ELIF andf =10 THEN instr := "ADC" ; parameter := "HL," + rp
+ ELIF andf =12 THEN instr := "MLT" ; parameter := rp
+ ELSE laenge := 1
+ FI
+ ELIF byte < 64 THEN
+ IF and7 = 0 THEN instr := "IN0" ; parameter := reg1 + ",(" + next
+ byte + ")" ; laenge := 3
+ ELIF and7 = 1 THEN instr := "OUT0" ; parameter := "(" + next word +
+ ")," + reg1 ; laenge := 3
+ ELIF and7 = 4 THEN instr := "TST" ; parameter := reg1
+ ELSE laenge := 1
+ FI
+ ELIF div10 = 10 OR div10 = 11 THEN
+ IF and7 = 0 THEN instr := "LD" + modification
+ ELIF and7 = 1 THEN instr := "CP" + modification
+ ELIF and7 = 2 THEN instr := "IN" + modification
+ ELSE laenge := 1
+ FI
+ ELSE laenge := 1
+ FI.
+
+is 40 to 7f :
+ div 10 < 8 AND div 10 > 3.
+
+modification :
+ SELECT div8 - 4 OF
+ CASE 0 : "I"
+ CASE 1 : "D"
+ CASE 2 : "IR"
+ CASE 3 : "DR"
+ OTHERWISE "???"
+ ENDSELECT.
+
+ENDPROC ed instructions ;
+
+TEXT PROC next word :
+ hex8 (zugriff (int addr PLUS 2)) + hex8 (zugriff (int addr PLUS 1))
+ENDPROC next word ;
+
+TEXT PROC next byte :
+ hex8 (zugriff (int addr PLUS 1))
+ENDPROC next byte
+
diff --git a/system/eumel0-z80/src/eumel0.prt.1 b/system/eumel0-z80/src/eumel0.prt.1 new file mode 100644 index 0000000..244dcbe --- /dev/null +++ b/system/eumel0-z80/src/eumel0.prt.1 @@ -0,0 +1,3948 @@ +ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT
+
+1400 45 E LD B,L ; "EUMEL " (16 chars)
+1401 55 U LD D,L
+1402 4D M LD C,L
+1403 45 E LD B,L
+1404 4C L LD C,H
+1405 20 20 JR NZ,1427
+1407 20 20 JR NZ,1429
+1409 20 20 JR NZ,142B
+140B 20 20 JR NZ,142D
+140D 20 20 JR NZ,142F
+140F 20
+1410 3A 00 ; eumel0blocks (58)
+1412 D6 06 .. SUB A,06 ; mind. hgversion (1750) ID(0)
+1414 01 00 ; cputype: z80 (1) ID(1)
+ ; 3=8086, 4=68000, 5=80286
+1416 65 00 ..e LD BC,6500 ; urladerversion (101) ID(2)
+1418 00 00 ; reserviert (0) ID(3)
+141A 05 00 ; mind shard version (5)
+141C 08 00 . NOP ; max shard version (8)
+ ; ----------- 175 Leiste ---------
+141E C3 D4 28 ..( JP 28D4 ; Systemstart 175
+1421 C3 71 1F .q. JP 1F71 ; inputinterrupt
+1424 C3 35 6E .5n JP 6E35 ; timerinterrupt
+1427 C3 E2 6D ..m JP 6DE2 ; EUMEL0 Warte aufruefen
+142A C3 5B 5E .[^ JP 5E5B ; grab Blocks
+142D C3 21 60 .!` JP 6021 ; free Blocks
+1430 C3 1C 29 ..) JP 291C ; Shutup ausfuehren
+1433 C3 09 29 ..) JP 2909 ; Info " shard" Ansprungaddresse
+1436 00 . NOP ; 1500 00 7F FF
+1437 15 . DEC D ; etc. wie 1.7.3
+1438 FF . RST 38
+1439 7F . LD A,A
+143A 00 . NOP
+143B 80 . ADD B
+143C 15 . DEC D
+143D 02 . LD (BC),A
+143E 7F . LD A,A
+143F 00 . NOP
+1440 00 . NOP
+1441 16 FD .. LD D,FD
+1443 7F . LD A,A
+1444 00 . NOP
+1445 80 . ADD B
+1446 16 FF .. LD D,FF
+1448 7F . LD A,A
+1449 00 . NOP
+144A 00 . NOP
+144B 17 . RLA
+144C 00 . NOP
+144D 7F . LD A,A
+144E 01 80 18 ... LD BC,1880
+1451 FF . RST 38
+1452 7F . LD A,A
+1453 00 . NOP
+1454 00 . NOP
+1455 19 . ADD HL,DE
+1456 00 . NOP
+1457 FF . RST 38
+1458 04 . INC B
+1459 00 . NOP
+145A 00 . NOP
+145B 31 37 35 175 LD SP,3537 ; "175 hwtest 7 (!)"
+145E 20 68 h JR NZ,14C8
+1460 77 w LD (HL),A
+1461 74 t LD (HL),H
+1462 65 e LD H,L
+1463 73 s LD (HL),E
+1464 74 t LD (HL),H
+1465 20 20 JR NZ,1487
+1467 20 37 7 JR NZ,14A0
+1469 20 28 ( JR NZ,1493
+146B 21 29 !). LD HL,CD29
+146D CD EB 6D CALL 6DEB ;---- EUMEL0-Ram Tabellen init ---
+1470 2A 36 14 *6. LD HL,(1436)
+1473 E5 . PUSH HL
+1474 21 36 14 !6. LD HL,1436
+1477 97 . SUB A
+1478 5E ^ LD E,(HL)
+1479 23 # INC HL
+147A 56 V LD D,(HL)
+147B 14 . INC D
+147C 15 . DEC D
+147D 28 09 (. JR Z,1488
+147F 23 # INC HL
+1480 01 03 00 ... LD BC,0003
+1483 ED B0 .. LDIR
+1485 3C < INC A
+1486 18 F0 .. JR 1478
+1488 D1 . POP DE
+1489 62 b LD H,D
+148A 6B k LD L,E
+148B 23 # INC HL
+148C 4E N LD C,(HL)
+148D 23 # INC HL
+148E 46 F LD B,(HL)
+148F 2B + DEC HL
+1490 EB . EX DE,HL
+1491 ED B0 .. LDIR
+1493 3D = DEC A
+1494 20 F3 . JR NZ,1489 ; Miniprozess endlosschleife
+1496 C3 A0 6D ..m JP 6DA0 ; ====== Allgemeiner Systemstart ===
+1499 31 00 A1 1.. LD SP,A100 ; Stackpointer vorlaefig setzen
+149C CD A0 28 ..( CALL 28A0 ; Limit holen
+149F ED 53 3D 1D .S=. LD (1D3D),DE
+14A3 ED 7B 3D 1D .{=. LD SP,(1D3D)
+14A7 CD FE 6D ..m CALL 6DFE
+14AA FB . EI
+14AB 3A 6E 28 :n( LD A,(286E) ; Vortest durchfuehren ?
+14AE CB 4F .O BIT 1,A
+14B0 C2 BF 15 ... JP NZ,15BF
+14B3 21 AF 82 !.. LD HL,82AF ; "EUMEL-Vortest"
+14B6 CD CA 6E ..n CALL 6ECA ; Text ausgeben
+14B9 3E 02 >. LD A,02 ; Terminalkanaele anzeigen
+14BB F5 . PUSH AF
+14BC CD 71 1E .q. CALL 1E71 ; Typ erfragen
+14BF 38 16 8. JR C,14D7
+14C1 F1 . POP AF
+14C2 F5 . PUSH AF
+14C3 16 00 .. LD D,00
+14C5 5F _ LD E,A
+14C6 21 1B 1D !.. LD HL,1D1B
+14C9 FE 0A .. CP 0A
+14CB 30 01 0. JR NC,14CE
+14CD 23 # INC HL
+14CE CD 00 4E ..N CALL 4E00
+14D1 21 19 1D !.. LD HL,1D19
+14D4 CD CA 6E ..n CALL 6ECA
+14D7 F1 . POP AF
+14D8 3C < INC A
+14D9 FE 21 .! CP 21 ; 31 Kanaele
+14DB 38 DE 8. JR C,14BB
+14DD CD E0 1C ... CALL 1CE0
+14E0 CD 8A 28 ..( CALL 288A
+14E3 22 11 1D ".. LD (1D11),HL
+14E6 ED 43 0F 1D .C.. LD (1D0F),BC
+14EA CB B8 .. RES 7,B
+14EC CB 70 .p BIT 6,B
+14EE 50 P LD D,B
+14EF 59 Y LD E,C
+14F0 28 03 (. JR Z,14F5
+14F2 01 00 00 ... LD BC,0000
+14F5 CB 21 .! SLA C
+14F7 CB 10 .. RL B
+14F9 ED 43 0D 1D .C.. LD (1D0D),BC
+14FD CB B2 .. RES 6,D
+14FF 21 40 00 !@. LD HL,0040
+1502 19 . ADD HL,DE
+1503 EB . EX DE,HL
+1504 21 00 85 !.. LD HL,8500
+1507 CD 00 4E ..N CALL 4E00
+150A 21 E8 84 !.. LD HL,84E8
+150D CD CA 6E ..n CALL 6ECA
+1510 CD A0 28 ..( CALL 28A0
+1513 21 97 82 !.. LD HL,8297
+1516 EB . EX DE,HL
+1517 B7 . OR A
+1518 ED 52 .R SBC HL,DE
+151A CB 3C .< SLR H
+151C CB 3C .< SLR H
+151E 5C \ LD E,H
+151F 16 00 .. LD D,00
+1521 21 70 85 !p. LD HL,8570
+1524 CD 00 4E ..N CALL 4E00
+1527 21 57 85 !W. LD HL,8557
+152A CD CA 6E ..n CALL 6ECA
+152D 97 . SUB A
+152E 01 05 00 ... LD BC,0005
+1531 11 00 00 ... LD DE,0000
+1534 CD A8 28 ..( CALL 28A8
+1537 CB 28 .( SRA B
+1539 CB 19 .. RR C
+153B 59 Y LD E,C
+153C 50 P LD D,B
+153D 21 1F 85 !.. LD HL,851F
+1540 3E E7 >. LD A,E7
+1542 93 . SUB E
+1543 3E 03 >. LD A,03
+1545 9A . SBC D
+1546 38 01 8. JR C,1549
+1548 23 # INC HL
+1549 CD 00 4E ..N CALL 4E00
+154C 21 08 85 !.. LD HL,8508
+154F CD CA 6E ..n CALL 6ECA
+1552 3A 6E 28 :n( LD A,(286E)
+1555 CB 47 .G BIT 0,A
+1557 20 0C . JR NZ,1565
+1559 21 DD 82 !.. LD HL,82DD
+155C CD CA 6E ..n CALL 6ECA
+155F CD F0 17 ... CALL 17F0
+1562 CD E0 1C ... CALL 1CE0
+1565 01 00 00 ... LD BC,0000
+1568 ED A1 .. CPI
+156A EA 68 15 .h. JP PE,1568
+156D 3E 01 >. LD A,01
+156F CD 06 1F ... CALL 1F06
+1572 38 4B 8K JR C,15BF
+1574 ED 7B 3D 1D .{=. LD SP,(1D3D) ; ----- Menue ausgeben --------
+1578 97 . SUB A
+1579 32 30 1D 20. LD (1D30),A
+157C 21 EE 82 !.. LD HL,82EE ; Menuetext
+157F CD CA 6E ..n CALL 6ECA ; Ausgeben
+1582 CD 9B 1C ... CALL 1C9B ; AUf Taste warten
+1585 FE 31 .1 CP 31 ; "1" Systemstart
+1587 28 36 (6 JR Z,15BF
+1589 FE 32 .2 CP 32 ; "2" Neuen HG laden
+158B CA 16 16 ... JP Z,1616
+158E FE 33 .3 CP 33 ; "3" Hardwaretest
+1590 CA 9D 16 ... JP Z,169D
+1593 FE 34 .4 CP 34 ; "4" neuen Urlader vom Archiv
+1595 28 35 (5 JR Z,15CC
+1597 FE 53 .S CP 53 ; "S" Systemstart ohne Block 0
+1599 CA 6D 14 .m. JP Z,146D ; Zur Miniprozess Schleife
+159C FE 49 .I CP 49 ; "I" Info aufrufen
+159E 20 D4 . JR NZ,1574
+15A0 DD 21 31 1D .!1. LD IX,1D31
+15A4 CD C0 1A ... CALL 1AC0
+15A7 21 46 A0 !F. LD HL,A046
+15AA 11 19 7D ..} LD DE,7D19
+15AD 01 0A 00 ... LD BC,000A
+15B0 ED B0 .. LDIR
+15B2 CD 1F 70 ..p CALL 701F ; Info aufrufen
+15B5 18 06 .. JR 15BD ; " start"
+15B7 20 73 s JR NZ,162C
+15B9 74 t LD (HL),H
+15BA 61 a LD H,C
+15BB 72 r LD (HL),D
+15BC 74 t LD (HL),H
+15BD 18 B5 .. JR 1574 ; ------- Vortest Ende -----------
+15BF DD 21 31 1D .!1. LD IX,1D31 ; Systemstart
+15C3 CD C0 1A ... CALL 1AC0 ; Block 0 laden
+15C6 CD 66 1C .f. CALL 1C66 ; Etikett testen
+15C9 C3 6D 14 .m. JP 146D ; Zur Miniprozess Schleife
+15CC DD 21 36 1D .!6. LD IX,1D36 ;-- Neuen Urlader laden ------
+15D0 CD 9F 1A ... CALL 1A9F
+15D3 21 0A 00 !.. LD HL,000A
+15D6 22 32 1D "2. LD (1D32),HL
+15D9 22 37 1D "7. LD (1D37),HL
+15DC CD 03 16 ... CALL 1603
+15DF DD 21 31 1D .!1. LD IX,1D31
+15E3 CD 03 16 ... CALL 1603
+15E6 ED 4B 10 A0 .K.. LD BC,(A010)
+15EA 21 3A 00 !:. LD HL,003A
+15ED 37 7 SCF
+15EE ED 42 .B SBC HL,BC
+15F0 30 08 0. JR NC,15FA
+15F2 21 44 00 !D. LD HL,0044
+15F5 22 3B 1D ";. LD (1D3B),HL
+15F8 18 4E .N JR 1648
+15FA 21 D4 85 !.. LD HL,85D4
+15FD CD CA 6E ..n CALL 6ECA
+1600 C3 74 15 .t. JP 1574 ; Zum Vortest Menue
+1603 CD F2 1A ... CALL 1AF2
+1606 21 00 A0 !.. LD HL,A000
+1609 11 2A 1D .*. LD DE,1D2A
+160C 01 05 00 ... LD BC,0005
+160F CD 92 1C ... CALL 1C92
+1612 C2 74 15 .t. JP NZ,1574 ; Zum Vortest Menue
+1615 C9 . RET ;-------- Neuen HG vom ARchiv ----
+1616 21 C9 84 !.. LD HL,84C9 ; "ALten HG ueberschreiben (j/n) ?"
+1619 CD CA 6E ..n CALL 6ECA
+161C CD 9B 1C ... CALL 1C9B
+161F FE 79 .y CP 79 ; "y" oder
+1621 28 05 (. JR Z,1628
+1623 FE 6A .j CP 6A ; "j" erlaubt
+1625 C2 74 15 .t. JP NZ,1574
+1628 DD 21 31 1D .!1. LD IX,1D31 ; Ueberschreiben
+162C CD 9F 1A ... CALL 1A9F
+162F CD C0 1A ... CALL 1AC0
+1632 DD 21 36 1D .!6. LD IX,1D36
+1636 CD 9F 1A ... CALL 1A9F
+1639 CD C0 1A ... CALL 1AC0
+163C CD 66 1C .f. CALL 1C66
+163F 2A 24 A0 *$. LD HL,(A024)
+1642 29 ) ADD HL,HL
+1643 29 ) ADD HL,HL
+1644 29 ) ADD HL,HL
+1645 22 3B 1D ";. LD (1D3B),HL
+1648 CD B6 1C ... CALL 1CB6
+164B DD 21 31 1D .!1. LD IX,1D31
+164F CD D1 1B ... CALL 1BD1
+1652 DD 21 36 1D .!6. LD IX,1D36
+1656 CD F2 1A ... CALL 1AF2
+1659 DD 21 31 1D .!1. LD IX,1D31
+165D CD 08 1C ... CALL 1C08
+1660 CD BA 1B ... CALL 1BBA
+1663 2A 3B 1D *;. LD HL,(1D3B)
+1666 ED 5B 32 1D .[2. LD DE,(1D32)
+166A B7 . OR A
+166B ED 52 .R SBC HL,DE
+166D CA 8F 16 ... JP Z,168F
+1670 DD 21 36 1D .!6. LD IX,1D36
+1674 CD BA 1B ... CALL 1BBA
+1677 20 CF . JR NZ,1648
+1679 21 43 84 !C. LD HL,8443
+167C CD CA 6E ..n CALL 6ECA
+167F CD 9B 1C ... CALL 1C9B
+1682 FE 79 .y CP 79 ; "y" oder
+1684 28 04 (. JR Z,168A
+1686 FE 6A .j CP 6A ; "j" erlaubt
+1688 20 EF . JR NZ,1679
+168A CD 9F 1A ... CALL 1A9F
+168D 18 B9 .. JR 1648
+168F CD E0 1C ... CALL 1CE0
+1692 CD E0 1C ... CALL 1CE0
+1695 21 B5 84 !.. LD HL,84B5
+1698 CD CA 6E ..n CALL 6ECA
+169B 18 FE .. JR 169B
+169D 3E 01 >. LD A,01 ; ------ Hardwaretest
+169F 32 30 1D 20. LD (1D30),A
+16A2 21 6C 83 !l. LD HL,836C
+16A5 CD CA 6E ..n CALL 6ECA ; Hardwaretest Menue
+16A8 21 00 00 !.. LD HL,0000
+16AB 22 F3 1C ".. LD (1CF3),HL
+16AE CD 9B 1C ... CALL 1C9B
+16B1 FE 31 .1 CP 31 ; "1" Speichertest
+16B3 CA C6 16 ... JP Z,16C6
+16B6 FE 32 .2 CP 32 ; "2" Kanaltest
+16B8 CA 7C 17 .|. JP Z,177C
+16BB FE 33 .3 CP 33
+16BD 28 12 (. JR Z,16D1 ; "3" HG Test
+16BF FE 34 .4 CP 34 ; "4" Archivtest
+16C1 28 14 (. JR Z,16D7
+16C3 C3 74 15 .t. JP 1574
+16C6 CD C2 1C ... CALL 1CC2 ; ----Speichertest
+16C9 CD F0 17 ... CALL 17F0
+16CC CD B6 1C ... CALL 1CB6
+16CF 18 F5 .. JR 16C6 ; Wiederholen
+16D1 DD 21 31 1D .!1. LD IX,1D31 ; ------- HG Test
+16D5 18 04 .. JR 16DB
+16D7 DD 21 36 1D .!6. LD IX,1D36 ; -------- Archivtest
+16DB 21 C1 83 !.. LD HL,83C1
+16DE CD CA 6E ..n CALL 6ECA
+16E1 CD 9B 1C ... CALL 1C9B
+16E4 FE 31 .1 CP 31 ; "1" Lesetest
+16E6 28 0C (. JR Z,16F4
+16E8 FE 32 .2 CP 32 ; "2" Schreiblesetest
+16EA 28 21 (! JR Z,170D
+16EC FE 33 .3 CP 33 ; "3" Positioniertest
+16EE CA 60 17 .`. JP Z,1760
+16F1 C3 74 15 .t. JP 1574 ; Zum Vortest Menue
+16F4 CD C2 1C ... CALL 1CC2
+16F7 CD E0 1C ... CALL 1CE0
+16FA CD 9F 1A ... CALL 1A9F
+16FD CD B6 1C ... CALL 1CB6
+1700 CD D1 1B ... CALL 1BD1
+1703 CD F2 1A ... CALL 1AF2
+1706 CD BA 1B ... CALL 1BBA
+1709 20 F2 . JR NZ,16FD
+170B 18 E7 .. JR 16F4
+170D CD C2 1C ... CALL 1CC2
+1710 CD E0 1C ... CALL 1CE0
+1713 CD 9F 1A ... CALL 1A9F
+1716 CD B6 1C ... CALL 1CB6
+1719 CD D1 1B ... CALL 1BD1
+171C CD F2 1A ... CALL 1AF2
+171F 21 00 A0 !.. LD HL,A000
+1722 11 00 A2 ... LD DE,A200
+1725 01 00 02 ... LD BC,0200
+1728 ED B0 .. LDIR
+172A 3E 55 >U LD A,55
+172C CD 31 1C .1. CALL 1C31
+172F 3E AA >. LD A,AA
+1731 CD 31 1C .1. CALL 1C31
+1734 21 00 A2 !.. LD HL,A200
+1737 11 00 A0 ... LD DE,A000
+173A 01 00 02 ... LD BC,0200
+173D ED B0 .. LDIR
+173F CD 08 1C ... CALL 1C08
+1742 3E 55 >U LD A,55
+1744 CD 59 1C .Y. CALL 1C59
+1747 CD ED 1B ... CALL 1BED
+174A 21 00 A0 !.. LD HL,A000
+174D 11 00 A2 ... LD DE,A200
+1750 01 00 02 ... LD BC,0200
+1753 CD 92 1C ... CALL 1C92
+1756 C4 27 1C .'. CALL NZ,1C27
+1759 CD BA 1B ... CALL 1BBA
+175C 20 B8 . JR NZ,1716
+175E 18 AD .. JR 170D
+1760 CD C2 1C ... CALL 1CC2
+1763 CD E0 1C ... CALL 1CE0
+1766 CD 9F 1A ... CALL 1A9F
+1769 CD B6 1C ... CALL 1CB6
+176C CD C0 1A ... CALL 1AC0
+176F CD D1 1B ... CALL 1BD1
+1772 CD F2 1A ... CALL 1AF2
+1775 CD BA 1B ... CALL 1BBA
+1778 20 EF . JR NZ,1769
+177A 18 E4 .. JR 1760
+177C CD C2 1C ... CALL 1CC2
+177F CD E0 1C ... CALL 1CE0
+1782 CD B6 1C ... CALL 1CB6
+1785 3E 20 > LD A,20
+1787 32 30 85 20. LD (8530),A
+178A 3E 02 >. LD A,02
+178C F5 . PUSH AF
+178D 5F _ LD E,A
+178E CD 71 1E .q. CALL 1E71
+1791 38 53 8S JR C,17E6
+1793 F1 . POP AF
+1794 F5 . PUSH AF
+1795 CD 59 1E .Y. CALL 1E59
+1798 FE 1E .. CP 1E
+179A 38 20 8 JR C,17BC
+179C 16 00 .. LD D,00
+179E 21 31 85 !1. LD HL,8531
+17A1 36 20 6 LD (HL),20
+17A3 2B + DEC HL
+17A4 CD 00 4E ..N CALL 4E00
+17A7 21 28 85 !(. LD HL,8528
+17AA 4E N LD C,(HL)
+17AB 23 # INC HL
+17AC 06 00 .. LD B,00
+17AE F1 . POP AF
+17AF F5 . PUSH AF
+17B0 59 Y LD E,C
+17B1 CD 88 21 ..! CALL 2188
+17B4 38 06 8. JR C,17BC
+17B6 09 . ADD HL,BC
+17B7 7B { LD A,E
+17B8 91 . SUB C
+17B9 4F O LD C,A
+17BA 18 F2 .. JR 17AE
+17BC F1 . POP AF
+17BD F5 . PUSH AF
+17BE CD 06 1F ... CALL 1F06
+17C1 38 23 8# JR C,17E6
+17C3 5F _ LD E,A
+17C4 16 00 .. LD D,00
+17C6 21 20 20 ! LD HL,2020
+17C9 22 55 85 "U. LD (8555),HL
+17CC 21 54 85 !T. LD HL,8554
+17CF CD 00 4E ..N CALL 4E00
+17D2 F1 . POP AF
+17D3 F5 . PUSH AF
+17D4 5F _ LD E,A
+17D5 16 00 .. LD D,00
+17D7 21 42 85 !B. LD HL,8542
+17DA 36 20 6 LD (HL),20
+17DC 2B + DEC HL
+17DD CD 00 4E ..N CALL 4E00
+17E0 21 34 85 !4. LD HL,8534
+17E3 CD CA 6E ..n CALL 6ECA
+17E6 F1 . POP AF
+17E7 3C < INC A
+17E8 FE 20 . CP 20
+17EA DA 8C 17 ... JP C,178C
+17ED C3 7C 17 .|. JP 177C
+17F0 CD A0 28 ..( CALL 28A0
+17F3 15 . DEC D
+17F4 21 DE 85 !.. LD HL,85DE
+17F7 22 E7 1C ".. LD (1CE7),HL
+17FA EB . EX DE,HL
+17FB B7 . OR A
+17FC ED 52 .R SBC HL,DE
+17FE 22 E9 1C ".. LD (1CE9),HL
+1801 EB . EX DE,HL
+1802 CB 3A .: SLR D
+1804 CB 1B .. RR E
+1806 21 03 00 !.. LD HL,0003
+1809 CD 3D 4D .=M CALL 4D3D
+180C CB 23 .# SLA E
+180E CB 12 .. RL D
+1810 ED 53 EB 1C .S.. LD (1CEB),DE
+1814 21 DE 85 !.. LD HL,85DE
+1817 11 3F 1D .?. LD DE,1D3F
+181A B7 . OR A
+181B ED 52 .R SBC HL,DE
+181D 22 ED 1C ".. LD (1CED),HL
+1820 EB . EX DE,HL
+1821 21 03 00 !.. LD HL,0003
+1824 CD 3D 4D .=M CALL 4D3D
+1827 ED 53 EF 1C .S.. LD (1CEF),DE
+182B 21 FF FF !.. LD HL,FFFF
+182E 22 F1 1C ".. LD (1CF1),HL
+1831 2A E7 1C *.. LD HL,(1CE7)
+1834 CD 12 19 ... CALL 1912
+1837 21 00 00 !.. LD HL,0000
+183A 5C \ LD E,H
+183B E5 . PUSH HL
+183C CD C9 19 ... CALL 19C9
+183F 30 0D 0. JR NC,184E
+1841 CD 12 19 ... CALL 1912
+1844 E1 . POP HL
+1845 7C | LD A,H
+1846 C6 40 .@ ADD A,40
+1848 67 g LD H,A
+1849 30 01 0. JR NC,184C
+184B 1C . INC E
+184C 18 ED .. JR 183B
+184E E1 . POP HL ; Testmuster fuer Speichertest
+184F 11 01 55 ..U LD DE,5501
+1852 CD 22 19 .". CALL 1922
+1855 11 02 55 ..U LD DE,5502
+1858 CD 22 19 .". CALL 1922
+185B 11 00 AA ... LD DE,AA00
+185E CD 22 19 .". CALL 1922
+1861 11 01 55 ..U LD DE,5501
+1864 CD 7A 19 .z. CALL 197A
+1867 11 01 AA ... LD DE,AA01
+186A CD 22 19 .". CALL 1922
+186D 11 02 55 ..U LD DE,5502
+1870 CD 7A 19 .z. CALL 197A
+1873 11 00 AA ... LD DE,AA00
+1876 CD 7A 19 .z. CALL 197A
+1879 11 01 AA ... LD DE,AA01
+187C CD 7A 19 .z. CALL 197A
+187F 11 00 55 ..U LD DE,5500
+1882 CD 22 19 .". CALL 1922
+1885 11 00 55 ..U LD DE,5500
+1888 CD 7A 19 .z. CALL 197A
+188B 11 02 AA ... LD DE,AA02
+188E CD 22 19 .". CALL 1922
+1891 11 02 AA ... LD DE,AA02
+1894 CD 7A 19 .z. CALL 197A
+1897 2A E9 1C *.. LD HL,(1CE9)
+189A ED 5B ED 1C .[.. LD DE,(1CED)
+189E B7 . OR A
+189F ED 52 .R SBC HL,DE
+18A1 38 5D 8] JR C,1900
+18A3 F3 . DI
+18A4 21 3F 1D !?. LD HL,1D3F
+18A7 ED 5B E7 1C .[.. LD DE,(1CE7)
+18AB CD 1B 1A ... CALL 1A1B
+18AE 11 01 55 ..U LD DE,5501
+18B1 CD 07 1A ... CALL 1A07
+18B4 11 02 55 ..U LD DE,5502
+18B7 CD 07 1A ... CALL 1A07
+18BA 11 00 AA ... LD DE,AA00
+18BD CD 07 1A ... CALL 1A07
+18C0 11 01 55 ..U LD DE,5501
+18C3 CD 11 1A ... CALL 1A11
+18C6 11 01 AA ... LD DE,AA01
+18C9 CD 07 1A ... CALL 1A07
+18CC 11 02 55 ..U LD DE,5502
+18CF CD 11 1A ... CALL 1A11
+18D2 11 00 AA ... LD DE,AA00
+18D5 CD 11 1A ... CALL 1A11
+18D8 11 01 AA ... LD DE,AA01
+18DB CD 11 1A ... CALL 1A11
+18DE 11 00 55 ..U LD DE,5500
+18E1 CD 07 1A ... CALL 1A07
+18E4 11 00 55 ..U LD DE,5500
+18E7 CD 11 1A ... CALL 1A11
+18EA 11 02 AA ... LD DE,AA02
+18ED CD 07 1A ... CALL 1A07
+18F0 11 02 AA ... LD DE,AA02
+18F3 CD 11 1A ... CALL 1A11
+18F6 2A E7 1C *.. LD HL,(1CE7)
+18F9 11 3F 1D .?. LD DE,1D3F
+18FC CD 1B 1A ... CALL 1A1B
+18FF FB . EI
+1900 CD E0 1C ... CALL 1CE0
+1903 3A E6 1C :.. LD A,(1CE6)
+1906 B7 . OR A
+1907 C8 . RET Z
+1908 ED 7B 3D 1D .{=. LD SP,(1D3D)
+190C CD E0 1C ... CALL 1CE0
+190F C3 2B 18 .+. JP 182B
+1912 06 05 .. LD B,05
+1914 97 . SUB A
+1915 57 W LD D,A
+1916 77 w LD (HL),A
+1917 7E ~ LD A,(HL)
+1918 BA . CP D
+1919 C4 31 1A .1. CALL NZ,1A31
+191C 3C < INC A
+191D 20 F6 . JR NZ,1915
+191F 10 F3 .. DJNZ 1914
+1921 C9 . RET
+1922 2A E7 1C *.. LD HL,(1CE7)
+1925 ED 4B EB 1C .K.. LD BC,(1CEB)
+1929 CD 51 19 .Q. CALL 1951
+192C 26 00 &. LD H,00
+192E 6B k LD L,E
+192F 1E 00 .. LD E,00
+1931 E5 . PUSH HL
+1932 CD C9 19 ... CALL 19C9
+1935 30 0F 0. JR NC,1946
+1937 7D } LD A,L
+1938 72 r LD (HL),D
+1939 C6 03 .. ADD A,03
+193B 6F o LD L,A
+193C 30 FA 0. JR NC,1938
+193E E1 . POP HL
+193F 6F o LD L,A
+1940 24 $ INC H
+1941 20 EE . JR NZ,1931
+1943 1C . INC E
+1944 18 EB .. JR 1931
+1946 CD 6D 19 .m. CALL 196D
+1949 21 0B 1D !.. LD HL,1D0B
+194C CD CA 6E ..n CALL 6ECA
+194F E1 . POP HL
+1950 C9 . RET
+1951 D5 . PUSH DE
+1952 79 y LD A,C
+1953 B7 . OR A
+1954 28 01 (. JR Z,1957
+1956 04 . INC B
+1957 79 y LD A,C
+1958 48 H LD C,B
+1959 47 G LD B,A
+195A 7A z LD A,D
+195B 16 00 .. LD D,00
+195D 19 . ADD HL,DE
+195E 11 03 00 ... LD DE,0003
+1961 77 w LD (HL),A
+1962 19 . ADD HL,DE
+1963 10 FC .. DJNZ 1961
+1965 0D . DEC C
+1966 20 F9 . JR NZ,1961
+1968 D1 . POP DE
+1969 CD 6D 19 .m. CALL 196D
+196C C9 . RET
+196D F5 . PUSH AF
+196E C5 . PUSH BC
+196F 3E 00 >. LD A,00
+1971 06 64 .d LD B,64
+1973 ED 4F .O LD R,A
+1975 10 FC .. DJNZ 1973
+1977 C1 . POP BC
+1978 F1 . POP AF
+1979 C9 . RET
+197A 2A E7 1C *.. LD HL,(1CE7)
+197D ED 4B EB 1C .K.. LD BC,(1CEB)
+1981 CD A1 19 ... CALL 19A1
+1984 26 00 &. LD H,00
+1986 6B k LD L,E
+1987 5C \ LD E,H
+1988 E5 . PUSH HL
+1989 CD C9 19 ... CALL 19C9
+198C 30 B8 0. JR NC,1946
+198E 7E ~ LD A,(HL)
+198F BA . CP D
+1990 C4 31 1A .1. CALL NZ,1A31
+1993 7D } LD A,L
+1994 C6 03 .. ADD A,03
+1996 6F o LD L,A
+1997 30 F5 0. JR NC,198E
+1999 E1 . POP HL
+199A 6F o LD L,A
+199B 24 $ INC H
+199C 20 EA . JR NZ,1988
+199E 1C . INC E
+199F 18 E7 .. JR 1988
+19A1 D5 . PUSH DE
+19A2 79 y LD A,C
+19A3 B7 . OR A
+19A4 28 01 (. JR Z,19A7
+19A6 04 . INC B
+19A7 79 y LD A,C
+19A8 48 H LD C,B
+19A9 47 G LD B,A
+19AA 7A z LD A,D
+19AB 16 00 .. LD D,00
+19AD 19 . ADD HL,DE
+19AE 11 FF FF ... LD DE,FFFF
+19B1 ED 53 F1 1C .S.. LD (1CF1),DE
+19B5 57 W LD D,A
+19B6 7E ~ LD A,(HL)
+19B7 BA . CP D
+19B8 C4 31 1A .1. CALL NZ,1A31
+19BB 7D } LD A,L
+19BC C6 03 .. ADD A,03
+19BE 6F o LD L,A
+19BF 30 01 0. JR NC,19C2
+19C1 24 $ INC H
+19C2 10 F2 .. DJNZ 19B6
+19C4 0D . DEC C
+19C5 20 EF . JR NZ,19B6
+19C7 D1 . POP DE
+19C8 C9 . RET
+19C9 E5 . PUSH HL
+19CA 6C l LD L,H
+19CB 63 c LD H,E
+19CC 24 $ INC H
+19CD 22 F1 1C ".. LD (1CF1),HL
+19D0 25 % DEC H
+19D1 D5 . PUSH DE
+19D2 55 U LD D,L
+19D3 CB 3C .< SLR H
+19D5 CB 1D .. RR L
+19D7 E5 . PUSH HL
+19D8 ED 4B 0D 1D .K.. LD BC,(1D0D)
+19DC B7 . OR A
+19DD ED 42 .B SBC HL,BC
+19DF E1 . POP HL
+19E0 30 08 0. JR NC,19EA
+19E2 CD EE 19 ... CALL 19EE
+19E5 7A z LD A,D
+19E6 E6 01 .. AND 01
+19E8 B4 . OR H
+19E9 37 7 SCF
+19EA D1 . POP DE
+19EB E1 . POP HL
+19EC 67 g LD H,A
+19ED C9 . RET
+19EE 3A 10 1D :.. LD A,(1D10)
+19F1 CB 7F .. BIT 7,A
+19F3 C2 8D 28 ..( JP NZ,288D
+19F6 CB 3C .< SLR H
+19F8 CB 1D .. RR L
+19FA 7D } LD A,L
+19FB 2A 11 1D *.. LD HL,(1D11)
+19FE 30 02 0. JR NC,1A02
+1A00 CB CC .. SET 1,H
+1A02 2E 00 .. LD L,00
+1A04 C3 8D 28 ..( JP 288D
+1A07 21 3F 1D !?. LD HL,1D3F
+1A0A ED 4B EF 1C .K.. LD BC,(1CEF)
+1A0E C3 51 19 .Q. JP 1951
+1A11 21 3F 1D !?. LD HL,1D3F
+1A14 ED 4B EF 1C .K.. LD BC,(1CEF)
+1A18 C3 A1 19 ... JP 19A1
+1A1B ED 4B ED 1C .K.. LD BC,(1CED)
+1A1F ED B0 .. LDIR
+1A21 2B + DEC HL
+1A22 1B . DEC DE
+1A23 ED 4B ED 1C .K.. LD BC,(1CED)
+1A27 1A . LD A,(DE)
+1A28 ED A9 .. CPD
+1A2A 20 FE . JR NZ,1A2A
+1A2C 1B . DEC DE
+1A2D EA 27 1A .'. JP PE,1A27
+1A30 C9 . RET
+1A31 F5 . PUSH AF
+1A32 C5 . PUSH BC
+1A33 D5 . PUSH DE
+1A34 E5 . PUSH HL
+1A35 42 B LD B,D
+1A36 4F O LD C,A
+1A37 ED 5B F1 1C .[.. LD DE,(1CF1)
+1A3B CB 7A .z BIT 7,D
+1A3D 28 25 (% JR Z,1A64
+1A3F E5 . PUSH HL
+1A40 EB . EX DE,HL
+1A41 2A E7 1C *.. LD HL,(1CE7)
+1A44 B7 . OR A
+1A45 ED 52 .R SBC HL,DE
+1A47 E1 . POP HL
+1A48 38 16 8. JR C,1A60
+1A4A E5 . PUSH HL
+1A4B C5 . PUSH BC
+1A4C 11 3F 1D .?. LD DE,1D3F
+1A4F 2A E7 1C *.. LD HL,(1CE7)
+1A52 CD 1B 1A ... CALL 1A1B
+1A55 C1 . POP BC
+1A56 E1 . POP HL
+1A57 FB . EI
+1A58 3E 00 >. LD A,00
+1A5A CD 66 1A .f. CALL 1A66
+1A5D C3 08 19 ... JP 1908
+1A60 3E 00 >. LD A,00
+1A62 18 02 .. JR 1A66
+1A64 7A z LD A,D
+1A65 63 c LD H,E
+1A66 F5 . PUSH AF
+1A67 3E 01 >. LD A,01
+1A69 32 E6 1C 2.. LD (1CE6),A
+1A6C 11 D2 85 ... LD DE,85D2
+1A6F 79 y LD A,C
+1A70 CD F5 1C ... CALL 1CF5
+1A73 11 CA 85 ... LD DE,85CA
+1A76 78 x LD A,B
+1A77 CD F5 1C ... CALL 1CF5
+1A7A F1 . POP AF
+1A7B 11 BE 85 ... LD DE,85BE
+1A7E CD F5 1C ... CALL 1CF5
+1A81 7C | LD A,H
+1A82 CD F5 1C ... CALL 1CF5
+1A85 7D } LD A,L
+1A86 CD F5 1C ... CALL 1CF5
+1A89 21 B0 85 !.. LD HL,85B0
+1A8C CD CA 6E ..n CALL 6ECA
+1A8F 3E 01 >. LD A,01
+1A91 CD 06 1F ... CALL 1F06
+1A94 38 F9 8. JR C,1A8F
+1A96 FE 0D .. CP 0D
+1A98 20 F5 . JR NZ,1A8F
+1A9A E1 . POP HL
+1A9B D1 . POP DE
+1A9C C1 . POP BC
+1A9D F1 . POP AF
+1A9E C9 . RET
+1A9F DD 7E 00 .~. LD A,(IX+00)
+1AA2 01 05 00 ... LD BC,0005
+1AA5 DD E5 .. PUSH IX
+1AA7 D5 . PUSH DE
+1AA8 11 00 00 ... LD DE,0000
+1AAB CD A8 28 ..( CALL 28A8
+1AAE D1 . POP DE
+1AAF DD E1 .. POP IX
+1AB1 DD 71 03 .q. LD (IX+03),C
+1AB4 DD 70 04 .p. LD (IX+04),B
+1AB7 DD 36 01 00 .6.. LD (IX+01),00
+1ABB DD 36 02 00 .6.. LD (IX+02),00
+1ABF C9 . RET
+1AC0 21 00 A0 !.. LD HL,A000
+1AC3 11 00 00 ... LD DE,0000
+1AC6 01 00 00 ... LD BC,0000
+1AC9 DD 7E 00 .~. LD A,(IX+00)
+1ACC DD E5 .. PUSH IX
+1ACE CD 7E 28 .~( CALL 287E
+1AD1 DD E1 .. POP IX
+1AD3 0C . INC C
+1AD4 0D . DEC C
+1AD5 C8 . RET Z
+1AD6 21 00 A0 !.. LD HL,A000
+1AD9 DD 7E 00 .~. LD A,(IX+00)
+1ADC 01 00 00 ... LD BC,0000
+1ADF DD E5 .. PUSH IX
+1AE1 CD 7E 28 .~( CALL 287E
+1AE4 DD E1 .. POP IX
+1AE6 0C . INC C
+1AE7 0D . DEC C
+1AE8 C8 . RET Z
+1AE9 21 A4 84 !.. LD HL,84A4
+1AEC CD CA 6E ..n CALL 6ECA
+1AEF C3 74 15 .t. JP 1574
+1AF2 21 00 A0 !.. LD HL,A000
+1AF5 06 40 .@ LD B,40
+1AF7 3E 1E >. LD A,1E
+1AF9 77 w LD (HL),A
+1AFA 23 # INC HL
+1AFB 10 FC .. DJNZ 1AF9
+1AFD DD 5E 01 .^. LD E,(IX+01)
+1B00 DD 56 02 .V. LD D,(IX+02)
+1B03 3E 14 >. LD A,14
+1B05 F5 . PUSH AF
+1B06 21 00 A0 !.. LD HL,A000
+1B09 01 00 00 ... LD BC,0000
+1B0C DD 7E 00 .~. LD A,(IX+00)
+1B0F DD E5 .. PUSH IX
+1B11 CD 7E 28 .~( CALL 287E
+1B14 21 00 A0 !.. LD HL,A000
+1B17 06 40 .@ LD B,40
+1B19 3E 1E >. LD A,1E
+1B1B BE . CP (HL)
+1B1C 20 05 . JR NZ,1B23
+1B1E 23 # INC HL
+1B1F 10 FA .. DJNZ 1B1B
+1B21 0E 1E .. LD C,1E
+1B23 DD E1 .. POP IX
+1B25 F1 . POP AF
+1B26 0D . DEC C
+1B27 F2 32 1B .2. JP P,1B32
+1B2A FE 14 .. CP 14
+1B2C C8 . RET Z
+1B2D 21 27 84 !'. LD HL,8427
+1B30 18 4C .L JR 1B7E
+1B32 FE 0A .. CP 0A
+1B34 20 14 . JR NZ,1B4A
+1B36 D5 . PUSH DE
+1B37 F5 . PUSH AF
+1B38 21 00 A0 !.. LD HL,A000
+1B3B DD 7E 00 .~. LD A,(IX+00)
+1B3E 11 00 00 ... LD DE,0000
+1B41 DD E5 .. PUSH IX
+1B43 CD 7E 28 .~( CALL 287E
+1B46 DD E1 .. POP IX
+1B48 F1 . POP AF
+1B49 D1 . POP DE
+1B4A 3D = DEC A
+1B4B 20 B8 . JR NZ,1B05
+1B4D 21 FD FF !.. LD HL,FFFD ; -3 ist Markierung f. defekten Bl.
+1B50 22 00 A0 ".. LD (A000),HL
+1B53 21 00 A0 !.. LD HL,A000
+1B56 11 02 A0 ... LD DE,A002
+1B59 01 FE 01 ... LD BC,01FE
+1B5C ED B0 .. LDIR
+1B5E 21 31 84 !1. LD HL,8431
+1B61 3A 30 1D :0. LD A,(1D30)
+1B64 B7 . OR A
+1B65 20 17 . JR NZ,1B7E
+1B67 CD CA 6E ..n CALL 6ECA
+1B6A 21 77 85 !w. LD HL,8577
+1B6D CD CA 6E ..n CALL 6ECA
+1B70 CD 9B 1C ... CALL 1C9B
+1B73 FE 6E .n CP 6E
+1B75 CA 74 15 .t. JP Z,1574
+1B78 CD E0 1C ... CALL 1CE0
+1B7B C3 F2 1A ... JP 1AF2
+1B7E 3A 30 1D :0. LD A,(1D30)
+1B81 B7 . OR A
+1B82 28 1B (. JR Z,1B9F
+1B84 CD A6 1B ... CALL 1BA6
+1B87 21 68 84 !h. LD HL,8468
+1B8A CD CA 6E ..n CALL 6ECA
+1B8D CD 9B 1C ... CALL 1C9B
+1B90 F5 . PUSH AF
+1B91 CD E0 1C ... CALL 1CE0
+1B94 F1 . POP AF
+1B95 FE 79 .y CP 79
+1B97 28 02 (. JR Z,1B9B
+1B99 FE 6A .j CP 6A
+1B9B CC 08 1C ... CALL Z,1C08
+1B9E C9 . RET
+1B9F CD A6 1B ... CALL 1BA6
+1BA2 CD E0 1C ... CALL 1CE0
+1BA5 C9 . RET
+1BA6 E5 . PUSH HL
+1BA7 21 91 85 !.. LD HL,8591
+1BAA DD 7E 00 .~. LD A,(IX+00)
+1BAD B7 . OR A
+1BAE 28 03 (. JR Z,1BB3
+1BB0 21 95 85 !.. LD HL,8595
+1BB3 CD CA 6E ..n CALL 6ECA
+1BB6 E1 . POP HL
+1BB7 C3 CA 6E ..n JP 6ECA
+1BBA DD 5E 01 .^. LD E,(IX+01)
+1BBD DD 56 02 .V. LD D,(IX+02)
+1BC0 DD 6E 03 .n. LD L,(IX+03)
+1BC3 DD 66 04 .f. LD H,(IX+04)
+1BC6 13 . INC DE
+1BC7 DD 73 01 .s. LD (IX+01),E
+1BCA DD 72 02 .r. LD (IX+02),D
+1BCD B7 . OR A
+1BCE ED 52 .R SBC HL,DE
+1BD0 C9 . RET
+1BD1 DD 5E 01 .^. LD E,(IX+01)
+1BD4 DD 56 02 .V. LD D,(IX+02)
+1BD7 21 20 20 ! LD HL,2020
+1BDA 22 26 1D "&. LD (1D26),HL
+1BDD 22 28 1D "(. LD (1D28),HL
+1BE0 21 25 1D !%. LD HL,1D25
+1BE3 CD 00 4E ..N CALL 4E00
+1BE6 21 22 1D !". LD HL,1D22
+1BE9 CD CA 6E ..n CALL 6ECA
+1BEC C9 . RET
+1BED DD 5E 01 .^. LD E,(IX+01)
+1BF0 DD 56 02 .V. LD D,(IX+02)
+1BF3 21 00 A0 !.. LD HL,A000
+1BF6 01 00 00 ... LD BC,0000
+1BF9 DD 7E 00 .~. LD A,(IX+00)
+1BFC DD E5 .. PUSH IX
+1BFE CD 7E 28 .~( CALL 287E
+1C01 DD E1 .. POP IX
+1C03 78 x LD A,B
+1C04 B1 . OR C
+1C05 20 20 JR NZ,1C27
+1C07 C9 . RET
+1C08 06 05 .. LD B,05
+1C0A C5 . PUSH BC
+1C0B 21 00 A0 !.. LD HL,A000
+1C0E DD 5E 01 .^. LD E,(IX+01)
+1C11 DD 56 02 .V. LD D,(IX+02)
+1C14 01 00 00 ... LD BC,0000
+1C17 DD 7E 00 .~. LD A,(IX+00)
+1C1A DD E5 .. PUSH IX
+1C1C CD 81 28 ..( CALL 2881
+1C1F DD E1 .. POP IX
+1C21 79 y LD A,C
+1C22 B0 . OR B
+1C23 C1 . POP BC
+1C24 C8 . RET Z
+1C25 10 E3 .. DJNZ 1C0A
+1C27 21 08 84 !.. LD HL,8408
+1C2A CD A6 1B ... CALL 1BA6
+1C2D CD E0 1C ... CALL 1CE0
+1C30 C9 . RET
+1C31 F5 . PUSH AF
+1C32 CD 59 1C .Y. CALL 1C59
+1C35 CD 08 1C ... CALL 1C08
+1C38 3E 0F >. LD A,0F
+1C3A CD 59 1C .Y. CALL 1C59
+1C3D CD ED 1B ... CALL 1BED
+1C40 F1 . POP AF
+1C41 21 00 A0 !.. LD HL,A000
+1C44 01 00 02 ... LD BC,0200
+1C47 ED A1 .. CPI
+1C49 20 04 . JR NZ,1C4F
+1C4B EA 92 1C ... JP PE,1C92
+1C4E C9 . RET
+1C4F 21 16 84 !.. LD HL,8416
+1C52 CD CA 6E ..n CALL 6ECA
+1C55 CD E0 1C ... CALL 1CE0
+1C58 C9 . RET
+1C59 21 00 A0 !.. LD HL,A000
+1C5C 11 01 A0 ... LD DE,A001
+1C5F 01 FF 01 ... LD BC,01FF
+1C62 77 w LD (HL),A
+1C63 ED B0 .. LDIR
+1C65 C9 . RET ; ---- Korrekten Block 0 testen
+1C66 21 00 A0 !.. LD HL,A000
+1C69 11 2A 1D .*. LD DE,1D2A ; "EUMEL-"
+1C6C 01 06 00 ... LD BC,0006
+1C6F CD 92 1C ... CALL 1C92
+1C72 20 12 . JR NZ,1C86 ; "HG-ungueltig"
+1C74 21 09 A0 !.. LD HL,A009
+1C77 11 86 82 ... LD DE,8286 ;
+1C7A 01 02 00 ... LD BC,0002
+1C7D CD 92 1C ... CALL 1C92 ; Versionsnummer
+1C80 C8 . RET Z
+1C81 21 93 84 !.. LD HL,8493 ; "Falsche Version"
+1C84 18 03 .. JR 1C89
+1C86 21 85 84 !.. LD HL,8485
+1C89 CD CA 6E ..n CALL 6ECA
+1C8C CD 9B 1C ... CALL 1C9B
+1C8F C3 74 15 .t. JP 1574 ; Zum Vortest Menue
+1C92 1A . LD A,(DE) ; Zeichenkette vergleichen
+1C93 13 . INC DE
+1C94 ED A1 .. CPI
+1C96 C0 . RET NZ
+1C97 EA 92 1C ... JP PE,1C92
+1C9A C9 . RET ;----------- Auf Taste warten > A --
+1C9B 3E 01 >. LD A,01 ; Kanal 1
+1C9D CD 06 1F ... CALL 1F06 ; Auf Taste warten
+1CA0 38 F9 8. JR C,1C9B ; Warten!
+1CA2 FE 1B .. CP 1B ; ESC
+1CA4 CA 74 15 .t. JP Z,1574 ; Zum Vortest Menue
+1CA7 FE 20 . CP 20 ;
+1CA9 D8 . RET C ; < Blank zurueck
+1CAA 32 1E 1D 2.. LD (1D1E),A
+1CAD F5 . PUSH AF
+1CAE 21 1D 1D !.. LD HL,1D1D ; CRLF
+1CB1 CD CA 6E ..n CALL 6ECA ; ausgeben
+1CB4 F1 . POP AF
+1CB5 C9 . RET ;----- incharety an Kanal 1
+1CB6 3E 01 >. LD A,01
+1CB8 CD 06 1F ... CALL 1F06 ;
+1CBB D8 . RET C ; Wenn nichts da ist
+1CBC FE 1B .. CP 1B
+1CBE CA 74 15 .t. JP Z,1574 ; ESC --> Zum Vortest Menue
+1CC1 C9 . RET ; -------- Zaehlpuffer loeschen
+1CC2 21 20 20 ! LD HL,2020
+1CC5 22 AA 85 ".. LD (85AA),HL
+1CC8 22 AC 85 ".. LD (85AC),HL
+1CCB ED 5B F3 1C .[.. LD DE,(1CF3)
+1CCF 13 . INC DE
+1CD0 ED 53 F3 1C .S.. LD (1CF3),DE
+1CD4 21 A9 85 !.. LD HL,85A9
+1CD7 CD 00 4E ..N CALL 4E00 ; Dezimal -- ASCII Konvertiereung
+1CDA 21 9D 85 !.. LD HL,859D ; Puffer ausgeben
+1CDD C3 CA 6E ..n JP 6ECA
+1CE0 21 16 1D !.. LD HL,1D16 ; CRLF ausgeben
+1CE3 C3 CA 6E ..n JP 6ECA
+1CE6 00 . NOP
+1CE7 00 . NOP
+1CE8 00 . NOP
+1CE9 00 . NOP
+1CEA 00 . NOP
+1CEB 00 . NOP
+1CEC 00 . NOP
+1CED 00 . NOP
+1CEE 00 . NOP
+1CEF 00 . NOP
+1CF0 00 . NOP
+1CF1 00 . NOP
+1CF2 00 . NOP
+1CF3 00 . NOP
+1CF4 00 . NOP
+1CF5 F5 . PUSH AF ;- Byte in A Hex --> (DE),(DE+1)
+1CF6 0F . RRCA
+1CF7 0F . RRCA
+1CF8 0F . RRCA
+1CF9 0F . RRCA
+1CFA CD FE 1C ... CALL 1CFE
+1CFD F1 . POP AF
+1CFE E6 0F .. AND 0F
+1D00 C6 30 .0 ADD A,30
+1D02 FE 3A .: CP 3A
+1D04 38 02 8. JR C,1D08
+1D06 C6 07 .. ADD A,07
+1D08 12 . LD (DE),A
+1D09 13 . INC DE
+1D0A C9 . RET ; ------ Zeichentexte ------
+1D0B 01 2A 00 .*. LD BC,002A ; "*" Laenge 1
+1D0E 00 . NOP
+1D0F 00 . NOP
+1D10 00 . NOP
+1D11 00 . NOP
+1D12 00 . NOP
+1D13 00 . NOP
+1D14 01 20 02 . . LD BC,0220 ; Blank
+1D17 0A . LD A,(BC) ; CRLF
+1D18 0D . DEC C
+1D19 03 . INC BC ; ", 1"
+1D1A 2C , INC L
+1D1B 20 31 1 JR NZ,1D4E
+1D1D 04 . INC B ; Blank, CR, LF,LF
+1D1E 20 0D . JR NZ,1D2D
+1D20 0A . LD A,(BC)
+1D21 0A . LD A,(BC)
+1D22 07 . RLCA ; CR, "# "
+1D23 0D . DEC C
+1D24 23 # INC HL
+1D25 20 20 JR NZ,1D47
+1D27 20 20 JR NZ,1D49
+1D29 20 45 E JR NZ,1D70 ; "EUMEL-" HG Kennzeichen
+1D2B 55 U LD D,L
+1D2C 4D M LD C,L
+1D2D 45 E LD B,L
+1D2E 4C L LD C,H
+1D2F 2D - DEC L
+1D30 00 . NOP
+1D31 00 . NOP ; Harddisk Descriptor
+1D32 00 . NOP
+1D33 00 . NOP
+1D34 00 . NOP
+1D35 00 . NOP
+1D36 1F . RRA ; Floppy Descriptor
+1D37 00 . NOP
+1D38 00 . NOP
+1D39 00 . NOP
+1D3A 00 . NOP
+1D3B 00 . NOP
+1D3C 00 . NOP
+1D3D 00 . NOP
+1D3E 00 . NOP
+1D3F FF . RST 38 ; ====== Ende des nichtresidenten
+1D40 FF . RST 38 ; EUMEL0 Teils ==================
+1D41 FF . RST 38
+1D42 FF . RST 38
+1D43 FF . RST 38
+1D44 FF . RST 38
+1D45 FF . RST 38
+1D46 FF . RST 38
+1D47 FF . RST 38
+1D48 FF . RST 38
+1D49 FF . RST 38
+1D4A FF . RST 38
+1D4B FF . RST 38
+1D4C FF . RST 38
+1D4D FF . RST 38
+1D4E FF . RST 38
+1D4F FF . RST 38
+1D50 FF . RST 38
+1D51 FF . RST 38
+1D52 FF . RST 38
+1D53 FF . RST 38
+1D54 FF . RST 38
+1D55 FF . RST 38
+1D56 FF . RST 38
+1D57 FF . RST 38
+1D58 FF . RST 38
+1D59 FF . RST 38
+1D5A FF . RST 38
+1D5B FF . RST 38
+1D5C FF . RST 38
+1D5D FF . RST 38
+1D5E FF . RST 38
+1D5F FF . RST 38
+1D60 FF . RST 38
+1D61 FF . RST 38
+1D62 FF . RST 38
+1D63 FF . RST 38
+1D64 FF . RST 38
+1D65 FF . RST 38
+1D66 FF . RST 38
+1D67 FF . RST 38
+1D68 FF . RST 38
+1D69 FF . RST 38
+1D6A FF . RST 38
+1D6B FF . RST 38
+1D6C FF . RST 38
+1D6D FF . RST 38
+1D6E FF . RST 38
+1D6F FF . RST 38
+1D70 FF . RST 38
+1D71 FF . RST 38
+1D72 FF . RST 38
+1D73 FF . RST 38
+1D74 FF . RST 38
+1D75 FF . RST 38
+1D76 FF . RST 38
+1D77 FF . RST 38
+1D78 FF . RST 38
+1D79 FF . RST 38
+1D7A FF . RST 38
+1D7B FF . RST 38
+1D7C FF . RST 38
+1D7D FF . RST 38
+1D7E FF . RST 38
+1D7F FF . RST 38
+1D80 FF . RST 38
+1D81 FF . RST 38
+1D82 FF . RST 38
+1D83 FF . RST 38
+1D84 FF . RST 38
+1D85 FF . RST 38
+1D86 FF . RST 38
+1D87 FF . RST 38
+1D88 FF . RST 38
+1D89 FF . RST 38
+1D8A FF . RST 38
+1D8B FF . RST 38
+1D8C FF . RST 38
+1D8D FF . RST 38
+1D8E FF . RST 38
+1D8F FF . RST 38
+1D90 FF . RST 38
+1D91 FF . RST 38
+1D92 FF . RST 38
+1D93 FF . RST 38
+1D94 FF . RST 38
+1D95 FF . RST 38
+1D96 FF . RST 38
+1D97 FF . RST 38
+1D98 FF . RST 38
+1D99 FF . RST 38
+1D9A FF . RST 38
+1D9B FF . RST 38
+1D9C FF . RST 38
+1D9D FF . RST 38
+1D9E FF . RST 38
+1D9F FF . RST 38
+1DA0 FF . RST 38
+1DA1 FF . RST 38
+1DA2 FF . RST 38
+1DA3 FF . RST 38
+1DA4 FF . RST 38
+1DA5 FF . RST 38
+1DA6 FF . RST 38
+1DA7 FF . RST 38
+1DA8 FF . RST 38
+1DA9 FF . RST 38
+1DAA FF . RST 38
+1DAB FF . RST 38
+1DAC FF . RST 38
+1DAD FF . RST 38
+1DAE FF . RST 38
+1DAF FF . RST 38
+1DB0 FF . RST 38
+1DB1 FF . RST 38
+1DB2 FF . RST 38
+1DB3 FF . RST 38
+1DB4 FF . RST 38
+1DB5 FF . RST 38
+1DB6 FF . RST 38
+1DB7 FF . RST 38
+1DB8 FF . RST 38
+1DB9 FF . RST 38
+1DBA FF . RST 38
+1DBB FF . RST 38
+1DBC FF . RST 38
+1DBD FF . RST 38
+1DBE FF . RST 38
+1DBF FF . RST 38
+1DC0 FF . RST 38
+1DC1 FF . RST 38
+1DC2 FF . RST 38
+1DC3 FF . RST 38
+1DC4 FF . RST 38
+1DC5 FF . RST 38
+1DC6 FF . RST 38
+1DC7 FF . RST 38
+1DC8 FF . RST 38
+1DC9 FF . RST 38
+1DCA FF . RST 38
+1DCB FF . RST 38
+1DCC FF . RST 38
+1DCD FF . RST 38
+1DCE FF . RST 38
+1DCF FF . RST 38
+1DD0 FF . RST 38
+1DD1 FF . RST 38
+1DD2 FF . RST 38
+1DD3 FF . RST 38
+1DD4 FF . RST 38
+1DD5 FF . RST 38
+1DD6 FF . RST 38
+1DD7 FF . RST 38
+1DD8 FF . RST 38
+1DD9 FF . RST 38
+1DDA FF . RST 38
+1DDB FF . RST 38
+1DDC FF . RST 38
+1DDD FF . RST 38
+1DDE FF . RST 38
+1DDF FF . RST 38
+1DE0 FF . RST 38
+1DE1 FF . RST 38
+1DE2 FF . RST 38
+1DE3 FF . RST 38
+1DE4 FF . RST 38
+1DE5 FF . RST 38
+1DE6 FF . RST 38
+1DE7 FF . RST 38
+1DE8 FF . RST 38
+1DE9 FF . RST 38
+1DEA FF . RST 38
+1DEB FF . RST 38
+1DEC FF . RST 38
+1DED FF . RST 38
+1DEE FF . RST 38
+1DEF FF . RST 38
+1DF0 FF . RST 38
+1DF1 FF . RST 38
+1DF2 FF . RST 38
+1DF3 FF . RST 38
+1DF4 FF . RST 38
+1DF5 FF . RST 38
+1DF6 FF . RST 38
+1DF7 FF . RST 38
+1DF8 FF . RST 38
+1DF9 FF . RST 38
+1DFA FF . RST 38
+1DFB FF . RST 38
+1DFC FF . RST 38
+1DFD FF . RST 38
+1DFE FF . RST 38
+1DFF FF . RST 38
+1E00 FF . RST 38 ; ======= Residenter EUMEL0 =======
+1E01 FF . RST 38 ; DR EIntrag des DRDR
+1E02 FF . RST 38
+1E03 FF . RST 38
+1E04 FF . RST 38
+1E05 FF . RST 38
+1E06 FF . RST 38
+1E07 FF . RST 38
+1E08 FF . RST 38
+1E09 FF . RST 38
+1E0A FF . RST 38
+1E0B FF . RST 38
+1E0C FF . RST 38
+1E0D FF . RST 38
+1E0E FF . RST 38
+1E0F FF . RST 38 ; ---------- 173 Leiste ---------
+1E10 C3 DF 28 ..( JP 28DF ; systemstart 173
+1E13 C3 71 1F .q. JP 1F71 ; inputinterrupt
+1E16 C3 35 6E .5n JP 6E35 ; timerinterrupt
+1E19 C3 E2 6D ..m JP 6DE2 ; warte
+1E1C C3 22 1E .". JP 1E22 ; frei eumel0 (nur 173)
+1E1F C3 1F 70 ..p JP 701F ; info (Text uebergeben)
+1E22 3A 6D 28 :m( LD A,(286D) ;----------- frei eumel0 ---------
+1E25 CB C7 .. SET 0,A ; MODE Bit 0 setzen
+1E27 32 6D 28 2m( LD (286D),A
+1E2A C9 . RET ;--------------------------------
+1E2B FF . RST 38
+1E2C FF . RST 38
+1E2D FF . RST 38
+1E2E FF . RST 38
+1E2F FF . RST 38
+1E30 FF . RST 38
+1E31 FF . RST 38
+1E32 FF . RST 38
+1E33 FF . RST 38
+1E34 FF . RST 38
+1E35 FF . RST 38
+1E36 FF . RST 38
+1E37 FF . RST 38
+1E38 FF . RST 38
+1E39 FF . RST 38
+1E3A FF . RST 38
+1E3B FF . RST 38
+1E3C FF . RST 38
+1E3D FF . RST 38
+1E3E FF . RST 38
+1E3F FF . RST 38
+1E40 FF . RST 38
+1E41 FF . RST 38
+1E42 FF . RST 38
+1E43 FF . RST 38
+1E44 FF . RST 38
+1E45 FF . RST 38
+1E46 FF . RST 38
+1E47 FF . RST 38
+1E48 FF . RST 38
+1E49 FF . RST 38
+1E4A FF . RST 38
+1E4B 74 t LD (HL),H ; "trmnet 10 (!)"
+1E4C 72 r LD (HL),D
+1E4D 6D m LD L,L
+1E4E 6E n LD L,(HL)
+1E4F 65 e LD H,L
+1E50 74 t LD (HL),H
+1E51 20 20 JR NZ,1E73
+1E53 31 30 20 10 LD SP,2030
+1E56 28 21 (! JR Z,1E79
+1E58 29 ) ADD HL,HL ;---------- intern frout ---------
+1E59 FE 11 .. CP 11
+1E5B D0 . RET NC
+1E5C E5 . PUSH HL
+1E5D CD EB 23 ..# CALL 23EB
+1E60 CB 5E .^ BIT 3,(HL)
+1E62 E1 . POP HL
+1E63 28 02 (. JR Z,1E67
+1E65 97 . SUB A ; Ist Stop-Taste gedrueckt
+1E66 C9 . RET
+1E67 C5 . PUSH BC ; Weiter gedrueckt
+1E68 01 02 00 ... LD BC,0002 ; IOCONTROL frout
+1E6B CD A8 28 ..( CALL 28A8
+1E6E 79 y LD A,C
+1E6F C1 . POP BC
+1E70 C9 . RET ;-------- intern typ --------------
+1E71 32 B8 26 2.& LD (26B8),A
+1E74 C5 . PUSH BC
+1E75 01 01 00 ... LD BC,0001 ; IOCONTROL typ
+1E78 CD A8 28 ..( CALL 28A8
+1E7B 79 y LD A,C
+1E7C E6 03 .. AND 03
+1E7E FE 03 .. CP 03
+1E80 C1 . POP BC
+1E81 3A B8 26 :.& LD A,(26B8)
+1E84 C9 . RET ; ---------- cursorpos --> BC ---
+1E85 FE 11 .. CP 11
+1E87 D0 . RET NC
+1E88 E5 . PUSH HL
+1E89 CD EB 23 ..# CALL 23EB ; Kanaltabellenaddresse
+1E8C 01 02 00 ... LD BC,0002
+1E8F 09 . ADD HL,BC
+1E90 4E N LD C,(HL)
+1E91 23 # INC HL
+1E92 46 F LD B,(HL)
+1E93 E1 . POP HL
+1E94 B7 . OR A
+1E95 C9 . RET ;----------------------------------
+1E96 DD 7E 04 .~. LD A,(IX+04) ; Grosser Puffer leer ?
+1E99 D6 01 .. SUB A,01
+1E9B 30 0B 0. JR NC,1EA8
+1E9D DD 7E 0B .~. LD A,(IX+0B)
+1EA0 D6 01 .. SUB A,01
+1EA2 30 04 0. JR NC,1EA8
+1EA4 CD E4 1E ... CALL 1EE4 ; IOCONTROL weiter
+1EA7 37 7 SCF
+1EA8 C1 . POP BC
+1EA9 DD E1 .. POP IX
+1EAB E1 . POP HL
+1EAC C9 . RET ;---------------------------------
+1EAD FE 11 .. CP 11
+1EAF 3F ? CCF
+1EB0 D8 . RET C
+1EB1 E5 . PUSH HL
+1EB2 DD E5 .. PUSH IX
+1EB4 C5 . PUSH BC
+1EB5 32 AC 26 2.& LD (26AC),A
+1EB8 CD FA 23 ..# CALL 23FA
+1EBB 3A A9 26 :.& LD A,(26A9)
+1EBE B7 . OR A
+1EBF 28 11 (. JR Z,1ED2
+1EC1 F5 . PUSH AF
+1EC2 97 . SUB A
+1EC3 32 A9 26 2.& LD (26A9),A
+1EC6 F1 . POP AF
+1EC7 28 09 (. JR Z,1ED2
+1EC9 CD 1F 70 ..p CALL 701F
+1ECC 18 04 .. JR 1ED2
+1ECE 20 69 i JR NZ,1F39 ; Info aufrufen
+1ED0 6E n LD L,(HL) ; " int"
+1ED1 74 t LD (HL),H
+1ED2 DD 2A AD 26 .*.& LD IX,(26AD)
+1ED6 CB 6E .n BIT 5,(HL)
+1ED8 20 BC . JR NZ,1E96 ; Grosser Puffer
+1EDA DD 7E 04 .~. LD A,(IX+04) ; Kleiner Puffer leer ?
+1EDD FE 07 .. CP 07
+1EDF 28 15 (. JR Z,1EF6
+1EE1 B7 . OR A
+1EE2 18 51 .Q JR 1F35
+1EE4 3A AC 26 :.& LD A,(26AC) ;---------- intern weiter --------
+1EE7 01 04 00 ... LD BC,0004 ; IOCONTROL weiter
+1EEA C3 A8 28 ..( JP 28A8
+1EED C5 . PUSH BC ;---------- intern stop -----------
+1EEE 01 03 00 ... LD BC,0003
+1EF1 CD A8 28 ..( CALL 28A8 ; IOCONTORL stop
+1EF4 C1 . POP BC
+1EF5 C9 . RET ;----------------------------------
+1EF6 CD E4 1E ... CALL 1EE4 ; CALL weiter
+1EF9 DD 7E 04 .~. LD A,(IX+04) ;
+1EFC FE 07 .. CP 07
+1EFE 28 03 (. JR Z,1F03 ; Puffer leer ?
+1F00 B7 . OR A
+1F01 18 32 .2 JR 1F35 ; Routine mit CLC verlassen
+1F03 37 7 SCF
+1F04 18 2F ./ JR 1F35 ; ROutine mit SEC verlassen
+1F06 CD AD 1E ... CALL 1EAD ;---------------------------------
+1F09 D8 . RET C
+1F0A E5 . PUSH HL
+1F0B DD E5 .. PUSH IX
+1F0D C5 . PUSH BC
+1F0E DD 2A AD 26 .*.& LD IX,(26AD)
+1F12 DD 7E 07 .~. LD A,(IX+07)
+1F15 DD CB 00 6E ...n BIT 5,(IX+00)
+1F19 20 1F . JR NZ,1F3A
+1F1B 2A AD 26 *.& LD HL,(26AD)
+1F1E 01 07 00 ... LD BC,0007
+1F21 09 . ADD HL,BC
+1F22 D5 . PUSH DE
+1F23 54 T LD D,H
+1F24 5D ] LD E,L
+1F25 23 # INC HL
+1F26 01 0F 00 ... LD BC,000F
+1F29 F3 . DI
+1F2A ED B0 .. LDIR
+1F2C DD 35 .5 DEC (IX+04)
+1F2E 04 . INC B
+1F2F DD 35 .5 DEC (IX+05)
+1F31 05 . DEC B
+1F32 FB . EI
+1F33 D1 . POP DE
+1F34 B7 . OR A
+1F35 C1 . POP BC
+1F36 DD E1 .. POP IX
+1F38 E1 . POP HL
+1F39 C9 . RET
+1F3A 67 g LD H,A ; Pufferaddresse
+1F3B DD 6E 0C .n. LD L,(IX+0C) ; Pufferaddresse
+1F3E CD 81 5A ..Z CALL 5A81
+1F41 DD 7E 05 .~. LD A,(IX+05) ; Lowbyte Schreibzeiger
+1F44 3C < INC A
+1F45 DD 77 05 .w. LD (IX+05),A
+1F48 20 03 . JR NZ,1F4D
+1F4A DD 34 .4 INC (IX+0A) ; Highbyte Schreibzeiger
+1F4C 0A . LD A,(BC)
+1F4D 6F o LD L,A
+1F4E DD 7E 0A .~. LD A,(IX+0A)
+1F51 E6 01 .. AND 01
+1F53 84 . ADD H
+1F54 67 g LD H,A
+1F55 7E ~ LD A,(HL)
+1F56 F5 . PUSH AF
+1F57 CD 8C 5A ..Z CALL 5A8C
+1F5A F3 . DI
+1F5B DD 6E 04 .n. LD L,(IX+04) ; Jetzt darf kein Inputinter. komm.
+1F5E DD 66 0B .f. LD H,(IX+0B)
+1F61 2B + DEC HL
+1F62 DD 74 0B .t. LD (IX+0B),H
+1F65 DD 75 04 .u. LD (IX+04),L
+1F68 FB . EI
+1F69 7D } LD A,L
+1F6A B7 . OR A
+1F6B CC E4 1E ... CALL Z,1EE4 ; CALL weiter
+1F6E F1 . POP AF
+1F6F 18 C3 .. JR 1F34 ;=========== inputinterrupt =======
+1F71 FE 11 .. CP 11 ; B=Eingabezeichen
+1F73 D0 . RET NC ; C=Errorbits
+1F74 DD E5 .. PUSH IX
+1F76 E5 . PUSH HL
+1F77 F5 . PUSH AF
+1F78 CD EB 23 ..# CALL 23EB ; Kanaltabelleaddresse
+1F7B E5 . PUSH HL
+1F7C DD E1 .. POP IX
+1F7E CB B9 .. RES 7,C ;
+1F80 CB A9 .. RES 5,C ; Pufferoverflowbit
+1F82 DD 7E 01 .~. LD A,(IX+01)
+1F85 B1 . OR C ; Mit Bits vom Shard verodern
+1F86 DD 77 01 .w. LD (IX+01),A
+1F89 CB 7F .. BIT 7,A
+1F8B 28 0A (. JR Z,1F97
+1F8D E5 . PUSH HL
+1F8E DD CB 01 F6 .... SET 6,(IX+01)
+1F92 21 A9 26 !.& LD HL,26A9
+1F95 34 4 INC (HL)
+1F96 E1 . POP HL
+1F97 DD CB 01 FE .... SET 7,(IX+01)
+1F9B CB 6E .n BIT 5,(HL) ; Grosser Puffer ?
+1F9D 28 6F (o JR Z,200E
+1F9F DD 7E 0B .~. LD A,(IX+0B) ; ja
+1FA2 FE 01 .. CP 01
+1FA4 38 0E 8. JR C,1FB4 ; < 1 (=0) : Nicht voll
+1FA6 20 3A : JR NZ,1FE2 ; > 1 (=2) : Voll
+1FA8 DD 7E 04 .~. LD A,(IX+04) ; = 180 ,
+1FAB FE 80 .. CP 80 ; Puffer 3/4b voll Hysterese Stop
+1FAD 20 05 . JR NZ,1FB4
+1FAF F1 . POP AF
+1FB0 F5 . PUSH AF
+1FB1 CD ED 1E ... CALL 1EED ; CALL stop
+1FB4 DD 34 .4 INC (IX+04)
+1FB6 04 . INC B
+1FB7 20 03 . JR NZ,1FBC
+1FB9 DD 34 .4 INC (IX+0B)
+1FBB 0B . DEC BC
+1FBC DD 66 07 .f. LD H,(IX+07)
+1FBF DD 6E 0C .n. LD L,(IX+0C)
+1FC2 78 x LD A,B
+1FC3 C5 . PUSH BC
+1FC4 F5 . PUSH AF
+1FC5 CD 81 5A ..Z CALL 5A81
+1FC8 DD 7E 08 .~. LD A,(IX+08)
+1FCB 3C < INC A
+1FCC DD 77 08 .w. LD (IX+08),A
+1FCF 6F o LD L,A
+1FD0 20 03 . JR NZ,1FD5
+1FD2 DD 34 .4 INC (IX+09)
+1FD4 09 . ADD HL,BC
+1FD5 DD 7E 09 .~. LD A,(IX+09)
+1FD8 E6 01 .. AND 01
+1FDA 84 . ADD H
+1FDB 67 g LD H,A
+1FDC F1 . POP AF
+1FDD 77 w LD (HL),A
+1FDE CD 8C 5A ..Z CALL 5A8C
+1FE1 C1 . POP BC
+1FE2 DD CB 01 EE .... SET 5,(IX+01) ; Pufferoverflow setzen
+1FE6 F1 . POP AF
+1FE7 21 AB 26 !.& LD HL,26AB
+1FEA CB B6 .. RES 6,(HL)
+1FEC DD CB 01 BE .... RES 7,(IX+01)
+1FF0 FB . EI
+1FF1 DD CB 00 6E ...n BIT 5,(IX+00) ; Groáer Puffer ?
+1FF5 20 09 . JR NZ,2000
+1FF7 3E 17 >. LD A,17 ; Pufferende-Lesezeiger
+1FF9 DD 96 04 ... SUB (IX+04) ; Platz im Puffer
+1FFC E1 . POP HL
+1FFD DD E1 .. POP IX
+1FFF C9 . RET ;----------- Ende von inputinterr.
+2000 DD 7E 0B .~. LD A,(IX+0B)
+2003 B7 . OR A
+2004 3E FF >. LD A,FF
+2006 28 F4 (. JR Z,1FFC
+2008 97 . SUB A
+2009 DD 96 04 ... SUB (IX+04)
+200C 18 EE .. JR 1FFC
+200E F1 . POP AF ;------ kleiner Puffer ------------
+200F F5 . PUSH AF
+2010 CD 95 26 ..& CALL 2695 ; Typtabellennummer
+2013 FE 7E .~ CP 7E ; psi ?
+2015 20 29 ) JR NZ,2040
+2017 78 x LD A,B ; info-Taste
+2018 FE 04 .. CP 04
+201A 28 18 (. JR Z,2034
+201C FE 07 .. CP 07 ; SV-Call
+201E 28 1A (. JR Z,203A
+2020 FE 11 .. CP 11 ; Stop
+2022 28 0A (. JR Z,202E
+2024 FE 17 .. CP 17 ; Weiter
+2026 20 18 . JR NZ,2040
+2028 DD CB 00 9E .... RES 3,(IX+00) ; Weiter gedrueckt
+202C 18 B8 .. JR 1FE6
+202E DD CB 00 DE .... SET 3,(IX+00) ; Stop gedrueckt
+2032 18 B2 .. JR 1FE6
+2034 F1 . POP AF ; info-taste gedrueckt
+2035 CD 33 6F .3o CALL 6F33
+2038 18 AD .. JR 1FE7
+203A F1 . POP AF ; SV-Call gedrueckt
+203B CD 93 4C ..L CALL 4C93 ; SV-Call zustellen
+203E 18 A7 .. JR 1FE7
+2040 C5 . PUSH BC ; nicht psi als tabelle
+2041 DD 7E 05 .~. LD A,(IX+05) ; Schreibzeiger >= 16H ?
+2044 FE 16 .. CP 16
+2046 D2 F2 20 .. JP NC,20F2 ; Pufferoverflow setzen
+2049 21 AB 26 !.& LD HL,26AB
+204C CB F6 .. SET 6,(HL)
+204E 4F O LD C,A
+204F 06 00 .. LD B,00
+2051 DD E5 .. PUSH IX
+2053 E1 . POP HL
+2054 09 . ADD HL,BC
+2055 C1 . POP BC
+2056 70 p LD (HL),B
+2057 23 # INC HL
+2058 36 FF 6. LD (HL),FF
+205A DD 34 .4 INC (IX+05) ; Schreibzeiger
+205C 05 . DEC B
+205D FE 0E .. CP 0E
+205F 20 0E . JR NZ,206F
+2061 F1 . POP AF
+2062 F5 . PUSH AF
+2063 CD 95 26 ..& CALL 2695
+2066 CB 7E .~ BIT 7,(HL)
+2068 28 05 (. JR Z,206F
+206A F1 . POP AF
+206B F5 . PUSH AF
+206C CD ED 1E ... CALL 1EED
+206F F1 . POP AF
+2070 F5 . PUSH AF
+2071 CD 95 26 ..& CALL 2695
+2074 FE 7E .~ CP 7E
+2076 D2 EB 20 .. JP NC,20EB
+2079 CD 1F 24 ..$ CALL 241F
+207C D5 . PUSH DE
+207D C5 . PUSH BC
+207E 01 80 01 ... LD BC,0180
+2081 09 . ADD HL,BC
+2082 E5 . PUSH HL
+2083 EB . EX DE,HL
+2084 DD E5 .. PUSH IX
+2086 E1 . POP HL
+2087 DD 4E 04 .N. LD C,(IX+04)
+208A 06 00 .. LD B,00
+208C 09 . ADD HL,BC
+208D 1A . LD A,(DE) ; Zeichen an Lesezeigerposition holen
+208E 13 . INC DE
+208F 3C < INC A
+2090 F5 . PUSH AF
+2091 20 04 . JR NZ,2097
+2093 1A . LD A,(DE) ; Zeichen = FF ?
+2094 3C < INC A
+2095 28 38 (8 JR Z,20CF
+2097 E5 . PUSH HL
+2098 EB . EX DE,HL
+2099 1A . LD A,(DE)
+209A ED A1 .. CPI
+209C 20 24 $ JR NZ,20C2
+209E 13 . INC DE
+209F 3C < INC A
+20A0 20 F7 . JR NZ,2099
+20A2 E1 . POP HL
+20A3 F1 . POP AF
+20A4 3D = DEC A
+20A5 FE 11 .. CP 11 ; Weiter
+20A7 CA 1C 21 ..! JP Z,211C
+20AA FE 04 .. CP 04 ; Info
+20AC 28 56 (V JR Z,2104
+20AE FE 07 .. CP 07 ; SV-Call
+20B0 28 5E (^ JR Z,2110
+20B2 FE 17 .. CP 17 ; Stop
+20B4 CA 22 21 ."! JP Z,2122
+20B7 77 w LD (HL),A ; Anderer Eingabecode
+20B8 DD 34 .4 INC (IX+04) ; Lese-Zeiger weitersetzen
+20BA 04 . INC B
+20BB 23 # INC HL
+20BC CD 2F 21 ./! CALL 212F
+20BF E1 . POP HL
+20C0 18 1B .. JR 20DD
+20C2 3C < INC A
+20C3 28 1C (. JR Z,20E1
+20C5 7E ~ LD A,(HL)
+20C6 23 # INC HL
+20C7 3C < INC A
+20C8 20 FB . JR NZ,20C5
+20CA EB . EX DE,HL
+20CB E1 . POP HL
+20CC F1 . POP AF
+20CD 18 BE .. JR 208D
+20CF F1 . POP AF
+20D0 E1 . POP HL
+20D1 DD 34 .4 INC (IX+04)
+20D3 04 . INC B
+20D4 DD 7E 04 .~. LD A,(IX+04) ; Lesezeiger = Schreibzeiger ?
+20D7 DD BE 05 ... CP (IX+05)
+20DA C2 82 20 .. JP NZ,2082
+20DD C1 . POP BC
+20DE D1 . POP DE
+20DF 18 0D .. JR 20EE
+20E1 3E 02 >. LD A,02
+20E3 32 AB 26 2.& LD (26AB),A
+20E6 E1 . POP HL
+20E7 F1 . POP AF
+20E8 E1 . POP HL
+20E9 18 F2 .. JR 20DD
+20EB DD 34 .4 INC (IX+04) ; Zeiger weitersetzen
+20ED 04 . INC B
+20EE F1 . POP AF
+20EF C3 E7 1F ... JP 1FE7
+20F2 DD CB 01 EE .... SET 5,(IX+01) ; Bit 5 : Puffer overflow
+20F6 DD 7E 04 .~. LD A,(IX+04) ; Schreibzeiger := Lesezeiger
+20F9 DD 77 05 .w. LD (IX+05),A
+20FC 3E 03 >. LD A,03
+20FE 32 AB 26 2.& LD (26AB),A
+2101 C1 . POP BC
+2102 18 EA .. JR 20EE ;-------------- Info-Taste --------
+2104 CD 2F 21 ./! CALL 212F
+2107 E1 . POP HL
+2108 C1 . POP BC
+2109 D1 . POP DE
+210A F1 . POP AF
+210B CD 33 6F .3o CALL 6F33
+210E 18 DF .. JR 20EF ;--------------- SV-Call ---------
+2110 CD 2F 21 ./! CALL 212F
+2113 E1 . POP HL
+2114 C1 . POP BC
+2115 D1 . POP DE
+2116 F1 . POP AF
+2117 CD 93 4C ..L CALL 4C93
+211A 18 D3 .. JR 20EF ;-------------- Weiter-Taste ------
+211C DD CB 00 DE .... SET 3,(IX+00) ; Weiterbit setzen
+2120 18 04 .. JR 2126 ;-------------- Stop-Taste --------
+2122 DD CB 00 9E .... RES 3,(IX+00) ;
+2126 CD 2F 21 ./! CALL 212F
+2129 E1 . POP HL
+212A C1 . POP BC
+212B D1 . POP DE
+212C F1 . POP AF
+212D 18 C0 .. JR 20EF
+212F DD 7E 04 .~. LD A,(IX+04) ; Schreibzeiger := Lesezeiger
+2132 DD 77 05 .w. LD (IX+05),A
+2135 3E FF >. LD A,FF ; Puffer bis zum Ende mit FF fuellen
+2137 77 w LD (HL),A
+2138 23 # INC HL
+2139 7B { LD A,E
+213A BD . CP L
+213B 20 F8 . JR NZ,2135
+213D C9 . RET ; ------ Test ob Puffer overflow
+213E F5 . PUSH AF
+213F E5 . PUSH HL
+2140 21 B2 26 !.& LD HL,26B2
+2143 CB 7E .~ BIT 7,(HL)
+2145 28 02 (. JR Z,2149
+2147 86 . ADD (HL)
+2148 77 w LD (HL),A
+2149 3A AB 26 :.& LD A,(26AB)
+214C 3D = DEC A
+214D FA 85 21 ..! JP M,2185
+2150 32 AB 26 2.& LD (26AB),A
+2153 20 30 0 JR NZ,2185
+2155 DD E5 .. PUSH IX
+2157 D5 . PUSH DE
+2158 C5 . PUSH BC
+2159 11 18 00 ... LD DE,0018
+215C 3E 01 >. LD A,01 ; Beginne mit Kanal 1
+215E CD EB 23 ..# CALL 23EB ; Zeiger auf Kanaltabelle --> HL
+2161 06 10 .. LD B,10 ; Fuer 16 Kanaele
+2163 E5 . PUSH HL
+2164 DD E1 .. POP IX
+2166 DD CB 00 6E ...n BIT 5,(IX+00) ; Groáer Puffer
+216A 20 11 . JR NZ,217D ; kein overflow
+216C F3 . DI
+216D DD 7E 05 .~. LD A,(IX+05) ; Schreibzeiger >= 16H ?
+2170 FE 16 .. CP 16
+2172 38 05 8. JR C,2179
+2174 3E 13 >. LD A,13 ; zuruecksetzen auf 13
+2176 DD 77 05 .w. LD (IX+05),A
+2179 DD 77 04 .w. LD (IX+04),A
+217C FB . EI
+217D DD 19 .. ADD IX,DE ; Next entry
+217F 10 E5 .. DJNZ 2166
+2181 C1 . POP BC
+2182 D1 . POP DE
+2183 DD E1 .. POP IX
+2185 E1 . POP HL
+2186 F1 . POP AF
+2187 C9 . RET ;----------- OUTPUT ------------
+2188 FE 11 .. CP 11
+218A D2 7B 28 .{( JP NC,287B
+218D F5 . PUSH AF
+218E DD E5 .. PUSH IX
+2190 32 AC 26 2.& LD (26AC),A
+2193 E5 . PUSH HL
+2194 CD 95 26 ..& CALL 2695
+2197 D2 3A 22 .:" JP NC,223A
+219A 32 B1 26 2.& LD (26B1),A
+219D 3A AC 26 :.& LD A,(26AC)
+21A0 CD FA 23 ..# CALL 23FA
+21A3 DD 2A AD 26 .*.& LD IX,(26AD)
+21A7 7E ~ LD A,(HL)
+21A8 E6 0B .. AND 0B
+21AA 28 24 ($ JR Z,21D0
+21AC CB 5F ._ BIT 3,A
+21AE 20 0C . JR NZ,21BC
+21B0 CB 47 .G BIT 0,A
+21B2 28 13 (. JR Z,21C7
+21B4 3A AC 26 :.& LD A,(26AC)
+21B7 CD 59 1E .Y. CALL 1E59
+21BA 38 09 8. JR C,21C5
+21BC E1 . POP HL
+21BD DD E1 .. POP IX
+21BF F1 . POP AF
+21C0 01 00 00 ... LD BC,0000
+21C3 B7 . OR A
+21C4 C9 . RET
+21C5 CB 86 .. RES 0,(HL)
+21C7 3A B2 26 :.& LD A,(26B2)
+21CA CB 7F .. BIT 7,A
+21CC 20 EE . JR NZ,21BC
+21CE CB 8E .. RES 1,(HL)
+21D0 E1 . POP HL
+21D1 D5 . PUSH DE
+21D2 E5 . PUSH HL
+21D3 3A B1 26 :.& LD A,(26B1)
+21D6 CD 1F 24 ..$ CALL 241F
+21D9 54 T LD D,H
+21DA 5D ] LD E,L
+21DB E1 . POP HL
+21DC E5 . PUSH HL
+21DD C5 . PUSH BC
+21DE 78 x LD A,B
+21DF B1 . OR C
+21E0 20 08 . JR NZ,21EA
+21E2 C1 . POP BC
+21E3 E1 . POP HL
+21E4 D1 . POP DE
+21E5 DD E1 .. POP IX
+21E7 F1 . POP AF
+21E8 37 7 SCF
+21E9 C9 . RET
+21EA E5 . PUSH HL
+21EB 7E ~ LD A,(HL)
+21EC 2A AD 26 *.& LD HL,(26AD)
+21EF CB 56 .V BIT 2,(HL)
+21F1 28 0F (. JR Z,2202
+21F3 CB 66 .f BIT 4,(HL)
+21F5 CA 07 23 ..# JP Z,2307
+21F8 CB A6 .. RES 4,(HL)
+21FA 23 # INC HL
+21FB 23 # INC HL
+21FC 77 w LD (HL),A
+21FD E1 . POP HL
+21FE 23 # INC HL
+21FF 0B . DEC BC
+2200 18 DC .. JR 21DE
+2202 E1 . POP HL
+2203 E5 . PUSH HL
+2204 C5 . PUSH BC
+2205 3A B1 26 :.& LD A,(26B1)
+2208 FE 7E .~ CP 7E
+220A 28 35 (5 JR Z,2241
+220C E5 . PUSH HL
+220D 6E n LD L,(HL)
+220E 26 00 &. LD H,00
+2210 19 . ADD HL,DE
+2211 7E ~ LD A,(HL)
+2212 3C < INC A
+2213 20 38 8 JR NZ,224D
+2215 E1 . POP HL
+2216 ED A1 .. CPI
+2218 EA 0C 22 .." JP PE,220C
+221B C1 . POP BC
+221C E1 . POP HL
+221D C5 . PUSH BC
+221E 3A AC 26 :.& LD A,(26AC)
+2221 CD 7B 28 .{( CALL 287B
+2224 F5 . PUSH AF
+2225 DD 7E 03 .~. LD A,(IX+03) ; xpos INCR C
+2228 81 . ADD C
+2229 DD 77 03 .w. LD (IX+03),A
+222C F1 . POP AF
+222D D2 CE 23 ..# JP NC,23CE
+2230 09 . ADD HL,BC
+2231 E3 . EX (SP),HL
+2232 B7 . OR A
+2233 ED 42 .B SBC HL,BC
+2235 44 D LD B,H
+2236 4D M LD C,L
+2237 E1 . POP HL
+2238 18 A4 .. JR 21DE
+223A E1 . POP HL
+223B DD E1 .. POP IX
+223D F1 . POP AF
+223E C3 7B 28 .{( JP 287B
+2241 3E 0D >. LD A,0D
+2243 BE . CP (HL)
+2244 30 08 0. JR NC,224E
+2246 ED A1 .. CPI
+2248 EA 43 22 .C" JP PE,2243
+224B 18 CE .. JR 221B
+224D E1 . POP HL
+224E 7E ~ LD A,(HL)
+224F E1 . POP HL
+2250 E5 . PUSH HL
+2251 B7 . OR A
+2252 ED 42 .B SBC HL,BC
+2254 28 06 (. JR Z,225C
+2256 44 D LD B,H
+2257 4D M LD C,L
+2258 E1 . POP HL
+2259 E3 . EX (SP),HL
+225A 18 C2 .. JR 221E
+225C F5 . PUSH AF
+225D 3A AC 26 :.& LD A,(26AC)
+2260 C5 . PUSH BC
+2261 01 02 00 ... LD BC,0002 ; IOCONTROL frout
+2264 CD A8 28 ..( CALL 28A8
+2267 79 y LD A,C
+2268 C1 . POP BC
+2269 FE 10 .. CP 10
+226B DA E6 23 ..# JP C,23E6
+226E F1 . POP AF
+226F CD 79 22 .y" CALL 2279
+2272 C1 . POP BC
+2273 E1 . POP HL
+2274 0B . DEC BC
+2275 23 # INC HL
+2276 C3 DE 21 ..! JP 21DE ;-------- cursor mitfuehren ------
+2279 FE 06 .. CP 06
+227B CA FF 22 .." JP Z,22FF
+227E 38 54 8T JR C,22D4
+2280 FE 08 .. CP 08 ; Left
+2282 28 15 (. JR Z,2299
+2284 FE 07 .. CP 07 ; Bell: Keine Veraenderung
+2286 28 5B ([ JR Z,22E3
+2288 FE 0A .. CP 0A ; LF
+228A 28 12 (. JR Z,229E
+228C DD 34 .4 INC (IX+03) ; Alles andere wie right
+228E 03 . INC BC
+228F FE 0D .. CP 0D ; CR
+2291 20 50 P JR NZ,22E3
+2293 DD 36 03 00 .6.. LD (IX+03),00
+2297 18 4A .J JR 22E3
+2299 DD 35 .5 DEC (IX+03)
+229B 03 . INC BC
+229C 18 45 .E JR 22E3
+229E F5 . PUSH AF
+229F DD 7E 02 .~. LD A,(IX+02) ; ypos des cursors
+22A2 DD BE 06 ... CP (IX+06) ; max. ypos (wird mit ysize ges.)
+22A5 28 03 (. JR Z,22AA
+22A7 DD 34 .4 INC (IX+02) ; ypos +1
+22A9 02 . LD (BC),A
+22AA F1 . POP AF
+22AB 18 36 .6 JR 22E3
+22AD E5 . PUSH HL
+22AE 23 # INC HL
+22AF CD 5F 23 ._# CALL 235F
+22B2 E1 . POP HL
+22B3 7E ~ LD A,(HL)
+22B4 B7 . OR A
+22B5 C8 . RET Z
+22B6 2A AD 26 *.& LD HL,(26AD)
+22B9 CB C6 .. SET 0,(HL)
+22BB CB CE .. SET 1,(HL)
+22BD 3E 81 >. LD A,81
+22BF 32 B2 26 2.& LD (26B2),A
+22C2 C3 E0 23 ..# JP 23E0
+22C5 DD 36 02 00 .6.. LD (IX+02),00
+22C9 DD 36 03 00 .6.. LD (IX+03),00
+22CD 18 14 .. JR 22E3
+22CF DD 34 .4 INC (IX+03)
+22D1 03 . INC BC
+22D2 18 0F .. JR 22E3
+22D4 FE 01 .. CP 01 ; Home ?
+22D6 28 ED (. JR Z,22C5
+22D8 FE 02 .. CP 02 ; Right ?
+22DA 28 F3 (. JR Z,22CF
+22DC FE 03 .. CP 03 ; Up
+22DE 20 03 . JR NZ,22E3
+22E0 DD 35 .5 DEC (IX+02) ; ypos-1
+22E2 02 . LD (BC),A
+22E3 6F o LD L,A
+22E4 3A B1 26 :.& LD A,(26B1)
+22E7 FE 7E .~ CP 7E
+22E9 20 04 . JR NZ,22EF
+22EB 7D } LD A,L
+22EC C3 B8 23 ..# JP 23B8
+22EF 26 00 &. LD H,00
+22F1 19 . ADD HL,DE
+22F2 7E ~ LD A,(HL)
+22F3 FE 80 .. CP 80
+22F5 DA B8 23 ..# JP C,23B8
+22F8 D6 80 .. SUB A,80
+22FA 62 b LD H,D
+22FB 6F o LD L,A
+22FC 24 $ INC H
+22FD 18 AE .. JR 22AD ;---------- cursor (x,y) ----------
+22FF 2A AD 26 *.& LD HL,(26AD)
+2302 CB D6 .. SET 2,(HL)
+2304 CB E6 .. SET 4,(HL)
+2306 C9 . RET ;---------------------------------
+2307 23 # INC HL
+2308 23 # INC HL
+2309 23 # INC HL
+230A 77 w LD (HL),A
+230B 3A B1 26 :.& LD A,(26B1)
+230E FE 7E .~ CP 7E ; psi ?
+2310 20 11 . JR NZ,2323
+2312 3E 06 >. LD A,06 ; Code 6
+2314 CD B8 23 ..# CALL 23B8
+2317 2B + DEC HL
+2318 7E ~ LD A,(HL) ; y pos
+2319 CD B8 23 ..# CALL 23B8
+231C 23 # INC HL
+231D 7E ~ LD A,(HL) ; x pos
+231E CD B8 23 ..# CALL 23B8
+2321 18 31 .1 JR 2354
+2323 14 . INC D
+2324 1A . LD A,(DE)
+2325 15 . DEC D
+2326 3C < INC A
+2327 20 0E . JR NZ,2337
+2329 DD 7E 03 .~. LD A,(IX+03) ; alte xpos
+232C D6 50 .P SUB A,50 ; 80 Spalten Umbruch
+232E 38 07 8. JR C,2337
+2330 DD CB 02 F6 .... SET 6,(IX+02)
+2334 DD 77 03 .w. LD (IX+03),A
+2337 C5 . PUSH BC
+2338 21 06 00 !.. LD HL,0006 ; Cursorstringcode = 6
+233B 19 . ADD HL,DE
+233C 7E ~ LD A,(HL) ; Ist immer ein outstring
+233D CB BF .. RES 7,A
+233F 24 $ INC H ; Outstringpage
+2340 6F o LD L,A
+2341 2C , INC L ; keine wartezeit
+2342 CD 5F 23 ._# CALL 235F ; prestring ausgeben
+2345 23 # INC HL
+2346 CD 6C 23 .l# CALL 236C ; x/y pos ausgeben
+2349 CD 5F 23 ._# CALL 235F ; midstring ausgeben
+234C 23 # INC HL
+234D CD 6C 23 .l# CALL 236C ; x/y pos ausgeben
+2350 CD 5F 23 ._# CALL 235F ; poststring ausgeben
+2353 C1 . POP BC ; naechstes zeichen interpretieren
+2354 2A AD 26 *.& LD HL,(26AD)
+2357 CB 96 .. RES 2,(HL)
+2359 E1 . POP HL
+235A 23 # INC HL
+235B 0B . DEC BC
+235C C3 DE 21 ..! JP 21DE ; string ausgeben (mit 0 am ende)
+235F 06 46 .F LD B,46 ; max 70 zeichen
+2361 7E ~ LD A,(HL)
+2362 B7 . OR A
+2363 28 06 (. JR Z,236B
+2365 CD B8 23 ..# CALL 23B8 ; char out
+2368 23 # INC HL
+2369 10 F6 .. DJNZ 2361
+236B C9 . RET ;----------- x/y pos out ---------
+236C 7E ~ LD A,(HL) ; zeichen "x" oder "y"
+236D E5 . PUSH HL
+236E 2A AD 26 *.& LD HL,(26AD) ; zeiger auf x pos (26ad)+2
+2371 23 # INC HL
+2372 23 # INC HL
+2373 FE 79 .y CP 79 ; "y" Kennzeichen
+2375 28 01 (. JR Z,2378
+2377 23 # INC HL ; ypos
+2378 46 F LD B,(HL) ; neue position --> B
+2379 FD E5 .. PUSH IY
+237B 14 . INC D ;
+237C D5 . PUSH DE
+237D FD E1 .. POP IY
+237F 15 . DEC D
+2380 FE 79 .y CP 79 ; "y" Kennzeichen
+2382 28 02 (. JR Z,2386
+2384 FD 23 .# INC IY
+2386 FD 7E 02 .~. LD A,(IY+02) ; Offset + pos
+2389 80 . ADD B
+238A FD CB 00 56 ...V BIT 2,(IY+00) ; Keine Konvertierung
+238E 20 0C . JR NZ,239C
+2390 FD CB 00 46 ...F BIT 0,(IY+00) ; Dezimale ASCII-Ausgabe
+2394 20 0E . JR NZ,23A4
+2396 FE 0C .. CP 0C ; Elbit Cursor
+2398 38 02 8. JR C,239C
+239A C6 04 .. ADD A,04 ; ywert
+239C CD B8 23 ..# CALL 23B8 ; Byte ausgeben
+239F FD E1 .. POP IY
+23A1 E1 . POP HL
+23A2 23 # INC HL
+23A3 C9 . RET ;--------- Dezimal ausgeben -------
+23A4 D5 . PUSH DE
+23A5 5F _ LD E,A
+23A6 16 00 .. LD D,00
+23A8 21 A4 26 !.& LD HL,26A4 ; Zwischenspeicheraddresse
+23AB CD 00 4E ..N CALL 4E00 ; String uebertragen
+23AE 41 A LD B,C ; Laengebyte
+23AF 21 A4 26 !.& LD HL,26A4 ; Startaddresse des Strings
+23B2 CD 61 23 .a# CALL 2361 ; String ausgeben
+23B5 D1 . POP DE
+23B6 18 E7 .. JR 239F ; Return
+23B8 E5 . PUSH HL
+23B9 C5 . PUSH BC
+23BA 21 AA 26 !.& LD HL,26AA
+23BD 77 w LD (HL),A
+23BE 01 01 00 ... LD BC,0001
+23C1 3A AC 26 :.& LD A,(26AC)
+23C4 CD 7B 28 .{( CALL 287B
+23C7 78 x LD A,B
+23C8 B1 . OR C
+23C9 28 F3 (. JR Z,23BE
+23CB C1 . POP BC
+23CC E1 . POP HL
+23CD C9 . RET
+23CE E1 . POP HL
+23CF B7 . OR A
+23D0 ED 42 .B SBC HL,BC
+23D2 E3 . EX (SP),HL
+23D3 C1 . POP BC
+23D4 B7 . OR A
+23D5 ED 42 .B SBC HL,BC
+23D7 44 D LD B,H
+23D8 4D M LD C,L
+23D9 E1 . POP HL
+23DA D1 . POP DE
+23DB DD E1 .. POP IX
+23DD F1 . POP AF
+23DE B7 . OR A
+23DF C9 . RET
+23E0 C1 . POP BC
+23E1 E1 . POP HL
+23E2 2B + DEC HL
+23E3 C1 . POP BC
+23E4 18 EC .. JR 23D2
+23E6 E1 . POP HL
+23E7 E1 . POP HL
+23E8 C1 . POP BC
+23E9 18 E7 .. JR 23D2 ;----- Zeiger auf Kanaltabelle
+23EB D5 . PUSH DE
+23EC C5 . PUSH BC
+23ED 21 B1 26 !.& LD HL,26B1
+23F0 47 G LD B,A
+23F1 11 18 00 ... LD DE,0018 ; 24 Bytes lang ein entry
+23F4 19 . ADD HL,DE
+23F5 10 FD .. DJNZ 23F4
+23F7 C1 . POP BC
+23F8 D1 . POP DE
+23F9 C9 . RET
+23FA CD EB 23 ..# CALL 23EB
+23FD 22 AD 26 ".& LD (26AD),HL
+2400 C9 . RET ;--------- Typtabellennummeraddr->HL
+2401 FE 7E .~ CP 7E ; psi
+2403 C8 . RET Z
+2404 FE 05 .. CP 05 ; Tabellennummer >= 5 ?
+2406 38 0E 8. JR C,2416
+2408 CD 1F 70 ..p CALL 701F ; Info aufrufen
+240B 18 09 .. JR 2416 ; " lst ovfl"
+240D 20 6C l JR NZ,247B
+240F 73 s LD (HL),E
+2410 74 t LD (HL),H
+2411 20 6F o JR NZ,2482
+2413 76 v HALT
+2414 66 f LD H,(HL)
+2415 6C l LD L,H
+2416 21 B3 26 !.& LD HL,26B3
+2419 85 . ADD L
+241A 6F o LD L,A
+241B 30 01 0. JR NC,241E
+241D 24 $ INC H
+241E C9 . RET ;------ Addresse der Typtabelle --
+241F CD 01 24 ..$ CALL 2401
+2422 66 f LD H,(HL)
+2423 2E 00 .. LD L,00
+2425 C9 . RET ;--Typt.Block reservieren -------
+2426 E5 . PUSH HL
+2427 D5 . PUSH DE
+2428 CD 42 5E .B^ CALL 5E42 ; Block freimachen
+242B 7D } LD A,L
+242C 87 . ADD A ; * 2
+242D D1 . POP DE
+242E E1 . POP HL
+242F 77 w LD (HL),A ; Pufferaddresse (Block)eintragen
+2430 C9 . RET
+2431 F1 . POP AF
+2432 01 FF FF ... LD BC,FFFF ; Returncode -1
+2435 C9 . RET ; ---- 173/175 Shard-IOCONTROL -----
+2436 F5 . PUSH AF
+2437 3A 6B 28 :k( LD A,(286B) ; Shardversion
+243A FE 06 .. CP 06 ; 173 Shard
+243C 38 F3 8. JR C,2431 ; < 6 : control geht nicht
+243E FE 08 .. CP 08
+2440 30 0A 0. JR NC,244C ; >= 8 : keine Registerverlagerung
+2442 F1 . POP AF ; 173: Register umdrehen
+2443 61 a LD H,C ; H = Schlssel (>=8: HL=Schlssel)
+2444 42 B LD B,D ; BC = Funktionsnummer
+2445 4B K LD C,E ; L war schon addressierter Kanal
+2446 11 00 00 ... LD DE,0000 ; DE = Funktionscode 1 (nicht in <8)
+2449 C3 A8 28 ..( JP 28A8 ; IOCONTROL an Shard geben
+244C F1 . POP AF ; --- 175 Shard-IOCONTROL ----------
+244D C5 . PUSH BC
+244E 42 B LD B,D ; Funktionsnummer nach BC
+244F 4B K LD C,E
+2450 54 T LD D,H ; Code 1 nach DE
+2451 5D ] LD E,L
+2452 E1 . POP HL ; Code 2 nach HL
+2453 C3 A8 28 ..( JP 28A8 ; ---- CONTROL (DE,HL,BC,res BC) ----
+2456 CB 7A .z BIT 7,D
+2458 20 F3 . JR NZ,244D
+245A F5 . PUSH AF
+245B 7B { LD A,E ; Control 6: flow (kanal.
+245C FE 06 .. CP 06
+245E CA 24 25 .$% JP Z,2524
+2461 FE 08 .. CP 08 ; Control 8: baud (kanal,schlssl,res)
+2463 28 D2 (. JR Z,2437
+2465 FE 09 .. CP 09 ; Control 9: bits (kanal,schlssl,res)
+2467 28 CE (. JR Z,2437
+2469 FE 0A .. CP 0A ; Control 10: calendar (field,0,bcd)
+246B 28 1B (. JR Z,2488
+246D FE 0C .. CP 0C ; Control 12: xmiterror (0,0,err)
+246F 20 1E . JR NZ,248F ;--------- IOCONTROL 12 ----------
+2471 0E 3F .? LD C,3F
+2473 3A 6B 28 :k( LD A,(286B)
+2476 FE 08 .. CP 08 ; Shard Version >= 8 ?
+2478 30 02 0. JR NC,247C
+247A 0E 20 . LD C,20 ; Nur Puffer uebergelaufen
+247C F1 . POP AF
+247D CD EB 23 ..# CALL 23EB ; Zeiger auf Kanaltabelle
+2480 23 # INC HL
+2481 7E ~ LD A,(HL)
+2482 A1 . AND C
+2483 4F O LD C,A
+2484 06 00 .. LD B,00
+2486 70 p LD (HL),B
+2487 C9 . RET ; ----- IOCONTROL calendar ---------
+2488 3A 6B 28 :k( LD A,(286B)
+248B FE 08 .. CP 08 ; Shard Vers >= 8 ?
+248D 38 A2 8. JR C,2431 ; nein, Return -1
+248F F1 . POP AF ; ------
+2490 FE 20 . CP 20 ; Parameterkanal ?
+2492 28 0E (. JR Z,24A2
+2494 F5 . PUSH AF ; Kein Parameterkanal
+2495 7B { LD A,E
+2496 FE 05 .. CP 05 ; Funktion 5: size
+2498 28 04 (. JR Z,249E
+249A FE 07 .. CP 07 ; Funktion 7: format
+249C 20 AE . JR NZ,244C
+249E F1 . POP AF
+249F C3 2A 64 .*d JP 642A ; šbergeben an PROZ ARCH
+24A2 7B { LD A,E ; Am Parameterkanal
+24A3 FE 01 .. CP 01 ; Funktion 1: typtab(kanal,typnr,res)
+24A5 28 65 (e JR Z,250C
+24A7 FE 02 .. CP 02 ; Funktion 2: inbuffsize(kanal,size,res)
+24A9 28 06 (. JR Z,24B1
+24AB FE 0B .. CP 0B ; Funktion 11: ysize(kanal,ysize,res)
+24AD CA 3C 25 .<% JP Z,253C
+24B0 C9 . RET ;--- CONTROL inputbuffersize ------
+24B1 7D } LD A,L ; Funktion 2 :
+24B2 FE 11 .. CP 11
+24B4 D0 . RET NC ; Kanal < 17 ?
+24B5 CD EB 23 ..# CALL 23EB ; Zeiger auf Kanaltabelle berechnen
+24B8 78 x LD A,B ; > 255 ?
+24B9 FE 01 .. CP 01
+24BB 30 22 0" JR NC,24DF
+24BD CB 6E .n BIT 5,(HL) ; inputbuffersize < 256
+24BF C8 . RET Z ; schon eingestellt
+24C0 DD E5 .. PUSH IX
+24C2 E5 . PUSH HL
+24C3 DD E1 .. POP IX
+24C5 DD 66 07 .f. LD H,(IX+07) ; 7 = Blockaddresse
+24C8 DD 6E 0C .n. LD L,(IX+0C)
+24CB CD 0B 5E ..^ CALL 5E0B ; Alten Pufferblock freigeben
+24CE F3 . DI
+24CF DD 36 00 00 .6.. LD (IX+00),00 ; Jetzt kleiner Puffer ohne Flussk.
+24D3 DD 36 04 07 .6.. LD (IX+04),07 ; Zeiger auf Pufferanfang
+24D7 FB . EI
+24D8 DD 36 05 07 .6.. LD (IX+05),07
+24DC DD E1 .. POP IX
+24DE C9 . RET ;---- Grosser Puffer --------------
+24DF CB 6E .n BIT 5,(HL)
+24E1 C0 . RET NZ ; war schon > 255 eingestellt
+24E2 DD E5 .. PUSH IX
+24E4 E5 . PUSH HL
+24E5 CD 18 5E ..^ CALL 5E18 ; Block freimachen fuer Puffer
+24E8 DD E1 .. POP IX
+24EA F3 . DI
+24EB DD CB 00 EE .... SET 5,(IX+00) ; Grosser Puffer
+24EF DD 74 07 .t. LD (IX+07),H ; Pufferaddresse setzen
+24F2 DD 75 0C .u. LD (IX+0C),L
+24F5 97 . SUB A ; Puffer leeren
+24F6 DD 77 04 .w. LD (IX+04),A ; Lese- und Schreibzeiger jetzt 16Bit
+24F9 DD 77 08 .w. LD (IX+08),A ; Auf Blockanfang
+24FC DD 77 05 .w. LD (IX+05),A
+24FF DD 77 0B .w. LD (IX+0B),A
+2502 DD 77 09 .w. LD (IX+09),A
+2505 DD 77 0A .w. LD (IX+0A),A
+2508 FB . EI
+2509 DD E1 .. POP IX
+250B C9 . RET ;------ CONTROL typtabelle -------
+250C 79 y LD A,C ; Typtabelle einstellen
+250D FE FE .. CP FE ; >= 254: psi o. transparent
+250F 30 05 0. JR NC,2516 ;
+2511 FE 05 .. CP 05
+2513 D2 3F 26 .?& JP NC,263F ; >= 5: falsche Nummer
+2516 7D } LD A,L
+2517 FE 11 .. CP 11
+2519 D2 5A 26 .Z& JP NC,265A
+251C CD 95 26 ..& CALL 2695 ; Kanaltyptabellenaddresse holen
+251F 71 q LD (HL),C ; Nummer eintragen
+2520 01 00 00 ... LD BC,0000 ; ok
+2523 C9 . RET ;------ IOCONTROL flow ----------
+2524 F1 . POP AF ; Eigener Kanal
+2525 C5 . PUSH BC
+2526 E5 . PUSH HL
+2527 CD 36 24 .6$ CALL 2436 ; Shard IOCONTROL flow
+252A E1 . POP HL
+252B D1 . POP DE
+252C 7D } LD A,L ; Addressierter Kanal
+252D FE 11 .. CP 11 ; > 16: fertig
+252F D0 . RET NC
+2530 CD 95 26 ..& CALL 2695 ; Tytabellennummer holen --> A
+2533 CB BE .. RES 7,(HL) ; Erstmal keine Fluákontrolle setzen
+2535 7B { LD A,E
+2536 B7 . OR A
+2537 28 02 (. JR Z,253B ; Wenn Fluákontrolle, dann in Typ-
+2539 CB FE .. SET 7,(HL) ; tabellennummer vermerken
+253B C9 . RET ;------- IOCONTROL ysize -----------
+253C 7D } LD A,L ; Addressierter Kanal
+253D FE 11 .. CP 11 ; > 16: fertig
+253F D0 . RET NC
+2540 CD EB 23 ..# CALL 23EB ; Addresse der Kanaltabelle holen
+2543 DD E5 .. PUSH IX
+2545 E5 . PUSH HL
+2546 DD E1 .. POP IX
+2548 0D . DEC C ; ysize-1 (=ymax f. y=0..ymax)
+2549 DD 46 06 .F. LD B,(IX+06) ; Return = alte ysize
+254C 04 . INC B ; ymax + 1 = ysize
+254D DD 71 06 .q. LD (IX+06),C
+2550 DD E1 .. POP IX
+2552 48 H LD C,B ; Nur Werte 0..255
+2553 06 00 .. LD B,00
+2555 C9 . RET ;----------------------------------
+2556 CB 7C .| BIT 7,H
+2558 C2 DE 63 ..c JP NZ,63DE
+255B 32 AC 26 2.& LD (26AC),A
+255E 7C | LD A,H
+255F B5 . OR L
+2560 20 06 . JR NZ,2568
+2562 3A AC 26 :.& LD A,(26AC)
+2565 C3 DE 63 ..c JP 63DE
+2568 7C | LD A,H
+2569 E6 FE .. AND FE
+256B FE 02 .. CP 02
+256D 28 08 (. JR Z,2577
+256F C3 5E 26 .^& JP 265E
+2572 01 01 02 ... LD BC,0201
+2575 E1 . POP HL
+2576 C9 . RET
+2577 78 x LD A,B
+2578 B1 . OR C
+2579 C8 . RET Z
+257A 25 % DEC H
+257B 25 % DEC H
+257C E5 . PUSH HL
+257D 09 . ADD HL,BC
+257E 7C | LD A,H
+257F D6 02 .. SUB A,02
+2581 38 05 8. JR C,2588
+2583 20 ED . JR NZ,2572
+2585 B5 . OR L
+2586 20 EA . JR NZ,2572
+2588 3A AC 26 :.& LD A,(26AC)
+258B CD FA 23 ..# CALL 23FA
+258E E1 . POP HL
+258F 19 . ADD HL,DE
+2590 DD E5 .. PUSH IX
+2592 DD 2A AD 26 .*.& LD IX,(26AD)
+2596 DD CB 00 6E ...n BIT 5,(IX+00)
+259A 28 5E (^ JR Z,25FA
+259C C5 . PUSH BC
+259D E5 . PUSH HL
+259E DD 66 0B .f. LD H,(IX+0B)
+25A1 DD 6E 04 .n. LD L,(IX+04)
+25A4 B7 . OR A
+25A5 ED 42 .B SBC HL,BC
+25A7 DA 13 26 ..& JP C,2613
+25AA DD 66 07 .f. LD H,(IX+07)
+25AD DD 6E 0C .n. LD L,(IX+0C)
+25B0 CD 81 5A ..Z CALL 5A81
+25B3 ED 43 AF 26 .C.& LD (26AF),BC
+25B7 DD 6E 05 .n. LD L,(IX+05)
+25BA DD 7E 0A .~. LD A,(IX+0A)
+25BD E6 01 .. AND 01
+25BF 84 . ADD H
+25C0 67 g LD H,A
+25C1 D1 . POP DE
+25C2 C1 . POP BC
+25C3 C5 . PUSH BC
+25C4 23 # INC HL
+25C5 7D } LD A,L
+25C6 B7 . OR A
+25C7 20 06 . JR NZ,25CF
+25C9 CB 44 .D BIT 0,H
+25CB 20 02 . JR NZ,25CF
+25CD 25 % DEC H
+25CE 25 % DEC H
+25CF ED A0 .. LDI
+25D1 EA C5 25 ..% JP PE,25C5
+25D4 2B + DEC HL
+25D5 DD 75 05 .u. LD (IX+05),L
+25D8 DD 74 0A .t. LD (IX+0A),H
+25DB ED 4B AF 26 .K.& LD BC,(26AF)
+25DF CD 8C 5A ..Z CALL 5A8C
+25E2 C1 . POP BC
+25E3 F3 . DI
+25E4 DD 66 0B .f. LD H,(IX+0B)
+25E7 DD 6E 04 .n. LD L,(IX+04)
+25EA B7 . OR A
+25EB ED 42 .B SBC HL,BC
+25ED DD 74 0B .t. LD (IX+0B),H
+25F0 DD 75 04 .u. LD (IX+04),L
+25F3 FB . EI
+25F4 01 00 00 ... LD BC,0000
+25F7 DD E1 .. POP IX
+25F9 C9 . RET ;----------------------------------
+25FA 3A AC 26 :.& LD A,(26AC)
+25FD CD AD 1E ... CALL 1EAD
+2600 DC 1A 26 ..& CALL C,261A
+2603 DD E1 .. POP IX
+2605 3A AC 26 :.& LD A,(26AC)
+2608 CD 06 1F ... CALL 1F06
+260B D8 . RET C
+260C 77 w LD (HL),A
+260D ED A1 .. CPI
+260F EA 05 26 ..& JP PE,2605
+2612 C9 . RET
+2613 CD 1A 26 ..& CALL 261A
+2616 E1 . POP HL
+2617 C1 . POP BC
+2618 18 E9 .. JR 2603
+261A 2A AD 26 *.& LD HL,(26AD)
+261D 7E ~ LD A,(HL)
+261E EE 40 .@ XOR 40
+2620 77 w LD (HL),A
+2621 CB 77 .w BIT 6,A
+2623 C8 . RET Z
+2624 21 00 00 !.. LD HL,0000
+2627 C3 1A 6C ..l JP 6C1A
+262A CB 7C .| BIT 7,H
+262C C2 25 64 .%d JP NZ,6425
+262F 32 AC 26 2.& LD (26AC),A
+2632 F5 . PUSH AF
+2633 7C | LD A,H
+2634 B5 . OR L
+2635 20 2B + JR NZ,2662
+2637 F1 . POP AF
+2638 FE 20 . CP 20
+263A C2 25 64 .%d JP NZ,6425
+263D 18 04 .. JR 2643
+263F 01 02 00 ... LD BC,0002 ; Nummer der Typtabelle falsch
+2642 C9 . RET
+2643 79 y LD A,C
+2644 FE 05 .. CP 05
+2646 30 F7 0. JR NC,263F
+2648 CD 01 24 ..$ CALL 2401
+264B 7E ~ LD A,(HL)
+264C B7 . OR A
+264D CC 26 24 .&$ CALL Z,2426
+2650 67 g LD H,A
+2651 2E 00 .. LD L,00
+2653 EB . EX DE,HL
+2654 01 00 02 ... LD BC,0200 ; Typtabelle in Bereich uebertragen
+2657 ED B0 .. LDIR
+2659 C9 . RET
+265A 01 03 00 ... LD BC,0003
+265D C9 . RET
+265E 01 01 00 ... LD BC,0001
+2661 C9 . RET
+2662 F1 . POP AF
+2663 7C | LD A,H
+2664 E6 FE .. AND FE
+2666 FE 02 .. CP 02
+2668 28 02 (. JR Z,266C
+266A 18 F2 .. JR 265E
+266C 78 x LD A,B
+266D B1 . OR C
+266E C8 . RET Z
+266F C5 . PUSH BC
+2670 E5 . PUSH HL
+2671 01 02 00 ... LD BC,0002
+2674 3A AC 26 :.& LD A,(26AC)
+2677 CD A8 28 ..( CALL 28A8 ; IOCONTROL frout
+267A 21 1C 00 !.. LD HL,001C ; 28 Zeichen
+267D ED 42 .B SBC HL,BC ; Anzahl uebernommener Zeichen
+267F D4 1A 26 ..& CALL NC,261A
+2682 E1 . POP HL
+2683 C1 . POP BC
+2684 25 % DEC H
+2685 25 % DEC H
+2686 19 . ADD HL,DE
+2687 C5 . PUSH BC
+2688 3A AC 26 :.& LD A,(26AC)
+268B CD 88 21 ..! CALL 2188
+268E E1 . POP HL
+268F B7 . OR A
+2690 ED 42 .B SBC HL,BC
+2692 44 D LD B,H
+2693 4D M LD C,L
+2694 C9 . RET
+2695 21 B8 26 !.& LD HL,26B8
+2698 C5 . PUSH BC
+2699 4F O LD C,A
+269A 06 00 .. LD B,00
+269C 09 . ADD HL,BC
+269D C1 . POP BC
+269E 7E ~ LD A,(HL)
+269F CB BF .. RES 7,A
+26A1 FE 7F .. CP 7F
+26A3 C9 . RET
+26A4 FF . RST 38
+26A5 FF . RST 38
+26A6 FF . RST 38
+26A7 FF . RST 38
+26A8 FF . RST 38
+26A9 00 . NOP
+26AA 00 . NOP
+26AB 00 . NOP
+26AC 00 . NOP
+26AD 00 . NOP
+26AE 00 . NOP
+26AF 00 . NOP
+26B0 00 . NOP
+26B1 00 . NOP
+26B2 00 . NOP
+26B3 00 . NOP
+26B4 00 . NOP
+26B5 00 . NOP
+26B6 00 . NOP
+26B7 00 . NOP
+26B8 00 . NOP ; typtabellen nummern & Flusskontr.
+26B9 7E ~ LD A,(HL) ; Kanal 1 : psi ohne flow
+26BA FF . RST 38 ; kanal 2 : transparent mit flow
+26BB FF . RST 38 ; (Bit 7 = 1: Mit Fluákontrolle)
+26BC FF . RST 38
+26BD FF . RST 38
+26BE FF . RST 38
+26BF FF . RST 38
+26C0 FF . RST 38
+26C1 FF . RST 38
+26C2 FF . RST 38
+26C3 FF . RST 38
+26C4 FF . RST 38
+26C5 FF . RST 38
+26C6 FF . RST 38
+26C7 FF . RST 38
+26C8 FF . RST 38 ; kanal 16
+ ; kanaltabelle fuer kanal 1
+26C9 00 . NOP 0 ; Bit 0 :
+ ; Bit 3 : 1=Stoptaste gedrueckt
+ ; Bit 5 : 1=Grosser Puffer (>255Byte)
+26CA 00 . NOP 1 ; Bits 0..5 : Errorbits
+26CB FF . RST 38 2 ; Cursorpos y
+26CC FF . RST 38 3 ; Cursorpos x
+26CD 07 . RLCA 4 ; Pufferzeiger schreiben
+26CE 07 . RLCA 5 ; Pufferzeiger lesen
+26CF 17 . RLA 6 ; ysize = 23
+26D0 FF . RST 38 7 ; Ab hier Eingabezeichen ...
+26D1 FF . RST 38 8 ;
+26D2 FF . RST 38 9 ;
+26D3 FF . RST 38 10 ;
+26D4 FF . RST 38 11 ;
+26D5 FF . RST 38 12 ;
+26D6 FF . RST 38
+26D7 FF . RST 38
+26D8 FF . RST 38
+26D9 FF . RST 38
+26DA FF . RST 38
+26DB FF . RST 38
+26DC FF . RST 38 ; I.d.R bis hier
+26DD FF . RST 38
+26DE FF . RST 38
+26DF FF . RST 38
+26E0 FF . RST 38
+26E1 00 . NOP ; kanal 2
+26E2 00 . NOP
+26E3 FF . RST 38
+26E4 FF . RST 38
+26E5 07 . RLCA
+26E6 07 . RLCA
+26E7 17 . RLA
+26E8 FF . RST 38
+26E9 FF . RST 38
+26EA FF . RST 38
+26EB FF . RST 38
+26EC FF . RST 38
+26ED FF . RST 38
+26EE FF . RST 38
+26EF FF . RST 38
+26F0 FF . RST 38
+26F1 FF . RST 38
+26F2 FF . RST 38
+26F3 FF . RST 38
+26F4 FF . RST 38
+26F5 FF . RST 38
+26F6 FF . RST 38
+26F7 FF . RST 38
+26F8 FF . RST 38
+26F9 00 . NOP ; kanal 3
+26FA 00 . NOP
+26FB FF . RST 38
+26FC FF . RST 38
+26FD 07 . RLCA
+26FE 07 . RLCA
+26FF 17 . RLA
+2700 FF . RST 38
+2701 FF . RST 38
+2702 FF . RST 38
+2703 FF . RST 38
+2704 FF . RST 38
+2705 FF . RST 38
+2706 FF . RST 38
+2707 FF . RST 38
+2708 FF . RST 38
+2709 FF . RST 38
+270A FF . RST 38
+270B FF . RST 38
+270C FF . RST 38
+270D FF . RST 38
+270E FF . RST 38
+270F FF . RST 38
+2710 FF . RST 38
+2711 00 . NOP ; kanal 4
+2712 00 . NOP
+2713 FF . RST 38
+2714 FF . RST 38
+2715 07 . RLCA
+2716 07 . RLCA
+2717 17 . RLA
+2718 FF . RST 38
+2719 FF . RST 38
+271A FF . RST 38
+271B FF . RST 38
+271C FF . RST 38
+271D FF . RST 38
+271E FF . RST 38
+271F FF . RST 38
+2720 FF . RST 38
+2721 FF . RST 38
+2722 FF . RST 38
+2723 FF . RST 38
+2724 FF . RST 38
+2725 FF . RST 38
+2726 FF . RST 38
+2727 FF . RST 38
+2728 FF . RST 38
+2729 00 . NOP ; kanal 5
+272A 00 . NOP
+272B FF . RST 38
+272C FF . RST 38
+272D 07 . RLCA
+272E 07 . RLCA
+272F 17 . RLA
+2730 FF . RST 38
+2731 FF . RST 38
+2732 FF . RST 38
+2733 FF . RST 38
+2734 FF . RST 38
+2735 FF . RST 38
+2736 FF . RST 38
+2737 FF . RST 38
+2738 FF . RST 38
+2739 FF . RST 38
+273A FF . RST 38
+273B FF . RST 38
+273C FF . RST 38
+273D FF . RST 38
+273E FF . RST 38
+273F FF . RST 38
+2740 FF . RST 38
+2741 00 . NOP ; kanal 6
+2742 00 . NOP
+2743 FF . RST 38
+2744 FF . RST 38
+2745 07 . RLCA
+2746 07 . RLCA
+2747 17 . RLA
+2748 FF . RST 38
+2749 FF . RST 38
+274A FF . RST 38
+274B FF . RST 38
+274C FF . RST 38
+274D FF . RST 38
+274E FF . RST 38
+274F FF . RST 38
+2750 FF . RST 38
+2751 FF . RST 38
+2752 FF . RST 38
+2753 FF . RST 38
+2754 FF . RST 38
+2755 FF . RST 38
+2756 FF . RST 38
+2757 FF . RST 38
+2758 FF . RST 38
+2759 00 . NOP ; kanal 7
+275A 00 . NOP
+275B FF . RST 38
+275C FF . RST 38
+275D 07 . RLCA
+275E 07 . RLCA
+275F 17 . RLA
+2760 FF . RST 38
+2761 FF . RST 38
+2762 FF . RST 38
+2763 FF . RST 38
+2764 FF . RST 38
+2765 FF . RST 38
+2766 FF . RST 38
+2767 FF . RST 38
+2768 FF . RST 38
+2769 FF . RST 38
+276A FF . RST 38
+276B FF . RST 38
+276C FF . RST 38
+276D FF . RST 38
+276E FF . RST 38
+276F FF . RST 38
+2770 FF . RST 38
+2771 00 . NOP ; kanal 8
+2772 00 . NOP
+2773 FF . RST 38
+2774 FF . RST 38
+2775 07 . RLCA
+2776 07 . RLCA
+2777 17 . RLA
+2778 FF . RST 38
+2779 FF . RST 38
+277A FF . RST 38
+277B FF . RST 38
+277C FF . RST 38
+277D FF . RST 38
+277E FF . RST 38
+277F FF . RST 38
+2780 FF . RST 38
+2781 FF . RST 38
+2782 FF . RST 38
+2783 FF . RST 38
+2784 FF . RST 38
+2785 FF . RST 38
+2786 FF . RST 38
+2787 FF . RST 38
+2788 FF . RST 38
+2789 00 . NOP ; kanal 9
+278A 00 . NOP
+278B FF . RST 38
+278C FF . RST 38
+278D 07 . RLCA
+278E 07 . RLCA
+278F 17 . RLA
+2790 FF . RST 38
+2791 FF . RST 38
+2792 FF . RST 38
+2793 FF . RST 38
+2794 FF . RST 38
+2795 FF . RST 38
+2796 FF . RST 38
+2797 FF . RST 38
+2798 FF . RST 38
+2799 FF . RST 38
+279A FF . RST 38
+279B FF . RST 38
+279C FF . RST 38
+279D FF . RST 38
+279E FF . RST 38
+279F FF . RST 38
+27A0 FF . RST 38
+27A1 00 . NOP ; kanal 10
+27A2 00 . NOP
+27A3 FF . RST 38
+27A4 FF . RST 38
+27A5 07 . RLCA
+27A6 07 . RLCA
+27A7 17 . RLA
+27A8 FF . RST 38
+27A9 FF . RST 38
+27AA FF . RST 38
+27AB FF . RST 38
+27AC FF . RST 38
+27AD FF . RST 38
+27AE FF . RST 38
+27AF FF . RST 38
+27B0 FF . RST 38
+27B1 FF . RST 38
+27B2 FF . RST 38
+27B3 FF . RST 38
+27B4 FF . RST 38
+27B5 FF . RST 38
+27B6 FF . RST 38
+27B7 FF . RST 38
+27B8 FF . RST 38
+27B9 00 . NOP ; kanal 11
+27BA 00 . NOP
+27BB FF . RST 38
+27BC FF . RST 38
+27BD 07 . RLCA
+27BE 07 . RLCA
+27BF 17 . RLA
+27C0 FF . RST 38
+27C1 FF . RST 38
+27C2 FF . RST 38
+27C3 FF . RST 38
+27C4 FF . RST 38
+27C5 FF . RST 38
+27C6 FF . RST 38
+27C7 FF . RST 38
+27C8 FF . RST 38
+27C9 FF . RST 38
+27CA FF . RST 38
+27CB FF . RST 38
+27CC FF . RST 38
+27CD FF . RST 38
+27CE FF . RST 38
+27CF FF . RST 38
+27D0 FF . RST 38
+27D1 00 . NOP ; kanal 12
+27D2 00 . NOP
+27D3 FF . RST 38
+27D4 FF . RST 38
+27D5 07 . RLCA
+27D6 07 . RLCA
+27D7 17 . RLA
+27D8 FF . RST 38
+27D9 FF . RST 38
+27DA FF . RST 38
+27DB FF . RST 38
+27DC FF . RST 38
+27DD FF . RST 38
+27DE FF . RST 38
+27DF FF . RST 38
+27E0 FF . RST 38
+27E1 FF . RST 38
+27E2 FF . RST 38
+27E3 FF . RST 38
+27E4 FF . RST 38
+27E5 FF . RST 38
+27E6 FF . RST 38
+27E7 FF . RST 38
+27E8 FF . RST 38
+27E9 00 . NOP ; kanal 13
+27EA 00 . NOP
+27EB FF . RST 38
+27EC FF . RST 38
+27ED 07 . RLCA
+27EE 07 . RLCA
+27EF 17 . RLA
+27F0 FF . RST 38
+27F1 FF . RST 38
+27F2 FF . RST 38
+27F3 FF . RST 38
+27F4 FF . RST 38
+27F5 FF . RST 38
+27F6 FF . RST 38
+27F7 FF . RST 38
+27F8 FF . RST 38
+27F9 FF . RST 38
+27FA FF . RST 38
+27FB FF . RST 38
+27FC FF . RST 38
+27FD FF . RST 38
+27FE FF . RST 38
+27FF FF . RST 38
+2800 FF . RST 38
+2801 00 . NOP ; kanal 14
+2802 00 . NOP
+2803 FF . RST 38
+2804 FF . RST 38
+2805 07 . RLCA
+2806 07 . RLCA
+2807 17 . RLA
+2808 FF . RST 38
+2809 FF . RST 38
+280A FF . RST 38
+280B FF . RST 38
+280C FF . RST 38
+280D FF . RST 38
+280E FF . RST 38
+280F FF . RST 38
+2810 FF . RST 38
+2811 FF . RST 38
+2812 FF . RST 38
+2813 FF . RST 38
+2814 FF . RST 38
+2815 FF . RST 38
+2816 FF . RST 38
+2817 FF . RST 38
+2818 FF . RST 38
+2819 00 . NOP ; kanal 15
+281A 00 . NOP
+281B FF . RST 38
+281C FF . RST 38
+281D 07 . RLCA
+281E 07 . RLCA
+281F 17 . RLA
+2820 FF . RST 38
+2821 FF . RST 38
+2822 FF . RST 38
+2823 FF . RST 38
+2824 FF . RST 38
+2825 FF . RST 38
+2826 FF . RST 38
+2827 FF . RST 38
+2828 FF . RST 38
+2829 FF . RST 38
+282A FF . RST 38
+282B FF . RST 38
+282C FF . RST 38
+282D FF . RST 38
+282E FF . RST 38
+282F FF . RST 38
+2830 FF . RST 38
+2831 00 . NOP ; kanal 16
+2832 00 . NOP
+2833 FF . RST 38
+2834 FF . RST 38
+2835 07 . RLCA
+2836 07 . RLCA
+2837 17 . RLA
+2838 FF . RST 38
+2839 FF . RST 38
+283A FF . RST 38
+283B FF . RST 38
+283C FF . RST 38
+283D FF . RST 38
+283E FF . RST 38
+283F FF . RST 38
+2840 FF . RST 38
+2841 FF . RST 38
+2842 FF . RST 38
+2843 FF . RST 38
+2844 FF . RST 38
+2845 FF . RST 38
+2846 FF . RST 38
+2847 FF . RST 38
+2848 FF . RST 38
+2849 73 s LD (HL),E ; "shdifc.z80 001 (!)"
+284A 68 h LD L,B
+284B 64 d LD H,H
+284C 69 i LD L,C
+284D 66 f LD H,(HL)
+284E 63 c LD H,E
+284F 2E 7A .z LD L,7A
+2851 38 30 80 JR C,2883
+2853 20 30 0 JR NZ,2885
+2855 30 31 01 JR NC,2888
+2857 20 28 ( JR NZ,2881
+2859 21 29
+285B FF ;------ 69 Bytes von hier -------
+285C FF . RST 38 ; "SHARD "
+285D FF . RST 38
+285E FF . RST 38
+285F FF . RST 38
+2860 FF . RST 38
+2861 FF . RST 38
+2862 FF . RST 38
+2863 FF . RST 38
+2864 FF . RST 38
+2865 FF . RST 38
+2866 FF . RST 38
+2867 FF . RST 38
+2868 FF . RST 38
+2869 FF . RST 38
+286A FF . RST 38 ; Shard Interface
+286B 06 ; SHard versionnummer(wird veraendert
+286C 00 ; "
+286D 00 . NOP ; mode :BIT 0: 1=frei eumel0
+286E 00 . NOP ; bit 8:0=speichetest,9:0=vortest
+286F 00 . NOP ; id4
+2870 00 . NOP
+2871 00 . NOP ; id5
+2872 00 . NOP
+2873 00 . NOP ; id6
+2874 00 . NOP
+2875 00 . NOP ; id7
+2876 00 . NOP
+2877 00 . NOP ; leer
+2878 00 . NOP
+2879 00 . NOP ; leer
+287A 00 . NOP
+287B C3 06 01 ... JP 0106 ; OUTPUT
+287E C3 09 01 ... JP 0109 ; BLOCKIN
+2881 C3 0C 01 ... JP 010C ; BLOCKOUT
+2884 C3 0F 01 ... JP 010F ; IOCONTROL
+2887 C3 12 01 ... JP 0112 ; SYSEND
+288A C3 15 01 ... JP 0115 ; SCHINF
+288D C3 18 01 ... JP 0118 ; SCHACC
+2890 00 . NOP ; leer
+2891 00 . NOP
+2892 00 . NOP ; RAM-Limit low
+2893 00 . NOP ; " high
+2894 00 . NOP
+2895 00 . NOP
+2896 00 . NOP
+2897 00 . NOP
+2898 00 . NOP
+2899 00 . NOP
+289A 00 . NOP
+289B 00 . NOP
+289C 00 . NOP
+289D 00 . NOP
+289E 00 . NOP
+289F 00 . NOP ;----------- bis hier ---------
+28A0 ED 5B 92 28 .[.( LD DE,(2892) ; RAM-Limit laden
+28A4 C9 . RET ;-------------------------------
+28A5 ED B0 .. LDIR ; Longmove = LDIR (immer)
+28A7 C9 . RET
+28A8 B7 . OR A ; Intern IOCONTROL
+28A9 20 D9 . JR NZ,2884 ; Fuer alle Kanale > 0: IOCONTROL
+28AB 79 y LD A,C
+28AC FE 05 .. CP 05 ; HG-Kanal Fkt. 5 : Size
+28AE 28 03 (. JR Z,28B3
+28B0 97 . SUB A ; Alle anderen HG-Controls weiter
+28B1 18 D1 .. JR 2884 ; IOCONTROL
+28B3 97 . SUB A
+28B4 CD 84 28 ..( CALL 2884 ; Anz. Bloecke DIV 65536 in A
+28B7 E5 . PUSH HL
+28B8 67 g LD H,A ; A retten
+28B9 3A 6B 28 :k( LD A,(286B) ; Shard Version
+28BC FE 07 .. CP 07
+28BE 30 02 0. JR NC,28C2 ;
+28C0 26 00 &. LD H,00 ; Shard Version 6 : Hoechstens 65536
+28C2 7C | LD A,H ; Shard Version > 6 : Auch mehr als^
+28C3 B7 . OR A
+28C4 20 08 . JR NZ,28CE
+28C6 21 80 7E !.~ LD HL,7E80 ;
+28C9 B7 . OR A ; CLC
+28CA ED 42 .B SBC HL,BC
+28CC E1 . POP HL
+28CD D0 . RET NC
+28CE E1 . POP HL
+28CF 97 . SUB A ; Maximum an Bloecken: 32384
+28D0 01 80 7E ..~ LD BC,7E80 ; 15MB + 832 KB
+28D3 C9 . RET ;========== 175 Systemstart =======
+28D4 11 5B 28 .[( LD DE,285B ; 69 Bytes uebertragen
+28D7 01 45 00 .E. LD BC,0045 ; Von Shard Leiste --> EUMEL0
+28DA ED B0 .. LDIR ; 175 Systemstart
+28DC C3 99 14 ... JP 1499 ;========= 173 Systemstart ========
+28DF 3A 1E 01 :.. LD A,(011E) ; Shardversion
+28E2 32 6B 28 2k( LD (286B),A
+28E5 FE 07 .. CP 07 ; >= 7 : falsche Leiste !
+28E7 30 0A 0. JR NC,28F3
+28E9 CD 03 01 ... CALL 0103 ; LIMIT erfragen
+28EC ED 53 92 28 .S.( LD (2892),DE ; Eintragen
+28F0 C3 99 14 ... JP 1499 ; Zum neuen Systemstart (175)
+28F3 CD 1F 70 ..p CALL 701F ; Info aufrufen
+28F6 18 0F .. JR 2907
+28F8 20 66 f JR NZ,2960 ; " falsche Leiste"
+28FA 61 a LD H,C
+28FB 6C l LD L,H
+28FC 73 s LD (HL),E
+28FD 63 c LD H,E
+28FE 68 h LD L,B
+28FF 65 e LD H,L
+2900 20 4C L JR NZ,294E
+2902 65 e LD H,L
+2903 69 i LD L,C
+2904 73 s LD (HL),E
+2905 74 t LD (HL),H
+2906 65 e LD H,L
+2907 18 EA .. JR 28F3 ; Endlos
+2909 F5 . PUSH AF ; Info Aufruf vom Shard
+290A 3E F2 >. LD A,F2
+290C 32 19 7D 2.} LD (7D19),A
+290F F1 . POP AF
+2910 CD 1F 70 ..p CALL 701F
+2913 18 06 .. JR 291B ; Info aufrufen
+2915 20 73 s JR NZ,298A ; " shard"
+2917 68 h LD L,B
+2918 61 a LD H,C
+2919 72 r LD (HL),D
+291A 64 d LD H,H
+291B C9 . RET ;---------------------------------
+291C 3E 04 >. LD A,04 ; shutup anfordern
+291E C3 BB 81 ... JP 81BB
+2921 3A 00 ; Task geht in Wartezustand--------
+2923 DD 77 06 LD (IX+6),A ; status pcb-Feld setzen
+2926 DD CB 07 7E BIT 7,(IX+7)
+292A C4 02 2A ..* CALL NZ,2A02 ; Speicherfelder --> pcb-felder
+292D 31 13 6D 1.m LD SP,6D13 ; Schleifenanfang fuer offenen Warte
+2930 CD 41 6B .Ak CALL 6B41 ; zustand
+2933 3A 1A 6E :.n LD A,(6E1A)
+2936 3D = DEC A
+2937 CC 38 4C .8L CALL Z,4C38 ; Supervisor
+293A DD 7E 06 .~. LD A,(IX+06)
+293D CB 47 .G BIT 0,A ; geblockt, keine Aktion bis entblockt
+293F 20 3D = JR NZ,297E
+2941 E6 3C .< AND 3C ; Statusbist ausblenden
+2943 FE 2C ., CP 2C
+2945 D2 D8 29 ..) JP NC,29D8
+2948 32 51 29 2Q) LD (2951),A
+294B FE 18 .. CP 18 ; 18 : Leitblockfelder --> Speicher
+294D D4 46 2A .F* CALL NC,2A46
+2950 18 FE .. JR 2950 ; Sprung in Tabelle
+2952 C3 CC 29 ..) JP 29CC ; 00 : Test, ob haltprocess
+2955 FF . RST 38
+2956 C3 BE 29 ..) JP 29BE ; 04 : auf kanalankoppeln warten
+2959 FF . RST 38
+295A C3 AA 29 ..) JP 29AA ; 08 : warten auf tastendruck
+295D FF . RST 38
+295E C3 95 29 ..) JP 2995 ; 0C : pause (in mod)
+2961 FF . RST 38
+2962 C3 7C 2E .|. JP 2E7C ; 10 : Busy, RET TRUE, test halt
+2965 FF . RST 38
+2966 C3 81 2E ... JP 2E81 ; 14 : Busy, RET FALSE, test halt
+2969 FF . RST 38
+296A C3 B5 2F ../ JP 2FB5 ; 18 : CALL PROC
+296D FF . RST 38
+296E C3 38 3D .8= JP 3D38 ; 1C : EXTERNAL TERM
+2971 FF . RST 38
+2972 C3 3D 4A .=J JP 4A3D ; 20 : anford. garbagecollect.
+2975 FF . RST 38
+2976 C3 5D 4A .]J JP 4A5D ; 24 : garbage collect. 1. Teil
+2979 FF . RST 38
+297A C3 09 4B ..K JP 4B09 ; 28 : garbage collect. 2 teil
+297D FF . RST 38
+297E 3A 1A 6E :.n LD A,(6E1A) ; Supervisor
+2981 FE 01 .. CP 01
+2983 20 0A . JR NZ,298F
+2985 F3 . DI
+2986 3A F9 4C :.L LD A,(4CF9)
+2989 B7 . OR A
+298A 3A 1A 6E :.n LD A,(6E1A)
+298D 20 03 . JR NZ,2992 ; SV-Call angefordert ?
+298F CD 74 6D .tm CALL 6D74 ; block SV
+2992 FB . EI
+2993 18 98 .. JR 292D
+2995 2A F1 4C *.L LD HL,(4CF1) ; Pausenende abwarten
+2998 DD 7E 0C .~. LD A,(IX+0C)
+299B 95 . SUB L
+299C DD 7E 0D .~. LD A,(IX+0D)
+299F 9C . SBC H
+29A0 FA CC 29 ..) JP M,29CC
+29A3 DD 7E 26 .~& LD A,(IX+26)
+29A6 B7 . OR A
+29A7 CA 2D 29 .-) JP Z,292D
+29AA DD CB 05 46 ...F BIT 0,(IX+05)
+29AE 20 1C . JR NZ,29CC
+29B0 DD 7E 26 .~& LD A,(IX+26)
+29B3 B7 . OR A
+29B4 28 C8 (. JR Z,297E
+29B6 CD AD 1E ... CALL 1EAD ; taste gedrueckt ?
+29B9 DA 2D 29 .-) JP C,292D
+29BC 18 0E .. JR 29CC
+29BE DD 7E 26 .~& LD A,(IX+26)
+29C1 B7 . OR A
+29C2 28 BA (. JR Z,297E
+29C4 CD 59 1E .Y. CALL 1E59
+29C7 FE 1E .. CP 1E ; Mindestens 30 Zeichen uebernehmen
+29C9 DA 2D 29 .-) JP C,292D
+29CC DD 35 .5 DEC (IX+08)
+29CE 08 . EX AF,AF'
+29CF F2 2D 29 .-) JP P,292D
+29D2 CD 7E 2A .~* CALL 2A7E ; Test, ob halt process
+29D5 C3 A7 2A ..* JP 2AA7 ; zur interpreter schleife
+29D8 DD CB 05 46 ...F BIT 0,(IX+05)
+29DC 20 EE . JR NZ,29CC
+29DE DD 7E 34 .~4 LD A,(IX+34)
+29E1 B7 . OR A
+29E2 20 9A . JR NZ,297E
+29E4 DD 7E 26 .~& LD A,(IX+26)
+29E7 B7 . OR A
+29E8 28 94 (. JR Z,297E
+29EA CD AD 1E ... CALL 1EAD ; taste gedrueckt ?
+29ED DA 2D 29 .-) JP C,292D
+29F0 DD 36 2C FC .6,. LD (IX+2C),FC ; msgcod := -4
+29F4 DD 36 2D FF .6-. LD (IX+2D),FF
+29F8 DD 36 2E 01 .6.. LD (IX+2E),01
+29FC DD CB 07 DE .... SET 3,(IX+07)
+2A00 18 CA .. JR 29CC ;---------------------------------
+2A02 CD F6 4B ..K CALL 4BF6
+2A05 DD CB 07 BE .... RES 7,(IX+07) ; Felder wurden uebertragen
+2A09 ED 5B 1C 6E .[.n LD DE,(6E1C)
+2A0D 1E 10 .. LD E,10 ; 10..17
+2A0F 21 C4 41 !.A LD HL,41C4 ; pcb Felder von Hauptspeicher
+2A12 ED A0 .. LDI ; in Leitblock uebertragen
+2A14 ED A0 .. LDI ; lbas
+2A16 ED A0 .. LDI ; ltop
+2A18 ED A0 .. LDI
+2A1A ED A0 .. LDI ; ls_top
+2A1C ED A0 .. LDI
+2A1E ED A0 .. LDI ; hptop
+2A20 ED A0 .. LDI
+2A22 DD CB 07 6E ...n BIT 5,(IX+07)
+2A26 C4 4D 45 .ME CALL NZ,454D
+2A29 D9 . EXX ; pbas
+2A2A DD 71 0E .q. LD (IX+0E),C
+2A2D DD 7E 2A .~* LD A,(IX+2A) ; prio --> pricnt
+2A30 DD 77 08 .w. LD (IX+08),A
+2A33 08 . EX AF,AF'
+2A34 DD CB 09 16 .... RL (IX+09)
+2A38 1F . RRA
+2A39 30 07 0. JR NC,2A42
+2A3B D6 80 .. SUB A,80
+2A3D 30 03 0. JR NC,2A42
+2A3F DD 35 .5 DEC (IX+0A)
+2A41 0A . LD A,(BC)
+2A42 DD 77 09 .w. LD (IX+09),A
+2A45 C9 . RET ;--------------------------------
+2A46 CD 16 42 ..B CALL 4216
+2A49 DD 4E 0E .N. LD C,(IX+0E) ; pbas
+2A4C 16 19 .. LD D,19
+2A4E D9 . EXX
+2A4F 2A 1C 6E *.n LD HL,(6E1C) ; Leitblock Felder in Hauptspeicher
+2A52 2E 10 .. LD L,10 ; uebertragen
+2A54 11 C4 41 ..A LD DE,41C4
+2A57 ED A0 .. LDI
+2A59 ED A0 .. LDI
+2A5B ED A0 .. LDI
+2A5D ED A0 .. LDI
+2A5F ED A0 .. LDI
+2A61 ED A0 .. LDI
+2A63 ED A0 .. LDI
+2A65 ED A0 .. LDI
+2A67 CD AB 42 ..B CALL 42AB
+2A6A DD 4E 09 .N. LD C,(IX+09)
+2A6D CB 21 .! SLA C
+2A6F 17 . RLA
+2A70 47 G LD B,A
+2A71 DD CB 07 FE .... SET 7,(IX+07) ; Felder wurden uebertragen
+2A75 79 y LD A,C
+2A76 08 . EX AF,AF'
+2A77 CD DB 4B ..K CALL 4BDB ; millis verringern
+2A7A CD 93 2A ..* CALL 2A93
+2A7D C9 . RET ;--------------------------------
+2A7E CD 46 2A .F* CALL 2A46
+2A81 DD 36 06 00 .6.. LD (IX+06),00
+2A85 DD CB 05 46 ...F BIT 0,(IX+05) ; halt process angefordert ?
+2A89 C8 . RET Z
+2A8A DD CB 05 86 .... RES 0,(IX+05)
+2A8E 3E 01 >. LD A,01
+2A90 C3 0D 3D ..= JP 3D0D ; errorstop "halt from terminal"
+2A93 21 E6 7C !.| LD HL,7CE6 ; AND 7C--------------------------
+2A96 22 AE 2A ".* LD (2AAE),HL
+2A99 C9 . RET
+2A9A 21 18 F1 !.. LD HL,F118 ; JR 2AA1
+2A9D 22 AE 2A ".* LD (2AAE),HL
+2AA0 C9 . RET
+2AA1 CD 93 2A ..* CALL 2A93 ; AND 7C Maske setzen
+2AA4 C3 26 29 .&) JP 2926 ; Je nach Status reagieren
+2AA7 79 y LD A,C ;----------------------------------
+2AA8 08 . EX AF,AF'
+2AA9 0A . LD A,(BC)
+2AAA 6F o LD L,A
+2AAB 0C . INC C
+2AAC 0A . LD A,(BC)
+2AAD 67 g LD H,A ; HL := Codeword
+2AAE E6 7C .| AND 7C ; Opcodebits ausmaskieren
+2AB0 32 B6 2A 2.* LD (2AB6),A ; Opcode setzen
+2AB3 AC . XOR H ; Datenbits in A
+2AB4 0C . INC C ; BC zeigt auf naechsten Opcode
+2AB5 20 FE . JR NZ,2AB5 ; Wird
+2AB7 C3 8C 2C .., JP 2C8C ; Neue Seite, ggf neuen Block laden
+2ABA FF . RST 38 ; und Restart (EUMEL0-Restart)
+2ABB C3 F1 2C .., JP 2CF1 ; 0 LN (nr)
+2ABE FF . RST 38 ; 1 LONGLN (nr-1024)
+2ABF C3 FD 2C .., JP 2CFD ; 2 MOV1 (source, dest)
+2AC2 FF . RST 38
+2AC3 C3 11 2D ..- JP 2D11 ; 3 INC1 (dest)
+2AC6 FF . RST 38
+2AC7 C3 1F 2D ..- JP 2D1F ; 4 DEC1 (dest)
+2ACA FF . RST 38
+2ACB C3 30 2D .0- JP 2D30 ; 5 INC (source, dest)
+2ACE FF . RST 38
+2ACF C3 50 2D .P- JP 2D50 ; 6 DEC (source, dest)
+2AD2 FF . RST 38
+2AD3 C3 65 2D .e- JP 2D65 ; 7 ADD (a, b, c)
+2AD6 FF . RST 38
+2AD7 C3 82 2D ..- JP 2D82 ; 8 SUB (a, b, c)
+2ADA FF . RST 38
+2ADB C3 D2 2D ..- JP 2DD2 ; 9 CLEAR (dest)
+2ADE FF . RST 38
+2ADF C3 2B 2E .+. JP 2E2B ; 10 TEST (source) --> BOOL
+2AE2 FF . RST 38
+2AE3 C3 60 2E .`. JP 2E60 ; 11 EQU (a, b) --> BOOL
+2AE6 FF . RST 38
+2AE7 C3 35 2E .5. JP 2E35 ; 12 LSEQ (a, b) --> BOOL
+2AEA FF . RST 38
+2AEB C3 04 35 ..5 JP 3504 ; 13 MOV8 (source, dest)
+2AEE FF . RST 38
+2AEF C3 20 35 . 5 JP 3520 ; 14 FADD (a, b, c)
+2AF2 FF . RST 38
+2AF3 C3 3B 35 .;5 JP 353B ; 15 FSUB (a, b, c)
+2AF6 FF . RST 38
+2AF7 C3 41 35 .A5 JP 3541 ; 16 FMULT (a, b, c)
+2AFA FF . RST 38
+2AFB C3 47 35 .G5 JP 3547 ; 17 FDIV (a, b, c)
+2AFE FF . RST 38
+2AFF C3 5D 35 .]5 JP 355D ; 18 FLSEQ (a, b) --> BOOL
+2B02 FF . RST 38
+2B03 C3 CD 30 ..0 JP 30CD ; 19 TMOV (source, dest)
+2B06 FF . RST 38
+2B07 C3 0F 31 ..1 JP 310F ; 20 TEQU (a, b) --> BOOL
+2B0A FF . RST 38
+2B0B C3 4E 2E .N. JP 2E4E ; 21 ULSEQU (a, b) --> BOOL
+2B0E FF . RST 38
+2B0F C3 03 36 ..6 JP 3603 ; 22 ACCDS (dsid, refadr)
+2B12 FF . RST 38
+2B13 C3 21 36 .!6 JP 3621 ; 23 REF (source, refadr)
+2B16 FF . RST 38
+2B17 C3 43 36 .C6 JP 3643 ; 24 SUBS (limit-1, index, refadr)
+2B1A FF . RST 38
+2B1B C3 27 36 .'6 JP 3627 ; 25 SEL (base, offset, refadr)
+2B1E FF . RST 38
+2B1F C3 02 2F ../ JP 2F02 ; 26 PPV (source)
+2B22 FF . RST 38
+2B23 C3 07 2F ../ JP 2F07 ; 27 PP (source)
+2B26 FF . RST 38
+2B27 C3 8E 2E ... JP 2E8E ; 28 BR (lowadr)
+2B2A FF . RST 38
+2B2B C3 A3 2E ... JP 2EA3 ; 29 LONGBR (lowadr-1024)
+2B2E FF . RST 38
+2B2F C3 40 2F .@/ JP 2F40 ; 30 CALL (modnr)
+2B32 FF . RST 38
+2B33 07 . RLCA ; 31 ...
+2B34 07 . RLCA
+2B35 07 . RLCA
+2B36 32 3A 2B 2:+ LD (2B3A),A
+2B39 18 FE .. JR 2B39 ; Sprung auf SPezial
+2B3B C3 6E 36 .n6 JP 366E ; 0 : ISXCHAR (char) --> BOOL
+2B3E FF . RST 38
+2B3F C3 80 36 ..6 JP 3680 ; 1 : STIM (byteval, dest)
+2B42 FF . RST 38
+2B43 C3 8C 36 ..6 JP 368C ; 2 : MOVX (bytelen, source, dest)
+2B46 FF . RST 38
+2B47 C3 D2 36 ..6 JP 36D2 ; 3 : PW (ds+segment, offs, value)
+2B4A FF . RST 38
+2B4B C3 C9 36 ..6 JP 36C9 ; 4 : GW (ds+segment, offs, result)
+2B4E FF . RST 38
+2B4F C3 DE 2F ../ JP 2FDE ; 5 : PENTER (highbyte)
+2B52 FF . RST 38
+2B53 C3 76 2B .v+ JP 2B76 ; 6 : ESC (functionbyte)
+2B56 FF . RST 38
+2B57 7D } LD A,L ; 7 : LONGA (opcodebyte)
+2B58 32 B6 2A 2.* LD (2AB6),A
+2B5B E6 83 .. AND 83
+2B5D 20 08 . JR NZ,2B67
+2B5F 0A . LD A,(BC)
+2B60 6F o LD L,A
+2B61 0C . INC C ; Zur Interpreterschleife mit Opcode
+2B62 0A . LD A,(BC)
+2B63 0C . INC C
+2B64 C3 B5 2A ..* JP 2AB5 ; --------
+2B67 3E FD >. LD A,FD ; -3 = Block unlesbar
+2B69 BD . CP L
+2B6A C2 F4 3C ..< JP NZ,3CF4
+2B6D DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop
+2B71 3E 10 >. LD A,10 ; Errorstop Block unlesbar
+2B73 C3 12 3D ..= JP 3D12 ;------------ ESC ---------------
+2B76 7D } LD A,L
+2B77 FE 82 .. CP 82 ; 129 ist Maximum ESC
+2B79 D2 F4 3C ..< JP NC,3CF4
+2B7C 26 00 &. LD H,00
+2B7E 29 ) ADD HL,HL ; * 2 fuer Zugriff
+2B7F 11 88 2B ..+ LD DE,2B88 ; Tabellen anfang
+2B82 19 . ADD HL,DE
+2B83 5E ^ LD E,(HL)
+2B84 23 # INC HL
+2B85 56 V LD D,(HL) ; Sprung addresse --> DE
+2B86 EB . EX DE,HL
+2B87 E9 . JP (HL) ; EXTERNAL aufrufen-------------
+2B88 F3 2F 0 : RTN
+2B8A F9 2F 1 : RTN FALSE --> BOOL
+2B8C 0A 30 2 : RTN TRUE --> BOOL
+2B8E F4 3C 3 : --------
+2B90 38 3D 4 : TERM
+2B92 7F 30 5 : GOSUB (adr)
+2B94 0E 37 6 : KE
+2B96 AF 30 7 : GORET (adr)
+2B98 CE 3A 8 : CRD (var, var)
+2B9A DA 3A 9 : BCRD (var, var)
+2B9C B3 3A 10 : CWR (var, char, int)
+2B9E 79 3A 11 : ECWR (var, var, char)
+2BA0 1B 3B 12 : CTT (int, refadr)
+2BA2 26 3B 13 : GETC (text, posvar)
+2BA4 54 3B 14 : FNONBL (charvar, text, posvar) --> BOOL
+2BA6 A7 3B 15 : DREM256 (var, var)
+2BA8 BC 3B 16 : AMUL256 (var, int)
+2BAA F4 3C 17 : ---------
+2BAC DF 3B 18 : ISDIG (char) --> BOOL
+2BAE CC 3B 19 : ISLD (char) --> BOOL
+2BB0 F1 3B 20 : ISLCAS (char) --> BOOL
+2BB2 F6 3B 21 : ISUCAS (chasr) --> BOOL
+2BB4 FB 3B 22 : GADDR (a, b, c)
+2BB6 17 3C 23 : GCADDR (a, b, c) --> BOOL
+2BB8 36 3C 24 : ISSHA (int) --> BOOL
+2BBA 14 37 25 : SYSGEN
+2BBC 42 3C 26 : GETTAB
+2BBE 58 3C 27 : PUTTAB
+2BC0 62 3C 28 : ERATAB
+2BC2 3A 2F 29 : EXEC (modnr)
+2BC4 E8 2E 30 : PPROC (modnr)
+2BC6 33 2F 31 : PCALL (adr)
+2BC8 CC 2E 32 : CASE (switch, limit)
+2BCA 86 36 33 : MOVEXX (len, from, to)
+2BCC 9A 38 34 : ALIAS (...,...)
+2BCE 0C 2D 35 : MOVIM (...,...)
+2BD0 4D 35 36 : FEQU (a, b) --> BOOL
+2BD2 44 31 37 : TLSEQ (a, b) --> BOOL
+2BD4 6E 35 38 : FCOMPL (source, dest)
+2BD6 DC 2D 39 : COMPL (source, dest)
+2BD8 C1 2D 40 : IMULT (a, b, c)
+2BDA A0 2D 41 : MULT (a, b, c)
+2BDC AC 2D 42 : DIV (a, b, c)
+2BDE B8 2D 43 : MOD (a, b, c)
+2BE0 9F 34 44 : ISUB (text, pos, result)
+2BE2 8D 34 45 : replace (text, pos, int)
+2BE4 A8 31 46 : CODE (text, result)
+2BE6 B9 31 47 : ENCODE (int, text)
+2BE8 C2 31 48 : SUB (text, pos, result)
+2BEA CE 31 49 : subtext (source, from, to, result)
+2BEC C8 31 50 : subtext (source, from, result)
+2BEE 2F 32 51 : replace (text, pos, text)
+2BF0 D4 31 52 : CAT (text, text)
+2BF2 97 31 53 : LENGTH (text, result)
+2BF4 81 32 54 : pos (source, pattern, result)
+2BF6 89 32 55 : pos (source, pattern, from, result)
+2BF8 92 32 56 : pos (source, pattern, from, to, result)
+2BFA 93 33 57 : stranalyze (row256int, intv,int,text,intv,int,intv)
+2BFC 42 33 58 : pos (source, low, high, from, result)
+2BFE F4 3C 59 : ------------
+2C00 67 37 60 : out (text)
+2C02 1A 37 61 : cout (int)
+2C04 5D 37 62 : outsubtext (text, from)
+2C06 62 37 63 : outsubtext (text, from, to)
+2C08 9E 37 64 : inchar (result)
+2C0A BD 37 65 : incharety (result)
+2C0C D4 37 66 : pause (time)
+2C0E F5 37 67 : getcursor (x, y)
+2C10 10 38 68 : catinput (textv, escchar)
+2C12 E5 38 69 : nilspace (result)
+2C14 EB 38 70 : dscopy (dest, source)
+2C16 19 39 71 : forget (ds)
+2C18 47 39 72 : settype (ds, type)
+2C1A 68 39 73 : gettype (ds, type)
+2C1C 79 39 74 : heapsize (ds, size)
+2C1E 4E 3D 75 : enablestop
+2C20 5B 3D 76 : disablestop
+2C22 62 3D 77 : seterrorstop (nr)
+2C24 76 3D 78 : iserror --> BOOL
+2C26 80 3D 79 : clearerror
+2C28 9F 3D 80 : readpcb (field, result)
+2C2A 87 41 81 : infopassword (alt, neu, ok)
+2C2C E4 35 82 : setclock (task, value)
+2C2E 0E 2E 83 : rotate (int, anzahl)
+2C30 09 3A 84 : control (fkt, code1, code2, result)
+2C32 B3 39 85 : blockout (ds, page, code1, code2, result)
+2C34 E5 39 86 : blockin (ds, page, code1, code2, result)
+2C36 3B 3A 87 : nextdspage (ds, page, result)
+2C38 97 39 88 : pages (ds, task, result)
+2C3A 7A 3C 89 : storage (size, used) ?
+2C3C 8D 3C 90 : sysop (nr)
+2C3E E5 2F 91 : arith15
+2C40 EC 2F 92 : arith16
+2C42 7A 34 93 : heapsize (result)
+2C44 88 34 94 : collectheapgarbage
+2C46 9D 3E 95 : ? (neues begin)
+2C48 7C 35 96 : shiftleftdigits (in, real, out)
+2C4A 98 35 97 : decimalexponent (real, result)
+2C4C A1 35 98 : setexp (exp, real)
+2C4E AE 35 99 : floor (source, dest)
+2C50 A3 34 100 : RSUB (text, pos, result)
+2C52 91 34 101 : replace (text, pos, real)
+2C54 BC 35 102 : clock (nr, result)
+2C56 F2 35 103 : setclock (value)
+2C58 EB 3D 104 : readpcb (task, field, result)
+2C5A F1 3D 105 : writepcb (task, field, value)
+2C5C DC 35 106 : readclock (task, result)
+2C5E 1E 3E 107 : status (task, result)
+2C60 2E 3E 108 : unblock (task)
+2C62 41 3E 109 : block (task)
+2C64 63 3E 110 : halt process (task)
+2C66 6C 3E 111 : create process (...
+2C68 52 3F 112 : erase process (task)
+2C6A B7 40 113 : send (...
+2C6C BD 40 114 : wait (...
+2C6E 06 41 115 : call (...
+2C70 F7 3A 116 : cdb int (adr, result)
+2C72 0E 3B 117 : cdb text (adr, result)
+2C74 4F 3E 118 : nextactive (taskandresult)
+2C76 EF 36 119 : putword (seg, adr, value)
+2C78 E5 36 120 : getword (seg, adr, result)
+2C7A 02 2E 121 : XOR (a, b, c)
+2C7C 2B 41 122 : pingpong (...
+2C7E 5B 3F 123 : exists (task) --> BOOL
+2C80 EA 2D 124 : AND (a, b, c)
+2C82 F6 2D 125 : OR (a, b, c)
+2C84 67 41 126 : session (result)
+2C86 96 40 127 : sendfromto (...
+2C88 51 41 128 : define collector (task)
+2C8A 6E 41 129 : id (field, result)
+
+2C8C C2 F3 2C .., JP NZ,2CF3 ; C <> 0: LN Befehl, kein Page
+2C8F F5 . PUSH AF ; Neuen Block
+2C90 3A B6 2A :.* LD A,(2AB6) ; Opcode BF oder LN
+2C93 FE 70 .p CP 70
+2C95 28 02 (. JR Z,2C99
+2C97 FE 74 .t CP 74
+2C99 C4 87 42 ..B CALL NZ,4287 ; Neue Seite laden
+2C9C F1 . POP AF
+2C9D 04 . INC B
+2C9E 05 . DEC B ; Flag B = 0 setzen
+2C9F C3 B5 2A ..* JP 2AB5 ; Befehl nochmal aufsetzen
+2CA2 CD 13 43 ..C CALL 4313 ;--------------------------------
+2CA5 5E ^ LD E,(HL) ; DE := 1. Codewort
+2CA6 2C , INC L
+2CA7 56 V LD D,(HL)
+2CA8 CD 13 43 ..C CALL 4313 ; HL := 2. Codewort
+2CAB 7E ~ LD A,(HL)
+2CAC 2C , INC L
+2CAD 66 f LD H,(HL)
+2CAE 6F o LD L,A
+2CAF C9 . RET ;----------- Bytemove ------------
+2CB0 04 . INC B
+2CB1 05 . DEC B
+2CB2 20 12 . JR NZ,2CC6 ; Weniger als 256 Bytes ?
+2CB4 79 y LD A,C ; 256 Bytes in einem Schub per LDIR
+2CB5 B7 . OR A
+2CB6 C8 . RET Z ; Nichts moven
+2CB7 85 . ADD L
+2CB8 38 07 8. JR C,2CC1
+2CBA 79 y LD A,C
+2CBB 83 . ADD E
+2CBC 38 03 8. JR C,2CC1
+2CBE ED B0 .. LDIR
+2CC0 C9 . RET
+2CC1 3E 0D >. LD A,0D
+2CC3 B9 . CP C
+2CC4 30 0C 0. JR NC,2CD2
+2CC6 CD 78 45 .xE CALL 4578 ; Move in mehreren Teilen
+2CC9 C8 . RET Z
+2CCA ED B0 .. LDIR
+2CCC D0 . RET NC
+2CCD CD C1 45 ..E CALL 45C1
+2CD0 18 F4 .. JR 2CC6
+2CD2 7E ~ LD A,(HL)
+2CD3 0D . DEC C
+2CD4 28 19 (. JR Z,2CEF
+2CD6 F5 . PUSH AF
+2CD7 D5 . PUSH DE
+2CD8 FD 21 85 46 .!.F LD IY,4685
+2CDC 2C , INC L
+2CDD CC 1B 45 ..E CALL Z,451B
+2CE0 EB . EX DE,HL
+2CE1 FD 21 89 46 .!.F LD IY,4689
+2CE5 2C , INC L
+2CE6 CC 1B 45 ..E CALL Z,451B
+2CE9 EB . EX DE,HL
+2CEA CD D2 2C .., CALL 2CD2 ; Teilmove
+2CED D1 . POP DE
+2CEE F1 . POP AF
+2CEF 12 . LD (DE),A
+2CF0 C9 . RET ;------------- LONGLN ------------
+2CF1 C6 04 .. ADD A,04 ;
+2CF3 07 . RLCA ;------------- LN ----------------
+2CF4 DD 75 20 .u LD (IX+20),L
+2CF7 DD 77 21 .w! LD (IX+21),A
+2CFA C3 A7 2A ..* JP 2AA7 ;--------- MOV1 -----------------
+2CFD CD 1B 43 ..C CALL 431B ; fromaddresse --> HL
+2D00 5E ^ LD E,(HL)
+2D01 2C , INC L
+2D02 56 V LD D,(HL)
+2D03 CD 64 43 .dC CALL 4364 ; toaddresse --> HL
+2D06 73 s LD (HL),E
+2D07 2C , INC L
+2D08 72 r LD (HL),D
+2D09 C3 A7 2A ..* JP 2AA7 ;----------- MOVIM --------------
+2D0C CD 43 44 .CD CALL 4443
+2D0F 18 F2 .. JR 2D03
+2D11 CD 6C 43 .lC CALL 436C ;---------- INC1 ----------------
+2D14 34 4 INC (HL)
+2D15 C2 A7 2A ..* JP NZ,2AA7
+2D18 2C , INC L
+2D19 34 4 INC (HL)
+2D1A E2 A7 2A ..* JP PO,2AA7
+2D1D 18 2B .+ JR 2D4A ;-------------- DEC1 -------------
+2D1F CD 6C 43 .lC CALL 436C
+2D22 7E ~ LD A,(HL)
+2D23 D6 01 .. SUB A,01
+2D25 77 w LD (HL),A
+2D26 D2 A7 2A ..* JP NC,2AA7
+2D29 2C , INC L
+2D2A 35 5 DEC (HL)
+2D2B E2 A7 2A ..* JP PO,2AA7
+2D2E 18 1A .. JR 2D4A ;------------- INC ---------------
+2D30 CD 1B 43 ..C CALL 431B
+2D33 5E ^ LD E,(HL)
+2D34 2C , INC L
+2D35 56 V LD D,(HL)
+2D36 CD 64 43 .dC CALL 4364
+2D39 7E ~ LD A,(HL)
+2D3A 83 . ADD E
+2D3B 77 w LD (HL),A
+2D3C 2C , INC L
+2D3D 7E ~ LD A,(HL)
+2D3E 8A . ADC D
+2D3F 77 w LD (HL),A
+2D40 E2 A7 2A ..* JP PO,2AA7
+2D43 30 05 0. JR NC,2D4A
+2D45 3E FF >. LD A,FF
+2D47 77 w LD (HL),A
+2D48 2D - DEC L
+2D49 77 w LD (HL),A
+2D4A CD FC 3C ..< CALL 3CFC
+2D4D C3 A7 2A ..* JP 2AA7 ;------------- DEC ----------------
+2D50 CD 1B 43 ..C CALL 431B
+2D53 5E ^ LD E,(HL)
+2D54 2C , INC L
+2D55 56 V LD D,(HL)
+2D56 CD 64 43 .dC CALL 4364
+2D59 7E ~ LD A,(HL)
+2D5A 93 . SUB E
+2D5B 77 w LD (HL),A
+2D5C 2C , INC L
+2D5D 7E ~ LD A,(HL)
+2D5E 9A . SBC D
+2D5F 77 w LD (HL),A
+2D60 E2 A7 2A ..* JP PO,2AA7
+2D63 18 DE .. JR 2D43 ;------------- ADD ---------------
+2D65 CD 1B 43 ..C CALL 431B
+2D68 5E ^ LD E,(HL)
+2D69 2C , INC L
+2D6A 56 V LD D,(HL)
+2D6B CD 13 43 ..C CALL 4313
+2D6E 7E ~ LD A,(HL)
+2D6F 2C , INC L
+2D70 66 f LD H,(HL)
+2D71 6F o LD L,A
+2D72 B7 . OR A
+2D73 ED 5A .Z ADC HL,DE
+2D75 EC FC 3C ..< CALL PE,3CFC
+2D78 EB . EX DE,HL
+2D79 CD 64 43 .dC CALL 4364
+2D7C 73 s LD (HL),E
+2D7D 2C , INC L
+2D7E 72 r LD (HL),D
+2D7F C3 A7 2A ..* JP 2AA7 ;------------ SUB ----------------
+2D82 CD 1B 43 ..C CALL 431B
+2D85 5E ^ LD E,(HL)
+2D86 2C , INC L
+2D87 56 V LD D,(HL)
+2D88 CD 13 43 ..C CALL 4313
+2D8B 7E ~ LD A,(HL)
+2D8C 2C , INC L
+2D8D 66 f LD H,(HL)
+2D8E 6F o LD L,A
+2D8F EB . EX DE,HL
+2D90 B7 . OR A
+2D91 ED 52 .R SBC HL,DE
+2D93 EC FC 3C ..< CALL PE,3CFC
+2D96 EB . EX DE,HL
+2D97 CD 64 43 .dC CALL 4364
+2D9A 73 s LD (HL),E
+2D9B 2C , INC L
+2D9C 72 r LD (HL),D
+2D9D C3 A7 2A ..* JP 2AA7 ;-------------- MULT ------------
+2DA0 CD A2 2C .., CALL 2CA2 ; Zwei Addressen holen --> HL, DE
+2DA3 CD 0D 4D ..M CALL 4D0D ; MULT
+2DA6 DC FC 3C ..< CALL C,3CFC ; Overflow, ggf
+2DA9 C3 03 2D ..- JP 2D03 ;--------------- DIV ------------
+2DAC CD A2 2C .., CALL 2CA2
+2DAF CD 3D 4D .=M CALL 4D3D ; DIV
+2DB2 DC CD 3C ..< CALL C,3CCD
+2DB5 C3 03 2D ..- JP 2D03 ;--------------- MOD -------------
+2DB8 CD A2 2C .., CALL 2CA2
+2DBB CD 3D 4D .=M CALL 4D3D ; DIV
+2DBE EB . EX DE,HL ; Rest davon
+2DBF 18 F1 .. JR 2DB2 ;------------- IMULT -------------
+2DC1 CD A2 2C .., CALL 2CA2
+2DC4 CD 6D 4D .mM CALL 4D6D
+2DC7 EB . EX DE,HL
+2DC8 CE 00 .. ADC A,00
+2DCA 28 03 (. JR Z,2DCF
+2DCC 11 FF FF ... LD DE,FFFF ; Overflow = -1
+2DCF C3 03 2D ..- JP 2D03 ;------------- CLEAR -------------
+2DD2 CD 6C 43 .lC CALL 436C
+2DD5 97 . SUB A
+2DD6 77 w LD (HL),A
+2DD7 2C , INC L
+2DD8 77 w LD (HL),A
+2DD9 C3 A7 2A ..* JP 2AA7 ;------------- COMPL --------------
+2DDC CD A8 2C .., CALL 2CA8
+2DDF EB . EX DE,HL
+2DE0 21 00 00 !.. LD HL,0000
+2DE3 B7 . OR A
+2DE4 ED 52 .R SBC HL,DE
+2DE6 EB . EX DE,HL
+2DE7 C3 03 2D ..- JP 2D03 ;--------------- AND -------------
+2DEA CD A2 2C .., CALL 2CA2
+2DED 7B { LD A,E
+2DEE A5 . AND L
+2DEF 5F _ LD E,A
+2DF0 7A z LD A,D
+2DF1 A4 . AND H
+2DF2 57 W LD D,A
+2DF3 C3 03 2D ..- JP 2D03 ;-------------- OR --------------
+2DF6 CD A2 2C .., CALL 2CA2
+2DF9 7B { LD A,E
+2DFA B5 . OR L
+2DFB 5F _ LD E,A
+2DFC 7A z LD A,D
+2DFD B4 . OR H
+2DFE 57 W LD D,A
+2DFF C3 03 2D ..- JP 2D03 ;---------------- XOR ------------
+2E02 CD A2 2C .., CALL 2CA2
+2E05 7B { LD A,E
+2E06 AD . XOR L
+2E07 5F _ LD E,A
+2E08 7A z LD A,D
+2E09 AC . XOR H
+2E0A 57 W LD D,A
+2E0B C3 03 2D ..- JP 2D03 ;-------------- rotate ------------
+2E0E CD 64 43 .dC CALL 4364
+2E11 E5 . PUSH HL
+2E12 5E ^ LD E,(HL)
+2E13 2C , INC L
+2E14 56 V LD D,(HL)
+2E15 CD 13 43 ..C CALL 4313
+2E18 7E ~ LD A,(HL)
+2E19 E6 0F .. AND 0F ; keine links/rechts Optimierung
+2E1B 28 0A (. JR Z,2E27
+2E1D CB 23 .# SLA E
+2E1F CB 12 .. RL D
+2E21 30 01 0. JR NC,2E24
+2E23 1C . INC E
+2E24 3D = DEC A
+2E25 20 F6 . JR NZ,2E1D
+2E27 E1 . POP HL
+2E28 C3 06 2D ..- JP 2D06 ;------------- TEST ---------------
+2E2B CD 1B 43 ..C CALL 431B
+2E2E 7E ~ LD A,(HL)
+2E2F 2C , INC L
+2E30 B6 . OR (HL)
+2E31 28 3E (> JR Z,2E71 ; Beide 0 ?
+2E33 18 4F .O JR 2E84 ;------------- LSEQ --------------
+2E35 CD 1B 43 ..C CALL 431B
+2E38 EB . EX DE,HL
+2E39 CD 13 43 ..C CALL 4313
+2E3C EB . EX DE,HL
+2E3D 1A . LD A,(DE)
+2E3E 96 . SUB (HL)
+2E3F 1C . INC E
+2E40 2C , INC L
+2E41 1A . LD A,(DE)
+2E42 9E . SBC (HL)
+2E43 E2 48 2E .H. JP PO,2E48
+2E46 EE 80 .. XOR 80
+2E48 F2 71 2E .q. JP P,2E71
+2E4B C3 84 2E ... JP 2E84 ;------------ ULSEQU --------------
+2E4E CD 1B 43 ..C CALL 431B
+2E51 EB . EX DE,HL
+2E52 CD 13 43 ..C CALL 4313
+2E55 EB . EX DE,HL
+2E56 1A . LD A,(DE)
+2E57 96 . SUB (HL)
+2E58 1C . INC E
+2E59 2C , INC L
+2E5A 1A . LD A,(DE)
+2E5B 9E . SBC (HL)
+2E5C 30 13 0. JR NC,2E71
+2E5E 18 24 .$ JR 2E84 ;----------- EQU -----------------
+2E60 CD 1B 43 ..C CALL 431B
+2E63 EB . EX DE,HL
+2E64 CD 13 43 ..C CALL 4313
+2E67 1A . LD A,(DE)
+2E68 BE . CP (HL)
+2E69 20 19 . JR NZ,2E84
+2E6B 1C . INC E
+2E6C 2C , INC L
+2E6D 1A . LD A,(DE)
+2E6E BE . CP (HL)
+2E6F 20 13 . JR NZ,2E84
+2E71 0A . LD A,(BC) ; TRUE liefern
+2E72 6F o LD L,A
+2E73 0C . INC C
+2E74 0A . LD A,(BC)
+2E75 CB 77 .w BIT 6,A
+2E77 20 4C L JR NZ,2EC5
+2E79 C3 8E 2E ... JP 2E8E ; zum Branch
+2E7C CD 7E 2A .~* CALL 2A7E
+2E7F 18 F0 .. JR 2E71
+2E81 CD 7E 2A .~* CALL 2A7E
+2E84 0A . LD A,(BC) ; FALSE liefern
+2E85 6F o LD L,A
+2E86 0C . INC C
+2E87 0A . LD A,(BC)
+2E88 CB 77 .w BIT 6,A
+2E8A 28 39 (9 JR Z,2EC5 ; Opcode veraendern
+2E8C E6 87 .. AND 87 ; folgt immer Branch
+2E8E B7 . OR A ;------------- BR -----------------
+2E8F 20 14 . JR NZ,2EA5
+2E91 78 x LD A,B
+2E92 0F . RRCA
+2E93 4D M LD C,L
+2E94 CB 21 .! SLA C
+2E96 8F . ADC A
+2E97 90 . SUB B
+2E98 CA A7 2A ..* JP Z,2AA7
+2E9B 80 . ADD B
+2E9C 47 G LD B,A
+2E9D DD 75 09 .u. LD (IX+09),L
+2EA0 C3 A7 2A ..* JP 2AA7 ;------------ LONGBR --------------
+2EA3 C6 04 .. ADD A,04
+2EA5 07 . RLCA
+2EA6 DD 86 0A ... ADD (IX+0A)
+2EA9 DD BE 0F ... CP (IX+0F)
+2EAC FA B1 2E ... JP M,2EB1
+2EAF D6 10 .. SUB A,10
+2EB1 DD 77 0A .w. LD (IX+0A),A
+2EB4 7D } LD A,L
+2EB5 DD 77 09 .w. LD (IX+09),A
+2EB8 4F O LD C,A
+2EB9 87 . ADD A
+2EBA 08 . EX AF,AF'
+2EBB CD AB 42 ..B CALL 42AB
+2EBE CB 21 .! SLA C
+2EC0 17 . RLA
+2EC1 47 G LD B,A
+2EC2 C3 A7 2A ..* JP 2AA7
+2EC5 0C . INC C
+2EC6 CC A8 42 ..B CALL Z,42A8
+2EC9 C3 A7 2A ..* JP 2AA7 ;------------ CASE ----------------
+2ECC CD A8 2C .., CALL 2CA8
+2ECF CD 43 44 .CD CALL 4443
+2ED2 CB 7C .| BIT 7,H
+2ED4 20 AE . JR NZ,2E84
+2ED6 7D } LD A,L
+2ED7 93 . SUB E
+2ED8 7C | LD A,H
+2ED9 9A . SBC D
+2EDA 30 A8 0. JR NC,2E84
+2EDC CB 38 .8 SLR B
+2EDE CB 19 .. RR C
+2EE0 DD 46 0A .F. LD B,(IX+0A)
+2EE3 09 . ADD HL,BC
+2EE4 23 # INC HL
+2EE5 7C | LD A,H
+2EE6 18 C9 .. JR 2EB1 ;-------------- PPROC -------------
+2EE8 CD 43 44 .CD CALL 4443
+2EEB EB . EX DE,HL
+2EEC 11 02 00 ... LD DE,0002 ; D=0
+2EEF 7C | LD A,H
+2EF0 FE 05 .. CP 05 ; Modnr < 1280 : Segment 2
+2EF2 38 01 8. JR C,2EF5
+2EF4 1C . INC E
+2EF5 D5 . PUSH DE ; Segment in E auf Stack
+2EF6 24 $ INC H ; +0200 = Moduletable
+2EF7 24 $ INC H
+2EF8 97 . SUB A
+2EF9 CD 4D 44 .MD CALL 444D
+2EFC 5E ^ LD E,(HL) ; Addresse
+2EFD 2C , INC L
+2EFE 56 V LD D,(HL)
+2EFF D5 . PUSH DE ; REF-Addr auf Stack
+2F00 18 0A .. JR 2F0C ;--------------- PPV -------------
+2F02 CD A8 2C .., CALL 2CA8
+2F05 18 03 .. JR 2F0A ;--------------- PP -------------
+2F07 CD C0 43 ..C CALL 43C0
+2F0A D5 . PUSH DE
+2F0B E5 . PUSH HL
+2F0C 2A C6 41 *.A LD HL,(41C6) ; REF-Addr auf Stack---------------
+2F0F 23 # INC HL
+2F10 23 # INC HL
+2F11 CB 7C .| BIT 7,H
+2F13 C2 D1 3C ..< JP NZ,3CD1
+2F16 5C \ LD E,H
+2F17 16 1A .. LD D,1A
+2F19 1A . LD A,(DE)
+2F1A 67 g LD H,A
+2F1B 29 ) ADD HL,HL
+2F1C D4 F9 42 ..B CALL NC,42F9
+2F1F D1 . POP DE
+2F20 73 s LD (HL),E ; Low Word
+2F21 2C , INC L
+2F22 72 r LD (HL),D
+2F23 2C , INC L
+2F24 D1 . POP DE ; High Word
+2F25 73 s LD (HL),E
+2F26 2C , INC L
+2F27 72 r LD (HL),D
+2F28 2A C6 41 *.A LD HL,(41C6) ; Stackpointer
+2F2B 23 # INC HL
+2F2C 23 # INC HL
+2F2D 22 C6 41 ".A LD (41C6),HL
+2F30 C3 A7 2A ..* JP 2AA7 ;------------- PCALL --------------
+2F33 CD B8 43 ..C CALL 43B8 ; REF-Addr vom Stack
+2F36 7B { LD A,E ; Segment
+2F37 EB . EX DE,HL
+2F38 18 27 .' JR 2F61 ;------------- EXEC ---------------
+2F3A CD A8 2C .., CALL 2CA8
+2F3D 7C | LD A,H
+2F3E 18 08 .. JR 2F48 ;-------------- CALL -------------
+2F40 CB 7F .. BIT 7,A
+2F42 CB BF .. RES 7,A
+2F44 28 02 (. JR Z,2F48
+2F46 CB D7 .. SET 2,A
+2F48 F5 . PUSH AF
+2F49 C6 02 .. ADD A,02 ; Addresse aus Module Addr Tabelle
+2F4B 67 g LD H,A
+2F4C 5F _ LD E,A
+2F4D 16 19 .. LD D,19
+2F4F 1A . LD A,(DE)
+2F50 67 g LD H,A
+2F51 29 ) ADD HL,HL
+2F52 B7 . OR A
+2F53 CC E1 42 ..B CALL Z,42E1
+2F56 5E ^ LD E,(HL)
+2F57 2C , INC L
+2F58 56 V LD D,(HL)
+2F59 F1 . POP AF
+2F5A FE 05 .. CP 05
+2F5C 3E 02 >. LD A,02
+2F5E 38 01 8. JR C,2F61
+2F60 3C < INC A ; Call PROC
+2F61 47 G LD B,A ;---- Segment in A, Addr in HL
+2F62 D5 . PUSH DE ; call...
+ - Fortsetzung in Datei "eumel0.prt.2" -
diff --git a/system/eumel0-z80/src/eumel0.prt.2 b/system/eumel0-z80/src/eumel0.prt.2 new file mode 100644 index 0000000..5dbb9b9 --- /dev/null +++ b/system/eumel0-z80/src/eumel0.prt.2 @@ -0,0 +1,3957 @@ +#type ("17.klein")#
+ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT
+
+2F63 2A C8 41 *.A LD HL,(41C8)
+2F66 5C \ LD E,H
+2F67 16 1A .. LD D,1A
+2F69 1A . LD A,(DE)
+2F6A 67 g LD H,A
+2F6B 29 ) ADD HL,HL
+2F6C D4 F9 42 ..B CALL NC,42F9
+2F6F ED 5B C4 41 .[.A LD DE,(41C4) ; Stacktop auf Stack
+2F73 73 s LD (HL),E
+2F74 2C , INC L
+2F75 72 r LD (HL),D
+2F76 2C , INC L
+2F77 DD CB 09 26 ...& SLA (IX+09) ; icount Felder auf Stack
+2F7B CB 19 .. RR C
+2F7D 71 q LD (HL),C
+2F7E 2C , INC L
+2F7F DD 7E 0A .~. LD A,(IX+0A)
+2F82 77 w LD (HL),A
+2F83 2C , INC L
+2F84 DD 7E 0B .~. LD A,(IX+0B)
+2F87 77 w LD (HL),A
+2F88 2C , INC L
+2F89 E6 FC .. AND FC ; Fehlerzustand vererbt sich
+2F8B B0 . OR B
+2F8C 47 G LD B,A
+2F8D D9 . EXX
+2F8E 79 y LD A,C
+2F8F D9 . EXX
+2F90 77 w LD (HL),A
+2F91 2C , INC L
+2F92 DD 7E 0F .~. LD A,(IX+0F)
+2F95 77 w LD (HL),A
+2F96 D1 . POP DE
+2F97 7A z LD A,D
+2F98 C6 10 .. ADD A,10
+2F9A DD 77 0F .w. LD (IX+0F),A
+2F9D DD 36 06 18 .6.. LD (IX+06),18
+2FA1 DD 73 09 .s. LD (IX+09),E ; icount neu setzen
+2FA4 DD 72 0A .r. LD (IX+0A),D
+2FA7 DD 70 0B .p. LD (IX+0B),B
+2FAA 4B K LD C,E
+2FAB 7B { LD A,E
+2FAC 87 . ADD A
+2FAD 08 . EX AF,AF'
+2FAE CD AB 42 ..B CALL 42AB
+2FB1 CB 21 .! SLA C
+2FB3 17 . RLA
+2FB4 47 G LD B,A
+2FB5 0A . LD A,(BC)
+2FB6 5F _ LD E,A
+2FB7 0C . INC C
+2FB8 0A . LD A,(BC)
+2FB9 57 W LD D,A
+2FBA 0C . INC C
+2FBB CC 87 42 ..B CALL Z,4287
+2FBE DD 36 06 00 .6.. LD (IX+06),00
+2FC2 2A C8 41 *.A LD HL,(41C8)
+2FC5 22 C4 41 ".A LD (41C4),HL ; Stacktop neu setzen
+2FC8 B7 . OR A
+2FC9 ED 5A .Z ADC HL,DE
+2FCB EA D1 3C ..< JP PE,3CD1
+2FCE 22 C8 41 ".A LD (41C8),HL
+2FD1 23 # INC HL
+2FD2 23 # INC HL
+2FD3 22 C6 41 ".A LD (41C6),HL ; Stackpointer neu setzen
+2FD6 CB 7C .| BIT 7,H
+2FD8 CA A7 2A ..* JP Z,2AA7 ; Stackoverflow bei CALL
+2FDB C3 D1 3C ..< JP 3CD1 ;------------ PENTER -------------
+2FDE 7D } LD A,L
+2FDF D9 . EXX
+2FE0 4F O LD C,A ; C' = Packetbase
+2FE1 D9 . EXX
+2FE2 C3 A7 2A ..* JP 2AA7 ;------------- arith15 ------------
+2FE5 DD CB 0B A6 .... RES 4,(IX+0B)
+2FE9 C3 A7 2A ..* JP 2AA7 ;------------- arith16 ------------
+2FEC DD CB 0B E6 .... SET 4,(IX+0B)
+2FF0 C3 A7 2A ..* JP 2AA7 ;------------- RTN ----------------
+2FF3 CD 35 30 .50 CALL 3035 ; LEAVE PROC
+2FF6 C3 A7 2A ..* JP 2AA7 ;------------- RTN FALSE ----------
+2FF9 CD 1B 30 ..0 CALL 301B
+2FFC DD 36 06 10 .6.. LD (IX+06),10 ; Status LEAVE PROC FALSE
+3000 CD 38 30 .80 CALL 3038
+3003 DD 36 06 00 .6.. LD (IX+06),00 ; Status wieder busy, BR FALSEmodif.
+3007 C3 71 2E .q. JP 2E71 ;-------------- RTN TRUE ----------
+300A CD 1B 30 ..0 CALL 301B
+300D DD 36 06 14 .6.. LD (IX+06),14 ; Status LEAVE PROC TRUE
+3011 CD 38 30 .80 CALL 3038
+3014 DD 36 06 00 .6.. LD (IX+06),00 ; Wieder Busy
+3018 C3 84 2E ... JP 2E84 ; BR TRUE modif.
+301B 2A C4 41 *.A LD HL,(41C4) ;-------- LEAVE PROC -------------
+301E 44 D LD B,H
+301F 4D M LD C,L ; ALten Stacktop wiederherstellen
+3020 22 C8 41 ".A LD (41C8),HL
+3023 23 # INC HL
+3024 23 # INC HL
+3025 22 C6 41 ".A LD (41C6),HL ; +2 = Neuer Stacktop
+3028 2B + DEC HL
+3029 2B + DEC HL
+302A 5C \ LD E,H
+302B 16 1A .. LD D,1A
+302D 1A . LD A,(DE)
+302E 67 g LD H,A
+302F 29 ) ADD HL,HL
+3030 B7 . OR A
+3031 C0 . RET NZ
+3032 C3 E1 42 ..B JP 42E1 ;--------------------------------
+3035 CD 1B 30 ..0 CALL 301B ; LEAVE PROC
+3038 5E ^ LD E,(HL)
+3039 2C , INC L
+303A 56 V LD D,(HL)
+303B 7B { LD A,E
+303C 91 . SUB C
+303D 7A z LD A,D
+303E 98 . SBC B
+303F 30 37 07 JR NC,3078 ; Stack underflow, Harakiri
+3041 2C , INC L
+3042 ED 53 C4 41 .S.A LD (41C4),DE ; Stacktop
+3046 4E N LD C,(HL)
+3047 2C , INC L
+3048 DD 71 09 .q. LD (IX+09),C ; icount wiederherstellen
+304B 7E ~ LD A,(HL)
+304C 2C , INC L
+304D DD 77 0A .w. LD (IX+0A),A
+3050 DD 7E 0B .~. LD A,(IX+0B)
+3053 E6 80 .. AND 80
+3055 5E ^ LD E,(HL)
+3056 CB BB .. RES 7,E
+3058 B3 . OR E
+3059 DD 77 0B .w. LD (IX+0B),A ; iserror uebernehmen
+305C 2C , INC L
+305D E6 C0 .. AND C0
+305F FE 80 .. CP 80
+3061 CA 2E 3D ..= JP Z,3D2E ; errorstop
+3064 7E ~ LD A,(HL)
+3065 2C , INC L
+3066 D9 . EXX
+3067 4F O LD C,A
+3068 D9 . EXX
+3069 7E ~ LD A,(HL)
+306A DD 77 0F .w. LD (IX+0F),A
+306D 79 y LD A,C
+306E 87 . ADD A
+306F 08 . EX AF,AF'
+3070 CD AB 42 ..B CALL 42AB
+3073 CB 21 .! SLA C
+3075 17 . RLA
+3076 47 G LD B,A
+3077 C9 . RET
+3078 DD 36 06 FF .6.. LD (IX+06),FF ; dead setzen. "Harakiri"
+307C C3 26 29 .&) JP 2926 ;-------------- GOSUB -------------
+307F CD 43 44 .CD CALL 4443 ; Branchaddresse holen
+3082 D5 . PUSH DE
+3083 2A C8 41 *.A LD HL,(41C8)
+3086 5C \ LD E,H
+3087 16 1A .. LD D,1A
+3089 1A . LD A,(DE)
+308A 67 g LD H,A
+308B 29 ) ADD HL,HL
+308C D4 F9 42 ..B CALL NC,42F9
+308F DD 7E 09 .~. LD A,(IX+09) ; icount auf Stack (Seg.bleibt)!
+3092 87 . ADD A
+3093 CB 19 .. RR C
+3095 71 q LD (HL),C
+3096 2C , INC L
+3097 DD 7E 0A .~. LD A,(IX+0A)
+309A 77 w LD (HL),A
+309B 2A C8 41 *.A LD HL,(41C8) ; Stackpointer INCR 4
+309E 23 # INC HL
+309F 23 # INC HL
+30A0 23 # INC HL
+30A1 23 # INC HL
+30A2 22 C8 41 ".A LD (41C8),HL
+30A5 23 # INC HL
+30A6 23 # INC HL
+30A7 22 C6 41 ".A LD (41C6),HL ; stacktop
+30AA E1 . POP HL
+30AB 7C | LD A,H ; BRANCH
+30AC C3 8E 2E ... JP 2E8E ;------------- GORET -------------
+30AF 2A C8 41 *.A LD HL,(41C8) ; Stackpointer vom Stack
+30B2 2B + DEC HL
+30B3 2B + DEC HL
+30B4 22 C6 41 ".A LD (41C6),HL
+30B7 2B + DEC HL
+30B8 2B + DEC HL
+30B9 22 C8 41 ".A LD (41C8),HL
+30BC 5C \ LD E,H
+30BD 16 1A .. LD D,1A
+30BF 1A . LD A,(DE)
+30C0 67 g LD H,A
+30C1 29 ) ADD HL,HL
+30C2 B7 . OR A
+30C3 CC E1 42 ..B CALL Z,42E1
+30C6 2C , INC L
+30C7 7E ~ LD A,(HL)
+30C8 2D - DEC L
+30C9 6E n LD L,(HL) ; BRANCH
+30CA C3 B1 2E ... JP 2EB1 ;------------- TMOV --------------
+30CD CD 92 46 ..F CALL 4692
+30D0 FE 02 .. CP 02
+30D2 30 0F 0. JR NC,30E3
+30D4 B7 . OR A
+30D5 28 01 (. JR Z,30D8
+30D7 56 V LD D,(HL)
+30D8 CD 64 43 .dC CALL 4364
+30DB 2C , INC L
+30DC 2C , INC L
+30DD 73 s LD (HL),E
+30DE 2C , INC L
+30DF 72 r LD (HL),D
+30E0 C3 A7 2A ..* JP 2AA7
+30E3 DD CB 07 DE .... SET 3,(IX+07)
+30E7 E5 . PUSH HL
+30E8 D5 . PUSH DE
+30E9 CD AA 47 ..G CALL 47AA
+30EC D1 . POP DE
+30ED CD 68 48 .hH CALL 4868
+30F0 42 B LD B,D
+30F1 4B K LD C,E
+30F2 EB . EX DE,HL
+30F3 E3 . EX (SP),HL
+30F4 7B { LD A,E
+30F5 95 . SUB L
+30F6 7A z LD A,D
+30F7 20 01 . JR NZ,30FA
+30F9 94 . SUB H
+30FA C4 B0 2C .., CALL NZ,2CB0
+30FD CD E8 45 ..E CALL 45E8
+3100 D1 . POP DE
+3101 CD 92 48 ..H CALL 4892
+3104 DD CB 07 9E .... RES 3,(IX+07)
+3108 ED 4B D0 41 .K.A LD BC,(41D0)
+310C C3 A7 2A ..* JP 2AA7 ;------------ TEQU ----------------
+310F CD 92 46 ..F CALL 4692
+3112 FE 02 .. CP 02
+3114 30 09 0. JR NC,311F
+3116 2D - DEC L
+3117 E5 . PUSH HL
+3118 CD 07 44 ..D CALL 4407
+311B D1 . POP DE
+311C C3 67 2E .g. JP 2E67
+311F E5 . PUSH HL
+3120 D5 . PUSH DE
+3121 CD DD 46 ..F CALL 46DD
+3124 E3 . EX (SP),HL
+3125 B7 . OR A
+3126 ED 52 .R SBC HL,DE
+3128 20 15 . JR NZ,313F
+312A ED 43 D0 41 .C.A LD (41D0),BC
+312E 4B K LD C,E
+312F 42 B LD B,D
+3130 D1 . POP DE
+3131 E1 . POP HL
+3132 CD 7A 31 .z1 CALL 317A
+3135 ED 4B D0 41 .K.A LD BC,(41D0)
+3139 C2 84 2E ... JP NZ,2E84
+313C C3 71 2E .q. JP 2E71
+313F D1 . POP DE
+3140 E1 . POP HL
+3141 C3 84 2E ... JP 2E84 ;------------- TLSEQU ------------
+3144 CD 8D 46 ..F CALL 468D
+3147 E5 . PUSH HL
+3148 D5 . PUSH DE
+3149 CD DD 46 ..F CALL 46DD
+314C E3 . EX (SP),HL
+314D 7B { LD A,E
+314E 95 . SUB L
+314F 7A z LD A,D
+3150 9C . SBC H
+3151 32 D3 41 2.A LD (41D3),A
+3154 30 01 0. JR NC,3157
+3156 EB . EX DE,HL
+3157 ED 43 D0 41 .C.A LD (41D0),BC
+315B 44 D LD B,H
+315C 4D M LD C,L
+315D D1 . POP DE
+315E E1 . POP HL
+315F 78 x LD A,B
+3160 B1 . OR C
+3161 C4 7A 31 .z1 CALL NZ,317A
+3164 ED 4B D0 41 .K.A LD BC,(41D0)
+3168 28 06 (. JR Z,3170
+316A D2 71 2E .q. JP NC,2E71
+316D C3 84 2E ... JP 2E84
+3170 3A D3 41 :.A LD A,(41D3)
+3173 B7 . OR A
+3174 F2 71 2E .q. JP P,2E71
+3177 C3 84 2E ... JP 2E84
+317A CD 78 45 .xE CALL 4578
+317D 30 0B 0. JR NC,318A
+317F CD 8A 31 ..1 CALL 318A
+3182 C2 EC 45 ..E JP NZ,45EC
+3185 CD C1 45 ..E CALL 45C1
+3188 18 F0 .. JR 317A
+318A C8 . RET Z
+318B 1A . LD A,(DE)
+318C BE . CP (HL)
+318D C0 . RET NZ
+318E 2C , INC L
+318F 1C . INC E
+3190 0D . DEC C
+3191 C2 8B 31 ..1 JP NZ,318B
+3194 97 . SUB A
+3195 47 G LD B,A
+3196 C9 . RET ;------------- LENGTH ------------
+3197 CD 13 43 ..C CALL 4313
+319A 23 # INC HL
+319B 23 # INC HL
+319C 5E ^ LD E,(HL)
+319D 16 00 .. LD D,00
+319F 7B { LD A,E
+31A0 3C < INC A
+31A1 C2 03 2D ..- JP NZ,2D03
+31A4 2C , INC L
+31A5 C3 00 2D ..- JP 2D00 ;--------------- CODE ------------
+31A8 CD 8D 46 ..F CALL 468D
+31AB 11 FF FF ... LD DE,FFFF ; Wenn Laenge <> 1 ==> -1
+31AE FE 01 .. CP 01
+31B0 C2 03 2D ..- JP NZ,2D03
+31B3 5E ^ LD E,(HL) ; sonst erstes Zeichen
+31B4 16 00 .. LD D,00
+31B6 C3 03 2D ..- JP 2D03 ;-------------- ENCODE -----------
+31B9 CD 13 43 ..C CALL 4313
+31BC 1E 01 .. LD E,01 ; Laenge 1
+31BE 56 V LD D,(HL)
+31BF C3 D8 30 ..0 JP 30D8 ;-------------- TSUB -------------
+31C2 CD 2C 47 .,G CALL 472C
+31C5 C3 D4 30 ..0 JP 30D4 ;------------- subtext 1 ---------
+31C8 CD 89 47 ..G CALL 4789
+31CB C3 D0 30 ..0 JP 30D0 ;------------- subtext 2 ---------
+31CE CD 95 47 ..G CALL 4795
+31D1 C3 D0 30 ..0 JP 30D0 ;------------- CAT ---------------
+31D4 CD B8 43 ..C CALL 43B8
+31D7 ED 53 CE 41 .S.A LD (41CE),DE
+31DB E5 . PUSH HL
+31DC CD 8D 46 ..F CALL 468D
+31DF 2D - DEC L
+31E0 7E ~ LD A,(HL)
+31E1 32 D2 41 2.A LD (41D2),A
+31E4 E3 . EX (SP),HL
+31E5 D5 . PUSH DE
+31E6 ED 5B CE 41 .[.A LD DE,(41CE)
+31EA CD AD 47 ..G CALL 47AD
+31ED ED 53 40 4B .S@K LD (4B40),DE
+31F1 E3 . EX (SP),HL
+31F2 EB . EX DE,HL
+31F3 B7 . OR A
+31F4 ED 5A .Z ADC HL,DE
+31F6 FA 26 32 .&2 JP M,3226
+31F9 22 CC 41 ".A LD (41CC),HL
+31FC EB . EX DE,HL
+31FD E3 . EX (SP),HL
+31FE CD AD 48 ..H CALL 48AD
+3201 38 28 8( JR C,322B
+3203 ED 5B 40 4B .[@K LD DE,(4B40)
+3207 CD 0D 45 ..E CALL 450D
+320A EB . EX DE,HL
+320B C1 . POP BC
+320C E1 . POP HL
+320D 3A D2 41 :.A LD A,(41D2)
+3210 BE . CP (HL)
+3211 C2 26 29 .&) JP NZ,2926
+3214 2C , INC L
+3215 CD B0 2C .., CALL 2CB0
+3218 ED 5B CC 41 .[.A LD DE,(41CC)
+321C CD 92 48 ..H CALL 4892
+321F ED 4B D0 41 .K.A LD BC,(41D0)
+3223 C3 A7 2A ..* JP 2AA7
+3226 3E 07 >. LD A,07
+3228 CD 0D 3D ..= CALL 3D0D
+322B C1 . POP BC
+322C E1 . POP HL
+322D 18 F0 .. JR 321F ;------------ replace text -------
+322F CD AA 47 ..G CALL 47AA
+3232 ED 4B D0 41 .K.A LD BC,(41D0)
+3236 E5 . PUSH HL
+3237 CD A8 2C .., CALL 2CA8
+323A EB . EX DE,HL
+323B 1B . DEC DE
+323C B7 . OR A
+323D ED 52 .R SBC HL,DE
+323F 38 21 8! JR C,3262
+3241 E3 . EX (SP),HL
+3242 CD 0D 45 ..E CALL 450D
+3245 E3 . EX (SP),HL
+3246 E5 . PUSH HL
+3247 CD 8D 46 ..F CALL 468D
+324A ED 43 D0 41 .C.A LD (41D0),BC
+324E C1 . POP BC
+324F 79 y LD A,C
+3250 93 . SUB E
+3251 78 x LD A,B
+3252 9A . SBC D
+3253 38 02 8. JR C,3257
+3255 4B K LD C,E
+3256 42 B LD B,D
+3257 D1 . POP DE
+3258 CD B0 2C .., CALL 2CB0
+325B ED 4B D0 41 .K.A LD BC,(41D0)
+#25F C3 A7 2A ..* JP 2AA7
+3262 E1 . POP HL
+3263 18 FA .. JR 325F
+3265 CD 8D 46 ..F CALL 468D
+3268 E3 . EX (SP),HL
+3269 D5 . PUSH DE
+326A E5 . PUSH HL
+326B CD DD 46 ..F CALL 46DD
+326E 7E ~ LD A,(HL)
+326F 32 D4 41 2.A LD (41D4),A
+3272 22 D8 41 ".A LD (41D8),HL
+3275 3A 8A 46 :.F LD A,(468A)
+3278 32 DA 41 2.A LD (41DA),A
+327B 1B . DEC DE
+327C ED 53 D6 41 .S.A LD (41D6),DE
+3280 C9 . RET ;------------ pos 1 --------------
+3281 CD 65 32 .e2 CALL 3265
+3284 11 01 00 ... LD DE,0001
+3287 18 1E .. JR 32A7 ;----------- pos 2 ---------------
+3289 CD 65 32 .e2 CALL 3265
+328C CD A8 2C .., CALL 2CA8
+328F EB . EX DE,HL
+3290 18 15 .. JR 32A7 ;------------- pos 3 -------------
+3292 CD 65 32 .e2 CALL 3265
+3295 CD A8 2C .., CALL 2CA8
+3298 EB . EX DE,HL
+3299 CD A8 2C .., CALL 2CA8
+329C EB . EX DE,HL
+329D E3 . EX (SP),HL
+329E 7B { LD A,E
+329F 95 . SUB L
+32A0 7A z LD A,D
+32A1 9C . SBC H
+32A2 30 01 0. JR NC,32A5
+32A4 EB . EX DE,HL
+32A5 E3 . EX (SP),HL
+32A6 EB . EX DE,HL
+32A7 CD 64 43 .dC CALL 4364
+32AA 22 CC 41 ".A LD (41CC),HL
+32AD ED 43 D0 41 .C.A LD (41D0),BC
+32B1 C1 . POP BC
+32B2 2A D6 41 *.A LD HL,(41D6)
+32B5 24 $ INC H
+32B6 25 % DEC H
+32B7 20 3B ; JR NZ,32F4
+32B9 79 y LD A,C
+32BA 95 . SUB L
+32BB 4F O LD C,A
+32BC 78 x LD A,B
+32BD 9C . SBC H
+32BE 47 G LD B,A
+32BF E1 . POP HL
+32C0 38 33 83 JR C,32F5
+32C2 CD 1D 46 ..F CALL 461D
+32C5 38 2E 8. JR C,32F5
+32C7 CD 44 45 .DE CALL 4544
+32CA 28 29 () JR Z,32F5
+32CC F5 . PUSH AF
+32CD 3A D4 41 :.A LD A,(41D4)
+32D0 ED B1 .. CPIR
+32D2 CC FA 32 ..2 CALL Z,32FA
+32D5 28 0C (. JR Z,32E3
+32D7 78 x LD A,B
+32D8 B1 . OR C
+32D9 20 F2 . JR NZ,32CD
+32DB F1 . POP AF
+32DC 30 17 0. JR NC,32F5
+32DE CD C1 45 ..E CALL 45C1
+32E1 18 E4 .. JR 32C7
+32E3 F1 . POP AF
+32E4 CD 33 46 .3F CALL 4633
+32E7 ED 4B D0 41 .K.A LD BC,(41D0)
+32EB 2A CC 41 *.A LD HL,(41CC)
+32EE 73 s LD (HL),E
+32EF 2C , INC L
+32F0 72 r LD (HL),D
+32F1 C3 A7 2A ..* JP 2AA7
+32F4 E1 . POP HL
+32F5 11 00 00 ... LD DE,0000
+32F8 18 ED .. JR 32E7
+32FA 3A D6 41 :.A LD A,(41D6)
+32FD B7 . OR A
+32FE C8 . RET Z
+32FF C5 . PUSH BC
+3300 03 . INC BC
+3301 CD F1 45 ..E CALL 45F1
+3304 ED 5B 85 46 .[.F LD DE,(4685)
+3308 D5 . PUSH DE
+3309 E5 . PUSH HL
+330A 3A D6 41 :.A LD A,(41D6)
+330D 47 G LD B,A
+330E 2B + DEC HL
+330F ED 5B D8 41 .[.A LD DE,(41D8)
+3313 3A DA 41 :.A LD A,(41DA)
+3316 32 8A 46 2.F LD (468A),A
+3319 2C , INC L
+331A 20 07 . JR NZ,3323
+331C FD 21 85 46 .!.F LD IY,4685
+3320 CD 1B 45 ..E CALL 451B
+3323 1C . INC E
+3324 20 09 . JR NZ,332F
+3326 FD 21 89 46 .!.F LD IY,4689
+332A EB . EX DE,HL
+332B CD 1B 45 ..E CALL 451B
+332E EB . EX DE,HL
+332F 1A . LD A,(DE)
+3330 BE . CP (HL)
+3331 20 02 . JR NZ,3335
+3333 10 E4 .. DJNZ 3319
+3335 F5 . PUSH AF
+3336 CD 12 46 ..F CALL 4612
+3339 F1 . POP AF
+333A E1 . POP HL
+333B D1 . POP DE
+333C C1 . POP BC
+333D ED 53 85 46 .S.F LD (4685),DE
+3341 C9 . RET ;------------ pos high low -------
+3342 CD 8D 46 ..F CALL 468D
+3345 D5 . PUSH DE
+3346 E5 . PUSH HL
+3347 CD 13 43 ..C CALL 4313
+334A 23 # INC HL
+334B 23 # INC HL
+334C 23 # INC HL
+334D 5E ^ LD E,(HL)
+334E CD 13 43 ..C CALL 4313
+3351 23 # INC HL
+3352 23 # INC HL
+3353 23 # INC HL
+3354 56 V LD D,(HL)
+3355 ED 53 D4 41 .S.A LD (41D4),DE
+3359 CD A8 2C .., CALL 2CA8
+335C E5 . PUSH HL
+335D CD 64 43 .dC CALL 4364
+3360 22 CC 41 ".A LD (41CC),HL
+3363 ED 43 D0 41 .C.A LD (41D0),BC
+3367 D1 . POP DE
+3368 E1 . POP HL
+3369 C1 . POP BC
+336A CD 1D 46 ..F CALL 461D
+336D DA F5 32 ..2 JP C,32F5
+3370 CD 44 45 .DE CALL 4544
+3373 CA F5 32 ..2 JP Z,32F5
+3376 F5 . PUSH AF
+3377 ED 5B D4 41 .[.A LD DE,(41D4)
+337B 0B . DEC BC
+337C 7A z LD A,D
+337D BE . CP (HL)
+337E 38 05 8. JR C,3385
+3380 7E ~ LD A,(HL)
+3381 BB . CP E
+3382 D2 E3 32 ..2 JP NC,32E3
+3385 23 # INC HL
+3386 78 x LD A,B
+3387 B1 . OR C
+3388 20 F1 . JR NZ,337B
+338A F1 . POP AF
+338B D2 F5 32 ..2 JP NC,32F5
+338E CD C1 45 ..E CALL 45C1
+3391 18 DD .. JR 3370 ;------------- stranalyze ---------
+3393 CD B8 43 ..C CALL 43B8 ; REF-Addr vom Stack (HL,DE)
+3396 FD 21 89 46 .!.F LD IY,4689
+339A FD 72 03 .r. LD (IY+03),D ; Dataspace
+339D 7B { LD A,E ; Segment
+339E CD CA 44 ..D CALL 44CA ; Block holen HL = Speicheraddr
+33A1 CB 3C .< SLR H ; --> Wordaddr konvertieren
+33A3 CB 1D .. RR L
+33A5 22 DB 41 ".A LD (41DB),HL ; Block 1 Wortaddr
+33A8 29 ) ADD HL,HL ; --> Byteaddr konv.
+33A9 11 FE 01 ... LD DE,01FE ; Ende des Blocks auch lesen
+33AC CD 0D 45 ..E CALL 450D ; (schlimmstenfalls also 2 Bloecke)
+33AF CB 3C .< SLR H ; 2. Block Wortaddr
+33B1 CB 1D .. RR L
+33B3 22 DD 41 ".A LD (41DD),HL ; Block 2 Wortaddr
+33B6 CD 64 43 .dC CALL 4364 ; Addresse d.INT VAR summe holen
+33B9 22 DF 41 ".A LD (41DF),HL
+33BC CD A8 2C .., CALL 2CA8 ; INT CONST maxbreite holen
+33BF 22 E1 41 ".A LD (41E1),HL
+33C2 CD 8D 46 ..F CALL 468D ; TEXT CONST zeile holen
+33C5 E5 . PUSH HL
+33C6 CD 64 43 .dC CALL 4364 ; INT VAR pos holen
+33C9 E5 . PUSH HL
+33CA CD A8 2C .., CALL 2CA8 ; INT CONST to-pos holen
+33CD 7B { LD A,E
+33CE 95 . SUB L
+33CF 7A z LD A,D ; falls to < from beide vertauschen
+33D0 9C . SBC H
+33D1 38 01 8. JR C,33D4
+33D3 EB . EX DE,HL
+33D4 CD 64 43 .dC CALL 4364 ; INT VAR exit addr holen
+33D7 22 E3 41 ".A LD (41E3),HL ; exit addresse
+33DA ED 43 D0 41 .C.A LD (41D0),BC ; BC retten
+33DE 42 B LD B,D ; BC := to pos
+33DF 4B K LD C,E
+33E0 E1 . POP HL ; pos addresse
+33E1 22 CC 41 ".A LD (41CC),HL
+33E4 5E ^ LD E,(HL) ; poswert holen --> DE
+33E5 2C , INC L
+33E6 56 V LD D,(HL)
+33E7 E1 . POP HL ; TEXT zeile
+33E8 CD 1D 46 ..F CALL 461D ; TEXT Zugriff
+33EB DA 56 34 .V4 JP C,3456 ; Fehlerausgang
+33EE CD 44 45 .DE CALL 4544 ; Zeichenaddr (Text SUB pos)--> HL
+33F1 CA 56 34 .V4 JP Z,3456 ; Fehlerausgang, wenn > TEXT-Laenge
+33F4 F5 . PUSH AF ; Flag (C) merken
+33F5 DD CB 07 5E ...^ BIT 3,(IX+07) ; Extension-Bit (Skip next char)
+33F9 20 4D M JR NZ,3448 ; Res BIT 3 und bernaechstes zeichen
+33FB 7E ~ LD A,(HL) ; A = ROW-Offset (Code)
+33FC E5 . PUSH HL
+33FD 2A DB 41 *.A LD HL,(41DB) ; Block 1 Wortaddr
+3400 85 . ADD L
+3401 30 03 0. JR NC,3406
+3403 2A DD 41 *.A LD HL,(41DD) ; Block 2 Wortaddr
+3406 6F o LD L,A
+3407 29 ) ADD HL,HL
+3408 5E ^ LD E,(HL) ; DE := tabelle(A)
+3409 2C , INC L
+340A 56 V LD D,(HL)
+340B ED 53 CE 41 .S.A LD (41CE),DE ; fuer exit merken
+340F CB 7A .z BIT 7,D
+3411 28 06 (. JR Z,3419 ; < 0 : Extensionchar (Skip next)
+3413 CB BA .. RES 7,D ; Fr Summierung positiv machen
+3415 DD CB 07 DE .... SET 3,(IX+07) ; merken, dass DE negativ war
+3419 2A DF 41 *.A LD HL,(41DF) ; Addresse von 'summe'
+341C 7E ~ LD A,(HL) ; DE INCR summe
+341D 83 . ADD E
+3477 C3 06 2D ..- JP 2D06 ;---------- task heapsize ---------
+347A 3A CB 41 :.A LD A,(41CB) ; heaptop DIV 4 +1
+347D CB 3F .? SLR A
+347F CB 3F .? SLR A
+3481 3C < INC A
+3482 5F _ LD E,A
+3483 16 00 .. LD D,00
+3485 C3 03 2D ..- JP 2D03 ;----------- collect heap garbage -
+3488 79 y LD A,C ; pbase ?
+3489 08 . EX AF,AF'
+348A C3 33 4A .3J JP 4A33 ;----------- replace int ---------
+348D 3E 01 >. LD A,01 ; 1 Wort
+348F 18 02 .. JR 3493 ;----------- replace real -------
+3491 3E 07 >. LD A,07 ; 7 Woerter
+3493 32 D2 41 2.A LD (41D2),A
+3496 CD AA 47 ..G CALL 47AA
+3499 ED 4B D0 41 .K.A LD BC,(41D0)
+349D 18 0C .. JR 34AB ;-------------- ISUB -------------
+349F 3E 01 >. LD A,01
+34A1 18 02 .. JR 34A5 ;------------- RSUB --------------
+34A3 3E 07 >. LD A,07
+34A5 32 D2 41 2.A LD (41D2),A
+34A8 CD 8D 46 ..F CALL 468D
+34AB E5 . PUSH HL
+34AC CD A8 2C .., CALL 2CA8
+34AF 2B + DEC HL
+34B0 CB 7C .| BIT 7,H
+34B2 C4 D9 3C ..< CALL NZ,3CD9
+34B5 29 ) ADD HL,HL
+34B6 3A D2 41 :.A LD A,(41D2)
+34B9 FE 01 .. CP 01
+34BB 28 02 (. JR Z,34BF
+34BD 29 ) ADD HL,HL
+34BE 29 ) ADD HL,HL
+34BF B5 . OR L
+34C0 93 . SUB E
+34C1 7C | LD A,H
+34C2 9A . SBC D
+34C3 D4 D9 3C ..< CALL NC,3CD9
+34C6 EB . EX DE,HL
+34C7 E1 . POP HL
+34C8 CD 0D 45 ..E CALL 450D
+34CB EB . EX DE,HL
+34CC FD CB 00 46 ...F BIT 0,(IY+00)
+34D0 28 06 (. JR Z,34D8
+34D2 CD 64 43 .dC CALL 4364
+34D5 EB . EX DE,HL
+34D6 18 03 .. JR 34DB
+34D8 CD 13 43 ..C CALL 4313
+34DB C5 . PUSH BC
+34DC 3A D2 41 :.A LD A,(41D2)
+34DF 47 G LD B,A
+34E0 4F O LD C,A
+34E1 D5 . PUSH DE
+34E2 11 F3 41 ..A LD DE,41F3
+34E5 7E ~ LD A,(HL)
+34E6 12 . LD (DE),A
+34E7 2C , INC L
+34E8 CC 1B 45 ..E CALL Z,451B
+34EB 13 . INC DE
+34EC 10 F7 .. DJNZ 34E5
+34EE 7E ~ LD A,(HL)
+34EF 12 . LD (DE),A
+34F0 E1 . POP HL
+34F1 11 F3 41 ..A LD DE,41F3
+34F4 41 A LD B,C
+34F5 1A . LD A,(DE)
+34F6 77 w LD (HL),A
+34F7 2C , INC L
+34F8 CC 1B 45 ..E CALL Z,451B
+34FB 13 . INC DE
+34FC 10 F7 .. DJNZ 34F5
+34FE 1A . LD A,(DE)
+34FF 77 w LD (HL),A
+3500 C1 . POP BC
+3501 C3 A7 2A ..* JP 2AA7 ;----------- FMOV MOV8 ------------
+3504 CD 1B 43 ..C CALL 431B
+3507 7D } LD A,L
+3508 E6 F8 .. AND F8
+350A 5F _ LD E,A
+350B 54 T LD D,H
+350C CD 64 43 .dC CALL 4364
+350F 7D } LD A,L
+3510 E6 F8 .. AND F8
+3512 6F o LD L,A
+3513 EB . EX DE,HL
+3514 C5 . PUSH BC
+3515 01 08 00 ... LD BC,0008
+3518 F3 . DI
+3519 ED B0 .. LDIR
+351B FB . EI
+351C C1 . POP BC
+351D C3 A7 2A ..* JP 2AA7 ;-------------- FADD --------------
+3520 FD 21 2C 4F .!,O LD IY,4F2C
+3524 CD AF 44 ..D CALL 44AF
+3527 EB . EX DE,HL
+3528 CD A7 44 ..D CALL 44A7
+352B CD 60 4E .`N CALL 4E60
+352E 30 DC 0. JR NC,350C
+3530 3E 06 >. LD A,06
+3532 CD 0D 3D ..= CALL 3D0D
+3535 CD 43 44 .CD CALL 4443
+3538 C3 A7 2A ..* JP 2AA7 ;------------- FSUB ---------------
+353B FD 21 20 4F .! O LD IY,4F20
+353F 18 E3 .. JR 3524 ;------------- FMULT --------------
+3541 FD 21 E1 4F .!.O LD IY,4FE1
+3545 18 DD .. JR 3524 ;------------ FDIV ----------------
+3547 FD 21 59 50 .!YP LD IY,5059
+354B 18 D7 .. JR 3524 ;------------ FEQU --------------
+354D CD A7 44 ..D CALL 44A7
+3550 EB . EX DE,HL
+3551 CD A7 44 ..D CALL 44A7
+3554 CD 83 4E ..N CALL 4E83
+3557 C2 84 2E ... JP NZ,2E84
+355A C3 71 2E .q. JP 2E71 ;----------- FLSEQ ----------------
+355D CD AF 44 ..D CALL 44AF
+3560 EB . EX DE,HL
+3561 CD A7 44 ..D CALL 44A7
+3564 EB . EX DE,HL
+3565 CD 83 4E ..N CALL 4E83
+3568 DA 84 2E ... JP C,2E84
+356B C3 71 2E .q. JP 2E71 ;------------ FCOMPL -------------
+356E CD A7 44 ..D CALL 44A7
+3571 EB . EX DE,HL
+3572 CD B7 44 ..D CALL 44B7
+3575 EB . EX DE,HL
+3576 CD D2 4E ..N CALL 4ED2
+3579 C3 A7 2A ..* JP 2AA7 ;--------------- SLD --------------
+357C CD 13 43 ..C CALL 4313
+357F 56 V LD D,(HL)
+3580 CD B7 44 ..D CALL 44B7
+3583 E5 . PUSH HL
+3584 CD 64 43 .dC CALL 4364
+3587 E3 . EX (SP),HL
+3588 97 . SUB A
+3589 ED 67 .g RRD
+358B 5F _ LD E,A
+358C 7A z LD A,D
+358D CD 1B 52 ..R CALL 521B
+3590 E1 . POP HL
+3591 73 s LD (HL),E
+3592 2C , INC L
+3593 36 00 6. LD (HL),00
+3595 C3 A7 2A ..* JP 2AA7 ;------------ decimalexponent ------
+3598 CD A7 44 ..D CALL 44A7
+359B CD E9 4E ..N CALL 4EE9
+359E C3 03 2D ..- JP 2D03 ;------------ setexp --------------
+35A1 CD 13 43 ..C CALL 4313
+35A4 5E ^ LD E,(HL)
+35A5 CD B7 44 ..D CALL 44B7
+35A8 CD E0 4E ..N CALL 4EE0
+35AB C3 A7 2A ..* JP 2AA7 ;------------- floor --------------
+35AE CD A7 44 ..D CALL 44A7
+35B1 EB . EX DE,HL
+35B2 CD B7 44 ..D CALL 44B7
+35B5 EB . EX DE,HL
+35B6 CD F6 4E ..N CALL 4EF6
+35B9 C3 A7 2A ..* JP 2AA7 ;------------ clock (nr) ----------
+35BC CD 13 43 ..C CALL 4313
+35BF 7E ~ LD A,(HL)
+35C0 E6 07 .. AND 07
+35C2 28 0F (. JR Z,35D3 ; clock(0) = Taskclock
+35C4 3D = DEC A ; -1
+35C5 87 . ADD A ; *8 (REAL)
+35C6 87 . ADD A
+35C7 87 . ADD A
+35C8 6F o LD L,A
+35C9 26 00 &. LD H,00
+35CB 11 B9 4C ..L LD DE,4CB9 ; 4CB9 = clock (1)
+35CE 19 . ADD HL,DE
+35CF EB . EX DE,HL
+35D0 C3 0C 35 ..5 JP 350C ; Move Real
+35D3 ED 5B 1C 6E .[.n LD DE,(6E1C) ; Steht im Leitblock ab 38..3f
+35D7 1E 38 .8 LD E,38 ; Move real
+35D9 C3 0C 35 ..5 JP 350C ;------------ clock (task) --------
+35DC CD C2 3D ..= CALL 3DC2 ; Fremden Leitblock laden
+35DF FD E5 .. PUSH IY ; Leitblock addr in IY
+35E1 D1 . POP DE
+35E2 18 F3 .. JR 35D7 ;----------- setclock task -------
+35E4 CD BA 3D ..= CALL 3DBA
+35E7 CD 13 43 ..C CALL 4313
+35EA FD E5 .. PUSH IY
+35EC D1 . POP DE
+35ED 1E 38 .8 LD E,38 ; Move Real
+35EF C3 14 35 ..5 JP 3514 ;---------- setclock -------------
+35F2 DD 7E 1D .~. LD A,(IX+1D) ; priv >= 1
+35F5 FE 01 .. CP 01
+35F7 DA E6 3C ..< JP C,3CE6 ; privilegierungsfehler
+35FA CD A7 44 ..D CALL 44A7 ;
+35FD 11 B9 4C ..L LD DE,4CB9
+3600 C3 14 35 ..5 JP 3514 ;------------ ACCDS ---------------
+3603 CD 1B 43 ..C CALL 431B
+3606 CD 11 36 ..6 CALL 3611 ; Test ob DSID > 4
+3609 1E 00 .. LD E,00 ; REF-Addr D=DSID, E=0
+360B D5 . PUSH DE
+360C 21 04 01 !.. LD HL,0104 ; Wortaddresse 4 in Seite 1 i. Start
+360F 18 23 .# JR 3634 ;------------ DSID > 4 ? ----------
+3611 56 V LD D,(HL)
+3612 3E 04 >. LD A,04
+3614 BA . CP D
+3615 D2 82 38 ..8 JP NC,3882 ; falscher DATASPACE Zugriff
+3618 2C , INC L
+3619 7E ~ LD A,(HL)
+361A DD BE 30 ..0 CP (IX+30)
+361D C2 82 38 ..8 JP NZ,3882
+3620 C9 . RET ;-------------- REF ---------------
+3621 CD C0 43 ..C CALL 43C0 ; Wortaddr holen
+3624 D5 . PUSH DE ; Zweiwortaddr auf Stack
+3625 18 0D .. JR 3634 ;-------------- SEL ---------------
+3627 CD C0 43 ..C CALL 43C0
+362A D5 . PUSH DE
+362B CD 43 44 .CD CALL 4443 ; Offset holen
+362E 19 . ADD HL,DE ; REF:=Base+Offset
+362F 30 03 0. JR NC,3634
+3631 D1 . POP DE
+3632 1C . INC E
+3633 D5 . PUSH DE
+3634 EB . EX DE,HL ;---------- REF-Adr auf Stack -----
+3635 CD 64 43 .dC CALL 4364
+3638 73 s LD (HL),E ; 4 Bytes auf Stack
+3639 2C , INC L
+363A 72 r LD (HL),D
+363B 2C , INC L
+363C D1 . POP DE
+363D 73 s LD (HL),E
+363E 2C , INC L
+363F 72 r LD (HL),D
+3640 C3 A7 2A ..* JP 2AA7 ;------------- SUBS ---------------
+3643 67 g LD H,A
+3644 E5 . PUSH HL
+3645 CD 43 44 .CD CALL 4443
+3648 CD 13 43 ..C CALL 4313
+364B 7E ~ LD A,(HL)
+364C 2C , INC L
+364D 66 f LD H,(HL)
+364E 6F o LD L,A
+364F 2B + DEC HL
+3650 7B { LD A,E
+3651 95 . SUB L
+3652 7A z LD A,D
+3653 9C . SBC H
+3654 DC D9 3C ..< CALL C,3CD9
+3657 EB . EX DE,HL
+3658 E1 . POP HL
+3659 CD 6D 4D .mM CALL 4D6D
+365C DC D9 3C ..< CALL C,3CD9
+365F E5 . PUSH HL
+3660 F5 . PUSH AF
+3661 CD B8 43 ..C CALL 43B8
+3664 F1 . POP AF
+3665 83 . ADD E
+3666 5F _ LD E,A
+3667 EB . EX DE,HL
+3668 E3 . EX (SP),HL
+3669 19 . ADD HL,DE
+366A 30 C8 0. JR NC,3634 ; REF-Adr auf Stack
+366C 18 C3 .. JR 3631 ;------------ EQUIM --------------
+366E EB . EX DE,HL
+366F CD 13 43 ..C CALL 4313
+3672 7E ~ LD A,(HL)
+3673 BB . CP E
+3674 C2 84 2E ... JP NZ,2E84 ; Lowbyte vergleichen
+3677 2C , INC L
+3678 7E ~ LD A,(HL) ; Highbyte muss 0 sein
+3679 B7 . OR A
+367A C2 84 2E ... JP NZ,2E84
+367D C3 71 2E .q. JP 2E71 ;-------------- STIM -------------
+3680 EB . EX DE,HL
+3681 16 00 .. LD D,00 ; Lowbyte uebernehmen, Highbyte 0
+3683 C3 03 2D ..- JP 2D03 ;-------------- MOVEXX -----------
+3686 CD 43 44 .CD CALL 4443 ; langer move
+3689 D5 . PUSH DE
+368A 18 03 .. JR 368F ;-------------- MOVX -------------
+368C 26 00 &. LD H,00 ; Highbyte 0
+368E E5 . PUSH HL
+368F CD B8 43 ..C CALL 43B8 ; laenge holen
+3692 FD 21 85 46 .!.F LD IY,4685
+3696 FD 36 00 01 .6.. LD (IY+00),01
+369A FD 72 03 .r. LD (IY+03),D
+369D 7B { LD A,E
+369E CD CA 44 ..D CALL 44CA ; from addr holen
+36A1 E5 . PUSH HL
+36A2 CD B8 43 ..C CALL 43B8
+36A5 FD 21 89 46 .!.F LD IY,4689
+36A9 FD 36 00 00 .6.. LD (IY+00),00
+36AD FD 72 03 .r. LD (IY+03),D
+36B0 7B { LD A,E
+36B1 CD CA 44 ..D CALL 44CA
+36B4 EB . EX DE,HL
+36B5 E1 . POP HL
+36B6 ED 43 D0 41 .C.A LD (41D0),BC
+36BA C1 . POP BC
+36BB CB 21 .! SLA C ; Laenge * 2 in Bytes
+36BD CB 10 .. RL B
+36BF CD B0 2C .., CALL 2CB0
+36C2 ED 4B D0 41 .K.A LD BC,(41D0)
+36C6 C3 A7 2A ..* JP 2AA7 ;--------------- GW --------------
+36C9 CD F9 36 ..6 CALL 36F9 ; segment und oofset
+36CC CD 4D 44 .MD CALL 444D ; Wert auf Stack
+36CF C3 00 2D ..- JP 2D00 ;-------------- PW ---------------
+36D2 CD F9 36 ..6 CALL 36F9 ; segment und offset
+36D5 CD 7D 44 .}D CALL 447D
+36D8 EB . EX DE,HL
+36D9 CD 13 43 ..C CALL 4313
+36DC 7E ~ LD A,(HL)
+36DD 12 . LD (DE),A ; segment veraendern
+36DE 2C , INC L
+36DF 1C . INC E
+36E0 7E ~ LD A,(HL)
+36E1 12 . LD (DE),A
+36E2 C3 A7 2A ..* JP 2AA7 ;----------- getword -------------
+36E5 CD 13 43 ..C CALL 4313 ; segment (Nur ein Byte)
+36E8 5E ^ LD E,(HL)
+36E9 CD A8 2C .., CALL 2CA8 ; wortaddr --> HL
+36EC 7B { LD A,E ; Seg in A, addr in HL, Wert a.Stack
+36ED 18 DD .. JR 36CC ;------------ putword ------------
+36EF CD 13 43 ..C CALL 4313
+36F2 5E ^ LD E,(HL) ; segment (nur ein byte)
+36F3 CD A8 2C .., CALL 2CA8
+36F6 7B { LD A,E ; Segment
+36F7 18 DC .. JR 36D5 ;--------------------------------
+36F9 5D ] LD E,L ; L ist Opcode Byte m. Seg und Offse
+36FA CD 13 43 ..C CALL 4313
+36FD 7B { LD A,E
+36FE 5E ^ LD E,(HL) ; Wortaddr holen
+36FF 2C , INC L
+3700 56 V LD D,(HL)
+3701 67 g LD H,A
+3702 E6 0F .. AND 0F ; Low digit = Offset zu Wortaddr
+3704 6F o LD L,A
+3705 AC . XOR H ; Low DIgit in A = 0
+3706 26 00 &. LD H,00
+3708 19 . ADD HL,DE
+3709 0F . RRCA ; A 0 Segment
+370A 0F . RRCA
+370B 0F . RRCA
+370C 0F . RRCA
+370D C9 . RET ;------------- KE ----------------
+370E CD 2A 6F .*o CALL 6F2A ; Info " KE"
+3711 C3 A7 2A ..* JP 2AA7 ;-------------- SYSGEN ------------
+3714 CD 05 53 ..S CALL 5305 ; RET, Keine Aktion
+3717 C3 A7 2A ..* JP 2AA7 ;--------------- cout ------------
+371A CD 13 43 ..C CALL 4313 ; INT holen
+371D 5E ^ LD E,(HL)
+371E 2C , INC L
+371F 56 V LD D,(HL)
+3720 C5 . PUSH BC
+3721 CB 7A .z BIT 7,D
+3723 20 34 4 JR NZ,3759
+3725 DD 7E 26 .~& LD A,(IX+26) ; Am Kanal ?
+3728 B7 . OR A
+3729 28 2E (. JR Z,3759 ; Nur fuer positive Zahlen
+372B CD 59 1E .Y. CALL 1E59
+372E FE 1E .. CP 1E ; Kanal genuegend frei
+3730 38 27 8' JR C,3759
+3732 21 20 20 ! LD HL,2020
+3735 22 E9 41 ".A LD (41E9),HL
+3738 22 EB 41 ".A LD (41EB),HL ; Puffer loeschen
+373B 21 E8 41 !.A LD HL,41E8
+373E CD 00 4E ..N CALL 4E00 ; Konvertieren
+3741 21 E7 41 !.A LD HL,41E7
+3744 01 0C 00 ... LD BC,000C ; Stringlaenge 12
+3747 59 Y LD E,C
+3748 DD 7E 26 .~& LD A,(IX+26) ; immer noch frei ?
+374B B7 . OR A
+374C 28 0B (. JR Z,3759
+374E CD 88 21 ..! CALL 2188 ; OUTPUT
+3751 38 06 8. JR C,3759
+3753 09 . ADD HL,BC
+3754 7B { LD A,E
+3755 91 . SUB C
+3756 4F O LD C,A
+3757 18 EE .. JR 3747
+3759 C1 . POP BC
+375A C3 A7 2A ..* JP 2AA7 ;------------ outsubtext 1 --------
+375D CD 89 47 ..G CALL 4789
+3760 18 08 .. JR 376A ;------------ outsubtext 2 --------
+3762 CD 95 47 ..G CALL 4795
+3765 18 03 .. JR 376A ;--------------- out --------------
+3767 CD 8D 46 ..F CALL 468D
+376A C5 . PUSH BC
+376B 42 B LD B,D
+376C 4B K LD C,E
+376D CD 44 45 .DE CALL 4544
+3770 28 16 (. JR Z,3788
+3772 F5 . PUSH AF
+3773 50 P LD D,B
+3774 59 Y LD E,C
+3775 DD 7E 26 .~& LD A,(IX+26)
+3778 B7 . OR A
+3779 28 11 (. JR Z,378C
+377B CD 88 21 ..! CALL 2188 ; OUTPUT
+377E 30 0F 0. JR NC,378F
+3780 F1 . POP AF
+3781 30 05 0. JR NC,3788
+3783 CD C1 45 ..E CALL 45C1
+3786 18 E5 .. JR 376D
+3788 C1 . POP BC
+3789 C3 A7 2A ..* JP 2AA7
+378C 01 00 00 ... LD BC,0000
+378F F1 . POP AF
+3790 7B { LD A,E
+3791 91 . SUB C
+3792 4F O LD C,A
+3793 7A z LD A,D
+3794 98 . SBC B
+3795 47 G LD B,A
+3796 CD F1 45 ..E CALL 45F1
+3799 3E 44 >D LD A,44
+379B C3 23 29 .#) JP 2923 ;-------------- inchar ------------
+379E CD 64 43 .dC CALL 4364
+37A1 2C , INC L
+37A2 2C , INC L
+37A3 DD 7E 26 .~& LD A,(IX+26) ; AM Kanal ?
+37A6 B7 . OR A
+37A7 28 05 (. JR Z,37AE
+37A9 CD 06 1F ... CALL 1F06 ; incharety
+37AC 30 05 0. JR NC,37B3
+37AE 3E 48 >H LD A,48 ; Status: Auf Taste warten
+37B0 C3 23 29 .#) JP 2923
+37B3 36 01 6. LD (HL),01 ; Text der laenge 1
+37B5 2C , INC L
+37B6 77 w LD (HL),A
+37B7 CD 29 4C .)L CALL 4C29
+37BA C3 A7 2A ..* JP 2AA7 ;------------- incharety ---------
+37BD CD 64 43 .dC CALL 4364
+37C0 2C , INC L
+37C1 2C , INC L
+37C2 DD 7E 26 .~& LD A,(IX+26)
+37C5 B7 . OR A
+37C6 28 05 (. JR Z,37CD
+37C8 CD 06 1F ... CALL 1F06
+37CB 30 E6 0. JR NC,37B3 ; Text der laenge 1
+37CD 97 . SUB A ; Niltext
+37CE 77 w LD (HL),A
+37CF 2C , INC L
+37D0 77 w LD (HL),A
+37D1 C3 A7 2A ..* JP 2AA7 ;-------------- pause ------------
+37D4 CD A8 2C .., CALL 2CA8
+37D7 DD 7E 26 .~& LD A,(IX+26)
+37DA B7 . OR A
+37DB 28 06 (. JR Z,37E3
+37DD CD AD 1E ... CALL 1EAD ; Taste gedrueckt ?
+37E0 D2 A7 2A ..* JP NC,2AA7
+37E3 ED 5B F1 4C .[.L LD DE,(4CF1)
+37E7 19 . ADD HL,DE
+37E8 DD 75 0C .u. LD (IX+0C),L ; modi := time
+37EB DD 74 0D .t. LD (IX+0D),H
+37EE 79 y LD A,C
+37EF 08 . EX AF,AF'
+37F0 3E 4C >L LD A,4C ; Status: pause
+37F2 C3 23 29 .#) JP 2923 ;------------ getcursor -----------
+37F5 C5 . PUSH BC
+37F6 DD 7E 26 .~& LD A,(IX+26)
+37F9 B7 . OR A
+37FA C4 85 1E ... CALL NZ,1E85 ; getcursor --> BC
+37FD 59 Y LD E,C
+37FE 50 P LD D,B
+37FF C1 . POP BC ; icount
+3800 DA 26 29 .&) JP C,2926
+3803 1C . INC E ; x+1 , y+1
+3804 14 . INC D
+3805 CD 64 43 .dC CALL 4364 ; Zwei Werte (wie REF-Adr) auf Stack
+3808 72 r LD (HL),D ; Beide Highbytes 0
+3809 16 00 .. LD D,00
+380B 2C , INC L
+380C 72 r LD (HL),D
+380D C3 03 2D ..- JP 2D03 ;------------ catinput ------------
+3810 CD B8 43 ..C CALL 43B8
+3813 E5 . PUSH HL
+3814 D5 . PUSH DE
+3815 CD 64 43 .dC CALL 4364
+3818 2C , INC L
+3819 2C , INC L
+381A 22 CC 41 ".A LD (41CC),HL
+381D 97 . SUB A
+381E 77 w LD (HL),A
+381F 2C , INC L
+3820 77 w LD (HL),A
+3821 DD 7E 26 .~& LD A,(IX+26)
+3824 B7 . OR A
+3825 28 44 (D JR Z,386B
+3827 D1 . POP DE
+3828 E1 . POP HL
+3829 E5 . PUSH HL
+382A D5 . PUSH DE
+382B CD AD 47 ..G CALL 47AD
+382E ED 53 40 4B .S@K LD (4B40),DE
+3832 D5 . PUSH DE
+3833 13 . INC DE
+3834 CD AD 48 ..H CALL 48AD
+3837 D1 . POP DE
+3838 38 2A 8* JR C,3864
+383A CD 1D 4A ..J CALL 4A1D
+383D CD 0D 45 ..E CALL 450D
+3840 DD 7E 26 .~& LD A,(IX+26)
+3843 CD 06 1F ... CALL 1F06 ; incharety
+3846 38 1C 8. JR C,3864
+3848 FE 20 . CP 20
+384A 38 11 8. JR C,385D ; < Blank ?
+384C 77 w LD (HL),A
+384D 13 . INC DE
+384E 2C , INC L
+384F 7D } LD A,L ; alle 8 Zeichen unterbrechen
+3850 E6 07 .. AND 07
+3852 20 EC . JR NZ,3840
+3854 CD 92 48 ..H CALL 4892
+3857 ED 4B D0 41 .K.A LD BC,(41D0)
+385B 18 CA .. JR 3827 ; nochmal von vorne
+385D 2A CC 41 *.A LD HL,(41CC)
+3860 36 01 6. LD (HL),01 ; Text der Laenge 1 = escchar
+3862 2C , INC L
+3863 77 w LD (HL),A
+3864 CD 92 48 ..H CALL 4892 ; Kein Zeichen mehr: CAT...
+3867 ED 4B D0 41 .K.A LD BC,(41D0)
+386B D1 . POP DE
+386C E1 . POP HL
+386D C3 A7 2A ..* JP 2AA7 ;------ korrekte DSID in HL ?-----
+3870 DD 7E 30 .~0 LD A,(IX+30) ; eigener Taskindex
+3873 BC . CP H
+3874 20 0C . JR NZ,3882
+3876 7D } LD A,L ; DSnr > 4
+3877 FE 05 .. CP 05
+3879 38 07 8. JR C,3882
+387B C5 . PUSH BC
+387C 4D M LD C,L ; exists (ds) ?
+387D CD 77 69 .wi CALL 6977
+3880 C1 . POP BC
+3881 D0 . RET NC
+3882 3E 0B >. LD A,0B ; alias error
+3884 CD 0D 3D ..= CALL 3D0D
+3887 21 05 00 !.. LD HL,0005 ; Errorspace mit eienem Index
+388A 55 U LD D,L
+388B 37 7 SCF
+388C C9 . RET ;---------------------------------
+388D 55 U LD D,L
+388E 1E 00 .. LD E,00
+3890 21 02 01 !.. LD HL,0102
+3893 CD 5C 65 .\e CALL 655C
+3896 0F . RRCA
+3897 67 g LD H,A
+3898 29 ) ADD HL,HL
+3899 C9 . RET ;------------ ALIAS --------------
+389A CD 43 44 .CD CALL 4443 ; DSID holen
+389D 21 0B 01 !.. LD HL,010B
+38A0 19 . ADD HL,DE
+38A1 38 0A 8. JR C,38AD
+38A3 7D } LD A,L
+38A4 E6 F8 .. AND F8
+38A6 6F o LD L,A
+38A7 29 ) ADD HL,HL
+38A8 30 01 0. JR NC,38AB
+38AA 2C , INC L
+38AB 18 03 .. JR 38B0
+38AD 21 04 00 !.. LD HL,0004
+38B0 22 CC 41 ".A LD (41CC),HL
+38B3 CD A8 2C .., CALL 2CA8
+38B6 CD 70 38 .p8 CALL 3870
+38B9 E5 . PUSH HL
+38BA CD 8D 38 ..8 CALL 388D
+38BD 2D - DEC L
+38BE 2D - DEC L
+38BF 7E ~ LD A,(HL)
+38C0 3C < INC A
+38C1 20 1E . JR NZ,38E1
+38C3 21 00 01 !.. LD HL,0100
+38C6 CD 2C 66 .,f CALL 662C
+38C9 0F . RRCA
+38CA 67 g LD H,A
+38CB 29 ) ADD HL,HL
+38CC ED 5B CC 41 .[.A LD DE,(41CC) ; Liefert REF-Addr
+38D0 73 s LD (HL),E
+38D1 2C , INC L
+38D2 72 r LD (HL),D
+38D3 2C , INC L
+38D4 73 s LD (HL),E
+38D5 2C , INC L
+38D6 72 r LD (HL),D
+38D7 2C , INC L
+38D8 CB 7E .~ BIT 7,(HL)
+38DA 28 05 (. JR Z,38E1
+38DC 36 00 6. LD (HL),00
+38DE 2C , INC L
+38DF 36 00 6. LD (HL),00
+38E1 D1 . POP DE
+38E2 C3 03 2D ..- JP 2D03 ;---------- nilspace -------------
+38E5 11 00 00 ... LD DE,0000
+38E8 C3 03 2D ..- JP 2D03 ;----------- dscopy := -----------
+38EB CD 64 43 .dC CALL 4364 ; dest adr holen
+38EE E5 . PUSH HL
+38EF CD A8 2C .., CALL 2CA8
+38F2 7C | LD A,H
+38F3 B5 . OR L
+38F4 C4 70 38 .p8 CALL NZ,3870 ; source <> nilspace
+38F7 EB . EX DE,HL
+38F8 38 0F 8. JR C,3909
+38FA C5 . PUSH BC
+38FB DD 46 30 .F0 LD B,(IX+30) ; eigener taskindex
+38FE 4B K LD C,E
+38FF 50 P LD D,B
+3900 CD E8 68 ..h CALL 68E8 ;
+3903 C1 . POP BC
+3904 1C . INC E ; Anzahl Dataspaces
+3905 1D . DEC E
+3906 CC 10 39 ..9 CALL Z,3910 ; errorstop durhfuehren als SBRT.
+3909 E1 . POP HL
+390A 73 s LD (HL),E
+390B 2C , INC L
+390C 72 r LD (HL),D
+390D C3 A7 2A ..* JP 2AA7
+3910 3E 08 >. LD A,08 ; errorstop zuviele DS
+3912 CD 0D 3D ..= CALL 3D0D
+3915 11 05 00 ... LD DE,0005 ; result ist errorspace
+3918 C9 . RET ;------------- forget ------------
+3919 CD 64 43 .dC CALL 4364
+391C C5 . PUSH BC
+391D 5E ^ LD E,(HL)
+391E 2C , INC L
+391F 56 V LD D,(HL)
+3920 EB . EX DE,HL
+3921 3E 05 >. LD A,05 ; Nur ds > 4 loeschen
+3923 BD . CP L
+3924 30 17 0. JR NC,393D
+3926 CB 7C .| BIT 7,H
+3928 28 06 (. JR Z,3930
+392A 7D } LD A,L
+392B 84 . ADD H
+392C 20 0F . JR NZ,393D
+392E 18 06 .. JR 3936
+3930 DD 7E 30 .~0 LD A,(IX+30)
+3933 BC . CP H
+3934 20 07 . JR NZ,393D
+3936 4D M LD C,L
+3937 CD 77 69 .wi CALL 6977
+393A D4 97 69 ..i CALL NC,6997
+393D EB . EX DE,HL
+393E 36 00 6. LD (HL),00 ; ergebnis 01 DS
+3940 2D - DEC L
+3941 36 01 6. LD (HL),01
+3943 C1 . POP BC
+3944 C3 A7 2A ..* JP 2AA7 ;------------- settype -----------
+3947 CD A8 2C .., CALL 2CA8
+394A EB . EX DE,HL
+394B CD A8 2C .., CALL 2CA8
+394E EB . EX DE,HL
+394F CD 70 38 .p8 CALL 3870
+3952 38 11 8. JR C,3965
+3954 D5 . PUSH DE
+3955 55 U LD D,L
+3956 1E 00 .. LD E,00
+3958 21 02 01 !.. LD HL,0102
+395B CD 2C 66 .,f CALL 662C
+395E 0F . RRCA
+395F 67 g LD H,A
+3960 29 ) ADD HL,HL
+3961 D1 . POP DE
+3962 73 s LD (HL),E ; type im ds ersetzen
+3963 2C , INC L
+3964 72 r LD (HL),D
+3965 C3 A7 2A ..* JP 2AA7 ;------------- gettype ------------
+3968 CD A8 2C .., CALL 2CA8
+396B CD 70 38 .p8 CALL 3870
+396E 38 06 8. JR C,3976
+3970 CD 8D 38 ..8 CALL 388D
+3973 5E ^ LD E,(HL)
+3974 2C , INC L
+3975 56 V LD D,(HL)
+3976 C3 03 2D ..- JP 2D03 ;------------ heapsize ------------
+3979 CD A8 2C .., CALL 2CA8
+397C CD 70 38 .p8 CALL 3870
+397F 38 F5 8. JR C,3976
+3981 CD 8D 38 ..8 CALL 388D
+3984 2E 00 .. LD L,00
+3986 7E ~ LD A,(HL)
+3987 E6 0F .. AND 0F
+3989 2C , INC L
+398A 5E ^ LD E,(HL)
+398B 0F . RRCA
+398C CB 1B .. RR E
+398E 0F . RRCA
+398F CB 1B .. RR E
+3991 E6 03 .. AND 03
+3993 57 W LD D,A
+3994 C3 03 2D ..- JP 2D03 ;------------ pages task ----------
+3997 CD 13 43 ..C CALL 4313
+399A 5E ^ LD E,(HL)
+399B CD 13 43 ..C CALL 4313
+399E 56 V LD D,(HL)
+399F CD 7D 6A .}j CALL 6A7D
+39A2 C3 03 2D ..- JP 2D03 ;---- Parameter fuer blockin/out---
+39A5 CD 13 43 ..C CALL 4313 ; DSnr
+39A8 CD 11 36 ..6 CALL 3611
+39AB CD A8 2C .., CALL 2CA8 ; page --> HL
+39AE 5C \ LD E,H
+39AF 65 e LD H,L
+39B0 2E 00 .. LD L,00
+39B2 C9 . RET ;----------------- blockout -------
+39B3 CD A5 39 ..9 CALL 39A5
+39B6 CD 5C 65 .\e CALL 655C
+39B9 67 g LD H,A
+39BA EB . EX DE,HL
+39BB CD A8 2C .., CALL 2CA8 ; code1 --> HL
+39BE E5 . PUSH HL
+39BF CD A8 2C .., CALL 2CA8 ; code2 --> HL
+39C2 E5 . PUSH HL
+39C3 CD 64 43 .dC CALL 4364 ; result addr
+39C6 ED 43 D0 41 .C.A LD (41D0),BC
+39CA C1 . POP BC
+39CB E3 . EX (SP),HL
+39CC DD 7E 26 .~& LD A,(IX+26)
+39CF B7 . OR A
+39D0 28 05 (. JR Z,39D7 ; Kanal > 0 sein
+39D2 CD 2A 26 .*& CALL 262A
+39D5 18 03 .. JR 39DA
+39D7 01 FF FF ... LD BC,FFFF ; Nicht fuer HG
+39DA E1 . POP HL ; result liefern
+39DB 71 q LD (HL),C
+39DC 2C , INC L
+39DD 70 p LD (HL),B
+39DE ED 4B D0 41 .K.A LD BC,(41D0)
+39E2 C3 A7 2A ..* JP 2AA7 ;------------ blockin -------------
+39E5 CD A5 39 ..9 CALL 39A5
+39E8 CD 2C 66 .,f CALL 662C
+39EB 67 g LD H,A
+39EC EB . EX DE,HL
+39ED CD A8 2C .., CALL 2CA8
+39F0 E5 . PUSH HL
+39F1 CD A8 2C .., CALL 2CA8
+39F4 E5 . PUSH HL
+39F5 CD 64 43 .dC CALL 4364
+39F8 ED 43 D0 41 .C.A LD (41D0),BC
+39FC C1 . POP BC
+39FD E3 . EX (SP),HL
+39FE DD 7E 26 .~& LD A,(IX+26)
+3A01 B7 . OR A
+3A02 28 D3 (. JR Z,39D7
+3A04 CD 56 25 .V% CALL 2556
+3A07 18 D1 .. JR 39DA ;------------ control -------------
+3A09 CD A8 2C .., CALL 2CA8 ; funktion
+3A0C EB . EX DE,HL
+3A0D CD A8 2C .., CALL 2CA8 ; code1
+3A10 E5 . PUSH HL
+3A11 CD A8 2C .., CALL 2CA8 ; code2
+3A14 E5 . PUSH HL
+3A15 CD 64 43 .dC CALL 4364 ; result
+3A18 ED 43 D0 41 .C.A LD (41D0),BC ; DE = Funktion
+3A1C C1 . POP BC ; BC = Code 2
+3A1D E3 . EX (SP),HL ; HL = Code 1
+3A1E 7B { LD A,E ; funktion=10 (calendar)
+3A1F D6 0A .. SUB A,0A
+3A21 B2 . OR D
+3A22 28 0B (. JR Z,3A2F
+3A24 DD 7E 26 .~& LD A,(IX+26)
+3A27 B7 . OR A
+3A28 28 AD (. JR Z,39D7
+3A2A CD 56 24 .V$ CALL 2456 ; IOCONTROL
+3A2D 18 AB .. JR 39DA ; result in BC uebertragen
+3A2F 3A 6B 28 :k( LD A,(286B) ; control (10,..)
+3A32 FE 08 .. CP 08 ; shard >= 8?
+3A34 30 F4 0. JR NC,3A2A ; nein:
+3A36 01 FF FF ... LD BC,FFFF ; result -1
+3A39 18 9F .. JR 39DA ;-------------- nextdspage --------
+3A3B CD 13 43 ..C CALL 4313 ; dsnr holen
+3A3E CD 11 36 ..6 CALL 3611 ; test, gueltigen ds
+3A41 CD A8 2C .., CALL 2CA8 ; page holen
+3A44 CD 5B 6A .[j CALL 6A5B ; nextdspage
+3A47 EB . EX DE,HL
+3A48 C3 03 2D ..- JP 2D03 ; nextpage auf stack
+3A4B CB 7E .~ BIT 7,(HL)
+3A4D 28 04 (. JR Z,3A53
+3A4F CB BE .. RES 7,(HL)
+3A51 B7 . OR A
+3A52 C9 . RET
+3A53 1C . INC E
+3A54 2D - DEC L
+3A55 34 4 INC (HL)
+3A56 20 03 . JR NZ,3A5B
+3A58 2C , INC L
+3A59 34 4 INC (HL)
+3A5A 2D - DEC L
+3A5B 2C , INC L
+3A5C CB FE .. SET 7,(HL)
+3A5E 37 7 SCF
+3A5F C9 . RET
+3A60 CB BC .. RES 7,H
+3A62 5C \ LD E,H
+3A63 16 1D .. LD D,1D
+3A65 1A . LD A,(DE)
+3A66 67 g LD H,A
+3A67 29 ) ADD HL,HL
+3A68 D8 . RET C
+3A69 C3 F9 42 ..B JP 42F9
+3A6C CB BC .. RES 7,H
+3A6E 5C \ LD E,H
+3A6F 16 1D .. LD D,1D
+3A71 1A . LD A,(DE)
+3A72 67 g LD H,A
+3A73 29 ) ADD HL,HL
+3A74 B7 . OR A
+3A75 C0 . RET NZ
+3A76 C3 E1 42 ..B JP 42E1 ;---------------- ECWR ------------
+3A79 CD 64 43 .dC CALL 4364
+3A7C E5 . PUSH HL
+3A7D CD 64 43 .dC CALL 4364
+3A80 5E ^ LD E,(HL)
+3A81 2C , INC L
+3A82 56 V LD D,(HL)
+3A83 E5 . PUSH HL
+3A84 EB . EX DE,HL
+3A85 CD 60 3A .`: CALL 3A60
+3A88 EB . EX DE,HL
+3A89 CD 13 43 ..C CALL 4313
+3A8C 7E ~ LD A,(HL)
+3A8D E1 . POP HL
+3A8E CD 4B 3A .K: CALL 3A4B
+3A91 12 . LD (DE),A
+3A92 38 04 8. JR C,3A98
+3A94 EB . EX DE,HL
+3A95 2C , INC L
+3A96 36 00 6. LD (HL),00
+3A98 E1 . POP HL
+3A99 5E ^ LD E,(HL)
+3A9A 2C , INC L
+3A9B 56 V LD D,(HL)
+3A9C EB . EX DE,HL
+3A9D 29 ) ADD HL,HL
+3A9E CB 54 .T BIT 2,H
+3AA0 CB 94 .. RES 2,H
+3AA2 28 01 (. JR Z,3AA5
+3AA4 2C , INC L
+3AA5 85 . ADD L
+3AA6 6F o LD L,A
+3AA7 30 01 0. JR NC,3AAA
+3AA9 24 $ INC H
+3AAA CB 94 .. RES 2,H
+3AAC EB . EX DE,HL
+3AAD 72 r LD (HL),D
+3AAE 2D - DEC L
+3AAF 73 s LD (HL),E
+3AB0 C3 A7 2A ..* JP 2AA7 ;--------------- CWR -------------
+3AB3 CD 64 43 .dC CALL 4364
+3AB6 E5 . PUSH HL
+3AB7 CD 13 43 ..C CALL 4313
+3ABA 5E ^ LD E,(HL)
+3ABB D5 . PUSH DE
+3ABC CD A8 2C .., CALL 2CA8
+3ABF CD 60 3A .`: CALL 3A60
+3AC2 D1 . POP DE
+3AC3 73 s LD (HL),E
+3AC4 E1 . POP HL
+3AC5 2C , INC L
+3AC6 CD 4B 3A .K: CALL 3A4B
+3AC9 CB BE .. RES 7,(HL)
+3ACB C3 A7 2A ..* JP 2AA7 ;----------- CRD ------------------
+3ACE CD A8 2C .., CALL 2CA8
+3AD1 CD 6C 3A .l: CALL 3A6C
+3AD4 5E ^ LD E,(HL)
+3AD5 16 00 .. LD D,00
+3AD7 C3 03 2D ..- JP 2D03 ;------------- BCRD ---------------
+3ADA CD 64 43 .dC CALL 4364
+3ADD E5 . PUSH HL
+3ADE CD 64 43 .dC CALL 4364
+3AE1 5E ^ LD E,(HL)
+3AE2 2C , INC L
+3AE3 56 V LD D,(HL)
+3AE4 E5 . PUSH HL
+3AE5 EB . EX DE,HL
+3AE6 CD 6C 3A .l: CALL 3A6C
+3AE9 EB . EX DE,HL
+3AEA E1 . POP HL
+3AEB CD 4B 3A .K: CALL 3A4B
+3AEE E1 . POP HL
+3AEF 1A . LD A,(DE)
+3AF0 77 w LD (HL),A
+3AF1 2C , INC L
+3AF2 36 00 6. LD (HL),00
+3AF4 C3 A7 2A ..* JP 2AA7 ;-------------- cdbint -----------
+3AF7 CD A8 2C .., CALL 2CA8 ; address holen
+3AFA 3E 05 >. LD A,05 ; Segment 5
+3AFC FD 21 85 46 .!.F LD IY,4685
+3B00 FD 36 00 01 .6.. LD (IY+00),01 ; 1 Wort
+3B04 FD 36 03 04 .6.. LD (IY+03),04 ; DS 4
+3B08 CD CA 44 ..D CALL 44CA
+3B0B C3 00 2D ..- JP 2D00 ;-------------- cdbtext -----------
+3B0E CD A8 2C .., CALL 2CA8 ; Textaddress holen
+3B11 2B + DEC HL
+3B12 11 05 04 ... LD DE,0405 ; DS 4, Segment 5
+3B15 CD 95 46 ..F CALL 4695
+3B18 C3 D0 30 ..0 JP 30D0 ;--------------- CTT --------------
+3B1B CD A8 2C .., CALL 2CA8 ; Textaddr holen
+3B1E 2B + DEC HL
+3B1F 11 04 00 ... LD DE,0004 ; REF-Adr : DS 4, HL
+3B22 D5 . PUSH DE
+3B23 C3 34 36 .46 JP 3634 ;-------------- GETC --------------
+3B26 CD 8D 46 ..F CALL 468D
+3B29 E5 . PUSH HL
+3B2A CD 64 43 .dC CALL 4364
+3B2D 7B { LD A,E
+3B2E 5E ^ LD E,(HL)
+3B2F 93 . SUB E
+3B30 2C , INC L
+3B31 7A z LD A,D
+3B32 56 V LD D,(HL)
+3B33 9A . SBC D
+3B34 38 18 8. JR C,3B4E
+3B36 E3 . EX (SP),HL
+3B37 1B . DEC DE
+3B38 CD 0D 45 ..E CALL 450D
+3B3B 5E ^ LD E,(HL)
+3B3C CD 64 43 .dC CALL 4364
+3B3F 73 s LD (HL),E
+3B40 2C , INC L
+3B41 36 00 6. LD (HL),00
+3B43 E1 . POP HL
+3B44 2D - DEC L
+3B45 34 4 INC (HL)
+3B46 C2 71 2E .q. JP NZ,2E71
+3B49 2C , INC L
+3B4A 34 4 INC (HL)
+3B4B C3 71 2E .q. JP 2E71
+3B4E CD 43 44 .CD CALL 4443
+3B51 C3 84 2E ... JP 2E84 ;------------ FNONBL --------------
+3B54 CD 64 43 .dC CALL 4364
+3B57 E5 . PUSH HL
+3B58 CD 8D 46 ..F CALL 468D
+3B5B E5 . PUSH HL
+3B5C D5 . PUSH DE
+3B5D CD 64 43 .dC CALL 4364
+3B60 22 CC 41 ".A LD (41CC),HL
+3B63 ED 43 D0 41 .C.A LD (41D0),BC
+3B67 C1 . POP BC
+3B68 5E ^ LD E,(HL)
+3B69 2C , INC L
+3B6A 56 V LD D,(HL)
+3B6B E1 . POP HL
+3B6C CD 1D 46 ..F CALL 461D
+3B6F CD 44 45 .DE CALL 4544
+3B72 28 2B (+ JR Z,3B9F
+3B74 F5 . PUSH AF
+3B75 3E 20 > LD A,20
+3B77 ED A1 .. CPI
+3B79 20 0B . JR NZ,3B86
+3B7B EA 77 3B .w; JP PE,3B77
+3B7E F1 . POP AF
+3B7F 30 1E 0. JR NC,3B9F
+3B81 CD C1 45 ..E CALL 45C1
+3B84 18 E9 .. JR 3B6F
+3B86 F1 . POP AF
+3B87 2B + DEC HL
+3B88 7E ~ LD A,(HL)
+3B89 CD 33 46 .3F CALL 4633
+3B8C 13 . INC DE
+3B8D 2A CC 41 *.A LD HL,(41CC)
+3B90 73 s LD (HL),E
+3B91 2C , INC L
+3B92 72 r LD (HL),D
+3B93 E1 . POP HL
+3B94 77 w LD (HL),A
+3B95 2C , INC L
+3B96 36 00 6. LD (HL),00
+3B98 ED 4B D0 41 .K.A LD BC,(41D0)
+3B9C C3 71 2E .q. JP 2E71
+3B9F E1 . POP HL
+3BA0 ED 4B D0 41 .K.A LD BC,(41D0)
+3BA4 C3 84 2E ... JP 2E84 ;-------------- DREM256 -----------
+3BA7 CD 64 43 .dC CALL 4364
+3BAA EB . EX DE,HL
+3BAB CD 64 43 .dC CALL 4364
+3BAE 1A . LD A,(DE)
+3BAF 77 w LD (HL),A
+3BB0 97 . SUB A
+3BB1 2C , INC L
+3BB2 77 w LD (HL),A
+3BB3 EB . EX DE,HL
+3BB4 2C , INC L
+3BB5 5E ^ LD E,(HL)
+3BB6 77 w LD (HL),A
+3BB7 2D - DEC L
+3BB8 73 s LD (HL),E
+3BB9 C3 A7 2A ..* JP 2AA7 ;------------- AMUL256 ------------
+3BBC CD 64 43 .dC CALL 4364
+3BBF EB . EX DE,HL
+3BC0 CD 13 43 ..C CALL 4313
+3BC3 7E ~ LD A,(HL)
+3BC4 EB . EX DE,HL
+3BC5 5E ^ LD E,(HL)
+3BC6 77 w LD (HL),A
+3BC7 2C , INC L
+3BC8 73 s LD (HL),E
+3BC9 C3 A7 2A ..* JP 2AA7 ;------------ ISLD ----------------
+3BCC CD 13 43 ..C CALL 4313
+3BCF 7E ~ LD A,(HL)
+3BD0 FE 7B .{ CP 7B
+3BD2 D2 84 2E ... JP NC,2E84
+3BD5 FE 61 .a CP 61
+3BD7 D2 71 2E .q. JP NC,2E71
+3BDA 11 3A 30 .:0 LD DE,303A
+3BDD 18 07 .. JR 3BE6 ;------------- ISDIG ---------------
+3BDF 11 3A 30 .:0 LD DE,303A
+3BE2 CD 13 43 ..C CALL 4313
+3BE5 7E ~ LD A,(HL)
+3BE6 BB . CP E
+3BE7 D2 84 2E ... JP NC,2E84
+3BEA BA . CP D
+3BEB D2 71 2E .q. JP NC,2E71
+3BEE C3 84 2E ... JP 2E84 ;-------------- ISLCAS ------------
+3BF4 18 EC .. JR 3BE2 ;-------------- ISUCAS -----------
+3BF6 11 5B 41 .[A LD DE,415B
+3BF9 18 E7 .. JR 3BE2 ;--------------- GADDR ------------
+3BFB CD A8 2C .., CALL 2CA8
+3BFE EB . EX DE,HL
+3BFF CD A8 2C .., CALL 2CA8
+3C02 CB 7C .| BIT 7,H
+3C04 28 0A (. JR Z,3C10
+3C06 29 ) ADD HL,HL
+3C07 CB 7C .| BIT 7,H
+3C09 28 01 (. JR Z,3C0C
+3C0B 2C , INC L
+3C0C CB FC .. SET 7,H
+3C0E 18 03 .. JR 3C13
+3C10 B7 . OR A
+3C11 ED 52 .R SBC HL,DE
+3C13 EB . EX DE,HL
+3C14 C3 03 2D ..- JP 2D03 ;------------- GCADDR -------------
+3C17 CD A8 2C .., CALL 2CA8
+3C1A EB . EX DE,HL
+3C1B CD 13 43 ..C CALL 4313
+3C1E 2C , INC L
+3C1F 7A z LD A,D
+3C20 96 . SUB (HL)
+3C21 30 02 0. JR NC,3C25
+3C23 C6 10 .. ADD A,10
+3C25 0F . RRCA
+3C26 57 W LD D,A
+3C27 CD 64 43 .dC CALL 4364
+3C2A 73 s LD (HL),E
+3C2B 2C , INC L
+3C2C 72 r LD (HL),D
+3C2D 7A z LD A,D
+3C2E E6 78 .x AND 78
+3C30 CA 71 2E .q. JP Z,2E71
+3C33 C3 84 2E ... JP 2E84 ;------------ ISSHA ---------------
+3C36 CD A8 2C .., CALL 2CA8
+3C39 7C | LD A,H
+3C3A E6 7C .| AND 7C
+3C3C CA 71 2E .q. JP Z,2E71
+3C3F C3 84 2E ... JP 2E84 ;-------------- GETTAB ------------
+3C42 11 00 04 ... LD DE,0400
+3C45 21 00 05 !.. LD HL,0500 ; von Segment 5 nach segment 4
+3C48 3E 80 >. LD A,80
+3C4A C5 . PUSH BC
+3C4B 47 G LD B,A
+3C4C 0E 04 .. LD C,04
+3C4E CD B6 69 ..i CALL 69B6
+3C51 CD 16 42 ..B CALL 4216
+3C54 C1 . POP BC
+3C55 C3 A7 2A ..* JP 2AA7 ;-------------- PUTTAB ------------
+3C58 11 00 05 ... LD DE,0500 ; von segment 4 nach segment 5
+3C5B 21 00 04 !.. LD HL,0400
+3C5E 3E 80 >. LD A,80
+3C60 18 E8 .. JR 3C4A ;------------- ERATAB -------------
+3C62 11 00 04 ... LD DE,0400 ; Segment 4 loeschen (6 ist leer)
+3C65 21 00 06 !.. LD HL,0600
+3C68 E5 . PUSH HL
+3C69 C5 . PUSH BC
+3C6A 06 FE .. LD B,FE
+3C6C 0E 04 .. LD C,04
+3C6E CD B6 69 ..i CALL 69B6
+3C71 C1 . POP BC
+3C72 E1 . POP HL
+3C73 11 00 07 ... LD DE,0700 ; neuerdings auch Segment 7
+3C76 3E FE >. LD A,FE ; loeschen
+3C78 18 D0 .. JR 3C4A ;------------ storage ------------
+3C7A C5 . PUSH BC
+3C7B CD CC 56 ..V CALL 56CC ; storage berechnen
+3C7E 59 Y LD E,C
+3C7F 50 P LD D,B
+3C80 C1 . POP BC
+3C81 EB . EX DE,HL
+3C82 E5 . PUSH HL
+3C83 CD 64 43 .dC CALL 4364 ; size-addresse holen
+3C86 73 s LD (HL),E
+3C87 2C , INC L
+3C88 72 r LD (HL),D
+3C89 D1 . POP DE ; used-auf stack
+3C8A C3 03 2D ..- JP 2D03 ;------------- sysop -------------
+3C8D DD 7E 1D .~. LD A,(IX+1D) ; privilegierte operation
+3C90 FE 01 .. CP 01
+3C92 DA E6 3C ..< JP C,3CE6
+3C95 CD A8 2C .., CALL 2CA8 ; nr holen
+3C98 3E 0C >. LD A,0C
+3C9A BD . CP L
+3C9B 20 01 . JR NZ,3C9E ; savesystem ?
+3C9D 2D - DEC L ; aus 12 wird 11
+3C9E 3A 17 82 :.. LD A,(8217) ; Musta
+3CA1 B7 . OR A
+3CA2 C2 26 29 .&) JP NZ,2926 ; Warten, bis Musta frei
+3CA5 DD CB 07 5E ...^ BIT 3,(IX+07) ; restart
+3CA9 20 1B . JR NZ,3CC6
+3CAB DD CB 07 DE .... SET 3,(IX+07)
+3CAF 7D } LD A,L
+3CB0 32 17 82 2.. LD (8217),A
+3CB3 21 60 EA !`. LD HL,EA60 ; 6000.0 s = 100 Minuten
+3CB6 22 B6 4C ".L LD (4CB6),HL
+3CB9 FE 04 .. CP 04 ; < shutup ?
+3CBB DA 26 29 .&) JP C,2926
+3CBE CD 02 2A ..* CALL 2A02
+3CC1 CD E2 6D ..m CALL 6DE2 ; Endlos warte
+3CC4 18 FB .. JR 3CC1
+3CC6 DD CB 07 9E .... RES 3,(IX+07)
+3CCA C3 A7 2A ..* JP 2AA7 ;-------------- DIV by 0 ---------
+3CCD 3E 05 >. LD A,05
+3CCF 18 37 .7 JR 3D08 ;---------- Stackoverflow ---------
+3CD1 DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop
+3CD5 3E 02 >. LD A,02 ; errorstop
+3CD7 18 39 .9 JR 3D12 ;
+3CD9 3E 09 >. LD A,09 ;---------- Subscript overflow ----
+3CDB CB 7C .| BIT 7,H
+3CDD 28 02 (. JR Z,3CE1
+3CDF 3E 0A >. LD A,0A ;---------- Subscript underflow ----
+3CE1 21 00 00 !.. LD HL,0000
+3CE4 18 27 .' JR 3D0D ;----- error: privilegierte op --
+3CE6 DD 7E 30 .~0 LD A,(IX+30) ; Taskindex = Supervisor ?
+3CE9 FE 01 .. CP 01
+3CEB 20 07 . JR NZ,3CF4
+3CED DD 36 1D 02 .6.. LD (IX+1D),02 ; privileged 2, offener wartezustand
+3CF1 C3 26 29 .&) JP 2926 ;--------- Codefehler --------------
+3CF4 DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop
+3CF8 3E 11 >. LD A,11
+3CFA 18 16 .. JR 3D12 ; errorstop ("Codefehler")
+3CFC 30 03 0. JR NC,3D01 ; ------ INT overflow, wenn arith15
+3CFE 21 FF FF !.. LD HL,FFFF
+3D01 DD CB 0B 66 ...f BIT 4,(IX+0B)
+3D05 C0 . RET NZ
+3D06 3E 04 >. LD A,04
+3D08 11 01 00 ... LD DE,0001
+3D0B 62 b LD H,D
+3D0C 6A j LD L,D
+3D0D DD CB 0B 7E ...~ BIT 7,(IX+0B) ; nur wenn nicht schon iserror
+3D11 C0 . RET NZ
+3D12 DD 36 25 00 .6%. LD (IX+25),00 ;--------- errorstop
+3D16 DD 77 24 .w$ LD (IX+24),A ; errorno
+3D19 DD 7E 20 .~ LD A,(IX+20) ; errline := lineno
+3D1C DD 77 22 .w" LD (IX+22),A
+3D1F DD 7E 21 .~! LD A,(IX+21)
+3D22 DD 77 23 .w# LD (IX+23),A
+3D25 DD CB 0B FE .... SET 7,(IX+0B) ; iserror
+3D29 DD CB 0B 76 ...v BIT 6,(IX+0B)
+3D2D C0 . RET NZ
+3D2E CD E8 45 ..E CALL 45E8 ; Return, wenn enablestop
+3D31 DD CB 07 9E .... RES 3,(IX+07)
+3D35 31 13 6D 1.m LD SP,6D13
+3D38 DD CB 0B 76 ...v BIT 6,(IX+0B) ;-------------- TERM --------------
+3D3C 20 09 . JR NZ,3D47 ; bis zum disablestop PROC zurueck
+3D3E DD 36 06 1C .6.. LD (IX+06),1C ; Status LEAVE PROC
+3D42 CD 35 30 .50 CALL 3035 ; EXEC LEAVE
+3D45 18 F1 .. JR 3D38 ; Weiter LEAVEn
+3D47 DD 36 06 00 .6.. LD (IX+06),00 ; Status Busy
+3D4B C3 A7 2A ..* JP 2AA7 ;----------- enablestop ---------
+3D4E DD CB 0B B6 .... RES 6,(IX+0B)
+3D52 DD CB 0B 7E ...~ BIT 7,(IX+0B)
+3D56 20 E0 . JR NZ,3D38 ; LEAVE PROC, if enablesto and iserr
+3D58 C3 A7 2A ..* JP 2AA7 ;------------ disablestop --------
+3D5B DD CB 0B F6 .... SET 6,(IX+0B)
+3D5F C3 A7 2A ..* JP 2AA7 ;----------- seterrorstop ---------
+3D62 CD A8 2C .., CALL 2CA8
+3D65 DD CB 0B 7E ...~ BIT 7,(IX+0B)
+3D69 C2 A7 2A ..* JP NZ,2AA7
+3D6C DD 74 25 .t% LD (IX+25),H ; errorcode high
+3D6F 7D } LD A,L
+3D70 CD 16 3D ..= CALL 3D16 ; errorstop
+3D73 C3 A7 2A ..* JP 2AA7 ;------------- iserror ------------
+3D76 DD CB 0B 7E ...~ BIT 7,(IX+0B)
+3D7A CA 84 2E ... JP Z,2E84
+3D7D C3 71 2E .q. JP 2E71 ;------------ clearerror ----------
+3D80 DD CB 0B 76 ...v BIT 6,(IX+0B)
+3D84 CA A7 2A ..* JP Z,2AA7 ; war kein Fehler
+3D87 C5 . PUSH BC
+3D88 0E 05 .. LD C,05
+3D8A CD 97 69 ..i CALL 6997
+3D8D 3A 1A 6E :.n LD A,(6E1A) ; Aktueller Taskindex
+3D90 47 G LD B,A
+3D91 0E 00 .. LD C,00
+3D93 57 W LD D,A
+3D94 CD E8 68 ..h CALL 68E8
+3D97 C1 . POP BC
+3D98 DD CB 0B BE .... RES 7,(IX+0B)
+3D9C C3 A7 2A ..* JP 2AA7 ;-------- readpcb myself ----------
+3D9F CD A5 3D ..= CALL 3DA5 ;
+3DA2 C3 00 2D ..- JP 2D00 ; Wert auf Stack
+3DA5 CD 13 43 ..C CALL 4313 ; Zwei Addressen holen
+3DA8 7E ~ LD A,(HL)
+3DA9 2A 1C 6E *.n LD HL,(6E1C) ; Leitblock aktueller
+3DAC 87 . ADD A
+3DAD C6 1E .. ADD A,1E ; pcb--> pcf konvertieren
+3DAF E6 3F .? AND 3F
+3DB1 6F o LD L,A
+3DB2 C9 . RET ;----- test ob, supervisorson ----
+3DB3 DD 7E 1D .~. LD A,(IX+1D) ; priv Feld
+3DB6 FE 01 .. CP 01 ; >= 1 : darf
+3DB8 30 08 0. JR NC,3DC2
+3DBA DD 7E 1D .~. LD A,(IX+1D) ;------ test, ob supervisor -------
+3DBD FE 02 .. CP 02
+3DBF DA E6 3C ..< JP C,3CE6 ; < 2 : darf nicht
+3DC2 CD 07 44 ..D CALL 4407 ; leitblock einer task laden-------
+3DC5 FD 2A 1C 6E .*.n LD IY,(6E1C)
+3DC9 1A . LD A,(DE)
+3DCA 3D = DEC A
+3DCB FE 7F .. CP 7F ; Taskindex >= 128 ?
+3DCD D0 . RET NC
+3DCE 1C . INC E
+3DCF 1A . LD A,(DE)
+3DD0 1D . DEC E
+3DD1 DD BE 31 ..1 CP (IX+31) ; Stationsnummer (myself)
+3DD4 20 07 . JR NZ,3DDD
+3DD6 1A . LD A,(DE)
+3DD7 CD 4D 6D .Mm CALL 6D4D
+3DDA 1A . LD A,(DE)
+3DDB 37 7 SCF
+3DDC C9 . RET
+3DDD B7 . OR A
+3DDE C9 . RET ;------------ pcb-feld lesen -----
+3DDF CD C2 3D ..= CALL 3DC2 ;
+3DE2 CD 13 43 ..C CALL 4313
+3DE5 7E ~ LD A,(HL) ; pcb-nummer
+3DE6 FD E5 .. PUSH IY
+3DE8 E1 . POP HL
+3DE9 18 C1 .. JR 3DAC ;------------- readpcb task -------
+3DEB CD DF 3D ..= CALL 3DDF ; Readpcb und Wert auf Stack
+3DEE C3 00 2D ..- JP 2D00 ;------------- writepcb task ------
+3DF1 CD DF 3D ..= CALL 3DDF ; Readpcb
+3DF4 FD 7E 30 .~0 LD A,(IY+30) ; Eigener Taskindex = pcb-Taskindex
+3DF7 DD BE 30 ..0 CP (IX+30)
+3DFA 20 05 . JR NZ,3E01 ; Nein, kann nur Supervisor
+3DFC 7D } LD A,L ; linenumber field
+3DFD FE 20 . CP 20 ; pcf=32 kann beschrieben werden
+3DFF 28 12 (. JR Z,3E13 ; von jeder task
+3E01 DD 7E 1D .~. LD A,(IX+1D)
+3E04 FE 02 .. CP 02
+3E06 30 0B 0. JR NC,3E13 ; priv >= 2 darf alle beschreiben
+3E08 FE 01 .. CP 01
+3E0A DA E6 3C ..< JP C,3CE6 ; priv < 1 darf nur linenumber
+3E0D 7D } LD A,L
+3E0E FE 2A .* CP 2A ; priv = 1 darf nur prio beschreiben
+3E10 C2 E6 3C ..< JP NZ,3CE6
+3E13 EB . EX DE,HL ; writepcb durchfuehren
+3E14 CD A8 2C .., CALL 2CA8 ; value holen
+3E17 EB . EX DE,HL
+3E18 73 s LD (HL),E ; leitblock veraendern
+3E19 2C , INC L
+3E1A 72 r LD (HL),D
+3E1B C3 A7 2A ..* JP 2AA7 ;-------------- status ------------
+3E1E CD C2 3D ..= CALL 3DC2 ; leitblock von task holen
+3E21 FD 7E 06 .~. LD A,(IY+06) ; status feld
+3E24 07 . RLCA
+3E25 07 . RLCA
+3E26 E6 0F .. AND 0F
+3E28 5F _ LD E,A
+3E29 16 00 .. LD D,00
+3E2B C3 03 2D ..- JP 2D03 ;--------------- unblock ----------
+3E2E CD B3 3D ..= CALL 3DB3 ; nur von supervisorsoehnen
+3E31 DC 68 6D .hm CALL C,6D68
+3E34 FD CB 06 4E ...N BIT 1,(IY+06)
+3E38 20 04 . JR NZ,3E3E
+3E3A FD CB 06 86 .... RES 0,(IY+06)
+3E3E C3 A7 2A ..* JP 2AA7 ;--------------- block ------------
+3E41 CD B3 3D ..= CALL 3DB3 ; nur von supervisorsoehnen
+3E44 30 F8 0. JR NC,3E3E
+3E46 FD CB 06 C6 .... SET 0,(IY+06)
+3E4A CD 74 6D .tm CALL 6D74
+3E4D 18 EF .. JR 3E3E ;----------- nextactive ----------
+3E4F CD 64 43 .dC CALL 4364 ; task holen
+3E52 7E ~ LD A,(HL)
+3E53 CD 7E 6D .~m CALL 6D7E
+3E56 F5 . PUSH AF
+3E57 CD 4D 6D .Mm CALL 6D4D
+3E5A F1 . POP AF
+3E5B 77 w LD (HL),A
+3E5C 2C , INC L
+3E5D FD 7E 31 .~1 LD A,(IY+31) ; taskindex holen
+3E60 77 w LD (HL),A
+3E61 18 DB .. JR 3E3E ;------------ halt process --------
+3E63 CD BA 3D ..= CALL 3DBA ; nur vom supervisor
+3E66 FD CB 05 C6 .... SET 0,(IY+05)
+3E6A 18 D2 .. JR 3E3E ;------------- create process -----
+3E6C DD 7E 30 .~0 LD A,(IX+30) ; myself index
+3E6F 32 13 42 2.B LD (4213),A
+3E72 2A CA 41 *.A LD HL,(41CA) ; heaptop
+3E75 22 14 42 ".B LD (4214),HL
+3E78 CD BA 3D ..= CALL 3DBA ; supervisor ?
+3E7B D2 4C 3F .L? JP NC,3F4C ; nicht moeglich
+3E7E E5 . PUSH HL ; unprivilegiertes createprocess
+3E7F D5 . PUSH DE
+3E80 FD 36 00 00 .6.. LD (IY+00),00 ; wstate
+3E84 FD 36 1D FF .6.. LD (IY+1D),FF ; priv
+3E88 CD B8 43 ..C CALL 43B8 ; procadresse holen
+3E8B FD 75 09 .u. LD (IY+09),L ; icount uebertragen
+3E8E FD 74 0A .t. LD (IY+0A),H
+3E91 FD 73 0B .s. LD (IY+0B),E
+3E94 7C | LD A,H
+3E95 C6 10 .. ADD A,10
+3E97 FD 77 0F .w. LD (IY+0F),A ; c8k, und allgemeiner create proc.
+3E9A C3 D9 3E ..> JP 3ED9 ;------- create privileged process-
+3E9D CD 13 43 ..C CALL 4313
+3EA0 7E ~ LD A,(HL)
+3EA1 E6 7F .. AND 7F
+3EA3 32 13 42 2.B LD (4213),A
+3EA6 CD 4D 6D .Mm CALL 6D4D
+3EA9 FD 6E 16 .n. LD L,(IY+16) ; hptop
+3EAC FD 66 17 .f. LD H,(IY+17)
+3EAF 22 14 42 ".B LD (4214),HL
+3EB2 CD BA 3D ..= CALL 3DBA ; supervisor ?
+3EB5 D2 49 3F .I? JP NC,3F49 ; nicht moeglich
+3EB8 E5 . PUSH HL
+3EB9 D5 . PUSH DE
+3EBA FD 36 01 00 .6.. LD (IY+01),00 ; wstate
+3EBE CD A8 2C .., CALL 2CA8 ; priv parameter
+3EC1 FD 75 1D .u. LD (IY+1D),L
+3EC4 CD 07 44 ..D CALL 4407 ; PROCAddresse holen --> DE, HL
+3EC7 1A . LD A,(DE)
+3EC8 FD 77 09 .w. LD (IY+09),A ; icount
+3ECB 1C . INC E
+3ECC 1A . LD A,(DE)
+3ECD FD 77 0A .w. LD (IY+0A),A
+3ED0 C6 10 .. ADD A,10
+3ED2 FD 77 0F .w. LD (IY+0F),A ; c8k
+3ED5 7E ~ LD A,(HL) ; segment
+3ED6 FD 77 0B .w. LD (IY+0B),A
+3ED9 ED 43 D0 41 .C.A LD (41D0),BC ;-allgemeimer Teil von createproc.
+3EDD FD E5 .. PUSH IY ; IY = Leitblockaddresse des
+3EDF D1 . POP DE ; neuen Prozesses
+3EE0 1E 30 .0 LD E,30 ;
+3EE2 E1 . POP HL ; taskindex setzen
+3EE3 ED A0 .. LDI
+3EE5 ED A0 .. LDI
+3EE7 E1 . POP HL ; version
+3EE8 ED A0 .. LDI
+3EEA ED A0 .. LDI
+3EEC 1E 38 .8 LD E,38 ; clock
+3EEE 06 08 .. LD B,08
+3EF0 97 . SUB A ; auf 0.0 setzen
+3EF1 12 . LD (DE),A
+3EF2 1C . INC E
+3EF3 10 FC .. DJNZ 3EF1
+3EF5 FD 77 2A .w* LD (IY+2A),A ; prio auf 0
+3EF8 FD 77 2B .w+ LD (IY+2B),A
+3EFB 3A 13 42 :.B LD A,(4213)
+3EFE 47 G LD B,A
+3EFF 0E 04 .. LD C,04
+3F01 FD 56 30 .V0 LD D,(IY+30) ; myself index
+3F04 DD CB 07 5E ...^ BIT 3,(IX+07) ; war restart ?
+3F08 CC E8 68 ..h CALL Z,68E8 ;
+3F0B DD CB 07 DE .... SET 3,(IX+07) ; kein restart mehr
+3F0F 0E 00 .. LD C,00
+3F11 CD E8 68 ..h CALL 68E8
+3F14 DD CB 07 9E .... RES 3,(IX+07) ; restart
+3F18 2A 14 42 *.B LD HL,(4214) ; heaptop uebertragen
+3F1B FD 75 16 .u. LD (IY+16),L
+3F1E FD 74 17 .t. LD (IY+17),H
+3F21 97 . SUB A
+3F22 FD 77 26 .w& LD (IY+26),A ; channel 0 (break)
+3F25 FD 77 27 .w' LD (IY+27),A
+3F28 FD 77 04 .w. LD (IY+04),A ; millis, comflg
+3F2B FD 77 05 .w. LD (IY+05),A
+3F2E FD 77 07 .w. LD (IY+07),A ; restart war
+3F31 FD 77 14 .w. LD (IY+14),A ls_top
+3F34 FD 77 15 .w. LD (IY+15),A
+3F37 FD 36 06 18 .6.. LD (IY+06),18
+3F3B 7A z LD A,D
+3F3C CD 68 6D .hm CALL 6D68
+3F3F ED 4B D0 41 .K.A LD BC,(41D0)
+3F43 CD 16 42 ..B CALL 4216
+3F46 C3 A7 2A ..* JP 2AA7
+3F49 CD 13 43 ..C CALL 4313 ;---------- kein createprocess ---
+3F4C CD 13 43 ..C CALL 4313
+3F4F C3 A7 2A ..* JP 2AA7 ;--------- erase process ----------
+3F52 CD BA 3D ..= CALL 3DBA
+3F55 DC 8B 68 ..h CALL C,688B
+3F58 C3 A7 2A ..* JP 2AA7 ;------------ existstask ----------
+3F5B CD C2 3D ..= CALL 3DC2 ; leitblock holen
+3F5E D2 84 2E ... JP NC,2E84 ; NC = FALSE
+3F61 FD E5 .. PUSH IY
+3F63 D1 . POP DE
+3F64 1E 32 .2 LD E,32 ; version vergleichen
+3F66 C3 67 2E .g. JP 2E67 ;------------ send ----------------
+3F69 11 0B 42 ..B LD DE,420B
+3F6C DD E5 .. PUSH IX
+3F6E E1 . POP HL
+3F6F 2E 30 .0 LD L,30 ; myself index
+3F71 CD 72 40 .r@ CALL 4072
+3F74 97 . SUB A ; msgds := nilspace
+3F75 DD 77 2E .w. LD (IX+2E),A
+3F78 DD 77 2F .w/ LD (IX+2F),A
+3F7B CD C2 3D ..= CALL 3DC2 ; Leitblock der anderen task holen
+3F7E F5 . PUSH AF
+3F7F C5 . PUSH BC
+3F80 D5 . PUSH DE
+3F81 E5 . PUSH HL
+3F82 01 0F 42 ..B LD BC,420F
+3F85 CD 7A 40 .z@ CALL 407A
+3F88 E1 . POP HL
+3F89 D1 . POP DE
+3F8A C1 . POP BC
+3F8B F1 . POP AF
+3F8C 38 1E 8. JR C,3FAC
+3F8E 1A . LD A,(DE)
+3F8F FE 02 .. CP 02
+3F91 DA 3D 40 .=@ JP C,403D
+3F94 1C . INC E
+3F95 1A . LD A,(DE)
+3F96 DD BE 31 ..1 CP (IX+31) ; station
+3F99 CA 3D 40 .=@ JP Z,403D ; gleiche
+3F9C 3A 07 42 :.B LD A,(4207)
+3F9F 3D = DEC A
+3FA0 FE 7E .~ CP 7E
+3FA2 D2 3D 40 .=@ JP NC,403D
+3FA5 3C < INC A
+3FA6 CD 4D 6D .Mm CALL 6D4D
+3FA9 21 09 42 !.B LD HL,4209
+3FAC FD E5 .. PUSH IY
+3FAE D1 . POP DE
+3FAF 1E 32 .2 LD E,32
+3FB1 CD 6A 40 .j@ CALL 406A
+3FB4 C2 3D 40 .=@ JP NZ,403D
+3FB7 FD 7E 06 .~. LD A,(IY+06)
+3FBA CB 87 .. RES 0,A
+3FBC FE BC .. CP BC
+3FBE C2 41 40 .A@ JP NZ,4041
+3FC1 1E 34 .4 LD E,34 ; fromid
+3FC3 1A . LD A,(DE)
+3FC4 B7 . OR A
+3FC5 28 09 (. JR Z,3FD0
+3FC7 21 0B 42 !.B LD HL,420B
+3FCA CD 66 40 .f@ CALL 4066
+3FCD C2 41 40 .A@ JP NZ,4041
+3FD0 CD A8 2C .., CALL 2CA8
+3FD3 E5 . PUSH HL
+3FD4 CD 64 43 .dC CALL 4364
+3FD7 5E ^ LD E,(HL)
+3FD8 2C , INC L
+3FD9 56 V LD D,(HL)
+3FDA EB . EX DE,HL
+3FDB CD 70 38 .p8 CALL 3870
+3FDE DA 61 40 .a@ JP C,4061
+3FE1 E5 . PUSH HL
+3FE2 CD 64 43 .dC CALL 4364
+3FE5 97 . SUB A
+3FE6 77 w LD (HL),A
+3FE7 2C , INC L
+3FE8 77 w LD (HL),A
+3FE9 E1 . POP HL
+3FEA EB . EX DE,HL
+3FEB C5 . PUSH BC
+3FEC DD 46 30 .F0 LD B,(IX+30)
+3FEF 4B K LD C,E
+3FF0 FD 56 30 .V0 LD D,(IY+30)
+3FF3 CD E5 68 ..h CALL 68E5
+3FF6 C1 . POP BC
+3FF7 36 FF 6. LD (HL),FF
+3FF9 FD 73 2E .s. LD (IY+2E),E
+3FFC FD 7E 30 .~0 LD A,(IY+30)
+3FFF FD 77 2F .w/ LD (IY+2F),A
+4002 21 0F 42 !.B LD HL,420F
+4005 DD E5 .. PUSH IX
+4007 D1 . POP DE
+4008 1E 34 .4 LD E,34
+400A CD 72 40 .r@ CALL 4072
+400D 21 0B 42 !.B LD HL,420B
+4010 FD E5 .. PUSH IY
+4012 D1 . POP DE
+4013 1E 34 .4 LD E,34
+4015 CD 72 40 .r@ CALL 4072
+4018 FD CB 0B 7E ...~ BIT 7,(IY+0B)
+401C 20 08 . JR NZ,4026
+401E 21 0F 42 !.B LD HL,420F
+4021 1E 22 ." LD E,22
+4023 CD 72 40 .r@ CALL 4072
+4026 EB . EX DE,HL
+4027 D1 . POP DE
+4028 2E 2C ., LD L,2C
+402A 73 s LD (HL),E
+402B 2C , INC L
+402C 72 r LD (HL),D
+402D 2E 06 .. LD L,06
+402F 36 00 6. LD (HL),00
+4031 2E 07 .. LD L,07
+4033 CB DE .. SET 3,(HL) ; kein restart
+4035 2E 30 .0 LD L,30
+4037 7E ~ LD A,(HL)
+4038 CD 68 6D .hm CALL 6D68
+403B 97 . SUB A
+403C C9 . RET
+403D 1E FF .. LD E,FF
+403F 18 11 .. JR 4052
+4041 3A 10 42 :.B LD A,(4210)
+4044 DD BE 31 ..1 CP (IX+31)
+4047 28 07 (. JR Z,4050
+4049 3A 07 42 :.B LD A,(4207)
+404C B7 . OR A
+404D C2 26 29 .&) JP NZ,2926
+4050 1E FE .. LD E,FE
+4052 CD 13 43 ..C CALL 4313
+4055 CD 13 43 ..C CALL 4313
+4058 CD 64 43 .dC CALL 4364
+405B 7B { LD A,E
+405C 77 w LD (HL),A
+405D 2C , INC L
+405E 36 FF 6. LD (HL),FF
+4060 C9 . RET
+4061 E1 . POP HL
+4062 1E FD .. LD E,FD
+4064 18 F2 .. JR 4058
+4066 CD 6A 40 .j@ CALL 406A
+4069 C0 . RET NZ
+406A 1A . LD A,(DE)
+406B BE . CP (HL)
+406C C0 . RET NZ
+406D 23 # INC HL
+406E 13 . INC DE
+406F 1A . LD A,(DE)
+4070 BE . CP (HL)
+4071 C9 . RET
+4072 C5 . PUSH BC
+4073 01 04 00 ... LD BC,0004
+4076 ED B0 .. LDIR
+4078 C1 . POP BC
+4079 C9 . RET
+407A 1A . LD A,(DE)
+407B 02 . LD (BC),A
+407C 1C . INC E
+407D 03 . INC BC
+407E 1A . LD A,(DE)
+407F 02 . LD (BC),A
+4080 03 . INC BC
+4081 7E ~ LD A,(HL)
+4082 02 . LD (BC),A
+4083 2C , INC L
+4084 03 . INC BC
+4085 7E ~ LD A,(HL)
+4086 02 . LD (BC),A
+4087 C9 . RET
+4088 CD 64 43 .dC CALL 4364
+408B 3A 1D 6E :.n LD A,(6E1D)
+408E 57 W LD D,A
+408F 1A . LD A,(DE)
+4090 77 w LD (HL),A
+4091 2C , INC L
+4092 1C . INC E
+4093 1A . LD A,(DE)
+4094 77 w LD (HL),A
+4095 C9 . RET ;----------- sendfromto -----------
+4096 DD 7E 1D .~. LD A,(IX+1D)
+4099 FE 01 .. CP 01
+409B DA E6 3C ..< JP C,3CE6 ; nur supervisorsoehne
+409E CD 07 44 ..D CALL 4407
+40A1 1C . INC E
+40A2 1A . LD A,(DE)
+40A3 1D . DEC E
+40A4 DD BE 31 ..1 CP (IX+31)
+40A7 28 0E (. JR Z,40B7
+40A9 C5 . PUSH BC
+40AA 01 0B 42 ..B LD BC,420B ; andere station
+40AD CD 7A 40 .z@ CALL 407A
+40B0 C1 . POP BC
+40B1 CD 74 3F .t? CALL 3F74
+40B4 C3 A7 2A ..* JP 2AA7 ;------------- send ---------------
+40B7 CD 69 3F .i? CALL 3F69
+40BA C3 A7 2A ..* JP 2AA7 ;------------ wait ----------------
+40BD DD CB 07 5E ...^ BIT 3,(IX+07)
+40C1 20 1E . JR NZ,40E1
+40C3 CD 29 4C .)L CALL 4C29
+40C6 97 . SUB A
+40C7 DD 77 34 .w4 LD (IX+34),A
+40CA DD 77 35 .w5 LD (IX+35),A
+40CD DD 77 36 .w6 LD (IX+36),A
+40D0 DD 77 37 .w7 LD (IX+37),A
+40D3 DD 36 06 BC .6.. LD (IX+06),BC ; wait zustand
+40D7 3A 1A 6E :.n LD A,(6E1A)
+40DA 3D = DEC A
+40DB CC 38 4C .8L CALL Z,4C38
+40DE C3 26 29 .&) JP 2926
+40E1 1E 2E .. LD E,2E
+40E3 CD 88 40 ..@ CALL 4088
+40E6 1E 2C ., LD E,2C ; 4 Bytes auf Stack
+40E8 CD 88 40 ..@ CALL 4088
+40EB 1E 34 .4 LD E,34 ; 4 Bytes auf stack
+40ED D5 . PUSH DE
+40EE CD 39 44 .9D CALL 4439
+40F1 E3 . EX (SP),HL
+40F2 C5 . PUSH BC
+40F3 ED A0 .. LDI
+40F5 ED A0 .. LDI
+40F7 C1 . POP BC
+40F8 D1 . POP DE
+40F9 C5 . PUSH BC
+40FA ED A0 .. LDI
+40FC ED A0 .. LDI
+40FE C1 . POP BC
+40FF DD CB 07 9E .... RES 3,(IX+07) ; restart
+4103 C3 A7 2A ..* JP 2AA7 ;--------------- call -------------
+4106 DD CB 07 5E ...^ BIT 3,(IX+07)
+410A 20 2E . JR NZ,413A
+410C CD 69 3F .i? CALL 3F69
+410F B7 . OR A
+4110 28 14 (. JR Z,4126
+4112 FE FE .. CP FE
+4114 C2 A7 2A ..* JP NZ,2AA7
+4117 FD E5 .. PUSH IY
+4119 E1 . POP HL
+411A DD E5 .. PUSH IX
+411C D1 . POP DE
+411D B7 . OR A
+411E ED 52 .R SBC HL,DE
+4120 CA A7 2A ..* JP Z,2AA7
+4123 C3 26 29 .&) JP 2926
+4126 3E BC >. LD A,BC ; wait
+4128 C3 23 29 .#) JP 2923 ;-------------- pingpong ----------
+412B DD CB 07 5E ...^ BIT 3,(IX+07)
+412F 20 09 . JR NZ,413A
+4131 CD 69 3F .i? CALL 3F69
+4134 B7 . OR A
+4135 28 EF (. JR Z,4126
+4137 C3 A7 2A ..* JP 2AA7
+413A CD 43 44 .CD CALL 4443
+413D CD 43 44 .CD CALL 4443
+4140 1E 2E .. LD E,2E
+4142 CD 88 40 ..@ CALL 4088
+4145 1E 2C ., LD E,2C
+4147 CD 88 40 ..@ CALL 4088
+414A DD CB 07 9E .... RES 3,(IX+07)
+414E C3 A7 2A ..* JP 2AA7 ;--------- define collector -------
+4151 DD 7E 1D .~. LD A,(IX+1D) ; nur von supervisorsoehnen
+4154 FE 01 .. CP 01
+4156 DA E6 3C ..< JP C,3CE6
+4159 CD 07 44 ..D CALL 4407
+415C C5 . PUSH BC
+415D 01 07 42 ..B LD BC,4207
+4160 CD 7A 40 .z@ CALL 407A
+4163 C1 . POP BC
+4164 C3 A7 2A ..* JP 2AA7 ;------------- session ------------
+4167 ED 5B 17 6B .[.k LD DE,(6B17)
+416B C3 03 2D ..- JP 2D03 ;----------------- id -------------
+416E CD 13 43 ..C CALL 4313
+4171 7E ~ LD A,(HL)
+4172 E6 07 .. AND 07
+4174 21 8F 82 !.. LD HL,828F
+4177 5F _ LD E,A
+4178 D6 04 .. SUB A,04
+417A 38 04 8. JR C,4180
+417C 21 6F 28 !o( LD HL,286F
+417F 5F _ LD E,A
+4180 16 00 .. LD D,00
+4182 19 . ADD HL,DE
+4183 19 . ADD HL,DE
+4184 C3 00 2D ..- JP 2D00 ;- infopassword ("alt","neu",ok)
+4187 11 F3 41 ..A LD DE,41F3
+418A CD A9 41 ..A CALL 41A9 ; Wort --> 41F3 holen
+418D 11 FD 41 ..A LD DE,41FD
+4190 CD A9 41 ..A CALL 41A9 ; Wort --> 41FD holen
+4193 CD 64 43 .dC CALL 4364 ; REF-addr holen
+4196 C5 . PUSH BC
+4197 E5 . PUSH HL
+4198 21 F3 41 !.A LD HL,41F3
+419B 11 FD 41 ..A LD DE,41FD
+419E CD 10 6F ..o CALL 6F10 ; 10 bytes invertieren und kopieren
+41A1 E1 . POP HL
+41A2 71 q LD (HL),C ; enthaelt 0, wenn ok
+41A3 2C , INC L
+41A4 70 p LD (HL),B
+41A5 C1 . POP BC
+41A6 C3 A7 2A ..* JP 2AA7
+41A9 D5 . PUSH DE
+41AA CD 8D 46 ..F CALL 468D ; Word --> HL holen
+41AD D1 . POP DE
+41AE C5 . PUSH BC
+41AF 06 0A .. LD B,0A ; 10 mal
+41B1 7E ~ LD A,(HL)
+41B2 12 . LD (DE),A
+41B3 13 . INC DE
+41B4 D5 . PUSH DE
+41B5 11 01 00 ... LD DE,0001
+41B8 CD 0D 45 ..E CALL 450D ; HL INCR 1
+41BB D1 . POP DE
+41BC 10 F3 .. DJNZ 41B1
+41BE C1 . POP BC
+41BF C9 . RET ;========= EXTERNALS ENDE ========
+41C0 20 52 R JR NZ,4214 ; " REG"
+41C2 45 E LD B,L
+41C3 47 G LD B,A
+41C4 00 . NOP
+41C5 00 . NOP
+41C6 00 . NOP
+41C7 00 . NOP
+41C8 00 . NOP
+41C9 00 . NOP
+41CA 00 . NOP
+41CB 00 . NOP
+41CC 00 . NOP
+41CD 00 . NOP
+41CE 00 . NOP
+41CF 00 . NOP
+41D0 00 . NOP
+41D1 00 . NOP
+41D2 00 . NOP
+41D3 00 . NOP
+41D4 00 . NOP
+41D5 00 . NOP
+41D6 00 . NOP
+41D7 00 . NOP
+41D8 00 . NOP
+41D9 00 . NOP
+41DA 00 . NOP
+41DB 00 . NOP
+41DC 00 . NOP
+41DD 01 00 00 ... LD BC,0000
+41E0 00 . NOP
+41E1 00 . NOP
+41E2 00 . NOP
+41E3 00 . NOP
+41E4 00 . NOP
+41E5 00 . NOP
+41E6 00 . NOP
+41E7 02 . LD (BC),A
+41E8 20 20 JR NZ,420A
+41EA 20 20 JR NZ,420C
+41EC 20 08 . JR NZ,41F6
+41EE 08 . EX AF,AF'
+41EF 08 . EX AF,AF'
+41F0 08 . EX AF,AF'
+41F1 08 . EX AF,AF'
+41F2 08 . EX AF,AF'
+41F3 00 . NOP
+41F4 00 . NOP
+41F5 00 . NOP
+41F6 00 . NOP
+41F7 00 . NOP
+41F8 00 . NOP
+41F9 00 . NOP
+41FA 00 . NOP
+41FB 00 . NOP
+41FC 00 . NOP
+41FD 00 . NOP
+41FE 00 . NOP
+41FF 00 . NOP
+4200 00 . NOP
+4201 00 . NOP
+4202 00 . NOP
+4203 00 . NOP
+4204 00 . NOP
+4205 00 . NOP
+4206 00 . NOP
+4207 00 . NOP
+4208 00 . NOP
+4209 00 . NOP
+420A 00 . NOP
+420B 00 . NOP
+420C 00 . NOP
+420D 00 . NOP
+420E 00 . NOP
+420F 00 . NOP
+4210 00 . NOP
+4211 00 . NOP
+4212 00 . NOP
+4213 00 . NOP
+4214 00 . NOP
+4215 00 . NOP
+4216 97 . SUB A
+4217 32 00 19 2.. LD (1900),A
+421A 32 00 19 2.. LD (1900),A
+421D 32 00 19 2.. LD (1900),A
+4220 32 00 19 2.. LD (1900),A
+4223 32 00 19 2.. LD (1900),A
+4226 32 00 19 2.. LD (1900),A
+4229 32 00 19 2.. LD (1900),A
+422C 32 00 19 2.. LD (1900),A
+422F 32 00 19 2.. LD (1900),A
+4232 32 00 19 2.. LD (1900),A
+4235 32 00 19 2.. LD (1900),A
+4238 32 00 19 2.. LD (1900),A
+423B 32 00 19 2.. LD (1900),A
+423E 32 00 19 2.. LD (1900),A
+4241 32 00 19 2.. LD (1900),A
+4244 32 00 19 2.. LD (1900),A
+4247 32 00 19 2.. LD (1900),A
+424A 32 00 19 2.. LD (1900),A
+424D 32 00 19 2.. LD (1900),A
+4250 32 00 19 2.. LD (1900),A
+4253 32 00 19 2.. LD (1900),A
+4256 32 00 19 2.. LD (1900),A
+4259 32 00 19 2.. LD (1900),A
+425C 32 00 19 2.. LD (1900),A
+425F 32 00 19 2.. LD (1900),A
+4262 B7 . OR A
+4263 21 00 00 !.. LD HL,0000
+4266 22 75 46 "uF LD (4675),HL
+4269 21 18 42 !.B LD HL,4218
+426C 22 72 42 "rB LD (4272),HL
+426F C9 . RET
+4270 EB . EX DE,HL
+4271 22 18 42 ".B LD (4218),HL
+4274 2A 72 42 *rB LD HL,(4272)
+4277 23 # INC HL
+4278 23 # INC HL
+4279 CB 7E .~ BIT 7,(HL)
+427B 23 # INC HL
+427C 22 72 42 "rB LD (4272),HL
+427F EB . EX DE,HL
+4280 C8 . RET Z
+4281 CD 16 42 ..B CALL 4216
+4284 C3 26 29 .&) JP 2926
+4287 08 . EX AF,AF'
+4288 F6 01 .. OR 01
+428A 08 . EX AF,AF'
+428B CB 40 .@ BIT 0,B
+428D 20 06 . JR NZ,4295
+428F 04 . INC B
+4290 DD CB 09 FE .... SET 7,(IX+09)
+4294 C9 . RET
+4295 F5 . PUSH AF
+4296 D5 . PUSH DE
+4297 E5 . PUSH HL
+4298 DD CB 09 BE .... RES 7,(IX+09)
+429C DD 34 .4 INC (IX+0A)
+429E 0A . LD A,(BC)
+429F CD AB 42 ..B CALL 42AB
+42A2 87 . ADD A
+42A3 47 G LD B,A
+42A4 E1 . POP HL
+42A5 D1 . POP DE
+42A6 F1 . POP AF
+42A7 C9 . RET
+42A8 97 . SUB A
+42A9 18 DF .. JR 428A
+42AB DD 66 0A .f. LD H,(IX+0A)
+42AE DD 7E 0B .~. LD A,(IX+0B)
+42B1 E6 03 .. AND 03
+42B3 5F _ LD E,A
+42B4 FE 02 .. CP 02
+42B6 20 07 . JR NZ,42BF
+42B8 CD 48 5F .H_ CALL 5F48 ; Segment 2 ist Ausnahme
+42BB C0 . RET NZ
+42BC DD 66 0A .f. LD H,(IX+0A)
+42BF 7B { LD A,E
+42C0 C6 19 .. ADD A,19
+42C2 57 W LD D,A
+42C3 5C \ LD E,H
+42C4 1A . LD A,(DE)
+42C5 B7 . OR A
+42C6 C0 . RET NZ
+42C7 D5 . PUSH DE
+42C8 7A z LD A,D
+42C9 CD 70 42 .pB CALL 4270
+42CC D6 19 .. SUB A,19
+42CE 5F _ LD E,A
+42CF 16 04 .. LD D,04
+42D1 FE 02 .. CP 02
+42D3 20 05 . JR NZ,42DA
+42D5 CD 55 65 .Ue CALL 6555
+42D8 18 03 .. JR 42DD
+42DA CD 5C 65 .\e CALL 655C
+42DD 0F . RRCA
+42DE E1 . POP HL
+42DF 77 w LD (HL),A
+42E0 C9 . RET
+42E1 CB 1C .. RR H
+42E3 CB 1D .. RR L
+42E5 D5 . PUSH DE
+42E6 63 c LD H,E
+42E7 7A z LD A,D
+42E8 CD 70 42 .pB CALL 4270
+42EB D6 19 .. SUB A,19
+42ED 5F _ LD E,A
+42EE 16 04 .. LD D,04
+42F0 CD 5C 65 .\e CALL 655C
+42F3 D1 . POP DE
+42F4 0F . RRCA
+42F5 12 . LD (DE),A
+42F6 67 g LD H,A
+42F7 29 ) ADD HL,HL
+42F8 C9 . RET
+42F9 CB 1C .. RR H
+42FB CB 1D .. RR L
+42FD D5 . PUSH DE
+42FE 63 c LD H,E
+42FF 7A z LD A,D
+4300 CD 70 42 .pB CALL 4270
+4303 D6 19 .. SUB A,19
+4305 5F _ LD E,A
+4306 16 04 .. LD D,04
+4308 CD 2C 66 .,f CALL 662C
+430B D1 . POP DE
+430C 0F . RRCA
+430D 67 g LD H,A
+430E F6 80 .. OR 80
+4310 12 . LD (DE),A
+4311 29 ) ADD HL,HL
+4312 C9 . RET ;---------------------------------
+4313 0A . LD A,(BC) ; Naechstes Codewort holen --> HL
+4314 6F o LD L,A
+4315 0C . INC C
+4316 0A . LD A,(BC)
+4317 0C . INC C
+4318 CC 87 42 ..B CALL Z,4287
+431B B7 . OR A
+431C FA 32 43 .2C JP M,4332
+431F D9 . EXX
+4320 81 . ADD C
+4321 5F _ LD E,A
+4322 1A . LD A,(DE)
+4323 D9 . EXX
+4324 67 g LD H,A
+4325 29 ) ADD HL,HL
+4326 B7 . OR A
+4327 C0 . RET NZ
+4328 D5 . PUSH DE
+4329 D9 . EXX
+432A D5 . PUSH DE
+432B D9 . EXX
+432C D1 . POP DE
+432D CD E1 42 ..B CALL 42E1
+4330 D1 . POP DE
+4331 C9 . RET
+4332 D5 . PUSH DE
+4333 ED 5B C4 41 .[.A LD DE,(41C4)
+4337 E6 7F .. AND 7F
+4339 1F . RRA
+433A CB 1D .. RR L
+433C 67 g LD H,A
+433D 38 0C 8. JR C,434B
+433F 19 . ADD HL,DE
+4340 5C \ LD E,H
+4341 16 1A .. LD D,1A
+4343 1A . LD A,(DE)
+4344 67 g LD H,A
+4345 29 ) ADD HL,HL
+4346 B7 . OR A
+4347 28 E4 (. JR Z,432D
+4349 D1 . POP DE
+434A C9 . RET
+434B CD DE 43 ..C CALL 43DE
+434E 20 0C . JR NZ,435C
+4350 C6 19 .. ADD A,19
+4352 57 W LD D,A
+4353 5C \ LD E,H
+4354 1A . LD A,(DE)
+4355 67 g LD H,A
+4356 29 ) ADD HL,HL
+4357 B7 . OR A
+4358 28 D3 (. JR Z,432D
+435A D1 . POP DE
+435B C9 . RET
+435C CD 5C 65 .\e CALL 655C
+435F 0F . RRCA
+4360 67 g LD H,A
+4361 29 ) ADD HL,HL
+4362 D1 . POP DE
+4363 C9 . RET
+4364 0A . LD A,(BC)
+4365 6F o LD L,A
+4366 0C . INC C
+4367 0A . LD A,(BC)
+4368 0C . INC C
+4369 CC 87 42 ..B CALL Z,4287
+436C B7 . OR A
+436D FA 82 43 ..C JP M,4382
+4370 D9 . EXX
+4371 81 . ADD C
+4372 5F _ LD E,A
+4373 1A . LD A,(DE)
+4374 D9 . EXX
+4375 67 g LD H,A
+4376 29 ) ADD HL,HL
+4377 D8 . RET C
+4378 D5 . PUSH DE
+4379 D9 . EXX
+437A D5 . PUSH DE
+437B D9 . EXX
+437C D1 . POP DE
+437D CD F9 42 ..B CALL 42F9
+4380 D1 . POP DE
+4381 C9 . RET
+4382 D5 . PUSH DE
+4383 ED 5B C4 41 .[.A LD DE,(41C4)
+4387 E6 7F .. AND 7F
+4389 1F . RRA
+438A CB 1D .. RR L
+438C 67 g LD H,A
+438D 38 10 8. JR C,439F
+438F 19 . ADD HL,DE
+4390 5C \ LD E,H
+4391 16 1A .. LD D,1A
+4393 1A . LD A,(DE)
+4394 67 g LD H,A
+4395 29 ) ADD HL,HL
+4396 7B { LD A,E
+4397 D1 . POP DE
+4398 D8 . RET C
+4399 D5 . PUSH DE
+439A 5F _ LD E,A
+439B 16 1A .. LD D,1A
+439D 18 DE .. JR 437D
+439F CD DE 43 ..C CALL 43DE
+43A2 20 0C . JR NZ,43B0
+43A4 C6 19 .. ADD A,19
+43A6 57 W LD D,A
+43A7 5C \ LD E,H
+43A8 1A . LD A,(DE)
+43A9 67 g LD H,A
+43AA 29 ) ADD HL,HL
+43AB D4 F9 42 ..B CALL NC,42F9
+43AE D1 . POP DE
+43AF C9 . RET
+43B0 CD 2C 66 .,f CALL 662C
+43B3 0F . RRCA
+43B4 67 g LD H,A
+43B5 29 ) ADD HL,HL
+43B6 D1 . POP DE
+43B7 C9 . RET ;------------ REF-Addr vom Stack
+43B8 0A . LD A,(BC) ; --> HL, DE
+43B9 6F o LD L,A
+43BA 0C . INC C
+43BB 0A . LD A,(BC)
+43BC 0C . INC C
+43BD CC 87 42 ..B CALL Z,4287
+43C0 B7 . OR A
+43C1 FA CC 43 ..C JP M,43CC
+43C4 D9 . EXX
+43C5 81 . ADD C
+43C6 D9 . EXX
+43C7 67 g LD H,A
+43C8 97 . SUB A
+43C9 5F _ LD E,A
+43CA 57 W LD D,A
+43CB C9 . RET ;----------------------------------
+43CC ED 5B C4 41 .[.A LD DE,(41C4)
+43D0 E6 7F .. AND 7F
+43D2 1F . RRA
+43D3 CB 1D .. RR L
+43D5 67 g LD H,A
+43D6 38 06 8. JR C,43DE
+43D8 19 . ADD HL,DE
+43D9 97 . SUB A
+43DA 11 01 00 ... LD DE,0001
+43DD C9 . RET
+43DE 19 . ADD HL,DE
+43DF 16 1A .. LD D,1A
+43E1 5C \ LD E,H
+43E2 1A . LD A,(DE)
+43E3 67 g LD H,A
+43E4 29 ) ADD HL,HL
+43E5 B7 . OR A
+43E6 CC E1 42 ..B CALL Z,42E1
+43E9 5E ^ LD E,(HL)
+43EA 2C , INC L
+43EB 56 V LD D,(HL)
+43EC 2C , INC L
+43ED 7E ~ LD A,(HL)
+43EE 2C , INC L
+43EF 66 f LD H,(HL)
+43F0 EB . EX DE,HL
+43F1 14 . INC D
+43F2 15 . DEC D
+43F3 20 07 . JR NZ,43FC
+43F5 FE 06 .. CP 06
+43F7 30 03 0. JR NC,43FC
+43F9 5F _ LD E,A
+43FA BF . CP A
+43FB C9 . RET
+43FC E6 07 .. AND 07
+43FE 5F _ LD E,A
+43FF 7A z LD A,D
+4400 FE 04 .. CP 04
+4402 7B { LD A,E
+4403 D0 . RET NC
+4404 16 05 .. LD D,05
+4406 C9 . RET ;----------------------------------
+4407 0A . LD A,(BC)
+4408 6F o LD L,A
+4409 0C . INC C
+440A 0A . LD A,(BC)
+440B CD 1B 43 ..C CALL 431B
+440E 54 T LD D,H
+440F 5D ] LD E,L
+4410 2C , INC L
+4411 2C , INC L
+4412 28 05 (. JR Z,4419
+4414 0C . INC C
+4415 C0 . RET NZ
+4416 C3 87 42 ..B JP 4287
+4419 0D . DEC C
+441A FD 21 85 46 .!.F LD IY,4685
+441E FD CB 00 C6 .... SET 0,(IY+00)
+4422 CD B8 43 ..C CALL 43B8
+4425 7D } LD A,L
+4426 32 86 46 2.F LD (4686),A
+4429 ED 53 87 46 .S.F LD (4687),DE
+442D 7B { LD A,E
+442E CD CA 44 ..D CALL 44CA
+4431 54 T LD D,H
+4432 5D ] LD E,L
+4433 2C , INC L
+4434 2C , INC L
+4435 CC 1B 45 ..E CALL Z,451B
+4438 C9 . RET
+4439 FD 21 85 46 .!.F LD IY,4685
+443D FD CB 00 86 .... RES 0,(IY+00)
+4441 18 DF .. JR 4422 ;-------- Branchaddresse holen -----
+4443 0A . LD A,(BC)
+4444 5F _ LD E,A
+4445 0C . INC C
+4446 0A . LD A,(BC)
+4447 57 W LD D,A
+4448 0C . INC C
+4449 C0 . RET NZ
+444A C3 87 42 ..B JP 4287
+444D FE 06 .. CP 06
+444F 30 0C 0. JR NC,445D
+4451 C6 19 .. ADD A,19
+4453 57 W LD D,A
+4454 5C \ LD E,H
+4455 1A . LD A,(DE)
+4456 67 g LD H,A
+4457 29 ) ADD HL,HL
+4458 B7 . OR A
+4459 C0 . RET NZ
+445A C3 E1 42 ..B JP 42E1
+445D ED 5B 75 46 .[uF LD DE,(4675)
+4461 7C | LD A,H
+4462 BA . CP D
+4463 20 07 . JR NZ,446C
+4465 7B { LD A,E
+4466 B7 . OR A
+4467 28 03 (. JR Z,446C
+4469 63 c LD H,E
+446A 29 ) ADD HL,HL
+446B C9 . RET
+446C 16 04 .. LD D,04
+446E 1E 07 .. LD E,07
+4470 CD 5C 65 .\e CALL 655C
+4473 0F . RRCA
+4474 5F _ LD E,A
+4475 54 T LD D,H
+4476 ED 53 75 46 .SuF LD (4675),DE
+447A 63 c LD H,E
+447B 29 ) ADD HL,HL
+447C C9 . RET
+447D FE 06 .. CP 06
+447F 30 0B 0. JR NC,448C
+4481 C6 19 .. ADD A,19
+4483 57 W LD D,A
+4484 5C \ LD E,H
+4485 1A . LD A,(DE)
+4486 67 g LD H,A
+4487 29 ) ADD HL,HL
+4488 D8 . RET C
+4489 C3 F9 42 ..B JP 42F9
+448C ED 5B 75 46 .[uF LD DE,(4675)
+4490 7C | LD A,H
+4491 BA . CP D
+4492 20 07 . JR NZ,449B
+4494 7B { LD A,E
+4495 87 . ADD A
+4496 30 03 0. JR NC,449B
+4498 63 c LD H,E
+4499 29 ) ADD HL,HL
+449A C9 . RET
+449B 16 04 .. LD D,04
+449D 1E 07 .. LD E,07
+449F CD 2C 66 .,f CALL 662C
+44A2 0F . RRCA
+44A3 F6 80 .. OR 80
+44A5 18 CD .. JR 4474
+44A7 CD 13 43 ..C CALL 4313
+44AA 7D } LD A,L
+44AB E6 F8 .. AND F8
+44AD 6F o LD L,A
+44AE C9 . RET
+44AF CD 1B 43 ..C CALL 431B
+44B2 7D } LD A,L
+44B3 E6 F8 .. AND F8
+44B5 6F o LD L,A
+44B6 C9 . RET
+44B7 CD 64 43 .dC CALL 4364
+44BA 7D } LD A,L
+44BB E6 F8 .. AND F8
+44BD 6F o LD L,A
+44BE C9 . RET
+44BF 5D ] LD E,L
+44C0 7D } LD A,L
+44C1 E6 F0 .. AND F0
+44C3 6F o LD L,A
+44C4 AB . XOR E
+44C5 1F . RRA
+44C6 CB 1C .. RR H
+44C8 CB 1D .. RR L
+44CA FD 74 01 .t. LD (IY+01),H
+44CD FD 77 02 .w. LD (IY+02),A
+44D0 5F _ LD E,A
+44D1 FD 7E 03 .~. LD A,(IY+03)
+44D4 B7 . OR A
+44D5 20 15 . JR NZ,44EC ; Fremdatenraum
+44D7 7B { LD A,E ; DS4 = 0
+44D8 C6 19 .. ADD A,19
+44DA 57 W LD D,A
+44DB 5C \ LD E,H
+44DC 1A . LD A,(DE) ; DE=1900+256*segment+AddrDIV256
+44DD 67 g LD H,A
+44DE 29 ) ADD HL,HL ; In Byteaddresse wandeln
+44DF D8 . RET C
+44E0 FD CB 00 46 ...F BIT 0,(IY+00)
+44E4 CA F9 42 ..B JP Z,42F9
+44E7 B7 . OR A
+44E8 C0 . RET NZ
+44E9 C3 E1 42 ..B JP 42E1
+44EC 57 W LD D,A
+44ED FD CB 00 46 ...F BIT 0,(IY+00)
+44F1 20 05 . JR NZ,44F8
+44F3 CD 2C 66 .,f CALL 662C
+44F6 18 03 .. JR 44FB
+44F8 CD 5C 65 .\e CALL 655C
+44FB 0F . RRCA
+44FC 67 g LD H,A
+44FD 29 ) ADD HL,HL
+44FE C9 . RET
+44FF CB 3F .? SLR A
+4501 CB 1C .. RR H
+4503 CB 1D .. RR L
+4505 F5 . PUSH AF
+4506 CD CA 44 ..D CALL 44CA
+4509 F1 . POP AF
+450A D0 . RET NC
+450B 2C , INC L
+450C C9 . RET ;---------------------------------
+450D 7D } LD A,L
+450E 83 . ADD E
+450F 3E 00 >. LD A,00
+4511 8A . ADC D
+4512 20 02 . JR NZ,4516
+4514 19 . ADD HL,DE
+4515 C9 . RET
+4516 3D = DEC A
+4517 20 0D . JR NZ,4526
+4519 19 . ADD HL,DE
+451A 25 % DEC H
+451B 24 $ INC H
+451C CB 44 .D BIT 0,H
+451E C0 . RET NZ
+451F 25 % DEC H
+4520 D5 . PUSH DE
+4521 11 00 01 ... LD DE,0100
+4524 18 01 .. JR 4527
+4526 D5 . PUSH DE
+4527 97 . SUB A
+4528 CB 1C .. RR H
+452A FD 66 01 .f. LD H,(IY+01)
+452D CB 14 .. RL H
+452F 17 . RLA
+4530 19 . ADD HL,DE
+4531 CE 00 .. ADC A,00
+4533 1F . RRA
+4534 CB 1C .. RR H
+4536 CB 1D .. RR L
+4538 F5 . PUSH AF
+4539 FD 86 02 ... ADD (IY+02)
+453C CD CA 44 ..D CALL 44CA
+453F F1 . POP AF
+4540 D1 . POP DE
+4541 D0 . RET NC
+4542 2C , INC L
+4543 C9 . RET
+4544 D5 . PUSH DE
+4545 11 00 00 ... LD DE,0000
+4548 CD 78 45 .xE CALL 4578
+454B D1 . POP DE
+454C C9 . RET
+454D 2A 79 46 *yF LD HL,(4679)
+4550 DD 75 0C .u. LD (IX+0C),L
+4553 DD 74 0D .t. LD (IX+0D),H
+4556 DD CB 07 AE .... RES 5,(IX+07)
+455A DD CB 07 F6 .... SET 6,(IX+07)
+455E C9 . RET
+455F 69 i LD L,C
+4560 60 ` LD H,B
+4561 DD 4E 0C .N. LD C,(IX+0C)
+4564 DD 46 0D .F. LD B,(IX+0D)
+4567 B7 . OR A
+4568 ED 42 .B SBC HL,BC
+456A 22 7B 46 "{F LD (467B),HL
+456D ED 43 79 46 .CyF LD (4679),BC
+4571 CD C1 45 ..E CALL 45C1
+4574 DD CB 07 B6 .... RES 6,(IX+07)
+4578 22 7D 46 "}F LD (467D),HL
+457B ED 53 7F 46 .S.F LD (467F),DE
+457F DD CB 07 76 ...v BIT 6,(IX+07)
+4583 20 DA . JR NZ,455F
+4585 7B { LD A,E
+4586 BD . CP L
+4587 30 01 0. JR NC,458A
+4589 7D } LD A,L
+458A ED 44 .D NEG
+458C 28 0F (. JR Z,459D
+458E 04 . INC B
+458F 05 . DEC B
+4590 20 12 . JR NZ,45A4
+4592 B9 . CP C
+4593 38 0F 8. JR C,45A4
+4595 78 x LD A,B
+4596 B1 . OR C
+4597 C9 . RET
+4598 2A 7D 46 *}F LD HL,(467D)
+459B 18 F8 .. JR 4595
+459D 04 . INC B
+459E 05 . DEC B
+459F 28 F4 (. JR Z,4595
+45A1 37 7 SCF
+45A2 18 01 .. JR 45A5
+45A4 B7 . OR A
+45A5 69 i LD L,C
+45A6 60 ` LD H,B
+45A7 4F O LD C,A
+45A8 3E 00 >. LD A,00
+45AA 8F . ADC A
+45AB 47 G LD B,A
+45AC B7 . OR A
+45AD ED 42 .B SBC HL,BC
+45AF 28 E7 (. JR Z,4598
+45B1 DD CB 07 EE .... SET 5,(IX+07)
+45B5 ED 43 7B 46 .C{F LD (467B),BC
+45B9 22 79 46 "yF LD (4679),HL
+45BC 2A 7D 46 *}F LD HL,(467D)
+45BF 37 7 SCF
+45C0 C9 . RET
+45C1 2A 7F 46 *.F LD HL,(467F)
+45C4 7C | LD A,H
+45C5 B5 . OR L
+45C6 28 0C (. JR Z,45D4
+45C8 FD 21 89 46 .!.F LD IY,4689
+45CC ED 5B 7B 46 .[{F LD DE,(467B)
+45D0 CD 0D 45 ..E CALL 450D
+45D3 EB . EX DE,HL
+45D4 D5 . PUSH DE
+45D5 2A 7D 46 *}F LD HL,(467D)
+45D8 FD 21 85 46 .!.F LD IY,4685
+45DC ED 5B 7B 46 .[{F LD DE,(467B)
+45E0 CD 0D 45 ..E CALL 450D
+45E3 D1 . POP DE
+45E4 ED 4B 79 46 .KyF LD BC,(4679)
+45E8 DD CB 07 B6 .... RES 6,(IX+07)
+45EC DD CB 07 AE .... RES 5,(IX+07)
+45F0 C9 . RET
+45F1 DD CB 07 6E ...n BIT 5,(IX+07)
+45F5 28 0D (. JR Z,4604
+45F7 E5 . PUSH HL
+45F8 2A 79 46 *yF LD HL,(4679)
+45FB 22 77 46 "wF LD (4677),HL
+45FE 09 . ADD HL,BC
+45FF 22 79 46 "yF LD (4679),HL
+4602 E1 . POP HL
+4603 C9 . RET
+4604 3E FF >. LD A,FF
+4606 32 78 46 2xF LD (4678),A
+4609 DD CB 07 EE .... SET 5,(IX+07)
+460D ED 43 79 46 .CyF LD (4679),BC
+4611 C9 . RET
+4612 2A 77 46 *wF LD HL,(4677)
+4615 CB 7C .| BIT 7,H
+4617 20 D3 . JR NZ,45EC
+4619 22 79 46 "yF LD (4679),HL
+461C C9 . RET
+461D ED 43 81 46 .C.F LD (4681),BC
+4621 1B . DEC DE
+4622 7B { LD A,E
+4623 B2 . OR D
+4624 C8 . RET Z
+4625 FD 21 85 46 .!.F LD IY,4685
+4629 CD 0D 45 ..E CALL 450D
+462C 79 y LD A,C
+462D 93 . SUB E ; BC DECR DE
+462E 4F O LD C,A
+462F 78 x LD A,B
+4630 9A . SBC D
+4631 47 G LD B,A
+4632 C9 . RET ;-----------------------------------
+4633 2A 81 46 *.F LD HL,(4681)
+4636 B7 . OR A
+4637 ED 42 .B SBC HL,BC
+4639 DD CB 07 6E ...n BIT 5,(IX+07)
+463D 28 07 (. JR Z,4646
+463F ED 4B 79 46 .KyF LD BC,(4679)
+4643 B7 . OR A
+4644 ED 42 .B SBC HL,BC
+4646 EB . EX DE,HL
+4647 18 A3 .. JR 45EC ; REST Bit 5 (IX+7)
+4649 F5 . PUSH AF
+464A E5 . PUSH HL
+464B 3E 01 >. LD A,01
+464D CD 7D 44 .}D CALL 447D
+4650 36 FF 6. LD (HL),FF
+4652 54 T LD D,H
+4653 5D ] LD E,L
+4654 13 . INC DE
+4655 97 . SUB A
+4656 93 . SUB E
+4657 4F O LD C,A
+4658 06 00 .. LD B,00
+465A CB 44 .D BIT 0,H
+465C 20 01 . JR NZ,465F
+465E 04 . INC B
+465F 78 x LD A,B
+4660 B1 . OR C
+4661 28 02 (. JR Z,4665
+4663 ED B0 .. LDIR
+4665 D1 . POP DE
+4666 F1 . POP AF
+4667 92 . SUB D
+4668 47 G LD B,A
+4669 0E 04 .. LD C,04
+466B 5A Z LD E,D
+466C 16 01 .. LD D,01
+466E 13 . INC DE
+466F 21 00 06 !.. LD HL,0600
+4672 C3 B6 69 ..i JP 69B6
+4675 00 . NOP
+4676 00 . NOP
+4677 00 . NOP
+4678 00 . NOP
+4679 00 . NOP
+467A 00 . NOP
+467B 00 . NOP
+467C 00 . NOP
+467D 00 . NOP
+467E 00 . NOP
+467F 00 . NOP
+4680 00 . NOP
+4681 00 . NOP
+4682 00 . NOP
+4683 56 V LD D,(HL) ; "VR" - 8 Byte-Register
+4684 52 R LD D,D
+4685 00 . NOP
+4686 00 . NOP
+4687 00 . NOP
+4688 00 . NOP
+4689 00 . NOP
+468A 00 . NOP
+468B 00 . NOP
+468C 00 . NOP
+468D CD B8 43 ..C CALL 43B8
+4690 18 03 .. JR 4695
+4692 CD C0 43 ..C CALL 43C0
+4695 FD 21 85 46 .!.F LD IY,4685
+4699 22 85 46 ".F LD (4685),HL
+469C ED 53 87 46 .S.F LD (4687),DE
+46A0 FD CB 00 C6 .... SET 0,(IY+00)
+46A4 20 4B K JR NZ,46F1
+46A6 23 # INC HL
+46A7 7B { LD A,E
+46A8 5C \ LD E,H
+46A9 C6 19 .. ADD A,19
+46AB 57 W LD D,A
+46AC 1A . LD A,(DE)
+46AD 67 g LD H,A
+46AE 29 ) ADD HL,HL
+46AF B7 . OR A
+46B0 CC E1 42 ..B CALL Z,42E1
+46B3 7E ~ LD A,(HL)
+46B4 FE FF .. CP FF
+46B6 28 05 (. JR Z,46BD
+46B8 2C , INC L
+46B9 5F _ LD E,A
+46BA 16 00 .. LD D,00
+46BC C9 . RET
+46BD 2C , INC L
+46BE 5E ^ LD E,(HL)
+46BF 2C , INC L
+46C0 56 V LD D,(HL)
+46C1 CB 7A .z BIT 7,D
+46C3 C2 13 4A ..J JP NZ,4A13
+46C6 CB 95 .. RES 2,L
+46C8 7E ~ LD A,(HL)
+46C9 2C , INC L
+46CA 66 f LD H,(HL)
+46CB 6F o LD L,A
+46CC D5 . PUSH DE
+46CD CD BF 44 ..D CALL 44BF
+46D0 D1 . POP DE
+46D1 7E ~ LD A,(HL)
+46D2 3C < INC A
+46D3 C2 13 4A ..J JP NZ,4A13
+46D6 7D } LD A,L
+46D7 C6 06 .. ADD A,06
+46D9 6F o LD L,A
+46DA 3E FF >. LD A,FF
+46DC C9 . RET
+46DD CD B8 43 ..C CALL 43B8
+46E0 FD 21 89 46 .!.F LD IY,4689
+46E4 22 89 46 ".F LD (4689),HL
+46E7 ED 53 8B 46 .S.F LD (468B),DE
+46EB FD CB 00 C6 .... SET 0,(IY+00)
+46EF 28 B5 (. JR Z,46A6
+46F1 23 # INC HL
+46F2 CD ED 44 ..D CALL 44ED
+46F5 7E ~ LD A,(HL)
+46F6 FE FF .. CP FF
+46F8 20 1A . JR NZ,4714
+46FA 23 # INC HL
+46FB 23 # INC HL
+46FC BE . CP (HL)
+46FD 2B + DEC HL
+46FE 2B + DEC HL
+46FF 28 13 (. JR Z,4714
+4701 2C , INC L
+4702 5E ^ LD E,(HL)
+4703 2C , INC L
+4704 56 V LD D,(HL)
+4705 CB 95 .. RES 2,L
+4707 7E ~ LD A,(HL)
+4708 2C , INC L
+4709 66 f LD H,(HL)
+470A 6F o LD L,A
+470B D5 . PUSH DE
+470C CD BF 44 ..D CALL 44BF
+470F D1 . POP DE
+4710 2C , INC L
+4711 2C , INC L
+4712 18 C6 .. JR 46DA
+4714 B7 . OR A
+4715 F2 B8 46 ..F JP P,46B8
+4718 2D - DEC L
+4719 56 V LD D,(HL)
+471A 2D - DEC L
+471B 5E ^ LD E,(HL)
+471C 7B { LD A,E
+471D E6 07 .. AND 07
+471F C2 13 4A ..J JP NZ,4A13
+4722 EB . EX DE,HL
+4723 97 . SUB A
+4724 CD FF 44 ..D CALL 44FF
+4727 CB D5 .. SET 2,L
+4729 7E ~ LD A,(HL)
+472A 18 8C .. JR 46B8
+472C CD 8D 46 ..F CALL 468D
+472F E5 . PUSH HL
+4730 CD A8 2C .., CALL 2CA8
+4733 C5 . PUSH BC
+4734 4D M LD C,L
+4735 44 D LD B,H
+4736 18 20 . JR 4758
+4738 DD CB 07 5E ...^ BIT 3,(IX+07)
+473C 20 0E . JR NZ,474C
+473E DD 75 18 .u. LD (IX+18),L ; hpv1
+4741 DD 74 19 .t. LD (IX+19),H
+4744 DD 71 1A .q. LD (IX+1A),C ; hpv2
+4747 DD 70 1B .p. LD (IX+1B),B
+474A 18 0C .. JR 4758
+474C DD 6E 18 .n. LD L,(IX+18)
+474F DD 66 19 .f. LD H,(IX+19)
+4752 DD 4E 1A .N. LD C,(IX+1A)
+4755 DD 46 1B .F. LD B,(IX+1B)
+4758 2B + DEC HL
+4759 CB 7C .| BIT 7,H
+475B 28 03 (. JR Z,4760
+475D 21 00 00 !.. LD HL,0000
+4760 CB 78 .x BIT 7,B
+4762 20 1F . JR NZ,4783
+4764 7B { LD A,E
+4765 91 . SUB C
+4766 7A z LD A,D
+4767 98 . SBC B
+4768 30 02 0. JR NC,476C
+476A 42 B LD B,D
+476B 4B K LD C,E
+476C EB . EX DE,HL
+476D 69 i LD L,C
+476E 60 ` LD H,B
+476F B7 . OR A
+4770 ED 52 .R SBC HL,DE
+4772 28 0F (. JR Z,4783
+4774 38 0D 8. JR C,4783
+4776 C1 . POP BC
+4777 E3 . EX (SP),HL
+4778 CD 0D 45 ..E CALL 450D
+477B D1 . POP DE
+477C 7B { LD A,E
+477D 14 . INC D
+477E 15 . DEC D
+477F C8 . RET Z
+4780 3E FF >. LD A,FF
+4782 C9 . RET
+4783 C1 . POP BC
+4784 E1 . POP HL
+4785 97 . SUB A
+4786 57 W LD D,A
+4787 5F _ LD E,A
+4788 C9 . RET
+4789 CD 8D 46 ..F CALL 468D
+478C E5 . PUSH HL
+478D CD A8 2C .., CALL 2CA8
+4790 C5 . PUSH BC
+4791 42 B LD B,D
+4792 4B K LD C,E
+4793 18 A3 .. JR 4738
+4795 CD 8D 46 ..F CALL 468D
+4798 E5 . PUSH HL
+4799 CD A8 2C .., CALL 2CA8
+479C 22 4A 4B "JK LD (4B4A),HL
+479F CD A8 2C .., CALL 2CA8
+47A2 C5 . PUSH BC
+47A3 44 D LD B,H
+47A4 4D M LD C,L
+47A5 2A 4A 4B *JK LD HL,(4B4A)
+47A8 18 8E .. JR 4738
+47AA CD B8 43 ..C CALL 43B8
+47AD FD 21 89 46 .!.F LD IY,4689
+47B1 22 89 46 ".F LD (4689),HL
+47B4 ED 53 8B 46 .S.F LD (468B),DE
+47B8 ED 43 D0 41 .C.A LD (41D0),BC
+47BC 3E 02 >. LD A,02
+47BE 32 89 46 2.F LD (4689),A
+47C1 7B { LD A,E
+47C2 32 3B 4B 2;K LD (4B3B),A
+47C5 B5 . OR L
+47C6 32 3C 4B 2<K LD (4B3C),A
+47C9 7C | LD A,H
+47CA 32 3D 4B 2=K LD (4B3D),A
+47CD 32 3A 4B 2:K LD (4B3A),A
+47D0 2C , INC L
+47D1 7B { LD A,E
+47D2 CD CA 44 ..D CALL 44CA
+47D5 22 38 4B "8K LD (4B38),HL
+47D8 5E ^ LD E,(HL)
+47D9 1C . INC E
+47DA 28 28 (( JR Z,4804
+47DC 1D . DEC E
+47DD 3E 0D >. LD A,0D
+47DF BB . CP E
+47E0 30 1C 0. JR NC,47FE
+47E2 FD CB 00 8E .... RES 1,(IY+00)
+47E6 2A 38 4B *8K LD HL,(4B38)
+47E9 36 00 6. LD (HL),00
+47EB 21 00 00 !.. LD HL,0000
+47EE 22 3E 4B ">K LD (4B3E),HL
+47F1 2A 3A 4B *:K LD HL,(4B3A)
+47F4 22 8A 46 ".F LD (468A),HL
+47F7 2A 38 4B *8K LD HL,(4B38)
+47FA 1E 00 .. LD E,00
+47FC 3E 0D >. LD A,0D
+47FE 2C , INC L
+47FF 16 00 .. LD D,00
+4801 42 B LD B,D
+4802 4F O LD C,A
+4803 C9 . RET
+4804 FD CB 00 8E .... RES 1,(IY+00)
+4808 2D - DEC L
+4809 56 V LD D,(HL)
+480A 2D - DEC L
+480B 5E ^ LD E,(HL)
+480C ED 53 3E 4B .S>K LD (4B3E),DE
+4810 3A 8C 46 :.F LD A,(468C)
+4813 B7 . OR A
+4814 20 35 5 JR NZ,484B
+4816 7B { LD A,E
+4817 E6 0F .. AND 0F
+4819 FE 03 .. CP 03
+481B 20 CE . JR NZ,47EB
+481D EB . EX DE,HL
+481E CD BF 44 ..D CALL 44BF
+4821 7E ~ LD A,(HL)
+4822 2C , INC L
+4823 A6 . AND (HL)
+4824 3C < INC A
+4825 20 C4 . JR NZ,47EB
+4827 2C , INC L
+4828 3A 3C 4B :<K LD A,(4B3C)
+482B BE . CP (HL)
+482C 20 BD . JR NZ,47EB
+482E 2C , INC L
+482F 3A 3D 4B :=K LD A,(4B3D)
+4832 BE . CP (HL)
+4833 20 B6 . JR NZ,47EB
+4835 2C , INC L
+4836 22 42 4B "BK LD (4B42),HL
+4839 4E N LD C,(HL)
+483A 2C , INC L
+483B 46 F LD B,(HL)
+483C 2C , INC L
+483D E5 . PUSH HL
+483E 2A 38 4B *8K LD HL,(4B38)
+4841 2C , INC L
+4842 5E ^ LD E,(HL)
+4843 2C , INC L
+4844 56 V LD D,(HL)
+4845 E1 . POP HL
+4846 FD CB 00 D6 .... SET 2,(IY+00)
+484A C9 . RET
+484B 7B { LD A,E
+484C A2 . AND D
+484D 3C < INC A
+484E CA EB 47 ..G JP Z,47EB
+4851 EB . EX DE,HL
+4852 CD BF 44 ..D CALL 44BF
+4855 18 DF .. JR 4836
+4857 D5 . PUSH DE
+4858 2A 38 4B *8K LD HL,(4B38)
+485B E5 . PUSH HL
+485C CD 08 48 ..H CALL 4808
+485F D1 . POP DE
+4860 3E FF >. LD A,FF
+4862 12 . LD (DE),A
+4863 FD CB 00 8E .... RES 1,(IY+00)
+4867 D1 . POP DE
+4868 7B { LD A,E
+4869 FE 0E .. CP 0E
+486B 30 0F 0. JR NC,487C
+486D 14 . INC D
+486E 15 . DEC D
+486F 20 0B . JR NZ,487C
+4871 2A 3A 4B *:K LD HL,(4B3A)
+4874 22 8A 46 ".F LD (468A),HL
+4877 2A 38 4B *8K LD HL,(4B38)
+487A 2C , INC L
+487B C9 . RET
+487C 79 y LD A,C
+487D 93 . SUB E
+487E 78 x LD A,B
+487F 9A . SBC D
+4880 D0 . RET NC
+4881 FD CB 00 4E ...N BIT 1,(IY+00)
+4885 20 D0 . JR NZ,4857
+4887 CD 3F 49 .?I CALL 493F
+488A FD CB 00 5E ...^ BIT 3,(IY+00)
+488E C4 ED 49 ..I CALL NZ,49ED
+4891 C9 . RET
+4892 14 . INC D
+4893 15 . DEC D
+4894 20 0B . JR NZ,48A1
+4896 3E 0D >. LD A,0D
+4898 BB . CP E
+4899 38 06 8. JR C,48A1
+489B 2A 38 4B *8K LD HL,(4B38)
+489E 73 s LD (HL),E
+489F 2C , INC L
+48A0 C9 . RET
+48A1 E5 . PUSH HL
+48A2 2A 38 4B *8K LD HL,(4B38)
+48A5 36 FF 6. LD (HL),FF
+48A7 2C , INC L
+48A8 73 s LD (HL),E
+48A9 2C , INC L
+48AA 72 r LD (HL),D
+48AB E1 . POP HL
+48AC C9 . RET
+48AD 3A 89 46 :.F LD A,(4689)
+48B0 B7 . OR A
+48B1 CA 13 4A ..J JP Z,4A13
+48B4 79 y LD A,C
+48B5 93 . SUB E
+48B6 78 x LD A,B
+48B7 9A . SBC D
+48B8 D0 . RET NC
+48B9 D5 . PUSH DE
+48BA 2A 85 46 *.F LD HL,(4685)
+48BD E5 . PUSH HL
+48BE 2A 87 46 *.F LD HL,(4687)
+48C1 E5 . PUSH HL
+48C2 2A 89 46 *.F LD HL,(4689)
+48C5 2E 01 .. LD L,01
+48C7 22 85 46 ".F LD (4685),HL
+48CA 2A 8B 46 *.F LD HL,(468B)
+48CD 22 87 46 ".F LD (4687),HL
+48D0 FD CB 00 4E ...N BIT 1,(IY+00)
+48D4 20 3A : JR NZ,4910
+48D6 CD 3F 49 .?I CALL 493F
+48D9 22 4A 4B "JK LD (4B4A),HL
+48DC FD CB 00 5E ...^ BIT 3,(IY+00)
+48E0 28 20 ( JR Z,4902
+48E2 ED 4B 40 4B .K@K LD BC,(4B40)
+48E6 EB . EX DE,HL
+48E7 2A 8A 46 *.F LD HL,(468A)
+48EA E5 . PUSH HL
+48EB 2A 42 4B *BK LD HL,(4B42)
+48EE 2C , INC L
+48EF 2C , INC L
+48F0 CD B0 2C .., CALL 2CB0
+48F3 E1 . POP HL
+48F4 22 8A 46 ".F LD (468A),HL
+48F7 FD 21 89 46 .!.F LD IY,4689
+48FB FD CB 00 5E ...^ BIT 3,(IY+00)
+48FF C4 ED 49 ..I CALL NZ,49ED
+4902 E1 . POP HL
+4903 22 87 46 ".F LD (4687),HL
+4906 E1 . POP HL
+4907 22 85 46 ".F LD (4685),HL
+490A 2A 4A 4B *JK LD HL,(4B4A)
+490D D1 . POP DE
+490E B7 . OR A
+490F C9 . RET
+4910 D5 . PUSH DE
+4911 2A 38 4B *8K LD HL,(4B38)
+4914 CD 08 48 ..H CALL 4808
+4917 D1 . POP DE
+4918 79 y LD A,C
+4919 93 . SUB E
+491A 78 x LD A,B
+491B 9A . SBC D
+491C DC 3F 49 .?I CALL C,493F
+491F 22 4A 4B "JK LD (4B4A),HL
+4922 ED 4B 40 4B .K@K LD BC,(4B40)
+4926 EB . EX DE,HL
+4927 2A 8A 46 *.F LD HL,(468A)
+492A E5 . PUSH HL
+492B 2A 38 4B *8K LD HL,(4B38)
+492E 2C , INC L
+492F CD B0 2C .., CALL 2CB0
+4932 2A 38 4B *8K LD HL,(4B38)
+4935 7E ~ LD A,(HL)
+4936 36 FF 6. LD (HL),FF
+4938 2C , INC L
+4939 77 w LD (HL),A
+493A 2C , INC L
+493B 36 00 6. LD (HL),00
+493D 18 B4 .. JR 48F3
+493F D5 . PUSH DE
+4940 21 CA 41 !.A LD HL,41CA
+4943 3A 8C 46 :.F LD A,(468C)
+4946 B7 . OR A
+4947 28 11 (. JR Z,495A
+4949 D5 . PUSH DE
+494A 57 W LD D,A
+494B 21 00 01 !.. LD HL,0100
+494E 5D ] LD E,L
+494F CD 2C 66 .,f CALL 662C
+4952 0F . RRCA
+4953 67 g LD H,A
+4954 29 ) ADD HL,HL
+4955 D1 . POP DE
+4956 3E 02 >. LD A,02
+4958 18 02 .. JR 495C
+495A 3E 06 >. LD A,06
+495C E5 . PUSH HL
+495D 32 48 4B 2HK LD (4B48),A
+4960 C6 0F .. ADD A,0F
+4962 83 . ADD E
+4963 30 01 0. JR NC,4966
+4965 14 . INC D
+4966 E6 F0 .. AND F0
+4968 5F _ LD E,A
+4969 2A 3E 4B *>K LD HL,(4B3E)
+496C 09 . ADD HL,BC
+496D ED 4B 48 4B .KHK LD BC,(4B48)
+4971 09 . ADD HL,BC
+4972 C1 . POP BC
+4973 0A . LD A,(BC)
+4974 BD . CP L
+4975 20 23 # JR NZ,499A
+4977 03 . INC BC
+4978 0A . LD A,(BC)
+4979 0B . DEC BC
+497A BC . CP H
+497B 20 1D . JR NZ,499A
+497D 2A 3E 4B *>K LD HL,(4B3E)
+4980 19 . ADD HL,DE
+4981 DC D8 49 ..I CALL C,49D8
+4984 7D } LD A,L
+4985 02 . LD (BC),A
+4986 03 . INC BC
+4987 7C | LD A,H
+4988 02 . LD (BC),A
+4989 2A 48 4B *HK LD HL,(4B48)
+498C EB . EX DE,HL
+498D B7 . OR A
+498E ED 52 .R SBC HL,DE
+4990 EB . EX DE,HL
+4991 2A 42 4B *BK LD HL,(4B42)
+4994 73 s LD (HL),E
+4995 2C , INC L
+4996 72 r LD (HL),D
+4997 2C , INC L
+4998 D1 . POP DE
+4999 C9 . RET
+499A ED 43 44 4B .CDK LD (4B44),BC
+499E 0A . LD A,(BC)
+499F 6F o LD L,A
+49A0 03 . INC BC
+49A1 0A . LD A,(BC)
+49A2 67 g LD H,A
+49A3 E5 . PUSH HL
+49A4 19 . ADD HL,DE
+49A5 DC D8 49 ..I CALL C,49D8
+49A8 22 46 4B "FK LD (4B46),HL
+49AB 2A 48 4B *HK LD HL,(4B48)
+49AE EB . EX DE,HL
+49AF B7 . OR A
+49B0 ED 52 .R SBC HL,DE
+49B2 E3 . EX (SP),HL
+49B3 22 3E 4B ">K LD (4B3E),HL
+49B6 CD BF 44 ..D CALL 44BF
+49B9 D1 . POP DE
+49BA 3A 8C 46 :.F LD A,(468C)
+49BD B7 . OR A
+49BE 20 0E . JR NZ,49CE
+49C0 36 FF 6. LD (HL),FF
+49C2 2C , INC L
+49C3 36 FF 6. LD (HL),FF
+49C5 2C , INC L
+49C6 ED 4B 3C 4B .K<K LD BC,(4B3C)
+49CA 71 q LD (HL),C
+49CB 2C , INC L
+49CC 70 p LD (HL),B
+49CD 2C , INC L
+49CE 73 s LD (HL),E
+49CF 2C , INC L
+49D0 72 r LD (HL),D
+49D1 2C , INC L
+49D2 D1 . POP DE
+49D3 FD CB 00 DE .... SET 3,(IY+00)
+49D7 C9 . RET
+49D8 3A 8C 46 :.F LD A,(468C)
+49DB B7 . OR A
+49DC CA 39 4A .9J JP Z,4A39
+49DF 2C , INC L
+49E0 7D } LD A,L
+49E1 E6 0F .. AND 0F
+49E3 C0 . RET NZ
+49E4 3E 03 >. LD A,03
+49E6 DD CB 0B B6 .... RES 6,(IX+0B)
+49EA C3 0D 3D ..= JP 3D0D
+49ED E5 . PUSH HL
+49EE D5 . PUSH DE
+49EF 2A 44 4B *DK LD HL,(4B44)
+49F2 ED 5B 46 4B .[FK LD DE,(4B46)
+49F6 73 s LD (HL),E
+49F7 23 # INC HL
+49F8 72 r LD (HL),D
+49F9 2A 38 4B *8K LD HL,(4B38)
+49FC 2D - DEC L
+49FD 2D - DEC L
+49FE ED 5B 3E 4B .[>K LD DE,(4B3E)
+4A02 73 s LD (HL),E
+4A03 2C , INC L
+4A04 72 r LD (HL),D
+4A05 2C , INC L
+4A06 36 FF 6. LD (HL),FF
+4A08 2C , INC L
+4A09 ED 5B 40 4B .[@K LD DE,(4B40)
+4A0D 73 s LD (HL),E
+4A0E 2C , INC L
+4A0F 72 r LD (HL),D
+4A10 D1 . POP DE
+4A11 E1 . POP HL
+4A12 C9 . RET
+4A13 3E 0E >. LD A,0E
+4A15 CD 0D 3D ..= CALL 3D0D
+4A18 97 . SUB A
+4A19 57 W LD D,A
+4A1A 5F _ LD E,A
+4A1B 37 7 SCF
+4A1C C9 . RET
+4A1D 7A z LD A,D
+4A1E B7 . OR A
+4A1F C0 . RET NZ
+4A20 7B { LD A,E
+4A21 FE 0D .. CP 0D
+4A23 C0 . RET NZ
+4A24 4E N LD C,(HL)
+4A25 2C , INC L
+4A26 46 F LD B,(HL)
+4A27 2D - DEC L
+4A28 E5 . PUSH HL
+4A29 2A 38 4B *8K LD HL,(4B38)
+4A2C 77 w LD (HL),A
+4A2D 2C , INC L
+4A2E 71 q LD (HL),C
+4A2F 2C , INC L
+4A30 70 p LD (HL),B
+4A31 E1 . POP HL
+4A32 C9 . RET
+4A33 DD CB 07 C6 .... SET 0,(IX+07)
+4A37 18 04 .. JR 4A3D
+4A39 DD CB 07 86 .... RES 0,(IX+07)
+4A3D DD 36 06 20 .6. LD (IX+06),20
+4A41 2A C8 41 *.A LD HL,(41C8)
+4A44 3E 7F >. LD A,7F
+4A46 CD 49 46 .IF CALL 4649
+4A49 21 03 00 !.. LD HL,0003
+4A4C 22 CA 41 ".A LD (41CA),HL
+4A4F DD 75 18 .u. LD (IX+18),L
+4A52 DD 74 19 .t. LD (IX+19),H
+4A55 DD 36 06 24 .6.$ LD (IX+06),24
+4A59 DD CB 07 A6 .... RES 4,(IX+07)
+4A5D DD 6E 18 .n. LD L,(IX+18)
+4A60 DD 66 19 .f. LD H,(IX+19)
+4A63 FD 21 85 46 .!.F LD IY,4685
+4A67 FD CB 00 C6 .... SET 0,(IY+00)
+4A6B FD 36 03 00 .6.. LD (IY+03),00
+4A6F CD BF 44 ..D CALL 44BF
+4A72 22 4A 4B "JK LD (4B4A),HL
+4A75 DD CB 07 66 ...f BIT 4,(IX+07)
+4A79 20 40 @ JR NZ,4ABB
+4A7B 2C , INC L
+4A7C 2C , INC L
+4A7D 5E ^ LD E,(HL)
+4A7E 2C , INC L
+4A7F 56 V LD D,(HL)
+4A80 7B { LD A,E
+4A81 A2 . AND D
+4A82 3C < INC A
+4A83 CA 09 4B ..K JP Z,4B09
+4A86 ED 53 C6 41 .S.A LD (41C6),DE
+4A8A 2C , INC L
+4A8B 7E ~ LD A,(HL)
+4A8C DD 77 1A .w. LD (IX+1A),A
+4A8F 2C , INC L
+4A90 7E ~ LD A,(HL)
+4A91 DD 77 1B .w. LD (IX+1B),A
+4A94 7B { LD A,E
+4A95 E6 01 .. AND 01
+4A97 CB 83 .. RES 0,E
+4A99 EB . EX DE,HL
+4A9A CD 4D 44 .MD CALL 444D
+4A9D DD 7E 18 .~. LD A,(IX+18)
+4AA0 BE . CP (HL)
+4AA1 20 47 G JR NZ,4AEA
+4AA3 2C , INC L
+4AA4 DD 7E 19 .~. LD A,(IX+19)
+4AA7 BE . CP (HL)
+4AA8 20 40 @ JR NZ,4AEA
+4AAA 2C , INC L
+4AAB 7E ~ LD A,(HL)
+4AAC 3C < INC A
+4AAD 20 3B ; JR NZ,4AEA
+4AAF 2C , INC L
+4AB0 DD 7E 1A .~. LD A,(IX+1A)
+4AB3 96 . SUB (HL)
+4AB4 23 # INC HL
+4AB5 DD 7E 1B .~. LD A,(IX+1B)
+4AB8 9E . SBC (HL)
+4AB9 38 2F 8/ JR C,4AEA
+4ABB DD CB 07 E6 .... SET 4,(IX+07)
+4ABF 2A C6 41 *.A LD HL,(41C6)
+4AC2 16 00 .. LD D,00
+4AC4 7D } LD A,L
+4AC5 E6 01 .. AND 01
+4AC7 5F _ LD E,A
+4AC8 CB 85 .. RES 0,L
+4ACA CD AD 47 ..G CALL 47AD
+4ACD ED 53 40 4B .S@K LD (4B40),DE
+4AD1 CD 3F 49 .?I CALL 493F
+4AD4 FD CB 00 5E ...^ BIT 3,(IY+00)
+4AD8 C4 ED 49 ..I CALL NZ,49ED
+4ADB 42 B LD B,D
+4ADC 4B K LD C,E
+4ADD EB . EX DE,HL
+4ADE 2A 4A 4B *JK LD HL,(4B4A)
+4AE1 7D } LD A,L
+4AE2 C6 06 .. ADD A,06
+4AE4 6F o LD L,A
+4AE5 CD B0 2C .., CALL 2CB0
+4AE8 18 04 .. JR 4AEE
+4AEA DD CB 07 C6 .... SET 0,(IX+07)
+4AEE DD CB 07 A6 .... RES 4,(IX+07)
+4AF2 DD 7E 18 .~. LD A,(IX+18)
+4AF5 C6 06 .. ADD A,06
+4AF7 DD 86 1A ... ADD (IX+1A)
+4AFA DD 77 18 .w. LD (IX+18),A
+4AFD DD 7E 19 .~. LD A,(IX+19)
+4B00 DD 8E 1B ... ADC (IX+1B)
+4B03 DD 77 19 .w. LD (IX+19),A
+4B06 D2 5D 4A .]J JP NC,4A5D
+4B09 DD 36 06 28 .6.( LD (IX+06),28
+4B0D 2A C8 41 *.A LD HL,(41C8)
+4B10 23 # INC HL
+4B11 23 # INC HL
+4B12 22 C6 41 ".A LD (41C6),HL
+4B15 2A CA 41 *.A LD HL,(41CA)
+4B18 37 7 SCF
+4B19 CB 1C .. RR H
+4B1B CB 1D .. RR L
+4B1D CB 85 .. RES 0,L
+4B1F 3E FF >. LD A,FF
+4B21 CD 49 46 .IF CALL 4649
+4B24 DD 36 06 00 .6.. LD (IX+06),00
+4B28 DD CB 07 9E .... RES 3,(IX+07)
+4B2C DD CB 07 46 ...F BIT 0,(IX+07)
+4B30 C2 26 29 .&) JP NZ,2926
+4B33 C3 E4 49 ..I JP 49E4
+4B36 54 T LD D,H ; "TR"
+4B37 52 R LD D,D
+4B38 00 . NOP
+4B39 00 . NOP
+4B3A 00 . NOP
+4B3B 00 . NOP
+4B3C 00 . NOP
+4B3D 00 . NOP
+4B3E 00 . NOP
+4B3F 00 . NOP
+4B40 00 . NOP
+4B41 00 . NOP
+4B42 00 . NOP
+4B43 00 . NOP
+4B44 00 . NOP
+4B45 00 . NOP
+4B46 00 . NOP
+4B47 00 . NOP
+4B48 00 . NOP
+4B49 00 . NOP
+4B4A 00 . NOP
+4B4B 00 . NOP
+4B4C F5 . PUSH AF
+4B4D C5 . PUSH BC
+4B4E D5 . PUSH DE
+4B4F E5 . PUSH HL
+4B50 FD E5 .. PUSH IY
+4B52 2A B6 4C *.L LD HL,(4CB6)
+4B55 2B + DEC HL
+4B56 7C | LD A,H
+4B57 B5 . OR L
+4B58 20 1D . JR NZ,4B77
+4B5A 21 17 82 !.. LD HL,8217
+4B5D 3A B8 4C :.L LD A,(4CB8)
+4B60 FE 02 .. CP 02
+4B62 28 09 (. JR Z,4B6D
+4B64 CB CE .. SET 1,(HL)
+4B66 3E 02 >. LD A,02
+4B68 21 B8 0B !.. LD HL,0BB8
+4B6B 18 07 .. JR 4B74
+4B6D CB C6 .. SET 0,(HL)
+4B6F 3E 01 >. LD A,01
+4B71 21 70 17 !p. LD HL,1770
+4B74 32 B8 4C 2.L LD (4CB8),A
+4B77 22 B6 4C ".L LD (4CB6),HL
+4B7A 2A F1 4C *.L LD HL,(4CF1)
+4B7D 23 # INC HL
+4B7E 22 F1 4C ".L LD (4CF1),HL
+4B81 21 B9 4C !.L LD HL,4CB9
+4B84 CD 99 4E ..N CALL 4E99
+4B87 3A B5 4C :.L LD A,(4CB5)
+4B8A B7 . OR A
+4B8B 28 08 (. JR Z,4B95
+4B8D 2A B3 4C *.L LD HL,(4CB3)
+4B90 65 e LD H,L
+4B91 6F o LD L,A
+4B92 22 B3 4C ".L LD (4CB3),HL
+4B95 FD E1 .. POP IY
+4B97 E1 . POP HL
+4B98 D1 . POP DE
+4B99 C1 . POP BC
+4B9A F1 . POP AF
+4B9B C9 . RET
+4B9C F3 . DI
+4B9D 2A B3 4C *.L LD HL,(4CB3)
+4BA0 7D } LD A,L
+4BA1 B7 . OR A
+4BA2 28 35 (5 JR Z,4BD9
+4BA4 6C l LD L,H
+4BA5 26 00 &. LD H,00
+4BA7 22 B3 4C ".L LD (4CB3),HL
+4BAA FB . EI
+4BAB FE 80 .. CP 80
+4BAD 28 24 ($ JR Z,4BD3
+4BAF CB 7F .. BIT 7,A
+4BB1 C4 CA 4B ..K CALL NZ,4BCA
+4BB4 21 D1 4C !.L LD HL,4CD1
+4BB7 06 03 .. LD B,03
+4BB9 0F . RRCA
+4BBA F5 . PUSH AF
+4BBB C5 . PUSH BC
+4BBC E5 . PUSH HL
+4BBD DC 99 4E ..N CALL C,4E99
+4BC0 E1 . POP HL
+4BC1 C1 . POP BC
+4BC2 F1 . POP AF
+4BC3 11 08 00 ... LD DE,0008
+4BC6 19 . ADD HL,DE
+4BC7 10 F0 .. DJNZ 4BB9
+4BC9 C9 . RET
+4BCA F5 . PUSH AF
+4BCB 21 C9 4C !.L LD HL,4CC9
+4BCE CD 99 4E ..N CALL 4E99
+4BD1 F1 . POP AF
+4BD2 C9 . RET
+4BD3 21 C1 4C !.L LD HL,4CC1
+4BD6 C3 99 4E ..N JP 4E99
+4BD9 FB . EI
+4BDA C9 . RET
+4BDB 3A F4 6E :.n LD A,(6EF4)
+4BDE DD 96 04 ... SUB (IX+04)
+4BE1 ED 44 .D NEG
+4BE3 DD 77 04 .w. LD (IX+04),A
+4BE6 21 B5 4C !.L LD HL,4CB5
+4BE9 DD 7E 2A .~* LD A,(IX+2A)
+4BEC FE 05 .. CP 05
+4BEE 30 03 0. JR NC,4BF3
+4BF0 CB C6 .. SET 0,(HL)
+4BF2 C9 . RET
+4BF3 CB CE .. SET 1,(HL)
+4BF5 C9 . RET
+4BF6 3A F4 6E :.n LD A,(6EF4)
+4BF9 DD 86 04 ... ADD (IX+04)
+4BFC FE 64 .d CP 64
+4BFE 38 1E 8. JR C,4C1E
+4C00 D6 64 .d SUB A,64
+4C02 F5 . PUSH AF
+4C03 DD 35 .5 DEC (IX+1C)
+4C05 1C . INC E
+4C06 20 0B . JR NZ,4C13
+4C08 DD 7E 2A .~* LD A,(IX+2A)
+4C0B 3C < INC A
+4C0C FE 03 .. CP 03
+4C0E 30 03 0. JR NC,4C13
+4C10 DD 77 2A .w* LD (IX+2A),A
+4C13 2A 1C 6E *.n LD HL,(6E1C)
+4C16 2E 38 .8 LD L,38
+4C18 CD 99 4E ..N CALL 4E99
+4C1B F1 . POP AF
+4C1C 18 DE .. JR 4BFC
+4C1E DD 77 04 .w. LD (IX+04),A
+4C21 21 B5 4C !.L LD HL,4CB5
+4C24 CB 86 .. RES 0,(HL)
+4C26 CB 8E .. RES 1,(HL)
+4C28 C9 . RET
+4C29 DD 7E 2A .~* LD A,(IX+2A)
+4C2C FE 03 .. CP 03
+4C2E D0 . RET NC
+4C2F DD 36 2A 00 .6*. LD (IX+2A),00
+4C33 DD 36 1C 3C .6.< LD (IX+1C),3C
+4C37 C9 . RET
+4C38 3A F9 4C :.L LD A,(4CF9)
+4C3B B7 . OR A
+4C3C C8 . RET Z
+4C3D 3E 01 >. LD A,01
+4C3F 32 F9 4C 2.L LD (4CF9),A
+4C42 2A FA 4C *.L LD HL,(4CFA)
+4C45 06 11 .. LD B,11
+4C47 23 # INC HL
+4C48 7E ~ LD A,(HL)
+4C49 FE 01 .. CP 01
+4C4B 28 0D (. JR Z,4C5A
+4C4D 38 03 8. JR C,4C52
+4C4F 21 FB 4C !.L LD HL,4CFB
+4C52 10 F3 .. DJNZ 4C47
+4C54 21 F9 4C !.L LD HL,4CF9
+4C57 CB 86 .. RES 0,(HL)
+4C59 C9 . RET
+4C5A DD 7E 26 .~& LD A,(IX+26)
+4C5D B7 . OR A
+4C5E 20 28 ( JR NZ,4C88
+4C60 22 FA 4C ".L LD (4CFA),HL
+4C63 11 FC 4C ..L LD DE,4CFC
+4C66 B7 . OR A
+4C67 ED 52 .R SBC HL,DE
+4C69 DD 7E 06 .~. LD A,(IX+06)
+4C6C FE BC .. CP BC
+4C6E C0 . RET NZ
+4C6F DD 7E 34 .~4 LD A,(IX+34)
+4C72 B7 . OR A
+4C73 C0 . RET NZ
+4C74 DD 36 06 00 .6.. LD (IX+06),00
+4C78 DD CB 07 DE .... SET 3,(IX+07)
+4C7C DD 75 2C .u, LD (IX+2C),L
+4C7F DD 74 2D .t- LD (IX+2D),H
+4C82 2A FA 4C *.L LD HL,(4CFA)
+4C85 36 00 6. LD (HL),00
+4C87 C9 . RET
+4C88 DD CB 05 C6 .... SET 0,(IX+05)
+4C8C 97 . SUB A
+4C8D 32 F9 4C 2.L LD (4CF9),A
+4C90 C9 . RET
+4C91 F1 . POP AF
+4C92 C9 . RET ;---------- SV-Call zustellen -----
+4C93 F5 . PUSH AF ; Kanalnummer
+4C94 3A FC 6E :.n LD A,(6EFC)
+4C97 B7 . OR A
+4C98 20 F7 . JR NZ,4C91
+4C9A F1 . POP AF
+4C9B F5 . PUSH AF
+4C9C E5 . PUSH HL
+4C9D 21 F9 4C !.L LD HL,4CF9
+4CA0 CB CE .. SET 1,(HL) ; irgendein Kanal hat SV-Call
+4CA2 21 FC 4C !.L LD HL,4CFC ; 4CFC+Kanalnummer
+4CA5 85 . ADD L
+4CA6 6F o LD L,A
+4CA7 30 01 0. JR NC,4CAA
+4CA9 24 $ INC H
+4CAA 3E 01 >. LD A,01
+4CAC 77 w LD (HL),A ; 1: SV-Call angefordert
+4CAD CD 68 6D .hm CALL 6D68 ; unblock (supervisor)
+4CB0 E1 . POP HL
+4CB1 F1 . POP AF
+4CB2 C9 . RET ;--------------------------------
+4CB3 00 . NOP
+4CB4 00 . NOP
+4CB5 00 . NOP
+4CB6 70 p LD (HL),B
+4CB7 17 . RLA
+4CB8 01
+4CB9 00 00 ; clock (1)
+4CBB 00 . NOP
+4CBC 00 . NOP
+4CBD 00 . NOP
+4CBE 00 . NOP
+4CBF 00 . NOP
+4CC0 00 . NOP
+4CC1 00 . NOP ; clock (2)
+4CC2 00 . NOP
+4CC3 00 . NOP
+4CC4 00 . NOP
+4CC5 00 . NOP
+4CC6 00 . NOP
+4CC7 00 . NOP
+4CC8 00 . NOP
+4CC9 00 . NOP ; clock (3)
+4CCA 00 . NOP
+4CCB 00 . NOP
+4CCC 00 . NOP
+4CCD 00 . NOP
+4CCE 00 . NOP
+4CCF 00 . NOP
+4CD0 00 . NOP
+4CD1 00 . NOP ; clock (4)
+4CD2 00 . NOP
+4CD3 00 . NOP
+4CD4 00 . NOP
+4CD5 00 . NOP
+4CD6 00 . NOP
+4CD7 00 . NOP
+4CD8 00 . NOP
+4CD9 00 . NOP ; clock (5)
+4CDA 00 . NOP
+4CDB 00 . NOP
+ - Fortsetzung in Datei "eumel0.prt.3" -
diff --git a/system/eumel0-z80/src/eumel0.prt.3 b/system/eumel0-z80/src/eumel0.prt.3 new file mode 100644 index 0000000..2ae7eab --- /dev/null +++ b/system/eumel0-z80/src/eumel0.prt.3 @@ -0,0 +1,4004 @@ +ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT
+
+4CDC 00 . NOP
+4CDD 00 . NOP
+4CDE 00 . NOP
+4CDF 00 . NOP
+4CE0 00 . NOP
+4CE1 00 . NOP ; clock (6)
+4CE2 00 . NOP
+4CE3 00 . NOP
+4CE4 00 . NOP
+4CE5 00 . NOP
+4CE6 00 . NOP
+4CE7 00 . NOP
+4CE8 00 . NOP
+4CE9 00 . NOP ; clock (7)
+4CEA 00 . NOP
+4CEB 00 . NOP
+4CEC 00 . NOP
+4CED 00 . NOP
+4CEE 00 . NOP
+4CEF 00 . NOP
+4CF0 00 . NOP
+4CF1 00 . NOP ; ---
+4CF2 00 . NOP ; 4CF1/4CF2 = pausenzaehler akt.Task
+4CF3 00 . NOP
+4CF4 00 . NOP
+4CF5 00 . NOP
+4CF6 00 . NOP
+4CF7 00 . NOP
+4CF8 00 . NOP
+4CF9 00 . NOP ;--
+4CFA FC 4C
+4CFC 00 ; Tabelle der SV-Call anforderungen
+4CFD 00 . NOP ; Kanal 1
+4CFE 00 . NOP ; Kanal 2 ...
+4CFF 00 . NOP
+4D00 00 . NOP
+4D01 00 . NOP
+4D02 00 . NOP
+4D03 00 . NOP
+4D04 00 . NOP
+4D05 00 . NOP
+4D06 00 . NOP
+4D07 00 . NOP
+4D08 00 . NOP
+4D09 00 . NOP
+4D0A 00 . NOP
+4D0B 00 . NOP ; Kanal 16
+4D0C FF . RST 38 ; Tabellenende
+4D0D CD 21 4D .!M CALL 4D21
+4D10 CD 6D 4D .mM CALL 4D6D
+4D13 EB . EX DE,HL
+4D14 D8 . RET C
+4D15 1F . RRA
+4D16 D8 . RET C
+4D17 7A z LD A,D
+4D18 17 . RLA
+4D19 D8 . RET C
+4D1A 3A 5A 4E :ZN LD A,(4E5A)
+4D1D B7 . OR A
+4D1E F0 . RET P
+4D1F 18 13 .. JR 4D34
+4D21 7A z LD A,D
+4D22 AC . XOR H
+4D23 32 5A 4E 2ZN LD (4E5A),A
+4D26 CB 7C .| BIT 7,H
+4D28 28 07 (. JR Z,4D31
+4D2A 97 . SUB A
+4D2B 95 . SUB L
+4D2C 6F o LD L,A
+4D2D 3E 00 >. LD A,00
+4D2F 9C . SBC H
+4D30 67 g LD H,A
+4D31 CB 7A .z BIT 7,D
+4D33 C8 . RET Z
+4D34 97 . SUB A
+4D35 93 . SUB E
+4D36 5F _ LD E,A
+4D37 3E 00 >. LD A,00
+4D39 9A . SBC D
+4D3A 57 W LD D,A
+4D3B B7 . OR A
+4D3C C9 . RET
+4D3D CB 7A .z BIT 7,D
+4D3F 20 0E . JR NZ,4D4F
+4D41 CD 21 4D .!M CALL 4D21
+4D44 CD AD 4D ..M CALL 4DAD
+4D47 30 D1 0. JR NC,4D1A
+4D49 C9 . RET
+4D4A CD AD 4D ..M CALL 4DAD
+4D4D B7 . OR A
+4D4E C9 . RET
+4D4F DD CB 0B 66 ...f BIT 4,(IX+0B)
+4D53 20 F5 . JR NZ,4D4A
+4D55 CD 21 4D .!M CALL 4D21
+4D58 E5 . PUSH HL
+4D59 CD AD 4D ..M CALL 4DAD
+4D5C 38 0B 8. JR C,4D69
+4D5E 7C | LD A,H
+4D5F B5 . OR L
+4D60 28 07 (. JR Z,4D69
+4D62 EB . EX DE,HL
+4D63 E3 . EX (SP),HL
+4D64 ED 52 .R SBC HL,DE
+4D66 D1 . POP DE
+4D67 18 B1 .. JR 4D1A
+4D69 33 3 INC SP
+4D6A 33 3 INC SP
+4D6B 18 AD .. JR 4D1A
+4D6D 7A z LD A,D ; -------- 16 * 16 --> 24 Bit MULT ---
+4D6E BC . CP H
+4D6F 30 01 0. JR NC,4D72
+4D71 EB . EX DE,HL
+4D72 C5 . PUSH BC
+4D73 44 D LD B,H
+4D74 4D M LD C,L
+4D75 97 . SUB A
+4D76 67 g LD H,A
+4D77 6F o LD L,A
+4D78 CB 38 .8 SLR B
+4D7A CB 19 .. RR C
+4D7C 30 01 0. JR NC,4D7F
+4D7E 19 . ADD HL,DE
+4D7F 18 1B .. JR 4D9C
+4D81 CB 23 .# SLA E
+4D83 CB 12 .. RL D
+4D85 CE 00 .. ADC A,00
+4D87 19 . ADD HL,DE
+4D88 CE 00 .. ADC A,00
+4D8A CB 38 .8 SLR B
+4D8C CB 19 .. RR C
+4D8E 38 F1 8. JR C,4D81
+4D90 20 04 . JR NZ,4D96
+4D92 04 . INC B
+4D93 05 . DEC B
+4D94 28 12 (. JR Z,4DA8
+4D96 CB 23 .# SLA E
+4D98 CB 12 .. RL D
+4D9A 38 0F 8. JR C,4DAB
+4D9C CB 38 .8 SLR B
+4D9E CB 19 .. RR C
+4DA0 38 DF 8. JR C,4D81
+4DA2 20 F2 . JR NZ,4D96
+4DA4 04 . INC B
+4DA5 05 . DEC B
+4DA6 20 EE . JR NZ,4D96
+4DA8 FE 02 .. CP 02
+4DAA 3F ? CCF
+4DAB C1 . POP BC
+4DAC C9 . RET
+4DAD 7C | LD A,H
+4DAE B5 . OR L
+4DAF 20 02 . JR NZ,4DB3
+4DB1 37 7 SCF
+4DB2 C9 . RET
+4DB3 7C | LD A,H
+4DB4 B2 . OR D
+4DB5 28 2B (+ JR Z,4DE2
+4DB7 C5 . PUSH BC
+4DB8 97 . SUB A
+4DB9 3C < INC A
+4DBA ED 6A .j ADC HL,HL
+4DBC F2 B9 4D ..M JP P,4DB9
+
+4DC0 4D M LD C,L
+4DC1 EB . EX DE,HL
+4DC2 11 00 00 ... LD DE,0000
+4DC5 CB 23 .# SLA E
+4DC7 CB 12 .. RL D
+4DC9 22 5B 4E "[N LD (4E5B),HL
+4DCC B7 . OR A
+4DCD ED 42 .B SBC HL,BC
+4DCF 30 03 0. JR NC,4DD4
+4DD1 2A 5B 4E *[N LD HL,(4E5B)
+4DD4 38 01 8. JR C,4DD7
+4DD6 13 . INC DE
+4DD7 CB 38 .8 SLR B
+4DD9 CB 19 .. RR C
+4DDB 3D = DEC A
+4DDC F2 C5 4D ..M JP P,4DC5
+4DDF C1 . POP BC
+4DE0 B7 . OR A
+4DE1 C9 . RET
+4DE2 CB 7D .} BIT 7,L
+4DE4 20 06 . JR NZ,4DEC
+4DE6 24 $ INC H
+4DE7 CB 25 .% SLA L
+4DE9 F2 E6 4D ..M JP P,4DE6
+4DEC 7B { LD A,E
+4DED 1E 00 .. LD E,00
+4DEF CB 23 .# SLA E
+4DF1 BD . CP L
+4DF2 38 02 8. JR C,4DF6
+4DF4 95 . SUB L
+4DF5 1C . INC E
+4DF6 CB 3D .= SLR L
+4DF8 25 % DEC H
+4DF9 F2 EF 4D ..M JP P,4DEF
+4DFC 6F o LD L,A
+4DFD 97 . SUB A
+4DFE 67 g LD H,A
+4DFF C9 . RET
+4E00 E5 . PUSH HL
+4E01 EB . EX DE,HL
+4E02 06 10 .. LD B,10
+4E04 11 00 00 ... LD DE,0000
+4E07 4A J LD C,D
+4E08 29 ) ADD HL,HL
+4E09 38 11 8. JR C,4E1C
+4E0B 10 FB .. DJNZ 4E08
+4E0D 18 1C .. JR 4E2B
+4E0F 7A z LD A,D
+4E10 87 . ADD A
+4E11 27 ' DAA
+4E12 57 W LD D,A
+4E13 7B { LD A,E
+4E14 8F . ADC A
+4E15 27 ' DAA
+4E16 5F _ LD E,A
+4E17 CB 11 .. RL C
+4E19 29 ) ADD HL,HL
+4E1A 30 0D 0. JR NC,4E29
+4E1C 7A z LD A,D
+4E1D C6 01 .. ADD A,01
+4E1F 27 ' DAA
+4E20 57 W LD D,A
+4E21 7B { LD A,E
+4E22 CE 00 .. ADC A,00
+4E24 27 ' DAA
+4E25 5F _ LD E,A
+4E26 30 01 0. JR NC,4E29
+4E28 0C . INC C
+4E29 10 E4 .. DJNZ 4E0F
+4E2B 21 5D 4E !]N LD HL,4E5D
+4E2E 71 q LD (HL),C
+4E2F ED 53 5E 4E .S^N LD (4E5E),DE
+4E33 D1 . POP DE
+4E34 06 06 .. LD B,06
+4E36 D5 . PUSH DE
+4E37 0E 00 .. LD C,00
+4E39 3E 30 >0 LD A,30
+4E3B CD 53 4E .SN CALL 4E53
+4E3E FE 30 .0 CP 30
+4E40 20 08 . JR NZ,4E4A
+4E42 10 F7 .. DJNZ 4E3B
+4E44 04 . INC B
+4E45 18 03 .. JR 4E4A
+4E47 CD 53 4E .SN CALL 4E53
+4E4A 12 . LD (DE),A
+4E4B 13 . INC DE
+4E4C 0C . INC C
+4E4D 10 F8 .. DJNZ 4E47
+4E4F 06 00 .. LD B,00
+4E51 D1 . POP DE
+4E52 C9 . RET
+4E53 ED 6F .o RLD
+4E55 CB 40 .@ BIT 0,B
+4E57 C8 . RET Z
+4E58 23 # INC HL
+4E59 C9 . RET
+4E5A 00 . NOP
+4E5B 00 . NOP
+4E5C 00 . NOP
+4E5D 20 20 JR NZ,4E7F
+4E5F 20 08 . JR NZ,4E69
+4E61 F5 . PUSH AF
+4E62 C5 . PUSH BC
+4E63 CD 72 4E .rN CALL 4E72
+4E66 DD 2A 1C 6E .*.n LD IX,(6E1C)
+4E6A 11 91 4E ..N LD DE,4E91
+4E6D C1 . POP BC
+4E6E 08 . EX AF,AF'
+4E6F F1 . POP AF
+4E70 08 . EX AF,AF'
+4E71 C9 . RET
+4E72 E5 . PUSH HL
+4E73 EB . EX DE,HL
+4E74 11 91 4E ..N LD DE,4E91
+4E77 01 08 00 ... LD BC,0008
+4E7A ED B0 .. LDIR
+4E7C DD 21 91 4E .!.N LD IX,4E91
+4E80 FD E3 .. EX (SP),IY
+4E82 C9 . RET
+4E83 C5 . PUSH BC
+4E84 D5 . PUSH DE
+4E85 DD E3 .. EX (SP),IX
+4E87 E5 . PUSH HL
+4E88 FD E1 .. POP IY
+4E8A CD B3 51 ..Q CALL 51B3
+4E8D DD E1 .. POP IX
+4E8F C1 . POP BC
+4E90 C9 . RET
+4E91 00 . NOP
+4E92 00 . NOP
+4E93 00 . NOP
+4E94 00 . NOP
+4E95 00 . NOP
+4E96 00 . NOP
+4E97 00 . NOP
+4E98 00 . NOP
+4E99 0E 01 .. LD C,01
+4E9B E5 . PUSH HL
+4E9C FD E1 .. POP IY
+4E9E FD 7E 07 .~. LD A,(IY+07)
+4EA1 FE 8D .. CP 8D
+4EA3 D0 . RET NC
+4EA4 B7 . OR A
+4EA5 FA AD 4E ..N JP M,4EAD
+4EA8 3E 80 >. LD A,80
+4EAA FD 77 07 .w. LD (IY+07),A
+4EAD D6 7F .. SUB A,7F
+4EAF CB 3F .? SLR A
+4EB1 47 G LD B,A
+4EB2 5F _ LD E,A
+4EB3 16 00 .. LD D,00
+4EB5 79 y LD A,C
+4EB6 38 04 8. JR C,4EBC
+4EB8 87 . ADD A
+4EB9 87 . ADD A
+4EBA 81 . ADD C
+4EBB 87 . ADD A
+4EBC 19 . ADD HL,DE
+4EBD 04 . INC B
+4EBE B7 . OR A
+4EBF 8E . ADC (HL)
+4EC0 27 ' DAA
+4EC1 77 w LD (HL),A
+4EC2 2B + DEC HL
+4EC3 3E 00 >. LD A,00
+4EC5 10 F8 .. DJNZ 4EBF
+4EC7 23 # INC HL
+4EC8 7E ~ LD A,(HL)
+4EC9 FE 10 .. CP 10
+4ECB D8 . RET C
+4ECC 97 . SUB A
+4ECD CD 3A 52 .:R CALL 523A
+4ED0 34 4 INC (HL)
+4ED1 C9 . RET
+4ED2 C5 . PUSH BC
+4ED3 D5 . PUSH DE
+4ED4 CD 73 52 .sR CALL 5273
+4ED7 D1 . POP DE
+4ED8 C1 . POP BC
+4ED9 1A . LD A,(DE)
+4EDA B7 . OR A
+4EDB C8 . RET Z
+4EDC EE 80 .. XOR 80
+4EDE 12 . LD (DE),A
+4EDF C9 . RET
+4EE0 7B { LD A,E
+4EE1 11 07 00 ... LD DE,0007
+4EE4 19 . ADD HL,DE
+4EE5 C6 81 .. ADD A,81
+4EE7 77 w LD (HL),A
+4EE8 C9 . RET
+4EE9 11 07 00 ... LD DE,0007
+4EEC 19 . ADD HL,DE
+4EED 7E ~ LD A,(HL)
+4EEE D6 81 .. SUB A,81
+4EF0 5F _ LD E,A
+4EF1 16 00 .. LD D,00
+4EF3 D0 . RET NC
+4EF4 15 . DEC D
+4EF5 C9 . RET
+4EF6 C5 . PUSH BC
+4EF7 D5 . PUSH DE
+4EF8 CD 73 52 .sR CALL 5273
+4EFB EB . EX DE,HL
+4EFC D1 . POP DE
+4EFD C1 . POP BC
+4EFE 2B + DEC HL
+4EFF 3E 8D >. LD A,8D
+4F01 96 . SUB (HL)
+4F02 D8 . RET C
+4F03 FE 0D .. CP 0D
+4F05 30 0F 0. JR NC,4F16
+4F07 2B + DEC HL
+4F08 3D = DEC A
+4F09 F8 . RET M
+4F0A 28 05 (. JR Z,4F11
+4F0C 36 00 6. LD (HL),00
+4F0E 3D = DEC A
+4F0F 18 F6 .. JR 4F07
+4F11 7E ~ LD A,(HL)
+4F12 E6 F0 .. AND F0
+4F14 77 w LD (HL),A
+4F15 C9 . RET
+4F16 EB . EX DE,HL
+4F17 3E 08 >. LD A,08
+4F19 36 00 6. LD (HL),00
+4F1B 23 # INC HL
+4F1C 3D = DEC A
+4F1D 20 FA . JR NZ,4F19
+4F1F C9 . RET
+4F20 FD 7E 00 .~. LD A,(IY+00)
+4F23 EE 80 .. XOR 80
+4F25 5F _ LD E,A
+4F26 DD 56 00 .V. LD D,(IX+00)
+4F29 C3 32 4F .2O JP 4F32
+4F2C DD 56 00 .V. LD D,(IX+00)
+4F2F FD 5E 00 .^. LD E,(IY+00)
+4F32 AF . XOR A
+4F33 DD BE 07 ... CP (IX+07)
+4F36 C2 49 4F .IO JP NZ,4F49
+4F39 FD BE 07 ... CP (IY+07)
+4F3C C8 . RET Z
+4F3D 7B { LD A,E
+4F3E FD E5 .. PUSH IY
+4F40 E1 . POP HL
+4F41 CD 79 52 .yR CALL 5279
+4F44 DD 77 00 .w. LD (IX+00),A
+4F47 B7 . OR A
+4F48 C9 . RET
+4F49 DD 72 00 .r. LD (IX+00),D
+4F4C FD BE 07 ... CP (IY+07)
+4F4F C8 . RET Z
+4F50 D5 . PUSH DE
+4F51 CB BA .. RES 7,D
+4F53 CB BB .. RES 7,E
+4F55 CD B9 51 ..Q CALL 51B9
+4F58 38 0D 8. JR C,4F67
+4F5A CD 7E 52 .~R CALL 527E
+4F5D CD 96 52 ..R CALL 5296
+4F60 C1 . POP BC
+4F61 78 x LD A,B
+4F62 A9 . XOR C
+4F63 78 x LD A,B
+4F64 C3 71 4F .qO JP 4F71
+4F67 CD 86 52 ..R CALL 5286
+4F6A CD 82 52 ..R CALL 5282
+4F6D C1 . POP BC
+4F6E 79 y LD A,C
+4F6F A8 . XOR B
+4F70 79 y LD A,C
+4F71 08 . EX AF,AF'
+4F72 3A BD 52 :.R LD A,(52BD)
+4F75 21 C5 52 !.R LD HL,52C5
+4F78 96 . SUB (HL)
+4F79 28 0F (. JR Z,4F8A
+4F7B FE 0D .. CP 0D
+4F7D D2 D8 4F ..O JP NC,4FD8
+4F80 47 G LD B,A
+4F81 AF . XOR A
+4F82 21 BE 52 !.R LD HL,52BE
+4F85 CD 3A 52 .:R CALL 523A
+4F88 10 F7 .. DJNZ 4F81
+4F8A 06 07 .. LD B,07
+4F8C 21 C4 52 !.R LD HL,52C4
+4F8F 11 BC 52 ..R LD DE,52BC
+4F92 A7 . AND A
+4F93 08 . EX AF,AF'
+4F94 FA B8 4F ..O JP M,4FB8
+4F97 08 . EX AF,AF'
+4F98 1A . LD A,(DE)
+4F99 8E . ADC (HL)
+4F9A 27 ' DAA
+4F9B 12 . LD (DE),A
+4F9C 1B . DEC DE
+4F9D 2B + DEC HL
+4F9E 10 F8 .. DJNZ 4F98
+4FA0 3A B6 52 :.R LD A,(52B6)
+4FA3 E6 F0 .. AND F0
+4FA5 CA D8 4F ..O JP Z,4FD8
+4FA8 21 BD 52 !.R LD HL,52BD
+4FAB 34 4 INC (HL)
+4FAC CA B2 52 ..R JP Z,52B2
+4FAF 21 B6 52 !.R LD HL,52B6
+4FB2 CD 3A 52 .:R CALL 523A
+4FB5 C3 D8 4F ..O JP 4FD8
+4FB8 08 . EX AF,AF'
+4FB9 1A . LD A,(DE)
+4FBA 9E . SBC (HL)
+4FBB 27 ' DAA
+4FBC 12 . LD (DE),A
+4FBD 1B . DEC DE
+4FBE 2B + DEC HL
+4FBF 10 F8 .. DJNZ 4FB9
+4FC1 3A BD 52 :.R LD A,(52BD)
+4FC4 4F O LD C,A
+4FC5 21 B6 52 !.R LD HL,52B6
+4FC8 CD F6 51 ..Q CALL 51F6
+4FCB CA A6 52 ..R JP Z,52A6
+4FCE DA A6 52 ..R JP C,52A6
+4FD1 79 y LD A,C
+4FD2 32 BD 52 2.R LD (52BD),A
+4FD5 C3 D8 4F ..O JP 4FD8
+4FD8 21 B6 52 !.R LD HL,52B6
+4FDB CD 79 52 .yR CALL 5279
+4FDE C3 0B 51 ..Q JP 510B
+4FE1 AF . XOR A
+4FE2 DD BE 07 ... CP (IX+07)
+4FE5 CA A6 52 ..R JP Z,52A6
+4FE8 FD BE 07 ... CP (IY+07)
+4FEB CA A6 52 ..R JP Z,52A6
+4FEE DD 7E 00 .~. LD A,(IX+00)
+4FF1 FD AE 00 ... XOR (IY+00)
+4FF4 08 . EX AF,AF'
+4FF5 DD E5 .. PUSH IX
+4FF7 D1 . POP DE
+4FF8 21 06 00 !.. LD HL,0006
+4FFB 19 . ADD HL,DE
+4FFC 22 B4 52 ".R LD (52B4),HL
+4FFF EB . EX DE,HL
+5000 CD 93 51 ..Q CALL 5193
+5003 CD 86 52 ..R CALL 5286
+5006 FD 21 B6 52 .!.R LD IY,52B6
+500A CD A6 52 ..R CALL 52A6
+500D 06 07 .. LD B,07
+500F C3 1D 50 ..P JP 501D
+5012 AF . XOR A
+5013 CD 37 52 .7R CALL 5237
+5016 CD BD 50 ..P CALL 50BD
+5019 AF . XOR A
+501A CD 37 52 .7R CALL 5237
+501D FD 4E 06 .N. LD C,(IY+06)
+5020 FD 2B .+ DEC IY
+5022 CD BD 50 ..P CALL 50BD
+5025 10 EB .. DJNZ 5012
+5027 05 . DEC B
+5028 DD 7E 00 .~. LD A,(IX+00)
+502B E6 F0 .. AND F0
+502D 28 05 (. JR Z,5034
+502F 04 . INC B
+5030 AF . XOR A
+5031 CD 37 52 .7R CALL 5237
+5034 3A CD 52 :.R LD A,(52CD)
+5037 D6 80 .. SUB A,80
+5039 4F O LD C,A
+503A FD 7E 0E .~. LD A,(IY+0E)
+503D D6 80 .. SUB A,80
+503F 81 . ADD C
+5040 E2 4A 50 .JP JP PO,504A
+5043 80 . ADD B
+5044 E2 AD 51 ..Q JP PO,51AD
+5047 C3 4E 50 .NP JP 504E
+504A 80 . ADD B
+504B EA AD 51 ..Q JP PE,51AD
+504E C6 80 .. ADD A,80
+5050 CA A6 52 ..R JP Z,52A6
+5053 DD 77 07 .w. LD (IX+07),A
+5056 C3 0B 51 ..Q JP 510B
+5059 AF . XOR A
+505A FD BE 07 ... CP (IY+07)
+505D CA B2 52 ..R JP Z,52B2
+5060 DD BE 07 ... CP (IX+07)
+5063 CA A6 52 ..R JP Z,52A6
+5066 DD 7E 00 .~. LD A,(IX+00)
+5069 FD AE 00 ... XOR (IY+00)
+506C 08 . EX AF,AF'
+506D FD E5 .. PUSH IY
+506F E1 . POP HL
+5070 CD 93 51 ..Q CALL 5193
+5073 DD E5 .. PUSH IX
+5075 CD 7E 52 .~R CALL 527E
+5078 01 01 07 ... LD BC,0701
+507B C5 . PUSH BC
+507C 0E 0F .. LD C,0F
+507E 21 C6 52 !.R LD HL,52C6
+5081 CD 5A 51 .ZQ CALL 515A
+5084 30 18 0. JR NC,509E
+5086 C1 . POP BC
+5087 0D . DEC C
+5088 C5 . PUSH BC
+5089 C3 97 50 ..P JP 5097
+508C C5 . PUSH BC
+508D 21 B6 52 !.R LD HL,52B6
+5090 AF . XOR A
+5091 CD 1B 52 ..R CALL 521B
+5094 CD 19 51 ..Q CALL 5119
+5097 21 B6 52 !.R LD HL,52B6
+509A AF . XOR A
+509B CD 1B 52 ..R CALL 521B
+509E CD 19 51 ..Q CALL 5119
+50A1 79 y LD A,C
+50A2 2F / CPL
+50A3 DD 77 00 .w. LD (IX+00),A
+50A6 DD 23 .# INC IX
+50A8 C1 . POP BC
+50A9 10 E1 .. DJNZ 508C
+50AB 41 A LD B,C
+50AC 3A CD 52 :.R LD A,(52CD)
+50AF D6 80 .. SUB A,80
+50B1 4F O LD C,A
+50B2 3A BD 52 :.R LD A,(52BD)
+50B5 D6 80 .. SUB A,80
+50B7 91 . SUB C
+50B8 DD E1 .. POP IX
+50BA C3 40 50 .@P JP 5040
+50BD 21 CC 52 !.R LD HL,52CC
+50C0 CB 19 .. RR C
+50C2 DC DE 50 ..P CALL C,50DE
+50C5 21 D4 52 !.R LD HL,52D4
+50C8 CB 19 .. RR C
+50CA DC DE 50 ..P CALL C,50DE
+50CD 21 DC 52 !.R LD HL,52DC
+50D0 CB 19 .. RR C
+50D2 DC DE 50 ..P CALL C,50DE
+50D5 21 E4 52 !.R LD HL,52E4
+50D8 CB 19 .. RR C
+50DA DC DE 50 ..P CALL C,50DE
+50DD C9 . RET
+50DE ED 5B B4 52 .[.R LD DE,(52B4)
+50E2 1A . LD A,(DE)
+50E3 86 . ADD (HL)
+50E4 27 ' DAA
+50E5 12 . LD (DE),A
+50E6 1B . DEC DE
+50E7 2B + DEC HL
+50E8 1A . LD A,(DE)
+50E9 8E . ADC (HL)
+50EA 27 ' DAA
+50EB 12 . LD (DE),A
+50EC 1B . DEC DE
+50ED 2B + DEC HL
+50EE 1A . LD A,(DE)
+50EF 8E . ADC (HL)
+50F0 27 ' DAA
+50F1 12 . LD (DE),A
+50F2 1B . DEC DE
+50F3 2B + DEC HL
+50F4 1A . LD A,(DE)
+50F5 8E . ADC (HL)
+50F6 27 ' DAA
+50F7 12 . LD (DE),A
+50F8 1B . DEC DE
+50F9 2B + DEC HL
+50FA 1A . LD A,(DE)
+50FB 8E . ADC (HL)
+50FC 27 ' DAA
+50FD 12 . LD (DE),A
+50FE 1B . DEC DE
+50FF 2B + DEC HL
+5100 1A . LD A,(DE)
+5101 8E . ADC (HL)
+5102 27 ' DAA
+5103 12 . LD (DE),A
+5104 1B . DEC DE
+5105 2B + DEC HL
+5106 1A . LD A,(DE)
+5107 8E . ADC (HL)
+5108 27 ' DAA
+5109 12 . LD (DE),A
+510A C9 . RET
+510B DD 7E 00 .~. LD A,(IX+00)
+510E E6 0F .. AND 0F
+5110 47 G LD B,A
+5111 08 . EX AF,AF'
+5112 E6 80 .. AND 80
+5114 B0 . OR B
+5115 DD 77 00 .w. LD (IX+00),A
+5118 C9 . RET
+5119 21 DE 52 !.R LD HL,52DE
+511C CD 5A 51 .ZQ CALL 515A
+511F 38 06 8. JR C,5127
+5121 21 E4 52 !.R LD HL,52E4
+5124 CD 67 51 .gQ CALL 5167
+5127 CB 11 .. RL C
+5129 21 D6 52 !.R LD HL,52D6
+512C CD 5A 51 .ZQ CALL 515A
+512F 38 06 8. JR C,5137
+5131 21 DC 52 !.R LD HL,52DC
+5134 CD 67 51 .gQ CALL 5167
+5137 CB 11 .. RL C
+5139 21 CE 52 !.R LD HL,52CE
+513C CD 5A 51 .ZQ CALL 515A
+513F 38 06 8. JR C,5147
+5141 21 D4 52 !.R LD HL,52D4
+5144 CD 67 51 .gQ CALL 5167
+5147 CB 11 .. RL C
+5149 21 C6 52 !.R LD HL,52C6
+514C CD 5A 51 .ZQ CALL 515A
+514F 38 06 8. JR C,5157
+5151 21 CC 52 !.R LD HL,52CC
+5154 CD 67 51 .gQ CALL 5167
+5157 CB 11 .. RL C
+5159 C9 . RET
+515A 11 B6 52 ..R LD DE,52B6
+515D 06 07 .. LD B,07
+515F 1A . LD A,(DE)
+5160 BE . CP (HL)
+5161 C0 . RET NZ
+5162 23 # INC HL
+5163 13 . INC DE
+5164 10 F9 .. DJNZ 515F
+5166 C9 . RET
+5167 11 BC 52 ..R LD DE,52BC
+516A 1A . LD A,(DE)
+516B 96 . SUB (HL)
+516C 27 ' DAA
+516D 12 . LD (DE),A
+516E 1B . DEC DE
+516F 2B + DEC HL
+5170 1A . LD A,(DE)
+5171 9E . SBC (HL)
+5172 27 ' DAA
+5173 12 . LD (DE),A
+5174 1B . DEC DE
+5175 2B + DEC HL
+5176 1A . LD A,(DE)
+5177 9E . SBC (HL)
+5178 27 ' DAA
+5179 12 . LD (DE),A
+517A 1B . DEC DE
+517B 2B + DEC HL
+517C 1A . LD A,(DE)
+517D 9E . SBC (HL)
+517E 27 ' DAA
+517F 12 . LD (DE),A
+5180 1B . DEC DE
+5181 2B + DEC HL
+5182 1A . LD A,(DE)
+5183 9E . SBC (HL)
+5184 27 ' DAA
+5185 12 . LD (DE),A
+5186 1B . DEC DE
+5187 2B + DEC HL
+5188 1A . LD A,(DE)
+5189 9E . SBC (HL)
+518A 27 ' DAA
+518B 12 . LD (DE),A
+518C 1B . DEC DE
+518D 2B + DEC HL
+518E 1A . LD A,(DE)
+518F 9E . SBC (HL)
+5190 27 ' DAA
+5191 12 . LD (DE),A
+5192 C9 . RET
+5193 11 C6 52 ..R LD DE,52C6
+5196 CD 73 52 .sR CALL 5273
+5199 21 C6 52 !.R LD HL,52C6
+519C CB BE .. RES 7,(HL)
+519E 06 03 .. LD B,03
+51A0 78 x LD A,B
+51A1 CD 73 52 .sR CALL 5273
+51A4 47 G LD B,A
+51A5 A7 . AND A
+51A6 CD 53 52 .SR CALL 5253
+51A9 23 # INC HL
+51AA 10 F4 .. DJNZ 51A0
+51AC C9 . RET
+51AD F2 A6 52 ..R JP P,52A6
+51B0 C3 B2 52 ..R JP 52B2
+51B3 DD 56 00 .V. LD D,(IX+00)
+51B6 FD 5E 00 .^. LD E,(IY+00)
+51B9 7A z LD A,D
+51BA E6 80 .. AND 80
+51BC 20 13 . JR NZ,51D1
+51BE CB 7B .{ BIT 7,E
+51C0 C0 . RET NZ
+51C1 DD 7E 07 .~. LD A,(IX+07)
+51C4 FD BE 07 ... CP (IY+07)
+51C7 C0 . RET NZ
+51C8 7A z LD A,D
+51C9 BB . CP E
+51CA C0 . RET NZ
+51CB DD E5 .. PUSH IX
+51CD FD E5 .. PUSH IY
+51CF 18 11 .. JR 51E2
+51D1 AB . XOR E
+51D2 17 . RLA
+51D3 D8 . RET C
+51D4 FD 7E 07 .~. LD A,(IY+07)
+51D7 DD BE 07 ... CP (IX+07)
+51DA C0 . RET NZ
+51DB 7B { LD A,E
+51DC BA . CP D
+51DD C0 . RET NZ
+51DE FD E5 .. PUSH IY
+51E0 DD E5 .. PUSH IX
+51E2 E1 . POP HL
+51E3 D1 . POP DE
+51E4 23 # INC HL
+51E5 13 . INC DE
+51E6 06 06 .. LD B,06
+51E8 1A . LD A,(DE)
+51E9 BE . CP (HL)
+51EA C0 . RET NZ
+51EB 23 # INC HL
+51EC 13 . INC DE
+51ED 10 F9 .. DJNZ 51E8
+51EF C9 . RET
+51F0 DD 4E 07 .N. LD C,(IX+07)
+51F3 DD E5 .. PUSH IX
+51F5 E1 . POP HL
+51F6 7E ~ LD A,(HL)
+51F7 A7 . AND A
+51F8 20 10 . JR NZ,520A
+51FA 06 0C .. LD B,0C
+51FC AF . XOR A
+51FD 0D . DEC C
+51FE 28 0E (. JR Z,520E
+5200 CD 1B 52 ..R CALL 521B
+5203 23 # INC HL
+5204 7E ~ LD A,(HL)
+5205 A7 . AND A
+5206 20 02 . JR NZ,520A
+5208 10 F3 .. DJNZ 51FD
+520A DD 71 07 .q. LD (IX+07),C
+520D C9 . RET
+520E 04 . INC B
+520F CB 38 .8 SLR B
+5211 23 # INC HL
+5212 B6 . OR (HL)
+5213 10 FC .. DJNZ 5211
+5215 C8 . RET Z
+5216 37 7 SCF
+5217 C9 . RET
+5218 DD E5 .. PUSH IX
+521A E1 . POP HL
+521B C5 . PUSH BC
+521C 01 06 00 ... LD BC,0006
+521F 09 . ADD HL,BC
+5220 ED 6F .o RLD
+5222 2B + DEC HL
+5223 ED 6F .o RLD
+5225 2B + DEC HL
+5226 ED 6F .o RLD
+5228 2B + DEC HL
+5229 ED 6F .o RLD
+522B 2B + DEC HL
+522C ED 6F .o RLD
+522E 2B + DEC HL
+522F ED 6F .o RLD
+5231 2B + DEC HL
+5232 ED 6F .o RLD
+5234 2B + DEC HL
+5235 C1 . POP BC
+5236 C9 . RET
+5237 DD E5 .. PUSH IX
+5239 E1 . POP HL
+523A ED 67 .g RRD
+523C 23 # INC HL
+523D ED 67 .g RRD
+523F 23 # INC HL
+5240 ED 67 .g RRD
+5242 23 # INC HL
+5243 ED 67 .g RRD
+5245 23 # INC HL
+5246 ED 67 .g RRD
+5248 23 # INC HL
+5249 ED 67 .g RRD
+524B 23 # INC HL
+524C ED 67 .g RRD
+524E 23 # INC HL
+524F C9 . RET
+5250 DD E5 .. PUSH IX
+5252 E1 . POP HL
+5253 C5 . PUSH BC
+5254 01 06 00 ... LD BC,0006
+5257 09 . ADD HL,BC
+5258 06 07 .. LD B,07
+525A 7E ~ LD A,(HL)
+525B 8F . ADC A
+525C 27 ' DAA
+525D 77 w LD (HL),A
+525E 2B + DEC HL
+525F 10 F9 .. DJNZ 525A
+5261 C1 . POP BC
+5262 C9 . RET
+5263 11 E6 52 ..R LD DE,52E6
+5266 18 08 .. JR 5270
+5268 11 EE 52 ..R LD DE,52EE
+526B 18 03 .. JR 5270
+526D 11 F6 52 ..R LD DE,52F6
+5270 DD E5 .. PUSH IX
+5272 E1 . POP HL
+5273 01 08 00 ... LD BC,0008
+5276 ED B0 .. LDIR
+5278 C9 . RET
+5279 DD E5 .. PUSH IX
+527B D1 . POP DE
+527C 18 F5 .. JR 5273
+527E DD E5 .. PUSH IX
+5280 18 06 .. JR 5288
+5282 DD E5 .. PUSH IX
+5284 18 12 .. JR 5298
+5286 FD E5 .. PUSH IY
+5288 E1 . POP HL
+5289 11 B6 52 ..R LD DE,52B6
+528C CD 73 52 .sR CALL 5273
+528F 21 B6 52 !.R LD HL,52B6
+5292 56 V LD D,(HL)
+5293 CB BE .. RES 7,(HL)
+5295 C9 . RET
+5296 FD E5 .. PUSH IY
+5298 E1 . POP HL
+5299 11 BE 52 ..R LD DE,52BE
+529C CD 73 52 .sR CALL 5273
+529F 21 BE 52 !.R LD HL,52BE
+52A2 5E ^ LD E,(HL)
+52A3 CB BE .. RES 7,(HL)
+52A5 C9 . RET
+52A6 06 08 .. LD B,08
+52A8 DD E5 .. PUSH IX
+52AA E1 . POP HL
+52AB 36 00 6. LD (HL),00
+52AD 23 # INC HL
+52AE 10 FB .. DJNZ 52AB
+52B0 B7 . OR A
+52B1 C9 . RET
+52B2 37 7 SCF
+52B3 C9 . RET
+52B4 FF . RST 38
+52B5 FF . RST 38
+52B6 FF . RST 38
+52B7 FF . RST 38
+52B8 FF . RST 38
+52B9 FF . RST 38
+52BA FF . RST 38
+52BB FF . RST 38
+52BC FF . RST 38
+52BD FF . RST 38
+52BE FF . RST 38
+52BF FF . RST 38
+52C0 FF . RST 38
+52C1 FF . RST 38
+52C2 FF . RST 38
+52C3 FF . RST 38
+52C4 FF . RST 38
+52C5 FF . RST 38
+52C6 FF . RST 38
+52C7 FF . RST 38
+52C8 FF . RST 38
+52C9 FF . RST 38
+52CA FF . RST 38
+52CB FF . RST 38
+52CC FF . RST 38
+52CD FF . RST 38
+52CE FF . RST 38
+52CF FF . RST 38
+52D0 FF . RST 38
+52D1 FF . RST 38
+52D2 FF . RST 38
+52D3 FF . RST 38
+52D4 FF . RST 38
+52D5 FF . RST 38
+52D6 FF . RST 38
+52D7 FF . RST 38
+52D8 FF . RST 38
+52D9 FF . RST 38
+52DA FF . RST 38
+52DB FF . RST 38
+52DC FF . RST 38
+52DD FF . RST 38
+52DE FF . RST 38
+52DF FF . RST 38
+52E0 FF . RST 38
+52E1 FF . RST 38
+52E2 FF . RST 38
+52E3 FF . RST 38
+52E4 FF . RST 38
+52E5 FF . RST 38
+52E6 FF . RST 38
+52E7 FF . RST 38
+52E8 FF . RST 38
+52E9 FF . RST 38
+52EA FF . RST 38
+52EB FF . RST 38
+52EC FF . RST 38
+52ED FF . RST 38
+52EE FF . RST 38
+52EF FF . RST 38
+52F0 FF . RST 38
+52F1 FF . RST 38
+52F2 FF . RST 38
+52F3 FF . RST 38
+52F4 FF . RST 38
+52F5 FF . RST 38
+52F6 FF . RST 38
+52F7 FF . RST 38
+52F8 FF . RST 38
+52F9 FF . RST 38
+52FA FF . RST 38
+52FB FF . RST 38
+52FC FF . RST 38
+52FD FF . RST 38
+52FE 97 . SUB A
+52FF CD 93 4C ..L CALL 4C93
+5302 C3 26 29 .&) JP 2926
+5305 C9 . RET
+5306 31 37 35 175 LD SP,3537 ; "175 bitmap 2 (!)"
+5309 20 62 b JR NZ,536D
+530B 69 i LD L,C
+530C 74 t LD (HL),H
+530D 6D m LD L,L
+530E 61 a LD H,C
+530F 70 p LD (HL),B
+5310 20 20 JR NZ,5332
+5312 20 32 2 JR NZ,5346
+5314 20 28 ( JR NZ,533E
+5316 21 29 CD !). LD HL,CD29
+5319 9D . SBC L
+531A 53 S LD D,E
+531B ED 5B 46 53 .[FS LD DE,(5346)
+531F 7B { LD A,E
+5320 FE 14 .. CP 14
+5322 D0 . RET NC
+5323 CD 41 5D .A] CALL 5D41
+5326 CB FD .. SET 7,L
+5328 CB 8E .. RES 1,(HL)
+532A CB BD .. RES 7,L
+532C D5 . PUSH DE
+532D 65 e LD H,L
+532E CB 24 .$ SLA H
+5330 2E 00 .. LD L,00
+5332 54 T LD D,H
+5333 5D ] LD E,L
+5334 13 . INC DE
+5335 01 FF 01 ... LD BC,01FF
+5338 36 FF 6. LD (HL),FF
+533A ED B0 .. LDIR
+533C D1 . POP DE
+533D 1C . INC E
+533E 1C . INC E
+533F ED 53 46 53 .SFS LD (5346),DE
+5343 C3 1F 53 ..S JP 531F
+5346 04 . INC B
+5347 00 . NOP
+5348 C5 . PUSH BC
+5349 E5 . PUSH HL
+534A 42 B LD B,D
+534B 4B K LD C,E
+534C CB 38 .8 SLR B
+534E CB 19 .. RR C
+5350 CB 38 .8 SLR B
+5352 CB 19 .. RR C
+5354 CB 38 .8 SLR B
+5356 CB 19 .. RR C
+5358 CB 38 .8 SLR B
+535A CB 19 .. RR C
+535C FD 21 00 00 .!.. LD IY,0000
+5360 2A FD 56 *.V LD HL,(56FD)
+5363 D5 . PUSH DE
+5364 11 08 00 ... LD DE,0008
+5367 7E ~ LD A,(HL)
+5368 B7 . OR A
+5369 28 13 (. JR Z,537E
+536B FE FF .. CP FF
+536D 28 0D (. JR Z,537C
+536F C5 . PUSH BC
+5370 06 08 .. LD B,08
+5372 1F . RRA
+5373 30 02 0. JR NC,5377
+5375 FD 23 .# INC IY
+5377 10 F9 .. DJNZ 5372
+5379 C1 . POP BC
+537A 18 02 .. JR 537E
+537C FD 19 .. ADD IY,DE
+537E ED A1 .. CPI
+5380 EA 67 53 .gS JP PE,5367
+5383 D1 . POP DE
+5384 7B { LD A,E
+5385 1F . RRA
+5386 E6 07 .. AND 07
+5388 28 09 (. JR Z,5393
+538A 47 G LD B,A
+538B 7E ~ LD A,(HL)
+538C 1F . RRA
+538D 30 02 0. JR NC,5391
+538F FD 23 .# INC IY
+5391 10 F9 .. DJNZ 538C
+5393 FD 29 .) ADD IY,HL
+5395 FD 23 .# INC IY
+5397 E1 . POP HL
+5398 C1 . POP BC
+5399 FD E5 .. PUSH IY
+539B D1 . POP DE
+539C C9 . RET
+539D 97 . SUB A
+539E 01 05 00 ... LD BC,0005
+53A1 11 00 00 ... LD DE,0000
+53A4 CD A8 28 ..( CALL 28A8
+53A7 ED 43 0A 57 .C.W LD (570A),BC
+53AB E5 . PUSH HL
+53AC 60 ` LD H,B
+53AD 69 i LD L,C
+53AE 06 06 .. LD B,06
+53B0 CB 3C .< SLR H
+53B2 CB 1D .. RR L
+53B4 10 FA .. DJNZ 53B0
+53B6 7D } LD A,L
+53B7 C6 28 .( ADD A,28
+53B9 6F o LD L,A
+53BA 30 01 0. JR NC,53BD
+53BC 24 $ INC H
+53BD 22 10 57 ".W LD (5710),HL
+53C0 E1 . POP HL
+53C1 ED 4B 0A 57 .K.W LD BC,(570A)
+53C5 CB 28 .( SRA B
+53C7 CB 19 .. RR C
+53C9 CB 28 .( SRA B
+53CB CB 19 .. RR C
+53CD CB 28 .( SRA B
+53CF CB 19 .. RR C
+53D1 ED 43 FB 56 .C.V LD (56FB),BC
+53D5 C9 . RET
+53D6 E5 . PUSH HL
+53D7 2A FD 56 *.V LD HL,(56FD)
+53DA CD DF 53 ..S CALL 53DF
+53DD E1 . POP HL
+53DE C9 . RET
+53DF C5 . PUSH BC
+53E0 E5 . PUSH HL
+53E1 2A F9 56 *.V LD HL,(56F9)
+53E4 B7 . OR A
+53E5 ED 52 .R SBC HL,DE
+53E7 20 10 . JR NZ,53F9
+53E9 CD 1F 70 ..p CALL 701F ; Info aufrufen
+53EC 18 0B .. JR 53F9 ; " bnr gleich"
+53EE 20 62 b JR NZ,5452
+53F0 6E n LD L,(HL)
+53F1 72 r LD (HL),D
+53F2 20 67 g JR NZ,545B
+53F4 6C l LD L,H
+53F5 65 e LD H,L
+53F6 69 i LD L,C
+53F7 63 c LD H,E
+53F8 68 h LD L,B
+53F9 E1 . POP HL
+53FA ED 4B FB 56 .K.V LD BC,(56FB)
+53FE F5 . PUSH AF
+53FF D5 . PUSH DE
+5400 CD 66 56 .fV CALL 5666
+5403 30 04 0. JR NC,5409
+5405 19 . ADD HL,DE
+5406 2F / CPL
+5407 A6 . AND (HL)
+5408 77 w LD (HL),A
+5409 D1 . POP DE
+540A F1 . POP AF
+540B C1 . POP BC
+540C C9 . RET
+540D E5 . PUSH HL
+540E 2A FF 56 *.V LD HL,(56FF)
+5411 CD DF 53 ..S CALL 53DF
+5414 E1 . POP HL
+5415 C9 . RET
+5416 E5 . PUSH HL
+5417 D5 . PUSH DE
+5418 C5 . PUSH BC
+5419 CD 9D 53 ..S CALL 539D
+541C 78 x LD A,B
+541D 3C < INC A
+541E 3C < INC A
+541F CD B1 5F .._ CALL 5FB1
+5422 22 FD 56 ".V LD (56FD),HL
+5425 CD 3A 54 .:T CALL 543A
+5428 22 FF 56 ".V LD (56FF),HL
+542B 54 T LD D,H
+542C 5D ] LD E,L
+542D 13 . INC DE
+542E 36 FF 6. LD (HL),FF
+5430 ED 4B FB 56 .K.V LD BC,(56FB)
+5434 ED B0 .. LDIR
+5436 C1 . POP BC
+5437 D1 . POP DE
+5438 E1 . POP HL
+5439 C9 . RET
+543A 11 04 00 ... LD DE,0004
+543D ED 4B FB 56 .K.V LD BC,(56FB)
+5441 C5 . PUSH BC
+5442 D5 . PUSH DE
+5443 E5 . PUSH HL
+5444 CD 46 81 .F. CALL 8146
+5447 67 g LD H,A
+5448 2E 00 .. LD L,00
+544A D1 . POP DE
+544B 01 00 02 ... LD BC,0200
+544E ED B0 .. LDIR
+5450 62 b LD H,D
+5451 6B k LD L,E
+5452 D1 . POP DE
+5453 1C . INC E
+5454 1C . INC E
+5455 C1 . POP BC
+5456 05 . DEC B
+5457 05 . DEC B
+5458 F2 41 54 .AT JP P,5441
+545B C9 . RET
+545C E5 . PUSH HL
+545D D5 . PUSH DE
+545E C5 . PUSH BC
+545F F5 . PUSH AF
+5460 3A 13 57 :.W LD A,(5713)
+5463 B7 . OR A
+5464 C2 12 55 ..U JP NZ,5512
+5467 2A 08 57 *.W LD HL,(5708)
+546A 22 0C 57 ".W LD (570C),HL
+546D 21 04 00 !.. LD HL,0004
+5470 ED 4B FB 56 .K.V LD BC,(56FB)
+5474 ED 5B FD 56 .[.V LD DE,(56FD)
+5478 FD 21 00 00 .!.. LD IY,0000
+547C 3E 01 >. LD A,01
+547E 32 12 57 2.W LD (5712),A
+5481 E5 . PUSH HL
+5482 C5 . PUSH BC
+5483 D5 . PUSH DE
+5484 EB . EX DE,HL
+5485 FD E5 .. PUSH IY
+5487 CD 46 81 .F. CALL 8146
+548A FD E1 .. POP IY
+548C 67 g LD H,A
+548D 2E 00 .. LD L,00
+548F D1 . POP DE
+5490 01 00 02 ... LD BC,0200
+5493 1A . LD A,(DE)
+5494 AE . XOR (HL)
+5495 77 w LD (HL),A
+5496 87 . ADD A
+5497 30 02 0. JR NC,549B
+5499 FD 23 .# INC IY
+549B 20 F9 . JR NZ,5496
+549D 13 . INC DE
+549E ED A1 .. CPI
+54A0 EA 93 54 ..T JP PE,5493
+54A3 C1 . POP BC
+54A4 E1 . POP HL
+54A5 2C , INC L
+54A6 2C , INC L
+54A7 05 . DEC B
+54A8 05 . DEC B
+54A9 F2 81 54 ..T JP P,5481
+54AC 2A 0C 57 *.W LD HL,(570C)
+54AF ED 4B 08 57 .K.W LD BC,(5708)
+54B3 B7 . OR A
+54B4 ED 42 .B SBC HL,BC
+54B6 FD E5 .. PUSH IY
+54B8 C1 . POP BC
+54B9 09 . ADD HL,BC
+54BA 44 D LD B,H
+54BB 4D M LD C,L
+54BC 2A 0A 57 *.W LD HL,(570A)
+54BF B7 . OR A
+54C0 ED 42 .B SBC HL,BC
+54C2 30 0C 0. JR NC,54D0
+54C4 CD 1F 70 ..p CALL 701F ; Info aufrufen
+54C7 18 07 .. JR 54D0 ; " HGVOLL"
+54C9 20 48 H JR NZ,5513
+54CB 47 G LD B,A
+54CC 56 V LD D,(HL)
+54CD 4F O LD C,A
+54CE 4C L LD C,H
+54CF 4C L LD C,H
+54D0 ED 4B 10 57 .K.W LD BC,(5710)
+54D4 ED 42 .B SBC HL,BC
+54D6 22 08 57 ".W LD (5708),HL
+54D9 B7 . OR A
+54DA 01 14 00 ... LD BC,0014
+54DD ED 42 .B SBC HL,BC
+54DF 3E 00 >. LD A,00
+54E1 DC FA 54 ..T CALL C,54FA
+54E4 32 13 57 2.W LD (5713),A
+54E7 CD CD 5F .._ CALL 5FCD
+54EA 11 04 00 ... LD DE,0004
+54ED ED 53 0E 57 .S.W LD (570E),DE
+54F1 97 . SUB A
+54F2 32 12 57 2.W LD (5712),A
+54F5 F1 . POP AF
+54F6 C1 . POP BC
+54F7 D1 . POP DE
+54F8 E1 . POP HL
+54F9 C9 . RET
+54FA 2A 08 57 *.W LD HL,(5708)
+54FD ED 4B 10 57 .K.W LD BC,(5710)
+5501 09 . ADD HL,BC
+5502 22 08 57 ".W LD (5708),HL
+5505 21 81 18 !.. LD HL,1881
+5508 06 7D .} LD B,7D
+550A CB CE .. SET 1,(HL)
+550C 23 # INC HL
+550D 10 FB .. DJNZ 550A
+550F 3E 01 >. LD A,01
+5511 C9 . RET
+5512 2A FD 56 *.V LD HL,(56FD)
+5515 ED 4B FB 56 .K.V LD BC,(56FB)
+5519 11 00 00 ... LD DE,0000
+551C 7E ~ LD A,(HL)
+551D 87 . ADD A
+551E 30 01 0. JR NC,5521
+5520 13 . INC DE
+5521 20 FA . JR NZ,551D
+5523 ED A1 .. CPI
+5525 EA 1C 55 ..U JP PE,551C
+5528 62 b LD H,D
+5529 6B k LD L,E
+552A B7 . OR A
+552B ED 5B 10 57 .[.W LD DE,(5710)
+552F ED 52 .R SBC HL,DE
+5531 3E 00 >. LD A,00
+5533 CE 00 .. ADC A,00
+5535 32 13 57 2.W LD (5713),A
+5538 20 0F . JR NZ,5549
+553A 21 17 82 !.. LD HL,8217
+553D 36 03 6. LD (HL),03
+553F 06 7D .} LD B,7D
+5541 21 81 18 !.. LD HL,1881
+5544 CB 8E .. RES 1,(HL)
+5546 23 # INC HL
+5547 10 FB .. DJNZ 5544
+5549 CD CD 5F .._ CALL 5FCD
+554C 18 A3 .. JR 54F1
+554E 21 12 57 !.W LD HL,5712
+5551 7E ~ LD A,(HL)
+5552 B7 . OR A
+5553 C2 1A 6C ..l JP NZ,6C1A
+5556 D5 . PUSH DE
+5557 C5 . PUSH BC
+5558 2A 08 57 *.W LD HL,(5708)
+555B 2B + DEC HL
+555C CB 7C .| BIT 7,H
+555E 28 07 (. JR Z,5567
+5560 CD 0E 6E ..n CALL 6E0E
+5563 FE 4D .M CP 4D
+5565 20 63 c JR NZ,55CA
+5567 22 08 57 ".W LD (5708),HL
+556A ED 5B 0E 57 .[.W LD DE,(570E)
+556E CD 41 5D .A] CALL 5D41
+5571 CB FD .. SET 7,L
+5573 CB 8E .. RES 1,(HL)
+5575 65 e LD H,L
+5576 2E 00 .. LD L,00
+5578 CB 24 .$ SLA H
+557A 01 00 02 ... LD BC,0200
+557D CD F7 55 ..U CALL 55F7
+5580 30 22 0" JR NC,55A4
+5582 ED 5B 0E 57 .[.W LD DE,(570E)
+5586 7B { LD A,E
+5587 D6 04 .. SUB A,04
+5589 87 . ADD A
+558A 87 . ADD A
+558B 87 . ADD A
+558C 87 . ADD A
+558D 1E 00 .. LD E,00
+558F 57 W LD D,A
+5590 19 . ADD HL,DE
+5591 ED 5B 0A 57 .[.W LD DE,(570A)
+5595 CB 23 .# SLA E
+5597 CB 12 .. RL D
+5599 B7 . OR A
+559A E5 . PUSH HL
+559B ED 52 .R SBC HL,DE
+559D E1 . POP HL
+559E 30 10 0. JR NC,55B0
+55A0 C1 . POP BC
+55A1 D1 . POP DE
+55A2 B7 . OR A
+55A3 C9 . RET
+55A4 ED 5B 0E 57 .[.W LD DE,(570E)
+55A8 1C . INC E
+55A9 1C . INC E
+55AA ED 53 0E 57 .S.W LD (570E),DE
+55AE 18 BA .. JR 556A
+55B0 CD 0E 6E ..n CALL 6E0E
+55B3 FE 4D .M CP 4D ; Muell-Prozess ?
+55B5 20 04 . JR NZ,55BB
+55B7 C1 . POP BC
+55B8 D1 . POP DE
+55B9 37 7 SCF
+55BA C9 . RET
+55BB CD 1F 70 ..p CALL 701F ; Info aufrufen
+55BE 18 08 .. JR 55C8 ; " HG voll"
+55C0 20 48 H JR NZ,560A
+55C2 47 G LD B,A
+55C3 20 76 v JR NZ,563B
+55C5 6F o LD L,A
+55C6 6C l LD L,H
+55C7 6C l LD L,H
+55C8 18 F1 .. JR 55BB
+55CA 21 17 82 !.. LD HL,8217
+55CD 7E ~ LD A,(HL)
+55CE B7 . OR A
+55CF CB C6 .. SET 0,(HL)
+55D1 20 03 . JR NZ,55D6
+55D3 3E 03 >. LD A,03
+55D5 77 w LD (HL),A
+55D6 C3 1A 6C ..l JP 6C1A
+55D9 D5 . PUSH DE
+55DA E5 . PUSH HL
+55DB EB . EX DE,HL
+55DC 01 00 01 ... LD BC,0100
+55DF CD F7 55 ..U CALL 55F7
+55E2 44 D LD B,H
+55E3 4D M LD C,L
+55E4 E1 . POP HL
+55E5 D1 . POP DE
+55E6 C9 . RET
+55E7 D5 . PUSH DE
+55E8 C5 . PUSH BC
+55E9 2A FF 56 *.V LD HL,(56FF)
+55EC ED 4B FB 56 .K.V LD BC,(56FB)
+55F0 03 . INC BC
+55F1 CD F7 55 ..U CALL 55F7
+55F4 C1 . POP BC
+55F5 D1 . POP DE
+55F6 C9 . RET
+55F7 E5 . PUSH HL
+55F8 3E FF >. LD A,FF
+55FA 03 . INC BC
+55FB ED A1 .. CPI
+55FD E2 2B 56 .+V JP PO,562B
+5600 28 F9 (. JR Z,55FB
+5602 2B + DEC HL
+5603 06 08 .. LD B,08
+5605 CB 1E .. RR (HL)
+5607 30 02 0. JR NC,560B
+5609 10 FA .. DJNZ 5605
+560B 3E 08 >. LD A,08
+560D 90 . SUB B
+560E 37 7 SCF
+560F CB 1E .. RR (HL)
+5611 10 FC .. DJNZ 560F
+5613 C1 . POP BC
+5614 B7 . OR A
+5615 ED 42 .B SBC HL,BC
+5617 CB 25 .% SLA L
+5619 CB 14 .. RL H
+561B CB 25 .% SLA L
+561D CB 14 .. RL H
+561F CB 25 .% SLA L
+5621 CB 14 .. RL H
+5623 B5 . OR L
+5624 6F o LD L,A
+5625 CB 25 .% SLA L
+5627 CB 14 .. RL H
+5629 37 7 SCF
+562A C9 . RET
+562B E1 . POP HL
+562C B7 . OR A
+562D C9 . RET
+562E E5 . PUSH HL
+562F 2A 08 57 *.W LD HL,(5708)
+5632 CB 3C .< SLR H
+5634 CB 1D .. RR L
+5636 B7 . OR A
+5637 ED 42 .B SBC HL,BC
+5639 E1 . POP HL
+563A D0 . RET NC
+563B CD 20 6E . n CALL 6E20
+563E C5 . PUSH BC
+563F 3A 17 82 :.. LD A,(8217)
+5642 BA . CP D
+5643 28 09 (. JR Z,564E
+5645 D5 . PUSH DE
+5646 CD C1 81 ... CALL 81C1
+5649 D1 . POP DE
+564A 7A z LD A,D
+564B 32 17 82 2.. LD (8217),A
+564E CD C1 81 ... CALL 81C1
+5651 CD CC 56 ..V CALL 56CC
+5654 B7 . OR A
+5655 ED 42 .B SBC HL,BC
+5657 C1 . POP BC
+5658 ED 42 .B SBC HL,BC
+565A 38 05 8. JR C,5661
+565C CD 2A 6E .*n CALL 6E2A
+565F B7 . OR A
+5660 C9 . RET
+5661 CD 2A 6E .*n CALL 6E2A
+5664 37 7 SCF
+5665 C9 . RET
+5666 CB 3A .: SLR D
+5668 CB 1B .. RR E
+566A 7B { LD A,E
+566B E6 07 .. AND 07
+566D CB 3A .: SLR D
+566F CB 1B .. RR E
+5671 CB 3A .: SLR D
+5673 CB 1B .. RR E
+5675 CB 3A .: SLR D
+5677 CB 1B .. RR E
+5679 E5 . PUSH HL
+567A 21 14 57 !.W LD HL,5714
+567D 85 . ADD L
+567E 6F o LD L,A
+567F 30 01 0. JR NC,5682
+5681 24 $ INC H
+5682 7E ~ LD A,(HL)
+5683 60 ` LD H,B
+5684 69 i LD L,C
+5685 B7 . OR A
+5686 ED 52 .R SBC HL,DE
+5688 30 1B 0. JR NC,56A5
+568A CD 1F 70 ..p CALL 701F
+568D 18 10 .. JR 569F
+568F 20 66 f JR NZ,56F7 ; Info aufrufen
+5691 61 a LD H,C ; " falsches setbit"
+5692 6C l LD L,H
+5693 73 s LD (HL),E
+5694 63 c LD H,E
+5695 68 h LD L,B
+5696 65 e LD H,L
+5697 73 s LD (HL),E
+5698 20 73 s JR NZ,570D
+569A 65 e LD H,L
+569B 74 t LD (HL),H
+569C 62 b LD H,D
+569D 69 i LD L,C
+569E 74 t LD (HL),H
+569F E1 . POP HL
+56A0 11 00 00 ... LD DE,0000
+56A3 AF . XOR A
+56A4 C9 . RET
+56A5 E1 . POP HL
+56A6 37 7 SCF
+56A7 C9 . RET
+56A8 E5 . PUSH HL
+56A9 D5 . PUSH DE
+56AA C5 . PUSH BC
+56AB ED 4B FB 56 .K.V LD BC,(56FB)
+56AF CD 66 56 .fV CALL 5666
+56B2 F5 . PUSH AF
+56B3 D5 . PUSH DE
+56B4 7A z LD A,D
+56B5 C6 04 .. ADD A,04
+56B7 5F _ LD E,A
+56B8 16 00 .. LD D,00
+56BA CD 46 81 .F. CALL 8146
+56BD 67 g LD H,A
+56BE 2E 00 .. LD L,00
+56C0 D1 . POP DE
+56C1 7A z LD A,D
+56C2 E6 01 .. AND 01
+56C4 57 W LD D,A
+56C5 F1 . POP AF
+56C6 19 . ADD HL,DE
+56C7 A6 . AND (HL)
+56C8 C1 . POP BC
+56C9 D1 . POP DE
+56CA E1 . POP HL
+56CB C9 . RET
+56CC 2A 0A 57 *.W LD HL,(570A)
+56CF ED 4B 10 57 .K.W LD BC,(5710)
+56D3 B7 . OR A
+56D4 ED 42 .B SBC HL,BC
+56D6 ED 4B 08 57 .K.W LD BC,(5708)
+56DA E5 . PUSH HL
+56DB ED 42 .B SBC HL,BC
+56DD 3A 13 57 :.W LD A,(5713)
+56E0 B7 . OR A
+56E1 28 05 (. JR Z,56E8
+56E3 ED 4B 10 57 .K.W LD BC,(5710)
+56E7 09 . ADD HL,BC
+56E8 44 D LD B,H
+56E9 4D M LD C,L
+56EA E1 . POP HL
+56EB CB 3C .< SLR H
+56ED CB 1D .. RR L
+56EF CB 38 .8 SLR B
+56F1 CB 19 .. RR C
+56F3 C9 . RET
+56F4 76 v HALT ; "vergl"
+56F5 65 e LD H,L
+56F6 72 r LD (HL),D
+56F7 67 g LD H,A
+56F8 6C l LD L,H
+56F9 FF . RST 38
+56FA FF . RST 38
+56FB 00 . NOP
+56FC 00 . NOP
+56FD 00 . NOP
+56FE 00 . NOP
+56FF 00 . NOP
+5700 00 . NOP
+5701 68 h LD L,B ; "hgfrei"
+5702 67 g LD H,A
+5703 66 f LD H,(HL)
+5704 72 r LD (HL),D
+5705 65 e LD H,L
+5706 69 i LD L,C
+5707 20 00 . JR NZ,5709
+5709 00 . NOP
+570A E8 . RET PE
+570B 03 . INC BC
+570C 00 . NOP
+570D 00 . NOP
+570E 04 . INC B
+570F 00 . NOP
+5710 2E 00 .. LD L,00
+5712 00 . NOP
+5713 00 . NOP
+5714 01 02 04 ... LD BC,0402
+5717 08 . EX AF,AF'
+5718 10 20 . DJNZ 573A
+571A 40 @ LD B,B
+571B 80 . ADD B
+571C 31 37 35 175 LD SP,3537 ; "175 lader 2 (!)"
+571F 20 6C l JR NZ,578D
+5721 61 a LD H,C
+5722 64 d LD H,H
+5723 65 e LD H,L
+5724 72 r LD (HL),D
+5725 20 20 JR NZ,5747
+5727 20 32 2 JR NZ,575B
+5729 20 28 ( JR NZ,5753
+572B 21 29 3E !)> LD HL,3E29
+572E FE 32 .2 CP 32
+5730 27 ' DAA
+5731 16 CD .. LD D,CD
+5733 A0 . AND B
+5734 28 CD (. JR Z,5703
+5736 78 x LD A,B
+5737 82 . ADD D
+5738 2B + DEC HL
+5739 6C l LD L,H
+573A 37 7 SCF
+573B CB 1D .. RR L
+573D 2C , INC L
+573E 26 15 &. LD H,15
+5740 22 9F 60 ".` LD (609F),HL
+5743 13 . INC DE
+5744 7A z LD A,D
+5745 37 7 SCF
+5746 CB 1F .. RR A
+5748 32 A1 60 2.` LD (60A1),A
+574B 21 CF 15 !.. LD HL,15CF
+574E CB C6 .. SET 0,(HL)
+5750 21 00 14 !.. LD HL,1400
+5753 11 01 14 ... LD DE,1401
+5756 01 FF 00 ... LD BC,00FF
+5759 36 80 6. LD (HL),80
+575B ED B0 .. LDIR
+575D 21 7D 82 !}. LD HL,827D
+5760 CD CA 6E ..n CALL 6ECA
+5763 CD 8B 59 ..Y CALL 598B
+5766 CD 85 64 ..d CALL 6485
+5769 C9 . RET
+576A 50 P LD D,B ; "PROZ LADER"
+576B 52 R LD D,D
+576C 4F O LD C,A
+576D 5A Z LD E,D
+576E 20 4C L JR NZ,57BC
+5770 41 A LD B,C
+5771 44 D LD B,H
+5772 45 E LD B,L
+5773 52 R LD D,D
+5774 42 B LD B,D
+5775 58 X LD E,B
+5776 C3 A5 5F .._ JP 5FA5
+5779 4C L LD C,H
+577A FF . RST 38
+577B FF . RST 38
+577C FF . RST 38
+577D FF . RST 38
+577E FF . RST 38
+577F FF . RST 38
+5780 FF . RST 38
+5781 FF . RST 38
+5782 FF . RST 38
+5783 FF . RST 38
+5784 FF . RST 38
+5785 FF . RST 38
+5786 FF . RST 38
+5787 FF . RST 38
+5788 FF . RST 38
+5789 FF . RST 38
+578A FF . RST 38
+578B FF . RST 38
+578C FF . RST 38
+578D FF . RST 38
+578E FF . RST 38
+578F FF . RST 38
+5790 FF . RST 38
+5791 FF . RST 38
+5792 FF . RST 38
+5793 FF . RST 38
+5794 FF . RST 38
+5795 FF . RST 38
+5796 FF . RST 38
+5797 FF . RST 38
+5798 FF . RST 38
+5799 FF . RST 38
+579A FF . RST 38
+579B FF . RST 38
+579C FF . RST 38
+579D FF . RST 38
+579E FF . RST 38
+579F FF . RST 38
+57A0 FF . RST 38
+57A1 FF . RST 38
+57A2 FF . RST 38
+57A3 FF . RST 38
+57A4 FF . RST 38
+57A5 FF . RST 38
+57A6 FF . RST 38
+57A7 FF . RST 38
+57A8 FF . RST 38
+57A9 FF . RST 38
+57AA FF . RST 38
+57AB FF . RST 38
+57AC FF . RST 38
+57AD FF . RST 38
+57AE FF . RST 38
+57AF FF . RST 38
+57B0 FF . RST 38
+57B1 FF . RST 38
+57B2 FF . RST 38
+57B3 FF . RST 38
+57B4 FF . RST 38
+57B5 FF . RST 38
+57B6 FF . RST 38
+57B7 FF . RST 38
+57B8 FF . RST 38
+57B9 FF . RST 38
+57BA FF . RST 38
+57BB FF . RST 38
+57BC FF . RST 38
+57BD FF . RST 38
+57BE FF . RST 38
+57BF FF . RST 38
+57C0 FF . RST 38
+57C1 FF . RST 38
+57C2 FF . RST 38
+57C3 FF . RST 38
+57C4 FF . RST 38
+57C5 FF . RST 38
+57C6 FF . RST 38
+57C7 FF . RST 38
+57C8 FF . RST 38
+57C9 FF . RST 38
+57CA FF . RST 38
+57CB FF . RST 38
+57CC FF . RST 38
+57CD FF . RST 38
+57CE FF . RST 38
+57CF FF . RST 38
+57D0 FF . RST 38
+57D1 FF . RST 38
+57D2 FF . RST 38
+57D3 FF . RST 38
+57D4 FF . RST 38
+57D5 FF . RST 38
+57D6 FF . RST 38
+57D7 FF . RST 38
+57D8 FF . RST 38
+57D9 FF . RST 38
+57DA FF . RST 38
+57DB FF . RST 38
+57DC FF . RST 38
+57DD FF . RST 38
+57DE FF . RST 38
+57DF FF . RST 38
+57E0 FF . RST 38
+57E1 FF . RST 38
+57E2 FF . RST 38
+57E3 FF . RST 38
+57E4 FF . RST 38
+57E5 FF . RST 38
+57E6 FF . RST 38
+57E7 FF . RST 38
+57E8 FF . RST 38
+57E9 FF . RST 38
+57EA FF . RST 38
+57EB FF . RST 38
+57EC FF . RST 38
+57ED FF . RST 38
+57EE FF . RST 38
+57EF FF . RST 38
+57F0 FF . RST 38
+57F1 FF . RST 38
+57F2 FF . RST 38
+57F3 FF . RST 38
+57F4 FF . RST 38
+57F5 FF . RST 38
+57F6 FF . RST 38
+57F7 FF . RST 38
+57F8 FF . RST 38
+57F9 FF . RST 38
+57FA FF . RST 38
+57FB FF . RST 38
+57FC FF . RST 38
+57FD FF . RST 38
+57FE FF . RST 38
+57FF FF . RST 38
+5800 FF . RST 38
+5801 FF . RST 38
+5802 FF . RST 38
+5803 FF . RST 38
+5804 FF . RST 38
+5805 FF . RST 38
+5806 FF . RST 38
+5807 FF . RST 38
+5808 FF . RST 38
+5809 FF . RST 38
+580A FF . RST 38
+580B FF . RST 38
+580C FF . RST 38
+580D FF . RST 38
+580E FF . RST 38
+580F FF . RST 38
+5810 FF . RST 38
+5811 FF . RST 38
+5812 FF . RST 38
+5813 FF . RST 38
+5814 FF . RST 38
+5815 FF . RST 38
+5816 FF . RST 38
+5817 FF . RST 38
+5818 FF . RST 38
+5819 FF . RST 38
+581A FF . RST 38
+581B FF . RST 38
+581C FF . RST 38
+581D FF . RST 38
+581E FF . RST 38
+581F FF . RST 38
+5820 FF . RST 38
+5821 FF . RST 38
+5822 FF . RST 38
+5823 FF . RST 38
+5824 FF . RST 38
+5825 FF . RST 38
+5826 FF . RST 38
+5827 FF . RST 38
+5828 FF . RST 38
+5829 FF . RST 38
+582A FF . RST 38
+582B FF . RST 38
+582C FF . RST 38
+582D FF . RST 38
+582E FF . RST 38
+582F FF . RST 38
+5830 FF . RST 38
+5831 FF . RST 38
+5832 FF . RST 38
+5833 FF . RST 38
+5834 FF . RST 38
+5835 FF . RST 38
+5836 FF . RST 38
+5837 FF . RST 38
+5838 FF . RST 38
+5839 FF . RST 38
+583A FF . RST 38
+583B FF . RST 38
+583C FF . RST 38
+583D FF . RST 38
+583E FF . RST 38
+583F FF . RST 38
+5840 FF . RST 38
+5841 FF . RST 38
+5842 44 D LD B,H
+5843 58 X LD E,B
+5844 21 B5 4C !.L LD HL,4CB5
+5847 CB 96 .. RES 2,(HL)
+5849 CD E2 6D ..m CALL 6DE2
+584C 3A 96 60 :.` LD A,(6096)
+584F B7 . OR A
+5850 28 15 (. JR Z,5867
+5852 FE 02 .. CP 02
+5854 28 2C (, JR Z,5882
+5856 2A 97 60 *.` LD HL,(6097)
+5859 CB 46 .F BIT 0,(HL)
+585B 20 0A . JR NZ,5867
+585D CD 1C 59 ..Y CALL 591C
+5860 2A 97 60 *.` LD HL,(6097)
+5863 CB CE .. SET 1,(HL)
+5865 18 2A .* JR 5891
+5867 3A 99 60 :.` LD A,(6099)
+586A B7 . OR A
+586B 28 28 (( JR Z,5895
+586D 2A 9A 60 *.` LD HL,(609A)
+5870 CB 46 .F BIT 0,(HL)
+5872 20 21 ! JR NZ,5895
+5874 CD 1C 59 ..Y CALL 591C
+5877 2A 9A 60 *.` LD HL,(609A)
+587A CB CE .. SET 1,(HL)
+587C 97 . SUB A
+587D 32 99 60 2.` LD (6099),A
+5880 18 13 .. JR 5895
+5882 3A 5B 60 :[` LD A,(605B)
+5885 B7 . OR A
+5886 28 09 (. JR Z,5891
+5888 CD 96 5C ..\ CALL 5C96
+588B 20 08 . JR NZ,5895
+588D 97 . SUB A
+588E 32 B3 60 2.` LD (60B3),A
+5891 97 . SUB A
+5892 32 96 60 2.` LD (6096),A
+5895 3A 1F 16 :.. LD A,(161F)
+5898 FE FD .. CP FD
+589A 28 14 (. JR Z,58B0
+589C 21 CE 15 !.. LD HL,15CE
+589F CB 46 .F BIT 0,(HL)
+58A1 20 0D . JR NZ,58B0
+58A3 57 W LD D,A
+58A4 3A 1F 15 :.. LD A,(151F)
+58A7 5F _ LD E,A
+58A8 CD 45 59 .EY CALL 5945
+58AB 3E FD >. LD A,FD
+58AD 32 1F 16 2.. LD (161F),A
+58B0 3A A4 60 :.` LD A,(60A4)
+58B3 B7 . OR A
+58B4 28 2E (. JR Z,58E4
+58B6 3A 63 60 :c` LD A,(6063)
+58B9 B7 . OR A
+58BA CA 44 58 .DX JP Z,5844
+58BD CD F7 58 ..X CALL 58F7
+58C0 22 9D 60 ".` LD (609D),HL
+58C3 21 B5 4C !.L LD HL,4CB5
+58C6 CB D6 .. SET 2,(HL)
+58C8 2A B1 60 *.` LD HL,(60B1)
+58CB 56 V LD D,(HL)
+58CC 25 % DEC H
+58CD 5E ^ LD E,(HL)
+58CE ED 53 A7 60 .S.` LD (60A7),DE
+58D2 2A 9D 60 *.` LD HL,(609D)
+58D5 CD 45 59 .EY CALL 5945
+58D8 2A B1 60 *.` LD HL,(60B1)
+58DB 36 FD 6. LD (HL),FD
+58DD 21 63 60 !c` LD HL,6063
+58E0 35 5 DEC (HL)
+58E1 C3 95 58 ..X JP 5895
+58E4 CD F4 5B ..[ CALL 5BF4
+58E7 20 03 . JR NZ,58EC
+58E9 11 00 00 ... LD DE,0000
+58EC ED 53 A5 60 .S.` LD (60A5),DE
+58F0 3E 02 >. LD A,02
+58F2 32 A4 60 2.` LD (60A4),A
+58F5 18 B9 .. JR 58B0
+58F7 06 08 .. LD B,08
+58F9 2A 9D 60 *.` LD HL,(609D)
+58FC CD 3C 5F .<_ CALL 5F3C
+58FF CB 46 .F BIT 0,(HL)
+5901 20 F9 . JR NZ,58FC
+5903 CB 5E .^ BIT 3,(HL)
+5905 28 02 (. JR Z,5909
+5907 10 F0 .. DJNZ 58F9
+5909 E5 . PUSH HL
+590A 06 02 .. LD B,02
+590C CD 3C 5F .<_ CALL 5F3C
+590F 10 FB .. DJNZ 590C
+5911 06 08 .. LD B,08
+5913 CB 9E .. RES 3,(HL)
+5915 CD 3C 5F .<_ CALL 5F3C
+5918 10 F9 .. DJNZ 5913
+591A E1 . POP HL
+591B C9 . RET
+591C CB C6 .. SET 0,(HL)
+591E CB 96 .. RES 2,(HL)
+5920 CB 4E .N BIT 1,(HL)
+5922 20 09 . JR NZ,592D
+5924 C3 10 5B ..[ JP 5B10
+5927 3E 02 >. LD A,02
+5929 CB 4E .N BIT 1,(HL)
+592B 28 02 (. JR Z,592F
+592D 3E 03 >. LD A,03
+592F CB BD .. RES 7,L
+5931 5E ^ LD E,(HL)
+5932 24 $ INC H
+5933 56 V LD D,(HL)
+5934 65 e LD H,L
+5935 CB 24 .$ SLA H
+5937 2E 00 .. LD L,00
+5939 FE 03 .. CP 03
+593B C8 . RET Z
+593C 7A z LD A,D
+593D FE FD .. CP FD
+593F D0 . RET NC
+5940 3E 02 >. LD A,02
+5942 C3 82 5E ..^ JP 5E82
+5945 E5 . PUSH HL
+5946 CB 96 .. RES 2,(HL)
+5948 D5 . PUSH DE
+5949 CD 1C 59 ..Y CALL 591C
+594C D1 . POP DE
+594D E3 . EX (SP),HL
+594E 24 $ INC H
+594F 36 FF 6. LD (HL),FF
+5951 25 % DEC H
+5952 E3 . EX (SP),HL
+5953 7A z LD A,D
+5954 FE FF .. CP FF
+5956 20 16 . JR NZ,596E
+5958 D5 . PUSH DE
+5959 36 FF 6. LD (HL),FF
+595B 54 T LD D,H
+595C 5D ] LD E,L
+595D 13 . INC DE
+595E 01 FF 01 ... LD BC,01FF
+5961 CD A5 28 ..( CALL 28A5
+5964 D1 . POP DE
+5965 E1 . POP HL
+5966 36 02 6. LD (HL),02
+5968 CB BD .. RES 7,L
+596A 73 s LD (HL),E
+596B 24 $ INC H
+596C 72 r LD (HL),D
+596D C9 . RET
+596E CD E9 5A ..Z CALL 5AE9
+5971 28 F2 (. JR Z,5965
+5973 3E 01 >. LD A,01
+5975 CD 82 5E ..^ CALL 5E82
+5978 7C | LD A,H
+5979 FE 9C .. CP 9C
+597B 28 E8 (. JR Z,5965
+597D E1 . POP HL
+597E E5 . PUSH HL
+597F CD 68 59 .hY CALL 5968
+5982 E1 . POP HL
+5983 E5 . PUSH HL
+5984 CD 10 5B ..[ CALL 5B10
+5987 E1 . POP HL
+5988 36 02 6. LD (HL),02
+598A C9 . RET
+598B CD 8A 28 ..( CALL 288A
+598E 22 AB 60 ".` LD (60AB),HL
+5991 CB 78 .x BIT 7,B
+5993 28 0D (. JR Z,59A2
+5995 3E C3 >. LD A,C3 ; JP ...
+5997 32 95 5A 2.Z LD (5A95),A
+599A 21 8D 28 !.( LD HL,288D ; SCHACC
+599D 22 96 5A ".Z LD (5A96),HL
+59A0 CB B8 .. RES 7,B
+59A2 CB 70 .p BIT 6,B
+59A4 28 22 (" JR Z,59C8
+59A6 21 FF FF !.. LD HL,FFFF
+59A9 22 5C 60 "\` LD (605C),HL
+59AC 3E C9 >. LD A,C9 ; RET
+59AE 32 95 5A 2.Z LD (5A95),A
+59B1 3E C3 >. LD A,C3 ; JP ...
+59B3 32 A8 5A 2.Z LD (5AA8),A
+59B6 21 8D 28 !.( LD HL,288D ; SCHACC
+59B9 3A 6B 28 :k( LD A,(286B)
+59BC FE 06 .. CP 06
+59BE 38 03 8. JR C,59C3
+59C0 21 BD 5A !.Z LD HL,5ABD
+59C3 22 A9 5A ".Z LD (5AA9),HL
+59C6 CB B0 .. RES 6,B
+59C8 CB 21 .! SLA C
+59CA CB 10 .. RL B
+59CC 20 05 . JR NZ,59D3
+59CE 3E 50 >P LD A,50
+59D0 32 B4 60 2.` LD (60B4),A
+59D3 ED 43 AE 60 .C.` LD (60AE),BC
+59D7 78 x LD A,B
+59D8 B1 . OR C
+59D9 32 5B 60 2[` LD (605B),A
+59DC 28 34 (4 JR Z,5A12
+59DE C5 . PUSH BC
+59DF 3E 00 >. LD A,00 ; HG
+59E1 01 05 00 ... LD BC,0005 ; Size
+59E4 11 00 00 ... LD DE,0000 ; Schluessel 0
+59E7 CD A8 28 ..( CALL 28A8
+59EA E1 . POP HL
+59EB B7 . OR A
+59EC ED 42 .B SBC HL,BC
+59EE 38 0F 8. JR C,59FF
+59F0 3E 01 >. LD A,01
+59F2 CD 1D 5A ..Z CALL 5A1D
+59F5 97 . SUB A
+59F6 32 5B 60 2[` LD (605B),A
+59F9 3C < INC A
+59FA 32 AD 60 2.` LD (60AD),A
+59FD 18 18 .. JR 5A17
+59FF 1E 00 .. LD E,00
+5A01 D5 . PUSH DE
+5A02 CD A6 5A ..Z CALL 5AA6
+5A05 54 T LD D,H
+5A06 5D ] LD E,L
+5A07 13 . INC DE
+5A08 36 FE 6. LD (HL),FE
+5A0A ED B0 .. LDIR
+5A0C D1 . POP DE
+5A0D 1C . INC E
+5A0E 1C . INC E
+5A0F 20 F0 . JR NZ,5A01
+5A11 C9 . RET
+5A12 3E C9 >. LD A,C9 ; RET
+5A14 32 95 5A 2.Z LD (5A95),A
+5A17 21 CF 15 !.. LD HL,15CF
+5A1A CB 86 .. RES 0,(HL)
+5A1C C9 . RET
+5A1D 21 00 00 !.. LD HL,0000
+5A20 C5 . PUSH BC
+5A21 F5 . PUSH AF
+5A22 E5 . PUSH HL
+5A23 CD 92 5A ..Z CALL 5A92
+5A26 D1 . POP DE
+5A27 CB 23 .# SLA E
+5A29 CB 12 .. RL D
+5A2B F1 . POP AF
+5A2C CD B0 5E ..^ CALL 5EB0
+5A2F CB 3A .: SLR D
+5A31 CB 1B .. RR E
+5A33 EB . EX DE,HL
+5A34 C1 . POP BC
+5A35 ED A1 .. CPI
+5A37 EA 20 5A . Z JP PE,5A20
+5A3A C9 . RET
+5A3B 3A AD 60 :.` LD A,(60AD)
+5A3E B7 . OR A
+5A3F C8 . RET Z
+5A40 3E 00 >. LD A,00
+5A42 32 AD 60 2.` LD (60AD),A
+5A45 01 05 00 ... LD BC,0005
+5A48 11 00 00 ... LD DE,0000
+5A4B CD A8 28 ..( CALL 28A8
+5A4E C5 . PUSH BC
+5A4F 3E 02 >. LD A,02
+5A51 CD 1D 5A ..Z CALL 5A1D
+5A54 C1 . POP BC
+5A55 11 00 00 ... LD DE,0000
+5A58 C5 . PUSH BC
+5A59 21 00 9E !.. LD HL,9E00
+5A5C 3E 00 >. LD A,00
+5A5E 01 00 00 ... LD BC,0000
+5A61 CD 7E 28 .~( CALL 287E
+5A64 78 x LD A,B
+5A65 B1 . OR C
+5A66 20 08 . JR NZ,5A70
+5A68 C1 . POP BC
+5A69 ED A1 .. CPI
+5A6B 13 . INC DE
+5A6C EA 58 5A .XZ JP PE,5A58
+5A6F C9 . RET
+5A70 CD CA 6E ..n CALL 6ECA
+5A73 62 b LD H,D
+5A74 6B k LD L,E
+5A75 CD 92 5A ..Z CALL 5A92
+5A78 01 00 00 ... LD BC,0000
+5A7B 97 . SUB A
+5A7C CD 81 28 ..( CALL 2881
+5A7F 18 D8 .. JR 5A59
+5A81 7C | LD A,H
+5A82 47 G LD B,A
+5A83 FE 10 .. CP 10
+5A85 D0 . RET NC
+5A86 ED 4B A2 60 .K.` LD BC,(60A2)
+5A8A 18 06 .. JR 5A92
+5A8C 78 x LD A,B
+5A8D FE 10 .. CP 10
+5A8F D0 . RET NC
+5A90 60 ` LD H,B
+5A91 69 i LD L,C
+5A92 22 A2 60 ".` LD (60A2),HL
+5A95 CB 3C .< SLR H
+5A97 CB 1D .. RR L
+5A99 7D } LD A,L
+5A9A 2A AB 60 *.` LD HL,(60AB)
+5A9D 30 02 0. JR NC,5AA1
+5A9F 24 $ INC H
+5AA0 24 $ INC H
+5AA1 2E 00 .. LD L,00
+5AA3 C3 8D 28 ..( JP 288D
+5AA6 3E 03 >. LD A,03
+5AA8 FE 03 .. CP 03
+5AAA 28 1A (. JR Z,5AC6
+5AAC F5 . PUSH AF
+5AAD EB . EX DE,HL
+5AAE CD 92 5A ..Z CALL 5A92
+5AB1 F1 . POP AF
+5AB2 01 00 02 ... LD BC,0200
+5AB5 3D = DEC A
+5AB6 CA A5 28 ..( JP Z,28A5
+5AB9 EB . EX DE,HL
+5ABA C3 A5 28 ..( JP 28A5
+5ABD FE 03 .. CP 03
+5ABF 30 02 0. JR NC,5AC3
+5AC1 EE 03 .. XOR 03
+5AC3 C3 8D 28 ..( JP 288D
+5AC6 7B { LD A,E
+5AC7 26 00 &. LD H,00
+5AC9 07 . RLCA
+5ACA 07 . RLCA
+5ACB 07 . RLCA
+5ACC 07 . RLCA
+5ACD F5 . PUSH AF
+5ACE E6 0F .. AND 0F
+5AD0 6F o LD L,A
+5AD1 CD 92 5A ..Z CALL 5A92
+5AD4 F1 . POP AF
+5AD5 17 . RLA
+5AD6 30 01 0. JR NC,5AD9
+5AD8 24 $ INC H
+5AD9 E6 C0 .. AND C0
+5ADB 6F o LD L,A
+5ADC 01 14 00 ... LD BC,0014
+5ADF C9 . RET
+5AE0 3A 5B 60 :[` LD A,(605B)
+5AE3 B7 . OR A
+5AE4 C0 . RET NZ
+5AE5 F1 . POP AF
+5AE6 F6 01 .. OR 01
+5AE8 C9 . RET
+5AE9 CD E0 5A ..Z CALL 5AE0
+5AEC C5 . PUSH BC
+5AED D5 . PUSH DE
+5AEE E5 . PUSH HL
+5AEF CD A6 5A ..Z CALL 5AA6
+5AF2 C5 . PUSH BC
+5AF3 7A z LD A,D
+5AF4 ED B1 .. CPIR
+5AF6 C1 . POP BC
+5AF7 20 13 . JR NZ,5B0C
+5AF9 09 . ADD HL,BC
+5AFA 2B + DEC HL
+5AFB 7E ~ LD A,(HL)
+5AFC CB EE .. SET 5,(HL)
+5AFE 09 . ADD HL,BC
+5AFF 6E n LD L,(HL)
+5B00 E6 1F .. AND 1F
+5B02 67 g LD H,A
+5B03 D1 . POP DE
+5B04 D5 . PUSH DE
+5B05 EB . EX DE,HL
+5B06 3E 01 >. LD A,01
+5B08 CD A8 5A ..Z CALL 5AA8
+5B0B 97 . SUB A
+5B0C E1 . POP HL
+5B0D D1 . POP DE
+5B0E C1 . POP BC
+5B0F C9 . RET
+5B10 3A 5B 60 :[` LD A,(605B)
+5B13 B7 . OR A
+5B14 CA 27 59 .'Y JP Z,5927
+5B17 7E ~ LD A,(HL)
+5B18 32 60 60 2`` LD (6060),A
+5B1B CB BD .. RES 7,L
+5B1D 5E ^ LD E,(HL)
+5B1E 24 $ INC H
+5B1F 56 V LD D,(HL)
+5B20 65 e LD H,L
+5B21 CB 24 .$ SLA H
+5B23 2E 00 .. LD L,00
+5B25 7A z LD A,D
+5B26 FE FD .. CP FD
+5B28 D0 . RET NC
+5B29 B7 . OR A
+5B2A 20 06 . JR NZ,5B32
+5B2C 7B { LD A,E
+5B2D FE 04 .. CP 04
+5B2F DA 87 5B ..[ JP C,5B87
+5B32 E5 . PUSH HL
+5B33 CD A6 5A ..Z CALL 5AA6
+5B36 C5 . PUSH BC
+5B37 7A z LD A,D
+5B38 ED B1 .. CPIR
+5B3A C1 . POP BC
+5B3B 20 14 . JR NZ,5B51
+5B3D 09 . ADD HL,BC
+5B3E 2B + DEC HL
+5B3F CB B6 .. RES 6,(HL)
+5B41 7E ~ LD A,(HL)
+5B42 09 . ADD HL,BC
+5B43 6E n LD L,(HL)
+5B44 E6 1F .. AND 1F
+5B46 67 g LD H,A
+5B47 EB . EX DE,HL
+5B48 E1 . POP HL
+5B49 E5 . PUSH HL
+5B4A 3E 02 >. LD A,02
+5B4C CD A8 5A ..Z CALL 5AA8
+5B4F E1 . POP HL
+5B50 C9 . RET
+5B51 3A 60 60 :`` LD A,(6060)
+5B54 F5 . PUSH AF
+5B55 B7 . OR A
+5B56 ED 42 .B SBC HL,BC
+5B58 3E FE >. LD A,FE
+5B5A ED B1 .. CPIR
+5B5C 20 24 $ JR NZ,5B82
+5B5E D5 . PUSH DE
+5B5F CD F4 5B ..[ CALL 5BF4
+5B62 EB . EX DE,HL
+5B63 D1 . POP DE
+5B64 28 1C (. JR Z,5B82
+5B66 E5 . PUSH HL
+5B67 CD A6 5A ..Z CALL 5AA6
+5B6A C5 . PUSH BC
+5B6B 3E FE >. LD A,FE
+5B6D ED B1 .. CPIR
+5B6F C1 . POP BC
+5B70 2B + DEC HL
+5B71 72 r LD (HL),D
+5B72 09 . ADD HL,BC
+5B73 D1 . POP DE
+5B74 72 r LD (HL),D
+5B75 F1 . POP AF
+5B76 CB 4F .O BIT 1,A
+5B78 28 02 (. JR Z,5B7C
+5B7A CB F6 .. SET 6,(HL)
+5B7C CB EE .. SET 5,(HL)
+5B7E 09 . ADD HL,BC
+5B7F 73 s LD (HL),E
+5B80 18 C6 .. JR 5B48
+5B82 F1 . POP AF
+5B83 E1 . POP HL
+5B84 CB 4F .O BIT 1,A
+5B86 C0 . RET NZ
+5B87 3E 02 >. LD A,02
+5B89 C3 82 5E ..^ JP 5E82
+5B8C 32 66 60 2f` LD (6066),A
+5B8F 3A A8 5A :.Z LD A,(5AA8)
+5B92 FE C3 .. CP C3
+5B94 CA CB 5B ..[ JP Z,5BCB
+5B97 3A 5B 60 :[` LD A,(605B)
+5B9A B7 . OR A
+5B9B CA CB 5B ..[ JP Z,5BCB
+5B9E C5 . PUSH BC
+5B9F CD A6 5A ..Z CALL 5AA6
+5BA2 C5 . PUSH BC
+5BA3 7A z LD A,D
+5BA4 ED B1 .. CPIR
+5BA6 C1 . POP BC
+5BA7 C2 CA 5B ..[ JP NZ,5BCA
+5BAA 09 . ADD HL,BC
+5BAB 2B + DEC HL
+5BAC CB 6E .n BIT 5,(HL)
+5BAE 20 20 JR NZ,5BD0
+5BB0 3A 66 60 :f` LD A,(6066)
+5BB3 CB 4F .O BIT 1,A
+5BB5 20 02 . JR NZ,5BB9
+5BB7 CB B6 .. RES 6,(HL)
+5BB9 7E ~ LD A,(HL)
+5BBA 09 . ADD HL,BC
+5BBB 6E n LD L,(HL)
+5BBC E6 1F .. AND 1F
+5BBE 67 g LD H,A
+5BBF CD 92 5A ..Z CALL 5A92
+5BC2 C1 . POP BC
+5BC3 6C l LD L,H
+5BC4 CB 3D .= SLR L
+5BC6 26 15 &. LD H,15
+5BC8 37 7 SCF
+5BC9 C9 . RET
+5BCA C1 . POP BC
+5BCB CD 41 5D .A] CALL 5D41
+5BCE 18 09 .. JR 5BD9
+5BD0 22 B5 60 ".` LD (60B5),HL
+5BD3 CD B6 5D ..] CALL 5DB6
+5BD6 38 15 8. JR C,5BED
+5BD8 C1 . POP BC
+5BD9 F5 . PUSH AF
+5BDA CB FD .. SET 7,L
+5BDC 3A 66 60 :f` LD A,(6066)
+5BDF A6 . AND (HL)
+5BE0 77 w LD (HL),A
+5BE1 3A 5B 60 :[` LD A,(605B)
+5BE4 B7 . OR A
+5BE5 28 02 (. JR Z,5BE9
+5BE7 CB 9E .. RES 3,(HL)
+5BE9 CB BD .. RES 7,L
+5BEB F1 . POP AF
+5BEC C9 . RET
+5BED 2A B5 60 *.` LD HL,(60B5)
+5BF0 CB AE .. RES 5,(HL)
+5BF2 18 BC .. JR 5BB0
+5BF4 3A B0 60 :.` LD A,(60B0)
+5BF7 B7 . OR A
+5BF8 20 1F . JR NZ,5C19
+5BFA 2A 5C 60 *\` LD HL,(605C)
+5BFD 23 # INC HL
+5BFE 22 5C 60 "\` LD (605C),HL
+5C01 ED 4B AE 60 .K.` LD BC,(60AE)
+5C05 B7 . OR A
+5C06 ED 42 .B SBC HL,BC
+5C08 30 06 0. JR NC,5C10
+5C0A 09 . ADD HL,BC
+5C0B 54 T LD D,H
+5C0C 5D ] LD E,L
+5C0D F6 01 .. OR 01
+5C0F C9 . RET
+5C10 3E 01 >. LD A,01
+5C12 32 B0 60 2.` LD (60B0),A
+5C15 97 . SUB A
+5C16 32 5C 60 2\` LD (605C),A
+5C19 ED 5B 5C 60 .[\` LD DE,(605C)
+5C1D 1C . INC E
+5C1E 1C . INC E
+5C1F ED 53 5C 60 .S\` LD (605C),DE
+5C23 CD A6 5A ..Z CALL 5AA6
+5C26 56 V LD D,(HL)
+5C27 3E FE >. LD A,FE
+5C29 BA . CP D
+5C2A C8 . RET Z
+5C2B 77 w LD (HL),A
+5C2C 09 . ADD HL,BC
+5C2D CB 7E .~ BIT 7,(HL)
+5C2F 28 0C (. JR Z,5C3D
+5C31 B7 . OR A
+5C32 ED 42 .B SBC HL,BC
+5C34 E5 . PUSH HL
+5C35 C5 . PUSH BC
+5C36 CD 50 5C .P\ CALL 5C50
+5C39 C1 . POP BC
+5C3A E1 . POP HL
+5C3B 18 E9 .. JR 5C26
+5C3D CD 66 5C .f\ CALL 5C66
+5C40 ED 5B 5C 60 .[\` LD DE,(605C)
+5C44 CD A6 5A ..Z CALL 5AA6
+5C47 E5 . PUSH HL
+5C48 09 . ADD HL,BC
+5C49 7E ~ LD A,(HL)
+5C4A E6 1F .. AND 1F
+5C4C 57 W LD D,A
+5C4D 09 . ADD HL,BC
+5C4E 5E ^ LD E,(HL)
+5C4F E1 . POP HL
+5C50 D5 . PUSH DE
+5C51 54 T LD D,H
+5C52 5D ] LD E,L
+5C53 23 # INC HL
+5C54 C5 . PUSH BC
+5C55 ED B0 .. LDIR
+5C57 1B . DEC DE
+5C58 3E FE >. LD A,FE
+5C5A 12 . LD (DE),A
+5C5B 13 . INC DE
+5C5C C1 . POP BC
+5C5D CB 21 .! SLA C
+5C5F CB 10 .. RL B
+5C61 ED B0 .. LDIR
+5C63 D1 . POP DE
+5C64 B7 . OR A
+5C65 C9 . RET
+5C66 CB 76 .v BIT 6,(HL)
+5C68 C0 . RET NZ
+5C69 CB F6 .. SET 6,(HL)
+5C6B E5 . PUSH HL
+5C6C 3A B3 60 :.` LD A,(60B3)
+5C6F B7 . OR A
+5C70 20 0B . JR NZ,5C7D
+5C72 CD AE 5D ..] CALL 5DAE
+5C75 38 06 8. JR C,5C7D
+5C77 CB FD .. SET 7,L
+5C79 CB 8E .. RES 1,(HL)
+5C7B E1 . POP HL
+5C7C C9 . RET
+5C7D E1 . POP HL
+5C7E D5 . PUSH DE
+5C7F 7E ~ LD A,(HL)
+5C80 E6 1F .. AND 1F
+5C82 57 W LD D,A
+5C83 09 . ADD HL,BC
+5C84 5E ^ LD E,(HL)
+5C85 21 00 9E !.. LD HL,9E00
+5C88 3E 01 >. LD A,01
+5C8A CD A8 5A ..Z CALL 5AA8
+5C8D 21 00 9E !.. LD HL,9E00
+5C90 D1 . POP DE
+5C91 3E 02 >. LD A,02
+5C93 C3 82 5E ..^ JP 5E82
+5C96 ED 5B 5E 60 .[^` LD DE,(605E)
+5C9A CD A6 5A ..Z CALL 5AA6
+5C9D 7D } LD A,L
+5C9E 82 . ADD D
+5C9F 6F o LD L,A
+5CA0 30 01 0. JR NC,5CA3
+5CA2 24 $ INC H
+5CA3 56 V LD D,(HL)
+5CA4 7A z LD A,D
+5CA5 FE FE .. CP FE
+5CA7 28 06 (. JR Z,5CAF
+5CA9 09 . ADD HL,BC
+5CAA C5 . PUSH BC
+5CAB CD 66 5C .f\ CALL 5C66
+5CAE C1 . POP BC
+5CAF ED 5B 5E 60 .[^` LD DE,(605E)
+5CB3 14 . INC D
+5CB4 7A z LD A,D
+5CB5 B9 . CP C
+5CB6 20 04 . JR NZ,5CBC
+5CB8 16 00 .. LD D,00
+5CBA 1C . INC E
+5CBB 1C . INC E
+5CBC ED 53 5E 60 .S^` LD (605E),DE
+5CC0 C9 . RET
+5CC1 E5 . PUSH HL
+5CC2 2A 61 60 *a` LD HL,(6061)
+5CC5 CD 92 5A ..Z CALL 5A92
+5CC8 E1 . POP HL
+5CC9 C9 . RET
+5CCA CD 20 6E . n CALL 6E20
+5CCD CD D4 5C ..\ CALL 5CD4
+5CD0 CD 2A 6E .*n CALL 6E2A
+5CD3 C9 . RET
+5CD4 32 9C 60 2.` LD (609C),A
+5CD7 3A B4 60 :.` LD A,(60B4)
+5CDA 3D = DEC A
+5CDB C8 . RET Z
+5CDC 32 B4 60 2.` LD (60B4),A
+5CDF 3A A8 5A :.Z LD A,(5AA8)
+5CE2 FE C3 .. CP C3
+5CE4 C8 . RET Z
+5CE5 3A AD 60 :.` LD A,(60AD)
+5CE8 B7 . OR A
+5CE9 CC E0 5A ..Z CALL Z,5AE0
+5CEC 3A 9C 60 :.` LD A,(609C)
+5CEF 26 15 &. LD H,15
+5CF1 6F o LD L,A
+5CF2 CB 3D .= SLR L
+5CF4 E5 . PUSH HL
+5CF5 5E ^ LD E,(HL)
+5CF6 24 $ INC H
+5CF7 56 V LD D,(HL)
+5CF8 3A AD 60 :.` LD A,(60AD)
+5CFB B7 . OR A
+5CFC 20 32 2 JR NZ,5D30
+5CFE CD A6 5A ..Z CALL 5AA6
+5D01 C5 . PUSH BC
+5D02 7A z LD A,D
+5D03 ED B1 .. CPIR
+5D05 C1 . POP BC
+5D06 20 30 0 JR NZ,5D38
+5D08 09 . ADD HL,BC
+5D09 2B + DEC HL
+5D0A 7E ~ LD A,(HL)
+5D0B E6 1F .. AND 1F
+5D0D CB FE .. SET 7,(HL)
+5D0F 09 . ADD HL,BC
+5D10 47 G LD B,A
+5D11 4E N LD C,(HL)
+5D12 E1 . POP HL
+5D13 36 01 6. LD (HL),01
+5D15 24 $ INC H
+5D16 CB FD .. SET 7,L
+5D18 36 FF 6. LD (HL),FF
+5D1A CB BD .. RES 7,L
+5D1C 24 $ INC H
+5D1D 24 $ INC H
+5D1E 7E ~ LD A,(HL)
+5D1F 87 . ADD A
+5D20 21 B7 60 !.` LD HL,60B7
+5D23 30 01 0. JR NC,5D26
+5D25 24 $ INC H
+5D26 85 . ADD L
+5D27 6F o LD L,A
+5D28 30 01 0. JR NC,5D2B
+5D2A 24 $ INC H
+5D2B 0D . DEC C
+5D2C 71 q LD (HL),C
+5D2D 23 # INC HL
+5D2E 70 p LD (HL),B
+5D2F C9 . RET
+5D30 42 B LD B,D
+5D31 4B K LD C,E
+5D32 CB 28 .( SRA B
+5D34 CB 19 .. RR C
+5D36 18 DA .. JR 5D12
+5D38 21 B4 60 !.` LD HL,60B4
+5D3B 34 4 INC (HL)
+5D3C E1 . POP HL
+5D3D C9 . RET
+5D3E C3 8C 5B ..[ JP 5B8C
+5D41 21 B5 4C !.L LD HL,4CB5
+5D44 CB D6 .. SET 2,(HL)
+5D46 CD B6 5D ..] CALL 5DB6
+5D49 D2 A6 5D ..] JP NC,5DA6
+5D4C 3A 5B 60 :[` LD A,(605B)
+5D4F B7 . OR A
+5D50 28 33 (3 JR Z,5D85
+5D52 CD A6 5A ..Z CALL 5AA6
+5D55 7A z LD A,D
+5D56 ED B1 .. CPIR
+5D58 20 2B + JR NZ,5D85
+5D5A CD F7 58 ..X CALL 58F7
+5D5D CB 4E .N BIT 1,(HL)
+5D5F 20 16 . JR NZ,5D77
+5D61 D5 . PUSH DE
+5D62 E5 . PUSH HL
+5D63 CB BD .. RES 7,L
+5D65 5E ^ LD E,(HL)
+5D66 24 $ INC H
+5D67 56 V LD D,(HL)
+5D68 24 $ INC H
+5D69 7E ~ LD A,(HL)
+5D6A B7 . OR A
+5D6B 28 16 (. JR Z,5D83
+5D6D CD A6 5A ..Z CALL 5AA6
+5D70 7A z LD A,D
+5D71 ED B1 .. CPIR
+5D73 E1 . POP HL
+5D74 D1 . POP DE
+5D75 20 0E . JR NZ,5D85
+5D77 22 9D 60 ".` LD (609D),HL
+5D7A CD 45 59 .EY CALL 5945
+5D7D 21 00 00 !.. LD HL,0000
+5D80 C3 9C 5D ..] JP 5D9C
+5D83 E1 . POP HL
+5D84 D1 . POP DE
+5D85 21 20 16 ! . LD HL,1620
+5D88 3E FD >. LD A,FD
+5D8A ED A1 .. CPI
+5D8C 20 0B . JR NZ,5D99
+5D8E 2B + DEC HL
+5D8F 72 r LD (HL),D
+5D90 25 % DEC H
+5D91 73 s LD (HL),E
+5D92 E5 . PUSH HL
+5D93 21 63 60 !c` LD HL,6063
+5D96 34 4 INC (HL)
+5D97 18 04 .. JR 5D9D
+5D99 21 63 60 !c` LD HL,6063
+5D9C E5 . PUSH HL
+5D9D 21 B5 4C !.L LD HL,4CB5
+5DA0 CB 96 .. RES 2,(HL)
+5DA2 E1 . POP HL
+5DA3 C3 1A 6C ..l JP 6C1A
+5DA6 E5 . PUSH HL
+5DA7 21 B5 4C !.L LD HL,4CB5
+5DAA CB 96 .. RES 2,(HL)
+5DAC E1 . POP HL
+5DAD C9 . RET
+5DAE CD CD 5D ..] CALL 5DCD
+5DB1 D8 . RET C
+5DB2 7D } LD A,L
+5DB3 FE 28 .( CP 28
+5DB5 C9 . RET
+5DB6 CD CD 5D ..] CALL 5DCD
+5DB9 D8 . RET C
+5DBA 7D } LD A,L
+5DBB FE 28 .( CP 28
+5DBD DA 1A 6C ..l JP C,6C1A
+5DC0 CB FD .. SET 7,L
+5DC2 CB 46 .F BIT 0,(HL)
+5DC4 C2 1A 6C ..l JP NZ,6C1A
+5DC7 CB DE .. SET 3,(HL)
+5DC9 CB BD .. RES 7,L
+5DCB B7 . OR A
+5DCC C9 . RET
+5DCD CB 83 .. RES 0,E
+5DCF C5 . PUSH BC
+5DD0 7B { LD A,E
+5DD1 AA . XOR D
+5DD2 6F o LD L,A
+5DD3 26 14 &. LD H,14
+5DD5 6E n LD L,(HL)
+5DD6 26 15 &. LD H,15
+5DD8 7B { LD A,E
+5DD9 BE . CP (HL)
+5DDA 20 09 . JR NZ,5DE5
+5DDC 24 $ INC H
+5DDD 7A z LD A,D
+5DDE BE . CP (HL)
+5DDF 20 04 . JR NZ,5DE5
+5DE1 25 % DEC H
+5DE2 B7 . OR A
+5DE3 C1 . POP BC
+5DE4 C9 . RET
+5DE5 21 1F 15 !.. LD HL,151F
+5DE8 01 62 00 .b. LD BC,0062
+5DEB 7B { LD A,E
+5DEC ED B1 .. CPIR
+5DEE E2 08 5E ..^ JP PO,5E08
+5DF1 7A z LD A,D
+5DF2 24 $ INC H
+5DF3 2D - DEC L
+5DF4 BE . CP (HL)
+5DF5 28 04 (. JR Z,5DFB
+5DF7 2C , INC L
+5DF8 25 % DEC H
+5DF9 18 F0 .. JR 5DEB
+5DFB 25 % DEC H
+5DFC E5 . PUSH HL
+5DFD 45 E LD B,L
+5DFE 7B { LD A,E
+5DFF AA . XOR D
+5E00 6F o LD L,A
+5E01 26 14 &. LD H,14
+5E03 70 p LD (HL),B
+5E04 E1 . POP HL
+5E05 C1 . POP BC
+5E06 B7 . OR A
+5E07 C9 . RET
+5E08 C1 . POP BC
+5E09 37 7 SCF
+5E0A C9 . RET
+5E0B 7C | LD A,H
+5E0C FE 10 .. CP 10
+5E0E D8 . RET C
+5E0F 37 7 SCF
+5E10 CB 1C .. RR H
+5E12 6C l LD L,H
+5E13 26 15 &. LD H,15
+5E15 CB 86 .. RES 0,(HL)
+5E17 C9 . RET
+5E18 CD 8A 28 ..( CALL 288A
+5E1B CB 70 .p BIT 6,B
+5E1D 20 1A . JR NZ,5E39
+5E1F 3A 5B 60 :[` LD A,(605B)
+5E22 B7 . OR A
+5E23 28 14 (. JR Z,5E39
+5E25 21 A4 60 !.` LD HL,60A4
+5E28 CB 4E .N BIT 1,(HL)
+5E2A 20 05 . JR NZ,5E31
+5E2C 36 00 6. LD (HL),00
+5E2E C3 1A 6C ..l JP 6C1A
+5E31 36 01 6. LD (HL),01
+5E33 2A A5 60 *.` LD HL,(60A5)
+5E36 7C | LD A,H
+5E37 B5 . OR L
+5E38 C0 . RET NZ
+5E39 CD 42 5E .B^ CALL 5E42
+5E3C 65 e LD H,L
+5E3D CB 24 .$ SLA H
+5E3F 2E 00 .. LD L,00
+5E41 C9 . RET
+5E42 2A 9F 60 *.` LD HL,(609F)
+5E45 22 9D 60 ".` LD (609D),HL
+5E48 11 18 FF ... LD DE,FF18
+5E4B CD 41 5D .A] CALL 5D41
+5E4E CB C6 .. SET 0,(HL)
+5E50 CB FD .. SET 7,L
+5E52 CB C6 .. SET 0,(HL)
+5E54 CB BD .. RES 7,L
+5E56 C9 . RET
+5E57 01 01 00 ... LD BC,0001
+5E5A C9 . RET ;--------------------------------
+5E5B 7C | LD A,H
+5E5C FE A0 .. CP A0
+5E5E 38 F7 8. JR C,5E57
+5E60 37 7 SCF
+5E61 1F . RRA
+5E62 41 A LD B,C
+5E63 80 . ADD B
+5E64 38 F1 8. JR C,5E57
+5E66 E5 . PUSH HL
+5E67 21 A1 60 !.` LD HL,60A1
+5E6A 3D = DEC A
+5E6B BE . CP (HL)
+5E6C E1 . POP HL
+5E6D 30 E8 0. JR NC,5E57
+5E6F CD 20 6E . n CALL 6E20
+5E72 6C l LD L,H
+5E73 37 7 SCF
+5E74 CB 1D .. RR L
+5E76 26 15 &. LD H,15
+5E78 CD B9 5F .._ CALL 5FB9
+5E7B CD 2A 6E .*n CALL 6E2A
+5E7E 01 00 00 ... LD BC,0000
+5E81 C9 . RET
+5E82 E5 . PUSH HL
+5E83 21 B5 4C !.L LD HL,4CB5
+5E86 CB FE .. SET 7,(HL)
+5E88 CB 96 .. RES 2,(HL)
+5E8A E1 . POP HL
+5E8B 47 G LD B,A
+5E8C 3A AD 60 :.` LD A,(60AD)
+5E8F B7 . OR A
+5E90 78 x LD A,B
+5E91 20 0D . JR NZ,5EA0
+5E93 CD B0 5E ..^ CALL 5EB0
+5E96 E5 . PUSH HL
+5E97 21 B5 4C !.L LD HL,4CB5
+5E9A CB BE .. RES 7,(HL)
+5E9C CB D6 .. SET 2,(HL)
+5E9E E1 . POP HL
+5E9F C9 . RET
+5EA0 E5 . PUSH HL
+5EA1 D5 . PUSH DE
+5EA2 CB 2A .* SRA D
+5EA4 CB 1B .. RR E
+5EA6 CD A8 5A ..Z CALL 5AA8
+5EA9 D1 . POP DE
+5EAA E1 . POP HL
+5EAB 18 E9 .. JR 5E96
+5EAD CD 2A 6E .*n CALL 6E2A
+5EB0 06 32 .2 LD B,32
+5EB2 F5 . PUSH AF
+5EB3 C5 . PUSH BC
+5EB4 E5 . PUSH HL
+5EB5 01 00 00 ... LD BC,0000
+5EB8 CB 3A .: SLR D
+5EBA CB 1B .. RR E
+5EBC FE 02 .. CP 02
+5EBE 3E 00 >. LD A,00
+5EC0 28 05 (. JR Z,5EC7
+5EC2 CD 7E 28 .~( CALL 287E
+5EC5 18 03 .. JR 5ECA
+5EC7 CD 81 28 ..( CALL 2881
+5ECA CB 23 .# SLA E
+5ECC CB 12 .. RL D
+5ECE 79 y LD A,C
+5ECF B0 . OR B
+5ED0 28 66 (f JR Z,5F38
+5ED2 22 A9 60 ".` LD (60A9),HL
+5ED5 E1 . POP HL
+5ED6 C1 . POP BC
+5ED7 F1 . POP AF
+5ED8 10 D8 .. DJNZ 5EB2
+5EDA CD 20 6E . n CALL 6E20
+5EDD 21 67 60 !g` LD HL,6067
+5EE0 CD CA 6E ..n CALL 6ECA
+5EE3 2A A9 60 *.` LD HL,(60A9)
+5EE6 CD CA 6E ..n CALL 6ECA
+5EE9 21 6B 60 !k` LD HL,606B
+5EEC CD CA 6E ..n CALL 6ECA ; noch ein Versuch (j)
+5EEF CD 9E 6E ..n CALL 6E9E
+5EF2 FE 64 .d CP 64 ; "d" Diskerror
+5EF4 28 2D (- JR Z,5F23
+5EF6 FE 6A .j CP 6A ; "j" nochmal
+5EF8 28 B3 (. JR Z,5EAD
+5EFA FE 59 .Y CP 59 ; "Y" Mark
+5EFC 20 DF . JR NZ,5EDD
+5EFE 21 84 60 !.` LD HL,6084
+5F01 CD CA 6E ..n CALL 6ECA
+5F04 CD 9E 6E ..n CALL 6E9E
+5F07 FE 10 .. CP 10
+5F09 20 D2 . JR NZ,5EDD
+5F0B CD 2A 6E .*n CALL 6E2A
+5F0E CD 20 6E . n CALL 6E20
+5F11 01 FE 01 ... LD BC,01FE
+5F14 23 # INC HL
+5F15 54 T LD D,H
+5F16 5D ] LD E,L
+5F17 13 . INC DE
+5F18 36 FF 6. LD (HL),FF
+5F1A 2B + DEC HL
+5F1B 36 FD 6. LD (HL),FD
+5F1D ED B0 .. LDIR
+5F1F CD 2A 6E .*n CALL 6E2A
+5F22 C9 . RET
+5F23 CD 2A 6E .*n CALL 6E2A
+5F26 CD 1F 70 ..p CALL 701F ; Info aufrufen
+5F29 18 0B .. JR 5F36
+5F2B 20 44 D JR NZ,5F71 ; " DISK ERROR"
+5F2D 49 I LD C,C
+5F2E 53 S LD D,E
+5F2F 4B K LD C,E
+5F30 20 45 E JR NZ,5F77
+5F32 52 R LD D,D
+5F33 52 R LD D,D
+5F34 4F O LD C,A
+5F35 52 R LD D,D
+5F36 18 A2 .. JR 5EDA
+5F38 E1 . POP HL
+5F39 C1 . POP BC
+5F3A F1 . POP AF
+5F3B C9 . RET
+5F3C 2C , INC L
+5F3D CB FD .. SET 7,L
+5F3F 3A A1 60 :.` LD A,(60A1)
+5F42 BD . CP L
+5F43 C0 . RET NZ
+5F44 2A 9F 60 *.` LD HL,(609F)
+5F47 C9 . RET
+5F48 7C | LD A,H
+5F49 21 B7 60 !.` LD HL,60B7
+5F4C 87 . ADD A
+5F4D 30 01 0. JR NC,5F50
+5F4F 24 $ INC H
+5F50 85 . ADD L
+5F51 6F o LD L,A
+5F52 30 01 0. JR NC,5F55
+5F54 24 $ INC H
+5F55 7E ~ LD A,(HL)
+5F56 3C < INC A
+5F57 C8 . RET Z
+5F58 23 # INC HL
+5F59 66 f LD H,(HL)
+5F5A 6F o LD L,A
+5F5B 22 61 60 "a` LD (6061),HL
+5F5E CD 92 5A ..Z CALL 5A92
+5F61 7C | LD A,H
+5F62 CB 3F .? SLR A
+5F64 C9 . RET
+5F65 CD 6B 5F .k_ CALL 5F6B
+5F68 CB 86 .. RES 0,(HL)
+5F6A C9 . RET
+5F6B 3E 01 >. LD A,01
+5F6D C5 . PUSH BC
+5F6E E5 . PUSH HL
+5F6F 47 G LD B,A
+5F70 CD 0E 6E ..n CALL 6E0E
+5F73 FE 41 .A CP 41
+5F75 78 x LD A,B
+5F76 28 09 (. JR Z,5F81
+5F78 22 97 60 ".` LD (6097),HL
+5F7B 21 96 60 !.` LD HL,6096
+5F7E 77 w LD (HL),A
+5F7F 18 07 .. JR 5F88
+5F81 22 9A 60 ".` LD (609A),HL
+5F84 21 99 60 !.` LD HL,6099
+5F87 77 w LD (HL),A
+5F88 E5 . PUSH HL
+5F89 21 B5 4C !.L LD HL,4CB5
+5F8C CB 96 .. RES 2,(HL)
+5F8E CD E2 6D ..m CALL 6DE2
+5F91 E1 . POP HL
+5F92 7E ~ LD A,(HL)
+5F93 B7 . OR A
+5F94 20 F2 . JR NZ,5F88
+5F96 E1 . POP HL
+5F97 C1 . POP BC
+5F98 C9 . RET
+5F99 E5 . PUSH HL
+5F9A 21 00 00 !.. LD HL,0000
+5F9D 22 5E 60 "^` LD (605E),HL
+5FA0 E1 . POP HL
+5FA1 3E 02 >. LD A,02
+5FA3 18 C8 .. JR 5F6D
+5FA5 CD 1F 70 ..p CALL 701F
+5FA8 18 04 .. JR 5FAE
+5FAA 20 52 R JR NZ,5FFE
+5FAC 45 E LD B,L
+5FAD 53 S LD D,E
+5FAE C3 44 58 .DX JP 5844
+5FB1 21 D0 15 !.. LD HL,15D0
+5FB4 47 G LD B,A
+5FB5 ED 43 64 60 .Cd` LD (6064),BC
+5FB9 CD 6B 5F .k_ CALL 5F6B
+5FBC 24 $ INC H
+5FBD 36 FF 6. LD (HL),FF
+5FBF 25 % DEC H
+5FC0 CB BD .. RES 7,L
+5FC2 CB C6 .. SET 0,(HL)
+5FC4 CB FD .. SET 7,L
+5FC6 2C , INC L
+5FC7 10 F0 .. DJNZ 5FB9
+5FC9 21 00 A0 !.. LD HL,A000
+5FCC C9 . RET
+5FCD 3A 17 82 :.. LD A,(8217) ; musta
+5FD0 CB 67 .g BIT 4,A
+5FD2 20 27 ' JR NZ,5FFB ; Bit 4 = System-Aufbau
+5FD4 21 28 16 !(. LD HL,1628
+5FD7 7E ~ LD A,(HL)
+5FD8 57 W LD D,A
+5FD9 FE FD .. CP FD
+5FDB 30 1A 0. JR NC,5FF7
+5FDD 25 % DEC H
+5FDE 5E ^ LD E,(HL)
+5FDF CD A8 56 ..V CALL 56A8
+5FE2 20 12 . JR NZ,5FF6
+5FE4 7B { LD A,E
+5FE5 BE . CP (HL)
+5FE6 20 0E . JR NZ,5FF6
+5FE8 24 $ INC H
+5FE9 7A z LD A,D
+5FEA BE . CP (HL)
+5FEB 20 0A . JR NZ,5FF7
+5FED 25 % DEC H
+5FEE CB C6 .. SET 0,(HL)
+5FF0 CB FD .. SET 7,L
+5FF2 36 02 6. LD (HL),02
+5FF4 CB BD .. RES 7,L
+5FF6 24 $ INC H
+5FF7 2C , INC L
+5FF8 F2 D7 5F .._ JP P,5FD7
+5FFB 3A 5B 60 :[` LD A,(605B)
+5FFE B7 . OR A
+5FFF 28 12 (. JR Z,6013
+6001 1E 00 .. LD E,00
+6003 D5 . PUSH DE
+6004 CD A6 5A ..Z CALL 5AA6
+6007 09 . ADD HL,BC
+6008 41 A LD B,C
+6009 CB EE .. SET 5,(HL)
+600B 23 # INC HL
+600C 10 FB .. DJNZ 6009
+600E D1 . POP DE
+600F 1C . INC E
+6010 1C . INC E
+6011 20 F0 . JR NZ,6003
+6013 ED 4B 64 60 .Kd` LD BC,(6064)
+6017 21 D0 15 !.. LD HL,15D0
+601A CB 86 .. RES 0,(HL)
+601C 2C , INC L
+601D C8 . RET Z
+601E 10 FA .. DJNZ 601A
+6020 C9 . RET ;-------------------------------
+6021 E5 . PUSH HL
+6022 41 A LD B,C
+6023 6C l LD L,H
+6024 37 7 SCF
+6025 CB 1D .. RR L
+6027 26 15 &. LD H,15
+6029 CD 1A 60 ..` CALL 601A
+602C E1 . POP HL
+602D C9 . RET
+602E CD B6 5D ..] CALL 5DB6
+6031 30 18 0. JR NC,604B
+6033 7A z LD A,D
+6034 32 1F 16 2.. LD (161F),A
+6037 7B { LD A,E
+6038 32 1F 15 2.. LD (151F),A
+603B C5 . PUSH BC
+603C D5 . PUSH DE
+603D CD E2 6D ..m CALL 6DE2
+6040 3A 1F 16 :.. LD A,(161F)
+6043 FE FD .. CP FD
+6045 20 F6 . JR NZ,603D
+6047 D1 . POP DE
+6048 C1 . POP BC
+6049 18 E3 .. JR 602E
+604B 65 e LD H,L
+604C CB 24 .$ SLA H
+604E 2E 00 .. LD L,00
+6050 C9 . RET
+6051 3E 01 >. LD A,01
+6053 32 B3 60 2.` LD (60B3),A
+6056 C9 . RET
+6057 21 A8 15 !.. LD HL,15A8
+605A C9 . RET
+605B 00 . NOP
+605C 0F . RRCA
+605D 00 . NOP
+605E 00 . NOP
+605F 00 . NOP
+6060 00 . NOP
+6061 00 . NOP
+6062 00 . NOP
+6063 00 . NOP
+6064 01 01 FF ... LD BC,FF01
+6067 03 . INC BC
+6068 06 17 .. LD B,17
+606A 00 . NOP
+606B 18 20 . JR 608D
+606D 6E n LD L,(HL) ; "noch ein Versuch"
+606E 6F o LD L,A
+606F 63 c LD H,E
+6070 68 h LD L,B
+6071 20 65 e JR NZ,60D8
+6073 69 i LD L,C
+6074 6E n LD L,(HL)
+6075 20 56 V JR NZ,60CD
+6077 65 e LD H,L
+6078 72 r LD (HL),D
+6079 73 s LD (HL),E
+607A 75 u LD (HL),L
+607B 63 c LD H,E
+607C 68 h LD L,B
+607D 20 28 ( JR NZ,60A7
+607F 6A j LD L,D
+6080 29 ) ADD HL,HL
+6081 20 3F ? JR NZ,60C2
+6083 20 11 . JR NZ,6096
+6085 20 69 i JR NZ,60F0 ; "ignore (MARK) ?"
+6087 67 g LD H,A
+6088 6E n LD L,(HL)
+6089 6F o LD L,A
+608A 72 r LD (HL),D
+608B 65 e LD H,L
+608C 20 28 ( JR NZ,60B6
+608E 4D M LD C,L
+608F 41 A LD B,C
+6090 52 R LD D,D
+6091 4B K LD C,E
+6092 29 ) ADD HL,HL
+6093 20 3F ? JR NZ,60D4
+6095 20 00 . JR NZ,6097
+6097 FF . RST 38
+6098 FF . RST 38
+6099 00 . NOP
+609A FF . RST 38
+609B FF . RST 38
+609C 00 . NOP
+609D DA 15 00 ... JP C,0015
+60A0 00 . NOP
+60A1 00 . NOP
+60A2 00 . NOP
+60A3 00 . NOP
+60A4 01 00 00 ... LD BC,0000
+60A7 00 . NOP
+60A8 00 . NOP
+60A9 00 . NOP
+60AA 00 . NOP
+60AB 00 . NOP
+60AC 00 . NOP
+60AD 00 . NOP
+60AE 00 . NOP
+60AF 00 . NOP
+60B0 00 . NOP
+60B1 20 16 . JR NZ,60C9
+60B3 00 . NOP
+60B4 FF . RST 38
+60B5 00 . NOP
+60B6 00 . NOP
+60B7 FF . RST 38
+60B8 FF . RST 38
+60B9 FF . RST 38
+60BA FF . RST 38
+60BB FF . RST 38
+60BC FF . RST 38
+60BD FF . RST 38
+60BE FF . RST 38
+60BF FF . RST 38
+60C0 FF . RST 38
+60C1 FF . RST 38
+60C2 FF . RST 38
+60C3 FF . RST 38
+60C4 FF . RST 38
+60C5 FF . RST 38
+60C6 FF . RST 38
+60C7 FF . RST 38
+60C8 FF . RST 38
+60C9 FF . RST 38
+60CA FF . RST 38
+60CB FF . RST 38
+60CC FF . RST 38
+60CD FF . RST 38
+60CE FF . RST 38
+60CF FF . RST 38
+60D0 FF . RST 38
+60D1 FF . RST 38
+60D2 FF . RST 38
+60D3 FF . RST 38
+60D4 FF . RST 38
+60D5 FF . RST 38
+60D6 FF . RST 38
+60D7 FF . RST 38
+60D8 FF . RST 38
+60D9 FF . RST 38
+60DA FF . RST 38
+60DB FF . RST 38
+60DC FF . RST 38
+60DD FF . RST 38
+60DE FF . RST 38
+60DF FF . RST 38
+60E0 FF . RST 38
+60E1 FF . RST 38
+60E2 FF . RST 38
+60E3 FF . RST 38
+60E4 FF . RST 38
+60E5 FF . RST 38
+60E6 FF . RST 38
+60E7 FF . RST 38
+60E8 FF . RST 38
+60E9 FF . RST 38
+60EA FF . RST 38
+60EB FF . RST 38
+60EC FF . RST 38
+60ED FF . RST 38
+60EE FF . RST 38
+60EF FF . RST 38
+60F0 FF . RST 38
+60F1 FF . RST 38
+60F2 FF . RST 38
+60F3 FF . RST 38
+60F4 FF . RST 38
+60F5 FF . RST 38
+60F6 FF . RST 38
+60F7 FF . RST 38
+60F8 FF . RST 38
+60F9 FF . RST 38
+60FA FF . RST 38
+60FB FF . RST 38
+60FC FF . RST 38
+60FD FF . RST 38
+60FE FF . RST 38
+60FF FF . RST 38
+6100 FF . RST 38
+6101 FF . RST 38
+6102 FF . RST 38
+6103 FF . RST 38
+6104 FF . RST 38
+6105 FF . RST 38
+6106 FF . RST 38
+6107 FF . RST 38
+6108 FF . RST 38
+6109 FF . RST 38
+610A FF . RST 38
+610B FF . RST 38
+610C FF . RST 38
+610D FF . RST 38
+610E FF . RST 38
+610F FF . RST 38
+6110 FF . RST 38
+6111 FF . RST 38
+6112 FF . RST 38
+6113 FF . RST 38
+6114 FF . RST 38
+6115 FF . RST 38
+6116 FF . RST 38
+6117 FF . RST 38
+6118 FF . RST 38
+6119 FF . RST 38
+611A FF . RST 38
+611B FF . RST 38
+611C FF . RST 38
+611D FF . RST 38
+611E FF . RST 38
+611F FF . RST 38
+6120 FF . RST 38
+6121 FF . RST 38
+6122 FF . RST 38
+6123 FF . RST 38
+6124 FF . RST 38
+6125 FF . RST 38
+6126 FF . RST 38
+6127 FF . RST 38
+6128 FF . RST 38
+6129 FF . RST 38
+612A FF . RST 38
+612B FF . RST 38
+612C FF . RST 38
+612D FF . RST 38
+612E FF . RST 38
+612F FF . RST 38
+6130 FF . RST 38
+6131 FF . RST 38
+6132 FF . RST 38
+6133 FF . RST 38
+6134 FF . RST 38
+6135 FF . RST 38
+6136 FF . RST 38
+6137 FF . RST 38
+6138 FF . RST 38
+6139 FF . RST 38
+613A FF . RST 38
+613B FF . RST 38
+613C FF . RST 38
+613D FF . RST 38
+613E FF . RST 38
+613F FF . RST 38
+6140 FF . RST 38
+6141 FF . RST 38
+6142 FF . RST 38
+6143 FF . RST 38
+6144 FF . RST 38
+6145 FF . RST 38
+6146 FF . RST 38
+6147 FF . RST 38
+6148 FF . RST 38
+6149 FF . RST 38
+614A FF . RST 38
+614B FF . RST 38
+614C FF . RST 38
+614D FF . RST 38
+614E FF . RST 38
+614F FF . RST 38
+6150 FF . RST 38
+6151 FF . RST 38
+6152 FF . RST 38
+6153 FF . RST 38
+6154 FF . RST 38
+6155 FF . RST 38
+6156 FF . RST 38
+6157 FF . RST 38
+6158 FF . RST 38
+6159 FF . RST 38
+615A FF . RST 38
+615B FF . RST 38
+615C FF . RST 38
+615D FF . RST 38
+615E FF . RST 38
+615F FF . RST 38
+6160 FF . RST 38
+6161 FF . RST 38
+6162 FF . RST 38
+6163 FF . RST 38
+6164 FF . RST 38
+6165 FF . RST 38
+6166 FF . RST 38
+6167 FF . RST 38
+6168 FF . RST 38
+6169 FF . RST 38
+616A FF . RST 38
+616B FF . RST 38
+616C FF . RST 38
+616D FF . RST 38
+616E FF . RST 38
+616F FF . RST 38
+6170 FF . RST 38
+6171 FF . RST 38
+6172 FF . RST 38
+6173 FF . RST 38
+6174 FF . RST 38
+6175 FF . RST 38
+6176 FF . RST 38
+6177 FF . RST 38
+6178 FF . RST 38
+6179 FF . RST 38
+617A FF . RST 38
+617B FF . RST 38
+617C FF . RST 38
+617D FF . RST 38
+617E FF . RST 38
+617F FF . RST 38
+6180 FF . RST 38
+6181 FF . RST 38
+6182 FF . RST 38
+6183 FF . RST 38
+6184 FF . RST 38
+6185 FF . RST 38
+6186 FF . RST 38
+6187 FF . RST 38
+6188 FF . RST 38
+6189 FF . RST 38
+618A FF . RST 38
+618B FF . RST 38
+618C FF . RST 38
+618D FF . RST 38
+618E FF . RST 38
+618F FF . RST 38
+6190 FF . RST 38
+6191 FF . RST 38
+6192 FF . RST 38
+6193 FF . RST 38
+6194 FF . RST 38
+6195 FF . RST 38
+6196 FF . RST 38
+6197 FF . RST 38
+6198 FF . RST 38
+6199 FF . RST 38
+619A FF . RST 38
+619B FF . RST 38
+619C FF . RST 38
+619D FF . RST 38
+619E FF . RST 38
+619F FF . RST 38
+61A0 FF . RST 38
+61A1 FF . RST 38
+61A2 FF . RST 38
+61A3 FF . RST 38
+61A4 FF . RST 38
+61A5 FF . RST 38
+61A6 FF . RST 38
+61A7 FF . RST 38
+61A8 FF . RST 38
+61A9 FF . RST 38
+61AA FF . RST 38
+61AB FF . RST 38
+61AC FF . RST 38
+61AD FF . RST 38
+61AE FF . RST 38
+61AF FF . RST 38
+61B0 FF . RST 38
+61B1 FF . RST 38
+61B2 FF . RST 38
+61B3 FF . RST 38
+61B4 FF . RST 38
+61B5 FF . RST 38
+61B6 FF . RST 38
+61B7 FF . RST 38
+61B8 FF . RST 38
+61B9 FF . RST 38
+61BA FF . RST 38
+61BB FF . RST 38
+61BC FF . RST 38
+61BD FF . RST 38
+61BE FF . RST 38
+61BF FF . RST 38
+61C0 FF . RST 38
+61C1 FF . RST 38
+61C2 FF . RST 38
+61C3 FF . RST 38
+61C4 FF . RST 38
+61C5 FF . RST 38
+61C6 FF . RST 38
+61C7 FF . RST 38
+61C8 FF . RST 38
+61C9 FF . RST 38
+61CA FF . RST 38
+61CB FF . RST 38
+61CC FF . RST 38
+61CD FF . RST 38
+61CE FF . RST 38
+61CF FF . RST 38
+61D0 FF . RST 38
+61D1 FF . RST 38
+61D2 FF . RST 38
+61D3 FF . RST 38
+61D4 FF . RST 38
+61D5 FF . RST 38
+61D6 FF . RST 38
+61D7 FF . RST 38
+61D8 FF . RST 38
+61D9 FF . RST 38
+61DA FF . RST 38
+61DB FF . RST 38
+61DC FF . RST 38
+61DD FF . RST 38
+61DE FF . RST 38
+61DF FF . RST 38
+61E0 FF . RST 38
+61E1 FF . RST 38
+61E2 FF . RST 38
+61E3 FF . RST 38
+61E4 FF . RST 38
+61E5 FF . RST 38
+61E6 FF . RST 38
+61E7 FF . RST 38
+61E8 FF . RST 38
+61E9 FF . RST 38
+61EA FF . RST 38
+61EB FF . RST 38
+61EC FF . RST 38
+61ED FF . RST 38
+61EE FF . RST 38
+61EF FF . RST 38
+61F0 FF . RST 38
+61F1 FF . RST 38
+61F2 FF . RST 38
+61F3 FF . RST 38
+61F4 FF . RST 38
+61F5 FF . RST 38
+61F6 FF . RST 38
+61F7 FF . RST 38
+61F8 FF . RST 38
+61F9 FF . RST 38
+61FA FF . RST 38
+61FB FF . RST 38
+61FC FF . RST 38
+61FD FF . RST 38
+61FE FF . RST 38
+61FF FF . RST 38
+6200 FF . RST 38
+6201 FF . RST 38
+6202 FF . RST 38
+6203 FF . RST 38
+6204 FF . RST 38
+6205 FF . RST 38
+6206 FF . RST 38
+6207 FF . RST 38
+6208 FF . RST 38
+6209 FF . RST 38
+620A FF . RST 38
+620B FF . RST 38
+620C FF . RST 38
+620D FF . RST 38
+620E FF . RST 38
+620F FF . RST 38
+6210 FF . RST 38
+6211 FF . RST 38
+6212 FF . RST 38
+6213 FF . RST 38
+6214 FF . RST 38
+6215 FF . RST 38
+6216 FF . RST 38
+6217 FF . RST 38
+6218 FF . RST 38
+6219 FF . RST 38
+621A FF . RST 38
+621B FF . RST 38
+621C FF . RST 38
+621D FF . RST 38
+621E FF . RST 38
+621F FF . RST 38
+6220 FF . RST 38
+6221 FF . RST 38
+6222 FF . RST 38
+6223 FF . RST 38
+6224 FF . RST 38
+6225 FF . RST 38
+6226 FF . RST 38
+6227 FF . RST 38
+6228 FF . RST 38
+6229 FF . RST 38
+622A FF . RST 38
+622B FF . RST 38
+622C FF . RST 38
+622D FF . RST 38
+622E FF . RST 38
+622F FF . RST 38
+6230 FF . RST 38
+6231 FF . RST 38
+6232 FF . RST 38
+6233 FF . RST 38
+6234 FF . RST 38
+6235 FF . RST 38
+6236 FF . RST 38
+6237 FF . RST 38
+6238 FF . RST 38
+6239 FF . RST 38
+623A FF . RST 38
+623B FF . RST 38
+623C FF . RST 38
+623D FF . RST 38
+623E FF . RST 38
+623F FF . RST 38
+6240 FF . RST 38
+6241 FF . RST 38
+6242 FF . RST 38
+6243 FF . RST 38
+6244 FF . RST 38
+6245 FF . RST 38
+6246 FF . RST 38
+6247 FF . RST 38
+6248 FF . RST 38
+6249 FF . RST 38
+624A FF . RST 38
+624B FF . RST 38
+624C FF . RST 38
+624D FF . RST 38
+624E FF . RST 38
+624F FF . RST 38
+6250 FF . RST 38
+6251 FF . RST 38
+6252 FF . RST 38
+6253 FF . RST 38
+6254 FF . RST 38
+6255 FF . RST 38
+6256 FF . RST 38
+6257 FF . RST 38
+6258 FF . RST 38
+6259 FF . RST 38
+625A FF . RST 38
+625B FF . RST 38
+625C FF . RST 38
+625D FF . RST 38
+625E FF . RST 38
+625F FF . RST 38
+6260 FF . RST 38
+6261 FF . RST 38
+6262 FF . RST 38
+6263 FF . RST 38
+6264 FF . RST 38
+6265 FF . RST 38
+6266 FF . RST 38
+6267 FF . RST 38
+6268 FF . RST 38
+6269 FF . RST 38
+626A FF . RST 38
+626B FF . RST 38
+626C FF . RST 38
+626D FF . RST 38
+626E FF . RST 38
+626F FF . RST 38
+6270 FF . RST 38
+6271 FF . RST 38
+6272 FF . RST 38
+6273 FF . RST 38
+6274 FF . RST 38
+6275 FF . RST 38
+6276 FF . RST 38
+6277 FF . RST 38
+6278 FF . RST 38
+6279 FF . RST 38
+627A FF . RST 38
+627B FF . RST 38
+627C FF . RST 38
+627D FF . RST 38
+627E FF . RST 38
+627F FF . RST 38
+6280 FF . RST 38
+6281 FF . RST 38
+6282 FF . RST 38
+6283 FF . RST 38
+6284 FF . RST 38
+6285 FF . RST 38
+6286 FF . RST 38
+6287 FF . RST 38
+6288 FF . RST 38
+6289 FF . RST 38
+628A FF . RST 38
+628B FF . RST 38
+628C FF . RST 38
+628D FF . RST 38
+628E FF . RST 38
+628F FF . RST 38
+6290 FF . RST 38
+6291 FF . RST 38
+6292 FF . RST 38
+6293 FF . RST 38
+6294 FF . RST 38
+6295 FF . RST 38
+6296 FF . RST 38
+6297 FF . RST 38
+6298 FF . RST 38
+6299 FF . RST 38
+629A FF . RST 38
+629B FF . RST 38
+629C FF . RST 38
+629D FF . RST 38
+629E FF . RST 38
+629F FF . RST 38
+62A0 FF . RST 38
+62A1 FF . RST 38
+62A2 FF . RST 38
+62A3 FF . RST 38
+62A4 FF . RST 38
+62A5 FF . RST 38
+62A6 FF . RST 38
+62A7 FF . RST 38
+62A8 FF . RST 38
+62A9 FF . RST 38
+62AA FF . RST 38
+62AB FF . RST 38
+62AC FF . RST 38
+62AD FF . RST 38
+62AE FF . RST 38
+62AF FF . RST 38
+62B0 FF . RST 38
+62B1 FF . RST 38
+62B2 FF . RST 38
+62B3 FF . RST 38
+62B4 FF . RST 38
+62B5 FF . RST 38
+62B6 FF . RST 38
+62B7 61 a LD H,C ; "archiv 3 (!)"
+62B8 72 r LD (HL),D
+62B9 63 c LD H,E
+62BA 68 h LD L,B
+62BB 69 i LD L,C
+62BC 76 v HALT
+62BD 20 20 JR NZ,62DF
+62BF 20 33 3 JR NZ,62F4
+62C1 20 28 ( JR NZ,62EB
+62C3 21 29 50 !)P LD HL,5029 ; "PROZ ARCH"
+62C6 52 R LD D,D
+62C7 4F O LD C,A
+62C8 5A Z LD E,D
+62C9 20 41 A JR NZ,630C
+62CB 52 R LD D,D
+62CC 43 C LD B,E
+62CD 48 H LD C,B
+62CE 54 T LD D,H
+62CF 63 c LD H,E
+62D0 C3 DE 63 ..c JP 63DE
+62D3 41 A LD B,C
+62D4 FF . RST 38
+62D5 FF . RST 38
+62D6 FF . RST 38
+62D7 FF . RST 38
+62D8 FF . RST 38
+62D9 FF . RST 38
+62DA FF . RST 38
+62DB FF . RST 38
+62DC FF . RST 38
+62DD FF . RST 38
+62DE FF . RST 38
+62DF FF . RST 38
+62E0 FF . RST 38
+62E1 FF . RST 38
+62E2 FF . RST 38
+62E3 FF . RST 38
+62E4 FF . RST 38
+62E5 FF . RST 38
+62E6 FF . RST 38
+62E7 FF . RST 38
+62E8 FF . RST 38
+62E9 FF . RST 38
+62EA FF . RST 38
+62EB FF . RST 38
+62EC FF . RST 38
+62ED FF . RST 38
+62EE FF . RST 38
+62EF FF . RST 38
+62F0 FF . RST 38
+62F1 FF . RST 38
+62F2 FF . RST 38
+62F3 FF . RST 38
+62F4 FF . RST 38
+62F5 FF . RST 38
+62F6 FF . RST 38
+62F7 FF . RST 38
+62F8 FF . RST 38
+62F9 FF . RST 38
+62FA FF . RST 38
+62FB FF . RST 38
+62FC FF . RST 38
+62FD FF . RST 38
+62FE FF . RST 38
+62FF FF . RST 38
+6300 FF . RST 38
+6301 FF . RST 38
+6302 FF . RST 38
+6303 FF . RST 38
+6304 FF . RST 38
+6305 FF . RST 38
+6306 FF . RST 38
+6307 FF . RST 38
+6308 FF . RST 38
+6309 FF . RST 38
+630A FF . RST 38
+630B FF . RST 38
+630C FF . RST 38
+630D FF . RST 38
+630E FF . RST 38
+630F FF . RST 38
+6310 FF . RST 38
+6311 FF . RST 38
+6312 FF . RST 38
+6313 FF . RST 38
+6314 FF . RST 38
+6315 FF . RST 38
+6316 FF . RST 38
+6317 FF . RST 38
+6318 FF . RST 38
+6319 FF . RST 38
+631A FF . RST 38
+631B FF . RST 38
+631C FF . RST 38
+631D FF . RST 38
+631E FF . RST 38
+631F FF . RST 38
+6320 FF . RST 38
+6321 FF . RST 38
+6322 FF . RST 38
+6323 FF . RST 38
+6324 FF . RST 38
+6325 FF . RST 38
+6326 FF . RST 38
+6327 FF . RST 38
+6328 FF . RST 38
+6329 FF . RST 38
+632A FF . RST 38
+632B FF . RST 38
+632C FF . RST 38
+632D FF . RST 38
+632E FF . RST 38
+632F FF . RST 38
+6330 FF . RST 38
+6331 FF . RST 38
+6332 FF . RST 38
+6333 FF . RST 38
+6334 FF . RST 38
+6335 FF . RST 38
+6336 FF . RST 38
+6337 FF . RST 38
+6338 FF . RST 38
+6339 FF . RST 38
+633A FF . RST 38
+633B FF . RST 38
+633C FF . RST 38
+633D FF . RST 38
+633E FF . RST 38
+633F FF . RST 38
+6340 FF . RST 38
+6341 FF . RST 38
+6342 FF . RST 38
+6343 FF . RST 38
+6344 FF . RST 38
+6345 FF . RST 38
+6346 FF . RST 38
+6347 FF . RST 38
+6348 FF . RST 38
+6349 FF . RST 38
+634A FF . RST 38
+634B FF . RST 38
+634C FF . RST 38
+634D FF . RST 38
+634E FF . RST 38
+634F FF . RST 38
+6350 FF . RST 38
+6351 FF . RST 38
+6352 FF . RST 38
+6353 FF . RST 38
+6354 56 V LD D,(HL)
+6355 63 c LD H,E
+6356 21 B5 4C !.L LD HL,4CB5
+6359 CB 96 .. RES 2,(HL)
+635B CD E2 6D ..m CALL 6DE2
+635E 3A 51 64 :Qd LD A,(6451)
+6361 B7 . OR A
+6362 28 F7 (. JR Z,635B
+6364 FA 5B 63 .[c JP M,635B
+6367 21 B5 4C !.L LD HL,4CB5
+636A CB D6 .. SET 2,(HL)
+636C FE 0C .. CP 0C
+636E DA 81 63 ..c JP C,6381
+6371 CD 1F 70 ..p CALL 701F
+6374 18 04 .. JR 637A
+6376 20 3F ? JR NZ,63B7
+6378 3F ? CCF
+6379 3F ? CCF
+637A 3E 00 >. LD A,00
+637C 32 51 64 2Qd LD (6451),A
+637F 18 D5 .. JR 6356
+6381 2A 49 64 *Id LD HL,(6449)
+6384 ED 5B 4D 64 .[Md LD DE,(644D)
+6388 ED 4B 4B 64 .KKd LD BC,(644B)
+638C FE 0A .. CP 0A
+638E 28 1F (. JR Z,63AF
+6390 FE 0B .. CP 0B
+6392 3A 4F 64 :Od LD A,(644F)
+6395 28 05 (. JR Z,639C
+6397 CD 7E 28 .~( CALL 287E
+639A 18 19 .. JR 63B5
+639C EB . EX DE,HL
+639D ED 5B 4B 64 .[Kd LD DE,(644B)
+63A1 ED 4B 49 64 .KId LD BC,(6449)
+63A5 CD A8 28 ..( CALL 28A8
+63A8 ED 43 53 64 .CSd LD (6453),BC
+63AC C3 7A 63 .zc JP 637A
+63AF 3A 4F 64 :Od LD A,(644F)
+63B2 CD 81 28 ..( CALL 2881
+63B5 ED 43 53 64 .CSd LD (6453),BC
+63B9 2A 49 64 *Id LD HL,(6449)
+63BC CD CC 63 ..c CALL 63CC
+63BF C3 7A 63 .zc JP 637A
+63C2 01 01 00 ... LD BC,0001
+63C5 ED 43 53 64 .CSd LD (6453),BC
+63C9 C3 7A 63 .zc JP 637A
+63CC 6C l LD L,H
+63CD 37 7 SCF
+63CE CB 1D .. RR L
+63D0 26 15 &. LD H,15
+63D2 CB 86 .. RES 0,(HL)
+63D4 C9 . RET
+63D5 6C l LD L,H
+63D6 37 7 SCF
+63D7 CB 1D .. RR L
+63D9 26 15 &. LD H,15
+63DB CB C6 .. SET 0,(HL)
+63DD C9 . RET
+63DE F5 . PUSH AF
+63DF 3E 09 >. LD A,09
+63E1 F5 . PUSH AF
+63E2 E5 . PUSH HL
+63E3 21 51 64 !Qd LD HL,6451
+63E6 7E ~ LD A,(HL)
+63E7 B7 . OR A
+63E8 C2 1A 6C ..l JP NZ,6C1A
+63EB 23 # INC HL
+63EC 7E ~ LD A,(HL)
+63ED B7 . OR A
+63EE 28 11 (. JR Z,6401
+63F0 3A 1A 6E :.n LD A,(6E1A)
+63F3 BE . CP (HL)
+63F4 C2 1A 6C ..l JP NZ,6C1A
+63F7 36 00 6. LD (HL),00
+63F9 ED 4B 53 64 .KSd LD BC,(6453)
+63FD E1 . POP HL
+63FE F1 . POP AF
+63FF F1 . POP AF
+6400 C9 . RET
+6401 3A 1A 6E :.n LD A,(6E1A)
+6404 77 w LD (HL),A
+6405 E1 . POP HL
+6406 ED 53 49 64 .SId LD (6449),DE
+640A 22 4B 64 "Kd LD (644B),HL
+640D ED 43 4D 64 .CMd LD (644D),BC
+6411 F1 . POP AF
+6412 EB . EX DE,HL
+6413 32 51 64 2Qd LD (6451),A
+6416 FE 0B .. CP 0B
+6418 C4 D5 63 ..c CALL NZ,63D5
+641B F1 . POP AF
+641C 32 4F 64 2Od LD (644F),A
+641F 21 51 64 !Qd LD HL,6451
+6422 C3 1A 6C ..l JP 6C1A
+6425 F5 . PUSH AF
+6426 3E 0A >. LD A,0A
+6428 18 B7 .. JR 63E1
+642A F5 . PUSH AF
+642B 3E 0B >. LD A,0B
+642D 18 B2 .. JR 63E1
+642F E5 . PUSH HL
+6430 21 52 64 !Rd LD HL,6452
+6433 BE . CP (HL)
+6434 20 02 . JR NZ,6438
+6436 36 00 6. LD (HL),00
+6438 E1 . POP HL
+6439 C9 . RET
+643A ED 4B 45 64 .KEd LD BC,(6445)
+643E 21 00 00 !.. LD HL,0000
+6441 22 45 64 "Ed LD (6445),HL
+6444 C9 . RET
+6445 00 . NOP
+6446 00 . NOP
+6447 00 . NOP
+6448 00 . NOP
+6449 FF . RST 38
+644A FF . RST 38
+644B FF . RST 38
+644C FF . RST 38
+644D FF . RST 38
+644E FF . RST 38
+644F FF . RST 38
+6450 00 . NOP
+6451 00 . NOP
+6452 00 . NOP
+6453 05 . DEC B
+6454 00 . NOP
+6455 00 . NOP
+6456 00 . NOP
+6457 00 . NOP
+6458 00 . NOP
+6459 00 . NOP
+645A 00 . NOP
+645B 00 . NOP
+645C 00 . NOP
+645D 00 . NOP
+645E 00 . NOP
+645F 00 . NOP
+6460 00 . NOP
+6461 00 . NOP
+6462 00 . NOP
+6463 00 . NOP
+6464 00 . NOP
+6465 00 . NOP
+6466 00 . NOP
+6467 00 . NOP
+6468 00 . NOP
+6469 00 . NOP
+646A 00 . NOP
+646B 31 37 35 175 LD SP,3537 ; "175---spver quelle 3 (!)"
+646E 2D - DEC L
+646F 2D - DEC L
+6470 2D - DEC L
+6471 73 s LD (HL),E
+6472 70 p LD (HL),B
+6473 76 v HALT
+6474 65 e LD H,L
+6475 72 r LD (HL),D
+6476 2E 71 .q LD L,71
+6478 75 u LD (HL),L
+6479 65 e LD H,L
+647A 6C l LD L,H
+647B 6C l LD L,H
+647C 65 e LD H,L
+647D 20 20 JR NZ,649F
+647F 20 33 3 JR NZ,64B4
+6481 20 28 ( JR NZ,64AB
+6483 21 29 01 !). LD HL,0129
+6486 38 00 8. JR C,6488
+6488 CD D8 81 ... CALL 81D8
+648B FD 2A FA 6E .*.n LD IY,(6EFA)
+648F FD 46 04 .F. LD B,(IY+04)
+6492 FD 4E 03 .N. LD C,(IY+03)
+6495 C5 . PUSH BC
+6496 ED 73 51 65 .sQe LD (6551),SP
+649A 01 3B 65 .;e LD BC,653B
+649D FD 70 04 .p. LD (IY+04),B
+64A0 FD 71 03 .q. LD (IY+03),C
+64A3 CD 48 65 .He CALL 6548
+64A6 11 00 00 ... LD DE,0000 ; Block 0
+64A9 CD 4E 6A .Nj CALL 6A4E ; In RAM holen (Adresse in HL)
+64AC 67 g LD H,A ; Ettikettadresse (Highbyte in H)
+64AD 97 . SUB A ; HG-Kanal
+64AE 01 05 00 ... LD BC,0005 ; IOCONTROL 'size'
+64B1 CD A8 28 ..( CALL 28A8
+64B4 2E 24 .$ LD L,24 ; 'aus historischen Grnden...'
+64B6 CB 28 .( SRA B ; = HG-Blocks DIV 8
+64B8 CB 19 .. RR C
+64BA CB 28 .( SRA B
+64BC CB 19 .. RR C
+64BE CB 28 .( SRA B
+64C0 CB 19 .. RR C
+64C2 71 q LD (HL),C ; eintragen
+64C3 23 # INC HL
+64C4 70 p LD (HL),B
+64C5 2E 0E .. LD L,0E ; session INCR 1
+64C7 5E ^ LD E,(HL)
+64C8 2C , INC L
+64C9 56 V LD D,(HL)
+64CA 13 . INC DE
+64CB 72 r LD (HL),D
+64CC 2D - DEC L
+64CD 73 s LD (HL),E
+64CE ED 53 17 6B .S.k LD (6B17),DE ; Ausserdem in 6B17 ablegen
+64D2 2E 46 .F LD L,46 ; Infopassword
+64D4 11 19 7D ..} LD DE,7D19 ; Lesen --> 7D19
+64D7 01 0A 00 ... LD BC,000A ; 10 Bytes
+64DA ED B0 .. LDIR
+64DC 2E 50 .P LD L,50 ;
+64DE 7E ~ LD A,(HL)
+64DF FE 01 .. CP 01 ; 1 = frisches System
+64E1 20 17 . JR NZ,64FA
+64E3 36 00 6. LD (HL),00 ; jetzt nicht frisch
+64E5 3E 11 >. LD A,11 ; Funktion 17
+64E7 CD BB 81 ... CALL 81BB
+64EA CD 26 65 .&e CALL 6526
+64ED 3E 12 >. LD A,12 ; Funktion 18 'System aufbauen'
+64EF CD BB 81 ... CALL 81BB
+64F2 21 1A 6B !.k LD HL,6B1A
+64F5 CD CA 6E ..n CALL 6ECA
+64F8 18 20 . JR 651A ; das wars
+64FA 2E 0D .. LD L,0D ; 0 = shutup-Zustand
+64FC CB 4E .N BIT 1,(HL)
+64FE 28 08 (. JR Z,6508
+6500 21 00 6B !.k LD HL,6B00 ; Alte Werte benuzten 6B00..
+6503 CD CA 6E ..n CALL 6ECA
+6506 18 02 .. JR 650A
+6508 36 FF 6. LD (HL),FF ; FF = kein Shutup
+650A CD 48 65 .He CALL 6548
+650D CD 18 53 ..S CALL 5318
+6510 3E 01 >. LD A,01 ; Funktion 1
+6512 CD BB 81 ... CALL 81BB
+6515 CD 26 65 .&e CALL 6526
+6518 18 00 .. JR 651A
+651A C1 . POP BC ;
+651B FD 2A FA 6E .*.n LD IY,(6EFA)
+651F FD 70 04 .p. LD (IY+04),B
+6522 FD 71 03 .q. LD (IY+03),C
+6525 C9 . RET
+6526 CD 48 65 .He CALL 6548 ; N„chsten MINI
+6529 11 02 00 ... LD DE,0002 ; Block "2" ist Systemanker
+652C CD 36 6A .6j CALL 6A36 ; A ist Adresse (Highbyte)
+652F 67 g LD H,A
+6530 2E 00 .. LD L,00
+6532 11 2B 1E .+. LD DE,1E2B
+6535 01 10 00 ... LD BC,0010 ; 16 Bytes (DR_DR) bertragen
+6538 ED B0 .. LDIR
+653A C9 . RET
+653B ED 7B 51 65 .{Qe LD SP,(6551)
+653F CD E2 6D ..m CALL 6DE2
+6542 FD 2A 53 65 .*Se LD IY,(6553)
+6546 FD E9 .. JP (IY)
+6548 E1 . POP HL
+6549 ED 73 51 65 .sQe LD (6551),SP
+654D 22 53 65 "Se LD (6553),HL
+6550 E9 . JP (HL)
+6551 00 . NOP ; MINI-Savestackpointer
+6552 00 . NOP
+6553 00 . NOP ; MINI IY Zeigt auf MINI-Descriptor
+6554 00 . NOP
+6555 CD 5C 65 .\e CALL 655C
+6558 CD CA 5C ..\ CALL 5CCA
+655B C9 . RET
+655C 7A z LD A,D
+655D FE 04 .. CP 04
+655F 30 02 0. JR NC,6563 ; Korrekte DSnr in D ?
+6561 16 05 .. LD D,05 ; Nein 'errorspace' 5
+6563 C5 . PUSH BC
+6564 E5 . PUSH HL
+6565 3A 1A 6E :.n LD A,(6E1A)
+6568 6F o LD L,A
+6569 7D } LD A,L
+656A 87 . ADD A
+656B 8B . ADC E
+ - Fortsetzung in Datei "eumel0.prt.4" -
+
diff --git a/system/eumel0-z80/src/eumel0.prt.4 b/system/eumel0-z80/src/eumel0.prt.4 new file mode 100644 index 0000000..3eb9b03 --- /dev/null +++ b/system/eumel0-z80/src/eumel0.prt.4 @@ -0,0 +1,4001 @@ +ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT
+
+656C 8A . ADC D
+656D 8C . ADC H
+656E 4F O LD C,A
+656F 06 14 .. LD B,14
+6571 0A . LD A,(BC)
+6572 4F O LD C,A
+6573 06 18 .. LD B,18
+6575 0A . LD A,(BC)
+6576 BC . CP H
+6577 20 15 . JR NZ,658E
+6579 05 . DEC B
+657A 0A . LD A,(BC)
+657B BA . CP D
+657C 20 10 . JR NZ,658E
+657E CB F9 .. SET 7,C
+6580 0A . LD A,(BC)
+6581 BB . CP E
+6582 20 0A . JR NZ,658E
+6584 05 . DEC B
+6585 0A . LD A,(BC)
+6586 BD . CP L
+6587 20 05 . JR NZ,658E
+6589 79 y LD A,C
+658A 87 . ADD A
+658B E1 . POP HL
+658C C1 . POP BC
+658D C9 . RET
+658E DD E5 .. PUSH IX
+6590 FD E5 .. PUSH IY
+6592 D5 . PUSH DE
+6593 7D } LD A,L
+6594 6C l LD L,H
+6595 63 c LD H,E
+6596 5A Z LD E,D
+6597 57 W LD D,A
+6598 E5 . PUSH HL
+6599 7B { LD A,E
+659A FE 20 . CP 20
+659C 38 36 86 JR C,65D4
+659E CD DA 66 ..f CALL 66DA
+65A1 D1 . POP DE
+65A2 CD E1 65 ..e CALL 65E1
+65A5 D1 . POP DE
+65A6 FD E1 .. POP IY
+65A8 DD E1 .. POP IX
+65AA E1 . POP HL
+65AB C1 . POP BC
+65AC E5 . PUSH HL
+65AD C5 . PUSH BC
+65AE F5 . PUSH AF
+65AF 3A 1A 6E :.n LD A,(6E1A)
+65B2 6F o LD L,A
+65B3 7D } LD A,L
+65B4 87 . ADD A
+65B5 8B . ADC E
+65B6 8A . ADC D
+65B7 8C . ADC H
+65B8 4F O LD C,A
+65B9 06 14 .. LD B,14
+65BB F1 . POP AF
+65BC F5 . PUSH AF
+65BD 0F . RRCA
+65BE 02 . LD (BC),A
+65BF 4F O LD C,A
+65C0 06 18 .. LD B,18
+65C2 7C | LD A,H
+65C3 02 . LD (BC),A
+65C4 05 . DEC B
+65C5 7A z LD A,D
+65C6 02 . LD (BC),A
+65C7 CB F9 .. SET 7,C
+65C9 7B { LD A,E
+65CA 02 . LD (BC),A
+65CB 05 . DEC B
+65CC 7D } LD A,L
+65CD 02 . LD (BC),A
+65CE F1 . POP AF
+65CF C1 . POP BC
+65D0 E1 . POP HL
+65D1 C9 . RET
+65D2 F1 . POP AF
+65D3 C9 . RET
+65D4 87 . ADD A
+65D5 87 . ADD A
+65D6 87 . ADD A
+65D7 87 . ADD A
+65D8 2A 1C 6E *.n LD HL,(6E1C)
+65DB 6F o LD L,A
+65DC 30 C3 0. JR NC,65A1
+65DE 24 $ INC H
+65DF 18 C0 .. JR 65A1
+65E1 23 # INC HL
+65E2 7E ~ LD A,(HL)
+65E3 2B + DEC HL
+65E4 3C < INC A
+65E5 20 27 ' JR NZ,660E
+65E7 7A z LD A,D
+65E8 B7 . OR A
+65E9 20 0C . JR NZ,65F7
+65EB 7B { LD A,E
+65EC FE 03 .. CP 03
+65EE 38 0E 8. JR C,65FE
+65F0 96 . SUB (HL)
+65F1 38 04 8. JR C,65F7
+65F3 FE 05 .. CP 05
+65F5 38 11 8. JR C,6608
+65F7 11 FF FF ... LD DE,FFFF
+65FA CD 36 6A .6j CALL 6A36
+65FD C9 . RET
+65FE 87 . ADD A
+65FF 28 F6 (. JR Z,65F7
+6601 85 . ADD L
+6602 6F o LD L,A
+6603 5E ^ LD E,(HL)
+6604 23 # INC HL
+6605 56 V LD D,(HL)
+6606 18 F2 .. JR 65FA
+6608 87 . ADD A
+6609 C6 06 .. ADD A,06
+660B C3 01 66 ..f JP 6601
+660E 7A z LD A,D
+660F E6 07 .. AND 07
+6611 87 . ADD A
+6612 85 . ADD L
+6613 6F o LD L,A
+6614 D5 . PUSH DE
+6615 5E ^ LD E,(HL)
+6616 23 # INC HL
+6617 56 V LD D,(HL)
+6618 3E FF >. LD A,FF
+661A CD 3F 6A .?j CALL 6A3F
+661D E1 . POP HL
+661E CB 25 .% SLA L
+6620 CE 00 .. ADC A,00
+6622 67 g LD H,A
+6623 5E ^ LD E,(HL)
+6624 2C , INC L
+6625 56 V LD D,(HL)
+6626 CD C1 5C ..\ CALL 5CC1
+6629 C3 FA 65 ..e JP 65FA
+662C 7A z LD A,D
+662D FE 04 .. CP 04 ; drid < 4
+662F 30 13 0. JR NC,6644
+6631 CD 1F 70 ..p CALL 701F ; Info aufrufen
+6634 18 0C .. JR 6642
+6636 20 75 u JR NZ,66AD ; " unzul. drid"
+6638 6E n LD L,(HL)
+6639 7A z LD A,D
+663A 75 u LD (HL),L
+663B 6C l LD L,H
+663C 2E 20 . LD L,20
+663E 64 d LD H,H
+663F 72 r LD (HL),D
+6640 69 i LD L,C
+6641 64 d LD H,H
+6642 16 05 .. LD D,05
+6644 C5 . PUSH BC
+6645 E5 . PUSH HL
+6646 3A 1A 6E :.n LD A,(6E1A)
+6649 6F o LD L,A
+664A 7D } LD A,L
+664B 87 . ADD A
+664C 8B . ADC E
+664D 8A . ADC D
+664E 8C . ADC H
+664F 4F O LD C,A
+6650 06 14 .. LD B,14
+6652 0A . LD A,(BC)
+6653 4F O LD C,A
+6654 06 18 .. LD B,18
+6656 0A . LD A,(BC)
+6657 BC . CP H
+6658 20 1B . JR NZ,6675
+665A 05 . DEC B
+665B 0A . LD A,(BC)
+665C BA . CP D
+665D 20 16 . JR NZ,6675
+665F CB F9 .. SET 7,C
+6661 0A . LD A,(BC)
+6662 BB . CP E
+6663 20 10 . JR NZ,6675
+6665 05 . DEC B
+6666 0A . LD A,(BC)
+6667 BD . CP L
+6668 20 0B . JR NZ,6675
+666A 05 . DEC B
+666B 0A . LD A,(BC)
+666C CB 57 .W BIT 2,A
+666E 28 05 (. JR Z,6675
+6670 79 y LD A,C
+6671 81 . ADD C
+6672 E1 . POP HL
+6673 C1 . POP BC
+6674 C9 . RET
+6675 DD E5 .. PUSH IX
+6677 FD E5 .. PUSH IY
+6679 D5 . PUSH DE
+667A 7D } LD A,L
+667B 6C l LD L,H
+667C 63 c LD H,E
+667D 5A Z LD E,D
+667E 57 W LD D,A
+667F E5 . PUSH HL
+6680 7B { LD A,E
+6681 FE 20 . CP 20
+6683 38 43 8C JR C,66C8
+6685 CD DE 66 ..f CALL 66DE
+6688 D1 . POP DE
+6689 CD 93 67 ..g CALL 6793
+668C 20 47 G JR NZ,66D5
+668E CD 48 6A .Hj CALL 6A48
+6691 F5 . PUSH AF
+6692 CD C1 5C ..\ CALL 5CC1
+6695 F1 . POP AF
+6696 D1 . POP DE
+6697 FD E1 .. POP IY
+6699 DD E1 .. POP IX
+669B E1 . POP HL
+669C C1 . POP BC
+669D E5 . PUSH HL
+669E C5 . PUSH BC
+669F F5 . PUSH AF
+66A0 3A 1A 6E :.n LD A,(6E1A)
+66A3 6F o LD L,A
+66A4 7D } LD A,L
+66A5 87 . ADD A
+66A6 8B . ADC E
+66A7 8A . ADC D
+66A8 8C . ADC H
+66A9 4F O LD C,A
+66AA 06 14 .. LD B,14
+66AC F1 . POP AF
+66AD F5 . PUSH AF
+66AE 0F . RRCA
+66AF 02 . LD (BC),A
+66B0 4F O LD C,A
+66B1 06 18 .. LD B,18
+66B3 7C | LD A,H
+66B4 02 . LD (BC),A
+66B5 05 . DEC B
+66B6 7A z LD A,D
+66B7 02 . LD (BC),A
+66B8 CB F9 .. SET 7,C
+66BA 7B { LD A,E
+66BB 02 . LD (BC),A
+66BC 05 . DEC B
+66BD 7D } LD A,L
+66BE 02 . LD (BC),A
+66BF 05 . DEC B
+66C0 0A . LD A,(BC)
+66C1 F6 0C .. OR 0C
+66C3 02 . LD (BC),A
+66C4 F1 . POP AF
+66C5 C1 . POP BC
+66C6 E1 . POP HL
+66C7 C9 . RET
+66C8 87 . ADD A
+66C9 87 . ADD A
+66CA 87 . ADD A
+66CB 87 . ADD A
+66CC 2A 1C 6E *.n LD HL,(6E1C)
+66CF 6F o LD L,A
+66D0 30 B3 0. JR NC,6685
+66D2 24 $ INC H
+66D3 18 B0 .. JR 6685
+66D5 CD 35 68 .5h CALL 6835
+66D8 18 6A .j JR 6744
+66DA 3E 00 >. LD A,00
+66DC 18 02 .. JR 66E0
+66DE 3E 01 >. LD A,01
+66E0 32 12 6B 2.k LD (6B12),A
+66E3 7B { LD A,E
+66E4 FE 20 . CP 20
+66E6 30 1D 0. JR NC,6705
+66E8 6A j LD L,D
+66E9 26 14 &. LD H,14
+66EB 6E n LD L,(HL)
+66EC 26 17 &. LD H,17
+66EE 7E ~ LD A,(HL)
+66EF B7 . OR A
+66F0 20 13 . JR NZ,6705
+66F2 25 % DEC H
+66F3 CB FD .. SET 7,L
+66F5 7E ~ LD A,(HL)
+66F6 BA . CP D
+66F7 20 0C . JR NZ,6705
+66F9 25 % DEC H
+66FA CB 56 .V BIT 2,(HL)
+66FC 28 07 (. JR Z,6705
+66FE CB DE .. SET 3,(HL)
+6700 7D } LD A,L
+6701 87 . ADD A
+6702 6B k LD L,E
+6703 18 6C .l JR 6771
+6705 21 2B 1E !+. LD HL,1E2B
+6708 D5 . PUSH DE
+6709 CB 3A .: SLR D
+670B CB 1B .. RR E
+670D CB 3A .: SLR D
+670F CB 1B .. RR E
+6711 CB 3A .: SLR D
+6713 CB 1B .. RR E
+6715 CB 3A .: SLR D
+6717 CB 1B .. RR E
+6719 CB 3A .: SLR D
+671B CB 1B .. RR E
+671D 3A 12 6B :.k LD A,(6B12)
+6720 B7 . OR A
+6721 28 27 (' JR Z,674A
+6723 CD 93 67 ..g CALL 6793
+6726 28 27 (' JR Z,674F
+6728 CD 35 68 .5h CALL 6835
+672B D1 . POP DE
+672C 7A z LD A,D
+672D B7 . OR A
+672E 28 14 (. JR Z,6744
+6730 2E 00 .. LD L,00
+6732 06 20 . LD B,20
+6734 7B { LD A,E
+6735 FE 20 . CP 20
+6737 30 04 0. JR NC,673D
+6739 2E 40 .@ LD L,40
+673B 06 1C .. LD B,1C
+673D C5 . PUSH BC
+673E CD 80 67 ..g CALL 6780
+6741 C1 . POP BC
+6742 10 F9 .. DJNZ 673D
+6744 21 00 00 !.. LD HL,0000
+6747 C3 1A 6C ..l JP 6C1A
+674A CD E1 65 ..e CALL 65E1
+674D 18 03 .. JR 6752
+674F CD 48 6A .Hj CALL 6A48
+6752 E1 . POP HL
+6753 F5 . PUSH AF
+6754 7D } LD A,L
+6755 FE 20 . CP 20
+6757 30 17 0. JR NC,6770
+6759 F1 . POP AF
+675A F5 . PUSH AF
+675B E5 . PUSH HL
+675C CB 3F .? SLR A
+675E 6F o LD L,A
+675F 54 T LD D,H
+6760 26 17 &. LD H,17
+6762 36 00 6. LD (HL),00
+6764 25 % DEC H
+6765 CB FD .. SET 7,L
+6767 72 r LD (HL),D
+6768 25 % DEC H
+6769 CB D6 .. SET 2,(HL)
+676B 26 14 &. LD H,14
+676D 6A j LD L,D
+676E 77 w LD (HL),A
+676F E1 . POP HL
+6770 F1 . POP AF
+6771 CB 25 .% SLA L
+6773 CB 25 .% SLA L
+6775 CB 25 .% SLA L
+6777 CB 25 .% SLA L
+6779 CE 00 .. ADC A,00
+677B 67 g LD H,A
+677C CD C1 5C ..\ CALL 5CC1
+677F C9 . RET
+6780 06 08 .. LD B,08
+6782 23 # INC HL
+6783 7E ~ LD A,(HL)
+6784 2B + DEC HL
+6785 FE FF .. CP FF
+6787 20 03 . JR NZ,678C
+6789 23 # INC HL
+678A 23 # INC HL
+678B 05 . DEC B
+678C CB C6 .. SET 0,(HL)
+678E 23 # INC HL
+678F 23 # INC HL
+6790 10 FA .. DJNZ 678C
+6792 C9 . RET
+6793 23 # INC HL
+6794 7E ~ LD A,(HL)
+6795 2B + DEC HL
+6796 3C < INC A
+6797 C2 0A 68 ..h JP NZ,680A
+679A 7A z LD A,D
+679B B7 . OR A
+679C 20 1B . JR NZ,67B9
+679E 7B { LD A,E
+679F FE 03 .. CP 03
+67A1 DA 01 68 ..h JP C,6801
+67A4 7E ~ LD A,(HL)
+67A5 3C < INC A
+67A6 20 08 . JR NZ,67B0
+67A8 7B { LD A,E
+67A9 FE FB .. CP FB
+67AB 38 02 8. JR C,67AF
+67AD 3E FB >. LD A,FB
+67AF 77 w LD (HL),A
+67B0 7B { LD A,E
+67B1 96 . SUB (HL)
+67B2 38 05 8. JR C,67B9
+67B4 FE 05 .. CP 05
+67B6 DA FC 67 ..g JP C,67FC
+67B9 E5 . PUSH HL
+67BA 21 13 6B !.k LD HL,6B13
+67BD CD 35 68 .5h CALL 6835
+67C0 7C | LD A,H
+67C1 ED 5B 13 6B .[.k LD DE,(6B13)
+67C5 21 FF FF !.. LD HL,FFFF
+67C8 22 13 6B ".k LD (6B13),HL
+67CB E1 . POP HL
+67CC 46 F LD B,(HL)
+67CD 73 s LD (HL),E
+67CE 23 # INC HL
+67CF 72 r LD (HL),D
+67D0 57 W LD D,A
+67D1 1E 02 .. LD E,02
+67D3 23 # INC HL
+67D4 78 x LD A,B
+67D5 01 04 00 ... LD BC,0004
+67D8 ED B0 .. LDIR
+67DA 01 0A 00 ... LD BC,000A
+67DD 5F _ LD E,A
+67DE 3C < INC A
+67DF 20 03 . JR NZ,67E4
+67E1 09 . ADD HL,BC
+67E2 18 08 .. JR 67EC
+67E4 7A z LD A,D
+67E5 CB 23 .# SLA E
+67E7 CE 00 .. ADC A,00
+67E9 57 W LD D,A
+67EA ED B0 .. LDIR
+67EC 2B + DEC HL
+67ED 01 0D 00 ... LD BC,000D
+67F0 54 T LD D,H
+67F1 5D ] LD E,L
+67F2 1B . DEC DE
+67F3 36 FF 6. LD (HL),FF
+67F5 ED B8 .. LDDR
+67F7 36 01 6. LD (HL),01
+67F9 C3 44 67 .Dg JP 6744
+67FC 87 . ADD A
+67FD C6 06 .. ADD A,06
+67FF 18 04 .. JR 6805
+6801 87 . ADD A
+6802 CA B9 67 ..g JP Z,67B9
+6805 85 . ADD L
+6806 6F o LD L,A
+6807 CB 46 .F BIT 0,(HL)
+6809 C9 . RET
+680A D5 . PUSH DE
+680B 7A z LD A,D
+680C E6 07 .. AND 07
+680E CB 27 .' SLA A
+6810 85 . ADD L
+6811 6F o LD L,A
+6812 CB 46 .F BIT 0,(HL)
+6814 20 11 . JR NZ,6827
+6816 5E ^ LD E,(HL)
+6817 2C , INC L
+6818 56 V LD D,(HL)
+6819 3E FD >. LD A,FD
+681B CD 3F 6A .?j CALL 6A3F
+681E E1 . POP HL
+681F CB 25 .% SLA L
+6821 CE 00 .. ADC A,00
+6823 67 g LD H,A
+6824 CB 46 .F BIT 0,(HL)
+6826 C9 . RET
+6827 CD 35 68 .5h CALL 6835
+682A 06 00 .. LD B,00
+682C CB C6 .. SET 0,(HL)
+682E 23 # INC HL
+682F 23 # INC HL
+6830 10 FA .. DJNZ 682C
+6832 C3 44 67 .Dg JP 6744
+6835 5E ^ LD E,(HL)
+6836 23 # INC HL
+6837 56 V LD D,(HL)
+6838 2B + DEC HL
+6839 E5 . PUSH HL
+683A CD 41 5D .A] CALL 5D41
+683D E5 . PUSH HL
+683E CB FD .. SET 7,L
+6840 CB 96 .. RES 2,(HL)
+6842 CB 4E .N BIT 1,(HL)
+6844 28 28 (( JR Z,686E
+6846 24 $ INC H
+6847 36 FF 6. LD (HL),FF
+6849 CD 4E 55 .NU CALL 554E
+684C C1 . POP BC
+684D D1 . POP DE
+684E EB . EX DE,HL
+684F CB 83 .. RES 0,E
+6851 73 s LD (HL),E
+6852 23 # INC HL
+6853 72 r LD (HL),D
+6854 2B + DEC HL
+6855 6C l LD L,H
+6856 26 15 &. LD H,15
+6858 37 7 SCF
+6859 CB 1D .. RR L
+685B CB 8E .. RES 1,(HL)
+685D 60 ` LD H,B
+685E 69 i LD L,C
+685F 73 s LD (HL),E
+6860 CB FD .. SET 7,L
+6862 CB 8E .. RES 1,(HL)
+6864 24 $ INC H
+6865 CB BD .. RES 7,L
+6867 72 r LD (HL),D
+6868 65 e LD H,L
+6869 CB 24 .$ SLA H
+686B 2E 00 .. LD L,00
+686D C9 . RET
+686E 24 $ INC H
+686F 36 FF 6. LD (HL),FF
+6871 11 F0 FF ... LD DE,FFF0
+6874 CD 41 5D .A] CALL 5D41
+6877 C1 . POP BC
+6878 E5 . PUSH HL
+6879 55 U LD D,L
+687A 1E 00 .. LD E,00
+687C 61 a LD H,C
+687D 2E 00 .. LD L,00
+687F 01 00 02 ... LD BC,0200
+6882 CB 24 .$ SLA H
+6884 CB 22 ." SLA D
+6886 CD A5 28 ..( CALL 28A5
+6889 18 BE .. JR 6849
+688B B7 . OR A
+688C C8 . RET Z
+688D CD 2F 64 ./d CALL 642F
+6890 CD 20 6E . n CALL 6E20
+6893 CD 74 6D .tm CALL 6D74
+6896 F5 . PUSH AF
+6897 1F . RRA
+6898 1F . RRA
+6899 1F . RRA
+689A 1F . RRA
+689B E6 06 .. AND 06
+689D 21 2B 1E !+. LD HL,1E2B
+68A0 85 . ADD L
+68A1 6F o LD L,A
+68A2 5E ^ LD E,(HL)
+68A3 23 # INC HL
+68A4 56 V LD D,(HL)
+68A5 CD 4E 6A .Nj CALL 6A4E
+68A8 67 g LD H,A
+68A9 F1 . POP AF
+68AA E5 . PUSH HL
+68AB 21 80 16 !.. LD HL,1680
+68AE 01 81 00 ... LD BC,0081
+68B1 ED B1 .. CPIR
+68B3 E2 BC 68 ..h JP PO,68BC
+68B6 2B + DEC HL
+68B7 36 FF 6. LD (HL),FF
+68B9 23 # INC HL
+68BA 18 F5 .. JR 68B1
+68BC E1 . POP HL
+68BD CB 27 .' SLA A
+68BF CB 27 .' SLA A
+68C1 CB 27 .' SLA A
+68C3 CB 27 .' SLA A
+68C5 6F o LD L,A
+68C6 30 01 0. JR NC,68C9
+68C8 24 $ INC H
+68C9 36 FF 6. LD (HL),FF
+68CB 54 T LD D,H
+68CC 5D ] LD E,L
+68CD 13 . INC DE
+68CE 01 0F 00 ... LD BC,000F
+68D1 ED B0 .. LDIR
+68D3 CD DA 68 ..h CALL 68DA
+68D6 CD 2A 6E .*n CALL 6E2A
+68D9 C9 . RET
+68DA 3A 13 57 :.W LD A,(5713)
+68DD B7 . OR A
+68DE C8 . RET Z
+68DF 21 17 82 !.. LD HL,8217
+68E2 CB C6 .. SET 0,(HL)
+68E4 C9 . RET
+68E5 7A z LD A,D
+68E6 18 02 .. JR 68EA
+68E8 3E FF >. LD A,FF
+68EA 32 16 6B 2.k LD (6B16),A
+68ED E5 . PUSH HL
+68EE C5 . PUSH BC
+68EF 1E 04 .. LD E,04
+68F1 D5 . PUSH DE
+68F2 CD DA 66 ..f CALL 66DA
+68F5 D1 . POP DE
+68F6 23 # INC HL
+68F7 7E ~ LD A,(HL)
+68F8 23 # INC HL
+68F9 A6 . AND (HL)
+68FA 23 # INC HL
+68FB A6 . AND (HL)
+68FC 3C < INC A
+68FD 28 06 (. JR Z,6905
+68FF 1C . INC E
+6900 20 EF . JR NZ,68F1
+6902 C1 . POP BC
+6903 E1 . POP HL
+6904 C9 . RET
+6905 D5 . PUSH DE
+6906 CD DE 66 ..f CALL 66DE
+6909 E5 . PUSH HL
+690A 50 P LD D,B
+690B 59 Y LD E,C
+690C 7B { LD A,E
+690D B7 . OR A
+690E 28 0A (. JR Z,691A
+6910 CD DE 66 ..f CALL 66DE
+6913 E5 . PUSH HL
+6914 CD 30 80 .0. CALL 8030
+6917 E1 . POP HL
+6918 18 03 .. JR 691D
+691A 21 26 6A !&j LD HL,6A26
+691D 3A 16 6B :.k LD A,(6B16)
+6920 3C < INC A
+6921 20 05 . JR NZ,6928
+6923 E5 . PUSH HL
+6924 CD 80 67 ..g CALL 6780
+6927 E1 . POP HL
+6928 D1 . POP DE
+6929 01 10 00 ... LD BC,0010
+692C ED B0 .. LDIR
+692E 3A 16 6B :.k LD A,(6B16)
+6931 3C < INC A
+6932 28 0B (. JR Z,693F
+6934 01 0F 00 ... LD BC,000F
+6937 2B + DEC HL
+6938 36 FF 6. LD (HL),FF
+693A 54 T LD D,H
+693B 5D ] LD E,L
+693C 1B . DEC DE
+693D ED B8 .. LDDR
+693F D1 . POP DE
+6940 3E FF >. LD A,FF
+6942 CD 53 69 .Si CALL 6953
+6945 C1 . POP BC
+6946 D5 . PUSH DE
+6947 59 Y LD E,C
+6948 50 P LD D,B
+6949 3E FF >. LD A,FF
+694B CD 53 69 .Si CALL 6953
+694E 42 B LD B,D
+694F 4B K LD C,E
+6950 D1 . POP DE
+6951 E1 . POP HL
+6952 C9 . RET
+6953 21 00 17 !.. LD HL,1700
+6956 01 81 00 ... LD BC,0081
+6959 F5 . PUSH AF
+695A 7B { LD A,E
+695B ED B1 .. CPIR
+695D E2 75 69 .ui JP PO,6975
+6960 2B + DEC HL
+6961 25 % DEC H
+6962 CB FD .. SET 7,L
+6964 7A z LD A,D
+6965 BE . CP (HL)
+6966 20 07 . JR NZ,696F
+6968 F1 . POP AF
+6969 77 w LD (HL),A
+696A F5 . PUSH AF
+696B 25 % DEC H
+696C CB 96 .. RES 2,(HL)
+696E 24 $ INC H
+696F CB BD .. RES 7,L
+6971 24 $ INC H
+6972 23 # INC HL
+6973 18 E5 .. JR 695A
+6975 F1 . POP AF
+6976 C9 . RET
+6977 79 y LD A,C
+6978 FE 04 .. CP 04
+697A D8 . RET C
+697B D5 . PUSH DE
+697C E5 . PUSH HL
+697D C5 . PUSH BC
+697E 59 Y LD E,C
+697F 3A 1A 6E :.n LD A,(6E1A)
+6982 57 W LD D,A
+6983 CD DA 66 ..f CALL 66DA
+6986 23 # INC HL
+6987 7E ~ LD A,(HL)
+6988 23 # INC HL
+6989 A6 . AND (HL)
+698A 23 # INC HL
+698B A6 . AND (HL)
+698C 3C < INC A
+698D 28 05 (. JR Z,6994
+698F B7 . OR A
+6990 C1 . POP BC
+6991 E1 . POP HL
+6992 D1 . POP DE
+6993 C9 . RET
+6994 37 7 SCF
+6995 18 F9 .. JR 6990
+6997 D5 . PUSH DE
+6998 E5 . PUSH HL
+6999 C5 . PUSH BC
+699A 79 y LD A,C
+699B FE 04 .. CP 04
+699D 38 F1 8. JR C,6990
+699F 3A 1A 6E :.n LD A,(6E1A)
+69A2 57 W LD D,A
+69A3 59 Y LD E,C
+69A4 CD DE 66 ..f CALL 66DE
+69A7 54 T LD D,H
+69A8 5D ] LD E,L
+69A9 13 . INC DE
+69AA 01 0F 00 ... LD BC,000F
+69AD 36 FF 6. LD (HL),FF
+69AF ED B0 .. LDIR
+69B1 CD DA 68 ..h CALL 68DA
+69B4 18 DA .. JR 6990
+69B6 78 x LD A,B
+69B7 B7 . OR A
+69B8 C8 . RET Z
+69B9 85 . ADD L
+69BA DC 0B 6A ..j CALL C,6A0B
+69BD 78 x LD A,B
+69BE 83 . ADD E
+69BF DC 0B 6A ..j CALL C,6A0B
+69C2 CD 20 6E . n CALL 6E20
+69C5 C5 . PUSH BC
+69C6 E5 . PUSH HL
+69C7 D5 . PUSH DE
+69C8 3A 1A 6E :.n LD A,(6E1A)
+69CB 57 W LD D,A
+69CC 59 Y LD E,C
+69CD 3E FF >. LD A,FF
+69CF CD 53 69 .Si CALL 6953
+69D2 CD DE 66 ..f CALL 66DE
+69D5 2C , INC L
+69D6 7E ~ LD A,(HL)
+69D7 2D - DEC L
+69D8 3C < INC A
+69D9 28 31 (1 JR Z,6A0C
+69DB D1 . POP DE
+69DC E5 . PUSH HL
+69DD CD 93 67 ..g CALL 6793
+69E0 CD 1A 6A ..j CALL 6A1A
+69E3 D1 . POP DE
+69E4 E3 . EX (SP),HL
+69E5 EB . EX DE,HL
+69E6 CD 93 67 ..g CALL 6793
+69E9 CD 1A 6A ..j CALL 6A1A
+69EC D1 . POP DE
+69ED C1 . POP BC
+69EE C5 . PUSH BC
+69EF E5 . PUSH HL
+69F0 CB C6 .. SET 0,(HL)
+69F2 2C , INC L
+69F3 2C , INC L
+69F4 10 FA .. DJNZ 69F0
+69F6 E1 . POP HL
+69F7 C1 . POP BC
+69F8 48 H LD C,B
+69F9 CB 21 .! SLA C
+69FB 06 00 .. LD B,00
+69FD CB 10 .. RL B
+69FF CD 14 80 ... CALL 8014
+6A02 ED B0 .. LDIR
+6A04 CD C1 5C ..\ CALL 5CC1
+6A07 CD 2A 6E .*n CALL 6E2A
+6A0A C9 . RET
+6A0B C8 . RET Z
+6A0C CD 1F 70 ..p CALL 701F ; Info aufrufen
+6A0F 18 07 .. JR 6A18
+6A11 20 73 s JR NZ,6A86 ; " spmove"
+6A13 70 p LD (HL),B
+6A14 6D m LD L,L
+6A15 6F o LD L,A
+6A16 76 v HALT
+6A17 65 e LD H,L
+6A18 18 F2 .. JR 6A0C
+6A1A 1F . RRA
+6A1B CB 1D .. RR L
+6A1D CD 4E 6A .Nj CALL 6A4E
+6A20 CB 25 .% SLA L
+6A22 CE 00 .. ADC A,00
+6A24 67 g LD H,A
+6A25 C9 . RET
+6A26 FF . RST 38 ; nilspace-Eintrag
+6A27 FF . RST 38
+6A28 01 FF FF ... LD BC,FFFF
+6A2B FF . RST 38
+6A2C FF . RST 38
+6A2D FF . RST 38
+6A2E FF . RST 38
+6A2F FF . RST 38
+6A30 FF . RST 38
+6A31 FF . RST 38
+6A32 FF . RST 38
+6A33 FF . RST 38
+6A34 FF . RST 38
+6A35 FF . RST 38
+6A36 E5 . PUSH HL
+6A37 CD 41 5D .A] CALL 5D41
+6A3A 7D } LD A,L
+6A3B CB 27 .' SLA A
+6A3D E1 . POP HL
+6A3E C9 . RET
+6A3F E5 . PUSH HL
+6A40 CD 3E 5D .>] CALL 5D3E
+6A43 CB 25 .% SLA L
+6A45 7D } LD A,L
+6A46 E1 . POP HL
+6A47 C9 . RET
+6A48 E5 . PUSH HL
+6A49 5E ^ LD E,(HL)
+6A4A 23 # INC HL
+6A4B 56 V LD D,(HL)
+6A4C 18 01 .. JR 6A4F
+6A4E E5 . PUSH HL
+6A4F CD 41 5D .A] CALL 5D41
+6A52 CB FD .. SET 7,L
+6A54 CB 8E .. RES 1,(HL)
+6A56 7D } LD A,L
+6A57 CB 27 .' SLA A
+6A59 E1 . POP HL
+6A5A C9 . RET
+6A5B 7A z LD A,D
+6A5C FE 04 .. CP 04
+6A5E 38 19 8. JR C,6A79
+6A60 23 # INC HL
+6A61 7C | LD A,H
+6A62 FE 08 .. CP 08
+6A64 30 13 0. JR NC,6A79
+6A66 E5 . PUSH HL
+6A67 D5 . PUSH DE
+6A68 5C \ LD E,H
+6A69 65 e LD H,L
+6A6A CD 5C 65 .\e CALL 655C
+6A6D CB 3F .? SLR A
+6A6F 6F o LD L,A
+6A70 26 16 &. LD H,16
+6A72 7E ~ LD A,(HL)
+6A73 3C < INC A
+6A74 D1 . POP DE
+6A75 E1 . POP HL
+6A76 28 E8 (. JR Z,6A60
+6A78 C9 . RET
+6A79 21 FF FF !.. LD HL,FFFF
+6A7C C9 . RET
+6A7D 7B { LD A,E
+6A7E FE 04 .. CP 04
+6A80 38 26 8& JR C,6AA8
+6A82 E5 . PUSH HL
+6A83 C5 . PUSH BC
+6A84 D5 . PUSH DE
+6A85 CD DA 66 ..f CALL 66DA
+6A88 D1 . POP DE
+6A89 23 # INC HL
+6A8A 23 # INC HL
+6A8B 7E ~ LD A,(HL)
+6A8C 23 # INC HL
+6A8D A6 . AND (HL)
+6A8E 3C < INC A
+6A8F 28 1B (. JR Z,6AAC
+6A91 2B + DEC HL
+6A92 2B + DEC HL
+6A93 7E ~ LD A,(HL)
+6A94 3C < INC A
+6A95 20 1A . JR NZ,6AB1
+6A97 06 07 .. LD B,07
+6A99 11 00 00 ... LD DE,0000
+6A9C 2C , INC L
+6A9D 2C , INC L
+6A9E 7E ~ LD A,(HL)
+6A9F 3C < INC A
+6AA0 28 01 (. JR Z,6AA3
+6AA2 1C . INC E
+6AA3 10 F7 .. DJNZ 6A9C
+6AA5 C1 . POP BC
+6AA6 E1 . POP HL
+6AA7 C9 . RET
+6AA8 11 FF FF ... LD DE,FFFF
+6AAB C9 . RET
+6AAC 11 FF FF ... LD DE,FFFF
+6AAF 18 F4 .. JR 6AA5
+6AB1 06 08 .. LD B,08
+6AB3 FD E5 .. PUSH IY
+6AB5 FD 21 00 00 .!.. LD IY,0000
+6AB9 C5 . PUSH BC
+6ABA D5 . PUSH DE
+6ABB CD DA 66 ..f CALL 66DA
+6ABE 78 x LD A,B
+6ABF 3D = DEC A
+6AC0 87 . ADD A
+6AC1 B5 . OR L
+6AC2 6F o LD L,A
+6AC3 5E ^ LD E,(HL)
+6AC4 2C , INC L
+6AC5 56 V LD D,(HL)
+6AC6 14 . INC D
+6AC7 28 23 (# JR Z,6AEC
+6AC9 15 . DEC D
+6ACA 3E FF >. LD A,FF
+6ACC CD 3F 6A .?j CALL 6A3F
+6ACF 67 g LD H,A
+6AD0 2E 00 .. LD L,00
+6AD2 06 00 .. LD B,00
+6AD4 23 # INC HL
+6AD5 7E ~ LD A,(HL)
+6AD6 23 # INC HL
+6AD7 3C < INC A
+6AD8 28 02 (. JR Z,6ADC
+6ADA FD 23 .# INC IY
+6ADC 10 F6 .. DJNZ 6AD4
+6ADE CD C1 5C ..\ CALL 5CC1
+6AE1 D1 . POP DE
+6AE2 C1 . POP BC
+6AE3 10 D4 .. DJNZ 6AB9
+6AE5 FD E5 .. PUSH IY
+6AE7 D1 . POP DE
+6AE8 FD E1 .. POP IY
+6AEA 18 B9 .. JR 6AA5
+6AEC D1 . POP DE
+6AED C1 . POP BC
+6AEE 2D - DEC L
+6AEF 2D - DEC L
+6AF0 7E ~ LD A,(HL)
+6AF1 3C < INC A
+6AF2 20 EF . JR NZ,6AE3
+6AF4 05 . DEC B
+6AF5 18 F7 .. JR 6AEE
+6AF7 45 E LD B,L ; "EUMEL-000"
+6AF8 55 U LD D,L
+6AF9 4D M LD C,L
+6AFA 45 E LD B,L
+6AFB 4C L LD C,H
+6AFC 2D - DEC L
+6AFD 30 30 00 JR NC,6B2F
+6AFF 30 11 0. JR NC,6B12
+6B01 20 20 JR NZ,6B23 ; " *** RERUN ***CRLF"
+6B03 2A 2A 2A *** LD HL,(2A2A)
+6B06 20 52 R JR NZ,6B5A
+6B08 45 E LD B,L
+6B09 52 R LD D,D
+6B0A 55 U LD D,L
+6B0B 4E N LD C,(HL)
+6B0C 20 2A * JR NZ,6B38
+6B0E 2A 2A 0A **. LD HL,(0A2A)
+6B11 0D . DEC C
+6B12 01 FF FF ... LD BC,FFFF
+6B15 01 FF
+6B17 FF FF ; session
+6B19 78 x LD A,B
+6B1A 13 . INC DE
+6B1B 20 53 S JR NZ,6B70 ; " System aufgebaut."
+6B1D 79 y LD A,C
+6B1E 73 s LD (HL),E
+6B1F 74 t LD (HL),H
+6B20 65 e LD H,L
+6B21 6D m LD L,L
+6B22 20 61 a JR NZ,6B85
+6B24 75 u LD (HL),L
+6B25 66 f LD H,(HL)
+6B26 67 g LD H,A
+6B27 65 e LD H,L
+6B28 62 b LD H,D
+6B29 61 a LD H,C
+6B2A 75 u LD (HL),L
+6B2B 74 t LD (HL),H
+6B2C 2E 20 . LD L,20
+6B2E 31 37 35 175 LD SP,3537 ; "175 restart 2 (!)"
+6B31 20 72 r JR NZ,6BA5
+6B33 65 e LD H,L
+6B34 73 s LD (HL),E
+6B35 74 t LD (HL),H
+6B36 61 a LD H,C
+6B37 72 r LD (HL),D
+6B38 74 t LD (HL),H
+6B39 20 20 JR NZ,6B5B
+6B3B 20 32 2 JR NZ,6B6F
+6B3D 20 28 ( JR NZ,6B67
+6B3F 21 29
+6B41 ED 5B 46 6C LD DE,(6C46)
+6B45 ED 53 F7 6E .S.n LD (6EF7),DE
+6B49 11 13 6C ..l LD DE,6C13
+6B4C ED 53 46 6C .SFl LD (6C46),DE
+6B50 ED 73 F2 6E .s.n LD (6EF2),SP
+6B54 3A F0 6E :.n LD A,(6EF0)
+6B57 B7 . OR A
+6B58 28 21 (! JR Z,6B7B
+6B5A 06 00 .. LD B,00
+6B5C 97 . SUB A
+6B5D 32 F0 6E 2.n LD (6EF0),A
+6B60 CD 98 6E ..n CALL 6E98
+6B63 FE 69 .i CP 69 ; "i" und Info-Taste
+6B65 28 09 (. JR Z,6B70
+6B67 C5 . PUSH BC
+6B68 CD E2 6D ..m CALL 6DE2
+6B6B C1 . POP BC
+6B6C 10 EE .. DJNZ 6B5C
+6B6E 18 0B .. JR 6B7B ; Info aufrufen
+6B70 CD 1F 70 ..p CALL 701F ; "-break"
+6B73 18 06 .. JR 6B7B
+6B75 2D - DEC L
+6B76 62 b LD H,D
+6B77 72 r LD (HL),D
+6B78 65 e LD H,L
+6B79 61 a LD H,C
+6B7A 6B k LD L,E
+6B7B CD 9C 4B ..K CALL 4B9C
+6B7E 97 . SUB A
+6B7F 32 F6 6E 2.n LD (6EF6),A
+6B82 2A 1A 6E *.n LD HL,(6E1A) ; Aktuelle Task
+6B85 CB FD .. SET 7,L
+6B87 2C , INC L ; N„echste Task
+6B88 01 FF FF ... LD BC,FFFF ; unendlich
+6B8B 3E 01 >. LD A,01 ; aktive Task suchen
+6B8D ED B1 .. CPIR
+6B8F CB 7D .} BIT 7,L
+6B91 20 0E . JR NZ,6BA1 ; 01 gefunden
+6B93 21 81 18 !.. LD HL,1881 ; Auf Anfang
+6B96 ED B1 .. CPIR ; naechste suchen
+6B98 CB 7D .} BIT 7,L
+6B9A 20 05 . JR NZ,6BA1
+6B9C CD E2 6D ..m CALL 6DE2 ; keine aktivierte Task gefunden
+6B9F 18 B3 .. JR 6B54 ; Auf Info-Taste warten
+6BA1 2D - DEC L
+6BA2 CB BD .. RES 7,L
+6BA4 22 1A 6E ".n LD (6E1A),HL ; Taskindex Merken
+6BA7 CD E2 6D ..m CALL 6DE2 ; Prozess wechseln
+6BAA 3A 1A 6E :.n LD A,(6E1A)
+6BAD 57 W LD D,A ; DE= PCB (DS 0)
+6BAE 1E 00 .. LD E,00
+6BB0 CD DE 66 ..f CALL 66DE
+6BB3 22 1C 6E ".n LD (6E1C),HL
+6BB6 2A F7 6E *.n LD HL,(6EF7)
+6BB9 22 46 6C "Fl LD (6C46),HL
+6BBC DD 2A 1C 6E .*.n LD IX,(6E1C)
+6BC0 3A 1A 6E :.n LD A,(6E1A) ; Taskindex (Leitblock) <> Maxiproz
+6BC3 DD BE 30 ..0 CP (IX+30)
+6BC6 28 14 (. JR Z,6BDC
+6BC8 CD 1F 70 ..p CALL 701F ; Info aufrufen
+6BCB 18 0F .. JR 6BDC
+6BCD 20 6B k JR NZ,6C3A ; " kein Leitblock"
+6BCF 65 e LD H,L
+6BD0 69 i LD L,C
+6BD1 6E n LD L,(HL)
+6BD2 20 4C L JR NZ,6C20
+6BD4 65 e LD H,L
+6BD5 69 i LD L,C
+6BD6 74 t LD (HL),H
+6BD7 62 b LD H,D
+6BD8 6C l LD L,H
+6BD9 6F o LD L,A
+6BDA 63 c LD H,E
+6BDB 6B k LD L,E
+6BDC DD 7E 01 .~. LD A,(IX+01)
+6BDF B7 . OR A ; wstate = 00, Task nicht aktiv
+6BE0 C8 . RET Z
+6BE1 FE FE .. CP FE ; wstate = FE: Info-Stop
+6BE3 20 17 . JR NZ,6BFC
+6BE5 CD 1F 70 ..p CALL 701F ; Info aufrufen
+6BE8 18 10 .. JR 6BFA ; " stop durch info"
+6BEA 20 73 s JR NZ,6C5F
+6BEC 74 t LD (HL),H
+6BED 6F o LD L,A
+6BEE 70 p LD (HL),B
+6BEF 20 64 d JR NZ,6C55
+6BF1 75 u LD (HL),L
+6BF2 72 r LD (HL),D
+6BF3 63 c LD H,E
+6BF4 68 h LD L,B
+6BF5 20 69 i JR NZ,6C60
+6BF7 6E n LD L,(HL)
+6BF8 66 f LD H,(HL)
+6BF9 6F o LD L,A
+6BFA 18 12 .. JR 6C0E ; wstate loword: addresse im Hauptsp.
+6BFC 67 g LD H,A ; IX+1
+6BFD DD 6E 00 .n. LD L,(IX+00) ; wstate low
+6C00 DD 7E 02 .~. LD A,(IX+02) ; wstate highword: (wstate lowword)
+6C03 BE . CP (HL)
+6C04 20 08 . JR NZ,6C0E ; highbyte wstate
+6C06 24 $ INC H
+6C07 DD 7E 03 .~. LD A,(IX+03)
+6C0A BE . CP (HL)
+6C0B CA 41 6B .Ak JP Z,6B41 ; wstate/wstate+256 = (wstate)
+6C0E DD 36 01 00 .6.. LD (IX+01),00 ; Inhalt nicht gleich
+6C12 C9 . RET
+6C13 ED 7B F2 6E .{.n LD SP,(6EF2)
+6C17 C3 54 6B .Tk JP 6B54
+6C1A FD 2A FA 6E .*.n LD IY,(6EFA) ; Prozess start
+6C1E FD 23 .# INC IY
+6C20 FD 23 .# INC IY
+6C22 FD E9 .. JP (IY)
+6C24 DD 2A 1C 6E .*.n LD IX,(6E1C)
+6C28 DD 75 00 .u. LD (IX+00),L ; wstate neu setzen addresse
+6C2B DD 74 01 .t. LD (IX+01),H
+6C2E 7E ~ LD A,(HL)
+6C2F DD 77 02 .w. LD (IX+02),A ; inhalt von wstate
+6C32 24 $ INC H
+6C33 7E ~ LD A,(HL)
+6C34 DD 77 03 .w. LD (IX+03),A
+6C37 C3 26 29 .&) JP 2926 ; wartezustand
+6C3A 50 P LD D,B ; "PROZ ELAN"
+6C3B 52 R LD D,D
+6C3C 4F O LD C,A
+6C3D 5A Z LD E,D
+6C3E 20 45 E JR NZ,6C85
+6C40 4C L LD C,H
+6C41 41 A LD B,C
+6C42 4E N LD C,(HL)
+6C43 11 6D C3 .m. LD DE,C36D
+6C46 45 E LD B,L
+6C47 6D m LD L,L
+6C48 45 E LD B,L
+6C49 FF . RST 38
+6C4A FF . RST 38
+6C4B FF . RST 38
+6C4C FF . RST 38
+6C4D FF . RST 38
+6C4E FF . RST 38
+6C4F FF . RST 38
+6C50 FF . RST 38
+6C51 FF . RST 38
+6C52 FF . RST 38
+6C53 FF . RST 38
+6C54 FF . RST 38
+6C55 FF . RST 38
+6C56 FF . RST 38
+6C57 FF . RST 38
+6C58 FF . RST 38
+6C59 FF . RST 38
+6C5A FF . RST 38
+6C5B FF . RST 38
+6C5C FF . RST 38
+6C5D FF . RST 38
+6C5E FF . RST 38
+6C5F FF . RST 38
+6C60 FF . RST 38
+6C61 FF . RST 38
+6C62 FF . RST 38
+6C63 FF . RST 38
+6C64 FF . RST 38
+6C65 FF . RST 38
+6C66 FF . RST 38
+6C67 FF . RST 38
+6C68 FF . RST 38
+6C69 FF . RST 38
+6C6A FF . RST 38
+6C6B FF . RST 38
+6C6C FF . RST 38
+6C6D FF . RST 38
+6C6E FF . RST 38
+6C6F FF . RST 38
+6C70 FF . RST 38
+6C71 FF . RST 38
+6C72 FF . RST 38
+6C73 FF . RST 38
+6C74 FF . RST 38
+6C75 FF . RST 38
+6C76 FF . RST 38
+6C77 FF . RST 38
+6C78 FF . RST 38
+6C79 FF . RST 38
+6C7A FF . RST 38
+6C7B FF . RST 38
+6C7C FF . RST 38
+6C7D FF . RST 38
+6C7E FF . RST 38
+6C7F FF . RST 38
+6C80 FF . RST 38
+6C81 FF . RST 38
+6C82 FF . RST 38
+6C83 FF . RST 38
+6C84 FF . RST 38
+6C85 FF . RST 38
+6C86 FF . RST 38
+6C87 FF . RST 38
+6C88 FF . RST 38
+6C89 FF . RST 38
+6C8A FF . RST 38
+6C8B FF . RST 38
+6C8C FF . RST 38
+6C8D FF . RST 38
+6C8E FF . RST 38
+6C8F FF . RST 38
+6C90 FF . RST 38
+6C91 FF . RST 38
+6C92 FF . RST 38
+6C93 FF . RST 38
+6C94 FF . RST 38
+6C95 FF . RST 38
+6C96 FF . RST 38
+6C97 FF . RST 38
+6C98 FF . RST 38
+6C99 FF . RST 38
+6C9A FF . RST 38
+6C9B FF . RST 38
+6C9C FF . RST 38
+6C9D FF . RST 38
+6C9E FF . RST 38
+6C9F FF . RST 38
+6CA0 FF . RST 38
+6CA1 FF . RST 38
+6CA2 FF . RST 38
+6CA3 FF . RST 38
+6CA4 FF . RST 38
+6CA5 FF . RST 38
+6CA6 FF . RST 38
+6CA7 FF . RST 38
+6CA8 FF . RST 38
+6CA9 FF . RST 38
+6CAA FF . RST 38
+6CAB FF . RST 38
+6CAC FF . RST 38
+6CAD FF . RST 38
+6CAE FF . RST 38
+6CAF FF . RST 38
+6CB0 FF . RST 38
+6CB1 FF . RST 38
+6CB2 FF . RST 38
+6CB3 FF . RST 38
+6CB4 FF . RST 38
+6CB5 FF . RST 38
+6CB6 FF . RST 38
+6CB7 FF . RST 38
+6CB8 FF . RST 38
+6CB9 FF . RST 38
+6CBA FF . RST 38
+6CBB FF . RST 38
+6CBC FF . RST 38
+6CBD FF . RST 38
+6CBE FF . RST 38
+6CBF FF . RST 38
+6CC0 FF . RST 38
+6CC1 FF . RST 38
+6CC2 FF . RST 38
+6CC3 FF . RST 38
+6CC4 FF . RST 38
+6CC5 FF . RST 38
+6CC6 FF . RST 38
+6CC7 FF . RST 38
+6CC8 FF . RST 38
+6CC9 FF . RST 38
+6CCA FF . RST 38
+6CCB FF . RST 38
+6CCC FF . RST 38
+6CCD FF . RST 38
+6CCE FF . RST 38
+6CCF FF . RST 38
+6CD0 FF . RST 38
+6CD1 FF . RST 38
+6CD2 FF . RST 38
+6CD3 FF . RST 38
+6CD4 FF . RST 38
+6CD5 FF . RST 38
+6CD6 FF . RST 38
+6CD7 FF . RST 38
+6CD8 FF . RST 38
+6CD9 FF . RST 38
+6CDA FF . RST 38
+6CDB FF . RST 38
+6CDC FF . RST 38
+6CDD FF . RST 38
+6CDE FF . RST 38
+6CDF FF . RST 38
+6CE0 FF . RST 38
+6CE1 FF . RST 38
+6CE2 FF . RST 38
+6CE3 FF . RST 38
+6CE4 FF . RST 38
+6CE5 FF . RST 38
+6CE6 FF . RST 38
+6CE7 FF . RST 38
+6CE8 FF . RST 38
+6CE9 FF . RST 38
+6CEA FF . RST 38
+6CEB FF . RST 38
+6CEC FF . RST 38
+6CED FF . RST 38
+6CEE FF . RST 38
+6CEF FF . RST 38
+6CF0 FF . RST 38
+6CF1 FF . RST 38
+6CF2 FF . RST 38
+6CF3 FF . RST 38
+6CF4 FF . RST 38
+6CF5 FF . RST 38
+6CF6 FF . RST 38
+6CF7 FF . RST 38
+6CF8 FF . RST 38
+6CF9 FF . RST 38
+6CFA FF . RST 38
+6CFB FF . RST 38
+6CFC FF . RST 38
+6CFD FF . RST 38
+6CFE FF . RST 38
+6CFF FF . RST 38
+6D00 FF . RST 38
+6D01 FF . RST 38
+6D02 FF . RST 38
+6D03 FF . RST 38
+6D04 FF . RST 38
+6D05 FF . RST 38
+6D06 FF . RST 38
+6D07 FF . RST 38
+6D08 FF . RST 38
+6D09 FF . RST 38
+6D0A FF . RST 38
+6D0B FF . RST 38
+6D0C FF . RST 38
+6D0D FF . RST 38
+6D0E FF . RST 38
+6D0F FF . RST 38
+6D10 FF . RST 38
+6D11 13 . INC DE
+6D12 6D m LD L,L
+6D13 CD 2D 57 .-W CALL 572D
+6D16 11 00 00 ... LD DE,0000 ; Task 0, DS 0 laden (Aktiv.Tab.)
+6D19 CD DA 66 ..f CALL 66DA
+6D1C 11 80 18 ... LD DE,1880 ; 128 Bytes Akt.Tabelle
+6D1F 01 80 00 ... LD BC,0080
+6D22 ED B0 .. LDIR
+6D24 3A FF 18 :.. LD A,(18FF) ; 18FF = FF: SV und 18FF := 01
+6D27 3C < INC A ; sonst alten SV-Zustand lassen
+6D28 20 07 . JR NZ,6D31
+6D2A 3C < INC A
+6D2B 32 81 18 2.. LD (1881),A ; supervisor aktivieren
+6D2E 32 FF 18 2.. LD (18FF),A
+6D31 11 B9 4C ..L LD DE,4CB9 ; Systemclocks (7)
+6D34 01 40 00 .@. LD BC,0040
+6D37 ED B0 .. LDIR
+6D39 CD 41 6B .Ak CALL 6B41
+6D3C 21 24 6C !$l LD HL,6C24
+6D3F 22 46 6C "Fl LD (6C46),HL
+6D42 C3 FE 52 ..R JP 52FE
+6D45 31 13 6D 1.m LD SP,6D13
+6D48 CD E2 6D ..m CALL 6DE2 ; Prozess wechseln
+6D4B 18 C9 .. JR 6D16 ; Aktivierungstabelle/Clocks laden
+6D4D B7 . OR A
+6D4E 20 0A . JR NZ,6D5A
+6D50 CD 1F 70 ..p CALL 701F ; Info aufrufen " plac"
+6D53 18 05 .. JR 6D5A
+6D55 20 70 p JR NZ,6DC7
+6D57 6C l LD L,H
+6D58 61 a LD H,C
+6D59 63 c LD H,E
+6D5A D5 . PUSH DE
+6D5B E5 . PUSH HL
+6D5C 57 W LD D,A
+6D5D 1E 00 .. LD E,00 ; Leitblock der Task laden
+6D5F CD DE 66 ..f CALL 66DE
+6D62 E5 . PUSH HL
+6D63 FD E1 .. POP IY ; Adresse --> IY
+6D65 E1 . POP HL
+6D66 D1 . POP DE
+6D67 C9 . RET ; -------- unblock (A) ------------
+6D68 B7 . OR A
+6D69 C8 . RET Z
+6D6A E5 . PUSH HL
+6D6B 26 18 &. LD H,18 ; Aktivierungstabelle 1880 ....
+6D6D 6F o LD L,A
+6D6E CB FD .. SET 7,L
+6D70 36 01 6. LD (HL),01 ; Task aktivieren
+6D72 E1 . POP HL
+6D73 C9 . RET ;------------- block (A) ---------
+6D74 E5 . PUSH HL
+6D75 26 18 &. LD H,18
+6D77 6F o LD L,A
+6D78 CB FD .. SET 7,L ; AKtivierungstabelle
+6D7A 36 FF 6. LD (HL),FF ; Task deaktivieren
+6D7C E1 . POP HL
+6D7D C9 . RET ;----------------------------------
+6D7E C5 . PUSH BC
+6D7F E5 . PUSH HL
+6D80 01 FF FF ... LD BC,FFFF
+6D83 26 18 &. LD H,18
+6D85 C6 81 .. ADD A,81
+6D87 6F o LD L,A
+6D88 3E 01 >. LD A,01
+6D8A ED B1 .. CPIR
+6D8C CB 7D .} BIT 7,L
+6D8E 20 09 . JR NZ,6D99
+6D90 21 81 18 !.. LD HL,1881
+6D93 ED B1 .. CPIR
+6D95 CB 7D .} BIT 7,L
+6D97 28 03 (. JR Z,6D9C
+6D99 2D - DEC L
+6D9A CB BD .. RES 7,L
+6D9C 7D } LD A,L
+6D9D E1 . POP HL
+6D9E C1 . POP BC
+6D9F C9 . RET ; ====== Miniprozess-Schleife ======
+6DA0 21 43 6C !Cl LD HL,6C43 ; PROZ ELAN
+6DA3 ED 7B 43 6C .{Cl LD SP,(6C43)
+6DA7 CD DA 6D ..m CALL 6DDA ;
+6DAA ED 73 43 6C .sCl LD (6C43),SP
+6DAE 21 74 57 !tW LD HL,5774 ; PROZ LADER
+6DB1 ED 7B 74 57 .{tW LD SP,(5774)
+6DB5 CD DA 6D ..m CALL 6DDA
+6DB8 ED 73 74 57 .stW LD (5774),SP
+6DBC 21 5E 7D !^} LD HL,7D5E ; PROZ MUELL
+6DBF ED 7B 5E 7D .{^} LD SP,(7D5E)
+6DC3 CD DA 6D ..m CALL 6DDA
+6DC6 ED 73 5E 7D .s^} LD (7D5E),SP
+6DCA 21 CE 62 !.b LD HL,62CE ; PROZ ARCH
+6DCD ED 7B CE 62 .{.b LD SP,(62CE)
+6DD1 CD DA 6D ..m CALL 6DDA
+6DD4 ED 73 CE 62 .s.b LD (62CE),SP
+6DD8 18 C6 .. JR 6DA0 ; zum Schleifenanfang
+6DDA 22 FA 6E ".n LD (6EFA),HL ;------- Prozess wechseln ---------
+6DDD E1 . POP HL
+6DDE 22 1E 6E ".n LD (6E1E),HL
+6DE1 C9 . RET
+6DE2 3A FC 6E :.n LD A,(6EFC)
+6DE5 B7 . OR A
+6DE6 C0 . RET NZ
+6DE7 2A 1E 6E *.n LD HL,(6E1E)
+6DEA E9 . JP (HL)
+6DEB F5 . PUSH AF
+6DEC 3A 0D 6E :.n LD A,(6E0D)
+6DEF 3D = DEC A
+6DF0 FA FC 6D ..m JP M,6DFC
+6DF3 32 0D 6E 2.n LD (6E0D),A
+6DF6 20 04 . JR NZ,6DFC
+6DF8 97 . SUB A
+6DF9 32 FC 6E 2.n LD (6EFC),A
+6DFC F1 . POP AF
+6DFD C9 . RET
+6DFE F5 . PUSH AF
+6DFF 3A 0D 6E :.n LD A,(6E0D)
+6E02 3C < INC A
+6E03 32 0D 6E 2.n LD (6E0D),A
+6E06 3E 01 >. LD A,01
+6E08 32 FC 6E 2.n LD (6EFC),A
+6E0B F1 . POP AF
+6E0C C9 . RET
+6E0D 00 . NOP
+6E0E FD E5 .. PUSH IY
+6E10 FD 2A FA 6E .*.n LD IY,(6EFA)
+6E14 FD 7E 05 .~. LD A,(IY+05)
+6E17 FD E1 .. POP IY
+6E19 C9 . RET
+6E1A 80 . ADD B
+6E1B 18 00 .. JR 6E1D
+6E1D 00 . NOP
+6E1E 00 . NOP ; Miniprozess addresse
+6E1F 00 . NOP
+6E20 DD E3 .. EX (SP),IX
+6E22 FD E5 .. PUSH IY ; warte
+6E24 D5 . PUSH DE
+6E25 C5 . PUSH BC
+6E26 E5 . PUSH HL
+6E27 F5 . PUSH AF
+6E28 DD E9 .. JP (IX)
+6E2A DD E1 .. POP IX
+6E2C F1 . POP AF
+6E2D E1 . POP HL
+6E2E C1 . POP BC
+6E2F D1 . POP DE
+6E30 FD E1 .. POP IY
+6E32 DD E3 .. EX (SP),IX
+6E34 C9 . RET ;========= timerinterrupt =======
+6E35 F5 . PUSH AF
+6E36 3A FC 6E :.n LD A,(6EFC)
+6E39 B7 . OR A
+6E3A 20 2C , JR NZ,6E68
+6E3C F1 . POP AF
+6E3D FB . EI
+6E3E CD 3E 21 .>! CALL 213E
+6E41 F5 . PUSH AF
+6E42 E5 . PUSH HL
+6E43 2A F9 6E *.n LD HL,(6EF9)
+6E46 2D - DEC L
+6E47 28 1E (. JR Z,6E67
+6E49 F5 . PUSH AF
+6E4A 21 F4 6E !.n LD HL,6EF4
+6E4D 86 . ADD (HL)
+6E4E 77 w LD (HL),A
+6E4F F1 . POP AF
+6E50 F5 . PUSH AF
+6E51 23 # INC HL
+6E52 86 . ADD (HL)
+6E53 77 w LD (HL),A
+6E54 D6 64 .d SUB A,64 ; MOD 100
+6E56 38 04 8. JR C,6E5C
+6E58 77 w LD (HL),A
+6E59 CD 4C 4B .LK CALL 4B4C
+6E5C F1 . POP AF
+6E5D 21 F6 6E !.n LD HL,6EF6
+6E60 86 . ADD (HL)
+6E61 77 w LD (HL),A
+6E62 FE 64 .d CP 64
+6E64 D4 9A 2A ..* CALL NC,2A9A
+6E67 E1 . POP HL
+6E68 F1 . POP AF
+6E69 C9 . RET ;------------ Info Taste ----------
+6E6A 32 F1 6E 2.n LD (6EF1),A ; Taste zweimal druecken
+6E6D 3A F0 6E :.n LD A,(6EF0)
+6E70 B7 . OR A
+6E71 28 1F (. JR Z,6E92
+6E73 CD 8F 6E ..n CALL 6E8F
+6E76 CD 1F 70 ..p CALL 701F ; Info aufrufen
+6E79 18 0F .. JR 6E8A ; " Info erzwungen"
+6E7B 20 49 I JR NZ,6EC6
+6E7D 6E n LD L,(HL)
+6E7E 66 f LD H,(HL)
+6E7F 6F o LD L,A
+6E80 20 65 e JR NZ,6EE7
+6E82 72 r LD (HL),D
+6E83 7A z LD A,D
+6E84 77 w LD (HL),A
+6E85 75 u LD (HL),L
+6E86 6E n LD L,(HL)
+6E87 67 g LD H,A
+6E88 65 e LD H,L
+6E89 6E n LD L,(HL)
+6E8A 97 . SUB A
+6E8B 32 F0 6E 2.n LD (6EF0),A
+6E8E C9 . RET ;----------------------------------
+6E8F FB . EI
+6E90 ED 4D .M RETI
+6E92 3C < INC A
+6E93 32 F0 6E 2.n LD (6EF0),A ; info tasten anzahl
+6E96 97 . SUB A
+6E97 C9 . RET
+6E98 3A F1 6E :.n LD A,(6EF1) ; info kanal
+6E9B C3 06 1F ... JP 1F06 ; auf taste warten
+6E9E CD 98 6E ..n CALL 6E98
+6EA1 D0 . RET NC
+6EA2 CD 20 6E . n CALL 6E20
+6EA5 CD E2 6D ..m CALL 6DE2
+6EA8 CD 2A 6E .*n CALL 6E2A
+6EAB 18 F1 .. JR 6E9E
+6EAD CD CA 6E ..n CALL 6ECA
+6EB0 CD 9E 6E ..n CALL 6E9E
+6EB3 CD B9 6E ..n CALL 6EB9
+6EB6 FE 6A .j CP 6A ; j
+6EB8 C9 . RET
+6EB9 32 C9 6E 2.n LD (6EC9),A
+6EBC E5 . PUSH HL
+6EBD 21 C8 6E !.n LD HL,6EC8
+6EC0 CD CA 6E ..n CALL 6ECA
+6EC3 E1 . POP HL
+6EC4 3A C9 6E :.n LD A,(6EC9)
+6EC7 C9 . RET
+6EC8 01 00 E5 ... LD BC,E500
+6ECB C5 . PUSH BC
+6ECC 4E N LD C,(HL) ; Laenge am Stringanafng
+6ECD 23 # INC HL
+6ECE 06 00 .. LD B,00
+6ED0 3A F1 6E :.n LD A,(6EF1)
+6ED3 C5 . PUSH BC
+6ED4 CD 88 21 ..! CALL 2188 ; OUTPUT
+6ED7 38 13 8. JR C,6EEC
+6ED9 CD 20 6E . n CALL 6E20
+6EDC CD E2 6D ..m CALL 6DE2
+6EDF CD 2A 6E .*n CALL 6E2A
+6EE2 09 . ADD HL,BC
+6EE3 E3 . EX (SP),HL
+6EE4 B7 . OR A
+6EE5 ED 42 .B SBC HL,BC
+6EE7 44 D LD B,H
+6EE8 4D M LD C,L
+6EE9 E1 . POP HL
+6EEA 18 E4 .. JR 6ED0
+6EEC C1 . POP BC
+6EED C1 . POP BC
+6EEE E1 . POP HL
+6EEF C9 . RET
+6EF0 00 . NOP
+6EF1 01 00 00 ... LD BC,0000
+6EF4 00 . NOP
+6EF5 00 . NOP
+6EF6 00 . NOP
+6EF7 00 . NOP
+6EF8 00 . NOP
+6EF9 00 . NOP
+6EFA 43 C LD B,E
+6EFB 6C l LD L,H
+6EFC 01 69 6E .in LD BC,6E69 ; "info quelle 3 (!)"
+6EFF 66 f LD H,(HL)
+6F00 6F o LD L,A
+6F01 2E 71 .q LD L,71
+6F03 75 u LD (HL),L
+6F04 65 e LD H,L
+6F05 6C l LD L,H
+6F06 6C l LD L,H
+6F07 65 e LD H,L
+6F08 20 20 JR NZ,6F2A
+6F0A 20 33 3 JR NZ,6F3F
+6F0C 20 28 ( JR NZ,6F36
+6F0E 21 29
+6F10 D5 PUSH DE ;------------------------------
+6F11 CD B1 7A ..z CALL 7AB1 ; Altes Password korrekt ?
+6F14 D1 . POP DE
+6F15 01 01 00 ... LD BC,0001
+6F18 C0 . RET NZ
+6F19 21 19 7D !.} LD HL,7D19
+6F1C 06 0A .. LD B,0A ; 10 Bytes invertieren und uebetr.
+6F1E 1A . LD A,(DE) ; Neues Password eintragen
+6F1F 2F / CPL
+6F20 77 w LD (HL),A
+6F21 23 # INC HL
+6F22 13 . INC DE
+6F23 10 F9 .. DJNZ 6F1E
+6F25 01 00 00 ... LD BC,0000
+6F28 C9 . RET
+6F29 C9 . RET ;----------------------------------
+6F2A CD 1F 70 ..p CALL 701F ; Info aufrufen
+6F2D 18 03 .. JR 6F32
+6F2F 20 4B K JR NZ,6F7C ; " KE"
+6F31 45 E LD B,L
+6F32 C9 . RET ;---------- info-taste gedrueckt ---
+6F33 C3 6A 6E .jn JP 6E6A ; Info aufrufen
+6F36 C3 CA 6E ..n JP 6ECA
+6F39 7A z LD A,D
+6F3A B7 . OR A
+6F3B 28 14 (. JR Z,6F51
+6F3D FE FF .. CP FF
+6F3F 20 04 . JR NZ,6F45
+6F41 7C | LD A,H
+6F42 CB 27 .' SLA A
+6F44 C9 . RET
+6F45 CD 72 6F .ro CALL 6F72
+6F48 CD 5C 65 .\e CALL 655C
+6F4B DD E1 .. POP IX
+6F4D CD 10 70 ..p CALL 7010
+6F50 C9 . RET
+6F51 E5 . PUSH HL
+6F52 6C l LD L,H
+6F53 63 c LD H,E
+6F54 C5 . PUSH BC
+6F55 ED 4B 9B 7C .K.| LD BC,(7C9B)
+6F59 B7 . OR A
+6F5A ED 42 .B SBC HL,BC
+6F5C 30 68 0h JR NC,6FC6
+6F5E 09 . ADD HL,BC
+6F5F C1 . POP BC
+6F60 CD 92 5A ..Z CALL 5A92
+6F63 7C | LD A,H
+6F64 E1 . POP HL
+6F65 C9 . RET
+6F66 CD 72 6F .ro CALL 6F72
+6F69 CD 36 6A .6j CALL 6A36
+6F6C DD E1 .. POP IX
+6F6E CD 10 70 ..p CALL 7010
+6F71 C9 . RET
+6F72 DD E1 .. POP IX
+6F74 DD 22 8C 6F .".o LD (6F8C),IX
+6F78 CD 20 6E . n CALL 6E20
+6F7B DD 2A 8C 6F .*.o LD IX,(6F8C)
+6F7F DD E5 .. PUSH IX
+6F81 ED 73 90 6F .s.o LD (6F90),SP
+6F85 DD E9 .. JP (IX)
+6F87 69 i LD L,C ; "ixsav"
+6F88 78 x LD A,B
+6F89 73 s LD (HL),E
+6F8A 61 a LD H,C
+6F8B 76 v HALT
+6F8C 00 . NOP
+6F8D 00 . NOP
+6F8E 00 . NOP
+6F8F 00 . NOP
+6F90 00 . NOP
+6F91 00 . NOP
+6F92 00 . NOP
+6F93 00 . NOP
+6F94 3A 4B 7B :K{ LD A,(7B4B)
+6F97 B7 . OR A
+6F98 28 31 (1 JR Z,6FCB
+6F9A ED 7B 90 6F .{.o LD SP,(6F90)
+6F9E CD E2 6D ..m CALL 6DE2 ; Prozess wechseln
+6FA1 DD E1 .. POP IX
+6FA3 DD 22 8C 6F .".o LD (6F8C),IX
+6FA7 DD E5 .. PUSH IX
+6FA9 3A 1A 6E :.n LD A,(6E1A) ; Taskindex aktueller Prozess
+6FAC E6 7F .. AND 7F
+6FAE 28 0F (. JR Z,6FBF ; Task 0 ?
+6FB0 57 W LD D,A ; PCB laden
+6FB1 1E 00 .. LD E,00
+6FB3 CD DE 66 ..f CALL 66DE
+6FB6 22 1C 6E ".n LD (6E1C),HL
+6FB9 21 FF FF !.. LD HL,FFFF
+6FBC 22 23 7D "#} LD (7D23),HL
+6FBF DD E1 .. POP IX
+6FC1 CD 2A 6E .*n CALL 6E2A
+6FC4 18 B2 .. JR 6F78
+6FC6 21 BC 7C !.| LD HL,7CBC
+6FC9 18 03 .. JR 6FCE
+6FCB 21 A6 7C !.| LD HL,7CA6
+6FCE ED 7B 8E 6F .{.o LD SP,(6F8E)
+6FD2 CD CA 6E ..n CALL 6ECA
+6FD5 C3 D4 70 ..p JP 70D4
+6FD8 ED 7B 8E 6F .{.o LD SP,(6F8E)
+6FDC C3 8A 71 ..q JP 718A
+6FDF 7A z LD A,D
+6FE0 B7 . OR A
+6FE1 CA 51 6F .Qo JP Z,6F51
+6FE4 FE FF .. CP FF
+6FE6 20 04 . JR NZ,6FEC
+6FE8 7C | LD A,H
+6FE9 CB 27 .' SLA A
+6FEB C9 . RET
+6FEC CD 72 6F .ro CALL 6F72
+6FEF CD 2C 66 .,f CALL 662C
+6FF2 DD E1 .. POP IX
+6FF4 CD 10 70 ..p CALL 7010
+6FF7 C9 . RET
+6FF8 CD 72 6F .ro CALL 6F72
+6FFB CD DA 66 ..f CALL 66DA
+6FFE DD E1 .. POP IX
+7000 CD 10 70 ..p CALL 7010
+7003 C9 . RET
+7004 CD 72 6F .ro CALL 6F72
+7007 CD DE 66 ..f CALL 66DE
+700A DD E1 .. POP IX
+700C CD 10 70 ..p CALL 7010
+700F C9 . RET
+7010 DD E1 .. POP IX
+7012 FD 21 08 00 .!.. LD IY,0008
+7016 FD 39 .9 ADD IY,SP
+7018 FD F9 .. LD SP,IY
+701A FD E1 .. POP IY
+701C DD E3 .. EX (SP),IX
+701E C9 . RET ; =============== Info ===========
+701F E3 . EX (SP),HL
+7020 F5 . PUSH AF
+7021 23 # INC HL
+7022 23 # INC HL
+7023 7E ~ LD A,(HL)
+7024 2B + DEC HL
+7025 2B + DEC HL
+7026 B7 . OR A
+7027 20 03 . JR NZ,702C
+7029 F1 . POP AF
+702A E3 . EX (SP),HL
+702B C9 . RET
+702C E5 . PUSH HL
+702D 3A 60 78 :`x LD A,(7860)
+7030 B7 . OR A
+7031 28 13 (. JR Z,7046
+7033 23 # INC HL
+7034 CD 98 75 ..u CALL 7598
+7037 CD 0E 6E ..n CALL 6E0E
+703A 21 D2 77 !.w LD HL,77D2
+703D BE . CP (HL)
+703E CA 29 71 .)q JP Z,7129
+7041 CD E2 6D ..m CALL 6DE2
+7044 18 FB .. JR 7041
+7046 E1 . POP HL
+7047 F1 . POP AF
+7048 E3 . EX (SP),HL
+7049 FD E5 .. PUSH IY
+704B F5 . PUSH AF
+704C 3A 17 82 :.. LD A,(8217)
+704F 3D = DEC A
+7050 F2 56 70 .Vp JP P,7056
+7053 32 17 82 2.. LD (8217),A
+7056 FD 21 04 00 .!.. LD IY,0004
+705A FD 39 .9 ADD IY,SP
+705C F1 . POP AF
+705D FD E5 .. PUSH IY
+705F DD E5 .. PUSH IX
+7061 D9 . EXX
+7062 E5 . PUSH HL
+7063 D5 . PUSH DE
+7064 C5 . PUSH BC
+7065 D9 . EXX
+7066 08 . EX AF,AF'
+7067 F5 . PUSH AF
+7068 08 . EX AF,AF'
+7069 E5 . PUSH HL
+706A D5 . PUSH DE
+706B C5 . PUSH BC
+706C F5 . PUSH AF
+706D CD 8A 28 ..( CALL 288A
+7070 CB 70 .p BIT 6,B
+7072 20 08 . JR NZ,707C
+7074 CB 21 .! SLA C
+7076 CB 10 .. RL B
+7078 ED 43 9B 7C .C.| LD (7C9B),BC
+707C FD 21 00 00 .!.. LD IY,0000
+7080 FD 39 .9 ADD IY,SP
+7082 FD E5 .. PUSH IY
+7084 21 60 78 !`x LD HL,7860
+7087 CD 65 82 .e. CALL 8265
+708A CD FE 6D ..m CALL 6DFE
+708D 3E 01 >. LD A,01
+708F 32 F9 6E 2.n LD (6EF9),A
+7092 FD 2A FA 6E .*.n LD IY,(6EFA)
+7096 FD 4E 03 .N. LD C,(IY+03)
+7099 FD 46 04 .F. LD B,(IY+04)
+709C ED 43 50 7B .CP{ LD (7B50),BC
+70A0 01 94 6F ..o LD BC,6F94
+70A3 FD 70 04 .p. LD (IY+04),B
+70A6 FD 71 03 .q. LD (IY+03),C
+70A9 97 . SUB A
+70AA 32 4B 7B 2K{ LD (7B4B),A
+70AD FD E1 .. POP IY
+70AF 21 39 7B !9{ LD HL,7B39
+70B2 36 00 6. LD (HL),00
+70B4 21 26 7B !&{ LD HL,7B26
+70B7 22 5C 7B "\{ LD (7B5C),HL
+70BA FD 22 92 6F .".o LD (6F92),IY
+70BE 11 D1 77 ..w LD DE,77D1
+70C1 CD B2 74 ..t CALL 74B2
+70C4 3E FF >. LD A,FF
+70C6 32 54 7B 2T{ LD (7B54),A
+70C9 97 . SUB A
+70CA 32 18 7D 2.} LD (7D18),A
+70CD ED 73 8E 6F .s.o LD (6F8E),SP
+70D1 CD F2 74 ..t CALL 74F2
+70D4 CD B2 75 ..u CALL 75B2
+70D7 FE 67 .g CP 67 ; "g" Weiter
+70D9 CA 41 71 .Aq JP Z,7141
+70DC FE 50 .P CP 50 ; "P" Password
+70DE CA 8D 7A ..z JP Z,7A8D
+70E1 F5 . PUSH AF
+70E2 3A 18 7D :.} LD A,(7D18)
+70E5 B7 . OR A
+70E6 28 41 (A JR Z,7129
+70E8 F1 . POP AF
+70E9 FE 0D .. CP 0D ; CR Dump
+70EB CA 5A 72 .Zr JP Z,725A
+70EE FE 77 .w CP 77 ; w Wordaddress setzen
+70F0 CA 3E 72 .>r JP Z,723E
+70F3 FE 7A .z CP 7A ; z Leitblock zeigen
+70F5 CA BB 71 ..q JP Z,71BB
+70F8 FE 73 .s CP 73 ; s Dataspace waehlen
+70FA CA 26 72 .&r JP Z,7226
+70FD FE 70 .p CP 70 ; p Byteaddresse setzen
+70FF CA 2D 72 .-r JP Z,722D
+7102 FE 6C .l CP 6C ; l Dumplaenge setzen
+7104 CA 54 72 .Tr JP Z,7254
+7107 FE 6B .k CP 6B ; k Block vom HG laden
+7109 CA A9 73 ..s JP Z,73A9
+710C FE 78 .x CP 78 ; x Bytekette suchen
+710E CA C0 73 ..s JP Z,73C0
+7111 FE 6F .o CP 6F ; o Naechste Seite dumpen
+7113 CA 51 73 .Qs JP Z,7351
+7116 FE 72 .r CP 72 ; r Miniprozesse freigeben
+7118 28 1A (. JR Z,7134
+711A FE 79 .y CP 79 ; y Spezielle Kommando
+711C CA B3 78 ..x JP Z,78B3
+711F FE 71 .q CP 71 ; q Zur anderen Tas wechseln
+7121 CA A4 71 ..q JP Z,71A4
+7124 FE 74 .t CP 74 ; t Register anzeigen
+7126 CC 07 7B ..{ CALL Z,7B07
+7129 3E 07 >. LD A,07 ; Unbekannt beep
+712B CD A4 75 ..u CALL 75A4
+712E ED 7B 8E 6F .{.o LD SP,(6F8E)
+7132 18 A0 .. JR 70D4
+7134 22 4C 7B "L{ LD (7B4C),HL
+7137 CD EB 6D ..m CALL 6DEB
+713A 3E 01 >. LD A,01
+713C 32 4B 7B 2K{ LD (7B4B),A
+713F 18 93 .. JR 70D4
+7141 97 . SUB A
+7142 32 F9 6E 2.n LD (6EF9),A
+7145 21 60 78 !`x LD HL,7860
+7148 CD 62 82 .b. CALL 8262
+714B 3A 17 82 :.. LD A,(8217)
+714E B7 . OR A
+714F F2 56 71 .Vq JP P,7156
+7152 3C < INC A
+7153 32 17 82 2.. LD (8217),A
+7156 CD EB 6D ..m CALL 6DEB
+7159 ED 4B 50 7B .KP{ LD BC,(7B50)
+715D FD 2A FA 6E .*.n LD IY,(6EFA)
+7161 FD 71 03 .q. LD (IY+03),C
+7164 FD 70 04 .p. LD (IY+04),B
+7167 3A 4B 7B :K{ LD A,(7B4B)
+716A B7 . OR A
+716B 28 0A (. JR Z,7177
+716D 21 00 00 !.. LD HL,0000
+7170 3A 4C 7B :L{ LD A,(7B4C)
+7173 B7 . OR A
+7174 CA 1A 6C ..l JP Z,6C1A
+7177 F1 . POP AF
+7178 C1 . POP BC
+7179 D1 . POP DE
+717A E1 . POP HL
+717B 08 . EX AF,AF'
+717C F1 . POP AF
+717D 08 . EX AF,AF'
+717E D9 . EXX
+717F C1 . POP BC
+7180 D1 . POP DE
+7181 E1 . POP HL
+7182 D9 . EXX
+7183 DD E1 .. POP IX
+7185 FD E1 .. POP IY
+7187 FD E1 .. POP IY
+7189 C9 . RET
+718A 21 60 78 !`x LD HL,7860
+718D CD 62 82 .b. CALL 8262
+7190 ED 4B 50 7B .KP{ LD BC,(7B50)
+7194 FD 2A FA 6E .*.n LD IY,(6EFA)
+7198 FD 71 03 .q. LD (IY+03),C
+719B FD 70 04 .p. LD (IY+04),B
+719E CD E2 6D ..m CALL 6DE2
+71A1 C3 7C 70 .|p JP 707C
+71A4 7D } LD A,L
+71A5 B7 . OR A
+71A6 CA D4 70 ..p JP Z,70D4
+71A9 55 U LD D,L
+71AA 1E 00 .. LD E,00
+71AC F5 . PUSH AF
+71AD CD 04 70 ..p CALL 7004
+71B0 2E 01 .. LD L,01
+71B2 36 FE 6. LD (HL),FE
+71B4 F1 . POP AF
+71B5 CD 68 6D .hm CALL 6D68
+71B8 C3 D4 70 ..p JP 70D4
+71BB 7C | LD A,H
+71BC B5 . OR L
+71BD 28 08 (. JR Z,71C7
+71BF 55 U LD D,L
+71C0 1E 00 .. LD E,00
+71C2 CD F8 6F ..o CALL 6FF8
+71C5 18 03 .. JR 71CA
+71C7 2A 1C 6E *.n LD HL,(6E1C)
+71CA FD E5 .. PUSH IY
+71CC FD 21 72 7B .!r{ LD IY,7B72
+71D0 3E 00 >. LD A,00
+71D2 32 71 7B 2q{ LD (7B71),A
+71D5 E5 . PUSH HL
+71D6 21 39 7B !9{ LD HL,7B39
+71D9 CB 86 .. RES 0,(HL)
+71DB 21 6B 7C !k| LD HL,7C6B
+71DE CD CA 6E ..n CALL 6ECA
+71E1 CD 1C 7B ..{ CALL 7B1C
+71E4 E1 . POP HL
+71E5 FD 7E 02 .~. LD A,(IY+02)
+71E8 B7 . OR A
+71E9 CA 21 72 .!r JP Z,7221
+71EC FD 5E 00 .^. LD E,(IY+00)
+71EF 16 00 .. LD D,00
+71F1 E5 . PUSH HL
+71F2 19 . ADD HL,DE
+71F3 FD 46 01 .F. LD B,(IY+01)
+71F6 CD 2D 75 .-u CALL 752D
+71F9 FD E5 .. PUSH IY
+71FB E1 . POP HL
+71FC 23 # INC HL
+71FD 23 # INC HL
+71FE CD CA 6E ..n CALL 6ECA
+7201 3A 71 7B :q{ LD A,(7B71)
+7204 C6 14 .. ADD A,14
+7206 FE 50 .P CP 50
+7208 38 04 8. JR C,720E
+720A CD 1C 7B ..{ CALL 7B1C
+720D 97 . SUB A
+720E 32 71 7B 2q{ LD (7B71),A
+7211 CD 84 75 ..u CALL 7584
+7214 16 00 .. LD D,00
+7216 FD 5E 02 .^. LD E,(IY+02)
+7219 13 . INC DE
+721A 13 . INC DE
+721B 13 . INC DE
+721C FD 19 .. ADD IY,DE
+721E E1 . POP HL
+721F 18 C4 .. JR 71E5
+7221 FD E1 .. POP IY
+7223 C3 CD 70 ..p JP 70CD
+7226 7D } LD A,L
+7227 32 54 7B 2T{ LD (7B54),A
+722A C3 D4 70 ..p JP 70D4
+722D 22 5C 7B "\{ LD (7B5C),HL
+7230 3A 71 78 :qx LD A,(7871)
+7233 32 5E 7B 2^{ LD (7B5E),A
+7236 3E 01 >. LD A,01
+7238 32 CD 77 2.w LD (77CD),A
+723B C3 D4 70 ..p JP 70D4
+723E CB 25 .% SLA L
+7240 CB 14 .. RL H
+7242 22 5C 7B "\{ LD (7B5C),HL
+7245 3A 71 78 :qx LD A,(7871)
+7248 CB 17 .. RL A
+724A 32 5E 7B 2^{ LD (7B5E),A
+724D 97 . SUB A
+724E 32 CD 77 2.w LD (77CD),A
+7251 C3 D4 70 ..p JP 70D4
+7254 22 65 7B "e{ LD (7B65),HL
+7257 C3 D4 70 ..p JP 70D4
+725A 2A 99 7C *.| LD HL,(7C99)
+725D 7C | LD A,H
+725E B5 . OR L
+725F C2 D4 70 ..p JP NZ,70D4
+7262 CD 1C 7B ..{ CALL 7B1C
+7265 21 61 78 !ax LD HL,7861
+7268 CD CA 6E ..n CALL 6ECA
+726B 21 54 7B !T{ LD HL,7B54
+726E CD 3A 7A .:z CALL 7A3A
+7271 21 5C 7B !\{ LD HL,7B5C
+7274 CD 3A 7A .:z CALL 7A3A
+7277 21 65 7B !e{ LD HL,7B65
+727A CD 3A 7A .:z CALL 7A3A
+727D 2A 5C 7B *\{ LD HL,(7B5C)
+7280 ED 4B 65 7B .Ke{ LD BC,(7B65)
+7284 CD 8A 72 ..r CALL 728A
+7287 C3 CD 70 ..p JP 70CD
+728A 3E 00 >. LD A,00
+728C 32 3E 7B 2>{ LD (7B3E),A
+728F 7D } LD A,L
+7290 32 6C 78 2lx LD (786C),A
+7293 E6 F0 .. AND F0
+7295 6F o LD L,A
+7296 3A 5E 7B :^{ LD A,(7B5E)
+7299 5F _ LD E,A
+729A 78 x LD A,B
+729B B7 . OR A
+729C FA B3 72 ..r JP M,72B3
+729F CD B9 72 ..r CALL 72B9
+72A2 CD 20 6E . n CALL 6E20
+72A5 CD 98 6E ..n CALL 6E98
+72A8 38 04 8. JR C,72AE
+72AA CD 2A 6E .*n CALL 6E2A
+72AD C9 . RET
+72AE CD 2A 6E .*n CALL 6E2A
+72B1 18 E7 .. JR 729A
+72B3 21 39 7B !9{ LD HL,7B39
+72B6 CB C6 .. SET 0,(HL)
+72B8 C9 . RET
+72B9 C5 . PUSH BC
+72BA E5 . PUSH HL
+72BB 22 73 78 "sx LD (7873),HL
+72BE ED 53 75 78 .Sux LD (7875),DE
+72C2 22 77 78 "wx LD (7877),HL
+72C5 ED 53 79 78 .Syx LD (7879),DE
+72C9 E5 . PUSH HL
+72CA CD 88 78 ..x CALL 7888
+72CD CD 39 6F .9o CALL 6F39
+72D0 E1 . POP HL
+72D1 CB 3C .< SLR H
+72D3 CE 00 .. ADC A,00
+72D5 67 g LD H,A
+72D6 E5 . PUSH HL
+72D7 CD 1C 7B ..{ CALL 7B1C
+72DA 21 3E 7B !>{ LD HL,7B3E
+72DD 34 4 INC (HL)
+72DE 3A CD 77 :.w LD A,(77CD)
+72E1 B7 . OR A
+72E2 20 0B . JR NZ,72EF
+72E4 21 79 78 !yx LD HL,7879
+72E7 CB 3E .> SLR (HL)
+72E9 2B + DEC HL
+72EA CB 1E .. RR (HL)
+72EC 2B + DEC HL
+72ED CB 1E .. RR (HL)
+72EF 21 79 78 !yx LD HL,7879
+72F2 CD 56 75 .Vu CALL 7556
+72F5 2B + DEC HL
+72F6 CD 56 75 .Vu CALL 7556
+72F9 2B + DEC HL
+72FA CD 56 75 .Vu CALL 7556
+72FD E1 . POP HL
+72FE 22 73 78 "sx LD (7873),HL
+7301 3E 3A >: LD A,3A
+7303 CD A4 75 ..u CALL 75A4
+7306 3E 20 > LD A,20
+7308 CD A4 75 ..u CALL 75A4
+730B 06 08 .. LD B,08
+730D CD 2D 75 .-u CALL 752D
+7310 3E 20 > LD A,20
+7312 CD A4 75 ..u CALL 75A4
+7315 06 08 .. LD B,08
+7317 CD 2D 75 .-u CALL 752D
+731A 3E 20 > LD A,20
+731C CD A4 75 ..u CALL 75A4
+731F 2A 73 78 *sx LD HL,(7873)
+7322 01 10 00 ... LD BC,0010
+7325 7E ~ LD A,(HL)
+7326 FE 20 . CP 20
+7328 30 02 0. JR NC,732C
+732A 3E 2E >. LD A,2E
+732C FE 7E .~ CP 7E
+732E 38 02 8. JR C,7332
+7330 3E 2E >. LD A,2E
+7332 CD A4 75 ..u CALL 75A4
+7335 ED A1 .. CPI
+7337 EA 25 73 .%s JP PE,7325
+733A E1 . POP HL
+733B ED 4B 3A 7B .K:{ LD BC,(7B3A)
+733F ED 5B 75 78 .[ux LD DE,(7875)
+7343 B7 . OR A
+7344 ED 4A .J ADC HL,BC
+7346 30 01 0. JR NC,7349
+7348 1C . INC E
+7349 C1 . POP BC
+734A 79 y LD A,C
+734B D6 10 .. SUB A,10
+734D 4F O LD C,A
+734E D0 . RET NC
+734F 05 . DEC B
+7350 C9 . RET
+7351 7C | LD A,H
+7352 B5 . OR L
+7353 28 04 (. JR Z,7359
+7355 54 T LD D,H
+7356 5D ] LD E,L
+7357 18 04 .. JR 735D
+7359 ED 5B 65 7B .[e{ LD DE,(7B65)
+735D 2A 5C 7B *\{ LD HL,(7B5C)
+7360 B7 . OR A
+7361 ED 5A .Z ADC HL,DE
+7363 22 5C 7B "\{ LD (7B5C),HL
+7366 30 04 0. JR NC,736C
+7368 21 5E 7B !^{ LD HL,7B5E
+736B 34 4 INC (HL)
+736C C3 5A 72 .Zr JP 725A
+736F 7C | LD A,H
+7370 B5 . OR L
+7371 20 0C . JR NZ,737F
+7373 EB . EX DE,HL
+7374 01 05 00 ... LD BC,0005
+7377 3E 1F >. LD A,1F
+7379 CD A8 28 ..( CALL 28A8
+737C 21 00 00 !.. LD HL,0000
+737F 22 25 7D "%} LD (7D25),HL
+7382 E5 . PUSH HL
+7383 11 12 FF ... LD DE,FF12
+7386 CD 66 6F .fo CALL 6F66
+7389 D1 . POP DE
+738A 67 g LD H,A
+738B 2E 00 .. LD L,00
+738D 22 23 7D "#} LD (7D23),HL
+7390 E5 . PUSH HL
+7391 01 00 00 ... LD BC,0000
+7394 3E 1F >. LD A,1F
+7396 CD 7E 28 .~( CALL 287E
+7399 E1 . POP HL
+739A 79 y LD A,C
+739B B7 . OR A
+739C 20 02 . JR NZ,73A0
+739E 18 10 .. JR 73B0
+73A0 3E 30 >0 LD A,30
+73A2 81 . ADD C
+73A3 CD A4 75 ..u CALL 75A4
+73A6 C3 D4 70 ..p JP 70D4
+73A9 EB . EX DE,HL
+73AA CD 66 6F .fo CALL 6F66
+73AD 67 g LD H,A
+73AE 2E 00 .. LD L,00
+73B0 22 5C 7B "\{ LD (7B5C),HL
+73B3 21 5E 7B !^{ LD HL,7B5E
+73B6 36 00 6. LD (HL),00
+73B8 3E FF >. LD A,FF
+73BA 32 54 7B 2T{ LD (7B54),A
+73BD C3 5A 72 .Zr JP 725A
+73C0 22 6F 7B "o{ LD (7B6F),HL
+73C3 CD F1 79 ..y CALL 79F1
+73C6 FE 68 .h CP 68
+73C8 28 0C (. JR Z,73D6
+73CA FE 63 .c CP 63
+73CC 28 2D (- JR Z,73FB
+73CE FE 0D .. CP 0D
+73D0 CA 98 74 ..t JP Z,7498
+73D3 C3 29 71 .)q JP 7129
+73D6 CD A4 75 ..u CALL 75A4
+73D9 3E 20 > LD A,20
+73DB CD A4 75 ..u CALL 75A4
+73DE 11 FA 7C ..| LD DE,7CFA
+73E1 06 00 .. LD B,00
+73E3 C5 . PUSH BC
+73E4 D5 . PUSH DE
+73E5 CD B2 75 ..u CALL 75B2
+73E8 D1 . POP DE
+73E9 C1 . POP BC
+73EA F5 . PUSH AF
+73EB 7D } LD A,L
+73EC 12 . LD (DE),A
+73ED 13 . INC DE
+73EE 04 . INC B
+73EF F1 . POP AF
+73F0 FE 0D .. CP 0D
+73F2 20 EF . JR NZ,73E3
+73F4 ED 43 F8 7C .C.| LD (7CF8),BC
+73F8 C3 98 74 ..t JP 7498
+73FB CD A4 75 ..u CALL 75A4
+73FE 3E 20 > LD A,20
+7400 CD A4 75 ..u CALL 75A4
+7403 11 FA 7C ..| LD DE,7CFA
+7406 06 00 .. LD B,00
+7408 CD F1 79 ..y CALL 79F1
+740B CD A4 75 ..u CALL 75A4
+740E FE 0D .. CP 0D
+7410 CA F4 73 ..s JP Z,73F4
+7413 12 . LD (DE),A
+7414 13 . INC DE
+7415 04 . INC B
+7416 18 F0 .. JR 7408
+7418 2A 5C 7B *\{ LD HL,(7B5C)
+741B 24 $ INC H
+741C 2E 00 .. LD L,00
+741E 22 5C 7B "\{ LD (7B5C),HL
+7421 20 04 . JR NZ,7427
+7423 21 5E 7B !^{ LD HL,7B5E
+7426 34 4 INC (HL)
+7427 2A 6F 7B *o{ LD HL,(7B6F)
+742A 2B + DEC HL
+742B 7C | LD A,H
+742C B5 . OR L
+742D CA 29 71 .)q JP Z,7129
+7430 CD 20 6E . n CALL 6E20
+7433 CD 98 6E ..n CALL 6E98
+7436 38 06 8. JR C,743E
+7438 CD 2A 6E .*n CALL 6E2A
+743B C3 29 71 .)q JP 7129
+743E CD 2A 6E .*n CALL 6E2A
+7441 22 6F 7B "o{ LD (7B6F),HL
+7444 2A 5C 7B *\{ LD HL,(7B5C)
+7447 ED 5B 5E 7B .[^{ LD DE,(7B5E)
+744B CD 88 78 ..x CALL 7888
+744E CD 39 6F .9o CALL 6F39
+7451 2A 5C 7B *\{ LD HL,(7B5C)
+7454 CB 3C .< SLR H
+7456 CE 00 .. ADC A,00
+7458 67 g LD H,A
+7459 06 00 .. LD B,00
+745B 3E 00 >. LD A,00
+745D 95 . SUB L
+745E 20 02 . JR NZ,7462
+7460 06 01 .. LD B,01
+7462 4F O LD C,A
+7463 3A FA 7C :.| LD A,(7CFA)
+7466 ED B1 .. CPIR
+7468 C2 18 74 ..t JP NZ,7418
+746B 7D } LD A,L
+746C 3D = DEC A
+746D 32 5C 7B 2\{ LD (7B5C),A
+7470 ED 4B F8 7C .K.| LD BC,(7CF8)
+7474 05 . DEC B
+7475 28 0E (. JR Z,7485
+7477 11 FB 7C ..| LD DE,7CFB
+747A 1A . LD A,(DE)
+747B BE . CP (HL)
+747C 20 1A . JR NZ,7498
+747E 13 . INC DE
+747F 2C , INC L
+7480 CC A2 74 ..t CALL Z,74A2
+7483 10 F5 .. DJNZ 747A
+7485 3A 54 7B :T{ LD A,(7B54)
+7488 3C < INC A
+7489 C2 5A 72 .Zr JP NZ,725A
+748C 2A 5C 7B *\{ LD HL,(7B5C)
+748F 01 FA 7C ..| LD BC,7CFA
+7492 B7 . OR A
+7493 ED 42 .B SBC HL,BC
+7495 C2 5A 72 .Zr JP NZ,725A
+7498 2A 5C 7B *\{ LD HL,(7B5C)
+749B 23 # INC HL
+749C 22 5C 7B "\{ LD (7B5C),HL
+749F C3 44 74 .Dt JP 7444
+74A2 D5 . PUSH DE
+74A3 2A 5C 7B *\{ LD HL,(7B5C)
+74A6 24 $ INC H
+74A7 CD 88 78 ..x CALL 7888
+74AA CD 39 6F .9o CALL 6F39
+74AD 67 g LD H,A
+74AE 2E 00 .. LD L,00
+74B0 D1 . POP DE
+74B1 C9 . RET
+74B2 FD 6E 16 .n. LD L,(IY+16)
+74B5 FD 66 17 .f. LD H,(IY+17)
+74B8 23 # INC HL
+74B9 7E ~ LD A,(HL)
+74BA FE 3C .< CP 3C
+74BC 38 02 8. JR C,74C0
+74BE 3E 3C >< LD A,3C
+74C0 4F O LD C,A
+74C1 C6 04 .. ADD A,04
+74C3 12 . LD (DE),A
+74C4 13 . INC DE
+74C5 CD 0E 6E ..n CALL 6E0E
+74C8 12 . LD (DE),A
+74C9 13 . INC DE
+74CA 3A 1A 6E :.n LD A,(6E1A)
+74CD E5 . PUSH HL
+74CE 21 7F 78 !.x LD HL,787F
+74D1 77 w LD (HL),A
+74D2 3E 30 >0 LD A,30
+74D4 ED 6F .o RLD
+74D6 FE 3A .: CP 3A
+74D8 38 02 8. JR C,74DC
+74DA C6 07 .. ADD A,07
+74DC 12 . LD (DE),A
+74DD 3E 30 >0 LD A,30
+74DF 13 . INC DE
+74E0 ED 6F .o RLD
+74E2 FE 3A .: CP 3A
+74E4 38 02 8. JR C,74E8
+74E6 C6 07 .. ADD A,07
+74E8 12 . LD (DE),A
+74E9 13 . INC DE
+74EA 13 . INC DE
+74EB E1 . POP HL
+74EC 23 # INC HL
+74ED 06 00 .. LD B,00
+74EF ED B0 .. LDIR
+74F1 C9 . RET
+74F2 21 7B 78 !{x LD HL,787B
+74F5 CD CA 6E ..n CALL 6ECA
+74F8 21 D1 77 !.w LD HL,77D1
+74FB CD CA 6E ..n CALL 6ECA
+74FE 21 6B 7C !k| LD HL,7C6B
+7501 CD CA 6E ..n CALL 6ECA
+7504 21 1C 6E !.n LD HL,6E1C
+7507 06 02 .. LD B,02
+7509 CD 2D 75 .-u CALL 752D
+750C CD 82 75 ..u CALL 7582
+750F 21 14 78 !.x LD HL,7814
+7512 CD CA 6E ..n CALL 6ECA
+7515 2A 92 6F *.o LD HL,(6F92)
+7518 06 18 .. LD B,18
+751A CD 2D 75 .-u CALL 752D
+751D CD 1C 7B ..{ CALL 7B1C
+7520 CD BE 79 ..y CALL 79BE
+7523 CD 82 75 ..u CALL 7582
+7526 21 61 78 !ax LD HL,7861
+7529 CD CA 6E ..n CALL 6ECA
+752C C9 . RET
+752D 04 . INC B
+752E 05 . DEC B
+752F C8 . RET Z
+7530 3A 6C 78 :lx LD A,(786C)
+7533 BD . CP L
+7534 20 0A . JR NZ,7540
+7536 3E 08 >. LD A,08
+7538 CD A4 75 ..u CALL 75A4
+753B 3E 2D >- LD A,2D
+753D CD A4 75 ..u CALL 75A4
+7540 CD 56 75 .Vu CALL 7556
+7543 3A 6C 78 :lx LD A,(786C)
+7546 BD . CP L
+7547 20 04 . JR NZ,754D
+7549 3E 2D >- LD A,2D
+754B 18 02 .. JR 754F
+754D 3E 20 > LD A,20
+754F CD A4 75 ..u CALL 75A4
+7552 23 # INC HL
+7553 10 DB .. DJNZ 7530
+7555 C9 . RET
+7556 E5 . PUSH HL
+7557 4E N LD C,(HL)
+7558 21 7F 78 !.x LD HL,787F
+755B 71 q LD (HL),C
+755C D5 . PUSH DE
+755D 3E 30 >0 LD A,30
+755F ED 6F .o RLD
+7561 5F _ LD E,A
+7562 FE 3A .: CP 3A
+7564 38 05 8. JR C,756B
+7566 C6 07 .. ADD A,07
+7568 5F _ LD E,A
+7569 3E 30 >0 LD A,30
+756B ED 6F .o RLD
+756D 57 W LD D,A
+756E FE 3A .: CP 3A
+7570 38 03 8. JR C,7575
+7572 C6 07 .. ADD A,07
+7574 57 W LD D,A
+7575 ED 53 CF 77 .S.w LD (77CF),DE
+7579 21 CE 77 !.w LD HL,77CE
+757C CD CA 6E ..n CALL 6ECA
+757F D1 . POP DE
+7580 E1 . POP HL
+7581 C9 . RET
+7582 3E 4F >O LD A,4F
+7584 F5 . PUSH AF
+7585 3A F1 6E :.n LD A,(6EF1)
+7588 CD 85 1E ... CALL 1E85
+758B F1 . POP AF
+758C 90 . SUB B
+758D C8 . RET Z
+758E D8 . RET C
+758F 47 G LD B,A
+7590 3E 20 > LD A,20
+7592 CD A4 75 ..u CALL 75A4
+7595 10 F9 .. DJNZ 7590
+7597 C9 . RET
+7598 46 F LD B,(HL)
+7599 05 . DEC B
+759A 04 . INC B
+759B C8 . RET Z
+759C 23 # INC HL
+759D 7E ~ LD A,(HL)
+759E CD A4 75 ..u CALL 75A4
+75A1 10 F9 .. DJNZ 759C
+75A3 C9 . RET ;----------------------------
+75A4 F5 . PUSH AF ; Zeichen in A ausgeben
+75A5 32 6E 78 2nx LD (786E),A
+75A8 E5 . PUSH HL
+75A9 21 6D 78 !mx LD HL,786D
+75AC CD CA 6E ..n CALL 6ECA
+75AF E1 . POP HL
+75B0 F1 . POP AF
+75B1 C9 . RET
+75B2 21 00 00 !.. LD HL,0000
+75B5 22 6F 78 "ox LD (786F),HL
+75B8 22 71 78 "qx LD (7871),HL
+75BB CD F1 79 ..y CALL 79F1
+75BE FE 03 .. CP 03
+75C0 CA 28 76 .(v JP Z,7628
+75C3 18 03 .. JR 75C8
+75C5 CD F1 79 ..y CALL 79F1
+75C8 CD A4 75 ..u CALL 75A4 ; Zeichen in A ausgeben
+75CB 21 6F 78 !ox LD HL,786F
+75CE FE 3C .< CP 3C
+75D0 28 24 ($ JR Z,75F6
+75D2 FE 3E .> CP 3E
+75D4 28 2A (* JR Z,7600
+75D6 FE 69 .i CP 69
+75D8 28 32 (2 JR Z,760C
+75DA FE 30 .0 CP 30
+75DC 38 44 8D JR C,7622
+75DE FE 3A .: CP 3A
+75E0 38 0A 8. JR C,75EC
+75E2 FE 61 .a CP 61
+75E4 38 3C 8< JR C,7622
+75E6 FE 67 .g CP 67
+75E8 30 38 08 JR NC,7622
+75EA C6 D9 .. ADD A,D9
+75EC ED 6F .o RLD
+75EE 23 # INC HL
+75EF ED 6F .o RLD
+75F1 23 # INC HL
+75F2 ED 6F .o RLD
+75F4 18 CF .. JR 75C5
+75F6 CB 26 .& SLA (HL)
+75F8 23 # INC HL
+75F9 CB 16 .. RL (HL)
+75FB 23 # INC HL
+75FC CB 16 .. RL (HL)
+75FE 18 C5 .. JR 75C5
+7600 23 # INC HL
+7601 23 # INC HL
+7602 CB 3E .> SLR (HL)
+7604 2B + DEC HL
+7605 CB 1E .. RR (HL)
+7607 2B + DEC HL
+7608 CB 1E .. RR (HL)
+760A 18 B9 .. JR 75C5
+760C 7E ~ LD A,(HL)
+760D 32 71 78 2qx LD (7871),A
+7610 2A 5C 7B *\{ LD HL,(7B5C)
+7613 CD 8E 76 ..v CALL 768E
+7616 22 6F 78 "ox LD (786F),HL
+7619 18 AA .. JR 75C5
+761B 3E 07 >. LD A,07
+761D CD A4 75 ..u CALL 75A4
+7620 18 90 .. JR 75B2
+7622 CB 81 .. RES 0,C
+7624 2A 6F 78 *ox LD HL,(786F)
+7627 C9 . RET
+7628 3A 39 7B :9{ LD A,(7B39)
+762B CB 47 .G BIT 0,A
+762D 28 EC (. JR Z,761B
+762F FD E5 .. PUSH IY
+7631 21 78 7C !x| LD HL,7C78
+7634 CD CA 6E ..n CALL 6ECA
+7637 FD 21 52 7B .!R{ LD IY,7B52
+763B 3A 3E 7B :>{ LD A,(7B3E)
+763E 47 G LD B,A
+763F FD 70 00 .p. LD (IY+00),B
+7642 3E 03 >. LD A,03
+7644 CD 93 78 ..x CALL 7893
+7647 2A 5C 7B *\{ LD HL,(7B5C)
+764A CD 99 78 ..x CALL 7899
+764D ED 5B 5E 7B .[^{ LD DE,(7B5E)
+7651 CD F1 79 ..y CALL 79F1
+7654 FE 03 .. CP 03
+7656 CA A2 76 ..v JP Z,76A2
+7659 FE 0A .. CP 0A
+765B CA C0 76 ..v JP Z,76C0
+765E FE 02 .. CP 02
+7660 CA E7 76 ..v JP Z,76E7
+7663 FE 20 . CP 20
+7665 CA E7 76 ..v JP Z,76E7
+7668 FE 08 .. CP 08
+766A CA 3E 77 .>w JP Z,773E
+766D FE 01 .. CP 01
+766F 28 C0 (. JR Z,7631
+7671 FE 30 .0 CP 30
+7673 38 0E 8. JR C,7683
+7675 FE 3A .: CP 3A
+7677 DA 8F 77 ..w JP C,778F
+767A FE 61 .a CP 61
+767C 38 05 8. JR C,7683
+767E FE 67 .g CP 67
+7680 DA 8D 77 ..w JP C,778D
+7683 FD E1 .. POP IY
+7685 22 4E 7B "N{ LD (7B4E),HL
+7688 CD 8E 76 ..v CALL 768E
+768B CB C1 .. SET 0,C
+768D C9 . RET
+768E F5 . PUSH AF
+768F E5 . PUSH HL
+7690 CD 88 78 ..x CALL 7888
+7693 CD 39 6F .9o CALL 6F39
+7696 E1 . POP HL
+7697 CB 3C .< SLR H
+7699 CE 00 .. ADC A,00
+769B 67 g LD H,A
+769C 7E ~ LD A,(HL)
+769D 23 # INC HL
+769E 66 f LD H,(HL)
+769F 6F o LD L,A
+76A0 F1 . POP AF
+76A1 C9 . RET
+76A2 3A 3E 7B :>{ LD A,(7B3E)
+76A5 FD BE 00 ... CP (IY+00)
+76A8 28 34 (4 JR Z,76DE
+76AA FD 34 .4 INC (IY+00)
+76AC 00 . NOP
+76AD 3E 03 >. LD A,03
+76AF CD A4 75 ..u CALL 75A4
+76B2 ED 4B 3A 7B .K:{ LD BC,(7B3A)
+76B6 B7 . OR A
+76B7 ED 42 .B SBC HL,BC
+76B9 D2 51 76 .Qv JP NC,7651
+76BC 1D . DEC E
+76BD C3 51 76 .Qv JP 7651
+76C0 3E 01 >. LD A,01
+76C2 FD BE 00 ... CP (IY+00)
+76C5 CA DE 76 ..v JP Z,76DE
+76C8 FD 35 .5 DEC (IY+00)
+76CA 00 . NOP
+76CB 3E 0A >. LD A,0A
+76CD CD A4 75 ..u CALL 75A4
+76D0 ED 4B 3A 7B .K:{ LD BC,(7B3A)
+76D4 B7 . OR A
+76D5 ED 4A .J ADC HL,BC
+76D7 D2 51 76 .Qv JP NC,7651
+76DA 1C . INC E
+76DB C3 51 76 .Qv JP 7651
+76DE 3E 07 >. LD A,07
+76E0 CD A4 75 ..u CALL 75A4
+76E3 3E 0D >. LD A,0D
+76E5 18 9C .. JR 7683
+76E7 E5 . PUSH HL
+76E8 E5 . PUSH HL
+76E9 D5 . PUSH DE
+76EA CD 88 78 ..x CALL 7888
+76ED CD 39 6F .9o CALL 6F39
+76F0 D1 . POP DE
+76F1 E1 . POP HL
+76F2 CB 3C .< SLR H
+76F4 CE 00 .. ADC A,00
+76F6 67 g LD H,A
+76F7 CD 56 75 .Vu CALL 7556
+76FA 3E 20 > LD A,20
+76FC CD A4 75 ..u CALL 75A4
+76FF E1 . POP HL
+7700 7D } LD A,L
+7701 E6 0F .. AND 0F
+7703 FE 0F .. CP 0F
+7705 28 0D (. JR Z,7714
+7707 23 # INC HL
+7708 FE 07 .. CP 07
+770A 20 05 . JR NZ,7711
+770C 3E 20 > LD A,20
+770E CD A4 75 ..u CALL 75A4
+7711 C3 51 76 .Qv JP 7651
+7714 3E 01 >. LD A,01
+7716 FD BE 00 ... CP (IY+00)
+7719 28 C3 (. JR Z,76DE
+771B FD 35 .5 DEC (IY+00)
+771D 00 . NOP
+771E E5 . PUSH HL
+771F 21 40 7B !@{ LD HL,7B40
+7722 CD CA 6E ..n CALL 6ECA
+7725 E1 . POP HL
+7726 C5 . PUSH BC
+7727 ED 4B 3A 7B .K:{ LD BC,(7B3A)
+772B 03 . INC BC
+772C 09 . ADD HL,BC
+772D D2 31 77 .1w JP NC,7731
+7730 1C . INC E
+7731 01 10 00 ... LD BC,0010
+7734 B7 . OR A
+7735 ED 42 .B SBC HL,BC
+7737 30 01 0. JR NC,773A
+7739 1D . DEC E
+773A C1 . POP BC
+773B C3 51 76 .Qv JP 7651
+773E 7D } LD A,L
+773F E6 0F .. AND 0F
+7741 FE 00 .. CP 00
+7743 28 1A (. JR Z,775F
+7745 2B + DEC HL
+7746 FE 08 .. CP 08
+7748 28 0E (. JR Z,7758
+774A 3E 08 >. LD A,08
+774C CD A4 75 ..u CALL 75A4
+774F CD A4 75 ..u CALL 75A4
+7752 CD A4 75 ..u CALL 75A4
+7755 C3 51 76 .Qv JP 7651
+7758 3E 08 >. LD A,08
+775A CD A4 75 ..u CALL 75A4
+775D 18 EB .. JR 774A
+775F 3A 3E 7B :>{ LD A,(7B3E)
+7762 FD BE 00 ... CP (IY+00)
+7765 CA DE 76 ..v JP Z,76DE
+7768 FD 34 .4 INC (IY+00)
+776A 00 . NOP
+776B E5 . PUSH HL
+776C 3E 03 >. LD A,03
+776E CD A4 75 ..u CALL 75A4
+7771 06 2E .. LD B,2E
+7773 CD 91 78 ..x CALL 7891
+7776 E1 . POP HL
+7777 C5 . PUSH BC
+7778 ED 4B 3A 7B .K:{ LD BC,(7B3A)
+777C B7 . OR A
+777D ED 42 .B SBC HL,BC
+777F 30 01 0. JR NC,7782
+7781 1D . DEC E
+7782 01 0F 00 ... LD BC,000F
+7785 09 . ADD HL,BC
+7786 30 01 0. JR NC,7789
+7788 1C . INC E
+7789 C1 . POP BC
+778A C3 51 76 .Qv JP 7651
+778D C6 D9 .. ADD A,D9
+778F C5 . PUSH BC
+7790 E6 0F .. AND 0F
+7792 87 . ADD A
+7793 87 . ADD A
+7794 87 . ADD A
+7795 87 . ADD A
+7796 47 G LD B,A
+7797 CD F1 79 ..y CALL 79F1
+779A FE 3A .: CP 3A
+779C 38 0A 8. JR C,77A8
+779E FE 61 .a CP 61
+77A0 38 E7 8. JR C,7789
+77A2 FE 67 .g CP 67
+77A4 30 E3 0. JR NC,7789
+77A6 C6 D9 .. ADD A,D9
+77A8 E6 0F .. AND 0F
+77AA B0 . OR B
+77AB C1 . POP BC
+77AC E5 . PUSH HL
+77AD F5 . PUSH AF
+77AE E5 . PUSH HL
+77AF D5 . PUSH DE
+77B0 CD 88 78 ..x CALL 7888
+77B3 CD DF 6F ..o CALL 6FDF
+77B6 D1 . POP DE
+77B7 E1 . POP HL
+77B8 CB 3C .< SLR H
+77BA CE 00 .. ADC A,00
+77BC 67 g LD H,A
+77BD F1 . POP AF
+77BE 77 w LD (HL),A
+77BF CD 56 75 .Vu CALL 7556
+77C2 06 02 .. LD B,02
+77C4 3E 08 >. LD A,08
+77C6 CD 93 78 ..x CALL 7893
+77C9 E1 . POP HL
+77CA C3 51 76 .Qv JP 7651
+77CD 01 02 00 ... LD BC,0002
+77D0 00 . NOP
+77D1 00 . NOP
+77D2 00 . NOP
+77D3 20 20 JR NZ,77F5
+77D5 20 20 JR NZ,77F7
+77D7 20 FF . JR NZ,77D8
+77D9 FF . RST 38
+77DA FF . RST 38
+77DB FF . RST 38
+77DC FF . RST 38
+77DD FF . RST 38
+77DE FF . RST 38
+77DF FF . RST 38
+77E0 FF . RST 38
+77E1 FF . RST 38
+77E2 FF . RST 38
+77E3 FF . RST 38
+77E4 FF . RST 38
+77E5 FF . RST 38
+77E6 FF . RST 38
+77E7 FF . RST 38
+77E8 FF . RST 38
+77E9 FF . RST 38
+77EA FF . RST 38
+77EB FF . RST 38
+77EC FF . RST 38
+77ED FF . RST 38
+77EE FF . RST 38
+77EF FF . RST 38
+77F0 FF . RST 38
+77F1 FF . RST 38
+77F2 FF . RST 38
+77F3 FF . RST 38
+77F4 FF . RST 38
+77F5 FF . RST 38
+77F6 FF . RST 38
+77F7 FF . RST 38
+77F8 FF . RST 38
+77F9 FF . RST 38
+77FA FF . RST 38
+77FB FF . RST 38
+77FC FF . RST 38
+77FD FF . RST 38
+77FE FF . RST 38
+77FF FF . RST 38
+7800 FF . RST 38
+7801 FF . RST 38
+7802 FF . RST 38
+7803 FF . RST 38
+7804 FF . RST 38
+7805 FF . RST 38
+7806 FF . RST 38
+7807 FF . RST 38
+7808 FF . RST 38
+7809 FF . RST 38
+780A FF . RST 38
+780B FF . RST 38
+780C FF . RST 38
+780D FF . RST 38
+780E FF . RST 38
+780F FF . RST 38
+7810 FF . RST 38
+7811 FF . RST 38
+7812 FF . RST 38
+7813 FF . RST 38
+7814 4B K LD C,E
+7815 01 0D 0A ... LD BC,0A0D
+7818 20 46 F JR NZ,7860
+781A 20 20 JR NZ,783C
+781C 41 A LD B,C
+781D 20 20 JR NZ,783F
+781F 43 C LD B,E
+7820 20 20 JR NZ,7842
+7822 42 B LD B,D
+7823 20 20 JR NZ,7845
+7825 45 E LD B,L
+7826 20 20 JR NZ,7848
+7828 44 D LD B,H
+7829 20 20 JR NZ,784B
+782B 4C L LD C,H
+782C 20 20 JR NZ,784E
+782E 48 H LD C,B
+782F 20 20 JR NZ,7851
+7831 46 F LD B,(HL)
+7832 20 20 JR NZ,7854
+7834 41 A LD B,C
+7835 20 20 JR NZ,7857
+7837 43 C LD B,E
+7838 20 20 JR NZ,785A
+783A 42 B LD B,D
+783B 20 20 JR NZ,785D
+783D 45 E LD B,L
+783E 20 20 JR NZ,7860
+7840 44 D LD B,H
+7841 20 20 JR NZ,7863
+7843 4C L LD C,H
+7844 20 20 JR NZ,7866
+7846 48 H LD C,B
+7847 20 20 JR NZ,7869
+7849 49 I LD C,C
+784A 58 X LD E,B
+784B 20 20 JR NZ,786D
+784D 20 20 JR NZ,786F
+784F 53 S LD D,E
+7850 50 P LD D,B
+7851 20 20 JR NZ,7873
+7853 20 20 JR NZ,7875
+7855 49 I LD C,C
+7856 59 Y LD E,C
+7857 20 20 JR NZ,7879
+7859 20 20 JR NZ,787B
+785B 50 P LD D,B
+785C 43 C LD B,E
+785D 0D . DEC C
+785E 0A . LD A,(BC)
+785F 20 00 . JR NZ,7861
+7861 0A . LD A,(BC)
+7862 06 16 .. LD B,16
+7864 00 . NOP
+7865 0D . DEC C
+7866 0A . LD A,(BC)
+7867 69 i LD L,C
+7868 6E n LD L,(HL)
+7869 66 f LD H,(HL)
+786A 6F o LD L,A
+786B 3A 00 01 :.. LD A,(0100)
+786E 00 . NOP
+786F 00 . NOP
+7870 00 . NOP
+7871 00 . NOP
+7872 00 . NOP
+7873 00 . NOP
+7874 00 . NOP
+7875 00 . NOP
+7876 00 . NOP
+7877 00 . NOP
+7878 00 . NOP
+7879 00 . NOP
+787A 00 . NOP
+787B 03 . INC BC
+787C 0A . LD A,(BC)
+787D 01 0D 00 ... LD BC,000D
+7880 03 . INC BC
+7881 06 16 .. LD B,16
+7883 07 . RLCA
+7884 2A 00 00 *.. LD HL,(0000)
+7887 C9 . RET
+7888 CB 3B .; SLR E
+788A CB 1C .. RR H
+788C 3A 54 7B :T{ LD A,(7B54)
+788F 57 W LD D,A
+7890 C9 . RET
+7891 3E 02 >. LD A,02
+7893 CD A4 75 ..u CALL 75A4
+7896 10 FB .. DJNZ 7893
+7898 C9 . RET
+7899 7D } LD A,L
+789A E6 0F .. AND 0F
+789C C5 . PUSH BC
+789D 47 G LD B,A
+789E CB 17 .. RL A
+78A0 80 . ADD B
+78A1 C6 08 .. ADD A,08
+78A3 FE 20 . CP 20
+78A5 38 01 8. JR C,78A8
+78A7 3C < INC A
+78A8 47 G LD B,A
+78A9 3E 0D >. LD A,0D
+78AB CD A4 75 ..u CALL 75A4
+78AE CD 91 78 ..x CALL 7891
+78B1 C1 . POP BC
+78B2 C9 . RET ;----- y - Infokommandos
+78B3 E5 . PUSH HL
+78B4 3E 20 > LD A,20
+78B6 CD A4 75 ..u CALL 75A4
+78B9 CD F1 79 ..y CALL 79F1
+78BC E1 . POP HL
+78BD FE 0D .. CP 0D ; CR zum lernen
+78BF CA 62 72 .br JP Z,7262
+78C2 FE 50 .P CP 50 ; P neues Passwort
+78C4 CA DC 7A ..z JP Z,7ADC
+78C7 FE 6C .l CP 6C ; l Lernmodus an
+78C9 CA 86 79 ..y JP Z,7986
+78CC FE 65 .e CP 65 ; Lernmodus aus
+78CE CA 8F 79 ..y JP Z,798F
+78D1 FE 61 .a CP 61 ; Ausfuehren (gelerntes)
+78D3 CA B5 79 ..y JP Z,79B5
+78D6 FE 69 .i CP 69 ; yi = increment beim dump setzen
+78D8 CA 17 79 ..y JP Z,7917
+78DB FE 74 .t CP 74 ; t Block vom Archiv lesen
+78DD CA 6F 73 .os JP Z,736F
+78E0 FE 66 .f CP 66 ; yf lernmodus (zuruecksetzen?)
+78E2 CA A4 79 ..y JP Z,79A4
+78E5 FE 62 .b CP 62 ; b Breakpoint 1
+78E7 CA 1D 79 ..y JP Z,791D
+78EA FE 63 .c CP 63 ; c Breakpoint 2
+78EC CA 52 79 .Ry JP Z,7952
+78EF FE 77 .w CP 77 ; w Zum anderen Miniprozess
+78F1 28 03 (. JR Z,78F6
+78F3 C3 29 71 .)q JP 7129 ; beep
+78F6 7C | LD A,H
+78F7 B5 . OR L
+78F8 28 03 (. JR Z,78FD
+78FA 22 25 7D "%} LD (7D25),HL
+78FD ED 5B 25 7D .[%} LD DE,(7D25)
+7901 2A 23 7D *#} LD HL,(7D23)
+7904 7C | LD A,H
+7905 3C < INC A
+7906 CA 29 71 .)q JP Z,7129
+7909 3E 1F >. LD A,1F
+790B 01 00 00 ... LD BC,0000
+790E CD 81 28 ..( CALL 2881
+7911 2A 23 7D *#} LD HL,(7D23)
+7914 C3 B0 73 ..s JP 73B0
+7917 22 3A 7B ":{ LD (7B3A),HL
+791A C3 D4 70 ..p JP 70D4
+791D CB 41 .A BIT 0,C
+791F CA 25 79 .%y JP Z,7925
+7922 2A 4E 7B *N{ LD HL,(7B4E)
+7925 E5 . PUSH HL
+7926 21 53 7A !Sz LD HL,7A53
+7929 7E ~ LD A,(HL)
+792A B7 . OR A
+792B CA 37 79 .7y JP Z,7937
+792E ED 5B 56 7A .[Vz LD DE,(7A56)
+7932 01 03 00 ... LD BC,0003
+7935 ED B0 .. LDIR
+7937 E1 . POP HL
+7938 22 56 7A "Vz LD (7A56),HL
+793B 11 53 7A .Sz LD DE,7A53
+793E 01 03 00 ... LD BC,0003
+7941 ED B0 .. LDIR
+7943 ED 5B 56 7A .[Vz LD DE,(7A56)
+7947 21 50 7A !Pz LD HL,7A50
+794A 01 03 00 ... LD BC,0003
+794D ED B0 .. LDIR
+794F C3 D4 70 ..p JP 70D4
+7952 CB 41 .A BIT 0,C
+7954 CA 5A 79 .Zy JP Z,795A
+7957 2A 4E 7B *N{ LD HL,(7B4E)
+795A E5 . PUSH HL
+795B ED 5B F1 7A .[.z LD DE,(7AF1)
+795F 21 01 7B !.{ LD HL,7B01
+7962 01 03 00 ... LD BC,0003
+7965 ED B0 .. LDIR
+7967 E1 . POP HL
+7968 11 01 7B ..{ LD DE,7B01
+796B 22 F1 7A ".z LD (7AF1),HL
+796E 01 03 00 ... LD BC,0003
+7971 ED B0 .. LDIR
+7973 ED 5B F1 7A .[.z LD DE,(7AF1)
+7977 21 F3 7A !.z LD HL,7AF3
+797A 01 03 00 ... LD BC,0003
+797D ED B0 .. LDIR
+797F ED 53 05 7B .S.{ LD (7B05),DE
+7983 C3 D4 70 ..p JP 70D4
+7986 21 CE 7C !.| LD HL,7CCE
+7989 22 97 7C ".| LD (7C97),HL
+798C C3 D4 70 ..p JP 70D4
+798F 2A 97 7C *.| LD HL,(7C97)
+7992 7C | LD A,H
+7993 B5 . OR L
+7994 CA 29 71 .)q JP Z,7129
+7997 2B + DEC HL
+7998 2B + DEC HL
+7999 36 FF 6. LD (HL),FF
+799B 21 00 00 !.. LD HL,0000
+799E 22 97 7C ".| LD (7C97),HL
+79A1 C3 D4 70 ..p JP 70D4
+79A4 2A 99 7C *.| LD HL,(7C99)
+79A7 7C | LD A,H
+79A8 B5 . OR L
+79A9 C2 29 71 .)q JP NZ,7129
+79AC 2A 9D 7C *.| LD HL,(7C9D)
+79AF 22 99 7C ".| LD (7C99),HL
+79B2 C3 D4 70 ..p JP 70D4
+79B5 21 CE 7C !.| LD HL,7CCE
+79B8 22 99 7C ".| LD (7C99),HL
+79BB C3 D4 70 ..p JP 70D4
+79BE 21 CE 7C !.| LD HL,7CCE
+79C1 7E ~ LD A,(HL)
+79C2 FE FF .. CP FF
+79C4 C8 . RET Z
+79C5 E5 . PUSH HL
+79C6 ED 4B 99 7C .K.| LD BC,(7C99)
+79CA 78 x LD A,B
+79CB B1 . OR C
+79CC 20 04 . JR NZ,79D2
+79CE ED 4B 9D 7C .K.| LD BC,(7C9D)
+79D2 B7 . OR A
+79D3 ED 42 .B SBC HL,BC
+79D5 20 06 . JR NZ,79DD
+79D7 21 9F 7C !.| LD HL,7C9F
+79DA CD CA 6E ..n CALL 6ECA
+79DD E1 . POP HL
+79DE 7E ~ LD A,(HL)
+79DF FE 20 . CP 20
+79E1 30 08 0. JR NC,79EB
+79E3 3E 25 >% LD A,25
+79E5 CD A4 75 ..u CALL 75A4
+79E8 7E ~ LD A,(HL)
+79E9 C6 40 .@ ADD A,40
+79EB CD A4 75 ..u CALL 75A4
+79EE 23 # INC HL
+79EF 18 D0 .. JR 79C1
+79F1 E5 . PUSH HL
+79F2 2A 99 7C *.| LD HL,(7C99)
+79F5 7C | LD A,H
+79F6 B5 . OR L
+79F7 28 16 (. JR Z,7A0F
+79F9 7E ~ LD A,(HL)
+79FA FE FF .. CP FF
+79FC 20 0B . JR NZ,7A09
+79FE 21 00 00 !.. LD HL,0000
+7A01 22 99 7C ".| LD (7C99),HL
+7A04 22 9D 7C ".| LD (7C9D),HL
+7A07 18 06 .. JR 7A0F
+7A09 23 # INC HL
+7A0A 22 99 7C ".| LD (7C99),HL
+7A0D E1 . POP HL
+7A0E C9 . RET
+7A0F CD 9E 6E ..n CALL 6E9E
+7A12 F5 . PUSH AF
+7A13 2A 97 7C *.| LD HL,(7C97)
+7A16 7C | LD A,H
+7A17 B5 . OR L
+7A18 28 1D (. JR Z,7A37
+7A1A B7 . OR A
+7A1B 01 F7 7C ..| LD BC,7CF7
+7A1E ED 42 .B SBC HL,BC
+7A20 38 0C 8. JR C,7A2E
+7A22 21 7C 7C !|| LD HL,7C7C
+7A25 CD CA 6E ..n CALL 6ECA
+7A28 21 00 00 !.. LD HL,0000
+7A2B F1 . POP AF
+7A2C 18 04 .. JR 7A32
+7A2E F1 . POP AF
+7A2F 09 . ADD HL,BC
+7A30 77 w LD (HL),A
+7A31 23 # INC HL
+7A32 22 97 7C ".| LD (7C97),HL
+7A35 E1 . POP HL
+7A36 C9 . RET
+7A37 F1 . POP AF
+7A38 E1 . POP HL
+7A39 C9 . RET
+7A3A E5 . PUSH HL
+7A3B 2B + DEC HL
+7A3C 4E N LD C,(HL)
+7A3D 23 # INC HL
+7A3E 06 00 .. LD B,00
+7A40 09 . ADD HL,BC
+7A41 C5 . PUSH BC
+7A42 CD CA 6E ..n CALL 6ECA
+7A45 C1 . POP BC
+7A46 E1 . POP HL
+7A47 41 A LD B,C
+7A48 CD 2D 75 .-u CALL 752D
+7A4B 3E 20 > LD A,20
+7A4D C3 A4 75 ..u JP 75A4
+7A50 CD 58 7A .Xz CALL 7A58
+7A53 00 . NOP
+7A54 00 . NOP
+7A55 00 . NOP
+7A56 00 . NOP
+7A57 00 . NOP
+7A58 CD 1F 70 ..p CALL 701F
+7A5B 18 04 .. JR 7A61
+7A5D 74 t LD (HL),H ; "test"
+7A5E 65 e LD H,L
+7A5F 73 s LD (HL),E
+7A60 74 t LD (HL),H
+7A61 FD E5 .. PUSH IY
+7A63 F5 . PUSH AF
+7A64 FD 21 00 00 .!.. LD IY,0000
+7A68 FD 39 .9 ADD IY,SP
+7A6A E5 . PUSH HL
+7A6B D5 . PUSH DE
+7A6C C5 . PUSH BC
+7A6D FD 7E 04 .~. LD A,(IY+04)
+7A70 D6 03 .. SUB A,03
+7A72 FD 77 04 .w. LD (IY+04),A
+7A75 30 03 0. JR NC,7A7A
+7A77 FD 35 .5 DEC (IY+05)
+7A79 05 . DEC B
+7A7A ED 5B 56 7A .[Vz LD DE,(7A56)
+7A7E 21 53 7A !Sz LD HL,7A53
+7A81 01 03 00 ... LD BC,0003
+7A84 ED B0 .. LDIR
+7A86 C1 . POP BC
+7A87 D1 . POP DE
+7A88 E1 . POP HL
+7A89 F1 . POP AF
+7A8A FD E1 .. POP IY
+7A8C C9 . RET
+7A8D 21 FA 7C !.| LD HL,7CFA
+7A90 06 0A .. LD B,0A
+7A92 CD F1 79 ..y CALL 79F1
+7A95 77 w LD (HL),A
+7A96 23 # INC HL
+7A97 FE 0D .. CP 0D
+7A99 28 05 (. JR Z,7AA0
+7A9B 10 F5 .. DJNZ 7A92
+7A9D C3 29 71 .)q JP 7129
+7AA0 21 FA 7C !.| LD HL,7CFA
+7AA3 CD B1 7A ..z CALL 7AB1
+7AA6 C2 29 71 .)q JP NZ,7129
+7AA9 3E 01 >. LD A,01
+7AAB 32 18 7D 2.} LD (7D18),A
+7AAE C3 D4 70 ..p JP 70D4
+7AB1 E5 . PUSH HL
+7AB2 21 19 7D !.} LD HL,7D19
+7AB5 11 1A 7D ..} LD DE,7D1A
+7AB8 01 09 00 ... LD BC,0009
+7ABB 1A . LD A,(DE)
+7ABC ED A1 .. CPI
+7ABE 13 . INC DE
+7ABF 20 05 . JR NZ,7AC6
+7AC1 EA BB 7A ..z JP PE,7ABB
+7AC4 18 14 .. JR 7ADA
+7AC6 D1 . POP DE
+7AC7 21 19 7D !.} LD HL,7D19
+7ACA 1A . LD A,(DE)
+7ACB 13 . INC DE
+7ACC FE 0D .. CP 0D
+7ACE 28 06 (. JR Z,7AD6
+7AD0 2F / CPL
+7AD1 ED A1 .. CPI
+7AD3 28 F5 (. JR Z,7ACA
+7AD5 C9 . RET
+7AD6 2F / CPL
+7AD7 ED A1 .. CPI
+7AD9 C9 . RET
+7ADA E1 . POP HL
+7ADB C9 . RET
+7ADC 21 19 7D !.} LD HL,7D19
+7ADF 06 0A .. LD B,0A
+7AE1 CD F1 79 ..y CALL 79F1
+7AE4 2F / CPL
+7AE5 77 w LD (HL),A
+7AE6 FE F2 .. CP F2
+7AE8 CA D4 70 ..p JP Z,70D4
+7AEB 23 # INC HL
+7AEC 10 F3 .. DJNZ 7AE1
+7AEE C3 29 71 .)q JP 7129
+7AF1 01 7B C3 .{. LD BC,C37B
+7AF4 F6 7A .z OR 7A
+7AF6 CD 1F 70 ..p CALL 701F
+7AF9 18 06 .. JR 7B01
+7AFB 20 74 t JR NZ,7B71 ; " test2"
+7AFD 65 e LD H,L
+7AFE 73 s LD (HL),E
+7AFF 74 t LD (HL),H
+7B00 32 21 00 2!. LD (0021),A
+7B03 00 . NOP
+7B04 C3 F6 7A ..z JP 7AF6
+7B07 CD 26 7B .&{ CALL 7B26
+7B0A E5 . PUSH HL
+7B0B D5 . PUSH DE
+7B0C C5 . PUSH BC
+7B0D F5 . PUSH AF
+7B0E 21 00 00 !.. LD HL,0000
+7B11 39 9 ADD HL,SP
+7B12 06 08 .. LD B,08
+7B14 CD 2D 75 .-u CALL 752D
+7B17 F1 . POP AF
+7B18 C1 . POP BC
+7B19 D1 . POP DE
+7B1A E1 . POP HL
+7B1B C9 . RET
+7B1C 3E 0A >. LD A,0A
+7B1E CD A4 75 ..u CALL 75A4
+7B21 3E 0D >. LD A,0D
+7B23 C3 A4 75 ..u JP 75A4
+7B26 C9 . RET
+7B27 C9 . RET
+7B28 C9 . RET
+7B29 C9 . RET
+7B2A C9 . RET
+7B2B C9 . RET
+7B2C C9 . RET
+7B2D C9 . RET
+7B2E C9 . RET
+7B2F C9 . RET
+7B30 C9 . RET
+7B31 C9 . RET
+7B32 C9 . RET
+7B33 C9 . RET
+7B34 C9 . RET
+7B35 C9 . RET
+7B36 C9 . RET
+7B37 C9 . RET
+7B38 C9 . RET
+7B39 00 . NOP
+7B3A 10 00 .. DJNZ 7B3C
+7B3C 00 . NOP
+7B3D 00 . NOP
+7B3E 00 . NOP
+7B3F 00 . NOP
+7B40 0A . LD A,(BC) ; info Dumpueberschrift
+7B41 0A . LD A,(BC)
+7B42 0D . DEC C
+7B43 02 . LD (BC),A
+7B44 02 . LD (BC),A
+7B45 02 . LD (BC),A
+7B46 02 . LD (BC),A
+7B47 02 . LD (BC),A
+7B48 02 . LD (BC),A
+7B49 02 . LD (BC),A
+7B4A 02 . LD (BC),A
+7B4B 00 . NOP
+7B4C 00 . NOP
+7B4D 00 . NOP
+7B4E 00 . NOP
+7B4F 00 . NOP
+7B50 00 . NOP
+7B51 00 . NOP
+7B52 00 . NOP
+7B53 01 FF 05 ... LD BC,05FF
+7B56 64 d LD H,H
+7B57 73 s LD (HL),E
+7B58 69 i LD L,C
+7B59 64 d LD H,H
+7B5A 3D = DEC A
+7B5B 03 . INC BC
+7B5C 00 . NOP
+7B5D 00 . NOP
+7B5E 00 . NOP
+7B5F 04 . INC B
+7B60 61 a LD H,C
+7B61 64 d LD H,H
+7B62 72 r LD (HL),D
+7B63 3D = DEC A
+7B64 02 . LD (BC),A
+7B65 00 . NOP
+7B66 00 . NOP
+7B67 07 . RLCA
+7B68 6C l LD L,H
+7B69 61 a LD H,C
+7B6A 65 e LD H,L
+7B6B 6E n LD L,(HL)
+7B6C 67 g LD H,A
+7B6D 65 e LD H,L
+7B6E 3D = DEC A
+7B6F 00 . NOP
+7B70 00 . NOP
+7B71 00 . NOP
+7B72 00 . NOP
+7B73 04 . INC B ; Leitblock Ueberschrift
+7B74 06 77 .w LD B,77
+7B76 73 s LD (HL),E
+7B77 74 t LD (HL),H
+7B78 61 a LD H,C
+7B79 74 t LD (HL),H
+7B7A 65 e LD H,L
+7B7B 04 . INC B
+7B7C 01 06 6D ..m LD BC,6D06
+7B7F 69 i LD L,C
+7B80 6C l LD L,H
+7B81 6C l LD L,H
+7B82 69 i LD L,C
+7B83 73 s LD (HL),E
+7B84 05 . DEC B
+7B85 01 06 63 ..c LD BC,6306
+7B88 6F o LD L,A
+7B89 6D m LD L,L
+7B8A 66 f LD H,(HL)
+7B8B 6C l LD L,H
+7B8C 67 g LD H,A
+7B8D 06 01 .. LD B,01
+7B8F 06 72 .r LD B,72
+7B91 73 s LD (HL),E
+7B92 74 t LD (HL),H
+7B93 63 c LD H,E
+7B94 6F o LD L,A
+7B95 64 d LD H,H
+7B96 07 . RLCA
+7B97 01 06 72 ..r LD BC,7206
+7B9A 73 s LD (HL),E
+7B9B 74 t LD (HL),H
+7B9C 66 f LD H,(HL)
+7B9D 6C l LD L,H
+7B9E 67 g LD H,A
+7B9F 08 . EX AF,AF'
+7BA0 01 06 70 ..p LD BC,7006
+7BA3 72 r LD (HL),D
+7BA4 69 i LD L,C
+7BA5 63 c LD H,E
+7BA6 6E n LD L,(HL)
+7BA7 74 t LD (HL),H
+7BA8 09 . ADD HL,BC
+7BA9 03 . INC BC
+7BAA 06 69 .i LD B,69
+7BAC 63 c LD H,E
+7BAD 6F o LD L,A
+7BAE 75 u LD (HL),L
+7BAF 6E n LD L,(HL)
+7BB0 74 t LD (HL),H
+7BB1 0C . INC C
+7BB2 02 . LD (BC),A
+7BB3 04 . INC B
+7BB4 6D m LD L,L
+7BB5 6F o LD L,A
+7BB6 64 d LD H,H
+7BB7 69 i LD L,C
+7BB8 0E 01 .. LD C,01
+7BBA 04 . INC B
+7BBB 70 p LD (HL),B
+7BBC 62 b LD H,D
+7BBD 61 a LD H,C
+7BBE 73 s LD (HL),E
+7BBF 0F . RRCA
+7BC0 01 03 63 ..c LD BC,6303
+7BC3 38 6B 8k JR C,7C30
+7BC5 10 02 .. DJNZ 7BC9
+7BC7 04 . INC B
+7BC8 6C l LD L,H
+7BC9 62 b LD H,D
+7BCA 61 a LD H,C
+7BCB 73 s LD (HL),E
+7BCC 12 . LD (DE),A
+7BCD 02 . LD (BC),A
+7BCE 04 . INC B
+7BCF 6C l LD L,H
+7BD0 74 t LD (HL),H
+7BD1 6F o LD L,A
+7BD2 70 p LD (HL),B
+7BD3 14 . INC D
+7BD4 02 . LD (BC),A
+7BD5 06 6C .l LD B,6C
+7BD7 73 s LD (HL),E
+7BD8 5F _ LD E,A
+7BD9 74 t LD (HL),H
+7BDA 6F o LD L,A
+7BDB 70 p LD (HL),B
+7BDC 16 02 .. LD D,02
+7BDE 05 . DEC B
+7BDF 68 h LD L,B
+7BE0 70 p LD (HL),B
+7BE1 74 t LD (HL),H
+7BE2 6F o LD L,A
+7BE3 70 p LD (HL),B
+7BE4 18 02 .. JR 7BE8
+7BE6 04 . INC B
+7BE7 68 h LD L,B
+7BE8 70 p LD (HL),B
+7BE9 76 v HALT
+7BEA 31 1A 02 1.. LD SP,021A
+7BED 04 . INC B
+7BEE 68 h LD L,B
+7BEF 70 p LD (HL),B
+7BF0 76 v HALT
+7BF1 32 1C 01 2.. LD (011C),A
+7BF4 06 70 .p LD B,70
+7BF6 72 r LD (HL),D
+7BF7 69 i LD L,C
+7BF8 63 c LD H,E
+7BF9 6C l LD L,H
+7BFA 6B k LD L,E
+7BFB 1D . DEC E
+7BFC 01 04 70 ..p LD BC,7004
+7BFF 72 r LD (HL),D
+7C00 69 i LD L,C
+7C01 76 v HALT
+7C02 1E 02 .. LD E,02
+7C04 04 . INC B
+7C05 66 f LD H,(HL)
+7C06 72 r LD (HL),D
+7C07 65 e LD H,L
+7C08 65 e LD H,L
+7C09 20 02 . JR NZ,7C0D
+7C0B 04 . INC B
+7C0C 6C l LD L,H
+7C0D 69 i LD L,C
+7C0E 6E n LD L,(HL)
+7C0F 65 e LD H,L
+7C10 22 02 07 ".. LD (0702),HL
+7C13 65 e LD H,L
+7C14 72 r LD (HL),D
+7C15 72 r LD (HL),D
+7C16 6C l LD L,H
+7C17 69 i LD L,C
+7C18 6E n LD L,(HL)
+7C19 65 e LD H,L
+7C1A 24 $ INC H
+7C1B 02 . LD (BC),A
+7C1C 06 65 .e LD B,65
+7C1E 72 r LD (HL),D
+7C1F 72 r LD (HL),D
+7C20 63 c LD H,E
+7C21 6F o LD L,A
+7C22 64 d LD H,H
+7C23 26 02 &. LD H,02
+7C25 07 . RLCA
+7C26 63 c LD H,E
+7C27 68 h LD L,B
+7C28 61 a LD H,C
+7C29 6E n LD L,(HL)
+7C2A 6E n LD L,(HL)
+7C2B 65 e LD H,L
+7C2C 6C l LD L,H
+7C2D 28 02 (. JR Z,7C31
+7C2F 06 63 .c LD B,63
+7C31 68 h LD L,B
+7C32 61 a LD H,C
+7C33 6D m LD L,L
+7C34 61 a LD H,C
+7C35 70 p LD (HL),B
+7C36 2A 02 04 *.. LD HL,(0402)
+7C39 70 p LD (HL),B
+7C3A 72 r LD (HL),D
+7C3B 69 i LD L,C
+7C3C 6F o LD L,A
+7C3D 2C , INC L
+7C3E 02 . LD (BC),A
+7C3F 06 6D .m LD B,6D
+7C41 73 s LD (HL),E
+7C42 67 g LD H,A
+7C43 63 c LD H,E
+7C44 6F o LD L,A
+7C45 64 d LD H,H
+7C46 2E 02 .. LD L,02
+7C48 05 . DEC B
+7C49 6D m LD L,L
+7C4A 73 s LD (HL),E
+7C4B 67 g LD H,A
+7C4C 64 d LD H,H
+7C4D 73 s LD (HL),E
+7C4E 30 04 0. JR NC,7C54
+7C50 06 74 .t LD B,74
+7C52 61 a LD H,C
+7C53 73 s LD (HL),E
+7C54 6B k LD L,E
+7C55 69 i LD L,C
+7C56 64 d LD H,H
+7C57 34 4 INC (HL)
+7C58 04 . INC B
+7C59 06 66 .f LD B,66
+7C5B 72 r LD (HL),D
+7C5C 6F o LD L,A
+7C5D 6D m LD L,L
+7C5E 69 i LD L,C
+7C5F 64 d LD H,H
+7C60 38 08 8. JR C,7C6A
+7C62 05 . DEC B
+7C63 63 c LD H,E
+7C64 6C l LD L,H
+7C65 6F o LD L,A
+7C66 63 c LD H,E
+7C67 6B k LD L,E
+7C68 00 . NOP
+7C69 00 . NOP
+7C6A 00 . NOP
+7C6B 0C . INC C
+7C6C 20 4C L JR NZ,7CBA ; " LEITBLOCK"
+7C6E 45 E LD B,L
+7C6F 49 I LD C,C
+7C70 54 T LD D,H
+7C71 42 B LD B,D
+7C72 4C L LD C,H
+7C73 4F O LD C,A
+7C74 43 C LD B,E
+7C75 4B K LD C,E
+7C76 20 20 JR NZ,7C98
+7C78 03 . INC BC
+7C79 06 17 .. LD B,17
+7C7B 46 F LD B,(HL)
+7C7C 11 20 7A . z LD DE,7A20 ; "zuviel gelernt!"
+7C7F 75 u LD (HL),L
+7C80 76 v HALT
+7C81 69 i LD L,C
+7C82 65 e LD H,L
+7C83 6C l LD L,H
+7C84 20 67 g JR NZ,7CED
+7C86 65 e LD H,L
+7C87 6C l LD L,H
+7C88 65 e LD H,L
+7C89 72 r LD (HL),D
+7C8A 6E n LD L,(HL)
+7C8B 74 t LD (HL),H
+7C8C 21 20 FF ! . LD HL,FF20
+7C8F FF . RST 38
+7C90 FF . RST 38
+7C91 FF . RST 38
+7C92 FF . RST 38
+7C93 FF . RST 38
+7C94 FF . RST 38
+7C95 00 . NOP
+7C96 00 . NOP
+7C97 00 . NOP
+7C98 00 . NOP
+7C99 00 . NOP
+7C9A 00 . NOP
+7C9B 00 . NOP
+7C9C 00 . NOP
+7C9D 00 . NOP
+7C9E 00 . NOP
+7C9F 06 20 . LD B,20 ; "<**>
+7CA1 3C < INC A
+7CA2 2A 2A 3E **> LD HL,(3E2A)
+7CA5 20 15 . JR NZ,7CBC
+7CA7 20 50 P JR NZ,7CF9 ; "Paging erforderlich"
+7CA9 61 a LD H,C
+7CAA 67 g LD H,A
+7CAB 69 i LD L,C
+7CAC 6E n LD L,(HL)
+7CAD 67 g LD H,A
+7CAE 20 65 e JR NZ,7D15
+7CB0 72 r LD (HL),D
+7CB1 66 f LD H,(HL)
+7CB2 6F o LD L,A
+7CB3 72 r LD (HL),D
+7CB4 64 d LD H,H
+7CB5 65 e LD H,L
+7CB6 72 r LD (HL),D
+7CB7 6C l LD L,H
+7CB8 69 i LD L,C
+7CB9 63 c LD H,E
+7CBA 68 h LD L,B
+7CBB 20 11 . JR NZ,7CCE
+7CBD 20 4E N JR NZ,7D0D ; "Nicht im Schatt"
+7CBF 69 i LD L,C
+7CC0 63 c LD H,E
+7CC1 68 h LD L,B
+7CC2 74 t LD (HL),H
+7CC3 20 69 i JR NZ,7D2E
+7CC5 6D m LD L,L
+7CC6 20 53 S JR NZ,7D1B
+7CC8 63 c LD H,E
+7CC9 68 h LD L,B
+7CCA 61 a LD H,C
+7CCB 74 t LD (HL),H
+7CCC 74 t LD (HL),H
+7CCD 20 FF . JR NZ,7CCE
+7CCF FF . RST 38
+7CD0 FF . RST 38
+7CD1 FF . RST 38
+7CD2 FF . RST 38
+7CD3 FF . RST 38
+7CD4 FF . RST 38
+7CD5 FF . RST 38
+7CD6 FF . RST 38
+7CD7 FF . RST 38
+7CD8 FF . RST 38
+7CD9 FF . RST 38
+7CDA FF . RST 38
+7CDB FF . RST 38
+7CDC FF . RST 38
+7CDD FF . RST 38
+7CDE FF . RST 38
+7CDF FF . RST 38
+7CE0 FF . RST 38
+7CE1 FF . RST 38
+7CE2 FF . RST 38
+7CE3 FF . RST 38
+7CE4 FF . RST 38
+7CE5 FF . RST 38
+7CE6 FF . RST 38
+7CE7 FF . RST 38
+7CE8 FF . RST 38
+7CE9 FF . RST 38
+7CEA FF . RST 38
+7CEB FF . RST 38
+7CEC FF . RST 38
+7CED FF . RST 38
+7CEE FF . RST 38
+7CEF FF . RST 38
+7CF0 FF . RST 38
+7CF1 FF . RST 38
+7CF2 FF . RST 38
+7CF3 FF . RST 38
+7CF4 FF . RST 38
+7CF5 FF . RST 38
+7CF6 FF . RST 38
+7CF7 FF . RST 38
+7CF8 00 . NOP
+7CF9 00 . NOP
+7CFA FF . RST 38
+7CFB FF . RST 38
+7CFC FF . RST 38
+7CFD FF . RST 38
+7CFE FF . RST 38
+7CFF FF . RST 38
+7D00 FF . RST 38
+7D01 FF . RST 38
+7D02 FF . RST 38
+7D03 FF . RST 38
+7D04 FF . RST 38
+7D05 FF . RST 38
+7D06 FF . RST 38
+7D07 FF . RST 38
+7D08 FF . RST 38
+7D09 FF . RST 38
+7D0A FF . RST 38
+7D0B FF . RST 38
+7D0C FF . RST 38
+7D0D FF . RST 38
+7D0E FF . RST 38
+7D0F FF . RST 38
+7D10 FF . RST 38
+7D11 FF . RST 38
+7D12 FF . RST 38
+7D13 FF . RST 38
+7D14 FF . RST 38
+7D15 FF . RST 38
+7D16 FF . RST 38
+7D17 FF . RST 38
+7D18 00 . NOP
+7D19 FF . RST 38
+7D1A 00 . NOP
+7D1B FF . RST 38
+7D1C FF . RST 38
+7D1D FF . RST 38
+7D1E FF . RST 38
+7D1F FF . RST 38
+7D20 FF . RST 38
+7D21 FF . RST 38
+7D22 FF . RST 38
+7D23 FF . RST 38
+7D24 FF . RST 38
+7D25 FF . RST 38
+7D26 FF . RST 38
+7D27 6D m LD L,L ; "muell 2 (!)"
+7D28 75 u LD (HL),L
+7D29 65 e LD H,L
+7D2A 6C l LD L,H
+7D2B 6C l LD L,H
+7D2C 20 20 JR NZ,7D4E
+7D2E 20 32 2 JR NZ,7D62
+7D30 20 28 ( JR NZ,7D5A
+7D32 21 29 CD !). LD HL,CD29
+7D35 20 6E n JR NZ,7DA5
+7D37 21 80 18 !.. LD HL,1880
+7D3A 3E 01 >. LD A,01
+7D3C 01 80 00 ... LD BC,0080
+7D3F 57 W LD D,A
+7D40 ED B1 .. CPIR
+7D42 E2 48 7D .H} JP PO,7D48
+7D45 14 . INC D
+7D46 18 F8 .. JR 7D40
+7D48 42 B LD B,D
+7D49 C5 . PUSH BC
+7D4A CD E2 6D ..m CALL 6DE2
+7D4D C1 . POP BC
+7D4E 10 F9 .. DJNZ 7D49
+7D50 CD 2A 6E .*n CALL 6E2A
+7D53 C9 . RET
+7D54 50 P LD D,B ; "PROZ MUELL"
+7D55 52 R LD D,D
+7D56 4F O LD C,A
+7D57 5A Z LD E,D
+7D58 20 4D M JR NZ,7DA7
+7D5A 55 U LD D,L
+7D5B 45 E LD B,L
+7D5C 4C L LD C,H
+7D5D 4C L LD C,H
+7D5E EE 7D .} XOR 7D
+7D60 C3 5A 81 .Z. JP 815A
+7D63 4D M LD C,L
+7D64 FF . RST 38
+7D65 FF . RST 38
+7D66 FF . RST 38
+7D67 FF . RST 38
+7D68 FF . RST 38
+7D69 FF . RST 38
+7D6A FF . RST 38
+7D6B FF . RST 38
+7D6C FF . RST 38
+7D6D FF . RST 38
+7D6E FF . RST 38
+7D6F FF . RST 38
+7D70 FF . RST 38
+7D71 FF . RST 38
+7D72 FF . RST 38
+7D73 FF . RST 38
+7D74 FF . RST 38
+7D75 FF . RST 38
+7D76 FF . RST 38
+7D77 FF . RST 38
+7D78 FF . RST 38
+7D79 FF . RST 38
+7D7A FF . RST 38
+7D7B FF . RST 38
+7D7C FF . RST 38
+7D7D FF . RST 38
+7D7E FF . RST 38
+7D7F FF . RST 38
+7D80 FF . RST 38
+7D81 FF . RST 38
+7D82 FF . RST 38
+7D83 FF . RST 38
+7D84 FF . RST 38
+7D85 FF . RST 38
+7D86 FF . RST 38
+7D87 FF . RST 38
+7D88 FF . RST 38
+7D89 FF . RST 38
+7D8A FF . RST 38
+7D8B FF . RST 38
+7D8C FF . RST 38
+7D8D FF . RST 38
+7D8E FF . RST 38
+7D8F FF . RST 38
+7D90 FF . RST 38
+7D91 FF . RST 38
+7D92 FF . RST 38
+7D93 FF . RST 38
+7D94 FF . RST 38
+7D95 FF . RST 38
+7D96 FF . RST 38
+7D97 FF . RST 38
+7D98 FF . RST 38
+7D99 FF . RST 38
+7D9A FF . RST 38
+7D9B FF . RST 38
+7D9C FF . RST 38
+7D9D FF . RST 38
+7D9E FF . RST 38
+7D9F FF . RST 38
+7DA0 FF . RST 38
+7DA1 FF . RST 38
+7DA2 FF . RST 38
+7DA3 FF . RST 38
+7DA4 FF . RST 38
+7DA5 FF . RST 38
+7DA6 FF . RST 38
+7DA7 FF . RST 38
+7DA8 FF . RST 38
+7DA9 FF . RST 38
+7DAA FF . RST 38
+7DAB FF . RST 38
+7DAC FF . RST 38
+7DAD FF . RST 38
+7DAE FF . RST 38
+7DAF FF . RST 38
+7DB0 FF . RST 38
+7DB1 FF . RST 38
+7DB2 FF . RST 38
+7DB3 FF . RST 38
+7DB4 FF . RST 38
+7DB5 FF . RST 38
+7DB6 FF . RST 38
+7DB7 FF . RST 38
+7DB8 FF . RST 38
+7DB9 FF . RST 38
+7DBA FF . RST 38
+7DBB FF . RST 38
+7DBC FF . RST 38
+7DBD FF . RST 38
+7DBE FF . RST 38
+7DBF FF . RST 38
+7DC0 FF . RST 38
+7DC1 FF . RST 38
+7DC2 FF . RST 38
+7DC3 FF . RST 38
+7DC4 FF . RST 38
+7DC5 FF . RST 38
+7DC6 FF . RST 38
+7DC7 FF . RST 38
+7DC8 FF . RST 38
+7DC9 FF . RST 38
+7DCA FF . RST 38
+7DCB FF . RST 38
+7DCC FF . RST 38
+7DCD FF . RST 38
+7DCE FF . RST 38
+7DCF FF . RST 38
+7DD0 FF . RST 38
+7DD1 FF . RST 38
+7DD2 FF . RST 38
+7DD3 FF . RST 38
+7DD4 FF . RST 38
+7DD5 FF . RST 38
+7DD6 FF . RST 38
+7DD7 FF . RST 38
+7DD8 FF . RST 38
+7DD9 FF . RST 38
+7DDA FF . RST 38
+7DDB FF . RST 38
+7DDC FF . RST 38
+7DDD FF . RST 38
+7DDE FF . RST 38
+7DDF FF . RST 38
+7DE0 FF . RST 38
+7DE1 FF . RST 38
+7DE2 FF . RST 38
+7DE3 FF . RST 38
+7DE4 FF . RST 38
+7DE5 FF . RST 38
+7DE6 FF . RST 38
+7DE7 FF . RST 38
+7DE8 FF . RST 38
+7DE9 FF . RST 38
+7DEA FF . RST 38
+7DEB FF . RST 38
+7DEC FF . RST 38
+7DED FF . RST 38
+7DEE F0 . RET P
+7DEF 7D } LD A,L
+7DF0 21 B5 4C !.L LD HL,4CB5
+7DF3 CB 96 .. RES 2,(HL)
+7DF5 CD E2 6D ..m CALL 6DE2
+7DF8 3A 17 82 :.. LD A,(8217) ; "musta" Zelle
+7DFB 3D = DEC A
+7DFC FA F5 7D ..} JP M,7DF5
+7DFF 21 B5 4C !.L LD HL,4CB5
+7E02 CB D6 .. SET 2,(HL)
+7E04 3C < INC A
+7E05 CB 57 .W BIT 2,A ; shutup
+7E07 20 1E . JR NZ,7E27
+7E09 CB 4F .O BIT 1,A ; fixpoint
+7E0B 20 1A . JR NZ,7E27
+7E0D CB 47 .G BIT 0,A ; collect garbage
+7E0F C2 FF 7E ..~ JP NZ,7EFF
+7E12 CB 5F ._ BIT 3,A ; savesystem
+7E14 C2 7C 80 .|. JP NZ,807C
+7E17 97 . SUB A
+7E18 32 17 82 2.. LD (8217),A
+7E1B 18 D3 .. JR 7DF0 ; Warte bis Anforderung da
+7E1D 3A 17 82 :.. LD A,(8217) ; Musta
+7E20 CB 47 .G BIT 0,A
+7E22 C2 FF 7E ..~ JP NZ,7EFF
+7E25 18 C9 .. JR 7DF0
+7E27 3A 13 57 :.W LD A,(5713)
+7E2A B7 . OR A
+7E2B 20 F0 . JR NZ,7E1D
+7E2D 21 17 82 !.. LD HL,8217
+7E30 CB 66 .f BIT 4,(HL)
+7E32 CB A6 .. RES 4,(HL)
+7E34 20 1E . JR NZ,7E54
+7E36 CD 88 81 ... CALL 8188
+7E39 11 00 00 ... LD DE,0000
+7E3C CD DE 66 ..f CALL 66DE
+7E3F CD A4 81 ... CALL 81A4
+7E42 54 T LD D,H
+7E43 5D ] LD E,L
+7E44 01 80 00 ... LD BC,0080
+7E47 21 80 18 !.. LD HL,1880
+7E4A ED B0 .. LDIR
+7E4C 21 B9 4C !.L LD HL,4CB9
+7E4F 01 40 00 .@. LD BC,0040
+7E52 ED B0 .. LDIR
+7E54 CD 57 60 .W` CALL 6057
+7E57 CB 96 .. RES 2,(HL)
+7E59 CB EE .. SET 5,(HL)
+7E5B 2C , INC L
+7E5C 20 F9 . JR NZ,7E57
+7E5E 21 2B 1E !+. LD HL,1E2B
+7E61 CD 80 67 ..g CALL 6780
+7E64 21 2B 1E !+. LD HL,1E2B
+7E67 11 18 82 ... LD DE,8218
+7E6A 01 10 00 ... LD BC,0010
+7E6D ED B0 .. LDIR
+7E6F CD 51 60 .Q` CALL 6051
+7E72 06 64 .d LD B,64
+7E74 CD 20 6E . n CALL 6E20
+7E77 CD E2 6D ..m CALL 6DE2
+7E7A CD 2A 6E .*n CALL 6E2A
+7E7D 10 F5 .. DJNZ 7E74
+7E7F CD 57 60 .W` CALL 6057
+7E82 CB 6E .n BIT 5,(HL)
+7E84 28 0C (. JR Z,7E92
+7E86 CB AE .. RES 5,(HL)
+7E88 CB 4E .N BIT 1,(HL)
+7E8A 20 06 . JR NZ,7E92
+7E8C CD 65 5F .e_ CALL 5F65
+7E8F CD 34 7D .4} CALL 7D34
+7E92 2C , INC L
+7E93 20 ED . JR NZ,7E82
+7E95 CD 99 5F .._ CALL 5F99
+7E98 11 02 00 ... LD DE,0002
+7E9B CD 46 81 .F. CALL 8146
+7E9E 57 W LD D,A
+7E9F 1E EF .. LD E,EF
+7EA1 62 b LD H,D
+7EA2 2E DF .. LD L,DF
+7EA4 01 E0 00 ... LD BC,00E0
+7EA7 ED B8 .. LDDR
+7EA9 1E 00 .. LD E,00
+7EAB 21 18 82 !.. LD HL,8218
+7EAE 01 10 00 ... LD BC,0010
+7EB1 ED B0 .. LDIR
+7EB3 6A j LD L,D
+7EB4 CB 3D .= SLR L
+7EB6 CB FD .. SET 7,L
+7EB8 26 15 &. LD H,15
+7EBA CD 65 5F .e_ CALL 5F65
+7EBD 21 17 82 !.. LD HL,8217
+7EC0 CB 4E .N BIT 1,(HL)
+7EC2 CB 8E .. RES 1,(HL)
+7EC4 C2 F0 7D ..} JP NZ,7DF0
+7EC7 CD DF 7E ..~ CALL 7EDF
+7ECA 3A AD 60 :.` LD A,(60AD)
+7ECD B7 . OR A
+7ECE 20 06 . JR NZ,7ED6
+7ED0 21 28 82 !(. LD HL,8228
+7ED3 CD CA 6E ..n CALL 6ECA
+7ED6 CD 3B 5A .;Z CALL 5A3B
+7ED9 CD 87 28 ..( CALL 2887
+7EDC C3 DC 7E ..~ JP 7EDC
+7EDF 11 00 00 ... LD DE,0000
+7EE2 CD 46 81 .F. CALL 8146
+7EE5 67 g LD H,A
+7EE6 2E 0D .. LD L,0D
+7EE8 36 00 6. LD (HL),00
+7EEA 2E 46 .F LD L,46
+7EEC 11 19 7D ..} LD DE,7D19
+7EEF 01 0A 00 ... LD BC,000A
+7EF2 EB . EX DE,HL
+7EF3 ED B0 .. LDIR
+7EF5 6F o LD L,A
+7EF6 CB 3D .= SLR L
+7EF8 CB FD .. SET 7,L
+7EFA 26 15 &. LD H,15
+7EFC C3 65 5F .e_ JP 5F65
+7EFF CD 16 54 ..T CALL 5416
+7F02 3A 17 82 :.. LD A,(8217) ; Musta
+7F05 CB 67 .g BIT 4,A
+7F07 20 2B + JR NZ,7F34
+7F09 ED 4B 10 82 .K.. LD BC,(8210)
+7F0D 11 00 00 ... LD DE,0000
+7F10 78 x LD A,B
+7F11 B1 . OR C
+7F12 28 08 (. JR Z,7F1C
+7F14 CD D6 53 ..S CALL 53D6
+7F17 13 . INC DE
+7F18 13 . INC DE
+7F19 0B . DEC BC
+7F1A 18 F4 .. JR 7F10
+7F1C 97 . SUB A
+7F1D 32 0C 82 2.. LD (820C),A
+7F20 32 0D 82 2.. LD (820D),A
+7F23 21 2B 1E !+. LD HL,1E2B
+7F26 CD B3 7F ... CALL 7FB3
+7F29 3E 01 >. LD A,01
+7F2B 32 0C 82 2.. LD (820C),A
+7F2E 3A 13 57 :.W LD A,(5713)
+7F31 B7 . OR A
+7F32 20 17 . JR NZ,7F4B
+7F34 11 02 00 ... LD DE,0002
+7F37 CD 46 81 .F. CALL 8146
+7F3A 67 g LD H,A
+7F3B 2E 00 .. LD L,00
+7F3D 11 18 82 ... LD DE,8218
+7F40 01 10 00 ... LD BC,0010
+7F43 ED B0 .. LDIR
+7F45 21 18 82 !.. LD HL,8218
+7F48 CD B3 7F ... CALL 7FB3
+7F4B CD 34 7D .4} CALL 7D34
+7F4E CD E7 55 ..U CALL 55E7
+7F51 30 27 0' JR NC,7F7A
+7F53 EB . EX DE,HL
+7F54 3A 17 82 :.. LD A,(8217) ; Musta
+7F57 CB 67 .g BIT 4,A
+7F59 28 50 (P JR Z,7FAB
+7F5B CD B1 81 ... CALL 81B1
+7F5E E5 . PUSH HL
+7F5F 6C l LD L,H
+7F60 26 15 &. LD H,15
+7F62 CB 3D .= SLR L
+7F64 CB FD .. SET 7,L
+7F66 CB 8E .. RES 1,(HL)
+7F68 E1 . POP HL
+7F69 06 00 .. LD B,00
+7F6B 5E ^ LD E,(HL)
+7F6C 23 # INC HL
+7F6D 56 V LD D,(HL)
+7F6E 14 . INC D
+7F6F 28 04 (. JR Z,7F75
+7F71 15 . DEC D
+7F72 CD 5F 80 ._. CALL 805F
+7F75 23 # INC HL
+7F76 10 F3 .. DJNZ 7F6B
+7F78 18 D1 .. JR 7F4B
+7F7A 3E 01 >. LD A,01
+7F7C 32 0D 82 2.. LD (820D),A
+7F7F CD 5C 54 .\T CALL 545C
+7F82 21 17 82 !.. LD HL,8217
+7F85 CB 86 .. RES 0,(HL)
+7F87 CB 66 .f BIT 4,(HL)
+7F89 CA F0 7D ..} JP Z,7DF0
+7F8C 36 01 6. LD (HL),01
+7F8E 11 02 00 ... LD DE,0002
+7F91 CD 46 81 .F. CALL 8146
+7F94 57 W LD D,A
+7F95 1E 00 .. LD E,00
+7F97 21 18 82 !.. LD HL,8218
+7F9A 01 10 00 ... LD BC,0010
+7F9D ED B0 .. LDIR
+7F9F CD 88 81 ... CALL 8188
+7FA2 CD 18 53 ..S CALL 5318
+7FA5 CD A4 81 ... CALL 81A4
+7FA8 C3 FF 7E ..~ JP 7EFF
+7FAB CD D6 53 ..S CALL 53D6
+7FAE CD B1 81 ... CALL 81B1
+7FB1 18 B6 .. JR 7F69
+7FB3 06 04 .. LD B,04
+7FB5 0E 10 .. LD C,10
+7FB7 E5 . PUSH HL
+7FB8 C5 . PUSH BC
+7FB9 5E ^ LD E,(HL)
+7FBA 23 # INC HL
+7FBB 56 V LD D,(HL)
+7FBC CD 67 80 .g. CALL 8067
+7FBF 69 i LD L,C
+7FC0 CD CC 7F ... CALL 7FCC
+7FC3 C1 . POP BC
+7FC4 0E 00 .. LD C,00
+7FC6 E1 . POP HL
+7FC7 23 # INC HL
+7FC8 23 # INC HL
+7FC9 10 EC .. DJNZ 7FB7
+7FCB C9 . RET
+7FCC 14 . INC D
+7FCD C8 . RET Z
+7FCE 15 . DEC D
+7FCF CD 0D 54 ..T CALL 540D
+7FD2 D5 . PUSH DE
+7FD3 CD 46 81 .F. CALL 8146
+7FD6 67 g LD H,A
+7FD7 CD EA 7F ... CALL 7FEA
+7FDA D1 . POP DE
+7FDB 20 F5 . JR NZ,7FD2
+7FDD D5 . PUSH DE
+7FDE CD 46 81 .F. CALL 8146
+7FE1 67 g LD H,A
+7FE2 24 $ INC H
+7FE3 CD EA 7F ... CALL 7FEA
+7FE6 D1 . POP DE
+7FE7 20 F4 . JR NZ,7FDD
+7FE9 C9 . RET
+7FEA 5E ^ LD E,(HL)
+7FEB 2C , INC L
+7FEC 56 V LD D,(HL)
+7FED 14 . INC D
+7FEE 28 22 (" JR Z,8012
+ - Fortsetzung in Datei "eumel0.prt.5" -
|