Question about which tools to use, bugs, the best way to implement a function, etc should go here. Don't forget to see if your question is answered in the wiki first! When in doubt post here.
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Mon Jan 31, 2022 3:19 am
The procedure does not run when a key is pressed on the keyboard
Code: Select all
procedure Main(); stdcall;
begin
cls(0);
WriteStr(0,0,'Hello World',4);
init_idt;
init_pic;
init_timer(100);
asm
sti
end;
LIST('/'); // <----- Floppy Read List ok
FloppyReset(0);
While True do
begin
end;
end;
procedure keyboard_callback();
var
Scancode:byte;
begin
if (ReadPortB($64) and $1)=1 then
begin
Scancode:=ReadPortB($60);
case Scancode of
2:begin
LIST('/'); // <----- Floppy Read List error
end;
end;
end;
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Mon Jan 31, 2022 3:30 am
Code: Select all
const
PIC1 = $20;
PIC2 = $A0;
ICW1 = $11;
ICW4 = $01;
type
TDWORD = record
case Byte of
0:(Value32:DWORD);
1:(LoWord, HiWord: WORD);
end;
TIDTEntry = packed record
base_low : WORD;
selector : WORD;
always_0 : BYTE;
flags : BYTE;
base_high : WORD;
end;
TIDTPtr = packed record
limit : word;
base : LongWord;
end;
var
IDTTables : array[0..255] of TIDTEntry;
IDTPtr : TIDTPtr;
procedure setup_int(Number : Byte; Base : TDWord; Selector : Word; Flags : Byte); forward;
procedure init_idt; forward;
procedure init_pic; forward;
procedure keys_isr(); register; assembler;
asm
pushad
push gs
push fs
push es
push ds
call keyboard_callback
mov dx, $20
mov al, $20
out dx, al
pop ds
pop es
pop fs
pop gs
popad
iretd
end;
procedure timer_isr(); register; assembler;
asm
pushad
push gs
push fs
push es
push ds
call TimerHandler
mov dx, $20
mov al, $20
out dx, al
pop ds
pop es
pop fs
pop gs
popad
iretd
end;
procedure floppy_isr(); register; assembler;
asm
pushad
push gs
push fs
push es
push ds
call FloppyHandler
mov dx, $20
mov al, $20
out dx, al
pop ds
pop es
pop fs
pop gs
popad
iretd
end;
procedure unknown_interrupt_isr(); register; assembler;
asm
pushad
push gs
push fs
push es
push ds
mov dx, $20
mov al, $20
out dx, al
pop ds
pop es
pop fs
pop gs
popad
iretd
end;
procedure setup_int(Number : Byte; Base : TDWord; Selector : Word; Flags : Byte);
begin
IDTTables[Number].base_high:= Base.HiWord;
IDTTables[Number].base_low:= (Base.LoWord ); // and $0000FFFF
IDTTables[Number].selector:= Selector;
IDTTables[Number].flags:= Flags;
IDTTables[Number].always_0:= $00;
end;
procedure Init_idt;
var
i:integer;
begin
for i:=0 to 255 do
begin
setup_int(i, TDWord(@unknown_interrupt_isr), $08,$8E);
end;
setup_int(32, TDWORD(@timer_isr), $08,$8E);
setup_int(33, TDWORD(@keys_isr), $08,$8E);
setup_int(38, TDWORD(@floppy_isr), $08,$8E);
IDTPtr.limit := (SizeOf(TIDTEntry)*256)-1;
IDTPtr.base := DWord(@IDTTables);
asm
lidt [IDTPtr]
end;
end;
procedure init_pic;
begin
WritePortB(PIC1, ICW1);
WritePortB(PIC2, ICW1);
WritePortB(PIC1 + 1, pic1);
WritePortB(PIC2 + 1, pic2);
WritePortB(PIC1 + 1, 4);
WritePortB(PIC2 + 1, 2);
WritePortB(PIC1 + 1, ICW4);
WritePortB(PIC2 + 1, ICW4);
WritePortB(PIC1 + 1, 0);
WritePortB(PIC2 + 1, 0);
end;
Klakap
Member
Posts: 297 Joined: Sat Mar 10, 2018 10:16 am
Post
by Klakap Mon Jan 31, 2022 10:30 am
Are you in real or in protected mode? If you use GRUB, did you already set your own GDT table?
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Mon Jan 31, 2022 10:42 am
GDT ok, the program works fine on qemu, virtualbox and real pc. but when I press a key on the keyboard, normal functions are ok but IRQ0 time delay or floppy IRQ6 LIST('/'); not working.
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Mon Jan 31, 2022 10:47 am
While do <<<---- OK
Code: Select all
procedure Main(); stdcall;
begin
cls(0);
WriteStr(0,0,'Hello World',4);
init_idt;
// init_pic;
init_timer(100);
asm
sti
end;
LIST('/'); // <----- List ok
FloppyReset(0);
While True do
begin
keyboard_callback(); //<---- List OK
end;
end;
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Mon Jan 31, 2022 10:51 am
IRQ1
Octocontrabass
Member
Posts: 5563 Joined: Mon Mar 25, 2013 7:01 pm
Post
by Octocontrabass Mon Jan 31, 2022 10:53 am
If you run your code in QEMU with "-d int", which interrupts appear in the log?
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Mon Jan 31, 2022 12:24 pm
SMM: enter
Octocontrabass
Member
Posts: 5563 Joined: Mon Mar 25, 2013 7:01 pm
Post
by Octocontrabass Mon Jan 31, 2022 12:43 pm
Looks like you're receiving at least one keyboard interrupt. Where's the rest of the log?
Octocontrabass
Member
Posts: 5563 Joined: Mon Mar 25, 2013 7:01 pm
Post
by Octocontrabass Mon Jan 31, 2022 1:50 pm
There are floppy disk and keyboard IRQs in your log, so those seem to be working fine. Which key are you pressing? It looks like your keyboard handler only responds to one specific scan code.
ekremkocak
Posts: 20 Joined: Sat Feb 21, 2015 10:39 am
Post
by ekremkocak Wed Feb 02, 2022 3:14 am
When a function is called from IRQ1 on IRQ6 or IRQ0, it goes into an infinite loop.
Octocontrabass
Member
Posts: 5563 Joined: Mon Mar 25, 2013 7:01 pm
Post
by Octocontrabass Wed Feb 02, 2022 11:14 am
Does your compiler know those variables are changed by the IRQ handler? By default, the compiler assumes interrupt handlers will not modify any variables, so the loops you wrote can be optimized into infinite loops.
