vz_bgrd.asm
bitfixer_bitfixer/dg/z88dk/libsrc/vz/vz_bgrd.asm
;*****************************************************
;
;	Video Technology library for small C compiler
;
;		Juergen Buchmueller
;
;*****************************************************

; ----- void __FASTCALL__ vz_bgrd(int n)

PUBLIC vz_bgrd

.vz_bgrd

   ld a,h
   or l
   ld hl,$783b
   ld a,(hl)
   set 4,a
   jr nz, bgrd1
   and $ef                   ; res 4,a
 
.bgrd1
 
   ld (hl),a
   ld ($6800),a
   ret
