UNIX 6th Ed. - /usr/source/fort/f3/f38.s

   1: /
   2: /
   3: 
   4: / f38 -- wierdo statements
   5: 
   6: .globl  sstop
   7: .globl  scall
   8: .globl  spaus
   9: .globl  sretu
  10: .globl  scont
  11: .globl  iserror
  12: 
  13: .globl  ptemp
  14: .globl  code
  15: .globl  geti
  16: .globl  getsym
  17: .globl  error
  18: .globl  declimpl
  19: .globl  e11
  20: .globl  funcappl
  21: 
  22: sstop:
  23:         clr     r0
  24:         tstb    (r1)
  25:         beq     1f
  26:         jsr     r5,getsym
  27:         cmp     r0,$2.                  / const
  28:         bne     7f
  29:         cmp     r3,$intcon
  30:         bne     7f
  31:         jsr     r5,geti
  32: 1:
  33:         jsr     r5,code
  34:                 <	stop; %d\n\0>; .even
  35:                 r0
  36:         br      8f
  37: 
  38: spaus:
  39:         jsr     r5,getsym
  40:         cmp     r0,$2
  41:         bne     7f
  42:         cmp     r3,$intcon
  43:         bne     7f
  44:         jsr     r5,geti
  45:         jsr     r5,code
  46:                 <	paus; %d\n\0>; .even
  47:                 r0
  48:         br      8f
  49: 
  50: sretu:
  51:         tst     progt
  52:         bne     1f
  53:         jsr     r5,error;  37.          / return in main
  54:         br      sstop
  55: 1:
  56:         jsr     r5,code
  57:                 <	retrn\n\0>; .even
  58: 8:
  59: scont:
  60:         tstb    (r1)
  61:         bne     7f
  62:         rts     r5
  63: 7:
  64:         jsr     r5,error; 38.
  65:         rts     r5
  66: 
  67: iserror:
  68:         cmp     errp,$errb
  69:         bne     1f
  70:         tst     (r5)+
  71: 1:
  72:         rts     r5
  73: 
  74: scall:
  75:         jsr     r5,getsym
  76:         tst     r0
  77:         bne     7b
  78:         bit     $70,symtab(r3)
  79:         bne     1f
  80:         bis     $30,symtab(r3)
  81: 1:
  82:         jsr     r5,declimpl
  83:         jsr     r5,e11
  84:         cmp     r0,$40.
  85:         bne     7b
  86:         cmp     (r2),$34.
  87:         beq     1f
  88:         cmp     (r2),$42.
  89:         bne     7b
  90: 1:
  91:         jsr     r5,funcappl
  92:         jsr     r5,code
  93:                 <0\n\0>; .even
  94:         br      8b

Defined functions