mirrored_pf.bas

  set optimization noinlinedata

  dim scr_no = a
  dim sf = b

  scr_no = 0

  COLUBK = $00
  COLUPF = $A2

  gosub update_scr

main

  temp2 = ((SWCHA ^ $FF) & sf) : sf = SWCHA

  if temp2 & $80 then scr_no = (scr_no + 1) & $0F : gosub update_scr
  if temp2 & $40 then scr_no = (scr_no - 1) & $0F : gosub update_scr

  drawscreen

  goto main



mk1

  function fsb
  asm
  tay
  lda (temp3),y
end
  return


update_scr
  j = 0 : temp3 = scr_tbl_lo[scr_no] : temp4 = scr_tbl_hi[scr_no]

  for i = 0 to 40 step 4
  var0[i] = fsb(j)
  j = j + 1
  var1[i] = fsb(j)
  j = j + 1
  var2[i] = var1[i]
  var3[i] = var0[i]
  next
  return

mk2

  data scr_tbl_lo
  <scr00, <scr01, <scr02, <scr03, <scr04, <scr05, <scr06, <scr07
  <scr08, <scr09, <scr10, <scr11, <scr12, <scr13, <scr14, <scr15
end

  data scr_tbl_hi
  >scr00, >scr01, >scr02, >scr03, >scr04, >scr05, >scr06, >scr07
  >scr08, >scr09, >scr10, >scr11, >scr12, >scr13, >scr14, >scr15
end

  rem second byte is reversed

  data scr00
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00011100
  %01000100, %00100010
  %01000100, %00100010
  %01000100, %00100010
  %01000100, %00100010
  %01000100, %00100010
  %00111000, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr01
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00001100
  %01000100, %00001110
  %01000100, %00001100
  %01000100, %00001100
  %01000100, %00001100
  %01000100, %00001100
  %00111000, %00011110
  %00000000, %00000000
  %00000000, %00000000
end

  data scr02
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00011100
  %01000100, %00100010
  %01000100, %00010000
  %01000100, %00001000
  %01000100, %00000100
  %01000100, %00000010
  %00111000, %00111110
  %00000000, %00000000
  %00000000, %00000000
end

  data scr03
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00111110
  %01000100, %00010000
  %01000100, %00001000
  %01000100, %00011100
  %01000100, %00100000
  %01000100, %00100010
  %00111000, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr04
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00100010
  %01000100, %00100010
  %01000100, %00100010
  %01000100, %00111110
  %01000100, %00100000
  %01000100, %00100000
  %00111000, %00100000
  %00000000, %00000000
  %00000000, %00000000
end

  data scr05
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00111110
  %01000100, %00000010
  %01000100, %00000010
  %01000100, %00011110
  %01000100, %00100000
  %01000100, %00100010
  %00111000, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr06
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00011100
  %01000100, %00100010
  %01000100, %00000010
  %01000100, %00011110
  %01000100, %00100010
  %01000100, %00100010
  %00111000, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr07
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00111110
  %01000100, %00100000
  %01000100, %00010000
  %01000100, %00001000
  %01000100, %00000100
  %01000100, %00000100
  %00111000, %00000100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr08
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00011100
  %01000100, %00100010
  %01000100, %00100010
  %01000100, %00011100
  %01000100, %00100010
  %01000100, %00100010
  %00111000, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr09
  %00000000, %00000000
  %00000000, %00000000
  %00111000, %00011100
  %01000100, %00100010
  %01000100, %00100010
  %01000100, %00111100
  %01000100, %00100000
  %01000100, %00100000
  %00111000, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr10
  %00000000, %00000000
  %00000000, %00000000
  %00011000, %00011100
  %00111000, %00100010
  %00011000, %00100010
  %00011000, %00100010
  %00011000, %00100010
  %00011000, %00100010
  %00111100, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr11
  %00000000, %00000000
  %00000000, %00000000
  %00011000, %00011000
  %00111000, %00011100
  %00011000, %00011000
  %00011000, %00011000
  %00011000, %00011000
  %00011000, %00011000
  %00111100, %00111100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr12
  %00000000, %00000000
  %00000000, %00000000
  %00011000, %00011100
  %00111000, %00100010
  %00011000, %00010000
  %00011000, %00001000
  %00011000, %00000100
  %00011000, %00000010
  %00111100, %00111110
  %00000000, %00000000
  %00000000, %00000000
end

  data scr13
  %00000000, %00000000
  %00000000, %00000000
  %00011000, %00111110
  %00111000, %00010000
  %00011000, %00001000
  %00011000, %00011100
  %00011000, %00100000
  %00011000, %00100010
  %00111100, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  data scr14
  %00000000, %00000000
  %00000000, %00000000
  %00011000, %00100010
  %00111000, %00100010
  %00011000, %00100010
  %00011000, %00111110
  %00011000, %00100000
  %00011000, %00100000
  %00111100, %00100000
  %00000000, %00000000
  %00000000, %00000000
end

  data scr15
  %00000000, %00000000
  %00000000, %00000000
  %00011000, %00111110
  %00111000, %00000010
  %00011000, %00000010
  %00011000, %00011110
  %00011000, %00100000
  %00011000, %00100010
  %00111100, %00011100
  %00000000, %00000000
  %00000000, %00000000
end

  asm
  echo (.mk2-.mk1)d
end