home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / MAXONC3_6OF8.DMS / in.adf / LIBSRC.LHA / LIBSRC / userbreak.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-16  |  606 b   |  38 lines
  1.  
  2. * Maxon C++ Library:
  3. * Modul "userbreak"
  4. * Jens Gelhar 07.09.92
  5.  
  6.     xdef    userbreak,userbreak_flagpos
  7.     xdef    _INIT_0_UserBreaK_Position
  8.  
  9.     xref    __Writefile,_std__err
  10.     xref    exit__i
  11.  
  12. execbase    = 4
  13.  
  14. _INIT_0_UserBreaK_Position:
  15.     move.l execbase.w,a6
  16.     move.l $114(a6),a6        ; ThisTask
  17.     lea $1C(a6),a6
  18.     move.l a6,userbreak_flagpos
  19.     rts
  20.  
  21. userbreak:
  22.     move.l userbreak_flagpos(pc),a0    ; Break-Signal löschen
  23.     bclr #4,(a0)
  24.     lea _std__err,a0
  25.     move.l #str,d2
  26.     moveq #strlen,d3
  27.     jsr __Writefile
  28.     move.l #900,-(a7)
  29.     jsr exit__i
  30.  
  31. userbreak_flagpos:
  32.     dc.l dummy
  33. dummy:    dc.l 0
  34. str:    dc.b 10,'*** User break',10
  35. strlen    = *-str
  36.  
  37.     end
  38.