E-Latz
*= $A000
LD HL,inter_
LD DE,start_
LD B,$81
JP $BCD7 ; kl new frame fly
inter_ .FILL 9,0
ladz_0 .BYTE 0
start_ LD A,$07
CALL ladz_1
LD (ladz_0),A
LD A,(ladz_0)
AND 1
JR Z,ladz_2
SUB A
JR ladz_3
ladz_2 LD A,$08
CALL ladz_1
ladz_3 RLCA
RLCA
LD E,A
LD D,0
LD HL,daten_
ADD HL,DE
LD DE,$DA34 ; -------------
PUSH HL
LDI
LDI
LDI
LDI
POP HL
LD DE,$E234 ; ------------
LDI
LDI
LDI
LDI
LD A,(ladz_0)
AND $02
JR Z,ladz_7
SUB A
JR ladz_4
ladz_7 LD A,$09
CALL ladz_1
ladz_4 RLCA
RLCA
LD E,A
LD D,$00
LD HL,daten_
ADD HL,DE
LD DE,$DA39 ; -----------------
PUSH HL
LDI
LDI
LDI
LDI
POP HL
LD DE,$E239 ; -------------
LDI
LDI
LDI
LDI
LD A,(ladz_0)
AND $04
JR Z,ladz_5
SUB A
JR ladz_6
ladz_5 LD A,$0A
CALL ladz_1
ladz_6 RLCA
RLCA
LD E,A
LD D,$00
LD HL,daten_
ADD HL,DE
LD DE,$DA3E ; -----------------
PUSH HL
LDI
LDI
LDI
LDI
POP HL
LD DE,$E23E ;----------------
LDI
LDI
LDI
LDI
RET
ladz_1 DI
LD B,$F4
OUT (C),A
LD B,$F6
IN A,(C)
OR $C0
OUT (C),A
AND $3F
OUT (C),A
LD B,$F7
LD D,$92
OUT (C),D
LD B,$F6
LD C,A
OR $40
OUT (C),A
LD B,$F4
IN A,(C)
LD B,$F7
LD D,$82
OUT (C),D
LD B,$F6
OUT (C),C
EI
RET
Der Cod ist vom Tass128K
Wer Kamm mir den Code in Maxam Umwandeln
EDIT: Lieber EBO, bitte verwende den freaking Code-Tag!