RenderWormHole:

*   movem.l  d0-d7/a0-a2,-(sp)

    lea.l    CheckerBoard(pc),a1
    lea.l    PolarLUTfp,a2
    mulu.l   #(SCRW*2),d0
    add.l    d0,a2

    move.l   col2(pc),d7
    move.l   d7,d0
    lsr.l    #7,d0
    add.l    d0,d7

    moveq.l  #0,d1
    move.l   d1,d2
    move.l   d1,d4
    move.l   d1,d5

    move.l   #SCRSZ/4,d0
.loop
    move.w   (a2)+,d1
    move.w   (a2)+,d2
    move.w   (a2)+,d3
    move.w   (a2)+,d4
    add.w    d7,d1
    add.w    d7,d2
    add.w    d7,d3
    add.w    d7,d4
    move.b   (a1,d1.l),(a0)+
    move.b   (a1,d2.l),(a0)+
    move.b   (a1,d3.l),(a0)+
    move.b   (a1,d4.l),(a0)+
    subq.l   #1,d0
    bne.s    .loop

*   movem.l  (sp)+,d0-d7/a0-a2
    rts