LDX #$07

Ohno:
LDA.l Rrr,x
STA $7ECA00,x
DEX
BPL Ohno

REP #$10
LDX #$0000
STX $00
LDA #$00
XBA
TXY
CLC
PHB
LDA #$7E
PHA
PLB

ConvertGraphics:
LDA $6500,x
PHY
LDY $00
AND $CA00,y
BEQ Br1
LDA #$01

Br1:
PLY
STA $C800,y
INX
LDA $6500,x
PHY
LDY $00
AND $CA00,y
BEQ Br2
LDA #$02

Br2:
PLY
ORA $C800,y
STA $C800,y
REP #$20
TXA
CLC
ADC #$000F
TAX
SEP #$20
LDA $6500,x
PHY
LDY $00
AND $CA00,y
BEQ Br3
LDA #$04

Br3:
PLY
ORA $C800,y
STA $C800,y
INX
LDA $6500,x
PHY
LDY $00
AND $CA00,y
BEQ Br4
LDA #$08

Br4:
PLY
ORA $C800,y
STA $C800,y ; Pixel done.
REP #$20
TXA
SEC
SBC #$0011
TAX
SEP #$20
INY
REP #$20
TYA
AND #$0007
STA $00
SEP #$20
BNE ConvertGraphics
REP #$20
TXA
CLC
ADC #$0002
TAX
TYA
AND #$003F
SEP #$20
BNE ConvertGraphics
REP #$20
TXA
CLC
ADC #$0010
TAX
TYA
AND #$007F
SEP #$20
BNE JumpDiz
REP #$20
TXA
CLC
ADC #$01C0
TAX
TYA
AND #$00FF
SEP #$20
BNE JumpDiz
REP #$20
TXA
SEC
SBC #$03C0
TAX
SEP #$20
CPY #$0200
BCS BreakOut

JumpDiz:
JMP ConvertGraphics

BreakOut: