home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r0.s next >
Encoding:
Text File  |  1975-07-17  |  507 b   |  51 lines
  1. /
  2. /
  3.  
  4. .globl    main
  5. .globl    temp
  6. .globl    rerr
  7. .globl    fptrap
  8.  
  9. .comm    erret,2
  10. .comm    argp,2
  11.  
  12. ldfps    = 170100^tst
  13.  
  14.     sys    signal; 4; fptrap
  15.     ldfps    $5400
  16.     mov    sp,argp
  17.     mov    $main,r4
  18.     jmp    *(r4)+
  19.  
  20. rerr:
  21.     mov    (r5)+,r1
  22.     tst    erret
  23.     beq    1f
  24.     jsr    pc,erret
  25. 1:
  26.     mov    $temp,r2
  27.     jsr    r5,1f
  28.     movb    $'\n,(r2)+
  29.     sub    $mesg,r2
  30.     mov    r2,0f
  31.     mov    $2,r0
  32.     sys    write; mesg; 0:..
  33.     sys    exit
  34. 1:
  35.     clr    r0
  36.     div    $10.,r0
  37.     mov    r1,-(sp)
  38.     mov    r0,r1
  39.     beq    1f
  40.     jsr    r5,1b
  41. 1:
  42.     mov    (sp)+,r0
  43.     add    $'0,r0
  44.     movb    r0,(r2)+
  45.     rts    r5
  46.  
  47. mesg:
  48.     <Runtime error >
  49. temp:    .=.+16.
  50.  
  51.