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

1.1     ! root        1: proc main
        !             2:        local   0,000000,write
        !             3:        local   1,000000,Seqimage
        !             4:        local   2,000000,main
        !             5:        local   3,000000,read
        !             6:        con     0,002000,1
        !             7:        con     1,002000,10
        !             8:        con     2,002000,2
        !             9:        con     3,010000,3,141,142,143
        !            10:        con     4,010000,2,170,171
        !            11:        declend
        !            12:        file    seqimage.icn
        !            13:        line    8
        !            14:        mark    L1
        !            15:        var     0
        !            16:        var     1
        !            17:        goto    L4
        !            18: lab L2
        !            19:        pop
        !            20:        mark    L3
        !            21:        pnull
        !            22:        int     0
        !            23:        int     1
        !            24:        push1
        !            25:        line    9
        !            26:        toby
        !            27:        incres
        !            28:        coret
        !            29:        efail
        !            30: lab L3
        !            31:        line    9
        !            32:        cofail
        !            33:        goto    L3
        !            34: lab L4
        !            35:        line    9
        !            36:        create  L2
        !            37:        invoke  1
        !            38:        invoke  1
        !            39:        unmark  1
        !            40: lab L1
        !            41:        mark    L5
        !            42:        var     0
        !            43:        var     1
        !            44:        goto    L8
        !            45: lab L6
        !            46:        pop
        !            47:        mark    L7
        !            48:        line    10
        !            49:        keywd   7
        !            50:        incres
        !            51:        coret
        !            52:        efail
        !            53: lab L7
        !            54:        line    10
        !            55:        cofail
        !            56:        goto    L7
        !            57: lab L8
        !            58:        line    10
        !            59:        create  L6
        !            60:        invoke  1
        !            61:        invoke  1
        !            62:        unmark  1
        !            63: lab L5
        !            64:        mark    L9
        !            65:        var     0
        !            66:        var     1
        !            67:        goto    L12
        !            68: lab L10
        !            69:        pop
        !            70:        mark    L11
        !            71:        mark    L13
        !            72:        pnull
        !            73:        int     0
        !            74:        int     1
        !            75:        int     2
        !            76:        line    11
        !            77:        toby
        !            78:        esusp
        !            79:        goto    L14
        !            80: lab L13
        !            81:        pnull
        !            82:        int     1
        !            83:        int     0
        !            84:        pnull
        !            85:        int     2
        !            86:        neg
        !            87:        toby
        !            88: lab L14
        !            89:        incres
        !            90:        coret
        !            91:        efail
        !            92: lab L11
        !            93:        line    11
        !            94:        cofail
        !            95:        goto    L11
        !            96: lab L12
        !            97:        line    11
        !            98:        create  L10
        !            99:        invoke  1
        !           100:        invoke  1
        !           101:        unmark  1
        !           102: lab L9
        !           103:        mark    L15
        !           104:        var     0
        !           105:        var     1
        !           106:        goto    L18
        !           107: lab L16
        !           108:        pop
        !           109:        mark    L17
        !           110:        pnull
        !           111:        pnull
        !           112:        str     3
        !           113:        line    12
        !           114:        bang
        !           115:        pnull
        !           116:        str     4
        !           117:        bang
        !           118:        cat
        !           119:        incres
        !           120:        coret
        !           121:        efail
        !           122: lab L17
        !           123:        line    12
        !           124:        cofail
        !           125:        goto    L17
        !           126: lab L18
        !           127:        line    12
        !           128:        create  L16
        !           129:        invoke  1
        !           130:        invoke  1
        !           131:        unmark  1
        !           132: lab L15
        !           133:        mark    L19
        !           134:        var     0
        !           135:        var     1
        !           136:        goto    L22
        !           137: lab L20
        !           138:        pop
        !           139:        mark    L21
        !           140:        mark    L23
        !           141:        var     1
        !           142:        esusp
        !           143:        goto    L24
        !           144: lab L23
        !           145:        var     2
        !           146: lab L24
        !           147:        incres
        !           148:        line    13
        !           149:        coret
        !           150:        efail
        !           151: lab L21
        !           152:        line    13
        !           153:        cofail
        !           154:        goto    L21
        !           155: lab L22
        !           156:        line    13
        !           157:        create  L20
        !           158:        invoke  1
        !           159:        invoke  1
        !           160:        unmark  1
        !           161: lab L19
        !           162:        mark    L25
        !           163:        var     0
        !           164:        var     1
        !           165:        goto    L28
        !           166: lab L26
        !           167:        pop
        !           168:        mark    L27
        !           169: lab L29
        !           170:        mark    L0
        !           171:        var     3
        !           172:        pnull
        !           173:        line    14
        !           174:        invoke  1
        !           175:        chfail  L29
        !           176:        esusp
        !           177:        incres
        !           178:        coret
        !           179:        efail
        !           180: lab L27
        !           181:        line    14
        !           182:        cofail
        !           183:        goto    L27
        !           184: lab L28
        !           185:        line    14
        !           186:        create  L26
        !           187:        invoke  1
        !           188:        invoke  1
        !           189:        unmark  1
        !           190: lab L25
        !           191:        pnull
        !           192:        line    15
        !           193:        pfail
        !           194:        end
        !           195: proc Seqimage
        !           196:        local   0,001000,e
        !           197:        local   1,000020,s
        !           198:        local   2,000000,image
        !           199:        con     0,010000,0
        !           200:        con     1,010000,2,054,040
        !           201:        con     2,010000,1,173
        !           202:        con     3,002000,3
        !           203:        con     4,002000,0
        !           204:        con     5,010000,1,175
        !           205:        con     6,010000,2,173,175
        !           206:        declend
        !           207:        file    seqimage.icn
        !           208:        line    17
        !           209:        mark    L1
        !           210:        pnull
        !           211:        var     1
        !           212:        str     0
        !           213:        line    19
        !           214:        asgn
        !           215:        unmark  1
        !           216: lab L1
        !           217:        mark    L2
        !           218: lab L3
        !           219:        line    20
        !           220:        mark    L0
        !           221:        pnull
        !           222:        var     1
        !           223:        dup
        !           224:        pnull
        !           225:        str     1
        !           226:        var     2
        !           227:        pnull
        !           228:        var     0
        !           229:        coact
        !           230:        invoke  1
        !           231:        cat
        !           232:        cat
        !           233:        asgn
        !           234: lab L4
        !           235:        unmark  1
        !           236:        goto    L3
        !           237: lab L5
        !           238:        unmark  1
        !           239: lab L2
        !           240:        mark    L6
        !           241:        mark    L7
        !           242:        mark    L8
        !           243:        pnull
        !           244:        pnull
        !           245:        str     2
        !           246:        pnull
        !           247:        var     1
        !           248:        int     3
        !           249:        int     4
        !           250:        line    21
        !           251:        sect
        !           252:        cat
        !           253:        str     5
        !           254:        cat
        !           255:        esusp
        !           256:        goto    L9
        !           257: lab L8
        !           258:        str     6
        !           259: lab L9
        !           260:        pret
        !           261: lab L7
        !           262:        line    21
        !           263:        pfail
        !           264:        unmark  1
        !           265: lab L6
        !           266:        pnull
        !           267:        line    22
        !           268:        pfail
        !           269:        end

unix.superglobalmegacorp.com

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