DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1632 (0x660) Types: TextFile Names: »FP_IO.D.I«, »FP_IO.I«
└─⟦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«
%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;