6D38: Routine at 6D38
6D38 |
CALL $6D45 |
6D3B |
LD HL,$5F35 |
6D3E |
LD DE,$6D87 |
6D41 |
LD C,$07 |
6D43 |
JR $6D67 |
6D45 |
XOR A |
6D46 |
LD ($5F29),A |
6D49 |
LD A,$1E |
6D4B |
LD ($7516),A |
6D4E |
CALL ResetAttributes |
6D51 |
CALL ResetScreen |
6D54 |
LD HL,$6D7D |
6D57 |
LD A,($5F2D) |
6D5A |
LD C,$06 |
6D5C |
RLCA |
6D5D |
AND %00001111 |
6D5F |
LD E,A |
6D60 |
LD D,$00 |
6D62 |
ADD HL,DE |
6D63 |
EX DE,HL |
6D64 |
LD HL,$5F55 |
6D67 |
LD (HL),C |
6D68 |
INC HL |
6D69 |
LD (HL),$F0 |
6D6B |
INC HL |
6D6C |
LD (HL),$68 |
6D6E |
INC HL |
6D6F |
LD A,(DE) |
6D70 |
LD C,A |
6D71 |
INC DE |
6D72 |
LD A,(DE) |
6D73 |
LD (HL),A |
6D74 |
INC HL |
6D75 |
LD (HL),C |
6D76 |
INC HL |
6D77 |
LD (HL),$00 |
6D79 |
INC HL |
6D7A |
LD (HL),$00 |
6D7C |
RET |