Код:
ld hl,(A237)
ld de,0005
call 6194
ld a,h
or l
jr z,8C8F
ld hl,(A197)
ld a,h
or l
jr z,8C8F
ld hl,(A245)
ex de,hl
ld hl,(A247)
ld a,h
or d
jr nz,8C8F
ld a,l
cp 05
ld a,e
jr z,8C66
ex de,hl
cp 05
ld hl,(A243)
inc hl
inc hl
jr z,8C71
jr 8C8F
; 8C66
cp 05
ld hl,(A243)
inc hl
dec hl
jr nz,8C71
jr 8C8F
; 8C71
ex de,hl
push hl
ld hl,(A241)
dec hl
call 6201
ld de,0005
call 6194
ld a,h
or l
pop hl
jr z,8C8F
ld a,42
cp l
jr nz,8C8C
ld l,45
ld (A237),hl
; 8C8F
ld hl,(A195)
ld de,0017
call 6194
ld a,h
or l
jr z,8CBC
ld hl,(A237)
ld a,h
and a
ld a,l
jr nz,8CB2
cp 41
jr c,8CB2
cp 43
jr nc,8CB2
ld hl,0001
ld (A231),hl
; 8CB2
cp 44
jr nz,8CBC
ld hl,0005
ld (A239),hl
; 8CBC
ld hl,(A239)
ld de,0005
call 619D
ld a,h
or l
jr z,8CF5
ld hl,(A237)
ld a,h
and a
ld a,l
jr nz,8CF5
cp 42
jr z,8CEF
cp 45
jr z,8CEF
cp 44
jr nz,8CF5
ex de,hl
ld hl,(A23B)
call 6194
ld a,h
or l
jr z,8CF5
ld hl,(A197)
ld a,h
or l
jr nz,8CF5
ld hl,0005
ld (A237),hl
; 8CF5
; это место освободилось
db 0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0
db 0,0,0,0