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

   1: /
   2: /
   3: 
   4: / fxf -- format statements
   5: 
   6: .globl  sform
   7: .globl  sdata
   8: 
   9: .globl  ptemp
  10: .globl  error
  11: 
  12: sform:
  13:         cmp     progt,$6                / block data
  14:         bne     1f
  15:         jsr     r5,error; 50.
  16: 1:
  17:         jsr     r5,ptemp; 'f; efno; line
  18:         rts     r5
  19: 
  20: sdata:
  21:         jsr     r5,ptemp; 'd; efno; line
  22:         rts     r5

Defined functions