program Lotir
' 12F675 à 4MHz
' émet un octet à 19200bps
' un octet: 0,52ms
' x8 pour faire comme Milou: 4ms
'===================================================================== SYMBOLES
symbol PinTxJPM = GPIO.4 ' pour SoftTransmitJPM
'==================================================================== VARIABLES
'à 9600bps le temps bit theorique est de 104 µs
'97 est le milieu de la fourchette d'acceptation par le PC: 92-102
'const TempsBit as longword = 86 'pour 9600bps
'à 19200bps le temps bit theorique est de 52 µs
const TempsBit as longword = 36 'pour 19200bps
'=================================================================== PROCEDURES
sub procedure SoftTransmitJPM (dim X as byte) '************** soft transmit JPM
'moins encombrant en ROM que le soft_transmit de MikroElectronika
'envoi du caractère X sur le port SoftTx, à 9600bps.
dim N as byte
    ClearBit(INTCON, GIE)
    PinTxJPM = 0 'bit de start
    delay_us(TempsBit) 'à régler et tester
    for N = 0 to 7 'envoi des 8 bits de l'octet, LSB en premier
        PinTxJPM  = (X and 1)
        delay_us(TempsBit)
        X = X >> 1
    next N
'2 bits de stop
    PinTxJPM = 1
    delay_us(TempsBit)
    delay_us(TempsBit)
    SetBit(INTCON,GIE)
end sub
main: '=================================================================== MAIN
    CMCON = 7
    OSCCAL = 36 'calibration horloge
    TRISIO = %11101110
    'Soft_UART_Init(GPIO, 1, 0, 19200, 0) ' port, Rx, Tx, baud, inverted 'KO
'============================================================ boucle permanente
while true
'' test
'    SoftTransmitJPM(0)
'    SoftTransmitJPM(%01010101) '85 '0x55
'    SoftTransmitJPM(%10101010) '170 0xAA
'    SoftTransmitJPM(255)
'    Delay_ms(1)
'normal
    SoftTransmitJPM(71)
    Delay_ms(4)
wend
end.