.model tiny
        .data
        .code
        mov ax,@data
        mov ds,ax

        mov cl,0
        mov ch,5 ;base
        mov dl,1

suest:  mov bl,5 ; base
suint:  add cl,ch 
        dec bl
        cmp bl,0
        jne suint
        inc dl
        cmp dl,3   ;esponente
        mov ch,cl
        jbe suest

        mov bl,0
sucent: sub cl,100
        inc bl
        cmp cl,100
        jae sucent

        ;stampa bl
        mov dl,bl
        add dl,48
        mov ah,2
        int 21h

        mov bl,0
sudec:  sub cl,10
        inc bl
        cmp cl,10
        jae sudec

        ;stampa bl
        mov dl,bl
        add dl,48
        mov ah,2
        int 21h

        ;stampa cl
        mov dl,cl
        add dl,48
        mov ah,2
        int 21h


        add dl,48
        mov dl,dl
        mov ah,2
        int 21h
        ;cdll stampa
        mov ax,4c00h
        int 21h

        end