UNIX 6th Ed. - /usr/source/fort/fx/fxd.s

   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

Defined functions