Return to 21rang.s CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / px

Annotation of 40BSD/cmd/px/21rang.s, revision 1.1.1.1

1.1       root        1: #
                      2: # Copyright (c) 1979 Regents of the University of California
                      3: #
                      4: # char sccsid[] = "@(#)21rang.s 4.1 10/10/80";
                      5: #
                      6: # range checking
                      7: #
                      8: _RANG2:
                      9:        cvtbl   (r10)+,r1
                     10:        bneq    l2101
                     11:        cvtwl   (r10)+,r1
                     12: l2101:
                     13:        cmpw    (sp),r1
                     14:        blss    erange
                     15:        cmpw    (sp),(r10)+
                     16:        bgtr    erange
                     17:        jmp     (r8)
                     18: _RANG24:
                     19:        incl    r10
                     20:        cvtwl   (sp),r0
                     21:        cmpl    r0,(r10)+
                     22:        blss    erange
                     23:        cmpl    r0,(r10)+
                     24:        bgtr    erange
                     25:        jmp     (r8)
                     26: _RANG42:
                     27:        cvtbl   (r10)+,r0
                     28:        bneq    l2102
                     29:        cvtwl   (r10)+,r0
                     30: l2102:
                     31:        cvtwl   (r10)+,r1
                     32:        cmpl    (sp),r0
                     33:        blss    erange
                     34:        cmpl    (sp),r1
                     35:        bgtr    erange
                     36:        jmp     (r8)
                     37: _RANG4:
                     38:        incl    r10
                     39:        cmpl    (sp),(r10)+
                     40:        blss    erange
                     41:        cmpl    (sp),(r10)+
                     42:        bgtr    erange
                     43:        jmp     (r8)
                     44: erange:
                     45:        movw    $ERANGE,_perrno
                     46:        jbr     error
                     47: _RSNG2:
                     48:        cvtbl   (r10)+,r1
                     49:        bneq    l2103
                     50:        cvtwl   (r10)+,r1
                     51: l2103:
                     52:        movw    (sp),r0
                     53:        blss    erange
                     54:        cmpw    r0,r1
                     55:        bgtr    erange
                     56:        jmp     (r8)
                     57: _RSNG24:
                     58:        incl    r10
                     59:        cvtwl   (sp),r0
                     60:        blss    erange
                     61:        cmpl    r0,(r10)+
                     62:        bgtr    erange
                     63:        jmp     (r8)
                     64: _RSNG42:
                     65:        cvtbl   (r10)+,r1
                     66:        bneq    l2104
                     67:        cvtwl   (r10)+,r1
                     68: l2104:
                     69:        movl    (sp),r0
                     70:        blss    erange
                     71:        cmpl    r0,r1
                     72:        bgtr    erange
                     73:        jmp     (r8)
                     74: _RSNG4:
                     75:        incl    r10
                     76:        movl    (sp),r0
                     77:        blss    erange
                     78:        cmpl    r0,(r10)+
                     79:        bgtr    erange
                     80:        jmp     (r8)

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