Prev: A682 Up: Map Next: A6CC
A69C: Routine at A69C
Used by the routine at A461.
A69C LD DE,$7B00 DE=7B00.
A69F LD HL,$7840 HL=7840.
A6A2 INC L Increment L by one.
A6A3 LD B,$40 B=40.
A6A5 LD A,(DE) A=*DE.
A6A6 OR (HL) Set the bits from *HL.
A6A7 LD (HL),A Write A to *HL.
A6A8 INC L Increment L by one.
A6A9 INC E Increment E by one.
A6AA LD A,(DE) A=*DE.
A6AB OR (HL) Set the bits from *HL.
A6AC LD (HL),A Write A to *HL.
A6AD INC L Increment L by one.
A6AE INC E Increment E by one.
A6AF LD A,(DE) A=*DE.
A6B0 OR (HL) Set the bits from *HL.
A6B1 LD (HL),A Write A to *HL.
A6B2 INC L Increment L by one.
A6B3 INC E Increment E by one.
A6B4 LD A,(DE) A=*DE.
A6B5 OR (HL) Set the bits from *HL.
A6B6 LD (HL),A Write A to *HL.
A6B7 INC L Increment L by one.
A6B8 INC DE Increment DE by one.
A6B9 LD A,(DE) A=*DE.
A6BA OR (HL) Set the bits from *HL.
A6BB LD (HL),A Write A to *HL.
A6BC INC L Increment L by one.
A6BD INC E Increment E by one.
A6BE LD A,(DE) A=*DE.
A6BF OR (HL) Set the bits from *HL.
A6C0 LD (HL),A Write A to *HL.
A6C1 INC L Increment L by one.
A6C2 INC E Increment E by one.
A6C3 LD A,(DE) A=*DE.
A6C4 OR (HL) Set the bits from *HL.
A6C5 LD (HL),A Write A to *HL.
A6C6 INC HL Increment HL by one.
A6C7 INC L Increment L by one.
A6C8 INC E Increment E by one.
A6C9 DJNZ $A6A5 Decrease counter by one and loop back to A6A5 until counter is zero.
A6CB RET Return.
Prev: A682 Up: Map Next: A6CC