Pro-Linux

Code: Select all

'-- comblink.bas ----------------------------------------------- >>fst'04<< -
' - gibt abwechsend High-Pegel auf TxD und DTR/RTS von COM1 aus
' - an die entsprechenden Pins angeschlossene LEDs blinken abwechselnd
' - Anschlussschema&#58;             &#40;  Pinbelegung  Sub-D Stecker  &#41;
'   * Widerstand 1 kOhm an Masse &#40;9-Pol = Pin 5, 25-Pol = Pin  7&#41;
'   * langes Bein LED1 an TxD    &#40;9-Pol = Pin 3, 25-Pol = Pin  2&#41;
'   * langes Bein LED2 an DTR    &#40;9-Pol = Pin 4, 25-Pol = Pin 20&#41;
'   * langes Bein LED3 an RTS    &#40;9-Pol = Pin 7, 25-Pol = Pin  4&#41;
'   * alle kurzen Beine an den Widerstand
' - funktioniert alternativ auch mit den Modem-LEDs &#40;soweit vorhanden&#41;
'-- V 20040111 ------------------------------- http&#58;//www.FrankSteinberg.de -
		
CLS
LOCATE 4, 1
PRINT " LED-Wechselblinker fuer COM1       >> BENUTZUNG AUF EIGENE GEFAHR <<"
PRINT " Unter DOS oder im DOS-Modus ausfuehren!"
LOCATE 12, 1
PRINT " Datenformat-Register  Bit 6 &#40;break TxD&#41; = "
PRINT " Modem-Steuer-Register Bit 0 &#40;DTR&#41;       = "
PRINT " Modem-Steuer-Register Bit 1 &#40;RTS&#41;       = "

BAdr% = &H3F8        'Basisadresse COM1; COM2 = &H2F8
DFR% = BAdr% + 3     'Adresse des Datenformat-Registers  &#40;Offset 3&#41;
MSR% = BAdr% + 4     'Adresse des Modem-Steuer-Registers &#40;Offset 4&#41;


'Bit3 &#40;MasterInterrupt&#41; setzen; alle anderen Bits loeschen
'&#40;erm”glicht Zugang zum COM-Port unter Win95/98&#41;&#58;
OUT MSR%, 8

DO WHILE INKEY$ = ""
 OUT &#40;DFR%&#41;, INP&#40;DFR%&#41; OR 64    'Bit 6 &#40;Wert 64&#41; setzen     = TxD
 OUT &#40;MSR%&#41;, INP&#40;MSR%&#41; AND 252  'Bit 0+1 &#40;Wert 1+2&#41; l”schen = DTR+RTS
 LOCATE 12, 45&#58; PRINT "1"
 LOCATE 13, 45&#58; PRINT "0"
 LOCATE 14, 45&#58; PRINT "0"
 SLEEP 1
 OUT &#40;DFR%&#41;, INP&#40;DFR%&#41; AND 191  'Bit 6 &#40;Wert 64&#41; l”schen    = TxD
 OUT &#40;MSR%&#41;, INP&#40;MSR%&#41; OR 3     'Bit 0+1 &#40;Wert 1+2&#41; setzen  = DTR+RTS
 LOCATE 12, 45&#58; PRINT "0"
 LOCATE 13, 45&#58; PRINT "1"
 LOCATE 14, 45&#58; PRINT "1"
 SLEEP 1
LOOP

Code: Select all

#include <fcntl.h>
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

int main &#40;int argc, char* argv&#91;&#93;&#41;
&#123;
  int fd,i;
  
  /* 1. seriellen Port öffnen */
  fd=open&#40;"/dev/ttyS0",O_RDWR&#41;;

  /* 10 mal */
  for &#40;i=0;i<10;i++&#41;
  &#123;
    /* DTR an, schlafen */
    ioctl&#40;fd, TIOCMBIS, TIOCM_DTR&#41;
    sleep&#40;1&#41;;

    /* DTR aus, schlafen */
    ioctl&#40;fd, TIOCMBIC, TIOCM_DTR&#41;
    sleep&#40;1&#41;;
  &#125;

  /* Port schließen, Ende */
  close&#40;fd&#41;;
  return 0;
&#125;