DispDecA:
    ld l,a
    ld h,0
    push de
    push bc
        push hl
            ld bc,6
            call AllocateMem
            if(ALLOCATE_SUCCESS)
                jr nz,_
            push ix
            pop de  ; ld de,ix
        pop hl
        push ix
        call Num2Dec
        pop hl
        push hl
        inc hl
        inc hl
        inc hl
        call DrawString
        pop ix
        call FreeMem
    pop bc
    pop de
    return(SUCCESS)
_   pop hl
    pop bc
    pop de
    ret