🚀 go-pugleaf

Ik ben ergens in een oud tijdschrift iets interessants tegengekomen, een 
programmatje om via je gameport weerstanden te meten.
Probleem is hetvolgende, programma is geschreven voor Turbo Pascal en 
graag had ik een windowsapplicatie gehad, ben ik verkeerd en kan dit niet 
met Turbo Pascal.
Hieronder vind je de Source, misschien kan iemand me helpen om dit om te 
zetten in c++, zelf heb ik niet veel kaas gegeten van het programmeren.

Alvast bedankt.

Listing 1:
; GCR.ASM Game port Counter Routine
; **********************************
DATA     SEGMENT
EXTRN    COUNTLIMIT:WORD
DATA     ENDS
CODE     SEGMENT
         ASSUME    CS: CODE, DS: DATA
PUBLIC   COUNT
COUNT               PROC      FAR
         PUSH       BP             ;SAVE BASE POINTER
         MOV        BP,SP          ;LOAD STACK POINTER
         MOV        SI,COUNTLIMIT  ;LOAD COUNTER LIMIT VALUE
         MOV        DX,201H        ;LOAD GAME PORT ADDRESS
         MOV        BL,[BP+06]     ;LOAD SELECT-VALUE MMV
         MOV        CX,00H         ;COUNT:=0
         CLI                       ;CLEAR INTERRUPT ENABLE FLAG
         MOV        AL,00H         ;TRIGGER ALL MMV
         OUT        DX,AL
WHILE:   IN         AL,DX          ;WHILE OUTPUT SELECTED MMV NOT EQUAL 0
         AND        AL,BL
         JZ         EWHILE
         CMP        CX,SI          ;AND COUNT < > COUNT LIMIT
         JE         EWHILE
DO:      INC        CX             ;COUNT:=COUNT+1;
         JMP        WHILE
EWHILE:  STI                       ;SET INTERRUPT ENABLE FLAG
         MOV        AX,CX          ;PASS COUNT TO PASCAL
         POP        BP             ;RESTORE BASE POINTER
         RET        4              ;RETURN TO PASCAL
         COUNT      ENDP
CODE ENDS
END


Listing 2:
{$F+,R-]}
PROGRAM RGAME(INPUT,OUTPUT);
(**************************)
(* ELEKTOR 30-03-90 V1.0/JR *)
USES CRT;
VAR CNT,R,M   : INTEGER; 
    COUNTLIMIT: WORD;
    C102K2    : INTEGER;
{$L GCR)}
FUNCTION COUNT(MMV:INTEGER):INTEGER; EXTERNAL;
(********************************************)
BEGIN
  CLRSCR;
  COUNTLIMIT:=MAXINT;
  C102K2:=COUNT(1);
  IF C102K2=COUNTLIMIT
    THEN
      BEGIN
        WRITELN('ERROR: Game-Karte, Schalter und R5 kontrollieren');
        DELAY(2000);
      END
    ELSE
      BEGIN
        COUNTLIMIT:=2*C102K2;
        REPEAT
        M:=1;
        FOR R:=1 TO 4 DO
        BEGIN
          CNT:=COUNT(M);
          IF CNT=COUNTLIMIT
            THEN WRITE('R',R,'  Me�bereich �berschritten ')
            ELSE WRITE('R',R,'  ',ROUND(CNT/C102K2*102.2-2.2):3,'K      
');
            GOTOXY(30,R); WRITELN('Z�hler ',CNT:4,'  ');
            M:=M SHL 1;
        END;
        DELAY(750); GOTOXY(1,1);
        UNTIL KEYPRESSED;
        CLRSCR;
      END;
END.

-- 
Mvg
Sumo_Negro
Men moet denken als een held 
om zich als een gewoon fatsoenlijk mens te gedragen.