Return to psusp2.icn CVS log

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

Annotation of 43BSD/contrib/icon/port/psusp2.icn, revision 1.1.1.1

1.1       root        1: #  This program tests lib/psusp.s.
                      2: 
                      3: procedure main()
                      4:    every write(fibseq() \ 20)
                      5: end
                      6: 
                      7: procedure fibseq()
                      8:    local i, j, k
                      9:    suspend (i := 1) | (j := 1)
                     10:    repeat {
                     11:       suspend k := i + j
                     12:       i := j
                     13:       j := k
                     14:       }
                     15: end

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