.C:674f   A2 3F      LDX #$3F
.C:6751   8E 02 DD   STX $DD02
.C:6754   A2 00      LDX #$00
.C:6756   98         TYA
.C:6757   8D 72 67   STA $6772
.C:675a   A0 37      LDY #$37
.C:675c   AD 00 DD   LDA $DD00
.C:675f   4A         LSR A
.C:6760   4A         LSR A
.C:6761   0D 00 DD   ORA $DD00
.C:6764   4A         LSR A
.C:6765   4A         LSR A
.C:6766   0D 00 DD   ORA $DD00
.C:6769   4A         LSR A
.C:676a   4A         LSR A
.C:676b   AE 00 DD   LDX $DD00
.C:676e   8C 02 DD   STY $DD02
.C:6771   A0 FF      LDY #$FF
.C:6773   1D 00 65   ORA $6500,X
.C:6776   2C 00 DD   BIT $DD00
.C:6779   50 D4      BVC $674F
.C:677b   99 D8 51   STA $51D8,Y
.C:677e   C8         INY
.C:677f   D0 CE      BNE $674F