home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Tools / AmigaLib / testinterrupts.e < prev    next >
Text File  |  1995-04-01  |  342b  |  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.