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-03 02:37 +1100
Organization	A noiseless patient Spider
Message-ID	<kjetmc$g9v$1@dont-email.me> (permalink)
References	(4 earlier) <51564e72$0$6914$e4fe514c@news2.news.xs4all.nl> <kj6ovp$v59$1@dont-email.me> <5156ff4a$0$6879$e4fe514c@news2.news.xs4all.nl> <kjedri$tv6$1@dont-email.me> <515ae789$0$6923$e4fe514c@news2.news.xs4all.nl>

Show all headers | View raw

R.Wieser brought next idea :
> Leo,
>
>> 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
>
> That won't quite work.  The "CASE IS >= &H3" includes the "CASE &HFF"
> condition, so it will never be executed. :-\
>
> Suggestion : Filter the "special" cases out (&H00, &H01 and &H80) and do the
> major and minor split of the rest in a "CASE ELSE".
>
The below code was written in my newsreader so may not be exact and 
plus I can't test for Windows/386 2.x since I don't have it.
So something like:
SELECT CASE outregs.ax AND 255
CASE &H80
'Don't do anything as I am not interested in XMS
CASE &H0
Major = 0
Minor = 0
CASE &HFF, &H1
Major = 2
Minor = 0
CASE ELSE
Major = outregs.ax AND 255
Minor = outregs.ax / 256
END SELECT

>
> Good ! :-)
>
>> but wasn't completely understanding it.
>
> You now do?   If not, don't hesitate to ask for clarification.
I understand it alot better now.

> Regards,
> Rudy Wieser
>
>
> -- Origional message:
>
> Leo <ttdhead@gmail.com> schreef in berichtnieuws
> kjedri$tv6$1@dont-email.me...
>> 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

-- 
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