[comp.os.os9] Parallel Printer Driver/Descriptor

ag@floyd.ATT.COM (03/08/89)

I'm looking for a parallel printer driver that supports the J&M Disk
Controller with the parallel port.  There was such an animal a while
back on Delphi, but it has disappeared.  Any info would be appreciated....

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
         ________
        /_______/|       __________________________
        |       ||----->/                         /     Ag Primatic
        |       ||<----/_________________________/      ag@floyd.ATT.com
        |_______|/    / / / /   / /   / / /   / /
       /oooooooo/    /_________________________/
      /oooooooo/
      ---------
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

dnelson@umbio.MIAMI.EDU (Dru Nelson) (03/14/89)

in article <42053@clyde.ATT.COM>, ag@floyd.ATT.COM says:
> Xref: umbio comp.os.os9:394 comp.sys.m6809:220
> 
> I'm looking for a parallel printer driver that supports the J&M Disk

I have it in the manual.   I will type it in and post it here.  It is
not large.

.
-- 
Dru Nelson                    UUCP: ....!uunet!gould!umbio!dnelson
Miami, Florida                 MCI: dnelson
                          Internet: dnelson%umbio@umigw.miami.edu

dnelson@umbio.MIAMI.EDU (Dru Nelson) (03/14/89)

in article <42053@clyde.ATT.COM>, ag@floyd.ATT.COM says:
> Xref: umbio comp.os.os9:394 comp.sys.m6809:220
> 
> I'm looking for a parallel printer driver that supports the J&M Disk
> Controller with the parallel port.  There was such an animal a while
> back on Delphi, but it has disappeared.  Any info would be appreciated....
>

As promised

p1.dr


  nam cpprint
  ttl Parallel Printer Driver
**************************
* Printer Port Equates
**************************
cp.port equ $FF44      Data Port
cp.stat equ $FF4C      Status Port
cp.busy equ $01
**************************
* OS9 Def Files
**************************
  use /dd/defs/os9defs
  opt l                 I can't tell if it is an L or 1
  opt l                 I used the L (lower case), I am not familiar
                        with assembler (Yet!)
  use /dd/defs/scfdefs
  opt l
**************************
* Static Storage
**************************
CPMEM equ V.SCF+1
**************************
* Module Header
**************************
  mod cplen, cpnam, drivr+objct+reent+1
  fdb cpent Execution Offset
  fdb cpmem Permanent Storage Size
cpnam fcs "cpprint"
  fcb 1     Edition Number 
**************************
* Branch Table
*************************
cpent lbra init
  lbra read
  lbra write
  lbra getsta
  lbra putsta
  lbra term
**************************
* Write to Printer
**************************
write  equ *
  ldb  cp.stat    read status
  bitb #cp.busy   test busy bit
  bne  write      loop back if busy
  sta  cp.port    write out data
  clrb
  rts             done return
**************************
* Do Nothing Entry
**************************
  init   equ *
  read   equ *
  getsta equ *
  putsta equ *
  term   equ *
  clrb
  rts
  emmod
cplen equ *
  end

-------------------------------------------------------------------
p1.dd


  nam P1
  ttl Parallel Printer Device Descriptor
**************************
* OS9 Def Files
* Note: since these occur before
* the 'mod' statemen, none of the 'rmb's, etc will become
* part of the memory resident module.
**************************
  use /dd/defs/os9defs
  opt l                 I can't tell if it is an L or 1
  opt l                 I used the L (lower case), I am not familiar
                        with assembler (Yet!)
  use /dd/defs/scfdefs
  opt l
**************************
* Module Header
**************************
  mod p1end, p1nam, devic+objct+reent+1
  fdb p1fmgr  SCF Name String
  fdb p1dvr   Driver Name String
  fcb $52     Public Write Mode
  fcb $ff     I/O Page
  fcb $ff40   Base of Controller
  fcb it.end-it  Top init table size
**************************
* Initialization Table
**************************
it.top equ *         Top of Init Table
it.dvc fcb dt.scf    SCF Device Type
it.upc fcb 0         Upper and Lower Case
it.bso fcb 0         Allow backspace
it.dlo fcb 1         Backspace over line
it.eko fcb 0         No Echo
it.alf fcb 0         No Auto LF 
it.nul fcb 0         End of line null count
it.pau fcb 0         No end of page pause
it.pag fcb 66        Lines per page
it.bsp fcb $08       Backspace char
it.del fcb $18       Delete character
it.eor fcb $0D       End of Record Char
it.eof fcb 0         End of File Char 
it.rpr fcb $04       Reprint Last line char
it.dup fcb $01       DUP last line char
it.psc fcb $17       Pause char
it.int fcb 0         Interupt char
it.qut fcb 0         Quit Char
it.bse fcb $57       Backspace Char
it.ovf fcb $07       Line overflow char
it.par fcb 0         Parity code
it.bau fcb $04       Acia Baud Rate  (Well I guess you can tell where
                     they got there driver copied from)
