Yes, I'd be VERY interested in such a program.  Don't know where you'd post
it, although if you can look at a list of newsgroups (the file .newsrc in your
main directory, usually) you can probably puzzle it out.   I'd say it would
depend somewhat on the nature and size of the posting: source vs. binary, and
how long (a judgement call).  Suggested search pattern:

  Short sources:  comp.sys.atari.8bit  and  comp.sys.ibm-pc (check this name)

  Long sources:  comp.sources.misc  (check this name, there should be SOMETHING
                                     LIKE this available)

  Binaries:      your guess is as good as mine; depends a lot on how you plan
                 to encode it for posting; if it's short, of course, see
                 "short sources" above!  

Hope this helps; I'd really like to see this program.  If all else fails,
e-mail me a copy at the address below, please.

Chris Chiesa
  Ball State University

UUCP: <backbones>!{iuvax,pur-ee,uunet}!bsu-cs!cfchiesa
cfchi@bsu-cs.UUCP                                          
--
UUCP: <backbones>!{iuvax,pur-ee,uunet}!bsu-cs!cfchiesa
cfchi@bsu-cs.UUCP                                          

OK, I think it's sorta short, and the alternatives may not get read by the
people who want it.  (Donning my asbestoses in case someone strongly disagrees
with my size estimate!)

This is a "traditional" shar file with the MSDOS executable uuencoded on the
end.

This is a utility program that allows you to read, write and format diskettes
on an IBM PC or compatible in the MYDOS double density format for the Atari
8-bit computers.  The utility does not support any of the 128-byte sector
formats, but the source is included (in case you come up with a way to add
such support).  The program has been compiled with Microsoft C and MASM.

I hope you find it useful.

