;DRAW NUMBER  HL=address vram to draw  DE=var byte to draw

func_drawnumber:

LD A,(DE)
AND $F0
;JR Z,func_drawnumber_1
RRA
RRA
RRA
RRA
AND $F
ADD A,$30
CALL $4D

func_drawnumber_1:

LD A,(DE)
INC HL
AND $F
ADD A,$30
JP $4D


;ADD TO NUMBER  HL=address var  DE=value to add

func_addnumber:

LD A,(HL)
ADD A,E
DAA
LD (HL),A
INC HL
LD A,(HL)
ADC A,D
DAA
LD (HL),A
INC HL
LD A,(HL)
ADC A,0
DAA
LD (HL),A
INC HL
LD A,(HL)
ADC A,0
DAA
LD (HL),A
RET

;******
;RET NC
;XOR A
;LD (HL),A
;DEC HL
;LD (HL),A
;DEC HL
;LD (HL),A
;DEC HL
;LD (HL),A
;RET


