;:poke56,32:clr
;:sys36864
	;.opt oo
	*= $8000
tmp	=2
temp	=4
; ---------------------
; wandler fuer mc grafiken im ama-
; zon format, die mit dem hardmaker
; ab $2000 gespeichert wurden.
; sys 32768 wandelt
;   00 -> 00
;   01 -> 00
;   10 -> 11
;   11 -> 11
	ldy #0
	sty tmp
	ldx #$20
	stx tmp+1
byte	lda #0
	sta temp+1
	lda (tmp),y
	sta temp
	and #%11
	beq noset
	cmp #%01
	beq noset
	lda #%11
	sta temp+1
noset	lda temp
	and #%1100
	lsr
	lsr
	beq noset2
	cmp #%01
	beq noset2
	lda temp+1
	ora #%1100
	sta temp+1
noset2	lda temp
	and #%110000
	lsr
	lsr
	lsr
	lsr
	beq noset3
	cmp #%01
	beq noset3
	lda temp+1
	ora #%110000
	sta temp+1
noset3	lda temp
	and #%11000000
	lsr
	lsr
	lsr
	lsr
	lsr
	lsr
	beq noset4
	cmp #%01
	beq noset4
	lda temp+1
	ora #%11000000
	sta temp+1
noset4	lda temp+1
	sta (tmp),y
	iny
	bne byte
	inc tmp+1
	dex
	bne byte
	rts