Power-Programmierung/CD1.mdf/fortran/mslang/f32int/int86qq.fi

Text File | 1993-06-24 | 3.4 KB | 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