it.end equ *         End of init table

**************************
* Name Strings
**************************
p1nam  fcs "P1"    Device Name
p1fmgr fcs "SCF"   File Manager Name
p1dvr  fcs "CPPRINT" Name of Driver
**************************
* End of Module Ritual
**************************
  emmod
p1end equ *
  end



Just glad to finally give something back to the coco community.


-- 
Dru Nelson                    UUCP: ....!uunet!gould!umbio!dnelson
Miami, Florida                 MCI: dnelson
                          Internet: dnelson%umbio@umigw.miami.edu

ag@floyd.ATT.COM (03/14/89)

In article <1477@umbio.MIAMI.EDU> dnelson@umbio.MIAMI.EDU (Dru Nelson) writes:
>in article <42053@clyde.ATT.COM>, ag@floyd.ATT.COM says:
>> Xref: umbio comp.os.os9:394 comp.sys.m6809:220
>> 
>> I'm looking for a parallel printer driver that supports the J&M Disk
>> Controller with the parallel port.  There was such an animal a while
>> back on Delphi, but it has disappeared.  Any info would be appreciated....
>>
>
>As promised
>
>p1.dr
>
> (Rest of code deleted....)

OK, that's wonderful.  Now, my biggest problem is how to assemble this
using RMA, my whiz-bang brand-spanking-new assembler from RS.  I don't
have ASM (which is getting to be a major inconvenience), and I can't
seem to find a way to get the linker to write the module header correctly,
specifically the mode byte at 0x0d.  Any suggestions?  I'm not entering
this by hand!!!

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
         ________
        /_______/|       __________________________
        |       ||----->/                         /     Ag Primatic
        |       ||<----/_________________________/      ag@floyd.ATT.com
        |_______|/    / / / /   / /   / / /   / /
       /oooooooo/    /_________________________/
      /oooooooo/
      ---------
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

wynkoop@esquire.UUCP (Brett Wynkoop) (03/17/89)

In article <42423@clyde.ATT.COM> ag@floyd.UUCP (Agesino Primatic) writes:
>In article <1477@umbio.MIAMI.EDU> dnelson@umbio.MIAMI.EDU (Dru Nelson) writes:
>>in article <42053@clyde.ATT.COM>, ag@floyd.ATT.COM says:
>>> Xref: umbio comp.os.os9:394 comp.sys.m6809:220
>>> 
>>> I'm looking for a parallel printer driver that supports the J&M Disk
>>> Controller with the parallel port.  There was such an animal a while
>>> back on Delphi, but it has disappeared.  Any info would be appreciated....
>>>
>>
>>As promised
>>
>>p1.dr
>>
>> (Rest of code deleted....)
>
>OK, that's wonderful.  Now, my biggest problem is how to assemble this
>using RMA, my whiz-bang brand-spanking-new assembler from RS.  I don't
>have ASM (which is getting to be a major inconvenience), and I can't
>seem to find a way to get the linker to write the module header correctly,
>specifically the mode byte at 0x0d.  Any suggestions?  I'm not entering
>this by hand!!!


Greeting-
     Go to radio shack and buy the upgrade to v2.00 of level 1.  It has a
lot of utilities you need anyway, as well as an asembler that will handle
the job.  It only costs $25.  It is part # 26-3030.  If they do not have it
then ask them to order it for you.

-Brett



uucp .....cmcl2!esquire!wynkoop

bgun@trwind.UUCP (Bill Gunshannon) (03/19/89)

In article <1476@umbio.MIAMI.EDU>, dnelson@umbio.MIAMI.EDU (Dru Nelson) writes:
> in article <42053@clyde.ATT.COM>, ag@floyd.ATT.COM says:
> > Xref: umbio comp.os.os9:394 comp.sys.m6809:220
> > 
> > I'm looking for a parallel printer driver that supports the J&M Disk
> 
> I have it in the manual.   I will type it in and post it here.  It is
> not large.
> 
While your at it, is there a device driver in your book for
the COCO ACIA pack under OS9 level 1.

I have been unable to get the RS232 Pack to do anything but
put any process attached to it to sleep.

Anybody out there that can help???

bill gunshannon

bgun@trwind.ind.TRW.COM