UNIX 6th Ed. - /usr/source/fort/f1/f16.s

   1: /
   2: /
   3: 
   4: / f16 -- extrn, equiv, data
   5: 
   6: .globl  sextr
   7: .globl  sequi
   8: 
   9: .globl  getsym
  10: .globl  putc
  11: .globl  error
  12: .globl  ptemp
  13: 
  14: sextr:
  15:         jsr     r5,getsym
  16:         tst     r0
  17:         bne     1f
  18:         bit     $70,symtab(r3)
  19:         beq     2f
  20:         jsr     r5,error; 14.
  21: 2:
  22:         bis     $30,symtab(r3)
  23:         jsr     r5,getsym
  24:         cmp     r0,$36.         / ,
  25:         beq     sextr
  26:         cmp     r0,$40.         / eos
  27:         beq     2f
  28: 1:
  29:         jsr     r5,error; 15.
  30: 2:
  31:         rts     r5
  32: 
  33: sequi:
  34:         jsr     r5,ptemp; 'e; efno; line
  35:         rts     r5

Defined functions