f177:
        sta ws1+84
        stx ws1+85

        sta ws1+86
        stx ws1+87

c21_0413:

        lda ws1+86
        bne c21_0415
        lda ws1+87
        beq c21_0416

c21_0415:

        lda ws1+86
        ldx ws1+87
        sta ws1+84
        stx ws1+85

        ldy #14
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        sta ws1+86
        stx ws1+87

        ldy #10
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        tay
        bne c21_041a
        txa
        beq c21_041b

c21_041a:

        lda ws1+86
        ldx ws1+87
        pha
        phx
        ldy #10
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        sta ws3+10
        stx ws3+11
        plx
        pla
        ldy #13
        sta (ws3+10),y

        txa
        iny
        sta (ws3+10),y


        ldy #10
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        sta ws1+86
        stx ws1+87

        bra c21_0417

c21_041b:

c21_0417:

        ldy #12
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        tay
        bne c21_041f
        txa
        beq c21_0420

c21_041f:

        lda ws1+86
        ldx ws1+87
        pha
        phx
        ldy #12
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        sta ws3+10
        stx ws3+11
        plx
        pla
        ldy #13
        sta (ws3+10),y

        txa
        iny
        sta (ws3+10),y


        ldy #12
        lda (ws1+84),y

        tax
        dey
        lda (ws1+84),y

        sta ws1+86
        stx ws1+87

        bra c21_041c

c21_0420:

c21_041c:

        lda ws1+84
        ldx ws1+85
        jsr f70

        bra c21_0413

c21_0416:

        rts