*
* The following glue is for ORCA/Pascal only.
*
* Last revised on 7/10/93
*
fAddPrivateData START
           ldx      #26
           brl      ~PasGlue
fAddResource ENTRY
           ldx      #1
           brl      ~PasGlue
fBuildLinkHand ENTRY
           ldx      #11
           brl      ~PasGlue
fColorPalette ENTRY
           ldx      #39
           brl      ~PasGlue
fCopyResource ENTRY
           ldx      #25
           brl      ~PasGlue
fCountResources ENTRY
           ldx      #18
           brl      ~PasGlue
fDetachResource ENTRY
           ldx      #5
           brl      ~PasGlue
fDisposeLinkHand ENTRY
           ldx      #28
           brl      ~PasGlue
fExtendLinkHand ENTRY
           ldx      #10
           brl      ~PasGlue
fFindHostLink ENTRY
           ldx      #36
           brl      ~PasGlue
fGetEditorStatus ENTRY
           ldx      #33
           brl      ~PasGlue
fGetFileName ENTRY
           ldx      #41
           brl      ~PasGlue
fGetIndResource ENTRY
           ldx      #19
           brl      ~PasGlue
fGetKernalID ENTRY
           ldx      #40
           brl      ~PasGlue2
fGetPrivateData ENTRY
           ldx      #15
           brl      ~PasGlue
fGetResourceAttr ENTRY
           ldx      #22
           brl      ~PasGlue
fGetResourceName ENTRY
           ldx      #8
           brl      ~PasGlue
fGetResourceSize ENTRY
           ldx      #20
           brl      ~PasGlue
fGetStdTypeName ENTRY
           ldx      #7
           brl      ~PasGlue
fGetWindowTitle ENTRY
           ldx      #29
           brl      ~PasGlue
fLoadFileData ENTRY
           ldx      #13
           brl      ~PasGlue
fLoadResource ENTRY
           ldx      #3
           brl      ~PasGlue
fLoadScrap ENTRY
           ldx      #31
           brl      ~PasGlue
fMarquee ENTRY
           ldx      #38
           brl      ~PasGlue
fQueryLinkHand ENTRY
           ldx      #12
           brl      ~PasGlue
fRelPrivateData ENTRY
           ldx      #27
           brl      ~PasGlue
fReleaseResource ENTRY
           ldx      #4
           brl      ~PasGlue
fRemoveResource ENTRY
           ldx      #2
           brl      ~PasGlue
fRequestEdit ENTRY
           ldx      #14
           brl      ~PasGlue
fResourceConverter ENTRY
           ldx      #24
           brl      ~PasGlue
fSaveScrap ENTRY
           ldx      #32
           brl      ~PasGlue
fSelectorMenu ENTRY
           ldx      #35
           brl      ~PasGlue
fSelectorRequest ENTRY
           ldx      #34
           brl      ~PasGlue
fSetPrivateData ENTRY
           ldx      #16
           brl      ~PasGlue
fSetResourceAttr ENTRY
           ldx      #23
           brl      ~PasGlue
fSetResourceID ENTRY
           ldx      #21
           brl      ~PasGlue
fSetResourceName ENTRY
           ldx      #9
           brl      ~PasGlue
fSpecialMagic ENTRY
           ldx      #30
           brl      ~PasGlue
fSpinCursor ENTRY
           ldx      #37
           brl      ~PasGlue2
fUniqueResourceID ENTRY
           ldx      #17
           brl      ~PasGlue
fWriteResource      ENTRY
           ldx      #6

~PasGlue   lda      4,s                 Stack at call time
           sta      >~GlueParm
           lda      6,s                   |-----------|
           sta      >~GlueParm+2          | long Pptr |
           lda      2,s                   | RTL  addr |
           sta      6,s                   |-----------|
           pla
           sta      3,s
           pla

~PasGlue2  txa
           sta      >~GlueCall

           jsl      fInline
~GlueCall  ds       2
~GlueParm  ds       4

           sta      >~TOOLERROR
           rtl
*
*****************************************************************************
           END
