func_drawblock:


;EX AF,AF'
;Call $53
;EXX
;LD A,(7)
;LD C,A
;EXX
;EX AF,AF'
;EX DE,HL
push hl
push de

call func_prep_write_vram

pop de
pop hl
EX DE,HL

LD A,(7)
LD C,A

LD A,($FCB7) ;number of lines
LD DE,($FCB9) ;width ram line

drawblock_1:

LD B,32 ;width vram line (must be 32 for screen 1,2,4) 

drawblock_2:

OUTI
;NOP
JR NZ,drawblock_2

ADD HL, DE
DEC A
JR NZ,drawblock_1
RET
