; ; 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