home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / Resident.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  385 b   |  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.