QDPatch.a

;
;       QuickDraw patch program
;
;--------------------------------------------------------------------------------

            .NoList
            .Include    TLASM:GrafEQU.TEXT            ; All definitions
            .Include    TLASM:SYSEQU.TEXT            ; All definitions
            .Include    TLASM:SYSMACS.TEXT            ; All definitions
            .Include    TLASM:TOOLMACS.TEXT            ; All definitions
            .List


            .Main       BlockHead

            LEA         fastStart,A0

            MOVE.L      #30000,D0                ; copy into system
            _NewHandle  ,SYS
            _HLock

            MOVE.L      (A0),A1
            MOVE.L      A1,A2                   ; save ptr
            LEA         fastStart,A0
            MOVE.L      #30000,D0                ; copy into system
            _BlockMove

            JSR         (A2)

            _ExitToShell

fastStart
                .REF   CopyMask
                LEA     CopyMask,A0
                MOVE.L  A0,$C00+<4*$32>         ;Set new trap address kludge

                .REF   GetMaskTab
                LEA     GetMaskTab,A0
                MOVE.L  A0,$C00+<4*$36>         ;Set new trap address kludge

                .REF   MeasureText
                LEA     MeasureText,A0
                MOVE.L  A0,$C00+<4*$37>         ;Set new trap address kludge

                .REF   CalcMask
                LEA     CalcMask,A0
                MOVE.L  A0,$C00+<4*$38>         ;Set new trap address kludge

                .REF   SeedFill
                LEA     SeedFill,A0
                MOVE.L  A0,$C00+<4*$39>         ;Set new trap address kludge

                .REF   InitCurs
                LEA     InitCurs,A0
                MOVE    #$50,D0
                _SetTrapAddress

                .REF   SetCurso
                LEA     SetCurso,A0
                MOVE    #$51,D0
                _SetTrapAddress

                .REF   HideCurs
                LEA     HideCurs,A0
                MOVE    #$52,D0
                _SetTrapAddress

                .REF   ShowCurs
                LEA     ShowCurs,A0
                MOVE    #$53,D0
                _SetTrapAddress


                .REF   ShieldCu
                LEA     ShieldCu,A0
                MOVE    #$55,D0
                _SetTrapAddress


                .REF   ObscureC
                LEA     ObscureC,A0
                MOVE    #$56,D0
                _SetTrapAddress


                .REF   BitAnd
                LEA     BitAnd  ,A0
                MOVE    #$58,D0
                _SetTrapAddress


                .REF   BitXOr
                LEA     BitXOr  ,A0
                MOVE    #$59,D0
                _SetTrapAddress


                .REF   BitNot
                LEA     BitNot  ,A0
                MOVE    #$5A,D0
                _SetTrapAddress


                .REF   BitOr
                LEA     BitOr   ,A0
                MOVE    #$5B,D0
                _SetTrapAddress


                .REF   BitShift
                LEA     BitShift,A0
                MOVE    #$5C,D0
                _SetTrapAddress


                .REF   BitTst
                LEA     BitTst  ,A0
                MOVE    #$5D,D0
                _SetTrapAddress


                .REF   BitSet
                LEA     BitSet  ,A0
                MOVE    #$5E,D0
                _SetTrapAddress


                .REF   BitClr
                LEA     BitClr  ,A0
                MOVE    #$5F,D0
                _SetTrapAddress


                .REF   Random
                LEA     Random  ,A0
                MOVE    #$61,D0
                _SetTrapAddress


                .REF   ForeColo
                LEA     ForeColo,A0
                MOVE    #$62,D0
                _SetTrapAddress


                .REF   BackColo
                LEA     BackColo,A0
                MOVE    #$63,D0
                _SetTrapAddress


                .REF   ColorBit
                LEA     ColorBit,A0
                MOVE    #$64,D0
                _SetTrapAddress


                .REF   GetPixel
                LEA     GetPixel,A0
                MOVE    #$65,D0
                _SetTrapAddress


                .REF   StuffHex
                LEA     StuffHex,A0
                MOVE    #$66,D0
                _SetTrapAddress


                .REF   InitPort
                LEA     InitPort,A0
                MOVE    #$6D,D0
                _SetTrapAddress


                .REF   InitGraf
                LEA     InitGraf,A0
                MOVE    #$6E,D0
                _SetTrapAddress


                .REF   OpenPort
                LEA     OpenPort,A0
                MOVE    #$6F,D0
                _SetTrapAddress


                .REF   LocalToG
                LEA     LocalToG,A0
                MOVE    #$70,D0
                _SetTrapAddress


                .REF   GlobalTo
                LEA     GlobalTo,A0
                MOVE    #$71,D0
                _SetTrapAddress


                .REF   GrafDevi
                LEA     GrafDevi,A0
                MOVE    #$72,D0
                _SetTrapAddress


                .REF   SetPort
                LEA     SetPort ,A0
                MOVE    #$73,D0
                _SetTrapAddress


                .REF   GetPort
                LEA     GetPort ,A0
                MOVE    #$74,D0
                _SetTrapAddress


                .REF   SetPortB
                LEA     SetPortB,A0
                MOVE    #$75,D0
                _SetTrapAddress


                .REF   PortSize
                LEA     PortSize,A0
                MOVE    #$76,D0
                _SetTrapAddress


                .REF   MovePort
                LEA     MovePort,A0
                MOVE    #$77,D0
                _SetTrapAddress


                .REF   SetOrigi
                LEA     SetOrigi,A0
                MOVE    #$78,D0
                _SetTrapAddress


                .REF   SetClip
                LEA     SetClip ,A0
                MOVE    #$79,D0
                _SetTrapAddress


                .REF   GetClip
                LEA     GetClip ,A0
                MOVE    #$7A,D0
                _SetTrapAddress


                .REF   ClipRect
                LEA     ClipRect,A0
                MOVE    #$7B,D0
                _SetTrapAddress


                .REF   BackPat
                LEA     BackPat ,A0
                MOVE    #$7C,D0
                _SetTrapAddress


                .REF   ClosePor
                LEA     ClosePor,A0
                MOVE    #$7D,D0
                _SetTrapAddress


                .REF   AddPt
                LEA     AddPt   ,A0
                MOVE    #$7E,D0
                _SetTrapAddress


                .REF   SubPt
                LEA     SubPt   ,A0
                MOVE    #$7F,D0
                _SetTrapAddress


                .REF   SetPt
                LEA     SetPt   ,A0
                MOVE    #$80,D0
                _SetTrapAddress


                .REF   EqualPt
                LEA     EqualPt ,A0
                MOVE    #$81,D0
                _SetTrapAddress


                .REF   StdText
                LEA     StdText ,A0
                MOVE    #$82,D0
                _SetTrapAddress


                .REF   DrawChar
                LEA     DrawChar,A0
                MOVE    #$83,D0
                _SetTrapAddress


                .REF   DrawStri
                LEA     DrawStri,A0
                MOVE    #$84,D0
                _SetTrapAddress


                .REF   DrawText
                LEA     DrawText,A0
                MOVE    #$85,D0
                _SetTrapAddress


                .REF   TextWidt
                LEA     TextWidt,A0
                MOVE    #$86,D0
                _SetTrapAddress


                .REF   TextFont
                LEA     TextFont,A0
                MOVE    #$87,D0
                _SetTrapAddress


                .REF   TextFace
                LEA     TextFace,A0
                MOVE    #$88,D0
                _SetTrapAddress


                .REF   TextMode
                LEA     TextMode,A0
                MOVE    #$89,D0
                _SetTrapAddress


                .REF   TextSize
                LEA     TextSize,A0
                MOVE    #$8A,D0
                _SetTrapAddress


                .REF   GetFontI
                LEA     GetFontI,A0
                MOVE    #$8B,D0
                _SetTrapAddress


                .REF   StringWi
                LEA     StringWi,A0
                MOVE    #$8C,D0
                _SetTrapAddress


                .REF   CharWidt
                LEA     CharWidt,A0
                MOVE    #$8D,D0
                _SetTrapAddress


                .REF   SpaceExt
                LEA     SpaceExt,A0
                MOVE    #$8E,D0
                _SetTrapAddress


                .REF   StdLine
                LEA     StdLine ,A0
                MOVE    #$90,D0
                _SetTrapAddress


                .REF   LineTo
                LEA     LineTo  ,A0
                MOVE    #$91,D0
                _SetTrapAddress


                .REF   Line
                LEA     Line    ,A0
                MOVE    #$92,D0
                _SetTrapAddress


                .REF   MoveTo
                LEA     MoveTo  ,A0
                MOVE    #$93,D0
                _SetTrapAddress


                .REF   Moov
                LEA     Moov    ,A0
                MOVE    #$94,D0
                _SetTrapAddress


                .REF   HidePen
                LEA     HidePen ,A0
                MOVE    #$96,D0
                _SetTrapAddress


                .REF   ShowPen
                LEA     ShowPen ,A0
                MOVE    #$97,D0
                _SetTrapAddress


                .REF   GetPenSt
                LEA     GetPenSt,A0
                MOVE    #$98,D0
                _SetTrapAddress


                .REF   SetPenSt
                LEA     SetPenSt,A0
                MOVE    #$99,D0
                _SetTrapAddress


                .REF   GetPen
                LEA     GetPen  ,A0
                MOVE    #$9A,D0
                _SetTrapAddress


                .REF   PenSize
                LEA     PenSize ,A0
                MOVE    #$9B,D0
                _SetTrapAddress


                .REF   PenMode
                LEA     PenMode ,A0
                MOVE    #$9C,D0
                _SetTrapAddress


                .REF   PenPat
                LEA     PenPat  ,A0
                MOVE    #$9D,D0
                _SetTrapAddress


                .REF   PenNorma
                LEA     PenNorma,A0
                MOVE    #$9E,D0
                _SetTrapAddress


                .REF   StdRect
                LEA     StdRect ,A0
                MOVE    #$A0,D0
                _SetTrapAddress


                .REF   FrameRec
                LEA     FrameRec,A0
                MOVE    #$A1,D0
                _SetTrapAddress


                .REF   PaintRec
                LEA     PaintRec,A0
                MOVE    #$A2,D0
                _SetTrapAddress


                .REF   EraseRec
                LEA     EraseRec,A0
                MOVE    #$A3,D0
                _SetTrapAddress


                .REF   InvertRe
                LEA     InvertRe,A0
                MOVE    #$A4,D0
                _SetTrapAddress


                .REF   FillRect
                LEA     FillRect,A0
                MOVE    #$A5,D0
                _SetTrapAddress


                .REF   EqualRec
                LEA     EqualRec,A0
                MOVE    #$A6,D0
                _SetTrapAddress


                .REF   SetRect
                LEA     SetRect ,A0
                MOVE    #$A7,D0
                _SetTrapAddress


                .REF   OffSetRe
                LEA     OffSetRe,A0
                MOVE    #$A8,D0
                _SetTrapAddress


                .REF   InSetRec
                LEA     InSetRec,A0
                MOVE    #$A9,D0
                _SetTrapAddress


                .REF   SectRect
                LEA     SectRect,A0
                MOVE    #$AA,D0
                _SetTrapAddress


                .REF   UnionRec
                LEA     UnionRec,A0
                MOVE    #$AB,D0
                _SetTrapAddress


                .REF   Pt2Rect
                LEA     Pt2Rect ,A0
                MOVE    #$AC,D0
                _SetTrapAddress


                .REF   PtInRect
                LEA     PtInRect,A0
                MOVE    #$AD,D0
                _SetTrapAddress


                .REF   EmptyRec
                LEA     EmptyRec,A0
                MOVE    #$AE,D0
                _SetTrapAddress


                .REF   StdRRect
                LEA     StdRRect,A0
                MOVE    #$AF,D0
                _SetTrapAddress


                .REF   FrameRou
                LEA     FrameRou,A0
                MOVE    #$B0,D0
                _SetTrapAddress


                .REF   PaintRou
                LEA     PaintRou,A0
                MOVE    #$B1,D0
                _SetTrapAddress


                .REF   EraseRou
                LEA     EraseRou,A0
                MOVE    #$B2,D0
                _SetTrapAddress


                .REF   InvertRo
                LEA     InvertRo,A0
                MOVE    #$B3,D0
                _SetTrapAddress


                .REF   FillRoun
                LEA     FillRoun,A0
                MOVE    #$B4,D0
                _SetTrapAddress


                .REF   StdOval
                LEA     StdOval ,A0
                MOVE    #$B6,D0
                _SetTrapAddress


                .REF   FrameOva
                LEA     FrameOva,A0
                MOVE    #$B7,D0
                _SetTrapAddress


                .REF   PaintOva
                LEA     PaintOva,A0
                MOVE    #$B8,D0
                _SetTrapAddress


                .REF   EraseOva
                LEA     EraseOva,A0
                MOVE    #$B9,D0
                _SetTrapAddress


                .REF   InvertOv
                LEA     InvertOv,A0
                MOVE    #$BA,D0
                _SetTrapAddress


                .REF   FillOval
                LEA     FillOval,A0
                MOVE    #$BB,D0
                _SetTrapAddress


                .REF   StdArc
                LEA     StdArc  ,A0
                MOVE    #$BD,D0
                _SetTrapAddress


                .REF   FrameArc
                LEA     FrameArc,A0
                MOVE    #$BE,D0
                _SetTrapAddress


                .REF   PaintArc
                LEA     PaintArc,A0
                MOVE    #$BF,D0
                _SetTrapAddress


                .REF   EraseArc
                LEA     EraseArc,A0
                MOVE    #$C0,D0
                _SetTrapAddress


                .REF   InvertAr
                LEA     InvertAr,A0
                MOVE    #$C1,D0
                _SetTrapAddress


                .REF   FillArc
                LEA     FillArc ,A0
                MOVE    #$C2,D0
                _SetTrapAddress


                .REF   PtToAngl
                LEA     PtToAngl,A0
                MOVE    #$C3,D0
                _SetTrapAddress


                .REF   StdPoly
                LEA     StdPoly ,A0
                MOVE    #$C5,D0
                _SetTrapAddress


                .REF   FramePol
                LEA     FramePol,A0
                MOVE    #$C6,D0
                _SetTrapAddress


                .REF   PaintPol
                LEA     PaintPol,A0
                MOVE    #$C7,D0
                _SetTrapAddress


                .REF   ErasePol
                LEA     ErasePol,A0
                MOVE    #$C8,D0
                _SetTrapAddress


                .REF   InvertPo
                LEA     InvertPo,A0
                MOVE    #$C9,D0
                _SetTrapAddress


                .REF   FillPoly
                LEA     FillPoly,A0
                MOVE    #$CA,D0
                _SetTrapAddress


                .REF   OpenPoly
                LEA     OpenPoly,A0
                MOVE    #$CB,D0
                _SetTrapAddress


                .REF   ClosePol
                LEA     ClosePol,A0
                MOVE    #$CC,D0
                _SetTrapAddress


                .REF   KillPoly
                LEA     KillPoly,A0
                MOVE    #$CD,D0
                _SetTrapAddress


                .REF   OffSetPo
                LEA     OffSetPo,A0
                MOVE    #$CE,D0
                _SetTrapAddress


                .REF   PackBits
                LEA     PackBits,A0
                MOVE    #$CF,D0
                _SetTrapAddress


                .REF   UnpackBi
                LEA     UnpackBi,A0
                MOVE    #$D0,D0
                _SetTrapAddress


                .REF   StdRgn
                LEA     StdRgn  ,A0
                MOVE    #$D1,D0
                _SetTrapAddress


                .REF   FrameRgn
                LEA     FrameRgn,A0
                MOVE    #$D2,D0
                _SetTrapAddress


                .REF   PaintRgn
                LEA     PaintRgn,A0
                MOVE    #$D3,D0
                _SetTrapAddress


                .REF   EraseRgn
                LEA     EraseRgn,A0
                MOVE    #$D4,D0
                _SetTrapAddress


                .REF   InvertRg
                LEA     InvertRg,A0
                MOVE    #$D5,D0
                _SetTrapAddress


                .REF   FillRgn
                LEA     FillRgn ,A0
                MOVE    #$D6,D0
                _SetTrapAddress


                .REF   NewRgn
                LEA     NewRgn  ,A0
                MOVE    #$D8,D0
                _SetTrapAddress


                .REF   DisposeR
                LEA     DisposeR,A0
                MOVE    #$D9,D0
                _SetTrapAddress


                .REF   OpenRgn
                LEA     OpenRgn ,A0
                MOVE    #$DA,D0
                _SetTrapAddress


                .REF   CloseRgn
                LEA     CloseRgn,A0
                MOVE    #$DB,D0
                _SetTrapAddress


                .REF   CopyRgn
                LEA     CopyRgn ,A0
                MOVE    #$DC,D0
                _SetTrapAddress


                .REF   SetEmpty
                LEA     SetEmpty,A0
                MOVE    #$DD,D0
                _SetTrapAddress


                .REF   SetRectR
                LEA     SetRectR,A0
                MOVE    #$DE,D0
                _SetTrapAddress


                .REF   RectRgn
                LEA     RectRgn ,A0
                MOVE    #$DF,D0
                _SetTrapAddress


                .REF   OffSetRg
                LEA     OffSetRg,A0
                MOVE    #$E0,D0
                _SetTrapAddress


                .REF   InSetRgn
                LEA     InSetRgn,A0
                MOVE    #$E1,D0
                _SetTrapAddress


                .REF   EmptyRgn
                LEA     EmptyRgn,A0
                MOVE    #$E2,D0
                _SetTrapAddress


                .REF   EqualRgn
                LEA     EqualRgn,A0
                MOVE    #$E3,D0
                _SetTrapAddress


                .REF   SectRgn
                LEA     SectRgn ,A0
                MOVE    #$E4,D0
                _SetTrapAddress


                .REF   UnionRgn
                LEA     UnionRgn,A0
                MOVE    #$E5,D0
                _SetTrapAddress


                .REF   DiffRgn
                LEA     DiffRgn ,A0
                MOVE    #$E6,D0
                _SetTrapAddress


                .REF   XOrRgn
                LEA     XOrRgn  ,A0
                MOVE    #$E7,D0
                _SetTrapAddress


                .REF   PtInRgn
                LEA     PtInRgn ,A0
                MOVE    #$E8,D0
                _SetTrapAddress


                .REF   RectInRg
                LEA     RectInRg,A0
                MOVE    #$E9,D0
                _SetTrapAddress


                .REF   StdBits
                LEA     StdBits ,A0
                MOVE    #$EB,D0
                _SetTrapAddress


                .REF   CopyBits
                LEA     CopyBits,A0
                MOVE    #$EC,D0
                _SetTrapAddress


                .REF   ScrollRe
                LEA     ScrollRe,A0
                MOVE    #$EF,D0
                _SetTrapAddress


                .REF   SetStdPr
                LEA     SetStdPr,A0
                MOVE    #$EA,D0
                _SetTrapAddress


                .REF   StdTxMea
                LEA     StdTxMea,A0
                MOVE    #$ED,D0
                _SetTrapAddress


                .REF   StdGetPi
                LEA     StdGetPi,A0
                MOVE    #$EE,D0
                _SetTrapAddress


                .REF   StdPutPi
                LEA     StdPutPi,A0
                MOVE    #$F0,D0
                _SetTrapAddress


                .REF   StdComme
                LEA     StdComme,A0
                MOVE    #$F1,D0
                _SetTrapAddress


                .REF   PicComme
                LEA     PicComme,A0
                MOVE    #$F2,D0
                _SetTrapAddress


                .REF   OpenPict
                LEA     OpenPict,A0
                MOVE    #$F3,D0
                _SetTrapAddress


                .REF   ClosePic
                LEA     ClosePic,A0
                MOVE    #$F4,D0
                _SetTrapAddress


                .REF   KillPict
                LEA     KillPict,A0
                MOVE    #$F5,D0
                _SetTrapAddress

                .REF   DrawPict
                LEA     DrawPict,A0
                MOVE    #$F6,D0
                _SetTrapAddress

                .REF   ScalePt
                LEA     ScalePt,A0
                MOVE    #$F8,D0
                _SetTrapAddress


                .REF   MapPt
                LEA     MapPt,A0
                MOVE    #$F9,D0
                _SetTrapAddress


                .REF   MapRect
                LEA     MapRect,A0
                MOVE    #$FA,D0
                _SetTrapAddress


                .REF   MapRgn
                LEA     MapRgn,A0
                MOVE    #$FB,D0
                _SetTrapAddress


                .REF   MapPoly
                LEA     MapPoly,A0
                MOVE    #$FC,D0
                _SetTrapAddress


; FONT MANAGER

                .REF   InitFont
                LEA     InitFont,A0
                MOVE    #$FE,D0
                _SetTrapAddress


                .REF   GetFontName
                LEA     GetFontName,A0
                MOVE    #$FF,D0
                _SetTrapAddress


                .REF   GetFNum
                LEA     GetFNum,A0
                MOVE    #$100,D0
                _SetTrapAddress


                .REF   FMSwapFont
                LEA     FMSwapFont,A0
                MOVE    #$101,D0
                _SetTrapAddress


                .REF   RealFont
                LEA     RealFont,A0
                MOVE    #$102,D0
                _SetTrapAddress


                .REF   SetFontLo
                LEA     SetFontLo,A0
                MOVE    #$103,D0
                _SetTrapAddress

                LEA     FMSwapFont,A0
                MOVE.L  A0,JSwapFont

            RTS



            .END