B440: Redraw Ted to a new location
| B440 |
LD HL,$A450 |
| B443 |
DEC (HL) |
| B444 |
JR NZ,$B45F |
| B446 |
LD HL,($A451) |
| B449 |
LD A,(HL) |
| B44A |
CP $FE |
| B44C |
JR NZ,$B453 |
| B44E |
LD HL,($A477) |
| B451 |
JR $B449 |
| B453 |
LD ($A453),A |
| B456 |
INC HL |
| B457 |
LD A,(HL) |
| B458 |
LD ($A450),A |
| B45B |
INC HL |
| B45C |
LD ($A451),HL |
| B45F |
LD HL,($A406) |
| B462 |
LD C,L |
| B463 |
EXX |
| B464 |
LD A,$10 |
| B466 |
LD ($A455),A |
| B469 |
PUSH HL |
| B46A |
LD HL,($A453) |
| B46D |
LD H,$00 |
| B46F |
ADD HL,HL |
| B470 |
LD BC,$A67B |
| B473 |
ADD HL,BC |
| B474 |
LD E,(HL) |
| B475 |
INC HL |
| B476 |
LD D,(HL) |
| B477 |
LD A,($A421) |
| B47A |
EX AF,AF' |
| B47B |
LD HL,$0000 |
| B47E |
LD ($A449),HL |
| B481 |
LD A,($A453) |
| B484 |
INC A |
| B485 |
JR Z,$B48F |
| B487 |
LD A,($A45B) |
| B48A |
RRA |
| B48B |
LD A,$00 |
| B48D |
JR C,$B494 |
| B48F |
LD A,$FF |
| B491 |
LD DE,$8000 |
| B494 |
LD ($A44F),A |
| B497 |
LD ($A44D),DE |
| B49B |
LD IX,$AA27 |
| B49F |
CALL $BF4B |
| B4A2 |
POP HL |
| B4A3 |
EXX |
| B4A4 |
RET |