ts_vmod.asm
bitfixer_bitfixer/dg/z88dk/libsrc/ts2068/ts_vmod.asm
; void __FASTCALL__ ts_vmod(uchar mode)
; 02.2008 aralbrec

PUBLIC ts_vmod

.ts_vmod

   ld a,l
   and $3f
   xor $38                     ; invert paper bits to settings expected by port $ff
   ld l,a
   
   in a,($ff)
   and $c0                     ; preserve current local bank selection and interrupt state
   or l
   out ($ff),a
   
   ret
