home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / AmigaLib / testinterrupts.e < prev    next >
Encoding:
Text File  |  1995-04-01  |  342 b   |  21 lines
  1. MODULE 'amigalib/interrupts',
  2.        'dos/dos',
  3.        'graphics/graphint'
  4.  
  5. DEF var
  6.  
  7. PROC main()
  8.   DEF i:isrvstr
  9.   var:=0
  10.   WriteF('var = \d\n', var)
  11.   addTOF(i, {test_int}, {var})
  12.   WriteF('var = \d\n', var)
  13.   Wait(SIGBREAKF_CTRL_C)
  14.   WriteF('var = \d\n', var)
  15.   remTOF(i)
  16. ENDPROC
  17.  
  18. PROC test_int(addr:PTR TO LONG)
  19.   addr[]:=addr[]+1
  20. ENDPROC
  21.