Prev: 6C13 Up: Map Next: 6CC9
6C9D: Routine at 6C9D
Used by the routine at 6CEE.
6C9D LD A,($6693) Return if *6693 is not zero.
6CA0 OR A
6CA1 RET NZ
6CA2 LD HL,($66ED) HL=*66ED.
6CA5 LD B,$02 B=02.
6CA7 PUSH BC Stash BC and HL on the stack.
6CA8 PUSH HL
6CA9 LD B,$03 B=03.
6CAB LD A,(HL) A=*HL.
6CAC OR A Jump to 6CBF if A is zero.
6CAD JR Z,$6CBF
6CAF CP $46 Jump to 6CBF if A is equal to 46.
6CB1 JR Z,$6CBF
6CB3 CP $07 Jump to 6CBF if A is equal to 07.
6CB5 JR Z,$6CBF
See Immunity.
6CB7 LD A,$01 Write 01 to *66A4.
6CB9 LD ($66A4),A
6CBC POP AF Restore AF and AF from the stack.
6CBD POP AF
6CBE RET Return.
6CBF INC HL Increment HL by one.
6CC0 DJNZ $6CAB Decrease counter by one and loop back to 6CAB until counter is zero.
6CC2 POP HL Restore HL from the stack.
6CC3 SET 5,L Set bit 5 of L.
6CC5 POP BC Restore BC from the stack.
6CC6 DJNZ $6CA7 Decrease counter by one and loop back to 6CA7 until counter is zero.
6CC8 RET Return.
Prev: 6C13 Up: Map Next: 6CC9