init FME-7

FME7_CMD = $8000
FME7_DAT = $A000
SUN_CMD = $C000
SUN_DAT = $E000

InitFME7:
  ;set graphics banks 0-7 to 0-7
  ldx #0
: stx FME7_CMD
  stx FME7_DAT
  inx
  cpx #8
  bne :-

  ;set $6000-$7FFF
  ldx #8
  stx FME7_CMD
  lda #0
  sta FME7_DAT

  ;set $8000-$9FFF
  inx
  stx FME7_CMD
  ldy #12
  sty FME7_DAT

  ;set $A000-$BFFF
  inx
  stx FME7_CMD
  iny
  sty FME7_DAT

  ;set $C000-$DFFF
  inx
  stx FME7_CMD
  iny
  sty FME7_DAT

  ; set vertical mirroring
  ldx #$0c
  stx FME7_CMD ; X = $0c
  lda #0
  sta FME7_DAT
  inx
  stx FME7_CMD ; X = $0d
  sta FME7_DAT ; do not generate IRQs
  rts