home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / rd.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  373 b   |  39 lines
  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)+
  38.  
  39.