Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Arvostele pelit
15.8. klo 12 mennessä!

Keskustelu: Koodit näytille: QB: Porttien haku

Sivu 1 / 1

sooda [31.10.2003 17:22:51]

#

Hakee lpt- ja sarjaporttien osoitteet muistista. Hyvin kätevä jos on joku uus kone joka ei noudata standardeja(esim lpt1=378h) niinkuin kaverini asus jossa on ihan IHME osoitteet...

CLS
FOR lpt = 1 TO 3 'lpt portteja voi olla max 3kpl (vai onks niitä kaks? en tiiä... luulen näin
    DEF SEG = 0 'alimuistiin
    a = &H408 + 2 * (lpt - 1) 'lasketaan osoite mist löytyy osoitteet
    lsbaddr = PEEK(a) 'yks osa osoitetta
    msbaddr = PEEK(a + 1) 'toinen osa osoitetta
    addr = lsbaddr + &H100 * msbaddr 'lasketaan osoite
    DEF SEG 'takasin kotiin
    IF addr = 0 THEN EXIT FOR 'loppuks portit?
    PRINT "LPT portti #"; lpt; ": "; HEX$(addr) 'kerro mikä osoite
NEXT

FOR ser = 1 TO 4 'sarjaportteja voi olla jopa neljä
    DEF SEG = 0 'alimuistiin
    a = &H400 + 2 * (ser - 1) 'lasketaan osoite mist löytyy osoitteet
    lsbaddr = PEEK(a)'yks osa osoitetta
    msbaddr = PEEK(a + 1)'toinen osa osoitetta
    addr = lsbaddr + &H100 * msbaddr 'lasketaan osoite
    DEF SEG 'takasin kotiin taas
    IF addr = 0 THEN EXIT FOR 'loppuiks jo?
    PRINT "Sarjaportti #"; ser; ": "; HEX$(addr) 'kerrotaan sullekin se osoite
NEXT

rndprogy [01.11.2003 14:53:51]

#

Tällästhän mä just tarvisinki! :D

rndprogy [01.11.2003 14:55:30]

#

Tai ainaki tän tapasta. Kirjotin äskesen ennen ku oli testannu.

sooda [02.11.2003 09:16:30]

#

Kiva että ees jollekin on hyötyä :P

rndprogy [16.11.2003 15:55:37]

#

Mitäpä tätä enää kommentoida mutta mä sain 8 lpt porttia ja 12 sarjaporttii.
ku mä laiton FOR ser = 1 TO 12
ja FOR lpt = 1 TO 8

sooda [19.12.2003 13:17:34]

#

rndprogy, niitä on vaan 3 ja 4 ja ne muut jota sä löydät on jotain ihan muuta.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta