Re: Help with calling Interrupts in MS BASIC PDS 7.1

From	Leo <ttdhead@gmail.com>
Newsgroups	comp.lang.basic.misc
Subject	Re: Help with calling Interrupts in MS BASIC PDS 7.1
Date	2013-04-02 22:07 +1100
Organization	A noiseless patient Spider
Message-ID	<kjedri$tv6$1@dont-email.me> (permalink)
References	(2 earlier) <kj4e52$jcv$1@dont-email.me> <kj4eb8$kkh$1@dont-email.me> <51564e72$0$6914$e4fe514c@news2.news.xs4all.nl> <kj6ovp$v59$1@dont-email.me> <5156ff4a$0$6879$e4fe514c@news2.news.xs4all.nl>

Show all headers | View raw

R.Wieser laid this down on his screen :
> Hello Leo,
>
>> Thanks for the help and interpretation/explanation of the DOCs.
>
> You're welcome.
>
> By the way, those docs (Ralf Browns interrupt list (or RBIL) for short)
> describes all interrupts and how they are used, often even by certain
> programs.  Its quite a "must have" when you are busy low-level programming.
>
> Regards,
> Rudy Wieser
>
>
> -- Origional message:
> Leo <ttdhead@gmail.com> schreef in berichtnieuws
> kj6ovp$v59$1@dont-email.me...
>> R.Wieser was thinking very hard :
>>> Leo,
>>> 
>>>> Thanks for that. I am now getting 5632 out of it. Is that
>>>> correct for DOSBox that hasn't had windows launched?
>>>> My reported DOS Version is 5.00.
>>> 
>>> As Karl mentioned, 5632 => &H1600.  Ralf Brown's (Excellent) interupt list
>>> says that if AL equals &H00 neither Windows 3.x enhanced mode nor
>>> Windows/386 2.x is running.
>>> 
>>>> I should also add, when I run Windows and run the code
>>>> from command.com under Windows 3.11, I get back 2819.
>>> 
>>> 2819 => &H0B03.  According to the docs, when AL is *not* &h00, &H01 or &H80
>>> than AL is major version, AH is minor version.  That means &H03,&H0B or 
>>> 3.11 decimal.  And that last result seems to be equal to the version of 
>>> Windows you're running.  In short, it looks to be O.K.
>>> 
>>> Regards,
>>> Rudy Wieser
>>> 
>>> 
>>> -- Origional message:
>>> Leo <ttdhead@gmail.com> schreef in berichtnieuws
>>> kj4eb8$kkh$1@dont-email.me...
>>>> Leo wrote on 3/30/2013 :
>>>>> R.Wieser wrote on 3/30/2013 :
>>>>>> Leo,
>>>>>> 
>>>>>>> I am trying to call Int 2F/AX=1600h
>>>>>> 
>>>>>> You're not, according to the below:
>>>>>> 
>>>>>>> inregs.ax = &H1000
>>>>>> 
>>>>>> Shouldn't that be &H1600 :-)
>>>>>> 
>>>>>> Regards,
>>>>>> Rudy Wieser
>>>>>> 
>>>>>> P.s.
>>>>>> I allmost missed it, as I somehow made the same number-conversion 
>>>>>> mistake you did. :-\ :-D
>>>>>> 
>>>>>> 
>>>>>> -- Origional message:
>>>>>> Leo <ttdhead@gmail.com> schreef in berichtnieuws
>>>>>> kj3shs$l5d$1@dont-email.me...
>>>>>>> I am trying to call Int 2F/AX=1600h in PDS running under DOSBOX. My
>>>>>>> code is:
>>>>>>> 
>>>>>>> REM $INCLUDE: 'qbx.bi'
>>>>>>> 
>>>>>>> DIM inregs AS RegTypeX
>>>>>>> DIM outregs AS RegTypeX
>>>>>>> 
>>>>>>> inregs.ax = &H1000
>>>>>>> 
>>>>>>> CALL interruptx(&H2F, inregs, outregs)
>>>>>>> 
>>>>>>> SELECT CASE outregs.ax
>>>>>>> CASE 0
>>>>>>> PRINT "Real Mode"
>>>>>>> 
>>>>>>> CASE &H10, &HFF
>>>>>>> PRINT "Windows/386 2.x running"
>>>>>>> CASE IS > 3
>>>>>>> PRINT "Windows 3.x is running"
>>>>>>> PRINT outregs.ax
>>>>>>> END SELECT
>>>>>>> 
>>>>>>> I am getting 4096 back. Can someone assist me with this please.
>>>>>>> 
>>>>>>> --
>>>>>>> ClassicVB Users Regroup! comp.lang.basic.visual.misc
>>>>>>> Free usenet access at http://www.eternal-september.org
>>>>> 
>>>>> Thanks for that. I am now getting 5632 out of it. Is that correct for
>>>>> DOSBox that hasn't had windows launched? My reported DOS Version is 5.00.
>>>> 
>>>> I should also add, when I run Windows and run the code from command.com
>>>> under Windows 3.11, I get back 2819.
>>>> 
>>>> --
>>>> ClassicVB Users Regroup! comp.lang.basic.visual.misc
>>>> Free usenet access at http://www.eternal-september.org
>> 
>> Thanks for the help and interpretation/explanation of the DOCs. I will
>> have a go at fixing my code and reply with my results to allow for
>> people to use this thread in the future as a reference.
>> 
>> --
>> ClassicVB Users Regroup! comp.lang.basic.visual.misc
>> Free usenet access at http://www.eternal-september.org

