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

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.