;
ORG #A000
;
;        CASSYS SYSTEME PROTECTION
;
LD HL,#4030
LD BC,#6EA
LD DE,#F5A
R4026
LD A,(HL)
XOR E
XOR D
LD (HL),A
INC HL
DEC C
JR NZ,R4026
DJNZ R4026
JR R4033
LD (HL),A
R4033 XOR A
DI
LD R,A
LD HL,#404D
LD BC,#6CD
LD DE,#471A
R4040
LD A,R
XOR (HL)
LD (HL),A
LD A,(DE)
XOR L
XOR H
LD (DE),A
DEC C
JR NZ,R4040
DJNZ R4040
JR R404F
R404F EI
LD A,#01
CALL #BC0E
XOR A
CALL #BB90
LD A,#01
CALL #BB96
LD HL,#406B
R4061 LD A,(HL)
INC HL
OR A
JR Z,R4094
CALL #BB5A
JR R4061
DB #43,#41,#53,#53
DB #59,#53,#20,#43
DB #41,#53,#53,#45
DB #54,#54,#45,#20
DB #50,#52,#4F,#54
DB #45,#43,#54,#49
DB #4F,#4E,#20,#53
DB #59,#53,#54,#45
DB #4D,#20,#A4,#20
DB #31,#39,#38,#36
DB #00
R4094 LD DE,#C000
LD HL,#40B0
LD BC,#5008
R409D PUSH BC
PUSH DE
R409F LD A,(DE)
XOR (HL)
CPL
LD (HL),A
INC HL
INC DE
DJNZ R409F
POP DE
POP BC
LD A,D
ADD A,#08
LD D,A
DEC C
JR NZ,R409D
JR R40B2
R40B2 DI
XOR A
LD R,A
LD HL,#C000
LD DE,#4387
LD B,#00
R40BE LD A,R
XOR E
SUB D
OR L
SET 3,A
RES 1,A
LD (HL),A
INC L
INC D
INC D
DEC E
DEC E
DEC E
DJNZ R40BE
LD HL,#40E5
LD DE,#C000
LD BC,#635
R40D9
LD A,(DE)
XOR C
XOR B
XOR (HL)
LD (HL),A
INC E
INC HL
DEC C
JR NZ,R40D9
DJNZ R40D9
JP #5000
;