# HG changeset patch
# User boisy
# Date 1062028252 0
# Node ID 132859392c040c9cc9fddf91553b2050732ff961
# Parent  c1f7d686924e4759d03cd2bdb5805ee642753008
Back-ported from OS-9 Level Two

diff -r c1f7d686924e -r 132859392c04 level1/modules/pipe.asm
--- a/level1/modules/pipe.asm	Wed Aug 27 23:47:59 2003 +0000
+++ b/level1/modules/pipe.asm	Wed Aug 27 23:50:52 2003 +0000
@@ -1,14 +1,14 @@
 ********************************************************************
-* Pipe - PipeMan device descriptor
+* Pipe - Pipe device descriptor
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*        From Tandy OS-9 Level One VR 02.00.00
 
          nam   Pipe
-         ttl   PipeMan device descriptor
+         ttl   Pipe device descriptor
 
 * Disassembled 98/08/23 21:15:32 by Disasm v1.6 (C) 1988 by RML
 
diff -r c1f7d686924e -r 132859392c04 level1/modules/piper.asm
--- a/level1/modules/piper.asm	Wed Aug 27 23:47:59 2003 +0000
+++ b/level1/modules/piper.asm	Wed Aug 27 23:50:52 2003 +0000
@@ -3,54 +3,50 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*   2    From Tandy OS-9 Level One VR 02.00.00
+*   2      ????/??/??  ???
+* Original OS-9/Tandy distribution
 
          nam   Piper
          ttl   Pipe device driver
 
-* Disassembled 98/08/23 17:31:20 by Disasm v1.6 (C) 1988 by RML
-
          ifp1
          use   defsfile
          endc
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   2
 
-         mod   eom,name,tylg,atrv,Init,size
+         mod   eom,name,tylg,atrv,start,size
 
 u0000    rmb   6
 size     equ   .
 
-         fcb   UPDAT.
+         fcb   READ.+WRITE.
 
 name     fcs   /Piper/
          fcb   edition
 
+start    equ   *
 Init     clrb  
          rts   
          nop   
-
 Read     clrb  
          rts   
          nop   
-
 Write    clrb  
          rts   
          nop   
-
 GetStat  clrb  
          rts   
          nop   
-
 SetStat  clrb  
          rts   
          nop   
-
 Term     clrb  
          rts