I should add I was using an HTML version of the RBIL, but wasn't 
completely understanding it.

Here is the code I talked about:
REM $INCLUDE: 'qbx.bi'

DECLARE SUB GetWindowsVersion (Major AS INTEGER, Minor AS INTEGER)

SUB GetWindowsVersion (Major AS INTEGER, Minor AS INTEGER)
DIM inregs AS RegTypeX
DIM outregs AS RegTypeX

inregs.ax = &H1600

CALL interruptx(&H2F, inregs, outregs)

SELECT CASE outregs.ax AND 255
	CASE &H0
		Major = 0
		Minor = 0
	CASE IS >= &H3
		Major = outregs.ax AND 255
		Minor = outregs.ax / 256
	CASE &HFF
		Major = 2
		Minor = 0

END SELECT

END SUB

-- 
ClassicVB Users Regroup! comp.lang.basic.visual.misc
Free usenet access at http://www.eternal-september.org

Back to comp.lang.basic.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-03-29 22:10 +1100
  Re: Help with calling Interrupts in MS BASIC PDS 7.1 "R.Wieser" <address@not.available> - 2013-03-29 15:00 +0100
    Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-03-30 03:10 +1100
      Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-03-30 03:14 +1100
        Re: Help with calling Interrupts in MS BASIC PDS 7.1 "R.Wieser" <address@not.available> - 2013-03-30 03:32 +0100
          Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-03-31 00:28 +1100
            Re: Help with calling Interrupts in MS BASIC PDS 7.1 "R.Wieser" <address@not.available> - 2013-03-30 16:06 +0100
              Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-04-02 22:07 +1100
                Re: Help with calling Interrupts in MS BASIC PDS 7.1 "R.Wieser" <address@not.available> - 2013-04-02 16:14 +0200
                Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-04-03 02:37 +1100
                Re: Help with calling Interrupts in MS BASIC PDS 7.1 "R.Wieser" <address@not.available> - 2013-04-02 23:41 +0200
                Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-04-03 09:39 +1100
                Re: Help with calling Interrupts in MS BASIC PDS 7.1 "R.Wieser" <address@not.available> - 2013-04-03 22:50 +0200
      Re: Help with calling Interrupts in MS BASIC PDS 7.1 Karl E. Peterson <karl@exmvps.org> - 2013-03-29 10:23 -0700
        Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-04-02 22:05 +1100
          Re: Help with calling Interrupts in MS BASIC PDS 7.1 Karl E. Peterson <karl@exmvps.org> - 2013-04-02 09:39 -0700
            Re: Help with calling Interrupts in MS BASIC PDS 7.1 Leo <ttdhead@gmail.com> - 2013-04-03 09:34 +1100

csiph-web