changes to pokecrystal ace payload
61 lines
add c
add c
ld b,a
ld b,a
add hl,bc
add hl,bc
add l
add l
ld c,a
ld c,a
ld l,h
ld l,h
dec a
dec a
ld h,a
ld h,a
dec h
dec h
ldh a,(FF00)
ldh a,(FF00)
ld (hli),a
ld (hli),a
sub a,(hl)
sub (hl)
ld a,d
ld a,d
ld (hli),a
ld (hli),a
ld a,(bc)
ld a,(bc)
sub b
sub b
ld (hli),a
ld (hli),a
ld (hl),d
ld (hl),d
inc (hl)
inc (hl)
inc hl
inc hl
inc (hl)
inc (hl)
or (hl)
or (hl)
ld l,d
ld l,d
ldh a,(FF00)
ldh a,(FF00)
ld (hli),a
ld (hli),a
ld h,l
ld h,l
ld l,b
ld l,b
dec (hl)
dec (hl)
and b
and b
and l
and l
ld b,a
ld b,a
ld l,h
ld l,h
dec h
dec h
ld l,(hl)
ld l,(hl)
dec (hl)
dec (hl)
add c
add c
ld l,a
ld l,a
inc h
inc h
ld a,(hli)
ld a,(hli)
ld a,(0000)
ld a,(0000)
xor (hl)
xor (hl)
ld (bc),a
ld (bc),a
add b
add b
ld c,a
ld c,a
ld a,h
ld a,h
cpl
cpl
ld (hli),a
ld (hli),a
ld (hli),a
ld (hli),a
ld (hl),c
ld (hl),c
xor l
xor l
dec a
dec a
ld l,h
ld l,h
dec h
dec h
ld (hli),a
ld (hli),a
ld (hl),h
ld (hl),h
inc (hl)
inc (hl)
ld hl,(sp+00)
ld hl,(sp+00)
ld l,b
ld l,b
inc hl
inc l
ld sp,hl
ld sp,hl
ret
ld a,a
ld l,d
add a
adc l
ld (hld),a
call z,0000
ld (hl),d
ret nz