Charles Marslett
Wordmark Systems
c@killer.UUCP
===========================================================================
Disclaimer:  I said it didn*t I???  And I*m honest (-: . . .
===========================================================================

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#               "End of shell archive."
#
# Contents:  READ.ME atario.asm util.c util.uue
#
# Wrapped by chasm@killer on Mon May 30 00:57:28 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f READ.ME -a "${1}" != "-c" ; then
  echo shar: Will not over-write existing file \"READ.ME\"
else
echo shar: Extracting \"READ.ME\" \(986 characters\)
sed "s/^X//" >READ.ME <<'END_OF_READ.ME'
XThe UTIL program is used to read and
Xwrite Atari double density diskettes
Xon an IBM-compatible computer.  The
Xtwo source files for the utility are
XUTIL.C and ATARIO.ASM.
X
XEnter UTIL with no parameters and a
Xhelp message will be displayed.  To
Xread, write or format a disk, enter
Xthe commands /R, /W or /I.  The
Xcommand for displaying the directory
Xis /L.  If the command line contains
Xa /B, the files will not be translat-
Xed to/from ATASCII (i.e., they are
Xbinary files).  The command line for
Xall but the /W function will end with
Xa drive identifier (A:, B:, C: or D:)
X-- this is the ABSOLUTE drive number,
Xnot the one MSDOS uses.  An external
X3.5" drive will usually be drive C:,
Xnot D: or E: or whatever DOS calls
Xit.  Use the /L command until you are
Xsure you know which drive is which!
X
XTo write to the Atari diskette, the
Xdrive identifier is followed by a
Xlist of file names to be written to
Xthe Atari diskette.
X
X                   Good luck,
X                   Charles Marslett
END_OF_READ.ME
if test 986 -ne `wc -c <READ.ME`; then
    echo shar: \"READ.ME\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f atario.asm -a "${1}" != "-c" ; then
  echo shar: Will not over-write existing file \"atario.asm\"
else
echo shar: Extracting \"atario.asm\" \(7101 characters\)
sed "s/^X//" >atario.asm <<'END_OF_atario.asm'
X       title   ATARI Disk I/O Library
X
X       public  _savefb
X       public  _restfb
X       public  _aread
X       public  _awrite
X       public  _aformat
X       public  _cd
X       public  _md
X       public  _dmainit
X       public  _getds
X       public  _ffirst
X       public  _fnext
X
XDGROUP group   _DATA
X
X_DATA  segment byte public 'DATA'
X       extrn   _tracks:byte
X       extrn   _track_offset:byte
X       extrn   _sector_offset:byte
X_DATA  ends
X
XIGROUP group   _TEXT
X
X_TEXT  segment byte public 'CODE'
X       assume  cs:IGROUP,ds:DGROUP
X;
X;      Return first address of a 512-byte buffer in a character array
X;
X_dmainit proc  near
X       push    bp
X       mov     bp,sp
X       mov     ax,4[bp]
X       mov     bx,ds
X       mov     cl,4
X       shl     bx,cl
X       add     bx,ax
X       cmp     bx,0FE00h
X       jbe     dmax
X       sub     ax,bx
Xdmax:  pop     bp
X       ret
X_dmainit endp
X;
X;      Save Current Disk Format in 10-Byte Save Area
X;
X;      savefb(sectorsize, sectorcount, savearea)
X;         int sectorsize, sectorcount;
X;         char savearea[10];
X;
X_savefb        proc    near
X       push    bp
X       mov     bp,sp
X       push    ds
X       push    di
X       push    si
X
X       cld
X       xor     si,si
X       push    ds
X       pop     es                              ;Segment address of save area
X       mov     ds,si
X       lds     si,dword ptr ds:[4*1Eh]         ;Address of ctl block to DS:SI
X       mov     di,8[bp]                        ;Get address of save area
X       mov     cx,5                            ;length in words
X       rep movsw                               ;copy block to local memory
X       sub     si,10                           ;point back to 1-st of ctl blk
X       mov     al,byte ptr 4[bp]               ;ARG1 = sector size code
X       mov     ah,byte ptr 6[bp]               ;ARG2 = sectors/track
X       mov     word ptr [si+3],ax              ;Store data back into block
X       mov     byte ptr [si+5],28              ;Inter-sector gap length (was 42)
X       mov     byte ptr [si+7],24              ;Leading gap length (was 80)
X       mov     byte ptr cs:secptk,ah
X       mov     ah,0                            ;reset the disk system
X       mov     bx,ax
X       shl     bx,1
X       mov     bx,cs:sec_size[bx]
X       mov     cs:data_ln,bx
X       int     13H
X
X       pop     si
X       pop     di
X       pop     ds
X       pop     bp
X       ret
X_savefb        endp
X;
X;      Restore MSDOS Format to Disk Control Block
X;
X;      restfb(savearea)
X;         char savearea[10];
X;
X_restfb        proc    near
X       push    bp
X       mov     bp,sp
X       push    ds
X       push    di
X       push    si
X
X       xor     cx,cx
X       loop    $
X       cld
X       mov     si,4[bp]
X       xor     ax,ax
X       mov     es,ax
X       les     di,dword ptr es:[4*1Eh]
X       mov     cl,5
X       rep movsw
X       int     13H
X
X       pop     si
X       pop     di
X       pop     ds
X       pop     bp
X;      xor     cx,cx
X;      loop    $
X       ret
X_restfb        endp
X;
X;      Read a MYDOS Sector
X;
X;      aread(sector, drive, bufad)
X;         int sector, drive;
X;         char bufad[512];
X;
X_aread proc    near
X       push    bp
X       mov     bp,sp
X       push    es
X       push    si
X       push    di
X
X       call    reg_set
X       call    vread                   ;Read one sector
X       jc      reterr
X       xor     ax,ax                   ;Return zero if no error
Xreterr:
X
X       pop     di
X       pop     si
X       pop     es                      ;Return it directly
X       pop     bp
X       ret
X_aread endp
X;
Xvread  proc    near
X       call    io_setup
Xretry: push    dx
X       push    cx
X       push    bx
X       mov     ax,0201h                ;Command code/Number of sectors
X       int     13H
X       pushf                           ;Save CY flag
X       push    ax
X       jnc     flip
X       dec     cs:errcnt
X       je      flip
X       pop     ax
X       popf
X       mov     ah,00h                  ;Recalibrate disk system
X       int     13H
X       pop     bx
X       pop     cx
X       pop     dx
X       jmp     short retry
X;
Xflip:  pop     ax
X       popf
X       pop     bx
X       pop     cx
X       pop     dx
X
X       pushf
X       mov     cx,128                  ;Complement data bits
Xfliplp:        not     word ptr es:[bx]
X       inc     bx
X       inc     bx
X       loop    fliplp
X       popf                            ;Restore CY flag
X
X       ret                             ;and return (CY/AX contain status)
Xvread  endp
X;
X;      Write a MYDOS Sector
X;
X;      awrite(sector, drive, bufad)
X;         int sector, drive;
X;         char bufad[512];
X;
X_awrite        proc    near
X       push    bp
X       mov     bp,sp
X       push    es
X       push    si
X       push    di
X
X       call    reg_set
X       call    vwrite                  ;Write one sector
X
X       pop     di
X       pop     si
X       pop     es
X       pop     bp
X       ret
X_awrite        endp
X;
Xvwrite proc    near
X       call    io_setup
Xwrtry: push    dx
X       push    cx
X       push    bx
X       mov     cx,128
Xwrcomp:        not     word ptr es:[bx]
X       inc     bx
X       inc     bx
X       loop    wrcomp
X       pop     bx
X       pop     cx
X       push    cx
X       push    bx
X       mov     ax,0301h                ;Command code/Number of sectors
X       int     13H
X       jnc     vw_xit
X       push    ax
X       mov     ah,00h                  ;Recalibrate disk system
X       int     13H
X       pop     ax
X       pop     bx
X       pop     cx
X       pop     dx
X       dec     cs:errcnt
X       jne     wrtry
X       push    cx
X       push    bx
X       mov     cx,128
Xerrcmp:        not     word ptr es:[bx]
X       inc     bx
X       inc     bx
X       loop    errcmp
X       pop     cx
X       pop     bx
X       stc
X       ret                             ;and return (CY/AX contain status)
X
Xvw_xit:        pop     bx
X       push    bx
X       mov     cx,128
Xwrrcmp:        not     word ptr es:[bx]
X       inc     bx
X       inc     bx
X       loop    wrrcmp
X       mov     ax,0                    ;Indicate no error
X       pop     bx
X       pop     cx
X       pop     dx
X       ret
Xvwrite endp
X;
X;      Format a MYDOS Track
X;
X;      aformat(track, drive, buf, seq)
X;         int sector, drive;
X;         char buf[512];
X;         char seq[26];
X;
X_aformat proc  near
X       push    bp
X       mov     bp,sp
X       push    ds
X       push    es
X       push    di
X       mov     di,8[bp]                ;Point to the buffer
X       mov     ax,ds
X       mov     es,ax
X       mov     ah,1
X       mov     bx,10[bp]               ;Point to sector sequence table
X       mov     ch,4[bp]                ;Get track no.
X
X       cld
Xbldft: mov     al,ds:[bx]
X       cmp     al,0FFh
X       je      endbft
X       inc     bx
X       mov     es:[di],ch              ;Track No.
X       inc     di
X       mov     byte ptr es:[di],0      ;Head No.
X       inc     di
X       stosw                           ;Sector No. and Bytes/Sector
X       jmp     short bldft
X
Xendbft:        sub     bx,10[bp]
X       mov     ax,bx
X       mov     bx,8[bp]                ;368h
X       mov     cl,1                    ;Sector number (junk)
X       mov     dh,0                    ;Head number
X       mov     dl,byte ptr 6[bp]       ;Drive number
X       mov     ah,05h                  ;Format command
X       int     13h
X       mov     ax,0
X       jnc     afex                    ;Return 0 if OK, -1 if error
X       dec     ax
Xafex:  pop     di
X       pop     es
X       pop     ds
X       pop     bp
X       ret
X_aformat endp
X
Xio_setup proc  near
X       dec     ax                      ;Make sector number 0-based
X       xor     dx,dx                   ;and 64-bit long
X       div     word ptr cs:secptk      ;convert to track/sector format
X       inc     dl
Xfmt_su:        mov     ch,al                   ;track number
X       mov     cl,dl                   ;sector number
X       mov     dh,0                    ;Head number
X       cmp     ch,_tracks              ;Second side?
X       jb      dord
X       inc     dh
X       test    _track_offset+1,80h     ;Same or different directions
X       jz      dorev
X       add     ch,_track_offset        ;track = track - [40|80]
X       jmp     short doadj
Xdorev: mov     ch,_track_offset        ;track = [80|160] - track
X       sub     ch,al
Xdoadj: test    _sector_offset+1,80h
X       jnz     dord                    ;if < 0, no change
X       mov     cl,_sector_offset
X       sub     cl,dl                   ;else sector = K - sector
X       cmp     cl,byte ptr cs:secptk
X       jbe     dord                    ;Where K can be > max sector #
X       sub     cl,byte ptr cs:secptk
X       dec     ch                      ;presume reversed sequence
X       test    _track_offset+1,80h
X       jz      dord
X       add     ch,2                    ;if forward track sequence
Xdord:
X       mov     dl,byte ptr 6[bp]       ;Drive number
X       mov     cs:errcnt,5             ;Retry 5 times only!
X       ret
Xio_setup endp
X
Xreg_set        proc    near
X       mov     bx,8[bp]                ;ARG2 = buffer address
X       mov     ax,ds
X       mov     es,ax
X       mov     ax,4[bp]                ;Get ATARI FMS sector no.
X       ret
Xreg_set        endp
X;
X;  Change
...

 

Error 113 from EXECIO while logging  mail for INFO-A8 into INFO-A8 88-00355
I. An incomplete copy of the message might be present in the notebook. List
is being  held with current mailing  being postponed. Your file  (2668) has
been transferred to HARRY@MARIST.

Well, I was walking through my local software shop last night, and, much
to my amazement, I saw a few of the atari letter quality printers selling
for $79.99!!  Needless to say, it took me about 3 seconds to decide to
buy one.  (All I had was an even wimpier PCjr thermal printer I bought off
the telephone auction on TV a few years ago for $30).

OK, it's a little slow.  But it really works.  On actual paper!

My question is, where do I find the replacement little ink things?  I would
like to collect up a supply, because stuff like that can start getting
in short supply when things are past their prime :-).

