# 2.11BSD#431 - /usr/src/ucb/pascal/px/05lv.s

       1: /
       2: / OFF, INDEX, LV and NIL
       3: /
       4: _OFF:
       5:         bne     1f
       6:         mov     (lc)+,r3
       7: 1:
       8:         add     r3,(sp)
       9:         return
      10: _INX4:
      11:         tst     (sp)+           / should check bounds here
      12:         tst     r3
      13: _INX2:
      14:         bne     1f
      15:         mov     (lc)+,r3
      16: 1:
      17:         mov     (sp)+,r1
      18:         sub     (lc)+,r1
      19:         bmi     1f
      20:         cmp     r1,(lc)+
      21:         bgt     1f
      22:         mul     r3,r1
      23:         add     r1,(sp)
      24:         return
      25: 1:
      26:         mov     $ESUBSCR,_perrno
      27:         error   ESUBSCR
      28: _NIL:
      29:         tst     (sp)
      30:         beq     1f
      31:         return
      32: 1:
      33:         mov     $ENILPTR,_perrno
      34:         error   ENILPTR
      35: _LV:
      36:         mov     _display(r3),r0
      37:         add     (lc)+,r0
      38:         mov     r0,-(sp)
      39:         return
      40: _INX4P2:
      41:         tst     (sp)+
      42: _INX2P2:
      43:         mov     (sp)+,r0
      44:         sub     (lc)+,r0
      45:         ash     r3,r0
      46:         add     r0,(sp)
      47:         return

#### Defined functions

_INX2 defined in line 13; never used
_INX2P2 defined in line 42; never used
_INX4 defined in line 10; never used
_INX4P2 defined in line 40; never used
_LV defined in line 35; never used
_NIL defined in line 28; never used
_OFF defined in line 4; never used

Last modified: 1981-12-07 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 854 |