Return to sieve.u1 CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples

Annotation of 43BSD/contrib/icon/samples/sieve.u1, revision 1.1

1.1     ! root        1: proc main
        !             2:        local   0,000020,limit
        !             3:        local   1,000020,s
        !             4:        local   2,000020,i
        !             5:        local   3,000000,set
        !             6:        local   4,000000,insert
        !             7:        local   5,000000,member
        !             8:        local   6,000000,delete
        !             9:        local   7,000000,primes
        !            10:        local   8,000000,sort
        !            11:        local   9,000000,write
        !            12:        local   10,000000,right
        !            13:        con     0,002000,100
        !            14:        con     1,002000,1
        !            15:        con     2,002000,2
        !            16:        con     3,010000,10,124,150,145,162,145,040,141,162,145,040
        !            17:        con     4,010000,21,040,160,162,151,155,145,163,040,151,156,040,164,150,145,040,146,151,162,163,164,040
        !            18:        con     5,010000,10,040,151,156,164,145,147,145,162,163,056
        !            19:        con     6,010000,15,124,150,145,040,160,162,151,155,145,163,040,141,162,145,072
        !            20:        declend
        !            21:        file    sieve.icn
        !            22:        line    8
        !            23:        mark    L1
        !            24:        pnull
        !            25:        var     0
        !            26:        int     0
        !            27:        line    10
        !            28:        asgn
        !            29:        unmark  1
        !            30: lab L1
        !            31:        mark    L2
        !            32:        pnull
        !            33:        var     1
        !            34:        var     3
        !            35:        pnull
        !            36:        line    11
        !            37:        llist   0
        !            38:        invoke  1
        !            39:        asgn
        !            40:        unmark  1
        !            41: lab L2
        !            42:        mark    L3
        !            43:        mark    L0
        !            44:        var     4
        !            45:        var     1
        !            46:        pnull
        !            47:        int     1
        !            48:        var     0
        !            49:        push1
        !            50:        line    12
        !            51:        toby
        !            52:        invoke  2
        !            53:        pop
        !            54: lab L4
        !            55:        efail
        !            56: lab L5
        !            57:        unmark  1
        !            58: lab L3
        !            59:        mark    L6
        !            60:        mark    L0
        !            61:        var     5
        !            62:        var     1
        !            63:        pnull
        !            64:        var     2
        !            65:        pnull
        !            66:        int     2
        !            67:        var     0
        !            68:        push1
        !            69:        line    13
        !            70:        toby
        !            71:        asgn
        !            72:        invoke  2
        !            73:        pop
        !            74:        mark    L0
        !            75:        mark    L0
        !            76:        var     6
        !            77:        var     1
        !            78:        pnull
        !            79:        pnull
        !            80:        var     2
        !            81:        var     2
        !            82:        line    14
        !            83:        plus
        !            84:        var     0
        !            85:        var     2
        !            86:        toby
        !            87:        invoke  2
        !            88:        pop
        !            89: lab L9
        !            90:        efail
        !            91: lab L10
        !            92:        unmark  1
        !            93: lab L7
        !            94:        efail
        !            95: lab L8
        !            96:        unmark  1
        !            97: lab L6
        !            98:        mark    L11
        !            99:        pnull
        !           100:        var     7
        !           101:        var     8
        !           102:        var     1
        !           103:        line    15
        !           104:        invoke  1
        !           105:        asgn
        !           106:        unmark  1
        !           107: lab L11
        !           108:        mark    L12
        !           109:        var     9
        !           110:        str     3
        !           111:        pnull
        !           112:        var     7
        !           113:        line    16
        !           114:        size
        !           115:        str     4
        !           116:        var     0
        !           117:        str     5
        !           118:        invoke  5
        !           119:        unmark  1
        !           120: lab L12
        !           121:        mark    L13
        !           122:        var     9
        !           123:        str     6
        !           124:        line    17
        !           125:        invoke  1
        !           126:        unmark  1
        !           127: lab L13
        !           128:        mark    L14
        !           129:        mark    L0
        !           130:        var     9
        !           131:        var     10
        !           132:        pnull
        !           133:        var     7
        !           134:        line    18
        !           135:        bang
        !           136:        pnull
        !           137:        pnull
        !           138:        var     0
        !           139:        size
        !           140:        int     1
        !           141:        plus
        !           142:        invoke  2
        !           143:        invoke  1
        !           144:        pop
        !           145: lab L15
        !           146:        efail
        !           147: lab L16
        !           148:        unmark  1
        !           149: lab L14
        !           150:        pnull
        !           151:        line    19
        !           152:        pfail
        !           153:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.