home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / amiga / m2amiga.4 < prev    next >
Encoding:
Text File  |  1988-02-17  |  1.9 KB  |  88 lines
  1.  
  2. MODULE TestPortIO;
  3.  
  4. (* Testprozeduren, um die Fuktion des Moduls RightControlPortIO    
  5.    nachzuweisen
  6. *)
  7. FROM RightControlPortIO IMPORT
  8.                  CancelPotGoAccess, Level, WriteToPin6, ReadFromPin6,
  9.                  WriteToPotPin, ReadFromPotPin, PotPinNumbers,
  10.                  ReadJoystick, JoyPinNumbers, RightPotgoOpen;
  11. FROM Terminal IMPORT
  12.                  Read, WriteString;
  13.  
  14.  
  15. PROCEDURE TestPin6;
  16.  
  17. VAR Count : CARDINAL;
  18.  
  19. PROCEDURE LevelAusgeben;
  20. BEGIN
  21.    IF ReadFromPin6() = High THEN
  22.       WriteString("High")
  23.    ELSE
  24.       WriteString("Low")
  25.    END
  26. END LevelAusgeben;
  27.  
  28. BEGIN
  29.    FOR Count := 1 TO 10 DO
  30.       WriteToPin6(High);
  31.       LevelAusgeben;
  32.       WriteToPin6(Low);
  33.       LevelAusgeben;
  34.    END;
  35. END TestPin6;
  36.  
  37. PROCEDURE PotGoTest;
  38. VAR  Weiter   : CHAR;
  39.  
  40. BEGIN
  41.    WriteToPotPin(R5, High);
  42.    Read(Weiter);
  43.    WriteToPotPin(R5, Low);
  44.    Read(Weiter);
  45.    (* fuer den weiteren Test ist Pin 5 ggf. mit Masse zu verbinden,
  46.       da active low *)
  47.    IF (ReadFromPotPin(R5) = High) THEN
  48.       WriteString("High")
  49.    ELSE
  50.       WriteString("Low");
  51.    END; 
  52. END PotGoTest;
  53.  
  54. PROCEDURE JoyTest;
  55.                    (* Abbruch mit CTRL-C waere auch moeglich *)
  56. BEGIN
  57. WriteString("Ausstieg mit FIRE BUTTON");
  58. LOOP
  59.    IF (ReadJoystick(R1) = High) THEN
  60.       WriteString("Forw ");
  61.    END;     
  62.  
  63.    IF (ReadJoystick(R2) = High) THEN
  64.      WriteString("Back ")
  65.    END;     
  66.  
  67.    IF (ReadJoystick(R3) = High) THEN
  68.      WriteString("Left ")
  69.    END;     
  70.  
  71.    IF (ReadJoystick(R4) = High) THEN
  72.      WriteString("Right ")
  73.    END;
  74.    IF (ReadFromPin6() = Low) THEN
  75.       EXIT
  76.    END;
  77. END;     
  78. END JoyTest;
  79.  
  80. BEGIN
  81.   CancelPotGoAccess;(* muss stets enthalten sein, um PotgoResource an 
  82.                        das System zurueckzugeben *)
  83.   JoyTest; (* Aufruf einer der Testprozeduren *)
  84. END TestPortIO.
  85.  
  86.  
  87. Listing 4
  88.