home *** CD-ROM | disk | FTP | other *** search
/ WDR Computer Club Digital 1996 June / CLUB_0696.BIN / ir / lptstat.pas < prev    next >
Pascal/Delphi Source File  |  1996-03-05  |  1KB  |  39 lines
  1. USES CRT,DOS;
  2. VAR i:BYTE;
  3.  
  4.  
  5. BEGIN
  6. TEXTBACKGROUND(WHITE);
  7. CLRSCR;
  8. TEXTCOLOR(BLACK);
  9. GOTOXY(5,5);WRITE(' Statusregister (Basisadresse+1) ');
  10. GOTOXY(5,13);WRITE(' Steuerregister (Basisadresse+2) ');
  11.  
  12. TEXTCOLOR(WHITE);
  13. GOTOXY(5,7);WRITE(' BIT 3  /ERROR         (nicht invert.)    :');
  14. GOTOXY(5,8);WRITE(' BIT 4  ONLINE(SELECT) (nicht invert.)    :');
  15. GOTOXY(5,9);WRITE(' BIT 5  PE             (nicht invert.)    :');
  16. GOTOXY(5,10);WRITE(' BIT 6  /ACKNOLAGE     (nicht invert.)    :');
  17. GOTOXY(5,11);WRITE(' BIT 7  BUSY           (invertiert)       :');
  18. GOTOXY(5,15);WRITE(' BIT 0  /STROBE        (invertiert)       :');
  19. GOTOXY(5,16);WRITE(' BIT 1  /AUTOLINEFEED  (invertiert)       :');
  20. GOTOXY(5,17);WRITE(' BIT 2  /INIT          (nicht invert.)    :');
  21. GOTOXY(5,18);WRITE(' BIT 3  /SELECT        (invertiert)       :');
  22. GOTOXY(5,19);WRITE(' BIT 4  enable IRQ     (nicht invert.)    :');
  23. GOTOXY(5,20);WRITE(' BIT 5  enable OUT     (nicht invert.)    :');
  24. REPEAT
  25.  TEXTCOLOR(BLUE);
  26.  FOR i:=3 TO 7
  27.  DO BEGIN
  28.      GOTOXY(52,4+i);
  29.      IF port[$378+1] SHR i MOD 2=1 THEN WRITE('aktiv ')
  30.                                    ELSE WRITE('passiv');
  31.  END;
  32.  FOR i:=0 TO 5
  33.  DO BEGIN
  34.      GOTOXY(52,15+i);
  35.      IF port[$378+2] SHR i MOD 2=1 THEN WRITE('aktiv ')
  36.                                    ELSE WRITE('passiv');
  37.  END;
  38. until keypressed;
  39. END.