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

   1: /
   2: /
   3: 
   4: / fxb -- get integer constant or label
   5: 
   6: .globl  geticon
   7: .globl  getlab
   8: 
   9: .globl  getsym
  10: .globl  geti
  11: .globl  ptemp
  12: 
  13: geticon:
  14:         jsr     r5,getsym
  15:         cmp     r0,$2
  16:         bne     1f
  17:         cmp     r3,$intcon
  18:         bne     1f
  19:         jsr     r5,geti
  20:         tst     (r5)+
  21: 1:
  22:         rts     r5
  23: 
  24: getlab:
  25:         jsr     r5,geticon
  26:                 br 1f
  27:         mov     r0,temp
  28:         jsr     r5,ptemp; 'r; temp; line
  29:         tst     (r5)+
  30: 1:
  31:         rts     r5

Defined functions