Return to pdco.u1 CVS log

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

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

1.1     ! root        1: proc main
        !             2:        local   0,000000,write
        !             3:        local   1,000000,Galt
        !             4:        local   2,000000,Seqimage
        !             5:        local   3,000000,star
        !             6:        local   4,000000,Limit
        !             7:        local   5,000000,Ranseq
        !             8:        con     0,002000,1
        !             9:        con     1,002000,10
        !            10:        con     2,010000,4,141,142,143,144
        !            11:        con     3,010000,3,141,142,143
        !            12:        con     4,002000,1000
        !            13:        con     5,002000,5
        !            14:        con     6,010000,3,055,055,055
        !            15:        con     7,002000,100
        !            16:        con     8,002000,3
        !            17:        con     9,010000,4,010,055,055,055
        !            18:        declend
        !            19:        file    pdco.icn
        !            20:        line    9
        !            21:        mark    L1
        !            22:        mark    L0
        !            23:        var     0
        !            24:        var     1
        !            25:        pnull
        !            26:        goto    L6
        !            27: lab L4
        !            28:        pop
        !            29:        mark    L5
        !            30:        pnull
        !            31:        int     0
        !            32:        int     1
        !            33:        push1
        !            34:        line    10
        !            35:        toby
        !            36:        incres
        !            37:        coret
        !            38:        efail
        !            39: lab L5
        !            40:        line    10
        !            41:        cofail
        !            42:        goto    L5
        !            43: lab L6
        !            44:        line    10
        !            45:        create  L4
        !            46:        goto    L9
        !            47: lab L7
        !            48:        pop
        !            49:        mark    L8
        !            50:        pnull
        !            51:        str     2
        !            52:        bang
        !            53:        incres
        !            54:        coret
        !            55:        efail
        !            56: lab L8
        !            57:        line    10
        !            58:        cofail
        !            59:        goto    L8
        !            60: lab L9
        !            61:        line    10
        !            62:        create  L7
        !            63:        goto    L12
        !            64: lab L10
        !            65:        pop
        !            66:        mark    L11
        !            67:        pnull
        !            68:        int     0
        !            69:        int     1
        !            70:        push1
        !            71:        toby
        !            72:        incres
        !            73:        coret
        !            74:        efail
        !            75: lab L11
        !            76:        line    10
        !            77:        cofail
        !            78:        goto    L11
        !            79: lab L12
        !            80:        line    10
        !            81:        create  L10
        !            82:        llist   3
        !            83:        invoke  1
        !            84:        invoke  1
        !            85:        pop
        !            86: lab L2
        !            87:        efail
        !            88: lab L3
        !            89:        unmark  1
        !            90: lab L1
        !            91:        mark    L13
        !            92:        var     0
        !            93:        var     2
        !            94:        pnull
        !            95:        goto    L16
        !            96: lab L14
        !            97:        pop
        !            98:        mark    L15
        !            99:        int     1
        !           100:        line    11
        !           101:        limit
        !           102:        mark    L0
        !           103:        var     3
        !           104:        str     3
        !           105:        invoke  1
        !           106:        lsusp
        !           107:        incres
        !           108:        coret
        !           109:        efail
        !           110: lab L15
        !           111:        line    11
        !           112:        cofail
        !           113:        goto    L15
        !           114: lab L16
        !           115:        line    11
        !           116:        create  L14
        !           117:        llist   1
        !           118:        invoke  1
        !           119:        invoke  1
        !           120:        unmark  1
        !           121: lab L13
        !           122:        mark    L17
        !           123:        var     0
        !           124:        var     2
        !           125:        pnull
        !           126:        goto    L20
        !           127: lab L18
        !           128:        pop
        !           129:        mark    L19
        !           130:        pnull
        !           131:        int     0
        !           132:        int     4
        !           133:        push1
        !           134:        line    12
        !           135:        toby
        !           136:        incres
        !           137:        coret
        !           138:        efail
        !           139: lab L19
        !           140:        line    12
        !           141:        cofail
        !           142:        goto    L19
        !           143: lab L20
        !           144:        line    12
        !           145:        create  L18
        !           146:        goto    L23
        !           147: lab L21
        !           148:        pop
        !           149:        mark    L22
        !           150:        int     5
        !           151:        incres
        !           152:        coret
        !           153:        efail
        !           154: lab L22
        !           155:        line    12
        !           156:        cofail
        !           157:        goto    L22
        !           158: lab L23
        !           159:        line    12
        !           160:        create  L21
        !           161:        llist   2
        !           162:        invoke  1
        !           163:        invoke  1
        !           164:        unmark  1
        !           165: lab L17
        !           166:        mark    L24
        !           167:        var     0
        !           168:        str     6
        !           169:        line    13
        !           170:        invoke  1
        !           171:        unmark  1
        !           172: lab L24
        !           173:        mark    L25
        !           174:        mark    L0
        !           175:        var     0
        !           176:        var     4
        !           177:        pnull
        !           178:        goto    L30
        !           179: lab L28
        !           180:        pop
        !           181:        mark    L29
        !           182:        pnull
        !           183:        int     0
        !           184:        int     7
        !           185:        push1
        !           186:        line    14
        !           187:        toby
        !           188:        incres
        !           189:        coret
        !           190:        efail
        !           191: lab L29
        !           192:        line    14
        !           193:        cofail
        !           194:        goto    L29
        !           195: lab L30
        !           196:        line    14
        !           197:        create  L28
        !           198:        goto    L33
        !           199: lab L31
        !           200:        pop
        !           201:        mark    L32
        !           202:        int     8
        !           203:        incres
        !           204:        coret
        !           205:        efail
        !           206: lab L32
        !           207:        line    14
        !           208:        cofail
        !           209:        goto    L32
        !           210: lab L33
        !           211:        line    14
        !           212:        create  L31
        !           213:        llist   2
        !           214:        invoke  1
        !           215:        invoke  1
        !           216:        pop
        !           217: lab L26
        !           218:        efail
        !           219: lab L27
        !           220:        unmark  1
        !           221: lab L25
        !           222:        mark    L34
        !           223:        var     0
        !           224:        str     9
        !           225:        line    15
        !           226:        invoke  1
        !           227:        unmark  1
        !           228: lab L34
        !           229:        mark    L35
        !           230:        mark    L0
        !           231:        var     0
        !           232:        var     5
        !           233:        pnull
        !           234:        goto    L40
        !           235: lab L38
        !           236:        pop
        !           237:        mark    L39
        !           238:        pnull
        !           239:        str     2
        !           240:        line    16
        !           241:        bang
        !           242:        incres
        !           243:        coret
        !           244:        efail
        !           245: lab L39
        !           246:        line    16
        !           247:        cofail
        !           248:        goto    L39
        !           249: lab L40
        !           250:        line    16
        !           251:        create  L38
        !           252:        goto    L43
        !           253: lab L41
        !           254:        pop
        !           255:        mark    L42
        !           256:        pnull
        !           257:        int     0
        !           258:        int     1
        !           259:        push1
        !           260:        toby
        !           261:        incres
        !           262:        coret
        !           263:        efail
        !           264: lab L42
        !           265:        line    16
        !           266:        cofail
        !           267:        goto    L42
        !           268: lab L43
        !           269:        line    16
        !           270:        create  L41
        !           271:        llist   2
        !           272:        invoke  1
        !           273:        invoke  1
        !           274:        pop
        !           275: lab L36
        !           276:        efail
        !           277: lab L37
        !           278:        unmark  1
        !           279: lab L35
        !           280:        pnull
        !           281:        line    17
        !           282:        pfail
        !           283:        end
        !           284: proc star
        !           285:        local   0,001000,s
        !           286:        local   1,000000,star
        !           287:        con     0,010000,0
        !           288:        declend
        !           289:        file    pdco.icn
        !           290:        line    19
        !           291:        mark    L1
        !           292:        mark    L0
        !           293:        mark    L2
        !           294:        str     0
        !           295:        esusp
        !           296:        goto    L3
        !           297: lab L2
        !           298:        pnull
        !           299:        var     1
        !           300:        var     0
        !           301:        line    20
        !           302:        invoke  1
        !           303:        pnull
        !           304:        var     0
        !           305:        bang
        !           306:        cat
        !           307: lab L3
        !           308:        psusp
        !           309:        efail
        !           310:        unmark  1
        !           311: lab L1
        !           312:        pnull
        !           313:        line    21
        !           314:        pfail
        !           315:        end
        !           316: proc Galt
        !           317:        local   0,001000,a
        !           318:        local   1,000020,e
        !           319:        declend
        !           320:        file    pdco.icn
        !           321:        line    23
        !           322:        mark    L1
        !           323:        mark    L0
        !           324:        pnull
        !           325:        var     1
        !           326:        pnull
        !           327:        var     0
        !           328:        line    25
        !           329:        bang
        !           330:        asgn
        !           331:        pop
        !           332:        mark    L0
        !           333:        mark    L0
        !           334: lab L4
        !           335:        mark    L0
        !           336:        pnull
        !           337:        var     1
        !           338:        coact
        !           339:        chfail  L4
        !           340:        esusp
        !           341:        psusp
        !           342:        efail
        !           343:        unmark  1
        !           344: lab L2
        !           345:        efail
        !           346: lab L3
        !           347:        unmark  1
        !           348: lab L1
        !           349:        pnull
        !           350:        line    26
        !           351:        pfail
        !           352:        end
        !           353: proc Limit
        !           354:        local   0,001000,a
        !           355:        local   1,000020,i
        !           356:        local   2,000020,x
        !           357:        con     0,002000,2
        !           358:        con     1,002000,1
        !           359:        declend
        !           360:        file    pdco.icn
        !           361:        line    28
        !           362:        mark    L1
        !           363: lab L2
        !           364:        line    30
        !           365:        mark    L0
        !           366:        pnull
        !           367:        var     1
        !           368:        pnull
        !           369:        pnull
        !           370:        var     0
        !           371:        int     0
        !           372:        subsc
        !           373:        coact
        !           374:        asgn
        !           375:        unmark  1
        !           376:        mark    L2
        !           377:        mark    L5
        !           378:        pnull
        !           379:        pnull
        !           380:        var     0
        !           381:        int     1
        !           382:        line    31
        !           383:        subsc
        !           384:        pnull
        !           385:        pnull
        !           386:        var     0
        !           387:        int     1
        !           388:        subsc
        !           389:        refresh
        !           390:        asgn
        !           391:        unmark  1
        !           392: lab L5
        !           393:        mark    L0
        !           394:        pnull
        !           395:        int     1
        !           396:        var     1
        !           397:        push1
        !           398:        line    32
        !           399:        toby
        !           400:        pop
        !           401:        mark    L0
        !           402:        mark    L8
        !           403:        pnull
        !           404:        var     2
        !           405:        pnull
        !           406:        pnull
        !           407:        var     0
        !           408:        int     1
        !           409:        line    33
        !           410:        subsc
        !           411:        coact
        !           412:        asgn
        !           413:        unmark  1
        !           414:        mark    L0
        !           415:        var     2
        !           416:        psusp
        !           417:        efail
        !           418:        goto    L9
        !           419: lab L8
        !           420:        unmark  2
        !           421:        pnull
        !           422:        goto    L7
        !           423: lab L9
        !           424:        unmark  1
        !           425: lab L6
        !           426:        efail
        !           427: lab L7
        !           428: lab L3
        !           429:        unmark  1
        !           430:        goto    L2
        !           431: lab L4
        !           432:        unmark  1
        !           433: lab L1
        !           434:        pnull
        !           435:        line    36
        !           436:        pfail
        !           437:        end
        !           438: proc Ranseq
        !           439:        local   0,001000,a
        !           440:        local   1,000020,x
        !           441:        declend
        !           442:        file    pdco.icn
        !           443:        line    38
        !           444:        mark    L1
        !           445: lab L2
        !           446:        line    40
        !           447:        mark    L0
        !           448:        pnull
        !           449:        var     1
        !           450:        pnull
        !           451:        pnull
        !           452:        var     0
        !           453:        random
        !           454:        coact
        !           455:        asgn
        !           456:        unmark  1
        !           457:        mark    L2
        !           458:        mark    L0
        !           459:        var     1
        !           460:        psusp
        !           461:        efail
        !           462: lab L3
        !           463:        unmark  1
        !           464:        goto    L2
        !           465: lab L4
        !           466:        unmark  1
        !           467: lab L1
        !           468:        pnull
        !           469:        line    41
        !           470:        pfail
        !           471:        end
        !           472: proc Seqimage
        !           473:        local   0,001000,a
        !           474:        local   1,000020,seq
        !           475:        local   2,000020,result
        !           476:        local   3,000020,i
        !           477:        local   4,000000,image
        !           478:        con     0,010000,0
        !           479:        con     1,002000,2
        !           480:        con     2,002000,1
        !           481:        con     3,010000,5,054,040,056,056,056
        !           482:        con     4,010000,2,054,040
        !           483:        con     5,010000,1,173
        !           484:        con     6,002000,3
        !           485:        con     7,002000,0
        !           486:        con     8,010000,1,175
        !           487:        con     9,010000,2,173,175
        !           488:        declend
        !           489:        file    pdco.icn
        !           490:        line    43
        !           491:        mark    L1
        !           492:        pnull
        !           493:        var     1
        !           494:        str     0
        !           495:        line    45
        !           496:        asgn
        !           497:        unmark  1
        !           498: lab L1
        !           499:        mark    L2
        !           500:        pnull
        !           501:        var     3
        !           502:        pnull
        !           503:        pnull
        !           504:        var     0
        !           505:        int     1
        !           506:        line    46
        !           507:        subsc
        !           508:        coact
        !           509:        asgn
        !           510:        unmark  1
        !           511: lab L2
        !           512:        mark    L3
        !           513: lab L4
        !           514:        line    47
        !           515:        mark    L0
        !           516:        pnull
        !           517:        var     2
        !           518:        var     4
        !           519:        pnull
        !           520:        pnull
        !           521:        var     0
        !           522:        int     2
        !           523:        subsc
        !           524:        coact
        !           525:        invoke  1
        !           526:        asgn
        !           527:        unmark  1
        !           528:        mark    L4
        !           529:        mark    L7
        !           530:        pnull
        !           531:        pnull
        !           532:        pnull
        !           533:        var     0
        !           534:        int     2
        !           535:        line    48
        !           536:        subsc
        !           537:        size
        !           538:        pnull
        !           539:        var     3
        !           540:        nonnull
        !           541:        numgt
        !           542:        unmark  1
        !           543:        mark    L9
        !           544:        pnull
        !           545:        var     1
        !           546:        dup
        !           547:        str     3
        !           548:        line    49
        !           549:        cat
        !           550:        asgn
        !           551:        unmark  1
        !           552: lab L9
        !           553:        unmark  1
        !           554:        pnull
        !           555:        goto    L6
        !           556:        goto    L8
        !           557: lab L7
        !           558:        pnull
        !           559:        var     1
        !           560:        dup
        !           561:        pnull
        !           562:        str     4
        !           563:        var     2
        !           564:        line    52
        !           565:        cat
        !           566:        cat
        !           567:        asgn
        !           568: lab L8
        !           569: lab L5
        !           570:        unmark  1
        !           571:        goto    L4
        !           572: lab L6
        !           573:        unmark  1
        !           574: lab L3
        !           575:        mark    L10
        !           576:        mark    L11
        !           577:        mark    L12
        !           578:        pnull
        !           579:        pnull
        !           580:        str     5
        !           581:        pnull
        !           582:        var     1
        !           583:        int     6
        !           584:        int     7
        !           585:        line    53
        !           586:        sect
        !           587:        cat
        !           588:        str     8
        !           589:        cat
        !           590:        esusp
        !           591:        goto    L13
        !           592: lab L12
        !           593:        str     9
        !           594: lab L13
        !           595:        pret
        !           596: lab L11
        !           597:        line    53
        !           598:        pfail
        !           599:        unmark  1
        !           600: lab L10
        !           601:        pnull
        !           602:        line    54
        !           603:        pfail
        !           604:        end

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