Return to x_vlist.asm CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib / vax

Annotation of 43BSD/contrib/X/CLUlib/vax/x_vlist.asm, revision 1.1.1.1

1.1       root        1: ; Copyright    Barbara Liskov    1985
                      2: 
                      3: x_vlist = cluster is create, fetch, store, size, equal
                      4: 
                      5: rep = null
                      6: 
                      7: create = qproc (n: int) returns (cvt) signals (toobig)
                      8:        mull    6,rr,n1
                      9:        movzwl  n1,n0
                     10:        ifeql   cmpl    n1,n0
                     11:        then    addl    7,n0
                     12:                bicb    3,n0
                     13:                subl    n0,heaplo
                     14:                iflss   cmpl    heaplo,freelo
                     15:                then    jsb     memout
                     16:                end
                     17:                movl    heaplo,rr
                     18:                movw    n1,(rr)
                     19:                movb    %bvecb,3(rr)
                     20:                return(rr)
                     21:        end
                     22:        signal  toobig
                     23:        end create
                     24: 
                     25: store = qproc (list: cvt, i: int, x, y, flags: int) signals (bounds)
                     26:        subl    1,i,n1
                     27:        mull    6,n1
                     28:        movl    list,n2
                     29:        movzwl  (n2),n3
                     30:        iflssu  cmpl    n1,n3
                     31:        then    movab   4(n2)[n1],n3
                     32:                movw    x,(n3)+
                     33:                movw    y,(n3)+
                     34:                movw    rr,(n3)
                     35:                return
                     36:        end
                     37:        signal  bounds
                     38:        end store
                     39: 
                     40: fetch = qproc (list: cvt, i: int) returns (int, int, int) signals (bounds)
                     41:        subl    1,rr,n1
                     42:        mull    6,n1
                     43:        movl    list,n2
                     44:        movzwl  (n2),n3
                     45:        iflssu  cmpl    n1,n3
                     46:        then    movab   4(n2)[n1],n3
                     47:                cvtwl   (n3)+,-(sp)
                     48:                cvtwl   (n3)+,-(sp)
                     49:                movzwl  (n3),rr
                     50:                return(*, *, *)
                     51:        end
                     52:        signal  bounds
                     53:        end fetch
                     54: 
                     55: size = qproc (list: cvt) returns (int)
                     56:        movzwl  (rr),rr
                     57:        divl    6,rr
                     58:        return(rr)
                     59:        end size
                     60: 
                     61: equal = qproc (list1, list2: cvt) returns (bool)
                     62:        ifeql   cmpl    list1,rr
                     63:        then    return(true)
                     64:        end
                     65:        return(false)
                     66:        end equal
                     67: 
                     68: end x_vlist

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