ORG     0100H
BDOS    EQU     0005H
START:  MVI     C,9
        LXI     D,MSG$
        CALL    BDOS
        RET

        MSG$    DB      'COMPARTE TU SOFTWARE!$'
        END     START