Hallo

(win98 borland 5.0)
kann mir jemand bei meinen quelltext helfen ich kann mir nicht erklären warum er nicht funktioniert (meine leds leuchten nicht)
es ist eine einfache ampelsteuerung die leds über den lpt ansteuert

grüne led
gelbe led
rote led
gelbe und rote led
enlosschleife

ich habe den quelltext aus einen Buch rausgeschrieben
bei dem Buch ist auch eine fertige exe bei die funktioniert

Code:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <time.h>
#include <conio.h>
#define Par_Ss 0x378
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//==============================================
void warten(int);
//==============================================
void outp (unsigned int portadr, unsigned char value)
{
 _asm mov edx,portadr
 _asm mov al, value
 _asm out dx,al
}

unsigned char inportb(unsigned int portadr)
{
 unsigned char value;
 _asm mov edx,portadr
 _asm mov al,value
 _asm out dx,al
}
//==============================================
 void main (void)
  {
 while (!kbhit())
  {
   outp(Par_Ss,1);
   warten(1000);

   outp(Par_Ss,2);
   warten(1000);

   outp(Par_Ss,4);
   warten(1000);

   outp(Par_Ss,6);
   warten(1000);
   }
}
//==============================================
void warten(int zeit)
{
 int a;
 a = clock() ;
 while(clock() - a < zeit);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
mfg flo