;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