DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦0e78e6a1f⟧ TextFile

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »mtreadinp«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
            └─⟦this⟧ 

TextFile


 *pl 297,21,240,13,4*
*pn 0,0**lw 170* *ld 12* *ps*
*qr*
1980-10-21
Anders Lindgård
*nl1*
*ct*
mtread
*nl1*
*rj**np*
Reads magnetic tape files with any blocklength. The tape must
contain text in either ascii, ebcd or ebcdic.
*ns 1,2,Call:*
        -----*nl2*
<outfile>=mtread <file> <par>
*nl*
<outfile>::=<empty>/<filedescriptor>
*nl*
<file> specifies the magnetic tape name
*nl*
<outfile> If specified mtread will use this as output file,
else a working file is created.
*nl*
*sj*
<par>::=ascii.<boolean>/ebcd.<boolean>/ebcdic.<boolean>/
        cards.<boolean>/list.<boolean>/
        lastchar.<integer>/file.<integer>/
        max.<integer>
<boolean>::=yes/no
*rj**nl*
if no parameters are specified the default values are:*nl*
ascii.yes cards.no file.0 list.no lastchar.132 even.yes max.1000
*ns 1,2,Function:*
        ---------*nl*
*rj*
*np*
The program read 1600 bpi magnetic tapes in odd parity with
a maximum blocklength given by the parameter "max" (in RC8000
double words (default 1000)).
The content is converted to ISO characters.
*np*
The default file is file 0 and may be changed using the "file"
parameter.
*np*
if "list.yes" is specified the character values is written as
integers and no conversion takes place.
if "list.no" then the content is converted to ISO characters.
*np*
The basic modes of the program is determined by the
parameters "ascii","ebcd" and "ebcdic" of which only one
can be true.
*np*
The program is very slow in reading magnetic tapes, so the
user should save <outfile> for later use rather than reread
the tape.
*nl2*
ascii

*nl**np*
This is the default mode.
 If "cards" is set then "lastchar" is default 72 else 132. 
The program reads the text line by line and only up to lastchar
characters are written on the output file. NUL characters are skipped
and EM characters are replaced by the sequence <25>. If cards is set
a newline character is generated for each card.
*nl2*
ebcd
*nl**np*
In this mode the content of the tape should be ebcd characters.
"cards" is by default true and "lastchar" is 72.
*nl2*
ebcdic
*nl**np*
As ebcd but the content of the tape should be ebcdic characters.
*ns 1,2,Storage requirements:*
        ---------------------*nl2*
*se?*
As for a normal ALGOL program+4*<max>+1190 halfwords.
?se*?
*ns 1,2,Error messages:*
        ---------------*nl1*
*sj**se?*
**parity error
  Parity error on the tape. This is a warning.
***input missing
  No tape name was specified in the call
***blocklength error <blocklength>
increase blocklength
call: mtread max.<max>
where max >  <oldmax>
  The blocklength on the tape is larger than the one
  given in the call. Increase blocklength.
?se*?
*rj*
*lm0*
*ns 1,2,Language: ALGOL*
        ---------*nl1*
*ns 1,2,Maintenance level: user*
        ------------------*nl1*
User
*ef*
▶EOF◀