-Stan

Hmm... this may be a good deal, but...

My question:  did you buy the Atari 1027 Letter Quality Printer?  If so,
this is a printer that Atari started making about 5 or more years ago
(before Tramiel bought the company) and no longer supports.  (As far
as I know.)  If it isn't the 1027 model, which model is it?  I haven't
heard of any new Atari printers (aside from the XMM801/SMM801 dot matrix
printers and the in/famous Atari Laser Printer) since all the hype about
three years ago.

Good luck on finding supplies though;  I think a couple of places that
might be able to help you out are B & C Computervisions in San Francisco
and a place called American TV (I think ... I don't have my Antic or
Analog magazines in front of me...)  Both of these have advertised parts
and things for older Atari components, they should be able to help you
out.

--
Andrew Weaver             |  wea@tut.cis.ohio-state.edu        
OSU College of Business   |  ...ihnp4!cbosgd!osu-cis!tut!weaver

...[edited]...

Atari advertises in every issue of Atari Explorer. They currently list
ink rollers as "in stock".

FC100626 Ink Rollers                    $  3.95
         5 Ink rollers for              $ 10.00

California residents add 7% sales tax.
S & H - under $50.00, add $ 3.50
        over  $50.00, add $ 5.00
        over $100.00, add $ 7.00
        outside USA   add $10.00

