Return to recogn.u1 CVS log

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

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

1.1     ! root        1: proc main
        !             2:        local   0,000020,line
        !             3:        local   1,000000,read
        !             4:        local   2,000000,recogn
        !             5:        local   3,000000,s
        !             6:        local   4,000000,write
        !             7:        con     0,010000,8,141,143,143,145,160,164,145,144
        !             8:        con     1,010000,8,162,145,152,145,143,164,145,144
        !             9:        declend
        !            10:        file    recogn.icn
        !            11:        line    8
        !            12:        mark    L1
        !            13: lab L2
        !            14:        line    10
        !            15:        mark    L0
        !            16:        pnull
        !            17:        var     0
        !            18:        var     1
        !            19:        pnull
        !            20:        invoke  1
        !            21:        asgn
        !            22:        unmark  1
        !            23:        mark    L2
        !            24:        mark    L5
        !            25:        var     2
        !            26:        var     3
        !            27:        var     0
        !            28:        line    11
        !            29:        invoke  2
        !            30:        unmark  1
        !            31:        var     4
        !            32:        str     0
        !            33:        invoke  1
        !            34:        goto    L6
        !            35: lab L5
        !            36:        var     4
        !            37:        str     1
        !            38:        invoke  1
        !            39: lab L6
        !            40: lab L3
        !            41:        unmark  1
        !            42:        goto    L2
        !            43: lab L4
        !            44:        unmark  1
        !            45: lab L1
        !            46:        pnull
        !            47:        line    12
        !            48:        pfail
        !            49:        end
        !            50: proc recogn
        !            51:        local   0,001000,goal
        !            52:        local   1,001000,text
        !            53:        local   2,000000,pos
        !            54:        con     0,002000,0
        !            55:        declend
        !            56:        file    recogn.icn
        !            57:        line    14
        !            58:        mark    L1
        !            59:        mark    L2
        !            60:        var     1
        !            61:        line    15
        !            62:        bscan
        !            63:        var     0
        !            64:        pnull
        !            65:        invoke  1
        !            66:        pop
        !            67:        var     2
        !            68:        int     0
        !            69:        invoke  1
        !            70:        escan
        !            71:        pret
        !            72: lab L2
        !            73:        line    15
        !            74:        pfail
        !            75:        unmark  1
        !            76: lab L1
        !            77:        pnull
        !            78:        line    16
        !            79:        pfail
        !            80:        end
        !            81: proc s
        !            82:        local   0,000000,s
        !            83:        local   1,000000,t
        !            84:        con     0,010000,1,141
        !            85:        con     1,010000,1,142
        !            86:        con     2,010000,1,143
        !            87:        declend
        !            88:        file    recogn.icn
        !            89:        line    20
        !            90:        mark    L1
        !            91:        mark    L0
        !            92:        mark    L2
        !            93:        pnull
        !            94:        pnull
        !            95:        str     0
        !            96:        line    21
        !            97:        tabmat
        !            98:        var     0
        !            99:        pnull
        !           100:        invoke  1
        !           101:        cat
        !           102:        esusp
        !           103:        goto    L3
        !           104: lab L2
        !           105:        mark    L4
        !           106:        pnull
        !           107:        var     1
        !           108:        pnull
        !           109:        invoke  1
        !           110:        pnull
        !           111:        str     1
        !           112:        tabmat
        !           113:        cat
        !           114:        esusp
        !           115:        goto    L5
        !           116: lab L4
        !           117:        pnull
        !           118:        str     2
        !           119:        tabmat
        !           120: lab L5
        !           121: lab L3
        !           122:        psusp
        !           123:        efail
        !           124:        unmark  1
        !           125: lab L1
        !           126:        pnull
        !           127:        line    22
        !           128:        pfail
        !           129:        end
        !           130: proc t
        !           131:        local   0,000000,s
        !           132:        con     0,010000,1,144
        !           133:        con     1,010000,1,145
        !           134:        con     2,010000,1,146
        !           135:        declend
        !           136:        file    recogn.icn
        !           137:        line    26
        !           138:        mark    L1
        !           139:        mark    L0
        !           140:        mark    L2
        !           141:        pnull
        !           142:        pnull
        !           143:        pnull
        !           144:        str     0
        !           145:        line    27
        !           146:        tabmat
        !           147:        var     0
        !           148:        pnull
        !           149:        invoke  1
        !           150:        cat
        !           151:        pnull
        !           152:        str     0
        !           153:        tabmat
        !           154:        cat
        !           155:        esusp
        !           156:        goto    L3
        !           157: lab L2
        !           158:        mark    L4
        !           159:        pnull
        !           160:        str     1
        !           161:        tabmat
        !           162:        esusp
        !           163:        goto    L5
        !           164: lab L4
        !           165:        pnull
        !           166:        str     2
        !           167:        tabmat
        !           168: lab L5
        !           169: lab L3
        !           170:        psusp
        !           171:        efail
        !           172:        unmark  1
        !           173: lab L1
        !           174:        pnull
        !           175:        line    28
        !           176:        pfail
        !           177:        end

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