B_CALL (_RclAns)
cp 4
ret nz
ld a,170
ld($8479),a
rst 10h
ret c
ex de,hl
ld c,(hl)
inc hl
ld b,(hl)
inc hl
push bc
ld a,(hl)
and 31
ld (hl),a
ld de,33912
ldir
xor a
ld (de),a
B_CALL (_ChkFindSym)
ld a,b
pop bc
ret c
ex de,hl
out ($06),a
or a
jr z,$05
add hl,bc
ld bc,9
add hl,bc
ld c,(hl)
inc hl
ld b,(hl)
inc hl
push af
push hl
push bc
ld a,7
out ($06),a
B_CALL (_RclAns)
cp 4
ex de,hl
ld c,(hl)
inc hl
ld b,(hl)
inc hl
ld a,(hl)
and 31
ld (hl),a
ld de,33912
ldir
xor a
ld (de),a
B_CALL (_ChkFindSym)
jr c, $03
B_CALL (_DelVarArc)
pop hl
push hl
ld a,(33912)
B_CALL ($704E)
inc de
inc de
pop bc
pop hl
pop af
B_CALL ($5480)
ret