home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
fortran
/
mslang
/
f32int
/
int86qq.fi
< prev
next >
Wrap
Text File
|
1993-06-24
|
3KB
|
134 lines
C -----------------------------------------------------------------
C INT86QQ support.
C -----------------------------------------------------------------
INTERFACE TO SUBROUTINE INT86QQ[stdcall,alias:'_INT86QQ@12']
+(INTNUM, REGS1, REGS2)
STRUCTURE /REGS$DWORD/
INTEGER*4 EAX
INTEGER*4 EBX
INTEGER*4 ECX
INTEGER*4 EDX
INTEGER*4 ESI
INTEGER*4 EDI
END STRUCTURE
STRUCTURE /REGS$WORD/
INTEGER*2 AX
INTEGER*2 DUMMY0I2
INTEGER*2 BX
INTEGER*2 DUMMY1I2
INTEGER*2 CX
INTEGER*2 DUMMY2I2
INTEGER*2 DX
INTEGER*2 DUMMY3I2
INTEGER*2 SI
INTEGER*2 DUMMY4I2
INTEGER*2 DI
INTEGER*2 DUMMY5I2
INTEGER*2 CFLAG
END STRUCTURE
STRUCTURE /REGS$BYTE/
INTEGER*1 AL
INTEGER*1 AH
INTEGER*1 DUMMY0I1
INTEGER*1 DUMMY1I1
INTEGER*1 BL
INTEGER*1 BH
INTEGER*1 DUMMY2I1
INTEGER*1 DUMMY3I1
INTEGER*1 CL
INTEGER*1 CH
INTEGER*1 DUMMY4I1
INTEGER*1 DUMMY5I1
INTEGER*1 DL
INTEGER*1 DH
END STRUCTURE
STRUCTURE /REGS$INFO/
UNION
MAP
RECORD /REGS$DWORD/ DWREGS
END MAP
MAP
RECORD /REGS$WORD/ WREGS
END MAP
MAP
RECORD /REGS$BYTE/ BREGS
END MAP
END UNION
END STRUCTURE
INTEGER*2 INTNUM [value]
RECORD /REGS$INFO/ REGS1[reference]
RECORD /REGS$INFO/ REGS2[reference]
END
INTERFACE TO SUBROUTINE INT86XQQ[stdcall,alias:'_INT86XQQ@16']
+(INTNUM, SEGREGS, REGS1, REGS2)
STRUCTURE /REGS$DWORD/
INTEGER*4 EAX
INTEGER*4 EBX
INTEGER*4 ECX
INTEGER*4 EDX
INTEGER*4 ESI
INTEGER*4 EDI
END STRUCTURE
STRUCTURE /REGS$WORD/
INTEGER*2 AX
INTEGER*2 DUMMY0I2
INTEGER*2 BX
INTEGER*2 DUMMY1I2
INTEGER*2 CX
INTEGER*2 DUMMY2I2
INTEGER*2 DX
INTEGER*2 DUMMY3I2
INTEGER*2 SI
INTEGER*2 DUMMY4I2
INTEGER*2 DI
INTEGER*2 DUMMY5I2
INTEGER*2 CFLAG
END STRUCTURE
STRUCTURE /REGS$BYTE/
INTEGER*1 AL
INTEGER*1 AH
INTEGER*1 DUMMY0I1
INTEGER*1 DUMMY1I1
INTEGER*1 BL
INTEGER*1 BH
INTEGER*1 DUMMY2I1
INTEGER*1 DUMMY3I1
INTEGER*1 CL
INTEGER*1 CH
INTEGER*1 DUMMY4I1
INTEGER*1 DUMMY5I1
INTEGER*1 DL
INTEGER*1 DH
END STRUCTURE
STRUCTURE /REGS$INFO/
UNION
MAP
RECORD /REGS$DWORD/ DWREGS
END MAP
MAP
RECORD /REGS$WORD/ WREGS
END MAP
MAP
RECORD /REGS$BYTE/ BREGS
END MAP
END UNION
END STRUCTURE
STRUCTURE /SREGS$INFO/
INTEGER*2 DS
INTEGER*2 ES
INTEGER*2 FS
INTEGER*2 GS
END STRUCTURE
INTEGER*2 INTNUM [value]
RECORD /REGS$INFO/ REGS1[reference]
RECORD /REGS$INFO/ REGS2[reference]
RECORD /SREGS$INFO/ SEGREGS[reference]
END
INTERFACE TO INTEGER*4 FUNCTION PM2MS_DOS[stdcall,alias:
+'_PM2MS_DOS@8'] (IADD,ILEN)
INTEGER*4 IADD [VALUE]
INTEGER*4 ILEN [VALUE]
END