Return to cross.u1 CVS log

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

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

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

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