home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s2 / pfe.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  492 b   |  45 lines
  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
  44.  
  45.