Order from Atari ST, Dept. M9
           P. O. Box 61657
           Sunnyvale, Ca. 94088

--
*George R. Woodside - Citicorp/TTI - Santa Monica, CA
*Path: ..!{trwrb|philabs|csun|psivax}!ttidca!woodside

A week or so ago, someone mentioned that there are some serious bugs in the
Atari Macro Assembler. Because I've just recently gotten a copy of this, and
don't own MAC-65, could someone please tell me just what these bugs are and
if there are any fixes?

From:   IN%"Mai@Score.STANFORD.EDU"  "The Mailer Daemon"  6-JUN-1988 09:08
To:     SHAFF@BKNLVMS.BITNET
Subj:   Message of 6-Jun-88 06:03:53

Received: from JNET-DAEMON by BKNLVMS.BITNET; Mon, 6 Jun 88 09:07 EDT
Received: From STANFORD(MAILER) by BKNLVMS with Jnet id 0086 for
 SHAFFERJ@BKNLVMS; Mon,  6 Jun 88 09:06 EDT
Received: by Forsythe.Stanford.EDU; Mon,  6 Jun 88 06:05:54 PDT
Date: Mon 6 Jun 88 06:03:54-PDT
From: The Mailer Daemon <Mai@Score.STANFORD.EDU>
Subject: Message of 6-Jun-88 06:03:53
To: SHAFF@BKNLVMS.BITNET

Message failed for the following:
*PS:<info-atari>ATARI8.INCOM@Score.Stanford.EDU.#Internet: No such file type
            ------------
Received: from lindy.Stanford.EDU by SCORE.STANFORD.EDU with TCP; Mon 6 Jun 88 0
6:03:53-PDT
Received: by lindy.Stanford.EDU (4.0/4.7); Mon, 6 Jun 88 06:04:56 PDT
Received: by Forsythe.Stanford.EDU; Sun,  5 Jun 88 16:07:24 PDT
Date: Sun, 5 Jun 88 19:06 EDT
From: "Jim Shaffer, Jr." <SHAFFERJ%BKNLVMS.BIT@Forsythe.Stanford.EDU>
Subject: AMAC bugs?
To: info-ata@score.STANFORD.EDU
X-Vms-To: IN%"atari"

A week or so ago, someone mentioned that there are some serious bugs in the
Atari Macro Assembler. Because I've just recently gotten a copy of this, and
don't own MAC-65, could someone please tell me just what these bugs are and
if there are any fixes?
-------

A while ago someone mentioned that there were some serious bugs in the
Atari Macro Assembler. Since I've just started using it, what are these bugs?

A while ago someone mentioned that the Atari Macro Assembler had some serious
bugs. Since I haven't heard of these yet (maybe I haven't used it enough to
find out the hard way), could someone tell me what they are?