keyboardhandler(var r:regs);scancode:byte;c:char;beginif readportb($64) and 32=0 then begin handleMouse;end;scancode=ReadPortb($60);if scancode and $80)=0 then begin //keypressed case scancode of . . . end; //case while readportb($64) and 1=0 do begin //wait to clear buffer DisableInterrupts; toggleLEDs; EnableInterrupts; end; c:=keymap[scancode]; //keymap has to be set, you can look online for these case c of #0:begin // function keys doSomething; end; end else begin //not a function key writechar(ch); end; //case end; //if we get here, key is released //put the released keycode info here end;
It looks like you're new here. If you want to get involved, click one of these buttons!