;Assembler header file for InetSuite
;written by DefMod (Apr 11 1999) on Mon Apr 19 22:00:27 1999
;Tom Hughes, tom@compton.nu, 13 Mar 1999

        [       :LNOT: :DEF: Get_Types
        GBLS    Get_Types
        ]
        [       :LNOT: :DEF: Types_Hdr
Get_Types                       SETS    "GET OS:Hdr.Types"
        |
Get_Types                       SETS    ""
        ]
        $Get_Types

        [       :LNOT: :DEF: Get_OS
        GBLS    Get_OS
        ]
        [       :LNOT: :DEF: OS_Hdr
Get_OS                          SETS    "GET OS:Hdr.OS"
        |
Get_OS                          SETS    ""
        ]
        $Get_OS

        [       :LNOT: :DEF: InetSuite_Hdr
        GBLS    InetSuite_Hdr

;Symbols for constants
Message_InetSuiteOpenURL        *       &4AF80
InetSuite_UseMIMEType           *       &1

;Symbols for structure offsets and sizes
InetSuite_OpenURLFlags          *       Bits

                                ^       0
InetSuite_MessageOpenURL_url    #       236*Char
                                ^       0
InetSuite_MessageOpenURL_indirect_tag #       Int
InetSuite_MessageOpenURL_indirect_url #       OS_StringValue
InetSuite_MessageOpenURL_indirect_flags #       InetSuite_OpenURLFlags
InetSuite_MessageOpenURL_indirect_body_file #       OS_StringValue
InetSuite_MessageOpenURL_indirect_target #       OS_StringValue
InetSuite_MessageOpenURL_indirect_body_mimetype #       OS_StringValue
InetSuite_MessageOpenURL        *       @


        ]

        END
