bsedev.fi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 659 行 · 第 1/2 页

        integer  KBD_READ_NOWAIT
        parameter (KBD_READ_NOWAIT = '00008000'x)

        integer  SHIFT_REPORT_MODE
        parameter (SHIFT_REPORT_MODE = '00000001'x)

c$ifndef INCL_MOU

        integer  MOUSE_MOTION
        parameter (MOUSE_MOTION = '00000001'x)
        integer  MOUSE_MOTION_WITH_BN1_DOWN
        parameter (MOUSE_MOTION_WITH_BN1_DOWN = '00000002'x)
        integer  MOUSE_BN1_DOWN
        parameter (MOUSE_BN1_DOWN = '00000004'x)
        integer  MOUSE_MOTION_WITH_BN2_DOWN
        parameter (MOUSE_MOTION_WITH_BN2_DOWN = '00000008'x)
        integer  MOUSE_BN2_DOWN
        parameter (MOUSE_BN2_DOWN = '00000010'x)
        integer  MOUSE_MOTION_WITH_BN3_DOWN
        parameter (MOUSE_MOTION_WITH_BN3_DOWN = '00000020'x)
        integer  MOUSE_BN3_DOWN
        parameter (MOUSE_BN3_DOWN = '00000040'x)

        integer  MHK_BUTTON1
        parameter (MHK_BUTTON1 = '00000001'x)
        integer  MHK_BUTTON2
        parameter (MHK_BUTTON2 = '00000002'x)
        integer  MHK_BUTTON3
        parameter (MHK_BUTTON3 = '00000004'x)

        integer  MOU_NOWAIT
        parameter (MOU_NOWAIT = '00000000'x)
        integer  MOU_WAIT
        parameter (MOU_WAIT = '00000001'x)

