From 96aaad4e6eb602b42aac665ca3983fc4ff8b9a43 Mon Sep 17 00:00:00 2001 From: aaron Date: Wed, 17 May 2017 12:51:41 +0000 Subject: [PATCH] git-svn-id: https://spexeah.com:8443/svn/Asuro@48 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c --- src/drivers/isr33.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/drivers/isr33.pas b/src/drivers/isr33.pas index 30254a50..98ab7131 100644 --- a/src/drivers/isr33.pas +++ b/src/drivers/isr33.pas @@ -8,10 +8,10 @@ uses IDT; type - pp_int : procedure(byte); + pp_byte : procedure(byte); var - procedure_ptr : pp_int = nil; + procedure_ptr : pp_byte = nil; procedure register(); @@ -20,7 +20,7 @@ implementation procedure Main; interrupt; //IRQ1, Keyboard Interrupt begin CLI; - if(procedure_ptr <> nil) tehn begin + if(procedure_ptr <> nil) then begin procedure_ptr(inb($60)); end; outb($0020, $20);