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

Text File | 1993-06-24 | 1.5 KB | 63 lines

C -----------------------------------------------------------------
C INTDOS32QQ support.
C -----------------------------------------------------------------
      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