home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxd.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  505 b   |  51 lines
  1. /
  2. /
  3.  
  4. / xd -- tmp file 2 handl
  5.  
  6. .globl    setln
  7. .globl    getln
  8.  
  9. .globl    tfil2
  10. .globl    tfildiag
  11. .globl    fopen
  12. .globl    getc
  13. .globl    getw
  14. .globl    xbuf
  15.  
  16. setln:
  17.     mov    $tfil2,r0
  18.     jsr    r5,fopen; xbuf
  19.     bcc    1f
  20.     jmp    tfildiag
  21. 1:
  22.     rts    r5
  23.  
  24. getln:
  25.     jsr    r5,getc; xbuf
  26.     bcs    3f
  27.     mov    r0,-(sp)
  28.     jsr    r5,getw; xbuf
  29.     mov    r0,efno
  30.     jsr    r5, getw; xbuf
  31.     mov    r0,ifno
  32.     mov    $line,r1
  33. 1:
  34.     jsr    r5,getc; xbuf
  35.     bcs    1f
  36.     tst    r0
  37.     beq    1f
  38.     bic    $200,r0
  39.     movb    r0,(r1)+
  40.     br    1b
  41. 1:
  42.     clrb    (r1)+
  43.     mov    (sp)+,r0
  44.     tst    (r5)+
  45.     rts    r5
  46. 3:
  47.     mov    xbuf,r0
  48.     sys    close
  49.     rts    r5
  50.  
  51.