home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DRIVERS / SRC / ptys.lzh / cpty.a < prev    next >
Text File  |  1990-03-17  |  3KB  |  144 lines
  1. *        This software is copyright (C) 1989 by Reimer Mellin        *
  2. *                                                                    *
  3. *        Permission is granted to reproduce and distribute           *
  4. *        this package by any means so long as no fee is charged      *
  5. *        above a nominal handling fee and so long as this            *
  6. *        notice is always included in the copies.                    *
  7. *        Commerical use or incorporation into commercial software    *
  8. *        is prohibited without the written permission of the         *
  9. *        author.                                                     *
  10. *                                                                    *
  11. *        Other rights are reserved except as explicitly granted      *
  12. *        by written permission of the author.                        *
  13. *                Reimer Mellin                                       *
  14. *                                                                    *
  15. *                Sulenstr.8                                          *
  16. *                D-8000 Muenchen 71 (Federal Republic of Germany)    *
  17. *                                                                    *
  18. *           EMAIL:                                                   *
  19. *                mellin@lan.informatik.tu-muenchen.dbp.de            *
  20. *                ram@altger.UUCP                                     *
  21. *                ....!pyramid!tmpmbx!doitcr!ramsys!ram (home)        *
  22. *                                                                    *
  23. *
  24. * $Id: cpty.a_v 1.2.1.1 89/09/04 13:12:14 ram Exp $
  25. *
  26. * $Log:    cpty.a_v $
  27. * Revision 1.2.1.1  89/09/04  13:12:14  ram
  28. * added some comments
  29. * 
  30. * Revision 1.2  89/08/31  12:27:06  ram
  31. * Copyright-message added
  32. * 
  33. *
  34.  
  35.  nam PtyMan
  36.  ttl PtyMan - Pty File Manager
  37.  
  38.  use defsfile
  39.  
  40. Edition set 2
  41.  
  42. Typ_Lang set (FlMgr<<8)+Objct
  43. Attr_Rev set (ReEnt+SupStat)<<8+0
  44.  
  45. PD_Sysglob equ $22
  46. PD_Errno   equ $1e
  47.  
  48.  psect PtyMan,Typ_Lang,Attr_Rev,Edition,0,Entry
  49.  
  50. errno: equ $1e ; !!! PD_Errno in /DEFS/sysio.a !!!
  51. * dadurch koennen C-Routinen die errno setzen, ganz normal genutzt
  52. * werden !!
  53.  
  54.  page
  55. Entry:
  56.  dc.w _Create-Entry
  57.  dc.w _Open-Entry
  58.  dc.w _MakDir-Entry
  59.  dc.w _ChdDir-Entry
  60.  dc.w _Delete-Entry
  61.  dc.w _Seek-Entry
  62.  dc.w _Read-Entry
  63.  dc.w _Write-Entry
  64.  dc.w _ReadLn-Entry
  65.  dc.w _WriteLn-Entry
  66.  dc.w _GetStat-Entry
  67.  dc.w _SetStat-Entry
  68.  dc.w _Close-Entry
  69.  
  70. _MakDir:
  71. _ChdDir:
  72. _Delete:
  73.  move.w #E$BMode,d1
  74.  ori.w #Carry,ccr
  75.  rts
  76.  
  77. _Seek:
  78.  andi.w #NoCarry,ccr
  79.  rts
  80.  
  81. _Read:
  82.  movem.l d0-d7/a0-a6,-(sp)
  83.  bsr.s _setup
  84.  bra Read
  85.  
  86. _ReadLn:
  87.  movem.l d0-d7/a0-a6,-(sp)
  88.  bsr.s _setup
  89.  bra ReadLn
  90.  
  91. _Write:
  92.  movem.l d0-d7/a0-a6,-(sp)
  93.  bsr.s _setup
  94.  bra Write
  95.  
  96. _WriteLn:
  97.  movem.l d0-d7/a0-a6,-(sp)
  98.  bsr.s _setup
  99.  bra WriteLn
  100.  
  101. _Create:
  102. _Open:
  103.  movem.l d0-d7/a0-a6,-(sp)
  104.  bsr.s _setup
  105.  bra Open
  106.  
  107. _GetStat:
  108.  movem.l d0-d7/a0-a6,-(sp)
  109.  bsr.s _setup
  110.  bra GetStat
  111.  
  112. _SetStat:
  113.  movem.l d0-d7/a0-a6,-(sp)
  114.  bsr.s _setup
  115.  bra SetStat
  116.  
  117. _Close:
  118.  movem.l d0-d7/a0-a6,-(sp)
  119.  bsr.s _setup
  120.  bra Close
  121.  
  122. _setup
  123.  move.l a6,PD_Sysglob(a1) ; System Globals
  124.  move.l a1,a6 ; Globals fuer C
  125.  move.l (sp)+,a0 ; Return-Adresse
  126.  move.l a4,d0 ; Process-Desciptor
  127.  move.l a5,d1 ; User Stack Frame
  128.  jsr (a0) ; Ruecksprung
  129.  
  130.  tst.l d0
  131.  beq.s _setup90 ; kein Fehler!
  132.  
  133.  movem.l (sp)+,d0-d7/a0-a6
  134.  move.l PD_Errno(a1),d1
  135.  ori.w #Carry,ccr
  136.  rts
  137.  
  138. _setup90
  139.  movem.l (sp)+,d0-d7/a0-a6
  140.  andi.w #NoCarry,ccr
  141.  rts
  142.  
  143.   ends
  144.