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 |