home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d743 / turbodex.lha / TurboDEX / ExampleSources / Resident.dex < prev    next >
Text File  |  1992-10-11  |  385b  |  15 lines
  1. /* print out exec resident modules - not the resident commands */
  2.  
  3. PROC main()
  4.   DEF sysbase[4]:LONG, resarray:LONG, name:LONG, res:LONG
  5.   resarray := MLONG(sysbase+300)
  6.   res := MLONG(resarray)
  7.   WRITE 'Exec Resident modules:\n----------------------\n'
  8.   WHILE res?NIL
  9.     name := MLONG(res+14)
  10.     WRITE '\s\n',name
  11.     INC 4,resarray
  12.     res := MLONG(resarray) 
  13.   ENDWHILE 
  14. ENDPROC
  15.