//##############################################################################
procedure MRQ(Status: Boolean);  // Setzt die MRQ Leitung auf HIGH bzw
LOW
begin                            // ARGUMENTE: Status: "High"/"Low"
  if Status = High then//Wenn Status LOW werden soll
    begin
      hPortStatus := hPortstatus or 4;
      asm
        mov dx, 378h
        mov al, hPortStatus
        out dx, al
      end;
    end
  else                //Wenn Status HIGH werden soll
    begin
      if hPortstatus and 4 = 4 then  //Nur wenn Ist-Zustand High...
        begin
          hPortstatus := hPortstatus - 4;  //...auf low setzen
          asm
            mov dx, 378h
            mov al, hPortStatus
            out dx, al
          end;
        end;
    end;
end;

Function MRQ(ByVal Status As Boolean)
'Setzt die MRQ Leitung auf HIGH bzw LOW
        If Status = High Then 'Wenn Status LOW werden soll
           hPortStatus = hPortstatus or 4;
            'asm()
            'mov dx, 378h
            'mov(al, hPortStatus)
            'out(dx, al)
        Else         'Wenn Status HIGH werden soll
            If hPortStatus And 4 = 4 Then  'Nur wenn Ist-Zustand High...
                       hPortstatus = hPortstatus - 4;  '...auf low setzen
 
                ' asm()
                'mov dx, 378h
                '   mov(al, hPortStatus)
                '  out(dx, al)
            End If
        End If
    End Function