mensaje.hex

cmcon=7 ;convierte todo el puerto A en digital
trisb=0 ;convierte todos los pines del puerto B en salidas
x VAR BYTE ;crea la variable x con un tamaño de 255

texto:
    FOR x=1 TO 20         ;repeticiones de este segmento
    portb=%01110110       ;letra H
    PAUSE 800             
    portb=%00111111       ;letra O
    PAUSE 800             
    portb=%00111000       ;letra L
    PAUSE 800          
    portb=%01110111       ;letra A
    PAUSE 800
    portb=%01101101       ;letra S
    pause 800
    portb=%00111111       ;letra O
    pause 800
    portb=%01100110       ;letra Y
    pause 800
    portb=%00011110       ;letra J
    pause 800
    portb=%00111111       ;letra O
    pause 800
    portb=%01010100       ;letra n
    pause 800
    portb=%01110100       ;letra H
    pause 800
    portb=%01100110       ;letra Y
    pause 800
    NEXT
goto texto
END