D69F: Routine at D69F
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 |