Prev: D682 Up: Map Next: D789
D69F: Routine at D69F
Used by the routine at D789.
D69F LD HL,$D556
D6A2 RES 0,(HL)
D6A4 LD HL,$D555
D6A7 SET 7,(HL)
D6A9 CALL Colourise_PreviewGrid
D6AC LD HL,$5825
D6AF LD B,$04
D6B1 PUSH BC
D6B2 LD B,$10
D6B4 LD (HL),$00
D6B6 INC HL
D6B7 DJNZ $D6B4
D6B9 LD DE,$0010
D6BC ADD HL,DE
D6BD POP BC
D6BE DJNZ $D6B1
D6C0 LD BC,$00FA
D6C3 DI
D6C4 LD D,$0E
D6C6 LD A,$05
D6C8 OUT ($FE),A
D6CA XOR $10
D6CC LD E,C
D6CD DEC E
D6CE JR NZ,$D6CD
D6D0 DEC D
D6D1 JR NZ,$D6C8
D6D3 DEC BC
D6D4 LD A,B
D6D5 OR C
D6D6 JR NZ,$D6C4
D6D8 EI
D6D9 CALL $E7CA
D6DC LD B,$64
D6DE HALT
D6DF DJNZ $D6DE
D6E1 DI
D6E2 LD HL,$D556
D6E5 LD (HL),$80
D6E7 CALL $F88A
D6EA LD A,($D57A)
D6ED INC A
D6EE LD D,A
D6EF LD E,$7D
D6F1 LD H,$01
D6F3 LD A,(HL)
D6F4 AND $18
D6F6 OR $05
D6F8 OUT ($FE),A
D6FA INC HL
D6FB LD B,D
D6FC DJNZ $D6FC
D6FE DEC E
D6FF JP NZ,$D6F3
D702 LD HL,$D556
D705 BIT 4,(HL)
D707 JR NZ,$D723
D709 LD A,($D55C)
D70C AND A
D70D INC A
D70E DAA
D70F LD ($D55C),A
D712 JR NC,$D71D
D714 LD A,($D55B)
D717 CCF
D718 INC A
D719 DAA
D71A LD ($D55B),A
D71D CALL $E80B
D720 JP $D6E7
D723 LD HL,$D55D
D726 LD A,($D592)
D729 AND A
D72A ADD A,(HL)
D72B DAA
D72C LD ($D592),A
D72F LD (HL),$00
D731 DEC HL
D732 LD A,($D591)
D735 ADC A,(HL)
D736 DAA
D737 LD ($D591),A
D73A LD (HL),$00
D73C DEC HL
D73D LD A,($D590)
D740 ADC A,(HL)
D741 DAA
D742 LD ($D590),A
D745 LD (HL),$00
D747 LD HL,$ED07
D74A LD B,$23
D74C CALL $EB8C
D74F CALL $E80B
D752 CALL $E81F
D755 LD A,($D589)
D758 CP $00
D75A JR NZ,$D775
D75C LD A,($D590)
D75F AND $F0
D761 RRCA
D762 RRCA
D763 RRCA
D764 RRCA
D765 CP $02
D767 JP M,$D775
D76A LD A,$01
D76C LD ($D589),A
D76F CALL $E7CA
D772 CALL $E7E5
D775 LD A,$80
D777 LD ($D554),A
D77A CALL $E859
D77D CP $00
D77F JR Z,$D77A
D781 XOR A
D782 LD ($D554),A
D785 CALL $EAA3
D788 RET
Prev: D682 Up: Map Next: D789