                          ;2x2 to MOB - Natas/Carcass in Dec. 97

csetlo     .byte $00      ;lo/hi byte cset loc
csethi     .byte $08
maxchr     .byte $20      ;# of chars to conv.
mobloc     = $3800        ;MOB loc
tempx       = $9f         ;Temp

makemob   ldx #$00
c6        lda csetlo
          sta $aa
          sta $ab
          sta $ac
          sta $ad
          sta $ae
          sta $af
          sta $b0
          sta $b1
          txa
          asl a
          rol $ab
          asl a
          rol $ab
          asl a
          rol $ab
          sta $aa
          clc
          lda $ab
          adc csethi
          sta $ab
          lda $aa
          sta $ac
          sta $ae
          sta $b0
          clc
          lda #$02
          adc $ab
          sta $ad
          clc
          adc #$02
          sta $af
          clc
          adc #$02
          sta $b1
          stx tempx
          ldx #$00
          ldy #$00
mm1       lda ($aa),y
c1        sta mobloc,x
          inx
          inx
          inx
          iny
          cpy #$08
          bne mm1
          ldx #$01
          ldy #$00
mm2       lda ($ac),y
c2        sta mobloc,x
          inx
          inx
          inx
          iny
          cpy #$08
          bne mm2
          ldx #$18
          ldy #$00
mm3       lda ($ae),y
c3        sta mobloc,x
          inx
          inx
          inx
          iny
          cpy #$08
          bne mm3
          ldx #$19
          ldy #$00
mm4       lda ($b0),y
c4        sta mobloc,x
          inx
          inx
          inx
          iny
          cpy #$08
          bne mm4
          clc
          lda c1+1
          adc #$40
          sta c1+1
          sta c2+1
          sta c3+1
          sta c4+1
          lda c1+2
          adc #$00
          sta c1+2
          sta c2+2
          sta c3+2
          sta c4+2
          ldx tempx
          inx
          cpx maxchr
          beq c5
          jmp c6
c5        rts

