2.9BSD - /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