Prev: A652 Up: Map Next: A69C
A682: Routine at A682
Used by the routine at A491.
A682 LD DE,$7B00 DE=7B00.
A685 LD HL,$7800 HL=7800.
A688 LD B,$28 B=28.
A68A LD A,(DE) A=*DE.
A68B AND (HL) Merge the bits from *HL.
A68C LD (HL),A Write A to *HL.
A68D INC L Increment L by one.
A68E INC E Increment E by one.
A68F LD A,(DE) A=*DE.
A690 AND (HL) Merge the bits from *HL.
A691 LD (HL),A Write A to *HL.
A692 INC L Increment L by one.
A693 INC E Increment E by one.
A694 LD A,(DE) A=*DE.
A695 AND (HL) Merge the bits from *HL.
A696 LD (HL),A Write A to *HL.
A697 INC L Increment L by one.
A698 INC E Increment E by one.
A699 DJNZ $A68A Decrease counter by one and loop back to A68A until counter is zero.
A69B RET Return.
Prev: A652 Up: Map Next: A69C