Koodit: QB: DOSin funktioiden kutsuminen Quick Basic -ohjelmasta

***Koodi
' Esimerkki DOS-funktioiden käytöstä.
' Saa muokata ja käyttää miten huvittaa.
'  -fawkz <_____@luukku.com>

DECLARE SUB DOSPrint (t AS STRING)

TYPE RegType      ' RegType määrittelee 8086 koneiden rekisterit
   AX AS INTEGER  ' Mukana ei tosin ole 386-koneista lähtien olleita
   BX AS INTEGER  ' 32-bittisiä rekisterejä: EAX, EBX, jne.
   CX AS INTEGER
   DX AS INTEGER
   BP AS INTEGER
   SI AS INTEGER
   DI AS INTEGER
   FLAGS AS INTEGER
   DS AS INTEGER
   ES AS INTEGER
END TYPE

' Huom! DOS tulkitsee, että teksti loppuu $-merkkiin, lisäksi
' tarvitsemme vaununpalautuksen ja rivinvaihdon (carriage return ja
' line feed), eli CHR$(13) + CHR$(10). DOSissa on monia käteviä
' funktioita, mm. muistin varaaminen, jne.
' Huono puoli Quick Basicin CALL INTERRUPT:issa on, että sillä
' ei voi erikseen käsitellä esim. AX:n vähiten- tai eniten
' merkitsevää tavua kuten yleensä.. mutta sen kanssa on vain
' elettävä :)

DOSPrint "Piupau sano kiinalainen" + CHR$(13) + CHR$(10) + "$"

END

SUB DOSPrint (t AS STRING)
   DIM i AS RegType  ' funktiolle menevät rekisteriarvot (input)
   DIM o AS RegType  ' funktiolta tulevat rekisteriarvot (output)

   i.AX = &H900      ' AH = 09h (dos funktio tekstin ulostamiseen ;)
   i.DX = SADD(t)

   CALL INTERRUPT(&H21, i, o)
END SUB