From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/eumel0-z80/data/EUMEL0.DS | Bin 0 -> 30720 bytes system/eumel0-z80/src/DISEUMEL.ELA | 607 ++++++ system/eumel0-z80/src/eumel0.prt.1 | 3948 +++++++++++++++++++++++++++++++++++ system/eumel0-z80/src/eumel0.prt.2 | 3957 +++++++++++++++++++++++++++++++++++ system/eumel0-z80/src/eumel0.prt.3 | 4004 ++++++++++++++++++++++++++++++++++++ system/eumel0-z80/src/eumel0.prt.4 | 4001 +++++++++++++++++++++++++++++++++++ 6 files changed, 16517 insertions(+) create mode 100644 system/eumel0-z80/data/EUMEL0.DS create mode 100644 system/eumel0-z80/src/DISEUMEL.ELA create mode 100644 system/eumel0-z80/src/eumel0.prt.1 create mode 100644 system/eumel0-z80/src/eumel0.prt.2 create mode 100644 system/eumel0-z80/src/eumel0.prt.3 create mode 100644 system/eumel0-z80/src/eumel0.prt.4 (limited to 'system/eumel0-z80') diff --git a/system/eumel0-z80/data/EUMEL0.DS b/system/eumel0-z80/data/EUMEL0.DS new file mode 100644 index 0000000..8b53d98 Binary files /dev/null and b/system/eumel0-z80/data/EUMEL0.DS differ 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. 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 :. 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. 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" - -- cgit v1.2.3