c$endif

        integer  MHK_NO_HOTKEY
        parameter (MHK_NO_HOTKEY = '00000000'x)

        integer  MOUSE_QUEUEBUSY
        parameter (MOUSE_QUEUEBUSY = '00000001'x)
        integer  MOUSE_BLOCKREAD
        parameter (MOUSE_BLOCKREAD = '00000002'x)
        integer  MOUSE_FLUSH
        parameter (MOUSE_FLUSH = '00000004'x)
        integer  MOUSE_UNSUPPORTED_MODE
        parameter (MOUSE_UNSUPPORTED_MODE = '00000008'x)
        integer  MOUSE_DISABLED
        parameter (MOUSE_DISABLED = '00000100'x)
        integer  MOUSE_MICKEYS
        parameter (MOUSE_MICKEYS = '00000200'x)

        integer  PRINTER_TIMEOUT
        parameter (PRINTER_TIMEOUT = '00000001'x)
        integer  PRINTER_IO_ERROR
        parameter (PRINTER_IO_ERROR = '00000008'x)
        integer  PRINTER_SELECTED
        parameter (PRINTER_SELECTED = '00000010'x)
        integer  PRINTER_OUT_OF_PAPER
        parameter (PRINTER_OUT_OF_PAPER = '00000020'x)
        integer  PRINTER_ACKNOWLEDGED
        parameter (PRINTER_ACKNOWLEDGED = '00000040'x)
        integer  PRINTER_NOT_BUSY
        parameter (PRINTER_NOT_BUSY = '00000080'x)

        integer  MODE_DTR_CONTROL
        parameter (MODE_DTR_CONTROL = '00000001'x)
        integer  MODE_DTR_HANDSHAKE
        parameter (MODE_DTR_HANDSHAKE = '00000002'x)
        integer  MODE_CTS_HANDSHAKE
        parameter (MODE_CTS_HANDSHAKE = '00000008'x)
        integer  MODE_DSR_HANDSHAKE
        parameter (MODE_DSR_HANDSHAKE = '00000010'x)
        integer  MODE_DCD_HANDSHAKE
        parameter (MODE_DCD_HANDSHAKE = '00000020'x)
        integer  MODE_DSR_SENSITIVITY
        parameter (MODE_DSR_SENSITIVITY = '00000040'x)

        integer  MODE_AUTO_TRANSMIT
        parameter (MODE_AUTO_TRANSMIT = '00000001'x)
        integer  MODE_AUTO_RECEIVE
        parameter (MODE_AUTO_RECEIVE = '00000002'x)
        integer  MODE_ERROR_CHAR
        parameter (MODE_ERROR_CHAR = '00000004'x)
        integer  MODE_NULL_STRIPPING
        parameter (MODE_NULL_STRIPPING = '00000008'x)
        integer  MODE_BREAK_CHAR
        parameter (MODE_BREAK_CHAR = '00000010'x)
        integer  MODE_RTS_CONTROL
        parameter (MODE_RTS_CONTROL = '00000040'x)
        integer  MODE_RTS_HANDSHAKE
        parameter (MODE_RTS_HANDSHAKE = '00000080'x)
        integer  MODE_TRANSMIT_TOGGLE
        parameter (MODE_TRANSMIT_TOGGLE = '000000C0'x)

        integer  MODE_NO_WRITE_TIMEOUT
        parameter (MODE_NO_WRITE_TIMEOUT = '00000001'x)
        integer  MODE_READ_TIMEOUT
        parameter (MODE_READ_TIMEOUT = '00000002'x)
        integer  MODE_WAIT_READ_TIMEOUT
        parameter (MODE_WAIT_READ_TIMEOUT = '00000004'x)
        integer  MODE_NOWAIT_READ_TIMEOUT
        parameter (MODE_NOWAIT_READ_TIMEOUT = '00000006'x)

        structure /DCBINFO/
            integer*2 usWriteTimeout
            integer*2 usReadTimeout
            integer*1 fbCtlHndShake
            integer*1 fbFlowReplace
            integer*1 fbTimeout
            integer*1 bErrorReplacementChar
            integer*1 bBreakReplacementChar
            integer*1 bXONChar
            integer*1 bXOFFChar
        end structure

        structure /TRACKTABLE/
            integer*2 usSectorNumber
            integer*2 usSectorSize
        end structure

        structure /TRACKLAYOUT/
            integer*1 bCommand
            integer*2 usHead
            integer*2 usCylinder
            integer*2 usFirstSector
            integer*2 cSectors
            record /TRACKTABLE/ TrackTable(1)
        end structure

        integer  DEVTYPE_48TPI
        parameter (DEVTYPE_48TPI = '00000000'x)
        integer  DEVTYPE_96TPI
        parameter (DEVTYPE_96TPI = '00000001'x)
        integer  DEVTYPE_35
        parameter (DEVTYPE_35 = '00000002'x)
        integer  DEVTYPE_8SD
        parameter (DEVTYPE_8SD = '00000003'x)
        integer  DEVTYPE_8DD
        parameter (DEVTYPE_8DD = '00000004'x)
        integer  DEVTYPE_FIXED
        parameter (DEVTYPE_FIXED = '00000005'x)
        integer  DEVTYPE_TAPE
        parameter (DEVTYPE_TAPE = '00000006'x)
        integer  DEVTYPE_UNKNOWN
        parameter (DEVTYPE_UNKNOWN = '00000007'x)

        structure /BIOSPARAMETERBLOCK/
            integer*2 usBytesPerSector
            integer*1 bSectorsPerCluster
            integer*2 usReservedSectors
            integer*1 cFATs
            integer*2 cRootEntries
            integer*2 cSectors
            integer*1 bMedia
            integer*2 usSectorsPerFAT
            integer*2 usSectorsPerTrack
            integer*2 cHeads
            integer*4 cHiddenSectors
            integer*4 cLargeSectors
            integer*1 abReserved(6)
            integer*2 cCylinders
            integer*1 bDeviceType
            integer*2 fsDeviceAttr
        end structure

        structure /SCREENGROUP/
            integer*2 idScreenGrp
            integer*2 fTerminate
        end structure

        structure /FRAME/
            integer*1 bCharsPerLine
            integer*1 bLinesPerInch
        end structure

        structure /KBDTYPE/
            integer*2 usType
            integer*2 reserved1
            integer*2 reserved2
        end structure

        structure /LINECONTROL/
            integer*1 bDataBits
            integer*1 bParity
            integer*1 bStopBits
            integer*1 fTransBreak
        end structure

        integer  DTR_ON
        parameter (DTR_ON = '00000001'x)
        integer  RTS_ON
        parameter (RTS_ON = '00000002'x)

        integer  DTR_OFF
        parameter (DTR_OFF = '000000FE'x)
        integer  RTS_OFF
        parameter (RTS_OFF = '000000FD'x)

        structure /MODEMSTATUS/
            integer*1 fbModemOn
            integer*1 fbModemOff
        end structure

        structure /FORMATTABLE/
            integer*1 bCylinder
            integer*1 bHead
            integer*1 idSector
            integer*1 bBytesSector
        end structure

        structure /TRACKFORMAT/
            integer*1 bCommand
            integer*2 usHead
            integer*2 usCylinder
            integer*2 usReserved
            integer*2 cSectors
            record /FORMATTABLE/ FormatTable(1)
        end structure

        structure /RXQUEUE/
            integer*2 cch
            integer*2 cb
        end structure

        structure /DEVICEPARAMETERBLOCK/
            integer*2 reserved1
            integer*2 cCylinders
            integer*2 cHeads
            integer*2 cSectorsPerTrack
            integer*2 reserved2
            integer*2 reserved3
            integer*2 reserved4
            integer*2 reserved5
        end structure

        structure /PTRDRAWFUNCTION/
            integer*2 usReturnCode
            integer*4 pfnDraw
            integer*4 pchDataSeg
        end structure

        structure /PTRDRAWADDRESS/
            integer*2 reserved
            record /PTRDRAWFUNCTION/ ptrdfnc
        end structure

        structure /SHIFTSTATE/
            integer*2 fsState
            integer*1 fNLS
        end structure

        integer  RIGHTSHIFT
        parameter (RIGHTSHIFT = '00000001'x)
        integer  LEFTSHIFT
        parameter (LEFTSHIFT = '00000002'x)
        integer  CONTROL
        parameter (CONTROL = '00000004'x)
        integer  ALT
        parameter (ALT = '00000008'x)
        integer  SCROLLLOCK_ON
        parameter (SCROLLLOCK_ON = '00000010'x)
        integer  NUMLOCK_ON
        parameter (NUMLOCK_ON = '00000020'x)
        integer  CAPSLOCK_ON
        parameter (CAPSLOCK_ON = '00000040'x)
        integer  INSERT_ON
        parameter (INSERT_ON = '00000080'x)
        integer  LEFTCONTROL
        parameter (LEFTCONTROL = '00000100'x)
        integer  LEFTALT
        parameter (LEFTALT = '00000200'x)
        integer  RIGHTCONTROL
        parameter (RIGHTCONTROL = '00000400'x)
        integer  RIGHTALT
        parameter (RIGHTALT = '00000800'x)
        integer  SCROLLLOCK
        parameter (SCROLLLOCK = '00001000'x)
        integer  NUMLOCK
        parameter (NUMLOCK = '00002000'x)
        integer  CAPSLOCK
        parameter (CAPSLOCK = '00004000'x)
        integer  SYSREQ
        parameter (SYSREQ = '00008000'x)

        structure /HOTKEY/
            integer*2 fsHotKey
            integer*1 uchScancodeMake
            integer*1 uchScancodeBreak
            integer*2 idHotKey
        end structure

        structure /MONITORPOSITION/
            integer*2 fPosition
            integer*2 index
            integer*4 pbInBuf
            integer*2 offOutBuf
        end structure

        structure /RATEDELAY/
            integer*2 usDelay
            integer*2 usRate
        end structure

        structure /CODEPAGEINFO/
            integer*4 pbTransTable
            integer*2 idCodePage
            integer*2 idTable
        end structure

        structure /CPID/
            integer*2 idCodePage
            integer*2 Reserved
        end structure

        structure /LDTADDRINFO/
            integer*4 pulPhysAddr
            integer*2 cb
        end structure

        structure /PTRDRAWDATA/
            integer*2 cb
            integer*2 usConfig
            integer*2 usFlag
        end structure

c$reference