        ORG #C000
FONT42
+       INCBIN "52f"

        ORG #6000
SPACE   DB "Burial Gfx Editor version 3.0
        DB "wwwwwwwwwwwwwwwwwwwwwwwwwwwwww

Start   LD HL,#4067
        CALL PR_42
        RET 

PR_42   LD B,'FONT42

        LD HX,8
Loop_1  PUSH HL
        LD LX,29
        LD DE,SPACE

Cont    LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        LD (HL),A

        DEC LX
        JP Z,Exi

        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        LD C,A
        XOR A
        DUP 3
        SLA C
        RLA 
        EDUP 
        OR (HL)
        LD (HL),A
        INC L
        LD (HL),C

        DEC LX
        JR Z,Exi

        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        RRA 
        RRA 
        OR (HL)
        LD (HL),A

        DEC LX
        JR Z,Exi

        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        LD C,A
        XOR A
        SLA C
        RLA 
        OR (HL)
        LD (HL),A
        INC L
        LD (HL),C

        DEC LX
        JR Z,Exi

        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        LD C,0
        RRA 
        RRA 
        RRA 
        RR C
        RRA 
        RR C
        OR (HL)
        LD (HL),A
        INC L
        LD (HL),C

        DEC LX
        JR Z,Exi

        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        RRA 
        OR (HL)
        LD (HL),A

        DEC LX
        JR Z,Exi


        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        LD C,A
        XOR A
        SLA C
        RLA 
        SLA C
        RLA 
        OR (HL)
        LD (HL),A
        INC L
        LD (HL),C

        DEC LX
        JR Z,Exi

        LD A,(DE)
        INC E
        LD C,A
        LD A,(BC)
        RRA 
        RRA 
        RRA 
        OR (HL)
        LD (HL),A

        DEC LX
        JR Z,Exi
        INC L
        JP Cont

Exi     POP HL
        INC H
        INC B
        DEC HX
        JP NZ,Loop_1
        RET 

        ORG Start

