UNIX 6th Ed. - /usr/source/s2/pfe.s

   1: / print last floating error
   2: 
   3: stst    = 170300^tst
   4: 
   5:         stst    r1
   6:         cmp     r1,$14
   7:         blos    1f
   8:         clr     r1
   9: 1:
  10:         bic     $1,r1
  11:         mov     mesg(r1),r1
  12: 1:
  13:         movb    (r1)+,ch
  14:         beq     1f
  15:         mov     $1,r0
  16:         sys     write; ch; 1
  17:         br      1b
  18: 1:
  19:         sys     exit
  20: 
  21: mesg:
  22:         1f
  23:         2f
  24:         3f
  25:         4f
  26:         5f
  27:         6f
  28:         7f
  29:         8f
  30: 
  31: 1:      <No error.\n\0>
  32: 2:      <Floating op code error\n\0>
  33: 3:      <Floating divide check\n\0>
  34: 4:      <Integer conversion error\n\0>
  35: 5:      <Floating overflow\n\0>
  36: 6:      <Floating underflow\n\0>
  37: 7:      <Floating undefined\n\0>
  38: 8:      <Floating maintennace trap\n\0>
  39: 
  40:         .even
  41: 
  42:         .bss
  43: ch:     .=.+2

Defined functions

Defined variables