home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DRIVERS / nulman.lzh / NULMAN.A < prev   
Text File  |  1993-03-05  |  763b  |  41 lines
  1. *
  2. * nulman - OS-9/680x0 Nirwana file manager
  3. * by Marc Balmer, balmer@ifi.unibas.ch
  4. *
  5.  
  6.  use /h0/defs/oskdefs.d
  7.  
  8. Edition equ 2
  9. Stacksize equ 0
  10.  
  11. Type_Lang equ (FlMgr<<8)+Objct
  12. Attr_Revs set (ReEnt+SupStat<<8)+0
  13.  
  14.  psect nulman,Type_Lang,Attr_Revs,Edition,Stacksize,Entry
  15.           
  16. Entry dc.w NoError-Entry Create
  17.  dc.w NoError-Entry Open
  18.  dc.w NoError-Entry MakDir
  19.  dc.w NoError-Entry ChgDir
  20.  dc.w NoError-Entry Delete
  21.  dc.w NoError-Entry Seek
  22.  dc.w EndOfFile-Entry Read
  23.  dc.w NoError-Entry Write
  24.  dc.w EndOfFile-Entry ReadLn
  25.  dc.w NoError-Entry WriteLn
  26.  dc.w UnkSvc-Entry GetStat
  27.  dc.w UnkSvc-Entry SetStat
  28.  dc.w NoError-Entry Close
  29.  
  30. NoError moveq.l #0,d1
  31.  rts
  32.  
  33. EndOfFile move.w #E$EOF,d1
  34.  ori.b #Carry,ccr
  35.  rts
  36.  
  37. UnkSvc move.w #E$UnkSvc,d1
  38.  ori.b #Carry,ccr
  39.  rts
  40.  
  41.