Return to meander.u1 CVS log

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

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

1.1     ! root        1: proc main
        !             2:        local   0,000020,line
        !             3:        local   1,000020,alpha
        !             4:        local   2,000020,n
        !             5:        local   3,000000,read
        !             6:        local   4,000000,tab
        !             7:        local   5,000000,upto
        !             8:        local   6,000000,move
        !             9:        local   7,000000,integer
        !            10:        local   8,000000,write
        !            11:        local   9,000000,meander
        !            12:        con     0,020000,1,072
        !            13:        con     1,002000,1
        !            14:        con     2,002000,0
        !            15:        con     3,010000,15,145,162,162,157,156,145,157,165,163,040,151,156,160,165,164
        !            16:        declend
        !            17:        file    meander.icn
        !            18:        line    9
        !            19:        mark    L1
        !            20: lab L2
        !            21:        line    11
        !            22:        mark    L0
        !            23:        pnull
        !            24:        var     0
        !            25:        var     3
        !            26:        pnull
        !            27:        invoke  1
        !            28:        asgn
        !            29:        unmark  1
        !            30:        mark    L2
        !            31:        var     0
        !            32:        line    12
        !            33:        bscan
        !            34:        mark    L5
        !            35:        pnull
        !            36:        var     1
        !            37:        var     4
        !            38:        var     5
        !            39:        cset    0
        !            40:        invoke  1
        !            41:        invoke  1
        !            42:        asgn
        !            43:        unmark  1
        !            44:        mark    L7
        !            45:        var     6
        !            46:        int     1
        !            47:        line    13
        !            48:        invoke  1
        !            49:        unmark  1
        !            50: lab L7
        !            51:        mark    L8
        !            52:        pnull
        !            53:        var     2
        !            54:        var     7
        !            55:        var     4
        !            56:        int     2
        !            57:        line    14
        !            58:        invoke  1
        !            59:        invoke  1
        !            60:        asgn
        !            61:        unmark  1
        !            62:        var     8
        !            63:        var     9
        !            64:        var     1
        !            65:        var     2
        !            66:        invoke  2
        !            67:        invoke  1
        !            68:        goto    L9
        !            69: lab L8
        !            70:        var     8
        !            71:        str     3
        !            72:        line    15
        !            73:        invoke  1
        !            74: lab L9
        !            75:        goto    L6
        !            76: lab L5
        !            77:        var     8
        !            78:        str     3
        !            79:        line    17
        !            80:        invoke  1
        !            81: lab L6
        !            82:        line    12
        !            83:        escan
        !            84: lab L3
        !            85:        unmark  1
        !            86:        goto    L2
        !            87: lab L4
        !            88:        unmark  1
        !            89: lab L1
        !            90:        pnull
        !            91:        line    19
        !            92:        pfail
        !            93:        end
        !            94: proc meander
        !            95:        local   0,001000,alpha
        !            96:        local   1,001000,n
        !            97:        local   2,000020,result
        !            98:        local   3,000020,t
        !            99:        local   4,000020,i
        !           100:        local   5,000020,c
        !           101:        local   6,000020,k
        !           102:        local   7,000000,repl
        !           103:        local   8,000000,find
        !           104:        con     0,002000,1
        !           105:        con     1,002000,0
        !           106:        declend
        !           107:        file    meander.icn
        !           108:        line    21
        !           109:        mark    L1
        !           110:        pnull
        !           111:        var     4
        !           112:        pnull
        !           113:        var     6
        !           114:        pnull
        !           115:        var     0
        !           116:        line    23
        !           117:        size
        !           118:        asgn
        !           119:        asgn
        !           120:        unmark  1
        !           121: lab L1
        !           122:        mark    L2
        !           123:        pnull
        !           124:        var     3
        !           125:        pnull
        !           126:        var     1
        !           127:        int     0
        !           128:        line    24
        !           129:        minus
        !           130:        asgn
        !           131:        unmark  1
        !           132: lab L2
        !           133:        mark    L3
        !           134:        pnull
        !           135:        var     2
        !           136:        var     7
        !           137:        pnull
        !           138:        var     0
        !           139:        int     0
        !           140:        line    25
        !           141:        subsc
        !           142:        var     3
        !           143:        invoke  2
        !           144:        asgn
        !           145:        unmark  1
        !           146: lab L3
        !           147:        mark    L4
        !           148: lab L5
        !           149:        line    26
        !           150:        mark    L0
        !           151:        pnull
        !           152:        var     5
        !           153:        pnull
        !           154:        var     0
        !           155:        var     4
        !           156:        subsc
        !           157:        asgn
        !           158:        unmark  1
        !           159:        mark    L5
        !           160:        mark    L8
        !           161:        var     8
        !           162:        pnull
        !           163:        pnull
        !           164:        var     2
        !           165:        pnull
        !           166:        var     3
        !           167:        line    27
        !           168:        neg
        !           169:        int     1
        !           170:        sect
        !           171:        var     5
        !           172:        cat
        !           173:        var     2
        !           174:        invoke  2
        !           175:        unmark  1
        !           176:        pnull
        !           177:        var     4
        !           178:        dup
        !           179:        int     0
        !           180:        line    28
        !           181:        minus
        !           182:        asgn
        !           183:        goto    L9
        !           184: lab L8
        !           185:        mark    L10
        !           186:        pnull
        !           187:        var     2
        !           188:        dup
        !           189:        var     5
        !           190:        line    29
        !           191:        cat
        !           192:        asgn
        !           193:        unmark  1
        !           194: lab L10
        !           195:        pnull
        !           196:        var     4
        !           197:        var     6
        !           198:        asgn
        !           199: lab L9
        !           200: lab L6
        !           201:        unmark  1
        !           202:        goto    L5
        !           203: lab L7
        !           204:        unmark  1
        !           205: lab L4
        !           206:        mark    L11
        !           207:        mark    L12
        !           208:        var     2
        !           209:        line    31
        !           210:        pret
        !           211: lab L12
        !           212:        line    31
        !           213:        pfail
        !           214:        unmark  1
        !           215: lab L11
        !           216:        pnull
        !           217:        line    32
        !           218:        pfail
        !           219:        end

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