Groups | Search | Server Info | Login | Register

Groups > comp.lang.pascal.borland > #177

Re: Writing an intterupt procedure: info needed

Show all headers | View raw

Ruud,

I can send you LIBR.PAS
which contains some INT routines
to get DATE TIME, etc.

Shalom
Dwayne

On Sunday, June 1, 2014 6:53:34 AM UTC-6, Ruud Baltissen wrote:
> Hallo allemaal,
> 
> 
> 
> 
> 
> Linux is mainly written in C. So I wanted to write an OS written in Turbo pascal. Just for fun and to see if it could be done at all. To be honest, I was suprised how quickly I could manage to get 'A:\>' on the screen.
> 
> 
> 
> But to the subject. I need to implement the DOS routines, INT $21, the routines that handles commands like VER, TIME and DATE. One way I can do it is in assembler like:
> 
> 
> 
> 
> 
> procedure INT21; assembler;
> 
> asm
> 
>   cmp  ah,30h       { get the DOS version}
> 
>   jne  @next
> 
> 
> 
>   call DosVersion
> 
>   jmp  @end
> 
> 
> 
> @next:
> 
>   .....
> 
> 
> 
> @end:
> 
>   iret
> 
> end; 
> 
> 
> 
> 
> 
> But I prefer an all Turbo Pascal solution, thus:
> 
> 
> 
> 
> 
> {$F+}
> 
> procedure INT21; interrupt;
> 
> begin
> 
>   .....
> 
> end;
> 
> {$F-}
> 
> 
> 
> 
> 
> As you can see, just dots. I need to check AH in one or anothe way and I have no idea how. Using REGISTERS doesn't work, I tried in various ways. So how can I check the value of register AH (and all the others of course)?
> 
> 
> 
> Thank you in advance!
> 
> 
> 
> 
> 
> Kind regards, Ruud Baltissen
> 
> www.Baltissen.org

Back to comp.lang.pascal.borland | Previous | Next — Previous in thread | Find similar

Thread

Writing an intterupt procedure: info needed Ruud Baltissen <rbaltissen@gmail.com> - 2014-06-01 05:53 -0700
  Re: Writing an intterupt procedure: info needed Dwayne <dwjozo@gmail.com> - 2014-06-03 09:08 -0700

csiph-web