DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

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

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦203d6a725⟧ TextFile

    Length: 1632 (0x660)
    Types: TextFile
    Names: »FP_IO.D.I«, »FP_IO.I«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─⟦this⟧ »CSP004_V0801.D!CSS828.D!FP_IO.D.I« 
    └─⟦this⟧ »CSP004_V0801.D!CSS828.D!FP_IO.I«

TextFile


%LIST     %LIST     %LIST
"-----------------------------------------------------------------------

   MODULE NAME:           FPIO
   MODULE ID NMB:         CSS/828
   MODULE VERSION:        01
   AUTHOR/DATE:           CN/830330

 -----------------------------------------------------------------------"
%NOLIST   %NOLIST   %NOLIST

%IMPORT: OUT_REAL,     OUT_LONG_REAL
%IMPORT: IN_REAL,      IN_LONG_REAL


PROCEDURE OUT_REAL(  ST:     INTEGER;  " STREAM POINTER "
                     NUM:    REAL;     " NUMBER TO BE WRITTEN "
                     FORMAT: INTEGER;  " FORMAT DESCRIPTOR "
                     VAR CC: COMPLETION_CODE ); EXTERN;

PROCEDURE OUT_LONG_REAL( ST:       INTEGER;   " STREAM POINTER "
                         NUM:      LONG_REAL; " NUMBER TO BE WRITTEN "
                         FORMAT:   INTEGER;   " FORMAT DESCRIPTOR "
                         VAR CC:   COMPLETION_CODE ); EXTERN;

PROCEDURE IN_REAL( ST:       INTEGER; " STREAM POINTER "
                   VAR NUM:  REAL;    " DESTINATION FOR READ NUMBER "
                   VAR CC:   COMPLETION_CODE ); EXTERN;

PROCEDURE IN_LONG_REAL( ST:      INTEGER;   " STREAM POINTER "
                        VAR NUM: LONG_REAL; " DESTINATION FOR READ NUMBER "
                        VAR CC:  COMPLETION_CODE ); EXTERN;

FUNCTION REAL_FORM( WI,          " FIELD WIDTH "
                    PRE,         " PRECISION "
                    NORM_MODE,   " NORMAL / NO_NORMAL "
                    SIGN_MODE: INTEGER ): INTEGER;
                                 " POS_SIGN / NEG_SIGN "
BEGIN
    REAL_FORM:= WI + ( PRE * 256 ) + NORM_MODE + SIGN_MODE
END;