;layers.library  LVO $ff82 -126  swapbitsrastportcliprect()
;SwapBitsRastPortClipRect(rp,cr)(a0/a1)

JL_0_C:    movem.l    D2-D7/A2-A3/A6,-(A7)
           movea.l    A0,A3
           movea.l    A1,A2
           move.l     D0,D7
           move.w     $10(A2),D0
           ext.l      D0
           move.w     $12(A2),D1
           ext.l      D1
           move.w     $10(A2),D2
           ext.l      D2
           moveq.l    #$0F,D3
           and.l      D3,D2
           move.w     $10(A2),D3
           ext.l      D3
           move.w     $14(A2),D4
           ext.l      D4
           sub.l      D3,D4
           addq.l     #1,D4
           move.w     $12(A2),D3
           ext.l      D3
           move.w     $16(A2),D5
           ext.l      D5
           sub.l      D3,D5
           addq.l     #1,D5
           movem.l    D7/A2/A6,-(A7)
           move.l     D7,D6
           movea.l    $4(A3),A0
           movea.l    $C(A2),A1
           moveq.l    #$00,D3
           movea.l    $22(A6),A6
           moveq.l    #-$01,D7
           suba.l     A2,A2
            jsr        -$1E(A6)
           movem.l    (A7)+,D7/A2/A6
           movem.l    (A7)+,D2-D7/A2-A3/A6
          rtS
JL_0_72:   link       A5,#-$C
           movem.l    D2-D7/A2-A3/A6,-(A7)
           movea.l    A0,A3
           movea.l    A1,A2
           move.l     D0,D7
           move.w     $10(A2),D0
           ext.l      D0
           moveq.l    #$0F,D1
           and.l      D1,D0
           move.w     $10(A2),D1
           ext.l      D1
           move.w     $12(A2),D2
           ext.l      D2
           move.w     $10(A2),D3
           ext.l      D3
           move.w     $14(A2),D4
           ext.l      D4
           sub.l      D3,D4
           addq.l     #1,D4
           move.w     $12(A2),D3
           ext.l      D3
           move.w     $16(A2),D5
           ext.l      D5
           sub.l      D3,D5
           addq.l     #1,D5
           movem.l    D7/A2/A6,-(A7)
           move.l     D2,$38(A7)
           move.l     D1,D2
           move.l     D7,D6
           movea.l    $C(A2),A0
           moveq.l    #$00,D1
           movea.l    $4(A3),A1
           move.l     $38(A7),D3
           movea.l    $22(A6),A6
           moveq.l    #-$01,D7
           suba.l     A2,A2
            jsr        -$1E(A6)
           movem.l    (A7)+,D7/A2/A6
           movem.l    (A7)+,D2-D7/A2-A3/A6
           unlk       A5
          rtS

;layers.library  LVO $ff82 -126  swapbitsrastportcliprect()
;SwapBitsRastPortClipRect(rp,cr)(a0/a1)

SwapBitsRastPortClipRect:       movem.l    A2-A3,-(A7)
           movea.l    A0,A3
           movea.l    A1,A2
           moveq.l    #$6A,D0
           movea.l    A3,A0
           movea.l    A2,A1
            bsr.w      JL_0_C
           moveq.l    #$6A,D0
           movea.l    A3,A0
           movea.l    A2,A1
            bsr.w      JL_0_72
           moveq.l    #$6A,D0
           movea.l    A3,A0
           movea.l    A2,A1
            bsr.w      JL_0_C
           movem.l    (A7)+,A2-A3
          rtS
          
