copy adr #4000 to adr #c000 with #4000 Byte and retour..

Copyscreen von adr #4000 to adr #c000 or adr #c000 to adr #4000 with #4000 byte.
For game with background and vorderground , "set_scr(#40)" > grafik is the adr #4000 (draw,plot usw) and then copy with "copy_40_c0()".
"set_scr(#c0)" is the lucky screen adr #c000.

Code:


function inline byte copy_40_c0()
{
   "ld de,#c000","ld hl,#4000",
   "ld bc,#4000","ldir"
}

function inline byte copy_c0_40()
{
   "ld de,#4000","ld hl,#c000",
   "ld bc,#4000","ldir"
}

function inline byte set_scr(byte)
{
  "call __scr_set_base"
}