# HG changeset patch
# User boisy
# Date 1027573516 0
# Node ID 486e94f18be0ba8492340869c3fa856dfd836cb8
# Parent  2c13557a04d6f0e2ad7b3d93750cac10f8a1d923
Added Disto specific modules

diff -r 2c13557a04d6 -r 486e94f18be0 3rdparty/drivers/disto/defsfile
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/drivers/disto/defsfile	Thu Jul 25 05:05:16 2002 +0000
@@ -0,0 +1,4 @@
+Level	equ	2
+	use	os9defs
+	use	scfdefs
+        use     systype
diff -r 2c13557a04d6 -r 486e94f18be0 3rdparty/drivers/disto/makefile
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/drivers/disto/makefile	Thu Jul 25 05:05:16 2002 +0000
@@ -0,0 +1,13 @@
+include ../../../Makefile.rules
+
+DEPENDS		= ./Makefile
+DRVRS		= parallel.dr
+DESCS		= pp.dd
+
+ALLOBJS		= $(DRVRS) $(DESCS)
+
+all:	$(ALLOBJS) $(DEPENDS)
+
+clean:
+	$(RM) $(ALLOBJS)
+
diff -r 2c13557a04d6 -r 486e94f18be0 3rdparty/drivers/disto/parallel.asm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/drivers/disto/parallel.asm	Thu Jul 25 05:05:16 2002 +0000
@@ -0,0 +1,97 @@
+********************************************************************
+* Parallel - Disto Parallel Printer driver
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  12    ???
+
+         nam   Parallel
+         ttl   Disto Parallel Printer driver
+
+* Disassembled 98/08/25 13:20:51 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Drivr+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+edition  set   12
+
+         mod   eom,name,tylg,atrv,start,size
+
+u0000    rmb   29
+u001D    rmb   1
+u001E    rmb   1
+u001F    rmb   1
+size     equ   .
+
+         fcb   UPDAT.
+
+name     fcs   /Parallel/
+         fcb   edition
+
+start    lbra  Init
+         lbra  Read
+         lbra  Write
+         lbra  GetStat
+         lbra  SetStat
+         lbra  Term
+
+Read     comb  
+         ldb   #E$BMode
+         rts   
+
+Write    ldb   >MPI.Slct
+         andb  #$33
+         pshs  b
+         ldb   #$33
+         stb   >MPI.Slct
+         tst   >$FF52
+         bmi   Nap
+L003E    sta   >$FF52
+         sta   >$FF52
+         puls  b
+         stb   >MPI.Slct
+         clrb  
+         rts   
+
+Nap      ldx   #$0001
+         os9   F$Sleep  
+         tst   >$FF52
+         bpl   L003E
+         bra   Nap
+
+SetStat  comb  
+         ldb   #E$UnkSvc
+         rts   
+
+GetStat  cmpa  #SS.ScSiz
+         bne   SetStat
+         ldx   PD.RGS,y
+         clra  
+         ldb   <u001D,u
+         std   R$X,x
+         ldb   <u001E,u
+         std   R$Y,x
+Term     clra  
+         lbra  Write
+         lbra  Write
+         lbra  Write
+         clrb  
+         rts   
+
+Init     ldd   <$2C,y
+         std   <u001D,u
+         lda   <,y
+         sta   <u001F,u
+         clrb  
+         rts   
+
+         emod
+eom      equ   *
+         end
+
diff -r 2c13557a04d6 -r 486e94f18be0 3rdparty/drivers/disto/pp.asm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/drivers/disto/pp.asm	Thu Jul 25 05:05:16 2002 +0000
@@ -0,0 +1,56 @@
+         nam   P
+         ttl   Disto Parallel Port device descriptor
+
+* Disassembled 98/08/25 13:20:40 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1  
+         use   defsfile
+         endc  
+
+tylg     set   Devic+Objct
+atrv     set   ReEnt+rev
+rev      set   $01
+
+         mod   eom,name,tylg,atrv,mgrnam,drvnam
+
+         fcb   READ.+WRITE. mode byte
+         fcb   $07        extended controller address
+         fdb   $FF52      physical controller address
+         fcb   initsize-*-1 initilization table size
+         fcb   DT.SCF     device type:0=scf,1=rbf,2=pipe,3=scf
+         fcb   $00        case:0=up&lower,1=upper only
+         fcb   $00        backspace:0=bsp,1=bsp then sp & bsp
+         fcb   $01        delete:0=bsp over line,1=return
+         fcb   $00        echo:0=no echo
+         fcb   $01        auto line feed:0=off
+         fcb   $00        end of line null count
+         fcb   $00        pause:0=no end of page pause
+         fcb   66         lines per page
+         fcb   C$BSP      backspace character
+         fcb   C$DEL      delete line character
+         fcb   C$CR       end of record character
+         fcb   $00        end of file character
+         fcb   C$RPRT     reprint line character
+         fcb   C$RPET     duplicate last line character
+         fcb   C$PAUS     pause character
+         fcb   $00        interrupt character
+         fcb   $00        quit character
+         fcb   $5F        backspace echo character
+         fcb   C$BELL     line overflow character (bell)
+         fcb   $00        init value for dev ctl reg
+         fcb   B9600      baud rate
+         fdb   name       copy of descriptor name address
+         fcb   $00        acia xon char
+         fcb   $00        acia xoff char
+         fcb   80         (szx) number of columns for display
+         fcb   66         (szy) number of rows for display
+initsize equ   *
+
+name     fcs   /p/
+mgrnam   fcs   /SCF/
+drvnam   fcs   /Parallel/
+
+         emod  
+eom      equ   *
+         end   
+