Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

56 lines (46 sloc) 1.222 kB
REM $INCLUDE: 'x86.bi'
'***
' QB.BI - Assembly Support Include File
'
' Copyright <C> 1987 Microsoft Corporation
'
' Purpose:
' This include file defines the types and gives the DECLARE
' statements for the assembly language routines ABSOLUTE,
' INTERRUPT, INTERRUPTX, INT86OLD, and INT86XOLD.
'
'***************************************************************************
'
' Define the type needed for INTERRUPT
'
TYPE RegType
axx AS INTEGER
bxx AS INTEGER
cxx AS INTEGER
dxx AS INTEGER
bpp AS INTEGER
sii AS INTEGER
dii AS INTEGER
flagss AS INTEGER
END TYPE
'
'
' Generate a software interrupt, loading all but the segment registers
'
DECLARE SUB INTERRUPT (intnum AS INTEGER, inreg AS RegType, outreg AS RegType)
'
' Generate a software interrupt, loading all registers
'
'
' Call a routine at an absolute address.
' NOTE: If the routine called takes parameters, then they will have to
SUB STUFF (Z$)
DIM passreg AS RegType
DIM dummyreg AS RegType
LET N = LEN(Z$)
FOR K = 1 TO N
LET passreg.axx = &H500
LET passreg.cxx = ASC(MID$(Z$, K, 1))
CALL INTERRUPT(&H16, passreg, dummyreg)
NEXT
END SUB
Jump to Line
Something went wrong with that request. Please try again.