UNIX 6th Ed. - /usr/source/fort/rt/rd.s

   1: /
   2: /
   3: 
   4: / rd -- short list I/O do loop
   5: 
   6: .globl  slist1
   7: .globl  slist2
   8: .globl  slist3
   9: 
  10: .globl  temp
  11: 
  12: slist1:
  13:         mov     (r4)+,r0
  14:         mov     (r0)+,r2
  15:         mov     $1,r1
  16: 1:
  17:         mpy     (r0)+,r1
  18:         sob     r2,1b
  19:         mov     $temp,r2
  20:         mov     r1,(r2)+
  21:         clr     (r2)+
  22:         mov     (r0)+,(r2)+
  23:         jmp     *(r4)+
  24: 
  25: slist2:
  26:         mov     (r4)+,r0
  27:         dec     temp
  28:         ble     1f
  29:         mov     r0,r4
  30: 1:
  31:         jmp     *(r4)+
  32: 
  33: slist3:
  34:         mov     $temp+2,r0
  35:         add     (r0)+,(sp)
  36:         add     (r0),-(r0)
  37:         jmp     *(r4)+

Defined functions