home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxf.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  237 b   |  24 lines
  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
  23.  
  24.