UNIX 6th Ed. - /usr/source/fort/f4/f43.s

   1: /
   2: /
   3: 
   4: / f43 -- output globals and bdata bss's
   5: 
   6: .globl  globls
   7: 
   8: .globl  code
   9: .globl  dattab
  10: .globl  onedata
  11: .globl  error
  12: .globl  perror
  13: 
  14: globls:
  15:         mov     progt,r0
  16:         jmp     *1f(r0)
  17: 1:
  18:         1f
  19:         2f
  20:         3f
  21:         4f
  22: 1:
  23:         jsr     r5,code
  24:                 <.globl	main\n\0>; .even
  25:         rts     r5
  26: 2:
  27: 3:
  28:         jsr     r5,code
  29:                 <.globl	%n.\n\0>; .even
  30:                 8
  31:         rts     r5
  32: 4:
  33: 1:
  34:         clr     r3
  35: 1:
  36:         cmp     r3,symtp
  37:         blo     2f
  38:         rts     r5
  39: 2:
  40:         mov     symtab(r3),r0
  41:         bic     $!270,r0
  42:         cmp     r0,$40                  / common block
  43:         bne     2f
  44:         mov     symtab+6(r3),r2
  45:         beq     2f
  46:         mov     $dattab,r1
  47: 3:
  48:         cmp     r1,r4
  49:         bhis    3f
  50:         cmp     (r1),r3
  51:         beq     4f
  52:         add     $8.,r1
  53:         br      3b
  54: 3:
  55:         jsr     r5,code
  56:                 <.bss\n.globl	%n\n%n:	.=.+%d.\n.text\n\0>; .even
  57:                 r3
  58:                 r3
  59:                 r2
  60:         br      2f
  61: 4:
  62:         jsr     r5,code
  63:                 <.data\n.globl	%n\n%n:\n\0>; .even
  64:                 r3
  65:                 r3
  66:         mov     r2,-(sp)
  67:         mov     r3,-(sp)
  68:         mov     r1,r3
  69:         jsr     r5,onedata
  70:         mov     (sp)+,r3
  71:         mov     (sp)+,r2
  72:         sub     r1,r2
  73:         bge     9f
  74:         jsr     r5,error; 22.           / data overrun
  75:         jsr     r5,perror
  76: 9:
  77:         jsr     r5,code
  78:                 <.=.+%d.\n.text\n\0>; .even
  79:         r2
  80: 2:
  81:         add     $8,r3
  82:         br      1b

Defined functions